Some additions for MPI2. At the page 297 in the MPI2 standard several new predefined datatypes are introducted.
This commit was SVN r2762.
Этот коммит содержится в:
родитель
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_bool;
|
||||
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_errors_are_fatal;
|
||||
@ -487,6 +494,25 @@ extern MPI_Fint *MPI_F_STATUSES_IGNORE;
|
||||
#define MPI_UNSIGNED_LONG_LONG (&ompi_mpi_unsigned_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_RETURN (&ompi_mpi_errors_return)
|
||||
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user