1 /*
2 * Copyright (C) by Argonne National Laboratory
3 * See COPYRIGHT in top-level directory
4 */
5
6 #include "mpidimpl.h"
7 #include "ch4r_recvq.h"
8
MPIDIG_recvq_init(void)9 int MPIDIG_recvq_init(void)
10 {
11 int mpi_errno = MPI_SUCCESS;
12 MPIR_T_PVAR_LEVEL_REGISTER_STATIC(RECVQ, MPI_UNSIGNED, posted_recvq_length, 0, /* init value */
13 MPI_T_VERBOSITY_USER_DETAIL, MPI_T_BIND_NO_OBJECT, (MPIR_T_PVAR_FLAG_READONLY | MPIR_T_PVAR_FLAG_CONTINUOUS), "CH4", /* category name */
14 "length of the posted message receive queue");
15
16 MPIR_T_PVAR_LEVEL_REGISTER_STATIC(RECVQ, MPI_UNSIGNED, unexpected_recvq_length, 0, /* init value */
17 MPI_T_VERBOSITY_USER_DETAIL, MPI_T_BIND_NO_OBJECT, (MPIR_T_PVAR_FLAG_READONLY | MPIR_T_PVAR_FLAG_CONTINUOUS), "CH4", /* category name */
18 "length of the unexpected message receive queue");
19
20 MPIR_T_PVAR_COUNTER_REGISTER_STATIC(RECVQ, MPI_UNSIGNED_LONG_LONG, posted_recvq_match_attempts, MPI_T_VERBOSITY_USER_DETAIL, MPI_T_BIND_NO_OBJECT, (MPIR_T_PVAR_FLAG_READONLY | MPIR_T_PVAR_FLAG_CONTINUOUS), "CH4", /* category name */
21 "number of search passes on the posted message receive queue");
22
23 MPIR_T_PVAR_COUNTER_REGISTER_STATIC(RECVQ,
24 MPI_UNSIGNED_LONG_LONG,
25 unexpected_recvq_match_attempts,
26 MPI_T_VERBOSITY_USER_DETAIL,
27 MPI_T_BIND_NO_OBJECT,
28 (MPIR_T_PVAR_FLAG_READONLY | MPIR_T_PVAR_FLAG_CONTINUOUS),
29 "CH4",
30 "number of search passes on the unexpected message receive queue");
31
32 MPIR_T_PVAR_TIMER_REGISTER_STATIC(RECVQ, MPI_DOUBLE, time_failed_matching_postedq, MPI_T_VERBOSITY_USER_DETAIL, MPI_T_BIND_NO_OBJECT, (MPIR_T_PVAR_FLAG_READONLY | MPIR_T_PVAR_FLAG_CONTINUOUS), "CH4", /* category name */
33 "total time spent on unsuccessful search passes on the posted receives queue");
34
35 MPIR_T_PVAR_TIMER_REGISTER_STATIC(RECVQ, MPI_DOUBLE, time_matching_unexpectedq, MPI_T_VERBOSITY_USER_DETAIL, MPI_T_BIND_NO_OBJECT, (MPIR_T_PVAR_FLAG_READONLY | MPIR_T_PVAR_FLAG_CONTINUOUS), "CH4", /* category name */
36 "total time spent on search passes on the unexpected receive queue");
37
38 return mpi_errno;
39 }
40