calc_magmom_newmesh Subroutine
public subroutine calc_magmom_newmesh(lmax, imt1, irmdnew, icell, iend, ifunm, icleb, cleb, thetasnew, mag_den, mag_den_convol)
Uses
-
- global_variables
- mod_datatypes
diagonal part (not contained in gaunt-coeff)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | lmax | |||
| integer, | intent(in) | :: | imt1 | |||
| integer, | intent(in) | :: | irmdnew | |||
| integer, | intent(in) | :: | icell | |||
| integer, | intent(in) | :: | iend | |||
| 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) ! CHECK THE DIMENSION AND HOW IT IS USED!!! |
|
| real(kind=dp), | intent(in), | dimension (irmdnew, nfund) | :: | thetasnew | ||
| real(kind=dp), | intent(in), | dimension(1:irmdnew,1:lmpotd,1:3) | :: | mag_den | ||
| real(kind=dp), | intent(out), | dimension(1:irmdnew,1:(lmax+1)**2 ,1:3) | :: | mag_den_convol |