subroutine potxc |
( |
logical, intent(in) |
tsh, |
|
|
integer, dimension(3), intent(in) |
xctype_, |
|
|
real(8), dimension(npmtmax,natmtot), intent(in) |
rhomt_, |
|
|
real(8), dimension(ngtot), intent(in) |
rhoir_, |
|
|
real(8), dimension(npmtmax,natmtot,ndmag), intent(in) |
magmt_, |
|
|
real(8), dimension(ngtot,ndmag), intent(in) |
magir_, |
|
|
real(8), dimension(npmtmax,natmtot,nspinor), intent(in) |
taumt_, |
|
|
real(8), dimension(ngtot,nspinor), intent(in) |
tauir_, |
|
|
real(8), dimension(npmtmax,natmtot), intent(out) |
exmt_, |
|
|
real(8), dimension(ngtot), intent(out) |
exir_, |
|
|
real(8), dimension(npmtmax,natmtot), intent(out) |
ecmt_, |
|
|
real(8), dimension(ngtot), intent(out) |
ecir_, |
|
|
real(8), dimension(npmtmax,natmtot), intent(out) |
vxcmt_, |
|
|
real(8), dimension(ngtot), intent(out) |
vxcir_, |
|
|
real(8), dimension(npmtmax,natmtot,ndmag), intent(out) |
bxcmt_, |
|
|
real(8), dimension(ngtot,ndmag), intent(out) |
bxcir_, |
|
|
real(8), dimension(npmtmax,natmtot), intent(out) |
wxcmt_, |
|
|
real(8), dimension(ngtot), intent(out) |
wxcir_ |
|
) |
| |