bug in ufGW and ufG0W0

This commit is contained in:
Pierre-Francois Loos 2023-04-12 21:41:30 +02:00
parent 78cefb5759
commit 6515773839
3 changed files with 4 additions and 4 deletions

View File

@ -1,2 +1,2 @@
1 1 1 1 5.
2 2 2 2 5.
1 1 1 1 1.
2 2 2 2 1.

View File

@ -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

View File

@ -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