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

use super::c2s::c2s;
/// P-vector to spherical polar coordinates.
///
/// Given:
///  * p p-vector
///
/// Returned:
///  * theta    longitude angle (radians)
///  * phi      latitude angle (radians)
///  * r        radial distance
///
/// Notes:
///  * If At either pole, zero theta is returned.
///
/// Called:
///  * 2s       p-vector to spherical
///  * pm        modulus of p-vector
///
/// This revision:  2021 May 11
pub fn p2s( p: &[f64; 3], theta: &mut f64, phi: &mut f64, r: &mut f64)
{
   c2s(p, theta, phi);
   *r = super::super::vector_ops::pm::pm(p);

/* Finished. */

}