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 | _rdunf (FIOSPTR css, unit *cup, void *ptr, type_packet *tip, int _Unused) |
int _rdunf | ( | FIOSPTR | css, |
unit * | cup, | ||
void * | ptr, | ||
type_packet * | tip, | ||
int | _Unused | ||
) |
Definition at line 73 of file rdunf.c.
References _rdunf, type_information_packet::count, type_information_packet::elsize, type_information_packet::extlen, FERDPEOR, if(), LOCBUFLN, type_information_packet::stride, type_information_packet::type90, and unit_s::ueor_found.