psblas3:

base/internals/psb_indx_map_fnd_owner.F90
 base/internals/psi_bld_tmphalo.f90
 base/internals/psi_bld_tmpovrl.f90
 base/internals/psi_compute_size.f90
 base/internals/psi_crea_bnd_elem.f90
 base/internals/psi_crea_index.f90
 base/internals/psi_crea_ovr_elem.f90
 base/internals/psi_desc_impl.f90
 base/internals/psi_desc_index.F90
 base/internals/psi_extrct_dl.F90
 base/internals/psi_fnd_owner.F90
 base/internals/psi_ovrl_restr.f90
 base/internals/psi_ovrl_save.f90
 base/internals/psi_ovrl_upd.f90
 base/internals/psi_sort_dl.f90

New error handling.

base/internals/psb_indx_map_fnd_owner.F90

@@ -316,14 +316,8 @@ subroutine psb_indx_map_fnd_owner(idx,iprc,idxmap,info)
   call psb_erractionrestore(err_act)
   return
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_ret_) then
-    return
-  else
-    call psb_error(ictxt)
-  end if
   return
 
 end subroutine psb_indx_map_fnd_owner

base/internals/psi_bld_tmphalo.f90

@@ -141,15 +141,8 @@ subroutine psi_bld_tmphalo(desc,info)
   call psb_erractionrestore(err_act)
   return
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_ret_) then
     return
-  else
-    call psb_error(ictxt)
-  end if
-  return
-
 
 end subroutine psi_bld_tmphalo

base/internals/psi_bld_tmpovrl.f90

@@ -143,15 +143,8 @@ subroutine psi_bld_tmpovrl(iv,desc,info)
   call psb_erractionrestore(err_act)
   return
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_ret_) then
     return
-  else
-    call psb_error(ictxt)
-  end if
-  return
-
 
 end subroutine psi_bld_tmpovrl

base/internals/psi_compute_size.f90

@@ -123,12 +123,8 @@ subroutine psi_compute_size(desc_data, index_in, dl_lda, info)
   call psb_erractionrestore(err_act)
   return
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
+
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 
 end subroutine psi_compute_size

base/internals/psi_crea_bnd_elem.f90

@@ -112,11 +112,8 @@ subroutine psi_crea_bnd_elem(bndel,desc_a,info)
   call psb_erractionrestore(err_act)
   return
 
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
-  if (err_act == psb_act_abort_) then
-    call psb_error()
-    return
-  end if
   return
+
 end subroutine psi_crea_bnd_elem

base/internals/psi_crea_index.f90

