fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

More OMP directives in cd_inloc

Browse Source
This commit is contained in:
sfilippone
2023-09-07 09:25:37 +02:00
parent efa29bc3ad
commit def0635c53
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_cd_inloc.f90
+3 -2
View File
@@ -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