diff --git a/amgprec/impl/smoother/amg_c_as_smoother_clone.f90 b/amgprec/impl/smoother/amg_c_as_smoother_clone.f90
index 1c006841..9632905e 100644
--- a/amgprec/impl/smoother/amg_c_as_smoother_clone.f90
+++ b/amgprec/impl/smoother/amg_c_as_smoother_clone.f90
@@ -74,7 +74,7 @@ subroutine amg_c_as_smoother_clone(sm,smout,info)
     if (info == psb_success_) &
          & call sm%desc_data%clone(smo%desc_data,info)    
     if ((info==psb_success_).and.(allocated(sm%sv))) then
-      allocate(smout%sv,mold=sm%sv,stat=info)
+      allocate(smo%sv,mold=sm%sv,stat=info)
       if (info == psb_success_) call sm%sv%clone(smo%sv,info)
     end if
     
diff --git a/amgprec/impl/smoother/amg_c_jac_smoother_clone.f90 b/amgprec/impl/smoother/amg_c_jac_smoother_clone.f90
index 0643cf0a..8d147e28 100644
--- a/amgprec/impl/smoother/amg_c_jac_smoother_clone.f90
+++ b/amgprec/impl/smoother/amg_c_jac_smoother_clone.f90
@@ -74,7 +74,7 @@ subroutine amg_c_jac_smoother_clone(sm,smout,info)
     smo%tol        = sm%tol
     call sm%nd%clone(smo%nd,info)
     if ((info==psb_success_).and.(allocated(sm%sv))) then
-      allocate(smout%sv,mold=sm%sv,stat=info)
+      allocate(smo%sv,mold=sm%sv,stat=info)
       if (info == psb_success_) call sm%sv%clone(smo%sv,info)
     end if
 
diff --git a/amgprec/impl/smoother/amg_d_as_smoother_clone.f90 b/amgprec/impl/smoother/amg_d_as_smoother_clone.f90
index 71a05626..c7bbd942 100644
--- a/amgprec/impl/smoother/amg_d_as_smoother_clone.f90
+++ b/amgprec/impl/smoother/amg_d_as_smoother_clone.f90
@@ -74,7 +74,7 @@ subroutine amg_d_as_smoother_clone(sm,smout,info)
     if (info == psb_success_) &
          & call sm%desc_data%clone(smo%desc_data,info)    
     if ((info==psb_success_).and.(allocated(sm%sv))) then
-      allocate(smout%sv,mold=sm%sv,stat=info)
+      allocate(smo%sv,mold=sm%sv,stat=info)
       if (info == psb_success_) call sm%sv%clone(smo%sv,info)
     end if
     
diff --git a/amgprec/impl/smoother/amg_d_jac_smoother_clone.f90 b/amgprec/impl/smoother/amg_d_jac_smoother_clone.f90
index 21b6da06..72d1e382 100644
--- a/amgprec/impl/smoother/amg_d_jac_smoother_clone.f90
+++ b/amgprec/impl/smoother/amg_d_jac_smoother_clone.f90
@@ -74,7 +74,7 @@ subroutine amg_d_jac_smoother_clone(sm,smout,info)
     smo%tol        = sm%tol
     call sm%nd%clone(smo%nd,info)
     if ((info==psb_success_).and.(allocated(sm%sv))) then
-      allocate(smout%sv,mold=sm%sv,stat=info)
+      allocate(smo%sv,mold=sm%sv,stat=info)
       if (info == psb_success_) call sm%sv%clone(smo%sv,info)
     end if
 
diff --git a/amgprec/impl/smoother/amg_s_as_smoother_clone.f90 b/amgprec/impl/smoother/amg_s_as_smoother_clone.f90
index 3697079a..9cb1d20e 100644
--- a/amgprec/impl/smoother/amg_s_as_smoother_clone.f90
+++ b/amgprec/impl/smoother/amg_s_as_smoother_clone.f90
@@ -74,7 +74,7 @@ subroutine amg_s_as_smoother_clone(sm,smout,info)
     if (info == psb_success_) &
          & call sm%desc_data%clone(smo%desc_data,info)    
     if ((info==psb_success_).and.(allocated(sm%sv))) then
-      allocate(smout%sv,mold=sm%sv,stat=info)
+      allocate(smo%sv,mold=sm%sv,stat=info)
       if (info == psb_success_) call sm%sv%clone(smo%sv,info)
     end if
     
diff --git a/amgprec/impl/smoother/amg_s_jac_smoother_clone.f90 b/amgprec/impl/smoother/amg_s_jac_smoother_clone.f90
index bc828bf1..b04dda7d 100644
--- a/amgprec/impl/smoother/amg_s_jac_smoother_clone.f90
+++ b/amgprec/impl/smoother/amg_s_jac_smoother_clone.f90
@@ -74,7 +74,7 @@ subroutine amg_s_jac_smoother_clone(sm,smout,info)
     smo%tol        = sm%tol
     call sm%nd%clone(smo%nd,info)
     if ((info==psb_success_).and.(allocated(sm%sv))) then
-      allocate(smout%sv,mold=sm%sv,stat=info)
+      allocate(smo%sv,mold=sm%sv,stat=info)
       if (info == psb_success_) call sm%sv%clone(smo%sv,info)
     end if
 
diff --git a/amgprec/impl/smoother/amg_z_as_smoother_clone.f90 b/amgprec/impl/smoother/amg_z_as_smoother_clone.f90
index 006691d8..d3223240 100644
--- a/amgprec/impl/smoother/amg_z_as_smoother_clone.f90
+++ b/amgprec/impl/smoother/amg_z_as_smoother_clone.f90
@@ -74,7 +74,7 @@ subroutine amg_z_as_smoother_clone(sm,smout,info)
     if (info == psb_success_) &
          & call sm%desc_data%clone(smo%desc_data,info)    
     if ((info==psb_success_).and.(allocated(sm%sv))) then
-      allocate(smout%sv,mold=sm%sv,stat=info)
+      allocate(smo%sv,mold=sm%sv,stat=info)
       if (info == psb_success_) call sm%sv%clone(smo%sv,info)
     end if
     
diff --git a/amgprec/impl/smoother/amg_z_jac_smoother_clone.f90 b/amgprec/impl/smoother/amg_z_jac_smoother_clone.f90
index c2b66dfc..5ea845ab 100644
--- a/amgprec/impl/smoother/amg_z_jac_smoother_clone.f90
+++ b/amgprec/impl/smoother/amg_z_jac_smoother_clone.f90
@@ -74,7 +74,7 @@ subroutine amg_z_jac_smoother_clone(sm,smout,info)
     smo%tol        = sm%tol
     call sm%nd%clone(smo%nd,info)
     if ((info==psb_success_).and.(allocated(sm%sv))) then
-      allocate(smout%sv,mold=sm%sv,stat=info)
+      allocate(smo%sv,mold=sm%sv,stat=info)
       if (info == psb_success_) call sm%sv%clone(smo%sv,info)
     end if