Go to the source code of this file.
|
pure subroutine | gengkvec (ngv, ivg, vgc, vkl, vkc, gkmax, ngkmax, ngk, igkig, vgkl, vgkc, gkc) |
|
◆ gengkvec()
pure subroutine gengkvec |
( |
integer, intent(in) |
ngv, |
|
|
integer, dimension(3,ngv), intent(in) |
ivg, |
|
|
real(8), dimension(3,ngv), intent(in) |
vgc, |
|
|
real(8), dimension(3), intent(in) |
vkl, |
|
|
real(8), dimension(3), intent(in) |
vkc, |
|
|
real(8), intent(in) |
gkmax, |
|
|
integer, intent(in) |
ngkmax, |
|
|
integer, intent(out) |
ngk, |
|
|
integer, dimension(ngkmax), intent(out) |
igkig, |
|
|
real(8), dimension(3,ngkmax), intent(out) |
vgkl, |
|
|
real(8), dimension(3,ngkmax), intent(out) |
vgkc, |
|
|
real(8), dimension(ngkmax), intent(out) |
gkc |
|
) |
| |