mirror of
https://github.com/pfloos/quack
synced 2024-12-22 20:34:46 +01:00
more cleanup
This commit is contained in:
parent
68e6f02ae2
commit
49fedf3307
@ -103,7 +103,7 @@ subroutine GW_phBSE(dophBSE2,TDA_W,TDA,dBSE,dTDA,singlet,triplet,eta,nBas,nC,nO,
|
||||
write(*,*) '*** Second-order BSE static kernel activated! ***'
|
||||
write(*,*)
|
||||
|
||||
call static_kernel_W(eta,nBas,nC,nO,nV,nR,nS,1d0,ERI,OmRPA,rho_RPA,W)
|
||||
call GW_phBSE_static_kernel(eta,nBas,nC,nO,nV,nR,nS,1d0,ERI,OmRPA,rho_RPA,W)
|
||||
call GW_phBSE2_static_kernel_A(eta,nBas,nC,nO,nV,nR,nS,1d0,eW,W,KA_sta)
|
||||
|
||||
if(.not.TDA) call GW_phBSE2_static_kernel_B(eta,nBas,nC,nO,nV,nR,nS,1d0,eW,W,KB_sta)
|
||||
|
@ -69,7 +69,7 @@ subroutine GW_phBSE_dynamic_perturbation(dophBSE2,dTDA,eta,nBas,nC,nO,nV,nR,nS,e
|
||||
write(*,*)
|
||||
|
||||
allocate(W(nBas,nBas,nBas,nBas))
|
||||
call static_kernel_W(eta,nBas,nC,nO,nV,nR,nS,1d0,ERI,OmRPA,rho_RPA,W)
|
||||
call GW_phBSE_static_kernel(eta,nBas,nC,nO,nV,nR,nS,1d0,ERI,OmRPA,rho_RPA,W)
|
||||
|
||||
end if
|
||||
|
||||
|
@ -1,4 +1,4 @@
|
||||
subroutine static_kernel_W(eta,nBas,nC,nO,nV,nR,nS,lambda,ERI,Om,rho,W)
|
||||
subroutine GW_phBSE_static_kernel(eta,nBas,nC,nO,nV,nR,nS,lambda,ERI,Om,rho,W)
|
||||
|
||||
! Compute the second-order static BSE kernel for the resonant block (only for singlets!)
|
||||
|
||||
@ -55,4 +55,4 @@ subroutine static_kernel_W(eta,nBas,nC,nO,nV,nR,nS,lambda,ERI,Om,rho,W)
|
||||
enddo
|
||||
enddo
|
||||
|
||||
end subroutine static_kernel_W
|
||||
end subroutine
|
@ -231,4 +231,4 @@ subroutine UG0W0(doACFDT,exchange_kernel,doXBS,BSE,TDA_W,TDA,dBSE,dTDA,spin_cons
|
||||
|
||||
end if
|
||||
|
||||
end subroutine UG0W0
|
||||
end subroutine
|
||||
|
@ -276,4 +276,4 @@ subroutine evUGW(maxSCF,thresh,max_diis,doACFDT,exchange_kernel,doXBS,BSE,TDA_W,
|
||||
|
||||
end if
|
||||
|
||||
end subroutine evUGW
|
||||
end subroutine
|
||||
|
@ -50,6 +50,4 @@ subroutine print_G0W0(nBas,nO,eHF,ENuc,ERHF,SigC,Z,eGW,EcRPA,EcGM)
|
||||
write(*,*)'-------------------------------------------------------------------------------'
|
||||
write(*,*)
|
||||
|
||||
end subroutine print_G0W0
|
||||
|
||||
|
||||
end subroutine
|
||||
|
@ -71,6 +71,4 @@ subroutine print_UG0W0(nBas,nO,eHF,ENuc,EUHF,SigC,Z,eGW,EcRPA,EcGM)
|
||||
-------------------------------------------------'
|
||||
write(*,*)
|
||||
|
||||
end subroutine print_UG0W0
|
||||
|
||||
|
||||
end subroutine
|
||||
|
@ -58,4 +58,4 @@ subroutine print_evGW(nBas,nO,nSCF,Conv,eHF,ENuc,ERHF,SigC,Z,eGW,EcRPA,EcGM)
|
||||
write(*,*)'-------------------------------------------------------------------------------'
|
||||
write(*,*)
|
||||
|
||||
end subroutine print_evGW
|
||||
end subroutine
|
||||
|
@ -81,4 +81,4 @@ subroutine print_evUGW(nBas,nO,nSCF,Conv,eHF,ENuc,EUHF,SigC,Z,eGW,EcRPA,EcGM)
|
||||
-------------------------------------------------'
|
||||
write(*,*)
|
||||
|
||||
end subroutine print_evUGW
|
||||
end subroutine
|
||||
|
@ -118,4 +118,4 @@ subroutine print_qsGW(nBas,nO,nSCF,Conv,thresh,eHF,eGW,c,SigC,Z,ENuc,ET,EV,EJ,Ex
|
||||
endif
|
||||
|
||||
|
||||
end subroutine print_qsGW
|
||||
end subroutine
|
||||
|
@ -171,4 +171,4 @@ subroutine print_qsUGW(nBas,nO,nSCF,Conv,thresh,eHF,eGW,cGW,Ov, &
|
||||
|
||||
endif
|
||||
|
||||
end subroutine print_qsUGW
|
||||
end subroutine
|
||||
|
@ -416,4 +416,4 @@ subroutine qsUGW(maxSCF,thresh,max_diis,doACFDT,exchange_kernel,doXBS,BSE,TDA_W,
|
||||
|
||||
end if
|
||||
|
||||
end subroutine qsUGW
|
||||
end subroutine
|
||||
|
@ -22,4 +22,4 @@ subroutine self_energy_exchange(nBas,c,P,ERI,SigX)
|
||||
|
||||
SigX = matmul(transpose(c),matmul(SigX,c))
|
||||
|
||||
end subroutine self_energy_exchange
|
||||
end subroutine
|
||||
|
@ -40,4 +40,4 @@ subroutine self_energy_exchange_diag(nBas,c,P,ERI,SigX)
|
||||
|
||||
deallocate(Fx)
|
||||
|
||||
end subroutine self_energy_exchange_diag
|
||||
end subroutine
|
||||
|
@ -212,4 +212,4 @@ subroutine ufBSE(nBas,nC,nO,nV,nR,nS,ENuc,ERHF,ERI,eHF,eGW)
|
||||
write(*,*)'-------------------------------------------'
|
||||
write(*,*)
|
||||
|
||||
end subroutine ufBSE
|
||||
end subroutine
|
||||
|
@ -378,4 +378,4 @@ subroutine ufG0W0(nBas,nC,nO,nV,nR,nS,ENuc,ERHF,ERI,eHF,TDA_W)
|
||||
end if
|
||||
|
||||
|
||||
end subroutine ufG0W0
|
||||
end subroutine
|
||||
|
@ -200,8 +200,6 @@ subroutine ufGW(nBas,nC,nO,nV,nR,nS,ENuc,ERHF,ERI,eHF)
|
||||
! Dump results !
|
||||
!--------------!
|
||||
|
||||
|
||||
|
||||
write(*,*)'-------------------------------------------'
|
||||
write(*,*)' unfolded GW energies (eV) '
|
||||
write(*,*)'-------------------------------------------'
|
||||
@ -217,4 +215,4 @@ subroutine ufGW(nBas,nC,nO,nV,nR,nS,ENuc,ERHF,ERI,eHF)
|
||||
write(*,*)'-------------------------------------------'
|
||||
write(*,*)
|
||||
|
||||
end subroutine ufGW
|
||||
end subroutine
|
||||
|
Loading…
Reference in New Issue
Block a user