@@ -152,11 +152,7 @@ subroutine psi_crea_index(desc_a,index_in,index_out,glob_idx,nxch,nsnd,nrcv,info
   call psb_erractionrestore(err_act)
   return
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
+
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_crea_index

base/internals/psi_crea_ovr_elem.f90

@@ -139,12 +139,8 @@ subroutine psi_crea_ovr_elem(me,desc_overlap,ovr_elem,info)
   call psb_erractionrestore(err_act)
   return
 
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
-  if (err_act == psb_act_abort_) then
-    call psb_error()
-    return
-  end if
   return
 
 end subroutine psi_crea_ovr_elem

base/internals/psi_desc_impl.f90

@@ -181,12 +181,8 @@ subroutine psi_cnv_dsc(halo_in,ovrlap_in,ext_in,cdesc, info, mold)
   call psb_erractionrestore(err_act)
   return
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
+
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 
 end subroutine psi_cnv_dsc
@@ -493,13 +489,8 @@ subroutine psi_bld_ovr_mst(me,ovrlap_elem,mst_idx,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error()
-    return
-  end if
   return
 
 end subroutine psi_bld_ovr_mst

base/internals/psi_desc_index.F90

@@ -337,11 +337,8 @@ subroutine psi_desc_index(desc,index_in,dep_list,&
   call psb_erractionrestore(err_act)
   return
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
+  
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
+
 end subroutine psi_desc_index

base/internals/psi_extrct_dl.F90

@@ -288,12 +288,8 @@ subroutine psi_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,&
 9999 continue
 
   call psb_errpush(info,name,i_err=int_err)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
-  if (err_act == psb_act_ret_) then
+
-    return
-  else
-    call psb_error()
-  endif
   return
 
 end subroutine psi_extract_dep_list

base/internals/psi_fnd_owner.F90

@@ -118,14 +118,8 @@ subroutine psi_fnd_owner(nv,idx,iprc,desc,info)
   call psb_erractionrestore(err_act)
   return
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_ret_) then
-    return
-  else
-    call psb_error(ictxt)
-  end if
   return
 
 end subroutine psi_fnd_owner

base/internals/psi_ovrl_restr.f90

@@ -65,13 +65,8 @@ subroutine  psi_sovrl_restrr1(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_sovrl_restrr1
 
@@ -118,13 +113,8 @@ subroutine  psi_sovrl_restrr2(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_sovrl_restrr2
 
@@ -165,13 +155,8 @@ subroutine  psi_dovrl_restrr1(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_dovrl_restrr1
 
@@ -219,13 +204,8 @@ subroutine  psi_dovrl_restrr2(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_dovrl_restrr2
 
@@ -266,13 +246,8 @@ subroutine  psi_covrl_restrr1(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_covrl_restrr1
 
@@ -319,13 +294,8 @@ subroutine  psi_covrl_restrr2(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_covrl_restrr2
 
@@ -366,13 +336,8 @@ subroutine  psi_zovrl_restrr1(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_zovrl_restrr1
 
@@ -419,13 +384,8 @@ subroutine  psi_zovrl_restrr2(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_zovrl_restrr2
 
@@ -466,13 +426,8 @@ subroutine  psi_iovrl_restrr1(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_iovrl_restrr1
 
@@ -519,13 +474,8 @@ subroutine  psi_iovrl_restrr2(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_iovrl_restrr2
 
@@ -565,13 +515,8 @@ subroutine  psi_iovrl_restr_vect(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_iovrl_restr_vect
 
@@ -610,13 +555,8 @@ subroutine  psi_sovrl_restr_vect(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_sovrl_restr_vect
 
@@ -655,13 +595,8 @@ subroutine  psi_dovrl_restr_vect(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_dovrl_restr_vect
 
@@ -702,13 +637,8 @@ subroutine  psi_covrl_restr_vect(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_covrl_restr_vect
 
@@ -747,13 +677,8 @@ subroutine  psi_zovrl_restr_vect(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_zovrl_restr_vect
 

base/internals/psi_ovrl_save.f90

@@ -73,13 +73,8 @@ subroutine  psi_sovrl_saver1(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_sovrl_saver1
 
@@ -127,13 +122,8 @@ subroutine  psi_sovrl_saver2(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_sovrl_saver2
 
@@ -181,13 +171,8 @@ subroutine  psi_dovrl_saver1(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_dovrl_saver1
 
@@ -236,13 +221,8 @@ subroutine  psi_dovrl_saver2(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_dovrl_saver2
 
@@ -289,13 +269,8 @@ subroutine  psi_covrl_saver1(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_covrl_saver1
 
@@ -344,13 +319,8 @@ subroutine  psi_covrl_saver2(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_covrl_saver2
 
@@ -399,13 +369,8 @@ subroutine  psi_zovrl_saver1(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_zovrl_saver1
 
@@ -455,13 +420,8 @@ subroutine  psi_zovrl_saver2(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_zovrl_saver2
 
@@ -510,13 +470,8 @@ subroutine  psi_iovrl_saver1(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_iovrl_saver1
 
@@ -567,13 +522,8 @@ subroutine  psi_iovrl_saver2(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_iovrl_saver2
 
@@ -620,13 +570,8 @@ subroutine  psi_iovrl_save_vect(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_iovrl_save_vect
 
@@ -671,13 +616,8 @@ subroutine  psi_sovrl_save_vect(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_sovrl_save_vect
 
@@ -722,13 +662,8 @@ subroutine  psi_dovrl_save_vect(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_dovrl_save_vect
 
@@ -773,13 +708,8 @@ subroutine  psi_covrl_save_vect(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_covrl_save_vect
 
@@ -824,12 +754,7 @@ subroutine  psi_zovrl_save_vect(x,xs,desc_a,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_zovrl_save_vect

base/internals/psi_ovrl_upd.f90

@@ -91,13 +91,8 @@ subroutine  psi_sovrl_updr1(x,desc_a,update,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_sovrl_updr1
 
@@ -163,13 +158,8 @@ subroutine  psi_sovrl_updr2(x,desc_a,update,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_sovrl_updr2
 
@@ -234,13 +224,8 @@ subroutine  psi_dovrl_updr1(x,desc_a,update,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_dovrl_updr1
 
@@ -306,13 +291,8 @@ subroutine  psi_dovrl_updr2(x,desc_a,update,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_dovrl_updr2
 
@@ -377,13 +357,8 @@ subroutine  psi_covrl_updr1(x,desc_a,update,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_covrl_updr1
 
@@ -449,13 +424,8 @@ subroutine  psi_covrl_updr2(x,desc_a,update,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_covrl_updr2
 
@@ -520,13 +490,8 @@ subroutine  psi_zovrl_updr1(x,desc_a,update,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_zovrl_updr1
 
@@ -592,13 +557,8 @@ subroutine  psi_zovrl_updr2(x,desc_a,update,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_zovrl_updr2
 
@@ -664,13 +624,8 @@ subroutine  psi_iovrl_updr1(x,desc_a,update,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_iovrl_updr1
 
@@ -737,13 +692,8 @@ subroutine  psi_iovrl_updr2(x,desc_a,update,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_iovrl_updr2
 
@@ -822,13 +772,8 @@ subroutine  psi_iovrl_upd_vect(x,desc_a,update,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_iovrl_upd_vect
 
@@ -906,13 +851,8 @@ subroutine  psi_sovrl_upd_vect(x,desc_a,update,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_sovrl_upd_vect
 
@@ -990,13 +930,8 @@ subroutine  psi_dovrl_upd_vect(x,desc_a,update,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_dovrl_upd_vect
 
@@ -1075,13 +1010,8 @@ subroutine  psi_covrl_upd_vect(x,desc_a,update,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_covrl_upd_vect
 
@@ -1159,13 +1089,8 @@ subroutine  psi_zovrl_upd_vect(x,desc_a,update,info)
   call psb_erractionrestore(err_act)
   return  
 
-9999 continue
+9999 call psb_error_handler(ictxt,err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-    call psb_error(ictxt)
-    return
-  end if
   return
 end subroutine psi_zovrl_upd_vect
 

base/internals/psi_sort_dl.f90

@@ -83,14 +83,10 @@ subroutine psi_sort_dl(dep_list,l_dep_list,np,info)
   call psb_erractionrestore(err_act)
   return  
   
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
 
-  if (err_act == psb_act_abort_) then
-     call psb_error()
-     return
-  end if
   return
+
 end subroutine psi_sort_dl