diff --git a/mlprec/impl/mld_ccprecset.F90 b/mlprec/impl/mld_ccprecset.F90
index 0a65bf46..7f154c08 100644
--- a/mlprec/impl/mld_ccprecset.F90
+++ b/mlprec/impl/mld_ccprecset.F90
@@ -572,7 +572,7 @@ subroutine mld_ccprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
       if (nlev_ > 1) then 
         call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
         select case (psb_toupper(trim(string))) 
-        case('BJAC', 'L1_BJAC')
+        case('BJAC', 'L1-BJAC')
           call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
 #if defined(HAVE_SLU_)
           call p%precv(nlev_)%set('SUB_SOLVE','SLU',info,pos=pos)
@@ -687,8 +687,8 @@ subroutine mld_ccprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
     case('COARSE_SOLVE')
       if (nlev_ > 1) then 
         call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
-        select case (string) 
-        case('BJAC', 'L1_BJAC')
+        select case (psb_toupper(trim(string)))
+        case('BJAC', 'L1-BJAC')
           call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
 #if defined(HAVE_SLU_)
           call p%precv(nlev_)%set('SUB_SOLVE','SLU',info,pos=pos)
diff --git a/mlprec/impl/mld_dcprecset.F90 b/mlprec/impl/mld_dcprecset.F90
index 782be5ab..f8d7876f 100644
--- a/mlprec/impl/mld_dcprecset.F90
+++ b/mlprec/impl/mld_dcprecset.F90
@@ -612,7 +612,7 @@ subroutine mld_dcprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
       if (nlev_ > 1) then 
         call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
         select case (psb_toupper(trim(string))) 
-        case('BJAC', 'L1_BJAC')
+        case('BJAC', 'L1-BJAC')
           call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
 #if defined(HAVE_UMF_)
           call p%precv(nlev_)%set('SUB_SOLVE','UMF',info,pos=pos)
@@ -741,8 +741,8 @@ subroutine mld_dcprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
     case('COARSE_SOLVE')
       if (nlev_ > 1) then 
         call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
-        select case (string) 
-        case('BJAC', 'L1_BJAC')
+        select case (psb_toupper(trim(string)))
+        case('BJAC', 'L1-BJAC')
           call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
 #if defined(HAVE_UMF_)
           call p%precv(nlev_)%set('SUB_SOLVE','UMF',info,pos=pos)
diff --git a/mlprec/impl/mld_scprecset.F90 b/mlprec/impl/mld_scprecset.F90
index 39c1981b..ec925997 100644
--- a/mlprec/impl/mld_scprecset.F90
+++ b/mlprec/impl/mld_scprecset.F90
@@ -572,7 +572,7 @@ subroutine mld_scprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
       if (nlev_ > 1) then 
         call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
         select case (psb_toupper(trim(string))) 
-        case('BJAC', 'L1_BJAC')
+        case('BJAC', 'L1-BJAC')
           call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
 #if defined(HAVE_SLU_)
           call p%precv(nlev_)%set('SUB_SOLVE','SLU',info,pos=pos)
@@ -687,8 +687,8 @@ subroutine mld_scprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
     case('COARSE_SOLVE')
       if (nlev_ > 1) then 
         call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
-        select case (string) 
-        case('BJAC', 'L1_BJAC')
+        select case (psb_toupper(trim(string)))
+        case('BJAC', 'L1-BJAC')
           call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
 #if defined(HAVE_SLU_)
           call p%precv(nlev_)%set('SUB_SOLVE','SLU',info,pos=pos)
diff --git a/mlprec/impl/mld_zcprecset.F90 b/mlprec/impl/mld_zcprecset.F90
index b3a58473..72dcf24a 100644
--- a/mlprec/impl/mld_zcprecset.F90
+++ b/mlprec/impl/mld_zcprecset.F90
@@ -612,7 +612,7 @@ subroutine mld_zcprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
       if (nlev_ > 1) then 
         call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
         select case (psb_toupper(trim(string))) 
-        case('BJAC', 'L1_BJAC')
+        case('BJAC', 'L1-BJAC')
           call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
 #if defined(HAVE_UMF_)
           call p%precv(nlev_)%set('SUB_SOLVE','UMF',info,pos=pos)
@@ -741,8 +741,8 @@ subroutine mld_zcprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
     case('COARSE_SOLVE')
       if (nlev_ > 1) then 
         call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
-        select case (string) 
-        case('BJAC', 'L1_BJAC')
+        select case (psb_toupper(trim(string)))
+        case('BJAC', 'L1-BJAC')
           call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
 #if defined(HAVE_UMF_)
           call p%precv(nlev_)%set('SUB_SOLVE','UMF',info,pos=pos)