Changeset 1354 for XIOS/dev/branch_openmp/extern/src_ep_dev/ep_bcast.cpp

Timestamp:

12/04/17 17:12:00 (6 years ago)

Author:

yushan

Message:

omp dev : unify MPI_Comm type

File:

• XIOS/dev/branch_openmp/extern/src_ep_dev/ep_bcast.cpp (modified) (3 diffs)

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

@@ -31 +31 @@
     }
 
-//    #pragma omp flush
     MPI_Barrier_local(comm);
-//    #pragma omp flush
 
     if(ep_rank_loc != local_root)
@@ -50 +48 @@
     {
       #pragma omp single nowait
-      ::MPI_Bcast(buffer, count, static_cast< ::MPI_Datatype>(datatype), root, static_cast< ::MPI_Comm>(comm.mpi_comm));
+      ::MPI_Bcast(buffer, count, to_mpi_type(datatype), root, to_mpi_comm(comm.mpi_comm));
       return 0;
     }
@@ -62 +60 @@
     int root_ep_rank_loc = comm.rank_map->at(root).first;
 
-    // printf("root_mpi_rank = %d\n", root_mpi_rank);    
 
     if((ep_rank_loc==0 && mpi_rank != root_mpi_rank ) || ep_rank == root)