diff --git a/src/GW/ufG0W0.f90 b/src/GW/ufG0W0.f90 index c7944f1..43208a6 100644 --- a/src/GW/ufG0W0.f90 +++ b/src/GW/ufG0W0.f90 @@ -116,7 +116,7 @@ subroutine ufG0W0(dotest,TDA_W,nBas,nC,nO,nV,nR,nS,ENuc,ERHF,ERI,eHF) ! Main loop over orbitals ! !-------------------------! - do p=nO-3,nO + do p=nO,nO H(:,:) = 0d0