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 minval.c.
Referenced by __minval().
#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 minval.c.
Referenced by _MINVAL0__I(), _MINVAL0__I1(), _MINVAL0__I2(), _MINVAL0__I4(), _MINVAL0__J(), _MINVAL0__S(), _MINVAL0__S4(), _MINVAL__I(), _MINVAL__I1(), _MINVAL__I2(), _MINVAL__I4(), _MINVAL__J(), _MINVAL__S(), and _MINVAL__S4().
#define USE_INT1 5 |
Definition at line 50 of file minval.c.
Referenced by _MINVAL0__I1(), _MINVAL0_I1(), _MINVAL__I1(), and _MINVAL_I1().
#define USE_INT2 4 |
Definition at line 49 of file minval.c.
Referenced by __minval(), _MINVAL0__I2(), _MINVAL0_I2(), _MINVAL__I2(), and _MINVAL_I2().
#define USE_INT4 3 |
Definition at line 48 of file minval.c.
Referenced by __minval(), _MINVAL0__I4(), _MINVAL0_I4(), _MINVAL__I4(), and _MINVAL_I4().
#define USE_INT6 2 |
Definition at line 47 of file minval.c.
Referenced by __minval(), _MINVAL0__I(), _MINVAL0_I(), _MINVAL__I(), and _MINVAL_I().
#define USE_INT8 1 |
Definition at line 46 of file minval.c.
Referenced by _MINVAL0__I(), _MINVAL0__J(), _MINVAL0_I(), _MINVAL0_J(), _MINVAL__I(), _MINVAL__J(), _MINVAL_I(), and _MINVAL_J().
#define USE_REAL16 6 |
#define USE_REAL4 8 |
Definition at line 53 of file minval.c.
Referenced by _MINVAL0__S4(), _MINVAL0_S4(), _MINVAL__S4(), and _MINVAL_S4().
#define USE_REAL8 7 |
Definition at line 52 of file minval.c.
Referenced by __minval(), _MINVAL0__S(), _MINVAL0_S(), _MINVAL__S(), and _MINVAL_S().
void __minval | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask, | ||
int | scalar, | ||
int | subtype, | ||
int | init_val | ||
) |
Definition at line 1108 of file minval.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 _MINVAL0__I(), _MINVAL0__I1(), _MINVAL0__I2(), _MINVAL0__I4(), _MINVAL0__J(), _MINVAL0__S(), _MINVAL0__S4(), _MINVAL0_I(), _MINVAL0_I1(), _MINVAL0_I2(), _MINVAL0_I4(), _MINVAL0_J(), _MINVAL0_S(), _MINVAL0_S4(), _MINVAL__I(), _MINVAL__I1(), _MINVAL__I2(), _MINVAL__I4(), _MINVAL__J(), _MINVAL__S(), _MINVAL__S4(), _MINVAL_I(), _MINVAL_I1(), _MINVAL_I2(), _MINVAL_I4(), _MINVAL_J(), _MINVAL_S(), and _MINVAL_S4().
_f_int8 _MINVAL0__I | ( | DopeVectorType * | source, |
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 402 of file minval.c.
References __minval(), 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 _MINVAL0__I1 | ( | DopeVectorType * | source, |
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 750 of file minval.c.
References __minval(), 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 _MINVAL0__I2 | ( | DopeVectorType * | source, |
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 673 of file minval.c.
References __minval(), 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 _MINVAL0__I4 | ( | DopeVectorType * | source, |
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 596 of file minval.c.
References __minval(), 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 _MINVAL0__J | ( | DopeVectorType * | source, |
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 938 of file minval.c.
References __minval(), 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 _MINVAL0__S | ( | DopeVectorType * | source, |
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 1005 of file minval.c.
References __minval(), 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 _MINVAL0__S4 | ( | DopeVectorType * | source, |
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 866 of file minval.c.
References __minval(), 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 _MINVAL0_I | ( | DopeVectorType * | source, |
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 367 of file minval.c.
References __minval(), 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 _MINVAL0_I1 | ( | DopeVectorType * | source, |
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 715 of file minval.c.
References __minval(), 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 _MINVAL0_I2 | ( | DopeVectorType * | source, |
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 638 of file minval.c.
References __minval(), 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 _MINVAL0_I4 | ( | DopeVectorType * | source, |
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 561 of file minval.c.
References __minval(), 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 _MINVAL0_J | ( | DopeVectorType * | source, |
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 908 of file minval.c.
References __minval(), 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 _MINVAL0_S | ( | DopeVectorType * | source, |
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 975 of file minval.c.
References __minval(), 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 _MINVAL0_S4 | ( | DopeVectorType * | source, |
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 831 of file minval.c.
References __minval(), 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 _MINVAL__I | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 336 of file minval.c.
References __minval(), DVSUBTYPE_INT64, LOAD_DM_MK, NULL, USE_INT6, and USE_INT8.
void _MINVAL__I1 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 538 of file minval.c.
References __minval(), DVSUBTYPE_INT32, LOAD_DM_MK, NULL, and USE_INT1.
void _MINVAL__I2 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 499 of file minval.c.
References __minval(), DVSUBTYPE_INT32, LOAD_DM_MK, NULL, and USE_INT2.
void _MINVAL__I4 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 460 of file minval.c.
References __minval(), DVSUBTYPE_INT32, LOAD_DM_MK, NULL, and USE_INT4.
void _MINVAL__J | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 241 of file minval.c.
References __minval(), DVSUBTYPE_INT64, LOAD_DM_MK, NULL, and USE_INT8.
void _MINVAL__S | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 271 of file minval.c.
References __minval(), DVSUBTYPE_REAL64, LOAD_DM_MK, NULL, and USE_REAL8.
void _MINVAL__S4 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 808 of file minval.c.
References __minval(), DVSUBTYPE_REAL32, DVSUBTYPE_REAL64, LOAD_DM_MK, NULL, and USE_REAL4.
void _MINVAL_I | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 320 of file minval.c.
References __minval(), DVSUBTYPE_INT64, USE_INT6, and USE_INT8.
void _MINVAL_I1 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 522 of file minval.c.
References __minval(), DVSUBTYPE_INT32, and USE_INT1.
void _MINVAL_I2 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 483 of file minval.c.
References __minval(), DVSUBTYPE_INT32, and USE_INT2.
void _MINVAL_I4 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 444 of file minval.c.
References __minval(), DVSUBTYPE_INT32, and USE_INT4.
void _MINVAL_J | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 230 of file minval.c.
References __minval(), DVSUBTYPE_INT64, and USE_INT8.
void _MINVAL_S | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 260 of file minval.c.
References __minval(), DVSUBTYPE_REAL64, and USE_REAL8.
void _MINVAL_S4 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
_f_int * | dimp, | ||
DopeVectorType * | mask | ||
) |
Definition at line 792 of file minval.c.
References __minval(), DVSUBTYPE_REAL32, DVSUBTYPE_REAL64, and USE_REAL4.