1 /*
2 * Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
3 * University Research and Technology
4 * Corporation. All rights reserved.
5 * Copyright (c) 2004-2005 The University of Tennessee and The University
6 * of Tennessee Research Foundation. All rights
7 * reserved.
8 * Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
9 * University of Stuttgart. All rights reserved.
10 * Copyright (c) 2004-2005 The Regents of the University of California.
11 * All rights reserved.
12 * $COPYRIGHT$
13 *
14 * Additional copyrights may follow
15 *
16 * $HEADER$
17 */
18
19 #include "ompi_config.h"
20 #include "opal/util/output.h"
21
22 #include "mpi.h"
23 #include "ompi/constants.h"
24 #include "ompi/mca/coll/coll.h"
25 #include "ompi/mca/coll/base/base.h"
26 #include "coll_demo.h"
27
28 /*
29 * gather_intra
30 *
31 * Function: - gather
32 * Accepts: - same arguments as MPI_Gather()
33 * Returns: - MPI_SUCCESS or error code
34 */
35 int mca_coll_demo_gather_intra(void *sbuf, int scount,
36 struct ompi_datatype_t *sdtype,
37 void *rbuf, int rcount,
38 struct ompi_datatype_t *rdtype,
39 int root, struct ompi_communicator_t *comm,
40 mca_coll_base_module_t *module)
41 {
42 mca_coll_demo_module_t *demo_module = (mca_coll_demo_module_t*) module;
43 opal_output_verbose(10, ompi_coll_base_framework.framework_output, "In demo gather_intra");
44 return demo_module->underlying.coll_gather(sbuf, scount, sdtype,
45 rbuf, rcount, rdtype,
46 root, comm,
47 demo_module->underlying.coll_gather_module);
48 }
49
50
51 /*
52 * gather_inter
53 *
54 * Function: - demo gather operation
55 * Accepts: - same arguments as MPI_Gather()
56 * Returns: - MPI_SUCCESS or error code
57 */
58 int mca_coll_demo_gather_inter(void *sbuf, int scount,
59 struct ompi_datatype_t *sdtype,
60 void *rbuf, int rcount,
61 struct ompi_datatype_t *rdtype,
62 int root, struct ompi_communicator_t *comm,
63 mca_coll_base_module_t *module)
64 {
65 mca_coll_demo_module_t *demo_module = (mca_coll_demo_module_t*) module;
66 opal_output_verbose(10, ompi_coll_base_framework.framework_output, "In demo gather_inter");
67 return demo_module->underlying.coll_gather(sbuf, scount, sdtype,
68 rbuf, rcount, rdtype,
69 root, comm,
70 demo_module->underlying.coll_gather_module);
71 }