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
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.
14
* Additional copyrights may follow
19
#include "ompi_config.h"
21
#include "ompi/mpi/f77/bindings.h"
23
#if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER
24
#pragma weak PMPI_ATTR_DELETE = mpi_attr_delete_f
25
#pragma weak pmpi_attr_delete = mpi_attr_delete_f
26
#pragma weak pmpi_attr_delete_ = mpi_attr_delete_f
27
#pragma weak pmpi_attr_delete__ = mpi_attr_delete_f
28
#elif OMPI_PROFILE_LAYER
29
OMPI_GENERATE_F77_BINDINGS (PMPI_ATTR_DELETE,
34
(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr),
35
(comm, keyval, ierr) )
38
#if OMPI_HAVE_WEAK_SYMBOLS
39
#pragma weak MPI_ATTR_DELETE = mpi_attr_delete_f
40
#pragma weak mpi_attr_delete = mpi_attr_delete_f
41
#pragma weak mpi_attr_delete_ = mpi_attr_delete_f
42
#pragma weak mpi_attr_delete__ = mpi_attr_delete_f
45
#if ! OMPI_HAVE_WEAK_SYMBOLS && ! OMPI_PROFILE_LAYER
46
OMPI_GENERATE_F77_BINDINGS (MPI_ATTR_DELETE,
51
(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr),
52
(comm, keyval, ierr) )
56
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
57
#include "ompi/mpi/f77/profile/defines.h"
60
void mpi_attr_delete_f(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr)
63
c_comm = MPI_Comm_f2c(*comm);
65
*ierr = OMPI_INT_2_FINT(MPI_Attr_delete(c_comm,
66
OMPI_FINT_2_INT(*keyval)));