From 777c94bc933bbfaa4e5aa0d56748bf9ae17e5575 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 16 Jun 2006 09:59:42 +0000
Subject: [PATCH] Changed error reporting from external packages.

---
 src/prec/psb_dslu_bld.f90 | 3 +--
 src/prec/psb_dumf_bld.f90 | 2 +-
 src/prec/psb_zslu_bld.f90 | 3 +--
 src/prec/psb_zumf_bld.f90 | 8 ++++----
 4 files changed, 7 insertions(+), 9 deletions(-)

diff --git a/src/prec/psb_dslu_bld.f90 b/src/prec/psb_dslu_bld.f90
index bf47720e..dc5a51f1 100644
--- a/src/prec/psb_dslu_bld.f90
+++ b/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
 
diff --git a/src/prec/psb_dumf_bld.f90 b/src/prec/psb_dumf_bld.f90
index db783617..3d6ea7ec 100644
--- a/src/prec/psb_dumf_bld.f90
+++ b/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)
+  call psb_spinfo(psb_nztotreq_,a,nzb,info)
   if (Debug) then 
-    call psb_spinfo(psb_nztotreq_,a,nzb,info)
     write(0,*) me, 'UMFBLD: Done csdp',info,nza,atmp%m,atmp%k,nzb
     call blacs_barrier(ictxt,'All')
   endif
diff --git a/src/prec/psb_zslu_bld.f90 b/src/prec/psb_zslu_bld.f90
index 8f22ab2d..ea151e12 100644
--- a/src/prec/psb_zslu_bld.f90
+++ b/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
 
diff --git a/src/prec/psb_zumf_bld.f90 b/src/prec/psb_zumf_bld.f90
index bd742fdd..dcc19a95 100644
--- a/src/prec/psb_zumf_bld.f90
+++ b/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
+  if (info /= 0) then
+    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