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 real(psb_spk_) :: thresh
contains contains
procedure, pass(sv) :: dump => mld_c_ilu_solver_dmp 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) :: clone => mld_c_ilu_solver_clone
procedure, pass(sv) :: build => mld_c_ilu_solver_bld procedure, pass(sv) :: build => mld_c_ilu_solver_bld
procedure, pass(sv) :: cnv => mld_c_ilu_solver_cnv 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_descr, c_ilu_solver_sizeof, &
& c_ilu_solver_default, c_ilu_solver_dmp, & & c_ilu_solver_default, c_ilu_solver_dmp, &
& c_ilu_solver_apply_vect, c_ilu_solver_get_nzeros, & & 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 :: & 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 real(psb_dpk_) :: thresh
contains contains
procedure, pass(sv) :: dump => mld_d_ilu_solver_dmp 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) :: clone => mld_d_ilu_solver_clone
procedure, pass(sv) :: build => mld_d_ilu_solver_bld procedure, pass(sv) :: build => mld_d_ilu_solver_bld
procedure, pass(sv) :: cnv => mld_d_ilu_solver_cnv 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_descr, d_ilu_solver_sizeof, &
& d_ilu_solver_default, d_ilu_solver_dmp, & & d_ilu_solver_default, d_ilu_solver_dmp, &
& d_ilu_solver_apply_vect, d_ilu_solver_get_nzeros, & & 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 :: & 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 real(psb_spk_) :: thresh
contains contains
procedure, pass(sv) :: dump => mld_s_ilu_solver_dmp 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) :: clone => mld_s_ilu_solver_clone
procedure, pass(sv) :: build => mld_s_ilu_solver_bld procedure, pass(sv) :: build => mld_s_ilu_solver_bld
procedure, pass(sv) :: cnv => mld_s_ilu_solver_cnv 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_descr, s_ilu_solver_sizeof, &
& s_ilu_solver_default, s_ilu_solver_dmp, & & s_ilu_solver_default, s_ilu_solver_dmp, &
& s_ilu_solver_apply_vect, s_ilu_solver_get_nzeros, & & 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 :: & 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 real(psb_dpk_) :: thresh
contains contains
procedure, pass(sv) :: dump => mld_z_ilu_solver_dmp 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) :: clone => mld_z_ilu_solver_clone
procedure, pass(sv) :: build => mld_z_ilu_solver_bld procedure, pass(sv) :: build => mld_z_ilu_solver_bld
procedure, pass(sv) :: cnv => mld_z_ilu_solver_cnv 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_descr, z_ilu_solver_sizeof, &
& z_ilu_solver_default, z_ilu_solver_dmp, & & z_ilu_solver_default, z_ilu_solver_dmp, &
& z_ilu_solver_apply_vect, z_ilu_solver_get_nzeros, & & 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 :: & character(len=15), parameter, private :: &

Write Preview
Loading…
Cancel
Save