getdcparam.c File Reference

#include <fortran.h>
#include <cray/nassert.h>
#include <cray/dopevec.h>
#include "fio.h"

Include dependency graph for getdcparam.c:

Go to the source code of this file.

Defines
#define	DT_SPECREAL
#define	INTEGER_SZ   (sizeof(_f_int) << 3) /* INTEGER */
#define	REAL_SZ   (sizeof(_f_real) << 3) /* REAL */
#define	DOUBLE_SZ   (sizeof(_f_dble) << 3) /* DOUBLE */
#define	COMPLEX_SZ   (sizeof(_f_comp) << 3) /* COMPLEX */
#define	LOGICAL_SZ   (sizeof(_f_log) << 3) /* LOGICAL */
Functions
static void	_gdc_abort (FIOSPTR css, unit *cup, struct f90_type ts)
int	_gdc_dflt2len (int ncindex, struct f90_type ts, short dp)
int	_gdc_kind2len (int ncindex, struct f90_type ts)
int	_gdc_star2len (int ncindex, struct f90_type ts)
int	_get_dc_param (FIOSPTR css, unit *cup, struct f90_type ts, type_packet *tip)

---

Define Documentation

#define COMPLEX_SZ   (sizeof(_f_comp) << 3) /* COMPLEX */

Definition at line 54 of file getdcparam.c.

Referenced by _gdc_dflt2len(), and _get_dc_param().

#define DOUBLE_SZ   (sizeof(_f_dble) << 3) /* DOUBLE */

Definition at line 53 of file getdcparam.c.

#define DT_SPECREAL

Value:

8       /* type code for converting single precision
                                 * data to double precision data */

Definition at line 45 of file getdcparam.c.

Referenced by _get_dc_param().

#define INTEGER_SZ   (sizeof(_f_int) << 3) /* INTEGER */

Definition at line 51 of file getdcparam.c.

Referenced by _gdc_dflt2len().

#define LOGICAL_SZ   (sizeof(_f_log) << 3) /* LOGICAL */

Definition at line 55 of file getdcparam.c.

Referenced by _gdc_dflt2len().

#define REAL_SZ   (sizeof(_f_real) << 3) /* REAL */

Definition at line 52 of file getdcparam.c.

Referenced by _gdc_dflt2len(), and _get_dc_param().

---

Function Documentation

static void _gdc_abort	(	FIOSPTR	css,
		unit *	cup,
		struct f90_type	ts
	)		[static]

Definition at line 623 of file getdcparam.c.

References _f90_type_name, _ferr(), f90_type::dec_len, f90_type::dpflag, FENCNV90, f90_type::int_len, f90_type::kind_or_star, and f90_type::type.

Referenced by _get_dc_param().

Here is the call graph for this function:

int _gdc_dflt2len	(	int	ncindex,
		struct f90_type	ts,
		short	dp
	)

Definition at line 391 of file getdcparam.c.

References COMPLEX_SZ, f90_type::int_len, INTEGER_SZ, LOGICAL_SZ, MIN, NCV_CRAY, NCV_IBM, NCV_IED, NCV_IEG, NCV_IEL, NCV_IEU, NCV_MIPS, NCV_T3D, NCV_VMS, REAL_SZ, and f90_type::type.

Referenced by _get_dc_param().

int _gdc_kind2len	(	int	ncindex,
		struct f90_type	ts
	)

Definition at line 575 of file getdcparam.c.

References f90_type::dec_len, NCV_CRAY, NCV_IEL, NCV_T3D, and f90_type::type.

Referenced by _get_dc_param().

int _gdc_star2len	(	int	ncindex,
		struct f90_type	ts
	)

Definition at line 516 of file getdcparam.c.

References f90_type::dec_len, NCV_CDC, NCV_CRAY, NCV_IEL, NCV_NVE, NCV_T3D, and f90_type::type.

Referenced by _get_dc_param().

int _get_dc_param	(	FIOSPTR	css,
		unit *	cup,
		struct f90_type	ts,
		type_packet *	tip
	)

Definition at line 81 of file getdcparam.c.

References __fndc_f77sz, __fndc_ncfunc, _charset_cnvt, _f77_type_len, _f90_to_f77_type_cnvt, _gdc_abort(), _gdc_dflt2len(), _gdc_kind2len(), _gdc_star2len(), ABORT_ON_ERROR, type_information_packet::cnvfunc, type_information_packet::cnvindx, type_information_packet::cnvtype, COMPLEX_SZ, f90_type::dec_len, f90_type::dpflag, DT_DBLE, DT_INT, DT_REAL, DT_SINT, DT_SPECREAL, type_information_packet::extlen, FENCNV90, f90_type::int_len, type_information_packet::intlen, f90_type::kind_or_star, NCV_IEG, c_funs_s::new_style_func, type_information_packet::newfunc, REAL_SZ, c_funs_s::to_foreign, c_funs_s::to_native, f90_type::type, type_information_packet::type77, type_information_packet::type90, _dsz_s::typlen, unit_s::ucharset, unit_s::unumcvrt, and unit_s::uwrt.

Referenced by _BUFFERIN(), _BUFFEROUT(), _stride_dv(), _strip_mine(), and _xfer_iolist().

Here is the call graph for this function: