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
//
// GENERATED FILE
//
use super::*;
use crate::SpiceContext;
use f2rust_std::*;
/// Same Sign Double Precision Numbers
///
/// Return .TRUE. if two given double precision numbers have the same
/// sign.
///
/// # Brief I/O
///
/// ```text
/// VARIABLE I/O DESCRIPTION
/// -------- --- --------------------------------------------------
/// X I A double precision number
/// Y I A double precision number
///
/// The function returns .TRUE. if the input arguments have the same
/// sign.
/// ```
///
/// # Detailed Input
///
/// ```text
/// X is any double precision number.
///
/// Y is any double precision number.
/// ```
///
/// # Detailed Output
///
/// ```text
/// The function returns .TRUE. if X and Y are both positive or both
/// negative. Otherwise, it returns .FALSE.
/// ```
///
/// # Exceptions
///
/// ```text
/// Error free.
/// ```
///
/// # Particulars
///
/// ```text
/// This routine returns the value:
///
/// ( (( X .GT. 0) .AND. (Y .GT. 0))
/// .OR. (( X .LT. 0) .AND. (Y .LT. 0)) )
///
/// This is a more stable value than
///
/// ( X*Y .GT. 0 )
///
/// Note: If either of the to inputs is zero. The result returned
/// will be .FALSE.
/// ```
///
/// # Examples
///
/// ```text
/// This routine can be used whenever a decision depends upon two
/// Double Precision values having the same sign.
///
/// IF ( SMSGND ( F(X1), F(X2) ) ) THEN
/// .
/// .
/// do something
/// .
/// .
/// ELSE
/// .
/// .
/// find a root of F lying between X1 and X2
/// .
/// .
/// END IF
/// ```
///
/// # Author and Institution
///
/// ```text
/// J. Diaz del Rio (ODC Space)
/// W.L. Taber (JPL)
/// ```
///
/// # Version
///
/// ```text
/// - SPICELIB Version 1.1.0, 26-OCT-2021 (JDR)
///
/// Added IMPLICIT NONE statement.
///
/// Edited the header to comply with NAIF standard.
///
/// - 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 (WLT)
/// ```
pub fn smsgnd(x: f64, y: f64) -> bool {
let ret = SMSGND(x, y);
ret
}
//$Procedure SMSGND ( Same Sign Double Precision Numbers )
pub fn SMSGND(X: f64, Y: f64) -> bool {
let mut SMSGND: bool = false;
SMSGND = (((X > 0 as f64) && (Y > 0 as f64)) || ((X < 0 as f64) && (Y < 0 as f64)));
SMSGND
}