root/ompi/mpi/fortran/mpif-h/win_shared_query_f.c

DEFINITIONS

1. ompi_win_shared_query_f
2. ompi_win_shared_query_cptr_f

   1 /*
   2  * Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
   3  *                         University Research and Technology
   4  *                         Corporation.  All rights reserved.
   5  * Copyright (c) 2004-2005 The University of Tennessee and The University
   6  *                         of Tennessee Research Foundation.  All rights
   7  *                         reserved.
   8  * Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
   9  *                         University of Stuttgart.  All rights reserved.
  10  * Copyright (c) 2004-2005 The Regents of the University of California.
  11  *                         All rights reserved.
  12  * Copyright (c) 2011-2014 Cisco Systems, Inc.  All rights reserved.
  13  * Copyright (c) 2015-2017 Research Organization for Information Science
  14  *                         and Technology (RIST). All rights reserved.
  15  * $COPYRIGHT$
  16  *
  17  * Additional copyrights may follow
  18  *
  19  * $HEADER$
  20  */
  21 
  22 #include "ompi_config.h"
  23 
  24 #include "ompi/mpi/fortran/mpif-h/bindings.h"
  25 
  26 #if OMPI_BUILD_MPI_PROFILING
  27 #if OPAL_HAVE_WEAK_SYMBOLS
  28 #pragma weak PMPI_WIN_SHARED_QUERY = ompi_win_shared_query_f
  29 #pragma weak pmpi_win_shared_query = ompi_win_shared_query_f
  30 #pragma weak pmpi_win_shared_query_ = ompi_win_shared_query_f
  31 #pragma weak pmpi_win_shared_query__ = ompi_win_shared_query_f
  32 
  33 #pragma weak PMPI_Win_shared_query_f = ompi_win_shared_query_f
  34 #pragma weak PMPI_Win_shared_query_f08 = ompi_win_shared_query_f
  35 
  36 #pragma weak PMPI_WIN_SHARED_QUERY_CPTR = ompi_win_shared_query_f
  37 #pragma weak pmpi_win_shared_query_cptr = ompi_win_shared_query_f
  38 #pragma weak pmpi_win_shared_query_cptr_ = ompi_win_shared_query_f
  39 #pragma weak pmpi_win_shared_query_cptr__ = ompi_win_shared_query_f
  40 
  41 #pragma weak PMPI_Win_shared_query_cptr_f = ompi_win_shared_query_f
  42 #pragma weak PMPI_Win_shared_query_cptr_f08 = ompi_win_shared_query_f
  43 #else
  44 OMPI_GENERATE_F77_BINDINGS (PMPI_WIN_SHARED_QUERY,
  45                             pmpi_win_shared_query,
  46                             pmpi_win_shared_query_,
  47                             pmpi_win_shared_query__,
  48                             pompi_win_shared_query_f,
  49                             (MPI_Fint *win, MPI_Fint *rank, MPI_Aint *size,
  50                              MPI_Fint *disp_unit, char *baseptr,
  51                              MPI_Fint *ierr),
  52                             (win, rank, size, disp_unit, baseptr, ierr) )
  53 
  54 OMPI_GENERATE_F77_BINDINGS (PMPI_WIN_SHARED_QUERY_CPTR,
  55                             pmpi_win_shared_query_cptr,
  56                             pmpi_win_shared_query_cptr_,
  57                             pmpi_win_shared_query_cptr__,
  58                             pompi_win_shared_query_cptr_f,
  59                             (MPI_Fint *win, MPI_Fint *rank, MPI_Aint *size,
  60                              MPI_Fint *disp_unit, char *baseptr,
  61                              MPI_Fint *ierr),
  62                             (win, rank, size, disp_unit, baseptr, ierr) )
  63 #endif
  64 #endif
  65 
  66 #if OPAL_HAVE_WEAK_SYMBOLS
  67 #pragma weak MPI_WIN_SHARED_QUERY = ompi_win_shared_query_f
  68 #pragma weak mpi_win_shared_query = ompi_win_shared_query_f
  69 #pragma weak mpi_win_shared_query_ = ompi_win_shared_query_f
  70 #pragma weak mpi_win_shared_query__ = ompi_win_shared_query_f
  71 
  72 #pragma weak MPI_Win_shared_query_f = ompi_win_shared_query_f
  73 #pragma weak MPI_Win_shared_query_f08 = ompi_win_shared_query_f
  74 
  75 #pragma weak MPI_WIN_SHARED_QUERY_CPTR = ompi_win_shared_query_f
  76 #pragma weak mpi_win_shared_query_cptr = ompi_win_shared_query_f
  77 #pragma weak mpi_win_shared_query_cptr_ = ompi_win_shared_query_f
  78 #pragma weak mpi_win_shared_query_cptr__ = ompi_win_shared_query_f
  79 
  80 #pragma weak MPI_Win_shared_query_cptr_f = ompi_win_shared_query_f
  81 #pragma weak MPI_Win_shared_query_cptr_f08 = ompi_win_shared_query_f
  82 #else
  83 #if ! OMPI_BUILD_MPI_PROFILING
  84 OMPI_GENERATE_F77_BINDINGS (MPI_WIN_SHARED_QUERY,
  85                             mpi_win_shared_query,
  86                             mpi_win_shared_query_,
  87                             mpi_win_shared_query__,
  88                             ompi_win_shared_query_f,
  89                             (MPI_Fint *win, MPI_Fint *rank, MPI_Aint *size,
  90                              MPI_Fint *disp_unit, char *baseptr,
  91                              MPI_Fint *ierr),
  92                             (win, rank, size, disp_unit, baseptr, ierr) )
  93 
  94 OMPI_GENERATE_F77_BINDINGS (MPI_WIN_SHARED_QUERY_CPTR,
  95                             mpi_win_shared_query_cptr,
  96                             mpi_win_shared_query_cptr_,
  97                             mpi_win_shared_query_cptr__,
  98                             ompi_win_shared_query_cptr_f,
  99                             (MPI_Fint *win, MPI_Fint *rank, MPI_Aint *size,
 100                              MPI_Fint *disp_unit, char *baseptr,
 101                              MPI_Fint *ierr),
 102                             (win, rank, size, disp_unit, baseptr, ierr) )
 103 #else
 104 #define ompi_win_shared_query_f pompi_win_shared_query_f
 105 #define ompi_win_shared_query_cptr_f pompi_win_shared_query_cptr_f
 106 #endif
 107 #endif
 108 
 109 
 110 void ompi_win_shared_query_f(MPI_Fint *win, MPI_Fint *rank, MPI_Aint *size,
 111                              MPI_Fint *disp_unit, char *baseptr,
 112                              MPI_Fint *ierr)
 113 {
 114     int c_ierr;
 115     MPI_Win c_win;
 116     OMPI_SINGLE_NAME_DECL(disp_unit);
 117 
 118     c_win = PMPI_Win_f2c(*win);
 119 
 120     c_ierr = PMPI_Win_shared_query(c_win, OMPI_FINT_2_INT(*rank), size,
 121                                    OMPI_SINGLE_NAME_CONVERT(disp_unit), baseptr);
 122     if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
 123 
 124     if (MPI_SUCCESS == c_ierr) {
 125         OMPI_SINGLE_INT_2_FINT(disp_unit);
 126     }
 127 }
 128 
 129 /*
 130  * Note that MPI-3 mandates a second form of the MPI_Win_shared_query
 131  * interface -- one that has a "_cptr" suffix.
 132  */
 133 void ompi_win_shared_query_cptr_f(MPI_Fint *win, MPI_Fint *rank, MPI_Aint *size,
 134                                   MPI_Fint *disp_unit, char *baseptr,
 135                                   MPI_Fint *ierr)
 136 {
 137     ompi_win_shared_query_f(win, rank, size, disp_unit, baseptr, ierr);
 138 }
 139