diff --git a/src/QuAcK/G0W0.f90 b/src/QuAcK/G0W0.f90 index ba8cc44..4a80e97 100644 --- a/src/QuAcK/G0W0.f90 +++ b/src/QuAcK/G0W0.f90 @@ -55,6 +55,11 @@ subroutine G0W0(COHSEX,SOSEX,BSE,TDA,singlet_manifold,triplet_manifold, & if(SOSEX) write(*,*) 'SOSEX correction activated!' write(*,*) +! COHSEX approximation + + if(COHSEX) write(*,*) 'COHSEX approximation activated!' + write(*,*) + ! Switch off exchange for G0W0 dRPA = .true. diff --git a/src/QuAcK/evGW.f90 b/src/QuAcK/evGW.f90 index 7386484..b75a598 100644 --- a/src/QuAcK/evGW.f90 +++ b/src/QuAcK/evGW.f90 @@ -68,6 +68,11 @@ subroutine evGW(maxSCF,thresh,max_diis,COHSEX,SOSEX,BSE,TDA,G0W,GW0,singlet_mani if(SOSEX) write(*,*) 'SOSEX correction activated!' write(*,*) +! COHSEX approximation + + if(COHSEX) write(*,*) 'COHSEX approximation activated!' + write(*,*) + ! Switch off exchange for G0W0 dRPA = .true. diff --git a/src/QuAcK/qsGW.f90 b/src/QuAcK/qsGW.f90 index 138cc0e..b137d1b 100644 --- a/src/QuAcK/qsGW.f90 +++ b/src/QuAcK/qsGW.f90 @@ -83,6 +83,11 @@ subroutine qsGW(maxSCF,thresh,max_diis,COHSEX,SOSEX,BSE,TDA,G0W,GW0,singlet_mani if(SOSEX) write(*,*) 'SOSEX correction activated!' write(*,*) +! COHSEX approximation + + if(COHSEX) write(*,*) 'COHSEX approximation activated!' + write(*,*) + ! Switch off exchange for G0W0 dRPA = .true.