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

psblas3:

Browse Source 
base/comm/psb_cspgather.F90
 base/comm/psb_sspgather.F90
 base/comm/psb_zspgather.F90

Fixed bug in allgather data types.
This commit is contained in:
Salvatore Filippone
2011-01-07 10:41:37 +00:00
parent 8360e7478e
commit ba45911353
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/comm/psb_cspgather.F90
+1 -1
View File
@@ -70,7 +70,7 @@ subroutine psb_csp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
ndx = nzbr(me+1)
call mpi_allgatherv(loc_coo%val,ndx,mpi_complex,&
& glob_coo%val,nzbr,idisp,&
& mpi_double_precision,icomm,info)
& mpi_complex,icomm,info)
if (info == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,mpi_integer,&
& glob_coo%ia,nzbr,idisp,&
& mpi_integer,icomm,info)
base/comm/psb_sspgather.F90
+1 -1
View File
@@ -70,7 +70,7 @@ subroutine psb_ssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
ndx = nzbr(me+1)
call mpi_allgatherv(loc_coo%val,ndx,mpi_real,&
& glob_coo%val,nzbr,idisp,&
& mpi_double_precision,icomm,info)
& mpi_real,icomm,info)
if (info == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,mpi_integer,&
& glob_coo%ia,nzbr,idisp,&
& mpi_integer,icomm,info)
base/comm/psb_zspgather.F90
+3 -3
View File
@@ -23,7 +23,7 @@ subroutine psb_zsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
logical :: keepnum_, keeploc_
integer, allocatable :: nzbr(:), idisp(:)
character(len=20) :: name
integer :: debug_level, debug_unit
integer :: debug_level, debug_unit
name='psb_gather'
if (psb_get_errstatus().ne.0) return
@@ -58,7 +58,7 @@ subroutine psb_zsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
goto 9999
end if
call loca%mv_to(loc_coo)
nzbr(:) = 0
nzbr(:) = 0
nzbr(me+1) = loc_coo%get_nzeros()
call psb_sum(ictxt,nzbr(1:np))
nzg = sum(nzbr)
@@ -70,7 +70,7 @@ subroutine psb_zsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
ndx = nzbr(me+1)
call mpi_allgatherv(loc_coo%val,ndx,mpi_double_complex,&
& glob_coo%val,nzbr,idisp,&
& mpi_double_precision,icomm,info)
& mpi_double_complex,icomm,info)
if (info == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,mpi_integer,&
& glob_coo%ia,nzbr,idisp,&
& mpi_integer,icomm,info)