From 11cf3b128dfd75323760f723bf8b98ab6440e4c5 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 31 Jan 2007 13:09:55 +0000 Subject: [PATCH] Fixed old usage of igebs2d. --- base/comm/psb_dscatter.f90 | 13 +------------ base/comm/psb_iscatter.f90 | 12 +----------- base/comm/psb_zscatter.f90 | 12 +----------- 3 files changed, 3 insertions(+), 34 deletions(-) diff --git a/base/comm/psb_dscatter.f90 b/base/comm/psb_dscatter.f90 index 2076dd9f..3ee3b738 100644 --- a/base/comm/psb_dscatter.f90 +++ b/base/comm/psb_dscatter.f90 @@ -121,11 +121,7 @@ subroutine psb_dscatterm(globx, locx, desc_a, info, iroot) m = psb_cd_get_global_rows(desc_a) n = psb_cd_get_global_cols(desc_a) - if (me == iiroot) then - call igebs2d(ictxt, 'all', ' ', 1, 1, k, 1) - else - call igebr2d(ictxt, 'all', ' ', 1, 1, k, 1, iiroot, 0) - end if + call psb_bcast(ictxt,k,root=iiroot) ! there should be a global check on k here!!! @@ -331,13 +327,6 @@ subroutine psb_dscatterv(globx, locx, desc_a, info, iroot) n = psb_cd_get_global_cols(desc_a) k = 1 - - if (me == iiroot) then - call igebs2d(ictxt, 'all', ' ', 1, 1, k, 1) - else - call igebr2d(ictxt, 'all', ' ', 1, 1, k, 1, iiroot, 0) - end if - ! there should be a global check on k here!!! call psb_chkglobvect(m,n,size(globx),iglobx,jglobx,desc_a,info) diff --git a/base/comm/psb_iscatter.f90 b/base/comm/psb_iscatter.f90 index e80fcfc8..c06dce65 100644 --- a/base/comm/psb_iscatter.f90 +++ b/base/comm/psb_iscatter.f90 @@ -120,11 +120,7 @@ subroutine psb_iscatterm(globx, locx, desc_a, info, iroot) m = psb_cd_get_global_rows(desc_a) n = psb_cd_get_global_cols(desc_a) - if (me == iiroot) then - call igebs2d(ictxt, 'all', ' ', 1, 1, k, 1) - else - call igebr2d(ictxt, 'all', ' ', 1, 1, k, 1, iiroot, 0) - end if + call psb_bcast(ictxt,k,root=iiroot) ! there should be a global check on k here!!! @@ -331,12 +327,6 @@ subroutine psb_iscatterv(globx, locx, desc_a, info, iroot) k = 1 - if (me == iiroot) then - call igebs2d(ictxt, 'all', ' ', 1, 1, k, 1) - else - call igebr2d(ictxt, 'all', ' ', 1, 1, k, 1, iiroot, 0) - end if - ! there should be a global check on k here!!! call psb_chkglobvect(m,n,size(globx),iglobx,jglobx,desc_a,info) diff --git a/base/comm/psb_zscatter.f90 b/base/comm/psb_zscatter.f90 index 0d46ca9a..4ba7b566 100644 --- a/base/comm/psb_zscatter.f90 +++ b/base/comm/psb_zscatter.f90 @@ -122,11 +122,7 @@ subroutine psb_zscatterm(globx, locx, desc_a, info, iroot) m = psb_cd_get_global_rows(desc_a) n = psb_cd_get_global_cols(desc_a) - if (me == iiroot) then - call igebs2d(ictxt, 'all', ' ', 1, 1, k, 1) - else - call igebr2d(ictxt, 'all', ' ', 1, 1, k, 1, iiroot, 0) - end if + call psb_bcast(ictxt,k,root=iiroot) ! there should be a global check on k here!!! @@ -334,12 +330,6 @@ subroutine psb_zscatterv(globx, locx, desc_a, info, iroot) k = 1 - if (me == iiroot) then - call igebs2d(ictxt, 'all', ' ', 1, 1, k, 1) - else - call igebr2d(ictxt, 'all', ' ', 1, 1, k, 1, iiroot, 0) - end if - ! there should be a global check on k here!!! call psb_chkglobvect(m,n,size(globx),iglobx,jglobx,desc_a,info)