Changeset 1517 for XIOS/dev/branch_openmp/extern/ep_dev/ep_finalize.cpp
- Timestamp:
- 06/01/18 15:24:53 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/extern/ep_dev/ep_finalize.cpp
r1500 r1517 22 22 int MPI_Abort(MPI_Comm comm, int errorcode) 23 23 { 24 int id = omp_get_thread_num(); 24 if(!comm->is_ep) 25 return MPI_Abort_mpi(comm, errorcode); 25 26 26 if(id == 0)27 else 27 28 { 28 ::MPI_Comm mpi_comm = to_mpi_comm(comm->mpi_comm); 29 ::MPI_Abort(mpi_comm, errorcode); 29 if(comm->ep_comm_ptr->size_rank_info[1].first == 0) 30 { 31 ::MPI_Abort(to_mpi_comm(comm->mpi_comm), errorcode); 32 } 30 33 } 31 return 0; 34 } 35 36 int MPI_Abort_mpi(MPI_Comm comm, int errorcode) 37 { 38 return ::MPI_Abort(to_mpi_comm(comm->mpi_comm), errorcode); 32 39 } 33 40
Note: See TracChangeset
for help on using the changeset viewer.