1
1

- Initialize the MPI_COMPLEX, to enable the pre-split behaviour.

This however may not be what we finally want to support MPI_COMPLEX:
   As with a possible difference of C99 _Bool and C++ Bool, we may want
   to have a base opal_datatype_complex (as was initially in the
   ompi-ddt branch), instead of assuming a struct of
   opal_datatype_float... Think of stricter alignment.

   The configure checks for (float/double/long double) complex have
   been added with the ompi-ddt branch.

This commit was SVN r21756.
Этот коммит содержится в:
Rainer Keller 2009-08-04 14:44:42 +00:00
родитель 90d6491737
Коммит 2989b65e68

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

@ -438,20 +438,18 @@ int32_t ompi_datatype_init( void )
* in mpif.h
*/
#if 0 /* XXX TODO The following may be deleted, both CXX and F77/F90 complex types are statically set up */
/* the 2 complex datatypes (float and double) */
DECLARE_MPI2_COMPOSED_STRUCT_DDT( &ompi_mpi_cplex.dt, OMPI_DATATYPE_COMPLEX_FLOAT, "MPI_COMPLEX",
DECLARE_MPI2_COMPOSED_STRUCT_DDT( &ompi_mpi_cplex.dt, OMPI_DATATYPE_COMPLEX, "MPI_COMPLEX",
float, float, OMPI_DATATYPE_FLOAT, OMPI_DATATYPE_FLOAT,
OMPI_DATATYPE_FLAG_DATA_FORTRAN | OMPI_DATATYPE_FLAG_DATA_FLOAT );
DECLARE_MPI2_COMPOSED_STRUCT_DDT( &ompi_mpi_dblcplex.dt, DT_COMPLEX_DOUBLE, "MPI_DOUBLE_COMPLEX",
double, double, DT_DOUBLE, DT_DOUBLE,
DECLARE_MPI2_COMPOSED_STRUCT_DDT( &ompi_mpi_dblcplex.dt, OMPI_DATATYPE_DOUBLE_COMPLEX, "MPI_DOUBLE_COMPLEX",
double, double, OMPI_DATATYPE_DOUBLE, OMPI_DATATYPE_DOUBLE,
OMPI_DATATYPE_FLAG_DATA_FORTRAN | OMPI_DATATYPE_FLAG_DATA_FLOAT );
#if HAVE_LONG_DOUBLE
DECLARE_MPI2_COMPOSED_STRUCT_DDT( &ompi_mpi_ldblcplex.dt, DT_COMPLEX_LONG_DOUBLE, "MPI_LONG_DOUBLE_COMPLEX",
long double, long double, DT_LONG_DOUBLE, DT_LONG_DOUBLE,
DECLARE_MPI2_COMPOSED_STRUCT_DDT( &ompi_mpi_ldblcplex.dt, OMPI_DATATYPE_LONG_DOUBLE_COMPLEX, "MPI_LONG_DOUBLE_COMPLEX",
long double, long double, OMPI_DATATYPE_LONG_DOUBLE, OMPI_DATATYPE_LONG_DOUBLE,
OMPI_DATATYPE_FLAG_DATA_FORTRAN | OMPI_DATATYPE_FLAG_DATA_FLOAT );
#endif /* HAVE_LONG_DOUBLE */
#endif
/* Now the predefined MPI2 datatypes (they should last forever!) */
DECLARE_MPI2_COMPOSED_BLOCK_DDT( &ompi_mpi_2int.dt, OMPI_DATATYPE_2INT, "MPI_2INT",