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
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
//! Constants
//!
//! ```text
//! C
//! C Include file zzsclk01.inc
//! C
//! C SPICE private file intended solely for the support of SPICE
//! C routines. Users should not include this file directly due
//! C to the volatile nature of this file.
//! C
//! C Include file for SPICE-private declarations of SC01.
//! C
//! C- Version 1.0.0, 11-NOV-2020
//! C
//!
//! C
//! C Parameters copied from sclk.inc:
//! C
//! C NOTE: these declarations are duplicated in the include file
//! C sclk.inc. Those declarations must be kept in sync with
//! C these ones.
//! C
//! C
//! C Number of supported SCLK field delimiters:
//! C
//! INTEGER NDELIM
//! PARAMETER ( NDELIM = 5 )
//!
//! C
//! C Supported SCLK string field delimiters:
//! C
//! CHARACTER*(NDELIM) DELIMS
//! PARAMETER ( DELIMS = '.:-, ' )
//!
//! C
//! C Time system codes
//! C
//! INTEGER TDB
//! PARAMETER ( TDB = 1 )
//!
//! INTEGER TDT
//! PARAMETER ( TDT = 2 )
//!
//! C
//! C Maximum number of partitions:
//! C
//! INTEGER MXPART
//! PARAMETER ( MXPART = 9999 )
//!
//! C
//! C Maximum number of coefficient records:
//! C
//! INTEGER MXCOEF
//! PARAMETER ( MXCOEF = 100000 )
//!
//! C
//! C Maximum number of fields in an SCLK string:
//! C
//! INTEGER MXNFLD
//! PARAMETER ( MXNFLD = 10 )
//!
//! C
//! C Length of strings used to represent D.P. numbers:
//! C
//! INTEGER DPLEN
//! PARAMETER ( DPLEN = 30 )
//!
//! C
//! C End of duplicated declarations.
//! C
//!
//! C
//! C Indices of integer data items, relative to base index into
//! C the integer data buffer:
//! C
//! C
//! C Index of number of fields
//! C
//! INTEGER IXNFLD
//! PARAMETER ( IXNFLD = 1 )
//!
//! C
//! C Index of delimiter code
//! C
//! INTEGER IXDLIM
//! PARAMETER ( IXDLIM = IXNFLD + 1 )
//! C
//! C Index of time system code
//! C
//! INTEGER IXTSYS
//! PARAMETER ( IXTSYS = IXDLIM + 1 )
//!
//! C
//! C Index of coefficient count. The count is 3 x the number of
//! C coefficient records.
//! C
//! INTEGER IXNCOF
//! PARAMETER ( IXNCOF = IXTSYS + 1 )
//!
//! C
//! C Index of the number of partitions
//! C
//! INTEGER IXNPRT
//! PARAMETER ( IXNPRT = IXNCOF + 1 )
//!
//! C
//! C Index of the base index in the double precision buffer of the
//! C coefficient set
//! C
//! INTEGER IXBCOF
//! PARAMETER ( IXBCOF = IXNPRT + 1 )
//!
//! C
//! C Index of the base index in the double precision buffer of the
//! C partition start times
//! C
//! INTEGER IXBSTR
//! PARAMETER ( IXBSTR = IXBCOF + 1 )
//!
//! C
//! C Index of the base index in the double precision buffer of the
//! C partition end times
//! C
//! INTEGER IXBEND
//! PARAMETER ( IXBEND = IXBSTR + 1 )
//!
//! C
//! C Index of the base index in the double precision buffer of the
//! C SCLK field moduli
//! C
//! INTEGER IXBMOD
//! PARAMETER ( IXBMOD = IXBEND + 1 )
//!
//! C
//! C Index of the base index in the double precision buffer of the
//! C SCLK field offsets
//! C
//! INTEGER IXBOFF
//! PARAMETER ( IXBOFF = IXBMOD + 1 )
//!
//! C
//! C Number of integer values per clock
//! C
//! INTEGER NIVALS
//! PARAMETER ( NIVALS = IXBOFF )
//!
//!
//! C
//! C Data structure parameters
//! C
//!
//! C
//! C Maximum number of clocks
//! C
//! INTEGER MXNCLK
//! PARAMETER ( MXNCLK = 100 )
//!
//! C
//! C DP buffer size
//! C
//! C The buffer is large enough to hold data for one clock having the
//! C maximum amount of data.
//! C
//! INTEGER DBUFSZ
//! PARAMETER ( DBUFSZ = ( 3 * MXCOEF )
//! . + ( 2 * MXPART )
//! . + ( 2 * MXNFLD ) )
//!
//! C
//! C Integer buffer size
//! C
//! INTEGER IBUFSZ
//! PARAMETER ( IBUFSZ = NIVALS * MXNCLK )
//!
//! C
//! C Lower bound of control area of singly linked list:
//! C
//! INTEGER LBSNGL
//! PARAMETER ( LBSNGL = -5 )
//!
//! C
//! C The add-only hash pool for frame IDs is singly linked.
//! C
//! INTEGER CPLSIZ
//! PARAMETER ( CPLSIZ = MXNCLK - LBSNGL + 1 )
//!
//! C
//! C End include file zzsc01.inc
//! C
//! ```
pub const NDELIM: i32 = 5;
pub const DELIMS: &str = ".:-, ";
pub const TDB: i32 = 1;
pub const TDT: i32 = 2;
pub const MXPART: i32 = 9999;
pub const MXCOEF: i32 = 100000;
pub const MXNFLD: i32 = 10;
pub const DPLEN: i32 = 30;
pub const IXNFLD: i32 = 1;
pub const IXDLIM: i32 = ;
pub const IXTSYS: i32 = ;
pub const IXNCOF: i32 = ;
pub const IXNPRT: i32 = ;
pub const IXBCOF: i32 = ;
pub const IXBSTR: i32 = ;
pub const IXBEND: i32 = ;
pub const IXBMOD: i32 = ;
pub const IXBOFF: i32 = ;
pub const NIVALS: i32 = IXBOFF;
pub const MXNCLK: i32 = 100;
pub const DBUFSZ: i32 = ;
pub const IBUFSZ: i32 = ;
pub const LBSNGL: i32 = -5;
pub const CPLSIZ: i32 = ;