- Timestamp:
- 06/04/18 19:25:08 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/extern/src_ep_dev/ep_reduce_scatter.cpp
r1365 r1520 19 19 int MPI_Reduce_scatter(const void *sendbuf, void *recvbuf, const int recvcounts[], MPI_Datatype datatype, MPI_Op op, MPI_Comm comm) 20 20 { 21 if(!comm .is_ep)21 if(!comm->is_ep) 22 22 { 23 return ::MPI_Reduce_scatter(sendbuf, recvbuf, recvcounts, to_mpi_type(datatype), to_mpi_op(op), to_mpi_comm(comm .mpi_comm));23 return ::MPI_Reduce_scatter(sendbuf, recvbuf, recvcounts, to_mpi_type(datatype), to_mpi_op(op), to_mpi_comm(comm->mpi_comm)); 24 24 } 25 25 26 26 27 int ep_rank = comm .ep_comm_ptr->size_rank_info[0].first;28 int ep_rank_loc = comm .ep_comm_ptr->size_rank_info[1].first;29 int mpi_rank = comm .ep_comm_ptr->size_rank_info[2].first;30 int ep_size = comm .ep_comm_ptr->size_rank_info[0].second;31 int num_ep = comm .ep_comm_ptr->size_rank_info[1].second;32 int mpi_size = comm .ep_comm_ptr->size_rank_info[2].second;27 int ep_rank = comm->ep_comm_ptr->size_rank_info[0].first; 28 int ep_rank_loc = comm->ep_comm_ptr->size_rank_info[1].first; 29 int mpi_rank = comm->ep_comm_ptr->size_rank_info[2].first; 30 int ep_size = comm->ep_comm_ptr->size_rank_info[0].second; 31 int num_ep = comm->ep_comm_ptr->size_rank_info[1].second; 32 int mpi_size = comm->ep_comm_ptr->size_rank_info[2].second; 33 33 34 34 … … 52 52 if(is_master) 53 53 { 54 ::MPI_Allreduce(MPI_IN_PLACE, local_recvbuf, count, to_mpi_type(datatype), to_mpi_op(op), to_mpi_comm(comm .mpi_comm));54 ::MPI_Allreduce(MPI_IN_PLACE, local_recvbuf, count, to_mpi_type(datatype), to_mpi_op(op), to_mpi_comm(comm->mpi_comm)); 55 55 } 56 56
Note: See TracChangeset
for help on using the changeset viewer.