1 #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)
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 (open
, decimal
, 1 << 18, char2
)
30 IOPARM (open
, encoding
, 1 << 19, char1
)
31 IOPARM (open
, round
, 1 << 20, char2
)
32 IOPARM (open
, sign
, 1 << 21, char1
)
33 IOPARM (open
, asynchronous
, 1 << 22, char2
)
34 IOPARM (close
, common
, 0, common
)
35 IOPARM (close
, status
, 1 << 7, char1
)
36 IOPARM (filepos
, common
, 0, common
)
37 IOPARM (inquire
, common
, 0, common
)
38 IOPARM (inquire
, exist
, 1 << 7, pint4
)
39 IOPARM (inquire
, opened
, 1 << 8, pint4
)
40 IOPARM (inquire
, number
, 1 << 9, pint4
)
41 IOPARM (inquire
, named
, 1 << 10, pint4
)
42 IOPARM (inquire
, nextrec
, 1 << 11, pint4
)
43 IOPARM (inquire
, recl_out
, 1 << 12, pint4
)
44 IOPARM (inquire
, strm_pos_out
, 1 << 13, pintio
)
45 IOPARM (inquire
, file
, 1 << 14, char1
)
46 IOPARM (inquire
, access
, 1 << 15, char2
)
47 IOPARM (inquire
, form
, 1 << 16, char1
)
48 IOPARM (inquire
, blank
, 1 << 17, char2
)
49 IOPARM (inquire
, position
, 1 << 18, char1
)
50 IOPARM (inquire
, action
, 1 << 19, char2
)
51 IOPARM (inquire
, delim
, 1 << 20, char1
)
52 IOPARM (inquire
, pad
, 1 << 21, char2
)
53 IOPARM (inquire
, name
, 1 << 22, char1
)
54 IOPARM (inquire
, sequential
, 1 << 23, char2
)
55 IOPARM (inquire
, direct
, 1 << 24, char1
)
56 IOPARM (inquire
, formatted
, 1 << 25, char2
)
57 IOPARM (inquire
, unformatted
, 1 << 26, char1
)
58 IOPARM (inquire
, read
, 1 << 27, char2
)
59 IOPARM (inquire
, write
, 1 << 28, char1
)
60 IOPARM (inquire
, readwrite
, 1 << 29, char2
)
61 IOPARM (inquire
, convert
, 1 << 30, char1
)
62 IOPARM (inquire
, flags2
, 1 << 31, int4
)
63 IOPARM (inquire
, asynchronous
, 1 << 0, char1
)
64 IOPARM (inquire
, decimal
, 1 << 1, char2
)
65 IOPARM (inquire
, encoding
, 1 << 2, char1
)
66 IOPARM (inquire
, pending
, 1 << 3, pint4
)
67 IOPARM (inquire
, round
, 1 << 4, char1
)
68 IOPARM (inquire
, sign
, 1 << 5, char2
)
69 IOPARM (inquire
, size
, 1 << 6, pint4
)
70 IOPARM (inquire
, id
, 1 << 7, pint4
)
71 IOPARM (wait
, common
, 0, common
)
72 IOPARM (wait
, id
, 1 << 7, pint4
)
73 #ifndef IOPARM_dt_list_format
74 #define
IOPARM_dt_list_format (1 << 7)
75 #define
IOPARM_dt_namelist_read_mode (1 << 8)
77 IOPARM (dt
, common
, 0, common
)
78 IOPARM (dt
, rec
, 1 << 9, intio
)
79 IOPARM (dt
, size
, 1 << 10, pintio
)
80 IOPARM (dt
, iolength
, 1 << 11, pintio
)
81 IOPARM (dt
, internal_unit_desc
, 0, parray
)
82 IOPARM (dt
, format
, 1 << 12, char1
)
83 IOPARM (dt
, advance
, 1 << 13, char2
)
84 IOPARM (dt
, internal_unit
, 1 << 14, char1
)
85 IOPARM (dt
, namelist_name
, 1 << 15, char2
)
86 IOPARM (dt
, id
, 1 << 16, pint4
)
87 IOPARM (dt
, pos
, 1 << 17, intio
)
88 IOPARM (dt
, asynchronous
, 1 << 18, char1
)
89 IOPARM (dt
, blank
, 1 << 19, char2
)
90 IOPARM (dt
, decimal
, 1 << 20, char1
)
91 IOPARM (dt
, delim
, 1 << 21, char2
)
92 IOPARM (dt
, pad
, 1 << 22, char1
)
93 IOPARM (dt
, round
, 1 << 23, char2
)
94 IOPARM (dt
, sign
, 1 << 24, char1
)
95 IOPARM (dt
, u
, 0, pad
)
