mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-19 12:22:10 +00:00
psblas3:
base/comm/psb_cgather.f90 base/comm/psb_chalo.f90 base/comm/psb_covrl.f90 base/comm/psb_cscatter.F90 base/comm/psb_cspgather.F90 base/comm/psb_dgather.f90 base/comm/psb_dhalo.f90 base/comm/psb_dovrl.f90 base/comm/psb_dscatter.F90 base/comm/psb_dspgather.F90 base/comm/psb_igather.f90 base/comm/psb_ihalo.f90 base/comm/psb_iovrl.f90 base/comm/psb_iscatter.F90 base/comm/psb_sgather.f90 base/comm/psb_shalo.f90 base/comm/psb_sovrl.f90 base/comm/psb_sscatter.F90 base/comm/psb_sspgather.F90 base/comm/psb_zgather.f90 base/comm/psb_zhalo.f90 base/comm/psb_zovrl.f90 base/comm/psb_zscatter.F90 base/comm/psb_zspgather.F90 base/modules/psb_c_base_mat_mod.f90 base/modules/psb_c_linmap_mod.f90 base/modules/psb_check_mod.f90 base/modules/psb_d_base_mat_mod.f90 base/modules/psb_d_linmap_mod.f90 base/modules/psb_desc_mod.F90 base/modules/psb_gen_block_map_mod.f90 base/modules/psb_glist_map_mod.f90 base/modules/psb_hash_map_mod.f90 base/modules/psb_indx_map_mod.f90 base/modules/psb_list_map_mod.f90 base/modules/psb_realloc_mod.F90 base/modules/psb_repl_map_mod.f90 base/modules/psb_s_base_mat_mod.f90 base/modules/psb_s_linmap_mod.f90 base/modules/psb_serial_mod.f90 base/modules/psb_z_base_mat_mod.f90 base/modules/psb_z_linmap_mod.f90 base/serial/impl/psb_c_base_mat_impl.F90 base/serial/impl/psb_d_base_mat_impl.F90 base/serial/impl/psb_s_base_mat_impl.F90 base/serial/impl/psb_z_base_mat_impl.F90 New error handling
This commit is contained in:
Salvatore Filippone
@@ -153,7 +153,7 @@ module psb_c_base_mat_mod
|
||||
procedure, pass(a) :: mv_from_coo => psb_c_mv_coo_from_coo
|
||||
procedure, pass(a) :: mv_to_fmt => psb_c_mv_coo_to_fmt
|
||||
procedure, pass(a) :: mv_from_fmt => psb_c_mv_coo_from_fmt
|
||||
procedure, pass(a) :: csput_a => psb_c_coo_csput_a
|
||||
procedure, pass(a) :: csput_a => psb_c_coo_csput_a
|
||||
procedure, pass(a) :: get_diag => psb_c_coo_get_diag
|
||||
procedure, pass(a) :: csgetrow => psb_c_coo_csgetrow
|
||||
procedure, pass(a) :: csgetptn => psb_c_coo_csgetptn
|
||||
|
||||
@@ -247,10 +247,9 @@ contains
|
||||
ierr(1) = 2
|
||||
info = psb_err_missing_override_method_
|
||||
call psb_errpush(info,name,i_err=ierr)
|
||||
call psb_get_erraction(err_act)
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_erractionsave(err_act)
|
||||
|
||||
call psb_error_handler(err_act)
|
||||
end select
|
||||
|
||||
|
||||
|
||||
@@ -162,13 +162,8 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
return
|
||||
|
||||
end subroutine psb_chkvect
|
||||
@@ -282,13 +277,8 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
return
|
||||
|
||||
end subroutine psb_chkglobvect
|
||||
@@ -423,13 +413,8 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
return
|
||||
end subroutine psb_chkmat
|
||||
|
||||
|
||||
@@ -153,7 +153,7 @@ module psb_d_base_mat_mod
|
||||
procedure, pass(a) :: mv_from_coo => psb_d_mv_coo_from_coo
|
||||
procedure, pass(a) :: mv_to_fmt => psb_d_mv_coo_to_fmt
|
||||
procedure, pass(a) :: mv_from_fmt => psb_d_mv_coo_from_fmt
|
||||
procedure, pass(a) :: csput_a => psb_d_coo_csput_a
|
||||
procedure, pass(a) :: csput_a => psb_d_coo_csput_a
|
||||
procedure, pass(a) :: get_diag => psb_d_coo_get_diag
|
||||
procedure, pass(a) :: csgetrow => psb_d_coo_csgetrow
|
||||
procedure, pass(a) :: csgetptn => psb_d_coo_csgetptn
|
||||
|
||||
@@ -247,10 +247,9 @@ contains
|
||||
ierr(1) = 2
|
||||
info = psb_err_missing_override_method_
|
||||
call psb_errpush(info,name,i_err=ierr)
|
||||
call psb_get_erraction(err_act)
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_erractionsave(err_act)
|
||||
|
||||
call psb_error_handler(err_act)
|
||||
end select
|
||||
|
||||
|
||||
|
||||
+46
-138
@@ -672,15 +672,11 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
|
||||
if (err_act == psb_act_ret_) then
|
||||
return
|
||||
else
|
||||
call psb_error(ictxt)
|
||||
end if
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
|
||||
end subroutine psb_cd_get_list
|
||||
|
||||
|
||||
@@ -752,15 +748,10 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
if (err_act == psb_act_ret_) then
|
||||
return
|
||||
else
|
||||
call psb_error(ictxt)
|
||||
end if
|
||||
return
|
||||
|
||||
end subroutine psb_cd_v_get_list
|
||||
|
||||
!
|
||||
@@ -792,18 +783,8 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
|
||||
if (err_act == psb_act_ret_) then
|
||||
return
|
||||
else
|
||||
if (ictxt == -1) then
|
||||
call psb_error()
|
||||
else
|
||||
call psb_error(ictxt)
|
||||
end if
|
||||
end if
|
||||
9999 call psb_error_handler(err_act)
|
||||
return
|
||||
|
||||
end subroutine psb_cdfree
|
||||
@@ -944,15 +925,10 @@ contains
|
||||
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
if (err_act == psb_act_ret_) then
|
||||
return
|
||||
else
|
||||
call psb_error()
|
||||
end if
|
||||
return
|
||||
|
||||
end subroutine psb_cdtransfer
|
||||
@@ -1053,14 +1029,8 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
9999 call psb_error_handler(ictxt,err_act)
|
||||
|
||||
if (err_act == psb_act_ret_) then
|
||||
return
|
||||
else
|
||||
call psb_error(ictxt)
|
||||
end if
|
||||
return
|
||||
|
||||
end subroutine psb_cd_clone
|
||||
@@ -1159,13 +1129,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error(ictxt)
|
||||
return
|
||||
end if
|
||||
Return
|
||||
9999 call psb_error_handler(ictxt,err_act)
|
||||
|
||||
return
|
||||
|
||||
end Subroutine psb_cd_get_recv_idx
|
||||
|
||||
@@ -1208,14 +1174,11 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
Return
|
||||
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
|
||||
end subroutine cd_l2gs1
|
||||
|
||||
subroutine cd_l2gs2(idxin,idxout,desc,info,mask,owned)
|
||||
@@ -1248,14 +1211,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
Return
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
|
||||
end subroutine cd_l2gs2
|
||||
|
||||
@@ -1288,13 +1246,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
Return
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
|
||||
end subroutine cd_l2gv1
|
||||
|
||||
@@ -1327,13 +1281,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
Return
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
|
||||
end subroutine cd_l2gv2
|
||||
|
||||
@@ -1366,13 +1316,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
Return
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
|
||||
end subroutine cd_g2ls1
|
||||
|
||||
@@ -1406,14 +1352,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
Return
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
|
||||
end subroutine cd_g2ls2
|
||||
|
||||
@@ -1446,14 +1387,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
Return
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
|
||||
end subroutine cd_g2lv1
|
||||
|
||||
@@ -1488,14 +1424,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
Return
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
|
||||
end subroutine cd_g2lv2
|
||||
|
||||
@@ -1529,14 +1460,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
Return
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
|
||||
end subroutine cd_g2ls1_ins
|
||||
|
||||
@@ -1571,14 +1497,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
Return
|
||||
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
|
||||
end subroutine cd_g2ls2_ins
|
||||
|
||||
@@ -1613,14 +1534,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
Return
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
|
||||
end subroutine cd_g2lv1_ins
|
||||
|
||||
@@ -1655,13 +1571,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
Return
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
|
||||
end subroutine cd_g2lv2_ins
|
||||
|
||||
@@ -1694,13 +1606,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act == psb_act_abort_) then
|
||||
call psb_error()
|
||||
return
|
||||
end if
|
||||
Return
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
|
||||
end subroutine cd_fnd_owner
|
||||
|
||||
|
||||
@@ -1170,12 +1170,10 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
return
|
||||
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
end subroutine block_clone
|
||||
|
||||
|
||||
@@ -1222,11 +1220,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
end subroutine block_reinit
|
||||
|
||||
@@ -1270,11 +1266,9 @@ contains
|
||||
!!$ call psb_erractionrestore(err_act)
|
||||
!!$ return
|
||||
!!$
|
||||
!!$9999 continue
|
||||
!!$ call psb_erractionrestore(err_act)
|
||||
!!$ if (err_act /= psb_act_ret_) then
|
||||
!!$ call psb_error()
|
||||
!!$ end if
|
||||
!!$
|
||||
!!$9999 call psb_error_handler(err_act)
|
||||
!!$
|
||||
!!$ return
|
||||
!!$ end subroutine block_reinit
|
||||
!!$
|
||||
|
||||
@@ -241,11 +241,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
end subroutine glist_clone
|
||||
|
||||
|
||||
@@ -715,14 +715,8 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
9999 call psb_error_handler(ictxt,err_act)
|
||||
|
||||
if (err_act == psb_act_ret_) then
|
||||
return
|
||||
else
|
||||
call psb_error(ictxt)
|
||||
end if
|
||||
return
|
||||
|
||||
end subroutine hash_g2lv1_ins
|
||||
@@ -1421,12 +1415,10 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
return
|
||||
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
end subroutine hash_clone
|
||||
|
||||
|
||||
@@ -1485,7 +1477,7 @@ contains
|
||||
call idxmap%g2lip_ins(idx(nr+1:nc),info,lidx=lidx(nr+1:nc))
|
||||
end if
|
||||
|
||||
|
||||
|
||||
if (info /= psb_success_) then
|
||||
info = psb_err_from_subroutine_
|
||||
call psb_errpush(info,name)
|
||||
@@ -1494,11 +1486,9 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
end subroutine hash_reinit
|
||||
|
||||
|
||||
@@ -462,9 +462,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_error_handler(err_act)
|
||||
return
|
||||
|
||||
end subroutine base_l2gs1
|
||||
@@ -490,10 +488,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
return
|
||||
call psb_error_handler(err_act)
|
||||
|
||||
end subroutine base_l2gs2
|
||||
|
||||
@@ -517,9 +512,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_error_handler(err_act)
|
||||
return
|
||||
end subroutine base_l2gv1
|
||||
|
||||
@@ -543,9 +536,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_error_handler(err_act)
|
||||
return
|
||||
|
||||
end subroutine base_l2gv2
|
||||
@@ -570,9 +561,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_error_handler(err_act)
|
||||
return
|
||||
|
||||
end subroutine base_g2ls1
|
||||
@@ -598,9 +587,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_error_handler(err_act)
|
||||
return
|
||||
|
||||
end subroutine base_g2ls2
|
||||
@@ -625,9 +612,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_error_handler(err_act)
|
||||
return
|
||||
|
||||
end subroutine base_g2lv1
|
||||
@@ -653,9 +638,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_error_handler(err_act)
|
||||
return
|
||||
|
||||
|
||||
@@ -682,9 +665,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_error_handler(err_act)
|
||||
return
|
||||
|
||||
end subroutine base_g2ls1_ins
|
||||
@@ -710,9 +691,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_error_handler(err_act)
|
||||
return
|
||||
|
||||
end subroutine base_g2ls2_ins
|
||||
@@ -738,9 +717,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_error_handler(err_act)
|
||||
return
|
||||
|
||||
end subroutine base_g2lv1_ins
|
||||
@@ -766,9 +743,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_error_handler(err_act)
|
||||
return
|
||||
|
||||
end subroutine base_g2lv2_ins
|
||||
@@ -791,9 +766,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_error_handler(err_act)
|
||||
return
|
||||
|
||||
end subroutine base_asb
|
||||
@@ -849,9 +822,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_error_handler(err_act)
|
||||
return
|
||||
end subroutine base_init_vl
|
||||
|
||||
@@ -875,9 +846,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_error_handler(err_act)
|
||||
return
|
||||
end subroutine base_clone
|
||||
|
||||
@@ -901,9 +870,7 @@ contains
|
||||
call psb_errpush(psb_err_missing_override_method_,&
|
||||
& name,a_err=idxmap%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_error_handler(err_act)
|
||||
return
|
||||
end subroutine base_reinit
|
||||
|
||||
|
||||
@@ -698,11 +698,8 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
end subroutine list_clone
|
||||
|
||||
|
||||
+128
-397
File diff suppressed because it is too large
Load Diff
@@ -798,11 +798,8 @@ contains
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
call psb_erractionrestore(err_act)
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
9999 call psb_error_handler(err_act)
|
||||
|
||||
return
|
||||
end subroutine repl_clone
|
||||
|
||||
|
||||
@@ -153,7 +153,7 @@ module psb_s_base_mat_mod
|
||||
procedure, pass(a) :: mv_from_coo => psb_s_mv_coo_from_coo
|
||||
procedure, pass(a) :: mv_to_fmt => psb_s_mv_coo_to_fmt
|
||||
procedure, pass(a) :: mv_from_fmt => psb_s_mv_coo_from_fmt
|
||||
procedure, pass(a) :: csput_a => psb_s_coo_csput_a
|
||||
procedure, pass(a) :: csput_a => psb_s_coo_csput_a
|
||||
procedure, pass(a) :: get_diag => psb_s_coo_get_diag
|
||||
procedure, pass(a) :: csgetrow => psb_s_coo_csgetrow
|
||||
procedure, pass(a) :: csgetptn => psb_s_coo_csgetptn
|
||||
|
||||
@@ -247,10 +247,9 @@ contains
|
||||
ierr(1) = 2
|
||||
info = psb_err_missing_override_method_
|
||||
call psb_errpush(info,name,i_err=ierr)
|
||||
call psb_get_erraction(err_act)
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_erractionsave(err_act)
|
||||
|
||||
call psb_error_handler(err_act)
|
||||
end select
|
||||
|
||||
|
||||
|
||||
@@ -325,7 +325,6 @@ contains
|
||||
end do
|
||||
end if
|
||||
return
|
||||
return
|
||||
end subroutine zrot
|
||||
!
|
||||
!
|
||||
|
||||
@@ -153,7 +153,7 @@ module psb_z_base_mat_mod
|
||||
procedure, pass(a) :: mv_from_coo => psb_z_mv_coo_from_coo
|
||||
procedure, pass(a) :: mv_to_fmt => psb_z_mv_coo_to_fmt
|
||||
procedure, pass(a) :: mv_from_fmt => psb_z_mv_coo_from_fmt
|
||||
procedure, pass(a) :: csput_a => psb_z_coo_csput_a
|
||||
procedure, pass(a) :: csput_a => psb_z_coo_csput_a
|
||||
procedure, pass(a) :: get_diag => psb_z_coo_get_diag
|
||||
procedure, pass(a) :: csgetrow => psb_z_coo_csgetrow
|
||||
procedure, pass(a) :: csgetptn => psb_z_coo_csgetptn
|
||||
|
||||
@@ -247,10 +247,9 @@ contains
|
||||
ierr(1) = 2
|
||||
info = psb_err_missing_override_method_
|
||||
call psb_errpush(info,name,i_err=ierr)
|
||||
call psb_get_erraction(err_act)
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
call psb_erractionsave(err_act)
|
||||
|
||||
call psb_error_handler(err_act)
|
||||
end select
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user