X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/1d18e615eaa617d3354bc22dfbe711d34be9f902..ec3e4ee5f1a7ffeb96e044057809944f364014e6:/src/smpi/colls/alltoallv-pair-light-barrier.c diff --git a/src/smpi/colls/alltoallv-pair-light-barrier.c b/src/smpi/colls/alltoallv-pair-light-barrier.c index 45a864b0c5..20deb834b6 100644 --- a/src/smpi/colls/alltoallv-pair-light-barrier.c +++ b/src/smpi/colls/alltoallv-pair-light-barrier.c @@ -1,3 +1,9 @@ +/* Copyright (c) 2013-2014. The SimGrid Team. + * All rights reserved. */ + +/* This program is free software; you can redistribute it and/or modify it + * under the terms of the license (GNU LGPL) which comes with this package. */ + #include "colls_private.h" /***************************************************************************** @@ -31,7 +37,7 @@ smpi_coll_tuned_alltoallv_pair_light_barrier(void *send_buff, int *send_counts, MPI_Aint send_chunk, recv_chunk; MPI_Status s; int i, src, dst, rank, num_procs, next_partner; - int tag = 1; /*, failure = 0; */ + int tag = COLL_TAG_ALLTOALLV; /*, failure = 0; */ char send_sync = 'a', recv_sync = 'b'; char *send_ptr = (char *) send_buff; @@ -39,6 +45,10 @@ smpi_coll_tuned_alltoallv_pair_light_barrier(void *send_buff, int *send_counts, rank = smpi_comm_rank(comm); num_procs = smpi_comm_size(comm); + + if((num_procs&(num_procs-1))) + THROWF(arg_error,0, "alltoallv pair algorithm can't be used with non power of two number of processes ! "); + send_chunk = smpi_datatype_get_extent(send_type); recv_chunk = smpi_datatype_get_extent(recv_type);