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