*** empty log message ***

psblas3-type-indexed
Salvatore Filippone 18 years ago
parent 385e449b61
commit 02d7800a6c

@ -115,13 +115,13 @@ Subroutine psb_dcg(a,prec,b,x,eps,desc_a,info,&
ictxt = psb_cd_get_context(desc_a) ictxt = psb_cd_get_context(desc_a)
call psb_info(ictxt, me, np) call psb_info(ictxt, me, np)
mglob = psb_cd_get_global_rows(desc_a) mglob = psb_cd_get_global_rows(desc_a)
n_row = psb_cd_get_local_rows(desc_a) n_row = psb_cd_get_local_rows(desc_a)
n_col = psb_cd_get_local_cols(desc_a) n_col = psb_cd_get_local_cols(desc_a)
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else

@ -117,7 +117,9 @@ Subroutine psb_zcgs(a,prec,b,x,eps,desc_a,info,&
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
If (debug) Write(*,*) 'entering psb_zcgs' If (debug) Write(*,*) 'entering psb_zcgs'
ictxt = psb_cd_get_context(desc_a) ictxt = psb_cd_get_context(desc_a)
Call psb_info(ictxt, me, np) Call psb_info(ictxt, me, np)
If (debug) Write(*,*) 'psb_zcgs: from gridinfo',np,me If (debug) Write(*,*) 'psb_zcgs: from gridinfo',np,me

Loading…
Cancel
Save