1 /* 2 * Copyright (c) 2014 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_PBINDINGS_H 13 #define SHMEM_FORTRAN_PBINDINGS_H 14 15 #include "prototypes_pshmem.h" 16 17 #define SHMEM_GENERATE_WEAK_PRAGMA(x) _Pragma(#x) 18 19 #define SHMEM_GENERATE_WEAK_BINDINGS(UPPER_NAME, lower_name) \ 20 SHMEM_GENERATE_WEAK_PRAGMA(weak UPPER_NAME = P ## UPPER_NAME) \ 21 SHMEM_GENERATE_WEAK_PRAGMA(weak lower_name ## _ = p ## lower_name ## _) \ 22 SHMEM_GENERATE_WEAK_PRAGMA(weak lower_name ## __ = p ## lower_name ## __) 23 24 #endif /*SHMEM_FORTRAN_PBINDINGS_H*/