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 (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
, strm_pos_out
, 1 << 13, pintio
)
40 IOPARM (inquire
, file
, 1 << 14, char1
)
41 IOPARM (inquire
, access
, 1 << 15, char2
)
42 IOPARM (inquire
, form
, 1 << 16, char1
)
43 IOPARM (inquire
, blank
, 1 << 17, char2
)
44 IOPARM (inquire
, position
, 1 << 18, char1
)
45 IOPARM (inquire
, action
, 1 << 19, char2
)
46 IOPARM (inquire
, delim
, 1 << 20, char1
)
47 IOPARM (inquire
, pad
, 1 << 21, char2
)
48 IOPARM (inquire
, name
, 1 << 22, char1
)
49 IOPARM (inquire
, sequential
, 1 << 23, char2
)
50 IOPARM (inquire
, direct
, 1 << 24, char1
)
51 IOPARM (inquire
, formatted
, 1 << 25, char2
)
52 IOPARM (inquire
, unformatted
, 1 << 26, char1
)
53 IOPARM (inquire
, read
, 1 << 27, char2
)
54 IOPARM (inquire
, write
, 1 << 28, char1
)
55 IOPARM (inquire
, readwrite
, 1 << 29, char2
)
56 IOPARM (inquire
, convert
, 1 << 30, char1
)
57 #ifndef IOPARM_dt_list_format
58 #define
IOPARM_dt_list_format (1 << 7)
59 #define
IOPARM_dt_namelist_read_mode (1 << 8)
61 IOPARM (dt
, common
, 0, common
)
62 IOPARM (dt
, rec
, 1 << 9, intio
)
63 IOPARM (dt
, size
, 1 << 10, pintio
)
64 IOPARM (dt
, iolength
, 1 << 11, pintio
)
65 IOPARM (dt
, internal_unit_desc
, 0, parray
)
66 IOPARM (dt
, format
, 1 << 12, char1
)
67 IOPARM (dt
, advance
, 1 << 13, char2
)
68 IOPARM (dt
, internal_unit
, 1 << 14, char1
)
69 IOPARM (dt
, namelist_name
, 1 << 15, char2
)
70 IOPARM (dt
, u
, 0, pad
)