This source file includes following definitions.
- MPI_Comm_create_errhandler
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
29 #if OMPI_BUILD_MPI_PROFILING
30 #if OPAL_HAVE_WEAK_SYMBOLS
31 #pragma weak MPI_Comm_create_errhandler = PMPI_Comm_create_errhandler
32 #endif
33 #define MPI_Comm_create_errhandler PMPI_Comm_create_errhandler
34 #endif
35
36
37 static const char FUNC_NAME[] = "MPI_Comm_create_errhandler";
38
39
40 int MPI_Comm_create_errhandler(MPI_Comm_errhandler_function *function,
41 MPI_Errhandler *errhandler)
42 {
43 int err = MPI_SUCCESS;
44
45
46
47 if (MPI_PARAM_CHECK) {
48 OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
49
50 if (NULL == function ||
51 NULL == errhandler) {
52 return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_ARG,
53 FUNC_NAME);
54 }
55 }
56
57 OPAL_CR_ENTER_LIBRARY();
58
59
60
61 *errhandler =
62 ompi_errhandler_create(OMPI_ERRHANDLER_TYPE_COMM,
63 (ompi_errhandler_generic_handler_fn_t*) function,
64 OMPI_ERRHANDLER_LANG_C);
65 if (NULL == *errhandler) {
66 err = MPI_ERR_INTERN;
67 }
68
69 OMPI_ERRHANDLER_RETURN(err, MPI_COMM_WORLD, MPI_ERR_INTERN, FUNC_NAME);
70 }