Changeset 1538 for XIOS/dev/branch_openmp/extern/ep_dev/ep_recv.cpp

Timestamp:

06/11/18 19:06:45 (3 years ago)

Author:

yushan

Message:

tests in XIOS OK (client, complete, remap, toy)

File:

• XIOS/dev/branch_openmp/extern/ep_dev/ep_recv.cpp (modified) (5 diffs)

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

@@ -43 +43 @@
     if(comm->is_intercomm)
     {
-      src = comm->inter_rank_map->at(src);
-      printf("new src = %d\n", src);
+      if(src>=0) src = comm->inter_rank_map->at(src);
     }
     
@@ -61 +60 @@
     (*request)->type = 2;
     (*request)->probed = false;
-    
+    (*request)->state = 0;
 
     (*request)->ep_src = src;
@@ -69 +68 @@
     if(EP_PendingRequests == 0 ) EP_PendingRequests = new std::list< MPI_Request* >;
 
-    EP_PendingRequests->push_back(request);  
+    EP_PendingRequests->push_back(request); 
     
     memcheck("EP_PendingRequests["<<ep_rank<<"]->size() = " << EP_PendingRequests->size());    
@@ -127 +126 @@
     
     (*request)->probed = true;
+    (*request)->state = 1;
         
     ::MPI_Imrecv(buf, count, to_mpi_type(datatype), to_mpi_message_ptr(*message), to_mpi_request_ptr(*request));                
@@ -139 +139 @@
 
     
-    return Request_Check();
+    //return Request_Check();
   }