mirror of
https://github.com/pfloos/quack
synced 2024-12-22 20:34:46 +01:00
ok for now with SRG
This commit is contained in:
parent
d1c29af200
commit
568507a183
@ -203,9 +203,7 @@ subroutine evRGW(dotest,maxSCF,thresh,max_diis,doACFDT,exchange_kernel,doXBS,dop
|
|||||||
! Cumulant expansion !
|
! Cumulant expansion !
|
||||||
!--------------------!
|
!--------------------!
|
||||||
|
|
||||||
! TODO
|
|
||||||
! call RGWC(dotest,eta,nOrb,nC,nO,nV,nR,nS,Om,rho,eHF,eGW,eGW,Z)
|
! call RGWC(dotest,eta,nOrb,nC,nO,nV,nR,nS,Om,rho,eHF,eGW,eGW,Z)
|
||||||
call RGWC(dotest, eta, nOrb, nC, nO, nV, nR, nS, Om, rho, eHF, eHF, eGW, Z)
|
|
||||||
|
|
||||||
! Deallocate memory
|
! Deallocate memory
|
||||||
|
|
||||||
|
@ -56,8 +56,6 @@ subroutine print_qsGGW(nBas,nBas2,nO,nSCF,Conv,thresh,eHF,eGW,c,S,SigC,Z,ENuc,ET
|
|||||||
LUMO = HOMO + 1
|
LUMO = HOMO + 1
|
||||||
Gap = eGW(LUMO)-eGW(HOMO)
|
Gap = eGW(LUMO)-eGW(HOMO)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
! Density matrices
|
! Density matrices
|
||||||
|
|
||||||
allocate(Paa(nO,nO),Pab(nO,nO),Pba(nO,nO),Pbb(nO,nO))
|
allocate(Paa(nO,nO),Pab(nO,nO),Pba(nO,nO),Pbb(nO,nO))
|
||||||
|
@ -103,8 +103,7 @@ program QuAcK
|
|||||||
dophRPA,dophRPAx,docrRPA,doppRPA, &
|
dophRPA,dophRPAx,docrRPA,doppRPA, &
|
||||||
doG0F2,doevGF2,doqsGF2,doufG0F02, &
|
doG0F2,doevGF2,doqsGF2,doufG0F02, &
|
||||||
doG0F3,doevGF3, &
|
doG0F3,doevGF3, &
|
||||||
doG0W0,doevGW,doqsGW, &
|
doG0W0,doevGW,doqsGW,doufG0W0,doufGW, &
|
||||||
doufG0W0,doufGW, &
|
|
||||||
doG0T0pp,doevGTpp,doqsGTpp,doufG0T0pp, &
|
doG0T0pp,doevGTpp,doqsGTpp,doufG0T0pp, &
|
||||||
doG0T0eh,doevGTeh,doqsGTeh, &
|
doG0T0eh,doevGTeh,doqsGTeh, &
|
||||||
doRtest,doUtest,doGtest)
|
doRtest,doUtest,doGtest)
|
||||||
|
@ -6,8 +6,7 @@ subroutine read_methods(doRHF,doUHF,doGHF,doROHF, &
|
|||||||
dophRPA,dophRPAx,docrRPA,doppRPA, &
|
dophRPA,dophRPAx,docrRPA,doppRPA, &
|
||||||
doG0F2,doevGF2,doqsGF2,doufG0F02, &
|
doG0F2,doevGF2,doqsGF2,doufG0F02, &
|
||||||
doG0F3,doevGF3, &
|
doG0F3,doevGF3, &
|
||||||
doG0W0,doevGW,doqsGW, &
|
doG0W0,doevGW,doqsGW,doufG0W0,doufGW, &
|
||||||
doufG0W0,doufGW, &
|
|
||||||
doG0T0pp,doevGTpp,doqsGTpp,doufG0T0pp, &
|
doG0T0pp,doevGTpp,doqsGTpp,doufG0T0pp, &
|
||||||
doG0T0eh,doevGTeh,doqsGTeh, &
|
doG0T0eh,doevGTeh,doqsGTeh, &
|
||||||
doRtest,doUtest,doGtest)
|
doRtest,doUtest,doGtest)
|
||||||
|
Loading…
Reference in New Issue
Block a user