Skip to content

Commit f0170b5

Browse files
ggouaillardetggouaillardet
committed
fortran/use-mpi-f08: add CFI support for point-to-point communications
Signed-off-by: Gilles Gouaillardet <[email protected]>
1 parent c568447 commit f0170b5

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

62 files changed

+1468
-200
lines changed

‎ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h.in‎

Lines changed: 39 additions & 39 deletions
Original file line numberDiff line numberDiff line change
@@ -164,19 +164,19 @@
164164
interface
165165

166166
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@")
168168
implicit none
169-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
169+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
170170
INTEGER, INTENT(IN) :: count, dest, tag
171171
INTEGER, INTENT(IN) :: datatype
172172
INTEGER, INTENT(IN) :: comm
173173
INTEGER, INTENT(OUT) :: ierror
174174
end subroutine ompi_bsend_f
175175

176176
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@")
178178
implicit none
179-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
179+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
180180
INTEGER, INTENT(IN) :: count, dest, tag
181181
INTEGER, INTENT(IN) :: datatype
182182
INTEGER, INTENT(IN) :: comm
@@ -222,9 +222,9 @@ subroutine ompi_get_count_f(status,datatype,count,ierror) &
222222
end subroutine ompi_get_count_f
223223

224224
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@")
226226
implicit none
227-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
227+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
228228
INTEGER, INTENT(IN) :: count, dest, tag
229229
INTEGER, INTENT(IN) :: datatype
230230
INTEGER, INTENT(IN) :: comm
@@ -233,9 +233,9 @@ subroutine ompi_ibsend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
233233
end subroutine ompi_ibsend_f
234234

235235
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@")
237237
implicit none
238-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
238+
OMPI_F08_IGNORE_TKR_TYPE :: buf
239239
INTEGER, INTENT(IN) :: count, source, tag
240240
INTEGER, INTENT(IN) :: datatype
241241
INTEGER, INTENT(IN) :: comm
@@ -244,9 +244,9 @@ subroutine ompi_irecv_f(buf,count,datatype,source,tag,comm,request,ierror) &
244244
end subroutine ompi_irecv_f
245245

246246
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@")
248248
implicit none
249-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
249+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
250250
INTEGER, INTENT(IN) :: count, dest, tag
251251
INTEGER, INTENT(IN) :: datatype
252252
INTEGER, INTENT(IN) :: comm
@@ -255,9 +255,9 @@ subroutine ompi_irsend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
255255
end subroutine ompi_irsend_f
256256

257257
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@")
259259
implicit none
260-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
260+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
261261
INTEGER, INTENT(IN) :: count, dest, tag
262262
INTEGER, INTENT(IN) :: datatype
263263
INTEGER, INTENT(IN) :: comm
@@ -266,9 +266,9 @@ subroutine ompi_isend_f(buf,count,datatype,dest,tag,comm,request,ierror) &
266266
end subroutine ompi_isend_f
267267

268268
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@")
270270
implicit none
271-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
271+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
272272
INTEGER, INTENT(IN) :: count, dest, tag
273273
INTEGER, INTENT(IN) :: datatype
274274
INTEGER, INTENT(IN) :: comm
@@ -287,10 +287,10 @@ subroutine ompi_probe_f(source,tag,comm,status,ierror) &
287287
end subroutine ompi_probe_f
288288

289289
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@")
291291
use :: mpi_f08_types, only : MPI_Status
292292
implicit none
293-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
293+
OMPI_F08_IGNORE_TKR_TYPE :: buf
294294
INTEGER, INTENT(IN) :: count, source, tag
295295
INTEGER, INTENT(IN) :: datatype
296296
INTEGER, INTENT(IN) :: comm
@@ -299,9 +299,9 @@ subroutine ompi_recv_f(buf,count,datatype,source,tag,comm,status,ierror) &
299299
end subroutine ompi_recv_f
300300

301301
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@")
303303
implicit none
304-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
304+
OMPI_F08_IGNORE_TKR_TYPE :: buf
305305
INTEGER, INTENT(IN) :: count, source, tag
306306
INTEGER, INTENT(IN) :: datatype
307307
INTEGER, INTENT(IN) :: comm
@@ -317,19 +317,19 @@ subroutine ompi_request_free_f(request,ierror) &
317317
end subroutine ompi_request_free_f
318318

