This source file includes following definitions.
- SHMEM_GENERATE_FORTRAN_BINDINGS_FUNCTION
- SHMEM_GENERATE_FORTRAN_BINDINGS_FUNCTION
- _my_pe_
   1 
   2 
   3 
   4 
   5 
   6 
   7 
   8 
   9 
  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 }