9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-10 05:33:30 +01:00

correction

This commit is contained in:
kossoski 2022-04-13 13:32:14 +02:00
parent 69138a2d25
commit 62c28db6da

View File

@ -729,7 +729,7 @@ subroutine fill_buffer_double(i_generator, sp, h1, h2, bannedOrb, banned, fock_d
endif
integer :: twice_hierarchy
twice_hierarchy = degree + s/2
if (twice_hierarchy_max > twice_hierarchy_max) cycle
if (twice_hierarchy > twice_hierarchy_max) cycle
endif
Hii = diag_H_mat_elem_fock(psi_det_generators(1,1,i_generator),det,fock_diag_tmp,N_int)