allocate_expansion Subroutine
- Jonathan Chico
-
- profiling, profiling, special-functions, KKRhost
- 70 statements
- Source File
public subroutine allocate_expansion(flag, lm2d, irid, nfund, ntotd, ncleb, lassld, ncelld, nchebd, loflm, wg, cleb, yrg, thetas, thetasnew)
Subroutine handling the allocation/deallocation of arrays that describe the functions for the expansion of the Green function
Arguments
| 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 |