From ba45911353b757fa7900156da67cf88a6e06efb1 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 7 Jan 2011 10:41:37 +0000 Subject: [PATCH] psblas3: base/comm/psb_cspgather.F90 base/comm/psb_sspgather.F90 base/comm/psb_zspgather.F90 Fixed bug in allgather data types. --- base/comm/psb_cspgather.F90 | 2 +- base/comm/psb_sspgather.F90 | 2 +- base/comm/psb_zspgather.F90 | 6 +++--- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/base/comm/psb_cspgather.F90 b/base/comm/psb_cspgather.F90 index d4e2e04f..35c4af89 100644 --- a/base/comm/psb_cspgather.F90 +++ b/base/comm/psb_cspgather.F90 @@ -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) diff --git a/base/comm/psb_sspgather.F90 b/base/comm/psb_sspgather.F90 index 09b23e15..3ec42ec9 100644 --- a/base/comm/psb_sspgather.F90 +++ b/base/comm/psb_sspgather.F90 @@ -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) diff --git a/base/comm/psb_zspgather.F90 b/base/comm/psb_zspgather.F90 index 58a5d30b..6bd2ed9a 100644 --- a/base/comm/psb_zspgather.F90 +++ b/base/comm/psb_zspgather.F90 @@ -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)