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
//! Declare parameters specific to PCK type 20.
//!
//! ```text
//! C$ Abstract
//! C
//! C Declare parameters specific to PCK type 20.
//! C
//! C$ Disclaimer
//! C
//! C THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE
//! C CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S.
//! C GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE
//! C ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE
//! C PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS"
//! C TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY
//! C WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A
//! C PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC
//! C SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE
//! C SOFTWARE AND RELATED MATERIALS, HOWEVER USED.
//! C
//! C IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA
//! C BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT
//! C LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND,
//! C INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS,
//! C REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE
//! C REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY.
//! C
//! C RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF
//! C THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY
//! C CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE
//! C ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE.
//! C
//! C$ Required_Reading
//! C
//! C PCK
//! C
//! C$ Keywords
//! C
//! C PCK
//! C
//! C$ Restrictions
//! C
//! C None.
//! C
//! C$ Author_and_Institution
//! C
//! C N.J. Bachman (JPL)
//! C
//! C$ Literature_References
//! C
//! C None.
//! C
//! C$ Version
//! C
//! C- SPICELIB Version 1.0.0, 03-DEC-2013 (NJB)
//! C
//! C-&
//!
//! C MAXDEG is the maximum allowed degree of the input
//! C Chebyshev expansions. If the value of MAXDEG is
//! C increased, the SPICELIB routine PCKMAT must be
//! C changed accordingly. In particular, the size of
//! C the record passed to PCKRnn and PCKEnn must be
//! C increased, and comments describing the record size
//! C must be changed.
//! C
//! INTEGER MAXDEG
//! PARAMETER ( MAXDEG = 50 )
//!
//!
//! C
//! C DTOL,
//! C TOLSCL are, respectively, an absolute tolerance and
//! C a tolerance scale used for time coverage bound
//! C checking. DTOL has units of TDB seconds. TOLSCL
//! C is unitless. These two parameters are combined
//! C to produce a tolerance value via the formula
//! C
//! C TOL = MAX ( DTOL, TOLSCL * MAX( ABS(FIRST),
//! C ABS(LAST) ) )
//! C
//! C where FIRST and LAST are the coverage time bounds
//! C of a type 20 segment.
//! C
//! C The resulting parameter TOL is used as a tolerance
//! C for comparing the input segment descriptor time
//! C bounds to the first and last epoch covered by the
//! C sequence of time intervals defined by the inputs
//! C to PCKW20:
//! C
//! C INITJD
//! C INITFR
//! C INTLEN
//! C N
//!
//! C
//! C Absolute tolerance for coverage gap at endpoints
//! C of segment coverage interval, in seconds:
//! C
//! DOUBLE PRECISION DTOL
//! PARAMETER ( DTOL = 1.D-4 )
//!
//! C
//! C Relative tolerance for coverage gap at endpoints
//! C of segment coverage interval:
//! C
//! DOUBLE PRECISION TOLSCL
//! PARAMETER ( TOLSCL = 1.D-12 )
//!
//!
//! C
//! C End of include file pck20.inc.
//! C
//! ```
pub const MAXDEG: i32 = 50;
pub const DTOL: f64 = 0.0001;
pub const TOLSCL: f64 = 0.000000000001;