diff --git a/base/serial/f03/psb_base_mat_impl.f03 b/base/serial/f03/psb_base_mat_impl.f03 index 0ec6710c..514b0d98 100644 --- a/base/serial/f03/psb_base_mat_impl.f03 +++ b/base/serial/f03/psb_base_mat_impl.f03 @@ -15,7 +15,7 @@ function psb_base_get_nz_row(idx,a) result(res) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(700,name,a_err=a%get_fmt()) + call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then call psb_error() @@ -40,7 +40,7 @@ function psb_base_get_nzeros(a) result(res) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(700,name,a_err=a%get_fmt()) + call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then call psb_error() @@ -65,7 +65,7 @@ function psb_base_get_size(a) result(res) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - call psb_errpush(700,name,a_err=a%get_fmt()) + call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then call psb_error() @@ -87,11 +87,11 @@ subroutine psb_base_reinit(a,clear) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - info = 700 + 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(700,name,a_err=a%get_fmt()) + call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then call psb_error() @@ -117,11 +117,11 @@ subroutine psb_base_sparse_print(iout,a,iv,eirs,eics,head,ivr,ivc) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - info = 700 + 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(700,name,a_err=a%get_fmt()) + call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then call psb_error() @@ -155,7 +155,7 @@ subroutine psb_base_csgetptn(imin,imax,a,nz,ia,ja,info,& ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -259,7 +259,7 @@ 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(700,name,a_err=a%get_fmt()) + call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then call psb_error() @@ -282,7 +282,7 @@ 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(700,name,a_err=a%get_fmt()) + call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then call psb_error() @@ -304,7 +304,7 @@ 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(700,name,a_err=a%get_fmt()) + call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then call psb_error() @@ -326,7 +326,7 @@ subroutine psb_base_trim(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(700,name,a_err=a%get_fmt()) + call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then call psb_error() diff --git a/base/serial/f03/psb_c_base_mat_impl.f03 b/base/serial/f03/psb_c_base_mat_impl.f03 index d7d68770..e9be8cab 100644 --- a/base/serial/f03/psb_c_base_mat_impl.f03 +++ b/base/serial/f03/psb_c_base_mat_impl.f03 @@ -27,7 +27,7 @@ subroutine psb_c_base_cp_to_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -54,7 +54,7 @@ subroutine psb_c_base_cp_from_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -82,7 +82,7 @@ subroutine psb_c_base_cp_to_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -109,7 +109,7 @@ subroutine psb_c_base_cp_from_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -137,7 +137,7 @@ subroutine psb_c_base_mv_to_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -164,7 +164,7 @@ subroutine psb_c_base_mv_from_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -192,7 +192,7 @@ subroutine psb_c_base_mv_to_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -219,7 +219,7 @@ subroutine psb_c_base_mv_from_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -247,7 +247,7 @@ subroutine psb_c_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -283,7 +283,7 @@ subroutine psb_c_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -465,7 +465,7 @@ subroutine psb_c_base_transp_2mat(a,b) if (info == psb_success_) call tmp%transp() if (info == psb_success_) call a%mv_from_coo(tmp,info) class default - info = 700 + info = psb_err_missing_override_method_ end select if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt()) @@ -511,7 +511,7 @@ subroutine psb_c_base_transp_1mat(a) if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info /= psb_success_) then - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if @@ -569,7 +569,7 @@ subroutine psb_c_base_csmm(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -598,7 +598,7 @@ subroutine psb_c_base_csmv(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -628,7 +628,7 @@ subroutine psb_c_base_inner_cssm(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -657,7 +657,7 @@ subroutine psb_c_base_inner_cssv(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -975,7 +975,7 @@ subroutine psb_c_base_scals(d,a,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -1003,7 +1003,7 @@ subroutine psb_c_base_scal(d,a,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -1032,7 +1032,7 @@ function psb_c_base_csnmi(a) result(res) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -1062,7 +1062,7 @@ subroutine psb_c_base_get_diag(a,d,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then diff --git a/base/serial/f03/psb_d_base_mat_impl.f03 b/base/serial/f03/psb_d_base_mat_impl.f03 index 59cc841b..d57f9f8e 100644 --- a/base/serial/f03/psb_d_base_mat_impl.f03 +++ b/base/serial/f03/psb_d_base_mat_impl.f03 @@ -27,7 +27,7 @@ subroutine psb_d_base_cp_to_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -54,7 +54,7 @@ subroutine psb_d_base_cp_from_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -82,7 +82,7 @@ subroutine psb_d_base_cp_to_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -109,7 +109,7 @@ subroutine psb_d_base_cp_from_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -137,7 +137,7 @@ subroutine psb_d_base_mv_to_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -164,7 +164,7 @@ subroutine psb_d_base_mv_from_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -192,7 +192,7 @@ subroutine psb_d_base_mv_to_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -219,7 +219,7 @@ subroutine psb_d_base_mv_from_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -247,7 +247,7 @@ subroutine psb_d_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -283,7 +283,7 @@ subroutine psb_d_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -465,7 +465,7 @@ subroutine psb_d_base_transp_2mat(a,b) if (info == psb_success_) call tmp%transp() if (info == psb_success_) call a%mv_from_coo(tmp,info) class default - info = 700 + info = psb_err_missing_override_method_ end select if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt()) @@ -511,7 +511,7 @@ subroutine psb_d_base_transp_1mat(a) if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info /= psb_success_) then - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if @@ -569,7 +569,7 @@ subroutine psb_d_base_csmm(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -598,7 +598,7 @@ subroutine psb_d_base_csmv(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -628,7 +628,7 @@ subroutine psb_d_base_inner_cssm(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -657,7 +657,7 @@ subroutine psb_d_base_inner_cssv(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -975,7 +975,7 @@ subroutine psb_d_base_scals(d,a,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -1003,7 +1003,7 @@ subroutine psb_d_base_scal(d,a,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -1032,7 +1032,7 @@ function psb_d_base_csnmi(a) result(res) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -1062,7 +1062,7 @@ subroutine psb_d_base_get_diag(a,d,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then diff --git a/base/serial/f03/psb_s_base_mat_impl.f03 b/base/serial/f03/psb_s_base_mat_impl.f03 index 7ede8458..e17c7645 100644 --- a/base/serial/f03/psb_s_base_mat_impl.f03 +++ b/base/serial/f03/psb_s_base_mat_impl.f03 @@ -27,7 +27,7 @@ subroutine psb_s_base_cp_to_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -54,7 +54,7 @@ subroutine psb_s_base_cp_from_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -82,7 +82,7 @@ subroutine psb_s_base_cp_to_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -109,7 +109,7 @@ subroutine psb_s_base_cp_from_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -137,7 +137,7 @@ subroutine psb_s_base_mv_to_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -164,7 +164,7 @@ subroutine psb_s_base_mv_from_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -192,7 +192,7 @@ subroutine psb_s_base_mv_to_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -219,7 +219,7 @@ subroutine psb_s_base_mv_from_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -247,7 +247,7 @@ subroutine psb_s_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -283,7 +283,7 @@ subroutine psb_s_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -465,7 +465,7 @@ subroutine psb_s_base_transp_2mat(a,b) if (info == psb_success_) call tmp%transp() if (info == psb_success_) call a%mv_from_coo(tmp,info) class default - info = 700 + info = psb_err_missing_override_method_ end select if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt()) @@ -511,7 +511,7 @@ subroutine psb_s_base_transp_1mat(a) if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info /= psb_success_) then - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if @@ -569,7 +569,7 @@ subroutine psb_s_base_csmm(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -598,7 +598,7 @@ subroutine psb_s_base_csmv(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -628,7 +628,7 @@ subroutine psb_s_base_inner_cssm(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -657,7 +657,7 @@ subroutine psb_s_base_inner_cssv(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -975,7 +975,7 @@ subroutine psb_s_base_scals(d,a,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -1003,7 +1003,7 @@ subroutine psb_s_base_scal(d,a,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -1032,7 +1032,7 @@ function psb_s_base_csnmi(a) result(res) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -1062,7 +1062,7 @@ subroutine psb_s_base_get_diag(a,d,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then diff --git a/base/serial/f03/psb_z_base_mat_impl.f03 b/base/serial/f03/psb_z_base_mat_impl.f03 index 09c6e252..7a8403ba 100644 --- a/base/serial/f03/psb_z_base_mat_impl.f03 +++ b/base/serial/f03/psb_z_base_mat_impl.f03 @@ -27,7 +27,7 @@ subroutine psb_z_base_cp_to_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -54,7 +54,7 @@ subroutine psb_z_base_cp_from_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -82,7 +82,7 @@ subroutine psb_z_base_cp_to_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -109,7 +109,7 @@ subroutine psb_z_base_cp_from_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -137,7 +137,7 @@ subroutine psb_z_base_mv_to_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -164,7 +164,7 @@ subroutine psb_z_base_mv_from_coo(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -192,7 +192,7 @@ subroutine psb_z_base_mv_to_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -219,7 +219,7 @@ subroutine psb_z_base_mv_from_fmt(a,b,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -247,7 +247,7 @@ subroutine psb_z_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -283,7 +283,7 @@ subroutine psb_z_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -465,7 +465,7 @@ subroutine psb_z_base_transp_2mat(a,b) if (info == psb_success_) call tmp%transp() if (info == psb_success_) call a%mv_from_coo(tmp,info) class default - info = 700 + info = psb_err_missing_override_method_ end select if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt()) @@ -511,7 +511,7 @@ subroutine psb_z_base_transp_1mat(a) if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info /= psb_success_) then - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if @@ -569,7 +569,7 @@ subroutine psb_z_base_csmm(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -598,7 +598,7 @@ subroutine psb_z_base_csmv(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -628,7 +628,7 @@ subroutine psb_z_base_inner_cssm(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -657,7 +657,7 @@ subroutine psb_z_base_inner_cssv(alpha,a,x,beta,y,info,trans) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -975,7 +975,7 @@ subroutine psb_z_base_scals(d,a,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -1003,7 +1003,7 @@ subroutine psb_z_base_scal(d,a,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -1032,7 +1032,7 @@ function psb_z_base_csnmi(a) result(res) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then @@ -1062,7 +1062,7 @@ subroutine psb_z_base_get_diag(a,d,info) ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = 700 + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) if (err_act /= psb_act_ret_) then