ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

Fix support for complex datatypes when fortran is not available but _Complex is

Просмотр исходного кода 
This commit was SVN r28951.
Этот коммит содержится в:
Nathan Hjelm 2013-07-25 19:08:21 +00:00
родитель ebbb32120a
Коммит 99adeb7f6e
5 изменённых файлов: 153 добавлений и 21 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

49
ompi/mca/op/base/functions.h
Просмотреть файл

@ -10,6 +10,8 @@
* Copyright (c) 2004-2005 The Regents of the University of California. * Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved. * All rights reserved.
* Copyright (c) 2008-2009 Cisco Systems, Inc. All rights reserved. * Copyright (c) 2008-2009 Cisco Systems, Inc. All rights reserved.
* Copyright (c) 2013 Los Alamos National Security, LLC. All rights
* reserved.
* $COPYRIGHT$ * $COPYRIGHT$
* *
* Additional copyrights may follow * Additional copyrights may follow
@ -160,12 +162,34 @@
#else #else
#define OMPI_OP_HANDLER_COMPLEX32(name) #define OMPI_OP_HANDLER_COMPLEX32(name)
#endif #endif
#if HAVE_FLOAT__COMPLEX
#define OMPI_OP_HANDLER_FLOAT__COMPLEX(name) \
void ompi_op_base_##name##_c_float__complex OMPI_OP_PROTO;
#else
#define OMPI_OP_HANDLER_FLOAT__COMPLEX(name)
#endif
#if HAVE_DOUBLE__COMPLEX
#define OMPI_OP_HANDLER_DOUBLE__COMPLEX(name) \
void ompi_op_base_##name##_c_double__complex OMPI_OP_PROTO;
#else
#define OMPI_OP_HANDLER_DOUBLE__COMPLEX(name)
#endif
#if HAVE_LONG_DOUBLE__COMPLEX
#define OMPI_OP_HANDLER_LONG_DOUBLE__COMPLEX(name) \
void ompi_op_base_##name##_c_long_double__complex OMPI_OP_PROTO;
#else
#define OMPI_OP_HANDLER_LONG_DOUBLE__COMPLEX(name)
#endif
#define OMPI_OP_HANDLER_COMPLEX(name) \ #define OMPI_OP_HANDLER_COMPLEX(name) \
OMPI_OP_HANDLER_COMPLEX_INTRINSIC(name) \ OMPI_OP_HANDLER_COMPLEX_INTRINSIC(name) \
OMPI_OP_HANDLER_DOUBLE_COMPLEX_INTRINSIC(name) \ OMPI_OP_HANDLER_DOUBLE_COMPLEX_INTRINSIC(name) \
OMPI_OP_HANDLER_COMPLEX8(name) \ OMPI_OP_HANDLER_COMPLEX8(name) \
OMPI_OP_HANDLER_COMPLEX16(name) \ OMPI_OP_HANDLER_COMPLEX16(name) \
OMPI_OP_HANDLER_COMPLEX32(name) OMPI_OP_HANDLER_COMPLEX32(name) \
OMPI_OP_HANDLER_FLOAT__COMPLEX(name) \
OMPI_OP_HANDLER_DOUBLE__COMPLEX(name) \
OMPI_OP_HANDLER_LONG_DOUBLE__COMPLEX(name)
/* Byte */ /* Byte */
@ -406,12 +430,33 @@ BEGIN_C_DECLS
#else #else
#define OMPI_OP_3BUFF_HANDLER_COMPLEX32(name) #define OMPI_OP_3BUFF_HANDLER_COMPLEX32(name)
#endif #endif
#if HAVE_FLOAT__COMPLEX
#define OMPI_OP_3BUFF_HANDLER_FLOAT__COMPLEX(name) \
void ompi_op_base_3buff_##name##_c_float__complex OMPI_OP_PROTO_3BUF;
#else
#define OMPI_OP_3BUFF_HANDLER_FLOAT__COMPLEX(name)
#endif
#if HAVE_DOUBLE__COMPLEX
#define OMPI_OP_3BUFF_HANDLER_DOUBLE__COMPLEX(name) \
void ompi_op_base_3buff_##name##_c_double__complex OMPI_OP_PROTO_3BUF;
#else
#define OMPI_OP_3BUFF_HANDLER_DOUBLE__COMPLEX(name)
#endif
#if HAVE_LONG_DOUBLE__COMPLEX
#define OMPI_OP_3BUFF_HANDLER_LONG_DOUBLE__COMPLEX(name) \
void ompi_op_base_3buff_##name##_c_long_double__complex OMPI_OP_PROTO_3BUF;
#else
#define OMPI_OP_3BUFF_HANDLER_LONG_DOUBLE__COMPLEX(name)
#endif
#define OMPI_OP_3BUFF_HANDLER_COMPLEX(name) \ #define OMPI_OP_3BUFF_HANDLER_COMPLEX(name) \
OMPI_OP_3BUFF_HANDLER_COMPLEX_INTRINSIC(name) \ OMPI_OP_3BUFF_HANDLER_COMPLEX_INTRINSIC(name) \
OMPI_OP_3BUFF_HANDLER_DOUBLE_COMPLEX_INTRINSIC(name) \ OMPI_OP_3BUFF_HANDLER_DOUBLE_COMPLEX_INTRINSIC(name) \
OMPI_OP_3BUFF_HANDLER_COMPLEX8(name) \ OMPI_OP_3BUFF_HANDLER_COMPLEX8(name) \
OMPI_OP_3BUFF_HANDLER_COMPLEX16(name) \ OMPI_OP_3BUFF_HANDLER_COMPLEX16(name) \
OMPI_OP_3BUFF_HANDLER_COMPLEX32(name) OMPI_OP_3BUFF_HANDLER_COMPLEX32(name) \
OMPI_OP_3BUFF_HANDLER_FLOAT__COMPLEX(name) \
OMPI_OP_3BUFF_HANDLER_DOUBLE__COMPLEX(name) \
OMPI_OP_3BUFF_HANDLER_LONG_DOUBLE__COMPLEX(name)
/* Byte */ /* Byte */

