1
1

Some additions for MPI2. At the page 297 in the MPI2 standard several new predefined datatypes are introducted.

This commit was SVN r2762.
Этот коммит содержится в:
George Bosilca 2004-09-19 10:16:00 +00:00
родитель 335968c235
Коммит 7707eedb51

Просмотреть файл

@ -424,6 +424,13 @@ extern struct ompi_datatype_t ompi_mpi_cxx_cplex, ompi_mpi_cxx_dblcplex;
extern struct ompi_datatype_t ompi_mpi_cxx_ldblcplex; extern struct ompi_datatype_t ompi_mpi_cxx_ldblcplex;
extern struct ompi_datatype_t ompi_mpi_cxx_bool; extern struct ompi_datatype_t ompi_mpi_cxx_bool;
extern struct ompi_datatype_t ompi_mpi_2cplex, ompi_mpi_2dblcplex; extern struct ompi_datatype_t ompi_mpi_2cplex, ompi_mpi_2dblcplex;
/* other MPI2 datatype */
extern struct ompi_datatype_t ompi_mpi_real4, ompi_mpi_real8;
extern struct ompi_datatype_t ompi_mpi_real16;
extern struct ompi_datatype_t ompi_mpi_complex8, ompi_mpi_complex16;
extern struct ompi_datatype_t ompi_mpi_real32;
extern struct ompi_datatype_t ompi_mpi_integer1, ompi_mpi_integer2, ompi_mpi_integer4;
extern struct ompi_datatype_t ompi_mpi_integer16;
extern struct ompi_errhandler_t ompi_mpi_errhandler_null; extern struct ompi_errhandler_t ompi_mpi_errhandler_null;
extern struct ompi_errhandler_t ompi_mpi_errors_are_fatal; extern struct ompi_errhandler_t ompi_mpi_errors_are_fatal;
@ -487,6 +494,25 @@ extern MPI_Fint *MPI_F_STATUSES_IGNORE;
#define MPI_UNSIGNED_LONG_LONG (&ompi_mpi_unsigned_long_long) #define MPI_UNSIGNED_LONG_LONG (&ompi_mpi_unsigned_long_long)
#endif /* HAVE_LONG_LONG */ #endif /* HAVE_LONG_LONG */
/* Fortran datatype bindings */
#define MPI_INTEGER1 (&ompi_mpi_integer1)
#define MPI_INTEGER2 (&ompi_mpi_integer2)
#define MPI_INTEGER4 (&ompi_mpi_integer4)
#if HAVE_LONG_LONG
#define MPI_INTEGER8 (&ompi_mpi_integr8)
#endif /* HAVE_LONG_LONG */
#define MPI_REAL (&ompi_mpi_real)
#define MPI_REAL4 (&ompi_mpi_real4)
#define MPI_REAL8 (&ompi_mpi_real8)
#if HAVE_LONG_DOUBLE
#define MPI_REAL16 (&ompi_mpi_real16)
#endif /* HAVE_LONG_DOUBLE */
#define MPI_COMPLEX8 (&ompi_mpi_complex8)
#define MPI_COMPLEX16 (&ompi_mpi_complex16)
#if HAVE_LONG_DOUBLE
#define MPI_COMPLEX32 (&ompi_mpi_complex32)
#endif /* HAVE_LONG_DOUBLE */
#define MPI_ERRORS_ARE_FATAL (&ompi_mpi_errors_are_fatal) #define MPI_ERRORS_ARE_FATAL (&ompi_mpi_errors_are_fatal)
#define MPI_ERRORS_RETURN (&ompi_mpi_errors_return) #define MPI_ERRORS_RETURN (&ompi_mpi_errors_return)