Changeset 1527 for XIOS/dev/branch_openmp/extern/ep_dev/ep_finalize.cpp

Timestamp:

06/08/18 15:59:53 (6 years ago)

Author:

yushan

Message:

save dev

File:

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

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

@@ -9 +9 @@
   int MPI_Finalize()
   {
-    printf("calling EP Finalize\n");
-
-    int id = omp_get_thread_num();
-
-    if(id == 0)
+    #pragma omp master
     {
+      printf("calling EP Finalize\n");
       ::MPI_Finalize();
     }
-    return 0;
   }
 
   int MPI_Abort(MPI_Comm comm, int errorcode)
-  {
-    if(!comm->is_ep)
-      return MPI_Abort_mpi(comm, errorcode);
-
-    else
-    {
-      if(comm->ep_comm_ptr->size_rank_info[1].first == 0)
-      {
-        ::MPI_Abort(to_mpi_comm(comm->mpi_comm), errorcode);
-      }
-    }
-  }
-
-  int MPI_Abort_mpi(MPI_Comm comm, int errorcode)
   {
     return ::MPI_Abort(to_mpi_comm(comm->mpi_comm), errorcode);