mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-12 02:38:31 +02:00
correction
This commit is contained in:
parent
69138a2d25
commit
62c28db6da
@ -729,7 +729,7 @@ subroutine fill_buffer_double(i_generator, sp, h1, h2, bannedOrb, banned, fock_d
|
|||||||
endif
|
endif
|
||||||
integer :: twice_hierarchy
|
integer :: twice_hierarchy
|
||||||
twice_hierarchy = degree + s/2
|
twice_hierarchy = degree + s/2
|
||||||
if (twice_hierarchy_max > twice_hierarchy_max) cycle
|
if (twice_hierarchy > twice_hierarchy_max) cycle
|
||||||
endif
|
endif
|
||||||
|
|
||||||
Hii = diag_H_mat_elem_fock(psi_det_generators(1,1,i_generator),det,fock_diag_tmp,N_int)
|
Hii = diag_H_mat_elem_fock(psi_det_generators(1,1,i_generator),det,fock_diag_tmp,N_int)
|
||||||
|
Loading…
Reference in New Issue
Block a user