1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
//! Constants
//!
//! ```text
//!
//! C
//! C Include file dla.inc
//! C
//! C This include file declares parameters for DLA format
//! C version zero.
//! C
//! C Version 3.0.1 17-OCT-2016 (NJB)
//! C
//! C Corrected comment: VERIDX is now described as a DAS
//! C integer address rather than a d.p. address.
//! C
//! C Version 3.0.0 20-JUN-2006 (NJB)
//! C
//! C Changed name of parameter DSCSIZ to DLADSZ.
//! C
//! C Version 2.0.0 09-FEB-2005 (NJB)
//! C
//! C Changed descriptor layout to make backward pointer
//! C first element. Updated DLA format version code to 1.
//! C
//! C Added parameters for format version and number of bytes per
//! C DAS comment record.
//! C
//! C Version 1.0.0 28-JAN-2004 (NJB)
//! C
//!
//!
//! C
//! C DAS integer address of DLA version code.
//! C
//! INTEGER VERIDX
//! PARAMETER ( VERIDX = 1 )
//!
//! C
//! C Linked list parameters
//! C
//! C Logical arrays (aka "segments") in a DAS linked array (DLA) file
//! C are organized as a doubly linked list. Each logical array may
//! C actually consist of character, double precision, and integer
//! C components. A component of a given data type occupies a
//! C contiguous range of DAS addresses of that type. Any or all
//! C array components may be empty.
//! C
//! C The segment descriptors in a SPICE DLA (DAS linked array) file
//! C are connected by a doubly linked list. Each node of the list is
//! C represented by a pair of integers acting as forward and backward
//! C pointers. Each pointer pair occupies the first two integers of a
//! C segment descriptor in DAS integer address space. The DLA file
//! C contains pointers to the first integers of both the first and
//! C last segment descriptors.
//! C
//! C At the DLA level of a file format implementation, there is
//! C no knowledge of the data contents. Hence segment descriptors
//! C provide information only about file layout (in contrast with
//! C the DAF system). Metadata giving specifics of segment contents
//! C are stored within the segments themselves in DLA-based file
//! C formats.
//! C
//! C
//! C Parameter declarations follow.
//! C
//! C DAS integer addresses of first and last segment linked list
//! C pointer pairs. The contents of these pointers
//! C are the DAS addresses of the first integers belonging
//! C to the first and last link pairs, respectively.
//! C
//! C The acronyms "LLB" and "LLE" denote "linked list begin"
//! C and "linked list end" respectively.
//! C
//! INTEGER LLBIDX
//! PARAMETER ( LLBIDX = VERIDX + 1 )
//!
//! INTEGER LLEIDX
//! PARAMETER ( LLEIDX = LLBIDX + 1 )
//!
//! C
//! C Null pointer parameter.
//! C
//! INTEGER NULPTR
//! PARAMETER ( NULPTR = -1 )
//!
//! C
//! C Segment descriptor parameters
//! C
//! C Each segment descriptor occupies a contiguous
//! C range of DAS integer addresses.
//! C
//! C The segment descriptor layout is:
//! C
//! C +---------------+
//! C | BACKWARD PTR | Linked list backward pointer
//! C +---------------+
//! C | FORWARD PTR | Linked list forward pointer
//! C +---------------+
//! C | BASE INT ADDR | Base DAS integer address
//! C +---------------+
//! C | INT COMP SIZE | Size of integer segment component
//! C +---------------+
//! C | BASE DP ADDR | Base DAS d.p. address
//! C +---------------+
//! C | DP COMP SIZE | Size of d.p. segment component
//! C +---------------+
//! C | BASE CHR ADDR | Base DAS character address
//! C +---------------+
//! C | CHR COMP SIZE | Size of character segment component
//! C +---------------+
//! C
//! C Parameters defining offsets for segment descriptor elements
//! C follow.
//! C
//! INTEGER BWDIDX
//! PARAMETER ( BWDIDX = 1 )
//!
//! INTEGER FWDIDX
//! PARAMETER ( FWDIDX = BWDIDX + 1 )
//!
//! INTEGER IBSIDX
//! PARAMETER ( IBSIDX = FWDIDX + 1 )
//!
//! INTEGER ISZIDX
//! PARAMETER ( ISZIDX = IBSIDX + 1 )
//!
//! INTEGER DBSIDX
//! PARAMETER ( DBSIDX = ISZIDX + 1 )
//!
//! INTEGER DSZIDX
//! PARAMETER ( DSZIDX = DBSIDX + 1 )
//!
//! INTEGER CBSIDX
//! PARAMETER ( CBSIDX = DSZIDX + 1 )
//!
//! INTEGER CSZIDX
//! PARAMETER ( CSZIDX = CBSIDX + 1 )
//!
//! C
//! C Descriptor size:
//! C
//! INTEGER DLADSZ
//! PARAMETER ( DLADSZ = CSZIDX )
//!
//!
//! C
//! C Other DLA parameters:
//! C
//! C
//! C DLA format version. (This number is expected to occur very
//! C rarely at integer address VERIDX in uninitialized DLA files.)
//! C
//! INTEGER FMTVER
//! PARAMETER ( FMTVER = 1000000 )
//!
//! C
//! C Characters per DAS comment record.
//! C
//! INTEGER NCHREC
//! PARAMETER ( NCHREC = 1024 )
//!
//!
//! C
//! C End of include file dla.inc
//! C
//!
//! ```
pub const VERIDX: i32 = 1;
pub const LLBIDX: i32 = ;
pub const LLEIDX: i32 = ;
pub const NULPTR: i32 = -1;
pub const BWDIDX: i32 = 1;
pub const FWDIDX: i32 = ;
pub const IBSIDX: i32 = ;
pub const ISZIDX: i32 = ;
pub const DBSIDX: i32 = ;
pub const DSZIDX: i32 = ;
pub const CBSIDX: i32 = ;
pub const CSZIDX: i32 = ;
pub const DLADSZ: i32 = CSZIDX;
pub const FMTVER: i32 = 1000000;
pub const NCHREC: i32 = 1024;