From 4ad77651276305fdfbed5648a57bb9965dab636b Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Wed, 12 Jul 2023 18:56:13 +0200
Subject: [PATCH] Minor changes

---
 src/ccsd/ccsd_space_orb_sub_chol.irp.f | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/ccsd/ccsd_space_orb_sub_chol.irp.f b/src/ccsd/ccsd_space_orb_sub_chol.irp.f
index fc5da8c0..0ba46e56 100644
--- a/src/ccsd/ccsd_space_orb_sub_chol.irp.f
+++ b/src/ccsd/ccsd_space_orb_sub_chol.irp.f
@@ -457,8 +457,7 @@ subroutine compute_r2_space_chol(nO,nV,t1,t2,tau,H_oo,H_vv,H_vo,r2,max_r2)
   integer                       :: u,v,i,j,beta,gam,a,b
   double precision              :: max_r2_local
 
-  ! Residual
-  !r2 = 0d0
+  call set_multiple_levels_omp(.False.)
 
   !$omp parallel &
   !$omp shared(nO,nV,r2,cc_space_v_oovv) &