This source file includes following definitions.
- OMPI_GENERATE_F77_BINDINGS
- ompi_type_null_copy_fn_f
- ompi_type_dup_fn_f
- ompi_comm_null_delete_fn_f
- ompi_comm_null_copy_fn_f
- ompi_comm_dup_fn_f
- ompi_null_delete_fn_f
- ompi_null_copy_fn_f
- ompi_dup_fn_f
- ompi_win_null_delete_fn_f
- ompi_win_null_copy_fn_f
- ompi_win_dup_fn_f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 #include "ompi_config.h"
21
22 #include "ompi/mpi/fortran/mpif-h/bindings.h"
23 #include "ompi/mpi/fortran/base/fint_2_int.h"
24
25 #if OPAL_HAVE_WEAK_SYMBOLS
26 #pragma weak MPI_TYPE_NULL_COPY_FN = ompi_type_null_copy_fn_f
27 #pragma weak mpi_type_null_copy_fn = ompi_type_null_copy_fn_f
28 #pragma weak mpi_type_null_copy_fn_ = ompi_type_null_copy_fn_f
29 #pragma weak mpi_type_null_copy_fn__ = ompi_type_null_copy_fn_f
30
31 #pragma weak MPI_TYPE_NULL_DELETE_FN = ompi_type_null_delete_fn_f
32 #pragma weak mpi_type_null_delete_fn = ompi_type_null_delete_fn_f
33 #pragma weak mpi_type_null_delete_fn_ = ompi_type_null_delete_fn_f
34 #pragma weak mpi_type_null_delete_fn__ = ompi_type_null_delete_fn_f
35
36 #pragma weak MPI_TYPE_DUP_FN = ompi_type_dup_fn_f
37 #pragma weak mpi_type_dup_fn = ompi_type_dup_fn_f
38 #pragma weak mpi_type_dup_fn_ = ompi_type_dup_fn_f
39 #pragma weak mpi_type_dup_fn__ = ompi_type_dup_fn_f
40
41 #pragma weak MPI_COMM_NULL_DELETE_FN = ompi_comm_null_delete_fn_f
42 #pragma weak mpi_comm_null_delete_fn = ompi_comm_null_delete_fn_f
43 #pragma weak mpi_comm_null_delete_fn_ = ompi_comm_null_delete_fn_f
44 #pragma weak mpi_comm_null_delete_fn__ = ompi_comm_null_delete_fn_f
45
46 #pragma weak MPI_COMM_DUP_FN = ompi_comm_dup_fn_f
47 #pragma weak mpi_comm_dup_fn = ompi_comm_dup_fn_f
48 #pragma weak mpi_comm_dup_fn_ = ompi_comm_dup_fn_f
49 #pragma weak mpi_comm_dup_fn__ = ompi_comm_dup_fn_f
50
51 #pragma weak MPI_COMM_NULL_COPY_FN = ompi_comm_null_copy_fn_f
52 #pragma weak mpi_comm_null_copy_fn = ompi_comm_null_copy_fn_f
53 #pragma weak mpi_comm_null_copy_fn_ = ompi_comm_null_copy_fn_f
54 #pragma weak mpi_comm_null_copy_fn__ = ompi_comm_null_copy_fn_f
55
56 #pragma weak MPI_WIN_NULL_DELETE_FN = ompi_win_null_delete_fn_f
57 #pragma weak mpi_win_null_delete_fn = ompi_win_null_delete_fn_f
58 #pragma weak mpi_win_null_delete_fn_ = ompi_win_null_delete_fn_f
59 #pragma weak mpi_win_null_delete_fn__ = ompi_win_null_delete_fn_f
60
61 #pragma weak MPI_WIN_NULL_COPY_FN = ompi_win_null_copy_fn_f
62 #pragma weak mpi_win_null_copy_fn = ompi_win_null_copy_fn_f
63 #pragma weak mpi_win_null_copy_fn_ = ompi_win_null_copy_fn_f
64 #pragma weak mpi_win_null_copy_fn__ = ompi_win_null_copy_fn_f
65
66 #pragma weak MPI_WIN_DUP_FN = ompi_win_dup_fn_f
67 #pragma weak mpi_win_dup_fn = ompi_win_dup_fn_f
68 #pragma weak mpi_win_dup_fn_ = ompi_win_dup_fn_f
69 #pragma weak mpi_win_dup_fn__ = ompi_win_dup_fn_f
70
71 #pragma weak MPI_NULL_COPY_FN = ompi_null_copy_fn_f
72 #pragma weak mpi_null_copy_fn = ompi_null_copy_fn_f
73 #pragma weak mpi_null_copy_fn_ = ompi_null_copy_fn_f
74 #pragma weak mpi_null_copy_fn__ = ompi_null_copy_fn_f
75
76 #pragma weak MPI_NULL_DELETE_FN = ompi_null_delete_fn_f
77 #pragma weak mpi_null_delete_fn = ompi_null_delete_fn_f
78 #pragma weak mpi_null_delete_fn_ = ompi_null_delete_fn_f
79 #pragma weak mpi_null_delete_fn__ = ompi_null_delete_fn_f
80
81 #pragma weak MPI_DUP_FN = ompi_dup_fn_f
82 #pragma weak mpi_dup_fn = ompi_dup_fn_f
83 #pragma weak mpi_dup_fn_ = ompi_dup_fn_f
84 #pragma weak mpi_dup_fn__ = ompi_dup_fn_f
85
86 #else
87 OMPI_GENERATE_F77_BINDINGS( MPI_TYPE_NULL_DELETE_FN,
88 mpi_type_null_delete_fn,
89 mpi_type_null_delete_fn_,
90 mpi_type_null_delete_fn__,
91 ompi_type_null_delete_fn_f,
92 (MPI_Fint* type, MPI_Fint* type_keyval, MPI_Aint* attribute_val_out, MPI_Aint* extra_state, MPI_Fint* ierr),
93 (type, type_keyval, attribute_val_out, extra_state, ierr) )
94 OMPI_GENERATE_F77_BINDINGS( MPI_TYPE_NULL_COPY_FN,
95 mpi_type_null_copy_fn,
96 mpi_type_null_copy_fn_,
97 mpi_type_null_copy_fn__,
98 ompi_type_null_copy_fn_f,
99 (MPI_Fint* type, MPI_Fint* type_keyval, MPI_Aint* extra_state, MPI_Aint* attribute_val_in, MPI_Aint* attribute_val_out, ompi_fortran_logical_t* flag, MPI_Fint* ierr),
100 (type, type_keyval, extra_state, attribute_val_in, attribute_val_out, flag, ierr) )
101 OMPI_GENERATE_F77_BINDINGS( MPI_TYPE_DUP_FN,
102 mpi_type_dup_fn,
103 mpi_type_dup_fn_,
104 mpi_type_dup_fn__,
105 ompi_type_dup_fn_f,
106 (MPI_Fint* type, MPI_Fint* type_keyval, MPI_Aint* extra_state, MPI_Aint* attribute_val_in, MPI_Aint* attribute_val_out, ompi_fortran_logical_t* flag, MPI_Fint* ierr),
107 (type, type_keyval, extra_state, attribute_val_in, attribute_val_out, flag, ierr) )
108 OMPI_GENERATE_F77_BINDINGS( MPI_COMM_NULL_DELETE_FN,
109 mpi_comm_null_delete_fn,
110 mpi_comm_null_delete_fn_,
111 mpi_comm_null_delete_fn__,
112 ompi_comm_null_delete_fn_f,
113 (MPI_Fint* comm, MPI_Fint* comm_keyval,MPI_Aint* attribute_val_out, MPI_Aint* extra_state, MPI_Fint* ierr ),
114 (comm, comm_keyval, attribute_val_out, extra_state, ierr) )
115 OMPI_GENERATE_F77_BINDINGS( MPI_COMM_NULL_COPY_FN,
116 mpi_comm_null_copy_fn,
117 mpi_comm_null_copy_fn_,
118 mpi_comm_null_copy_fn__,
119 ompi_comm_null_copy_fn_f,
120 (MPI_Fint* comm, MPI_Fint* comm_keyval, MPI_Aint* extra_state, MPI_Aint* attribute_val_in, MPI_Aint* attribute_val_out, ompi_fortran_logical_t* flag, MPI_Fint* ierr),
121 (comm, comm_keyval, extra_state, attribute_val_in, attribute_val_out, flag, ierr) )
122 OMPI_GENERATE_F77_BINDINGS( MPI_COMM_DUP_FN,
123 mpi_comm_dup_fn,
124 mpi_comm_dup_fn_,
125 mpi_comm_dup_fn__,
126 ompi_comm_dup_fn_f,
127 (MPI_Fint* comm, MPI_Fint* comm_keyval, MPI_Aint* extra_state, MPI_Aint* attribute_val_in, MPI_Aint* attribute_val_out, ompi_fortran_logical_t* flag, MPI_Fint* ierr),
128 (comm, comm_keyval, extra_state, attribute_val_in, attribute_val_out, flag, ierr) )
129 OMPI_GENERATE_F77_BINDINGS( MPI_NULL_DELETE_FN,
130 mpi_null_delete_fn,
131 mpi_null_delete_fn_,
132 mpi_null_delete_fn__,
133 ompi_null_delete_fn_f,
134 (MPI_Fint* comm, MPI_Fint* comm_keyval,MPI_Fint* attribute_val_out, MPI_Fint* extra_state, MPI_Fint* ierr ),
135 (comm, comm_keyval, attribute_val_out, extra_state, ierr) )
136 OMPI_GENERATE_F77_BINDINGS( MPI_NULL_COPY_FN,
137 mpi_null_copy_fn,
138 mpi_null_copy_fn_,
139 mpi_null_copy_fn__,
140 ompi_null_copy_fn_f,
141 (MPI_Fint* comm, MPI_Fint* comm_keyval, MPI_Fint* extra_state, MPI_Fint* attribute_val_in, MPI_Fint* attribute_val_out, ompi_fortran_logical_t* flag, MPI_Fint* ierr),
142 (comm, comm_keyval, extra_state, attribute_val_in, attribute_val_out, flag, ierr) )
143 OMPI_GENERATE_F77_BINDINGS( MPI_DUP_FN,
144 mpi_dup_fn,
145 mpi_dup_fn_,
146 mpi_dup_fn__,
147 ompi_dup_fn_f,
148 (MPI_Fint* comm, MPI_Fint* comm_keyval, MPI_Fint* extra_state, MPI_Fint* attribute_val_in, MPI_Fint* attribute_val_out, ompi_fortran_logical_t* flag, MPI_Fint* ierr),
149 (comm, comm_keyval, extra_state, attribute_val_in, attribute_val_out, flag, ierr) )
150
151 OMPI_GENERATE_F77_BINDINGS( MPI_WIN_NULL_DELETE_FN,
152 mpi_win_null_delete_fn,
153 mpi_win_null_delete_fn_,
154 mpi_win_null_delete_fn__,
155 ompi_win_null_delete_fn_f,
156 (MPI_Fint* type, MPI_Fint* type_keyval,MPI_Aint* attribute_val_out, MPI_Aint* extra_state, MPI_Fint* ierr ),
157 (type, type_keyval, attribute_val_out, extra_state, ierr) )
158 OMPI_GENERATE_F77_BINDINGS( MPI_WIN_NULL_COPY_FN,
159 mpi_win_null_copy_fn,
160 mpi_win_null_copy_fn_,
161 mpi_win_null_copy_fn__,
162 ompi_win_null_copy_fn_f,
163 (MPI_Fint* window, MPI_Fint* win_keyval, MPI_Aint* extra_state, MPI_Aint* attribute_val_in, MPI_Aint* attribute_val_out, ompi_fortran_logical_t* flag, MPI_Fint* ierr),
164 (window, win_keyval, extra_state, attribute_val_in, attribute_val_out, flag, ierr) )
165 OMPI_GENERATE_F77_BINDINGS( MPI_WIN_DUP_FN,
166 mpi_win_dup_fn,
167 mpi_win_dup_fn_,
168 mpi_win_dup_fn__,
169 ompi_win_dup_fn_f,
170 (MPI_Fint* window, MPI_Fint* win_keyval, MPI_Aint* extra_state, MPI_Aint* attribute_val_in, MPI_Aint* attribute_val_out, ompi_fortran_logical_t* flag, MPI_Fint* ierr),
171 (window, win_keyval, extra_state, attribute_val_in, attribute_val_out, flag, ierr) )
172 #endif
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197 void ompi_type_null_delete_fn_f(MPI_Fint* type, MPI_Fint* type_keyval,
198 MPI_Aint* attribute_val_out,
199 MPI_Aint* extra_state, MPI_Fint* ierr)
200 {
201 *ierr = OMPI_INT_2_FINT(MPI_SUCCESS);
202 }
203
204 void ompi_type_null_copy_fn_f(MPI_Fint* type, MPI_Fint* type_keyval,
205 MPI_Aint* extra_state,
206 MPI_Aint* attribute_val_in,
207 MPI_Aint* attribute_val_out,
208 ompi_fortran_logical_t* flag, MPI_Fint* ierr)
209 {
210 *flag = (ompi_fortran_logical_t) 0;
211 *ierr = OMPI_INT_2_FINT(MPI_SUCCESS);
212 }
213
214 void ompi_type_dup_fn_f(MPI_Fint* type, MPI_Fint* type_keyval,
215 MPI_Aint* extra_state,
216 MPI_Aint* attribute_val_in,
217 MPI_Aint* attribute_val_out,
218 ompi_fortran_logical_t* flag, MPI_Fint* ierr )
219 {
220 *flag = (ompi_fortran_logical_t) 1;
221 *attribute_val_out = *attribute_val_in;
222 *ierr = OMPI_INT_2_FINT(MPI_SUCCESS);
223 }
224
225 void ompi_comm_null_delete_fn_f(MPI_Fint* comm, MPI_Fint* comm_keyval,
226 MPI_Aint* attribute_val_out,
227 MPI_Aint* extra_state, MPI_Fint* ierr)
228 {
229 *ierr = OMPI_INT_2_FINT(MPI_SUCCESS);
230 }
231
232 void ompi_comm_null_copy_fn_f(MPI_Fint* comm, MPI_Fint* comm_keyval,
233 MPI_Aint* extra_state,
234 MPI_Aint* attribute_val_in,
235 MPI_Aint* attribute_val_out,
236 ompi_fortran_logical_t* flag, MPI_Fint* ierr)
237 {
238 *flag = (ompi_fortran_logical_t) 0;
239 *ierr = OMPI_INT_2_FINT(MPI_SUCCESS);
240 }
241
242 void ompi_comm_dup_fn_f(MPI_Fint* comm, MPI_Fint* comm_keyval,
243 MPI_Aint* extra_state,
244 MPI_Aint* attribute_val_in,
245 MPI_Aint* attribute_val_out,
246 ompi_fortran_logical_t* flag, MPI_Fint* ierr)
247 {
248 *flag = (ompi_fortran_logical_t) 1;
249 *attribute_val_out = *attribute_val_in;
250 *ierr = OMPI_INT_2_FINT(MPI_SUCCESS);
251 }
252
253 void ompi_null_delete_fn_f(MPI_Fint* comm, MPI_Fint* comm_keyval,
254 MPI_Fint* attribute_val_out,
255 MPI_Fint* extra_state, MPI_Fint* ierr)
256 {
257 *ierr = OMPI_INT_2_FINT(MPI_SUCCESS);
258 }
259
260 void ompi_null_copy_fn_f(MPI_Fint* comm, MPI_Fint* comm_keyval,
261 MPI_Fint* extra_state,
262 MPI_Fint* attribute_val_in,
263 MPI_Fint* attribute_val_out,
264 ompi_fortran_logical_t* flag, MPI_Fint* ierr)
265 {
266 *flag = (ompi_fortran_logical_t) 0;
267 *ierr = OMPI_INT_2_FINT(MPI_SUCCESS);
268 }
269
270
271 void ompi_dup_fn_f(MPI_Fint* comm, MPI_Fint* comm_keyval,
272 MPI_Fint* extra_state,
273 MPI_Fint* attribute_val_in,
274 MPI_Fint* attribute_val_out,
275 ompi_fortran_logical_t* flag, MPI_Fint* ierr)
276 {
277 *flag = (ompi_fortran_logical_t) 1;
278 *attribute_val_out = *attribute_val_in;
279 *ierr = OMPI_INT_2_FINT(MPI_SUCCESS);
280 }
281
282 void ompi_win_null_delete_fn_f(MPI_Fint* window, MPI_Fint* win_keyval,
283 MPI_Aint* attribute_val_out,
284 MPI_Aint* extra_state, MPI_Fint* ierr)
285 {
286 *ierr = OMPI_INT_2_FINT(MPI_SUCCESS);
287 }
288
289 void ompi_win_null_copy_fn_f(MPI_Fint* window, MPI_Fint* win_keyval,
290 MPI_Aint* extra_state,
291 MPI_Aint* attribute_val_in,
292 MPI_Aint* attribute_val_out,
293 ompi_fortran_logical_t* flag, MPI_Fint* ierr)
294 {
295 *flag = (ompi_fortran_logical_t) 0;
296 *ierr = OMPI_INT_2_FINT(MPI_SUCCESS);
297 }
298
299 void ompi_win_dup_fn_f(MPI_Fint* window, MPI_Fint* win_keyval,
300 MPI_Aint* extra_state,
301 MPI_Aint* attribute_val_in,
302 MPI_Aint* attribute_val_out,
303 ompi_fortran_logical_t* flag, MPI_Fint* ierr)
304 {
305 *flag = (ompi_fortran_logical_t) 1;
306 *attribute_val_out = *attribute_val_in;
307 *ierr = OMPI_INT_2_FINT(MPI_SUCCESS);
308 }