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) 2015-2018 Research Organization for Information Science
13 * and Technology (RIST). All rights reserved.
14 * $COPYRIGHT$
15 *
16 * Additional copyrights may follow
17 *
18 * $HEADER$
19 */
20
21 #include "ompi_config.h"
22 #include "coll_basic.h"
23
24 #include <stdio.h>
25
26 #include "mpi.h"
27 #include "ompi/constants.h"
28 #include "ompi/op/op.h"
29 #include "ompi/mca/coll/coll.h"
30 #include "ompi/mca/coll/base/coll_tags.h"
31 #include "ompi/mca/pml/pml.h"
32 #include "coll_basic.h"
33
34
35 /*
36 * scan
37 *
38 * Function: - basic scan operation
39 * Accepts: - same arguments as MPI_Scan()
40 * Returns: - MPI_SUCCESS or error code
41 */
42 int
43 mca_coll_basic_scan_intra(const void *sbuf, void *rbuf, int count,
44 struct ompi_datatype_t *dtype,
45 struct ompi_op_t *op,
46 struct ompi_communicator_t *comm,
47 mca_coll_base_module_t *module)
48 {
49 return ompi_coll_base_scan_intra_linear(sbuf, rbuf, count, dtype, op, comm, module);
50 }