10
0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-23 04:43:45 +01:00

fix error pt2

This commit is contained in:
Yann Damour 2022-04-11 13:55:00 +02:00
parent c102795499
commit 52c460367d

View File

@ -834,13 +834,14 @@ subroutine fill_buffer_double(i_generator, sp, h1, h2, bannedOrb, banned, fock_d
endif endif
end select end select
end do
! To force the inclusion of determinants with a positive pt2 contribution ! To force the inclusion of determinants with a positive pt2 contribution
if (e_pert(istate) > 1d-8) then if (e_pert(istate) > 1d-8) then
w = -huge(1.0) w = -huge(1.0)
endif endif
end do
!!!BEGIN_DEBUG !!!BEGIN_DEBUG
! ! To check if the pt2 is taking determinants already in the wf ! ! To check if the pt2 is taking determinants already in the wf
! if (is_in_wavefunction(det(N_int,1),N_int)) then ! if (is_in_wavefunction(det(N_int,1),N_int)) then