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
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

///  Multiply a p-vector by a scalar.
///
///  Given:
///   * s      scalar
///   * p      p-vector
///
///  Returned:
///   * sp s * p
///
///  This revision:  2021 May 11

pub fn sxp(s: f64, p: &[f64; 3], sp:&mut [f64; 3])
{
    sp[0] = s * p[0];
    sp[1] = s * p[1];
    sp[2] = s * p[2];
 
 /* Finished. */
 
 }

///  Multiply a pv-vector by two scalars.
///
///  Given:
///   * s1     scalar to multiply position component by
///   * s2     scalar to multiply velocity component by
///   * pv     pv-vector
///
///  Returned:
///   * spv    pv-vector: p scaled by s1, v scaled by s2
///
/// # Called:
///    * sxp   multiply p-vector by scalar
///
///  This revision:  2021 May 11
pub fn s2xpv(s1: f64, s2: f64, pv: &[[f64; 3]; 2], spv: &mut [[f64; 3]; 2])
{
    sxp(s1, &pv[0], &mut spv[0]);
    sxp(s2, &pv[1], &mut spv[1]);
  /* Finished. */
 
 }

///  Multiply a pv-vector by a scalar.
///
///  Given:
///   * s scalar
///   * pv pv-vector
///
///  Returned:
///   * spv s * pv
///
/// # Called:
///     s2xpv     multiply pv-vector by two scalars
///
///  This revision:  2021 May 11
pub fn sxpv(s: f64, pv: &[[f64; 3]; 2], spv:&mut [[f64; 3]; 2])
{
  s2xpv(s, s, pv, spv);

/* Finished. */

}