#include <errno.h>
#include <foreign.h>
#include <fortran.h>
#include <liberrno.h>
#include <cray/dopevec.h>
#include "fio.h"
Go to the source code of this file.
Defines |
#define | ret_err(errnum) |
#define | UBC 5 /* argument number for optional ubc parameter */ |
Functions |
static void | __READ () |
void | READP (_f_int *unump, _f_int *uda, _f_int *words, _f_int *status, _f_int *ubc) |
_f_int | READ (_f_int *unump, _f_int *uda, _f_int *words, _f_int *status, _f_int *ubc) |
static void | __READ (int fulp, _f_int *unump, _f_int *uda, _f_int *words, _f_int *status, _f_int *ubc) |
Define Documentation
Value:{ \
*words = 0; \
*status = errnum; \
goto done; \
}
Definition at line 51 of file read.c.
Referenced by __READ().
#define UBC 5 /* argument number for optional ubc parameter */ |
Function Documentation
static void __READ |
( |
| ) |
[static] |
static void __READ |
( |
int |
fulp, |
|
|
_f_int * |
unump, |
|
|
_f_int * |
uda, |
|
|
_f_int * |
words, |
|
|
_f_int * |
status, |
|
|
_f_int * |
ubc |
|
) |
| [static] |
Definition at line 119 of file read.c.
References _frwd, _get_mismatch_error(), _imp_open(), CNT, type_information_packet::cnvindx, type_information_packet::count, cup, type_information_packet::elsize, EOD, EOR, errno, type_information_packet::extlen, FEKLUDG1, FEKLUDG2, FEKLUDG3, FEKLUDG4, FETAPUTE, type_information_packet::intlen, IOERR, NULL, unit_s::ok_rd_seq_unf, ret, ret_err, SEQ, STMT_BEGIN, STMT_END, type_information_packet::stride, T_RSU, TF_READ, type_information_packet::type77, type_information_packet::type90, unit_s::ubmx, unit_s::uend, UNF, and unit_s::uwrt.
_f_int READ |
( |
_f_int * |
unump, |
|
|
_f_int * |
uda, |
|
|
_f_int * |
words, |
|
|
_f_int * |
status, |
|
|
_f_int * |
ubc |
|
) |
| |
void READP |
( |
_f_int * |
unump, |
|
|
_f_int * |
uda, |
|
|
_f_int * |
words, |
|
|
_f_int * |
status, |
|
|
_f_int * |
ubc |
|
) |
| |