diff --git a/src/GW/GGW_ppBSE_dynamic_perturbation.f90 b/src/GW/GGW_ppBSE_dynamic_perturbation.f90 index 5e5f037..a4113e6 100644 --- a/src/GW/GGW_ppBSE_dynamic_perturbation.f90 +++ b/src/GW/GGW_ppBSE_dynamic_perturbation.f90 @@ -39,8 +39,8 @@ subroutine GGW_ppBSE_dynamic_perturbation(dTDA,eta,nOrb,nC,nO,nV,nR,nS,nOO,nVV,e integer :: ab,ij,kl - integer :: maxOO = 10 - integer :: maxVV = 0 + integer :: maxOO = 0 + integer :: maxVV = 10 double precision,allocatable :: Om1_dyn(:) double precision,allocatable :: Om2_dyn(:) @@ -71,6 +71,8 @@ subroutine GGW_ppBSE_dynamic_perturbation(dTDA,eta,nOrb,nC,nO,nV,nR,nS,nOO,nVV,e write(*,'(2X,A5,1X,A20,1X,A20,1X,A20,1X,A20)') '#','Static (eV)','Dynamic (eV)','Correction (eV)','Renorm. (eV)' write(*,*) '---------------------------------------------------------------------------------------------------' + print*,nVV,maxVV + do ab=1,min(nVV,maxVV) if(dTDA) then