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
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

//
// GENERATED FILE
//

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

//$Procedure      F_ASNACSN (Family of tests for DASINE and DACOSN)
pub fn F_ASNACSN(OK: &mut bool, ctx: &mut Context) -> f2rust_std::Result<()> {
    let mut TSTARG: f64 = 0.0;
    let mut TOL: f64 = 0.0;
    let mut TSTANG: f64 = 0.0;

    //
    // Test Utility Functions
    //

    //
    // SPICELIB functions
    //

    //
    // Local variables.
    //

    //
    // Begin every test family with an open call.
    //

    testutil::TOPEN(b"F_ASNACSN", ctx)?;

    //
    // Test for tolerance negative error.
    //

    TOL = -0.000000000001;

    testutil::TCASE(b"Tolerance negative, error in DASINE", ctx)?;

    TSTANG = spicelib::DASINE(0.0, TOL, ctx)?;

    testutil::CHCKXC(true, b"SPICE(VALUEOUTOFRANGE)", OK, ctx)?;

    testutil::TCASE(b"Tolerance negative, error in DACOSN", ctx)?;

    TSTANG = spicelib::DACOSN(1.0, TOL, ctx)?;

    testutil::CHCKXC(true, b"SPICE(VALUEOUTOFRANGE)", OK, ctx)?;

    //
    // Test for error when argument is too large
    //

    TOL = 0.000000000001;

    TSTARG = (1.0 + 0.00000000001);

    testutil::TCASE(b"Argument too large in DASINE.", ctx)?;

    TSTANG = spicelib::DASINE(TSTARG, TOL, ctx)?;

    testutil::CHCKXC(true, b"SPICE(INPUTOUTOFBOUNDS)", OK, ctx)?;

    testutil::TCASE(b"Is value = ASIN (1.0) in DASINE?)", ctx)?;

    testutil::CHCKSD(b"TSTANG", TSTANG, b"=", spicelib::HALFPI(ctx), 0.0, OK, ctx)?;

    testutil::TCASE(b"Argument too large in DACOSN.", ctx)?;

    TSTANG = spicelib::DACOSN(TSTARG, TOL, ctx)?;

    testutil::CHCKXC(true, b"SPICE(INPUTOUTOFBOUNDS)", OK, ctx)?;

    testutil::TCASE(b"Is value = ACOS (1.0) in DACOSN?)", ctx)?;

    testutil::CHCKSD(b"TSTANG", TSTANG, b"=", 0.0, 0.0, OK, ctx)?;

    //
    // Test for error when argument is too small
    //

    TOL = 0.000000000001;

    TSTARG = (-1.0 - 0.00000000001);

    testutil::TCASE(b"Argument too small in DASINE.", ctx)?;

    TSTANG = spicelib::DASINE(TSTARG, TOL, ctx)?;

    testutil::CHCKXC(true, b"SPICE(INPUTOUTOFBOUNDS)", OK, ctx)?;

    testutil::TCASE(b"Is value = ASIN (-1.0) in DASINE?)", ctx)?;

    testutil::CHCKSD(
        b"TSTANG",
        TSTANG,
        b"=",
        -spicelib::HALFPI(ctx),
        0.0,
        OK,
        ctx,
    )?;

    testutil::TCASE(b"Argument too small in DACOSN.", ctx)?;

    TSTANG = spicelib::DACOSN(TSTARG, TOL, ctx)?;

    testutil::CHCKXC(true, b"SPICE(INPUTOUTOFBOUNDS)", OK, ctx)?;

    testutil::TCASE(b"Is value = ACOS (-1.0) in DACOSN?)", ctx)?;

    testutil::CHCKSD(b"TSTANG", TSTANG, b"=", spicelib::PI(ctx), 0.0, OK, ctx)?;

    //
    // All done.
    //

    testutil::T_SUCCESS(OK, ctx);
    Ok(())
}