Go to the source code of this file.
|
subroutine | genspfxcr (tsh, fxcmt, fxcir) |
|
pure subroutine | tfm2213 (n, fxcuu, fxcud, fxcdd, magu, magm, bxcp, ld, fxc) |
|
◆ genspfxcr()
subroutine genspfxcr |
( |
logical, intent(in) |
tsh, |
|
|
real(8), dimension(npmtmax,natmtot,4,4), intent(out) |
fxcmt, |
|
|
real(8), dimension(ngtot,4,4), intent(out) |
fxcir |
|
) |
| |
◆ tfm2213()
pure subroutine genspfxcr::tfm2213 |
( |
integer, intent(in) |
n, |
|
|
real(8), dimension(n), intent(in) |
fxcuu, |
|
|
real(8), dimension(n), intent(in) |
fxcud, |
|
|
real(8), dimension(n), intent(in) |
fxcdd, |
|
|
real(8), dimension(3,n), intent(in) |
magu, |
|
|
real(8), dimension(n), intent(in) |
magm, |
|
|
real(8), dimension(n), intent(in) |
bxcp, |
|
|
integer, intent(in) |
ld, |
|
|
real(8), dimension(ld,4,4), intent(out) |
fxc |
|
) |
| |