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

//
// GENERATED FILE
//

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

//$Procedure      ZZBODBRY ( Return barycenter code for a body )
pub fn ZZBODBRY(BODY: i32) -> i32 {
    let mut ZZBODBRY: i32 = 0;

    if ((BODY >= 100) && (BODY <= 999)) {
        //
        // BODY is a "traditional" NAIF planet or natural satellite
        // ID code.
        //
        ZZBODBRY = (BODY / 100);
    } else if ((BODY >= 10000) && (BODY <= 99999)) {
        //
        // BODY is an "extended" NAIF natural satellite ID code.
        //
        ZZBODBRY = (BODY / 10000);
    } else {
        //
        // BODY is a barycenter code or is not associated with a
        // planetary system.  In either case, we simply return
        // the input value BODY.
        //
        ZZBODBRY = BODY;
    }

    ZZBODBRY
}