calc_thetallmat Subroutine
- Sascha Brinker
-
- KKRhost, geometry, new-mesh, shapefun
- 55 statements
- Source File
public subroutine calc_thetallmat(thetansll, lmax, imt1, iend, irmdnew, thetasnew, ifunm, icleb, cleb)
Calculates the LL' expansion of the shape function similarly to vllmat_new.f90
Note
The input shapefunction (single L) uses pointer arrays for the lm index. The output does not need pointers!
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=dp), | intent(out), | dimension((lmax+1)**2,(lmax+1)**2,irmdnew) | :: | thetansll | ||
| integer, | intent(in) | :: | lmax | |||
| integer, | intent(in) | :: | imt1 | |||
| integer, | intent(in) | :: | iend | |||
| integer, | intent(in) | :: | irmdnew | |||
| real(kind=dp), | intent(in), | dimension (irmdnew, nfund) | :: | thetasnew | ||
| integer, | intent(in), | dimension (1:(2*lmax+1)**2) | :: | ifunm | ||
| integer, | intent(in), | dimension (ncleb, 4) | :: | icleb |
Pointer array |
|
| real(kind=dp), | intent(in), | dimension (ncleb) | :: | cleb |
GAUNT coefficients (GAUNT) |