fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-20 12:52:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Call psb_get_mpicomm ONLY in CDALL; afterwards, always get it from DESC.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-05-24 11:56:16 +00:00
parent 41b1ee0e1d
commit 0201bd53dd
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
psb_dasmatbld.f90
+2 -2
View File
@@ -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)
psb_zasmatbld.f90
+2 -2
View File
@@ -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)