Call psb_get_mpicomm ONLY in CDALL; afterwards, always get it from DESC.

18 years ago · b42976808a
parent 4b16ee0af4
commit b42976808a
2 changed files with 2 additions and 2 deletions
--- 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)

--- 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)