Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include <errno.h>
#include <fortran.h>
#include <liberrno.h>
#include <cray/nassert.h>
#include "fio.h"
Go to the source code of this file.
Defines | |
#define | FILE_FLAG(__f) (__f)->_flag |
#define | TBFSZ (4096 * sizeof(long)) /* Size of temporary buffer (bytes) */ |
Functions | |
long | _fwwd (unit *cup, void *uda, type_packet *tip, int mode, int *ubcret, long *unused_6, int *status) |
#define TBFSZ (4096 * sizeof(long)) /* Size of temporary buffer (bytes) */ |
long _fwwd | ( | unit * | cup, |
void * | uda, | ||
type_packet * | tip, | ||
int | mode, | ||
int * | ubcret, | ||
long * | unused_6, | ||
int * | status | ||
) |
Definition at line 89 of file fwwd.c.
References __fndc_ncfunc, _cptofcd(), _fwwd, bitoff, CNT, type_information_packet::cnvindx, type_information_packet::cnvtype, COMPADD, type_information_packet::count, type_information_packet::elsize, EOR, errno, type_information_packet::extlen, FP::fdc, FDC_ERR_NCVRT, FEINTFST, FEINTUNK, FELDDCNV, FEMIXAUX, FESTIOER, FEUBCINV, FEWRAFEN, FILE_FLAG, FS_AUX, FS_FDC, FULL, type_information_packet::intlen, IOERR, type_information_packet::newfunc, NULL, PARTIAL, ret, STD, FP::std, stride, ffsw::sw_error, TBFSZ, tbuf, c_funs_s::to_foreign, type_information_packet::type90, unit_s::ualignmask, unit_s::uend, unit_s::uffsw, unit_s::ufp, unit_s::ufs, unit_s::ulastyp, unit_s::umultfil, and unit_s::urecpos.