diff --git a/tests/fileread/mld_cf_sample.f90 b/tests/fileread/mld_cf_sample.f90
index eb91ec57..e307c9f3 100644
--- a/tests/fileread/mld_cf_sample.f90
+++ b/tests/fileread/mld_cf_sample.f90
@@ -289,7 +289,7 @@ program mld_cf_sample
     end if
     call psb_barrier(ictxt)
     t1 = psb_wtime()
-    call mld_ml_prec_bld(a,desc_a,prec,info)
+    call mld_smoothers_bld(a,desc_a,prec,info)
     tprec = psb_wtime()-t1
     if (info /= psb_success_) then
       call psb_errpush(psb_err_from_subroutine_,name,a_err='psb_precbld')
diff --git a/tests/fileread/mld_df_sample.f90 b/tests/fileread/mld_df_sample.f90
index b19feb2a..c779621f 100644
--- a/tests/fileread/mld_df_sample.f90
+++ b/tests/fileread/mld_df_sample.f90
@@ -289,7 +289,7 @@ program mld_df_sample
     end if
     call psb_barrier(ictxt)
     t1 = psb_wtime()
-    call mld_ml_prec_bld(a,desc_a,prec,info)
+    call mld_smoothers_bld(a,desc_a,prec,info)
     tprec = psb_wtime()-t1
     if (info /= psb_success_) then
       call psb_errpush(psb_err_from_subroutine_,name,a_err='psb_precbld')
diff --git a/tests/fileread/mld_sf_sample.f90 b/tests/fileread/mld_sf_sample.f90
index 7ec99984..3aba465a 100644
--- a/tests/fileread/mld_sf_sample.f90
+++ b/tests/fileread/mld_sf_sample.f90
@@ -289,7 +289,7 @@ program mld_sf_sample
     end if
     call psb_barrier(ictxt)
     t1 = psb_wtime()
-    call mld_ml_prec_bld(a,desc_a,prec,info)
+    call mld_smoothers_bld(a,desc_a,prec,info)
     tprec = psb_wtime()-t1
     if (info /= psb_success_) then
       call psb_errpush(psb_err_from_subroutine_,name,a_err='psb_precbld')
diff --git a/tests/fileread/mld_zf_sample.f90 b/tests/fileread/mld_zf_sample.f90
index 9b46e532..7886628b 100644
--- a/tests/fileread/mld_zf_sample.f90
+++ b/tests/fileread/mld_zf_sample.f90
@@ -289,7 +289,7 @@ program mld_zf_sample
     end if
     call psb_barrier(ictxt)
     t1 = psb_wtime()
-    call mld_ml_prec_bld(a,desc_a,prec,info)
+    call mld_smoothers_bld(a,desc_a,prec,info)
     tprec = psb_wtime()-t1
     if (info /= psb_success_) then
       call psb_errpush(psb_err_from_subroutine_,name,a_err='psb_precbld')
diff --git a/tests/pdegen/mld_d_pde2d.f90 b/tests/pdegen/mld_d_pde2d.f90
index a085aa3e..b3fc458d 100644
--- a/tests/pdegen/mld_d_pde2d.f90
+++ b/tests/pdegen/mld_d_pde2d.f90
@@ -284,7 +284,7 @@ program mld_d_pde2d
 
     call psb_barrier(ictxt)
     t1 = psb_wtime()
-    call mld_ml_prec_bld(a,desc_a,prec,info)
+    call mld_smoothers_bld(a,desc_a,prec,info)
     if(info /= psb_success_) then
       info=psb_err_from_subroutine_
       ch_err='psb_precbld'
diff --git a/tests/pdegen/mld_d_pde3d.f90 b/tests/pdegen/mld_d_pde3d.f90
index 1dae12e1..b778b98a 100644
--- a/tests/pdegen/mld_d_pde3d.f90
+++ b/tests/pdegen/mld_d_pde3d.f90
@@ -296,7 +296,7 @@ program mld_d_pde3d
 
     call psb_barrier(ictxt)
     t1 = psb_wtime()
-    call mld_ml_prec_bld(a,desc_a,prec,info)
+    call mld_smoothers_bld(a,desc_a,prec,info)
     if(info /= psb_success_) then
       info=psb_err_from_subroutine_
       ch_err='psb_precbld'
diff --git a/tests/pdegen/mld_s_pde2d.f90 b/tests/pdegen/mld_s_pde2d.f90
index 7177c33c..968902b0 100644
--- a/tests/pdegen/mld_s_pde2d.f90
+++ b/tests/pdegen/mld_s_pde2d.f90
@@ -284,7 +284,7 @@ program mld_s_pde2d
 
     call psb_barrier(ictxt)
     t1 = psb_wtime()
-    call mld_ml_prec_bld(a,desc_a,prec,info)
+    call mld_smoothers_bld(a,desc_a,prec,info)
     if(info /= psb_success_) then
       info=psb_err_from_subroutine_
       ch_err='psb_precbld'
diff --git a/tests/pdegen/mld_s_pde3d.f90 b/tests/pdegen/mld_s_pde3d.f90
index 7515522c..f2c4ba90 100644
--- a/tests/pdegen/mld_s_pde3d.f90
+++ b/tests/pdegen/mld_s_pde3d.f90
@@ -296,7 +296,7 @@ program mld_s_pde3d
 
     call psb_barrier(ictxt)
     t1 = psb_wtime()
-    call mld_ml_prec_bld(a,desc_a,prec,info)
+    call mld_smoothers_bld(a,desc_a,prec,info)
     if(info /= psb_success_) then
       info=psb_err_from_subroutine_
       ch_err='psb_precbld'