Go to the source code of this file.
Functions/Subroutines | |
subroutine | getwfpw (vpl, vhpl, wfpw) |
subroutine getwfpw | ( | real(8), dimension(3), intent(in) | vpl, |
real(8), dimension(3,nhkmax,nspnfv), intent(in) | vhpl, | ||
complex(8), dimension(nhkmax,nspinor,nstsv), intent(out) | wfpw | ||
) |