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