2019-03-20 13:38:42 +01:00
|
|
|
subroutine read_geometry(nNuc,ZNuc,rNuc,ENuc)
|
|
|
|
|
|
|
|
|
|
! Read molecular geometry
|
|
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
|
|
|
|
|
include 'parameters.h'
|
|
|
|
|
|
|
|
|
|
! Ouput variables
|
|
|
|
|
|
|
|
|
|
integer,intent(in) :: nNuc
|
|
|
|
|
|
|
|
|
|
! Local variables
|
|
|
|
|
|
|
|
|
|
integer :: i,j
|
|
|
|
|
double precision :: RAB
|
|
|
|
|
character(len=2) :: El
|
|
|
|
|
integer,external :: element_number
|
|
|
|
|
|
|
|
|
|
! Ouput variables
|
|
|
|
|
|
|
|
|
|
double precision,intent(out) :: ZNuc(nNuc),rNuc(nNuc,ncart),ENuc
|
|
|
|
|
|
|
|
|
|
! Open file with geometry specification
|
|
|
|
|
|
2020-01-17 13:45:02 +01:00
|
|
|
open(unit=10,file='input/molecule')
|
|
|
|
|
open(unit=11,file='input/molecule.xyz')
|
2019-03-20 13:38:42 +01:00
|
|
|
|
2020-01-17 13:45:02 +01:00
|
|
|
! Read geometry and create xyz file for integrals
|
2019-03-20 13:38:42 +01:00
|
|
|
|
2020-01-17 13:45:02 +01:00
|
|
|
read(10,*)
|
|
|
|
|
read(10,*)
|
|
|
|
|
read(10,*)
|
|
|
|
|
|
|
|
|
|
write(11,'(I3)') nNuc
|
|
|
|
|
write(11,*)
|
2019-03-20 13:38:42 +01:00
|
|
|
|
|
|
|
|
do i=1,nNuc
|
2020-01-17 13:45:02 +01:00
|
|
|
read(10,*) El,rNuc(i,1),rNuc(i,2),rNuc(i,3)
|
|
|
|
|
write(11,'(A3,1X,3F16.10)') El,rNuc(i,1)*BoToAn,rNuc(i,2)*BoToAn,rNuc(i,3)*BoToAn
|
2019-03-31 22:28:04 +02:00
|
|
|
ZNuc(i) = dble(element_number(El))
|
2019-03-20 13:38:42 +01:00
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
! Compute nuclear repulsion energy
|
|
|
|
|
|
|
|
|
|
ENuc = 0
|
|
|
|
|
|
|
|
|
|
do i=1,nNuc-1
|
|
|
|
|
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
|
2023-04-20 17:00:34 +02:00
|
|
|
ENuc = ENuc + ZNuc(i)*ZNuc(j)/(AnToBo*sqrt(RAB))
|
2019-03-20 13:38:42 +01:00
|
|
|
enddo
|
|
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
! Close file with geometry specification
|
2020-01-17 13:45:02 +01:00
|
|
|
close(unit=10)
|
|
|
|
|
close(unit=11)
|
2019-03-20 13:38:42 +01:00
|
|
|
|
|
|
|
|
! Print geometry
|
|
|
|
|
write(*,'(A28)') '------------------'
|
|
|
|
|
write(*,'(A28)') 'Molecular geometry'
|
|
|
|
|
write(*,'(A28)') '------------------'
|
|
|
|
|
do i=1,nNuc
|
|
|
|
|
write(*,'(A28,1X,I16)') 'Atom n. ',i
|
|
|
|
|
write(*,'(A28,1X,F16.10)') 'Z = ',ZNuc(i)
|
|
|
|
|
write(*,'(A28,1X,F16.10,F16.10,F16.10)') 'Atom coordinates:',(rNuc(i,j),j=1,ncart)
|
|
|
|
|
enddo
|
|
|
|
|
write(*,*)
|
|
|
|
|
write(*,'(A28)') '------------------'
|
|
|
|
|
write(*,'(A28,1X,F16.10)') 'Nuclear repulsion energy = ',ENuc
|
|
|
|
|
write(*,'(A28)') '------------------'
|
|
|
|
|
write(*,*)
|
|
|
|
|
|
|
|
|
|
end subroutine read_geometry
|
