psblas3:

krylov/psb_c_krylov_conv_mod.f90
 krylov/psb_cbicg.f90
 krylov/psb_ccg.f90
 krylov/psb_ccgs.f90
 krylov/psb_ccgstab.f90
 krylov/psb_ccgstabl.f90
 krylov/psb_ckrylov.f90
 krylov/psb_crgmres.f90
 krylov/psb_d_krylov_conv_mod.f90
 krylov/psb_dbicg.f90
 krylov/psb_dcg.f90
 krylov/psb_dcgs.f90
 krylov/psb_dcgstab.f90
 krylov/psb_dcgstabl.f90
 krylov/psb_dkrylov.f90
 krylov/psb_drgmres.f90
 krylov/psb_s_krylov_conv_mod.f90
 krylov/psb_sbicg.f90
 krylov/psb_scg.f90
 krylov/psb_scgs.f90
 krylov/psb_scgstab.f90
 krylov/psb_scgstabl.f90
 krylov/psb_skrylov.f90
 krylov/psb_srgmres.f90
 krylov/psb_z_krylov_conv_mod.f90
 krylov/psb_zbicg.f90
 krylov/psb_zcg.f90
 krylov/psb_zcgs.f90
 krylov/psb_zcgstab.f90
 krylov/psb_zcgstabl.f90
 krylov/psb_zkrylov.f90
 krylov/psb_zrgmres.f90
 prec/impl/psb_c_bjacprec_impl.f90
 prec/impl/psb_c_diagprec_impl.f90
 prec/impl/psb_c_nullprec_impl.f90
 prec/impl/psb_c_prec_type_impl.f90
 prec/impl/psb_cprecbld.f90
 prec/impl/psb_d_bjacprec_impl.f90
 prec/impl/psb_d_diagprec_impl.f90
 prec/impl/psb_d_nullprec_impl.f90
 prec/impl/psb_d_prec_type_impl.f90
 prec/impl/psb_dprecbld.f90
 prec/impl/psb_s_bjacprec_impl.f90
 prec/impl/psb_s_diagprec_impl.f90
 prec/impl/psb_s_nullprec_impl.f90
 prec/impl/psb_s_prec_type_impl.f90
 prec/impl/psb_sprecbld.f90
 prec/impl/psb_z_bjacprec_impl.f90
 prec/impl/psb_z_diagprec_impl.f90
 prec/impl/psb_z_nullprec_impl.f90
 prec/impl/psb_z_prec_type_impl.f90
 prec/impl/psb_zprecbld.f90
 prec/psb_c_bjacprec.f90
 prec/psb_c_diagprec.f90
 prec/psb_c_nullprec.f90
 prec/psb_c_prec_type.f90
 prec/psb_d_bjacprec.f90
 prec/psb_d_diagprec.f90
 prec/psb_d_nullprec.f90
 prec/psb_d_prec_type.f90
 prec/psb_s_bjacprec.f90
 prec/psb_s_diagprec.f90
 prec/psb_s_nullprec.f90
 prec/psb_s_prec_type.f90
 prec/psb_z_bjacprec.f90
 prec/psb_z_diagprec.f90
 prec/psb_z_nullprec.f90
 prec/psb_z_prec_type.f90

New error handling

krylov/psb_c_krylov_conv_mod.f90

@@ -109,12 +109,9 @@ contains
     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
 
   end subroutine psb_c_init_conv
 
@@ -184,12 +181,9 @@ contains
     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
 
   end function psb_c_check_conv
 
@@ -255,12 +249,9 @@ contains
     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
 
   end subroutine psb_c_init_conv_vect
 
@@ -331,12 +322,9 @@ contains
     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
 
   end function psb_c_check_conv_vect
 

krylov/psb_cbicg.f90

