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
//
// GENERATED FILE
//
use super::*;
use crate::SpiceContext;
use f2rust_std::*;
/// EK, return shadowing status \<STUB>
///
/// Return shadowing status of a specified EK file. THIS IS A
/// STUB ROUTINE.
///
/// # Required Reading
///
/// * [EK](crate::required_reading::ek)
///
/// # Brief I/O
///
/// ```text
/// VARIABLE I/O DESCRIPTION
/// -------- --- --------------------------------------------------
/// HANDLE I Handle attached to EK file.
/// ISSHAD O Logical flag indicating whether EK is shadowed.
/// ```
///
/// # Detailed Input
///
/// ```text
/// HANDLE is the file handle of an EK open for writing.
/// ```
///
/// # Detailed Output
///
/// ```text
/// ISSHAD is a logical flag that is returned .TRUE. if and
/// only if the EK file designated by HANDLE is
/// shadowed.
///
/// In this stub version of the routine, ISSHAD is
/// always returned .FALSE.
/// ```
///
/// # Exceptions
///
/// ```text
/// Error free.
///
/// 1) It is not an error to supply an input handle that does not
/// belong to an EK that is open for write access.
/// ```
///
/// # Files
///
/// ```text
/// See the EK Required Reading for a discussion of the EK file
/// format.
/// ```
///
/// # Particulars
///
/// ```text
/// This routine is a utility that allows a program to test the
/// shadowing status of a specified EK file.
/// ```
///
/// # Examples
///
/// ```text
/// See the $Examples section of the umbrella routine EKSHAD.
/// ```
///
/// # Restrictions
///
/// ```text
/// 1) This is a stub routine.
/// ```
///
/// # Author and Institution
///
/// ```text
/// N.J. Bachman (JPL)
/// J. Diaz del Rio (ODC Space)
/// ```
///
/// # Version
///
/// ```text
/// - SPICELIB Version 1.1.0, 12-AUG-2021 (JDR)
///
/// Added IMPLICIT NONE statement.
///
/// Edited the header to comply with NAIF standard.
///
/// - SPICELIB Version 1.0.0, 19-DEC-1995 (NJB)
/// ```
pub fn ekshdw(handle: i32, isshad: &mut bool) {
EKSHDW(handle, isshad);
}
//$Procedure EKSHDW ( EK, return shadowing status <STUB> )
pub fn EKSHDW(HANDLE: i32, ISSHAD: &mut bool) {
let mut I: i32 = 0;
I = HANDLE;
*ISSHAD = false;
}