103
ompi/mca/op/base/op_base_functions.c
Просмотреть файл

@ -1,3 +1,4 @@
/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil -*- */
/* /*
* Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana * Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
* University Research and Technology * University Research and Technology
@ -322,6 +323,15 @@ COMPLEX_OP_FUNC_SUM(fortran_complex16, ompi_fortran_complex16_t)
#if OMPI_HAVE_FORTRAN_REAL16 && OMPI_HAVE_FORTRAN_COMPLEX32 #if OMPI_HAVE_FORTRAN_REAL16 && OMPI_HAVE_FORTRAN_COMPLEX32
COMPLEX_OP_FUNC_SUM(fortran_complex32, ompi_fortran_complex32_t) COMPLEX_OP_FUNC_SUM(fortran_complex32, ompi_fortran_complex32_t)
#endif #endif
#if HAVE_FLOAT__COMPLEX
OP_FUNC(sum, c_float__complex, float _Complex, +=)
#endif
#if HAVE_DOUBLE__COMPLEX
OP_FUNC(sum, c_double__complex, double _Complex, +=)
#endif
#if HAVE_LONG_DOUBLE__COMPLEX
OP_FUNC(sum, c_long_double__complex, long double _Complex, +=)
#endif
/************************************************************************* /*************************************************************************
* Product * Product
@ -395,6 +405,15 @@ COMPLEX_OP_FUNC_PROD(fortran_complex16, ompi_fortran_complex16_t)
#if OMPI_HAVE_FORTRAN_REAL16 && OMPI_HAVE_FORTRAN_COMPLEX32 #if OMPI_HAVE_FORTRAN_REAL16 && OMPI_HAVE_FORTRAN_COMPLEX32
COMPLEX_OP_FUNC_PROD(fortran_complex32, ompi_fortran_complex32_t) COMPLEX_OP_FUNC_PROD(fortran_complex32, ompi_fortran_complex32_t)
#endif #endif
#if HAVE_FLOAT__COMPLEX
OP_FUNC(prod, c_float__complex, float _Complex, *=)
#endif
#if HAVE_DOUBLE__COMPLEX
OP_FUNC(prod, c_double__complex, double _Complex, *=)
#endif
#if HAVE_LONG_DOUBLE__COMPLEX
OP_FUNC(prod, c_long_double__complex, long double _Complex, *=)
#endif
/************************************************************************* /*************************************************************************
* Logical AND * Logical AND
@ -947,6 +966,15 @@ COMPLEX_OP_FUNC_SUM_3BUF(fortran_complex16, ompi_fortran_complex16_t)
#if OMPI_HAVE_FORTRAN_REAL16 && OMPI_HAVE_FORTRAN_COMPLEX32 #if OMPI_HAVE_FORTRAN_REAL16 && OMPI_HAVE_FORTRAN_COMPLEX32
COMPLEX_OP_FUNC_SUM_3BUF(fortran_complex32, ompi_fortran_complex32_t) COMPLEX_OP_FUNC_SUM_3BUF(fortran_complex32, ompi_fortran_complex32_t)
#endif #endif
#if HAVE_FLOAT__COMPLEX
OP_FUNC_3BUF(sum, c_float__complex, float _Complex, +=)
#endif
#if HAVE_DOUBLE__COMPLEX
OP_FUNC_3BUF(sum, c_double__complex, double _Complex, +=)
#endif
#if HAVE_LONG_DOUBLE__COMPLEX
OP_FUNC_3BUF(sum, c_long_double__complex, long double _Complex, +=)
#endif
/************************************************************************* /*************************************************************************
* Product * Product
@ -1020,6 +1048,15 @@ COMPLEX_OP_FUNC_PROD_3BUF(fortran_complex16, ompi_fortran_complex16_t)
#if OMPI_HAVE_FORTRAN_REAL16 && OMPI_HAVE_FORTRAN_COMPLEX32 #if OMPI_HAVE_FORTRAN_REAL16 && OMPI_HAVE_FORTRAN_COMPLEX32
COMPLEX_OP_FUNC_PROD_3BUF(fortran_complex32, ompi_fortran_complex32_t) COMPLEX_OP_FUNC_PROD_3BUF(fortran_complex32, ompi_fortran_complex32_t)
#endif #endif
#if HAVE_FLOAT__COMPLEX
OP_FUNC_3BUF(prod, c_float__complex, float _Complex, *=)
#endif
#if HAVE_DOUBLE__COMPLEX
OP_FUNC_3BUF(prod, c_double__complex, double _Complex, *=)
#endif
#if HAVE_LONG_DOUBLE__COMPLEX
OP_FUNC_3BUF(prod, c_long_double__complex, long double _Complex, *=)
#endif
/************************************************************************* /*************************************************************************
* Logical AND * Logical AND
@ -1547,6 +1584,9 @@ LOC_FUNC_3BUF(minloc, long_double_int, <)
#if OMPI_HAVE_FORTRAN_REAL4 && OMPI_HAVE_FORTRAN_COMPLEX8 #if OMPI_HAVE_FORTRAN_REAL4 && OMPI_HAVE_FORTRAN_COMPLEX8
#define COMPLEX8(name) ompi_op_base_##name##_fortran_complex8 #define COMPLEX8(name) ompi_op_base_##name##_fortran_complex8
#define COMPLEX8_3BUFF(name) ompi_op_base_3buff_##name##_fortran_complex8 #define COMPLEX8_3BUFF(name) ompi_op_base_3buff_##name##_fortran_complex8
#elif HAVE_FLOAT__COMPLEX
#define COMPLEX8(name) ompi_op_base_##name##_c_float__complex
#define COMPLEX8_3BUFF(name) ompi_op_base_3buff_##name##_c_float__complex
#else #else
#define COMPLEX8(name) NULL #define COMPLEX8(name) NULL
#define COMPLEX8_3BUFF(name) NULL #define COMPLEX8_3BUFF(name) NULL
@ -1554,6 +1594,9 @@ LOC_FUNC_3BUF(minloc, long_double_int, <)
#if OMPI_HAVE_FORTRAN_REAL8 && OMPI_HAVE_FORTRAN_COMPLEX16 #if OMPI_HAVE_FORTRAN_REAL8 && OMPI_HAVE_FORTRAN_COMPLEX16
#define COMPLEX16(name) ompi_op_base_##name##_fortran_complex16 #define COMPLEX16(name) ompi_op_base_##name##_fortran_complex16
#define COMPLEX16_3BUFF(name) ompi_op_base_3buff_##name##_fortran_complex16 #define COMPLEX16_3BUFF(name) ompi_op_base_3buff_##name##_fortran_complex16
#elif HAVE_DOUBLE__COMPLEX
#define COMPLEX16(name) ompi_op_base_##name##_c_double__complex
#define COMPLEX16_3BUFF(name) ompi_op_base_3buff_##name##_c_double__complex
#else #else
#define COMPLEX16(name) NULL #define COMPLEX16(name) NULL
#define COMPLEX16_3BUFF(name) NULL #define COMPLEX16_3BUFF(name) NULL
@ -1568,38 +1611,74 @@ LOC_FUNC_3BUF(minloc, long_double_int, <)
#if OMPI_HAVE_FORTRAN_REAL16 && OMPI_REAL16_MATCHES_C && OMPI_HAVE_FORTRAN_COMPLEX32 #if OMPI_HAVE_FORTRAN_REAL16 && OMPI_REAL16_MATCHES_C && OMPI_HAVE_FORTRAN_COMPLEX32
#define COMPLEX32(name) ompi_op_base_##name##_fortran_complex32 #define COMPLEX32(name) ompi_op_base_##name##_fortran_complex32
#define COMPLEX32_3BUFF(name) ompi_op_base_3buff_##name##_fortran_complex32 #define COMPLEX32_3BUFF(name) ompi_op_base_3buff_##name##_fortran_complex32
#elif HAVE_LONG_DOUBLE__COMPLEX
#define COMPLEX32(name) ompi_op_base_##name##_c_long_double__complex
#define COMPLEX32_3BUFF(name) ompi_op_base_3buff_##name##_c_long_double__complex
#else #else
#define COMPLEX32(name) NULL #define COMPLEX32(name) NULL
#define COMPLEX32_3BUFF(name) NULL #define COMPLEX32_3BUFF(name) NULL
#endif #endif
#if HAVE_FLOAT__COMPLEX
#define C_FLOAT__COMPLEX(name) ompi_op_base_##name##_c_float__complex
#define C_FLOAT__COMPLEX_3BUFF(name) ompi_op_base_3buff_##name##_c_float__complex
#else
#define C_FLOAT__COMPLEX(name) NULL
#define C_FLOAT__COMPLEX_3BUFF(name) NULL
#endif
#if HAVE_DOUBLE__COMPLEX
#define C_DOUBLE__COMPLEX(name) ompi_op_base_##name##_c_double__complex
#define C_DOUBLE__COMPLEX_3BUFF(name) ompi_op_base_3buff_##name##_c_double__complex
#else
#define C_DOUBLE__COMPLEX(name) NULL
#define C_DOUBLE__COMPLEX_3BUFF(name) NULL
#endif
#if HAVE_LONG_DOUBLE__COMPLEX
#define C_LONG_DOUBLE__COMPLEX(name) ompi_op_base_##name##_c_long_double__complex
#define C_LONG_DOUBLE__COMPLEX_3BUFF(name) ompi_op_base_3buff_##name##_c_long_double__complex
#else
#define C_LONG_DOUBLE__COMPLEX(name) NULL
#define C_LONG_DOUBLE__COMPLEX_3BUFF(name) NULL
#endif
#define COMPLEX(name) \ #define COMPLEX(name) \
COMPLEX_PLAIN(name), /* OMPI_OP_BASE_TYPE_COMPLEX */ \ COMPLEX_PLAIN(name), /* OMPI_OP_BASE_TYPE_COMPLEX */ \
COMPLEX_DOUBLE(name), /* OMPI_OP_BASE_TYPE_DOUBLE_COMPLEX */ \ COMPLEX_DOUBLE(name), /* OMPI_OP_BASE_TYPE_DOUBLE_COMPLEX */ \
COMPLEX8(name), /* OMPI_OP_BASE_TYPE_COMPLEX8 */ \ COMPLEX8(name), /* OMPI_OP_BASE_TYPE_COMPLEX8 */ \
COMPLEX16(name), /* OMPI_OP_BASE_TYPE_COMPLEX16 */ \ COMPLEX16(name), /* OMPI_OP_BASE_TYPE_COMPLEX16 */ \
COMPLEX32(name) /* OMPI_OP_BASE_TYPE_COMPLEX32 */ COMPLEX32(name), /* OMPI_OP_BASE_TYPE_COMPLEX32 */ \
C_FLOAT__COMPLEX(name), /* OMPI_OP_BASE_TYPE_C_FLOAT__COMPLEX */ \
C_DOUBLE__COMPLEX(name), /* OMPI_OP_BASE_TYPE_C_DOUBLE__COMPLEX */ \
C_LONG_DOUBLE__COMPLEX(name) /* OMPI_OP_BASE_TYPE_C_LONG_DOUBLE__COMPLEX */
#define COMPLEX_3BUFF(name) \ #define COMPLEX_3BUFF(name) \
COMPLEX_PLAIN_3BUFF(name), /* OMPI_OP_BASE_TYPE_COMPLEX */ \ COMPLEX_PLAIN_3BUFF(name), /* OMPI_OP_BASE_TYPE_COMPLEX */ \
COMPLEX_DOUBLE_3BUFF(name), /* OMPI_OP_BASE_TYPE_DOUBLE_COMPLEX */ \ COMPLEX_DOUBLE_3BUFF(name), /* OMPI_OP_BASE_TYPE_DOUBLE_COMPLEX */ \
COMPLEX8_3BUFF(name), /* OMPI_OP_BASE_TYPE_COMPLEX8 */ \ COMPLEX8_3BUFF(name), /* OMPI_OP_BASE_TYPE_COMPLEX8 */ \
COMPLEX16_3BUFF(name), /* OMPI_OP_BASE_TYPE_COMPLEX16 */ \ COMPLEX16_3BUFF(name), /* OMPI_OP_BASE_TYPE_COMPLEX16 */ \
COMPLEX32_3BUFF(name) /* OMPI_OP_BASE_TYPE_COMPLEX32 */ COMPLEX32_3BUFF(name), /* OMPI_OP_BASE_TYPE_COMPLEX32 */ \
C_FLOAT__COMPLEX_3BUFF(name), /* OMPI_OP_BASE_TYPE_C_FLOAT__COMPLEX */ \
C_DOUBLE__COMPLEX_3BUFF(name), /* OMPI_OP_BASE_TYPE_C_DOUBLE__COMPLEX*/ \
C_LONG_DOUBLE__COMPLEX_3BUFF(name) /* OMPI_OP_BASE_TYPE_C_LONG_DOUBLE__COMPLEX*/
#define COMPLEX_NULL \ #define COMPLEX_NULL \
NULL, /* OMPI_OP_BASE_TYPE_COMPLEX */ \ NULL, /* OMPI_OP_BASE_TYPE_COMPLEX */ \
NULL, /* OMPI_OP_BASE_TYPE_DOUBLE_COMPLEX */ \ NULL, /* OMPI_OP_BASE_TYPE_DOUBLE_COMPLEX */ \
NULL, /* OMPI_OP_BASE_TYPE_COMPLEX8 */ \ NULL, /* OMPI_OP_BASE_TYPE_COMPLEX8 */ \
NULL, /* OMPI_OP_BASE_TYPE_COMPLEX16 */ \ NULL, /* OMPI_OP_BASE_TYPE_COMPLEX16 */ \
NULL /* OMPI_OP_BASE_TYPE_COMPLEX32 */ NULL, /* OMPI_OP_BASE_TYPE_COMPLEX32 */ \
NULL, /* OMPI_OP_BASE_TYPE_C_FLOAT__COMPLEX */ \
NULL, /* OMPI_OP_BASE_TYPE_C_DOUBLE__COMPLEX */ \
NULL /* OMPI_OP_BASE_TYPE_C_LONG_DOUBLE__COMPLEX */
#define COMPLEX_NULL_3BUFF \ #define COMPLEX_NULL_3BUFF \
NULL, /* OMPI_OP_BASE_TYPE_COMPLEX */ \ NULL, /* OMPI_OP_BASE_TYPE_COMPLEX */ \
NULL, /* OMPI_OP_BASE_TYPE_DOUBLE_COMPLEX */ \ NULL, /* OMPI_OP_BASE_TYPE_DOUBLE_COMPLEX */ \
NULL, /* OMPI_OP_BASE_TYPE_COMPLEX8 */ \ NULL, /* OMPI_OP_BASE_TYPE_COMPLEX8 */ \
NULL, /* OMPI_OP_BASE_TYPE_COMPLEX16 */ \ NULL, /* OMPI_OP_BASE_TYPE_COMPLEX16 */ \
NULL /* OMPI_OP_BASE_TYPE_COMPLEX32 */ NULL, /* OMPI_OP_BASE_TYPE_COMPLEX32 */ \
NULL, /* OMPI_OP_BASE_TYPE_C_FLOAT__COMPLEX */ \
NULL, /* OMPI_OP_BASE_TYPE_C_DOUBLE__COMPLEX */ \
NULL /* OMPI_OP_BASE_TYPE_C_LONG_DOUBLE__COMPLEX */
/** Byte ****************************************************************/ /** Byte ****************************************************************/

