diff --git a/base/modules/desc/psb_indx_map_mod.F90 b/base/modules/desc/psb_indx_map_mod.F90 index fa3e5a69..f35cba1f 100644 --- a/base/modules/desc/psb_indx_map_mod.F90 +++ b/base/modules/desc/psb_indx_map_mod.F90 @@ -742,9 +742,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -768,9 +767,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) end subroutine base_l2gs2 @@ -792,9 +790,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return end subroutine base_l2gv1 @@ -816,9 +813,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -843,9 +839,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -869,9 +864,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) end subroutine base_ll2gs2 @@ -893,9 +887,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return end subroutine base_ll2gv1 @@ -917,9 +910,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -942,9 +934,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -968,9 +959,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -993,9 +983,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1019,13 +1008,11 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return - end subroutine base_g2lv2 subroutine base_lg2ls1(idx,idxmap,info,mask,owned) @@ -1044,9 +1031,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1070,9 +1056,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1095,9 +1080,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1121,9 +1105,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1146,9 +1129,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1172,9 +1154,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1198,9 +1179,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1224,9 +1204,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1249,9 +1228,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1275,9 +1253,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1300,10 +1277,9 @@ contains call psb_get_erraction(err_act) ! This is the base version. If we get here ! it means the derived class is incomplete, - ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + ! so we throw an error + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1327,9 +1303,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1349,7 +1324,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& + info = psb_err_missing_override_method_ + call psb_errpush(info,& & name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) @@ -1394,9 +1370,9 @@ contains type(psb_ctxt_type), intent(in) :: ctxt integer(psb_ipk_), intent(out) :: info + info = psb_success_ call idxmap%set_null() idxmap%ctxt = ctxt - info = 0 return end subroutine base_init_null @@ -1415,11 +1391,10 @@ contains call psb_get_erraction(err_act) ! This is the base version. If we get here ! it means the derived class is incomplete, - ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - - call psb_error_handler(err_act) + ! so we throw an error + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) + call psb_error_handler(err_act) return end subroutine base_init_vl @@ -1440,9 +1415,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return end subroutine base_clone @@ -1505,15 +1479,12 @@ contains character(len=20) :: name='base_reinit' logical, parameter :: debug=.false. - info = psb_success_ - call psb_get_erraction(err_act) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,& - & name,a_err=idxmap%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return end subroutine base_reinit @@ -1530,6 +1501,7 @@ contains integer(psb_ipk_) :: me, np integer(psb_ipk_) :: i, j, nr, nc, nh + info = psb_success_ call psb_info(idxmap%ctxt,me,np) ! The idea here is to store only the halo part nr = idxmap%local_rows @@ -1552,6 +1524,7 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: nh + info = psb_success_ nh = size(idxmap%halo_owner) !v = idxmap%halo_owner(1:nh) call psb_safe_ab_cpy(idxmap%halo_owner,v,info) @@ -1568,6 +1541,8 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, j, nr, nc, nh + + info = psb_success_ nr = idxmap%local_rows nc = idxmap%local_cols nc = min(idxmap%local_cols, (nr+psb_size(idxmap%halo_owner))) @@ -1597,6 +1572,8 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, j, nr, nc, nh, sz + + info = psb_success_ nr = idxmap%local_rows nc = min(idxmap%local_cols, (nr+psb_size(idxmap%halo_owner))) sz = min(size(xin),size(xout)) diff --git a/base/serial/impl/psb_base_mat_impl.f90 b/base/serial/impl/psb_base_mat_impl.f90 index 29a30c16..39e21300 100644 --- a/base/serial/impl/psb_base_mat_impl.f90 +++ b/base/serial/impl/psb_base_mat_impl.f90 @@ -167,7 +167,6 @@ subroutine psb_base_csgetptn(imin,imax,a,nz,ia,ja,info,& ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_base_csgetptn @@ -254,7 +253,7 @@ subroutine psb_base_allocate_mnnz(m,n,a,nz) integer(psb_ipk_), intent(in) :: m,n class(psb_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz - integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: err_act, info character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -262,8 +261,8 @@ subroutine psb_base_allocate_mnnz(m,n,a,nz) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) end subroutine psb_base_allocate_mnnz @@ -273,7 +272,7 @@ subroutine psb_base_reallocate_nz(nz,a) implicit none integer(psb_ipk_), intent(in) :: nz class(psb_base_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -281,8 +280,8 @@ subroutine psb_base_reallocate_nz(nz,a) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) end subroutine psb_base_reallocate_nz @@ -291,7 +290,7 @@ subroutine psb_base_free(a) use psb_error_mod implicit none class(psb_base_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: err_act, info character(len=20) :: name='free' logical, parameter :: debug=.false. @@ -299,8 +298,8 @@ subroutine psb_base_free(a) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) end subroutine psb_base_free @@ -309,7 +308,7 @@ subroutine psb_base_trim(a) use psb_error_mod implicit none class(psb_base_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: err_act, info character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -384,7 +383,6 @@ function psb_lbase_get_size(a) result(res) ! it means the derived class is incomplete, ! so we throw an error. call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end function psb_lbase_get_size @@ -401,12 +399,11 @@ subroutine psb_lbase_reinit(a,clear) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - info = psb_err_missing_override_method_ ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) end subroutine psb_lbase_reinit @@ -426,12 +423,11 @@ subroutine psb_lbase_sparse_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - info = psb_err_missing_override_method_ ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) - + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) end subroutine psb_lbase_sparse_print @@ -462,7 +458,6 @@ subroutine psb_lbase_csgetptn(imin,imax,a,nz,ia,ja,info,& ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lbase_csgetptn @@ -559,7 +554,6 @@ subroutine psb_lbase_allocate_mnnz(m,n,a,nz) ! it means the derived class is incomplete, ! so we throw an error. call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lbase_allocate_mnnz @@ -578,7 +572,6 @@ subroutine psb_lbase_reallocate_nz(nz,a) ! it means the derived class is incomplete, ! so we throw an error. call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lbase_reallocate_nz @@ -596,7 +589,6 @@ subroutine psb_lbase_free(a) ! it means the derived class is incomplete, ! so we throw an error. call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lbase_free diff --git a/base/serial/impl/psb_c_base_mat_impl.F90 b/base/serial/impl/psb_c_base_mat_impl.F90 index fc170a6a..25cd290a 100644 --- a/base/serial/impl/psb_c_base_mat_impl.F90 +++ b/base/serial/impl/psb_c_base_mat_impl.F90 @@ -60,7 +60,6 @@ subroutine psb_c_base_cp_to_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_c_base_cp_to_coo @@ -84,7 +83,6 @@ subroutine psb_c_base_cp_from_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_c_base_cp_from_coo @@ -344,7 +342,6 @@ subroutine psb_c_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_c_base_csput_a @@ -420,7 +417,6 @@ subroutine psb_c_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_c_base_csgetrow @@ -993,7 +989,6 @@ subroutine psb_c_base_mold(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_c_base_mold @@ -1168,7 +1163,6 @@ subroutine psb_c_base_csmm(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_c_base_csmm @@ -1194,7 +1188,6 @@ subroutine psb_c_base_csmv(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) @@ -1221,7 +1214,6 @@ subroutine psb_c_base_inner_cssm(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_c_base_inner_cssm @@ -1247,7 +1239,6 @@ subroutine psb_c_base_inner_cssv(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_c_base_inner_cssv @@ -1549,7 +1540,6 @@ subroutine psb_c_base_scals(d,a,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_c_base_scals @@ -1618,7 +1608,6 @@ subroutine psb_c_base_scal(d,a,info,side) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_c_base_scal @@ -1643,7 +1632,6 @@ function psb_c_base_maxval(a) result(res) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end function psb_c_base_maxval @@ -1742,7 +1730,6 @@ subroutine psb_c_base_rowsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_c_base_rowsum @@ -1764,7 +1751,6 @@ subroutine psb_c_base_arwsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_c_base_arwsum @@ -1786,7 +1772,6 @@ subroutine psb_c_base_colsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_c_base_colsum @@ -1808,7 +1793,6 @@ subroutine psb_c_base_aclsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_c_base_aclsum @@ -1833,7 +1817,6 @@ subroutine psb_c_base_get_diag(a,d,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_c_base_get_diag @@ -2547,7 +2530,6 @@ subroutine psb_lc_base_cp_to_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lc_base_cp_to_coo @@ -2571,7 +2553,6 @@ subroutine psb_lc_base_cp_from_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lc_base_cp_from_coo @@ -2831,7 +2812,6 @@ subroutine psb_lc_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lc_base_csput_a @@ -2908,7 +2888,6 @@ subroutine psb_lc_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lc_base_csgetrow @@ -3490,7 +3469,6 @@ subroutine psb_lc_base_mold(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lc_base_mold @@ -3648,7 +3626,6 @@ subroutine psb_lc_base_scals(d,a,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lc_base_scals @@ -3717,7 +3694,6 @@ subroutine psb_lc_base_scal(d,a,info,side) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lc_base_scal @@ -3742,7 +3718,6 @@ function psb_lc_base_maxval(a) result(res) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end function psb_lc_base_maxval @@ -3838,7 +3813,6 @@ subroutine psb_lc_base_rowsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lc_base_rowsum @@ -3860,7 +3834,6 @@ subroutine psb_lc_base_arwsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lc_base_arwsum @@ -3882,7 +3855,6 @@ subroutine psb_lc_base_colsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lc_base_colsum @@ -3904,7 +3876,6 @@ subroutine psb_lc_base_aclsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lc_base_aclsum @@ -4068,7 +4039,6 @@ subroutine psb_lc_base_get_diag(a,d,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lc_base_get_diag diff --git a/base/serial/impl/psb_d_base_mat_impl.F90 b/base/serial/impl/psb_d_base_mat_impl.F90 index 01a942d1..5f849bea 100644 --- a/base/serial/impl/psb_d_base_mat_impl.F90 +++ b/base/serial/impl/psb_d_base_mat_impl.F90 @@ -60,7 +60,6 @@ subroutine psb_d_base_cp_to_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_d_base_cp_to_coo @@ -84,7 +83,6 @@ subroutine psb_d_base_cp_from_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_d_base_cp_from_coo @@ -344,7 +342,6 @@ subroutine psb_d_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_d_base_csput_a @@ -420,7 +417,6 @@ subroutine psb_d_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_d_base_csgetrow @@ -993,7 +989,6 @@ subroutine psb_d_base_mold(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_d_base_mold @@ -1168,7 +1163,6 @@ subroutine psb_d_base_csmm(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_d_base_csmm @@ -1194,7 +1188,6 @@ subroutine psb_d_base_csmv(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) @@ -1221,7 +1214,6 @@ subroutine psb_d_base_inner_cssm(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_d_base_inner_cssm @@ -1247,7 +1239,6 @@ subroutine psb_d_base_inner_cssv(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_d_base_inner_cssv @@ -1549,7 +1540,6 @@ subroutine psb_d_base_scals(d,a,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_d_base_scals @@ -1618,7 +1608,6 @@ subroutine psb_d_base_scal(d,a,info,side) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_d_base_scal @@ -1643,7 +1632,6 @@ function psb_d_base_maxval(a) result(res) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end function psb_d_base_maxval @@ -1742,7 +1730,6 @@ subroutine psb_d_base_rowsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_d_base_rowsum @@ -1764,7 +1751,6 @@ subroutine psb_d_base_arwsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_d_base_arwsum @@ -1786,7 +1772,6 @@ subroutine psb_d_base_colsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_d_base_colsum @@ -1808,7 +1793,6 @@ subroutine psb_d_base_aclsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_d_base_aclsum @@ -1833,7 +1817,6 @@ subroutine psb_d_base_get_diag(a,d,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_d_base_get_diag @@ -2547,7 +2530,6 @@ subroutine psb_ld_base_cp_to_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ld_base_cp_to_coo @@ -2571,7 +2553,6 @@ subroutine psb_ld_base_cp_from_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ld_base_cp_from_coo @@ -2831,7 +2812,6 @@ subroutine psb_ld_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ld_base_csput_a @@ -2908,7 +2888,6 @@ subroutine psb_ld_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ld_base_csgetrow @@ -3490,7 +3469,6 @@ subroutine psb_ld_base_mold(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ld_base_mold @@ -3648,7 +3626,6 @@ subroutine psb_ld_base_scals(d,a,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ld_base_scals @@ -3717,7 +3694,6 @@ subroutine psb_ld_base_scal(d,a,info,side) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ld_base_scal @@ -3742,7 +3718,6 @@ function psb_ld_base_maxval(a) result(res) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end function psb_ld_base_maxval @@ -3838,7 +3813,6 @@ subroutine psb_ld_base_rowsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ld_base_rowsum @@ -3860,7 +3834,6 @@ subroutine psb_ld_base_arwsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ld_base_arwsum @@ -3882,7 +3855,6 @@ subroutine psb_ld_base_colsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ld_base_colsum @@ -3904,7 +3876,6 @@ subroutine psb_ld_base_aclsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ld_base_aclsum @@ -4068,7 +4039,6 @@ subroutine psb_ld_base_get_diag(a,d,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ld_base_get_diag diff --git a/base/serial/impl/psb_s_base_mat_impl.F90 b/base/serial/impl/psb_s_base_mat_impl.F90 index 205d0358..c070e716 100644 --- a/base/serial/impl/psb_s_base_mat_impl.F90 +++ b/base/serial/impl/psb_s_base_mat_impl.F90 @@ -60,7 +60,6 @@ subroutine psb_s_base_cp_to_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_s_base_cp_to_coo @@ -84,7 +83,6 @@ subroutine psb_s_base_cp_from_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_s_base_cp_from_coo @@ -344,7 +342,6 @@ subroutine psb_s_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_s_base_csput_a @@ -420,7 +417,6 @@ subroutine psb_s_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_s_base_csgetrow @@ -993,7 +989,6 @@ subroutine psb_s_base_mold(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_s_base_mold @@ -1168,7 +1163,6 @@ subroutine psb_s_base_csmm(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_s_base_csmm @@ -1194,7 +1188,6 @@ subroutine psb_s_base_csmv(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) @@ -1221,7 +1214,6 @@ subroutine psb_s_base_inner_cssm(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_s_base_inner_cssm @@ -1247,7 +1239,6 @@ subroutine psb_s_base_inner_cssv(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_s_base_inner_cssv @@ -1549,7 +1540,6 @@ subroutine psb_s_base_scals(d,a,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_s_base_scals @@ -1618,7 +1608,6 @@ subroutine psb_s_base_scal(d,a,info,side) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_s_base_scal @@ -1643,7 +1632,6 @@ function psb_s_base_maxval(a) result(res) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end function psb_s_base_maxval @@ -1742,7 +1730,6 @@ subroutine psb_s_base_rowsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_s_base_rowsum @@ -1764,7 +1751,6 @@ subroutine psb_s_base_arwsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_s_base_arwsum @@ -1786,7 +1772,6 @@ subroutine psb_s_base_colsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_s_base_colsum @@ -1808,7 +1793,6 @@ subroutine psb_s_base_aclsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_s_base_aclsum @@ -1833,7 +1817,6 @@ subroutine psb_s_base_get_diag(a,d,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_s_base_get_diag @@ -2547,7 +2530,6 @@ subroutine psb_ls_base_cp_to_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ls_base_cp_to_coo @@ -2571,7 +2553,6 @@ subroutine psb_ls_base_cp_from_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ls_base_cp_from_coo @@ -2831,7 +2812,6 @@ subroutine psb_ls_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ls_base_csput_a @@ -2908,7 +2888,6 @@ subroutine psb_ls_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ls_base_csgetrow @@ -3490,7 +3469,6 @@ subroutine psb_ls_base_mold(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ls_base_mold @@ -3648,7 +3626,6 @@ subroutine psb_ls_base_scals(d,a,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ls_base_scals @@ -3717,7 +3694,6 @@ subroutine psb_ls_base_scal(d,a,info,side) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ls_base_scal @@ -3742,7 +3718,6 @@ function psb_ls_base_maxval(a) result(res) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end function psb_ls_base_maxval @@ -3838,7 +3813,6 @@ subroutine psb_ls_base_rowsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ls_base_rowsum @@ -3860,7 +3834,6 @@ subroutine psb_ls_base_arwsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ls_base_arwsum @@ -3882,7 +3855,6 @@ subroutine psb_ls_base_colsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ls_base_colsum @@ -3904,7 +3876,6 @@ subroutine psb_ls_base_aclsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ls_base_aclsum @@ -4068,7 +4039,6 @@ subroutine psb_ls_base_get_diag(a,d,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_ls_base_get_diag diff --git a/base/serial/impl/psb_z_base_mat_impl.F90 b/base/serial/impl/psb_z_base_mat_impl.F90 index 915993f0..2d68d152 100644 --- a/base/serial/impl/psb_z_base_mat_impl.F90 +++ b/base/serial/impl/psb_z_base_mat_impl.F90 @@ -60,7 +60,6 @@ subroutine psb_z_base_cp_to_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_z_base_cp_to_coo @@ -84,7 +83,6 @@ subroutine psb_z_base_cp_from_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_z_base_cp_from_coo @@ -344,7 +342,6 @@ subroutine psb_z_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_z_base_csput_a @@ -420,7 +417,6 @@ subroutine psb_z_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_z_base_csgetrow @@ -993,7 +989,6 @@ subroutine psb_z_base_mold(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_z_base_mold @@ -1168,7 +1163,6 @@ subroutine psb_z_base_csmm(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_z_base_csmm @@ -1194,7 +1188,6 @@ subroutine psb_z_base_csmv(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) @@ -1221,7 +1214,6 @@ subroutine psb_z_base_inner_cssm(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_z_base_inner_cssm @@ -1247,7 +1239,6 @@ subroutine psb_z_base_inner_cssv(alpha,a,x,beta,y,info,trans) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_z_base_inner_cssv @@ -1549,7 +1540,6 @@ subroutine psb_z_base_scals(d,a,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_z_base_scals @@ -1618,7 +1608,6 @@ subroutine psb_z_base_scal(d,a,info,side) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_z_base_scal @@ -1643,7 +1632,6 @@ function psb_z_base_maxval(a) result(res) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end function psb_z_base_maxval @@ -1742,7 +1730,6 @@ subroutine psb_z_base_rowsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_z_base_rowsum @@ -1764,7 +1751,6 @@ subroutine psb_z_base_arwsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_z_base_arwsum @@ -1786,7 +1772,6 @@ subroutine psb_z_base_colsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_z_base_colsum @@ -1808,7 +1793,6 @@ subroutine psb_z_base_aclsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_z_base_aclsum @@ -1833,7 +1817,6 @@ subroutine psb_z_base_get_diag(a,d,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_z_base_get_diag @@ -2547,7 +2530,6 @@ subroutine psb_lz_base_cp_to_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lz_base_cp_to_coo @@ -2571,7 +2553,6 @@ subroutine psb_lz_base_cp_from_coo(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lz_base_cp_from_coo @@ -2831,7 +2812,6 @@ subroutine psb_lz_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lz_base_csput_a @@ -2908,7 +2888,6 @@ subroutine psb_lz_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lz_base_csgetrow @@ -3490,7 +3469,6 @@ subroutine psb_lz_base_mold(a,b,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lz_base_mold @@ -3648,7 +3626,6 @@ subroutine psb_lz_base_scals(d,a,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lz_base_scals @@ -3717,7 +3694,6 @@ subroutine psb_lz_base_scal(d,a,info,side) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lz_base_scal @@ -3742,7 +3718,6 @@ function psb_lz_base_maxval(a) result(res) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end function psb_lz_base_maxval @@ -3838,7 +3813,6 @@ subroutine psb_lz_base_rowsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lz_base_rowsum @@ -3860,7 +3834,6 @@ subroutine psb_lz_base_arwsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lz_base_arwsum @@ -3882,7 +3855,6 @@ subroutine psb_lz_base_colsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lz_base_colsum @@ -3904,7 +3876,6 @@ subroutine psb_lz_base_aclsum(d,a) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lz_base_aclsum @@ -4068,7 +4039,6 @@ subroutine psb_lz_base_get_diag(a,d,info) ! so we throw an error. info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) - call psb_error_handler(err_act) end subroutine psb_lz_base_get_diag diff --git a/base/serial/psi_c_serial_impl.F90 b/base/serial/psi_c_serial_impl.F90 index e3f1d9a3..34239776 100644 --- a/base/serial/psi_c_serial_impl.F90 +++ b/base/serial/psi_c_serial_impl.F90 @@ -45,7 +45,8 @@ subroutine psi_c_exscanv(n,x,info,shift) complex(psb_spk_) :: shift_, tp, ts integer(psb_ipk_) :: i logical is_nested, is_parallel - + + info = psb_success_ if (present(shift)) then shift_ = shift else diff --git a/base/serial/psi_d_serial_impl.F90 b/base/serial/psi_d_serial_impl.F90 index d6a9a31d..7bfbf300 100644 --- a/base/serial/psi_d_serial_impl.F90 +++ b/base/serial/psi_d_serial_impl.F90 @@ -45,7 +45,8 @@ subroutine psi_d_exscanv(n,x,info,shift) real(psb_dpk_) :: shift_, tp, ts integer(psb_ipk_) :: i logical is_nested, is_parallel - + + info = psb_success_ if (present(shift)) then shift_ = shift else diff --git a/base/serial/psi_e_serial_impl.F90 b/base/serial/psi_e_serial_impl.F90 index 37b11a94..12734b33 100644 --- a/base/serial/psi_e_serial_impl.F90 +++ b/base/serial/psi_e_serial_impl.F90 @@ -45,7 +45,8 @@ subroutine psi_e_exscanv(n,x,info,shift) integer(psb_epk_) :: shift_, tp, ts integer(psb_ipk_) :: i logical is_nested, is_parallel - + + info = psb_success_ if (present(shift)) then shift_ = shift else diff --git a/base/serial/psi_i2_serial_impl.F90 b/base/serial/psi_i2_serial_impl.F90 index c20cd60b..5462c7c3 100644 --- a/base/serial/psi_i2_serial_impl.F90 +++ b/base/serial/psi_i2_serial_impl.F90 @@ -45,7 +45,8 @@ subroutine psi_i2_exscanv(n,x,info,shift) integer(psb_i2pk_) :: shift_, tp, ts integer(psb_ipk_) :: i logical is_nested, is_parallel - + + info = psb_success_ if (present(shift)) then shift_ = shift else diff --git a/base/serial/psi_m_serial_impl.F90 b/base/serial/psi_m_serial_impl.F90 index 55913a16..8f809e23 100644 --- a/base/serial/psi_m_serial_impl.F90 +++ b/base/serial/psi_m_serial_impl.F90 @@ -45,7 +45,8 @@ subroutine psi_m_exscanv(n,x,info,shift) integer(psb_mpk_) :: shift_, tp, ts integer(psb_ipk_) :: i logical is_nested, is_parallel - + + info = psb_success_ if (present(shift)) then shift_ = shift else diff --git a/base/serial/psi_s_serial_impl.F90 b/base/serial/psi_s_serial_impl.F90 index c3846c8e..15f94202 100644 --- a/base/serial/psi_s_serial_impl.F90 +++ b/base/serial/psi_s_serial_impl.F90 @@ -45,7 +45,8 @@ subroutine psi_s_exscanv(n,x,info,shift) real(psb_spk_) :: shift_, tp, ts integer(psb_ipk_) :: i logical is_nested, is_parallel - + + info = psb_success_ if (present(shift)) then shift_ = shift else diff --git a/base/serial/psi_z_serial_impl.F90 b/base/serial/psi_z_serial_impl.F90 index 763eae22..7ea77a62 100644 --- a/base/serial/psi_z_serial_impl.F90 +++ b/base/serial/psi_z_serial_impl.F90 @@ -45,7 +45,8 @@ subroutine psi_z_exscanv(n,x,info,shift) complex(psb_dpk_) :: shift_, tp, ts integer(psb_ipk_) :: i logical is_nested, is_parallel - + + info = psb_success_ if (present(shift)) then shift_ = shift else