transfer.c File Reference

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

Include dependency graph for transfer.c:

Go to the source code of this file.

Defines
#define	CALC_SINDX()
#define	INCR_SRC()
Typedefs
typedef _f_int	RETURN_TYPE
Functions
void	_TRANSFER (DopeVectorType *result, DopeVectorType *source, DopeVectorType *mold, int *siz)
RETURN_TYPE	_TRANSFER1_0 (DopeVectorType *source, DopeVectorType *mold, int *siz)
_f_dble	_TRANSFER2_0 (DopeVectorType *source, DopeVectorType *mold, int *siz)
void	__transfer (DopeVectorType *result, DopeVectorType *source, DopeVectorType *mold, int *siz, int scalar)

---

Define Documentation

#define CALC_SINDX

(

)

Definition at line 50 of file transfer.c.

Referenced by __transfer().

#define INCR_SRC

(

)

Value:

src_dim[0]++;                                                   \
        if (src_dim[0] == src_ext[0]) {                                 \
            src_dim[0] = 0;                                             \
            src_dim[1]++;                                               \
            if (src_dim[1] == src_ext[1]) {                             \
                src_dim[1] = 0;                                         \
                src_dim[2]++;                                           \
                if (src_dim[2] == src_ext[2]) {                         \
                    src_dim[2] = 0;                                     \
                    src_dim[3]++;                                       \
                    if (src_dim[3] == src_ext[3]) {                     \
                        src_dim[3] = 0;                                 \
                        src_dim[4]++;                                   \
                        if (src_dim[4] == src_ext[4]) {                 \
                            src_dim[4] = 0;                             \
                            src_dim[5]++;                               \
                            if (src_dim[5] == src_ext[5]) {             \
                                src_dim[5] = 0;                         \
                                src_dim[6]++;                           \
                            }                                           \
                        }                                               \
                    }                                                   \
                }                                                       \
            }                                                           \
        }

Definition at line 87 of file transfer.c.

Referenced by __transfer().

---

Typedef Documentation

typedef _f_int RETURN_TYPE

Definition at line 163 of file transfer.c.

---

Function Documentation

void __transfer	(	DopeVectorType *	result,
		DopeVectorType *	source,
		DopeVectorType *	mold,
		int *	siz,
		int	scalar
	)

Definition at line 253 of file transfer.c.

References _cptofcd(), _fcdlen(), _fcdtocp(), _LELVL_ABORT, _lerror(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, BITS_PER_BYTE, BITS_PER_WORD, BYTES_PER_WORD, CALC_SINDX, DopeVector::charptr, DopeVector::dimension, DopeVector::DvDimen::extent, FEBADMLD, FENOMEMY, if(), 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, and DopeVector::type_lens.

Referenced by _TRANSFER(), _TRANSFER1_0(), and _TRANSFER2_0().

Here is the call graph for this function:

void _TRANSFER	(	DopeVectorType *	result,
		DopeVectorType *	source,
		DopeVectorType *	mold,
		int *	siz
	)

Definition at line 124 of file transfer.c.

References __transfer().

Here is the call graph for this function:

RETURN_TYPE _TRANSFER1_0	(	DopeVectorType *	source,
		DopeVectorType *	mold,
		int *	siz
	)

Definition at line 170 of file transfer.c.

References __transfer(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, f90_type::int_len, f90_type::kind_or_star, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, and DopeVector::type_lens.

Here is the call graph for this function:

_f_dble _TRANSFER2_0	(	DopeVectorType *	source,
		DopeVectorType *	mold,
		int *	siz
	)

Definition at line 198 of file transfer.c.

References __transfer(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, f90_type::dec_len, f90_type::dpflag, f90_type::int_len, f90_type::kind_or_star, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::ptr_alloc, result, f90_type::type, and DopeVector::type_lens.

Here is the call graph for this function: