From b42976808af9ff84e46663e80a4e385185859969 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 24 May 2007 11:56:02 +0000 Subject: [PATCH] Call psb_get_mpicomm ONLY in CDALL; afterwards, always get it from DESC. --- base/tools/psb_dsphalo.F90 | 2 +- base/tools/psb_zsphalo.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90 index ae984c05..4d8602bf 100644 --- a/base/tools/psb_dsphalo.F90 +++ b/base/tools/psb_dsphalo.F90 @@ -119,7 +119,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rwcnv,clcnv,cliprow,outfmt,data) endif ictxt = psb_cd_get_context(desc_a) - icomm = psb_get_mpic(desc_a) + icomm = psb_cd_get_mpic(desc_a) Call psb_info(ictxt, me, np) diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90 index 4a3c7c84..62183ad8 100644 --- a/base/tools/psb_zsphalo.F90 +++ b/base/tools/psb_zsphalo.F90 @@ -119,7 +119,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rwcnv,clcnv,cliprow,outfmt,data) endif ictxt = psb_cd_get_context(desc_a) - icomm = psb_get_mpic(desc_a) + icomm = psb_cd_get_mpic(desc_a) Call psb_info(ictxt, me, np)