mirror of https://gitlab.com/QEF/q-e.git
31 lines
707 B
Fortran
31 lines
707 B
Fortran
MODULE nmr_mod
|
|
!
|
|
! Extra variable needed to describe nmr
|
|
!
|
|
USE kinds, ONLY : DP
|
|
IMPLICIT NONE
|
|
SAVE
|
|
!
|
|
INTEGER, ALLOCATABLE :: &
|
|
igk_q(:) ! correspondence k+q+G <-> G
|
|
REAL(KIND=DP), ALLOCATABLE :: &
|
|
g2kin_q(:) ! kinetic energy for k+q
|
|
COMPLEX(KIND=DP), ALLOCATABLE :: &
|
|
vkb_q(:,:) ! all beta functions in reciprocal space for k+q
|
|
|
|
CONTAINS
|
|
|
|
SUBROUTINE init_nmr()
|
|
|
|
USE wvfct, only: npwx
|
|
USE uspp, ONLY : nkb
|
|
IMPLICIT NONE
|
|
|
|
allocate (igk_q(npwx))
|
|
allocate (g2kin_q(npwx))
|
|
allocate (vkb_q(npwx, nkb))
|
|
|
|
end SUBROUTINE init_nmr
|
|
|
|
end MODULE nmr_mod
|