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

mld2p4-2:

Browse Source 
mlprec/mld_c_as_smoother.f90
 mlprec/mld_c_diag_solver.f90
 mlprec/mld_c_ilu_solver.f90
 mlprec/mld_c_jac_smoother.f90
 mlprec/mld_c_prec_type.f90
 mlprec/mld_c_slu_solver.F90
 mlprec/mld_c_sludist_solver.F90
 mlprec/mld_c_umf_solver.F90
 mlprec/mld_d_as_smoother.f90
 mlprec/mld_d_diag_solver.f90
 mlprec/mld_d_ilu_solver.f90
 mlprec/mld_d_jac_smoother.f90
 mlprec/mld_d_prec_type.f90
 mlprec/mld_d_slu_solver.F90
 mlprec/mld_d_sludist_solver.F90
 mlprec/mld_d_umf_solver.F90
 mlprec/mld_s_as_smoother.f90
 mlprec/mld_s_diag_solver.f90
 mlprec/mld_s_ilu_solver.f90
 mlprec/mld_s_jac_smoother.f90
 mlprec/mld_s_prec_type.f90
 mlprec/mld_s_slu_solver.F90
 mlprec/mld_s_sludist_solver.F90
 mlprec/mld_s_umf_solver.F90
 mlprec/mld_z_as_smoother.f90
 mlprec/mld_z_diag_solver.f90
 mlprec/mld_z_ilu_solver.f90
 mlprec/mld_z_jac_smoother.f90
 mlprec/mld_z_prec_type.f90
 mlprec/mld_z_slu_solver.F90
 mlprec/mld_z_sludist_solver.F90
 mlprec/mld_z_umf_solver.F90
 tests/fileread/runs/dfs.inp

New error handling.
stopcriterion
Salvatore Filippone 10 years ago
parent 3c081de7e3
commit 53ba95c3f2
33 changed files with 185 additions and 833 deletions
Show Stats Download Patch File Download Diff File

8
mlprec/mld_c_as_smoother.f90
Unescape Escape View File

@ -366,13 +366,9 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_as_smoother_descr end subroutine c_as_smoother_descr
function c_as_smoother_get_fmt() result(val) function c_as_smoother_get_fmt() result(val)

8
mlprec/mld_c_diag_solver.f90
Unescape Escape View File

@ -175,13 +175,9 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_diag_solver_free end subroutine c_diag_solver_free
subroutine c_diag_solver_descr(sv,info,iout,coarse) subroutine c_diag_solver_descr(sv,info,iout,coarse)

64
mlprec/mld_c_ilu_solver.f90
Unescape Escape View File

@ -233,13 +233,9 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_ilu_solver_check end subroutine c_ilu_solver_check
@ -270,12 +266,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_ilu_solver_seti end subroutine c_ilu_solver_seti
@ -309,12 +300,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_ilu_solver_setc end subroutine c_ilu_solver_setc
@ -343,12 +329,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_ilu_solver_setr end subroutine c_ilu_solver_setr
@ -379,12 +360,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_ilu_solver_cseti end subroutine c_ilu_solver_cseti
@ -418,12 +394,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_ilu_solver_csetc end subroutine c_ilu_solver_csetc
@ -452,12 +423,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_ilu_solver_csetr end subroutine c_ilu_solver_csetr
@ -489,12 +455,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_ilu_solver_free end subroutine c_ilu_solver_free
@ -534,12 +495,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_ilu_solver_descr end subroutine c_ilu_solver_descr

14
mlprec/mld_c_jac_smoother.f90
Unescape Escape View File

@ -181,12 +181,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_jac_smoother_free end subroutine c_jac_smoother_free
@ -230,12 +225,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_jac_smoother_descr end subroutine c_jac_smoother_descr

35
mlprec/mld_c_prec_type.f90
Unescape Escape View File

@ -570,12 +570,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act.eq.psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_c_prec_free end subroutine mld_c_prec_free
@ -611,12 +606,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_c_apply2_vect end subroutine mld_c_apply2_vect
@ -646,12 +636,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_c_apply1_vect end subroutine mld_c_apply1_vect
@ -683,12 +668,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_c_apply2v end subroutine mld_c_apply2v
@ -717,12 +697,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_c_apply1v end subroutine mld_c_apply1v

35
mlprec/mld_c_slu_solver.F90
Unescape Escape View File

