2004-04-21 02:37:46 +04:00
|
|
|
/*
|
2005-11-05 22:57:48 +03:00
|
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
|
|
|
|
* University Research and Technology
|
|
|
|
* Corporation. All rights reserved.
|
|
|
|
* Copyright (c) 2004-2005 The University of Tennessee and The University
|
|
|
|
* of Tennessee Research Foundation. All rights
|
|
|
|
* reserved.
|
2004-11-28 23:09:25 +03:00
|
|
|
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
|
|
* University of Stuttgart. All rights reserved.
|
2005-03-24 15:43:37 +03:00
|
|
|
* Copyright (c) 2004-2005 The Regents of the University of California.
|
|
|
|
* All rights reserved.
|
2004-11-22 04:38:40 +03:00
|
|
|
* $COPYRIGHT$
|
|
|
|
*
|
|
|
|
* Additional copyrights may follow
|
|
|
|
*
|
2004-04-21 02:37:46 +04:00
|
|
|
* $HEADER$
|
|
|
|
*/
|
|
|
|
|
2004-06-07 19:33:53 +04:00
|
|
|
#include "ompi_config.h"
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-10-20 05:03:09 +04:00
|
|
|
#ifdef HAVE_SYS_TYPES_H
|
2004-06-29 04:02:25 +04:00
|
|
|
#include <sys/types.h>
|
2004-10-20 05:03:09 +04:00
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
|
2004-04-21 02:37:46 +04:00
|
|
|
#include "op/op.h"
|
|
|
|
#include "op/op_predefined.h"
|
|
|
|
|
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
/*
|
|
|
|
* Since all the functions in this file are essentially identical, we
|
|
|
|
* use a macro to substitute in names and types. The core operation
|
|
|
|
* in all functions that use this macro is the same.
|
|
|
|
*
|
|
|
|
* This macro is for (out op in).
|
|
|
|
*/
|
|
|
|
#define OP_FUNC(name, type_name, type, op) \
|
|
|
|
void ompi_mpi_op_##name##_##type_name(void *in, void *out, int *count, \
|
|
|
|
MPI_Datatype *dtype) \
|
|
|
|
{ \
|
|
|
|
int i; \
|
|
|
|
type *a = (type *) in; \
|
|
|
|
type *b = (type *) out; \
|
|
|
|
for (i = 0; i < *count; ++i) { \
|
|
|
|
*(b++) op *(a++); \
|
|
|
|
} \
|
|
|
|
}
|
2004-04-21 02:37:46 +04:00
|
|
|
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#define COMPLEX_OP_FUNC_SUM(type_name, type) \
|
|
|
|
void ompi_mpi_op_sum_##type_name(void *in, void *out, int *count, \
|
|
|
|
MPI_Datatype *dtype) \
|
|
|
|
{ \
|
|
|
|
int i; \
|
|
|
|
type *a = (type *) in; \
|
|
|
|
type *b = (type *) out; \
|
|
|
|
for (i = 0; i < *count; ++i, ++b, ++a) { \
|
|
|
|
b->real += a->real; \
|
|
|
|
b->imag += a->imag; \
|
|
|
|
} \
|
|
|
|
}
|
|
|
|
|
|
|
|
#define COMPLEX_OP_FUNC_PROD(type_name, type) \
|
|
|
|
void ompi_mpi_op_prod_##type_name(void *in, void *out, int *count, \
|
|
|
|
MPI_Datatype *dtype) \
|
|
|
|
{ \
|
|
|
|
int i; \
|
|
|
|
type *a = (type *) in; \
|
|
|
|
type *b = (type *) out; \
|
|
|
|
type temp; \
|
|
|
|
for (i = 0; i < *count; ++i, ++b, ++a) { \
|
|
|
|
temp.real = a->real * b->real - a->imag * b->imag; \
|
|
|
|
temp.imag = a->imag * b->real + a->real * b->imag; \
|
|
|
|
*b = temp; \
|
|
|
|
} \
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
/*
|
|
|
|
* Since all the functions in this file are essentially identical, we
|
|
|
|
* use a macro to substitute in names and types. The core operation
|
|
|
|
* in all functions that use this macro is the same.
|
|
|
|
*
|
|
|
|
* This macro is for (out = op(out, in))
|
|
|
|
*/
|
|
|
|
#define FUNC_FUNC(name, type_name, type) \
|
|
|
|
void ompi_mpi_op_##name##_##type_name(void *in, void *out, int *count, \
|
|
|
|
MPI_Datatype *dtype) \
|
|
|
|
{ \
|
|
|
|
int i; \
|
|
|
|
type *a = (type *) in; \
|
|
|
|
type *b = (type *) out; \
|
|
|
|
for (i = 0; i < *count; ++i) { \
|
2004-07-13 19:20:46 +04:00
|
|
|
*(b) = current_func(*(b), *(a)); \
|
2004-06-29 04:02:25 +04:00
|
|
|
++b; \
|
2004-07-13 19:20:46 +04:00
|
|
|
++a; \
|
2004-06-29 04:02:25 +04:00
|
|
|
} \
|
|
|
|
}
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-07-13 19:20:46 +04:00
|
|
|
/*
|
|
|
|
* Since all the functions in this file are essentially identical, we
|
|
|
|
* use a macro to substitute in names and types. The core operation
|
|
|
|
* in all functions that use this macro is the same.
|
|
|
|
*
|
|
|
|
* This macro is for minloc and maxloc
|
|
|
|
*/
|
|
|
|
#define LOC_STRUCT(type_name, type1, type2) \
|
|
|
|
typedef struct { \
|
|
|
|
type1 v; \
|
|
|
|
type2 k; \
|
|
|
|
} ompi_op_predefined_##type_name##_t;
|
|
|
|
|
|
|
|
#define LOC_FUNC(name, type_name, op) \
|
|
|
|
void ompi_mpi_op_##name##_##type_name(void *in, void *out, int *count, \
|
|
|
|
MPI_Datatype *dtype) \
|
|
|
|
{ \
|
|
|
|
int i; \
|
|
|
|
ompi_op_predefined_##type_name##_t *a = (ompi_op_predefined_##type_name##_t*) in; \
|
|
|
|
ompi_op_predefined_##type_name##_t *b = (ompi_op_predefined_##type_name##_t*) out; \
|
2004-09-30 22:03:30 +04:00
|
|
|
for (i = 0; i < *count; ++i, ++a, ++b) { \
|
2004-07-13 19:20:46 +04:00
|
|
|
if (a->v op b->v) { \
|
2004-07-14 23:16:13 +04:00
|
|
|
b->v = a->v; \
|
|
|
|
b->k = a->k; \
|
2004-07-13 19:20:46 +04:00
|
|
|
} else if (a->v == b->v) { \
|
|
|
|
b->k = (b->k < a->k ? b->k : a->k); \
|
|
|
|
} \
|
|
|
|
} \
|
|
|
|
}
|
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
/*************************************************************************
|
|
|
|
* Max
|
|
|
|
*************************************************************************/
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
#undef current_func
|
|
|
|
#define current_func(a, b) ((a) > (b) ? (a) : (b))
|
|
|
|
/* C integer */
|
|
|
|
FUNC_FUNC(max, int, int)
|
|
|
|
FUNC_FUNC(max, long, long)
|
|
|
|
FUNC_FUNC(max, short, short)
|
|
|
|
FUNC_FUNC(max, unsigned_short, unsigned short)
|
|
|
|
FUNC_FUNC(max, unsigned, unsigned)
|
|
|
|
FUNC_FUNC(max, unsigned_long, unsigned long)
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if HAVE_LONG_LONG
|
|
|
|
FUNC_FUNC(max, long_long_int, long long int)
|
|
|
|
FUNC_FUNC(max, long_long, long long)
|
|
|
|
FUNC_FUNC(max, unsigned_long_long, unsigned long long)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Fortran integer */
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER
|
|
|
|
FUNC_FUNC(max, fortran_integer, ompi_fortran_integer_t)
|
|
|
|
#endif
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER1
|
|
|
|
FUNC_FUNC(max, fortran_integer1, ompi_fortran_integer1_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER2
|
|
|
|
FUNC_FUNC(max, fortran_integer2, ompi_fortran_integer2_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER4
|
|
|
|
FUNC_FUNC(max, fortran_integer4, ompi_fortran_integer4_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER8
|
|
|
|
FUNC_FUNC(max, fortran_integer8, ompi_fortran_integer8_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER16
|
|
|
|
FUNC_FUNC(max, fortran_integer16, ompi_fortran_integer16_t)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Floating point */
|
|
|
|
FUNC_FUNC(max, float, float)
|
|
|
|
FUNC_FUNC(max, double, double)
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL
|
2004-06-29 04:02:25 +04:00
|
|
|
FUNC_FUNC(max, fortran_real, ompi_fortran_real_t)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_DOUBLE_PRECISION
|
|
|
|
FUNC_FUNC(max, fortran_double_precision, ompi_fortran_double_precision_t)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
FUNC_FUNC(max, long_double, long double)
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL4
|
|
|
|
FUNC_FUNC(max, fortran_real4, ompi_fortran_real4_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_REAL8
|
|
|
|
FUNC_FUNC(max, fortran_real8, ompi_fortran_real8_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_REAL16
|
|
|
|
FUNC_FUNC(max, fortran_real16, ompi_fortran_real16_t)
|
|
|
|
#endif
|
2004-04-21 02:37:46 +04:00
|
|
|
|
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
/*************************************************************************
|
|
|
|
* Min
|
|
|
|
*************************************************************************/
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
#undef current_func
|
|
|
|
#define current_func(a, b) ((a) < (b) ? (a) : (b))
|
|
|
|
/* C integer */
|
|
|
|
FUNC_FUNC(min, int, int)
|
|
|
|
FUNC_FUNC(min, long, long)
|
|
|
|
FUNC_FUNC(min, short, short)
|
|
|
|
FUNC_FUNC(min, unsigned_short, unsigned short)
|
|
|
|
FUNC_FUNC(min, unsigned, unsigned)
|
|
|
|
FUNC_FUNC(min, unsigned_long, unsigned long)
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if HAVE_LONG_LONG
|
|
|
|
FUNC_FUNC(min, long_long_int, long long int)
|
|
|
|
FUNC_FUNC(min, long_long, long long)
|
|
|
|
FUNC_FUNC(min, unsigned_long_long, unsigned long long)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Fortran integer */
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER
|
|
|
|
FUNC_FUNC(min, fortran_integer, ompi_fortran_integer_t)
|
|
|
|
#endif
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER1
|
|
|
|
FUNC_FUNC(min, fortran_integer1, ompi_fortran_integer1_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER2
|
|
|
|
FUNC_FUNC(min, fortran_integer2, ompi_fortran_integer2_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER4
|
|
|
|
FUNC_FUNC(min, fortran_integer4, ompi_fortran_integer4_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER8
|
|
|
|
FUNC_FUNC(min, fortran_integer8, ompi_fortran_integer8_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER16
|
|
|
|
FUNC_FUNC(min, fortran_integer16, ompi_fortran_integer16_t)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Floating point */
|
|
|
|
FUNC_FUNC(min, float, float)
|
|
|
|
FUNC_FUNC(min, double, double)
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL
|
2004-06-29 04:02:25 +04:00
|
|
|
FUNC_FUNC(min, fortran_real, ompi_fortran_real_t)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_DOUBLE_PRECISION
|
|
|
|
FUNC_FUNC(min, fortran_double_precision, ompi_fortran_double_precision_t)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
FUNC_FUNC(min, long_double, long double)
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL4
|
|
|
|
FUNC_FUNC(min, fortran_real4, ompi_fortran_real4_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_REAL8
|
|
|
|
FUNC_FUNC(min, fortran_real8, ompi_fortran_real8_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_REAL16
|
|
|
|
FUNC_FUNC(min, fortran_real16, ompi_fortran_real16_t)
|
|
|
|
#endif
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
/*************************************************************************
|
|
|
|
* Sum
|
|
|
|
*************************************************************************/
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
/* C integer */
|
|
|
|
OP_FUNC(sum, int, int, +=)
|
|
|
|
OP_FUNC(sum, long, long, +=)
|
|
|
|
OP_FUNC(sum, short, short, +=)
|
|
|
|
OP_FUNC(sum, unsigned_short, unsigned short, +=)
|
|
|
|
OP_FUNC(sum, unsigned, unsigned, +=)
|
|
|
|
OP_FUNC(sum, unsigned_long, unsigned long, +=)
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if HAVE_LONG_LONG
|
|
|
|
OP_FUNC(sum, long_long_int, long long int, +=)
|
|
|
|
OP_FUNC(sum, long_long, long long, +=)
|
|
|
|
OP_FUNC(sum, unsigned_long_long, unsigned long long, +=)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Fortran integer */
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER
|
|
|
|
OP_FUNC(sum, fortran_integer, ompi_fortran_integer_t, +=)
|
|
|
|
#endif
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER1
|
|
|
|
OP_FUNC(sum, fortran_integer1, ompi_fortran_integer1_t, +=)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER2
|
|
|
|
OP_FUNC(sum, fortran_integer2, ompi_fortran_integer2_t, +=)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER4
|
|
|
|
OP_FUNC(sum, fortran_integer4, ompi_fortran_integer4_t, +=)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER8
|
|
|
|
OP_FUNC(sum, fortran_integer8, ompi_fortran_integer8_t, +=)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER16
|
|
|
|
OP_FUNC(sum, fortran_integer16, ompi_fortran_integer16_t, +=)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Floating point */
|
|
|
|
OP_FUNC(sum, float, float, +=)
|
|
|
|
OP_FUNC(sum, double, double, +=)
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL
|
2004-06-29 04:02:25 +04:00
|
|
|
OP_FUNC(sum, fortran_real, ompi_fortran_real_t, +=)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_DOUBLE_PRECISION
|
|
|
|
OP_FUNC(sum, fortran_double_precision, ompi_fortran_double_precision_t, +=)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
OP_FUNC(sum, long_double, long double, +=)
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL4
|
|
|
|
OP_FUNC(sum, fortran_real4, ompi_fortran_real4_t, +=)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_REAL8
|
|
|
|
OP_FUNC(sum, fortran_real8, ompi_fortran_real8_t, +=)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_REAL16
|
|
|
|
OP_FUNC(sum, fortran_real16, ompi_fortran_real16_t, +=)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Complex */
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL && OMPI_HAVE_FORTRAN_COMPLEX
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
COMPLEX_OP_FUNC_SUM(fortran_complex, ompi_fortran_complex_t)
|
2005-10-12 17:19:46 +04:00
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_DOUBLE_PRECISION && OMPI_HAVE_FORTRAN_COMPLEX
|
2005-10-12 06:31:28 +04:00
|
|
|
COMPLEX_OP_FUNC_SUM(fortran_double_complex, ompi_fortran_double_complex_t)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_REAL4 && OMPI_HAVE_FORTRAN_COMPLEX8
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
COMPLEX_OP_FUNC_SUM(fortran_complex8, ompi_fortran_complex8_t)
|
|
|
|
#endif
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL8 && OMPI_HAVE_FORTRAN_COMPLEX16
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
COMPLEX_OP_FUNC_SUM(fortran_complex16, ompi_fortran_complex16_t)
|
|
|
|
#endif
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL16 && OMPI_HAVE_FORTRAN_COMPLEX32
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
COMPLEX_OP_FUNC_SUM(fortran_complex32, ompi_fortran_complex32_t)
|
|
|
|
#endif
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
/*************************************************************************
|
|
|
|
* Product
|
|
|
|
*************************************************************************/
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
/* C integer */
|
|
|
|
OP_FUNC(prod, int, int, *=)
|
|
|
|
OP_FUNC(prod, long, long, *=)
|
|
|
|
OP_FUNC(prod, short, short, *=)
|
|
|
|
OP_FUNC(prod, unsigned_short, unsigned short, *=)
|
|
|
|
OP_FUNC(prod, unsigned, unsigned, *=)
|
|
|
|
OP_FUNC(prod, unsigned_long, unsigned long, *=)
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if HAVE_LONG_LONG
|
|
|
|
OP_FUNC(prod, long_long_int, long long int, +=)
|
|
|
|
OP_FUNC(prod, long_long, long long, +=)
|
|
|
|
OP_FUNC(prod, unsigned_long_long, unsigned long long, +=)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Fortran integer */
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER
|
|
|
|
OP_FUNC(prod, fortran_integer, ompi_fortran_integer_t, *=)
|
|
|
|
#endif
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER1
|
|
|
|
OP_FUNC(prod, fortran_integer1, ompi_fortran_integer1_t, +=)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER2
|
|
|
|
OP_FUNC(prod, fortran_integer2, ompi_fortran_integer2_t, +=)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER4
|
|
|
|
OP_FUNC(prod, fortran_integer4, ompi_fortran_integer4_t, +=)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER8
|
|
|
|
OP_FUNC(prod, fortran_integer8, ompi_fortran_integer8_t, +=)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER16
|
|
|
|
OP_FUNC(prod, fortran_integer16, ompi_fortran_integer16_t, +=)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Floating point */
|
|
|
|
OP_FUNC(prod, float, float, *=)
|
|
|
|
OP_FUNC(prod, double, double, *=)
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL
|
2004-06-29 04:02:25 +04:00
|
|
|
OP_FUNC(prod, fortran_real, ompi_fortran_real_t, *=)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_DOUBLE_PRECISION
|
|
|
|
OP_FUNC(prod, fortran_double_precision, ompi_fortran_double_precision_t, *=)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
OP_FUNC(prod, long_double, long double, *=)
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL4
|
|
|
|
OP_FUNC(prod, fortran_real4, ompi_fortran_real4_t, +=)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_REAL8
|
|
|
|
OP_FUNC(prod, fortran_real8, ompi_fortran_real8_t, +=)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_REAL16
|
|
|
|
OP_FUNC(prod, fortran_real16, ompi_fortran_real16_t, +=)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Complex */
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL && OMPI_HAVE_FORTRAN_COMPLEX
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
COMPLEX_OP_FUNC_PROD(fortran_complex, ompi_fortran_complex_t)
|
2005-10-12 17:19:46 +04:00
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_DOUBLE_PRECISION && OMPI_HAVE_FORTRAN_COMPLEX
|
2005-10-12 06:31:28 +04:00
|
|
|
COMPLEX_OP_FUNC_PROD(fortran_double_complex, ompi_fortran_double_complex_t)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_REAL4 && OMPI_HAVE_FORTRAN_COMPLEX8
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
COMPLEX_OP_FUNC_PROD(fortran_complex8, ompi_fortran_complex8_t)
|
|
|
|
#endif
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL8 && OMPI_HAVE_FORTRAN_COMPLEX16
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
COMPLEX_OP_FUNC_PROD(fortran_complex16, ompi_fortran_complex16_t)
|
|
|
|
#endif
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL16 && OMPI_HAVE_FORTRAN_COMPLEX32
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
COMPLEX_OP_FUNC_PROD(fortran_complex32, ompi_fortran_complex32_t)
|
|
|
|
#endif
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
/*************************************************************************
|
|
|
|
* Logical AND
|
|
|
|
*************************************************************************/
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
#undef current_func
|
|
|
|
#define current_func(a, b) ((a) && (b))
|
|
|
|
/* C integer */
|
|
|
|
FUNC_FUNC(land, int, int)
|
|
|
|
FUNC_FUNC(land, long, long)
|
|
|
|
FUNC_FUNC(land, short, short)
|
|
|
|
FUNC_FUNC(land, unsigned_short, unsigned short)
|
|
|
|
FUNC_FUNC(land, unsigned, unsigned)
|
|
|
|
FUNC_FUNC(land, unsigned_long, unsigned long)
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if HAVE_LONG_LONG
|
|
|
|
FUNC_FUNC(land, long_long_int, long long int)
|
|
|
|
FUNC_FUNC(land, long_long, long long)
|
|
|
|
FUNC_FUNC(land, unsigned_long_long, unsigned long long)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Logical */
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_LOGICAL
|
2004-06-29 04:02:25 +04:00
|
|
|
FUNC_FUNC(land, fortran_logical, ompi_fortran_logical_t)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
/*************************************************************************
|
|
|
|
* Logical OR
|
|
|
|
*************************************************************************/
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
#undef current_func
|
|
|
|
#define current_func(a, b) ((a) || (b))
|
|
|
|
/* C integer */
|
|
|
|
FUNC_FUNC(lor, int, int)
|
|
|
|
FUNC_FUNC(lor, long, long)
|
|
|
|
FUNC_FUNC(lor, short, short)
|
|
|
|
FUNC_FUNC(lor, unsigned_short, unsigned short)
|
|
|
|
FUNC_FUNC(lor, unsigned, unsigned)
|
|
|
|
FUNC_FUNC(lor, unsigned_long, unsigned long)
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if HAVE_LONG_LONG
|
|
|
|
FUNC_FUNC(lor, long_long_int, long long int)
|
|
|
|
FUNC_FUNC(lor, long_long, long long)
|
|
|
|
FUNC_FUNC(lor, unsigned_long_long, unsigned long long)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Logical */
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_LOGICAL
|
2004-06-29 04:02:25 +04:00
|
|
|
FUNC_FUNC(lor, fortran_logical, ompi_fortran_logical_t)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
/*************************************************************************
|
|
|
|
* Logical XOR
|
|
|
|
*************************************************************************/
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
#undef current_func
|
2004-07-14 23:16:13 +04:00
|
|
|
#define current_func(a, b) ((a ? 1 : 0) ^ (b ? 1: 0))
|
2004-06-29 04:02:25 +04:00
|
|
|
/* C integer */
|
|
|
|
FUNC_FUNC(lxor, int, int)
|
|
|
|
FUNC_FUNC(lxor, long, long)
|
|
|
|
FUNC_FUNC(lxor, short, short)
|
|
|
|
FUNC_FUNC(lxor, unsigned_short, unsigned short)
|
|
|
|
FUNC_FUNC(lxor, unsigned, unsigned)
|
|
|
|
FUNC_FUNC(lxor, unsigned_long, unsigned long)
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if HAVE_LONG_LONG
|
|
|
|
FUNC_FUNC(lxor, long_long_int, long long int)
|
|
|
|
FUNC_FUNC(lxor, long_long, long long)
|
|
|
|
FUNC_FUNC(lxor, unsigned_long_long, unsigned long long)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Logical */
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_LOGICAL
|
2004-06-29 04:02:25 +04:00
|
|
|
FUNC_FUNC(lxor, fortran_logical, ompi_fortran_logical_t)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
/*************************************************************************
|
|
|
|
* Bitwise AND
|
|
|
|
*************************************************************************/
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
#undef current_func
|
|
|
|
#define current_func(a, b) ((a) & (b))
|
|
|
|
/* C integer */
|
|
|
|
FUNC_FUNC(band, int, int)
|
|
|
|
FUNC_FUNC(band, long, long)
|
|
|
|
FUNC_FUNC(band, short, short)
|
|
|
|
FUNC_FUNC(band, unsigned_short, unsigned short)
|
|
|
|
FUNC_FUNC(band, unsigned, unsigned)
|
|
|
|
FUNC_FUNC(band, unsigned_long, unsigned long)
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if HAVE_LONG_LONG
|
|
|
|
FUNC_FUNC(band, long_long_int, long long int)
|
|
|
|
FUNC_FUNC(band, long_long, long long)
|
|
|
|
FUNC_FUNC(band, unsigned_long_long, unsigned long long)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Fortran integer */
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER
|
|
|
|
FUNC_FUNC(band, fortran_integer, ompi_fortran_integer_t)
|
|
|
|
#endif
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER1
|
|
|
|
FUNC_FUNC(band, fortran_integer1, ompi_fortran_integer1_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER2
|
|
|
|
FUNC_FUNC(band, fortran_integer2, ompi_fortran_integer2_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER4
|
|
|
|
FUNC_FUNC(band, fortran_integer4, ompi_fortran_integer4_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER8
|
|
|
|
FUNC_FUNC(band, fortran_integer8, ompi_fortran_integer8_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER16
|
|
|
|
FUNC_FUNC(band, fortran_integer16, ompi_fortran_integer16_t)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Byte */
|
|
|
|
FUNC_FUNC(band, byte, char)
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
/*************************************************************************
|
|
|
|
* Bitwise OR
|
|
|
|
*************************************************************************/
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
#undef current_func
|
|
|
|
#define current_func(a, b) ((a) | (b))
|
|
|
|
/* C integer */
|
|
|
|
FUNC_FUNC(bor, int, int)
|
|
|
|
FUNC_FUNC(bor, long, long)
|
|
|
|
FUNC_FUNC(bor, short, short)
|
|
|
|
FUNC_FUNC(bor, unsigned_short, unsigned short)
|
|
|
|
FUNC_FUNC(bor, unsigned, unsigned)
|
|
|
|
FUNC_FUNC(bor, unsigned_long, unsigned long)
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if HAVE_LONG_LONG
|
|
|
|
FUNC_FUNC(bor, long_long_int, long long int)
|
|
|
|
FUNC_FUNC(bor, long_long, long long)
|
|
|
|
FUNC_FUNC(bor, unsigned_long_long, unsigned long long)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Fortran integer */
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER
|
|
|
|
FUNC_FUNC(bor, fortran_integer, ompi_fortran_integer_t)
|
|
|
|
#endif
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER1
|
|
|
|
FUNC_FUNC(bor, fortran_integer1, ompi_fortran_integer1_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER2
|
|
|
|
FUNC_FUNC(bor, fortran_integer2, ompi_fortran_integer2_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER4
|
|
|
|
FUNC_FUNC(bor, fortran_integer4, ompi_fortran_integer4_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER8
|
|
|
|
FUNC_FUNC(bor, fortran_integer8, ompi_fortran_integer8_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER16
|
|
|
|
FUNC_FUNC(bor, fortran_integer16, ompi_fortran_integer16_t)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Byte */
|
|
|
|
FUNC_FUNC(bor, byte, char)
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
/*************************************************************************
|
|
|
|
* Bitwise XOR
|
|
|
|
*************************************************************************/
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-06-29 04:02:25 +04:00
|
|
|
#undef current_func
|
|
|
|
#define current_func(a, b) ((a) ^ (b))
|
|
|
|
/* C integer */
|
|
|
|
FUNC_FUNC(bxor, int, int)
|
|
|
|
FUNC_FUNC(bxor, long, long)
|
|
|
|
FUNC_FUNC(bxor, short, short)
|
|
|
|
FUNC_FUNC(bxor, unsigned_short, unsigned short)
|
|
|
|
FUNC_FUNC(bxor, unsigned, unsigned)
|
|
|
|
FUNC_FUNC(bxor, unsigned_long, unsigned long)
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if HAVE_LONG_LONG
|
|
|
|
FUNC_FUNC(bxor, long_long_int, long long int)
|
|
|
|
FUNC_FUNC(bxor, long_long, long long)
|
|
|
|
FUNC_FUNC(bxor, unsigned_long_long, unsigned long long)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Fortran integer */
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER
|
|
|
|
FUNC_FUNC(bxor, fortran_integer, ompi_fortran_integer_t)
|
|
|
|
#endif
|
A bunch of changes to support MPI_INTEGER*x, MPI_REAL*x,
MPI_COMPLEX*x, and some optional C datatypes in MPI reduction
operations. These types are not technically supported by the letter
of the MPI standard, but are implied by the spirit of it (and there
are definitely users that use them in real applications)
- Add checks in configure for back-end C types for MPI_INTEGER*x and
MPI_REAL*x
- Create C data structs for MPI_COMPLEX*x
- Fixed typo for MPI_INTEGER8 in mpi.h
- Updated configure macros to create MPI_FORTRAN_INTEGER* defines, as
opposed to MPI_FORTRAN_INT, which was causing [me] lots of confusion
(between C "*_INT" names and Fortran "*_INT" names). This caused
some trivial updates in ddt, ompi_info, and the MPI layer to match.
- Update ompi_info to show whether we have each MPI_INTEGER*x,
MPI_REAL*x, and MPI_COMPLEX*x
- Extended reduction operations for optional datatypes:
- "C integer" now includes long long int, long long, and unsigned
long long
- "Fortran integer" now includes MPI_INTEGER*x
- "Floating point" now includes MPI_REAL*x
- "Complex" now includes MPI_COMPLEX*x
This commit was SVN r5511.
2005-04-27 14:23:06 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER1
|
|
|
|
FUNC_FUNC(bxor, fortran_integer1, ompi_fortran_integer1_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER2
|
|
|
|
FUNC_FUNC(bxor, fortran_integer2, ompi_fortran_integer2_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER4
|
|
|
|
FUNC_FUNC(bxor, fortran_integer4, ompi_fortran_integer4_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER8
|
|
|
|
FUNC_FUNC(bxor, fortran_integer8, ompi_fortran_integer8_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER16
|
|
|
|
FUNC_FUNC(bxor, fortran_integer16, ompi_fortran_integer16_t)
|
|
|
|
#endif
|
2004-06-29 04:02:25 +04:00
|
|
|
/* Byte */
|
|
|
|
FUNC_FUNC(bxor, byte, char)
|
2004-04-21 02:37:46 +04:00
|
|
|
|
2004-07-13 19:20:46 +04:00
|
|
|
/*************************************************************************
|
|
|
|
* Min and max location "pair" datatypes
|
|
|
|
*************************************************************************/
|
|
|
|
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL
|
2004-07-13 19:20:46 +04:00
|
|
|
LOC_STRUCT(2real, ompi_fortran_real_t, ompi_fortran_real_t)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_DOUBLE_PRECISION
|
|
|
|
LOC_STRUCT(2double_precision, ompi_fortran_double_precision_t, ompi_fortran_double_precision_t)
|
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER
|
2004-07-13 19:20:46 +04:00
|
|
|
LOC_STRUCT(2integer, ompi_fortran_integer_t, ompi_fortran_integer_t)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
2004-07-13 19:20:46 +04:00
|
|
|
LOC_STRUCT(float_int, float, int)
|
|
|
|
LOC_STRUCT(double_int, double, int)
|
|
|
|
LOC_STRUCT(long_int, long, int)
|
|
|
|
LOC_STRUCT(2int, int, int)
|
2004-09-30 01:08:29 +04:00
|
|
|
LOC_STRUCT(short_int, short, int)
|
2004-07-13 19:20:46 +04:00
|
|
|
LOC_STRUCT(long_double_int, long double, int)
|
|
|
|
|
|
|
|
/*************************************************************************
|
|
|
|
* Max location
|
|
|
|
*************************************************************************/
|
|
|
|
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL
|
2004-07-13 19:20:46 +04:00
|
|
|
LOC_FUNC(maxloc, 2real, >)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_DOUBLE_PRECISION
|
2004-07-13 19:20:46 +04:00
|
|
|
LOC_FUNC(maxloc, 2double_precision, >)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER
|
2004-07-13 19:20:46 +04:00
|
|
|
LOC_FUNC(maxloc, 2integer, >)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
2004-07-13 19:20:46 +04:00
|
|
|
LOC_FUNC(maxloc, float_int, >)
|
|
|
|
LOC_FUNC(maxloc, double_int, >)
|
|
|
|
LOC_FUNC(maxloc, long_int, >)
|
|
|
|
LOC_FUNC(maxloc, 2int, >)
|
|
|
|
LOC_FUNC(maxloc, short_int, >)
|
|
|
|
LOC_FUNC(maxloc, long_double_int, >)
|
|
|
|
|
|
|
|
/*************************************************************************
|
|
|
|
* Min location
|
|
|
|
*************************************************************************/
|
|
|
|
|
2005-05-20 03:56:02 +04:00
|
|
|
#if OMPI_HAVE_FORTRAN_REAL
|
2004-07-13 19:20:46 +04:00
|
|
|
LOC_FUNC(minloc, 2real, <)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_DOUBLE_PRECISION
|
2004-07-13 19:20:46 +04:00
|
|
|
LOC_FUNC(minloc, 2double_precision, <)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
|
|
|
#if OMPI_HAVE_FORTRAN_INTEGER
|
2004-07-13 19:20:46 +04:00
|
|
|
LOC_FUNC(minloc, 2integer, <)
|
2005-05-20 03:56:02 +04:00
|
|
|
#endif
|
2004-07-13 19:20:46 +04:00
|
|
|
LOC_FUNC(minloc, float_int, <)
|
|
|
|
LOC_FUNC(minloc, double_int, <)
|
|
|
|
LOC_FUNC(minloc, long_int, <)
|
|
|
|
LOC_FUNC(minloc, 2int, <)
|
|
|
|
LOC_FUNC(minloc, short_int, <)
|
|
|
|
LOC_FUNC(minloc, long_double_int, <)
|