From 339d1e4a33fed0b42ab9219b62f8d3369d66dd54 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 19 Sep 2017 12:35:58 +0100 Subject: [PATCH] Fixed checks in smoothers_bld for 1lev --- mlprec/impl/mld_c_smoothers_bld.f90 | 3 ++- mlprec/impl/mld_d_smoothers_bld.f90 | 3 ++- mlprec/impl/mld_s_smoothers_bld.f90 | 3 ++- mlprec/impl/mld_z_smoothers_bld.f90 | 3 ++- 4 files changed, 8 insertions(+), 4 deletions(-) diff --git a/mlprec/impl/mld_c_smoothers_bld.f90 b/mlprec/impl/mld_c_smoothers_bld.f90 index 9dece858..a0896e40 100644 --- a/mlprec/impl/mld_c_smoothers_bld.f90 +++ b/mlprec/impl/mld_c_smoothers_bld.f90 @@ -169,8 +169,9 @@ subroutine mld_c_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold) end do ! ! Issue a warning for inconsistent changes to COARSE_SOLVE + ! but only if it really is a multilevel ! - if (me == psb_root_) then + if ((me == psb_root_).and.(iszv>1)) then coarse_solve_id = prec%precv(iszv)%parms%coarse_solve select case (coarse_solve_id) case(mld_umf_,mld_slu_) diff --git a/mlprec/impl/mld_d_smoothers_bld.f90 b/mlprec/impl/mld_d_smoothers_bld.f90 index cb5fa89e..b5d06063 100644 --- a/mlprec/impl/mld_d_smoothers_bld.f90 +++ b/mlprec/impl/mld_d_smoothers_bld.f90 @@ -169,8 +169,9 @@ subroutine mld_d_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold) end do ! ! Issue a warning for inconsistent changes to COARSE_SOLVE + ! but only if it really is a multilevel ! - if (me == psb_root_) then + if ((me == psb_root_).and.(iszv>1)) then coarse_solve_id = prec%precv(iszv)%parms%coarse_solve select case (coarse_solve_id) case(mld_umf_,mld_slu_) diff --git a/mlprec/impl/mld_s_smoothers_bld.f90 b/mlprec/impl/mld_s_smoothers_bld.f90 index 2f942d18..b62bacec 100644 --- a/mlprec/impl/mld_s_smoothers_bld.f90 +++ b/mlprec/impl/mld_s_smoothers_bld.f90 @@ -169,8 +169,9 @@ subroutine mld_s_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold) end do ! ! Issue a warning for inconsistent changes to COARSE_SOLVE + ! but only if it really is a multilevel ! - if (me == psb_root_) then + if ((me == psb_root_).and.(iszv>1)) then coarse_solve_id = prec%precv(iszv)%parms%coarse_solve select case (coarse_solve_id) case(mld_umf_,mld_slu_) diff --git a/mlprec/impl/mld_z_smoothers_bld.f90 b/mlprec/impl/mld_z_smoothers_bld.f90 index fc3289d6..5e3bf961 100644 --- a/mlprec/impl/mld_z_smoothers_bld.f90 +++ b/mlprec/impl/mld_z_smoothers_bld.f90 @@ -169,8 +169,9 @@ subroutine mld_z_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold) end do ! ! Issue a warning for inconsistent changes to COARSE_SOLVE + ! but only if it really is a multilevel ! - if (me == psb_root_) then + if ((me == psb_root_).and.(iszv>1)) then coarse_solve_id = prec%precv(iszv)%parms%coarse_solve select case (coarse_solve_id) case(mld_umf_,mld_slu_)