35 #ifndef OMPI_F77_DATAREP_H
36 #define OMPI_F77_DATAREP_H
38 #include "ompi_config.h"
48 (
char *userbuf, MPI_Fint *datatype, MPI_Fint *count,
char *filebuf,
49 MPI_Offset *position, MPI_Aint *extra_state, MPI_Fint *ierr);
55 (MPI_Fint *datatype, MPI_Aint *extent, MPI_Aint *extra_state,
66 #define OMPI_DATAREP_FORTRAN_DECLARE(lower_name, upper_name, args) \
67 OMPI_DECLSPEC void lower_name##_f args; \
68 OMPI_DECLSPEC void lower_name args; \
69 OMPI_DECLSPEC void lower_name##_ args; \
70 OMPI_DECLSPEC void lower_name##__ args; \
71 OMPI_DECLSPEC void upper_name args;
76 OMPI_DATAREP_FORTRAN_DECLARE(mpi_conversion_fn_null, MPI_CONVERSION_FN_NULL, (
char *userbuf, MPI_Fint *datatype, MPI_Fint *count,
char *filebuf, MPI_Offset *position, MPI_Aint *extra_state, MPI_Fint *ierr))
80 #undef OMPI_DATAREP_FORTRAN_DECLARE
87 #if OPAL_HAVE_WEAK_SYMBOLS
88 #define OMPI_IS_FORTRAN_CONVERSION_FN_NULL(addr) \
89 (MPI_CONVERSION_FN_NULL == addr || \
90 mpi_conversion_fn_null == addr || \
91 mpi_conversion_fn_null_ == addr || \
92 mpi_conversion_fn_null__ == addr)
94 #define OMPI_IS_FORTRAN_CONVERSION_FN_NULL(addr) \
95 (MPI_CONVERSION_FN_NULL == addr)
97 #define OMPI_IS_FORTRAN_CONVERSION_FN_NULL(addr) \
98 (mpi_conversion_fn_null == addr)
99 #elif OMPI_F77_SINGLE_UNDERSCORE
100 #define OMPI_IS_FORTRAN_CONVERSION_FN_NULL(addr) \
101 (mpi_conversion_fn_null_ == addr)
103 #define OMPI_IS_FORTRAN_CONVERSION_FN_NULL(addr) \
104 (mpi_conversion_fn_null__ == addr)
BEGIN_C_DECLS typedef void() ompi_mpi2_fortran_datarep_conversion_fn_t(char *userbuf, MPI_Fint *datatype, MPI_Fint *count, char *filebuf, MPI_Offset *position, MPI_Aint *extra_state, MPI_Fint *ierr)
Function typedef for the conversion function pointer in MPI_REGISTER_DATAREP.
#define OMPI_DATAREP_FORTRAN_DECLARE(lower_name, upper_name, args)
Macro for declaring each of the 5 back-end Fortran functions for MPI_CONVERSION_FN_NULL.
Definition: datarep.h:66
void( ompi_mpi2_fortran_datarep_extent_fn_t)(MPI_Fint *datatype, MPI_Aint *extent, MPI_Aint *extra_state, MPI_Fint *ierr)
Function typedef for the extent function pointer in MPI_REGISTER_DATAREP.
Definition: datarep.h:55