wb.c File Reference

#include <errno.h>
#include <liberrno.h>
#include <fortran.h>
#include <cray/nassert.h>
#include "fio.h"
#include "f90io.h"

Include dependency graph for wb.c:

Go to the source code of this file.

Defines
#define	MAXSH   1
Functions
static void	_wb (FIOSPTR css, unit *cup, _f_int *recmode, gfptr_t bloc, gfptr_t eloc, type_packet *tip)
void	_BUFFEROUT (struct bio_spec_list *bosl)
void	_WB (_f_int *biunit, _f_int *recmode, gfptr_t bloc, gfptr_t eloc, f90_type_t *tiptr)

---

Define Documentation

#define MAXSH   1

Definition at line 57 of file wb.c.

Referenced by _wb().

---

Function Documentation

void _BUFFEROUT

(

struct bio_spec_list *

bosl

)

Definition at line 117 of file wb.c.

References _ferr(), _get_dc_param(), _imp_open(), _PRAGMA_INLINE, _wb(), bio_spec_list::bloc, cup, bio_spec_list::eloc, type_information_packet::elsize, type_information_packet::extlen, f90_type::int_len, type_information_packet::intlen, NULL, bio_spec_list::recmode, ret, SEQ, STMT_BEGIN, type_information_packet::stride, T_BUFOUT, bio_spec_list::tiptr, f90_type::type, type_information_packet::type77, type_information_packet::type90, UNF, and bio_spec_list::unit.

Referenced by _WB().

Here is the call graph for this function:

static void _wb	(	FIOSPTR	css,
		unit *	cup,
		_f_int *	recmode,
		gfptr_t	bloc,
		gfptr_t	eloc,
		type_packet *	tip
	)		[static]

Definition at line 189 of file wb.c.

References _fcdlen(), _fcdtocp(), _ferr(), _fwwd, _issddptr, _leadz(), COMPADD, type_information_packet::count, type_information_packet::elsize, errno, gfptr_t::fcd, FP::fdc, FEBIOFWA, FEBIOFWD, FEBIONDA, FEBIONFM, FEINTUNK, FESHRSUP, FEWRAFEN, FFC_ASYNC, FFSTAT, FS_FDC, FULL, IOERR, MAXSH, MIN, NULL, PARTIAL, stat, STMT_END, ffsw::sw_error, T_BUFOUT, type_information_packet::type90, unit_s::ualignmask, unit_s::uasync, unit_s::uend, unit_s::uerr, unit_s::uffsw, unit_s::uflagword, unit_s::ufmt, unit_s::ufp, unit_s::ufs, unit_s::ulastyp, unit_s::ulrecl, unit_s::umultfil, unit_s::unitchk, unit_s::urecmode, unit_s::urecpos, unit_s::useq, unit_s::uspcproc, unit_s::uwrt, gfptr_t::v, and WAITIO.

Referenced by _BUFFEROUT().

Here is the call graph for this function:

void _WB	(	_f_int *	biunit,
		_f_int *	recmode,
		gfptr_t	bloc,
		gfptr_t	eloc,
		f90_type_t *	tiptr
	)

Definition at line 167 of file wb.c.

References _BUFFEROUT(), bio_spec_list::bloc, bio_spec_list::eloc, bio_spec_list::recmode, bio_spec_list::tiptr, bio_spec_list::unit, and bio_spec_list::version.

Here is the call graph for this function: