mirror of
https://github.com/LCPQ/quantum_package
synced 2024-07-03 18:05:59 +02:00
![Anthony Scemama](/assets/img/avatar_default.png)
* experimental mrcc_sto * experimental (not working) delta_cancel * delta_cancel was uninitialized * mrcc dressing on first column ; mrcc_stoch estimates energy from dressing * mrcc_zmq * checkpointed mrcc_zmq * corrected small bias - better balanced checkpoints * checkpoints were triggered at wrong time * hardcoded and arbitrary target absolute error for mrcc_zmq * removed delta_ij_cancel * removed useless parameter coef in mrcc_part_dress_1c
24 lines
733 B
Fortran
24 lines
733 B
Fortran
BEGIN_PROVIDER [ logical, initialize_mrcc_E0_denominator ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! If true, initialize mrcc_E0_denominator
|
|
END_DOC
|
|
initialize_mrcc_E0_denominator = .True.
|
|
END_PROVIDER
|
|
|
|
BEGIN_PROVIDER [ double precision, mrcc_E0_denominator, (N_states) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! E0 in the denominator of the mrcc
|
|
END_DOC
|
|
if (initialize_mrcc_E0_denominator) then
|
|
mrcc_E0_denominator(1:N_states) = psi_energy(1:N_states)
|
|
! mrcc_E0_denominator(1:N_states) = HF_energy - nuclear_repulsion
|
|
! mrcc_E0_denominator(1:N_states) = barycentric_electronic_energy(1:N_states)
|
|
call write_double(6,mrcc_E0_denominator(1)+nuclear_repulsion, 'mrcc Energy denominator')
|
|
else
|
|
mrcc_E0_denominator = -huge(1.d0)
|
|
endif
|
|
END_PROVIDER
|
|
|