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

DEFINITIONS

1. ompi_win_allocate_f
2. ompi_win_allocate_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-2014 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      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_ALLOCATE = ompi_win_allocate_f
  29 #pragma weak pmpi_win_allocate = ompi_win_allocate_f
  30 #pragma weak pmpi_win_allocate_ = ompi_win_allocate_f
  31 #pragma weak pmpi_win_allocate__ = ompi_win_allocate_f
  32 
  33 #pragma weak PMPI_Win_allocate_f = ompi_win_allocate_f
  34 #pragma weak PMPI_Win_allocate_f08 = ompi_win_allocate_f
  35 
  36 #pragma weak PMPI_WIN_ALLOCATE_CPTR = ompi_win_allocate_f
  37 #pragma weak pmpi_win_allocate_cptr = ompi_win_allocate_f
  38 #pragma weak pmpi_win_allocate_cptr_ = ompi_win_allocate_f
  39 #pragma weak pmpi_win_allocate_cptr__ = ompi_win_allocate_f
  40 
  41 #pragma weak PMPI_Win_allocate_cptr_f = ompi_win_allocate_f
  42 #pragma weak PMPI_Win_allocate_cptr_f08 = ompi_win_allocate_f
  43 #else
  44 OMPI_GENERATE_F77_BINDINGS (PMPI_WIN_ALLOCATE,
  45                             pmpi_win_allocate,
  46                             pmpi_win_allocate_,
  47                             pmpi_win_allocate__,
  48                             pompi_win_allocate_f,
  49                             (MPI_Aint *size, MPI_Fint *disp_unit,
  50                              MPI_Fint *info, MPI_Fint *comm, char *baseptr,
  51                              MPI_Fint *win, MPI_Fint *ierr),
  52                             (size, disp_unit, info, comm, baseptr, win, ierr) )
  53 
  54 OMPI_GENERATE_F77_BINDINGS (PMPI_WIN_ALLOCATE_CPTR,
  55                             pmpi_win_allocate_cptr,
  56                             pmpi_win_allocate_cptr_,
  57                             pmpi_win_allocate_cptr__,
  58                             pompi_win_allocate_cptr_f,
  59                             (MPI_Aint *size, MPI_Fint *disp_unit,
  60                              MPI_Fint *info, MPI_Fint *comm, char *baseptr,
  61                              MPI_Fint *win, MPI_Fint *ierr),
  62                             (size, disp_unit, info, comm, baseptr, win, ierr) )
  63 #endif
  64 #endif
  65 
  66 #if OPAL_HAVE_WEAK_SYMBOLS
  67 #pragma weak MPI_WIN_ALLOCATE = ompi_win_allocate_f
  68 #pragma weak mpi_win_allocate = ompi_win_allocate_f
  69 #pragma weak mpi_win_allocate_ = ompi_win_allocate_f
  70 #pragma weak mpi_win_allocate__ = ompi_win_allocate_f
  71 
  72 #pragma weak MPI_Win_allocate_f = ompi_win_allocate_f
  73 #pragma weak MPI_Win_allocate_f08 = ompi_win_allocate_f
  74 
  75 #pragma weak MPI_WIN_ALLOCATE_CPTR = ompi_win_allocate_f
  76 #pragma weak mpi_win_allocate_cptr = ompi_win_allocate_f
  77 #pragma weak mpi_win_allocate_cptr_ = ompi_win_allocate_f
  78 #pragma weak mpi_win_allocate_cptr__ = ompi_win_allocate_f
  79 
  80 #pragma weak MPI_Win_allocate_cptr_f = ompi_win_allocate_f
  81 #pragma weak MPI_Win_allocate_cptr_f08 = ompi_win_allocate_f
  82 #else
  83 #if ! OMPI_BUILD_MPI_PROFILING
  84 OMPI_GENERATE_F77_BINDINGS (MPI_WIN_ALLOCATE,
  85                             mpi_win_allocate,
  86                             mpi_win_allocate_,
  87                             mpi_win_allocate__,
  88                             ompi_win_allocate_f,
  89                             (MPI_Aint *size, MPI_Fint *disp_unit,
  90                              MPI_Fint *info, MPI_Fint *comm, char *baseptr,
  91                              MPI_Fint *win, MPI_Fint *ierr),
  92                             (size, disp_unit, info, comm, baseptr, win, ierr) )
  93 
  94 OMPI_GENERATE_F77_BINDINGS (MPI_WIN_ALLOCATE_CPTR,
  95                             mpi_win_allocate_cptr,
  96                             mpi_win_allocate_cptr_,
  97                             mpi_win_allocate_cptr__,
  98                             ompi_win_allocate_cptr_f,
  99                             (MPI_Aint *size, MPI_Fint *disp_unit,
 100                              MPI_Fint *info, MPI_Fint *comm, char *baseptr,
 101                              MPI_Fint *win, MPI_Fint *ierr),
 102                             (size, disp_unit, info, comm, baseptr, win, ierr) )
 103 #else
 104 #define ompi_win_allocate_f pompi_win_allocate_f
 105 #define ompi_win_allocate_cptr_f pompi_win_allocate_cptr_f
 106 #endif
 107 #endif
 108 
 109 
 110 void ompi_win_allocate_f(MPI_Aint *size, MPI_Fint *disp_unit,
 111                                 MPI_Fint *info, MPI_Fint *comm, char *baseptr,
 112                                 MPI_Fint *win, MPI_Fint *ierr)
 113 {
 114     int c_ierr;
 115     MPI_Info c_info;
 116     MPI_Comm c_comm;
 117     MPI_Win c_win;
 118 
 119     c_info = PMPI_Info_f2c(*info);
 120     c_comm = PMPI_Comm_f2c(*comm);
 121 
 122     c_ierr = PMPI_Win_allocate(*size, OMPI_FINT_2_INT(*disp_unit),
 123                                      c_info, c_comm,
 124                                      baseptr, &c_win);
 125     *win = PMPI_Win_c2f(c_win);
 126     if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
 127 }
 128 
 129 /*
 130  * Note that MPI-3 mandates a second form of the
 131  * MPI_Win_allocate interface -- one that has a "_cptr" suffix.
 132  */
 133 void ompi_win_allocate_cptr_f(MPI_Aint *size, MPI_Fint *disp_unit,
 134                                      MPI_Fint *info, MPI_Fint *comm,
 135                                      char *baseptr,
 136                                      MPI_Fint *win, MPI_Fint *ierr)
 137 {
 138     ompi_win_allocate_f(size, disp_unit, info, comm, baseptr,
 139                                win, ierr);
 140 }