diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-10 18:41:55 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-10 18:41:55 (GMT) |
commit | 75fab9d80911f74aaab738fa9ab8a4f9b0f57a6b (patch) | |
tree | 8d0d428ac62291f834ea8927bfa82c115ff1689d /ast/erfa/fk5hip.c | |
parent | 0609bafa2688ce94fbfdc1ea496b20c3fac732f1 (diff) | |
download | blt-75fab9d80911f74aaab738fa9ab8a4f9b0f57a6b.zip blt-75fab9d80911f74aaab738fa9ab8a4f9b0f57a6b.tar.gz blt-75fab9d80911f74aaab738fa9ab8a4f9b0f57a6b.tar.bz2 |
upgrade ast 8.7.1
Diffstat (limited to 'ast/erfa/fk5hip.c')
-rw-r--r-- | ast/erfa/fk5hip.c | 135 |
1 files changed, 0 insertions, 135 deletions
diff --git a/ast/erfa/fk5hip.c b/ast/erfa/fk5hip.c deleted file mode 100644 index 5a05d4d..0000000 --- a/ast/erfa/fk5hip.c +++ /dev/null @@ -1,135 +0,0 @@ -#include "erfa.h" - -void eraFk5hip(double r5h[3][3], double s5h[3]) -/* -** - - - - - - - - - - -** e r a F k 5 h i p -** - - - - - - - - - - -** -** FK5 to Hipparcos rotation and spin. -** -** Returned: -** r5h double[3][3] r-matrix: FK5 rotation wrt Hipparcos (Note 2) -** s5h double[3] r-vector: FK5 spin wrt Hipparcos (Note 3) -** -** Notes: -** -** 1) This function models the FK5 to Hipparcos transformation as a -** pure rotation and spin; zonal errors in the FK5 catalogue are -** not taken into account. -** -** 2) The r-matrix r5h operates in the sense: -** -** P_Hipparcos = r5h x P_FK5 -** -** where P_FK5 is a p-vector in the FK5 frame, and P_Hipparcos is -** the equivalent Hipparcos p-vector. -** -** 3) The r-vector s5h represents the time derivative of the FK5 to -** Hipparcos rotation. The units are radians per year (Julian, -** TDB). -** -** Called: -** eraRv2m r-vector to r-matrix -** -** Reference: -** -** F.Mignard & M.Froeschle, Astron. Astrophys. 354, 732-739 (2000). -** -** Copyright (C) 2013-2016, NumFOCUS Foundation. -** Derived, with permission, from the SOFA library. See notes at end of file. -*/ -{ - double v[3]; - -/* FK5 wrt Hipparcos orientation and spin (radians, radians/year) */ - double epx, epy, epz; - double omx, omy, omz; - - - epx = -19.9e-3 * ERFA_DAS2R; - epy = -9.1e-3 * ERFA_DAS2R; - epz = 22.9e-3 * ERFA_DAS2R; - - omx = -0.30e-3 * ERFA_DAS2R; - omy = 0.60e-3 * ERFA_DAS2R; - omz = 0.70e-3 * ERFA_DAS2R; - -/* FK5 to Hipparcos orientation expressed as an r-vector. */ - v[0] = epx; - v[1] = epy; - v[2] = epz; - -/* Re-express as an r-matrix. */ - eraRv2m(v, r5h); - -/* Hipparcos wrt FK5 spin expressed as an r-vector. */ - s5h[0] = omx; - s5h[1] = omy; - s5h[2] = omz; - - return; - -} -/*---------------------------------------------------------------------- -** -** -** Copyright (C) 2013-2016, NumFOCUS Foundation. -** All rights reserved. -** -** This library is derived, with permission, from the International -** Astronomical Union's "Standards of Fundamental Astronomy" library, -** available from http://www.iausofa.org. -** -** The ERFA version is intended to retain identical functionality to -** the SOFA library, but made distinct through different function and -** file names, as set out in the SOFA license conditions. The SOFA -** original has a role as a reference standard for the IAU and IERS, -** and consequently redistribution is permitted only in its unaltered -** state. The ERFA version is not subject to this restriction and -** therefore can be included in distributions which do not support the -** concept of "read only" software. -** -** Although the intent is to replicate the SOFA API (other than -** replacement of prefix names) and results (with the exception of -** bugs; any that are discovered will be fixed), SOFA is not -** responsible for any errors found in this version of the library. -** -** If you wish to acknowledge the SOFA heritage, please acknowledge -** that you are using a library derived from SOFA, rather than SOFA -** itself. -** -** -** TERMS AND CONDITIONS -** -** Redistribution and use in source and binary forms, with or without -** modification, are permitted provided that the following conditions -** are met: -** -** 1 Redistributions of source code must retain the above copyright -** notice, this list of conditions and the following disclaimer. -** -** 2 Redistributions in binary form must reproduce the above copyright -** notice, this list of conditions and the following disclaimer in -** the documentation and/or other materials provided with the -** distribution. -** -** 3 Neither the name of the Standards Of Fundamental Astronomy Board, -** the International Astronomical Union nor the names of its -** contributors may be used to endorse or promote products derived -** from this software without specific prior written permission. -** -** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -** "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -** LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS -** FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE -** COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, -** INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, -** BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; -** LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -** CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT -** LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN -** ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -** POSSIBILITY OF SUCH DAMAGE. -** -*/ |