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::*;

pub const LBCELL: i32 = -5;
const SCALE: f64 = 5.0;
const MAXV: i32 = (3 * 500);
const MAXP: i32 = (2 * MAXV);

//$Procedure ZZT_CG ( Make plate set for shape like comet C-G )
pub fn ZZT_CG(VOUT: &mut [f64], POUT: &mut [i32], ctx: &mut Context) -> f2rust_std::Result<()> {
    let mut VOUT = DummyArrayMut::new(VOUT, LBCELL..);
    let mut POUT = DummyArrayMut::new(POUT, LBCELL..);
    let mut A: f64 = 0.0;
    let mut OFFSET = StackArray::<f64, 3>::new(1..=3);
    let mut VTEMP0 = ActualArray::<f64>::new(LBCELL..=MAXV);
    let mut VTEMP1 = ActualArray::<f64>::new(LBCELL..=MAXV);
    let mut PTEMP0 = ActualArray::<i32>::new(LBCELL..=MAXP);
    let mut PTEMP1 = ActualArray::<i32>::new(LBCELL..=MAXP);

    //
    // SPICELIB functions
    //

    //
    // Local parameters
    //

    //
    // Local variables
    //

    if spicelib::RETURN(ctx) {
        return Ok(());
    }

    spicelib::CHKIN(b"ZZT_CG", ctx)?;

    spicelib::SSIZED(MAXV, VTEMP0.as_slice_mut(), ctx)?;
    spicelib::SSIZED(MAXV, VTEMP1.as_slice_mut(), ctx)?;
    spicelib::SSIZEI(MAXP, PTEMP0.as_slice_mut(), ctx)?;
    spicelib::SSIZEI(MAXP, PTEMP1.as_slice_mut(), ctx)?;

    A = SCALE;

    ZZPSBOX(
        A,
        ((3 as f64) * A),
        ((4 as f64) * A),
        VOUT.as_slice_mut(),
        POUT.as_slice_mut(),
        ctx,
    )?;
    ZZPSBOX(A, A, A, VTEMP0.as_slice_mut(), PTEMP0.as_slice_mut(), ctx)?;

    OFFSET[1] = (1.5 * A);
    OFFSET[2] = A;
    OFFSET[3] = 0.0;

    ZZPSXLAT(
        VTEMP0.as_slice(),
        OFFSET.as_slice(),
        VTEMP1.as_slice_mut(),
        ctx,
    )?;
    spicelib::COPYD(VTEMP1.as_slice(), VTEMP0.as_slice_mut(), ctx)?;

    ZZPSUN(
        VTEMP0.as_slice(),
        PTEMP0.as_slice(),
        VOUT.as_slice(),
        POUT.as_slice(),
        VTEMP1.as_slice_mut(),
        PTEMP1.as_slice_mut(),
        ctx,
    )?;

    spicelib::COPYD(VTEMP1.as_slice(), VOUT.as_slice_mut(), ctx)?;
    spicelib::COPYI(PTEMP1.as_slice(), POUT.as_slice_mut(), ctx)?;

    ZZPSBOX(
        A,
        ((5 as f64) * A),
        ((3 as f64) * A),
        VTEMP0.as_slice_mut(),
        PTEMP0.as_slice_mut(),
        ctx,
    )?;

    OFFSET[1] = ((3 as f64) * A);
    OFFSET[2] = A;
    OFFSET[3] = A;

    ZZPSXLAT(
        VTEMP0.as_slice(),
        OFFSET.as_slice(),
        VTEMP1.as_slice_mut(),
        ctx,
    )?;
    spicelib::COPYD(VTEMP1.as_slice(), VTEMP0.as_slice_mut(), ctx)?;

    ZZPSUN(
        VTEMP0.as_slice(),
        PTEMP0.as_slice(),
        VOUT.as_slice(),
        POUT.as_slice(),
        VTEMP1.as_slice_mut(),
        PTEMP1.as_slice_mut(),
        ctx,
    )?;

    spicelib::COPYD(VTEMP1.as_slice(), VOUT.as_slice_mut(), ctx)?;
    spicelib::COPYI(PTEMP1.as_slice(), POUT.as_slice_mut(), ctx)?;

    spicelib::CHKOUT(b"ZZT_CG", ctx)?;
    Ok(())
}