rsspice 0.1.0

Pure Rust port of the SPICE Toolkit for space geometry
Documentation 
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

//
// GENERATED FILE
//

use super::*;
use f2rust_std::*;

const TIGHT: f64 = 0.000000000001;

//$Procedure F_GFREFN ( GFREFN family tests )
pub fn F_GFREFN(OK: &mut bool, ctx: &mut Context) -> f2rust_std::Result<()> {
    let mut T: f64 = 0.0;
    let mut T1: f64 = 0.0;
    let mut T2: f64 = 0.0;
    let mut TEXP: f64 = 0.0;
    let mut RLOG: f64 = 0.0;
    let mut SEED1: i32 = 0;
    let mut TXT = [b' '; 128 as usize];
    let S1: bool = false;
    let S2: bool = false;

    //
    // SPICELIB functions
    //

    //
    // Local parameters
    //

    //
    // Begin every test family with an open call.
    //
    testutil::TOPEN(b"F_GFREFN", ctx)?;

    SEED1 = -82763653;

    //
    // Note, 5000 is an arbitrary value.
    //
    for I in 1..=5000 {
        //
        // Set T1 and T2 so that TEXP = (T1 + T2)/2.
        //
        RLOG = testutil::T_RANDD(-6.0, 14.0, &mut SEED1, ctx)?;
        T1 = (f64::powf(10 as f64, RLOG) * 1.0);
        T2 = (f64::powf(10 as f64, RLOG) * 3.0);
        TEXP = (f64::powf(10 as f64, RLOG) * 2.0);

        fstr::assign(&mut TXT, b"T1 = +/- #1, T2 = +/-#2, random test");

        spicelib::REPMD(&TXT.clone(), b"#1", T1, 12, &mut TXT, ctx);
        spicelib::REPMD(&TXT.clone(), b"#2", T2, 12, &mut TXT, ctx);

        testutil::TCASE(&TXT, ctx)?;

        //
        // T1 < T2.
        //
        spicelib::GFREFN(T1, T2, S1, S2, &mut T);
        testutil::CHCKSD(&TXT, T, b"~/", TEXP, TIGHT, OK, ctx)?;

        //
        // Negate the lot; T2 < T1
        //
        spicelib::GFREFN(-T1, -T2, S1, S2, &mut T);
        testutil::CHCKSD(&TXT, T, b"~/", -TEXP, TIGHT, OK, ctx)?;
    }

    testutil::T_SUCCESS(OK, ctx);

    Ok(())
}