diff --git a/mlprec/impl/level/mld_c_base_onelev_dump.f90 b/mlprec/impl/level/mld_c_base_onelev_dump.f90
index 9c9e4a07..6f1a0201 100644
--- a/mlprec/impl/level/mld_c_base_onelev_dump.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_dump.f90
@@ -120,13 +120,13 @@ subroutine mld_c_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
     end if
   end if
   
-  if (allocated(lv%sm)) &
-       & call lv%sm%dump(icontxt,level,info,smoother=smoother, &
-       & solver=solver,prefix=prefix)
+  if (allocated(lv%sm)) then
+    call lv%sm%dump(icontxt,level,info,smoother=smoother, &
+         & solver=solver,prefix=trim(prefix_)//"_sm")
+  end if
   if (allocated(lv%sm2a)) then
-    prefix_=trim(prefix_)//"_sm2a"
     call lv%sm2a%dump(icontxt,level,info,smoother=smoother, &
-         & solver=solver,prefix=prefix_)
+         & solver=solver,prefix=trim(prefix_)//"_sm2a")
   end if
   
 end subroutine mld_c_base_onelev_dump
diff --git a/mlprec/impl/level/mld_d_base_onelev_dump.f90 b/mlprec/impl/level/mld_d_base_onelev_dump.f90
index fc9de5ef..5d2f47f3 100644
--- a/mlprec/impl/level/mld_d_base_onelev_dump.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_dump.f90
@@ -120,13 +120,13 @@ subroutine mld_d_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
     end if
   end if
   
-  if (allocated(lv%sm)) &
-       & call lv%sm%dump(icontxt,level,info,smoother=smoother, &
-       & solver=solver,prefix=prefix)
+  if (allocated(lv%sm)) then
+    call lv%sm%dump(icontxt,level,info,smoother=smoother, &
+         & solver=solver,prefix=trim(prefix_)//"_sm")
+  end if
   if (allocated(lv%sm2a)) then
-    prefix_=trim(prefix_)//"_sm2a"
     call lv%sm2a%dump(icontxt,level,info,smoother=smoother, &
-         & solver=solver,prefix=prefix_)
+         & solver=solver,prefix=trim(prefix_)//"_sm2a")
   end if
   
 end subroutine mld_d_base_onelev_dump
diff --git a/mlprec/impl/level/mld_s_base_onelev_dump.f90 b/mlprec/impl/level/mld_s_base_onelev_dump.f90
index b3fa89eb..8fb87600 100644
--- a/mlprec/impl/level/mld_s_base_onelev_dump.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_dump.f90
@@ -120,13 +120,13 @@ subroutine mld_s_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
     end if
   end if
   
-  if (allocated(lv%sm)) &
-       & call lv%sm%dump(icontxt,level,info,smoother=smoother, &
-       & solver=solver,prefix=prefix)
+  if (allocated(lv%sm)) then
+    call lv%sm%dump(icontxt,level,info,smoother=smoother, &
+         & solver=solver,prefix=trim(prefix_)//"_sm")
+  end if
   if (allocated(lv%sm2a)) then
-    prefix_=trim(prefix_)//"_sm2a"
     call lv%sm2a%dump(icontxt,level,info,smoother=smoother, &
-         & solver=solver,prefix=prefix_)
+         & solver=solver,prefix=trim(prefix_)//"_sm2a")
   end if
   
 end subroutine mld_s_base_onelev_dump
diff --git a/mlprec/impl/level/mld_z_base_onelev_dump.f90 b/mlprec/impl/level/mld_z_base_onelev_dump.f90
index ee749b69..1fa4ba39 100644
--- a/mlprec/impl/level/mld_z_base_onelev_dump.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_dump.f90
@@ -120,13 +120,13 @@ subroutine mld_z_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
     end if
   end if
   
-  if (allocated(lv%sm)) &
-       & call lv%sm%dump(icontxt,level,info,smoother=smoother, &
-       & solver=solver,prefix=prefix)
+  if (allocated(lv%sm)) then
+    call lv%sm%dump(icontxt,level,info,smoother=smoother, &
+         & solver=solver,prefix=trim(prefix_)//"_sm")
+  end if
   if (allocated(lv%sm2a)) then
-    prefix_=trim(prefix_)//"_sm2a"
     call lv%sm2a%dump(icontxt,level,info,smoother=smoother, &
-         & solver=solver,prefix=prefix_)
+         & solver=solver,prefix=trim(prefix_)//"_sm2a")
   end if
   
 end subroutine mld_z_base_onelev_dump