10
1
mirror of https://github.com/pfloos/quack synced 2024-12-22 20:34:46 +01:00

new keyword for ppRPA

This commit is contained in:
Pierre-Francois Loos 2019-10-05 23:32:17 +02:00
parent 923d1a8bd6
commit 9926f50ef4
3 changed files with 22 additions and 20 deletions

View File

@ -4,8 +4,8 @@
F F F
# CCD CCSD CCSD(T)
F F F
# CIS TDHF ADC
F T F
# CIS TDHF ppRPA ADC
F T T F
# GF2 GF3
F F
# G0W0 evGW qsGW

View File

@ -35,9 +35,9 @@ subroutine ppRPA(singlet_manifold,triplet_manifold,nBas,nC,nO,nV,nR,nS,ENuc,ERHF
! Hello world
write(*,*)
write(*,*)'************************************************'
write(*,*)'| Time-dependent Hartree-Fock calculation |'
write(*,*)'************************************************'
write(*,*)'****************************************'
write(*,*)'| particle-particle RPA calculation |'
write(*,*)'****************************************'
write(*,*)
! Initialization

View File

@ -1,9 +1,9 @@
subroutine read_methods(doRHF,doUHF,doMOM, &
doMP2,doMP3,doMP2F12, &
doCCD,doCCSD,doCCSDT, &
doCIS,doTDHF,doADC, &
doGF2,doGF3, &
doG0W0,doevGW,doqsGW, &
subroutine read_methods(doRHF,doUHF,doMOM, &
doMP2,doMP3,doMP2F12, &
doCCD,doCCSD,doCCSDT, &
doCIS,doTDHF,doppRPA,doADC, &
doGF2,doGF3, &
doG0W0,doevGW,doqsGW, &
doMCMP2)
! Read desired methods
@ -15,14 +15,14 @@ subroutine read_methods(doRHF,doUHF,doMOM, &
logical,intent(out) :: doRHF,doUHF,doMOM
logical,intent(out) :: doMP2,doMP3,doMP2F12
logical,intent(out) :: doCCD,doCCSD,doCCSDT
logical,intent(out) :: doCIS,doTDHF,doADC
logical,intent(out) :: doCIS,doTDHF,doppRPA,doADC
logical,intent(out) :: doGF2,doGF3
logical,intent(out) :: doG0W0,doevGW,doqsGW
logical,intent(out) :: doMCMP2
! Local variables
character(len=1) :: answer1,answer2,answer3
character(len=1) :: answer1,answer2,answer3,answer4
! Open file with method specification
@ -42,9 +42,10 @@ subroutine read_methods(doRHF,doUHF,doMOM, &
doCCSD = .false.
doCCSDT = .false.
doCIS = .false.
doTDHF = .false.
doADC = .false.
doCIS = .false.
doTDHF = .false.
doppRPA = .false.
doADC = .false.
doGF2 = .false.
doGF3 = .false.
@ -82,10 +83,11 @@ subroutine read_methods(doRHF,doUHF,doMOM, &
! Read excited state methods
read(1,*)
read(1,*) answer1,answer2,answer3
if(answer1 == 'T') doCIS = .true.
if(answer2 == 'T') doTDHF = .true.
if(answer3 == 'T') doADC = .true.
read(1,*) answer1,answer2,answer3,answer4
if(answer1 == 'T') doCIS = .true.
if(answer2 == 'T') doTDHF = .true.
if(answer3 == 'T') doppRPA = .true.
if(answer4 == 'T') doADC = .true.
! Read Green function methods