diff --git a/mlprec/impl/mld_c_smoothers_bld.f90 b/mlprec/impl/mld_c_smoothers_bld.f90
index 9dece858..a0896e40 100644
--- a/mlprec/impl/mld_c_smoothers_bld.f90
+++ b/mlprec/impl/mld_c_smoothers_bld.f90
@@ -169,8 +169,9 @@ subroutine mld_c_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
   end do
   !
   ! Issue a warning for inconsistent changes to COARSE_SOLVE
+  ! but only if it really is a multilevel
   !
-  if (me == psb_root_) then 
+  if ((me == psb_root_).and.(iszv>1)) then 
     coarse_solve_id = prec%precv(iszv)%parms%coarse_solve
     select case (coarse_solve_id)
     case(mld_umf_,mld_slu_)
diff --git a/mlprec/impl/mld_d_smoothers_bld.f90 b/mlprec/impl/mld_d_smoothers_bld.f90
index cb5fa89e..b5d06063 100644
--- a/mlprec/impl/mld_d_smoothers_bld.f90
+++ b/mlprec/impl/mld_d_smoothers_bld.f90
@@ -169,8 +169,9 @@ subroutine mld_d_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
   end do
   !
   ! Issue a warning for inconsistent changes to COARSE_SOLVE
+  ! but only if it really is a multilevel
   !
-  if (me == psb_root_) then 
+  if ((me == psb_root_).and.(iszv>1)) then 
     coarse_solve_id = prec%precv(iszv)%parms%coarse_solve
     select case (coarse_solve_id)
     case(mld_umf_,mld_slu_)
diff --git a/mlprec/impl/mld_s_smoothers_bld.f90 b/mlprec/impl/mld_s_smoothers_bld.f90
index 2f942d18..b62bacec 100644
--- a/mlprec/impl/mld_s_smoothers_bld.f90
+++ b/mlprec/impl/mld_s_smoothers_bld.f90
@@ -169,8 +169,9 @@ subroutine mld_s_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
   end do
   !
   ! Issue a warning for inconsistent changes to COARSE_SOLVE
+  ! but only if it really is a multilevel
   !
-  if (me == psb_root_) then 
+  if ((me == psb_root_).and.(iszv>1)) then 
     coarse_solve_id = prec%precv(iszv)%parms%coarse_solve
     select case (coarse_solve_id)
     case(mld_umf_,mld_slu_)
diff --git a/mlprec/impl/mld_z_smoothers_bld.f90 b/mlprec/impl/mld_z_smoothers_bld.f90
index fc3289d6..5e3bf961 100644
--- a/mlprec/impl/mld_z_smoothers_bld.f90
+++ b/mlprec/impl/mld_z_smoothers_bld.f90
@@ -169,8 +169,9 @@ subroutine mld_z_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
   end do
   !
   ! Issue a warning for inconsistent changes to COARSE_SOLVE
+  ! but only if it really is a multilevel
   !
-  if (me == psb_root_) then 
+  if ((me == psb_root_).and.(iszv>1)) then 
     coarse_solve_id = prec%precv(iszv)%parms%coarse_solve
     select case (coarse_solve_id)
     case(mld_umf_,mld_slu_)