9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 11:33:29 +01:00

conditional in selection for mo_num_per_kpt

This commit is contained in:
Kevin Gasperich 2020-06-23 16:44:20 -05:00
parent 008fc4be2b
commit 9242555008

View File

@ -520,7 +520,9 @@ subroutine select_singles_and_doubles(i_generator,hole_mask,particle_mask,fock_d
h1 = hole_list(i1,s1)
!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
call apply_hole(psi_det_generators(1,1,i_generator), s1,h1, pmask, ok, N_int)