10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-25 05:43:47 +01:00

Updated PT2Stoch

This commit is contained in:
Anthony Scemama 2018-07-03 14:49:23 +02:00
parent 6d05caffd5
commit c2ddf7d606

View File

@ -3,6 +3,7 @@ program pt2_stoch
read_wf = .True.
SOFT_TOUCH read_wf
PROVIDE mo_bielec_integrals_in_map
PROVIDE psi_energy
call run
end
@ -19,7 +20,6 @@ subroutine run
double precision :: E_CI_before, relative_error, absolute_error, eqt
allocate (pt2(N_states))
! call diagonalize_CI()
pt2(:) = 0.d0
E_CI_before = psi_energy(1) + nuclear_repulsion