From 0a3d462510a6146da21770ff6fff2f7a1794a0fb Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Fri, 31 May 2024 20:30:48 +0200
Subject: [PATCH] Clean up openmp in cholesky

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

diff --git a/src/ao_two_e_ints/cholesky.irp.f b/src/ao_two_e_ints/cholesky.irp.f
index 5a44571c..cfd57050 100644
--- a/src/ao_two_e_ints/cholesky.irp.f
+++ b/src/ao_two_e_ints/cholesky.irp.f
@@ -255,7 +255,7 @@ END_PROVIDER
        allocate(computed(nq))
 !print *, 'allocate : computed(nq)', memory_of_int(nq)
 
-       !$OMP PARALLEL DEFAULT(SHARED) PRIVATE(m,k,p,q,j)
+       !$OMP PARALLEL DEFAULT(SHARED) PRIVATE(k,p,q,j)
 
        !$OMP DO
        do q=1,nq
@@ -351,7 +351,7 @@ END_PROVIDER
          ! iii.
          f = 1.d0/dsqrt(Qmax)
 
-         !$OMP PARALLEL PRIVATE(m,p,q,k) DEFAULT(shared)
+         !$OMP PARALLEL PRIVATE(p,q) DEFAULT(shared)
          !$OMP DO
          do p=1,np
            Ltmp_p(p,iblock) = Ltmp_p(p,iblock) * f