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

mld2p4:

Browse Source 
mlprec/mld_c_ilu_solver.f90
 mlprec/mld_d_ilu_solver.f90
 mlprec/mld_s_ilu_solver.f90
 mlprec/mld_z_ilu_solver.f90


Make sure the ilu  solvers check their parameters.
stopcriterion
Salvatore Filippone 9 years ago
parent 43cba92924
commit 9c958105a4
4 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File

3
mlprec/mld_c_ilu_solver.f90
Unescape Escape View File

@ -56,6 +56,7 @@ module mld_c_ilu_solver
real(psb_spk_) :: thresh
contains
procedure, pass(sv) :: dump => mld_c_ilu_solver_dmp
procedure, pass(sv) :: ccheck => c_ilu_solver_check
procedure, pass(sv) :: clone => mld_c_ilu_solver_clone
procedure, pass(sv) :: build => mld_c_ilu_solver_bld
procedure, pass(sv) :: cnv => mld_c_ilu_solver_cnv
@ -82,7 +83,7 @@ module mld_c_ilu_solver
& c_ilu_solver_descr, c_ilu_solver_sizeof, &
& c_ilu_solver_default, c_ilu_solver_dmp, &
& c_ilu_solver_apply_vect, c_ilu_solver_get_nzeros, &
& c_ilu_solver_get_fmt
& c_ilu_solver_get_fmt, c_ilu_solver_check
character(len=15), parameter, private :: &

3
mlprec/mld_d_ilu_solver.f90
Unescape Escape View File

@ -56,6 +56,7 @@ module mld_d_ilu_solver
real(psb_dpk_) :: thresh
contains
procedure, pass(sv) :: dump => mld_d_ilu_solver_dmp
procedure, pass(sv) :: ccheck => d_ilu_solver_check
procedure, pass(sv) :: clone => mld_d_ilu_solver_clone
procedure, pass(sv) :: build => mld_d_ilu_solver_bld
procedure, pass(sv) :: cnv => mld_d_ilu_solver_cnv
@ -82,7 +83,7 @@ module mld_d_ilu_solver
& d_ilu_solver_descr, d_ilu_solver_sizeof, &
& d_ilu_solver_default, d_ilu_solver_dmp, &
& d_ilu_solver_apply_vect, d_ilu_solver_get_nzeros, &
& d_ilu_solver_get_fmt
& d_ilu_solver_get_fmt, d_ilu_solver_check
character(len=15), parameter, private :: &

3
mlprec/mld_s_ilu_solver.f90
Unescape Escape View File

@ -56,6 +56,7 @@ module mld_s_ilu_solver
real(psb_spk_) :: thresh
contains
procedure, pass(sv) :: dump => mld_s_ilu_solver_dmp
procedure, pass(sv) :: ccheck => s_ilu_solver_check
procedure, pass(sv) :: clone => mld_s_ilu_solver_clone
procedure, pass(sv) :: build => mld_s_ilu_solver_bld
procedure, pass(sv) :: cnv => mld_s_ilu_solver_cnv
@ -82,7 +83,7 @@ module mld_s_ilu_solver
& s_ilu_solver_descr, s_ilu_solver_sizeof, &
& s_ilu_solver_default, s_ilu_solver_dmp, &
& s_ilu_solver_apply_vect, s_ilu_solver_get_nzeros, &
& s_ilu_solver_get_fmt
& s_ilu_solver_get_fmt, s_ilu_solver_check
character(len=15), parameter, private :: &

3
mlprec/mld_z_ilu_solver.f90
Unescape Escape View File

@ -56,6 +56,7 @@ module mld_z_ilu_solver
real(psb_dpk_) :: thresh
contains
procedure, pass(sv) :: dump => mld_z_ilu_solver_dmp
procedure, pass(sv) :: ccheck => z_ilu_solver_check
procedure, pass(sv) :: clone => mld_z_ilu_solver_clone
procedure, pass(sv) :: build => mld_z_ilu_solver_bld
procedure, pass(sv) :: cnv => mld_z_ilu_solver_cnv
@ -82,7 +83,7 @@ module mld_z_ilu_solver
& z_ilu_solver_descr, z_ilu_solver_sizeof, &
& z_ilu_solver_default, z_ilu_solver_dmp, &
& z_ilu_solver_apply_vect, z_ilu_solver_get_nzeros, &
& z_ilu_solver_get_fmt
& z_ilu_solver_get_fmt, z_ilu_solver_check
character(len=15), parameter, private :: &

Write Preview
Loading…
Cancel
Save