mld2p4-2:

tests/fileread/mld_cf_sample.f90 tests/fileread/mld_df_sample.f90 tests/fileread/mld_sf_sample.f90 tests/fileread/mld_zf_sample.f90 tests/pdegen/mld_d_pde2d.f90 tests/pdegen/mld_d_pde3d.f90 tests/pdegen/mld_s_pde2d.f90 tests/pdegen/mld_s_pde3d.f90 Fixed new name for user API.
8 years ago · 3cbeeda750
parent ae3699b09e
commit 3cbeeda750
8 changed files with 8 additions and 8 deletions
--- 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')
--- 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')
--- 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')
--- 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')
--- 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'
--- 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'
--- 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'
--- 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'