LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-02 02:35:18 +02:00
Code Releases Activity
master
qp2/src/utils_cc/org/energy.org
ydamour 0682ee18ab utils cc
2023-03-13 09:38:35 +01:00

279 B
Raw Permalink Blame History 

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