mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-12-23 04:43:38 +01:00
9 lines
165 B
Fortran
9 lines
165 B
Fortran
subroutine save_energy(E)
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Saves the energy in |EZFIO|.
|
|
END_DOC
|
|
double precision, intent(in) :: E
|
|
call ezfio_set_cc_energy(E)
|
|
end
|