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

psblas3:

Browse Source 
krylov/psb_c_krylov_conv_mod.f90
 krylov/psb_cbicg.f90
 krylov/psb_ccg.f90
 krylov/psb_ccgs.f90
 krylov/psb_ccgstab.f90
 krylov/psb_ccgstabl.f90
 krylov/psb_ckrylov.f90
 krylov/psb_crgmres.f90
 krylov/psb_d_krylov_conv_mod.f90
 krylov/psb_dbicg.f90
 krylov/psb_dcg.f90
 krylov/psb_dcgs.f90
 krylov/psb_dcgstab.f90
 krylov/psb_dcgstabl.f90
 krylov/psb_dkrylov.f90
 krylov/psb_drgmres.f90
 krylov/psb_s_krylov_conv_mod.f90
 krylov/psb_sbicg.f90
 krylov/psb_scg.f90
 krylov/psb_scgs.f90
 krylov/psb_scgstab.f90
 krylov/psb_scgstabl.f90
 krylov/psb_skrylov.f90
 krylov/psb_srgmres.f90
 krylov/psb_z_krylov_conv_mod.f90
 krylov/psb_zbicg.f90
 krylov/psb_zcg.f90
 krylov/psb_zcgs.f90
 krylov/psb_zcgstab.f90
 krylov/psb_zcgstabl.f90
 krylov/psb_zkrylov.f90
 krylov/psb_zrgmres.f90
 prec/impl/psb_c_bjacprec_impl.f90
 prec/impl/psb_c_diagprec_impl.f90
 prec/impl/psb_c_nullprec_impl.f90
 prec/impl/psb_c_prec_type_impl.f90
 prec/impl/psb_cprecbld.f90
 prec/impl/psb_d_bjacprec_impl.f90
 prec/impl/psb_d_diagprec_impl.f90
 prec/impl/psb_d_nullprec_impl.f90
 prec/impl/psb_d_prec_type_impl.f90
 prec/impl/psb_dprecbld.f90
 prec/impl/psb_s_bjacprec_impl.f90
 prec/impl/psb_s_diagprec_impl.f90
 prec/impl/psb_s_nullprec_impl.f90
 prec/impl/psb_s_prec_type_impl.f90
 prec/impl/psb_sprecbld.f90
 prec/impl/psb_z_bjacprec_impl.f90
 prec/impl/psb_z_diagprec_impl.f90
 prec/impl/psb_z_nullprec_impl.f90
 prec/impl/psb_z_prec_type_impl.f90
 prec/impl/psb_zprecbld.f90
 prec/psb_c_bjacprec.f90
 prec/psb_c_diagprec.f90
 prec/psb_c_nullprec.f90
 prec/psb_c_prec_type.f90
 prec/psb_d_bjacprec.f90
 prec/psb_d_diagprec.f90
 prec/psb_d_nullprec.f90
 prec/psb_d_prec_type.f90
 prec/psb_s_bjacprec.f90
 prec/psb_s_diagprec.f90
 prec/psb_s_nullprec.f90
 prec/psb_s_prec_type.f90
 prec/psb_z_bjacprec.f90
 prec/psb_z_diagprec.f90
 prec/psb_z_nullprec.f90
 prec/psb_z_prec_type.f90

New error handling
psblas3-accel
Salvatore Filippone 10 years ago
parent b8ed1439d0
commit a94ab3d22f
68 changed files with 360 additions and 1032 deletions
Show Stats Download Patch File Download Diff File

36
krylov/psb_c_krylov_conv_mod.f90
Unescape Escape View File

@ -109,12 +109,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
9999 call psb_error_handler(ictxt,err_act)
return
end subroutine psb_c_init_conv
@ -184,12 +181,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
9999 call psb_error_handler(ictxt,err_act)
return
end function psb_c_check_conv
@ -255,12 +249,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
9999 call psb_error_handler(ictxt,err_act)
return
end subroutine psb_c_init_conv_vect
@ -331,12 +322,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
9999 call psb_error_handler(ictxt,err_act)
return
end function psb_c_check_conv_vect

7
krylov/psb_cbicg.f90
Unescape Escape View File

@ -328,12 +328,7 @@ subroutine psb_cbicg_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_cbicg_vect

7
krylov/psb_ccg.f90
Unescape Escape View File

@ -281,12 +281,7 @@ subroutine psb_ccg_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_ccg_vect

7
krylov/psb_ccgs.f90
Unescape Escape View File

@ -319,12 +319,7 @@ Subroutine psb_ccgs_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
End Subroutine psb_ccgs_vect

7
krylov/psb_ccgstab.f90
Unescape Escape View File

