Go to the source code of this file.
|
subroutine | jtotk (ik, pmat, evecsv, evecsvt) |
|
◆ jtotk()
subroutine jtotk |
( |
integer, intent(in) |
ik, |
|
|
complex(8), dimension(nstsv,nstsv,3), intent(in) |
pmat, |
|
|
complex(8), dimension(nstsv,nstsv), intent(in) |
evecsv, |
|
|
complex(8), dimension(nstsv,nstsv), intent(in) |
evecsvt |
|
) |
| |