mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-27 03:40:45 +02:00
27 lines
748 B
Fortran
27 lines
748 B
Fortran
BEGIN_PROVIDER [integer, kconserv, (kpt_num,kpt_num,kpt_num)]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Information about k-point symmetry
|
|
!
|
|
! for k-points I,J,K: kconserv(I,J,K) gives L such that
|
|
! k_I + k_J = k_K + k_L
|
|
! two-electron integrals of the form <ij|kx>
|
|
! (where i,j,k have momentum k_I, k_J, k_K)
|
|
! will only be nonzero if x has momentum k_L (as described above)
|
|
!
|
|
END_DOC
|
|
integer :: i,j,k,l
|
|
|
|
if (read_kconserv) then
|
|
call ezfio_get_nuclei_kconserv(kconserv)
|
|
print *, 'kconserv read from disk'
|
|
else
|
|
print*,'kconserv must be provided'
|
|
stop -1
|
|
endif
|
|
if (write_kconserv) then
|
|
call ezfio_set_nuclei_kconserv(kconserv)
|
|
print *, 'kconserv written to disk'
|
|
endif
|
|
END_PROVIDER
|