FACT++  1.0
pvm.c
Go to the documentation of this file.
1 #include "erfa.h"
2 
3 void eraPvm(double pv[2][3], double *r, double *s)
4 /*
5 ** - - - - - - -
6 ** e r a P v m
7 ** - - - - - - -
8 **
9 ** Modulus of pv-vector.
10 **
11 ** Given:
12 ** pv double[2][3] pv-vector
13 **
14 ** Returned:
15 ** r double modulus of position component
16 ** s double modulus of velocity component
17 **
18 ** Called:
19 ** eraPm modulus of p-vector
20 **
21 ** Copyright (C) 2013-2015, NumFOCUS Foundation.
22 ** Derived, with permission, from the SOFA library. See notes at end of file.
23 */
24 {
25 /* Distance. */
26  *r = eraPm(pv[0]);
27 
28 /* Speed. */
29  *s = eraPm(pv[1]);
30 
31  return;
32 
33 }
34 /*----------------------------------------------------------------------
35 **
36 **
37 ** Copyright (C) 2013-2015, NumFOCUS Foundation.
38 ** All rights reserved.
39 **
40 ** This library is derived, with permission, from the International
41 ** Astronomical Union's "Standards of Fundamental Astronomy" library,
42 ** available from http://www.iausofa.org.
43 **
44 ** The ERFA version is intended to retain identical functionality to
45 ** the SOFA library, but made distinct through different function and
46 ** file names, as set out in the SOFA license conditions. The SOFA
47 ** original has a role as a reference standard for the IAU and IERS,
48 ** and consequently redistribution is permitted only in its unaltered
49 ** state. The ERFA version is not subject to this restriction and
50 ** therefore can be included in distributions which do not support the
51 ** concept of "read only" software.
52 **
53 ** Although the intent is to replicate the SOFA API (other than
54 ** replacement of prefix names) and results (with the exception of
55 ** bugs; any that are discovered will be fixed), SOFA is not
56 ** responsible for any errors found in this version of the library.
57 **
58 ** If you wish to acknowledge the SOFA heritage, please acknowledge
59 ** that you are using a library derived from SOFA, rather than SOFA
60 ** itself.
61 **
62 **
63 ** TERMS AND CONDITIONS
64 **
65 ** Redistribution and use in source and binary forms, with or without
66 ** modification, are permitted provided that the following conditions
67 ** are met:
68 **
69 ** 1 Redistributions of source code must retain the above copyright
70 ** notice, this list of conditions and the following disclaimer.
71 **
72 ** 2 Redistributions in binary form must reproduce the above copyright
73 ** notice, this list of conditions and the following disclaimer in
74 ** the documentation and/or other materials provided with the
75 ** distribution.
76 **
77 ** 3 Neither the name of the Standards Of Fundamental Astronomy Board,
78 ** the International Astronomical Union nor the names of its
79 ** contributors may be used to endorse or promote products derived
80 ** from this software without specific prior written permission.
81 **
82 ** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
83 ** "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
84 ** LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
85 ** FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
86 ** COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
87 ** INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
88 ** BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
89 ** LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
90 ** CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
91 ** LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
92 ** ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
93 ** POSSIBILITY OF SUCH DAMAGE.
94 **
95 */
eraPm
double eraPm(double p[3])
Definition: pm.c:3
eraPvm
void eraPvm(double pv[2][3], double *r, double *s)
Definition: pvm.c:3