This source file includes following definitions.
- MPIX_Barrier_init
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 #include "ompi_config.h"
22 #include <stdio.h>
23
24 #include "ompi/mpi/c/bindings.h"
25 #include "ompi/runtime/params.h"
26 #include "ompi/communicator/communicator.h"
27 #include "ompi/errhandler/errhandler.h"
28 #include "ompi/datatype/ompi_datatype.h"
29 #include "ompi/memchecker.h"
30 #include "ompi/mpiext/pcollreq/c/mpiext_pcollreq_c.h"
31 #include "ompi/runtime/ompi_spc.h"
32
33 #if OMPI_BUILD_MPI_PROFILING
34 #if OPAL_HAVE_WEAK_SYMBOLS
35 #pragma weak MPIX_Barrier_init = PMPIX_Barrier_init
36 #endif
37 #define MPIX_Barrier_init PMPIX_Barrier_init
38 #endif
39
40 static const char FUNC_NAME[] = "MPIX_Barrier_init";
41
42
43 int MPIX_Barrier_init(MPI_Comm comm, MPI_Info info, MPI_Request *request)
44 {
45 int err = MPI_SUCCESS;
46
47 SPC_RECORD(OMPI_SPC_BARRIER_INIT, 1);
48
49 MEMCHECKER(
50 memchecker_comm(comm);
51 );
52
53
54
55 if (MPI_PARAM_CHECK) {
56 OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
57 if (ompi_comm_invalid(comm)) {
58 return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_COMM, FUNC_NAME);
59 }
60 }
61
62 OPAL_CR_ENTER_LIBRARY();
63
64 err = comm->c_coll->coll_barrier_init(comm, info, request, comm->c_coll->coll_barrier_init_module);
65
66
67
68 OMPI_ERRHANDLER_RETURN(err, comm, err, FUNC_NAME);
69 }