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