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_CANCEL = mpi_cancel_f
25
#pragma weak pmpi_cancel = mpi_cancel_f
26
#pragma weak pmpi_cancel_ = mpi_cancel_f
27
#pragma weak pmpi_cancel__ = mpi_cancel_f
28
#elif OMPI_PROFILE_LAYER
29
OMPI_GENERATE_F77_BINDINGS (PMPI_CANCEL,
34
(MPI_Fint *request, MPI_Fint *ierr),
38
#if OMPI_HAVE_WEAK_SYMBOLS
39
#pragma weak MPI_CANCEL = mpi_cancel_f
40
#pragma weak mpi_cancel = mpi_cancel_f
41
#pragma weak mpi_cancel_ = mpi_cancel_f
42
#pragma weak mpi_cancel__ = mpi_cancel_f
45
#if ! OMPI_HAVE_WEAK_SYMBOLS && ! OMPI_PROFILE_LAYER
46
OMPI_GENERATE_F77_BINDINGS (MPI_CANCEL,
51
(MPI_Fint *request, MPI_Fint *ierr),
55
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
56
#include "ompi/mpi/f77/profile/defines.h"
59
void mpi_cancel_f(MPI_Fint *request, MPI_Fint *ierr)
61
MPI_Request c_req = MPI_Request_f2c(*request);
63
*ierr = OMPI_INT_2_FINT(MPI_Cancel(&c_req));