Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include <stddef.h>
#include <liberrno.h>
#include <fmath.h>
#include <cray/dopevec.h>
#include <cray/portdefs.h>
#include "arraydefs.h"
Go to the source code of this file.
#define INCR_RES | ( | ) |
Definition at line 124 of file maxval.c.
Referenced by __maxval().
#define INCREMENT | ( | ) |
Definition at line 61 of file maxval.c.
Referenced by __maxval(), __minval(), _PACK(), _SPREAD(), and _UNPACK().
#define LOAD_DM_MK | ( | ) |
dm = dimp; \ mk = mask; \ /* if last arg = NULL, is last-1 arg mask or dim? */ \ if (mask == NULL) { \ /* last arg = NULL, is last-1 arg mask or dim? */ \ if (dimp != NULL) { \ if (dimp->type_lens.type == DVTYPE_LOGICAL) { \ /* last-1 argument is mask. */ \ mk = dimp; \ dm = mask; \ } \ } \ } \ if (dm != NULL) { \ _f_int dmintlen; \ dmintlen = dm->type_lens.int_len >> 3; \ dimenp = (_f_int *) &dimenlc; \ if (dmintlen == sizeof(_f_int8)) { \ *dimenp = *(_f_int8 *) dm->base_addr.a.ptr; \ } else if (dmintlen == sizeof(_f_int4)) { \ *dimenp = *(_f_int4 *) dm->base_addr.a.ptr; \ } else if (dmintlen == sizeof(_f_int2)) { \ *dimenp = *(_f_int2 *) dm->base_addr.a.ptr; \ } else if (dmintlen == sizeof(_f_int1)) { \ *dimenp = *(_f_int1 *) dm->base_addr.a.ptr; \ } \ }
Definition at line 180 of file maxval.c.
Referenced by _MAXVAL0__I(), _MAXVAL0__I1(), _MAXVAL0__I2(), _MAXVAL0__I4(), _MAXVAL0__J(), _MAXVAL0__S(), _MAXVAL0__S4(), _MAXVAL__I(), _MAXVAL__I1(), _MAXVAL__I2(), _MAXVAL__I4(), _MAXVAL__J(), _MAXVAL__S(), and _MAXVAL__S4().
#define USE_INT1 5 |
Definition at line 50 of file maxval.c.
Referenced by _MAXVAL0__I1(), _MAXVAL0_I1(), _MAXVAL__I1(), and _MAXVAL_I1().
#define USE_INT2 4 |
Definition at line 49 of file maxval.c.
Referenced by __maxval(), _MAXVAL0__I2(), _MAXVAL0_I2(), _MAXVAL__I2(), and _MAXVAL_I2().
#define USE_INT4 3 |
Definition at line 48 of file maxval.c.
Referenced by __maxval(), _MAXVAL0__I4(), _MAXVAL0_I4(), _MAXVAL__I4(), and _MAXVAL_I4().
#define USE_INT6 2 |
Definition at line 47 of file maxval.c.
Referenced by __maxval(), _MAXVAL0__I(), _MAXVAL0_I(), _MAXVAL__I(), and _MAXVAL_I().
#define USE_INT8 1 |
Definition at line 46 of file maxval.c.
Referenced by _MAXVAL0__I(), _MAXVAL0__J(), _MAXVAL0_I(), _MAXVAL0_J(), _MAXVAL__I(), _MAXVAL__J(), _MAXVAL_I(), and _MAXVAL_J().
#define USE_REAL16 6 |
#define USE_REAL4 8 |
Definition at line 53 of file maxval.c.
Referenced by _MAXVAL0__S4(), _MAXVAL0_S4(), _MAXVAL__S4(), and _MAXVAL_S4().
#define USE_REAL8 7 |
Definition at line 52 of file maxval.c.
Referenced by __maxval(), _MAXVAL0__S(), _MAXVAL0_S(), _MAXVAL__S(), and _MAXVAL_S().
void __maxval | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask, | ||
int | scalar, | ||
int | subtype, | ||
int | init_val | ||
) |
Definition at line 1109 of file maxval.c.
References _LELVL_ABORT, _lerror(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, BITS_PER_BYTE, BITS_PER_WORD, BYTES_PER_WORD, DopeVector::dimension, DVSUBTYPE_INT32, DVSUBTYPE_INT64, DVSUBTYPE_REAL128, DVSUBTYPE_REAL32, DVSUBTYPE_REAL64, DopeVector::DvDimen::extent, FEINTDTY, FENOMEMY, FESCIDIM, HUGE_INT1_F90, HUGE_INT2_F90, HUGE_INT4_F90, HUGE_INT6_F90, HUGE_INT8_F90, HUGE_REAL16_F90, HUGE_REAL4_F90, HUGE_REAL8_F90, if(), INCR_RES, INCREMENT, f90_type::int_len, DopeVector::DvDimen::low_bound, LTOB, MAXDIM, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, restrict, DopeVector::DvDimen::stride_mult, f90_type::type, DopeVector::type_lens, USE_INT2, USE_INT4, USE_INT6, and USE_REAL8.
Referenced by _MAXVAL0__I(), _MAXVAL0__I1(), _MAXVAL0__I2(), _MAXVAL0__I4(), _MAXVAL0__J(), _MAXVAL0__S(), _MAXVAL0__S4(), _MAXVAL0_I(), _MAXVAL0_I1(), _MAXVAL0_I2(), _MAXVAL0_I4(), _MAXVAL0_J(), _MAXVAL0_S(), _MAXVAL0_S4(), _MAXVAL__I(), _MAXVAL__I1(), _MAXVAL__I2(), _MAXVAL__I4(), _MAXVAL__J(), _MAXVAL__S(), _MAXVAL__S4(), _MAXVAL_I(), _MAXVAL_I1(), _MAXVAL_I2(), _MAXVAL_I4(), _MAXVAL_J(), _MAXVAL_S(), and _MAXVAL_S4().
_f_int8 _MAXVAL0__I | ( | DopeVectorType * | source, |
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 403 of file maxval.c.
References __maxval(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, DVSUBTYPE_INT64, HUGE_INT6_F90, f90_type::int_len, f90_type::kind_or_star, LOAD_DM_MK, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, DopeVector::type_lens, USE_INT6, and USE_INT8.
_f_int1 _MAXVAL0__I1 | ( | DopeVectorType * | source, |
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 751 of file maxval.c.
References __maxval(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, DVSUBTYPE_INT32, HUGE_INT1_F90, i1, f90_type::int_len, f90_type::kind_or_star, LOAD_DM_MK, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, DopeVector::type_lens, and USE_INT1.
_f_int2 _MAXVAL0__I2 | ( | DopeVectorType * | source, |
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 674 of file maxval.c.
References __maxval(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, DVSUBTYPE_INT32, HUGE_INT2_F90, i2, f90_type::int_len, f90_type::kind_or_star, LOAD_DM_MK, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, DopeVector::type_lens, and USE_INT2.
_f_int4 _MAXVAL0__I4 | ( | DopeVectorType * | source, |
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 597 of file maxval.c.
References __maxval(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, DVSUBTYPE_INT32, HUGE_INT4_F90, i4, f90_type::int_len, f90_type::kind_or_star, LOAD_DM_MK, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, DopeVector::type_lens, and USE_INT4.
_f_int8 _MAXVAL0__J | ( | DopeVectorType * | source, |
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 939 of file maxval.c.
References __maxval(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, DVSUBTYPE_INT64, HUGE_INT8_F90, i8, f90_type::int_len, f90_type::kind_or_star, LOAD_DM_MK, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, DopeVector::type_lens, and USE_INT8.
_f_real8 _MAXVAL0__S | ( | DopeVectorType * | source, |
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 1006 of file maxval.c.
References __maxval(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, DVSUBTYPE_REAL64, HUGE_REAL8_F90, f90_type::int_len, f90_type::kind_or_star, LOAD_DM_MK, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, DopeVector::type_lens, and USE_REAL8.
_f_real4 _MAXVAL0__S4 | ( | DopeVectorType * | source, |
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 867 of file maxval.c.
References __maxval(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, DVSUBTYPE_REAL32, DVSUBTYPE_REAL64, HUGE_REAL4_F90, f90_type::int_len, f90_type::kind_or_star, LOAD_DM_MK, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, DopeVector::type_lens, and USE_REAL4.
_f_int6 _MAXVAL0_I | ( | DopeVectorType * | source, |
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 368 of file maxval.c.
References __maxval(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, DVSUBTYPE_INT64, HUGE_INT6_F90, f90_type::int_len, f90_type::kind_or_star, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, DopeVector::type_lens, USE_INT6, and USE_INT8.
_f_int1 _MAXVAL0_I1 | ( | DopeVectorType * | source, |
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 716 of file maxval.c.
References __maxval(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, DVSUBTYPE_INT32, HUGE_INT1_F90, i1, f90_type::int_len, f90_type::kind_or_star, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, DopeVector::type_lens, and USE_INT1.
_f_int2 _MAXVAL0_I2 | ( | DopeVectorType * | source, |
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 639 of file maxval.c.
References __maxval(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, DVSUBTYPE_INT32, HUGE_INT2_F90, i2, f90_type::int_len, f90_type::kind_or_star, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, DopeVector::type_lens, and USE_INT2.
_f_int4 _MAXVAL0_I4 | ( | DopeVectorType * | source, |
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 562 of file maxval.c.
References __maxval(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, DVSUBTYPE_INT32, HUGE_INT4_F90, i4, f90_type::int_len, f90_type::kind_or_star, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, DopeVector::type_lens, and USE_INT4.
_f_int8 _MAXVAL0_J | ( | DopeVectorType * | source, |
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 909 of file maxval.c.
References __maxval(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, DVSUBTYPE_INT64, HUGE_INT8_F90, i8, f90_type::int_len, f90_type::kind_or_star, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, DopeVector::type_lens, and USE_INT8.
_f_real8 _MAXVAL0_S | ( | DopeVectorType * | source, |
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 976 of file maxval.c.
References __maxval(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, DVSUBTYPE_REAL64, HUGE_REAL8_F90, f90_type::int_len, f90_type::kind_or_star, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, DopeVector::type_lens, and USE_REAL8.
_f_real4 _MAXVAL0_S4 | ( | DopeVectorType * | source, |
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 832 of file maxval.c.
References __maxval(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, DVSUBTYPE_REAL32, DVSUBTYPE_REAL64, HUGE_REAL4_F90, f90_type::int_len, f90_type::kind_or_star, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, DopeVector::type_lens, and USE_REAL4.
void _MAXVAL__I | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 337 of file maxval.c.
References __maxval(), DVSUBTYPE_INT64, LOAD_DM_MK, NULL, USE_INT6, and USE_INT8.
void _MAXVAL__I1 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 539 of file maxval.c.
References __maxval(), DVSUBTYPE_INT32, LOAD_DM_MK, NULL, and USE_INT1.
void _MAXVAL__I2 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 500 of file maxval.c.
References __maxval(), DVSUBTYPE_INT32, LOAD_DM_MK, NULL, and USE_INT2.
void _MAXVAL__I4 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 461 of file maxval.c.
References __maxval(), DVSUBTYPE_INT32, LOAD_DM_MK, NULL, and USE_INT4.
void _MAXVAL__J | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 242 of file maxval.c.
References __maxval(), DVSUBTYPE_INT64, LOAD_DM_MK, NULL, and USE_INT8.
void _MAXVAL__S | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 272 of file maxval.c.
References __maxval(), DVSUBTYPE_REAL64, LOAD_DM_MK, NULL, and USE_REAL8.
void _MAXVAL__S4 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 809 of file maxval.c.
References __maxval(), DVSUBTYPE_REAL32, DVSUBTYPE_REAL64, LOAD_DM_MK, NULL, and USE_REAL4.
void _MAXVAL_I | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 321 of file maxval.c.
References __maxval(), DVSUBTYPE_INT64, USE_INT6, and USE_INT8.
void _MAXVAL_I1 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 523 of file maxval.c.
References __maxval(), DVSUBTYPE_INT32, and USE_INT1.
void _MAXVAL_I2 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 484 of file maxval.c.
References __maxval(), DVSUBTYPE_INT32, and USE_INT2.
void _MAXVAL_I4 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 445 of file maxval.c.
References __maxval(), DVSUBTYPE_INT32, and USE_INT4.
void _MAXVAL_J | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 231 of file maxval.c.
References __maxval(), DVSUBTYPE_INT64, and USE_INT8.
void _MAXVAL_S | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 261 of file maxval.c.
References __maxval(), DVSUBTYPE_REAL64, and USE_REAL8.
void _MAXVAL_S4 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 793 of file maxval.c.
References __maxval(), DVSUBTYPE_REAL32, DVSUBTYPE_REAL64, and USE_REAL4.