Changeset 1362 for XIOS/dev/branch_openmp/extern/remap/src/mpi_routing.cpp

Timestamp:

12/06/17 15:22:17 (6 years ago)

Author:

yushan

Message:

unify type : MPI_Message MPI_Info

File:

• XIOS/dev/branch_openmp/extern/remap/src/mpi_routing.cpp (modified) (1 diff)

XIOS/dev/branch_openmp/extern/remap/src/mpi_routing.cpp

@@ -152 +152 @@
         {
                 #ifdef _usingEP
-                MPI_Irecv(&sourceRank[i], 1, MPI_INT, -2, 0, communicator, &request[indexRequest]);
+                MPI_Irecv(&sourceRank[i], 1, MPI_INT, -2, 0, communicator, &request[indexRequest++]);
                 #else
-                MPI_Irecv(&sourceRank[i], 1, MPI_INT, MPI_ANY_SOURCE, 0, communicator, &request[indexRequest]);
+                MPI_Irecv(&sourceRank[i], 1, MPI_INT, MPI_ANY_SOURCE, 0, communicator, &request[indexRequest++]);
                 #endif
-                indexRequest++;
-        }
-        MPI_Barrier(communicator);
-        for (int i = 0; i < nbTarget; i++)
-        {
-                MPI_Isend(&mpiRank, 1, MPI_INT, targetRank[i], 0, communicator, &request[indexRequest]);
-                indexRequest++;
+        }
+        MPI_Barrier(communicator);
+        for (int i = 0; i < nbTarget; i++)
+        {
+                MPI_Isend(&mpiRank, 1, MPI_INT, targetRank[i], 0, communicator, &request[indexRequest++]);
         }
         MPI_Waitall(indexRequest, request, status);