fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix description of L1-GS

Browse Source
This commit is contained in:
Salvatore Filippone
2020-05-15 16:18:12 +02:00
parent 4260dc74d5
commit 8e2af97a35
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/smoother/mld_c_l1_jac_smoother_descr.f90
+2 -2
View File
@@ -78,9 +78,9 @@ subroutine mld_c_l1_jac_smoother_descr(sm,info,iout,coarse)
write(iout_,*) ' Local diagonal:'
call smv%descr(info,iout_,coarse=coarse)
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)
write(iout_,*) ' Hybrid Forward Gauss-Seidel '
write(iout_,*) ' L1-Hybrid Forward Gauss-Seidel '
class default
write(iout_,*) ' L1-Block Jacobi '
write(iout_,*) ' Local solver details:'
mlprec/impl/smoother/mld_d_l1_jac_smoother_descr.f90
+2 -2
View File
@@ -78,9 +78,9 @@ subroutine mld_d_l1_jac_smoother_descr(sm,info,iout,coarse)
write(iout_,*) ' Local diagonal:'
call smv%descr(info,iout_,coarse=coarse)
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)
write(iout_,*) ' Hybrid Forward Gauss-Seidel '
write(iout_,*) ' L1-Hybrid Forward Gauss-Seidel '
class default
write(iout_,*) ' L1-Block Jacobi '
write(iout_,*) ' Local solver details:'
mlprec/impl/smoother/mld_s_l1_jac_smoother_descr.f90
+2 -2
View File
@@ -78,9 +78,9 @@ subroutine mld_s_l1_jac_smoother_descr(sm,info,iout,coarse)
write(iout_,*) ' Local diagonal:'
call smv%descr(info,iout_,coarse=coarse)
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)
write(iout_,*) ' Hybrid Forward Gauss-Seidel '
write(iout_,*) ' L1-Hybrid Forward Gauss-Seidel '
class default
write(iout_,*) ' L1-Block Jacobi '
write(iout_,*) ' Local solver details:'
mlprec/impl/smoother/mld_z_l1_jac_smoother_descr.f90
+2 -2
View File
@@ -78,9 +78,9 @@ subroutine mld_z_l1_jac_smoother_descr(sm,info,iout,coarse)
write(iout_,*) ' Local diagonal:'
call smv%descr(info,iout_,coarse=coarse)
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)
write(iout_,*) ' Hybrid Forward Gauss-Seidel '
write(iout_,*) ' L1-Hybrid Forward Gauss-Seidel '
class default
write(iout_,*) ' L1-Block Jacobi '
write(iout_,*) ' Local solver details:'