Open64 (mfef90, whirl2f, and IR tools)  TAG: version-openad; SVN changeset: 916
Defines | Functions | Variables
maxloc.c File Reference
#include <stddef.h>
#include <liberrno.h>
#include <fmath.h>
#include <cray/dopevec.h>
#include <cray/portdefs.h>
#include "arraydefs.h"
Include dependency graph for maxloc.c:

Go to the source code of this file.

Defines

#define _LOAD_DM_MK()
#define _SET_INDEX()
#define _FINAL_INDEX()
#define _INTERM_INDEX()
#define _INCREMENT_ONE()
#define _INCREMENT_TWO()
#define _INCREMENT_D_ONE()
#define _INCREMENT_D_TWO()

Functions

void _MAXLOC_I4 (DopeVectorType *result, DopeVectorType *source, DopeVectorType *mask)
void _MAXLOC__I4 (DopeVectorType *result, DopeVectorType *source, DopeVectorType *dimension, DopeVectorType *mask)
void _MAXLOC_I2 (DopeVectorType *result, DopeVectorType *source, DopeVectorType *mask)
void _MAXLOC__I2 (DopeVectorType *result, DopeVectorType *source, DopeVectorType *dimension, DopeVectorType *mask)
void _MAXLOC_I1 (DopeVectorType *result, DopeVectorType *source, DopeVectorType *mask)
void _MAXLOC__I1 (DopeVectorType *result, DopeVectorType *source, DopeVectorType *dimension, DopeVectorType *mask)
void _MAXLOC_I (DopeVectorType *result, DopeVectorType *source, DopeVectorType *mask)
void _MAXLOC__I (DopeVectorType *result, DopeVectorType *source, DopeVectorType *dimension, DopeVectorType *mask)
void _MAXLOC_J (DopeVectorType *result, DopeVectorType *source, DopeVectorType *mask)
void _MAXLOC__J (DopeVectorType *result, DopeVectorType *source, DopeVectorType *dimension, DopeVectorType *mask)
void _MAXLOC_S (DopeVectorType *result, DopeVectorType *source, DopeVectorType *mask)
void _MAXLOC__S (DopeVectorType *result, DopeVectorType *source, DopeVectorType *dimension, DopeVectorType *mask)
void _MAXLOC_S4 (DopeVectorType *result, DopeVectorType *source, DopeVectorType *mask)
void _MAXLOC__S4 (DopeVectorType *result, DopeVectorType *source, DopeVectorType *dimension, DopeVectorType *mask)
void __maxloc (DopeVectorType *result, DopeVectorType *source, DopeVectorType *dimension, DopeVectorType *mask, _f_int subtype)

Variables

static char USMID [] = "@(#) libfi/array/maxloc.c 92.0 10/08/98 14:37:14"

Define Documentation

#define _FINAL_INDEX ( )

Definition at line 361 of file maxloc.c.

Referenced by __maxloc().

#define _INCREMENT_D_ONE ( )

Definition at line 595 of file maxloc.c.

Referenced by __maxloc().

#define _INCREMENT_D_TWO ( )

Definition at line 660 of file maxloc.c.

Referenced by __maxloc().

#define _INCREMENT_ONE ( )

Definition at line 498 of file maxloc.c.

Referenced by __maxloc().

#define _INCREMENT_TWO ( )

Definition at line 543 of file maxloc.c.

Referenced by __maxloc().

#define _INTERM_INDEX ( )
Value:
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 maxloc.c.

Referenced by __maxloc().

#define _LOAD_DM_MK ( )
Value:
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 maxloc.c.

Referenced by _MAXLOC__I(), _MAXLOC__I1(), _MAXLOC__I2(), _MAXLOC__I4(), _MAXLOC__J(), _MAXLOC__S(), and _MAXLOC__S4().

#define _SET_INDEX ( )

Definition at line 323 of file maxloc.c.

Referenced by __maxloc().

Function Documentation

void __maxloc ( DopeVectorType *  result,
DopeVectorType *  source,
DopeVectorType *  dimension,
DopeVectorType *  mask,
_f_int  subtype 
)

Definition at line 734 of file maxloc.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 _MAXLOC__I(), _MAXLOC__I1(), _MAXLOC__I2(), _MAXLOC__I4(), _MAXLOC__J(), _MAXLOC__S(), _MAXLOC__S4(), _MAXLOC_I(), _MAXLOC_I1(), _MAXLOC_I2(), _MAXLOC_I4(), _MAXLOC_J(), _MAXLOC_S(), and _MAXLOC_S4().

Here is the call graph for this function:

