1
1

Add external support for MPI_2COMPLEX and MPI_2DOUBLE_COMPLEX. The

machinery was already there; we were just missing the INTEGER's for
them in mpi.f and the #define's for them in mpi.h.

This commit was SVN r13432.
Этот коммит содержится в:
Jeff Squyres 2007-02-01 19:37:38 +00:00
родитель 1c7c39b32b
Коммит 321af727c0
3 изменённых файлов: 8 добавлений и 0 удалений

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

@ -558,6 +558,8 @@ int32_t ompi_ddt_init( void )
MOOG(2real);
MOOG(2dblprec);
MOOG(2integer);
MOOG(2cplex);
MOOG(2dblcplex);
/* Now the C types */

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

@ -9,6 +9,7 @@
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* Copyright (c) 2007 Cisco Systems, Inc. All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
@ -678,6 +679,8 @@ OMPI_DECLSPEC extern MPI_Fint *MPI_F_STATUSES_IGNORE;
#define MPI_LONG_LONG (&ompi_mpi_long_long_int)
#define MPI_UNSIGNED_LONG_LONG (&ompi_mpi_unsigned_long_long)
#endif /* HAVE_LONG_LONG */
#define MPI_2COMPLEX (&ompi_mpi_2cplex)
#define MPI_2DOUBLE_COMPLEX (&ompi_mpi_2dblcplex)
/* Fortran datatype bindings */
#define MPI_CHARACTER (&ompi_mpi_character)

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

@ -434,6 +434,7 @@
integer MPI_COMPLEX, MPI_COMPLEX8, MPI_COMPLEX16, MPI_COMPLEX32
integer MPI_DOUBLE_COMPLEX
integer MPI_2REAL, MPI_2DOUBLE_PRECISION, MPI_2INTEGER
integer MPI_2COMPLEX, MPI_2DOUBLE_COMPLEX
parameter (MPI_BYTE=1)
parameter (MPI_PACKED=2)
@ -460,6 +461,8 @@
parameter (MPI_2REAL=23)
parameter (MPI_2DOUBLE_PRECISION=24)
parameter (MPI_2INTEGER=25)
parameter (MPI_2COMPLEX=26)
parameter (MPI_2DOUBLE_COMPLEX=27)
integer MPI_MAX, MPI_MIN, MPI_SUM, MPI_PROD, MPI_LAND
integer MPI_BAND, MPI_LOR, MPI_BOR, MPI_LXOR, MPI_BXOR