1 #include "sofa.h"
2 
iauPpp(double a[3],double b[3],double apb[3])3 void iauPpp(double a[3], double b[3], double apb[3])
4 /*
5 **  - - - - - - -
6 **   i a u P p p
7 **  - - - - - - -
8 **
9 **  P-vector addition.
10 **
11 **  This function is part of the International Astronomical Union's
12 **  SOFA (Standards Of Fundamental Astronomy) software collection.
13 **
14 **  Status:  vector/matrix support function.
15 **
16 **  Given:
17 **     a        double[3]      first p-vector
18 **     b        double[3]      second p-vector
19 **
20 **  Returned:
21 **     apb      double[3]      a + b
22 **
23 **  Note:
24 **     It is permissible to re-use the same array for any of the
25 **     arguments.
26 **
27 **  This revision:  2021 May 11
28 **
29 **  SOFA release 2021-05-12
30 **
31 **  Copyright (C) 2021 IAU SOFA Board.  See notes at end.
32 */
33 {
34    apb[0] = a[0] + b[0];
35    apb[1] = a[1] + b[1];
36    apb[2] = a[2] + b[2];
37 
38 /* Finished. */
39 
40 /*----------------------------------------------------------------------
41 **
42 **  Copyright (C) 2021
43 **  Standards Of Fundamental Astronomy Board
44 **  of the International Astronomical Union.
45 **
46 **  =====================
47 **  SOFA Software License
48 **  =====================
49 **
50 **  NOTICE TO USER:
51 **
52 **  BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND
53 **  CONDITIONS WHICH APPLY TO ITS USE.
54 **
55 **  1. The Software is owned by the IAU SOFA Board ("SOFA").
56 **
57 **  2. Permission is granted to anyone to use the SOFA software for any
58 **     purpose, including commercial applications, free of charge and
59 **     without payment of royalties, subject to the conditions and
60 **     restrictions listed below.
61 **
62 **  3. You (the user) may copy and distribute SOFA source code to others,
63 **     and use and adapt its code and algorithms in your own software,
64 **     on a world-wide, royalty-free basis.  That portion of your
65 **     distribution that does not consist of intact and unchanged copies
66 **     of SOFA source code files is a "derived work" that must comply
67 **     with the following requirements:
68 **
69 **     a) Your work shall be marked or carry a statement that it
70 **        (i) uses routines and computations derived by you from
71 **        software provided by SOFA under license to you; and
72 **        (ii) does not itself constitute software provided by and/or
73 **        endorsed by SOFA.
74 **
75 **     b) The source code of your derived work must contain descriptions
76 **        of how the derived work is based upon, contains and/or differs
77 **        from the original SOFA software.
78 **
79 **     c) The names of all routines in your derived work shall not
80 **        include the prefix "iau" or "sofa" or trivial modifications
81 **        thereof such as changes of case.
82 **
83 **     d) The origin of the SOFA components of your derived work must
84 **        not be misrepresented;  you must not claim that you wrote the
85 **        original software, nor file a patent application for SOFA
86 **        software or algorithms embedded in the SOFA software.
87 **
88 **     e) These requirements must be reproduced intact in any source
89 **        distribution and shall apply to anyone to whom you have
90 **        granted a further right to modify the source code of your
91 **        derived work.
92 **
93 **     Note that, as originally distributed, the SOFA software is
94 **     intended to be a definitive implementation of the IAU standards,
95 **     and consequently third-party modifications are discouraged.  All
96 **     variations, no matter how minor, must be explicitly marked as
97 **     such, as explained above.
98 **
99 **  4. You shall not cause the SOFA software to be brought into
100 **     disrepute, either by misuse, or use for inappropriate tasks, or
101 **     by inappropriate modification.
102 **
103 **  5. The SOFA software is provided "as is" and SOFA makes no warranty
104 **     as to its use or performance.   SOFA does not and cannot warrant
105 **     the performance or results which the user may obtain by using the
106 **     SOFA software.  SOFA makes no warranties, express or implied, as
107 **     to non-infringement of third party rights, merchantability, or
108 **     fitness for any particular purpose.  In no event will SOFA be
109 **     liable to the user for any consequential, incidental, or special
110 **     damages, including any lost profits or lost savings, even if a
111 **     SOFA representative has been advised of such damages, or for any
112 **     claim by any third party.
113 **
114 **  6. The provision of any version of the SOFA software under the terms
115 **     and conditions specified herein does not imply that future
116 **     versions will also be made available under the same terms and
117 **     conditions.
118 *
119 **  In any published work or commercial product which uses the SOFA
120 **  software directly, acknowledgement (see www.iausofa.org) is
121 **  appreciated.
122 **
123 **  Correspondence concerning SOFA software should be addressed as
124 **  follows:
125 **
126 **      By email:  sofa@ukho.gov.uk
127 **      By post:   IAU SOFA Center
128 **                 HM Nautical Almanac Office
129 **                 UK Hydrographic Office
130 **                 Admiralty Way, Taunton
131 **                 Somerset, TA1 2DN
132 **                 United Kingdom
133 **
134 **--------------------------------------------------------------------*/
135 }
136