df7654e8cf
(http://www.open-mpi.org/community/lists/devel/2013/09/12889.php), I renamed all "f77" and "f90" directory/file names to "fortran" (including removing shmemf77 / shmemf90 wrapper compilers and replacing them with "shmemfort"). 2. Fixed several Fortran coding errors. 3. Removed lots of old/stale comments that were clearly the result of copying from the OMPI layer and then not cleaning up afterwards (i.e., the comments were wholly inaccurate in the oshmem layer). 4. Removed both redundant and harmful code from oshmem_config.h.in. 5. Temporarily slave building the oshmem Fortran bindings to --enable-mpi-fortran. This doesn't seem like a good long-term solution, but at least you can now build all Fortran bindings (MPI + oshmem) or not. *** SEE MY NOTE IN config/oshmem_configure_options.m4 FOR WORK THAT STILL NEEDS TO BE DONE! This commit was SVN r29165.
402 строки
17 KiB
C
402 строки
17 KiB
C
/*
|
|
* Copyright (c) 2013 Mellanox Technologies, Inc.
|
|
* All rights reserved.
|
|
* Copyright (c) 2013 Cisco Systems, Inc. All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#include "oshmem_config.h"
|
|
#include <complex.h>
|
|
|
|
#include "orte/runtime/orte_globals.h"
|
|
|
|
#include "opal/datatype/opal_datatype_internal.h"
|
|
#include "opal/class/opal_pointer_array.h"
|
|
|
|
#include "oshmem/constants.h"
|
|
#include "oshmem/op/op.h"
|
|
|
|
/*
|
|
* Table for op handle conversion
|
|
*/
|
|
opal_pointer_array_t oshmem_op_array;
|
|
|
|
/*
|
|
* Class information
|
|
*/
|
|
static void oshmem_op_construct(oshmem_op_t *object);
|
|
static void oshmem_op_destruct(oshmem_op_t *object);
|
|
|
|
/*
|
|
* Class instance
|
|
*/
|
|
OBJ_CLASS_INSTANCE(oshmem_op_t,
|
|
opal_object_t,
|
|
oshmem_op_construct,
|
|
oshmem_op_destruct);
|
|
|
|
/*
|
|
* Intrinsic Operation objects
|
|
*/
|
|
/* Bitwise AND */
|
|
oshmem_op_t* oshmem_op_and_short = NULL;
|
|
oshmem_op_t* oshmem_op_and_int = NULL;
|
|
oshmem_op_t* oshmem_op_and_long = NULL;
|
|
oshmem_op_t* oshmem_op_and_longlong = NULL;
|
|
oshmem_op_t* oshmem_op_and_fint4 = NULL;
|
|
oshmem_op_t* oshmem_op_and_fint8 = NULL;
|
|
|
|
/* Bitwise OR */
|
|
oshmem_op_t* oshmem_op_or_short = NULL;
|
|
oshmem_op_t* oshmem_op_or_int = NULL;
|
|
oshmem_op_t* oshmem_op_or_long = NULL;
|
|
oshmem_op_t* oshmem_op_or_longlong = NULL;
|
|
oshmem_op_t* oshmem_op_or_fint4 = NULL;
|
|
oshmem_op_t* oshmem_op_or_fint8 = NULL;
|
|
|
|
/* Bitwise XOR */
|
|
oshmem_op_t* oshmem_op_xor_short = NULL;
|
|
oshmem_op_t* oshmem_op_xor_int = NULL;
|
|
oshmem_op_t* oshmem_op_xor_long = NULL;
|
|
oshmem_op_t* oshmem_op_xor_longlong = NULL;
|
|
oshmem_op_t* oshmem_op_xor_fint4 = NULL;
|
|
oshmem_op_t* oshmem_op_xor_fint8 = NULL;
|
|
|
|
/* MAX */
|
|
oshmem_op_t* oshmem_op_max_short = NULL;
|
|
oshmem_op_t* oshmem_op_max_int = NULL;
|
|
oshmem_op_t* oshmem_op_max_long = NULL;
|
|
oshmem_op_t* oshmem_op_max_longlong = NULL;
|
|
oshmem_op_t* oshmem_op_max_float = NULL;
|
|
oshmem_op_t* oshmem_op_max_double = NULL;
|
|
oshmem_op_t* oshmem_op_max_longdouble = NULL;
|
|
oshmem_op_t* oshmem_op_max_fint4 = NULL;
|
|
oshmem_op_t* oshmem_op_max_fint8 = NULL;
|
|
oshmem_op_t* oshmem_op_max_freal4 = NULL;
|
|
oshmem_op_t* oshmem_op_max_freal8 = NULL;
|
|
oshmem_op_t* oshmem_op_max_freal16 = NULL;
|
|
|
|
/* MIN */
|
|
oshmem_op_t* oshmem_op_min_short = NULL;
|
|
oshmem_op_t* oshmem_op_min_int = NULL;
|
|
oshmem_op_t* oshmem_op_min_long = NULL;
|
|
oshmem_op_t* oshmem_op_min_longlong = NULL;
|
|
oshmem_op_t* oshmem_op_min_float = NULL;
|
|
oshmem_op_t* oshmem_op_min_double = NULL;
|
|
oshmem_op_t* oshmem_op_min_longdouble = NULL;
|
|
oshmem_op_t* oshmem_op_min_fint4 = NULL;
|
|
oshmem_op_t* oshmem_op_min_fint8 = NULL;
|
|
oshmem_op_t* oshmem_op_min_freal4 = NULL;
|
|
oshmem_op_t* oshmem_op_min_freal8 = NULL;
|
|
oshmem_op_t* oshmem_op_min_freal16 = NULL;
|
|
|
|
/* SUM */
|
|
oshmem_op_t* oshmem_op_sum_short = NULL;
|
|
oshmem_op_t* oshmem_op_sum_int = NULL;
|
|
oshmem_op_t* oshmem_op_sum_long = NULL;
|
|
oshmem_op_t* oshmem_op_sum_longlong = NULL;
|
|
oshmem_op_t* oshmem_op_sum_float = NULL;
|
|
oshmem_op_t* oshmem_op_sum_double = NULL;
|
|
oshmem_op_t* oshmem_op_sum_longdouble = NULL;
|
|
oshmem_op_t* oshmem_op_sum_complexf = NULL;
|
|
oshmem_op_t* oshmem_op_sum_complexd = NULL;
|
|
oshmem_op_t* oshmem_op_sum_fint4 = NULL;
|
|
oshmem_op_t* oshmem_op_sum_fint8 = NULL;
|
|
oshmem_op_t* oshmem_op_sum_freal4 = NULL;
|
|
oshmem_op_t* oshmem_op_sum_freal8 = NULL;
|
|
oshmem_op_t* oshmem_op_sum_freal16 = NULL;
|
|
|
|
/* PROD */
|
|
oshmem_op_t* oshmem_op_prod_short = NULL;
|
|
oshmem_op_t* oshmem_op_prod_int = NULL;
|
|
oshmem_op_t* oshmem_op_prod_long = NULL;
|
|
oshmem_op_t* oshmem_op_prod_longlong = NULL;
|
|
oshmem_op_t* oshmem_op_prod_float = NULL;
|
|
oshmem_op_t* oshmem_op_prod_double = NULL;
|
|
oshmem_op_t* oshmem_op_prod_longdouble = NULL;
|
|
oshmem_op_t* oshmem_op_prod_complexf = NULL;
|
|
oshmem_op_t* oshmem_op_prod_complexd = NULL;
|
|
oshmem_op_t* oshmem_op_prod_fint4 = NULL;
|
|
oshmem_op_t* oshmem_op_prod_fint8 = NULL;
|
|
oshmem_op_t* oshmem_op_prod_freal4 = NULL;
|
|
oshmem_op_t* oshmem_op_prod_freal8 = NULL;
|
|
oshmem_op_t* oshmem_op_prod_freal16 = NULL;
|
|
|
|
#define FUNC_OP_CREATE(name, type_name, type, calc) \
|
|
void oshmem_op_##name##_##type_name##_func(void *in, void *out, int count); \
|
|
void oshmem_op_##name##_##type_name##_func(void *in, void *out, int count) \
|
|
{ \
|
|
int i; \
|
|
type *a = (type *) in; \
|
|
type *b = (type *) out; \
|
|
for (i = 0; i < count; ++i) { \
|
|
*(b) = calc(*(b), *(a)); \
|
|
++b; \
|
|
++a; \
|
|
} \
|
|
}
|
|
|
|
#define OBJ_OP_CREATE(name, type_name, type, op_id, dt_id) \
|
|
oshmem_op_##name##_##type_name = OBJ_NEW(oshmem_op_t); \
|
|
if (oshmem_op_##name##_##type_name) \
|
|
{ \
|
|
oshmem_op_##name##_##type_name->op = op_id; \
|
|
oshmem_op_##name##_##type_name->dt = dt_id; \
|
|
oshmem_op_##name##_##type_name->dt_size = sizeof(type); \
|
|
oshmem_op_##name##_##type_name->o_func.c_fn = oshmem_op_##name##_##type_name##_func; \
|
|
} \
|
|
|
|
/* Bitwise AND */
|
|
#define __and_op(a, b) ((a) & (b))
|
|
FUNC_OP_CREATE(and, short, short, __and_op);
|
|
FUNC_OP_CREATE(and, int, int, __and_op);
|
|
FUNC_OP_CREATE(and, long, long, __and_op);
|
|
FUNC_OP_CREATE(and, longlong, long long, __and_op);
|
|
FUNC_OP_CREATE(and, fint4, ompi_fortran_integer4_t, __and_op);
|
|
FUNC_OP_CREATE(and, fint8, ompi_fortran_integer8_t, __and_op);
|
|
|
|
/* Bitwise OR */
|
|
#define __or_op(a, b) ((a) | (b))
|
|
FUNC_OP_CREATE(or, short, short, __or_op);
|
|
FUNC_OP_CREATE(or, int, int, __or_op);
|
|
FUNC_OP_CREATE(or, long, long, __or_op);
|
|
FUNC_OP_CREATE(or, longlong, long long, __or_op);
|
|
FUNC_OP_CREATE(or, fint4, ompi_fortran_integer4_t, __or_op);
|
|
FUNC_OP_CREATE(or, fint8, ompi_fortran_integer8_t, __or_op);
|
|
|
|
/* Bitwise XOR */
|
|
#define __xor_op(a, b) ((a) ^ (b))
|
|
FUNC_OP_CREATE(xor, short, short, __xor_op);
|
|
FUNC_OP_CREATE(xor, int, int, __xor_op);
|
|
FUNC_OP_CREATE(xor, long, long, __xor_op);
|
|
FUNC_OP_CREATE(xor, longlong, long long, __xor_op);
|
|
FUNC_OP_CREATE(xor, fint4, ompi_fortran_integer4_t, __xor_op);
|
|
FUNC_OP_CREATE(xor, fint8, ompi_fortran_integer8_t, __xor_op);
|
|
|
|
/* MAX */
|
|
#define __max_op(a, b) ((a) > (b) ? (a) : (b))
|
|
FUNC_OP_CREATE(max, short, short, __max_op);
|
|
FUNC_OP_CREATE(max, int, int, __max_op);
|
|
FUNC_OP_CREATE(max, long, long, __max_op);
|
|
FUNC_OP_CREATE(max, longlong, long long, __max_op);
|
|
FUNC_OP_CREATE(max, float, float, __max_op);
|
|
FUNC_OP_CREATE(max, double, double, __max_op);
|
|
FUNC_OP_CREATE(max, longdouble, long double, __max_op);
|
|
FUNC_OP_CREATE(max, fint4, ompi_fortran_integer4_t, __max_op);
|
|
FUNC_OP_CREATE(max, fint8, ompi_fortran_integer8_t, __max_op);
|
|
FUNC_OP_CREATE(max, freal4, ompi_fortran_real4_t, __max_op);
|
|
FUNC_OP_CREATE(max, freal8, ompi_fortran_real8_t, __max_op);
|
|
#if defined(ompi_fortran_real16_t)
|
|
FUNC_OP_CREATE(max, freal16, ompi_fortran_real16_t, __max_op);
|
|
#endif
|
|
|
|
/* MIN */
|
|
#define __min_op(a, b) ((a) < (b) ? (a) : (b))
|
|
FUNC_OP_CREATE(min, short, short, __min_op);
|
|
FUNC_OP_CREATE(min, int, int, __min_op);
|
|
FUNC_OP_CREATE(min, long, long, __min_op);
|
|
FUNC_OP_CREATE(min, longlong, long long, __min_op);
|
|
FUNC_OP_CREATE(min, float, float, __min_op);
|
|
FUNC_OP_CREATE(min, double, double, __min_op);
|
|
FUNC_OP_CREATE(min, longdouble, long double, __min_op);
|
|
FUNC_OP_CREATE(min, fint4, ompi_fortran_integer4_t, __min_op);
|
|
FUNC_OP_CREATE(min, fint8, ompi_fortran_integer8_t, __min_op);
|
|
FUNC_OP_CREATE(min, freal4, ompi_fortran_real4_t, __min_op);
|
|
FUNC_OP_CREATE(min, freal8, ompi_fortran_real8_t, __min_op);
|
|
#if defined(ompi_fortran_real16_t)
|
|
FUNC_OP_CREATE(min, freal16, ompi_fortran_real16_t, __min_op);
|
|
#endif
|
|
|
|
/* SUM */
|
|
#define __sum_op(a, b) ((a) + (b))
|
|
FUNC_OP_CREATE(sum, short, short, __sum_op);
|
|
FUNC_OP_CREATE(sum, int, int, __sum_op);
|
|
FUNC_OP_CREATE(sum, long, long, __sum_op);
|
|
FUNC_OP_CREATE(sum, longlong, long long, __sum_op);
|
|
FUNC_OP_CREATE(sum, float, float, __sum_op);
|
|
FUNC_OP_CREATE(sum, double, double, __sum_op);
|
|
FUNC_OP_CREATE(sum, longdouble, long double, __sum_op);
|
|
FUNC_OP_CREATE(sum, complexf, float complex, __sum_op);
|
|
FUNC_OP_CREATE(sum, complexd, double complex, __sum_op);
|
|
FUNC_OP_CREATE(sum, fint4, ompi_fortran_integer4_t, __sum_op);
|
|
FUNC_OP_CREATE(sum, fint8, ompi_fortran_integer8_t, __sum_op);
|
|
FUNC_OP_CREATE(sum, freal4, ompi_fortran_real4_t, __sum_op);
|
|
FUNC_OP_CREATE(sum, freal8, ompi_fortran_real8_t, __sum_op);
|
|
#if defined(ompi_fortran_real16_t)
|
|
FUNC_OP_CREATE(sum, freal16, ompi_fortran_real16_t, __sum_op);
|
|
#endif
|
|
|
|
/* PROD */
|
|
#define __prod_op(a, b) ((a) * (b))
|
|
FUNC_OP_CREATE(prod, short, short, __prod_op);
|
|
FUNC_OP_CREATE(prod, int, int, __prod_op);
|
|
FUNC_OP_CREATE(prod, long, long, __prod_op);
|
|
FUNC_OP_CREATE(prod, longlong, long long, __prod_op);
|
|
FUNC_OP_CREATE(prod, float, float, __prod_op);
|
|
FUNC_OP_CREATE(prod, double, double, __prod_op);
|
|
FUNC_OP_CREATE(prod, longdouble, long double, __prod_op);
|
|
FUNC_OP_CREATE(prod, complexf, float complex, __prod_op);
|
|
FUNC_OP_CREATE(prod, complexd, double complex, __prod_op);
|
|
FUNC_OP_CREATE(prod, fint4, ompi_fortran_integer4_t, __prod_op);
|
|
FUNC_OP_CREATE(prod, fint8, ompi_fortran_integer8_t, __prod_op);
|
|
FUNC_OP_CREATE(prod, freal4, ompi_fortran_real4_t, __prod_op);
|
|
FUNC_OP_CREATE(prod, freal8, ompi_fortran_real8_t, __prod_op);
|
|
#if defined(ompi_fortran_real16_t)
|
|
FUNC_OP_CREATE(prod, freal16, ompi_fortran_real16_t, __prod_op);
|
|
#endif
|
|
|
|
int oshmem_op_init(void)
|
|
{
|
|
|
|
/* Setup operation array */
|
|
OBJ_CONSTRUCT(&oshmem_op_array, opal_pointer_array_t);
|
|
if (OPAL_SUCCESS
|
|
!= opal_pointer_array_init(&oshmem_op_array,
|
|
0,
|
|
ORTE_GLOBAL_ARRAY_MAX_SIZE,
|
|
1)) {
|
|
return OSHMEM_ERROR;
|
|
}
|
|
|
|
/* Bitwise AND */
|
|
OBJ_OP_CREATE(and, short, short, OSHMEM_OP_AND, OSHMEM_OP_TYPE_SHORT);
|
|
OBJ_OP_CREATE(and, int, int, OSHMEM_OP_AND, OSHMEM_OP_TYPE_INT);
|
|
OBJ_OP_CREATE(and, long, long, OSHMEM_OP_AND, OSHMEM_OP_TYPE_LONG);
|
|
OBJ_OP_CREATE(and, longlong, long long, OSHMEM_OP_AND, OSHMEM_OP_TYPE_LLONG);
|
|
OBJ_OP_CREATE(and, fint4, ompi_fortran_integer4_t, OSHMEM_OP_AND, OSHMEM_OP_TYPE_FINT4);
|
|
OBJ_OP_CREATE(and, fint8, ompi_fortran_integer8_t, OSHMEM_OP_AND, OSHMEM_OP_TYPE_FINT8);
|
|
|
|
/* Bitwise OR */
|
|
OBJ_OP_CREATE(or, short, short, OSHMEM_OP_OR, OSHMEM_OP_TYPE_SHORT);
|
|
OBJ_OP_CREATE(or, int, int, OSHMEM_OP_OR, OSHMEM_OP_TYPE_INT);
|
|
OBJ_OP_CREATE(or, long, long, OSHMEM_OP_OR, OSHMEM_OP_TYPE_LONG);
|
|
OBJ_OP_CREATE(or, longlong, long long, OSHMEM_OP_OR, OSHMEM_OP_TYPE_LLONG);
|
|
OBJ_OP_CREATE(or, fint4, ompi_fortran_integer4_t, OSHMEM_OP_OR, OSHMEM_OP_TYPE_FINT4);
|
|
OBJ_OP_CREATE(or, fint8, ompi_fortran_integer8_t, OSHMEM_OP_OR, OSHMEM_OP_TYPE_FINT8);
|
|
|
|
/* Bitwise XOR */
|
|
OBJ_OP_CREATE(xor, short, short, OSHMEM_OP_XOR, OSHMEM_OP_TYPE_SHORT);
|
|
OBJ_OP_CREATE(xor, int, int, OSHMEM_OP_XOR, OSHMEM_OP_TYPE_INT);
|
|
OBJ_OP_CREATE(xor, long, long, OSHMEM_OP_XOR, OSHMEM_OP_TYPE_LONG);
|
|
OBJ_OP_CREATE(xor, longlong, long long, OSHMEM_OP_XOR, OSHMEM_OP_TYPE_LLONG);
|
|
OBJ_OP_CREATE(xor, fint4, ompi_fortran_integer4_t, OSHMEM_OP_XOR, OSHMEM_OP_TYPE_FINT4);
|
|
OBJ_OP_CREATE(xor, fint8, ompi_fortran_integer8_t, OSHMEM_OP_XOR, OSHMEM_OP_TYPE_FINT8);
|
|
|
|
/* MAX */
|
|
OBJ_OP_CREATE(max, short, short, OSHMEM_OP_MAX, OSHMEM_OP_TYPE_SHORT);
|
|
OBJ_OP_CREATE(max, int, int, OSHMEM_OP_MAX, OSHMEM_OP_TYPE_INT);
|
|
OBJ_OP_CREATE(max, long, long, OSHMEM_OP_MAX, OSHMEM_OP_TYPE_LONG);
|
|
OBJ_OP_CREATE(max, longlong, long long, OSHMEM_OP_MAX, OSHMEM_OP_TYPE_LLONG);
|
|
OBJ_OP_CREATE(max, float, float, OSHMEM_OP_MAX, OSHMEM_OP_TYPE_FLOAT);
|
|
OBJ_OP_CREATE(max, double, double, OSHMEM_OP_MAX, OSHMEM_OP_TYPE_DOUBLE);
|
|
OBJ_OP_CREATE(max, longdouble, long double, OSHMEM_OP_MAX, OSHMEM_OP_TYPE_LDOUBLE);
|
|
OBJ_OP_CREATE(max, fint4, ompi_fortran_integer4_t, OSHMEM_OP_MAX, OSHMEM_OP_TYPE_FINT4);
|
|
OBJ_OP_CREATE(max, fint8, ompi_fortran_integer8_t, OSHMEM_OP_MAX, OSHMEM_OP_TYPE_FINT8);
|
|
OBJ_OP_CREATE(max, freal4, ompi_fortran_real4_t, OSHMEM_OP_MAX, OSHMEM_OP_TYPE_FREAL4);
|
|
OBJ_OP_CREATE(max, freal8, ompi_fortran_real8_t, OSHMEM_OP_MAX, OSHMEM_OP_TYPE_FREAL8);
|
|
#if defined(ompi_fortran_real16_t)
|
|
OBJ_OP_CREATE(max, freal16, ompi_fortran_real16_t, OSHMEM_OP_MAX, OSHMEM_OP_TYPE_FREAL16);
|
|
#endif
|
|
|
|
/* MIN */
|
|
OBJ_OP_CREATE(min, short, short, OSHMEM_OP_MIN, OSHMEM_OP_TYPE_SHORT);
|
|
OBJ_OP_CREATE(min, int, int, OSHMEM_OP_MIN, OSHMEM_OP_TYPE_INT);
|
|
OBJ_OP_CREATE(min, long, long, OSHMEM_OP_MIN, OSHMEM_OP_TYPE_LONG);
|
|
OBJ_OP_CREATE(min, longlong, long long, OSHMEM_OP_MIN, OSHMEM_OP_TYPE_LLONG);
|
|
OBJ_OP_CREATE(min, float, float, OSHMEM_OP_MIN, OSHMEM_OP_TYPE_FLOAT);
|
|
OBJ_OP_CREATE(min, double, double, OSHMEM_OP_MIN, OSHMEM_OP_TYPE_DOUBLE);
|
|
OBJ_OP_CREATE(min, longdouble, long double, OSHMEM_OP_MIN, OSHMEM_OP_TYPE_LDOUBLE);
|
|
OBJ_OP_CREATE(min, fint4, ompi_fortran_integer4_t, OSHMEM_OP_MIN, OSHMEM_OP_TYPE_FINT4);
|
|
OBJ_OP_CREATE(min, fint8, ompi_fortran_integer8_t, OSHMEM_OP_MIN, OSHMEM_OP_TYPE_FINT8);
|
|
OBJ_OP_CREATE(min, freal4, ompi_fortran_real4_t, OSHMEM_OP_MIN, OSHMEM_OP_TYPE_FREAL4);
|
|
OBJ_OP_CREATE(min, freal8, ompi_fortran_real8_t, OSHMEM_OP_MIN, OSHMEM_OP_TYPE_FREAL8);
|
|
#if defined(ompi_fortran_real16_t)
|
|
OBJ_OP_CREATE(min, freal16, ompi_fortran_real16_t, OSHMEM_OP_MIN, OSHMEM_OP_TYPE_FREAL16);
|
|
#endif
|
|
|
|
/* SUM */
|
|
OBJ_OP_CREATE(sum, short, short, OSHMEM_OP_SUM, OSHMEM_OP_TYPE_SHORT);
|
|
OBJ_OP_CREATE(sum, int, int, OSHMEM_OP_SUM, OSHMEM_OP_TYPE_INT);
|
|
OBJ_OP_CREATE(sum, long, long, OSHMEM_OP_SUM, OSHMEM_OP_TYPE_LONG);
|
|
OBJ_OP_CREATE(sum, longlong, long long, OSHMEM_OP_SUM, OSHMEM_OP_TYPE_LLONG);
|
|
OBJ_OP_CREATE(sum, float, float, OSHMEM_OP_SUM, OSHMEM_OP_TYPE_FLOAT);
|
|
OBJ_OP_CREATE(sum, double, double, OSHMEM_OP_SUM, OSHMEM_OP_TYPE_DOUBLE);
|
|
OBJ_OP_CREATE(sum, longdouble, long double, OSHMEM_OP_SUM, OSHMEM_OP_TYPE_LDOUBLE);
|
|
OBJ_OP_CREATE(sum, complexf, float complex, OSHMEM_OP_SUM, OSHMEM_OP_TYPE_FCOMPLEX);
|
|
OBJ_OP_CREATE(sum, complexd, double complex, OSHMEM_OP_SUM, OSHMEM_OP_TYPE_DCOMPLEX);
|
|
OBJ_OP_CREATE(sum, fint4, ompi_fortran_integer4_t, OSHMEM_OP_SUM, OSHMEM_OP_TYPE_FINT4);
|
|
OBJ_OP_CREATE(sum, fint8, ompi_fortran_integer8_t, OSHMEM_OP_SUM, OSHMEM_OP_TYPE_FINT8);
|
|
OBJ_OP_CREATE(sum, freal4, ompi_fortran_real4_t, OSHMEM_OP_SUM, OSHMEM_OP_TYPE_FREAL4);
|
|
OBJ_OP_CREATE(sum, freal8, ompi_fortran_real8_t, OSHMEM_OP_SUM, OSHMEM_OP_TYPE_FREAL8);
|
|
#if defined(ompi_fortran_real16_t)
|
|
OBJ_OP_CREATE(sum, freal16, ompi_fortran_real16_t, OSHMEM_OP_SUM, OSHMEM_OP_TYPE_FREAL16);
|
|
#endif
|
|
|
|
/* PROD */
|
|
OBJ_OP_CREATE(prod, short, short, OSHMEM_OP_PROD, OSHMEM_OP_TYPE_SHORT);
|
|
OBJ_OP_CREATE(prod, int, int, OSHMEM_OP_PROD, OSHMEM_OP_TYPE_INT);
|
|
OBJ_OP_CREATE(prod, long, long, OSHMEM_OP_PROD, OSHMEM_OP_TYPE_LONG);
|
|
OBJ_OP_CREATE(prod, longlong, long long, OSHMEM_OP_PROD, OSHMEM_OP_TYPE_LLONG);
|
|
OBJ_OP_CREATE(prod, float, float, OSHMEM_OP_PROD, OSHMEM_OP_TYPE_FLOAT);
|
|
OBJ_OP_CREATE(prod, double, double, OSHMEM_OP_PROD, OSHMEM_OP_TYPE_DOUBLE);
|
|
OBJ_OP_CREATE(prod, longdouble, long double, OSHMEM_OP_PROD, OSHMEM_OP_TYPE_LDOUBLE);
|
|
OBJ_OP_CREATE(prod, complexf, float complex, OSHMEM_OP_PROD, OSHMEM_OP_TYPE_FCOMPLEX);
|
|
OBJ_OP_CREATE(prod, complexd, double complex, OSHMEM_OP_PROD, OSHMEM_OP_TYPE_DCOMPLEX);
|
|
OBJ_OP_CREATE(prod, fint4, ompi_fortran_integer4_t, OSHMEM_OP_PROD, OSHMEM_OP_TYPE_FINT4);
|
|
OBJ_OP_CREATE(prod, fint8, ompi_fortran_integer8_t, OSHMEM_OP_PROD, OSHMEM_OP_TYPE_FINT8);
|
|
OBJ_OP_CREATE(prod, freal4, ompi_fortran_real4_t, OSHMEM_OP_PROD, OSHMEM_OP_TYPE_FREAL4);
|
|
OBJ_OP_CREATE(prod, freal8, ompi_fortran_real8_t, OSHMEM_OP_PROD, OSHMEM_OP_TYPE_FREAL8);
|
|
#if defined(ompi_fortran_real16_t)
|
|
OBJ_OP_CREATE(prod, freal16, ompi_fortran_real16_t, OSHMEM_OP_PROD, OSHMEM_OP_TYPE_FREAL16);
|
|
#endif
|
|
|
|
return OSHMEM_SUCCESS;
|
|
}
|
|
|
|
int oshmem_op_finalize(void)
|
|
{
|
|
int max, i;
|
|
oshmem_op_t *op;
|
|
|
|
/* Check whether we have some left */
|
|
max = opal_pointer_array_get_size(&oshmem_op_array);
|
|
for (i = 0; i < max; i++) {
|
|
op = (oshmem_op_t *) opal_pointer_array_get_item(&oshmem_op_array, i);
|
|
if (NULL != op) {
|
|
OBJ_RELEASE(op);
|
|
}
|
|
}
|
|
|
|
OBJ_DESTRUCT(&oshmem_op_array);
|
|
|
|
return OSHMEM_SUCCESS;
|
|
}
|
|
|
|
/**************************************************************************
|
|
*
|
|
* Static functions
|
|
*
|
|
**************************************************************************/
|
|
|
|
/*
|
|
* Op constructor
|
|
*/
|
|
static void oshmem_op_construct(oshmem_op_t *object)
|
|
{
|
|
object->id = opal_pointer_array_add(&oshmem_op_array, object);
|
|
}
|
|
|
|
/*
|
|
* Op destructor
|
|
*/
|
|
static void oshmem_op_destruct(oshmem_op_t *object)
|
|
{
|
|
if (NULL != opal_pointer_array_get_item(&oshmem_op_array, object->id)) {
|
|
opal_pointer_array_set_item(&oshmem_op_array, object->id, NULL );
|
|
}
|
|
}
|