From 8e2af97a3588d4a9e0595021cb95a3611e39204c Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 15 May 2020 16:18:12 +0200 Subject: [PATCH] Fix description of L1-GS --- mlprec/impl/smoother/mld_c_l1_jac_smoother_descr.f90 | 4 ++-- mlprec/impl/smoother/mld_d_l1_jac_smoother_descr.f90 | 4 ++-- mlprec/impl/smoother/mld_s_l1_jac_smoother_descr.f90 | 4 ++-- mlprec/impl/smoother/mld_z_l1_jac_smoother_descr.f90 | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/mlprec/impl/smoother/mld_c_l1_jac_smoother_descr.f90 b/mlprec/impl/smoother/mld_c_l1_jac_smoother_descr.f90 index 1656652b..82fd358a 100644 --- a/mlprec/impl/smoother/mld_c_l1_jac_smoother_descr.f90 +++ b/mlprec/impl/smoother/mld_c_l1_jac_smoother_descr.f90 @@ -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:' diff --git a/mlprec/impl/smoother/mld_d_l1_jac_smoother_descr.f90 b/mlprec/impl/smoother/mld_d_l1_jac_smoother_descr.f90 index 42b89793..8c6a9479 100644 --- a/mlprec/impl/smoother/mld_d_l1_jac_smoother_descr.f90 +++ b/mlprec/impl/smoother/mld_d_l1_jac_smoother_descr.f90 @@ -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:' diff --git a/mlprec/impl/smoother/mld_s_l1_jac_smoother_descr.f90 b/mlprec/impl/smoother/mld_s_l1_jac_smoother_descr.f90 index 4b072054..9dc14726 100644 --- a/mlprec/impl/smoother/mld_s_l1_jac_smoother_descr.f90 +++ b/mlprec/impl/smoother/mld_s_l1_jac_smoother_descr.f90 @@ -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:' diff --git a/mlprec/impl/smoother/mld_z_l1_jac_smoother_descr.f90 b/mlprec/impl/smoother/mld_z_l1_jac_smoother_descr.f90 index 5e4ec17d..b72a1503 100644 --- a/mlprec/impl/smoother/mld_z_l1_jac_smoother_descr.f90 +++ b/mlprec/impl/smoother/mld_z_l1_jac_smoother_descr.f90 @@ -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:'