mirror of
https://github.com/pfloos/quack
synced 2024-11-04 21:23:55 +01:00
CCD coded
This commit is contained in:
parent
cd9bf9aaba
commit
51920c0ada
@ -7,8 +7,8 @@
|
||||
# One-electron integrals: Ov Kin Nuc
|
||||
T T T
|
||||
# Two-electron integrals: ERI F12 Yuk Erf
|
||||
T T T T
|
||||
T F F F
|
||||
# Three-electron integrals: Type1 Type2 Type3
|
||||
T F F
|
||||
F F F
|
||||
# Four-electron integrals: Type1 Type2 Type3
|
||||
F F F
|
||||
|
@ -1,7 +1,9 @@
|
||||
# HF MOM
|
||||
T F
|
||||
# MP2 MP3 MP2-F12
|
||||
T F T
|
||||
T F F
|
||||
# CCD CCSD CCSD(T)
|
||||
T F F
|
||||
# CIS TDHF ADC
|
||||
F F F
|
||||
# GF2 GF3
|
||||
@ -10,4 +12,3 @@
|
||||
F F F
|
||||
# MCMP2
|
||||
F
|
||||
|
||||
|
@ -5,6 +5,7 @@ program MCQC
|
||||
|
||||
logical :: doHF,doMOM
|
||||
logical :: doMP2,doMP3,doMP2F12
|
||||
logical :: doCC
|
||||
logical :: doCIS,doTDHF,doADC
|
||||
logical :: doGF2,doGF3
|
||||
logical :: doG0W0,doevGW,doqsGW
|
||||
@ -29,6 +30,7 @@ program MCQC
|
||||
|
||||
double precision :: start_HF ,end_HF ,t_HF
|
||||
double precision :: start_MOM ,end_MOM ,t_MOM
|
||||
double precision :: start_CC ,end_CC ,t_CC
|
||||
double precision :: start_CIS ,end_CIS ,t_CIS
|
||||
double precision :: start_TDHF ,end_TDHF ,t_TDHF
|
||||
double precision :: start_ADC ,end_ADC ,t_ADC
|
||||
@ -78,6 +80,7 @@ program MCQC
|
||||
|
||||
call read_methods(doHF,doMOM, &
|
||||
doMP2,doMP3,doMP2F12, &
|
||||
doCC, &
|
||||
doCIS,doTDHF,doADC, &
|
||||
doGF2,doGF3, &
|
||||
doG0W0,doevGW,doqsGW, &
|
||||
@ -250,6 +253,21 @@ program MCQC
|
||||
write(*,*)
|
||||
|
||||
endif
|
||||
!------------------------------------------------------------------------
|
||||
! Perform CC calculation
|
||||
!------------------------------------------------------------------------
|
||||
|
||||
if(doCC) then
|
||||
|
||||
call cpu_time(start_CC)
|
||||
call CC(nBas,nEl,ERI_MO_basis,ENuc,ERHF,eHF,cHF)
|
||||
call cpu_time(end_CC)
|
||||
|
||||
t_CC = end_CC - start_CC
|
||||
write(*,'(A65,1X,F9.3,A8)') 'Total CPU time for CC = ',t_CC,' seconds'
|
||||
write(*,*)
|
||||
|
||||
endif
|
||||
|
||||
!------------------------------------------------------------------------
|
||||
! Compute CIS excitations
|
||||
|
@ -121,11 +121,11 @@ subroutine MP2F12(nBas,nC,nO,nV,ERI,F12,Yuk,FC,EHF,EcMP2,c,EcMP2F12)
|
||||
write(*,'(A32)') ' MP2-F12 calculation '
|
||||
write(*,'(A32)') '-----------------------'
|
||||
write(*,'(A32,1X,F16.10)') ' MP2 ',EcMP2
|
||||
write(*,'(A32,1X,F16.10)') ' MP2-F12 E(2) ',EcMP2F12(1)
|
||||
write(*,'(A32,1X,F16.10)') ' MP2-F12 E(3) ',EcMP2F12(2)
|
||||
write(*,'(A32,1X,F16.10)') ' MP2-F12 E(4) ',EcMP2F12(3)
|
||||
write(*,'(A32,1X,F16.10)') ' MP2-F12 E(2) ',-EcMP2F12(1)
|
||||
write(*,'(A32,1X,F16.10)') ' MP2-F12 E(3) ',-EcMP2F12(2)
|
||||
write(*,'(A32,1X,F16.10)') ' MP2-F12 E(4) ',-EcMP2F12(3)
|
||||
write(*,'(A32)') '-----------------------'
|
||||
write(*,'(A32,1X,F16.10)') ' Total ',EcMP2+EcMP2F12(1)+EcMP2F12(2)+EcMP2F12(3)
|
||||
write(*,'(A32,1X,F16.10)') ' Total ',EcMP2-EcMP2F12(1)-EcMP2F12(2)-EcMP2F12(3)
|
||||
write(*,'(A32)') '-----------------------'
|
||||
write(*,*)
|
||||
|
||||
|
@ -1,5 +1,6 @@
|
||||
subroutine read_methods(doHF,doMOM, &
|
||||
doMP2,doMP3,doMP2F12, &
|
||||
doCC, &
|
||||
doCIS,doTDHF,doADC, &
|
||||
doGF2,doGF3, &
|
||||
doG0W0,doevGW,doqsGW, &
|
||||
@ -13,6 +14,7 @@ subroutine read_methods(doHF,doMOM, &
|
||||
|
||||
logical,intent(out) :: doHF,doMOM
|
||||
logical,intent(out) :: doMP2,doMP3,doMP2F12
|
||||
logical,intent(out) :: doCC
|
||||
logical,intent(out) :: doCIS,doTDHF,doADC
|
||||
logical,intent(out) :: doGF2,doGF3
|
||||
logical,intent(out) :: doG0W0,doevGW,doqsGW
|
||||
@ -35,6 +37,8 @@ subroutine read_methods(doHF,doMOM, &
|
||||
doMP3 = .false.
|
||||
doMP2F12 = .false.
|
||||
|
||||
doCC = .false.
|
||||
|
||||
doCIS = .false.
|
||||
doTDHF = .false.
|
||||
doADC = .false.
|
||||
@ -63,6 +67,12 @@ subroutine read_methods(doHF,doMOM, &
|
||||
if(answer2 == 'T') doMP3 = .true.
|
||||
if(answer3 == 'T') doMP2F12 = .true.
|
||||
|
||||
! Read CC methods
|
||||
|
||||
read(1,*)
|
||||
read(1,*) answer1
|
||||
if(answer1 == 'T') doCC = .true.
|
||||
|
||||
! Read excited state methods
|
||||
|
||||
read(1,*)
|
||||
|
BIN
src/xcDFT/.DS_Store
vendored
BIN
src/xcDFT/.DS_Store
vendored
Binary file not shown.
Loading…
Reference in New Issue
Block a user