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

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

@@ -45 +45 @@
   {
 
-    if(!comm->is_ep)
-    {
-      #pragma omp single nowait
-      ::MPI_Bcast(buffer, count, to_mpi_type(datatype), root, to_mpi_comm(comm->mpi_comm));
-      return 0;
-    }
+    if(!comm->is_ep) return ::MPI_Bcast(buffer, count, to_mpi_type(datatype), root, to_mpi_comm(comm->mpi_comm));
+    if(comm->is_intercomm) return MPI_Bcast_intercomm(buffer, count, datatype, root, comm);
 
 
@@ -59 +55 @@
     int root_mpi_rank = comm->ep_rank_map->at(root).second;
     int root_ep_rank_loc = comm->ep_rank_map->at(root).first;
+
+    //printf("ep_rank = %d, root_mpi_rank = %d, root_ep_rank_loc = %d\n", ep_rank, root_mpi_rank, root_ep_rank_loc);
 
 
@@ -69 +67 @@
     else                          MPI_Bcast_local(buffer, count, datatype, 0, comm);
 
-    return 0;
   }
 
 
-
+  int MPI_Bcast_intercomm(void *buffer, int count, MPI_Datatype datatype, int root, MPI_Comm comm)
+  {
+    printf("MPI_Bcast_intercomm not yet implemented\n");
+    MPI_Abort(comm, 0);
+  }