mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-22 19:43:32 +01:00
conditional in selection for mo_num_per_kpt
This commit is contained in:
parent
008fc4be2b
commit
9242555008
@ -520,7 +520,9 @@ subroutine select_singles_and_doubles(i_generator,hole_mask,particle_mask,fock_d
|
|||||||
|
|
||||||
h1 = hole_list(i1,s1)
|
h1 = hole_list(i1,s1)
|
||||||
!todo: kpts
|
!todo: kpts
|
||||||
kh1 = (h1-1)/mo_num_per_kpt + 1
|
if (is_complex) then
|
||||||
|
kh1 = (h1-1)/mo_num_per_kpt + 1
|
||||||
|
endif
|
||||||
! pmask is i_generator det with bit at h1 set to zero
|
! pmask is i_generator det with bit at h1 set to zero
|
||||||
call apply_hole(psi_det_generators(1,1,i_generator), s1,h1, pmask, ok, N_int)
|
call apply_hole(psi_det_generators(1,1,i_generator), s1,h1, pmask, ok, N_int)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user