Add error handling after CDALL in samples

base/tools/psb_cd_inloc.f90

@@ -247,7 +247,6 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash)
   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) 
@@ -255,8 +254,7 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash)
           ix(i) = idx(i) 
         end do
       end if
-    end if
+    else
-    if (ix(1) == -1) then
       !$omp parallel do private(i)
       do i=1, loc_row
         ix(i) = i 

test/pdegen/psb_d_pde2d.F90

@@ -281,6 +281,7 @@ contains
       ! contiguous rows
       !
       call psb_cdall(ctxt,desc_a,info,nl=nr)
+      if (info /=0) goto 9999
       myidx = desc_a%get_global_indices()
       nlr = size(myidx)
 
@@ -308,6 +309,7 @@ contains
       ! process that owns it
       !
       call psb_cdall(ctxt,desc_a,info,vg=iv)
+      if (info /=0) goto 9999
       myidx = desc_a%get_global_indices()
       nlr = size(myidx)
 
@@ -357,6 +359,7 @@ contains
       ! the set of global indices it owns.
       !
       call psb_cdall(ctxt,desc_a,info,vl=myidx)
+      if (info /=0) goto 9999
 
       !
       ! Specify process topology

test/pdegen/psb_d_pde3d.F90

@@ -297,6 +297,7 @@ contains
       ! contiguous rows
       !
       call psb_cdall(ctxt,desc_a,info,nl=nr)
+      if (info /=0) goto 9999
       myidx = desc_a%get_global_indices()
       nlr = size(myidx)
 
@@ -324,6 +325,7 @@ contains
       ! process that owns it
       !
       call psb_cdall(ctxt,desc_a,info,vg=iv)
+      if (info /=0) goto 9999
       myidx = desc_a%get_global_indices()
       nlr = size(myidx)
 
@@ -378,6 +380,7 @@ contains
       ! the set of global indices it owns.
       !
       call psb_cdall(ctxt,desc_a,info,vl=myidx)
+      if (info /=0) goto 9999
 
       !
       ! Specify process topology

test/pdegen/psb_s_pde2d.F90

@@ -281,6 +281,7 @@ contains
       ! contiguous rows
       !
       call psb_cdall(ctxt,desc_a,info,nl=nr)
+      if (info /=0) goto 9999
       myidx = desc_a%get_global_indices()
       nlr = size(myidx)
 
@@ -308,6 +309,7 @@ contains
       ! process that owns it
       !
       call psb_cdall(ctxt,desc_a,info,vg=iv)
+      if (info /=0) goto 9999
       myidx = desc_a%get_global_indices()
       nlr = size(myidx)
 
@@ -357,6 +359,7 @@ contains
       ! the set of global indices it owns.
       !
       call psb_cdall(ctxt,desc_a,info,vl=myidx)
+      if (info /=0) goto 9999
 
       !
       ! Specify process topology

test/pdegen/psb_s_pde3d.F90

@@ -297,6 +297,7 @@ contains
       ! contiguous rows
       !
       call psb_cdall(ctxt,desc_a,info,nl=nr)
+      if (info /=0) goto 9999
       myidx = desc_a%get_global_indices()
       nlr = size(myidx)
 
@@ -324,6 +325,7 @@ contains
       ! process that owns it
       !
       call psb_cdall(ctxt,desc_a,info,vg=iv)
+      if (info /=0) goto 9999
       myidx = desc_a%get_global_indices()
       nlr = size(myidx)
 
@@ -378,6 +380,7 @@ contains
       ! the set of global indices it owns.
       !
       call psb_cdall(ctxt,desc_a,info,vl=myidx)
+      if (info /=0) goto 9999
 
       !
       ! Specify process topology