rfa 0.5.9

A port ERFA to Rust.
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

#[cfg(test)]

mod tests{
    use erfa_sys::*;
    use rfa::all::{ursa_gmst82, ursa_gst94, ursa_gst06a};
    #[test]
    pub fn gmst82_test(){
        let dj1 = ERFA_DJ00; let dj2 = 365.0;
        for i in 0..20  {
            let dj_new = dj2 + (i*100) as f64;
            let era_gmst = unsafe{ eraGmst82(dj1, dj_new)};
            let rfa_gmst = ursa_gmst82(dj1, dj_new);
            assert!((era_gmst - rfa_gmst).abs() < 1E-14 );
        }
    }

    #[test]
    pub fn gst94_test(){
        let dj1 = ERFA_DJ00; let dj2 = 365.0;
        for i in 0..20  {
            let dj_new = dj2 + (i*100) as f64;
            let era_gst = unsafe{ eraGst94(dj1, dj_new)};
            let rfa_gst = ursa_gst94(dj1, dj_new);
            assert!((era_gst - rfa_gst).abs() < 1E-14 );
        }
    }

    #[test]
    pub fn gst06_test(){
        let dj1 = ERFA_DJ00; let dj2 = 365.0;
        for i in 0..20  {
            let dj_new = dj2 + (i*100) as f64;
            let era_gst = unsafe{ eraGst06a(dj1, dj_new, dj1, dj_new)};
            let rfa_gst = ursa_gst06a(dj1, dj_new, dj1, dj_new);
            assert!((era_gst - rfa_gst).abs() < 1E-14 );
        }
    }
}