Changed error reporting from external packages.

src/prec/psb_dslu_bld.f90

@@ -180,9 +180,8 @@ subroutine psb_dslu_bld(a,desc_a,p,info)
   call psb_dslu_factor(atmp%m,nzt,&
        & atmp%aspk,atmp%ia2,atmp%ia1,p%iprcparm(slu_ptr_),info)
   if(info /= 0) then
-    info=4010
     ch_err='psb_slu_fact'
-    call psb_errpush(info,name,a_err=ch_err)
+    call psb_errpush(4110,name,a_err=ch_err,i_err=(/info,0,0,0,0/))
     goto 9999
   end if
 

src/prec/psb_dumf_bld.f90

@@ -98,8 +98,8 @@ subroutine psb_dumf_bld(a,desc_a,p,info)
     goto 9999
   end if
   call psb_spinfo(psb_nztotreq_,atmp,nza,info)
-  if (Debug) then 
   call psb_spinfo(psb_nztotreq_,a,nzb,info)
+  if (Debug) then 
     write(0,*) me, 'UMFBLD: Done csdp',info,nza,atmp%m,atmp%k,nzb
     call blacs_barrier(ictxt,'All')
   endif

src/prec/psb_zslu_bld.f90

@@ -180,9 +180,8 @@ subroutine psb_zslu_bld(a,desc_a,p,info)
   call psb_zslu_factor(atmp%m,nzt,&
        & atmp%aspk,atmp%ia1,atmp%ia2,p%iprcparm(slu_ptr_),info)
   if(info /= 0) then
-    info=4010
     ch_err='psb_slu_fact'
-    call psb_errpush(info,name,a_err=ch_err)
+    call psb_errpush(4110,name,a_err=ch_err,i_err=(/info,0,0,0,0/))
     goto 9999
   end if
 

src/prec/psb_zumf_bld.f90

@@ -179,11 +179,11 @@ subroutine psb_zumf_bld(a,desc_a,p,info)
   call psb_zumf_factor(atmp%m,nzt,&
        & atmp%aspk,atmp%ia1,atmp%ia2,&
        & p%iprcparm(umf_symptr_),p%iprcparm(umf_numptr_),info)
-
   if (info /= 0) then
-    info=4010
+    i_err(1) = info 
+    info=4110
     ch_err='psb_umf_fact'
-    call psb_errpush(info,name,a_err=ch_err)
+    call psb_errpush(info,name,a_err=ch_err,i_err=i_err)
     goto 9999
   end if