- Timestamp:
- 02/17/17 17:55:37 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_yushan/extern/src_ep_dev/ep_intercomm.cpp
r1037 r1053 143 143 if(ep_rank == new_local_leader) 144 144 { 145 #ifdef _serialized146 #pragma omp critical (_mpi_call)147 #endif // _serialized148 145 ::MPI_Comm_rank(MPI_COMM_WORLD_STD, &leader_in_world[0]); 149 146 } … … 190 187 int MPI_Comm_test_inter(MPI_Comm comm, int *flag) 191 188 { 189 *flag = false; 192 190 if(comm.is_ep) 193 191 { … … 195 193 return 0; 196 194 } 197 else 195 else if(comm.mpi_comm != MPI_COMM_NULL_STD) 198 196 { 199 197 ::MPI_Comm mpi_comm = static_cast< ::MPI_Comm> (comm.mpi_comm); 200 #ifdef _serialized 201 #pragma omp critical (_mpi_call) 202 #endif 198 203 199 ::MPI_Comm_test_inter(mpi_comm, flag); 204 200 return 0; 205 201 } 202 return 0; 206 203 } 207 204
Note: See TracChangeset
for help on using the changeset viewer.