Fix comments on LOCAL_SOLVER GLOBAL_SOLVER

1 year ago · e8b50152fa
parent e6894501dd
commit e8b50152fa
4 changed files with 8 additions and 4 deletions
--- 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
--- 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
--- 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
--- 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