Changeset 1527 for XIOS/dev/branch_openmp/extern/ep_dev/ep_allgatherv.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_allgatherv.cpp
r1503 r1527 20 20 { 21 21 22 if(!comm->is_ep && comm->mpi_comm) 23 { 24 return ::MPI_Allgatherv(sendbuf, sendcount, to_mpi_type(sendtype), recvbuf, recvcounts, displs, to_mpi_type(recvtype), to_mpi_comm(comm->mpi_comm)); 25 } 26 27 if(!comm->mpi_comm) return 0; 22 if(!comm->is_ep) return ::MPI_Allgatherv(sendbuf, sendcount, to_mpi_type(sendtype), recvbuf, recvcounts, displs, to_mpi_type(recvtype), to_mpi_comm(comm->mpi_comm)); 23 if(comm->is_intercomm) return MPI_Allgatherv_intercomm(sendbuf, sendcount, sendtype, recvbuf, recvcounts, displs, recvtype, comm); 28 24 29 25 … … 114 110 delete[] tmp_recvbuf; 115 111 } 116 117 118 112 } 119 113 120 114 115 int MPI_Allgatherv_intercomm(const void *sendbuf, int sendcount, MPI_Datatype sendtype, void *recvbuf, const int recvcounts[], const int displs[], MPI_Datatype recvtype, MPI_Comm comm) 116 { 117 printf("MPI_Allgatherv_intercomm not yet implemented\n"); 118 MPI_Abort(comm, 0); 119 } 120 121 121 122 122 }
Note: See TracChangeset
for help on using the changeset viewer.