Changeset 1500 for XIOS/dev/branch_openmp/extern/ep_dev/ep_split.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_split.cpp
r1381 r1500 39 39 int ep_size, num_ep, mpi_size; 40 40 41 ep_rank = comm .ep_comm_ptr->size_rank_info[0].first;42 ep_rank_loc = comm .ep_comm_ptr->size_rank_info[1].first;43 mpi_rank = comm .ep_comm_ptr->size_rank_info[2].first;44 ep_size = comm .ep_comm_ptr->size_rank_info[0].second;45 num_ep = comm .ep_comm_ptr->size_rank_info[1].second;46 mpi_size = comm .ep_comm_ptr->size_rank_info[2].second;41 ep_rank = comm->ep_comm_ptr->size_rank_info[0].first; 42 ep_rank_loc = comm->ep_comm_ptr->size_rank_info[1].first; 43 mpi_rank = comm->ep_comm_ptr->size_rank_info[2].first; 44 ep_size = comm->ep_comm_ptr->size_rank_info[0].second; 45 num_ep = comm->ep_comm_ptr->size_rank_info[1].second; 46 mpi_size = comm->ep_comm_ptr->size_rank_info[2].second; 47 47 48 48 int num_color = 0; … … 147 147 if(matched_number_loc[j] == 0) master_color = MPI_UNDEFINED; 148 148 149 ::MPI_Comm_split(to_mpi_comm(comm .mpi_comm), master_color, mpi_rank, split_mpi_comm[j]);149 ::MPI_Comm_split(to_mpi_comm(comm->mpi_comm), master_color, mpi_rank, split_mpi_comm[j]); 150 150 151 comm .ep_comm_ptr->comm_list->mpi_bridge = split_mpi_comm[j];151 comm->ep_comm_ptr->comm_list[0]->mpi_bridge = split_mpi_comm[j]; 152 152 } 153 153 MPI_Barrier_local(comm); … … 160 160 MPI_Comm *ep_comm; 161 161 162 MPI_Comm_create_endpoints(comm .ep_comm_ptr->comm_list->mpi_bridge, num_new_ep, info, ep_comm);162 MPI_Comm_create_endpoints(comm->ep_comm_ptr->comm_list[0]->mpi_bridge, num_new_ep, info, ep_comm); 163 163 164 164 165 comm .ep_comm_ptr->comm_list->mem_bridge = ep_comm;165 comm->ep_comm_ptr->comm_list[0]->mem_bridge = ep_comm; 166 166 } 167 167 MPI_Barrier_local(comm); 168 168 if(color == all_color[j]) 169 169 { 170 *newcomm = comm .ep_comm_ptr->comm_list->mem_bridge[new_ep_rank_loc];170 *newcomm = comm->ep_comm_ptr->comm_list[0]->mem_bridge[new_ep_rank_loc]; 171 171 172 (*newcomm) .ep_comm_ptr->comm_label = color;172 (*newcomm)->ep_comm_ptr->comm_label = color; 173 173 } 174 174 }
Note: See TracChangeset
for help on using the changeset viewer.