@ -385,12 +385,7 @@ Subroutine psb_ccgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
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
9999 call psb_error_handler(err_act)
return
End Subroutine psb_ccgstab_vect

7
krylov/psb_ccgstabl.f90
Unescape Escape View File

@ -411,12 +411,7 @@ Subroutine psb_ccgstabl_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
End Subroutine psb_ccgstabl_vect

9
krylov/psb_ckrylov.f90
Unescape Escape View File

@ -235,12 +235,9 @@ Subroutine psb_ckrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(ictxt,err_act)
return
end subroutine psb_ckrylov_vect

7
krylov/psb_crgmres.f90
Unescape Escape View File

@ -469,12 +469,7 @@ subroutine psb_crgmres_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_crgmres_vect

36
krylov/psb_d_krylov_conv_mod.f90
Unescape Escape View File

@ -109,12 +109,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
9999 call psb_error_handler(ictxt,err_act)
return
end subroutine psb_d_init_conv
@ -184,12 +181,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
9999 call psb_error_handler(ictxt,err_act)
return
end function psb_d_check_conv
@ -255,12 +249,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
9999 call psb_error_handler(ictxt,err_act)
return
end subroutine psb_d_init_conv_vect
@ -331,12 +322,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
9999 call psb_error_handler(ictxt,err_act)
return
end function psb_d_check_conv_vect

7
krylov/psb_dbicg.f90
Unescape Escape View File

@ -328,12 +328,7 @@ subroutine psb_dbicg_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_dbicg_vect

7
krylov/psb_dcg.f90
Unescape Escape View File

@ -281,12 +281,7 @@ subroutine psb_dcg_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_dcg_vect

7
krylov/psb_dcgs.f90
Unescape Escape View File

@ -319,12 +319,7 @@ Subroutine psb_dcgs_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
End Subroutine psb_dcgs_vect

7
krylov/psb_dcgstab.f90
Unescape Escape View File

@ -385,12 +385,7 @@ Subroutine psb_dcgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
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
9999 call psb_error_handler(err_act)
return
End Subroutine psb_dcgstab_vect

7
krylov/psb_dcgstabl.f90
Unescape Escape View File

@ -411,12 +411,7 @@ Subroutine psb_dcgstabl_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
End Subroutine psb_dcgstabl_vect

9
krylov/psb_dkrylov.f90
Unescape Escape View File

@ -235,12 +235,9 @@ Subroutine psb_dkrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(ictxt,err_act)
return
end subroutine psb_dkrylov_vect

7
krylov/psb_drgmres.f90
Unescape Escape View File

@ -469,12 +469,7 @@ subroutine psb_drgmres_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_drgmres_vect

36
krylov/psb_s_krylov_conv_mod.f90
Unescape Escape View File

@ -109,12 +109,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
9999 call psb_error_handler(ictxt,err_act)
return
end subroutine psb_s_init_conv
@ -184,12 +181,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
9999 call psb_error_handler(ictxt,err_act)
return
end function psb_s_check_conv
@ -255,12 +249,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
9999 call psb_error_handler(ictxt,err_act)
return
end subroutine psb_s_init_conv_vect
@ -331,12 +322,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
9999 call psb_error_handler(ictxt,err_act)
return
end function psb_s_check_conv_vect

7
krylov/psb_sbicg.f90
Unescape Escape View File

@ -328,12 +328,7 @@ subroutine psb_sbicg_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_sbicg_vect

7
krylov/psb_scg.f90
Unescape Escape View File

@ -281,12 +281,7 @@ subroutine psb_scg_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_scg_vect

7
krylov/psb_scgs.f90
Unescape Escape View File

@ -319,12 +319,7 @@ Subroutine psb_scgs_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
End Subroutine psb_scgs_vect

7
krylov/psb_scgstab.f90
Unescape Escape View File

@ -385,12 +385,7 @@ Subroutine psb_scgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
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
9999 call psb_error_handler(err_act)
return
End Subroutine psb_scgstab_vect

7
krylov/psb_scgstabl.f90
Unescape Escape View File

@ -411,12 +411,7 @@ Subroutine psb_scgstabl_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
End Subroutine psb_scgstabl_vect

9
krylov/psb_skrylov.f90
Unescape Escape View File

@ -235,12 +235,9 @@ Subroutine psb_skrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(ictxt,err_act)
return
end subroutine psb_skrylov_vect

7
krylov/psb_srgmres.f90
Unescape Escape View File

@ -469,12 +469,7 @@ subroutine psb_srgmres_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_srgmres_vect

36
krylov/psb_z_krylov_conv_mod.f90
Unescape Escape View File

