This source file includes following definitions.
- PMPI_AINT_DIFF
- pmpi_aint_diff
- pmpi_aint_diff_
- pmpi_aint_diff__
- MPI_AINT_DIFF
- mpi_aint_diff
- mpi_aint_diff_
- mpi_aint_diff__
- ompi_aint_diff_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_AINT_DIFF = ompi_aint_diff_f
37 #pragma weak pmpi_aint_diff = ompi_aint_diff_f
38 #pragma weak pmpi_aint_diff_ = ompi_aint_diff_f
39 #pragma weak pmpi_aint_diff__ = ompi_aint_diff_f
40
41 #pragma weak PMPI_Aint_diff_f = ompi_aint_diff_f
42 #pragma weak PMPI_Aint_diff_f08 = ompi_aint_diff_f
43 #else
44 MPI_Aint PMPI_AINT_DIFF(MPI_Aint *addr1, MPI_Aint *addr2) { return pompi_aint_diff_f(addr1, addr2); }
45 MPI_Aint pmpi_aint_diff(MPI_Aint *addr1, MPI_Aint *addr2) { return pompi_aint_diff_f(addr1, addr2); }
46 MPI_Aint pmpi_aint_diff_(MPI_Aint *addr1, MPI_Aint *addr2) { return pompi_aint_diff_f(addr1, addr2); }
47 MPI_Aint pmpi_aint_diff__(MPI_Aint *addr1, MPI_Aint *addr2) { return pompi_aint_diff_f(addr1, addr2); }
48 #endif
49 #endif
50
51 #if OPAL_HAVE_WEAK_SYMBOLS
52 #pragma weak MPI_AINT_DIFF = ompi_aint_diff_f
53 #pragma weak mpi_aint_diff = ompi_aint_diff_f
54 #pragma weak mpi_aint_diff_ = ompi_aint_diff_f
55 #pragma weak mpi_aint_diff__ = ompi_aint_diff_f
56
57 #pragma weak MPI_Aint_diff_f = ompi_aint_diff_f
58 #pragma weak MPI_Aint_diff_f08 = ompi_aint_diff_f
59 #else
60 #if ! OMPI_BUILD_MPI_PROFILING
61 MPI_Aint MPI_AINT_DIFF(MPI_Aint *addr1, MPI_Aint *addr2) { return ompi_aint_diff_f(addr1, addr2); }
62 MPI_Aint mpi_aint_diff(MPI_Aint *addr1, MPI_Aint *addr2) { return ompi_aint_diff_f(addr1, addr2); }
63 MPI_Aint mpi_aint_diff_(MPI_Aint *addr1, MPI_Aint *addr2) { return ompi_aint_diff_f(addr1, addr2); }
64 MPI_Aint mpi_aint_diff__(MPI_Aint *addr1, MPI_Aint *addr2) { return ompi_aint_diff_f(addr1, addr2); }
65 #else
66 #define ompi_aint_diff_f pompi_aint_diff_f
67 #endif
68 #endif
69
70 MPI_Aint ompi_aint_diff_f(MPI_Aint *addr1, MPI_Aint *addr2)
71 {
72 return MPI_Aint_diff (*addr1, *addr2);
73 }