fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 04:42:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2006-11-28 13:48:39 +00:00
parent 385e449b61
commit 02d7800a6c
2 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/methd/psb_dcg.f90
+1 -1
View File
@@ -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
src/methd/psb_zcgs.f90
+2
View File
@@ -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