Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include <liberrno.h>
#include <stddef.h>
#include <cray/dopevec.h>
#include <cray/portdefs.h>
#include <stdlib.h>
Go to the source code of this file.
Defines | |
#define | BITS_PER_BYTE (BITS_PER_WORD / BYTES_PER_WORD) |
Functions | |
void | _SHAPE (DopeVectorType *result, DopeVectorType *source) |
#define BITS_PER_BYTE (BITS_PER_WORD / BYTES_PER_WORD) |
void _SHAPE | ( | DopeVectorType * | result, |
DopeVectorType * | source | ||
) |
Definition at line 57 of file shape.c.
References _LELVL_ABORT, _lerror(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, BITS_PER_BYTE, BYTES_PER_WORD, f90_type::dec_len, DopeVector::dimension, DopeVector::DvDimen::extent, FENMPTAR, FENOMEMY, f90_type::int_len, f90_type::kind_or_star, DopeVector::DvDimen::low_bound, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, DopeVector::p_or_a, DopeVector::DvDimen::stride_mult, and DopeVector::type_lens.