1
0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2024-12-23 12:54:35 +01:00
qp_plugins_scemama/devel/cassdtq/save_energy.irp.f

10 lines
278 B
FortranFixed
Raw Normal View History

2019-08-25 12:21:05 +02:00
subroutine save_energy(E,pt2)
implicit none
BEGIN_DOC
! Saves the energy in |EZFIO|.
END_DOC
double precision, intent(in) :: E(N_states), pt2(N_states)
call ezfio_set_cassdtq_energy(E(1:N_states))
call ezfio_set_cassdtq_energy_pt2(E(1:N_states)+pt2(1:N_states))
end