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 #include "oshmem_config.h"
13 #include "oshmem/shmem/fortran/bindings.h"
14 #include "oshmem/include/shmem.h"
15
16 #if OSHMEM_PROFILING
17 #include "oshmem/shmem/fortran/profile/pbindings.h"
SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_MY_PE,shmem_my_pe)18 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_MY_PE, shmem_my_pe)
19 SHMEM_GENERATE_WEAK_BINDINGS(MY_PE, my_pe)
20 #pragma weak _my_pe_ = p_my_pe_
21 #include "oshmem/shmem/fortran/profile/defines.h"
22 #endif
23
24 SHMEM_GENERATE_FORTRAN_BINDINGS_FUNCTION (MPI_Fint,
25 SHMEM_MY_PE,
26 shmem_my_pe_,
27 shmem_my_pe__,
28 shmem_my_pe_f,
29 (void),
30 () )
31
32 MPI_Fint shmem_my_pe_f(void)
33 {
34 MPI_Fint rc;
35 rc = OMPI_INT_2_FINT(shmem_my_pe());
36 return rc;
37 }
38
39 SHMEM_GENERATE_FORTRAN_BINDINGS_FUNCTION (MPI_Fint,
40 MY_PE,
41 my_pe_,
42 my_pe__,
43 my_pe_f,
44 (void),
45 () )
46
my_pe_f(void)47 MPI_Fint my_pe_f(void)
48 {
49 MPI_Fint rc;
50 rc = OMPI_INT_2_FINT(my_pe());
51 return rc;
52 }
53
_my_pe_(void)54 MPI_Fint _my_pe_(void)
55 {
56 return my_pe_f();
57 }
58