From def0635c5304b3bbbdf205f3f788531b12ce8947 Mon Sep 17 00:00:00 2001
From: sfilippone <filippone.salvatore@gmail.com>
Date: Thu, 7 Sep 2023 09:25:37 +0200
Subject: [PATCH] More OMP directives in cd_inloc

---
 base/tools/psb_cd_inloc.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/base/tools/psb_cd_inloc.f90 b/base/tools/psb_cd_inloc.f90
index e8b9578e..30c3e9b3 100644
--- a/base/tools/psb_cd_inloc.f90
+++ b/base/tools/psb_cd_inloc.f90
@@ -176,7 +176,8 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash)
     end if
     tmpgidx = 0
     flag_   = 1
-    do i=1,loc_row
+    !$omp parallel do private(i)
+    do i=1,loc_row      
       if ((v(i)<1).or.(v(i)>m)) then 
         info = psb_err_entry_out_of_bounds_
         l_err(1) = i
@@ -215,6 +216,7 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash)
     novrl   = 0
     norphan = 0
     npr_ov  = 0
+    !$omp parallel do private(i)
     do i=1,loc_row
       if ((v(i)<1).or.(v(i)>m)) then 
         info = psb_err_entry_out_of_bounds_
@@ -222,7 +224,6 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash)
         l_err(2) = v(i)
         l_err(3) = loc_row
         l_err(4) = m
-        exit
       endif
       vl(i) = v(i) 
     end do