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

//
// GENERATED FILE
//

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

//$Procedure ZZDDHCLU ( Private --- DDH Count Locks )
pub fn ZZDDHCLU(UTLCK: &[bool], NUT: i32) -> i32 {
    let UTLCK = DummyArray::new(UTLCK, 1..);
    let mut ZZDDHCLU: i32 = 0;

    //
    // Local Variables
    //

    //
    // Loop through UTLCK counting the number of TRUE values.
    //
    ZZDDHCLU = 0;

    for I in 1..=NUT {
        if UTLCK[I] {
            ZZDDHCLU = (ZZDDHCLU + 1);
        }
    }

    ZZDDHCLU
}