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 _FINAL_INDEX | ( | ) |
Definition at line 361 of file minloc.c.
Referenced by __minloc().
#define _INCREMENT_D_ONE | ( | ) |
Definition at line 595 of file minloc.c.
Referenced by __minloc().
#define _INCREMENT_D_TWO | ( | ) |
Definition at line 660 of file minloc.c.
Referenced by __minloc().
#define _INCREMENT_ONE | ( | ) |
Definition at line 498 of file minloc.c.
Referenced by __minloc().
#define _INCREMENT_TWO | ( | ) |
Definition at line 543 of file minloc.c.
Referenced by __minloc().
#define _INTERM_INDEX | ( | ) |
switch (typeflag) { \
case 4 : \
rptr_4[rindx] = res_indx1 + 1; \
break; \
case 8 : \
rptr_8[rindx] = res_indx1 + 1; \
}
Definition at line 468 of file minloc.c.
Referenced by __minloc().
#define _LOAD_DM_MK | ( | ) |
dm = dimension; \ 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 (dimension != NULL) { \ if (dimension->type_lens.type == DVTYPE_LOGICAL) { \ /* last-1 argument is mask. */ \ mk = dimension; \ dm = mask; \ } \ } \ }
Definition at line 47 of file minloc.c.
Referenced by _MINLOC__I(), _MINLOC__I1(), _MINLOC__I2(), _MINLOC__I4(), _MINLOC__J(), _MINLOC__S(), and _MINLOC__S4().
#define _SET_INDEX | ( | ) |
Definition at line 323 of file minloc.c.
Referenced by __minloc().
void __minloc | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimension, | ||
DopeVectorType * | mask, | ||
_f_int | subtype | ||
) |
Definition at line 734 of file minloc.c.
References _FINAL_INDEX, _INCREMENT_D_ONE, _INCREMENT_D_TWO, _INCREMENT_ONE, _INCREMENT_TWO, _INTERM_INDEX, _LELVL_ABORT, _lerror(), _SET_INDEX, DopeVector::a, DopeVector::assoc, DopeVector::base_addr, BITS_PER_BYTE, BITS_PER_WORD, DopeVector::dimension, DVSUBTYPE_BIT16, DVSUBTYPE_BIT8, 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(), f90_type::int_len, DopeVector::DvDimen::low_bound, LTOB, MAXDIM, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, restrict, stride, DopeVector::DvDimen::stride_mult, f90_type::type, and DopeVector::type_lens.
Referenced by _MINLOC__I(), _MINLOC__I1(), _MINLOC__I2(), _MINLOC__I4(), _MINLOC__J(), _MINLOC__S(), _MINLOC__S4(), _MINLOC_I(), _MINLOC_I1(), _MINLOC_I2(), _MINLOC_I4(), _MINLOC_J(), _MINLOC_S(), and _MINLOC_S4().
void _MINLOC__I | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimension, | ||
DopeVectorType * | mask | ||
) |
Definition at line 192 of file minloc.c.
References __minloc(), _LOAD_DM_MK, and DVSUBTYPE_INT64.
void _MINLOC__I1 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimension, | ||
DopeVectorType * | mask | ||
) |
Definition at line 157 of file minloc.c.
References __minloc(), _LOAD_DM_MK, DVSUBTYPE_BIT8, and DVSUBTYPE_INT32.
void _MINLOC__I2 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimension, | ||
DopeVectorType * | mask | ||
) |
Definition at line 125 of file minloc.c.
References __minloc(), _LOAD_DM_MK, DVSUBTYPE_BIT16, and DVSUBTYPE_INT32.
void _MINLOC__I4 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimension, | ||
DopeVectorType * | mask | ||
) |
Definition at line 95 of file minloc.c.
References __minloc(), _LOAD_DM_MK, and DVSUBTYPE_INT32.
void _MINLOC__J | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimension, | ||
DopeVectorType * | mask | ||
) |
Definition at line 221 of file minloc.c.
References __minloc(), _LOAD_DM_MK, and DVSUBTYPE_INT64.
void _MINLOC__S | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimension, | ||
DopeVectorType * | mask | ||
) |
Definition at line 246 of file minloc.c.
References __minloc(), _LOAD_DM_MK, and DVSUBTYPE_REAL64.
void _MINLOC__S4 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | dimension, | ||
DopeVectorType * | mask | ||
) |
Definition at line 303 of file minloc.c.
References __minloc(), _LOAD_DM_MK, DVSUBTYPE_REAL32, and DVSUBTYPE_REAL64.
void _MINLOC_I | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | mask | ||
) |
Definition at line 178 of file minloc.c.
References __minloc(), and DVSUBTYPE_INT64.
void _MINLOC_I1 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | mask | ||
) |
Definition at line 143 of file minloc.c.
References __minloc(), and DVSUBTYPE_INT32.
void _MINLOC_I2 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | mask | ||
) |
Definition at line 111 of file minloc.c.
References __minloc(), and DVSUBTYPE_INT32.
void _MINLOC_I4 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | mask | ||
) |
Definition at line 81 of file minloc.c.
References __minloc(), and DVSUBTYPE_INT32.
void _MINLOC_J | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | mask | ||
) |
Definition at line 211 of file minloc.c.
References __minloc(), and DVSUBTYPE_INT64.
void _MINLOC_S | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | mask | ||
) |
Definition at line 236 of file minloc.c.
References __minloc(), and DVSUBTYPE_REAL64.
void _MINLOC_S4 | ( | DopeVectorType * | result, |
DopeVectorType * | source, | ||
DopeVectorType * | mask | ||
) |
Definition at line 289 of file minloc.c.
References __minloc(), DVSUBTYPE_REAL32, and DVSUBTYPE_REAL64.