reshape.c File Reference

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

Include dependency graph for reshape.c:

Go to the source code of this file.

Defines
#define	INCR_PAD()
#define	ADD_INDEX(indx, off, rank)
#define	INCR_SRC()
#define	INCR_RES()
#define	VALUE(size, ptr)   ((int) (*((_f_int *) (ptr))))
Functions
void	_RESHAPE (DopeVectorType *result, DopeVectorType *source, DopeVectorType *shape, DopeVectorType *pad, DopeVectorType *order)
Variables
static const char	USMID [] = "@(#) libfi/array/reshape.c 92.0 10/08/98 14:37:14"

---

Define Documentation

#define ADD_INDEX	(		indx,
			off,
			rank
	)

Value:

if (rank == 1) {                                                \
            indx = off[0];                                              \
        } else if (rank == 2) {                                         \
            indx = off[0] + off[1];                                     \
        } else if (rank == 3) {                                         \
            indx = off[0] + off[1] + off[2];                            \
        } else if (rank == 4) {                                         \
            indx = off[0] + off[1] + off[2] + off[3];                   \
        } else if (rank == 5) {                                         \
            indx = off[0] + off[1] + off[2] + off[3] + off[4];          \
        } else if (rank == 6) {                                         \
            indx = off[0] + off[1] + off[2] +                           \
                   off[3] + off[4] + off[5];                            \
        } else {                                                        \
            indx = off[0] + off[1] + off[2] + off[3] +                  \
                   off[4] + off[5] + off[6];                            \
        }

Definition at line 106 of file reshape.c.

Referenced by _RESHAPE().

#define INCR_PAD

(

)

Definition at line 51 of file reshape.c.

Referenced by _RESHAPE().

#define INCR_RES

(

)

Definition at line 182 of file reshape.c.

Referenced by _RESHAPE().

#define INCR_SRC

(

)

Definition at line 130 of file reshape.c.

Referenced by _RESHAPE().

#define VALUE	(		size,
			ptr
	)		((int) (*((_f_int *) (ptr))))

Definition at line 233 of file reshape.c.

Referenced by _RESHAPE().

---

Function Documentation

void _RESHAPE	(	DopeVectorType *	result,
		DopeVectorType *	source,
		DopeVectorType *	shape,
		DopeVectorType *	pad,
		DopeVectorType *	order
	)

Definition at line 240 of file reshape.c.

References _cptofcd(), _fcdlen(), _fcdtocp(), _LELVL_ABORT, _lerror(), DopeVector::a, ADD_INDEX, DopeVector::assoc, DopeVector::base_addr, 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, FEBDORDR, FEINTDTY, FENOMEMY, FERSHNEG, FERSHNPD, FESHPSZZ, if(), INCR_PAD, INCR_RES, INCR_SRC, f90_type::int_len, DopeVector::DvDimen::low_bound, MAXDIM, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, restrict, DopeVector::DvDimen::stride_mult, f90_type::type, DopeVector::type_lens, and VALUE.

Here is the call graph for this function:

---

Variable Documentation

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

Definition at line 37 of file reshape.c.