From 7aff1a33a9b7d3871d7c5e8cda3bcf15258ce94a Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Wed, 20 Mar 2024 09:20:21 +0100
Subject: [PATCH] Fixed nested parallelism in cholesky

---
 src/ao_two_e_ints/cholesky.irp.f | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/ao_two_e_ints/cholesky.irp.f b/src/ao_two_e_ints/cholesky.irp.f
index 2977f0f4..33304026 100644
--- a/src/ao_two_e_ints/cholesky.irp.f
+++ b/src/ao_two_e_ints/cholesky.irp.f
@@ -66,7 +66,8 @@ END_PROVIDER
 
    else
 
-     PROVIDE nucl_coord
+     PROVIDE nucl_coord ao_two_e_integral_schwartz
+     call set_multiple_levels_omp(.False.)
 
      if (do_direct_integrals) then
        if (ao_two_e_integral(1,1,1,1) < huge(1.d0)) then