diff --git a/ompi/datatype/ompi_datatype_module.c b/ompi/datatype/ompi_datatype_module.c index f9e16305328..fb5a09e9072 100644 --- a/ompi/datatype/ompi_datatype_module.c +++ b/ompi/datatype/ompi_datatype_module.c @@ -109,7 +109,7 @@ ompi_predefined_datatype_t ompi_mpi_cxx_bool = OMPI_DATATYPE_INIT_PREDEFIN /* * Complex datatypes for C (base types), C++, and fortran */ -ompi_predefined_datatype_t ompi_mpi_c_float_complex = OMPI_DATATYPE_INIT_PREDEFINED (C_FLOAT_COMPLEX, OMPI_DATATYPE_FLAG_DATA_C | OMPI_DATATYPE_FLAG_DATA_COMPLEX ); +ompi_predefined_datatype_t ompi_mpi_c_float_complex = OMPI_DATATYPE_INIT_PREDEFINED_BASIC_TYPE (C_FLOAT_COMPLEX, C_COMPLEX, OMPI_DATATYPE_FLAG_DATA_C | OMPI_DATATYPE_FLAG_DATA_COMPLEX ); ompi_predefined_datatype_t ompi_mpi_c_complex = OMPI_DATATYPE_INIT_PREDEFINED_BASIC_TYPE (C_FLOAT_COMPLEX, C_COMPLEX, OMPI_DATATYPE_FLAG_DATA_C | OMPI_DATATYPE_FLAG_DATA_COMPLEX ); ompi_predefined_datatype_t ompi_mpi_c_double_complex = OMPI_DATATYPE_INIT_PREDEFINED (C_DOUBLE_COMPLEX, OMPI_DATATYPE_FLAG_DATA_C | OMPI_DATATYPE_FLAG_DATA_COMPLEX ); #if HAVE_LONG_DOUBLE @@ -255,7 +255,7 @@ ompi_predefined_datatype_t ompi_mpi_integer8 = OMPI_DATATYPE_INIT_UNAVAILA #if OMPI_HAVE_FORTRAN_INTEGER16 ompi_predefined_datatype_t ompi_mpi_integer16 = OMPI_DATATYPE_INIT_PREDEFINED_BASIC_TYPE_FORTRAN (INT, INTEGER16, OMPI_SIZEOF_FORTRAN_INTEGER16, OMPI_ALIGNMENT_FORTRAN_INTEGER16, OMPI_DATATYPE_FLAG_DATA_INT); #else -ompi_predefined_datatype_t ompi_mpi_integer16 = OMPI_DATATYPE_INIT_UNAVAILABLE (INTEGER8, OMPI_DATATYPE_FLAG_DATA_FORTRAN | OMPI_DATATYPE_FLAG_DATA_INT); +ompi_predefined_datatype_t ompi_mpi_integer16 = OMPI_DATATYPE_INIT_UNAVAILABLE (INTEGER16, OMPI_DATATYPE_FLAG_DATA_FORTRAN | OMPI_DATATYPE_FLAG_DATA_INT); #endif /* @@ -533,7 +533,7 @@ int32_t ompi_datatype_init( void ) } /* - * This MUST match the order of ompi/include/mpif-common.h + * This MUST match the order of ompi/include/mpif-values.pl * Any change will break binary compatibility of Fortran programs. */ MOOG(datatype_null, 0); @@ -614,7 +614,7 @@ int32_t ompi_datatype_init( void ) MOOG(uint64_t, 65); MOOG(aint, 66); MOOG(offset, 67); - MOOG(c_complex, 68); + MOOG(c_bool, 68); MOOG(c_float_complex, 69); MOOG(c_double_complex, 70); MOOG(c_long_double_complex, 71); diff --git a/ompi/include/mpi.h.in b/ompi/include/mpi.h.in index 1cc1569a4c6..a9f266942b4 100644 --- a/ompi/include/mpi.h.in +++ b/ompi/include/mpi.h.in @@ -1006,7 +1006,6 @@ OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_aint; OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_offset; OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_count; OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_c_bool; -OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_c_complex; OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_c_float_complex; OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_c_double_complex; OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_c_long_double_complex; @@ -1153,7 +1152,7 @@ OMPI_DECLSPEC extern MPI_Fint *MPI_F_STATUSES_IGNORE; #define MPI_OFFSET OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_offset) #define MPI_C_BOOL OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_c_bool) #if HAVE_FLOAT__COMPLEX -#define MPI_C_COMPLEX OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_c_complex) +#define MPI_C_COMPLEX OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_c_float_complex) #define MPI_C_FLOAT_COMPLEX OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_c_float_complex) #endif #if HAVE_DOUBLE__COMPLEX @@ -1163,6 +1162,7 @@ OMPI_DECLSPEC extern MPI_Fint *MPI_F_STATUSES_IGNORE; #define MPI_C_LONG_DOUBLE_COMPLEX OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_c_long_double_complex) #endif #define MPI_CXX_BOOL OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_cxx_bool) +#define MPI_CXX_COMPLEX OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_cxx_cplex) #define MPI_CXX_FLOAT_COMPLEX OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_cxx_cplex) #define MPI_CXX_DOUBLE_COMPLEX OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_cxx_dblcplex) #define MPI_CXX_LONG_DOUBLE_COMPLEX OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_cxx_ldblcplex) diff --git a/ompi/include/mpif-values.pl b/ompi/include/mpif-values.pl index 94da49ac4fc..b4a9841b34b 100755 --- a/ompi/include/mpif-values.pl +++ b/ompi/include/mpif-values.pl @@ -3,6 +3,7 @@ # Copyright (c) 2011-2014 Cisco Systems, Inc. All rights reserved. # Copyright (c) 2016 Research Organization for Information Science # and Technology (RIST). All rights reserved. +# Copyright (c) 2016 FUJITSU LIMITED. All rights reserved. # $COPYRIGHT$ # # Additional copyrights may follow @@ -105,6 +106,7 @@ sub write_file { $handles->{MPI_MAXLOC} = 11; $handles->{MPI_MINLOC} = 12; $handles->{MPI_REPLACE} = 13; +$handles->{MPI_NO_OP} = 14; $handles->{MPI_COMM_NULL} = 2; $handles->{MPI_DATATYPE_NULL} = 0; @@ -160,20 +162,22 @@ sub write_file { $handles->{MPI_LONG} = 41; $handles->{MPI_UNSIGNED_LONG} = 42; $handles->{MPI_LONG_LONG_INT} = 43; +$handles->{MPI_LONG_LONG} = $handles->{MPI_LONG_LONG_INT}; $handles->{MPI_UNSIGNED_LONG_LONG} = 44; $handles->{MPI_FLOAT} = 45; $handles->{MPI_DOUBLE} = 46; $handles->{MPI_LONG_DOUBLE} = 47; $handles->{MPI_FLOAT_INT} = 48; $handles->{MPI_DOUBLE_INT} = 49; -$handles->{MPI_LONGDBL_INT} = 50; +$handles->{MPI_LONG_DOUBLE_INT} = 50; $handles->{MPI_LONG_INT} = 51; $handles->{MPI_2INT} = 52; $handles->{MPI_SHORT_INT} = 53; $handles->{MPI_CXX_BOOL} = 54; -$handles->{MPI_CXX_CPLEX} = 55; -$handles->{MPI_CXX_DBLCPLEX} = 56; -$handles->{MPI_CXX_LDBLCPLEX} = 57; +$handles->{MPI_CXX_FLOAT_COMPLEX} = 55; +$handles->{MPI_CXX_COMPLEX} = $handles->{MPI_CXX_FLOAT_COMPLEX}; +$handles->{MPI_CXX_DOUBLE_COMPLEX} = 56; +$handles->{MPI_CXX_LONG_DOUBLE_COMPLEX} = 57; $handles->{MPI_INT8_T} = 58; $handles->{MPI_UINT8_T} = 59; $handles->{MPI_INT16_T} = 60; @@ -184,8 +188,9 @@ sub write_file { $handles->{MPI_UINT64_T} = 65; $handles->{MPI_AINT} = 66; $handles->{MPI_OFFSET} = 67; -$handles->{MPI_C_COMPLEX} = 68; -$handles->{MPI_C_FLOAT_COMPLEX} = 69; +$handles->{MPI_C_BOOL} = 68; +$handles->{MPI_C_COMPLEX} = 69; +$handles->{MPI_C_FLOAT_COMPLEX} = $handles->{MPI_C_COMPLEX}; $handles->{MPI_C_DOUBLE_COMPLEX} = 70; $handles->{MPI_C_LONG_DOUBLE_COMPLEX} = 71; $handles->{MPI_COUNT} = 72; @@ -235,6 +240,8 @@ sub write_file { $constants->{MPI_WIN_FLAVOR_ALLOCATE} = 2; $constants->{MPI_WIN_FLAVOR_DYNAMIC} = 3; $constants->{MPI_WIN_FLAVOR_SHARED} = 4; +$constants->{MPI_WIN_UNIFIED} = 0; +$constants->{MPI_WIN_SEPARATE} = 1; $constants->{MPI_BSEND_OVERHEAD} = 128; $constants->{MPI_ORDER_C} = 0;