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
//
// GENERATED FILE
//
use super::*;
use crate::SpiceContext;
use f2rust_std::*;
/// Opposite Sign Integers
///
/// Return .TRUE. if two given integer numbers have opposite signs.
///
/// # Brief I/O
///
/// ```text
/// VARIABLE I/O DESCRIPTION
/// -------- --- --------------------------------------------------
/// X I An integer.
/// Y I An integer.
///
/// The function returns .TRUE. when the integer numbers X and Y have
/// opposite signs.
/// ```
///
/// # Detailed Input
///
/// ```text
/// X is any integer number.
///
/// Y is any integer number.
/// ```
///
/// # Detailed Output
///
/// ```text
/// The function returns .TRUE. if one of the pair X,Y is positive and
/// the other is negative. If either of the two values is zero, OPSGNI
/// will be .FALSE.
/// ```
///
/// # Exceptions
///
/// ```text
/// Error free.
/// ```
///
/// # Particulars
///
/// ```text
/// This routine returns the value:
///
/// ( (( X .GT. 0) .AND. (Y .LT. 0))
/// .OR. (( X .LT. 0) .AND. (Y .GT. 0)) )
///
/// This is a more stable value than
///
/// ( X*Y .LT. 0 )
///
/// Note that if either of the two values is zero, OPSGNI will be
/// false.
/// ```
///
/// # Examples
///
/// ```text
/// This routine can be used whenever a decision depends upon two
/// integer values having opposite signs.
///
/// IF ( OPSGNI ( F(X1), F(X2) ) ) THEN
/// .
/// .
/// find the value of F closest to zero.
/// .
/// .
/// ELSE
/// .
/// .
/// do something
/// .
/// .
/// END IF
/// ```
///
/// # Author and Institution
///
/// ```text
/// J. Diaz del Rio (ODC Space)
/// B.V. Semenov (JPL)
/// 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. Extended
/// $Detailed_Output section to indicate the output value for
/// the case of either input being zero.
///
/// - SPICELIB Version 1.0.2, 07-NOV-2005 (BVS)
///
/// Fixed cut-and-paste errors in the header.
///
/// - 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 opsgni(x: i32, y: i32) -> bool {
let ret = OPSGNI(x, y);
ret
}
//$Procedure OPSGNI ( Opposite Sign Integers )
pub fn OPSGNI(X: i32, Y: i32) -> bool {
let mut OPSGNI: bool = false;
OPSGNI = (((X > 0) && (Y < 0)) || ((X < 0) && (Y > 0)));
OPSGNI
}