mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-06-29 08:24:55 +02:00
14 lines
216 B
Fortran
14 lines
216 B
Fortran
|
subroutine det_energy(det,energy)
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
integer(bit_kind), intent(in) :: det
|
||
|
|
|
||
|
|
double precision, intent(out) :: energy
|
||
|
|
|
||
|
|
call i_H_j(det,det,N_int,energy)
|
||
|
|
|
||
|
|
energy = energy + nuclear_repulsion
|
||
|
|
|
||
|
|
end
|