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