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