pack.c File Reference

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

Include dependency graph for pack.c:

Go to the source code of this file.

Defines
#define	FIND_INDX()
#define	INCREMENT()
Functions
void	_PACK (DopeVectorType *result, DopeVectorType *source, DopeVectorType *mask, DopeVectorType *vector)

---

Define Documentation

#define FIND_INDX

(

)

Value:

switch (rank) {                                                 \
            case 3 :                                                    \
                indx1_msk = msk_off[0] + msk_off[1];                    \
                indx1_src = src_off[0] + src_off[1];                    \
                break;                                                  \
            case 4 :                                                    \
                indx1_msk = msk_off[0] + msk_off[1] + msk_off[2];       \
                indx1_src = src_off[0] + src_off[1] + src_off[2];       \
                break;                                                  \
            case 5 :                                                    \
                indx1_msk = msk_off[0] + msk_off[1] +                   \
                            msk_off[2] + msk_off[3];                    \
                indx1_src = src_off[0] + src_off[1] +                   \
                            src_off[2] + src_off[3];                    \
                break;                                                  \
            case 6 :                                                    \
                indx1_msk = msk_off[0] + msk_off[1] + msk_off[2] +      \
                            msk_off[3] + msk_off[4];                    \
                indx1_src = src_off[0] + src_off[1] + src_off[2] +      \
                            src_off[3] + src_off[4];                    \
                break;                                                  \
            default :                                                   \
                indx1_msk = msk_off[0] + msk_off[1] + msk_off[2] +      \
                            msk_off[3] + msk_off[4] + msk_off[5];       \
                indx1_src = src_off[0] + src_off[1] + src_off[2] +      \
                            src_off[3] + src_off[4] + src_off[5];       \
        }

Definition at line 54 of file pack.c.

Referenced by _PACK().

#define INCREMENT

(

)

Definition at line 91 of file pack.c.

---

Function Documentation

void _PACK	(	DopeVectorType *	result,
		DopeVectorType *	source,
		DopeVectorType *	mask,
		DopeVectorType *	vector
	)

Definition at line 147 of file pack.c.

References _cptofcd(), _fcdlen(), _fcdtocp(), _LELVL_ABORT, _lerror(), DopeVector::a, 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, FEINTDTY, FENOMEMY, FIND_INDX, if(), 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, and DopeVector::type_lens.

Here is the call graph for this function: