LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-21 11:03:29 +01:00
Code Releases Activity

correction

Browse Source
This commit is contained in:
kossoski 2022-04-13 13:32:14 +02:00
parent 69138a2d25
commit 62c28db6da
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/cipsi/selection.irp.f
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)