From 55e23a004d4fc70ede2104b24d5d17e0bdf610bd Mon Sep 17 00:00:00 2001
From: pfloos <pierrefrancois.loos@gmail.com>
Date: Wed, 29 Nov 2023 17:21:36 +0100
Subject: [PATCH] OK with ufG0T0pp

---
 src/GT/ufG0T0pp.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/GT/ufG0T0pp.f90 b/src/GT/ufG0T0pp.f90
index 2047678..ba498bb 100644
--- a/src/GT/ufG0T0pp.f90
+++ b/src/GT/ufG0T0pp.f90
@@ -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