#include <errno.h>
#include <foreign.h>
#include <fortran.h>
#include <liberrno.h>
#include "fio.h"
Go to the source code of this file.
Defines |
#define | UBC 4 /* argument number for optional ubc parameter */ |
#define | STATUS 5 /* argument number for optional status parameter */ |
Functions |
static void | __WRITE () |
_f_int | WRITE (_f_int *unump, _f_int *uda, _f_int *wordsp, _f_int *ubc, _f_int *status) |
void | WRITEP (_f_int *unump, _f_int *uda, _f_int *wordsp, _f_int *ubc, _f_int *status) |
static void | __WRITE (int fulp, _f_int *unump, _f_int *uda, _f_int *wordsp, _f_int *ubc, _f_int *status) |
Define Documentation
#define STATUS 5 /* argument number for optional status parameter */ |
#define UBC 4 /* argument number for optional ubc parameter */ |
Function Documentation
static void __WRITE |
( |
int |
fulp, |
|
|
_f_int * |
unump, |
|
|
_f_int * |
uda, |
|
|
_f_int * |
wordsp, |
|
|
_f_int * |
ubc, |
|
|
_f_int * |
status |
|
) |
| [static] |
Definition at line 116 of file write.c.
References _ferr(), _fwwd, _get_mismatch_error(), _imp_open(), type_information_packet::cnvindx, type_information_packet::count, cup, type_information_packet::elsize, errno, type_information_packet::extlen, FP::fdc, FEWRAFEN, type_information_packet::intlen, IOERR, NULL, unit_s::ok_wr_seq_unf, ret, SEQ, STMT_BEGIN, STMT_END, type_information_packet::stride, ffsw::sw_error, T_WSU, TF_WRITE, type_information_packet::type77, type_information_packet::type90, unit_s::uend, unit_s::uffsw, unit_s::ufp, unit_s::umultfil, UNF, unit_s::uspcproc, and unit_s::uwrt.
_f_int WRITE |
( |
_f_int * |
unump, |
|
|
_f_int * |
uda, |
|
|
_f_int * |
wordsp, |
|
|
_f_int * |
ubc, |
|
|
_f_int * |
status |
|
) |
| |
void WRITEP |
( |
_f_int * |
unump, |
|
|
_f_int * |
uda, |
|
|
_f_int * |
wordsp, |
|
|
_f_int * |
ubc, |
|
|
_f_int * |
status |
|
) |
| |