mod_madelgaunt Module
Calculation of the Gaunt coefficients
Uses
-
- mod_datatypes
Subroutines
public subroutine madelgaunt(lpot, yrg, wg, cleb, icleb, iend, lassld, nclebd)
- License
- Category
- electrostatics, KKRhost
C a l c u l a t i o n
o f
t h e
G a u n t
c o e f f i c i e n t s
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | lpot |
Maximum l component in potential expansion |
||
| real(kind=dp), | intent(in), | dimension(lassld, 0:lassld, 0:lassld) | :: | yrg |
Spherical harmonics (GAUNT2) |
|
| real(kind=dp), | intent(in), | dimension(lassld) | :: | wg |
Integr. weights for Legendre polynomials |
|
| real(kind=dp), | intent(out), | dimension(nclebd) | :: | cleb |
GAUNT coefficients (GAUNT) |
|
| integer, | intent(out), | dimension(nclebd,3) | :: | icleb |
Pointer array |
|
| integer, | intent(out) | :: | iend |
Number of nonzero gaunt coefficients |
||
| integer, | intent(in) | :: | lassld |
4*lmax |
||
| integer, | intent(in) | :: | nclebd |
(LMAX2+1)2 * (LMAX+1)*2 |