mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-25 13:41:47 +02:00
commit
76b5fed5c1
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user