mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-06 22:23:55 +01:00
10 lines
270 B
Fortran
10 lines
270 B
Fortran
|
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_fci_energy(E(1:N_states))
|
||
|
|
call ezfio_set_fci_energy_pt2(E(1:N_states)+pt2(1:N_states))
|
||
|
|
end
|