Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
do not call smpi_bench_* from SMPI_MPI_Allreduce since it calls SMPI_MPI_* function...
authormquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Wed, 15 Jul 2009 16:38:32 +0000 (16:38 +0000)
committermquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Wed, 15 Jul 2009 16:38:32 +0000 (16:38 +0000)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@6509 48e7efb5-ca39-0410-a469-dd3cf9ba447f

src/smpi/smpi_mpi.c

index 4934045..9cf5d01 100644 (file)
@@ -438,14 +438,16 @@ int SMPI_MPI_Allreduce( void *sendbuf, void *recvbuf, int count, MPI_Datatype da
   int retval = MPI_SUCCESS;
   int root=1;  // arbitrary choice
 
   int retval = MPI_SUCCESS;
   int root=1;  // arbitrary choice
 
-  smpi_bench_end();
+  //smpi_bench_end(); //FIXME: restaure after calling smpi_mpi_reduce instead
 
 
+  DEBUG0("Reduce");
   retval = SMPI_MPI_Reduce( sendbuf, recvbuf, count, datatype, op, root, comm);
   if (MPI_SUCCESS != retval)
            return(retval);
 
   retval = SMPI_MPI_Reduce( sendbuf, recvbuf, count, datatype, op, root, comm);
   if (MPI_SUCCESS != retval)
            return(retval);
 
+  DEBUG0("Reduce done, time to bcast");
   retval = SMPI_MPI_Bcast( sendbuf, count, datatype, root, comm);
   retval = SMPI_MPI_Bcast( sendbuf, count, datatype, root, comm);
-  smpi_bench_begin();
+//  smpi_bench_begin();
   return( retval );
 }
 
   return( retval );
 }