PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-13 01:23:52 +01:00
Code Releases Activity
373c463033
QuantumPackage/src/utils_cc/org/energy.org
ydamour 0682ee18ab utils cc
2023-03-13 09:38:35 +01:00

279 B
Raw 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