root/oshmem/shmem/fortran/shmem_my_pe_f.c

DEFINITIONS

1. SHMEM_GENERATE_FORTRAN_BINDINGS_FUNCTION
2. SHMEM_GENERATE_FORTRAN_BINDINGS_FUNCTION
3. _my_pe_

   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"
  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 
  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 
  54 MPI_Fint _my_pe_(void)
  55 {
  56     return my_pe_f();
  57 }