2020-02-26 23:30:38 +01:00
|
|
|
program print_energy
|
2020-02-26 15:58:14 +01:00
|
|
|
implicit none
|
|
|
|
|
BEGIN_DOC
|
|
|
|
|
! Prints the energy of the wave function stored in the |EZFIO| directory.
|
|
|
|
|
END_DOC
|
|
|
|
|
|
|
|
|
|
! this has to be done in order to be sure that N_det, psi_det and
|
|
|
|
|
! psi_coef_sorted are the wave function stored in the |EZFIO| directory.
|
|
|
|
|
read_wf = .True.
|
|
|
|
|
touch read_wf
|
2020-07-14 15:23:53 +02:00
|
|
|
PROVIDE N_states
|
2020-02-26 15:58:14 +01:00
|
|
|
call run
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
subroutine run
|
|
|
|
|
implicit none
|
2021-03-26 01:04:23 +01:00
|
|
|
print *, psi_energy + nuclear_repulsion
|
2020-02-26 15:58:14 +01:00
|
|
|
end
|
