Minor changes

QuantumPackage · Jul 12, 2023 · 4ad7765 · 4ad7765
1 parent fba2fef
commit 4ad7765
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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) &