Switch off OMP in HASH g2l_ins

8 months ago · b99aa7a90f
parent 4e0a9e5db8
commit b99aa7a90f
1 changed files with 1 additions and 1 deletions
--- a/base/modules/desc/psb_hash_map_mod.F90
+++ b/base/modules/desc/psb_hash_map_mod.F90
@ -683,7 +683,7 @@ contains
    mglob = idxmap%get_gr()
    nrow  = idxmap%get_lr()
    !write(0,*) me,name,' before loop ',psb_errstatus_fatal()
-#ifdef OPENMP
+#if 0 && defined(OPENMP)
    !call OMP_init_lock(ins_lck)

    if (idxmap%is_bld()) then