From efcaa9c31e7a16fa006ea1e0ad894a3cd4877fd2 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 27 Feb 2012 18:31:47 +0000 Subject: [PATCH] mld2p4-2 mlprec/impl/mld_cmlprec_bld.f90 mlprec/impl/mld_dmlprec_bld.f90 mlprec/impl/mld_smlprec_bld.f90 mlprec/impl/mld_zmlprec_bld.f90 Fix silly bug in broadcast. --- mlprec/impl/mld_cmlprec_bld.f90 | 2 +- mlprec/impl/mld_dmlprec_bld.f90 | 2 +- mlprec/impl/mld_smlprec_bld.f90 | 2 +- mlprec/impl/mld_zmlprec_bld.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mlprec/impl/mld_cmlprec_bld.f90 b/mlprec/impl/mld_cmlprec_bld.f90 index b1a7ddee..b3d6430a 100644 --- a/mlprec/impl/mld_cmlprec_bld.f90 +++ b/mlprec/impl/mld_cmlprec_bld.f90 @@ -190,7 +190,7 @@ subroutine mld_cmlprec_bld(a,desc_a,p,info,amold,vmold) ! Check on the iprcparm contents: they should be the same ! on all processes. ! - call psb_bcast(ictxt,p%precv(1)%parms) + call psb_bcast(ictxt,p%precv(i)%parms) ! ! Sanity checks on the parameters diff --git a/mlprec/impl/mld_dmlprec_bld.f90 b/mlprec/impl/mld_dmlprec_bld.f90 index 6ee1ed54..0051fe69 100644 --- a/mlprec/impl/mld_dmlprec_bld.f90 +++ b/mlprec/impl/mld_dmlprec_bld.f90 @@ -190,7 +190,7 @@ subroutine mld_dmlprec_bld(a,desc_a,p,info,amold,vmold) ! Check on the iprcparm contents: they should be the same ! on all processes. ! - call psb_bcast(ictxt,p%precv(1)%parms) + call psb_bcast(ictxt,p%precv(i)%parms) ! ! Sanity checks on the parameters diff --git a/mlprec/impl/mld_smlprec_bld.f90 b/mlprec/impl/mld_smlprec_bld.f90 index 53a74564..d49576d6 100644 --- a/mlprec/impl/mld_smlprec_bld.f90 +++ b/mlprec/impl/mld_smlprec_bld.f90 @@ -190,7 +190,7 @@ subroutine mld_smlprec_bld(a,desc_a,p,info,amold,vmold) ! Check on the iprcparm contents: they should be the same ! on all processes. ! - call psb_bcast(ictxt,p%precv(1)%parms) + call psb_bcast(ictxt,p%precv(i)%parms) ! ! Sanity checks on the parameters diff --git a/mlprec/impl/mld_zmlprec_bld.f90 b/mlprec/impl/mld_zmlprec_bld.f90 index ccb97437..8f1a949a 100644 --- a/mlprec/impl/mld_zmlprec_bld.f90 +++ b/mlprec/impl/mld_zmlprec_bld.f90 @@ -190,7 +190,7 @@ subroutine mld_zmlprec_bld(a,desc_a,p,info,amold,vmold) ! Check on the iprcparm contents: they should be the same ! on all processes. ! - call psb_bcast(ictxt,p%precv(1)%parms) + call psb_bcast(ictxt,p%precv(i)%parms) ! ! Sanity checks on the parameters