mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2025-01-05 02:48:42 +01:00
13 lines
246 B
FortranFixed
13 lines
246 B
FortranFixed
|
subroutine det_energy(det,energy)
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
integer(bit_kind), intent(in) :: det
|
||
|
|
|
||
|
|
double precision, intent(out) :: energy
|
||
|
|
double precision, external :: diag_H_mat_elem
|
||
|
|
|
||
|
|
energy = diag_H_mat_elem(det,N_int) + nuclear_repulsion
|
||
|
|
|
||
|
|
end
|