1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
/*
* Copyright (c) 2014 Mellanox Technologies, Inc.
* All rights reserved.
* Copyright (c) 2013 Cisco Systems, Inc. All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#ifndef SHMEM_FORTRAN_PBINDINGS_H
#define SHMEM_FORTRAN_PBINDINGS_H
#include "prototypes_pshmem.h"
#define SHMEM_GENERATE_WEAK_PRAGMA(x) _Pragma(#x)
#define SHMEM_GENERATE_WEAK_BINDINGS(UPPER_NAME, lower_name) \
SHMEM_GENERATE_WEAK_PRAGMA(weak UPPER_NAME = P ## UPPER_NAME) \
SHMEM_GENERATE_WEAK_PRAGMA(weak lower_name ## _ = p ## lower_name ## _) \
SHMEM_GENERATE_WEAK_PRAGMA(weak lower_name ## __ = p ## lower_name ## __)
#endif /*SHMEM_FORTRAN_PBINDINGS_H*/
|
