eoshift.c File Reference

#include <stddef.h>
#include <liberrno.h>
#include <cray/dopevec.h>
#include <cray/portdefs.h>
#include "arraydefs.h"

Include dependency graph for eoshift.c:

Go to the source code of this file.

Defines
#define	BIT64_DEFAULT()
#define	BIT32_DEFAULT()
#define	BIT16_DEFAULT()
#define	BIT8_DEFAULT()
Functions
void	_EOSHIFT (DopeVectorType *result, DopeVectorType *source, DopeVectorType *shift, DopeVectorType *boundary, _f_int *dimp)
Variables
const _f_int1	defaulti1 = 0
const _f_int2	defaulti2 = 0
const _f_int4	defaulti4 = 0
const _f_int8	defaulti8 = 0
const _f_log1	defaultl1 = _btol(0)
const _f_log2	defaultl2 = _btol(0)
const _f_log4	defaultl4 = _btol(0)
const _f_log8	defaultl8 = _btol(0)
const _f_real4	defaultr4 = 0.0
const _f_real8	defaultr8 = 0.0

---

Define Documentation

#define BIT16_DEFAULT

(

)

Value:

if (type == DVTYPE_INTEGER) {                                   \
            bnd16 = *(_f_int2 *) &defaulti2;                            \
        } else {                                                        \
            bnd16 = *(_f_int2 *) &defaultl2;                            \
        }

Definition at line 140 of file eoshift.c.

#define BIT32_DEFAULT

(

)

Value:

if (type == DVTYPE_INTEGER) {                                   \
            bnd32 = *(_f_int4 *) &defaulti4;                            \
        } else if (type == DVTYPE_REAL) {                               \
            bnd32 = *(_f_int4 *) &defaultr4;                            \
        } else {                                                        \
            bnd32 = *(_f_int4 *) &defaultl4;                            \
        }

Definition at line 131 of file eoshift.c.

Referenced by _EOSHIFT().

#define BIT64_DEFAULT

(

)

Value:

if (type == DVTYPE_INTEGER)                                     \
            bnd64 = *(_f_int8 *) &defaulti8;                            \
        else if (type == DVTYPE_REAL)                                   \
            bnd64 = *(_f_int8 *) &defaultr8;                            \
        else                                                            \
            bnd64 = *(_f_int8 *) &defaultl8;

Definition at line 103 of file eoshift.c.

Referenced by _EOSHIFT().

#define BIT8_DEFAULT

(

)

Value:

if (type == DVTYPE_INTEGER) {                                   \
            bnd8 = *(_f_int1 *) &defaulti1;                             \
        } else {                                                        \
            bnd8 = *(_f_int1 *) &defaultl1;                             \
        }

Definition at line 147 of file eoshift.c.

---

Function Documentation

void _EOSHIFT	(	DopeVectorType *	result,
		DopeVectorType *	source,
		DopeVectorType *	shift,
		DopeVectorType *	boundary,
		_f_int *	dimp
	)

Definition at line 159 of file eoshift.c.

References _cptofcd(), _fcdlen(), _fcdtocp(), _LELVL_ABORT, _lerror(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, BIT32_DEFAULT, BIT64_DEFAULT, BITS_PER_BYTE, BITS_PER_WORD, BYTES_PER_WORD, DopeVector::charptr, DopeVector::dimension, DVSUBTYPE_BIT128, DVSUBTYPE_BIT256, DVSUBTYPE_BIT32, DVSUBTYPE_BIT64, DVSUBTYPE_CHAR, DVSUBTYPE_DERIVED, DopeVector::DvDimen::extent, FEINTDTY, FENOMEMY, FESCIDIM, if(), dblcmplx::im, f90_type::int_len, DopeVector::DvDimen::low_bound, MAXDIM, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, dblcmplx::re, restrict, DopeVector::DvDimen::stride_mult, f90_type::type, and DopeVector::type_lens.

Here is the call graph for this function:

---

Variable Documentation

const _f_int1 defaulti1 = 0

Definition at line 57 of file eoshift.c.

const _f_int2 defaulti2 = 0

Definition at line 58 of file eoshift.c.

const _f_int4 defaulti4 = 0

Definition at line 59 of file eoshift.c.

const _f_int8 defaulti8 = 0

Definition at line 60 of file eoshift.c.

const _f_log1 defaultl1 = _btol(0)

Definition at line 61 of file eoshift.c.

const _f_log2 defaultl2 = _btol(0)

Definition at line 62 of file eoshift.c.

const _f_log4 defaultl4 = _btol(0)

Definition at line 63 of file eoshift.c.

const _f_log8 defaultl8 = _btol(0)

Definition at line 64 of file eoshift.c.

const _f_real4 defaultr4 = 0.0

Definition at line 65 of file eoshift.c.

const _f_real8 defaultr8 = 0.0

Definition at line 66 of file eoshift.c.