Changeset 1527 for XIOS/dev/branch_openmp/extern/ep_dev/ep_recv.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_recv.cpp (modified) (3 diffs)

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

@@ -40 +40 @@
   {
     if(!comm->is_ep) return MPI_Irecv_mpi(buf, count, datatype, src, tag, comm, request);
+
+    if(comm->is_intercomm)
+    {
+      src = comm->inter_rank_map->at(src);
+      printf("new src = %d\n", src);
+    }
     
     Debug("MPI_Irecv with EP");
@@ -54 +60 @@
     (*request)->comm = comm;
     (*request)->type = 2;
-    (*request)->state = 0;
+    (*request)->probed = false;
     
 
@@ -118 +124 @@
     (*request)->ep_src = (*message)->ep_src;
     
-    (*request)->state = 1;
+    (*request)->probed = true;
         
     ::MPI_Imrecv(buf, count, to_mpi_type(datatype), to_mpi_message_ptr(*message), to_mpi_request_ptr(*request));