source/include/mpif-c-constants-decl.h

0001 /* WARNING: This is a generated file!  Edits will be lost! */
0002 /*
0003  * Copyright (c) 2015-2025 Research Organization for Information Science
0004  *                         and Technology (RIST). All rights reserved.
0005  * Copyright (c) 2015      Cisco Systems, Inc.  All rights reserved.
0006  * $COPYRIGHT$
0007  *
0008  * This file was generated by gen-mpi-mangling.pl
0009  */
0010
0011 /* Note that the rationale for the types of each of these variables is
0012    discussed in ompi/include/mpif-common.h.  Do not change the types
0013    without also changing ompi/runtime/ompi_mpi_init.c and
0014    ompi/include/mpif-common.h. */
0015
0016 extern char mpi_fortran_argv_null_ ;
0017 #define OMPI_IS_FORTRAN_ARGV_NULL(addr) \
0018         (addr == (void*) &mpi_fortran_argv_null_)
0019
0020 extern char mpi_fortran_argvs_null_ ;
0021 #define OMPI_IS_FORTRAN_ARGVS_NULL(addr) \
0022         (addr == (void*) &mpi_fortran_argvs_null_)
0023
0024 extern MPI_Fint mpi_fortran_bottom_ ;
0025 #define OMPI_IS_FORTRAN_BOTTOM(addr) \
0026         (addr == (void*) &mpi_fortran_bottom_)
0027
0028 extern MPI_Fint mpi_fortran_errcodes_ignore_ ;
0029 #define OMPI_IS_FORTRAN_ERRCODES_IGNORE(addr) \
0030         (addr == (void*) &mpi_fortran_errcodes_ignore_)
0031
0032 extern MPI_Fint mpi_fortran_in_place_ ;
0033 #define OMPI_IS_FORTRAN_IN_PLACE(addr) \
0034         (addr == (void*) &mpi_fortran_in_place_)
0035
0036 extern MPI_Fint mpi_fortran_status_ignore_ [6];
0037 #define OMPI_IS_FORTRAN_STATUS_IGNORE(addr) \
0038         (addr == (void*) &mpi_fortran_status_ignore_)
0039
0040 extern MPI_Fint mpi_fortran_statuses_ignore_ [6];
0041 #define OMPI_IS_FORTRAN_STATUSES_IGNORE(addr) \
0042         (addr == (void*) &mpi_fortran_statuses_ignore_)
0043
0044 extern MPI_Fint mpi_fortran_unweighted_ ;
0045 #define OMPI_IS_FORTRAN_UNWEIGHTED(addr) \
0046         (addr == (void*) &mpi_fortran_unweighted_)
0047
0048 extern MPI_Fint mpi_fortran_weights_empty_ ;
0049 #define OMPI_IS_FORTRAN_WEIGHTS_EMPTY(addr) \
0050         (addr == (void*) &mpi_fortran_weights_empty_)
0051