mirror of
https://github.com/pfloos/quack
synced 2024-12-22 20:35:36 +01:00
fixing nuclear energy
This commit is contained in:
parent
21b1bbda5c
commit
889ad27c20
@ -76,6 +76,13 @@ for i in range(len(list_pos_atom)):
|
|||||||
f.write(list_pos_atom[i][0]+' '+str(list_pos_atom[i][1][0])+' '+str(list_pos_atom[i][1][1])+' '+str(list_pos_atom[i][1][2])+'\n')
|
f.write(list_pos_atom[i][0]+' '+str(list_pos_atom[i][1][0])+' '+str(list_pos_atom[i][1][1])+' '+str(list_pos_atom[i][1][2])+'\n')
|
||||||
f.close()
|
f.close()
|
||||||
|
|
||||||
|
#Compute nuclear energy and put it in a file
|
||||||
|
subprocess.call(['rm', working_dir + '/int/ENuc.dat'])
|
||||||
|
f = open(working_dir+'/int/ENuc.dat','w')
|
||||||
|
f.write(mol.energy_nuc())
|
||||||
|
f.write(' ')
|
||||||
|
f.close()
|
||||||
|
|
||||||
#Compute 1e integrals
|
#Compute 1e integrals
|
||||||
ovlp = mol.intor('int1e_ovlp')#Overlap matrix elements
|
ovlp = mol.intor('int1e_ovlp')#Overlap matrix elements
|
||||||
v1e = mol.intor('int1e_nuc') #Nuclear repulsion matrix elements
|
v1e = mol.intor('int1e_nuc') #Nuclear repulsion matrix elements
|
||||||
|
@ -43,13 +43,16 @@ subroutine read_geometry(nNuc,ZNuc,rNuc,ENuc)
|
|||||||
! Compute nuclear repulsion energy
|
! Compute nuclear repulsion energy
|
||||||
|
|
||||||
ENuc = 0
|
ENuc = 0
|
||||||
|
open(unit=3,file='int/ENuc.dat')
|
||||||
|
read(3,*) ENuc
|
||||||
|
close(unit=3)
|
||||||
|
|
||||||
do i=1,nNuc-1
|
! do i=1,nNuc-1
|
||||||
do j=i+1,nNuc
|
! do j=i+1,nNuc
|
||||||
RAB = (rNuc(i,1)-rNuc(j,1))**2 + (rNuc(i,2)-rNuc(j,2))**2 + (rNuc(i,3)-rNuc(j,3))**2
|
! RAB = (rNuc(i,1)-rNuc(j,1))**2 + (rNuc(i,2)-rNuc(j,2))**2 + (rNuc(i,3)-rNuc(j,3))**2
|
||||||
ENuc = ENuc + ZNuc(i)*ZNuc(j)/(AntoBo*sqrt(RAB))
|
! ENuc = ENuc + ZNuc(i)*ZNuc(j)/(AntoBo*sqrt(RAB))
|
||||||
end do
|
! end do
|
||||||
end do
|
! end do
|
||||||
|
|
||||||
! Close file with geometry specification
|
! Close file with geometry specification
|
||||||
close(unit=10)
|
close(unit=10)
|
||||||
|
Loading…
Reference in New Issue
Block a user