New error handling interface for i_err and friends.

krylov/psb_cfcg.F90

@@ -223,7 +223,7 @@ subroutine psb_cfcg_vect(a,prec,b,x,eps,desc_a,info,&
       if (psb_errstatus_fatal()) then 
         nc2l = desc_a%get_local_cols()
         info=psb_err_alloc_request_
-        call psb_errpush(info,name,i_err=(/2*nc2l,izero,izero,izero,izero/),&
+        call psb_errpush(info,name,i_err=(/2*nc2l/),&
              & a_err='complex(psb_spk_)')
         goto 9999      
       end if

krylov/psb_dcg.F90

@@ -299,7 +299,7 @@ subroutine psb_dcg_vect(a,prec,b,x,eps,desc_a,info,&
            & ieg,nspl,eig,ibl,ispl,ewrk,iwrk,info)
       if (info < 0) then 
         call psb_errpush(psb_err_from_subroutine_ai_,name,&
-             & a_err='dstebz',i_err=(/info,izero,izero,izero,izero/))
+             & a_err='dstebz',i_err=(/info/))
         info=psb_err_from_subroutine_ai_
         goto 9999
       end if

krylov/psb_dfcg.F90

@@ -223,7 +223,7 @@ subroutine psb_dfcg_vect(a,prec,b,x,eps,desc_a,info,&
       if (psb_errstatus_fatal()) then 
         nc2l = desc_a%get_local_cols()
         info=psb_err_alloc_request_
-        call psb_errpush(info,name,i_err=(/2*nc2l,izero,izero,izero,izero/),&
+        call psb_errpush(info,name,i_err=(/2*nc2l/),&
              & a_err='real(psb_dpk_)')
         goto 9999      
       end if

krylov/psb_scg.F90

@@ -299,7 +299,7 @@ subroutine psb_scg_vect(a,prec,b,x,eps,desc_a,info,&
            & ieg,nspl,eig,ibl,ispl,ewrk,iwrk,info)
       if (info < 0) then 
         call psb_errpush(psb_err_from_subroutine_ai_,name,&
-             & a_err='sstebz',i_err=(/info,izero,izero,izero,izero/))
+             & a_err='sstebz',i_err=(/info/))
         info=psb_err_from_subroutine_ai_
         goto 9999
       end if

krylov/psb_sfcg.F90

@@ -223,7 +223,7 @@ subroutine psb_sfcg_vect(a,prec,b,x,eps,desc_a,info,&
       if (psb_errstatus_fatal()) then 
         nc2l = desc_a%get_local_cols()
         info=psb_err_alloc_request_
-        call psb_errpush(info,name,i_err=(/2*nc2l,izero,izero,izero,izero/),&
+        call psb_errpush(info,name,i_err=(/2*nc2l/),&
              & a_err='real(psb_spk_)')
         goto 9999      
       end if

krylov/psb_zfcg.F90

@@ -223,7 +223,7 @@ subroutine psb_zfcg_vect(a,prec,b,x,eps,desc_a,info,&
       if (psb_errstatus_fatal()) then 
         nc2l = desc_a%get_local_cols()
         info=psb_err_alloc_request_
-        call psb_errpush(info,name,i_err=(/2*nc2l,izero,izero,izero,izero/),&
+        call psb_errpush(info,name,i_err=(/2*nc2l/),&
              & a_err='complex(psb_dpk_)')
         goto 9999      
       end if