Subroutine handling the allocation/deallocation of arrays that describe the functions for the expansion of the Green function
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | flag | |||
integer, | intent(in) | :: | lm2d | |||
integer, | intent(in) | :: | irid | |||
integer, | intent(in) | :: | nfund | |||
integer, | intent(in) | :: | ntotd | |||
integer, | intent(in) | :: | ncleb | |||
integer, | intent(in) | :: | lassld | |||
integer, | intent(in) | :: | ncelld | |||
integer, | intent(in) | :: | nchebd | |||
integer, | intent(inout), | dimension (:), allocatable | :: | loflm |
l of lm=(l,m) (GAUNT) |
|
real(kind=dp), | intent(inout), | dimension (:), allocatable | :: | wg |
Integr. weights for Legendre polynomials |
|
real(kind=dp), | intent(inout), | dimension (:, :), allocatable | :: | cleb |
GAUNT coefficients (GAUNT) |
|
real(kind=dp), | intent(inout), | dimension (:, :, :), allocatable | :: | yrg |
Spherical harmonics (GAUNT2) |
|
real(kind=dp), | intent(inout), | dimension (:, :, :), allocatable | :: | thetas |
shape function THETA=0 outer space THETA =1 inside WS cell in spherical harmonics expansion |
|
real(kind=dp), | intent(inout), | dimension (:, :, :), allocatable | :: | thetasnew |