allocate_expansion Subroutine

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 IntentOptional 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