diff --git a/mlprec/impl/smoother/mld_c_as_smoother_apply.f90 b/mlprec/impl/smoother/mld_c_as_smoother_apply.f90
index a48a90b9..05e307c9 100644
--- a/mlprec/impl/smoother/mld_c_as_smoother_apply.f90
+++ b/mlprec/impl/smoother/mld_c_as_smoother_apply.f90
@@ -173,7 +173,7 @@ subroutine mld_c_as_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,&
         
         if (info /= psb_success_) exit
         if (info == 0) call sm%apply_restr(ww,trans_,aux,info)
-        call sm%sv%apply(cone,ww,czero,ty,sm%desc_data,trans_,aux,wv(4:),info,init='Y') 
+        call sm%sv%apply(cone,ww,czero,ty,sm%desc_data,trans_,aux,info,init='Y') 
         
         if (info /= psb_success_) exit
         if (info == 0) call sm%apply_prol(ty,trans_,aux,info)
diff --git a/mlprec/impl/smoother/mld_d_as_smoother_apply.f90 b/mlprec/impl/smoother/mld_d_as_smoother_apply.f90
index 11187722..719d9417 100644
--- a/mlprec/impl/smoother/mld_d_as_smoother_apply.f90
+++ b/mlprec/impl/smoother/mld_d_as_smoother_apply.f90
@@ -173,7 +173,7 @@ subroutine mld_d_as_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,&
         
         if (info /= psb_success_) exit
         if (info == 0) call sm%apply_restr(ww,trans_,aux,info)
-        call sm%sv%apply(done,ww,dzero,ty,sm%desc_data,trans_,aux,wv(4:),info,init='Y') 
+        call sm%sv%apply(done,ww,dzero,ty,sm%desc_data,trans_,aux,info,init='Y') 
         
         if (info /= psb_success_) exit
         if (info == 0) call sm%apply_prol(ty,trans_,aux,info)
diff --git a/mlprec/impl/smoother/mld_s_as_smoother_apply.f90 b/mlprec/impl/smoother/mld_s_as_smoother_apply.f90
index a8d7a2e2..93285487 100644
--- a/mlprec/impl/smoother/mld_s_as_smoother_apply.f90
+++ b/mlprec/impl/smoother/mld_s_as_smoother_apply.f90
@@ -173,7 +173,7 @@ subroutine mld_s_as_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,&
         
         if (info /= psb_success_) exit
         if (info == 0) call sm%apply_restr(ww,trans_,aux,info)
-        call sm%sv%apply(sone,ww,szero,ty,sm%desc_data,trans_,aux,wv(4:),info,init='Y') 
+        call sm%sv%apply(sone,ww,szero,ty,sm%desc_data,trans_,aux,info,init='Y') 
         
         if (info /= psb_success_) exit
         if (info == 0) call sm%apply_prol(ty,trans_,aux,info)
diff --git a/mlprec/impl/smoother/mld_z_as_smoother_apply.f90 b/mlprec/impl/smoother/mld_z_as_smoother_apply.f90
index 6179bd50..02d05bf8 100644
--- a/mlprec/impl/smoother/mld_z_as_smoother_apply.f90
+++ b/mlprec/impl/smoother/mld_z_as_smoother_apply.f90
@@ -173,7 +173,7 @@ subroutine mld_z_as_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,&
         
         if (info /= psb_success_) exit
         if (info == 0) call sm%apply_restr(ww,trans_,aux,info)
-        call sm%sv%apply(zone,ww,zzero,ty,sm%desc_data,trans_,aux,wv(4:),info,init='Y') 
+        call sm%sv%apply(zone,ww,zzero,ty,sm%desc_data,trans_,aux,info,init='Y') 
         
         if (info /= psb_success_) exit
         if (info == 0) call sm%apply_prol(ty,trans_,aux,info)