@ -109,12 +109,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
9999 call psb_error_handler(ictxt,err_act)
return
end subroutine psb_z_init_conv
@ -184,12 +181,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
9999 call psb_error_handler(ictxt,err_act)
return
end function psb_z_check_conv
@ -255,12 +249,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
9999 call psb_error_handler(ictxt,err_act)
return
end subroutine psb_z_init_conv_vect
@ -331,12 +322,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
9999 call psb_error_handler(ictxt,err_act)
return
end function psb_z_check_conv_vect

7
krylov/psb_zbicg.f90
Unescape Escape View File

@ -328,12 +328,7 @@ subroutine psb_zbicg_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_zbicg_vect

7
krylov/psb_zcg.f90
Unescape Escape View File

@ -281,12 +281,7 @@ subroutine psb_zcg_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_zcg_vect

7
krylov/psb_zcgs.f90
Unescape Escape View File

@ -319,12 +319,7 @@ Subroutine psb_zcgs_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
End Subroutine psb_zcgs_vect

7
krylov/psb_zcgstab.f90
Unescape Escape View File

@ -385,12 +385,7 @@ Subroutine psb_zcgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
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
9999 call psb_error_handler(err_act)
return
End Subroutine psb_zcgstab_vect

7
krylov/psb_zcgstabl.f90
Unescape Escape View File

@ -411,12 +411,7 @@ Subroutine psb_zcgstabl_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
End Subroutine psb_zcgstabl_vect

9
krylov/psb_zkrylov.f90
Unescape Escape View File

@ -235,12 +235,9 @@ Subroutine psb_zkrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(ictxt,err_act)
return
end subroutine psb_zkrylov_vect

7
krylov/psb_zrgmres.f90
Unescape Escape View File

