Fixed hf_energy

This commit is contained in:
Anthony Scemama 2019-02-06 16:49:32 +01:00
parent 2016edd734
commit 489f9bd969
2 changed files with 3 additions and 1 deletions

View File

@ -86,7 +86,7 @@ def save_new_module(path, l_child):
! TODO : Put the documentation of the program here
END_DOC
print *, 'Hello world'
end
end
""")
def main(arguments):

View File

@ -20,6 +20,8 @@ END_PROVIDER
END_DOC
integer :: i,j
HF_energy = nuclear_repulsion
HF_two_electron_energy = 0.d0
HF_one_electron_energy = 0.d0
do j=1,ao_num
do i=1,ao_num
HF_two_electron_energy += 0.5d0 * ( ao_two_e_integral_alpha(i,j) * SCF_density_matrix_ao_alpha(i,j) &