This source file includes following definitions.
- MPI_T_category_get_num
1
2
3
4
5
6
7
8
9
10
11
12
13
14 #include "ompi/mpi/tool/mpit-internal.h"
15
16 #if OPAL_HAVE_WEAK_SYMBOLS && OMPI_PROFILING_DEFINES
17 #pragma weak MPI_T_category_get_num = PMPI_T_category_get_num
18 #endif
19
20 #if OMPI_PROFILING_DEFINES
21 #include "ompi/mpi/tool/profile/defines.h"
22 #endif
23
24
25 int MPI_T_category_get_num (int *num_cat)
26 {
27 if (!mpit_is_initialized ()) {
28 return MPI_T_ERR_NOT_INITIALIZED;
29 }
30
31 if (MPI_PARAM_CHECK && NULL == num_cat) {
32 return MPI_ERR_ARG;
33 }
34
35 ompi_mpit_lock ();
36 *num_cat = mca_base_var_group_get_count ();
37 ompi_mpit_unlock ();
38
39 return MPI_SUCCESS;
40 }