Go to the source code of this file.
|
| subroutine | genvbmatk (vmt, vir, bmt, bir, ngp, igpig, wfmt, ld, wfgp, vbmat) |
| |
| pure subroutine | vbmk1 (n, v, b1, b2, b3, wf11, wf12, wf21, wf22) |
| |
| pure subroutine | vbmk2 (n, v, b, wf11, wf12, wf21, wf22) |
| |
◆ genvbmatk()
| subroutine genvbmatk |
( |
real(8), dimension(npcmtmax,natmtot), intent(in) |
vmt, |
|
|
real(8), dimension(ngtc), intent(in) |
vir, |
|
|
real(8), dimension(npcmtmax,natmtot,ndmag), intent(in) |
bmt, |
|
|
real(8), dimension(ngtc,ndmag), intent(in) |
bir, |
|
|
integer, dimension(nspnfv), intent(in) |
ngp, |
|
|
integer, dimension(ngkmax,nspnfv), intent(in) |
igpig, |
|
|
complex(4), dimension(npcmtmax,natmtot,nspinor,nstsv), intent(in) |
wfmt, |
|
|
integer, intent(in) |
ld, |
|
|
complex(4), dimension(ld,nspinor,nstsv), intent(in) |
wfgp, |
|
|
complex(8), dimension(nstsv,nstsv), intent(out) |
vbmat |
|
) |
| |
◆ vbmk1()
| pure subroutine genvbmatk::vbmk1 |
( |
integer, intent(in) |
n, |
|
|
real(8), dimension(n), intent(in) |
v, |
|
|
real(8), dimension(n), intent(in) |
b1, |
|
|
real(8), dimension(n), intent(in) |
b2, |
|
|
real(8), dimension(n), intent(in) |
b3, |
|
|
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 |
|
) |
| |
◆ vbmk2()
| pure subroutine genvbmatk::vbmk2 |
( |
integer, intent(in) |
n, |
|
|
real(8), dimension(n), intent(in) |
v, |
|
|
real(8), dimension(n), intent(in) |
b, |
|
|
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 |