Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include <errno.h>
#include <liberrno.h>
#include <fortran.h>
#include <cray/nassert.h>
#include "fio.h"
#include "f90io.h"
Go to the source code of this file.
Defines | |
#define | LOCBUFLN 4096 |
Functions | |
int | _wrunf (FIOSPTR css, unit *cup, void *ptr, type_packet *tip, int mode) |
int _wrunf | ( | FIOSPTR | css, |
unit * | cup, | ||
void * | ptr, | ||
type_packet * | tip, | ||
int | mode | ||
) |
Definition at line 70 of file wrunf.c.
References _wrunf, type_information_packet::count, type_information_packet::elsize, type_information_packet::extlen, FEWRLONG, if(), LOCBUFLN, type_information_packet::stride, type_information_packet::type90, unit_s::urecl, unit_s::urecpos, and unit_s::useq.