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

//
// GENERATED FILE
//

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

//$Procedure ZZCK4D2I ( Unpack a set of integers from DP number )
pub fn ZZCK4D2I(DPCOEF: &mut f64, NSETS: i32, PARCOD: f64, I: &mut [i32]) {
    let mut I = DummyArrayMut::new(I, 1..);
    let mut X: f64 = 0.0;

    //
    // Local variables.
    //

    //
    // Let's unpack it!
    //
    X = f64::powi(PARCOD, (NSETS - 1));

    for K in 0..=(NSETS - 1) {
        I[(NSETS - K)] = (*DPCOEF / X) as i32;
        *DPCOEF = (*DPCOEF - ((I[(NSETS - K)] as f64) * X));
        X = (X / PARCOD);
    }

    //
    // All done.
    //
}