equationoftime 4.0.0 → 4.1.1

data/examples/celes_parts/tttdb.c

@@ -1,121 +0,0 @@
-#include "sofam.h"
-
-int iauTttdb(double tt1, double tt2, double dtr,
-             double *tdb1, double *tdb2)
-/*
-**  - - - - - - - - -
-**   i a u T t t d b
-**  - - - - - - - - -
-**
-**  Time scale transformation:  Terrestrial Time, TT, to Barycentric
-**  Dynamical Time, TDB.
-**
-**  Status:  canonical.
-**
-**  Given:
-**     tt1,tt2    double    TT as a 2-part Julian Date
-**     dtr        double    TDB-TT in seconds
-**
-**  Returned:
-**     tdb1,tdb2  double    TDB as a 2-part Julian Date
-**
-**  Returned (function value):
-**                int       status:  0 = OK
-**
-**  Notes:
-**
-**  1) tt1+tt2 is Julian Date, apportioned in any convenient way between
-**     the two arguments, for example where tt1 is the Julian Day Number
-**     and tt2 is the fraction of a day.  The returned tdb1,tdb2 follow
-**     suit.
-**
-**  2) The argument dtr represents the quasi-periodic component of the
-**     GR transformation between TT and TCB.  It is dependent upon the
-**     adopted solar-system ephemeris, and can be obtained by numerical
-**     integration, by interrogating a precomputed time ephemeris or by
-**     evaluating a model such as that implemented in the SOFA function
-**     iauDtdb.   The quantity is dominated by an annual term of 1.7 ms
-**     amplitude.
-**
-**  3) TDB is essentially the same as Teph, the time argument for the JPL
-**     solar system ephemerides.
-**
-**  References:
-**
-**     McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003),
-**     IERS Technical Note No. 32, BKG (2004)
-**
-**     IAU 2006 Resolution 3
-**
-**  This revision:  2011 May 14
-**
-**  Original version 2012-03-01
-**
-**  Copyright (C) 2013 Naoki Arita.  See notes at end.
-*/
-{
-   double dtrd;
-
-
-/* Result, safeguarding precision. */
-   dtrd = dtr / DAYSEC;
-   if ( tt1 > tt2 ) {
-      *tdb1 = tt1;
-      *tdb2 = tt2 + dtrd;
-   } else {
-      *tdb1 = tt1 + dtrd;
-      *tdb2 = tt2;
-   }
-
-/* Status (always OK). */
-   return 0;
-
-/*----------------------------------------------------------------------
-**
-**  Celes is a wrapper of the SOFA Library for Ruby.
-**
-**  This file is redistributed and relicensed in accordance with 
-**  the SOFA Software License (http://www.iausofa.org/tandc.html).
-**
-**  The original library is available from IAU Standards of
-**  Fundamental Astronomy (http://www.iausofa.org/).
-**
-**
-**
-**
-**
-**  Copyright (C) 2013, Naoki Arita
-**  All rights reserved.
-**
-**  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.
-**
-**--------------------------------------------------------------------*/
-}

data/examples/celes_parts/ttut1.c

@@ -1,110 +0,0 @@
-#include "sofam.h"
-
-int iauTtut1(double tt1, double tt2, double dt,
-             double *ut11, double *ut12)
-/*
-**  - - - - - - - - -
-**   i a u T t u t 1
-**  - - - - - - - - -
-**
-**  Time scale transformation:  Terrestrial Time, TT, to Universal Time,
-**  UT1.
-**
-**  Status:  canonical.
-**
-**  Given:
-**     tt1,tt2    double    TT as a 2-part Julian Date
-**     dt         double    TT-UT1 in seconds
-**
-**  Returned:
-**     ut11,ut12  double    UT1 as a 2-part Julian Date
-**
-**  Returned (function value):
-**                int       status:  0 = OK
-**
-**  Notes:
-**
-**  1) tt1+tt2 is Julian Date, apportioned in any convenient way between
-**     the two arguments, for example where tt1 is the Julian Day Number
-**     and tt2 is the fraction of a day.  The returned ut11,ut12 follow
-**     suit.
-**
-**  2) The argument dt is classical Delta T.
-**
-**  Reference:
-**
-**     Explanatory Supplement to the Astronomical Almanac,
-**     P. Kenneth Seidelmann (ed), University Science Books (1992)
-**
-**  This revision:  2011 May 14
-**
-**  Original version 2012-03-01
-**
-**  Copyright (C) 2013 Naoki Arita.  See notes at end.
-*/
-{
-   double dtd;
-
-
-/* Result, safeguarding precision. */
-   dtd = dt / DAYSEC;
-   if ( tt1 > tt2 ) {
-      *ut11 = tt1;
-      *ut12 = tt2 - dtd;
-   } else {
-      *ut11 = tt1 - dtd;
-      *ut12 = tt2;
-   }
-
-/* Status (always OK). */
-   return 0;
-
-/*----------------------------------------------------------------------
-**
-**  Celes is a wrapper of the SOFA Library for Ruby.
-**
-**  This file is redistributed and relicensed in accordance with 
-**  the SOFA Software License (http://www.iausofa.org/tandc.html).
-**
-**  The original library is available from IAU Standards of
-**  Fundamental Astronomy (http://www.iausofa.org/).
-**
-**
-**
-**
-**
-**  Copyright (C) 2013, Naoki Arita
-**  All rights reserved.
-**
-**  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.
-**
-**--------------------------------------------------------------------*/
-}

