Fixed problem: try realloc before giving up on temp_ovrlap

src/tools/psb_cdall.f90

@@ -57,7 +57,7 @@ subroutine psb_cdall(m, n, parts, ictxt, desc_a, info)
 
   !locals
   Integer             :: counter,i,j,np,me,loc_row,err,loc_col,nprocs,&
-       & l_ov_ix,l_ov_el,idx, err_act, itmpov, k
+       & l_ov_ix,l_ov_el,idx, err_act, itmpov, k, ns
   integer             :: int_err(5),exch(2)
   integer, pointer    :: prc_v(:), temp_ovrlap(:), ov_idx(:),ov_el(:)
   logical, parameter  :: debug=.false.
@@ -178,13 +178,17 @@ subroutine psb_cdall(m, n, parts, ictxt, desc_a, info)
           counter=counter+1
           desc_a%glob_to_loc(i) = counter
           if (nprocs > 1)  then
-            if ((itmpov+2+nprocs) > m)  then
+            if ((itmpov+2+nprocs) > size(temp_ovrlap))  then
+              ns = max(itmpov+2+nprocs,int(1.25*size(temp_ovrlap)))
+              call psb_realloc(ns,temp_ovrlap,info,pad=-1)
+              if (info /= 0) then 
                 info=2025
                 int_err(1)=m
                 err=info
                 call psb_errpush(err,name,int_err)
                 goto 9999
-            else
+              endif
+            endif
             itmpov = itmpov + 1
             temp_ovrlap(itmpov) = i
             itmpov = itmpov + 1
@@ -192,7 +196,6 @@ subroutine psb_cdall(m, n, parts, ictxt, desc_a, info)
             temp_ovrlap(itmpov+1:itmpov+nprocs) = prc_v(1:nprocs)
             itmpov = itmpov + nprocs
           endif
-          endif
         end if
       end if
     endif