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

Timestamp:

05/28/18 09:54:32 (6 years ago)

Author:

yushan

Message:

save dev

File:

• XIOS/dev/branch_openmp/extern/ep_dev/ep_barrier.cpp (modified) (6 diffs)

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

@@ -9 +9 @@
   int MPI_Barrier(MPI_Comm comm)
   {
-    if(comm.is_intercomm) return MPI_Barrier_intercomm(comm);
+    if(comm->is_intercomm) return MPI_Barrier_intercomm(comm);
 
-    if(comm.is_ep)
+    if(comm->is_ep)
     {
-      int ep_rank_loc = comm.ep_comm_ptr->size_rank_info[1].first;
+      int ep_rank_loc = comm->ep_comm_ptr->size_rank_info[1].first;
 
       MPI_Barrier_local(comm);
@@ -19 +19 @@
       if(ep_rank_loc == 0)
       {
-        ::MPI_Comm mpi_comm = to_mpi_comm(comm.mpi_comm);
+        ::MPI_Comm mpi_comm = to_mpi_comm(comm->mpi_comm);
 
         ::MPI_Barrier(mpi_comm);
@@ -28 +28 @@
       return 0;
     }
-    else if(comm.mpi_comm != static_cast< ::MPI_Comm*>(MPI_COMM_NULL.mpi_comm))
+    else if(comm->mpi_comm != static_cast< ::MPI_Comm*>(MPI_COMM_NULL->mpi_comm))
     {
-      ::MPI_Comm mpi_comm = to_mpi_comm(comm.mpi_comm);
+      ::MPI_Comm mpi_comm = to_mpi_comm(comm->mpi_comm);
       ::MPI_Barrier(mpi_comm);
       return 0;
@@ -42 +42 @@
   {
 
-    int ep_rank_loc = comm.ep_comm_ptr->size_rank_info[1].first;
+    int ep_rank_loc = comm->ep_comm_ptr->size_rank_info[1].first;
 
     MPI_Barrier_local(comm);
@@ -48 +48 @@
     if(ep_rank_loc == 0)
     {
-      ::MPI_Comm mpi_comm = to_mpi_comm(comm.ep_comm_ptr->intercomm->mpi_inter_comm);
+      ::MPI_Comm mpi_comm = to_mpi_comm(comm->ep_comm_ptr->intercomm->mpi_inter_comm);
       ::MPI_Barrier(mpi_comm);
     }
@@ -62 +62 @@
   {
     //Message_Check(comm);
-    comm.ep_barrier->wait();
+    comm->ep_barrier->wait();
   }