Changeset 1527 for XIOS/dev/branch_openmp/extern/ep_dev/ep_reduce.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_reduce.cpp
r1503 r1527 288 288 { 289 289 290 if(!comm->is_ep && comm->mpi_comm) 291 { 292 return ::MPI_Reduce(sendbuf, recvbuf, count, to_mpi_type(datatype), to_mpi_op(op), root, to_mpi_comm(comm->mpi_comm)); 293 } 290 if(!comm->is_ep) return ::MPI_Reduce(sendbuf, recvbuf, count, to_mpi_type(datatype), to_mpi_op(op), root, to_mpi_comm(comm->mpi_comm)); 291 if(comm->is_intercomm) return MPI_Reduce_intercomm(sendbuf, recvbuf, count, datatype, op, root, comm); 294 292 295 293 … … 339 337 340 338 339 int MPI_Reduce_intercomm(const void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype, MPI_Op op, int root, MPI_Comm comm) 340 { 341 printf("MPI_Reduce_intercomm not yet implemented\n"); 342 MPI_Abort(comm, 0); 343 } 341 344 } 342 345
Note: See TracChangeset
for help on using the changeset viewer.