@ -193,12 +193,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_slu_solver_apply end subroutine c_slu_solver_apply
@ -231,12 +226,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_slu_solver_apply_vect end subroutine c_slu_solver_apply_vect
@ -317,12 +307,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_slu_solver_bld end subroutine c_slu_solver_bld
@ -348,12 +333,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_slu_solver_free end subroutine c_slu_solver_free
@ -404,12 +384,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_slu_solver_descr end subroutine c_slu_solver_descr

35
mlprec/mld_c_sludist_solver.F90
Unescape Escape View File

@ -189,12 +189,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_sludist_solver_apply end subroutine c_sludist_solver_apply
@ -227,12 +222,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_sludist_solver_apply_vect end subroutine c_sludist_solver_apply_vect
@ -319,12 +309,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_sludist_solver_bld end subroutine c_sludist_solver_bld
@ -350,12 +335,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_sludist_solver_free end subroutine c_sludist_solver_free
@ -406,12 +386,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_sludist_solver_descr end subroutine c_sludist_solver_descr

35
mlprec/mld_c_umf_solver.F90
Unescape Escape View File

@ -197,12 +197,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_umf_solver_apply end subroutine c_umf_solver_apply
@ -235,12 +230,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_umf_solver_apply_vect end subroutine c_umf_solver_apply_vect
@ -319,12 +309,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_umf_solver_bld end subroutine c_umf_solver_bld
@ -352,12 +337,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_umf_solver_free end subroutine c_umf_solver_free
@ -408,12 +388,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine c_umf_solver_descr end subroutine c_umf_solver_descr

8
mlprec/mld_d_as_smoother.f90
Unescape Escape View File

@ -366,13 +366,9 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_as_smoother_descr end subroutine d_as_smoother_descr
function d_as_smoother_get_fmt() result(val) function d_as_smoother_get_fmt() result(val)

8
mlprec/mld_d_diag_solver.f90
Unescape Escape View File

@ -175,13 +175,9 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_diag_solver_free end subroutine d_diag_solver_free
subroutine d_diag_solver_descr(sv,info,iout,coarse) subroutine d_diag_solver_descr(sv,info,iout,coarse)

64
mlprec/mld_d_ilu_solver.f90
Unescape Escape View File

@ -233,13 +233,9 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_ilu_solver_check end subroutine d_ilu_solver_check
@ -270,12 +266,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_ilu_solver_seti end subroutine d_ilu_solver_seti
@ -309,12 +300,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_ilu_solver_setc end subroutine d_ilu_solver_setc
@ -343,12 +329,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_ilu_solver_setr end subroutine d_ilu_solver_setr
@ -379,12 +360,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_ilu_solver_cseti end subroutine d_ilu_solver_cseti
@ -418,12 +394,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_ilu_solver_csetc end subroutine d_ilu_solver_csetc
@ -452,12 +423,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_ilu_solver_csetr end subroutine d_ilu_solver_csetr
@ -489,12 +455,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_ilu_solver_free end subroutine d_ilu_solver_free
@ -534,12 +495,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_ilu_solver_descr end subroutine d_ilu_solver_descr

14
mlprec/mld_d_jac_smoother.f90
Unescape Escape View File

@ -181,12 +181,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_jac_smoother_free end subroutine d_jac_smoother_free
@ -230,12 +225,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_jac_smoother_descr end subroutine d_jac_smoother_descr

35
mlprec/mld_d_prec_type.f90
Unescape Escape View File

@ -570,12 +570,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act.eq.psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_d_prec_free end subroutine mld_d_prec_free
@ -611,12 +606,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_d_apply2_vect end subroutine mld_d_apply2_vect
@ -646,12 +636,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_d_apply1_vect end subroutine mld_d_apply1_vect
@ -683,12 +668,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_d_apply2v end subroutine mld_d_apply2v
@ -717,12 +697,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_d_apply1v end subroutine mld_d_apply1v

35
mlprec/mld_d_slu_solver.F90
Unescape Escape View File

@ -193,12 +193,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_slu_solver_apply end subroutine d_slu_solver_apply
@ -231,12 +226,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_slu_solver_apply_vect end subroutine d_slu_solver_apply_vect
@ -317,12 +307,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_slu_solver_bld end subroutine d_slu_solver_bld
@ -348,12 +333,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_slu_solver_free end subroutine d_slu_solver_free
@ -404,12 +384,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_slu_solver_descr end subroutine d_slu_solver_descr

