Go to the source code of this file.
|
subroutine | genzvbmatk (zvmt, zvir, zbmt, zbir, ngp, igpig, wfmt, wfir, wfgp, vbmat) |
|
pure subroutine | zvbmk1 (n, zv, zb1, zb2, zb3, wf11, wf12, wf21, wf22) |
|
pure subroutine | zvbmk2 (n, zv, zb, wf11, wf12, wf21, wf22) |
|
◆ genzvbmatk()
subroutine genzvbmatk |
( |
complex(8), dimension(npcmtmax,natmtot), intent(in) |
zvmt, |
|
|
complex(8), dimension(ngtc), intent(in) |
zvir, |
|
|
complex(8), dimension(npcmtmax,natmtot,ndmag), intent(in) |
zbmt, |
|
|
complex(8), dimension(ngtc,ndmag), intent(in) |
zbir, |
|
|
integer, intent(in) |
ngp, |
|
|
integer, dimension(ngp), intent(in) |
igpig, |
|
|
complex(4), dimension(npcmtmax,natmtot,nspinor,nstsv), intent(in) |
wfmt, |
|
|
complex(4), dimension(ngtc,nspinor,nstsv), intent(in) |
wfir, |
|
|
complex(4), dimension(ngp,nspinor,nstsv), intent(in) |
wfgp, |
|
|
complex(8), dimension(nstsv,nstsv), intent(out) |
vbmat |
|
) |
| |
◆ zvbmk1()
pure subroutine genzvbmatk::zvbmk1 |
( |
integer, intent(in) |
n, |
|
|
complex(8), dimension(n), intent(in) |
zv, |
|
|
complex(8), dimension(n), intent(in) |
zb1, |
|
|
complex(8), dimension(n), intent(in) |
zb2, |
|
|
complex(8), dimension(n), intent(in) |
zb3, |
|
|
complex(4), dimension(n), intent(in) |
wf11, |
|
|
complex(4), dimension(n), intent(in) |
wf12, |
|
|
complex(4), dimension(n), intent(out) |
wf21, |
|
|
complex(4), dimension(n), intent(out) |
wf22 |
|
) |
| |
◆ zvbmk2()
pure subroutine genzvbmatk::zvbmk2 |
( |
integer, intent(in) |
n, |
|
|
complex(8), dimension(n), intent(in) |
zv, |
|
|
complex(8), dimension(n), intent(in) |
zb, |
|
|
complex(4), dimension(n), intent(in) |
wf11, |
|
|
complex(4), dimension(n), intent(in) |
wf12, |
|
|
complex(4), dimension(n), intent(out) |
wf21, |
|
|
complex(4), dimension(n), intent(out) |
wf22 |
|
) |
| |
|
private |