LCPQ
/
quack
mirror of https://github.com/pfloos/quack
4
1
Fork 0
Code Releases Activity

OK with ufG0T0pp

This commit is contained in:
Pierre-Francois Loos 2023-11-29 17:21:36 +01:00
parent d8950051e8
commit 55e23a004d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/GT/ufG0T0pp.f90
View File

@ -88,8 +88,8 @@ subroutine ufG0T0pp(dotest,TDA_T,nBas,nC,nO,nV,nR,nS,ENuc,ERHF,ERI,eHF)
! Dimension of the supermatrix
n2h1p = nOO*nV
n2p1h = nVV*nO
n2h1p = (nOOs+nOOt)*nV
n2p1h = (nVVs+nVVt)*nO
nH = 1 + n2h1p + n2p1h
! Initialization