From 0201bd53dd4411ac9d55ae0f82dbc5d94e07b4b4 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 24 May 2007 11:56:16 +0000 Subject: [PATCH] Call psb_get_mpicomm ONLY in CDALL; afterwards, always get it from DESC. --- psb_dasmatbld.f90 | 4 ++-- psb_zasmatbld.f90 | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/psb_dasmatbld.f90 b/psb_dasmatbld.f90 index 74e7ddff..68c98a97 100644 --- a/psb_dasmatbld.f90 +++ b/psb_dasmatbld.f90 @@ -84,8 +84,8 @@ Subroutine psb_dasmatbld(ptype,novr,a,blk,desc_data,upd,desc_p,info,outfmt) call psb_erractionsave(err_act) If(debug) Write(0,*)'IN DASMATBLD ', upd - ictxt = psb_cd_get_context(desc_a) - icomm = psb_cd_get_mpic(desc_a) + ictxt = psb_cd_get_context(desc_data) + icomm = psb_cd_get_mpic(desc_data) Call psb_info(ictxt, me, np) diff --git a/psb_zasmatbld.f90 b/psb_zasmatbld.f90 index 29d2043a..6c9322b0 100644 --- a/psb_zasmatbld.f90 +++ b/psb_zasmatbld.f90 @@ -85,8 +85,8 @@ Subroutine psb_zasmatbld(ptype,novr,a,blk,desc_data,upd,desc_p,info,outfmt) call psb_erractionsave(err_act) If(debug) Write(0,*)'IN DASMATBLD ', upd - ictxt = psb_cd_get_context(desc_a) - icomm = psb_cd_get_mpic(desc_a) + ictxt = psb_cd_get_context(desc_data) + icomm = psb_cd_get_mpic(desc_data) Call psb_info(ictxt, me, np)