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.
Этот коммит содержится в:
родитель
1c7c39b32b
Коммит
321af727c0
@ -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
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user