From 3cbeeda750d3262a293accdce9d80dae6e905cbf Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 4 Oct 2016 16:07:18 +0000 Subject: [PATCH] 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. --- tests/fileread/mld_cf_sample.f90 | 2 +- tests/fileread/mld_df_sample.f90 | 2 +- tests/fileread/mld_sf_sample.f90 | 2 +- tests/fileread/mld_zf_sample.f90 | 2 +- tests/pdegen/mld_d_pde2d.f90 | 2 +- tests/pdegen/mld_d_pde3d.f90 | 2 +- tests/pdegen/mld_s_pde2d.f90 | 2 +- tests/pdegen/mld_s_pde3d.f90 | 2 +- 8 files changed, 8 insertions(+), 8 deletions(-) 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'