data/examples/celes_parts/ut1tai.c

@@ -1,111 +0,0 @@
-#include "sofam.h"
-
-int iauUt1tai(double ut11, double ut12, double dta,
-              double *tai1, double *tai2)
-/*
-**  - - - - - - - - - -
-**   i a u U t 1 t a i
-**  - - - - - - - - - -
-**
-**  Time scale transformation:  Universal Time, UT1, to International
-**  Atomic Time, TAI.
-**
-**  Status:  canonical.
-**
-**  Given:
-**     ut11,ut12  double    UT1 as a 2-part Julian Date
-**     dta        double    UT1-TAI in seconds
-**
-**  Returned:
-**     tai1,tai2  double    TAI as a 2-part Julian Date
-**
-**  Returned (function value):
-**                int       status:  0 = OK
-**
-**  Notes:
-**
-**  1) ut11+ut12 is Julian Date, apportioned in any convenient way
-**     between the two arguments, for example where ut11 is the Julian
-**     Day Number and ut12 is the fraction of a day.  The returned
-**     tai1,tai2 follow suit.
-**
-**  2) The argument dta, i.e. UT1-TAI, is an observed quantity, and is
-**     available from IERS tabulations.
-**
-**  Reference:
-**
-**     Explanatory Supplement to the Astronomical Almanac,
-**     P. Kenneth Seidelmann (ed), University Science Books (1992)
-**
-**  This revision:  2011 May 14
-**
-**  Original version 2012-03-01
-**
-**  Copyright (C) 2013 Naoki Arita.  See notes at end.
-*/
-{
-   double dtad;
-
-
-/* Result, safeguarding precision. */
-   dtad = dta / DAYSEC;
-   if ( ut11 > ut12 ) {
-      *tai1 = ut11;
-      *tai2 = ut12 - dtad;
-   } else {
-      *tai1 = ut11 - dtad;
-      *tai2 = ut12;
-   }
-
-/* Status (always OK). */
-   return 0;
-
-/*----------------------------------------------------------------------
-**
-**  Celes is a wrapper of the SOFA Library for Ruby.
-**
-**  This file is redistributed and relicensed in accordance with 
-**  the SOFA Software License (http://www.iausofa.org/tandc.html).
-**
-**  The original library is available from IAU Standards of
-**  Fundamental Astronomy (http://www.iausofa.org/).
-**
-**
-**
-**
-**
-**  Copyright (C) 2013, Naoki Arita
-**  All rights reserved.
-**
-**  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.
-**
-**--------------------------------------------------------------------*/
-}

data/examples/celes_parts/ut1tt.c

@@ -1,110 +0,0 @@
-#include "sofam.h"
-
-int iauUt1tt(double ut11, double ut12, double dt,
-             double *tt1, double *tt2)
-/*
-**  - - - - - - - - -
-**   i a u U t 1 t t
-**  - - - - - - - - -
-**
-**  Time scale transformation:  Universal Time, UT1, to Terrestrial
-**  Time, TT.
-**
-**  Status:  canonical.
-**
-**  Given:
-**     ut11,ut12  double    UT1 as a 2-part Julian Date
-**     dt         double    TT-UT1 in seconds
-**
-**  Returned:
-**     tt1,tt2    double    TT as a 2-part Julian Date
-**
-**  Returned (function value):
-**                int       status:  0 = OK
-**
-**  Notes:
-**
-**  1) ut11+ut12 is Julian Date, apportioned in any convenient way
-**     between the two arguments, for example where ut11 is the Julian
-**     Day Number and ut12 is the fraction of a day.  The returned
-**     tt1,tt2 follow suit.
-**
-**  2) The argument dt is classical Delta T.
-**
-**  Reference:
-**
-**     Explanatory Supplement to the Astronomical Almanac,
-**     P. Kenneth Seidelmann (ed), University Science Books (1992)
-**
-**  This revision:  2011 May 14
-**
-**  Original version 2012-03-01
-**
-**  Copyright (C) 2013 Naoki Arita.  See notes at end.
-*/
-{
-   double dtd;
-
-
-/* Result, safeguarding precision. */
-   dtd = dt / DAYSEC;
-   if ( ut11 > ut12 ) {
-      *tt1 = ut11;
-      *tt2 = ut12 + dtd;
-   } else {
-      *tt1 = ut11 + dtd;
-      *tt2 = ut12;
-   }
-
-/* Status (always OK). */
-   return 0;
-
-/*----------------------------------------------------------------------
-**
-**  Celes is a wrapper of the SOFA Library for Ruby.
-**
-**  This file is redistributed and relicensed in accordance with 
-**  the SOFA Software License (http://www.iausofa.org/tandc.html).
-**
-**  The original library is available from IAU Standards of
-**  Fundamental Astronomy (http://www.iausofa.org/).
-**
-**
-**
-**
-**
-**  Copyright (C) 2013, Naoki Arita
-**  All rights reserved.
-**
-**  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.
-**
-**--------------------------------------------------------------------*/
-}