35
mlprec/mld_d_sludist_solver.F90
Unescape Escape View File

@ -189,12 +189,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_sludist_solver_apply end subroutine d_sludist_solver_apply
@ -227,12 +222,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_sludist_solver_apply_vect end subroutine d_sludist_solver_apply_vect
@ -319,12 +309,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_sludist_solver_bld end subroutine d_sludist_solver_bld
@ -350,12 +335,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_sludist_solver_free end subroutine d_sludist_solver_free
@ -406,12 +386,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_sludist_solver_descr end subroutine d_sludist_solver_descr

35
mlprec/mld_d_umf_solver.F90
Unescape Escape View File

@ -197,12 +197,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_umf_solver_apply end subroutine d_umf_solver_apply
@ -235,12 +230,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_umf_solver_apply_vect end subroutine d_umf_solver_apply_vect
@ -319,12 +309,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_umf_solver_bld end subroutine d_umf_solver_bld
@ -352,12 +337,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_umf_solver_free end subroutine d_umf_solver_free
@ -408,12 +388,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine d_umf_solver_descr end subroutine d_umf_solver_descr

8
mlprec/mld_s_as_smoother.f90
Unescape Escape View File

@ -366,13 +366,9 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_as_smoother_descr end subroutine s_as_smoother_descr
function s_as_smoother_get_fmt() result(val) function s_as_smoother_get_fmt() result(val)

8
mlprec/mld_s_diag_solver.f90
Unescape Escape View File

@ -175,13 +175,9 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_diag_solver_free end subroutine s_diag_solver_free
subroutine s_diag_solver_descr(sv,info,iout,coarse) subroutine s_diag_solver_descr(sv,info,iout,coarse)

64
mlprec/mld_s_ilu_solver.f90
Unescape Escape View File

@ -233,13 +233,9 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_ilu_solver_check end subroutine s_ilu_solver_check
@ -270,12 +266,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_ilu_solver_seti end subroutine s_ilu_solver_seti
@ -309,12 +300,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_ilu_solver_setc end subroutine s_ilu_solver_setc
@ -343,12 +329,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_ilu_solver_setr end subroutine s_ilu_solver_setr
@ -379,12 +360,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_ilu_solver_cseti end subroutine s_ilu_solver_cseti
@ -418,12 +394,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_ilu_solver_csetc end subroutine s_ilu_solver_csetc
@ -452,12 +423,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_ilu_solver_csetr end subroutine s_ilu_solver_csetr
@ -489,12 +455,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_ilu_solver_free end subroutine s_ilu_solver_free
@ -534,12 +495,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_ilu_solver_descr end subroutine s_ilu_solver_descr

14
mlprec/mld_s_jac_smoother.f90
Unescape Escape View File

@ -181,12 +181,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_jac_smoother_free end subroutine s_jac_smoother_free
@ -230,12 +225,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_jac_smoother_descr end subroutine s_jac_smoother_descr

35
mlprec/mld_s_prec_type.f90
Unescape Escape View File

@ -570,12 +570,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act.eq.psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_s_prec_free end subroutine mld_s_prec_free
@ -611,12 +606,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_s_apply2_vect end subroutine mld_s_apply2_vect
@ -646,12 +636,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_s_apply1_vect end subroutine mld_s_apply1_vect
@ -683,12 +668,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_s_apply2v end subroutine mld_s_apply2v
@ -717,12 +697,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_s_apply1v end subroutine mld_s_apply1v

35
mlprec/mld_s_slu_solver.F90
Unescape Escape View File

@ -193,12 +193,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_slu_solver_apply end subroutine s_slu_solver_apply
@ -231,12 +226,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_slu_solver_apply_vect end subroutine s_slu_solver_apply_vect
@ -317,12 +307,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_slu_solver_bld end subroutine s_slu_solver_bld
@ -348,12 +333,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_slu_solver_free end subroutine s_slu_solver_free
@ -404,12 +384,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_slu_solver_descr end subroutine s_slu_solver_descr

35
mlprec/mld_s_sludist_solver.F90
Unescape Escape View File

@ -189,12 +189,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_sludist_solver_apply end subroutine s_sludist_solver_apply
@ -227,12 +222,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_sludist_solver_apply_vect end subroutine s_sludist_solver_apply_vect
@ -319,12 +309,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_sludist_solver_bld end subroutine s_sludist_solver_bld
@ -350,12 +335,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_sludist_solver_free end subroutine s_sludist_solver_free
@ -406,12 +386,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_sludist_solver_descr end subroutine s_sludist_solver_descr

