diff --git a/int/ERI.Hu.dat b/int/ERI.Hu.dat index 95ec6f7..e7b1d13 100644 --- a/int/ERI.Hu.dat +++ b/int/ERI.Hu.dat @@ -1,2 +1,2 @@ -1 1 1 1 5. -2 2 2 2 5. +1 1 1 1 1. +2 2 2 2 1. diff --git a/src/GW/ufG0W0.f90 b/src/GW/ufG0W0.f90 index 239665f..0d8a53d 100644 --- a/src/GW/ufG0W0.f90 +++ b/src/GW/ufG0W0.f90 @@ -54,7 +54,7 @@ subroutine ufG0W0(nBas,nC,nO,nV,nR,nS,ENuc,ERHF,ERI,eHF) ! Dimension of the supermatrix - n2h1p = nO*nO*nS + n2h1p = nO*nO*nV n2p1h = nV*nV*nO nH = 1 + n2h1p + n2p1h diff --git a/src/GW/ufGW.f90 b/src/GW/ufGW.f90 index d64807e..fe877e5 100644 --- a/src/GW/ufGW.f90 +++ b/src/GW/ufGW.f90 @@ -49,7 +49,7 @@ subroutine ufGW(nBas,nC,nO,nV,nR,nS,ENuc,ERHF,ERI,eHF) ! Dimension of the supermatrix - n2h1p = nO*nO*nS + n2h1p = nO*nO*nV n2p1h = nV*nV*nO nH = nBas + n2h1p + n2p1h