From 2e27f8bd3724d4b64bcbff862744bcf29c0a2e8b Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Wed, 11 Nov 2015 12:27:33 +0100
Subject: [PATCH] openmp in qmcchem

---
 plugins/QmcChem/target_pt2_qmc.irp.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/plugins/QmcChem/target_pt2_qmc.irp.f b/plugins/QmcChem/target_pt2_qmc.irp.f
index e5142a73..6e6d2a60 100644
--- a/plugins/QmcChem/target_pt2_qmc.irp.f
+++ b/plugins/QmcChem/target_pt2_qmc.irp.f
@@ -93,7 +93,7 @@ subroutine compute_energy(psi_bilinear_matrix_values_save, E, m, norm)
     m = 0
     !$OMP PARALLEL DEFAULT(SHARED) PRIVATE(k,l,det_i,det_j,ci,cj,hij) REDUCTION(+:norm,m,num)
     allocate( det_i(N_int,2), det_j(N_int,2))
-    !$OMP DO 
+    !$OMP DO schedule(guided)
     do k=1,n_det
       if (psi_bilinear_matrix_values_save(k) == 0.d0) then
         cycle