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 #ifndef SHMEM_FORTRAN_BINDINGS_H
13 #define SHMEM_FORTRAN_BINDINGS_H
14 
15 #include "prototypes_shmem.h"
16 #include "ompi/mpi/fortran/base/fint_2_int.h"
17 
18 #define SHMEM_GENERATE_FORTRAN_BINDINGS_FUNCTION(ret, \
19         upper_case, \
20         single_underscore, \
21         double_underscore, \
22         wrapper_function, \
23         signature, \
24         params) \
25 ret upper_case signature {return wrapper_function params; } \
26 ret single_underscore signature {return wrapper_function params; } \
27 ret double_underscore signature {return wrapper_function params; }
28 
29 #define SHMEM_GENERATE_FORTRAN_BINDINGS_SUB(ret, \
30         upper_case, \
31         single_underscore, \
32         double_underscore, \
33         wrapper_function, \
34         signature, \
35         params) \
36 ret upper_case signature {wrapper_function params; } \
37 ret single_underscore signature {wrapper_function params; } \
38 ret double_underscore signature {wrapper_function params; }
39 
40 #endif /*SHMEM_FORTRAN_BINDINGS_H*/
41