1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 #ifndef OMPI_F77_BINDINGS_H
23 #define OMPI_F77_BINDINGS_H
24
25 #include "ompi_config.h"
26
27 #include "mpi.h"
28 #include "ompi/request/grequest.h"
29
30 #if OMPI_FORTRAN_CAPS
31 #define OMPI_GENERATE_F77_BINDINGS(upper_case, \
32 lower_case, \
33 single_underscore, \
34 double_underscore, \
35 wrapper_function, \
36 signature, \
37 params) \
38 void upper_case signature { wrapper_function params; }
39 #elif OMPI_FORTRAN_PLAIN
40 #define OMPI_GENERATE_F77_BINDINGS(upper_case, \
41 lower_case, \
42 single_underscore, \
43 double_underscore, \
44 wrapper_function, \
45 signature, \
46 params) \
47 void lower_case signature { wrapper_function params; }
48 #elif OMPI_FORTRAN_DOUBLE_UNDERSCORE
49 #define OMPI_GENERATE_F77_BINDINGS(upper_case, \
50 lower_case, \
51 single_underscore, \
52 double_underscore, \
53 wrapper_function, \
54 signature, \
55 params) \
56 void double_underscore signature { wrapper_function params; }
57 #elif OMPI_FORTRAN_SINGLE_UNDERSCORE
58 #define OMPI_GENERATE_F77_BINDINGS(upper_case, \
59 lower_case, \
60 single_underscore, \
61 double_underscore, \
62 wrapper_function, \
63 signature, \
64 params) \
65 void single_underscore signature { wrapper_function params; }
66 #else
67 #error Unrecognized Fortran name mangling scheme
68 #endif
69
70
71
72
73
74
75
76
77
78
79
80
81 #include "ompi/mpi/fortran/mpif-h/prototypes_mpi.h"
82
83 #include "ompi/mpi/fortran/base/fint_2_int.h"
84
85 #endif