41 строка
1.2 KiB
C
41 строка
1.2 KiB
C
/*
|
|
* Copyright (c) 2013 Mellanox Technologies, Inc.
|
|
* All rights reserved.
|
|
* Copyright (c) 2013 Cisco Systems, Inc. All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#ifndef SHMEM_FORTRAN_BINDINGS_H
|
|
#define SHMEM_FORTRAN_BINDINGS_H
|
|
|
|
#include "prototypes_shmem.h"
|
|
#include "ompi/mpi/fortran/base/fint_2_int.h"
|
|
|
|
#define SHMEM_GENERATE_FORTRAN_BINDINGS_FUNCTION(ret, \
|
|
upper_case, \
|
|
single_underscore, \
|
|
double_underscore, \
|
|
wrapper_function, \
|
|
signature, \
|
|
params) \
|
|
ret upper_case signature {return wrapper_function params; } \
|
|
ret single_underscore signature {return wrapper_function params; } \
|
|
ret double_underscore signature {return wrapper_function params; }
|
|
|
|
#define SHMEM_GENERATE_FORTRAN_BINDINGS_SUB(ret, \
|
|
upper_case, \
|
|
single_underscore, \
|
|
double_underscore, \
|
|
wrapper_function, \
|
|
signature, \
|
|
params) \
|
|
ret upper_case signature {wrapper_function params; } \
|
|
ret single_underscore signature {wrapper_function params; } \
|
|
ret double_underscore signature {wrapper_function params; }
|
|
|
|
#endif /*SHMEM_FORTRAN_BINDINGS_H*/
|