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-2014 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 (c) 2011 NVIDIA Corporation. All rights reserved.
13 * Copyright (c) 2015-2018 Research Organization for Information Science
14 * and Technology (RIST). All rights reserved.
15 * $COPYRIGHT$
16 *
17 * Additional copyrights may follow
18 *
19 * $HEADER$
20 */
21
22 #include "ompi_config.h"
23 #include "coll_basic.h"
24
25 #include <stdio.h>
26
27 #include "mpi.h"
28 #include "ompi/constants.h"
29 #include "ompi/op/op.h"
30 #include "ompi/datatype/ompi_datatype.h"
31 #include "ompi/mca/pml/pml.h"
32 #include "ompi/mca/coll/coll.h"
33 #include "ompi/mca/coll/base/coll_tags.h"
34 #include "coll_basic.h"
35
36
37 /*
38 * exscan_intra
39 *
40 * Function: - basic exscan operation
41 * Accepts: - same arguments as MPI_Exscan()
42 * Returns: - MPI_SUCCESS or error code
43 */
44 int
45 mca_coll_basic_exscan_intra(const void *sbuf, void *rbuf, int count,
46 struct ompi_datatype_t *dtype,
47 struct ompi_op_t *op,
48 struct ompi_communicator_t *comm,
49 mca_coll_base_module_t *module)
50 {
51 return ompi_coll_base_exscan_intra_linear(sbuf, rbuf, count, dtype, op, comm, module);
52 }
53
54
55 /*
56 * exscan_inter
57 *
58 * Function: - basic exscan operation
59 * Accepts: - same arguments as MPI_Exscan()
60 * Returns: - MPI_SUCCESS or error code
61 */
62 int
63 mca_coll_basic_exscan_inter(const void *sbuf, void *rbuf, int count,
64 struct ompi_datatype_t *dtype,
65 struct ompi_op_t *op,
66 struct ompi_communicator_t *comm,
67 mca_coll_base_module_t *module)
68 {
69 return OMPI_ERR_NOT_IMPLEMENTED;
70 }