Go to the source code of this file.
|
subroutine | oepresk (ik, vclcv, vclvv) |
|
pure subroutine | rcfadd (z, cfmt, cfir, rfmt, rfir) |
|
pure subroutine | rcadd (n, z, cv, rv) |
|
◆ oepresk()
subroutine oepresk |
( |
integer, intent(in) |
ik, |
|
|
complex(8), dimension(ncrmax,natmtot,nstsv,nkpt), intent(in) |
vclcv, |
|
|
complex(8), dimension(nstsv,nstsv,nkpt), intent(in) |
vclvv |
|
) |
| |
◆ rcadd()
pure subroutine oepresk::rcadd |
( |
integer, intent(in) |
n, |
|
|
complex(8), intent(in) |
z, |
|
|
complex(4), dimension(n), intent(in) |
cv, |
|
|
real(8), dimension(n), intent(out) |
rv |
|
) |
| |
|
private |
◆ rcfadd()
pure subroutine oepresk::rcfadd |
( |
complex(8), intent(in) |
z, |
|
|
complex(4), dimension(npcmtmax,natmtot), intent(in) |
cfmt, |
|
|
complex(4), dimension(ngtot), intent(in) |
cfir, |
|
|
real(8), dimension(npcmtmax,natmtot), intent(inout) |
rfmt, |
|
|
real(8), dimension(ngtot), intent(inout) |
rfir |
|
) |
| |