void _MAXLOC__I ( DopeVectorType *  result,
DopeVectorType *  source,
DopeVectorType *  dimension,
DopeVectorType *  mask 
)

Definition at line 192 of file maxloc.c.

References __maxloc(), _LOAD_DM_MK, and DVSUBTYPE_INT64.

Here is the call graph for this function:

void _MAXLOC__I1 ( DopeVectorType *  result,
DopeVectorType *  source,
DopeVectorType *  dimension,
DopeVectorType *  mask 
)

Definition at line 157 of file maxloc.c.

References __maxloc(), _LOAD_DM_MK, DVSUBTYPE_BIT8, and DVSUBTYPE_INT32.

Here is the call graph for this function:

void _MAXLOC__I2 ( DopeVectorType *  result,
DopeVectorType *  source,
DopeVectorType *  dimension,
DopeVectorType *  mask 
)

Definition at line 125 of file maxloc.c.

References __maxloc(), _LOAD_DM_MK, DVSUBTYPE_BIT16, and DVSUBTYPE_INT32.

Here is the call graph for this function:

void _MAXLOC__I4 ( DopeVectorType *  result,
DopeVectorType *  source,
DopeVectorType *  dimension,
DopeVectorType *  mask 
)

Definition at line 95 of file maxloc.c.

References __maxloc(), _LOAD_DM_MK, and DVSUBTYPE_INT32.

Here is the call graph for this function:

void _MAXLOC__J ( DopeVectorType *  result,
DopeVectorType *  source,
DopeVectorType *  dimension,
DopeVectorType *  mask 
)

Definition at line 221 of file maxloc.c.

References __maxloc(), _LOAD_DM_MK, and DVSUBTYPE_INT64.

Here is the call graph for this function:

void _MAXLOC__S ( DopeVectorType *  result,
DopeVectorType *  source,
DopeVectorType *  dimension,
DopeVectorType *  mask 
)

Definition at line 246 of file maxloc.c.

References __maxloc(), _LOAD_DM_MK, and DVSUBTYPE_REAL64.

Here is the call graph for this function:

void _MAXLOC__S4 ( DopeVectorType *  result,
DopeVectorType *  source,
DopeVectorType *  dimension,
DopeVectorType *  mask 
)

Definition at line 303 of file maxloc.c.

References __maxloc(), _LOAD_DM_MK, DVSUBTYPE_REAL32, and DVSUBTYPE_REAL64.

Here is the call graph for this function:

void _MAXLOC_I ( DopeVectorType *  result,
DopeVectorType *  source,
DopeVectorType *  mask 
)

Definition at line 178 of file maxloc.c.

References __maxloc(), and DVSUBTYPE_INT64.

Here is the call graph for this function:

void _MAXLOC_I1 ( DopeVectorType *  result,
DopeVectorType *  source,
DopeVectorType *  mask 
)

Definition at line 143 of file maxloc.c.

References __maxloc(), and DVSUBTYPE_INT32.

Here is the call graph for this function:

void _MAXLOC_I2 ( DopeVectorType *  result,
DopeVectorType *  source,
DopeVectorType *  mask 
)

Definition at line 111 of file maxloc.c.

References __maxloc(), and DVSUBTYPE_INT32.

Here is the call graph for this function:

void _MAXLOC_I4 ( DopeVectorType *  result,
DopeVectorType *  source,
DopeVectorType *  mask 
)

Definition at line 81 of file maxloc.c.

References __maxloc(), and DVSUBTYPE_INT32.

Here is the call graph for this function:

void _MAXLOC_J ( DopeVectorType *  result,
DopeVectorType *  source,
DopeVectorType *  mask 
)

Definition at line 211 of file maxloc.c.

References __maxloc(), and DVSUBTYPE_INT64.

Here is the call graph for this function:

void _MAXLOC_S ( DopeVectorType *  result,
DopeVectorType *  source,
DopeVectorType *  mask 
)

Definition at line 236 of file maxloc.c.

References __maxloc(), and DVSUBTYPE_REAL64.

Here is the call graph for this function:

void _MAXLOC_S4 ( DopeVectorType *  result,
DopeVectorType *  source,
DopeVectorType *  mask 
)

Definition at line 289 of file maxloc.c.

References __maxloc(), DVSUBTYPE_REAL32, and DVSUBTYPE_REAL64.

Here is the call graph for this function:

Variable Documentation

char USMID[] = "@(#) libfi/array/maxloc.c 92.0 10/08/98 14:37:14" [static]

Definition at line 37 of file maxloc.c.

 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines