diff --git a/mlprec/impl/mld_ccprecset.F90 b/mlprec/impl/mld_ccprecset.F90
index f97ffa0a..0a65bf46 100644
--- a/mlprec/impl/mld_ccprecset.F90
+++ b/mlprec/impl/mld_ccprecset.F90
@@ -606,7 +606,7 @@ subroutine mld_ccprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
           call p%precv(nlev_)%set('SUB_SOLVE',string,info,pos=pos)
           call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
 #else 
-          call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC'_,info,pos=pos)
+          call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC',info,pos=pos)
           call p%precv(nlev_)%set('SUB_SOLVE','ILU',info,pos=pos)
           call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
 #endif
diff --git a/mlprec/impl/mld_dcprecset.F90 b/mlprec/impl/mld_dcprecset.F90
index be551424..782be5ab 100644
--- a/mlprec/impl/mld_dcprecset.F90
+++ b/mlprec/impl/mld_dcprecset.F90
@@ -648,7 +648,7 @@ subroutine mld_dcprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
           call p%precv(nlev_)%set('SUB_SOLVE',string,info,pos=pos)
           call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
 #else 
-          call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC'_,info,pos=pos)
+          call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC',info,pos=pos)
           call p%precv(nlev_)%set('SUB_SOLVE','ILU',info,pos=pos)
           call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
 #endif
diff --git a/mlprec/impl/mld_scprecset.F90 b/mlprec/impl/mld_scprecset.F90
index 44d961f4..39c1981b 100644
--- a/mlprec/impl/mld_scprecset.F90
+++ b/mlprec/impl/mld_scprecset.F90
@@ -606,7 +606,7 @@ subroutine mld_scprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
           call p%precv(nlev_)%set('SUB_SOLVE',string,info,pos=pos)
           call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
 #else 
-          call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC'_,info,pos=pos)
+          call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC',info,pos=pos)
           call p%precv(nlev_)%set('SUB_SOLVE','ILU',info,pos=pos)
           call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
 #endif
diff --git a/mlprec/impl/mld_zcprecset.F90 b/mlprec/impl/mld_zcprecset.F90
index 97b9b772..b3a58473 100644
--- a/mlprec/impl/mld_zcprecset.F90
+++ b/mlprec/impl/mld_zcprecset.F90
@@ -648,7 +648,7 @@ subroutine mld_zcprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
           call p%precv(nlev_)%set('SUB_SOLVE',string,info,pos=pos)
           call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
 #else 
-          call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC'_,info,pos=pos)
+          call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC',info,pos=pos)
           call p%precv(nlev_)%set('SUB_SOLVE','ILU',info,pos=pos)
           call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
 #endif