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
//
// GENERATED FILE
//
use super::*;
use f2rust_std::*;
//--- The user defined functions required by GFUDB.
//
// gfb for udfunb
//
//$Procedure GFB ( Time dependent boolean function )
pub fn GFB(
UDFUNS: fn(&mut f64, &mut f64, &mut Context) -> f2rust_std::Result<()>,
T: &mut f64,
XBOOL: &mut bool,
ctx: &mut Context,
) -> f2rust_std::Result<()> {
//
// Return false unless otherwise assigned.
//
*XBOOL = false;
//
// An arbitrary boolean function with known boundaries
// at step event.
//
// ----- - ----
// | | | | | |
// -----| |--- ~ ---| |--- ~ ---| |----
// 20 30 55 57 92 100
//
if ((*T > 20.0) && (*T < 30.0)) {
*XBOOL = true;
} else if ((*T > 55.0) && (*T < 57.0)) {
*XBOOL = true;
} else if ((*T > 92.0) && (*T < 100.0)) {
*XBOOL = true;
}
Ok(())
}