@ -469,12 +469,7 @@ subroutine psb_zrgmres_vect(a,prec,b,x,eps,desc_a,info,&
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_zrgmres_vect

37
prec/impl/psb_c_bjacprec_impl.f90
Unescape Escape View File

@ -218,14 +218,9 @@ subroutine psb_c_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
9999 continue
call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
call psb_error_handler(err_act)
return
end subroutine psb_c_bjac_apply_vect
subroutine psb_c_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
@ -372,14 +367,9 @@ subroutine psb_c_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
9999 continue
call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
call psb_error_handler(err_act)
return
end subroutine psb_c_bjac_apply
subroutine psb_c_bjac_precinit(prec,info)
@ -411,13 +401,9 @@ subroutine psb_c_bjac_precinit(prec,info)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_bjac_precinit
@ -566,14 +552,8 @@ subroutine psb_c_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_bjac_precbld
subroutine psb_c_bjac_precseti(prec,what,val,info)
@ -626,11 +606,6 @@ subroutine psb_c_bjac_precseti(prec,what,val,info)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_bjac_precseti

21
prec/impl/psb_c_diagprec_impl.f90
Unescape Escape View File

@ -123,12 +123,7 @@ subroutine psb_c_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_diag_apply_vect
@ -224,12 +219,7 @@ subroutine psb_c_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_diag_apply
@ -290,12 +280,7 @@ subroutine psb_c_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_diag_precbld

14
prec/impl/psb_c_nullprec_impl.f90
Unescape Escape View File

@ -74,12 +74,7 @@ subroutine psb_c_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_null_apply_vect
@ -127,12 +122,7 @@ subroutine psb_c_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_null_apply

27
prec/impl/psb_c_prec_type_impl.f90
Unescape Escape View File

@ -127,12 +127,7 @@ subroutine psb_c_apply2_vect(prec,x,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_apply2_vect
@ -204,12 +199,7 @@ subroutine psb_c_apply1_vect(prec,x,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_apply1_vect
@ -276,12 +266,7 @@ subroutine psb_c_apply2v(prec,x,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_apply2v
@ -342,11 +327,7 @@ subroutine psb_c_apply1v(prec,x,desc_data,info,trans)
9999 continue
call psb_errpush(info,name)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
call psb_error_handler(err_act)
return
end subroutine psb_c_apply1v

8
prec/impl/psb_cprecbld.f90
Unescape Escape View File

@ -88,14 +88,8 @@ subroutine psb_cprecbld(a,desc_a,p,info,upd,amold,afmt,vmold)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_cprecbld

37
prec/impl/psb_d_bjacprec_impl.f90
Unescape Escape View File

@ -218,14 +218,9 @@ subroutine psb_d_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
9999 continue
call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
call psb_error_handler(err_act)
return
end subroutine psb_d_bjac_apply_vect
subroutine psb_d_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
@ -372,14 +367,9 @@ subroutine psb_d_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
9999 continue
call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
call psb_error_handler(err_act)
return
end subroutine psb_d_bjac_apply
subroutine psb_d_bjac_precinit(prec,info)
@ -411,13 +401,9 @@ subroutine psb_d_bjac_precinit(prec,info)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_bjac_precinit
@ -566,14 +552,8 @@ subroutine psb_d_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_bjac_precbld
subroutine psb_d_bjac_precseti(prec,what,val,info)
@ -626,11 +606,6 @@ subroutine psb_d_bjac_precseti(prec,what,val,info)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_bjac_precseti

21
prec/impl/psb_d_diagprec_impl.f90
Unescape Escape View File

@ -123,12 +123,7 @@ subroutine psb_d_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_diag_apply_vect
@ -224,12 +219,7 @@ subroutine psb_d_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_diag_apply
@ -290,12 +280,7 @@ subroutine psb_d_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_diag_precbld

14
prec/impl/psb_d_nullprec_impl.f90
Unescape Escape View File

@ -74,12 +74,7 @@ subroutine psb_d_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_null_apply_vect
@ -127,12 +122,7 @@ subroutine psb_d_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_null_apply

27
prec/impl/psb_d_prec_type_impl.f90
Unescape Escape View File

@ -127,12 +127,7 @@ subroutine psb_d_apply2_vect(prec,x,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_apply2_vect
@ -204,12 +199,7 @@ subroutine psb_d_apply1_vect(prec,x,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_apply1_vect
@ -276,12 +266,7 @@ subroutine psb_d_apply2v(prec,x,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_apply2v
@ -342,11 +327,7 @@ subroutine psb_d_apply1v(prec,x,desc_data,info,trans)
9999 continue
call psb_errpush(info,name)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
call psb_error_handler(err_act)
return
end subroutine psb_d_apply1v

8
prec/impl/psb_dprecbld.f90
Unescape Escape View File

@ -88,14 +88,8 @@ subroutine psb_dprecbld(a,desc_a,p,info,upd,amold,afmt,vmold)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_dprecbld

37
prec/impl/psb_s_bjacprec_impl.f90
Unescape Escape View File

@ -218,14 +218,9 @@ subroutine psb_s_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
9999 continue
call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
call psb_error_handler(err_act)
return
end subroutine psb_s_bjac_apply_vect
subroutine psb_s_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
@ -372,14 +367,9 @@ subroutine psb_s_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
9999 continue
call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
call psb_error_handler(err_act)
return
end subroutine psb_s_bjac_apply
subroutine psb_s_bjac_precinit(prec,info)
@ -411,13 +401,9 @@ subroutine psb_s_bjac_precinit(prec,info)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_bjac_precinit
@ -566,14 +552,8 @@ subroutine psb_s_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_bjac_precbld
subroutine psb_s_bjac_precseti(prec,what,val,info)
@ -626,11 +606,6 @@ subroutine psb_s_bjac_precseti(prec,what,val,info)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_bjac_precseti

21
prec/impl/psb_s_diagprec_impl.f90
Unescape Escape View File

@ -123,12 +123,7 @@ subroutine psb_s_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_diag_apply_vect
@ -224,12 +219,7 @@ subroutine psb_s_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_diag_apply
@ -290,12 +280,7 @@ subroutine psb_s_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_diag_precbld

14
prec/impl/psb_s_nullprec_impl.f90
Unescape Escape View File

@ -74,12 +74,7 @@ subroutine psb_s_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_null_apply_vect
@ -127,12 +122,7 @@ subroutine psb_s_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_null_apply

27
prec/impl/psb_s_prec_type_impl.f90
Unescape Escape View File

@ -127,12 +127,7 @@ subroutine psb_s_apply2_vect(prec,x,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_apply2_vect
@ -204,12 +199,7 @@ subroutine psb_s_apply1_vect(prec,x,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_apply1_vect
@ -276,12 +266,7 @@ subroutine psb_s_apply2v(prec,x,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_apply2v
@ -342,11 +327,7 @@ subroutine psb_s_apply1v(prec,x,desc_data,info,trans)
9999 continue
call psb_errpush(info,name)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
call psb_error_handler(err_act)
return
end subroutine psb_s_apply1v

8
prec/impl/psb_sprecbld.f90
Unescape Escape View File

@ -88,14 +88,8 @@ subroutine psb_sprecbld(a,desc_a,p,info,upd,amold,afmt,vmold)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_sprecbld

37
prec/impl/psb_z_bjacprec_impl.f90
Unescape Escape View File

@ -218,14 +218,9 @@ subroutine psb_z_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
9999 continue
call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
call psb_error_handler(err_act)
return
end subroutine psb_z_bjac_apply_vect
subroutine psb_z_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
@ -372,14 +367,9 @@ subroutine psb_z_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
9999 continue
call psb_errpush(info,name,i_err=ierr,a_err=ch_err)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
call psb_error_handler(err_act)
return
end subroutine psb_z_bjac_apply
subroutine psb_z_bjac_precinit(prec,info)
@ -411,13 +401,9 @@ subroutine psb_z_bjac_precinit(prec,info)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_bjac_precinit
@ -566,14 +552,8 @@ subroutine psb_z_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_bjac_precbld
subroutine psb_z_bjac_precseti(prec,what,val,info)
@ -626,11 +606,6 @@ subroutine psb_z_bjac_precseti(prec,what,val,info)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_bjac_precseti

21
prec/impl/psb_z_diagprec_impl.f90
Unescape Escape View File

@ -123,12 +123,7 @@ subroutine psb_z_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_diag_apply_vect
@ -224,12 +219,7 @@ subroutine psb_z_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_diag_apply
@ -290,12 +280,7 @@ subroutine psb_z_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_diag_precbld

14
prec/impl/psb_z_nullprec_impl.f90
Unescape Escape View File

@ -74,12 +74,7 @@ subroutine psb_z_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_null_apply_vect
@ -127,12 +122,7 @@ subroutine psb_z_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_null_apply

27
prec/impl/psb_z_prec_type_impl.f90
Unescape Escape View File

@ -127,12 +127,7 @@ subroutine psb_z_apply2_vect(prec,x,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_apply2_vect
@ -204,12 +199,7 @@ subroutine psb_z_apply1_vect(prec,x,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_apply1_vect
@ -276,12 +266,7 @@ subroutine psb_z_apply2v(prec,x,y,desc_data,info,trans,work)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_apply2v
@ -342,11 +327,7 @@ subroutine psb_z_apply1v(prec,x,desc_data,info,trans)
9999 continue
call psb_errpush(info,name)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
call psb_error_handler(err_act)
return
end subroutine psb_z_apply1v

8
prec/impl/psb_zprecbld.f90
Unescape Escape View File

@ -88,14 +88,8 @@ subroutine psb_zprecbld(a,desc_a,p,info,upd,amold,afmt,vmold)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_zprecbld

32
prec/psb_c_bjacprec.f90
Unescape Escape View File

@ -134,8 +134,8 @@ module psb_c_bjacprec
contains
subroutine psb_c_bjac_precdescr(prec,iout)
Implicit None
use psb_error_mod
implicit none
class(psb_c_bjac_prec_type), intent(in) :: prec
integer(psb_ipk_), intent(in), optional :: iout
@ -166,12 +166,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_bjac_precdescr
@ -239,12 +235,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_bjac_precfree
@ -270,7 +262,7 @@ contains
if (info == psb_success_) deallocate(precout, stat=info)
end if
if (info == psb_success_) &
& allocate(psb_c_bjac_prec_type :: precout, stat=info)
& allocate(psb_c_bjac_prec_type :: precout, stat=info)
if (info /= 0) goto 9999
select type(pout => precout)
type is (psb_c_bjac_prec_type)
@ -289,7 +281,7 @@ contains
allocate(pout%dv,stat=info)
if (info == 0) call prec%dv%clone(pout%dv,info)
end if
class default
class default
info = psb_err_internal_error_
end select
if (info /= 0) goto 9999
@ -297,12 +289,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_bjac_clone

58
prec/psb_c_diagprec.f90
Unescape Escape View File

@ -114,7 +114,7 @@ contains
subroutine psb_c_diag_precinit(prec,info)
Implicit None
class(psb_c_diag_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act, nrow
@ -124,47 +124,39 @@ contains
info = psb_success_
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_diag_precinit
subroutine psb_c_diag_precfree(prec,info)
Implicit None
class(psb_c_diag_prec_type), intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act, nrow
character(len=20) :: name='c_diag_precset'
call psb_erractionsave(err_act)
info = psb_success_
if (allocated(prec%dv)) call prec%dv%free(info)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_diag_precfree
@ -182,7 +174,7 @@ contains
call psb_erractionsave(err_act)
info = psb_success_
if (present(iout)) then
iout_ = iout
else
@ -194,18 +186,14 @@ contains
call psb_erractionsave(err_act)
info = psb_success_
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_diag_precdescr
function psb_c_diag_sizeof(prec) result(val)
@ -247,7 +235,7 @@ contains
if (info == psb_success_) deallocate(precout, stat=info)
end if
if (info == psb_success_) &
& allocate(psb_c_diag_prec_type :: precout, stat=info)
& allocate(psb_c_diag_prec_type :: precout, stat=info)
if (info /= 0) goto 9999
select type(pout => precout)
type is (psb_c_diag_prec_type)
@ -258,7 +246,7 @@ contains
if (info == 0) call prec%dv%clone(pout%dv,info)
end if
if (info == 0) call psb_safe_ab_cpy(prec%d,pout%d,info)
class default
class default
info = psb_err_internal_error_
end select
if (info /= 0) goto 9999
@ -266,12 +254,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_diag_clone

40
prec/psb_c_nullprec.f90
Unescape Escape View File

@ -99,12 +99,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_null_precinit
@ -131,12 +127,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_null_precbld
@ -157,12 +149,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_null_precfree
@ -194,12 +182,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_null_precdescr
@ -295,12 +279,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_null_clone

24
prec/psb_c_prec_type.f90
Unescape Escape View File

@ -121,6 +121,8 @@ module psb_c_prec_type
contains
subroutine psb_cfile_prec_descr(p,iout)
use psb_base_mod
implicit none
type(psb_cprec_type), intent(in) :: p
integer(psb_ipk_), intent(in), optional :: iout
integer(psb_ipk_) :: iout_,info
@ -162,6 +164,8 @@ contains
subroutine psb_c_precfree(p,info)
use psb_base_mod
implicit none
type(psb_cprec_type), intent(inout) :: p
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: me, err_act,i
@ -178,16 +182,15 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_precfree
subroutine psb_c_prec_free(prec,info)
use psb_base_mod
implicit none
class(psb_cprec_type), intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: me, err_act,i
@ -208,13 +211,10 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_prec_free
function psb_cprec_sizeof(prec) result(val)

32
prec/psb_d_bjacprec.f90
Unescape Escape View File

@ -134,8 +134,8 @@ module psb_d_bjacprec
contains
subroutine psb_d_bjac_precdescr(prec,iout)
Implicit None
use psb_error_mod
implicit none
class(psb_d_bjac_prec_type), intent(in) :: prec
integer(psb_ipk_), intent(in), optional :: iout
@ -166,12 +166,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_bjac_precdescr
@ -239,12 +235,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_bjac_precfree
@ -270,7 +262,7 @@ contains
if (info == psb_success_) deallocate(precout, stat=info)
end if
if (info == psb_success_) &
& allocate(psb_d_bjac_prec_type :: precout, stat=info)
& allocate(psb_d_bjac_prec_type :: precout, stat=info)
if (info /= 0) goto 9999
select type(pout => precout)
type is (psb_d_bjac_prec_type)
@ -289,7 +281,7 @@ contains
allocate(pout%dv,stat=info)
if (info == 0) call prec%dv%clone(pout%dv,info)
end if
class default
class default
info = psb_err_internal_error_
end select
if (info /= 0) goto 9999
@ -297,12 +289,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_bjac_clone

58
prec/psb_d_diagprec.f90
Unescape Escape View File

@ -114,7 +114,7 @@ contains
subroutine psb_d_diag_precinit(prec,info)
Implicit None
class(psb_d_diag_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act, nrow
@ -124,47 +124,39 @@ contains
info = psb_success_
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_diag_precinit
subroutine psb_d_diag_precfree(prec,info)
Implicit None
class(psb_d_diag_prec_type), intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act, nrow
character(len=20) :: name='d_diag_precset'
call psb_erractionsave(err_act)
info = psb_success_
if (allocated(prec%dv)) call prec%dv%free(info)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_diag_precfree
@ -182,7 +174,7 @@ contains
call psb_erractionsave(err_act)
info = psb_success_
if (present(iout)) then
iout_ = iout
else
@ -194,18 +186,14 @@ contains
call psb_erractionsave(err_act)
info = psb_success_
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_diag_precdescr
function psb_d_diag_sizeof(prec) result(val)
@ -247,7 +235,7 @@ contains
if (info == psb_success_) deallocate(precout, stat=info)
end if
if (info == psb_success_) &
& allocate(psb_d_diag_prec_type :: precout, stat=info)
& allocate(psb_d_diag_prec_type :: precout, stat=info)
if (info /= 0) goto 9999
select type(pout => precout)
type is (psb_d_diag_prec_type)
@ -258,7 +246,7 @@ contains
if (info == 0) call prec%dv%clone(pout%dv,info)
end if
if (info == 0) call psb_safe_ab_cpy(prec%d,pout%d,info)
class default
class default
info = psb_err_internal_error_
end select
if (info /= 0) goto 9999
@ -266,12 +254,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_diag_clone

40
prec/psb_d_nullprec.f90
Unescape Escape View File

@ -99,12 +99,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_null_precinit
@ -131,12 +127,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_null_precbld
@ -157,12 +149,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_null_precfree
@ -194,12 +182,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_null_precdescr
@ -295,12 +279,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_null_clone

24
prec/psb_d_prec_type.f90
Unescape Escape View File

@ -121,6 +121,8 @@ module psb_d_prec_type
contains
subroutine psb_dfile_prec_descr(p,iout)
use psb_base_mod
implicit none
type(psb_dprec_type), intent(in) :: p
integer(psb_ipk_), intent(in), optional :: iout
integer(psb_ipk_) :: iout_,info
@ -162,6 +164,8 @@ contains
subroutine psb_d_precfree(p,info)
use psb_base_mod
implicit none
type(psb_dprec_type), intent(inout) :: p
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: me, err_act,i
@ -178,16 +182,15 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_precfree
subroutine psb_d_prec_free(prec,info)
use psb_base_mod
implicit none
class(psb_dprec_type), intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: me, err_act,i
@ -208,13 +211,10 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_prec_free
function psb_dprec_sizeof(prec) result(val)

32
prec/psb_s_bjacprec.f90
Unescape Escape View File

@ -134,8 +134,8 @@ module psb_s_bjacprec
contains
subroutine psb_s_bjac_precdescr(prec,iout)
Implicit None
use psb_error_mod
implicit none
class(psb_s_bjac_prec_type), intent(in) :: prec
integer(psb_ipk_), intent(in), optional :: iout
@ -166,12 +166,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_bjac_precdescr
@ -239,12 +235,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_bjac_precfree
@ -270,7 +262,7 @@ contains
if (info == psb_success_) deallocate(precout, stat=info)
end if
if (info == psb_success_) &
& allocate(psb_s_bjac_prec_type :: precout, stat=info)
& allocate(psb_s_bjac_prec_type :: precout, stat=info)
if (info /= 0) goto 9999
select type(pout => precout)
type is (psb_s_bjac_prec_type)
@ -289,7 +281,7 @@ contains
allocate(pout%dv,stat=info)
if (info == 0) call prec%dv%clone(pout%dv,info)
end if
class default
class default
info = psb_err_internal_error_
end select
if (info /= 0) goto 9999
@ -297,12 +289,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_bjac_clone

58
prec/psb_s_diagprec.f90
Unescape Escape View File

@ -114,7 +114,7 @@ contains
subroutine psb_s_diag_precinit(prec,info)
Implicit None
class(psb_s_diag_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act, nrow
@ -124,47 +124,39 @@ contains
info = psb_success_
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_diag_precinit
subroutine psb_s_diag_precfree(prec,info)
Implicit None
class(psb_s_diag_prec_type), intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act, nrow
character(len=20) :: name='s_diag_precset'
call psb_erractionsave(err_act)
info = psb_success_
if (allocated(prec%dv)) call prec%dv%free(info)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_diag_precfree
@ -182,7 +174,7 @@ contains
call psb_erractionsave(err_act)
info = psb_success_
if (present(iout)) then
iout_ = iout
else
@ -194,18 +186,14 @@ contains
call psb_erractionsave(err_act)
info = psb_success_
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_diag_precdescr
function psb_s_diag_sizeof(prec) result(val)
@ -247,7 +235,7 @@ contains
if (info == psb_success_) deallocate(precout, stat=info)
end if
if (info == psb_success_) &
& allocate(psb_s_diag_prec_type :: precout, stat=info)
& allocate(psb_s_diag_prec_type :: precout, stat=info)
if (info /= 0) goto 9999
select type(pout => precout)
type is (psb_s_diag_prec_type)
@ -258,7 +246,7 @@ contains
if (info == 0) call prec%dv%clone(pout%dv,info)
end if
if (info == 0) call psb_safe_ab_cpy(prec%d,pout%d,info)
class default
class default
info = psb_err_internal_error_
end select
if (info /= 0) goto 9999
@ -266,12 +254,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_diag_clone

40
prec/psb_s_nullprec.f90
Unescape Escape View File

@ -99,12 +99,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_null_precinit
@ -131,12 +127,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_null_precbld
@ -157,12 +149,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_null_precfree
@ -194,12 +182,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_null_precdescr
@ -295,12 +279,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_null_clone

24
prec/psb_s_prec_type.f90
Unescape Escape View File

@ -121,6 +121,8 @@ module psb_s_prec_type
contains
subroutine psb_sfile_prec_descr(p,iout)
use psb_base_mod
implicit none
type(psb_sprec_type), intent(in) :: p
integer(psb_ipk_), intent(in), optional :: iout
integer(psb_ipk_) :: iout_,info
@ -162,6 +164,8 @@ contains
subroutine psb_s_precfree(p,info)
use psb_base_mod
implicit none
type(psb_sprec_type), intent(inout) :: p
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: me, err_act,i
@ -178,16 +182,15 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_precfree
subroutine psb_s_prec_free(prec,info)
use psb_base_mod
implicit none
class(psb_sprec_type), intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: me, err_act,i
@ -208,13 +211,10 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_prec_free
function psb_sprec_sizeof(prec) result(val)

32
prec/psb_z_bjacprec.f90
Unescape Escape View File

@ -134,8 +134,8 @@ module psb_z_bjacprec
contains
subroutine psb_z_bjac_precdescr(prec,iout)
Implicit None
use psb_error_mod
implicit none
class(psb_z_bjac_prec_type), intent(in) :: prec
integer(psb_ipk_), intent(in), optional :: iout
@ -166,12 +166,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_bjac_precdescr
@ -239,12 +235,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_bjac_precfree
@ -270,7 +262,7 @@ contains
if (info == psb_success_) deallocate(precout, stat=info)
end if
if (info == psb_success_) &
& allocate(psb_z_bjac_prec_type :: precout, stat=info)
& allocate(psb_z_bjac_prec_type :: precout, stat=info)
if (info /= 0) goto 9999
select type(pout => precout)
type is (psb_z_bjac_prec_type)
@ -289,7 +281,7 @@ contains
allocate(pout%dv,stat=info)
if (info == 0) call prec%dv%clone(pout%dv,info)
end if
class default
class default
info = psb_err_internal_error_
end select
if (info /= 0) goto 9999
@ -297,12 +289,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_bjac_clone

58
prec/psb_z_diagprec.f90
Unescape Escape View File

@ -114,7 +114,7 @@ contains
subroutine psb_z_diag_precinit(prec,info)
Implicit None
class(psb_z_diag_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act, nrow
@ -124,47 +124,39 @@ contains
info = psb_success_
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_diag_precinit
subroutine psb_z_diag_precfree(prec,info)
Implicit None
class(psb_z_diag_prec_type), intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act, nrow
character(len=20) :: name='z_diag_precset'
call psb_erractionsave(err_act)
info = psb_success_
if (allocated(prec%dv)) call prec%dv%free(info)
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_diag_precfree
@ -182,7 +174,7 @@ contains
call psb_erractionsave(err_act)
info = psb_success_
if (present(iout)) then
iout_ = iout
else
@ -194,18 +186,14 @@ contains
call psb_erractionsave(err_act)
info = psb_success_
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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_diag_precdescr
function psb_z_diag_sizeof(prec) result(val)
@ -247,7 +235,7 @@ contains
if (info == psb_success_) deallocate(precout, stat=info)
end if
if (info == psb_success_) &
& allocate(psb_z_diag_prec_type :: precout, stat=info)
& allocate(psb_z_diag_prec_type :: precout, stat=info)
if (info /= 0) goto 9999
select type(pout => precout)
type is (psb_z_diag_prec_type)
@ -258,7 +246,7 @@ contains
if (info == 0) call prec%dv%clone(pout%dv,info)
end if
if (info == 0) call psb_safe_ab_cpy(prec%d,pout%d,info)
class default
class default
info = psb_err_internal_error_
end select
if (info /= 0) goto 9999
@ -266,12 +254,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_diag_clone

40
prec/psb_z_nullprec.f90
Unescape Escape View File

@ -99,12 +99,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_null_precinit
@ -131,12 +127,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_null_precbld
@ -157,12 +149,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_null_precfree
@ -194,12 +182,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_null_precdescr
@ -295,12 +279,8 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_null_clone

24
prec/psb_z_prec_type.f90
Unescape Escape View File

@ -121,6 +121,8 @@ module psb_z_prec_type
contains
subroutine psb_zfile_prec_descr(p,iout)
use psb_base_mod
implicit none
type(psb_zprec_type), intent(in) :: p
integer(psb_ipk_), intent(in), optional :: iout
integer(psb_ipk_) :: iout_,info
@ -162,6 +164,8 @@ contains
subroutine psb_z_precfree(p,info)
use psb_base_mod
implicit none
type(psb_zprec_type), intent(inout) :: p
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: me, err_act,i
@ -178,16 +182,15 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_precfree
subroutine psb_z_prec_free(prec,info)
use psb_base_mod
implicit none
class(psb_zprec_type), intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: me, err_act,i
@ -208,13 +211,10 @@ 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
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_prec_free
function psb_zprec_sizeof(prec) result(val)

Write Preview
Loading…
Cancel
Save