mod_shape_corr Module
Prepares shape corrections using gaussian quadrature as given by m. abramowitz and i.a. stegun, handbook of mathematical functions and applied mathematics series 55 (1968), pages 887 and 916.
Uses
-
- mod_datatypes
Functions
public function triangle(l1, l2, l3)
- License
- Category
- numerical-tools, KKRhost
F u n c t i o n
t o
c h e c k
i f
t h e
a n g u l a r
m o m e n t u m
a l l o w s
f o r
t h e
g a u n t
c o e f f i c i e n t s
t o
b e
c o r r e c t e d
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | l1 | ||||
| integer | :: | l2 | ||||
| integer | :: | l3 |
Return Value logical
Subroutines
public subroutine shape_corr(lpot, natyp, gsh, ilm_map, imaxsh, lmsp, ntcell, w, yr, lassld, lmpotd, natypd, ngshd)
- License
- Category
- shape-functions, KKRhost
P r e p a r e s
s h a p e
c o r r e c t i o n s
u s i n g
g a u s s i a n
q u a d r a t u r e
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | lpot | ||||
| integer | :: | natyp | ||||
| real(kind=dp) | :: | gsh(ngshd) | ||||
| integer | :: | ilm_map(ngshd,3) | ||||
| integer | :: | imaxsh(0:lmpotd) | ||||
| integer | :: | lmsp(natypd,*) | ||||
| integer | :: | ntcell(*) | ||||
| real(kind=dp) | :: | w(lassld) | ||||
| real(kind=dp) | :: | yr(lassld,0:lassld,0:lassld) | ||||
| integer | :: | lassld | ||||
| integer | :: | lmpotd | ||||
| integer | :: | natypd | ||||
| integer | :: | ngshd |