Do not sort local indices when GLOBALCHECK=.false.

base/tools/psb_cd_inloc.f90

@@ -244,18 +244,20 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash)
     call psb_errpush(info,name,l_err=l_err)
     goto 9999
   end if
-
+  if (check_) then 
     ! Sort, eliminate duplicates, then
     ! scramble back into original position.
     ix(1) = -1 
     if (present(idx)) then 
       if (size(idx) >= loc_row) then
+        !$omp parallel do private(i) 
         do i=1, loc_row
           ix(i) = idx(i) 
         end do
       end if
     end if
     if (ix(1) == -1) then
+      !$omp parallel do private(i)
       do i=1, loc_row
         ix(i) = i 
       end do
@@ -273,7 +275,7 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash)
 
     if (debug_size) &
          & write(debug_unit,*) me,' ',trim(name),': After sort ',nlu
-
+  end if
   call psb_nullify_desc(desc)
   if (do_timings) then 
     call psb_barrier(ctxt)