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
//! Constants
//!
//! ```text
//!
//! C
//! C File: zzdsk.inc
//! C
//! C
//! C Version 4.0.0 13-NOV-2015 (NJB)
//! C
//! C Changed parameter LBTLEN to CVTLEN.
//! C Added parameter LMBCRV.
//! C
//! C Version 3.0.0 05-NOV-2015 (NJB)
//! C
//! C Added parameters
//! C
//! C CTRCOR
//! C ELLCOR
//! C GUIDED
//! C LBTLEN
//! C PNMBRL
//! C TANGNT
//! C TMTLEN
//! C UMBRAL
//! C
//! C Version 2.0.0 04-MAR-2015 (NJB)
//! C
//! C Removed declaration of parameter SHPLEN.
//! C This name is already in use in the include
//! C file gf.inc.
//! C
//! C Version 1.0.0 26-JAN-2015 (NJB)
//! C
//!
//! C
//! C Parameters supporting METHOD string parsing:
//! C
//! INTEGER DSKSHP
//! PARAMETER ( DSKSHP = 2 )
//!
//! INTEGER ELLSHP
//! PARAMETER ( ELLSHP = 1 )
//!
//! C
//! C Local method length.
//! C
//! INTEGER MTHLEN
//! PARAMETER ( MTHLEN = 500 )
//!
//! C
//! C Length of sub-point type string.
//! C
//! INTEGER SUBLEN
//! PARAMETER ( SUBLEN = 20 )
//!
//! C
//! C Length of curve type string.
//! C
//! INTEGER CVTLEN
//! PARAMETER ( CVTLEN = 20 )
//!
//! C
//! C Limb type parameter codes.
//! C
//! INTEGER TANGNT
//! PARAMETER ( TANGNT = 1 )
//!
//! INTEGER GUIDED
//! PARAMETER ( GUIDED = 2 )
//!
//! C
//! C Length of terminator type string.
//! C
//! INTEGER TMTLEN
//! PARAMETER ( TMTLEN = 20 )
//!
//! C
//! C Terminator type and limb parameter codes.
//! C
//! INTEGER LMBCRV
//! PARAMETER ( LMBCRV = 0 )
//!
//! INTEGER UMBRAL
//! PARAMETER ( UMBRAL = 1 )
//!
//! INTEGER PNMBRL
//! PARAMETER ( PNMBRL = 2 )
//!
//! C
//! C Length of aberration correction locus string.
//! C
//! INTEGER ACLLEN
//! PARAMETER ( ACLLEN = 25 )
//!
//! C
//! C Aberration correction locus codes.
//! C
//! INTEGER CTRCOR
//! PARAMETER ( CTRCOR = 1 )
//!
//! INTEGER ELLCOR
//! PARAMETER ( ELLCOR = 2 )
//!
//! C
//! C End of include file zzdsk.inc
//! C
//! ```
pub const DSKSHP: i32 = 2;
pub const ELLSHP: i32 = 1;
pub const MTHLEN: i32 = 500;
pub const SUBLEN: i32 = 20;
pub const CVTLEN: i32 = 20;
pub const TANGNT: i32 = 1;
pub const GUIDED: i32 = 2;
pub const TMTLEN: i32 = 20;
pub const LMBCRV: i32 = 0;
pub const UMBRAL: i32 = 1;
pub const PNMBRL: i32 = 2;
pub const ACLLEN: i32 = 25;
pub const CTRCOR: i32 = 1;
pub const ELLCOR: i32 = 2;