Changeset 1500 for XIOS/dev/branch_openmp/extern/ep_dev/ep_compare.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_compare.cpp
r1395 r1500 11 11 int MPI_Compare_and_swap(const void *origin_addr, const void *compare_addr, void *result_addr, MPI_Datatype datatype, int target_rank, MPI_Aint target_disp, MPI_Win win) 12 12 { 13 int target_mpi_rank = win .comm.rank_map->at(target_rank).second;14 int target_local_rank = win .comm.rank_map->at(target_rank).first;15 int num_ep = win .comm.ep_comm_ptr->size_rank_info[1].second;13 int target_mpi_rank = win->comm->rank_map->at(target_rank).second; 14 int target_local_rank = win->comm->rank_map->at(target_rank).first; 15 int num_ep = win->comm->ep_comm_ptr->size_rank_info[1].second; 16 16 if(num_ep==1) 17 return ::MPI_Compare_and_swap(origin_addr, compare_addr, result_addr, to_mpi_type(datatype), target_mpi_rank, to_mpi_aint(target_disp), to_mpi_win(win .server_win[target_local_rank]));17 return ::MPI_Compare_and_swap(origin_addr, compare_addr, result_addr, to_mpi_type(datatype), target_mpi_rank, to_mpi_aint(target_disp), to_mpi_win(win->server_win[target_local_rank])); 18 18 19 19 else 20 return ::MPI_Compare_and_swap(origin_addr, compare_addr, result_addr, to_mpi_type(datatype), target_mpi_rank, to_mpi_aint(target_disp), to_mpi_win(win .client_win));20 return ::MPI_Compare_and_swap(origin_addr, compare_addr, result_addr, to_mpi_type(datatype), target_mpi_rank, to_mpi_aint(target_disp), to_mpi_win(win->client_win)); 21 21 } 22 22
Note: See TracChangeset
for help on using the changeset viewer.