Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include <ctype.h>
#include <errno.h>
#include <liberrno.h>
#include <fortran.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <cray/fmtconv.h>
#include <cray/format.h>
#include <cray/nassert.h>
#include <sys/unistd.h>
#include "fio.h"
#include "fmt.h"
#include "fstats.h"
#include "f90io.h"
Go to the source code of this file.
Defines | |
#define | MB 01000000L /* A million */ |
Functions | |
int | _dr_endrec (FIOSPTR css, unit *cup, int count) |
int | _ir_endrec (FIOSPTR css, unit *cup, int count) |
int | _sr_endrec (FIOSPTR css, unit *cup, int count) |
#define MB 01000000L /* A million */ |
Referenced by _sr_endrec().
int _dr_endrec | ( | FIOSPTR | css, |
unit * | cup, | ||
int | count | ||
) |
Definition at line 725 of file rf.c.
References _frch(), CNT, EOD, EOF, EOR, errno, FENORECN, FERDMALR, fiostate::iostate::fmt, FULL, fiostate::iostate::fmtstate::leftablim, NULL, RERROR, RERROR1, stat, fiostate::u, unit_s::udalast, unit_s::udamax, unit_s::ulinebuf, unit_s::ulinecnt, unit_s::ulineptr, and unit_s::urecsize.
Referenced by _FRF().
int _ir_endrec | ( | FIOSPTR | css, |
unit * | cup, | ||
int | count | ||
) |
Definition at line 805 of file rf.c.
References FERDIEOF, fiostate::iostate::fmt, fiostate::iostate::fmtstate::icl, fiostate::iostate::fmtstate::icp, fiostate::iostate::fmtstate::iiae, fiostate::iostate::fmtstate::leftablim, NULL, REND, fiostate::u, unit_s::ulinebuf, unit_s::ulinecnt, unit_s::ulineptr, and unit_s::urecsize.
Referenced by _FRF().
int _sr_endrec | ( | FIOSPTR | css, |
unit * | cup, | ||
int | count | ||
) |
Definition at line 856 of file rf.c.
References _frch(), CNT, EOD, EOF, EOR, errno, FERDENDR, FERDMEMY, FERDPEOF, fiostate::iostate::fmt, FULL, IOERR, fiostate::iostate::fmtstate::leftablim, MB, NULL, PARTIAL, REND, RERROR, stat, tbuf, fiostate::u, unit_s::uend, unit_s::ulinebuf, unit_s::ulinecnt, unit_s::ulineptr, and unit_s::urecsize.
Referenced by _FRF(), and _FRN().