From 02d7800a6ce3b1235e57c92047133eb3c8052c04 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 28 Nov 2006 13:48:39 +0000 Subject: [PATCH] *** empty log message *** --- src/methd/psb_dcg.f90 | 2 +- src/methd/psb_zcgs.f90 | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src/methd/psb_dcg.f90 b/src/methd/psb_dcg.f90 index f83ca4ea..b00b8f90 100644 --- a/src/methd/psb_dcg.f90 +++ b/src/methd/psb_dcg.f90 @@ -115,13 +115,13 @@ Subroutine psb_dcg(a,prec,b,x,eps,desc_a,info,& ictxt = psb_cd_get_context(desc_a) + call psb_info(ictxt, me, np) mglob = psb_cd_get_global_rows(desc_a) n_row = psb_cd_get_local_rows(desc_a) n_col = psb_cd_get_local_cols(desc_a) - if (present(istop)) then istop_ = istop else diff --git a/src/methd/psb_zcgs.f90 b/src/methd/psb_zcgs.f90 index 514ec929..68ead03b 100644 --- a/src/methd/psb_zcgs.f90 +++ b/src/methd/psb_zcgs.f90 @@ -117,7 +117,9 @@ Subroutine psb_zcgs(a,prec,b,x,eps,desc_a,info,& call psb_erractionsave(err_act) If (debug) Write(*,*) 'entering psb_zcgs' + ictxt = psb_cd_get_context(desc_a) + Call psb_info(ictxt, me, np) If (debug) Write(*,*) 'psb_zcgs: from gridinfo',np,me