2017-01-16 18:19:00 +01:00
|
|
|
BEGIN_PROVIDER [ logical, initialize_pt2_E0_denominator ]
|
|
|
|
|
implicit none
|
|
|
|
|
BEGIN_DOC
|
|
|
|
|
! If true, initialize pt2_E0_denominator
|
|
|
|
|
END_DOC
|
|
|
|
|
initialize_pt2_E0_denominator = .True.
|
|
|
|
|
END_PROVIDER
|
|
|
|
|
|
2016-11-11 23:42:59 +01:00
|
|
|
BEGIN_PROVIDER [ double precision, pt2_E0_denominator, (N_states) ]
|
|
|
|
|
implicit none
|
|
|
|
|
BEGIN_DOC
|
|
|
|
|
! E0 in the denominator of the PT2
|
|
|
|
|
END_DOC
|
2017-01-16 18:19:00 +01:00
|
|
|
if (initialize_pt2_E0_denominator) then
|
2017-04-12 15:05:48 +02:00
|
|
|
pt2_E0_denominator(1:N_states) = psi_energy(1:N_states)
|
2016-11-14 19:43:07 +01:00
|
|
|
! pt2_E0_denominator(1:N_states) = HF_energy - nuclear_repulsion
|
|
|
|
|
! pt2_E0_denominator(1:N_states) = barycentric_electronic_energy(1:N_states)
|
2017-01-16 18:19:00 +01:00
|
|
|
call write_double(6,pt2_E0_denominator(1)+nuclear_repulsion, 'PT2 Energy denominator')
|
|
|
|
|
else
|
|
|
|
|
pt2_E0_denominator = -huge(1.d0)
|
|
|
|
|
endif
|
2016-11-11 23:42:59 +01:00
|
|
|
END_PROVIDER
|
|
|
|
|
|
