Add Bcast SMP Collectives from MVAPICH2

[simgrid.git] / src / smpi / smpi_comm.c

diff --git a/src/smpi/smpi_comm.c b/src/smpi/smpi_comm.c
index cd6d8ba..2b23e7c 100644 (file)
--- a/src/smpi/smpi_comm.c
+++ b/src/smpi/smpi_comm.c
@@ -277,7 +277,6 @@ void smpi_comm_init_smp(MPI_Comm comm){
   int comm_size =smpi_comm_size(comm);
 
   if(smpi_privatize_global_variables){ //we need to switch here, as the called function may silently touch global variables
-     XBT_VERB("Applying operation, switch to the right data frame ");
      switch_data_segment(smpi_process_index());
    }
   //identify neighbours in comm
@@ -404,7 +403,7 @@ void smpi_comm_init_smp(MPI_Comm comm){
     }
     comm->is_uniform=is_uniform;
   }
-  mpi_coll_bcast_fun(&(comm->is_uniform),1, MPI_INT, 0, comm_intra );
+  smpi_coll_tuned_bcast_mpich(&(comm->is_uniform),1, MPI_INT, 0, comm_intra );
 
 
   // Are the ranks blocked ? = allocated contiguously on the SMP nodes
@@ -420,7 +419,7 @@ void smpi_comm_init_smp(MPI_Comm comm){
   }
 
   int global_blocked;
-  mpi_coll_allreduce_fun(&is_blocked, &(global_blocked), 1,
+  smpi_mpi_allreduce(&is_blocked, &(global_blocked), 1,
             MPI_INT, MPI_LAND, comm);
 
   if(comm==MPI_COMM_WORLD){