A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix default MPI_Barrier.
[simgrid.git]
/
src
/
smpi
/
colls
/
barrier
/
barrier-ompi.cpp
diff --git
a/src/smpi/colls/barrier/barrier-ompi.cpp
b/src/smpi/colls/barrier/barrier-ompi.cpp
index
0f4eec5
..
500d37a
100644
(file)
--- a/
src/smpi/colls/barrier/barrier-ompi.cpp
+++ b/
src/smpi/colls/barrier/barrier-ompi.cpp
@@
-1,4
+1,4
@@
-/* Copyright (c) 2013-201
7
. The SimGrid Team.
+/* Copyright (c) 2013-201
9
. The SimGrid Team.
* All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
* All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
@@
-267,9
+267,7
@@
int Coll_barrier_ompi_basic_linear::barrier(MPI_Comm comm)
requests = new MPI_Request[size];
for (i = 1; i < size; ++i) {
requests = new MPI_Request[size];
for (i = 1; i < size; ++i) {
- requests[i] = Request::irecv(NULL, 0, MPI_BYTE, MPI_ANY_SOURCE,
- COLL_TAG_BARRIER, comm
- );
+ requests[i] = Request::irecv(NULL, 0, MPI_BYTE, i, COLL_TAG_BARRIER, comm);
}
Request::waitall( size-1, requests+1, MPI_STATUSES_IGNORE );
}
Request::waitall( size-1, requests+1, MPI_STATUSES_IGNORE );