@@ -328,12 +328,7 @@ subroutine psb_cbicg_vect(a,prec,b,x,eps,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 psb_cbicg_vect

krylov/psb_ccg.f90

@@ -281,12 +281,7 @@ subroutine psb_ccg_vect(a,prec,b,x,eps,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 psb_ccg_vect

krylov/psb_ccgs.f90

@@ -319,12 +319,7 @@ Subroutine psb_ccgs_vect(a,prec,b,x,eps,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 psb_ccgs_vect

krylov/psb_ccgstab.f90

@@ -385,12 +385,7 @@ Subroutine psb_ccgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
   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(ictxt)
-    return
-  end if
   return
 
 End Subroutine psb_ccgstab_vect

krylov/psb_ccgstabl.f90

@@ -411,12 +411,7 @@ Subroutine psb_ccgstabl_vect(a,prec,b,x,eps,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 psb_ccgstabl_vect

krylov/psb_ckrylov.f90

@@ -235,12 +235,9 @@ Subroutine psb_ckrylov_vect(method,a,prec,b,x,eps,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
 
 end subroutine psb_ckrylov_vect
 

krylov/psb_crgmres.f90

@@ -469,12 +469,7 @@ subroutine psb_crgmres_vect(a,prec,b,x,eps,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 psb_crgmres_vect

krylov/psb_d_krylov_conv_mod.f90

@@ -109,12 +109,9 @@ contains
     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
 
   end subroutine psb_d_init_conv
 
@@ -184,12 +181,9 @@ contains
     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
 
   end function psb_d_check_conv
 
@@ -255,12 +249,9 @@ contains
     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
 
   end subroutine psb_d_init_conv_vect
 
@@ -331,12 +322,9 @@ contains
     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
 
   end function psb_d_check_conv_vect
 

krylov/psb_dbicg.f90

@@ -328,12 +328,7 @@ subroutine psb_dbicg_vect(a,prec,b,x,eps,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 psb_dbicg_vect

krylov/psb_dcg.f90

@@ -281,12 +281,7 @@ subroutine psb_dcg_vect(a,prec,b,x,eps,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 psb_dcg_vect

krylov/psb_dcgs.f90

@@ -319,12 +319,7 @@ Subroutine psb_dcgs_vect(a,prec,b,x,eps,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 psb_dcgs_vect

krylov/psb_dcgstab.f90

@@ -385,12 +385,7 @@ Subroutine psb_dcgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
   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(ictxt)
-    return
-  end if
   return
 
 End Subroutine psb_dcgstab_vect

krylov/psb_dcgstabl.f90

@@ -411,12 +411,7 @@ Subroutine psb_dcgstabl_vect(a,prec,b,x,eps,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 psb_dcgstabl_vect

krylov/psb_dkrylov.f90

@@ -235,12 +235,9 @@ Subroutine psb_dkrylov_vect(method,a,prec,b,x,eps,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
 
 end subroutine psb_dkrylov_vect
 

krylov/psb_drgmres.f90

@@ -469,12 +469,7 @@ subroutine psb_drgmres_vect(a,prec,b,x,eps,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 psb_drgmres_vect

krylov/psb_s_krylov_conv_mod.f90

@@ -109,12 +109,9 @@ contains
     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
 
   end subroutine psb_s_init_conv
 
@@ -184,12 +181,9 @@ contains
     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
 
   end function psb_s_check_conv
 
@@ -255,12 +249,9 @@ contains
     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
 
   end subroutine psb_s_init_conv_vect
 
@@ -331,12 +322,9 @@ contains
     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
 
   end function psb_s_check_conv_vect
 

krylov/psb_sbicg.f90

@@ -328,12 +328,7 @@ subroutine psb_sbicg_vect(a,prec,b,x,eps,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 psb_sbicg_vect

krylov/psb_scg.f90

@@ -281,12 +281,7 @@ subroutine psb_scg_vect(a,prec,b,x,eps,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 psb_scg_vect

krylov/psb_scgs.f90

@@ -319,12 +319,7 @@ Subroutine psb_scgs_vect(a,prec,b,x,eps,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 psb_scgs_vect

krylov/psb_scgstab.f90

@@ -385,12 +385,7 @@ Subroutine psb_scgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
   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(ictxt)
-    return
-  end if
   return
 
 End Subroutine psb_scgstab_vect

krylov/psb_scgstabl.f90

@@ -411,12 +411,7 @@ Subroutine psb_scgstabl_vect(a,prec,b,x,eps,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 psb_scgstabl_vect

krylov/psb_skrylov.f90

@@ -235,12 +235,9 @@ Subroutine psb_skrylov_vect(method,a,prec,b,x,eps,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
 
 end subroutine psb_skrylov_vect
 

krylov/psb_srgmres.f90

@@ -469,12 +469,7 @@ subroutine psb_srgmres_vect(a,prec,b,x,eps,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 psb_srgmres_vect

krylov/psb_z_krylov_conv_mod.f90

@@ -109,12 +109,9 @@ contains
     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
 
   end subroutine psb_z_init_conv
 
@@ -184,12 +181,9 @@ contains
     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
 
   end function psb_z_check_conv
 
@@ -255,12 +249,9 @@ contains
     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
 
   end subroutine psb_z_init_conv_vect
 
@@ -331,12 +322,9 @@ contains
     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
 
   end function psb_z_check_conv_vect
 

krylov/psb_zbicg.f90

@@ -328,12 +328,7 @@ subroutine psb_zbicg_vect(a,prec,b,x,eps,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 psb_zbicg_vect

krylov/psb_zcg.f90

@@ -281,12 +281,7 @@ subroutine psb_zcg_vect(a,prec,b,x,eps,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 psb_zcg_vect

krylov/psb_zcgs.f90

@@ -319,12 +319,7 @@ Subroutine psb_zcgs_vect(a,prec,b,x,eps,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 psb_zcgs_vect

krylov/psb_zcgstab.f90

@@ -385,12 +385,7 @@ Subroutine psb_zcgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
   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(ictxt)
-    return
-  end if
   return
 
 End Subroutine psb_zcgstab_vect

krylov/psb_zcgstabl.f90

@@ -411,12 +411,7 @@ Subroutine psb_zcgstabl_vect(a,prec,b,x,eps,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 psb_zcgstabl_vect

krylov/psb_zkrylov.f90

@@ -235,12 +235,9 @@ Subroutine psb_zkrylov_vect(method,a,prec,b,x,eps,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
 
 end subroutine psb_zkrylov_vect
 

krylov/psb_zrgmres.f90

@@ -469,12 +469,7 @@ subroutine psb_zrgmres_vect(a,prec,b,x,eps,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 psb_zrgmres_vect

prec/impl/psb_c_bjacprec_impl.f90

@@ -218,14 +218,9 @@ subroutine psb_c_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
 
 9999 continue
   call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
-  if (err_act == psb_act_abort_) then
-    call psb_error()
-    return
-  end if
   return
 
-
 end subroutine psb_c_bjac_apply_vect
 
 subroutine psb_c_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
@@ -372,13 +367,8 @@ subroutine psb_c_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
 
 9999 continue
   call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
-  if (err_act == psb_act_abort_) then
-    call psb_error()
   return
-  end if
-  return
-
 
 end subroutine psb_c_bjac_apply
 
@@ -411,13 +401,9 @@ subroutine psb_c_bjac_precinit(prec,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 psb_c_bjac_precinit
 
 
@@ -566,14 +552,8 @@ subroutine psb_c_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
   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 psb_c_bjac_precbld
 
 subroutine psb_c_bjac_precseti(prec,what,val,info)
@@ -626,11 +606,6 @@ subroutine psb_c_bjac_precseti(prec,what,val,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 psb_c_bjac_precseti

prec/impl/psb_c_diagprec_impl.f90

@@ -123,12 +123,7 @@ subroutine psb_c_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_c_diag_apply_vect
@@ -224,12 +219,7 @@ subroutine psb_c_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_c_diag_apply
@@ -290,12 +280,7 @@ subroutine psb_c_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
   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 psb_c_diag_precbld
 

prec/impl/psb_c_nullprec_impl.f90

@@ -74,12 +74,7 @@ subroutine psb_c_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_c_null_apply_vect
@@ -127,12 +122,7 @@ subroutine psb_c_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_c_null_apply

prec/impl/psb_c_prec_type_impl.f90

@@ -127,12 +127,7 @@ subroutine psb_c_apply2_vect(prec,x,y,desc_data,info,trans,work)
   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 psb_c_apply2_vect
@@ -204,12 +199,7 @@ subroutine psb_c_apply1_vect(prec,x,desc_data,info,trans,work)
   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 psb_c_apply1_vect
@@ -276,12 +266,7 @@ subroutine psb_c_apply2v(prec,x,y,desc_data,info,trans,work)
   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 psb_c_apply2v
@@ -342,11 +327,7 @@ subroutine psb_c_apply1v(prec,x,desc_data,info,trans)
 
 9999 continue
   call psb_errpush(info,name)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
-  if (err_act == psb_act_abort_) then
-    call psb_error()
-    return
-  end if
   return
 
 end subroutine psb_c_apply1v

prec/impl/psb_cprecbld.f90

@@ -88,14 +88,8 @@ subroutine psb_cprecbld(a,desc_a,p,info,upd,amold,afmt,vmold)
   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 psb_cprecbld
 

prec/impl/psb_d_bjacprec_impl.f90

@@ -218,14 +218,9 @@ subroutine psb_d_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
 
 9999 continue
   call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
-  if (err_act == psb_act_abort_) then
-    call psb_error()
-    return
-  end if
   return
 
-
 end subroutine psb_d_bjac_apply_vect
 
 subroutine psb_d_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
@@ -372,13 +367,8 @@ subroutine psb_d_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
 
 9999 continue
   call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
-  if (err_act == psb_act_abort_) then
-    call psb_error()
   return
-  end if
-  return
-
 
 end subroutine psb_d_bjac_apply
 
@@ -411,13 +401,9 @@ subroutine psb_d_bjac_precinit(prec,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 psb_d_bjac_precinit
 
 
@@ -566,14 +552,8 @@ subroutine psb_d_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
   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 psb_d_bjac_precbld
 
 subroutine psb_d_bjac_precseti(prec,what,val,info)
@@ -626,11 +606,6 @@ subroutine psb_d_bjac_precseti(prec,what,val,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 psb_d_bjac_precseti

prec/impl/psb_d_diagprec_impl.f90

@@ -123,12 +123,7 @@ subroutine psb_d_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_d_diag_apply_vect
@@ -224,12 +219,7 @@ subroutine psb_d_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_d_diag_apply
@@ -290,12 +280,7 @@ subroutine psb_d_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
   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 psb_d_diag_precbld
 

prec/impl/psb_d_nullprec_impl.f90

@@ -74,12 +74,7 @@ subroutine psb_d_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_d_null_apply_vect
@@ -127,12 +122,7 @@ subroutine psb_d_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_d_null_apply

prec/impl/psb_d_prec_type_impl.f90

@@ -127,12 +127,7 @@ subroutine psb_d_apply2_vect(prec,x,y,desc_data,info,trans,work)
   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 psb_d_apply2_vect
@@ -204,12 +199,7 @@ subroutine psb_d_apply1_vect(prec,x,desc_data,info,trans,work)
   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 psb_d_apply1_vect
@@ -276,12 +266,7 @@ subroutine psb_d_apply2v(prec,x,y,desc_data,info,trans,work)
   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 psb_d_apply2v
@@ -342,11 +327,7 @@ subroutine psb_d_apply1v(prec,x,desc_data,info,trans)
 
 9999 continue
   call psb_errpush(info,name)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
-  if (err_act == psb_act_abort_) then
-    call psb_error()
-    return
-  end if
   return
 
 end subroutine psb_d_apply1v

prec/impl/psb_dprecbld.f90

@@ -88,14 +88,8 @@ subroutine psb_dprecbld(a,desc_a,p,info,upd,amold,afmt,vmold)
   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 psb_dprecbld
 

prec/impl/psb_s_bjacprec_impl.f90

@@ -218,14 +218,9 @@ subroutine psb_s_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
 
 9999 continue
   call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
-  if (err_act == psb_act_abort_) then
-    call psb_error()
-    return
-  end if
   return
 
-
 end subroutine psb_s_bjac_apply_vect
 
 subroutine psb_s_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
@@ -372,13 +367,8 @@ subroutine psb_s_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
 
 9999 continue
   call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
-  if (err_act == psb_act_abort_) then
-    call psb_error()
   return
-  end if
-  return
-
 
 end subroutine psb_s_bjac_apply
 
@@ -411,13 +401,9 @@ subroutine psb_s_bjac_precinit(prec,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 psb_s_bjac_precinit
 
 
@@ -566,14 +552,8 @@ subroutine psb_s_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
   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 psb_s_bjac_precbld
 
 subroutine psb_s_bjac_precseti(prec,what,val,info)
@@ -626,11 +606,6 @@ subroutine psb_s_bjac_precseti(prec,what,val,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 psb_s_bjac_precseti

prec/impl/psb_s_diagprec_impl.f90

@@ -123,12 +123,7 @@ subroutine psb_s_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_s_diag_apply_vect
@@ -224,12 +219,7 @@ subroutine psb_s_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_s_diag_apply
@@ -290,12 +280,7 @@ subroutine psb_s_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
   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 psb_s_diag_precbld
 

prec/impl/psb_s_nullprec_impl.f90

@@ -74,12 +74,7 @@ subroutine psb_s_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_s_null_apply_vect
@@ -127,12 +122,7 @@ subroutine psb_s_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_s_null_apply

prec/impl/psb_s_prec_type_impl.f90

@@ -127,12 +127,7 @@ subroutine psb_s_apply2_vect(prec,x,y,desc_data,info,trans,work)
   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 psb_s_apply2_vect
@@ -204,12 +199,7 @@ subroutine psb_s_apply1_vect(prec,x,desc_data,info,trans,work)
   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 psb_s_apply1_vect
@@ -276,12 +266,7 @@ subroutine psb_s_apply2v(prec,x,y,desc_data,info,trans,work)
   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 psb_s_apply2v
@@ -342,11 +327,7 @@ subroutine psb_s_apply1v(prec,x,desc_data,info,trans)
 
 9999 continue
   call psb_errpush(info,name)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
-  if (err_act == psb_act_abort_) then
-    call psb_error()
-    return
-  end if
   return
 
 end subroutine psb_s_apply1v

prec/impl/psb_sprecbld.f90

@@ -88,14 +88,8 @@ subroutine psb_sprecbld(a,desc_a,p,info,upd,amold,afmt,vmold)
   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 psb_sprecbld
 

prec/impl/psb_z_bjacprec_impl.f90

@@ -218,14 +218,9 @@ subroutine psb_z_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
 
 9999 continue
   call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
-  if (err_act == psb_act_abort_) then
-    call psb_error()
-    return
-  end if
   return
 
-
 end subroutine psb_z_bjac_apply_vect
 
 subroutine psb_z_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
@@ -372,13 +367,8 @@ subroutine psb_z_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
 
 9999 continue
   call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
-  if (err_act == psb_act_abort_) then
-    call psb_error()
   return
-  end if
-  return
-
 
 end subroutine psb_z_bjac_apply
 
@@ -411,13 +401,9 @@ subroutine psb_z_bjac_precinit(prec,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 psb_z_bjac_precinit
 
 
@@ -566,14 +552,8 @@ subroutine psb_z_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
   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 psb_z_bjac_precbld
 
 subroutine psb_z_bjac_precseti(prec,what,val,info)
@@ -626,11 +606,6 @@ subroutine psb_z_bjac_precseti(prec,what,val,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 psb_z_bjac_precseti

prec/impl/psb_z_diagprec_impl.f90

@@ -123,12 +123,7 @@ subroutine psb_z_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_z_diag_apply_vect
@@ -224,12 +219,7 @@ subroutine psb_z_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_z_diag_apply
@@ -290,12 +280,7 @@ subroutine psb_z_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
   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 psb_z_diag_precbld
 

prec/impl/psb_z_nullprec_impl.f90

@@ -74,12 +74,7 @@ subroutine psb_z_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_z_null_apply_vect
@@ -127,12 +122,7 @@ subroutine psb_z_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
   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 psb_z_null_apply

prec/impl/psb_z_prec_type_impl.f90

@@ -127,12 +127,7 @@ subroutine psb_z_apply2_vect(prec,x,y,desc_data,info,trans,work)
   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 psb_z_apply2_vect
@@ -204,12 +199,7 @@ subroutine psb_z_apply1_vect(prec,x,desc_data,info,trans,work)
   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 psb_z_apply1_vect
@@ -276,12 +266,7 @@ subroutine psb_z_apply2v(prec,x,y,desc_data,info,trans,work)
   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 psb_z_apply2v
@@ -342,11 +327,7 @@ subroutine psb_z_apply1v(prec,x,desc_data,info,trans)
 
 9999 continue
   call psb_errpush(info,name)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
-  if (err_act == psb_act_abort_) then
-    call psb_error()
-    return
-  end if
   return
 
 end subroutine psb_z_apply1v

prec/impl/psb_zprecbld.f90

@@ -88,14 +88,8 @@ subroutine psb_zprecbld(a,desc_a,p,info,upd,amold,afmt,vmold)
   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 psb_zprecbld
 

prec/psb_c_bjacprec.f90

@@ -134,8 +134,8 @@ module psb_c_bjacprec
 contains
 
   subroutine psb_c_bjac_precdescr(prec,iout)
-    
+    use psb_error_mod
-    Implicit None
+    implicit none 
 
     class(psb_c_bjac_prec_type), intent(in) :: prec
     integer(psb_ipk_), intent(in), optional    :: iout
@@ -166,12 +166,8 @@ contains
     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 psb_c_bjac_precdescr
@@ -239,12 +235,8 @@ contains
     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 psb_c_bjac_precfree
@@ -297,12 +289,8 @@ contains
     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 psb_c_bjac_clone

prec/psb_c_diagprec.f90

@@ -128,12 +128,8 @@ contains
     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 psb_c_diag_precinit
 
@@ -157,12 +153,8 @@ contains
     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 psb_c_diag_precfree
@@ -198,12 +190,8 @@ contains
     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 psb_c_diag_precdescr
@@ -266,12 +254,8 @@ contains
     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 psb_c_diag_clone

prec/psb_c_nullprec.f90

@@ -99,12 +99,8 @@ contains
     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 psb_c_null_precinit
 
@@ -131,12 +127,8 @@ contains
     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 psb_c_null_precbld
 
@@ -157,12 +149,8 @@ contains
     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 psb_c_null_precfree
@@ -194,12 +182,8 @@ contains
     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 psb_c_null_precdescr
@@ -295,12 +279,8 @@ contains
     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 psb_c_null_clone

prec/psb_c_prec_type.f90

@@ -121,6 +121,8 @@ module psb_c_prec_type
 contains
 
   subroutine psb_cfile_prec_descr(p,iout)
+    use psb_base_mod
+    implicit none 
     type(psb_cprec_type), intent(in) :: p
     integer(psb_ipk_), intent(in), optional    :: iout
     integer(psb_ipk_) :: iout_,info
@@ -162,6 +164,8 @@ contains
 
 
   subroutine psb_c_precfree(p,info)
+    use psb_base_mod
+    implicit none 
     type(psb_cprec_type), intent(inout) :: p
     integer(psb_ipk_), intent(out)                :: info
     integer(psb_ipk_) :: me, err_act,i
@@ -178,16 +182,15 @@ contains
     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 psb_c_precfree
 
   subroutine psb_c_prec_free(prec,info)
+    use psb_base_mod
+    implicit none 
     class(psb_cprec_type), intent(inout) :: prec
     integer(psb_ipk_), intent(out)         :: info
     integer(psb_ipk_) :: me, err_act,i
@@ -208,13 +211,10 @@ contains
     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 psb_c_prec_free
 
   function psb_cprec_sizeof(prec) result(val)

prec/psb_d_bjacprec.f90

@@ -134,8 +134,8 @@ module psb_d_bjacprec
 contains
 
   subroutine psb_d_bjac_precdescr(prec,iout)
-    
+    use psb_error_mod
-    Implicit None
+    implicit none 
 
     class(psb_d_bjac_prec_type), intent(in) :: prec
     integer(psb_ipk_), intent(in), optional    :: iout
@@ -166,12 +166,8 @@ contains
     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 psb_d_bjac_precdescr
@@ -239,12 +235,8 @@ contains
     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 psb_d_bjac_precfree
@@ -297,12 +289,8 @@ contains
     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 psb_d_bjac_clone

prec/psb_d_diagprec.f90

@@ -128,12 +128,8 @@ contains
     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 psb_d_diag_precinit
 
@@ -157,12 +153,8 @@ contains
     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 psb_d_diag_precfree
@@ -198,12 +190,8 @@ contains
     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 psb_d_diag_precdescr
@@ -266,12 +254,8 @@ contains
     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 psb_d_diag_clone

prec/psb_d_nullprec.f90

@@ -99,12 +99,8 @@ contains
     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 psb_d_null_precinit
 
@@ -131,12 +127,8 @@ contains
     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 psb_d_null_precbld
 
@@ -157,12 +149,8 @@ contains
     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 psb_d_null_precfree
@@ -194,12 +182,8 @@ contains
     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 psb_d_null_precdescr
@@ -295,12 +279,8 @@ contains
     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 psb_d_null_clone

prec/psb_d_prec_type.f90

@@ -121,6 +121,8 @@ module psb_d_prec_type
 contains
 
   subroutine psb_dfile_prec_descr(p,iout)
+    use psb_base_mod
+    implicit none 
     type(psb_dprec_type), intent(in) :: p
     integer(psb_ipk_), intent(in), optional    :: iout
     integer(psb_ipk_) :: iout_,info
@@ -162,6 +164,8 @@ contains
 
 
   subroutine psb_d_precfree(p,info)
+    use psb_base_mod
+    implicit none 
     type(psb_dprec_type), intent(inout) :: p
     integer(psb_ipk_), intent(out)                :: info
     integer(psb_ipk_) :: me, err_act,i
@@ -178,16 +182,15 @@ contains
     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 psb_d_precfree
 
   subroutine psb_d_prec_free(prec,info)
+    use psb_base_mod
+    implicit none 
     class(psb_dprec_type), intent(inout) :: prec
     integer(psb_ipk_), intent(out)         :: info
     integer(psb_ipk_) :: me, err_act,i
@@ -208,13 +211,10 @@ contains
     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 psb_d_prec_free
 
   function psb_dprec_sizeof(prec) result(val)

prec/psb_s_bjacprec.f90

@@ -134,8 +134,8 @@ module psb_s_bjacprec
 contains
 
   subroutine psb_s_bjac_precdescr(prec,iout)
-    
+    use psb_error_mod
-    Implicit None
+    implicit none 
 
     class(psb_s_bjac_prec_type), intent(in) :: prec
     integer(psb_ipk_), intent(in), optional    :: iout
@@ -166,12 +166,8 @@ contains
     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 psb_s_bjac_precdescr
@@ -239,12 +235,8 @@ contains
     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 psb_s_bjac_precfree
@@ -297,12 +289,8 @@ contains
     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 psb_s_bjac_clone

prec/psb_s_diagprec.f90

@@ -128,12 +128,8 @@ contains
     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 psb_s_diag_precinit
 
@@ -157,12 +153,8 @@ contains
     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 psb_s_diag_precfree
@@ -198,12 +190,8 @@ contains
     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 psb_s_diag_precdescr
@@ -266,12 +254,8 @@ contains
     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 psb_s_diag_clone

prec/psb_s_nullprec.f90

@@ -99,12 +99,8 @@ contains
     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 psb_s_null_precinit
 
@@ -131,12 +127,8 @@ contains
     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 psb_s_null_precbld
 
@@ -157,12 +149,8 @@ contains
     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 psb_s_null_precfree
@@ -194,12 +182,8 @@ contains
     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 psb_s_null_precdescr
@@ -295,12 +279,8 @@ contains
     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 psb_s_null_clone

prec/psb_s_prec_type.f90

@@ -121,6 +121,8 @@ module psb_s_prec_type
 contains
 
   subroutine psb_sfile_prec_descr(p,iout)
+    use psb_base_mod
+    implicit none 
     type(psb_sprec_type), intent(in) :: p
     integer(psb_ipk_), intent(in), optional    :: iout
     integer(psb_ipk_) :: iout_,info
@@ -162,6 +164,8 @@ contains
 
 
   subroutine psb_s_precfree(p,info)
+    use psb_base_mod
+    implicit none 
     type(psb_sprec_type), intent(inout) :: p
     integer(psb_ipk_), intent(out)                :: info
     integer(psb_ipk_) :: me, err_act,i
@@ -178,16 +182,15 @@ contains
     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 psb_s_precfree
 
   subroutine psb_s_prec_free(prec,info)
+    use psb_base_mod
+    implicit none 
     class(psb_sprec_type), intent(inout) :: prec
     integer(psb_ipk_), intent(out)         :: info
     integer(psb_ipk_) :: me, err_act,i
@@ -208,13 +211,10 @@ contains
     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 psb_s_prec_free
 
   function psb_sprec_sizeof(prec) result(val)

prec/psb_z_bjacprec.f90

@@ -134,8 +134,8 @@ module psb_z_bjacprec
 contains
 
   subroutine psb_z_bjac_precdescr(prec,iout)
-    
+    use psb_error_mod
-    Implicit None
+    implicit none 
 
     class(psb_z_bjac_prec_type), intent(in) :: prec
     integer(psb_ipk_), intent(in), optional    :: iout
@@ -166,12 +166,8 @@ contains
     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 psb_z_bjac_precdescr
@@ -239,12 +235,8 @@ contains
     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 psb_z_bjac_precfree
@@ -297,12 +289,8 @@ contains
     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 psb_z_bjac_clone

prec/psb_z_diagprec.f90

@@ -128,12 +128,8 @@ contains
     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 psb_z_diag_precinit
 
@@ -157,12 +153,8 @@ contains
     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 psb_z_diag_precfree
@@ -198,12 +190,8 @@ contains
     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 psb_z_diag_precdescr
@@ -266,12 +254,8 @@ contains
     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 psb_z_diag_clone

prec/psb_z_nullprec.f90

@@ -99,12 +99,8 @@ contains
     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 psb_z_null_precinit
 
@@ -131,12 +127,8 @@ contains
     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 psb_z_null_precbld
 
@@ -157,12 +149,8 @@ contains
     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 psb_z_null_precfree
@@ -194,12 +182,8 @@ contains
     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 psb_z_null_precdescr
@@ -295,12 +279,8 @@ contains
     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 psb_z_null_clone

prec/psb_z_prec_type.f90

@@ -121,6 +121,8 @@ module psb_z_prec_type
 contains
 
   subroutine psb_zfile_prec_descr(p,iout)
+    use psb_base_mod
+    implicit none 
     type(psb_zprec_type), intent(in) :: p
     integer(psb_ipk_), intent(in), optional    :: iout
     integer(psb_ipk_) :: iout_,info
@@ -162,6 +164,8 @@ contains
 
 
   subroutine psb_z_precfree(p,info)
+    use psb_base_mod
+    implicit none 
     type(psb_zprec_type), intent(inout) :: p
     integer(psb_ipk_), intent(out)                :: info
     integer(psb_ipk_) :: me, err_act,i
@@ -178,16 +182,15 @@ contains
     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 psb_z_precfree
 
   subroutine psb_z_prec_free(prec,info)
+    use psb_base_mod
+    implicit none 
     class(psb_zprec_type), intent(inout) :: prec
     integer(psb_ipk_), intent(out)         :: info
     integer(psb_ipk_) :: me, err_act,i
@@ -208,13 +211,10 @@ contains
     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 psb_z_prec_free
 
   function psb_zprec_sizeof(prec) result(val)