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

18 years ago · 0201bd53dd
parent 41b1ee0e1d
commit 0201bd53dd
2 changed files with 4 additions and 4 deletions
--- a/psb_dasmatbld.f90
+++ b/psb_dasmatbld.f90
@ -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)

--- a/psb_zasmatbld.f90
+++ b/psb_zasmatbld.f90
@ -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)