From fac640e39cffdc2e08ce061bba73bf200a24bdd8 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Sun, 11 Sep 2016 22:42:05 +0200
Subject: [PATCH] Patched apply_hole for temporary recompilation

---
 plugins/MRCC_Utils/mrcc_utils.irp.f | 8 ++++----
 plugins/mrcepa0/dressing.irp.f      | 4 ++--
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/plugins/MRCC_Utils/mrcc_utils.irp.f b/plugins/MRCC_Utils/mrcc_utils.irp.f
index e1a91bd6..60c6fd9e 100644
--- a/plugins/MRCC_Utils/mrcc_utils.irp.f
+++ b/plugins/MRCC_Utils/mrcc_utils.irp.f
@@ -694,9 +694,9 @@ END_PROVIDER
          allocate(lref(N_det_non_ref))
          lref = 0
          do II = 1, N_det_ref
-           call apply_hole(psi_ref(1,1,II), hh_exists(1, hh), myMask, ok, N_int)
+           call apply_hole_local(psi_ref(1,1,II), hh_exists(1, hh), myMask, ok, N_int)
            if(.not. ok) cycle
-           call apply_particle(myMask, pp_exists(1, pp), myDet, ok, N_int)
+           call apply_particle_local(myMask, pp_exists(1, pp), myDet, ok, N_int)
            if(.not. ok) cycle
            ind = searchDet(psi_non_ref_sorted(1,1,1), myDet(1,1), N_det_non_ref, N_int)
            if(ind /= -1) then
@@ -1054,7 +1054,7 @@ integer function excCmp(exc1, exc2)
 end function
 
 
-subroutine apply_hole(det, exc, res, ok, Nint)
+subroutine apply_hole_local(det, exc, res, ok, Nint)
   use bitmasks
   implicit none
   integer, intent(in) :: Nint
@@ -1089,7 +1089,7 @@ subroutine apply_hole(det, exc, res, ok, Nint)
 end subroutine
 
 
-subroutine apply_particle(det, exc, res, ok, Nint)
+subroutine apply_particle_local(det, exc, res, ok, Nint)
   use bitmasks
   implicit none
   integer, intent(in) :: Nint
diff --git a/plugins/mrcepa0/dressing.irp.f b/plugins/mrcepa0/dressing.irp.f
index 88cd2c85..8df7e91a 100644
--- a/plugins/mrcepa0/dressing.irp.f
+++ b/plugins/mrcepa0/dressing.irp.f
@@ -25,13 +25,13 @@ use bitmasks
     iproc = omp_get_thread_num() + 1
     if(mod(gen, 1000) == 0) print *, "mrcc ", gen, "/", N_det_generators
     do h=1, hh_shortcut(0)
-      call apply_hole(psi_det_generators(1,1,gen), hh_exists(1, h), mask, ok, N_int)
+      call apply_hole_local(psi_det_generators(1,1,gen), hh_exists(1, h), mask, ok, N_int)
       if(.not. ok) cycle
       omask = 0_bit_kind
       if(hh_exists(1, h) /= 0) omask = mask
       n = 1
       do p=hh_shortcut(h), hh_shortcut(h+1)-1
-        call apply_particle(mask, pp_exists(1, p), buf(1,1,n), ok, N_int)
+        call apply_particle_local(mask, pp_exists(1, p), buf(1,1,n), ok, N_int)
         if(ok) n = n + 1
         if(n > N_det_non_ref) stop "MRCC..."
       end do