1 /*
2 * Copyright (c) 2013 Mellanox Technologies, Inc.
3 * All rights reserved.
4 * Copyright (c) 2013 Cisco Systems, Inc. All rights reserved.
5 * $COPYRIGHT$
6 *
7 * Additional copyrights may follow
8 *
9 * $HEADER$
10 */
11
12 #include "oshmem_config.h"
13 #include "oshmem/shmem/fortran/bindings.h"
14 #include "oshmem/include/shmem.h"
15 #include "oshmem/constants.h"
16 #include "oshmem/mca/spml/spml.h"
17 #include "ompi/datatype/ompi_datatype.h"
18
19 #if OSHMEM_PROFILING
20 #include "oshmem/shmem/fortran/profile/pbindings.h"
SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_INT8_WAIT,shmem_int8_wait)21 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_INT8_WAIT, shmem_int8_wait)
22 #include "oshmem/shmem/fortran/profile/defines.h"
23 #endif
24
25 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
26 SHMEM_INT8_WAIT,
27 shmem_int8_wait_,
28 shmem_int8_wait__,
29 shmem_int8_wait_f,
30 (ompi_fortran_integer8_t *var, ompi_fortran_integer8_t *value),
31 (var,value))
32
33 void shmem_int8_wait_f(ompi_fortran_integer8_t *var, ompi_fortran_integer8_t *value)
34 {
35 MCA_SPML_CALL(wait((void*)var, SHMEM_CMP_NE, (void*)value, SHMEM_FINT8));
36 }
37
38