Changeset 1527 for XIOS/dev/branch_openmp/extern/ep_dev/ep_gatherv.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_gatherv.cpp (modified) (2 diffs)

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

@@ -46 +46 @@
   {
   
-    if(!comm->is_ep)
-    {
-      return ::MPI_Gatherv(const_cast<void*>(sendbuf), sendcount, to_mpi_type(sendtype), recvbuf, const_cast<int*>(input_recvcounts), const_cast<int*>(input_displs),
-                    to_mpi_type(recvtype), root, to_mpi_comm(comm->mpi_comm));
-    }
-
+    if(!comm->is_ep) return ::MPI_Gatherv(const_cast<void*>(sendbuf), sendcount, to_mpi_type(sendtype), recvbuf, const_cast<int*>(input_recvcounts), const_cast<int*>(input_displs),
+                                          to_mpi_type(recvtype), root, to_mpi_comm(comm->mpi_comm));
+    if(comm->is_intercomm) return MPI_Gatherv_intercomm(sendbuf, sendcount, sendtype, recvbuf, input_recvcounts, input_displs, recvtype, root, comm);
 
     assert(sendtype == recvtype);
@@ -169 +166 @@
   }
 
+  int MPI_Gatherv_intercomm(const void *sendbuf, int sendcount, MPI_Datatype sendtype, void *recvbuf, const int input_recvcounts[], const int input_displs[],
+                            MPI_Datatype recvtype, int root, MPI_Comm comm)
+  {
+    printf("MPI_Gatherv_intercomm not yet implemented\n");
+    MPI_Abort(comm, 0);
+  }
+
 }