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