More OMP directives in cd_inloc

dev-openmp
sfilippone 1 year ago
parent efa29bc3ad
commit def0635c53

@ -176,6 +176,7 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash)
end if
tmpgidx = 0
flag_ = 1
!$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_
@ -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

Loading…
Cancel
Save