fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
psb_base_mat_impl.f03
 psb_c_base_mat_impl.f03
 psb_d_base_mat_impl.f03
 psb_s_base_mat_impl.f03
 psb_z_base_mat_impl.f03

New symbolic name for error 700
psblas3-type-indexed
Salvatore Filippone 15 years ago
parent dcaf505b77
commit 3fc1495f39
5 changed files with 92 additions and 92 deletions
Show Stats Download Patch File Download Diff File

24
base/serial/f03/psb_base_mat_impl.f03
Unescape Escape View File

@ -15,7 +15,7 @@ function psb_base_get_nz_row(idx,a) result(res)
! This is the base version. If we get here ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! 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 if (err_act /= psb_act_ret_) then
call psb_error() call psb_error()
@ -40,7 +40,7 @@ function psb_base_get_nzeros(a) result(res)
! This is the base version. If we get here ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! 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 if (err_act /= psb_act_ret_) then
call psb_error() call psb_error()
@ -65,7 +65,7 @@ function psb_base_get_size(a) result(res)
! This is the base version. If we get here ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! 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 if (err_act /= psb_act_ret_) then
call psb_error() call psb_error()
@ -87,11 +87,11 @@ subroutine psb_base_reinit(a,clear)
logical, parameter :: debug=.false. logical, parameter :: debug=.false.
call psb_get_erraction(err_act) call psb_get_erraction(err_act)
info = 700 info = psb_err_missing_override_method_
! This is the base version. If we get here ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! 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 if (err_act /= psb_act_ret_) then
call psb_error() call psb_error()
@ -117,11 +117,11 @@ subroutine psb_base_sparse_print(iout,a,iv,eirs,eics,head,ivr,ivc)
logical, parameter :: debug=.false. logical, parameter :: debug=.false.
call psb_get_erraction(err_act) call psb_get_erraction(err_act)
info = 700 info = psb_err_missing_override_method_
! This is the base version. If we get here ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! 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 if (err_act /= psb_act_ret_) then
call psb_error() 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! 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 if (err_act /= psb_act_ret_) then
call psb_error() call psb_error()
@ -282,7 +282,7 @@ subroutine psb_base_reallocate_nz(nz,a)
! This is the base version. If we get here ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! 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 if (err_act /= psb_act_ret_) then
call psb_error() call psb_error()
@ -304,7 +304,7 @@ subroutine psb_base_free(a)
! This is the base version. If we get here ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! 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 if (err_act /= psb_act_ret_) then
call psb_error() call psb_error()
@ -326,7 +326,7 @@ subroutine psb_base_trim(a)
! This is the base version. If we get here ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! 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 if (err_act /= psb_act_ret_) then
call psb_error() call psb_error()

40
base/serial/f03/psb_c_base_mat_impl.f03
Unescape Escape View File

@ -27,7 +27,7 @@ subroutine psb_c_base_cp_to_coo(a,b,info)
! This is the base version. If we get here ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 tmp%transp()
if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info == psb_success_) call a%mv_from_coo(tmp,info)
class default class default
info = 700 info = psb_err_missing_override_method_
end select end select
if (info /= psb_success_) then if (info /= psb_success_) then
call psb_errpush(info,name,a_err=b%get_fmt()) 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_) call a%mv_from_coo(tmp,info)
if (info /= psb_success_) then if (info /= psb_success_) then
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
goto 9999 goto 9999
end if 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then if (err_act /= psb_act_ret_) then

40
base/serial/f03/psb_d_base_mat_impl.f03
Unescape Escape View File

@ -27,7 +27,7 @@ subroutine psb_d_base_cp_to_coo(a,b,info)
! This is the base version. If we get here ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 tmp%transp()
if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info == psb_success_) call a%mv_from_coo(tmp,info)
class default class default
info = 700 info = psb_err_missing_override_method_
end select end select
if (info /= psb_success_) then if (info /= psb_success_) then
call psb_errpush(info,name,a_err=b%get_fmt()) 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_) call a%mv_from_coo(tmp,info)
if (info /= psb_success_) then if (info /= psb_success_) then
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
goto 9999 goto 9999
end if 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then if (err_act /= psb_act_ret_) then

40
base/serial/f03/psb_s_base_mat_impl.f03
Unescape Escape View File

@ -27,7 +27,7 @@ subroutine psb_s_base_cp_to_coo(a,b,info)
! This is the base version. If we get here ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 tmp%transp()
if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info == psb_success_) call a%mv_from_coo(tmp,info)
class default class default
info = 700 info = psb_err_missing_override_method_
end select end select
if (info /= psb_success_) then if (info /= psb_success_) then
call psb_errpush(info,name,a_err=b%get_fmt()) 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_) call a%mv_from_coo(tmp,info)
if (info /= psb_success_) then if (info /= psb_success_) then
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
goto 9999 goto 9999
end if 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then if (err_act /= psb_act_ret_) then

40
base/serial/f03/psb_z_base_mat_impl.f03
Unescape Escape View File

@ -27,7 +27,7 @@ subroutine psb_z_base_cp_to_coo(a,b,info)
! This is the base version. If we get here ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 tmp%transp()
if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info == psb_success_) call a%mv_from_coo(tmp,info)
class default class default
info = 700 info = psb_err_missing_override_method_
end select end select
if (info /= psb_success_) then if (info /= psb_success_) then
call psb_errpush(info,name,a_err=b%get_fmt()) 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_) call a%mv_from_coo(tmp,info)
if (info /= psb_success_) then if (info /= psb_success_) then
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
goto 9999 goto 9999
end if 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then 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 ! This is the base version. If we get here
! it means the derived class is incomplete, ! it means the derived class is incomplete,
! so we throw an error. ! so we throw an error.
info = 700 info = psb_err_missing_override_method_
call psb_errpush(info,name,a_err=a%get_fmt()) call psb_errpush(info,name,a_err=a%get_fmt())
if (err_act /= psb_act_ret_) then if (err_act /= psb_act_ret_) then

Write Preview
Loading…
Cancel
Save