psblas3:

base/comm/psb_cspgather.F90 base/comm/psb_sspgather.F90 base/comm/psb_zspgather.F90 Fixed bug in allgather data types.
14 years ago · ba45911353
parent 8360e7478e
commit ba45911353
3 changed files with 5 additions and 5 deletions
--- 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)
--- 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)
--- a/base/comm/psb_zspgather.F90
+++ b/base/comm/psb_zspgather.F90
@ -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)