This source file includes following definitions.
- PMPI_WTIME
- pmpi_wtime
- pmpi_wtime_
- pmpi_wtime__
- MPI_WTIME
- mpi_wtime
- mpi_wtime_
- mpi_wtime__
- ompi_wtime_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_WTIME = ompi_wtime_f
37 #pragma weak pmpi_wtime = ompi_wtime_f
38 #pragma weak pmpi_wtime_ = ompi_wtime_f
39 #pragma weak pmpi_wtime__ = ompi_wtime_f
40
41 #pragma weak PMPI_Wtime_f = ompi_wtime_f
42 #pragma weak PMPI_Wtime_f08 = ompi_wtime_f
43 #else
44 double PMPI_WTIME(void) { return pompi_wtime_f(); }
45 double pmpi_wtime(void) { return pompi_wtime_f(); }
46 double pmpi_wtime_(void) { return pompi_wtime_f(); }
47 double pmpi_wtime__(void) { return pompi_wtime_f(); }
48 #endif
49 #endif
50
51 #if OPAL_HAVE_WEAK_SYMBOLS
52 #pragma weak MPI_WTIME = ompi_wtime_f
53 #pragma weak mpi_wtime = ompi_wtime_f
54 #pragma weak mpi_wtime_ = ompi_wtime_f
55 #pragma weak mpi_wtime__ = ompi_wtime_f
56
57 #pragma weak MPI_Wtime_f = ompi_wtime_f
58 #pragma weak MPI_Wtime_f08 = ompi_wtime_f
59 #else
60 #if ! OMPI_BUILD_MPI_PROFILING
61 double MPI_WTIME(void) { return ompi_wtime_f(); }
62 double mpi_wtime(void) { return ompi_wtime_f(); }
63 double mpi_wtime_(void) { return ompi_wtime_f(); }
64 double mpi_wtime__(void) { return ompi_wtime_f(); }
65 #else
66 #define ompi_wtime_f pompi_wtime_f
67 #endif
68 #endif
69
70
71 double ompi_wtime_f(void)
72 {
73 return PMPI_Wtime();
74 }