1 |
12 |
jlechner |
#ifndef IOPARM_common_libreturn_mask
|
2 |
|
|
#define IOPARM_common_libreturn_mask 3
|
3 |
|
|
#define IOPARM_common_libreturn_ok 0
|
4 |
|
|
#define IOPARM_common_libreturn_error 1
|
5 |
|
|
#define IOPARM_common_libreturn_end 2
|
6 |
|
|
#define IOPARM_common_libreturn_eor 3
|
7 |
|
|
#define IOPARM_common_err (1 << 2)
|
8 |
|
|
#define IOPARM_common_end (1 << 3)
|
9 |
|
|
#define IOPARM_common_eor (1 << 4)
|
10 |
|
|
#endif
|
11 |
|
|
IOPARM (common, flags, 0, int4)
|
12 |
|
|
IOPARM (common, unit, 0, int4)
|
13 |
|
|
IOPARM (common, filename, 0, pchar)
|
14 |
|
|
IOPARM (common, line, 0, int4)
|
15 |
|
|
IOPARM (common, iomsg, 1 << 6, char2)
|
16 |
|
|
IOPARM (common, iostat, 1 << 5, pint4)
|
17 |
|
|
IOPARM (open, common, 0, common)
|
18 |
|
|
IOPARM (open, recl_in, 1 << 7, int4)
|
19 |
|
|
IOPARM (open, file, 1 << 8, char2)
|
20 |
|
|
IOPARM (open, status, 1 << 9, char1)
|
21 |
|
|
IOPARM (open, access, 1 << 10, char2)
|
22 |
|
|
IOPARM (open, form, 1 << 11, char1)
|
23 |
|
|
IOPARM (open, blank, 1 << 12, char2)
|
24 |
|
|
IOPARM (open, position, 1 << 13, char1)
|
25 |
|
|
IOPARM (open, action, 1 << 14, char2)
|
26 |
|
|
IOPARM (open, delim, 1 << 15, char1)
|
27 |
|
|
IOPARM (open, pad, 1 << 16, char2)
|
28 |
|
|
IOPARM (open, convert, 1 << 17, char1)
|
29 |
|
|
IOPARM (close, common, 0, common)
|
30 |
|
|
IOPARM (close, status, 1 << 7, char1)
|
31 |
|
|
IOPARM (filepos, common, 0, common)
|
32 |
|
|
IOPARM (inquire, common, 0, common)
|
33 |
|
|
IOPARM (inquire, exist, 1 << 7, pint4)
|
34 |
|
|
IOPARM (inquire, opened, 1 << 8, pint4)
|
35 |
|
|
IOPARM (inquire, number, 1 << 9, pint4)
|
36 |
|
|
IOPARM (inquire, named, 1 << 10, pint4)
|
37 |
|
|
IOPARM (inquire, nextrec, 1 << 11, pint4)
|
38 |
|
|
IOPARM (inquire, recl_out, 1 << 12, pint4)
|
39 |
|
|
IOPARM (inquire, file, 1 << 13, char1)
|
40 |
|
|
IOPARM (inquire, access, 1 << 14, char2)
|
41 |
|
|
IOPARM (inquire, form, 1 << 15, char1)
|
42 |
|
|
IOPARM (inquire, blank, 1 << 16, char2)
|
43 |
|
|
IOPARM (inquire, position, 1 << 17, char1)
|
44 |
|
|
IOPARM (inquire, action, 1 << 18, char2)
|
45 |
|
|
IOPARM (inquire, delim, 1 << 19, char1)
|
46 |
|
|
IOPARM (inquire, pad, 1 << 20, char2)
|
47 |
|
|
IOPARM (inquire, name, 1 << 21, char1)
|
48 |
|
|
IOPARM (inquire, sequential, 1 << 22, char2)
|
49 |
|
|
IOPARM (inquire, direct, 1 << 23, char1)
|
50 |
|
|
IOPARM (inquire, formatted, 1 << 24, char2)
|
51 |
|
|
IOPARM (inquire, unformatted, 1 << 25, char1)
|
52 |
|
|
IOPARM (inquire, read, 1 << 26, char2)
|
53 |
|
|
IOPARM (inquire, write, 1 << 27, char1)
|
54 |
|
|
IOPARM (inquire, readwrite, 1 << 28, char2)
|
55 |
|
|
IOPARM (inquire, convert, 1 << 29, char1)
|
56 |
|
|
#ifndef IOPARM_dt_list_format
|
57 |
|
|
#define IOPARM_dt_list_format (1 << 7)
|
58 |
|
|
#define IOPARM_dt_namelist_read_mode (1 << 8)
|
59 |
|
|
#endif
|
60 |
|
|
IOPARM (dt, common, 0, common)
|
61 |
|
|
IOPARM (dt, rec, 1 << 9, int4)
|
62 |
|
|
IOPARM (dt, size, 1 << 10, pint4)
|
63 |
|
|
IOPARM (dt, iolength, 1 << 11, pint4)
|
64 |
|
|
IOPARM (dt, internal_unit_desc, 0, parray)
|
65 |
|
|
IOPARM (dt, format, 1 << 12, char1)
|
66 |
|
|
IOPARM (dt, advance, 1 << 13, char2)
|
67 |
|
|
IOPARM (dt, internal_unit, 1 << 14, char1)
|
68 |
|
|
IOPARM (dt, namelist_name, 1 << 15, char2)
|
69 |
|
|
IOPARM (dt, u, 0, pad)
|