Changeset 1500 for XIOS/dev/branch_openmp/extern/ep_dev/ep_allreduce.cpp
- Timestamp:
- 05/28/18 09:54:32 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/extern/ep_dev/ep_allreduce.cpp
r1381 r1500 21 21 int MPI_Allreduce(const void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype, MPI_Op op, MPI_Comm comm) 22 22 { 23 if(!comm .is_ep && comm.mpi_comm)23 if(!comm->is_ep && comm->mpi_comm) 24 24 { 25 return ::MPI_Allreduce(sendbuf, recvbuf, count, to_mpi_type(datatype), to_mpi_op(op), to_mpi_comm(comm .mpi_comm));25 return ::MPI_Allreduce(sendbuf, recvbuf, count, to_mpi_type(datatype), to_mpi_op(op), to_mpi_comm(comm->mpi_comm)); 26 26 } 27 27 28 28 29 29 30 int ep_rank = comm .ep_comm_ptr->size_rank_info[0].first;31 int ep_rank_loc = comm .ep_comm_ptr->size_rank_info[1].first;32 int mpi_rank = comm .ep_comm_ptr->size_rank_info[2].first;33 int ep_size = comm .ep_comm_ptr->size_rank_info[0].second;34 int num_ep = comm .ep_comm_ptr->size_rank_info[1].second;35 int mpi_size = comm .ep_comm_ptr->size_rank_info[2].second;30 int ep_rank = comm->ep_comm_ptr->size_rank_info[0].first; 31 int ep_rank_loc = comm->ep_comm_ptr->size_rank_info[1].first; 32 int mpi_rank = comm->ep_comm_ptr->size_rank_info[2].first; 33 int ep_size = comm->ep_comm_ptr->size_rank_info[0].second; 34 int num_ep = comm->ep_comm_ptr->size_rank_info[1].second; 35 int mpi_size = comm->ep_comm_ptr->size_rank_info[2].second; 36 36 37 37 … … 55 55 if(is_master) 56 56 { 57 ::MPI_Allreduce(local_recvbuf, recvbuf, count, to_mpi_type(datatype), to_mpi_op(op), to_mpi_comm(comm .mpi_comm));57 ::MPI_Allreduce(local_recvbuf, recvbuf, count, to_mpi_type(datatype), to_mpi_op(op), to_mpi_comm(comm->mpi_comm)); 58 58 } 59 59
Note: See TracChangeset
for help on using the changeset viewer.