wrfmt.c File Reference

#include <memory.h>
#include <stdlib.h>
#include <string.h>
#include <fortran.h>
#include <cray/fmtconv.h>
#include <cray/format.h>
#include <cray/nassert.h>
#include "fio.h"
#include "fmt.h"
#include "f90io.h"
#include "lio.h"

Include dependency graph for wrfmt.c:

Go to the source code of this file.

Defines
#define	MAXSH   1
#define	BLANK   ((long) ' ')
Functions
int	_wrfmt (FIOSPTR css, unit *cup, void *dptr, type_packet *tip, int _Unused)
Variables
const oc_func *	_oconvtab [LAST_DATA_ED+1]
const short	_odedtab [DVTYPE_NTYPES]
short	_o_sup_flg_tab [DVTYPE_NTYPES]
long	_o_sup_val_tab [DVTYPE_NTYPES]

---

Define Documentation

#define BLANK   ((long) ' ')

Definition at line 64 of file wrfmt.c.

#define MAXSH   1

Definition at line 51 of file wrfmt.c.

---

Function Documentation

int _wrfmt	(	FIOSPTR	css,
		unit *	cup,
		void *	dptr,
		type_packet *	tip,
		int	_Unused
	)

Definition at line 75 of file wrfmt.c.

References _ferr(), _issddptr, _o_sup_flg_tab, _o_sup_val_tab, _oconvtab, _odedtab, _rw_mxdgt, _UERRF, _UIOSTF, _wr_ilchk, _wrfmt, A_ED, B_ED, BLANK, BN_ED, BZ_ED, COLON_ED, type_information_packet::count, fiostate::iostate::fmtstate::cplus, D_ED, fmt_entry::default_digits, DEXP16, DEXP4, DEXP8, fmt_entry::digits_field, DOLLAR_ED, E_ED, type_information_packet::elsize, EN_ED, fiostate::iostate::fmtstate::endrec, ENDREP_OP, ES_ED, fmt_entry::exponent, F_ED, FEFMTILF, FEFMTQIO, FEINTIPF, FEWRLONG, FEWRTYPE, fmt_entry::field_width, FIRST_DATA_ED, fiostate::iostate::fmt, FMT_ENTRY_BYTE_SIZE, G_ED, I_ED, INVALID_INTLEN, INVALID_WTYPE, L_ED, LAST_DATA_ED, LAST_OP, fiostate::iostate::fmtstate::leftablim, MAXSH, MIN, MODE77, MODEMSN, MODESN, fiostate::iostate::fmtstate::nonl, NULL, O_ED, fmt_entry::offset, fmt_entry::op_code, P_ED, Q_ED, R_ED, fmt_entry::rep_count, REPEAT_OP, REVERT_OP, fmt_entry::rgcdedf, S_ED, SLASH_ED, SP_ED, SS_ED, stat, type_information_packet::stride, stride, STRING_ED, T_ED, TL_ED, TR_ED, type_information_packet::type90, fiostate::iostate::fmtstate::u, fiostate::u, unit_s::uflag, unit_s::ufnegzero, unit_s::uft90, unit_s::ulinebuf, unit_s::ulinecnt, unit_s::ulinemax, unit_s::ulineptr, unit_s::urecsize, and Z_ED.

Here is the call graph for this function:

---

Variable Documentation

short _o_sup_flg_tab[DVTYPE_NTYPES]

Definition at line 122 of file oconvtab.c.

Referenced by _wrfmt().

long _o_sup_val_tab[DVTYPE_NTYPES]

Definition at line 141 of file oconvtab.c.

Referenced by _wrfmt().

const oc_func* _oconvtab[LAST_DATA_ED+1]

Definition at line 58 of file oconvtab.c.

Referenced by _wrfmt().

const short _odedtab[DVTYPE_NTYPES]

Definition at line 102 of file oconvtab.c.

Referenced by _wrfmt().