Add L1-JACOBI as subsolver.

amgprec/impl/level/amg_c_base_onelev_csetc.F90

@@ -185,10 +185,10 @@ subroutine amg_c_base_onelev_csetc(lv,what,val,info,pos,idx)
     case ('NONE','NOPREC','FACT_NONE')
       call lv%set(amg_c_id_solver_mold,info,pos=pos)
 
-    case ('DIAG')
+    case ('DIAG','JACOBI')
       call lv%set(amg_c_diag_solver_mold,info,pos=pos)
 
-    case ('L1-DIAG')
+    case ('L1-DIAG','L1-JACOBI')
       call lv%set(amg_c_l1_diag_solver_mold,info,pos=pos)
 
     case ('GS','FGS','FWGS')

amgprec/impl/level/amg_d_base_onelev_csetc.F90

@@ -198,10 +198,10 @@ subroutine amg_d_base_onelev_csetc(lv,what,val,info,pos,idx)
     case ('NONE','NOPREC','FACT_NONE')
       call lv%set(amg_d_id_solver_mold,info,pos=pos)
 
-    case ('DIAG')
+    case ('DIAG','JACOBI')
       call lv%set(amg_d_diag_solver_mold,info,pos=pos)
 
-    case ('L1-DIAG')
+    case ('L1-DIAG','L1-JACOBI')
       call lv%set(amg_d_l1_diag_solver_mold,info,pos=pos)
 
     case ('GS','FGS','FWGS')

amgprec/impl/level/amg_s_base_onelev_csetc.F90

@@ -186,10 +186,10 @@ subroutine amg_s_base_onelev_csetc(lv,what,val,info,pos,idx)
     case ('NONE','NOPREC','FACT_NONE')
       call lv%set(amg_s_id_solver_mold,info,pos=pos)
 
-    case ('DIAG')
+    case ('DIAG','JACOBI')
       call lv%set(amg_s_diag_solver_mold,info,pos=pos)
 
-    case ('L1-DIAG')
+    case ('L1-DIAG','L1-JACOBI')
       call lv%set(amg_s_l1_diag_solver_mold,info,pos=pos)
 
     case ('GS','FGS','FWGS')

amgprec/impl/level/amg_z_base_onelev_csetc.F90

@@ -197,10 +197,10 @@ subroutine amg_z_base_onelev_csetc(lv,what,val,info,pos,idx)
     case ('NONE','NOPREC','FACT_NONE')
       call lv%set(amg_z_id_solver_mold,info,pos=pos)
 
-    case ('DIAG')
+    case ('DIAG','JACOBI')
       call lv%set(amg_z_diag_solver_mold,info,pos=pos)
 
-    case ('L1-DIAG')
+    case ('L1-DIAG','L1-JACOBI')
       call lv%set(amg_z_l1_diag_solver_mold,info,pos=pos)
 
     case ('GS','FGS','FWGS')