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

Fix description of L1-GS

Browse Source
pizdaint-runs
Salvatore Filippone 5 years ago
parent 4260dc74d5
commit 8e2af97a35
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
mlprec/impl/smoother/mld_c_l1_jac_smoother_descr.f90
Unescape Escape View File

@ -78,9 +78,9 @@ subroutine mld_c_l1_jac_smoother_descr(sm,info,iout,coarse)
write(iout_,*) ' Local diagonal:' write(iout_,*) ' Local diagonal:'
call smv%descr(info,iout_,coarse=coarse) call smv%descr(info,iout_,coarse=coarse)
class is (mld_c_bwgs_solver_type) class is (mld_c_bwgs_solver_type)
write(iout_,*) ' Hybrid Backward Gauss-Seidel ' write(iout_,*) ' L1-Hybrid Backward Gauss-Seidel '
class is (mld_c_gs_solver_type) class is (mld_c_gs_solver_type)
write(iout_,*) ' Hybrid Forward Gauss-Seidel ' write(iout_,*) ' L1-Hybrid Forward Gauss-Seidel '
class default class default
write(iout_,*) ' L1-Block Jacobi ' write(iout_,*) ' L1-Block Jacobi '
write(iout_,*) ' Local solver details:' write(iout_,*) ' Local solver details:'

4
mlprec/impl/smoother/mld_d_l1_jac_smoother_descr.f90
Unescape Escape View File

@ -78,9 +78,9 @@ subroutine mld_d_l1_jac_smoother_descr(sm,info,iout,coarse)
write(iout_,*) ' Local diagonal:' write(iout_,*) ' Local diagonal:'
call smv%descr(info,iout_,coarse=coarse) call smv%descr(info,iout_,coarse=coarse)
class is (mld_d_bwgs_solver_type) class is (mld_d_bwgs_solver_type)
write(iout_,*) ' Hybrid Backward Gauss-Seidel ' write(iout_,*) ' L1-Hybrid Backward Gauss-Seidel '
class is (mld_d_gs_solver_type) class is (mld_d_gs_solver_type)
write(iout_,*) ' Hybrid Forward Gauss-Seidel ' write(iout_,*) ' L1-Hybrid Forward Gauss-Seidel '
class default class default
write(iout_,*) ' L1-Block Jacobi ' write(iout_,*) ' L1-Block Jacobi '
write(iout_,*) ' Local solver details:' write(iout_,*) ' Local solver details:'

4
mlprec/impl/smoother/mld_s_l1_jac_smoother_descr.f90
Unescape Escape View File

@ -78,9 +78,9 @@ subroutine mld_s_l1_jac_smoother_descr(sm,info,iout,coarse)
write(iout_,*) ' Local diagonal:' write(iout_,*) ' Local diagonal:'
call smv%descr(info,iout_,coarse=coarse) call smv%descr(info,iout_,coarse=coarse)
class is (mld_s_bwgs_solver_type) class is (mld_s_bwgs_solver_type)
write(iout_,*) ' Hybrid Backward Gauss-Seidel ' write(iout_,*) ' L1-Hybrid Backward Gauss-Seidel '
class is (mld_s_gs_solver_type) class is (mld_s_gs_solver_type)
write(iout_,*) ' Hybrid Forward Gauss-Seidel ' write(iout_,*) ' L1-Hybrid Forward Gauss-Seidel '
class default class default
write(iout_,*) ' L1-Block Jacobi ' write(iout_,*) ' L1-Block Jacobi '
write(iout_,*) ' Local solver details:' write(iout_,*) ' Local solver details:'

4
mlprec/impl/smoother/mld_z_l1_jac_smoother_descr.f90
Unescape Escape View File

@ -78,9 +78,9 @@ subroutine mld_z_l1_jac_smoother_descr(sm,info,iout,coarse)
write(iout_,*) ' Local diagonal:' write(iout_,*) ' Local diagonal:'
call smv%descr(info,iout_,coarse=coarse) call smv%descr(info,iout_,coarse=coarse)
class is (mld_z_bwgs_solver_type) class is (mld_z_bwgs_solver_type)
write(iout_,*) ' Hybrid Backward Gauss-Seidel ' write(iout_,*) ' L1-Hybrid Backward Gauss-Seidel '
class is (mld_z_gs_solver_type) class is (mld_z_gs_solver_type)
write(iout_,*) ' Hybrid Forward Gauss-Seidel ' write(iout_,*) ' L1-Hybrid Forward Gauss-Seidel '
class default class default
write(iout_,*) ' L1-Block Jacobi ' write(iout_,*) ' L1-Block Jacobi '
write(iout_,*) ' Local solver details:' write(iout_,*) ' Local solver details:'

Write Preview
Loading…
Cancel
Save