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
//
// GENERATED FILE
//
use super::*;
use crate::SpiceContext;
use f2rust_std::*;
pub const LBCELL: i32 = -5;
/// Return the dimension of a symbol
///
/// Return the dimension of a particular symbol in a character symbol
/// table. If the symbol is not found, the function returns the value
/// zero.
///
/// # Required Reading
///
/// * [SYMBOLS](crate::required_reading::symbols)
///
/// # Brief I/O
///
/// ```text
/// VARIABLE I/O DESCRIPTION
/// -------- --- --------------------------------------------------
/// NAME I Name of the symbol whose dimension is desired.
/// TABSYM,
/// TABPTR,
/// TABVAL I Components of the symbol table.
///
/// The function returns the dimension of the symbol NAME. If NAME is
/// not in the symbol table, the function returns the value zero.
/// ```
///
/// # Detailed Input
///
/// ```text
/// NAME is the name of the symbol whose dimension is to be
/// returned. If the symbol is not in the symbol table, the
/// function returns the value zero. This function is case
/// sensitive, NAME must match a symbol exactly.
///
/// TABSYM,
/// TABPTR,
/// TABVAL are the components of a character symbol table. The table
/// may or may not contain the symbol NAME.
/// ```
///
/// # Detailed Output
///
/// ```text
/// The function returns the dimension of the symbol NAME. The
/// dimension of a symbol is the number of values associated with
/// that symbol. If NAME is not in the symbol table, the function
/// returns the value zero.
/// ```
///
/// # Examples
///
/// ```text
/// The contents of the symbol table are:
///
/// BOHR --> HYDROGEN ATOM
/// EINSTEIN --> SPECIAL RELATIVITY
/// PHOTOELECTRIC EFFECT
/// BROWNIAN MOTION
/// FERMI --> NUCLEAR FISSION
///
///
/// Perhaps we want to know how many subjects are associated with
/// certain scientists. The following code returns the values of
/// NUMSUB indicated in the table.
///
/// NUMSUB = SYDIMC ( 'EINSTEIN', TABSYM, TABPTR, TABVAL )
/// NUMSUB = SYDIMC ( 'BOHR', TABSYM, TABPTR, TABVAL )
/// NUMSUB = SYDIMC ( 'FERMI', TABSYM, TABPTR, TABVAL )
/// NUMSUB = SYDIMC ( 'MILLIKAN', TABSYM, TABPTR, TABVAL )
///
///
/// ----SYMBOL----------NUMSUB------
/// | EINSTEIN | 3 |
/// | BOHR | 1 |
/// | FERMI | 1 |
/// | MILLIKAN | 0 |
/// --------------------------------
/// ```
///
/// # Author and Institution
///
/// ```text
/// J. Diaz del Rio (ODC Space)
/// H.A. Neilan (JPL)
/// W.L. Taber (JPL)
/// I.M. Underwood (JPL)
/// ```
///
/// # Version
///
/// ```text
/// - SPICELIB Version 1.2.0, 07-APR-2021 (JDR)
///
/// Added IMPLICIT NONE statement.
///
/// Edited the header to comply with NAIF standard. Updated
/// $Brief_I/O to indicate that TABSYM, TABPTR, TABVAL are input
/// arguments.
///
/// - SPICELIB Version 1.1.0, 17-MAY-1994 (HAN)
///
/// If the value of the function RETURN is .TRUE. upon execution of
/// this module, this function is assigned a default value of
/// either 0, 0.0D0, .FALSE., or blank depending on the type of
/// the function.
///
/// - SPICELIB Version 1.0.1, 10-MAR-1992 (WLT)
///
/// Comment section for permuted index source lines was added
/// following the header.
///
/// - SPICELIB Version 1.0.0, 31-JAN-1990 (IMU) (HAN)
/// ```
pub fn sydimc(
ctx: &mut SpiceContext,
name: &str,
tabsym: CharArray,
tabptr: &[i32],
tabval: CharArray,
) -> crate::Result<i32> {
let ret = SYDIMC(name.as_bytes(), tabsym, tabptr, tabval, ctx.raw_context())?;
ctx.handle_errors()?;
Ok(ret)
}
//$Procedure SYDIMC ( Return the dimension of a symbol )
pub fn SYDIMC(
NAME: &[u8],
TABSYM: CharArray,
TABPTR: &[i32],
TABVAL: CharArray,
ctx: &mut Context,
) -> f2rust_std::Result<i32> {
let TABSYM = DummyCharArray::new(TABSYM, None, LBCELL..);
let TABPTR = DummyArray::new(TABPTR, LBCELL..);
let mut SYDIMC: i32 = 0;
let mut NSYM: i32 = 0;
let mut LOCSYM: i32 = 0;
//
// SPICELIB functions
//
//
// Local variables
//
//
// Standard SPICE error handling
//
if RETURN(ctx) {
SYDIMC = 0;
return Ok(SYDIMC);
} else {
CHKIN(b"SYDIMC", ctx)?;
}
//
// How many symbols to start with?
//
NSYM = CARDC(TABSYM.as_arg(), ctx)?;
//
// Is this symbol even in the table?
//
LOCSYM = BSRCHC(NAME, NSYM, TABSYM.subarray(1));
//
// If it's not in the table, return zero. Otherwise, look up
// the dimension directly.
//
if (LOCSYM == 0) {
SYDIMC = 0;
} else {
SYDIMC = TABPTR[LOCSYM];
}
CHKOUT(b"SYDIMC", ctx)?;
Ok(SYDIMC)
}