319319
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@")
321321
implicit none
322-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
322+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
323323
INTEGER, INTENT(IN) :: count, dest, tag
324324
INTEGER, INTENT(IN) :: datatype
325325
INTEGER, INTENT(IN) :: comm
326326
INTEGER, INTENT(OUT) :: ierror
327327
end subroutine ompi_rsend_f
328328

329329
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@")
331331
implicit none
332-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
332+
OMPI_F08_IGNORE_TKR_TYPE :: buf
333333
INTEGER, INTENT(IN) :: count, dest, tag
334334
INTEGER, INTENT(IN) :: datatype
335335
INTEGER, INTENT(IN) :: comm
@@ -338,9 +338,9 @@ subroutine ompi_rsend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
338338
end subroutine ompi_rsend_init_f
339339

340340
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@")
342342
implicit none
343-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
343+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
344344
INTEGER, INTENT(IN) :: count, dest, tag
345345
INTEGER, INTENT(IN) :: datatype
346346
INTEGER, INTENT(IN) :: comm
@@ -349,11 +349,11 @@ end subroutine ompi_send_f
349349

350350
subroutine ompi_sendrecv_f(sendbuf,sendcount,sendtype,dest,sendtag,recvbuf, &
351351
recvcount,recvtype,source,recvtag,comm,status,ierror) &
352-
BIND(C, name="ompi_sendrecv_f")
352+
BIND(C, name="ompi_sendrecv_@OMPI_F08_BINDINGS_EXTENSION@")
353353
use :: mpi_f08_types, only : MPI_Status
354354
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
357357
INTEGER, INTENT(IN) :: sendcount, dest, sendtag, recvcount, source, recvtag
358358
INTEGER, INTENT(IN) :: sendtype
359359
INTEGER, INTENT(IN) :: recvtype
@@ -364,10 +364,10 @@ end subroutine ompi_sendrecv_f
364364