8
ompi/mca/op/op.h
Просмотреть файл

@ -163,6 +163,14 @@ enum {
/** Complex32 */ /** Complex32 */
OMPI_OP_BASE_TYPE_COMPLEX32, OMPI_OP_BASE_TYPE_COMPLEX32,
/** C Complex */
/* float _Complex */
OMPI_OP_BASE_TYPE_C_FLOAT__COMPLEX,
/* double _Complex */
OMPI_OP_BASE_TYPE_C_DOUBLE__COMPLEX,
/* long double _Complex */
OMPI_OP_BASE_TYPE_C_LONG_DOUBLE__COMPLEX,
/** Byte */ /** Byte */
OMPI_OP_BASE_TYPE_BYTE, OMPI_OP_BASE_TYPE_BYTE,

8
ompi/op/op.c
Просмотреть файл

@ -180,10 +180,10 @@ int ompi_op_init(void)
#warning Unsupported definition for MPI_OFFSET #warning Unsupported definition for MPI_OFFSET
#endif #endif
ompi_op_ddt_map[OMPI_DATATYPE_MPI_C_BOOL] = OMPI_OP_BASE_TYPE_BOOL; ompi_op_ddt_map[OMPI_DATATYPE_MPI_C_BOOL] = OMPI_OP_BASE_TYPE_BOOL;
ompi_op_ddt_map[OMPI_DATATYPE_MPI_C_COMPLEX] = OMPI_OP_BASE_TYPE_COMPLEX8; ompi_op_ddt_map[OMPI_DATATYPE_MPI_C_COMPLEX] = OMPI_OP_BASE_TYPE_C_FLOAT__COMPLEX;
ompi_op_ddt_map[OMPI_DATATYPE_MPI_C_FLOAT_COMPLEX] = OMPI_OP_BASE_TYPE_COMPLEX8; ompi_op_ddt_map[OMPI_DATATYPE_MPI_C_FLOAT_COMPLEX] = OMPI_OP_BASE_TYPE_C_FLOAT__COMPLEX;
ompi_op_ddt_map[OMPI_DATATYPE_MPI_C_DOUBLE_COMPLEX] = OMPI_OP_BASE_TYPE_COMPLEX16; ompi_op_ddt_map[OMPI_DATATYPE_MPI_C_DOUBLE_COMPLEX] = OMPI_OP_BASE_TYPE_C_DOUBLE__COMPLEX;
ompi_op_ddt_map[OMPI_DATATYPE_MPI_C_LONG_DOUBLE_COMPLEX] = OMPI_OP_BASE_TYPE_COMPLEX32; ompi_op_ddt_map[OMPI_DATATYPE_MPI_C_LONG_DOUBLE_COMPLEX] = OMPI_OP_BASE_TYPE_C_LONG_DOUBLE__COMPLEX;
/* MPI 3.0 datatypes */ /* MPI 3.0 datatypes */
#if OMPI_MPI_COUNT_SIZE == 4 #if OMPI_MPI_COUNT_SIZE == 4

6
opal/datatype/opal_datatype_internal.h
Просмотреть файл

@ -434,9 +434,9 @@ struct opal_datatype_t;
* http://predef.sourceforge.net/prestd.html for more info. * http://predef.sourceforge.net/prestd.html for more info.
*/ */
#define OPAL_USE_FLOAT__COMPLEX (0 && HAVE_FLOAT__COMPLEX) #define OPAL_USE_FLOAT__COMPLEX HAVE_FLOAT__COMPLEX
#define OPAL_USE_DOUBLE__COMPLEX (0 && HAVE_DOUBLE__COMPLEX) #define OPAL_USE_DOUBLE__COMPLEX HAVE_DOUBLE__COMPLEX
#define OPAL_USE_LONG_DOUBLE__COMPLEX (0 && HAVE_LONG_DOUBLE__COMPLEX) #define OPAL_USE_LONG_DOUBLE__COMPLEX HAVE_LONG_DOUBLE__COMPLEX
#if OPAL_USE_FLOAT__COMPLEX && (SIZEOF_FLOAT__COMPLEX == 8) #if OPAL_USE_FLOAT__COMPLEX && (SIZEOF_FLOAT__COMPLEX == 8)
#define OPAL_DATATYPE_INITIALIZER_COMPLEX8(FLAGS) OPAL_DATATYPE_INIT_BASIC_DATATYPE( float _Complex, OPAL_ALIGNMENT_FLOAT_COMPLEX, COMPLEX8, (FLAGS) ) #define OPAL_DATATYPE_INITIALIZER_COMPLEX8(FLAGS) OPAL_DATATYPE_INIT_BASIC_DATATYPE( float _Complex, OPAL_ALIGNMENT_FLOAT_COMPLEX, COMPLEX8, (FLAGS) )