mirror of
https://github.com/pfloos/quack
synced 2024-08-15 00:58:34 +02:00
172 lines
4.5 KiB
Fortran
172 lines
4.5 KiB
Fortran
|
subroutine read_options(maxSCF_HF,thresh_HF,DIIS_HF,n_diis_HF,guess_type,ortho_type, &
|
||
|
maxSCF_CC,thresh_CC,DIIS_CC,n_diis_CC, &
|
||
|
singlet_manifold,triplet_manifold, &
|
||
|
maxSCF_GF,thresh_GF,DIIS_GF,n_diis_GF,renormalization, &
|
||
|
maxSCF_GW,thresh_GW,DIIS_GW,n_diis_GW,COHSEX,SOSEX,BSE,TDA,G0W,GW0,linearize, &
|
||
|
nMC,nEq,nWalk,dt,nPrint,iSeed,doDrift)
|
||
|
|
||
|
! Read desired methods
|
||
|
|
||
|
implicit none
|
||
|
|
||
|
! Input variables
|
||
|
|
||
|
integer,intent(out) :: maxSCF_HF
|
||
|
double precision,intent(out) :: thresh_HF
|
||
|
logical,intent(out) :: DIIS_HF
|
||
|
integer,intent(out) :: n_diis_HF
|
||
|
integer,intent(out) :: guess_type
|
||
|
integer,intent(out) :: ortho_type
|
||
|
|
||
|
integer,intent(out) :: maxSCF_CC
|
||
|
double precision,intent(out) :: thresh_CC
|
||
|
logical,intent(out) :: DIIS_CC
|
||
|
integer,intent(out) :: n_diis_CC
|
||
|
|
||
|
logical,intent(out) :: singlet_manifold
|
||
|
logical,intent(out) :: triplet_manifold
|
||
|
|
||
|
integer,intent(out) :: maxSCF_GF
|
||
|
double precision,intent(out) :: thresh_GF
|
||
|
logical,intent(out) :: DIIS_GF
|
||
|
integer,intent(out) :: n_diis_GF
|
||
|
integer,intent(out) :: renormalization
|
||
|
|
||
|
integer,intent(out) :: maxSCF_GW
|
||
|
double precision,intent(out) :: thresh_GW
|
||
|
logical,intent(out) :: DIIS_GW
|
||
|
integer,intent(out) :: n_diis_GW
|
||
|
logical,intent(out) :: COHSEX
|
||
|
logical,intent(out) :: SOSEX
|
||
|
logical,intent(out) :: BSE
|
||
|
logical,intent(out) :: TDA
|
||
|
logical,intent(out) :: G0W
|
||
|
logical,intent(out) :: GW0
|
||
|
logical,intent(out) :: linearize
|
||
|
|
||
|
integer,intent(out) :: nMC
|
||
|
integer,intent(out) :: nEq
|
||
|
integer,intent(out) :: nWalk
|
||
|
double precision,intent(out) :: dt
|
||
|
integer,intent(out) :: nPrint
|
||
|
integer,intent(out) :: iSeed
|
||
|
logical,intent(out) :: doDrift
|
||
|
|
||
|
! Local variables
|
||
|
|
||
|
character(len=1) :: answer1,answer2,answer3,answer4,answer5,answer6,answer7,answer8
|
||
|
|
||
|
! Open file with method specification
|
||
|
|
||
|
open(unit=1,file='input/options')
|
||
|
|
||
|
! Read HF options
|
||
|
|
||
|
maxSCF_HF = 64
|
||
|
thresh_HF = 1d-6
|
||
|
DIIS_HF = .false.
|
||
|
n_diis_HF = 5
|
||
|
guess_type = 1
|
||
|
ortho_type = 1
|
||
|
|
||
|
read(1,*)
|
||
|
read(1,*) maxSCF_HF,thresh_HF,answer1,n_diis_HF,guess_type,ortho_type
|
||
|
|
||
|
if(answer1 == 'T') DIIS_HF = .true.
|
||
|
|
||
|
if(.not.DIIS_HF) n_diis_HF = 1
|
||
|
|
||
|
! Read MPn options
|
||
|
|
||
|
read(1,*)
|
||
|
read(1,*)
|
||
|
|
||
|
! Read CC options
|
||
|
|
||
|
maxSCF_CC = 64
|
||
|
thresh_CC = 1d-5
|
||
|
DIIS_CC = .false.
|
||
|
n_diis_CC = 5
|
||
|
|
||
|
read(1,*)
|
||
|
read(1,*) maxSCF_CC,thresh_CC,answer1,n_diis_CC
|
||
|
|
||
|
if(answer1 == 'T') DIIS_CC = .true.
|
||
|
|
||
|
if(.not.DIIS_CC) n_diis_CC = 1
|
||
|
|
||
|
! Read excited state options
|
||
|
|
||
|
singlet_manifold = .false.
|
||
|
triplet_manifold = .false.
|
||
|
|
||
|
read(1,*)
|
||
|
read(1,*) answer1,answer2
|
||
|
|
||
|
if(answer1 == 'T') singlet_manifold = .true.
|
||
|
if(answer2 == 'T') triplet_manifold = .true.
|
||
|
|
||
|
! Read Green function options
|
||
|
|
||
|
maxSCF_GF = 64
|
||
|
thresh_GF = 1d-5
|
||
|
DIIS_GF = .false.
|
||
|
n_diis_GF = 5
|
||
|
renormalization = 0
|
||
|
|
||
|
read(1,*)
|
||
|
read(1,*) maxSCF_GF,thresh_GW,answer1,n_diis_GF,renormalization
|
||
|
|
||
|
if(answer1 == 'T') DIIS_GF = .true.
|
||
|
if(.not.DIIS_GF) n_diis_GF = 1
|
||
|
|
||
|
! Read GW options
|
||
|
|
||
|
maxSCF_GW = 64
|
||
|
thresh_GW = 1d-5
|
||
|
DIIS_GW = .false.
|
||
|
n_diis_GW = 5
|
||
|
COHSEX = .false.
|
||
|
SOSEX = .false.
|
||
|
BSE = .false.
|
||
|
TDA = .false.
|
||
|
G0W = .false.
|
||
|
GW0 = .false.
|
||
|
linearize = .false.
|
||
|
|
||
|
read(1,*)
|
||
|
read(1,*) maxSCF_GW,thresh_GW,answer1,n_diis_GW,answer2, &
|
||
|
answer3,answer4,answer5,answer6,answer7,answer8
|
||
|
|
||
|
if(answer1 == 'T') DIIS_GW = .true.
|
||
|
if(answer2 == 'T') COHSEX = .true.
|
||
|
if(answer3 == 'T') SOSEX = .true.
|
||
|
if(answer4 == 'T') BSE = .true.
|
||
|
if(answer5 == 'T') TDA = .true.
|
||
|
if(answer6 == 'T') G0W = .true.
|
||
|
if(answer7 == 'T') GW0 = .true.
|
||
|
if(answer8 == 'T') linearize = .true.
|
||
|
if(.not.DIIS_GW) n_diis_GW = 1
|
||
|
|
||
|
! Read options for MC-MP2: Monte Carlo steps, number of equilibration steps, number of walkers,
|
||
|
! Monte Carlo time step, frequency of output results, and seed for random number generator
|
||
|
|
||
|
nMC = 100000
|
||
|
nEq = 10000
|
||
|
nWalk = 10
|
||
|
dt = 0.3d0
|
||
|
nPrint = 1000
|
||
|
iSeed = 0
|
||
|
doDrift = .false.
|
||
|
|
||
|
read(1,*)
|
||
|
read(1,*) nMC,nEq,nWalk,dt,nPrint,iSeed,answer1
|
||
|
|
||
|
if(answer1 == 'T') doDrift = .true.
|
||
|
|
||
|
! Close file with options
|
||
|
|
||
|
close(unit=1)
|
||
|
|
||
|
end subroutine read_options
|