This source file includes following definitions.
- PMPI_WTICK
- pmpi_wtick
- pmpi_wtick_
- pmpi_wtick__
- MPI_WTICK
- mpi_wtick
- mpi_wtick_
- mpi_wtick__
- ompi_wtick_f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 #include "ompi_config.h"
26
27 #include "ompi/mpi/fortran/mpif-h/bindings.h"
28
29
30
31
32
33
34 #if OMPI_BUILD_MPI_PROFILING
35 #if OPAL_HAVE_WEAK_SYMBOLS
36 #pragma weak PMPI_WTICK = ompi_wtick_f
37 #pragma weak pmpi_wtick = ompi_wtick_f
38 #pragma weak pmpi_wtick_ = ompi_wtick_f
39 #pragma weak pmpi_wtick__ = ompi_wtick_f
40
41 #pragma weak PMPI_Wtick_f = ompi_wtick_f
42 #pragma weak PMPI_Wtick_f08 = ompi_wtick_f
43 #else
44 double PMPI_WTICK(void) { return pompi_wtick_f(); }
45 double pmpi_wtick(void) { return pompi_wtick_f(); }
46 double pmpi_wtick_(void) { return pompi_wtick_f(); }
47 double pmpi_wtick__(void) { return pompi_wtick_f(); }
48 #endif
49 #endif
50
51 #if OPAL_HAVE_WEAK_SYMBOLS
52 #pragma weak MPI_WTICK = ompi_wtick_f
53 #pragma weak mpi_wtick = ompi_wtick_f
54 #pragma weak mpi_wtick_ = ompi_wtick_f
55 #pragma weak mpi_wtick__ = ompi_wtick_f
56
57 #pragma weak MPI_Wtick_f = ompi_wtick_f
58 #pragma weak MPI_Wtick_f08 = ompi_wtick_f
59 #else
60 #if ! OMPI_BUILD_MPI_PROFILING
61 double MPI_WTICK(void) { return ompi_wtick_f(); }
62 double mpi_wtick(void) { return ompi_wtick_f(); }
63 double mpi_wtick_(void) { return ompi_wtick_f(); }
64 double mpi_wtick__(void) { return ompi_wtick_f(); }
65 #else
66 #define ompi_wtick_f pompi_wtick_f
67 #endif
68 #endif
69
70
71 double ompi_wtick_f(void)
72 {
73 return PMPI_Wtick();
74 }