From b103364b765f3fe43a783a4f2c1fbc0ee1110946 Mon Sep 17 00:00:00 2001 From: Pierre-Francois Loos Date: Thu, 26 Sep 2024 20:06:23 +0200 Subject: [PATCH] mess --- src/GW/GGW_ppBSE_dynamic_perturbation.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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