164
164
interface
165
165
166
166
subroutine ompi_bsend_f (buf ,count ,datatype ,dest ,tag ,comm ,ierror ) &
167
- BIND (C , name = "ompi_bsend_f " )
167
+ BIND (C , name = "ompi_bsend_@OMPI_F08_BINDINGS_EXTENSION@ " )
168
168
implicit none
169
- OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
169
+ OMPI_F08_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
170
170
INTEGER , INTENT (IN ) :: count , dest , tag
171
171
INTEGER , INTENT (IN ) :: datatype
172
172
INTEGER , INTENT (IN ) :: comm
173
173
INTEGER , INTENT (OUT ) :: ierror
174
174
end subroutine ompi_bsend_f
175
175
176
176
subroutine ompi_bsend_init_f (buf ,count ,datatype ,dest ,tag ,comm ,request ,ierror ) &
177
- BIND (C , name = "ompi_bsend_init_f " )
177
+ BIND (C , name = "ompi_bsend_init_@OMPI_F08_BINDINGS_EXTENSION@ " )
178
178
implicit none
179
- OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
179
+ OMPI_F08_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
180
180
INTEGER , INTENT (IN ) :: count , dest , tag
181
181
INTEGER , INTENT (IN ) :: datatype
182
182
INTEGER , INTENT (IN ) :: comm
@@ -222,9 +222,9 @@ subroutine ompi_get_count_f(status,datatype,count,ierror) &
222
222
end subroutine ompi_get_count_f
223
223
224
224
subroutine ompi_ibsend_f (buf ,count ,datatype ,dest ,tag ,comm ,request ,ierror ) &
225
- BIND (C , name = "ompi_ibsend_f " )
225
+ BIND (C , name = "ompi_ibsend_@OMPI_F08_BINDINGS_EXTENSION@ " )
226
226
implicit none
227
- OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
227
+ OMPI_F08_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
228
228
INTEGER , INTENT (IN ) :: count , dest , tag
229
229
INTEGER , INTENT (IN ) :: datatype
230
230
INTEGER , INTENT (IN ) :: comm
@@ -233,9 +233,9 @@ subroutine ompi_ibsend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
233
233
end subroutine ompi_ibsend_f
234
234
235
235
subroutine ompi_irecv_f (buf ,count ,datatype ,source ,tag ,comm ,request ,ierror ) &
236
- BIND (C , name = "ompi_irecv_f " )
236
+ BIND (C , name = "ompi_irecv_@OMPI_F08_BINDINGS_EXTENSION@ " )
237
237
implicit none
238
- OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
238
+ OMPI_F08_IGNORE_TKR_TYPE :: buf
239
239
INTEGER , INTENT (IN ) :: count , source , tag
240
240
INTEGER , INTENT (IN ) :: datatype
241
241
INTEGER , INTENT (IN ) :: comm
@@ -244,9 +244,9 @@ subroutine ompi_irecv_f(buf,count,datatype,source,tag,comm,request,ierror) &
244
244
end subroutine ompi_irecv_f
245
245
246
246
subroutine ompi_irsend_f (buf ,count ,datatype ,dest ,tag ,comm ,request ,ierror ) &
247
- BIND (C , name = "ompi_irsend_f " )
247
+ BIND (C , name = "ompi_irsend_@OMPI_F08_BINDINGS_EXTENSION@ " )
248
248
implicit none
249
- OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
249
+ OMPI_F08_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
250
250
INTEGER , INTENT (IN ) :: count , dest , tag
251
251
INTEGER , INTENT (IN ) :: datatype
252
252
INTEGER , INTENT (IN ) :: comm
@@ -255,9 +255,9 @@ subroutine ompi_irsend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
255
255
end subroutine ompi_irsend_f
256
256
257
257
subroutine ompi_isend_f (buf ,count ,datatype ,dest ,tag ,comm ,request ,ierror ) &
258
- BIND (C , name = "ompi_isend_f " )
258
+ BIND (C , name = "ompi_isend_@OMPI_F08_BINDINGS_EXTENSION@ " )
259
259
implicit none
260
- OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
260
+ OMPI_F08_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
261
261
INTEGER , INTENT (IN ) :: count , dest , tag
262
262
INTEGER , INTENT (IN ) :: datatype
263
263
INTEGER , INTENT (IN ) :: comm
@@ -266,9 +266,9 @@ subroutine ompi_isend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
266
266
end subroutine ompi_isend_f
267
267
268
268
subroutine ompi_issend_f (buf ,count ,datatype ,dest ,tag ,comm ,request ,ierror ) &
269
- BIND (C , name = "ompi_issend_f " )
269
+ BIND (C , name = "ompi_issend_@OMPI_F08_BINDINGS_EXTENSION@ " )
270
270
implicit none
271
- OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
271
+ OMPI_F08_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
272
272
INTEGER , INTENT (IN ) :: count , dest , tag
273
273
INTEGER , INTENT (IN ) :: datatype
274
274
INTEGER , INTENT (IN ) :: comm
@@ -287,10 +287,10 @@ subroutine ompi_probe_f(source,tag,comm,status,ierror) &
287
287
end subroutine ompi_probe_f
288
288
289
289
subroutine ompi_recv_f (buf ,count ,datatype ,source ,tag ,comm ,status ,ierror ) &
290
- BIND (C , name = "ompi_recv_f " )
290
+ BIND (C , name = "ompi_recv_@OMPI_F08_BINDINGS_EXTENSION@ " )
291
291
use :: mpi_f08_types , only : MPI_Status
292
292
implicit none
293
- OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
293
+ OMPI_F08_IGNORE_TKR_TYPE :: buf
294
294
INTEGER , INTENT (IN ) :: count , source , tag
295
295
INTEGER , INTENT (IN ) :: datatype
296
296
INTEGER , INTENT (IN ) :: comm
@@ -299,9 +299,9 @@ subroutine ompi_recv_f(buf,count,datatype,source,tag,comm,status,ierror) &
299
299
end subroutine ompi_recv_f
300
300
301
301
subroutine ompi_recv_init_f (buf ,count ,datatype ,source ,tag ,comm ,request ,ierror ) &
302
- BIND (C , name = "ompi_recv_init_f " )
302
+ BIND (C , name = "ompi_recv_init_@OMPI_F08_BINDINGS_EXTENSION@ " )
303
303
implicit none
304
- OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
304
+ OMPI_F08_IGNORE_TKR_TYPE :: buf
305
305
INTEGER , INTENT (IN ) :: count , source , tag
306
306
INTEGER , INTENT (IN ) :: datatype
307
307
INTEGER , INTENT (IN ) :: comm
@@ -317,19 +317,19 @@ subroutine ompi_request_free_f(request,ierror) &
317
317
end subroutine ompi_request_free_f
318
318
319
319
subroutine ompi_rsend_f (buf ,count ,datatype ,dest ,tag ,comm ,ierror ) &
320
- BIND (C , name = "ompi_rsend_f " )
320
+ BIND (C , name = "ompi_rsend_@OMPI_F08_BINDINGS_EXTENSION@ " )
321
321
implicit none
322
- OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
322
+ OMPI_F08_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
323
323
INTEGER , INTENT (IN ) :: count , dest , tag
324
324
INTEGER , INTENT (IN ) :: datatype
325
325
INTEGER , INTENT (IN ) :: comm
326
326
INTEGER , INTENT (OUT ) :: ierror
327
327
end subroutine ompi_rsend_f
328
328
329
329
subroutine ompi_rsend_init_f (buf ,count ,datatype ,dest ,tag ,comm ,request ,ierror ) &
330
- BIND (C , name = "ompi_rsend_init_f " )
330
+ BIND (C , name = "ompi_rsend_init_@OMPI_F08_BINDINGS_EXTENSION@ " )
331
331
implicit none
332
- OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
332
+ OMPI_F08_IGNORE_TKR_TYPE :: buf
333
333
INTEGER , INTENT (IN ) :: count , dest , tag
334
334
INTEGER , INTENT (IN ) :: datatype
335
335
INTEGER , INTENT (IN ) :: comm
@@ -338,9 +338,9 @@ subroutine ompi_rsend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
338
338
end subroutine ompi_rsend_init_f
339
339
340
340
subroutine ompi_send_f (buf ,count ,datatype ,dest ,tag ,comm ,ierror ) &
341
- BIND (C , name = "ompi_send_f " )
341
+ BIND (C , name = "ompi_send_@OMPI_F08_BINDINGS_EXTENSION@ " )
342
342
implicit none
343
- OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
343
+ OMPI_F08_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
344
344
INTEGER , INTENT (IN ) :: count , dest , tag
345
345
INTEGER , INTENT (IN ) :: datatype
346
346
INTEGER , INTENT (IN ) :: comm
@@ -349,11 +349,11 @@ end subroutine ompi_send_f
349
349
350
350
subroutine ompi_sendrecv_f (sendbuf ,sendcount ,sendtype ,dest ,sendtag ,recvbuf , &
351
351
recvcount ,recvtype ,source ,recvtag ,comm ,status ,ierror ) &
352
- BIND (C , name = "ompi_sendrecv_f " )
352
+ BIND (C , name = "ompi_sendrecv_@OMPI_F08_BINDINGS_EXTENSION@ " )
353
353
use :: mpi_f08_types , only : MPI_Status
354
354
implicit none
355
- OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: sendbuf
356
- OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
355
+ OMPI_F08_IGNORE_TKR_TYPE , INTENT (IN ) :: sendbuf
356
+ OMPI_F08_IGNORE_TKR_TYPE :: recvbuf
357
357
INTEGER , INTENT (IN ) :: sendcount , dest , sendtag , recvcount , source , recvtag
358
358
INTEGER , INTENT (IN ) :: sendtype
359
359
INTEGER , INTENT (IN ) :: recvtype
@@ -364,10 +364,10 @@ end subroutine ompi_sendrecv_f
364
364
365
365
subroutine ompi_sendrecv_replace_f (buf ,count ,datatype ,dest ,sendtag ,source , &
366
366
recvtag ,comm ,status ,ierror ) &
367
- BIND (C , name = "ompi_sendrecv_replace_f " )
367
+ BIND (C , name = "ompi_sendrecv_replace_@OMPI_F08_BINDINGS_EXTENSION@ " )
368
368
use :: mpi_f08_types , only : MPI_Status
369
369
implicit none
370
- OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
370
+ OMPI_F08_IGNORE_TKR_TYPE :: buf
371
371
INTEGER , INTENT (IN ) :: count , dest , sendtag , source , recvtag
372
372
INTEGER , INTENT (IN ) :: datatype
373
373
INTEGER , INTENT (IN ) :: comm
@@ -376,9 +376,9 @@ subroutine ompi_sendrecv_replace_f(buf,count,datatype,dest,sendtag,source, &
376
376
end subroutine ompi_sendrecv_replace_f
377
377
378
378
subroutine ompi_send_init_f (buf ,count ,datatype ,dest ,tag ,comm ,request ,ierror ) &
379
- BIND (C , name = "ompi_send_init_f " )
379
+ BIND (C , name = "ompi_send_init_@OMPI_F08_BINDINGS_EXTENSION@ " )
380
380
implicit none
381
- OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
381
+ OMPI_F08_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
382
382
INTEGER , INTENT (IN ) :: count , dest , tag
383
383
INTEGER , INTENT (IN ) :: datatype
384
384
INTEGER , INTENT (IN ) :: comm
@@ -387,19 +387,19 @@ subroutine ompi_send_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
387
387
end subroutine ompi_send_init_f
388
388
389
389
subroutine ompi_ssend_f (buf ,count ,datatype ,dest ,tag ,comm ,ierror ) &
390
- BIND (C , name = "ompi_ssend_f " )
390
+ BIND (C , name = "ompi_ssend_@OMPI_F08_BINDINGS_EXTENSION@ " )
391
391
implicit none
392
- OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
392
+ OMPI_F08_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
393
393
INTEGER , INTENT (IN ) :: count , dest , tag
394
394
INTEGER , INTENT (IN ) :: datatype
395
395
INTEGER , INTENT (IN ) :: comm
396
396
INTEGER , INTENT (OUT ) :: ierror
397
397
end subroutine ompi_ssend_f
398
398
399
399
subroutine ompi_ssend_init_f (buf ,count ,datatype ,dest ,tag ,comm ,request ,ierror ) &
400
- BIND (C , name = "ompi_ssend_init_f " )
400
+ BIND (C , name = "ompi_ssend_init_@OMPI_F08_BINDINGS_EXTENSION@ " )
401
401
implicit none
402
- OMPI_FORTRAN_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
402
+ OMPI_F08_IGNORE_TKR_TYPE , INTENT (IN ) :: buf
403
403
INTEGER , INTENT (IN ) :: count , dest , tag
404
404
INTEGER , INTENT (IN ) :: datatype
405
405
INTEGER , INTENT (IN ) :: comm
@@ -3335,9 +3335,9 @@ subroutine ompi_mprobe_f(source,tag,comm,message,status,ierror) &
3335
3335
end subroutine ompi_mprobe_f
3336
3336
3337
3337
subroutine ompi_imrecv_f (buf ,count ,datatype ,message ,request ,ierror ) &
3338
- BIND (C , name = "ompi_imrecv_f " )
3338
+ BIND (C , name = "ompi_imrecv_@OMPI_F08_BINDINGS_EXTENSION@ " )
3339
3339
implicit none
3340
- OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
3340
+ OMPI_F08_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
3341
3341
INTEGER , INTENT (IN ) :: count
3342
3342
INTEGER , INTENT (IN ) :: datatype
3343
3343
INTEGER , INTENT (INOUT ) :: message
@@ -3346,10 +3346,10 @@ subroutine ompi_imrecv_f(buf,count,datatype,message,request,ierror) &
3346
3346
end subroutine ompi_imrecv_f
3347
3347
3348
3348
subroutine ompi_mrecv_f (buf ,count ,datatype ,message ,status ,ierror ) &
3349
- BIND (C , name = "ompi_mrecv_f " )
3349
+ BIND (C , name = "ompi_mrecv_@OMPI_F08_BINDINGS_EXTENSION@ " )
3350
3350
use :: mpi_f08_types , only : MPI_Status
3351
3351
implicit none
3352
- OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
3352
+ OMPI_F08_IGNORE_TKR_TYPE :: buf
3353
3353
INTEGER , INTENT (IN ) :: count
3354
3354
INTEGER , INTENT (IN ) :: datatype
3355
3355
INTEGER , INTENT (INOUT ) :: message
0 commit comments