1 /*High level handling of collective algorithms*/
2 /* Copyright (c) 2009-2010, 2012-2014. The SimGrid Team.
3 * All rights reserved. */
5 /* This program is free software; you can redistribute it and/or modify it
6 * under the terms of the license (GNU LGPL) which comes with this package. */
15 /** \brief MPI collective description */
17 struct mpi_coll_description {
19 const char *description;
22 typedef struct mpi_coll_description s_mpi_coll_description_t;
23 typedef struct mpi_coll_description* mpi_coll_description_t;
33 static void set_gather(const char* name);
34 static void set_allgather(const char* name);
35 static void set_allgatherv(const char* name);
36 static void set_alltoall(const char* name);
37 static void set_alltoallv(const char* name);
38 static void set_allreduce(const char* name);
39 static void set_reduce(const char* name);
40 static void set_reduce_scatter(const char* name);
41 static void set_scatter(const char* name);
42 static void set_barrier(const char* name);
43 static void set_bcast(const char* name);
45 static s_mpi_coll_description_t mpi_coll_gather_description[];
46 static s_mpi_coll_description_t mpi_coll_allgather_description[];
47 static s_mpi_coll_description_t mpi_coll_allgatherv_description[];
48 static s_mpi_coll_description_t mpi_coll_allreduce_description[];
49 static s_mpi_coll_description_t mpi_coll_alltoall_description[];
50 static s_mpi_coll_description_t mpi_coll_alltoallv_description[];
51 static s_mpi_coll_description_t mpi_coll_bcast_description[];
52 static s_mpi_coll_description_t mpi_coll_reduce_description[];
53 static s_mpi_coll_description_t mpi_coll_reduce_scatter_description[];
54 static s_mpi_coll_description_t mpi_coll_scatter_description[];
55 static s_mpi_coll_description_t mpi_coll_barrier_description[];
58 static XBT_PUBLIC(void) coll_help(const char *category, s_mpi_coll_description_t * table);
59 static XBT_PUBLIC(int) find_coll_description(s_mpi_coll_description_t * table, const char *name, const char *desc);
60 static void set_collectives();
62 static int (*gather)(void *, int, MPI_Datatype, void*, int, MPI_Datatype, int root, MPI_Comm);
63 static int (*allgather)(void *, int, MPI_Datatype, void*, int, MPI_Datatype, MPI_Comm);
64 static int (*allgatherv)(void *, int, MPI_Datatype, void*, int*, int*, MPI_Datatype, MPI_Comm);
65 static int (*allreduce)(void *sbuf, void *rbuf, int rcount, MPI_Datatype dtype, MPI_Op op, MPI_Comm comm);
66 static int (*alltoall)(void *, int, MPI_Datatype, void*, int, MPI_Datatype, MPI_Comm);
67 static int (*alltoallv)(void *, int*, int*, MPI_Datatype, void*, int*, int*, MPI_Datatype, MPI_Comm);
68 static int (*bcast)(void *buf, int count, MPI_Datatype datatype, int root, MPI_Comm com);
69 static int (*reduce)(void *buf, void *rbuf, int count, MPI_Datatype datatype, MPI_Op op, int root, MPI_Comm comm);
70 static int (*reduce_scatter)(void *sbuf, void *rbuf, int *rcounts,MPI_Datatype dtype,MPI_Op op,MPI_Comm comm);
71 static int (*scatter)(void *sendbuf, int sendcount, MPI_Datatype sendtype,void *recvbuf, int recvcount, MPI_Datatype recvtype,int root, MPI_Comm comm);
72 static int (*barrier)(MPI_Comm comm);
74 //These fairly unused collectives only have one implementation in SMPI
76 static int gatherv(void *sendbuf, int sendcount, MPI_Datatype sendtype, void *recvbuf, int *recvcounts, int *displs, MPI_Datatype recvtype, int root, MPI_Comm comm);
77 static int scatterv(void *sendbuf, int *sendcounts, int *displs, MPI_Datatype sendtype, void *recvbuf, int recvcount, MPI_Datatype recvtype, int root, MPI_Comm comm);
78 static int scan(void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype, MPI_Op op, MPI_Comm comm);
79 static int exscan(void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype, MPI_Op op, MPI_Comm comm);
81 static void (*smpi_coll_cleanup_callback)();
86 static int gather (void *, int, MPI_Datatype, void*, int, MPI_Datatype, int root, MPI_Comm);
87 static int allgather (void *, int, MPI_Datatype, void*, int, MPI_Datatype, MPI_Comm);
88 static int allgatherv (void *, int, MPI_Datatype, void*, int*, int*, MPI_Datatype, MPI_Comm);
89 static int allreduce (void *sbuf, void *rbuf, int rcount, MPI_Datatype dtype, MPI_Op op, MPI_Comm comm);
90 static int alltoall (void *, int, MPI_Datatype, void*, int, MPI_Datatype, MPI_Comm);
91 static int alltoallv (void *, int*, int*, MPI_Datatype, void*, int*, int*, MPI_Datatype, MPI_Comm);
92 static int bcast (void *buf, int count, MPI_Datatype datatype, int root, MPI_Comm com);
93 static int reduce (void *buf, void *rbuf, int count, MPI_Datatype datatype, MPI_Op op, int root, MPI_Comm comm);
94 static int reduce_scatter (void *sbuf, void *rbuf, int *rcounts,MPI_Datatype dtype,MPI_Op op,MPI_Comm comm);
95 static int scatter (void *sendbuf, int sendcount, MPI_Datatype sendtype,void *recvbuf, int recvcount, MPI_Datatype recvtype,int root, MPI_Comm comm);
96 static int barrier (MPI_Comm);
101 #define COLL_DESCRIPTION(cat, ret, args, name) \
103 # cat " " # name " collective",\
104 (void*) Coll_ ## cat ## _ ## name::cat }
106 #define COLL_PROTO(cat, ret, args, name) \
107 class Coll_ ## cat ## _ ## name : public Coll { \
109 static ret cat (COLL_UNPAREN args); \
112 #define COLL_UNPAREN(...) __VA_ARGS__
114 #define COLL_APPLY(action, sig, name) action(sig, name)
117 #define COLL_NOTHING(...)
123 #define COLL_GATHER_SIG gather, int, \
124 (void *send_buff, int send_count, MPI_Datatype send_type, \
125 void *recv_buff, int recv_count, MPI_Datatype recv_type, \
126 int root, MPI_Comm comm)
128 #define COLL_GATHERS(action, COLL_sep) \
129 COLL_APPLY(action, COLL_GATHER_SIG, default) COLL_sep \
130 COLL_APPLY(action, COLL_GATHER_SIG, ompi) COLL_sep \
131 COLL_APPLY(action, COLL_GATHER_SIG, ompi_basic_linear) COLL_sep \
132 COLL_APPLY(action, COLL_GATHER_SIG, ompi_binomial) COLL_sep \
133 COLL_APPLY(action, COLL_GATHER_SIG, ompi_linear_sync) COLL_sep \
134 COLL_APPLY(action, COLL_GATHER_SIG, mpich) COLL_sep \
135 COLL_APPLY(action, COLL_GATHER_SIG, mvapich2) COLL_sep \
136 COLL_APPLY(action, COLL_GATHER_SIG, mvapich2_two_level) COLL_sep \
137 COLL_APPLY(action, COLL_GATHER_SIG, impi) COLL_sep \
138 COLL_APPLY(action, COLL_GATHER_SIG, automatic)
140 COLL_GATHERS(COLL_PROTO, COLL_NOsep)
145 #define COLL_ALLGATHER_SIG allgather, int, \
146 (void *send_buff, int send_count, MPI_Datatype send_type, \
147 void *recv_buff, int recv_count, MPI_Datatype recv_type, \
150 #define COLL_ALLGATHERS(action, COLL_sep) \
151 COLL_APPLY(action, COLL_ALLGATHER_SIG, default) COLL_sep \
152 COLL_APPLY(action, COLL_ALLGATHER_SIG, 2dmesh) COLL_sep \
153 COLL_APPLY(action, COLL_ALLGATHER_SIG, 3dmesh) COLL_sep \
154 COLL_APPLY(action, COLL_ALLGATHER_SIG, bruck) COLL_sep \
155 COLL_APPLY(action, COLL_ALLGATHER_SIG, GB) COLL_sep \
156 COLL_APPLY(action, COLL_ALLGATHER_SIG, loosely_lr) COLL_sep \
157 COLL_APPLY(action, COLL_ALLGATHER_SIG, NTSLR) COLL_sep \
158 COLL_APPLY(action, COLL_ALLGATHER_SIG, NTSLR_NB) COLL_sep \
159 COLL_APPLY(action, COLL_ALLGATHER_SIG, pair) COLL_sep \
160 COLL_APPLY(action, COLL_ALLGATHER_SIG, rdb) COLL_sep \
161 COLL_APPLY(action, COLL_ALLGATHER_SIG, rhv) COLL_sep \
162 COLL_APPLY(action, COLL_ALLGATHER_SIG, ring) COLL_sep \
163 COLL_APPLY(action, COLL_ALLGATHER_SIG, SMP_NTS) COLL_sep \
164 COLL_APPLY(action, COLL_ALLGATHER_SIG, smp_simple) COLL_sep \
165 COLL_APPLY(action, COLL_ALLGATHER_SIG, spreading_simple) COLL_sep \
166 COLL_APPLY(action, COLL_ALLGATHER_SIG, ompi) COLL_sep \
167 COLL_APPLY(action, COLL_ALLGATHER_SIG, ompi_neighborexchange) COLL_sep \
168 COLL_APPLY(action, COLL_ALLGATHER_SIG, mvapich2) COLL_sep \
169 COLL_APPLY(action, COLL_ALLGATHER_SIG, mvapich2_smp) COLL_sep \
170 COLL_APPLY(action, COLL_ALLGATHER_SIG, mpich) COLL_sep \
171 COLL_APPLY(action, COLL_ALLGATHER_SIG, impi) COLL_sep \
172 COLL_APPLY(action, COLL_ALLGATHER_SIG, automatic)
174 COLL_ALLGATHERS(COLL_PROTO, COLL_NOsep)
179 #define COLL_ALLGATHERV_SIG allgatherv, int, \
180 (void *send_buff, int send_count, MPI_Datatype send_type, \
181 void *recv_buff, int *recv_count, int *recv_disps, \
182 MPI_Datatype recv_type, MPI_Comm comm)
184 #define COLL_ALLGATHERVS(action, COLL_sep) \
185 COLL_APPLY(action, COLL_ALLGATHERV_SIG, default) COLL_sep \
186 COLL_APPLY(action, COLL_ALLGATHERV_SIG, GB) COLL_sep \
187 COLL_APPLY(action, COLL_ALLGATHERV_SIG, pair) COLL_sep \
188 COLL_APPLY(action, COLL_ALLGATHERV_SIG, ring) COLL_sep \
189 COLL_APPLY(action, COLL_ALLGATHERV_SIG, ompi) COLL_sep \
190 COLL_APPLY(action, COLL_ALLGATHERV_SIG, ompi_neighborexchange) COLL_sep \
191 COLL_APPLY(action, COLL_ALLGATHERV_SIG, ompi_bruck) COLL_sep \
192 COLL_APPLY(action, COLL_ALLGATHERV_SIG, mpich) COLL_sep \
193 COLL_APPLY(action, COLL_ALLGATHERV_SIG, mpich_rdb) COLL_sep \
194 COLL_APPLY(action, COLL_ALLGATHERV_SIG, mpich_ring) COLL_sep \
195 COLL_APPLY(action, COLL_ALLGATHERV_SIG, mvapich2) COLL_sep \
196 COLL_APPLY(action, COLL_ALLGATHERV_SIG, impi) COLL_sep \
197 COLL_APPLY(action, COLL_ALLGATHERV_SIG, automatic)
199 COLL_ALLGATHERVS(COLL_PROTO, COLL_NOsep)
204 #define COLL_ALLREDUCE_SIG allreduce, int, \
205 (void *sbuf, void *rbuf, int rcount, \
206 MPI_Datatype dtype, MPI_Op op, MPI_Comm comm)
208 #define COLL_ALLREDUCES(action, COLL_sep) \
209 COLL_APPLY(action, COLL_ALLREDUCE_SIG, default) COLL_sep \
210 COLL_APPLY(action, COLL_ALLREDUCE_SIG, lr) COLL_sep \
211 COLL_APPLY(action, COLL_ALLREDUCE_SIG, rab1) COLL_sep \
212 COLL_APPLY(action, COLL_ALLREDUCE_SIG, rab2) COLL_sep \
213 COLL_APPLY(action, COLL_ALLREDUCE_SIG, rab_rdb) COLL_sep \
214 COLL_APPLY(action, COLL_ALLREDUCE_SIG, rdb) COLL_sep \
215 COLL_APPLY(action, COLL_ALLREDUCE_SIG, smp_binomial) COLL_sep \
216 COLL_APPLY(action, COLL_ALLREDUCE_SIG, smp_binomial_pipeline) COLL_sep \
217 COLL_APPLY(action, COLL_ALLREDUCE_SIG, smp_rdb) COLL_sep \
218 COLL_APPLY(action, COLL_ALLREDUCE_SIG, smp_rsag) COLL_sep \
219 COLL_APPLY(action, COLL_ALLREDUCE_SIG, smp_rsag_lr) COLL_sep \
220 COLL_APPLY(action, COLL_ALLREDUCE_SIG, smp_rsag_rab) COLL_sep \
221 COLL_APPLY(action, COLL_ALLREDUCE_SIG, redbcast) COLL_sep \
222 COLL_APPLY(action, COLL_ALLREDUCE_SIG, ompi) COLL_sep \
223 COLL_APPLY(action, COLL_ALLREDUCE_SIG, ompi_ring_segmented) COLL_sep \
224 COLL_APPLY(action, COLL_ALLREDUCE_SIG, mpich) COLL_sep \
225 COLL_APPLY(action, COLL_ALLREDUCE_SIG, mvapich2) COLL_sep \
226 COLL_APPLY(action, COLL_ALLREDUCE_SIG, mvapich2_rs) COLL_sep \
227 COLL_APPLY(action, COLL_ALLREDUCE_SIG, mvapich2_two_level) COLL_sep \
228 COLL_APPLY(action, COLL_ALLREDUCE_SIG, impi) COLL_sep \
229 COLL_APPLY(action, COLL_ALLREDUCE_SIG, rab) COLL_sep \
230 COLL_APPLY(action, COLL_ALLREDUCE_SIG, automatic)
232 COLL_ALLREDUCES(COLL_PROTO, COLL_NOsep)
237 #define COLL_ALLTOALL_SIG alltoall, int, \
238 (void *send_buff, int send_count, MPI_Datatype send_type, \
239 void *recv_buff, int recv_count, MPI_Datatype recv_type, \
242 #define COLL_ALLTOALLS(action, COLL_sep) \
243 COLL_APPLY(action, COLL_ALLTOALL_SIG, default) COLL_sep \
244 COLL_APPLY(action, COLL_ALLTOALL_SIG, 2dmesh) COLL_sep \
245 COLL_APPLY(action, COLL_ALLTOALL_SIG, 3dmesh) COLL_sep \
246 COLL_APPLY(action, COLL_ALLTOALL_SIG, basic_linear) COLL_sep \
247 COLL_APPLY(action, COLL_ALLTOALL_SIG, bruck) COLL_sep \
248 COLL_APPLY(action, COLL_ALLTOALL_SIG, pair) COLL_sep \
249 COLL_APPLY(action, COLL_ALLTOALL_SIG, pair_rma) COLL_sep \
250 COLL_APPLY(action, COLL_ALLTOALL_SIG, pair_light_barrier) COLL_sep \
251 COLL_APPLY(action, COLL_ALLTOALL_SIG, pair_mpi_barrier) COLL_sep \
252 COLL_APPLY(action, COLL_ALLTOALL_SIG, pair_one_barrier) COLL_sep \
253 COLL_APPLY(action, COLL_ALLTOALL_SIG, rdb) COLL_sep \
254 COLL_APPLY(action, COLL_ALLTOALL_SIG, ring) COLL_sep \
255 COLL_APPLY(action, COLL_ALLTOALL_SIG, ring_light_barrier) COLL_sep \
256 COLL_APPLY(action, COLL_ALLTOALL_SIG, ring_mpi_barrier) COLL_sep \
257 COLL_APPLY(action, COLL_ALLTOALL_SIG, ring_one_barrier) COLL_sep \
258 COLL_APPLY(action, COLL_ALLTOALL_SIG, mvapich2) COLL_sep \
259 COLL_APPLY(action, COLL_ALLTOALL_SIG, mvapich2_scatter_dest) COLL_sep \
260 COLL_APPLY(action, COLL_ALLTOALL_SIG, ompi) COLL_sep \
261 COLL_APPLY(action, COLL_ALLTOALL_SIG, mpich) COLL_sep \
262 COLL_APPLY(action, COLL_ALLTOALL_SIG, impi) COLL_sep \
263 COLL_APPLY(action, COLL_ALLTOALL_SIG, automatic)
265 COLL_ALLTOALLS(COLL_PROTO, COLL_NOsep)
270 #define COLL_ALLTOALLV_SIG alltoallv, int, \
271 (void *send_buff, int *send_counts, int *send_disps, MPI_Datatype send_type, \
272 void *recv_buff, int *recv_counts, int *recv_disps, MPI_Datatype recv_type, \
275 #define COLL_ALLTOALLVS(action, COLL_sep) \
276 COLL_APPLY(action, COLL_ALLTOALLV_SIG, default) COLL_sep \
277 COLL_APPLY(action, COLL_ALLTOALLV_SIG, bruck) COLL_sep \
278 COLL_APPLY(action, COLL_ALLTOALLV_SIG, pair) COLL_sep \
279 COLL_APPLY(action, COLL_ALLTOALLV_SIG, pair_light_barrier) COLL_sep \
280 COLL_APPLY(action, COLL_ALLTOALLV_SIG, pair_mpi_barrier) COLL_sep \
281 COLL_APPLY(action, COLL_ALLTOALLV_SIG, pair_one_barrier) COLL_sep \
282 COLL_APPLY(action, COLL_ALLTOALLV_SIG, ring) COLL_sep \
283 COLL_APPLY(action, COLL_ALLTOALLV_SIG, ring_light_barrier) COLL_sep \
284 COLL_APPLY(action, COLL_ALLTOALLV_SIG, ring_mpi_barrier) COLL_sep \
285 COLL_APPLY(action, COLL_ALLTOALLV_SIG, ring_one_barrier) COLL_sep \
286 COLL_APPLY(action, COLL_ALLTOALLV_SIG, ompi) COLL_sep \
287 COLL_APPLY(action, COLL_ALLTOALLV_SIG, mpich) COLL_sep \
288 COLL_APPLY(action, COLL_ALLTOALLV_SIG, ompi_basic_linear) COLL_sep \
289 COLL_APPLY(action, COLL_ALLTOALLV_SIG, mvapich2) COLL_sep \
290 COLL_APPLY(action, COLL_ALLTOALLV_SIG, impi) COLL_sep \
291 COLL_APPLY(action, COLL_ALLTOALLV_SIG, automatic)
293 COLL_ALLTOALLVS(COLL_PROTO, COLL_NOsep)
298 #define COLL_BCAST_SIG bcast, int, \
299 (void *buf, int count, MPI_Datatype datatype, \
300 int root, MPI_Comm comm)
302 #define COLL_BCASTS(action, COLL_sep) \
303 COLL_APPLY(action, COLL_BCAST_SIG, default) COLL_sep \
304 COLL_APPLY(action, COLL_BCAST_SIG, arrival_pattern_aware) COLL_sep \
305 COLL_APPLY(action, COLL_BCAST_SIG, arrival_pattern_aware_wait) COLL_sep \
306 COLL_APPLY(action, COLL_BCAST_SIG, arrival_scatter) COLL_sep \
307 COLL_APPLY(action, COLL_BCAST_SIG, binomial_tree) COLL_sep \
308 COLL_APPLY(action, COLL_BCAST_SIG, flattree) COLL_sep \
309 COLL_APPLY(action, COLL_BCAST_SIG, flattree_pipeline) COLL_sep \
310 COLL_APPLY(action, COLL_BCAST_SIG, NTSB) COLL_sep \
311 COLL_APPLY(action, COLL_BCAST_SIG, NTSL) COLL_sep \
312 COLL_APPLY(action, COLL_BCAST_SIG, NTSL_Isend) COLL_sep \
313 COLL_APPLY(action, COLL_BCAST_SIG, scatter_LR_allgather) COLL_sep \
314 COLL_APPLY(action, COLL_BCAST_SIG, scatter_rdb_allgather) COLL_sep \
315 COLL_APPLY(action, COLL_BCAST_SIG, SMP_binary) COLL_sep \
316 COLL_APPLY(action, COLL_BCAST_SIG, SMP_binomial) COLL_sep \
317 COLL_APPLY(action, COLL_BCAST_SIG, SMP_linear) COLL_sep \
318 COLL_APPLY(action, COLL_BCAST_SIG, ompi) COLL_sep \
319 COLL_APPLY(action, COLL_BCAST_SIG, ompi_split_bintree) COLL_sep \
320 COLL_APPLY(action, COLL_BCAST_SIG, ompi_pipeline) COLL_sep \
321 COLL_APPLY(action, COLL_BCAST_SIG, mpich) COLL_sep \
322 COLL_APPLY(action, COLL_BCAST_SIG, mvapich2) COLL_sep \
323 COLL_APPLY(action, COLL_BCAST_SIG, mvapich2_inter_node) COLL_sep \
324 COLL_APPLY(action, COLL_BCAST_SIG, mvapich2_intra_node) COLL_sep \
325 COLL_APPLY(action, COLL_BCAST_SIG, mvapich2_knomial_intra_node) COLL_sep \
326 COLL_APPLY(action, COLL_BCAST_SIG, impi) COLL_sep \
327 COLL_APPLY(action, COLL_BCAST_SIG, automatic)
329 COLL_BCASTS(COLL_PROTO, COLL_NOsep)
335 #define COLL_REDUCE_SIG reduce, int, \
336 (void *buf, void *rbuf, int count, MPI_Datatype datatype, \
337 MPI_Op op, int root, MPI_Comm comm)
339 #define COLL_REDUCES(action, COLL_sep) \
340 COLL_APPLY(action, COLL_REDUCE_SIG, default) COLL_sep \
341 COLL_APPLY(action, COLL_REDUCE_SIG, arrival_pattern_aware) COLL_sep \
342 COLL_APPLY(action, COLL_REDUCE_SIG, binomial) COLL_sep \
343 COLL_APPLY(action, COLL_REDUCE_SIG, flat_tree) COLL_sep \
344 COLL_APPLY(action, COLL_REDUCE_SIG, NTSL) COLL_sep \
345 COLL_APPLY(action, COLL_REDUCE_SIG, scatter_gather) COLL_sep \
346 COLL_APPLY(action, COLL_REDUCE_SIG, ompi) COLL_sep \
347 COLL_APPLY(action, COLL_REDUCE_SIG, ompi_chain) COLL_sep \
348 COLL_APPLY(action, COLL_REDUCE_SIG, ompi_pipeline) COLL_sep \
349 COLL_APPLY(action, COLL_REDUCE_SIG, ompi_basic_linear) COLL_sep \
350 COLL_APPLY(action, COLL_REDUCE_SIG, ompi_in_order_binary) COLL_sep \
351 COLL_APPLY(action, COLL_REDUCE_SIG, ompi_binary) COLL_sep \
352 COLL_APPLY(action, COLL_REDUCE_SIG, ompi_binomial) COLL_sep \
353 COLL_APPLY(action, COLL_REDUCE_SIG, mpich) COLL_sep \
354 COLL_APPLY(action, COLL_REDUCE_SIG, mvapich2) COLL_sep \
355 COLL_APPLY(action, COLL_REDUCE_SIG, mvapich2_knomial) COLL_sep \
356 COLL_APPLY(action, COLL_REDUCE_SIG, mvapich2_two_level) COLL_sep \
357 COLL_APPLY(action, COLL_REDUCE_SIG, impi) COLL_sep \
358 COLL_APPLY(action, COLL_REDUCE_SIG, rab) COLL_sep \
359 COLL_APPLY(action, COLL_REDUCE_SIG, automatic)
361 COLL_REDUCES(COLL_PROTO, COLL_NOsep)
366 #define COLL_REDUCE_SCATTER_SIG reduce_scatter, int, \
367 (void *sbuf, void *rbuf, int *rcounts,\
368 MPI_Datatype dtype,MPI_Op op,MPI_Comm comm)
370 #define COLL_REDUCE_SCATTERS(action, COLL_sep) \
371 COLL_APPLY(action, COLL_REDUCE_SCATTER_SIG, default) COLL_sep \
372 COLL_APPLY(action, COLL_REDUCE_SCATTER_SIG, ompi) COLL_sep \
373 COLL_APPLY(action, COLL_REDUCE_SCATTER_SIG, ompi_basic_recursivehalving) COLL_sep \
374 COLL_APPLY(action, COLL_REDUCE_SCATTER_SIG, ompi_ring) COLL_sep \
375 COLL_APPLY(action, COLL_REDUCE_SCATTER_SIG, mpich) COLL_sep \
376 COLL_APPLY(action, COLL_REDUCE_SCATTER_SIG, mpich_pair) COLL_sep \
377 COLL_APPLY(action, COLL_REDUCE_SCATTER_SIG, mpich_rdb) COLL_sep \
378 COLL_APPLY(action, COLL_REDUCE_SCATTER_SIG, mpich_noncomm) COLL_sep \
379 COLL_APPLY(action, COLL_REDUCE_SCATTER_SIG, mvapich2) COLL_sep \
380 COLL_APPLY(action, COLL_REDUCE_SCATTER_SIG, impi) COLL_sep \
381 COLL_APPLY(action, COLL_REDUCE_SCATTER_SIG, automatic)
385 COLL_REDUCE_SCATTERS(COLL_PROTO, COLL_NOsep)
391 #define COLL_SCATTER_SIG scatter, int, \
392 (void *sendbuf, int sendcount, MPI_Datatype sendtype,\
393 void *recvbuf, int recvcount, MPI_Datatype recvtype,\
394 int root, MPI_Comm comm)
396 #define COLL_SCATTERS(action, COLL_sep) \
397 COLL_APPLY(action, COLL_SCATTER_SIG, default) COLL_sep \
398 COLL_APPLY(action, COLL_SCATTER_SIG, ompi) COLL_sep \
399 COLL_APPLY(action, COLL_SCATTER_SIG, ompi_basic_linear) COLL_sep \
400 COLL_APPLY(action, COLL_SCATTER_SIG, ompi_binomial) COLL_sep \
401 COLL_APPLY(action, COLL_SCATTER_SIG, mpich) COLL_sep \
402 COLL_APPLY(action, COLL_SCATTER_SIG, mvapich2) COLL_sep \
403 COLL_APPLY(action, COLL_SCATTER_SIG, mvapich2_two_level_binomial) COLL_sep \
404 COLL_APPLY(action, COLL_SCATTER_SIG, mvapich2_two_level_direct) COLL_sep \
405 COLL_APPLY(action, COLL_SCATTER_SIG, impi) COLL_sep \
406 COLL_APPLY(action, COLL_SCATTER_SIG, automatic)
408 COLL_SCATTERS(COLL_PROTO, COLL_NOsep)
413 #define COLL_BARRIER_SIG barrier, int, \
416 #define COLL_BARRIERS(action, COLL_sep) \
417 COLL_APPLY(action, COLL_BARRIER_SIG, default) COLL_sep \
418 COLL_APPLY(action, COLL_BARRIER_SIG, ompi) COLL_sep \
419 COLL_APPLY(action, COLL_BARRIER_SIG, ompi_basic_linear) COLL_sep \
420 COLL_APPLY(action, COLL_BARRIER_SIG, ompi_two_procs) COLL_sep \
421 COLL_APPLY(action, COLL_BARRIER_SIG, ompi_tree) COLL_sep \
422 COLL_APPLY(action, COLL_BARRIER_SIG, ompi_bruck) COLL_sep \
423 COLL_APPLY(action, COLL_BARRIER_SIG, ompi_recursivedoubling) COLL_sep \
424 COLL_APPLY(action, COLL_BARRIER_SIG, ompi_doublering) COLL_sep \
425 COLL_APPLY(action, COLL_BARRIER_SIG, mpich) COLL_sep \
426 COLL_APPLY(action, COLL_BARRIER_SIG, mvapich2_pair) COLL_sep \
427 COLL_APPLY(action, COLL_BARRIER_SIG, mvapich2) COLL_sep \
428 COLL_APPLY(action, COLL_BARRIER_SIG, impi) COLL_sep \
429 COLL_APPLY(action, COLL_BARRIER_SIG, automatic)
431 COLL_BARRIERS(COLL_PROTO, COLL_NOsep)