Go to the source code of this file.
|
subroutine | rhomagk (ngp, igpig, wppt, occsvp, apwalm, evecfv, evecsv, rhomt_, rhoir_, magmt_, magir_) |
|
pure subroutine | rmk1 (n, wo, wf1, wf2, rho, mag1, mag2, mag3) |
|
pure subroutine | rmk2 (n, wo, wf1, wf2, rho, mag) |
|
pure subroutine | rmk3 (n, wo, wf, rho) |
|
◆ rhomagk()
subroutine rhomagk |
( |
integer, dimension(nspnfv), intent(in) |
ngp, |
|
|
integer, dimension(ngkmax,nspnfv), intent(in) |
igpig, |
|
|
real(8), intent(in) |
wppt, |
|
|
real(8), dimension(nstsv), intent(in) |
occsvp, |
|
|
complex(8), dimension(ngkmax,apwordmax,lmmaxapw,natmtot,nspnfv), intent(in) |
apwalm, |
|
|
complex(8), dimension(nmatmax,nstfv,nspnfv), intent(in) |
evecfv, |
|
|
complex(8), dimension(nstsv,nstsv), intent(in) |
evecsv, |
|
|
real(8), dimension(npcmtmax,natmtot), intent(inout) |
rhomt_, |
|
|
real(8), dimension(ngtc), intent(inout) |
rhoir_, |
|
|
real(8), dimension(npcmtmax,natmtot,ndmag), intent(inout) |
magmt_, |
|
|
real(8), dimension(ngtc,ndmag), intent(inout) |
magir_ |
|
) |
| |
◆ rmk1()
pure subroutine rhomagk::rmk1 |
( |
integer, intent(in) |
n, |
|
|
real(8), intent(in) |
wo, |
|
|
complex(8), dimension(n), intent(in) |
wf1, |
|
|
complex(8), dimension(n), intent(in) |
wf2, |
|
|
real(8), dimension(n), intent(inout) |
rho, |
|
|
real(8), dimension(n), intent(inout) |
mag1, |
|
|
real(8), dimension(n), intent(inout) |
mag2, |
|
|
real(8), dimension(n), intent(inout) |
mag3 |
|
) |
| |
◆ rmk2()
pure subroutine rhomagk::rmk2 |
( |
integer, intent(in) |
n, |
|
|
real(8), intent(in) |
wo, |
|
|
complex(8), dimension(n), intent(in) |
wf1, |
|
|
complex(8), dimension(n), intent(in) |
wf2, |
|
|
real(8), dimension(n), intent(inout) |
rho, |
|
|
real(8), dimension(n), intent(inout) |
mag |
|
) |
| |
|
private |
◆ rmk3()
pure subroutine rhomagk::rmk3 |
( |
integer, intent(in) |
n, |
|
|
real(8), intent(in) |
wo, |
|
|
complex(8), dimension(n), intent(in) |
wf, |
|
|
real(8), dimension(n), intent(inout) |
rho |
|
) |
| |
|
private |