35
mlprec/mld_s_umf_solver.F90
Unescape Escape View File

@ -197,12 +197,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_umf_solver_apply end subroutine s_umf_solver_apply
@ -235,12 +230,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_umf_solver_apply_vect end subroutine s_umf_solver_apply_vect
@ -319,12 +309,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_umf_solver_bld end subroutine s_umf_solver_bld
@ -352,12 +337,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_umf_solver_free end subroutine s_umf_solver_free
@ -408,12 +388,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine s_umf_solver_descr end subroutine s_umf_solver_descr

8
mlprec/mld_z_as_smoother.f90
Unescape Escape View File

@ -366,13 +366,9 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_as_smoother_descr end subroutine z_as_smoother_descr
function z_as_smoother_get_fmt() result(val) function z_as_smoother_get_fmt() result(val)

8
mlprec/mld_z_diag_solver.f90
Unescape Escape View File

@ -175,13 +175,9 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_diag_solver_free end subroutine z_diag_solver_free
subroutine z_diag_solver_descr(sv,info,iout,coarse) subroutine z_diag_solver_descr(sv,info,iout,coarse)

64
mlprec/mld_z_ilu_solver.f90
Unescape Escape View File

@ -233,13 +233,9 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_ilu_solver_check end subroutine z_ilu_solver_check
@ -270,12 +266,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_ilu_solver_seti end subroutine z_ilu_solver_seti
@ -309,12 +300,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_ilu_solver_setc end subroutine z_ilu_solver_setc
@ -343,12 +329,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_ilu_solver_setr end subroutine z_ilu_solver_setr
@ -379,12 +360,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_ilu_solver_cseti end subroutine z_ilu_solver_cseti
@ -418,12 +394,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_ilu_solver_csetc end subroutine z_ilu_solver_csetc
@ -452,12 +423,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_ilu_solver_csetr end subroutine z_ilu_solver_csetr
@ -489,12 +455,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_ilu_solver_free end subroutine z_ilu_solver_free
@ -534,12 +495,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_ilu_solver_descr end subroutine z_ilu_solver_descr

14
mlprec/mld_z_jac_smoother.f90
Unescape Escape View File

@ -181,12 +181,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_jac_smoother_free end subroutine z_jac_smoother_free
@ -230,12 +225,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_jac_smoother_descr end subroutine z_jac_smoother_descr

35
mlprec/mld_z_prec_type.f90
Unescape Escape View File

@ -570,12 +570,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act.eq.psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_z_prec_free end subroutine mld_z_prec_free
@ -611,12 +606,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_z_apply2_vect end subroutine mld_z_apply2_vect
@ -646,12 +636,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_z_apply1_vect end subroutine mld_z_apply1_vect
@ -683,12 +668,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_z_apply2v end subroutine mld_z_apply2v
@ -717,12 +697,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine mld_z_apply1v end subroutine mld_z_apply1v

35
mlprec/mld_z_slu_solver.F90
Unescape Escape View File

@ -193,12 +193,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_slu_solver_apply end subroutine z_slu_solver_apply
@ -231,12 +226,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_slu_solver_apply_vect end subroutine z_slu_solver_apply_vect
@ -317,12 +307,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_slu_solver_bld end subroutine z_slu_solver_bld
@ -348,12 +333,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_slu_solver_free end subroutine z_slu_solver_free
@ -404,12 +384,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_slu_solver_descr end subroutine z_slu_solver_descr

35
mlprec/mld_z_sludist_solver.F90
Unescape Escape View File

@ -189,12 +189,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_sludist_solver_apply end subroutine z_sludist_solver_apply
@ -227,12 +222,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_sludist_solver_apply_vect end subroutine z_sludist_solver_apply_vect
@ -319,12 +309,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_sludist_solver_bld end subroutine z_sludist_solver_bld
@ -350,12 +335,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_sludist_solver_free end subroutine z_sludist_solver_free
@ -406,12 +386,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_sludist_solver_descr end subroutine z_sludist_solver_descr

35
mlprec/mld_z_umf_solver.F90
Unescape Escape View File

