Changeset 1525 for XIOS/dev/branch_openmp/extern/ep_dev/ep_barrier.cpp

Timestamp:

06/07/18 19:39:07 (6 years ago)

Author:

yushan

Message:

save dev : intercomm_create via intracomm. To do : modif related intercomm communication routines, barrier, free, rank, size...

File:

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

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

@@ -22 +22 @@
 
   int MPI_Barrier_intracomm(MPI_Comm comm)
+  {
+    int ep_rank_loc = comm->ep_comm_ptr->size_rank_info[1].first;
+
+    MPI_Barrier_local(comm);
+
+    if(ep_rank_loc == 0)
+    {
+      ::MPI_Comm mpi_comm = to_mpi_comm(comm->mpi_comm);
+
+      ::MPI_Barrier(mpi_comm);
+    }
+
+    MPI_Barrier_local(comm);
+
+    return 0;
+  }
+
+  int MPI_Barrier2(MPI_Comm comm)
   {
     int ep_rank_loc = comm->ep_comm_ptr->size_rank_info[1].first;