fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-24 14:51:49 +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:40:55 +00:00
parent b350f41c87
commit 4b16ee0af4
13 changed files with 32 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_dcdovr.F90
+3 -3
View File
@@ -101,8 +101,8 @@ Subroutine psb_dcdovr(a,desc_a,novr,desc_ov,info, extype)
info = 0
call psb_erractionsave(err_act)
ictxt=psb_cd_get_context(desc_a)
ictxt = psb_cd_get_context(desc_a)
icomm = psb_cd_get_mpic(desc_a)
Call psb_info(ictxt, me, np)
If(debug) Write(0,*)'in psb_cdovr',novr
@@ -143,7 +143,7 @@ Subroutine psb_dcdovr(a,desc_a,novr,desc_ov,info, extype)
return
endif
call psb_get_mpicomm(ictxt,icomm )
If(debug)then
Write(0,*)'BEGIN cdovr',me,nhalo
base/tools/psb_dsphalo.F90
+1 -1
View File
@@ -119,6 +119,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rwcnv,clcnv,cliprow,outfmt,data)
endif
ictxt = psb_cd_get_context(desc_a)
icomm = psb_get_mpic(desc_a)
Call psb_info(ictxt, me, np)
@@ -182,7 +183,6 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rwcnv,clcnv,cliprow,outfmt,data)
counter = counter+n_el_send+3
Enddo
call psb_get_mpicomm(ictxt,icomm)
call mpi_alltoall(sdsz,1,mpi_integer,rvsz,1,mpi_integer,icomm,info)
if (info /= 0) then
base/tools/psb_zcdovr.F90
+3 -3
View File
@@ -99,8 +99,8 @@ Subroutine psb_zcdovr(a,desc_a,novr,desc_ov,info, extype)
info = 0
call psb_erractionsave(err_act)
ictxt=psb_cd_get_context(desc_a)
ictxt = psb_cd_get_context(desc_a)
icomm = psb_cd_get_mpic(desc_a)
Call psb_info(ictxt, me, np)
If(debug) Write(0,*)'in psb_cdovr',novr
@@ -141,7 +141,7 @@ Subroutine psb_zcdovr(a,desc_a,novr,desc_ov,info, extype)
return
endif
call psb_get_mpicomm(ictxt,icomm )
If(debug)then
Write(0,*)'BEGIN cdovr',me,nhalo
base/tools/psb_zsphalo.F90
+1 -1
View File
@@ -119,6 +119,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rwcnv,clcnv,cliprow,outfmt,data)
endif
ictxt = psb_cd_get_context(desc_a)
icomm = psb_get_mpic(desc_a)
Call psb_info(ictxt, me, np)
@@ -182,7 +183,6 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rwcnv,clcnv,cliprow,outfmt,data)
counter = counter+n_el_send+3
Enddo
call psb_get_mpicomm(ictxt,icomm)
call mpi_alltoall(sdsz,1,mpi_integer,rvsz,1,mpi_integer,icomm,info)
if (info /= 0) then