Changeset 1527 for XIOS/dev/branch_openmp/extern/ep_dev/ep_alltoall.cpp
- Timestamp:
- 06/08/18 15:59:53 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/extern/ep_dev/ep_alltoall.cpp
r1500 r1527 9 9 int MPI_Alltoall(const void *sendbuf, int sendcount, MPI_Datatype sendtype, void *recvbuf, int recvcount, MPI_Datatype recvtype, MPI_Comm comm) 10 10 { 11 if(!comm->is_ep) 12 { 13 return ::MPI_Alltoall(sendbuf, sendcount, to_mpi_type(sendtype), recvbuf, recvcount, to_mpi_type(recvtype), to_mpi_comm(comm->mpi_comm)); 14 } 11 if(!comm->is_ep) return ::MPI_Alltoall(sendbuf, sendcount, to_mpi_type(sendtype), recvbuf, recvcount, to_mpi_type(recvtype), to_mpi_comm(comm->mpi_comm)); 12 if(comm->is_intercomm) return MPI_Alltoall_intercomm(sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, comm); 15 13 16 14 … … 55 53 delete[] tmp_sendbuf; 56 54 } 57 58 MPI_Barrier(comm);59 60 return 0;61 55 } 62 56 57 58 int MPI_Alltoall_intercomm(const void *sendbuf, int sendcount, MPI_Datatype sendtype, void *recvbuf, int recvcount, MPI_Datatype recvtype, MPI_Comm comm) 59 { 60 printf("MPI_Alltoall_intercomm not yet implemented\n"); 61 MPI_Abort(comm, 0); 62 } 63 63 } 64 64
Note: See TracChangeset
for help on using the changeset viewer.