From bfe8c55865a4689f4f2a7718cdcabc0cf7dcfa76 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 12 Dec 2018 15:31:47 +0000 Subject: [PATCH] Fixed misspell in variable name. --- tests/pdegen/mld_d_pde2d.f90 | 6 +++--- tests/pdegen/mld_d_pde3d.f90 | 6 +++--- tests/pdegen/mld_s_pde2d.f90 | 6 +++--- tests/pdegen/mld_s_pde3d.f90 | 6 +++--- 4 files changed, 12 insertions(+), 12 deletions(-) diff --git a/tests/pdegen/mld_d_pde2d.f90 b/tests/pdegen/mld_d_pde2d.f90 index 8afdc1ce..908fada1 100644 --- a/tests/pdegen/mld_d_pde2d.f90 +++ b/tests/pdegen/mld_d_pde2d.f90 @@ -1032,12 +1032,12 @@ contains call psb_bcast(icontxt,prec%aggr_ord) call psb_bcast(icontxt,prec%aggr_filter) call psb_bcast(icontxt,prec%mncrratio) - call psb_bcast(ictxt,prec%thrvsz) + call psb_bcast(icontxt,prec%thrvsz) if (prec%thrvsz > 0) then if (iam /= psb_root_) call psb_realloc(prec%thrvsz,prec%athresv,info) - call psb_bcast(ictxt,prec%athresv) + call psb_bcast(icontxt,prec%athresv) end if - call psb_bcast(ictxt,prec%athres) + call psb_bcast(icontxt,prec%athres) call psb_bcast(icontxt,prec%csize) call psb_bcast(icontxt,prec%cmat) diff --git a/tests/pdegen/mld_d_pde3d.f90 b/tests/pdegen/mld_d_pde3d.f90 index 7fb70edb..47a5da7b 100644 --- a/tests/pdegen/mld_d_pde3d.f90 +++ b/tests/pdegen/mld_d_pde3d.f90 @@ -1073,12 +1073,12 @@ contains call psb_bcast(icontxt,prec%aggr_ord) call psb_bcast(icontxt,prec%aggr_filter) call psb_bcast(icontxt,prec%mncrratio) - call psb_bcast(ictxt,prec%thrvsz) + call psb_bcast(icontxt,prec%thrvsz) if (prec%thrvsz > 0) then if (iam /= psb_root_) call psb_realloc(prec%thrvsz,prec%athresv,info) - call psb_bcast(ictxt,prec%athresv) + call psb_bcast(icontxt,prec%athresv) end if - call psb_bcast(ictxt,prec%athres) + call psb_bcast(icontxt,prec%athres) call psb_bcast(icontxt,prec%csize) call psb_bcast(icontxt,prec%cmat) diff --git a/tests/pdegen/mld_s_pde2d.f90 b/tests/pdegen/mld_s_pde2d.f90 index 7d34101e..0d825b67 100644 --- a/tests/pdegen/mld_s_pde2d.f90 +++ b/tests/pdegen/mld_s_pde2d.f90 @@ -1032,12 +1032,12 @@ contains call psb_bcast(icontxt,prec%aggr_ord) call psb_bcast(icontxt,prec%aggr_filter) call psb_bcast(icontxt,prec%mncrratio) - call psb_bcast(ictxt,prec%thrvsz) + call psb_bcast(icontxt,prec%thrvsz) if (prec%thrvsz > 0) then if (iam /= psb_root_) call psb_realloc(prec%thrvsz,prec%athresv,info) - call psb_bcast(ictxt,prec%athresv) + call psb_bcast(icontxt,prec%athresv) end if - call psb_bcast(ictxt,prec%athres) + call psb_bcast(icontxt,prec%athres) call psb_bcast(icontxt,prec%csize) call psb_bcast(icontxt,prec%cmat) diff --git a/tests/pdegen/mld_s_pde3d.f90 b/tests/pdegen/mld_s_pde3d.f90 index ff221879..1ac05b44 100644 --- a/tests/pdegen/mld_s_pde3d.f90 +++ b/tests/pdegen/mld_s_pde3d.f90 @@ -1073,12 +1073,12 @@ contains call psb_bcast(icontxt,prec%aggr_ord) call psb_bcast(icontxt,prec%aggr_filter) call psb_bcast(icontxt,prec%mncrratio) - call psb_bcast(ictxt,prec%thrvsz) + call psb_bcast(icontxt,prec%thrvsz) if (prec%thrvsz > 0) then if (iam /= psb_root_) call psb_realloc(prec%thrvsz,prec%athresv,info) - call psb_bcast(ictxt,prec%athresv) + call psb_bcast(icontxt,prec%athresv) end if - call psb_bcast(ictxt,prec%athres) + call psb_bcast(icontxt,prec%athres) call psb_bcast(icontxt,prec%csize) call psb_bcast(icontxt,prec%cmat)