@ -197,12 +197,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_umf_solver_apply end subroutine z_umf_solver_apply
@ -235,12 +230,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_umf_solver_apply_vect end subroutine z_umf_solver_apply_vect
@ -319,12 +309,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_umf_solver_bld end subroutine z_umf_solver_bld
@ -352,12 +337,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_umf_solver_free end subroutine z_umf_solver_free
@ -408,12 +388,7 @@ contains
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine z_umf_solver_descr end subroutine z_umf_solver_descr

10
tests/fileread/runs/dfs.inp
Unescape Escape View File

@ -1,4 +1,4 @@
A_1M_gps.mtx ! This matrix (and others) from: http://math.nist.gov/MatrixMarket/ or thm_3180k.mtx ! This matrix (and others) from: http://math.nist.gov/MatrixMarket/ or
NONE ! rhs | http://www.cise.ufl.edu/research/sparse/matrices/index.html NONE ! rhs | http://www.cise.ufl.edu/research/sparse/matrices/index.html
MM ! MM !
BICGSTAB ! Iterative method: BiCGSTAB BiCG CGS RGMRES BiCGSTABL CG BICGSTAB ! Iterative method: BiCGSTAB BiCG CGS RGMRES BiCGSTABL CG
@ -8,7 +8,7 @@ CSR ! Storage format: CSR COO JAD
00500 ! ITMAX 00500 ! ITMAX
02 ! ITRACE 02 ! ITRACE
30 ! IRST (restart for RGMRES and BiCGSTABL) 30 ! IRST (restart for RGMRES and BiCGSTABL)
1.d-7 ! EPS 1.d-5 ! EPS
3L-M-RAS-I-D4 ! Longer descriptive name for preconditioner (up to 20 chars) 3L-M-RAS-I-D4 ! Longer descriptive name for preconditioner (up to 20 chars)
ML ! Preconditioner type: NONE JACOBI BJAC AS ML ML ! Preconditioner type: NONE JACOBI BJAC AS ML
0 ! Number of overlap layers for AS preconditioner 0 ! Number of overlap layers for AS preconditioner
@ -17,16 +17,16 @@ NONE ! AS prolongation operator: NONE SUM AVG
ILU ! AS subdomain solver: DSCALE ILU MILU ILUT UMF SLU ILU ! AS subdomain solver: DSCALE ILU MILU ILUT UMF SLU
0 ! Fill level P for ILU(P) and ILU(T,P) 0 ! Fill level P for ILU(P) and ILU(T,P)
1.d-4 ! Threshold T for ILU(T,P) 1.d-4 ! Threshold T for ILU(T,P)
4 ! Number of Jacobi sweeps for base smoother 1 ! Number of Jacobi sweeps for base smoother
3 ! Number of levels in a multilevel preconditioner 3 ! Number of levels in a multilevel preconditioner
AS ! Smoother type JACOBI BJAC AS ignored for non-ML AS ! Smoother type JACOBI BJAC AS ignored for non-ML
SMOOTHED ! Type of aggregation: SMOOTHED NONSMOOTHED SMOOTHED ! Type of aggregation: SMOOTHED NONSMOOTHED
DEC ! Type of aggregation: DEC DEC ! Type of aggregation: DEC
MULT ! Type of multilevel correction: ADD MULT MULT ! Type of multilevel correction: ADD MULT
TWOSIDE ! Side of correction PRE POST TWOSIDE (ignored for ADD) TWOSIDE ! Side of correction PRE POST TWOSIDE (ignored for ADD)
REPL ! Coarsest-level matrix distribution: DIST REPL DIST ! Coarsest-level matrix distribution: DIST REPL
BJAC ! Coarsest-level solver: JACOBI BJAC UMF SLU SLUDIST BJAC ! Coarsest-level solver: JACOBI BJAC UMF SLU SLUDIST
UMF ! Coarsest-level subsolver: ILU UMF SLU SLUDIST (DSCALE for JACOBI) ILU ! Coarsest-level subsolver: ILU UMF SLU SLUDIST (DSCALE for JACOBI)
0 ! Coarsest-level fillin P for ILU(P) and ILU(T,P) 0 ! Coarsest-level fillin P for ILU(P) and ILU(T,P)
1.d-4 ! Coarsest-level threshold T for ILU(T,P) 1.d-4 ! Coarsest-level threshold T for ILU(T,P)
4 ! Number of Jacobi sweeps for BJAC/PJAC coarsest-level solver 4 ! Number of Jacobi sweeps for BJAC/PJAC coarsest-level solver

Write Preview
Loading…
Cancel
Save