Changeset 1149 for XIOS/dev/branch_yushan_merged/extern/src_ep_dev/ep_wait.cpp

Timestamp:

05/31/17 10:51:06 (7 years ago)

Author:

yushan

Message:

bug fixed in mpi_comm_split. Key needs to be specifify.

File:

• XIOS/dev/branch_yushan_merged/extern/src_ep_dev/ep_wait.cpp (modified) (1 diff)

XIOS/dev/branch_yushan_merged/extern/src_ep_dev/ep_wait.cpp

@@ -100 +100 @@
           if(array_of_requests[i].type != 2) // isend or imrecv
           {      
-            MPI_Wait(&array_of_requests[i], &array_of_statuses[i]);
+            //MPI_Wait(&array_of_requests[i], &array_of_statuses[i]);
+            int tested=false;
+            while(!tested) MPI_Test(&array_of_requests[i], &tested, &array_of_statuses[i]);
             finished++;
             finished_index[i] = true;