9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-25 22:12:05 +02:00

added the nuclear repulsion in src/tc_bi_ortho/slater_tc_opt_diag.irp.f

This commit is contained in:
eginer 2023-02-19 10:51:07 +01:00
parent 69f014bc9c
commit 342a337b46

View File

@ -88,7 +88,7 @@ subroutine diag_htilde_mu_mat_fock_bi_ortho(Nint, det_in, hmono, htwoe, hthree,
call a_tc_operator ( occ_hole (i,ispin), ispin, det_tmp, hmono,htwoe,hthree, Nint,na,nb)
enddo
enddo
htot = hmono+htwoe+hthree
htot = hmono+htwoe+hthree+nuclear_repulsion
end
subroutine ac_tc_operator(iorb,ispin,key,hmono,htwoe,hthree,Nint,na,nb)