From ad21a3b8cea737a867ef91a9dbd8c7d67bde7ff6 Mon Sep 17 00:00:00 2001
From: TApplencourt <tapplencourt@gmail.com>
Date: Mon, 8 Feb 2016 09:49:40 +0100
Subject: [PATCH] Solve OpenMP segfault lock init

---
 src/Utils/map_module.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Utils/map_module.f90 b/src/Utils/map_module.f90
index 24f5a328..5c883c9b 100644
--- a/src/Utils/map_module.f90
+++ b/src/Utils/map_module.f90
@@ -69,7 +69,6 @@ subroutine cache_map_init(map,sze)
   implicit none
   type (cache_map_type), intent(inout) :: map
   integer(cache_map_size_kind)   :: sze
-  call omp_init_lock(map%lock)
   call omp_set_lock(map%lock)
   map%n_elements = 0_8
   map%map_size = 0_8
@@ -101,6 +100,9 @@ subroutine map_init(map,keymax)
     stop 5
   endif
   sze = 2
+  do i=0_8,map%map_size
+    call omp_init_lock(map%map(i)%lock)
+  enddo
   !$OMP PARALLEL DEFAULT(NONE) SHARED(map,sze) PRIVATE(i)
   !$OMP DO SCHEDULE(STATIC,512)
   do i=0_8,map%map_size