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

Silence warnings uncovered by INTEL

Browse Source
development
sfilippone 4 days ago
parent 329a295315
commit 701f297163
13 changed files with 94 additions and 238 deletions
Show Stats Download Patch File Download Diff File

155
base/modules/desc/psb_indx_map_mod.F90
Unescape Escape View File

@ -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))

36
base/serial/impl/psb_base_mat_impl.f90
Unescape Escape View File

@ -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

30
base/serial/impl/psb_c_base_mat_impl.F90
Unescape Escape View File

@ -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

30
base/serial/impl/psb_d_base_mat_impl.F90
Unescape Escape View File

@ -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

30
base/serial/impl/psb_s_base_mat_impl.F90
Unescape Escape View File

@ -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

30
base/serial/impl/psb_z_base_mat_impl.F90
Unescape Escape View File

@ -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

3
base/serial/psi_c_serial_impl.F90
Unescape Escape View File

@ -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

3
base/serial/psi_d_serial_impl.F90
Unescape Escape View File

@ -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

3
base/serial/psi_e_serial_impl.F90
Unescape Escape View File

@ -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

3
base/serial/psi_i2_serial_impl.F90
Unescape Escape View File

@ -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

3
base/serial/psi_m_serial_impl.F90
Unescape Escape View File

@ -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

3
base/serial/psi_s_serial_impl.F90
Unescape Escape View File

@ -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

3
base/serial/psi_z_serial_impl.F90
Unescape Escape View File

@ -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

Write Preview
Loading…
Cancel
Save