From e8b50152fa89270e0067774f4aa072e9e4128fa2 Mon Sep 17 00:00:00 2001 From: sfilippone Date: Wed, 25 Oct 2023 15:28:44 +0200 Subject: [PATCH] Fix comments on LOCAL_SOLVER GLOBAL_SOLVER --- amgprec/amg_c_mumps_solver.F90 | 3 ++- amgprec/amg_d_mumps_solver.F90 | 3 ++- amgprec/amg_s_mumps_solver.F90 | 3 ++- amgprec/amg_z_mumps_solver.F90 | 3 ++- 4 files changed, 8 insertions(+), 4 deletions(-) diff --git a/amgprec/amg_c_mumps_solver.F90 b/amgprec/amg_c_mumps_solver.F90 index 6a7acb70..d65fc671 100644 --- a/amgprec/amg_c_mumps_solver.F90 +++ b/amgprec/amg_c_mumps_solver.F90 @@ -78,7 +78,8 @@ module amg_c_mumps_solver ! ! Controls to be set before MUMPS instantiation: ! - ! IPAR(1) : MUMPS_LOC_GLOB 0==amg_local_solver_: LOCAL 1==amg_global_solver_: GLOBAL + ! IPAR(1) : MUMPS_LOC_GLOB 0==amg_local_solver_: 'LOCAL_SOLVER + ! 1==amg_global_solver_: 'GLOBAL_SOLVER' ! IPAR(2) : MUMPS_PRINT_ERR print verbosity (see MUMPS) ! IPAR(3) : MUMPS_SYM 0: non-symmetric 2: symmetric integer(psb_ipk_), dimension(3) :: ipar diff --git a/amgprec/amg_d_mumps_solver.F90 b/amgprec/amg_d_mumps_solver.F90 index 0e8375be..ceaf1735 100644 --- a/amgprec/amg_d_mumps_solver.F90 +++ b/amgprec/amg_d_mumps_solver.F90 @@ -78,7 +78,8 @@ module amg_d_mumps_solver ! ! Controls to be set before MUMPS instantiation: ! - ! IPAR(1) : MUMPS_LOC_GLOB 0==amg_local_solver_: LOCAL 1==amg_global_solver_: GLOBAL + ! IPAR(1) : MUMPS_LOC_GLOB 0==amg_local_solver_: 'LOCAL_SOLVER + ! 1==amg_global_solver_: 'GLOBAL_SOLVER' ! IPAR(2) : MUMPS_PRINT_ERR print verbosity (see MUMPS) ! IPAR(3) : MUMPS_SYM 0: non-symmetric 2: symmetric integer(psb_ipk_), dimension(3) :: ipar diff --git a/amgprec/amg_s_mumps_solver.F90 b/amgprec/amg_s_mumps_solver.F90 index af918fcf..0f6fb16c 100644 --- a/amgprec/amg_s_mumps_solver.F90 +++ b/amgprec/amg_s_mumps_solver.F90 @@ -78,7 +78,8 @@ module amg_s_mumps_solver ! ! Controls to be set before MUMPS instantiation: ! - ! IPAR(1) : MUMPS_LOC_GLOB 0==amg_local_solver_: LOCAL 1==amg_global_solver_: GLOBAL + ! IPAR(1) : MUMPS_LOC_GLOB 0==amg_local_solver_: 'LOCAL_SOLVER + ! 1==amg_global_solver_: 'GLOBAL_SOLVER' ! IPAR(2) : MUMPS_PRINT_ERR print verbosity (see MUMPS) ! IPAR(3) : MUMPS_SYM 0: non-symmetric 2: symmetric integer(psb_ipk_), dimension(3) :: ipar diff --git a/amgprec/amg_z_mumps_solver.F90 b/amgprec/amg_z_mumps_solver.F90 index 3ab54345..6e11096c 100644 --- a/amgprec/amg_z_mumps_solver.F90 +++ b/amgprec/amg_z_mumps_solver.F90 @@ -78,7 +78,8 @@ module amg_z_mumps_solver ! ! Controls to be set before MUMPS instantiation: ! - ! IPAR(1) : MUMPS_LOC_GLOB 0==amg_local_solver_: LOCAL 1==amg_global_solver_: GLOBAL + ! IPAR(1) : MUMPS_LOC_GLOB 0==amg_local_solver_: 'LOCAL_SOLVER + ! 1==amg_global_solver_: 'GLOBAL_SOLVER' ! IPAR(2) : MUMPS_PRINT_ERR print verbosity (see MUMPS) ! IPAR(3) : MUMPS_SYM 0: non-symmetric 2: symmetric integer(psb_ipk_), dimension(3) :: ipar