2023-07-17 14:21:39 +02:00
|
|
|
subroutine MP(doMP2,doMP3,unrestricted,regularize,nBas,nC,nO,nV,nR,ERI,ERI_aaaa,ERI_aabb,ERI_bbbb,ENuc,EHF,epsHF)
|
|
|
|
|
|
|
|
|
|
! Moller-Plesset module
|
|
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
include 'parameters.h'
|
|
|
|
|
|
|
|
|
|
! Input variables
|
|
|
|
|
|
|
|
|
|
logical,intent(in) :: doMP2
|
|
|
|
|
logical,intent(in) :: doMP3
|
|
|
|
|
logical,intent(in) :: unrestricted
|
|
|
|
|
|
|
|
|
|
logical,intent(in) :: regularize
|
|
|
|
|
integer,intent(in) :: nBas
|
|
|
|
|
integer,intent(in) :: nC(nspin)
|
|
|
|
|
integer,intent(in) :: nO(nspin)
|
|
|
|
|
integer,intent(in) :: nV(nspin)
|
|
|
|
|
integer,intent(in) :: nR(nspin)
|
|
|
|
|
double precision,intent(in) :: ENuc
|
|
|
|
|
double precision,intent(in) :: EHF
|
|
|
|
|
double precision,intent(in) :: epsHF(nBas)
|
|
|
|
|
double precision,intent(in) :: ERI(nBas,nBas,nBas,nBas)
|
|
|
|
|
double precision,intent(in) :: ERI_aaaa(nBas,nBas,nBas,nBas)
|
|
|
|
|
double precision,intent(in) :: ERI_aabb(nBas,nBas,nBas,nBas)
|
|
|
|
|
double precision,intent(in) :: ERI_bbbb(nBas,nBas,nBas,nBas)
|
|
|
|
|
|
|
|
|
|
! Local variables
|
|
|
|
|
|
2023-07-22 22:19:46 +02:00
|
|
|
double precision :: start_MP ,end_MP ,t_MP
|
|
|
|
|
|
2023-07-17 14:21:39 +02:00
|
|
|
! Output variables
|
|
|
|
|
|
|
|
|
|
!------------------------------------------------------------------------
|
|
|
|
|
! Compute MP3 energy
|
|
|
|
|
!------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
if(doMP2) then
|
2023-07-22 22:19:46 +02:00
|
|
|
|
|
|
|
|
call cpu_time(start_MP)
|
2023-07-17 14:21:39 +02:00
|
|
|
if(unrestricted) then
|
|
|
|
|
call UMP2(nBas,nC,nO,nV,nR,ERI_aaaa,ERI_aabb,ERI_bbbb,ENuc,EHF,epsHF)
|
|
|
|
|
else
|
|
|
|
|
call MP2(regularize,nBas,nC,nO,nV,nR,ERI,ENuc,EHF,epsHF)
|
|
|
|
|
end if
|
2023-07-22 22:19:46 +02:00
|
|
|
call cpu_time(end_MP)
|
|
|
|
|
|
|
|
|
|
t_MP = end_MP - start_MP
|
|
|
|
|
write(*,'(A65,1X,F9.3,A8)') 'Total CPU time for MP2 = ',t_MP,' seconds'
|
|
|
|
|
write(*,*)
|
2023-07-17 14:21:39 +02:00
|
|
|
|
|
|
|
|
end if
|
|
|
|
|
|
|
|
|
|
!------------------------------------------------------------------------
|
|
|
|
|
! Compute MP3 energy
|
|
|
|
|
!------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
if(doMP3) then
|
|
|
|
|
|
2023-07-22 22:19:46 +02:00
|
|
|
call cpu_time(start_MP)
|
2023-07-17 14:21:39 +02:00
|
|
|
|
2023-07-22 22:19:46 +02:00
|
|
|
if(unrestricted) then
|
2023-07-17 14:21:39 +02:00
|
|
|
write(*,*) 'MP3 NYI for UHF reference'
|
|
|
|
|
stop
|
|
|
|
|
else
|
|
|
|
|
call MP3(nBas,nC,nO,nV,nR,ERI,ENuc,EHF,epsHF)
|
|
|
|
|
end if
|
2023-07-22 22:19:46 +02:00
|
|
|
call cpu_time(end_MP)
|
|
|
|
|
|
|
|
|
|
t_MP = end_MP - start_MP
|
|
|
|
|
write(*,'(A65,1X,F9.3,A8)') 'Total CPU time for MP2 = ',t_MP,' seconds'
|
|
|
|
|
write(*,*)
|
2023-07-17 14:21:39 +02:00
|
|
|
|
|
|
|
|
end if
|
|
|
|
|
|
|
|
|
|
end subroutine
|
