Go to the source code of this file.
|
subroutine | oepvclk (ikp, vclcv, vclvv) |
|
pure subroutine | crho1 (n, wf1, wf2, crho) |
|
pure subroutine | crho2 (n, wf11, wf12, wf21, wf22, crho) |
|
◆ crho1()
pure subroutine oepvclk::crho1 |
( |
integer, intent(in) |
n, |
|
|
complex(4), dimension(n), intent(in) |
wf1, |
|
|
complex(4), dimension(n), intent(in) |
wf2, |
|
|
complex(4), dimension(n), intent(out) |
crho |
|
) |
| |
◆ crho2()
pure subroutine oepvclk::crho2 |
( |
integer, intent(in) |
n, |
|
|
complex(4), dimension(n), intent(in) |
wf11, |
|
|
complex(4), dimension(n), intent(in) |
wf12, |
|
|
complex(4), dimension(n), intent(in) |
wf21, |
|
|
complex(4), dimension(n), intent(in) |
wf22, |
|
|
complex(4), dimension(n), intent(out) |
crho |
|
) |
| |
|
private |
◆ oepvclk()
subroutine oepvclk |
( |
integer, intent(in) |
ikp, |
|
|
complex(8), dimension(ncrmax,natmtot,nstsv), intent(out) |
vclcv, |
|
|
complex(8), dimension(nstsv,nstsv), intent(out) |
vclvv |
|
) |
| |