365365
subroutine ompi_sendrecv_replace_f(buf,count,datatype,dest,sendtag,source, &
366366
recvtag,comm,status,ierror) &
367-
BIND(C, name="ompi_sendrecv_replace_f")
367+
BIND(C, name="ompi_sendrecv_replace_@OMPI_F08_BINDINGS_EXTENSION@")
368368
use :: mpi_f08_types, only : MPI_Status
369369
implicit none
370-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
370+
OMPI_F08_IGNORE_TKR_TYPE :: buf
371371
INTEGER, INTENT(IN) :: count, dest, sendtag, source, recvtag
372372
INTEGER, INTENT(IN) :: datatype
373373
INTEGER, INTENT(IN) :: comm
@@ -376,9 +376,9 @@ subroutine ompi_sendrecv_replace_f(buf,count,datatype,dest,sendtag,source, &
376376
end subroutine ompi_sendrecv_replace_f
377377

378378
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@")
380380
implicit none
381-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
381+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
382382
INTEGER, INTENT(IN) :: count, dest, tag
383383
INTEGER, INTENT(IN) :: datatype
384384
INTEGER, INTENT(IN) :: comm
@@ -387,19 +387,19 @@ subroutine ompi_send_init_f(buf,count,datatype,dest,tag,comm,request,ierror) &
387387
end subroutine ompi_send_init_f
388388

389389
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@")
391391
implicit none
392-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
392+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
393393
INTEGER, INTENT(IN) :: count, dest, tag
394394
INTEGER, INTENT(IN) :: datatype
395395
INTEGER, INTENT(IN) :: comm
396396
INTEGER, INTENT(OUT) :: ierror
397397
end subroutine ompi_ssend_f
398398

399399
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@")
401401
implicit none
402-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
402+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
403403
INTEGER, INTENT(IN) :: count, dest, tag
404404
INTEGER, INTENT(IN) :: datatype
405405
INTEGER, INTENT(IN) :: comm
@@ -3335,9 +3335,9 @@ subroutine ompi_mprobe_f(source,tag,comm,message,status,ierror) &
33353335
end subroutine ompi_mprobe_f
33363336

33373337
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@")
33393339
implicit none
3340-
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
3340+
OMPI_F08_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
33413341
INTEGER, INTENT(IN) :: count
33423342
INTEGER, INTENT(IN) :: datatype
33433343
INTEGER, INTENT(INOUT) :: message
@@ -3346,10 +3346,10 @@ subroutine ompi_imrecv_f(buf,count,datatype,message,request,ierror) &
33463346
end subroutine ompi_imrecv_f
33473347

33483348
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@")
33503350
use :: mpi_f08_types, only : MPI_Status
33513351
implicit none
3352-
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
3352+
OMPI_F08_IGNORE_TKR_TYPE :: buf
33533353
INTEGER, INTENT(IN) :: count
33543354
INTEGER, INTENT(IN) :: datatype
33553355
INTEGER, INTENT(INOUT) :: message

‎ompi/mpi/fortran/use-mpi-f08/bsend_f08.F90‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
44
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
55
! All rights reserved.
6-
! Copyright (c) 2018 Research Organization for Information Science
6+
! Copyright (c) 2018-2019 Research Organization for Information Science
77
! and Technology (RIST). All rights reserved.
88
! $COPYRIGHT$
99

@@ -13,7 +13,7 @@ subroutine MPI_Bsend_f08(buf,count,datatype,dest,tag,comm,ierror)
1313
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
1414
use :: ompi_mpifh_bindings, only : ompi_bsend_f
1515
implicit none
16-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
16+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
1717
INTEGER, INTENT(IN) :: count, dest, tag
1818
TYPE(MPI_Datatype), INTENT(IN) :: datatype
1919
TYPE(MPI_Comm), INTENT(IN) :: comm

‎ompi/mpi/fortran/use-mpi-f08/bsend_init_f08.F90‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
44
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
55
! All rights reserved.
6-
! Copyright (c) 2018 Research Organization for Information Science
6+
! Copyright (c) 2018-2019 Research Organization for Information Science
77
! and Technology (RIST). All rights reserved.
88
! $COPYRIGHT$
99

@@ -13,7 +13,7 @@ subroutine MPI_Bsend_init_f08(buf,count,datatype,dest,tag,comm,request,ierror)
1313
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
1414
use :: ompi_mpifh_bindings, only : ompi_bsend_init_f
1515
implicit none
16-
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
16+
OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: buf
1717
INTEGER, INTENT(IN) :: count, dest, tag
1818
TYPE(MPI_Datatype), INTENT(IN) :: datatype
1919
TYPE(MPI_Comm), INTENT(IN) :: comm

‎ompi/mpi/fortran/use-mpi-f08/cdesc/Makefile.am‎

Lines changed: 19 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -43,5 +43,24 @@ libforce_usempif08_internal_cdesc_to_be_built_la_SOURCES = \
4343
cdesc.h \
4444
cdesc.c \
4545
\
46+
bsend_cdesc.c \
47+
bsend_init_cdesc.c \
48+
ibsend_cdesc.c \
49+
imrecv_cdesc.c \
50+
irecv_cdesc.c \
51+
irsend_cdesc.c \
52+
isend_cdesc.c \
53+
issend_cdesc.c \
54+
mrecv_cdesc.c \
55+
recv_cdesc.c \
56+
recv_init_cdesc.c \
57+
rsend_cdesc.c \
58+
rsend_init_cdesc.c \
59+
send_cdesc.c \
60+
send_init_cdesc.c \
61+
sendrecv_cdesc.c \
62+
sendrecv_replace_cdesc.c \
63+
ssend_cdesc.c \
64+
ssend_init_cdesc.c
4665

4766
endif

‎ompi/mpi/fortran/use-mpi-f08/cdesc/bindings.h‎

Lines changed: 73 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -17,4 +17,77 @@
1717

1818
#include "mpi.h"
1919

20+
void ompi_bsend_cdesc(CFI_cdesc_t* x, MPI_Fint *count, MPI_Fint *datatype,
21+
MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm,
22+
MPI_Fint *ierr);
23+
24+
void ompi_bsend_init_cdesc(CFI_cdesc_t* x, MPI_Fint *count, MPI_Fint *datatype,
25+
MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm,
26+
MPI_Fint *request, MPI_Fint *ierr);
27+
28+
void ompi_ibsend_cdesc(CFI_cdesc_t* x, MPI_Fint *count, MPI_Fint *datatype,
29+
MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm,
30+
MPI_Fint *request, MPI_Fint *ierr);
31+
32+
void ompi_imrecv_cdesc(CFI_cdesc_t* x, MPI_Fint *count, MPI_Fint *datatype,
33+
MPI_Fint *message, MPI_Fint *request, MPI_Fint *ierr);
34+
35+
void ompi_irecv_cdesc(CFI_cdesc_t *x, MPI_Fint *count, MPI_Fint *datatype,
36+
MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm,
37+
MPI_Fint *request, MPI_Fint *ierr);
38+
39+
void ompi_irsend_cdesc(CFI_cdesc_t* x, MPI_Fint *count, MPI_Fint *datatype,
40+
MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm,
41+
MPI_Fint *request, MPI_Fint *ierr);
42+
43+
void ompi_isend_cdesc(CFI_cdesc_t *x, MPI_Fint *count, MPI_Fint *datatype,
44+
MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm,
45+
MPI_Fint *request, MPI_Fint *ierr);
46+
47+
void ompi_issend_cdesc(CFI_cdesc_t* x, MPI_Fint *count, MPI_Fint *datatype,
48+
MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm,
49+
MPI_Fint *request, MPI_Fint *ierr);
50+
51+
void ompi_mrecv_cdesc(CFI_cdesc_t* x, MPI_Fint *count, MPI_Fint *datatype,
52+
MPI_Fint *message, MPI_Fint *status, MPI_Fint *ierr);
53+
54+
void ompi_recv_cdesc(CFI_cdesc_t *x, MPI_Fint *count, MPI_Fint *datatype,
55+
MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm,
56+
MPI_Fint *status, MPI_Fint *ierr);
57+
58+
void ompi_rsend_cdesc(CFI_cdesc_t* x, MPI_Fint *count, MPI_Fint *datatype,
59+
MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm,
60+
MPI_Fint *ierr);
61+
62+
void ompi_rsend_init_cdesc(CFI_cdesc_t* x, MPI_Fint *count,
63+
MPI_Fint *datatype, MPI_Fint *dest,
64+
MPI_Fint *tag, MPI_Fint *comm,
65+
MPI_Fint *request, MPI_Fint *ierr);
66+
67+
void ompi_send_cdesc(CFI_cdesc_t* x, MPI_Fint *count, MPI_Fint *datatype,
68+
MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr);
69+
70+
void ompi_send_init_cdesc(CFI_cdesc_t *x, MPI_Fint *count, MPI_Fint *datatype,
71+
MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm,
72+
MPI_Fint *request, MPI_Fint *ierr);
73+
74+
void ompi_sendrecv_cdesc(CFI_cdesc_t* x1, MPI_Fint *sendcount, MPI_Fint *sendtype,
75+
MPI_Fint *dest, MPI_Fint *sendtag, CFI_cdesc_t* x2,
76+
MPI_Fint *recvcount, MPI_Fint *recvtype,
77+
MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm,
78+
MPI_Fint *status, MPI_Fint *ierr);
79+
80+
void ompi_sendrecv_replace_cdesc(CFI_cdesc_t* x, MPI_Fint *count, MPI_Fint *datatype,
81+
MPI_Fint *dest, MPI_Fint *sendtag,
82+
MPI_Fint *source, MPI_Fint *recvtag,
83+
MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr);
84+
85+
void ompi_ssend_cdesc(CFI_cdesc_t* x, MPI_Fint *count, MPI_Fint *datatype,
86+
MPI_Fint *dest, MPI_Fint *tag,
87+
MPI_Fint *comm, MPI_Fint *ierr);
88+
89+
void ompi_ssend_init_cdesc(CFI_cdesc_t* x, MPI_Fint *count, MPI_Fint *datatype,
90+
MPI_Fint *dest, MPI_Fint *tag,
91+
MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr);
92+
2093
#endif /* OMPI_CDESC_BINDINGS_H */

0 commit comments

Comments
 (0)