Go to the source code of this file.
|
subroutine | gencrho (tsh, tspc, ngt, wfmt1, wfir1, wfmt2, wfir2, crhomt, crhoir) |
|
pure subroutine | crho1 (n, wf1, wf2, crho) |
|
pure subroutine | crho2 (n, wf11, wf12, wf21, wf22, crho) |
|
◆ crho1()
pure subroutine gencrho::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 gencrho::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 |
◆ gencrho()
subroutine gencrho |
( |
logical, intent(in) |
tsh, |
|
|
logical, intent(in) |
tspc, |
|
|
integer, intent(in) |
ngt, |
|
|
complex(4), dimension(npcmtmax,natmtot,*), intent(in) |
wfmt1, |
|
|
complex(4), dimension(ngt,*), intent(in) |
wfir1, |
|
|
complex(4), dimension(npcmtmax,natmtot,*), intent(in) |
wfmt2, |
|
|
complex(4), dimension(ngt,*), intent(in) |
wfir2, |
|
|
complex(4), dimension(npcmtmax,natmtot), intent(out) |
crhomt, |
|
|
complex(4), dimension(ngt), intent(out) |
crhoir |
|
) |
| |