Changeset 1520 for XIOS/dev/branch_openmp/extern/src_ep_dev/ep_finalize.cpp

Timestamp:

06/04/18 19:25:08 (6 years ago)

Author:

yushan

Message:

save dev. TO DO : test with xios

File:

• XIOS/dev/branch_openmp/extern/src_ep_dev/ep_finalize.cpp (modified) (1 diff)

XIOS/dev/branch_openmp/extern/src_ep_dev/ep_finalize.cpp

@@ -22 +22 @@
   int MPI_Abort(MPI_Comm comm, int errorcode)
   {
-    int id = omp_get_thread_num();
+    if(!comm->is_ep)
+      return MPI_Abort_mpi(comm, errorcode);
 
-    if(id == 0)
+    else
     {
-      ::MPI_Comm mpi_comm = to_mpi_comm(comm.mpi_comm);
-      ::MPI_Abort(mpi_comm, errorcode);
+      if(comm->ep_comm_ptr->size_rank_info[1].first == 0)
+      {
+        ::MPI_Abort(to_mpi_comm(comm->mpi_comm), errorcode);
+      }
     }
-    return 0;
+  }
+
+  int MPI_Abort_mpi(MPI_Comm comm, int errorcode)
+  {
+    return ::MPI_Abort(to_mpi_comm(comm->mpi_comm), errorcode);
   }