Index: /trunk/FACT++/erfa/README.rst =================================================================== --- /trunk/FACT++/erfa/README.rst (revision 18710) +++ /trunk/FACT++/erfa/README.rst (revision 18711) @@ -14,5 +14,5 @@ --------------------- -This version of ERFA (v1.2.0) is based on SOFA version "20150209_a", with the +This version of ERFA (v1.3.0) is based on SOFA version "20160503_a", with the differences outlined below. @@ -35,5 +35,13 @@ addressing localized bugs or similar smaller issues: -* Currently no bugfixe changes relative to SOFA. +* ERFA 1.3.0 and SOFA "20160503_a" + + + There are no differences between ERFA 1.3.0 and SOFA "20160503_a". + +* ERFA 1.2.0 and SOFA "20150209_a" + + + Typos have been corrected in the documentation of atco13 and atio13 (see https://github.com/liberfa/erfa/issues/29). + +Note that issues identified in ERFA should generally also be reported upstream to SOFA at sofa@ukho.gov.uk. Building and installing ERFA Index: /trunk/FACT++/erfa/RELEASE.rst =================================================================== --- /trunk/FACT++/erfa/RELEASE.rst (revision 18710) +++ /trunk/FACT++/erfa/RELEASE.rst (revision 18711) @@ -12,6 +12,7 @@ repository`_ in its own directory. That will create a directory called `erfa` inside the `erfa-fetch` directory, and you should copy its contents to the - `src` directory of `erfa`. Use ``git diff`` in `erfa` to inspect the changes, - and then commit and push them to github. + `src` directory of `erfa`. Add any new C files or header files added by SOFA + to ``src/Makefile.am``, as appropriate. Use ``git diff`` in `erfa` to inspect + the changes, and then commit and push them to github. * Update the version number in the `AC_INIT` macro of `configure.ac` to @@ -41,5 +42,6 @@ will be placed in the working directory. -* Tag the current commit with the version number. A signed tag is preferred if you have an a signing key (e.g., do ``git tag -s v0.0.1``). +* Tag the current commit with the version number. A signed tag is preferred if + you have an a signing key (e.g., do ``git tag -s v0.0.1``). * Push up your changes and the new tag to github: @@ -52,7 +54,7 @@ made. -* Click on the "Draft release notes or downloads" button (or it might be "Edit release"). Put the version number as - the title (e.g., ``v0.0.1``)and for the description put - ``See `README.rst` for release notes.`` +* Click on the "Draft release notes or downloads" button (or it might be + "Edit release"). Put the version number as the title (e.g., ``v0.0.1``)and + for the description put ``See `README.rst` for release notes.`` * Upload the tarball you created (e.g., `erfa-0.0.1.tar.gz`) by dropping it @@ -128,6 +130,7 @@ * relevant bug reports in the github project page -The shared library version info is stored in three numbers called *current*, *revision* and *age*. These numbers appear in the macro `ERFA_LIB_VERSION_INFO` in -the mentioned order. +The shared library version info is stored in three numbers called *current*, +*revision* and *age*. These numbers appear in the macro `ERFA_LIB_VERSION_INFO` +in the mentioned order. If the version is given in the form CURRENT,REVISION,AGE then Index: /trunk/FACT++/erfa/configure.ac =================================================================== --- /trunk/FACT++/erfa/configure.ac (revision 18710) +++ /trunk/FACT++/erfa/configure.ac (revision 18711) @@ -3,5 +3,5 @@ AC_PREREQ([2.68]) ## Follow the instructions in RELEASE.rst to change package version -AC_INIT([erfa],[1.2.0]) +AC_INIT([erfa],[1.3.0]) AC_CONFIG_SRCDIR([src/erfa.h]) AC_CONFIG_HEADER([config.h]) @@ -18,5 +18,5 @@ ## Revision is the version of the current interface ## Follow the instructions in RELEASE.rst to change the version info -ERFA_LIB_VERSION_INFO(3, 0, 2) +ERFA_LIB_VERSION_INFO(4, 0, 3) # Checks for libraries. Index: /trunk/FACT++/erfa/src/Makefile.am =================================================================== --- /trunk/FACT++/erfa/src/Makefile.am (revision 18710) +++ /trunk/FACT++/erfa/src/Makefile.am (revision 18711) @@ -7,12 +7,13 @@ c2ixy.c c2ixys.c c2s.c c2t00a.c c2t00b.c c2t06a.c c2tcio.c c2teqx.c \ c2tpe.c c2txy.c cal2jd.c cp.c cpv.c cr.c d2dtf.c d2tf.c dat.c dtdb.c \ -dtf2d.c ee00a.c ee00b.c ee00.c ee06a.c eect00.c eform.c eo06a.c \ -eors.c epb2jd.c epb.c epj2jd.c epj.c epv00.c eqeq94.c era00.c \ -fad03.c fae03.c faf03.c faju03.c fal03.c falp03.c fama03.c \ +dtf2d.c eceq06.c ee00a.c ee00.c eect00.c eo06a.c epb2jd.c epj2jd.c epv00.c \ +eqeq94.c ecm06.c ee00b.c ee06a.c eform.c eors.c epb.c epj.c eqec06.c \ +era00.c fad03.c fae03.c faf03.c faju03.c fal03.c falp03.c fama03.c \ fame03.c fane03.c faom03.c fapa03.c fasa03.c faur03.c fave03.c \ fk52h.c fk5hip.c fk5hz.c fw2m.c fw2xy.c g2icrs.c gc2gd.c gc2gde.c gd2gc.c \ gd2gce.c gmst00.c gmst06.c gmst82.c gst00a.c gst00b.c gst06a.c \ gst06.c gst94.c h2fk5.c hfk5z.c icrs2g.c ir.c jd2cal.c jdcalf.c ld.c \ -ldn.c ldsun.c num00a.c num00b.c num06a.c numat.c nut00a.c nut00b.c \ +ldn.c ldsun.c lteceq.c ltecm.c lteqec.c ltpb.c ltp.c ltpecl.c ltpequ.c \ +num00a.c num00b.c num06a.c numat.c nut00a.c nut00b.c \ nut06a.c nut80.c nutm80.c obl06.c obl80.c p06e.c p2pv.c p2s.c pap.c \ pas.c pb06.c pdp.c pfw06.c plan94.c pmat00.c pmat06.c pmat76.c \ Index: /trunk/FACT++/erfa/src/a2af.c =================================================================== --- /trunk/FACT++/erfa/src/a2af.c (revision 18710) +++ /trunk/FACT++/erfa/src/a2af.c (revision 18711) @@ -52,5 +52,5 @@ ** by testing for idmsf[0]=360 and setting idmsf[0-3] to zero. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -58,4 +58,5 @@ /* Hours to degrees * radians to turns */ const double F = 15.0 / ERFA_D2PI; + /* Scale then use days to h,m,s function. */ @@ -68,5 +69,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/a2tf.c =================================================================== --- /trunk/FACT++/erfa/src/a2tf.c (revision 18710) +++ /trunk/FACT++/erfa/src/a2tf.c (revision 18711) @@ -52,5 +52,5 @@ ** by testing for ihmsf[0]=24 and setting ihmsf[0-3] to zero. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -65,5 +65,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ab.c =================================================================== --- /trunk/FACT++/erfa/src/ab.c (revision 18710) +++ /trunk/FACT++/erfa/src/ab.c (revision 18711) @@ -49,5 +49,5 @@ ** eraPdp scalar product of two p-vectors ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -55,4 +55,5 @@ int i; double pdv, w1, w2, r2, w, p[3], r; + pdv = eraPdp(pnat, v); @@ -76,5 +77,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/af2a.c =================================================================== --- /trunk/FACT++/erfa/src/af2a.c (revision 18710) +++ /trunk/FACT++/erfa/src/af2a.c (revision 18711) @@ -35,5 +35,5 @@ ** first, the smallest taking precedence. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -56,5 +56,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/anp.c =================================================================== --- /trunk/FACT++/erfa/src/anp.c (revision 18710) +++ /trunk/FACT++/erfa/src/anp.c (revision 18711) @@ -15,9 +15,10 @@ ** double angle in range 0-2pi ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double w; + w = fmod(a, ERFA_D2PI); @@ -30,5 +31,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/anpm.c =================================================================== --- /trunk/FACT++/erfa/src/anpm.c (revision 18710) +++ /trunk/FACT++/erfa/src/anpm.c (revision 18711) @@ -15,9 +15,10 @@ ** double angle in range +/-pi ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double w; + w = fmod(a, ERFA_D2PI); @@ -30,5 +31,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/apcg.c =================================================================== --- /trunk/FACT++/erfa/src/apcg.c (revision 18710) +++ /trunk/FACT++/erfa/src/apcg.c (revision 18711) @@ -103,5 +103,5 @@ ** eraApcs astrometry parameters, ICRS-GCRS, space observer ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -110,4 +110,5 @@ double pv[2][3] = { { 0.0, 0.0, 0.0 }, { 0.0, 0.0, 0.0 } }; + /* Compute the star-independent astrometry parameters. */ @@ -120,5 +121,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/apcg13.c =================================================================== --- /trunk/FACT++/erfa/src/apcg13.c (revision 18710) +++ /trunk/FACT++/erfa/src/apcg13.c (revision 18711) @@ -105,9 +105,10 @@ ** eraApcg astrometry parameters, ICRS-GCRS, geocenter ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double ehpv[2][3], ebpv[2][3]; + /* Earth barycentric & heliocentric position/velocity (au, au/d). */ @@ -123,5 +124,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/apci.c =================================================================== --- /trunk/FACT++/erfa/src/apci.c (revision 18710) +++ /trunk/FACT++/erfa/src/apci.c (revision 18711) @@ -113,5 +113,5 @@ ** eraC2ixys celestial-to-intermediate matrix, given X,Y and s ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -130,5 +130,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/apci13.c =================================================================== --- /trunk/FACT++/erfa/src/apci13.c (revision 18710) +++ /trunk/FACT++/erfa/src/apci13.c (revision 18711) @@ -111,5 +111,5 @@ ** eraEors equation of the origins, given NPB matrix and s ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -117,4 +117,5 @@ double ehpv[2][3], ebpv[2][3], r[3][3], x, y, s; + /* Earth barycentric & heliocentric position/velocity (au, au/d). */ (void) eraEpv00(date1, date2, ehpv, ebpv); @@ -141,5 +142,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/apco.c =================================================================== --- /trunk/FACT++/erfa/src/apco.c (revision 18710) +++ /trunk/FACT++/erfa/src/apco.c (revision 18711) @@ -153,9 +153,10 @@ ** eraCr copy r-matrix ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double sl, cl, r[3][3], pvc[2][3], pv[2][3]; + /* Longitude with adjustment for TIO locator s'. */ @@ -203,5 +204,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/apco13.c =================================================================== --- /trunk/FACT++/erfa/src/apco13.c (revision 18710) +++ /trunk/FACT++/erfa/src/apco13.c (revision 18711) @@ -174,5 +174,5 @@ ** eraEors equation of the origins, given NPB matrix and s ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -182,4 +182,5 @@ r[3][3], x, y, s, theta, sp, refa, refb; + /* UTC to other time scales. */ j = eraUtctai(utc1, utc2, &tai1, &tai2); @@ -226,5 +227,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/apcs.c =================================================================== --- /trunk/FACT++/erfa/src/apcs.c (revision 18710) +++ /trunk/FACT++/erfa/src/apcs.c (revision 18711) @@ -123,5 +123,5 @@ ** eraIr initialize r-matrix to identity ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -135,4 +135,5 @@ int i; double dp, dv, pb[3], vb[3], ph[3], v2, w; + /* Time since reference epoch, years (for proper motion calculation). */ @@ -172,5 +173,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/apcs13.c =================================================================== --- /trunk/FACT++/erfa/src/apcs13.c (revision 18710) +++ /trunk/FACT++/erfa/src/apcs13.c (revision 18711) @@ -112,9 +112,10 @@ ** eraApcs astrometry parameters, ICRS-GCRS, space observer ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double ehpv[2][3], ebpv[2][3]; + /* Earth barycentric & heliocentric position/velocity (au, au/d). */ @@ -130,5 +131,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/aper.c =================================================================== --- /trunk/FACT++/erfa/src/aper.c (revision 18710) +++ /trunk/FACT++/erfa/src/aper.c (revision 18711) @@ -90,5 +90,5 @@ ** transformation), and atmospheric refraction. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -102,5 +102,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/aper13.c =================================================================== --- /trunk/FACT++/erfa/src/aper13.c (revision 18710) +++ /trunk/FACT++/erfa/src/aper13.c (revision 18711) @@ -109,5 +109,5 @@ ** eraEra00 Earth rotation angle, IAU 2000 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -121,5 +121,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/apio.c =================================================================== --- /trunk/FACT++/erfa/src/apio.c (revision 18710) +++ /trunk/FACT++/erfa/src/apio.c (revision 18711) @@ -114,9 +114,10 @@ ** eraAper astrometry parameters: update ERA ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double sl, cl, pv[2][3]; + /* Longitude with adjustment for TIO locator s'. */ @@ -152,5 +153,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/apio13.c =================================================================== --- /trunk/FACT++/erfa/src/apio13.c (revision 18710) +++ /trunk/FACT++/erfa/src/apio13.c (revision 18711) @@ -163,5 +163,5 @@ ** eraApio astrometry parameters, CIRS-observed ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -169,4 +169,5 @@ int j; double tai1, tai2, tt1, tt2, ut11, ut12, sp, theta, refa, refb; + /* UTC to other time scales. */ @@ -198,5 +199,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/atci13.c =================================================================== --- /trunk/FACT++/erfa/src/atci13.c (revision 18710) +++ /trunk/FACT++/erfa/src/atci13.c (revision 18711) @@ -79,5 +79,5 @@ ** eraAtciq quick ICRS to CIRS ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -85,4 +85,5 @@ /* Star-independent astrometry parameters */ eraASTROM astrom; + /* The transformation parameters. */ @@ -98,5 +99,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/atciq.c =================================================================== --- /trunk/FACT++/erfa/src/atciq.c (revision 18710) +++ /trunk/FACT++/erfa/src/atciq.c (revision 18711) @@ -65,9 +65,10 @@ ** eraAnp normalize angle into range 0 to 2pi ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double pco[3], pnat[3], ppr[3], pi[3], w; + /* Proper motion and parallax, giving BCRS coordinate direction. */ @@ -93,5 +94,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/atciqn.c =================================================================== --- /trunk/FACT++/erfa/src/atciqn.c (revision 18710) +++ /trunk/FACT++/erfa/src/atciqn.c (revision 18711) @@ -17,4 +17,5 @@ ** star-independent parameters can be obtained by calling one of the ** functions eraApci[13], eraApcg[13], eraApco[13] or eraApcs[13]. +** ** ** If the only light-deflecting body to be taken into account is the @@ -101,9 +102,10 @@ ** eraAnp normalize angle into range 0 to 2pi ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double pco[3], pnat[3], ppr[3], pi[3], w; + /* Proper motion and parallax, giving BCRS coordinate direction. */ @@ -129,5 +131,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/atciqz.c =================================================================== --- /trunk/FACT++/erfa/src/atciqz.c (revision 18710) +++ /trunk/FACT++/erfa/src/atciqz.c (revision 18711) @@ -64,9 +64,10 @@ ** eraAnp normalize angle into range +/- pi ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double pco[3], pnat[3], ppr[3], pi[3], w; + /* BCRS coordinate direction (unit vector). */ @@ -92,5 +93,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/atco13.c =================================================================== --- /trunk/FACT++/erfa/src/atco13.c (revision 18710) +++ /trunk/FACT++/erfa/src/atco13.c (revision 18711) @@ -150,7 +150,7 @@ ** eraApco13 astrometry parameters, ICRS-observed, 2013 ** eraAtciq quick ICRS to CIRS -** eraAtioq quick ICRS to observed -** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** eraAtioq quick CIRS to observed +** +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -160,4 +160,5 @@ double ri, di; + /* Star-independent astrometry parameters. */ j = eraApco13(utc1, utc2, dut1, elong, phi, hm, xp, yp, @@ -182,5 +183,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/atic13.c =================================================================== --- /trunk/FACT++/erfa/src/atic13.c (revision 18710) +++ /trunk/FACT++/erfa/src/atic13.c (revision 18711) @@ -72,5 +72,5 @@ ** eraAticq quick CIRS to ICRS astrometric ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -78,4 +78,5 @@ /* Star-independent astrometry parameters */ eraASTROM astrom; + /* Star-independent astrometry parameters. */ @@ -91,5 +92,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/aticq.c =================================================================== --- /trunk/FACT++/erfa/src/aticq.c (revision 18710) +++ /trunk/FACT++/erfa/src/aticq.c (revision 18711) @@ -60,5 +60,5 @@ ** eraAnp normalize angle into range +/- pi ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -67,4 +67,5 @@ double pi[3], ppr[3], pnat[3], pco[3], w, d[3], before[3], r2, r, after[3]; + /* CIRS RA,Dec to Cartesian. */ @@ -138,5 +139,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/aticqn.c =================================================================== --- /trunk/FACT++/erfa/src/aticqn.c (revision 18710) +++ /trunk/FACT++/erfa/src/aticqn.c (revision 18711) @@ -98,5 +98,5 @@ ** eraAnp normalize angle into range +/- pi ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -106,4 +106,5 @@ after[3]; + /* CIRS RA,Dec to Cartesian. */ eraS2c(ri, di, pi); @@ -176,5 +177,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/atio13.c =================================================================== --- /trunk/FACT++/erfa/src/atio13.c (revision 18710) +++ /trunk/FACT++/erfa/src/atio13.c (revision 18711) @@ -133,7 +133,7 @@ ** Called: ** eraApio13 astrometry parameters, CIRS-observed, 2013 -** eraAtioq quick ICRS to observed -** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** eraAtioq quick CIRS to observed +** +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -142,4 +142,5 @@ eraASTROM astrom; + /* Star-independent astrometry parameters for CIRS->observed. */ j = eraApio13(utc1, utc2, dut1, elong, phi, hm, xp, yp, @@ -161,5 +162,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/atioq.c =================================================================== --- /trunk/FACT++/erfa/src/atioq.c (revision 18710) +++ /trunk/FACT++/erfa/src/atioq.c (revision 18711) @@ -96,5 +96,5 @@ ** eraAnp normalize angle into range 0 to 2pi ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -108,5 +108,4 @@ xaeo, yaeo, zaeo, zdobs, hmobs, dcobs, raobs; -/*--------------------------------------------------------------------*/ /* CIRS RA,Dec to Cartesian -HA,Dec. */ @@ -184,5 +183,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/atoc13.c =================================================================== --- /trunk/FACT++/erfa/src/atoc13.c (revision 18710) +++ /trunk/FACT++/erfa/src/atoc13.c (revision 18711) @@ -142,5 +142,5 @@ ** eraAticq quick CIRS to ICRS ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -150,4 +150,5 @@ double eo, ri, di; + /* Star-independent astrometry parameters. */ j = eraApco13(utc1, utc2, dut1, elong, phi, hm, xp, yp, @@ -172,5 +173,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/atoi13.c =================================================================== --- /trunk/FACT++/erfa/src/atoi13.c (revision 18710) +++ /trunk/FACT++/erfa/src/atoi13.c (revision 18711) @@ -141,5 +141,5 @@ ** eraAtoiq quick observed to CIRS ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -148,4 +148,5 @@ eraASTROM astrom; + /* Star-independent astrometry parameters for CIRS->observed. */ j = eraApio13(utc1, utc2, dut1, elong, phi, hm, xp, yp, @@ -167,5 +168,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/atoiq.c =================================================================== --- /trunk/FACT++/erfa/src/atoiq.c (revision 18710) +++ /trunk/FACT++/erfa/src/atoiq.c (revision 18711) @@ -89,5 +89,5 @@ ** eraAnp normalize angle into range 0 to 2pi ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -99,4 +99,5 @@ f, xhd, yhd, zhd, xpl, ypl, w, hma; + /* Coordinate type. */ c = (int) type[0]; @@ -199,5 +200,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/bi00.c =================================================================== --- /trunk/FACT++/erfa/src/bi00.c (revision 18710) +++ /trunk/FACT++/erfa/src/bi00.c (revision 18711) @@ -42,5 +42,5 @@ ** from ftp://maia.usno.navy.mil/conv2000/chapter5/IAU2000A. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -52,4 +52,5 @@ /* The ICRS RA of the J2000.0 equinox (Chapront et al., 2002) */ const double DRA0 = -0.0146 * ERFA_DAS2R; + /* Return the results (which are fixed). */ @@ -64,5 +65,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/bp00.c =================================================================== --- /trunk/FACT++/erfa/src/bp00.c (revision 18710) +++ /trunk/FACT++/erfa/src/bp00.c (revision 18711) @@ -71,5 +71,5 @@ ** intermediate origin" (CIO) by IAU 2006 Resolution 2. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -80,4 +80,5 @@ double t, dpsibi, depsbi, dra0, psia77, oma77, chia, dpsipr, depspr, psia, oma, rbw[3][3]; + /* Interval between fundamental epoch J2000.0 and current date (JC). */ @@ -120,5 +121,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/bp06.c =================================================================== --- /trunk/FACT++/erfa/src/bp06.c (revision 18710) +++ /trunk/FACT++/erfa/src/bp06.c (revision 18711) @@ -65,9 +65,10 @@ ** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double gamb, phib, psib, epsa, rbpw[3][3], rbt[3][3]; + /* B matrix. */ @@ -91,5 +92,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/bpn2xy.c =================================================================== --- /trunk/FACT++/erfa/src/bpn2xy.c (revision 18710) +++ /trunk/FACT++/erfa/src/bpn2xy.c (revision 18711) @@ -35,5 +35,5 @@ ** intermediate origin" (CIO) by IAU 2006 Resolution 2. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -49,5 +49,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/c2i00a.c =================================================================== --- /trunk/FACT++/erfa/src/c2i00a.c (revision 18710) +++ /trunk/FACT++/erfa/src/c2i00a.c (revision 18711) @@ -69,9 +69,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rbpn[3][3]; + /* Obtain the celestial-to-true matrix (IAU 2000A). */ @@ -87,5 +88,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/c2i00b.c =================================================================== --- /trunk/FACT++/erfa/src/c2i00b.c (revision 18710) +++ /trunk/FACT++/erfa/src/c2i00b.c (revision 18711) @@ -69,9 +69,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rbpn[3][3]; + /* Obtain the celestial-to-true matrix (IAU 2000B). */ @@ -87,5 +88,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/c2i06a.c =================================================================== --- /trunk/FACT++/erfa/src/c2i06a.c (revision 18710) +++ /trunk/FACT++/erfa/src/c2i06a.c (revision 18711) @@ -60,9 +60,10 @@ ** IERS Technical Note No. 32, BKG ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rbpn[3][3], x, y, s; + /* Obtain the celestial-to-true matrix (IAU 2006/2000A). */ @@ -84,5 +85,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/c2ibpn.c =================================================================== --- /trunk/FACT++/erfa/src/c2ibpn.c (revision 18710) +++ /trunk/FACT++/erfa/src/c2ibpn.c (revision 18711) @@ -72,9 +72,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double x, y; + /* Extract the X,Y coordinates. */ @@ -90,5 +91,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/c2ixy.c =================================================================== --- /trunk/FACT++/erfa/src/c2ixy.c (revision 18710) +++ /trunk/FACT++/erfa/src/c2ixy.c (revision 18711) @@ -66,5 +66,5 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -80,5 +80,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/c2ixys.c =================================================================== --- /trunk/FACT++/erfa/src/c2ixys.c (revision 18710) +++ /trunk/FACT++/erfa/src/c2ixys.c (revision 18711) @@ -48,5 +48,5 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -72,5 +72,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/c2s.c =================================================================== --- /trunk/FACT++/erfa/src/c2s.c (revision 18710) +++ /trunk/FACT++/erfa/src/c2s.c (revision 18711) @@ -24,9 +24,10 @@ ** 3) At either pole, zero theta is returned. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double x, y, z, d2; + x = p[0]; @@ -44,5 +45,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/c2t00a.c =================================================================== --- /trunk/FACT++/erfa/src/c2t00a.c (revision 18710) +++ /trunk/FACT++/erfa/src/c2t00a.c (revision 18711) @@ -75,9 +75,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rc2i[3][3], era, sp, rpom[3][3]; + /* Form the celestial-to-intermediate matrix for this TT (IAU 2000A). */ @@ -102,5 +103,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/c2t00b.c =================================================================== --- /trunk/FACT++/erfa/src/c2t00b.c (revision 18710) +++ /trunk/FACT++/erfa/src/c2t00b.c (revision 18711) @@ -74,9 +74,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rc2i[3][3], era, rpom[3][3]; + /* Form the celestial-to-intermediate matrix for this TT (IAU 2000B). */ @@ -98,5 +99,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/c2t06a.c =================================================================== --- /trunk/FACT++/erfa/src/c2t06a.c (revision 18710) +++ /trunk/FACT++/erfa/src/c2t06a.c (revision 18711) @@ -73,9 +73,10 @@ ** IERS Technical Note No. 32, BKG ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rc2i[3][3], era, sp, rpom[3][3]; + /* Form the celestial-to-intermediate matrix for this TT. */ @@ -100,5 +101,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/c2tcio.c =================================================================== --- /trunk/FACT++/erfa/src/c2tcio.c (revision 18710) +++ /trunk/FACT++/erfa/src/c2tcio.c (revision 18711) @@ -53,9 +53,10 @@ ** IERS Technical Note No. 32, BKG ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double r[3][3]; + /* Construct the matrix. */ @@ -70,5 +71,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/c2teqx.c =================================================================== --- /trunk/FACT++/erfa/src/c2teqx.c (revision 18710) +++ /trunk/FACT++/erfa/src/c2teqx.c (revision 18711) @@ -53,9 +53,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double r[3][3]; + /* Construct the matrix. */ @@ -70,5 +71,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/c2tpe.c =================================================================== --- /trunk/FACT++/erfa/src/c2tpe.c (revision 18710) +++ /trunk/FACT++/erfa/src/c2tpe.c (revision 18711) @@ -84,5 +84,5 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -90,4 +90,5 @@ double epsa, rb[3][3], rp[3][3], rbp[3][3], rn[3][3], rbpn[3][3], gmst, ee, sp, rpom[3][3]; + /* Form the celestial-to-true matrix for this TT. */ @@ -115,5 +116,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/c2txy.c =================================================================== --- /trunk/FACT++/erfa/src/c2txy.c (revision 18710) +++ /trunk/FACT++/erfa/src/c2txy.c (revision 18711) @@ -80,9 +80,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rc2i[3][3], era, sp, rpom[3][3]; + /* Form the celestial-to-intermediate matrix for this TT. */ @@ -107,5 +108,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/cal2jd.c =================================================================== --- /trunk/FACT++/erfa/src/cal2jd.c (revision 18710) +++ /trunk/FACT++/erfa/src/cal2jd.c (revision 18711) @@ -44,5 +44,5 @@ ** Section 12.92 (p604). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -57,4 +57,5 @@ static const int mtab[] = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}; + /* Preset status. */ @@ -87,5 +88,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/cp.c =================================================================== --- /trunk/FACT++/erfa/src/cp.c (revision 18710) +++ /trunk/FACT++/erfa/src/cp.c (revision 18711) @@ -15,5 +15,5 @@ ** c double[3] copy ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -29,5 +29,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/cpv.c =================================================================== --- /trunk/FACT++/erfa/src/cpv.c (revision 18710) +++ /trunk/FACT++/erfa/src/cpv.c (revision 18711) @@ -18,5 +18,5 @@ ** eraCp copy p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -31,5 +31,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/cr.c =================================================================== --- /trunk/FACT++/erfa/src/cr.c (revision 18710) +++ /trunk/FACT++/erfa/src/cr.c (revision 18711) @@ -13,10 +13,10 @@ ** ** Returned: -** char[] double[3][3] copy +** c double[3][3] copy ** ** Called: ** eraCp copy p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -32,5 +32,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/d2dtf.c =================================================================== --- /trunk/FACT++/erfa/src/d2dtf.c (revision 18710) +++ /trunk/FACT++/erfa/src/d2dtf.c (revision 18711) @@ -72,5 +72,5 @@ ** eraDat delta(AT) = TAI-UTC ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -80,4 +80,5 @@ int iy1, im1, id1, js, iy2, im2, id2, ihmsf1[4], i; double a1, b1, fd, dat0, dat12, w, dat24, dleap; + /* The two-part JD. */ @@ -184,5 +185,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/d2tf.c =================================================================== --- /trunk/FACT++/erfa/src/d2tf.c (revision 18710) +++ /trunk/FACT++/erfa/src/d2tf.c (revision 18711) @@ -49,5 +49,5 @@ ** by testing for ihmsf[0]=24 and setting ihmsf[0-3] to zero. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -55,4 +55,5 @@ int nrs, n; double rs, rm, rh, a, w, ah, am, as, af; + /* Handle sign. */ @@ -108,5 +109,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/dat.c =================================================================== --- /trunk/FACT++/erfa/src/dat.c (revision 18710) +++ /trunk/FACT++/erfa/src/dat.c (revision 18711) @@ -37,5 +37,5 @@ ** : added. : ** : : -** : Latest leap second: 2015 June 30 : +** : Latest leap second: 2016 December 31 : ** : : ** :__________________________________________: @@ -116,10 +116,10 @@ ** eraCal2jd Gregorian calendar to JD ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { /* Release year for this version of eraDat */ - enum { IYV = 2015}; + enum { IYV = 2016}; /* Reference dates (MJD) and drift rates (s/day), pre leap seconds */ @@ -189,5 +189,6 @@ { 2009, 1, 34.0 }, { 2012, 7, 35.0 }, - { 2015, 7, 36.0 } + { 2015, 7, 36.0 }, + { 2017, 1, 37.0 } }; @@ -245,5 +246,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/dtdb.c =================================================================== --- /trunk/FACT++/erfa/src/dtdb.c (revision 18710) +++ /trunk/FACT++/erfa/src/dtdb.c (revision 18711) @@ -158,5 +158,5 @@ ** Francou, G. & Laskar, J., Astron.Astrophys., 282, 663-683 (1994). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -1062,4 +1062,5 @@ }; + /* Time since J2000.0 in Julian millennia. */ t = ((date1 - ERFA_DJ00) + date2) / ERFA_DJM; @@ -1161,5 +1162,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/dtf2d.c =================================================================== --- /trunk/FACT++/erfa/src/dtf2d.c (revision 18710) +++ /trunk/FACT++/erfa/src/dtf2d.c (revision 18711) @@ -76,5 +76,5 @@ ** eraJd2cal JD to Gregorian calendar ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -82,4 +82,5 @@ int js, iy2, im2, id2; double dj, w, day, seclim, dat0, dat12, dat24, dleap, time; + /* Today's Julian Day Number. */ @@ -151,5 +152,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ee00.c =================================================================== --- /trunk/FACT++/erfa/src/ee00.c (revision 18710) +++ /trunk/FACT++/erfa/src/ee00.c (revision 18711) @@ -61,9 +61,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double ee; + /* Equation of the equinoxes. */ @@ -76,5 +77,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ee00a.c =================================================================== --- /trunk/FACT++/erfa/src/ee00a.c (revision 18710) +++ /trunk/FACT++/erfa/src/ee00a.c (revision 18711) @@ -59,9 +59,10 @@ ** IERS Technical Note No. 32, BKG (2004). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double dpsipr, depspr, epsa, dpsi, deps, ee; + /* IAU 2000 precession-rate adjustments. */ @@ -83,5 +84,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ee00b.c =================================================================== --- /trunk/FACT++/erfa/src/ee00b.c (revision 18710) +++ /trunk/FACT++/erfa/src/ee00b.c (revision 18711) @@ -65,9 +65,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double dpsipr, depspr, epsa, dpsi, deps, ee; + /* IAU 2000 precession-rate adjustments. */ @@ -89,5 +90,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ee06a.c =================================================================== --- /trunk/FACT++/erfa/src/ee06a.c (revision 18710) +++ /trunk/FACT++/erfa/src/ee06a.c (revision 18711) @@ -51,9 +51,10 @@ ** IERS Technical Note No. 32, BKG ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double gst06a, gmst06, ee; + /* Apparent and mean sidereal times. */ @@ -70,5 +71,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/eect00.c =================================================================== --- /trunk/FACT++/erfa/src/eect00.c (revision 18710) +++ /trunk/FACT++/erfa/src/eect00.c (revision 18711) @@ -92,5 +92,5 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -231,5 +231,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/eform.c =================================================================== --- /trunk/FACT++/erfa/src/eform.c (revision 18710) +++ /trunk/FACT++/erfa/src/eform.c (revision 18711) @@ -56,5 +56,5 @@ ** p220. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -95,5 +95,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/eo06a.c =================================================================== --- /trunk/FACT++/erfa/src/eo06a.c (revision 18710) +++ /trunk/FACT++/erfa/src/eo06a.c (revision 18711) @@ -55,9 +55,10 @@ ** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double r[3][3], x, y, s, eo; + /* Classical nutation x precession x bias matrix. */ @@ -79,5 +80,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/eors.c =================================================================== --- /trunk/FACT++/erfa/src/eors.c (revision 18710) +++ /trunk/FACT++/erfa/src/eors.c (revision 18711) @@ -34,9 +34,10 @@ ** Wallace, P. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double x, ax, xs, ys, zs, p, q, eo; + /* Evaluate Wallace & Capitaine (2006) expression (16). */ @@ -56,5 +57,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/epb.c =================================================================== --- /trunk/FACT++/erfa/src/epb.c (revision 18710) +++ /trunk/FACT++/erfa/src/epb.c (revision 18711) @@ -27,5 +27,5 @@ ** Lieske, J.H., 1979. Astron.Astrophys., 73, 282. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -40,5 +40,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/epb2jd.c =================================================================== --- /trunk/FACT++/erfa/src/epb2jd.c (revision 18710) +++ /trunk/FACT++/erfa/src/epb2jd.c (revision 18711) @@ -27,5 +27,5 @@ ** Lieske, J.H., 1979, Astron.Astrophys. 73, 282. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -40,5 +40,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/epj.c =================================================================== --- /trunk/FACT++/erfa/src/epj.c (revision 18710) +++ /trunk/FACT++/erfa/src/epj.c (revision 18711) @@ -27,9 +27,10 @@ ** Lieske, J.H., 1979, Astron.Astrophys. 73, 282. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double epj; + epj = 2000.0 + ((dj1 - ERFA_DJ00) + dj2) / ERFA_DJY; @@ -41,5 +42,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/epj2jd.c =================================================================== --- /trunk/FACT++/erfa/src/epj2jd.c (revision 18710) +++ /trunk/FACT++/erfa/src/epj2jd.c (revision 18711) @@ -27,5 +27,5 @@ ** Lieske, J.H., 1979, Astron.Astrophys. 73, 282. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -40,5 +40,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/epv00.c =================================================================== --- /trunk/FACT++/erfa/src/epv00.c (revision 18710) +++ /trunk/FACT++/erfa/src/epv00.c (revision 18711) @@ -95,5 +95,5 @@ ** will receive the barycentric values. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -2538,5 +2538,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/eqeq94.c =================================================================== --- /trunk/FACT++/erfa/src/eqeq94.c (revision 18710) +++ /trunk/FACT++/erfa/src/eqeq94.c (revision 18711) @@ -52,9 +52,10 @@ ** 645-650. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double t, om, dpsi, deps, eps0, ee; + /* Interval between fundamental epoch J2000.0 and given date (JC). */ @@ -80,5 +81,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/era00.c =================================================================== --- /trunk/FACT++/erfa/src/era00.c (revision 18710) +++ /trunk/FACT++/erfa/src/era00.c (revision 18711) @@ -55,9 +55,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double d1, d2, t, f, theta; + /* Days since fundamental epoch. */ @@ -84,5 +85,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/erfa.h =================================================================== --- /trunk/FACT++/erfa/src/erfa.h (revision 18710) +++ /trunk/FACT++/erfa/src/erfa.h (revision 18711) @@ -9,5 +9,5 @@ ** Prototype function declarations for ERFA library. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -193,4 +193,8 @@ void eraFw2xy(double gamb, double phib, double psi, double eps, double *x, double *y); +void eraLtp(double epj, double rp[3][3]); +void eraLtpb(double epj, double rpb[3][3]); +void eraLtpecl(double epj, double vec[3]); +void eraLtpequ(double epj, double veq[3]); void eraNum00a(double date1, double date2, double rmatn[3][3]); void eraNum00b(double date1, double date2, double rmatn[3][3]); @@ -306,7 +310,17 @@ double *pmr2, double *pmd2, double *px2, double *rv2); +/* Astronomy/EclipticCoordinates */ +void eraEceq06(double date1, double date2, double dl, double db, + double *dr, double *dd); +void eraEcm06(double date1, double date2, double rm[3][3]); +void eraEqec06(double date1, double date2, double dr, double dd, + double *dl, double *db); +void eraLteceq(double epj, double dl, double db, double *dr, double *dd); +void eraLtecm(double epj, double rm[3][3]); +void eraLteqec(double epj, double dr, double dd, double *dl, double *db); + /* Astronomy/GalacticCoordinates */ -void eraG2icrs ( double dl, double db, double *dr, double *dd ); -void eraIcrs2g ( double dr, double dd, double *dl, double *db ); +void eraG2icrs(double dl, double db, double *dr, double *dd); +void eraIcrs2g(double dr, double dd, double *dl, double *db); /* Astronomy/GeodeticGeocentric */ @@ -443,5 +457,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/erfam.h =================================================================== --- /trunk/FACT++/erfa/src/erfam.h (revision 18710) +++ /trunk/FACT++/erfa/src/erfam.h (revision 18711) @@ -9,5 +9,5 @@ ** Macros used by ERFA library. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -148,5 +148,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/fad03.c =================================================================== --- /trunk/FACT++/erfa/src/fad03.c (revision 18710) +++ /trunk/FACT++/erfa/src/fad03.c (revision 18711) @@ -32,9 +32,10 @@ ** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double a; + /* Mean elongation of the Moon from the Sun (IERS Conventions 2003). */ @@ -51,5 +52,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/fae03.c =================================================================== --- /trunk/FACT++/erfa/src/fae03.c (revision 18710) +++ /trunk/FACT++/erfa/src/fae03.c (revision 18711) @@ -35,9 +35,10 @@ ** Astron.Astrophys.Supp.Ser. 135, 111 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double a; + /* Mean longitude of Earth (IERS Conventions 2003). */ @@ -50,5 +51,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/faf03.c =================================================================== --- /trunk/FACT++/erfa/src/faf03.c (revision 18710) +++ /trunk/FACT++/erfa/src/faf03.c (revision 18711) @@ -33,9 +33,10 @@ ** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double a; + /* Mean longitude of the Moon minus that of the ascending node */ @@ -49,9 +50,10 @@ return a; + } /*---------------------------------------------------------------------- ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/faju03.c =================================================================== --- /trunk/FACT++/erfa/src/faju03.c (revision 18710) +++ /trunk/FACT++/erfa/src/faju03.c (revision 18711) @@ -35,9 +35,10 @@ ** Astron.Astrophys.Supp.Ser. 135, 111 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double a; + /* Mean longitude of Jupiter (IERS Conventions 2003). */ @@ -50,5 +51,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/fal03.c =================================================================== --- /trunk/FACT++/erfa/src/fal03.c (revision 18710) +++ /trunk/FACT++/erfa/src/fal03.c (revision 18711) @@ -32,9 +32,10 @@ ** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double a; + /* Mean anomaly of the Moon (IERS Conventions 2003). */ @@ -51,5 +52,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/falp03.c =================================================================== --- /trunk/FACT++/erfa/src/falp03.c (revision 18710) +++ /trunk/FACT++/erfa/src/falp03.c (revision 18711) @@ -32,9 +32,10 @@ ** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double a; + /* Mean anomaly of the Sun (IERS Conventions 2003). */ @@ -51,5 +52,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/fama03.c =================================================================== --- /trunk/FACT++/erfa/src/fama03.c (revision 18710) +++ /trunk/FACT++/erfa/src/fama03.c (revision 18711) @@ -35,9 +35,10 @@ ** Astron.Astrophys.Supp.Ser. 135, 111 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double a; + /* Mean longitude of Mars (IERS Conventions 2003). */ @@ -50,5 +51,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/fame03.c =================================================================== --- /trunk/FACT++/erfa/src/fame03.c (revision 18710) +++ /trunk/FACT++/erfa/src/fame03.c (revision 18711) @@ -35,9 +35,10 @@ ** Astron.Astrophys.Supp.Ser. 135, 111 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double a; + /* Mean longitude of Mercury (IERS Conventions 2003). */ @@ -50,5 +51,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/fane03.c =================================================================== --- /trunk/FACT++/erfa/src/fane03.c (revision 18710) +++ /trunk/FACT++/erfa/src/fane03.c (revision 18711) @@ -32,9 +32,10 @@ ** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double a; + /* Mean longitude of Neptune (IERS Conventions 2003). */ @@ -47,5 +48,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/faom03.c =================================================================== --- /trunk/FACT++/erfa/src/faom03.c (revision 18710) +++ /trunk/FACT++/erfa/src/faom03.c (revision 18711) @@ -32,9 +32,10 @@ ** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double a; + /* Mean longitude of the Moon's ascending node */ @@ -52,5 +53,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/fapa03.c =================================================================== --- /trunk/FACT++/erfa/src/fapa03.c (revision 18710) +++ /trunk/FACT++/erfa/src/fapa03.c (revision 18711) @@ -36,9 +36,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double a; + /* General accumulated precession in longitude. */ @@ -51,5 +52,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/fasa03.c =================================================================== --- /trunk/FACT++/erfa/src/fasa03.c (revision 18710) +++ /trunk/FACT++/erfa/src/fasa03.c (revision 18711) @@ -35,9 +35,10 @@ ** Astron.Astrophys.Supp.Ser. 135, 111 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double a; + /* Mean longitude of Saturn (IERS Conventions 2003). */ @@ -50,5 +51,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/faur03.c =================================================================== --- /trunk/FACT++/erfa/src/faur03.c (revision 18710) +++ /trunk/FACT++/erfa/src/faur03.c (revision 18711) @@ -32,9 +32,10 @@ ** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double a; + /* Mean longitude of Uranus (IERS Conventions 2003). */ @@ -47,5 +48,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/fave03.c =================================================================== --- /trunk/FACT++/erfa/src/fave03.c (revision 18710) +++ /trunk/FACT++/erfa/src/fave03.c (revision 18711) @@ -35,9 +35,10 @@ ** Astron.Astrophys.Supp.Ser. 135, 111 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double a; + /* Mean longitude of Venus (IERS Conventions 2003). */ @@ -50,5 +51,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/fk52h.c =================================================================== --- /trunk/FACT++/erfa/src/fk52h.c (revision 18710) +++ /trunk/FACT++/erfa/src/fk52h.c (revision 18711) @@ -54,5 +54,5 @@ ** F.Mignard & M.Froeschle, Astron. Astrophys. 354, 732-739 (2000). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -60,4 +60,5 @@ int i; double pv5[2][3], r5h[3][3], s5h[3], wxp[3], vv[3], pvh[2][3]; + /* FK5 barycentric position/velocity pv-vector (normalized). */ @@ -91,5 +92,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/fk5hip.c =================================================================== --- /trunk/FACT++/erfa/src/fk5hip.c (revision 18710) +++ /trunk/FACT++/erfa/src/fk5hip.c (revision 18711) @@ -37,5 +37,5 @@ ** F.Mignard & M.Froeschle, Astron. Astrophys. 354, 732-739 (2000). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -46,4 +46,5 @@ double epx, epy, epz; double omx, omy, omz; + epx = -19.9e-3 * ERFA_DAS2R; @@ -74,5 +75,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/fk5hz.c =================================================================== --- /trunk/FACT++/erfa/src/fk5hz.c (revision 18710) +++ /trunk/FACT++/erfa/src/fk5hz.c (revision 18711) @@ -70,5 +70,5 @@ ** F.Mignard & M.Froeschle, 2000, Astron.Astrophys. 354, 732-739. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -76,4 +76,5 @@ double t, p5e[3], r5h[3][3], s5h[3], vst[3], rst[3][3], p5[3], ph[3], w; + /* Interval from given date to fundamental epoch J2000.0 (JY). */ @@ -108,5 +109,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/fw2m.c =================================================================== --- /trunk/FACT++/erfa/src/fw2m.c (revision 18710) +++ /trunk/FACT++/erfa/src/fw2m.c (revision 18711) @@ -66,5 +66,5 @@ ** Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -83,5 +83,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/fw2xy.c =================================================================== --- /trunk/FACT++/erfa/src/fw2xy.c (revision 18710) +++ /trunk/FACT++/erfa/src/fw2xy.c (revision 18711) @@ -51,9 +51,10 @@ ** Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double r[3][3]; + /* Form NxPxB matrix. */ @@ -69,5 +70,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/g2icrs.c =================================================================== --- /trunk/FACT++/erfa/src/g2icrs.c (revision 18710) +++ /trunk/FACT++/erfa/src/g2icrs.c (revision 18711) @@ -62,5 +62,5 @@ ** Publications Division, Noordwijk, Netherlands. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -110,5 +110,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/gc2gd.c =================================================================== --- /trunk/FACT++/erfa/src/gc2gd.c (revision 18710) +++ /trunk/FACT++/erfa/src/gc2gd.c (revision 18711) @@ -52,5 +52,5 @@ ** eraGc2gde geocentric to geodetic transformation, general ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -58,4 +58,5 @@ int j; double a, f; + /* Obtain reference ellipsoid parameters. */ @@ -82,5 +83,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/gc2gde.c =================================================================== --- /trunk/FACT++/erfa/src/gc2gde.c (revision 18710) +++ /trunk/FACT++/erfa/src/gc2gde.c (revision 18711) @@ -57,5 +57,5 @@ ** 79: 689-693 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -148,5 +148,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/gd2gc.c =================================================================== --- /trunk/FACT++/erfa/src/gd2gc.c (revision 18710) +++ /trunk/FACT++/erfa/src/gd2gc.c (revision 18711) @@ -55,5 +55,5 @@ ** eraZp zero p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -61,4 +61,5 @@ int j; double a, f; + /* Obtain reference ellipsoid parameters. */ @@ -81,5 +82,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/gd2gce.c =================================================================== --- /trunk/FACT++/erfa/src/gd2gce.c (revision 18710) +++ /trunk/FACT++/erfa/src/gd2gce.c (revision 18711) @@ -56,9 +56,10 @@ ** Section 4.22, p202. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double sp, cp, w, d, ac, as, r; + /* Functions of geodetic latitude. */ @@ -85,5 +86,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/gmst00.c =================================================================== --- /trunk/FACT++/erfa/src/gmst00.c (revision 18710) +++ /trunk/FACT++/erfa/src/gmst00.c (revision 18711) @@ -69,9 +69,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double t, gmst; + /* TT Julian centuries since J2000.0. */ @@ -93,5 +94,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/gmst06.c =================================================================== --- /trunk/FACT++/erfa/src/gmst06.c (revision 18710) +++ /trunk/FACT++/erfa/src/gmst06.c (revision 18711) @@ -59,9 +59,10 @@ ** Astron.Astrophys. 432, 355 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double t, gmst; + /* TT Julian centuries since J2000.0. */ @@ -84,5 +85,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/gmst82.c =================================================================== --- /trunk/FACT++/erfa/src/gmst82.c (revision 18710) +++ /trunk/FACT++/erfa/src/gmst82.c (revision 18711) @@ -61,5 +61,5 @@ ** Aoki et al., Astron. Astrophys. 105, 359-361 (1982). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -76,4 +76,5 @@ double d1, d2, t, f, gmst; + /* Julian centuries since fundamental epoch. */ @@ -99,5 +100,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/gst00a.c =================================================================== --- /trunk/FACT++/erfa/src/gst00a.c (revision 18710) +++ /trunk/FACT++/erfa/src/gst00a.c (revision 18711) @@ -70,9 +70,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double gmst00, ee00a, gst; + gmst00 = eraGmst00(uta, utb, tta, ttb); @@ -86,5 +87,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/gst00b.c =================================================================== --- /trunk/FACT++/erfa/src/gst00b.c (revision 18710) +++ /trunk/FACT++/erfa/src/gst00b.c (revision 18711) @@ -78,9 +78,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double gmst00, ee00b, gst; + gmst00 = eraGmst00(uta, utb, uta, utb); @@ -94,5 +95,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/gst06.c =================================================================== --- /trunk/FACT++/erfa/src/gst06.c (revision 18710) +++ /trunk/FACT++/erfa/src/gst06.c (revision 18711) @@ -65,9 +65,10 @@ ** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double x, y, s, era, eors, gst; + /* Extract CIP coordinates. */ @@ -88,5 +89,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/gst06a.c =================================================================== --- /trunk/FACT++/erfa/src/gst06a.c (revision 18710) +++ /trunk/FACT++/erfa/src/gst06a.c (revision 18711) @@ -61,9 +61,10 @@ ** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rnpb[3][3], gst; + /* Classical nutation x precession x bias matrix, IAU 2000A. */ @@ -79,5 +80,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/gst94.c =================================================================== --- /trunk/FACT++/erfa/src/gst94.c (revision 18710) +++ /trunk/FACT++/erfa/src/gst94.c (revision 18711) @@ -63,9 +63,10 @@ ** IAU Resolution C7, Recommendation 3 (1994) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double gmst82, eqeq94, gst; + gmst82 = eraGmst82(uta, utb); @@ -79,5 +80,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/h2fk5.c =================================================================== --- /trunk/FACT++/erfa/src/h2fk5.c (revision 18710) +++ /trunk/FACT++/erfa/src/h2fk5.c (revision 18711) @@ -56,5 +56,5 @@ ** F.Mignard & M.Froeschle, Astron. Astrophys. 354, 732-739 (2000). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -62,4 +62,5 @@ int i; double pvh[2][3], r5h[3][3], s5h[3], sh[3], wxp[3], vv[3], pv5[2][3]; + /* Hipparcos barycentric position/velocity pv-vector (normalized). */ @@ -96,5 +97,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/hfk5z.c =================================================================== --- /trunk/FACT++/erfa/src/hfk5z.c (revision 18710) +++ /trunk/FACT++/erfa/src/hfk5z.c (revision 18711) @@ -75,5 +75,5 @@ ** F.Mignard & M.Froeschle, 2000, Astron.Astrophys. 354, 732-739. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -82,4 +82,5 @@ rst[3][3], r5ht[3][3], pv5e[2][3], vv[3], w, r, v; + /* Time interval from fundamental epoch J2000.0 to given date (JY). */ @@ -123,5 +124,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/icrs2g.c =================================================================== --- /trunk/FACT++/erfa/src/icrs2g.c (revision 18710) +++ /trunk/FACT++/erfa/src/icrs2g.c (revision 18711) @@ -62,5 +62,5 @@ ** Publications Division, Noordwijk, Netherlands. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -110,5 +110,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ir.c =================================================================== --- /trunk/FACT++/erfa/src/ir.c (revision 18710) +++ /trunk/FACT++/erfa/src/ir.c (revision 18711) @@ -12,5 +12,5 @@ ** r double[3][3] r-matrix ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -32,5 +32,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/jd2cal.c =================================================================== --- /trunk/FACT++/erfa/src/jd2cal.c (revision 18710) +++ /trunk/FACT++/erfa/src/jd2cal.c (revision 18711) @@ -51,5 +51,5 @@ ** Section 12.92 (p604). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -61,4 +61,5 @@ long jd, l, n, i, k; double dj, d1, d2, f1, f2, f, d; + /* Verify date is acceptable. */ @@ -103,5 +104,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/jdcalf.c =================================================================== --- /trunk/FACT++/erfa/src/jdcalf.c (revision 18710) +++ /trunk/FACT++/erfa/src/jdcalf.c (revision 18711) @@ -56,5 +56,5 @@ ** Section 12.92 (p604). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -62,4 +62,5 @@ int j, js; double denom, d1, d2, f1, f2, f; + /* Denominator of fraction (e.g. 100 for 2 decimal places). */ @@ -109,5 +110,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ld.c =================================================================== --- /trunk/FACT++/erfa/src/ld.c (revision 18710) +++ /trunk/FACT++/erfa/src/ld.c (revision 18711) @@ -69,5 +69,5 @@ ** eraPxp vector product of two p-vectors ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -75,4 +75,5 @@ int i; double qpe[3], qdqpe, w, eq[3], peq[3]; + /* q . (q + e). */ @@ -100,5 +101,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ldn.c =================================================================== --- /trunk/FACT++/erfa/src/ldn.c (revision 18710) +++ /trunk/FACT++/erfa/src/ldn.c (revision 18711) @@ -79,5 +79,5 @@ ** eraLd light deflection by a solar-system body ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -88,4 +88,5 @@ int i; double v[3], dt, ev[3], em, e[3]; + /* Star direction prior to deflection. */ @@ -122,5 +123,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ldsun.c =================================================================== --- /trunk/FACT++/erfa/src/ldsun.c (revision 18710) +++ /trunk/FACT++/erfa/src/ldsun.c (revision 18711) @@ -24,7 +24,8 @@ ** ** 2) The deflection is restrained when the angle between the star and -** the center of the Sun is less than about 9 arcsec, falling to -** zero for zero separation. (The chosen threshold is within the -** solar limb for all solar-system applications.) +** the center of the Sun is less than a threshold value, falling to +** zero deflection for zero separation. The chosen threshold value +** is within the solar limb for all solar-system applications, and +** is about 5 arcminutes for the case of a terrestrial observer. ** ** 3) The arguments p and p1 can be the same array. @@ -33,9 +34,18 @@ ** eraLd light deflection by a solar-system body ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { - eraLd(1.0, p, p, e, em, 1e-9, p1); + double em2, dlim; + + +/* Deflection limiter (smaller for distant observers). */ + em2 = em*em; + if ( em2 < 1.0 ) em2 = 1.0; + dlim = 1e-6 / (em2 > 1.0 ? em2 : 1.0); + +/* Apply the deflection. */ + eraLd(1.0, p, p, e, em, dlim, p1); /* Finished. */ @@ -45,5 +55,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/num00a.c =================================================================== --- /trunk/FACT++/erfa/src/num00a.c (revision 18710) +++ /trunk/FACT++/erfa/src/num00a.c (revision 18711) @@ -53,9 +53,10 @@ ** Section 3.222-3 (p114). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double dpsi, deps, epsa, rb[3][3], rp[3][3], rbp[3][3], rbpn[3][3]; + /* Obtain the required matrix (discarding other results). */ @@ -69,5 +70,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/num00b.c =================================================================== --- /trunk/FACT++/erfa/src/num00b.c (revision 18710) +++ /trunk/FACT++/erfa/src/num00b.c (revision 18711) @@ -53,9 +53,10 @@ ** Section 3.222-3 (p114). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double dpsi, deps, epsa, rb[3][3], rp[3][3], rbp[3][3], rbpn[3][3]; + /* Obtain the required matrix (discarding other results). */ @@ -69,5 +70,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/num06a.c =================================================================== --- /trunk/FACT++/erfa/src/num06a.c (revision 18710) +++ /trunk/FACT++/erfa/src/num06a.c (revision 18711) @@ -52,9 +52,10 @@ ** Section 3.222-3 (p114). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double eps, dp, de; + /* Mean obliquity. */ @@ -73,5 +74,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/numat.c =================================================================== --- /trunk/FACT++/erfa/src/numat.c (revision 18710) +++ /trunk/FACT++/erfa/src/numat.c (revision 18711) @@ -17,4 +17,5 @@ ** ** Notes: +** ** ** 1) The supplied mean obliquity epsa, must be consistent with the @@ -41,5 +42,5 @@ ** Section 3.222-3 (p114). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -57,5 +58,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/nut00a.c =================================================================== --- /trunk/FACT++/erfa/src/nut00a.c (revision 18710) +++ /trunk/FACT++/erfa/src/nut00a.c (revision 18711) @@ -149,5 +149,5 @@ ** Resolutions", in IERS Workshop 5.1 (2002) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -1996,5 +1996,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/nut00b.c =================================================================== --- /trunk/FACT++/erfa/src/nut00b.c (revision 18710) +++ /trunk/FACT++/erfa/src/nut00b.c (revision 18711) @@ -117,5 +117,5 @@ ** Francou, G., Laskar, J., Astron.Astrophys. 282, 663-683 (1994) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -321,5 +321,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/nut06a.c =================================================================== --- /trunk/FACT++/erfa/src/nut06a.c (revision 18710) +++ /trunk/FACT++/erfa/src/nut06a.c (revision 18711) @@ -76,9 +76,10 @@ ** Resolutions", in IERS Workshop 5.1 (2002) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double t, fj2, dp, de; + /* Interval between fundamental date J2000.0 and given date (JC). */ @@ -101,5 +102,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/nut80.c =================================================================== --- /trunk/FACT++/erfa/src/nut80.c (revision 18710) +++ /trunk/FACT++/erfa/src/nut80.c (revision 18711) @@ -49,5 +49,5 @@ ** Section 3.222 (p111). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -274,5 +274,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/nutm80.c =================================================================== --- /trunk/FACT++/erfa/src/nutm80.c (revision 18710) +++ /trunk/FACT++/erfa/src/nutm80.c (revision 18711) @@ -46,9 +46,10 @@ ** eraNumat form nutation matrix ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double dpsi, deps, epsa; + /* Nutation components and mean obliquity. */ @@ -65,5 +66,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/obl06.c =================================================================== --- /trunk/FACT++/erfa/src/obl06.c (revision 18710) +++ /trunk/FACT++/erfa/src/obl06.c (revision 18711) @@ -43,9 +43,10 @@ ** Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double t, eps0; + /* Interval between fundamental date J2000.0 and given date (JC). */ @@ -66,5 +67,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/obl80.c =================================================================== --- /trunk/FACT++/erfa/src/obl80.c (revision 18710) +++ /trunk/FACT++/erfa/src/obl80.c (revision 18711) @@ -45,9 +45,10 @@ ** Expression 3.222-1 (p114). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double t, eps0; + /* Interval between fundamental epoch J2000.0 and given date (JC). */ @@ -66,5 +67,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/p06e.c =================================================================== --- /trunk/FACT++/erfa/src/p06e.c (revision 18710) +++ /trunk/FACT++/erfa/src/p06e.c (revision 18711) @@ -121,9 +121,10 @@ ** eraObl06 mean obliquity, IAU 2006 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double t; + /* Interval between fundamental date J2000.0 and given date (JC). */ @@ -269,5 +270,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/p2pv.c =================================================================== --- /trunk/FACT++/erfa/src/p2pv.c (revision 18710) +++ /trunk/FACT++/erfa/src/p2pv.c (revision 18711) @@ -19,5 +19,5 @@ ** eraZp zero p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -32,5 +32,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/p2s.c =================================================================== --- /trunk/FACT++/erfa/src/p2s.c (revision 18710) +++ /trunk/FACT++/erfa/src/p2s.c (revision 18711) @@ -27,5 +27,5 @@ ** eraPm modulus of p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -40,5 +40,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pap.c =================================================================== --- /trunk/FACT++/erfa/src/pap.c (revision 18710) +++ /trunk/FACT++/erfa/src/pap.c (revision 18711) @@ -38,9 +38,10 @@ ** eraPdp scalar product of two p-vectors ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double am, au[3], bm, st, ct, xa, ya, za, eta[3], xi[3], a2b[3], pa; + /* Modulus and direction of the a vector. */ @@ -87,5 +88,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pas.c =================================================================== --- /trunk/FACT++/erfa/src/pas.c (revision 18710) +++ /trunk/FACT++/erfa/src/pas.c (revision 18711) @@ -27,9 +27,10 @@ ** 2) Zero is returned if the two points are coincident. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double dl, x, y, pa; + dl = bl - al; @@ -44,5 +45,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pb06.c =================================================================== --- /trunk/FACT++/erfa/src/pb06.c (revision 18710) +++ /trunk/FACT++/erfa/src/pb06.c (revision 18711) @@ -64,9 +64,10 @@ ** eraRz rotate around Z-axis ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double r[3][3], r31, r32; + /* Precession matrix via Fukushima-Williams angles. */ @@ -92,5 +93,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pdp.c =================================================================== --- /trunk/FACT++/erfa/src/pdp.c (revision 18710) +++ /trunk/FACT++/erfa/src/pdp.c (revision 18711) @@ -16,9 +16,10 @@ ** double a . b ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double w; + w = a[0] * b[0] @@ -32,5 +33,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pfw06.c =================================================================== --- /trunk/FACT++/erfa/src/pfw06.c (revision 18710) +++ /trunk/FACT++/erfa/src/pfw06.c (revision 18711) @@ -74,9 +74,10 @@ ** eraObl06 mean obliquity, IAU 2006 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double t; + /* Interval between fundamental date J2000.0 and given date (JC). */ @@ -113,5 +114,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/plan94.c =================================================================== --- /trunk/FACT++/erfa/src/plan94.c (revision 18710) +++ /trunk/FACT++/erfa/src/plan94.c (revision 18711) @@ -158,5 +158,5 @@ ** Astron. Astrophys. 282, 663 (1994). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -463,5 +463,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pm.c =================================================================== --- /trunk/FACT++/erfa/src/pm.c (revision 18710) +++ /trunk/FACT++/erfa/src/pm.c (revision 18711) @@ -15,5 +15,5 @@ ** double modulus ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -25,5 +25,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pmat00.c =================================================================== --- /trunk/FACT++/erfa/src/pmat00.c (revision 18710) +++ /trunk/FACT++/erfa/src/pmat00.c (revision 18711) @@ -51,9 +51,10 @@ ** (2000) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rb[3][3], rp[3][3]; + /* Obtain the required matrix (discarding others). */ @@ -66,5 +67,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pmat06.c =================================================================== --- /trunk/FACT++/erfa/src/pmat06.c (revision 18710) +++ /trunk/FACT++/erfa/src/pmat06.c (revision 18711) @@ -52,9 +52,10 @@ ** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double gamb, phib, psib, epsa; + /* Bias-precession Fukushima-Williams angles. */ @@ -70,5 +71,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pmat76.c =================================================================== --- /trunk/FACT++/erfa/src/pmat76.c (revision 18710) +++ /trunk/FACT++/erfa/src/pmat76.c (revision 18711) @@ -67,9 +67,10 @@ ** Kaplan,G.H., 1981. USNO circular no. 163, pA2. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double zeta, z, theta, wmat[3][3]; + /* Precession Euler angles, J2000.0 to specified date. */ @@ -89,5 +90,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pmp.c =================================================================== --- /trunk/FACT++/erfa/src/pmp.c (revision 18710) +++ /trunk/FACT++/erfa/src/pmp.c (revision 18711) @@ -20,5 +20,5 @@ ** arguments. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -34,5 +34,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pmpx.c =================================================================== --- /trunk/FACT++/erfa/src/pmpx.c (revision 18710) +++ /trunk/FACT++/erfa/src/pmpx.c (revision 18711) @@ -47,5 +47,5 @@ ** eraPn decompose p-vector into modulus and direction ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -59,4 +59,5 @@ int i; double sr, cr, sd, cd, x, y, z, p[3], dt, pxr, w, pdz, pm[3]; + /* Spherical coordinates to unit vector (and useful functions). */ @@ -92,5 +93,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pmsafe.c =================================================================== --- /trunk/FACT++/erfa/src/pmsafe.c (revision 18710) +++ /trunk/FACT++/erfa/src/pmsafe.c (revision 18711) @@ -106,5 +106,5 @@ ** eraStarpm update star catalog data for space motion ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -119,4 +119,5 @@ int jpx, j; double pm, px1a; + /* Proper motion in one year (radians). */ @@ -145,5 +146,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pn.c =================================================================== --- /trunk/FACT++/erfa/src/pn.c (revision 18710) +++ /trunk/FACT++/erfa/src/pn.c (revision 18711) @@ -29,9 +29,10 @@ ** eraSxp multiply p-vector by scalar ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double w; + /* Obtain the modulus and test for zero. */ @@ -57,5 +58,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pn00.c =================================================================== --- /trunk/FACT++/erfa/src/pn00.c (revision 18710) +++ /trunk/FACT++/erfa/src/pn00.c (revision 18711) @@ -96,9 +96,10 @@ ** intermediate origin" (CIO) by IAU 2006 Resolution 2. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double dpsipr, depspr, rbpw[3][3], rnw[3][3]; + /* IAU 2000 precession-rate adjustments. */ @@ -125,5 +126,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pn00a.c =================================================================== --- /trunk/FACT++/erfa/src/pn00a.c (revision 18710) +++ /trunk/FACT++/erfa/src/pn00a.c (revision 18711) @@ -96,5 +96,5 @@ ** intermediate origin" (CIO) by IAU 2006 Resolution 2. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -112,5 +112,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pn00b.c =================================================================== --- /trunk/FACT++/erfa/src/pn00b.c (revision 18710) +++ /trunk/FACT++/erfa/src/pn00b.c (revision 18711) @@ -96,5 +96,5 @@ ** intermediate origin" (CIO) by IAU 2006 Resolution 2. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -112,5 +112,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pn06.c =================================================================== --- /trunk/FACT++/erfa/src/pn06.c (revision 18710) +++ /trunk/FACT++/erfa/src/pn06.c (revision 18711) @@ -94,9 +94,10 @@ ** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double gamb, phib, psib, eps, r1[3][3], r2[3][3], rt[3][3]; + /* Bias-precession Fukushima-Williams angles of J2000.0 = frame bias. */ @@ -135,5 +136,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pn06a.c =================================================================== --- /trunk/FACT++/erfa/src/pn06a.c (revision 18710) +++ /trunk/FACT++/erfa/src/pn06a.c (revision 18711) @@ -86,5 +86,5 @@ ** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -102,5 +102,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pnm00a.c =================================================================== --- /trunk/FACT++/erfa/src/pnm00a.c (revision 18710) +++ /trunk/FACT++/erfa/src/pnm00a.c (revision 18711) @@ -54,9 +54,10 @@ ** (2000) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double dpsi, deps, epsa, rb[3][3], rp[3][3], rbp[3][3], rn[3][3]; + /* Obtain the required matrix (discarding other results). */ @@ -69,5 +70,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pnm00b.c =================================================================== --- /trunk/FACT++/erfa/src/pnm00b.c (revision 18710) +++ /trunk/FACT++/erfa/src/pnm00b.c (revision 18711) @@ -54,9 +54,10 @@ ** (2000) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double dpsi, deps, epsa, rb[3][3], rp[3][3], rbp[3][3], rn[3][3]; + /* Obtain the required matrix (discarding other results). */ @@ -69,5 +70,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pnm06a.c =================================================================== --- /trunk/FACT++/erfa/src/pnm06a.c (revision 18710) +++ /trunk/FACT++/erfa/src/pnm06a.c (revision 18711) @@ -51,9 +51,10 @@ ** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double gamb, phib, psib, epsa, dp, de; + /* Fukushima-Williams angles for frame bias and precession. */ @@ -72,5 +73,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pnm80.c =================================================================== --- /trunk/FACT++/erfa/src/pnm80.c (revision 18710) +++ /trunk/FACT++/erfa/src/pnm80.c (revision 18711) @@ -53,9 +53,10 @@ ** Section 3.3 (p145). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rmatp[3][3], rmatn[3][3]; + /* Precession matrix, J2000.0 to date. */ @@ -74,5 +75,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pom00.c =================================================================== --- /trunk/FACT++/erfa/src/pom00.c (revision 18710) +++ /trunk/FACT++/erfa/src/pom00.c (revision 18711) @@ -47,5 +47,5 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -64,5 +64,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ppp.c =================================================================== --- /trunk/FACT++/erfa/src/ppp.c (revision 18710) +++ /trunk/FACT++/erfa/src/ppp.c (revision 18711) @@ -20,5 +20,5 @@ ** arguments. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -34,5 +34,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ppsp.c =================================================================== --- /trunk/FACT++/erfa/src/ppsp.c (revision 18710) +++ /trunk/FACT++/erfa/src/ppsp.c (revision 18711) @@ -24,9 +24,10 @@ ** eraPpp p-vector plus p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double sb[3]; + /* s*b. */ @@ -42,5 +43,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pr00.c =================================================================== --- /trunk/FACT++/erfa/src/pr00.c (revision 18710) +++ /trunk/FACT++/erfa/src/pr00.c (revision 18711) @@ -67,5 +67,5 @@ ** Resolutions", in IERS Workshop 5.1 (2002). ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -76,4 +76,5 @@ static const double PRECOR = -0.29965 * ERFA_DAS2R, OBLCOR = -0.02524 * ERFA_DAS2R; + /* Interval between fundamental epoch J2000.0 and given date (JC). */ @@ -90,5 +91,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/prec76.c =================================================================== --- /trunk/FACT++/erfa/src/prec76.c (revision 18710) +++ /trunk/FACT++/erfa/src/prec76.c (revision 18711) @@ -67,9 +67,10 @@ ** (6) & (7), p283. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double t0, t, tas2r, w; + /* Interval between fundamental epoch J2000.0 and start date (JC). */ @@ -96,5 +97,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pv2p.c =================================================================== --- /trunk/FACT++/erfa/src/pv2p.c (revision 18710) +++ /trunk/FACT++/erfa/src/pv2p.c (revision 18711) @@ -18,5 +18,5 @@ ** eraCp copy p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -30,5 +30,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pv2s.c =================================================================== --- /trunk/FACT++/erfa/src/pv2s.c (revision 18710) +++ /trunk/FACT++/erfa/src/pv2s.c (revision 18711) @@ -35,9 +35,10 @@ ** In such cases zeroes are returned for all three. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double x, y, z, xd, yd, zd, rxy2, rxy, r2, rtrue, rw, xyp; + /* Components of position/velocity vector. */ @@ -92,5 +93,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pvdpv.c =================================================================== --- /trunk/FACT++/erfa/src/pvdpv.c (revision 18710) +++ /trunk/FACT++/erfa/src/pvdpv.c (revision 18711) @@ -26,9 +26,10 @@ ** eraPdp scalar product of two p-vectors ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double adbd, addb; + /* a . b = constant part of result. */ @@ -50,5 +51,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pvm.c =================================================================== --- /trunk/FACT++/erfa/src/pvm.c (revision 18710) +++ /trunk/FACT++/erfa/src/pvm.c (revision 18711) @@ -19,5 +19,5 @@ ** eraPm modulus of p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -35,5 +35,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pvmpv.c =================================================================== --- /trunk/FACT++/erfa/src/pvmpv.c (revision 18710) +++ /trunk/FACT++/erfa/src/pvmpv.c (revision 18711) @@ -23,5 +23,5 @@ ** eraPmp p-vector minus p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -36,5 +36,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pvppv.c =================================================================== --- /trunk/FACT++/erfa/src/pvppv.c (revision 18710) +++ /trunk/FACT++/erfa/src/pvppv.c (revision 18711) @@ -23,5 +23,5 @@ ** eraPpp p-vector plus p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -36,5 +36,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pvstar.c =================================================================== --- /trunk/FACT++/erfa/src/pvstar.c (revision 18710) +++ /trunk/FACT++/erfa/src/pvstar.c (revision 18711) @@ -94,5 +94,5 @@ ** Stumpff, P., 1985, Astron.Astrophys. 144, 232-240. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -101,4 +101,5 @@ usr[3], ust[3], a, rad, decd, rd; + /* Isolate the radial component of the velocity (AU/day, inertial). */ eraPn(pv[0], &r, x); @@ -155,5 +156,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pvtob.c =================================================================== --- /trunk/FACT++/erfa/src/pvtob.c (revision 18710) +++ /trunk/FACT++/erfa/src/pvtob.c (revision 18711) @@ -62,5 +62,5 @@ ** eraTrxp product of transpose of r-matrix and p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -70,4 +70,5 @@ double xyzm[3], rpm[3][3], xyz[3], x, y, z, s, c; + /* Geodetic to geocentric transformation (ERFA_WGS84). */ @@ -101,5 +102,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pvu.c =================================================================== --- /trunk/FACT++/erfa/src/pvu.c (revision 18710) +++ /trunk/FACT++/erfa/src/pvu.c (revision 18711) @@ -29,5 +29,5 @@ ** eraCp copy p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -42,5 +42,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pvup.c =================================================================== --- /trunk/FACT++/erfa/src/pvup.c (revision 18710) +++ /trunk/FACT++/erfa/src/pvup.c (revision 18711) @@ -23,5 +23,5 @@ ** 2) The time units of dt must match those of the velocity. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -37,5 +37,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pvxpv.c =================================================================== --- /trunk/FACT++/erfa/src/pvxpv.c (revision 18710) +++ /trunk/FACT++/erfa/src/pvxpv.c (revision 18711) @@ -31,9 +31,10 @@ ** eraPpp p-vector plus p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double wa[2][3], wb[2][3], axbd[3], adxb[3]; + /* Make copies of the inputs. */ @@ -55,5 +56,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/pxp.c =================================================================== --- /trunk/FACT++/erfa/src/pxp.c (revision 18710) +++ /trunk/FACT++/erfa/src/pxp.c (revision 18711) @@ -20,9 +20,10 @@ ** arguments. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double xa, ya, za, xb, yb, zb; + xa = a[0]; @@ -42,5 +43,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/refco.c =================================================================== --- /trunk/FACT++/erfa/src/refco.c (revision 18710) +++ /trunk/FACT++/erfa/src/refco.c (revision 18711) @@ -146,5 +146,5 @@ ** Stone, Ronald C., P.A.S.P. 108, 1051-1058, 1996. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -152,4 +152,5 @@ int optic; double p, t, r, w, ps, pw, tk, wlsq, gamma, beta; + /* Decide whether optical/IR or radio case: switch at 100 microns. */ @@ -201,5 +202,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/rm2v.c =================================================================== --- /trunk/FACT++/erfa/src/rm2v.c (revision 18710) +++ /trunk/FACT++/erfa/src/rm2v.c (revision 18711) @@ -30,5 +30,5 @@ ** the rotation vector from the origin. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -60,5 +60,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/rv2m.c =================================================================== --- /trunk/FACT++/erfa/src/rv2m.c (revision 18710) +++ /trunk/FACT++/erfa/src/rv2m.c (revision 18711) @@ -27,5 +27,5 @@ ** rotation vector from the origin. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -67,5 +67,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/rx.c =================================================================== --- /trunk/FACT++/erfa/src/rx.c (revision 18710) +++ /trunk/FACT++/erfa/src/rx.c (revision 18711) @@ -29,9 +29,10 @@ ** ( 0 - sin(phi) + cos(phi) ) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double s, c, a10, a11, a12, a20, a21, a22; + s = sin(phi); @@ -58,5 +59,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/rxp.c =================================================================== --- /trunk/FACT++/erfa/src/rxp.c (revision 18710) +++ /trunk/FACT++/erfa/src/rxp.c (revision 18711) @@ -22,5 +22,5 @@ ** eraCp copy p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -28,4 +28,5 @@ double w, wrp[3]; int i, j; + /* Matrix r * vector p. */ @@ -47,5 +48,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/rxpv.c =================================================================== --- /trunk/FACT++/erfa/src/rxpv.c (revision 18710) +++ /trunk/FACT++/erfa/src/rxpv.c (revision 18711) @@ -22,5 +22,5 @@ ** eraRxp product of r-matrix and p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -35,5 +35,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/rxr.c =================================================================== --- /trunk/FACT++/erfa/src/rxr.c (revision 18710) +++ /trunk/FACT++/erfa/src/rxr.c (revision 18711) @@ -23,5 +23,5 @@ ** eraCr copy r-matrix ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -29,4 +29,5 @@ int i, j, k; double w, wm[3][3]; + for (i = 0; i < 3; i++) { @@ -47,5 +48,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ry.c =================================================================== --- /trunk/FACT++/erfa/src/ry.c (revision 18710) +++ /trunk/FACT++/erfa/src/ry.c (revision 18711) @@ -29,9 +29,10 @@ ** ( + sin(theta) 0 + cos(theta) ) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double s, c, a00, a01, a02, a20, a21, a22; + s = sin(theta); @@ -58,5 +59,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/rz.c =================================================================== --- /trunk/FACT++/erfa/src/rz.c (revision 18710) +++ /trunk/FACT++/erfa/src/rz.c (revision 18711) @@ -29,9 +29,10 @@ ** ( 0 0 1 ) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double s, c, a00, a01, a02, a10, a11, a12; + s = sin(psi); @@ -58,5 +59,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/s00.c =================================================================== --- /trunk/FACT++/erfa/src/s00.c (revision 18710) +++ /trunk/FACT++/erfa/src/s00.c (revision 18711) @@ -77,5 +77,5 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -320,5 +320,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/s00a.c =================================================================== --- /trunk/FACT++/erfa/src/s00a.c (revision 18710) +++ /trunk/FACT++/erfa/src/s00a.c (revision 18711) @@ -70,9 +70,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rbpn[3][3], x, y, s; + /* Bias-precession-nutation-matrix, IAU 2000A. */ @@ -91,5 +92,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/s00b.c =================================================================== --- /trunk/FACT++/erfa/src/s00b.c (revision 18710) +++ /trunk/FACT++/erfa/src/s00b.c (revision 18711) @@ -70,9 +70,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rbpn[3][3], x, y, s; + /* Bias-precession-nutation-matrix, IAU 2000B. */ @@ -91,5 +92,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/s06.c =================================================================== --- /trunk/FACT++/erfa/src/s06.c (revision 18710) +++ /trunk/FACT++/erfa/src/s06.c (revision 18711) @@ -74,5 +74,5 @@ ** IERS Technical Note No. 32, BKG ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -317,5 +317,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/s06a.c =================================================================== --- /trunk/FACT++/erfa/src/s06a.c (revision 18710) +++ /trunk/FACT++/erfa/src/s06a.c (revision 18711) @@ -72,9 +72,10 @@ ** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rnpb[3][3], x, y, s; + /* Bias-precession-nutation-matrix, IAU 20006/2000A. */ @@ -93,5 +94,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/s2c.c =================================================================== --- /trunk/FACT++/erfa/src/s2c.c (revision 18710) +++ /trunk/FACT++/erfa/src/s2c.c (revision 18711) @@ -16,9 +16,10 @@ ** c double[3] direction cosines ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double cp; + cp = cos(phi); @@ -33,5 +34,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/s2p.c =================================================================== --- /trunk/FACT++/erfa/src/s2p.c (revision 18710) +++ /trunk/FACT++/erfa/src/s2p.c (revision 18711) @@ -21,9 +21,10 @@ ** eraSxp multiply p-vector by scalar ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double u[3]; + eraS2c(theta, phi, u); @@ -36,5 +37,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/s2pv.c =================================================================== --- /trunk/FACT++/erfa/src/s2pv.c (revision 18710) +++ /trunk/FACT++/erfa/src/s2pv.c (revision 18711) @@ -22,9 +22,10 @@ ** pv double[2][3] pv-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double st, ct, sp, cp, rcp, x, y, rpd, w; + st = sin(theta); @@ -51,5 +52,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/s2xpv.c =================================================================== --- /trunk/FACT++/erfa/src/s2xpv.c (revision 18710) +++ /trunk/FACT++/erfa/src/s2xpv.c (revision 18711) @@ -23,5 +23,5 @@ ** eraSxp multiply p-vector by scalar ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -36,5 +36,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/sepp.c =================================================================== --- /trunk/FACT++/erfa/src/sepp.c (revision 18710) +++ /trunk/FACT++/erfa/src/sepp.c (revision 18711) @@ -31,9 +31,10 @@ ** eraPdp scalar product of two p-vectors ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double axb[3], ss, cs, s; + /* Sine of angle between the vectors, multiplied by the two moduli. */ @@ -53,5 +54,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/seps.c =================================================================== --- /trunk/FACT++/erfa/src/seps.c (revision 18710) +++ /trunk/FACT++/erfa/src/seps.c (revision 18711) @@ -22,9 +22,10 @@ ** eraSepp angular separation between two p-vectors ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double ac[3], bc[3], s; + /* Spherical to Cartesian. */ @@ -41,5 +42,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/sp00.c =================================================================== --- /trunk/FACT++/erfa/src/sp00.c (revision 18710) +++ /trunk/FACT++/erfa/src/sp00.c (revision 18711) @@ -48,9 +48,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double t, sp; + /* Interval between fundamental epoch J2000.0 and current date (JC). */ @@ -66,5 +67,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/starpm.c =================================================================== --- /trunk/FACT++/erfa/src/starpm.c (revision 18710) +++ /trunk/FACT++/erfa/src/starpm.c (revision 18711) @@ -107,5 +107,5 @@ ** eraPvstar space motion pv-vector to star catalog data ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -114,4 +114,5 @@ pv2[2][3]; int j1, j2, j; + /* RA,Dec etc. at the "before" epoch to space motion pv-vector. */ @@ -153,5 +154,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/starpv.c =================================================================== --- /trunk/FACT++/erfa/src/starpv.c (revision 18710) +++ /trunk/FACT++/erfa/src/starpv.c (revision 18711) @@ -114,5 +114,5 @@ ** Stumpff, P., 1985, Astron.Astrophys. 144, 232-240. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -134,4 +134,5 @@ odd = 0.0, oddel = 0.0, /* compiler */ od = 0.0, odel = 0.0; /* warnings */ + /* Distance (AU). */ @@ -212,5 +213,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/sxp.c =================================================================== --- /trunk/FACT++/erfa/src/sxp.c (revision 18710) +++ /trunk/FACT++/erfa/src/sxp.c (revision 18711) @@ -19,5 +19,5 @@ ** It is permissible for p and sp to be the same array. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -33,5 +33,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/sxpv.c =================================================================== --- /trunk/FACT++/erfa/src/sxpv.c (revision 18710) +++ /trunk/FACT++/erfa/src/sxpv.c (revision 18711) @@ -22,5 +22,5 @@ ** eraS2xpv multiply pv-vector by two scalars ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -34,5 +34,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/t_erfa_c.c =================================================================== --- /trunk/FACT++/erfa/src/t_erfa_c.c (revision 18710) +++ /trunk/FACT++/erfa/src/t_erfa_c.c (revision 18711) @@ -18,5 +18,5 @@ ** All messages go to stdout. ** -** This revision: 2015 January 30 +** This revision: 2016 July 11 ** */ @@ -77,5 +77,5 @@ ** status int set to TRUE if test fails ** -** This revision: 2013 August 7 +** This revision: 2016 April 21 */ { @@ -84,5 +84,5 @@ a = val - valok; - if (fabs(a) > dval) { + if (a != 0.0 && fabs(a) > fabs(dval)) { f = fabs(valok / a); *status = 1; @@ -2903,5 +2903,5 @@ ** Called: eraDat, vvd, viv ** -** This revision: 2015 January 30 +** This revision: 2016 July 11 */ { @@ -2920,7 +2920,7 @@ viv(j, 0, "eraDat", "j2", status); - j = eraDat(2015, 9, 1, 0.0, &deltat); - - vvd(deltat, 36.0, 0.0, "eraDat", "d3", status); + j = eraDat(2017, 9, 1, 0.0, &deltat); + + vvd(deltat, 37.0, 0.0, "eraDat", "d3", status); viv(j, 0, "eraDat", "j3", status); @@ -2979,4 +2979,80 @@ } +static void t_eceq06(int *status) +/* +** - - - - - +** t _ e c e q 0 6 +** - - - - - +** +** Test eraEceq06 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: eraEceq06, vvd +** +** This revision: 2016 March 12 +*/ +{ + double date1, date2, dl, db, dr, dd; + + + date1 = 2456165.5; + date2 = 0.401182685; + dl = 5.1; + db = -0.9; + + eraEceq06(date1, date2, dl, db, &dr, &dd); + + vvd(dr, 5.533459733613627767, 1e-14, "eraEceq06", "dr", status); + vvd(dd, -1.246542932554480576, 1e-14, "eraEceq06", "dd", status); + +} + +static void t_ecm06(int *status) +/* +** - - - - - - - - +** t _ e c m 0 6 +** - - - - - - - - +** +** Test eraEcm06 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: eraEcm06, vvd +** +** This revision: 2016 March 12 +*/ +{ + double date1, date2, rm[3][3]; + + + date1 = 2456165.5; + date2 = 0.401182685; + + eraEcm06(date1, date2, rm); + + vvd(rm[0][0], 0.9999952427708701137, 1e-14, + "eraEcm06", "rm11", status); + vvd(rm[0][1], -0.2829062057663042347e-2, 1e-14, + "eraEcm06", "rm12", status); + vvd(rm[0][2], -0.1229163741100017629e-2, 1e-14, + "eraEcm06", "rm13", status); + vvd(rm[1][0], 0.3084546876908653562e-2, 1e-14, + "eraEcm06", "rm21", status); + vvd(rm[1][1], 0.9174891871550392514, 1e-14, + "eraEcm06", "rm22", status); + vvd(rm[1][2], 0.3977487611849338124, 1e-14, + "eraEcm06", "rm23", status); + vvd(rm[2][0], 0.2488512951527405928e-5, 1e-14, + "eraEcm06", "rm31", status); + vvd(rm[2][1], -0.3977506604161195467, 1e-14, + "eraEcm06", "rm32", status); + vvd(rm[2][2], 0.9174935488232863071, 1e-14, + "eraEcm06", "rm33", status); + +} + static void t_ee00(int *status) /* @@ -3119,5 +3195,5 @@ ** Called: eraEform, viv, vvd ** -** This revision: 2013 August 7 +** This revision: 2016 March 12 */ { @@ -3133,5 +3209,5 @@ viv(j, 0, "eraEform", "j1", status); vvd(a, 6378137.0, 1e-10, "eraEform", "a1", status); - vvd(f, 0.0033528106647474807, 1e-18, "eraEform", "f1", status); + vvd(f, 0.3352810664747480720e-2, 1e-18, "eraEform", "f1", status); j = eraEform(ERFA_GRS80, &a, &f); @@ -3139,5 +3215,5 @@ viv(j, 0, "eraEform", "j2", status); vvd(a, 6378137.0, 1e-10, "eraEform", "a2", status); - vvd(f, 0.0033528106811823189, 1e-18, "eraEform", "f2", status); + vvd(f, 0.3352810681182318935e-2, 1e-18, "eraEform", "f2", status); j = eraEform(ERFA_WGS72, &a, &f); @@ -3145,5 +3221,5 @@ viv(j, 0, "eraEform", "j2", status); vvd(a, 6378135.0, 1e-10, "eraEform", "a3", status); - vvd(f, 0.0033527794541675049, 1e-18, "eraEform", "f3", status); + vvd(f, 0.3352779454167504862e-2, 1e-18, "eraEform", "f3", status); j = eraEform(4, &a, &f); @@ -3372,4 +3448,35 @@ viv(j, 0, "eraEpv00", "j", status); + +} + +static void t_eqec06(int *status) +/* +** - - - - - - - - - +** t _ e q e c 0 6 +** - - - - - - - - - +** +** Test eraEqec06 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: eraEqec06, vvd +** +** This revision: 2016 March 12 +*/ +{ + double date1, date2, dr, dd, dl, db; + + + date1 = 1234.5; + date2 = 2440000.5; + dr = 1.234; + dd = 0.987; + + eraEqec06(date1, date2, dr, dd, &dl, &db); + + vvd(dl, 1.342509918994654619, 1e-14, "eraEqec06", "dl", status); + vvd(db, 0.5926215259704608132, 1e-14, "eraEqec06", "db", status); } @@ -3945,5 +4052,5 @@ ** Called: eraGc2gd, viv, vvd ** -** This revision: 2013 August 7 +** This revision: 2016 March 12 */ { @@ -3959,12 +4066,12 @@ viv(j, 0, "eraGc2gd", "j1", status); - vvd(e, 0.98279372324732907, 1e-14, "eraGc2gd", "e1", status); + vvd(e, 0.9827937232473290680, 1e-14, "eraGc2gd", "e1", status); vvd(p, 0.97160184819075459, 1e-14, "eraGc2gd", "p1", status); - vvd(h, 331.41724614260599, 1e-8, "eraGc2gd", "h1", status); + vvd(h, 331.4172461426059892, 1e-8, "eraGc2gd", "h1", status); j = eraGc2gd(ERFA_GRS80, xyz, &e, &p, &h); viv(j, 0, "eraGc2gd", "j2", status); - vvd(e, 0.98279372324732907, 1e-14, "eraGc2gd", "e2", status); + vvd(e, 0.9827937232473290680, 1e-14, "eraGc2gd", "e2", status); vvd(p, 0.97160184820607853, 1e-14, "eraGc2gd", "p2", status); vvd(h, 331.41731754844348, 1e-8, "eraGc2gd", "h2", status); @@ -3973,7 +4080,7 @@ viv(j, 0, "eraGc2gd", "j3", status); - vvd(e, 0.98279372324732907, 1e-14, "eraGc2gd", "e3", status); - vvd(p, 0.97160181811015119, 1e-14, "eraGc2gd", "p3", status); - vvd(h, 333.27707261303181, 1e-8, "eraGc2gd", "h3", status); + vvd(e, 0.9827937232473290680, 1e-14, "eraGc2gd", "e3", status); + vvd(p, 0.9716018181101511937, 1e-14, "eraGc2gd", "p3", status); + vvd(h, 333.2770726130318123, 1e-8, "eraGc2gd", "h3", status); j = eraGc2gd(4, xyz, &e, &p, &h); @@ -3995,5 +4102,5 @@ ** Called: eraGc2gde, viv, vvd ** -** This revision: 2013 August 7 +** This revision: 2016 March 12 */ { @@ -4006,6 +4113,6 @@ viv(j, 0, "eraGc2gde", "j", status); - vvd(e, 0.98279372324732907, 1e-14, "eraGc2gde", "e", status); - vvd(p, 0.97160183775704115, 1e-14, "eraGc2gde", "p", status); + vvd(e, 0.9827937232473290680, 1e-14, "eraGc2gde", "e", status); + vvd(p, 0.9716018377570411532, 1e-14, "eraGc2gde", "p", status); vvd(h, 332.36862495764397, 1e-8, "eraGc2gde", "h", status); } @@ -4024,5 +4131,5 @@ ** Called: eraGd2gc, viv, vvd ** -** This revision: 2013 August 7 +** This revision: 2016 March 12 */ { @@ -4038,21 +4145,21 @@ viv(j, 0, "eraGd2gc", "j1", status); - vvd(xyz[0], -5599000.5577049947, 1e-7, "eraGd2gc", "0/1", status); - vvd(xyz[1], 233011.67223479203, 1e-7, "eraGd2gc", "1/1", status); - vvd(xyz[2], -3040909.4706983363, 1e-7, "eraGd2gc", "2/1", status); + vvd(xyz[0], -5599000.5577049947, 1e-7, "eraGd2gc", "1/1", status); + vvd(xyz[1], 233011.67223479203, 1e-7, "eraGd2gc", "2/1", status); + vvd(xyz[2], -3040909.4706983363, 1e-7, "eraGd2gc", "3/1", status); j = eraGd2gc(ERFA_GRS80, e, p, h, xyz); viv(j, 0, "eraGd2gc", "j2", status); - vvd(xyz[0], -5599000.5577260984, 1e-7, "eraGd2gc", "0/2", status); - vvd(xyz[1], 233011.6722356703, 1e-7, "eraGd2gc", "1/2", status); - vvd(xyz[2], -3040909.4706095476, 1e-7, "eraGd2gc", "2/2", status); + vvd(xyz[0], -5599000.5577260984, 1e-7, "eraGd2gc", "1/2", status); + vvd(xyz[1], 233011.6722356702949, 1e-7, "eraGd2gc", "2/2", status); + vvd(xyz[2], -3040909.4706095476, 1e-7, "eraGd2gc", "3/2", status); j = eraGd2gc(ERFA_WGS72, e, p, h, xyz); viv(j, 0, "eraGd2gc", "j3", status); - vvd(xyz[0], -5598998.7626301490, 1e-7, "eraGd2gc", "0/3", status); - vvd(xyz[1], 233011.5975297822, 1e-7, "eraGd2gc", "1/3", status); - vvd(xyz[2], -3040908.6861467111, 1e-7, "eraGd2gc", "2/3", status); + vvd(xyz[0], -5598998.7626301490, 1e-7, "eraGd2gc", "1/3", status); + vvd(xyz[1], 233011.5975297822211, 1e-7, "eraGd2gc", "2/3", status); + vvd(xyz[2], -3040908.6861467111, 1e-7, "eraGd2gc", "3/3", status); j = eraGd2gc(4, e, p, h, xyz); @@ -4074,5 +4181,5 @@ ** Called: eraGd2gce, viv, vvd ** -** This revision: 2013 August 7 +** This revision: 2016 March 12 */ { @@ -4085,7 +4192,7 @@ viv(j, 0, "eraGd2gce", "j", status); - vvd(xyz[0], -5598999.6665116328, 1e-7, "eraGd2gce", "0", status); - vvd(xyz[1], 233011.63514630572, 1e-7, "eraGd2gce", "1", status); - vvd(xyz[2], -3040909.0517314132, 1e-7, "eraGd2gce", "2", status); + vvd(xyz[0], -5598999.6665116328, 1e-7, "eraGd2gce", "1", status); + vvd(xyz[1], 233011.6351463057189, 1e-7, "eraGd2gce", "2", status); + vvd(xyz[2], -3040909.0517314132, 1e-7, "eraGd2gce", "3", status); } @@ -4663,4 +4770,260 @@ vvd(p1[2], -0.2167355419322321302, 1e-12, "eraLdsun", "3", status); + +} + +static void t_lteceq(int *status) +/* +** - - - - - - - - - +** t _ l t e c e q +** - - - - - - - - - +** +** Test eraLteceq function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: eraLteceq, vvd +** +** This revision: 2016 March 12 +*/ +{ + double epj, dl, db, dr, dd; + + + epj = 2500.0; + dl = 1.5; + db = 0.6; + + eraLteceq(epj, dl, db, &dr, &dd); + + vvd(dr, 1.275156021861921167, 1e-14, "eraLteceq", "dr", status); + vvd(dd, 0.9966573543519204791, 1e-14, "eraLteceq", "dd", status); + +} + +static void t_ltecm(int *status) +/* +** - - - - - - - - +** t _ l t e c m +** - - - - - - - - +** +** Test eraLtecm function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: eraLtecm, vvd +** +** This revision: 2016 March 12 +*/ +{ + double epj, rm[3][3]; + + + epj = -3000.0; + + eraLtecm(epj, rm); + + vvd(rm[0][0], 0.3564105644859788825, 1e-14, + "eraLtecm", "rm11", status); + vvd(rm[0][1], 0.8530575738617682284, 1e-14, + "eraLtecm", "rm12", status); + vvd(rm[0][2], 0.3811355207795060435, 1e-14, + "eraLtecm", "rm13", status); + vvd(rm[1][0], -0.9343283469640709942, 1e-14, + "eraLtecm", "rm21", status); + vvd(rm[1][1], 0.3247830597681745976, 1e-14, + "eraLtecm", "rm22", status); + vvd(rm[1][2], 0.1467872751535940865, 1e-14, + "eraLtecm", "rm23", status); + vvd(rm[2][0], 0.1431636191201167793e-2, 1e-14, + "eraLtecm", "rm31", status); + vvd(rm[2][1], -0.4084222566960599342, 1e-14, + "eraLtecm", "rm32", status); + vvd(rm[2][2], 0.9127919865189030899, 1e-14, + "eraLtecm", "rm33", status); + +} + +static void t_lteqec(int *status) +/* +** - - - - - - - - - +** t _ l t e q e c +** - - - - - - - - - +** +** Test eraLteqec function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: eraLteqec, vvd +** +** This revision: 2016 March 12 +*/ +{ + double epj, dr, dd, dl, db; + + + epj = -1500.0; + dr = 1.234; + dd = 0.987; + + eraLteqec(epj, dr, dd, &dl, &db); + + vvd(dl, 0.5039483649047114859, 1e-14, "eraLteqec", "dl", status); + vvd(db, 0.5848534459726224882, 1e-14, "eraLteqec", "db", status); + +} + +static void t_ltp(int *status) +/* +** - - - - - - +** t _ l t p +** - - - - - - +** +** Test eraLtp function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: eraLtp, vvd +** +** This revision: 2016 March 12 +*/ +{ + double epj, rp[3][3]; + + + epj = 1666.666; + + eraLtp(epj, rp); + + vvd(rp[0][0], 0.9967044141159213819, 1e-14, + "eraLtp", "rp11", status); + vvd(rp[0][1], 0.7437801893193210840e-1, 1e-14, + "eraLtp", "rp12", status); + vvd(rp[0][2], 0.3237624409345603401e-1, 1e-14, + "eraLtp", "rp13", status); + vvd(rp[1][0], -0.7437802731819618167e-1, 1e-14, + "eraLtp", "rp21", status); + vvd(rp[1][1], 0.9972293894454533070, 1e-14, + "eraLtp", "rp22", status); + vvd(rp[1][2], -0.1205768842723593346e-2, 1e-14, + "eraLtp", "rp23", status); + vvd(rp[2][0], -0.3237622482766575399e-1, 1e-14, + "eraLtp", "rp31", status); + vvd(rp[2][1], -0.1206286039697609008e-2, 1e-14, + "eraLtp", "rp32", status); + vvd(rp[2][2], 0.9994750246704010914, 1e-14, + "eraLtp", "rp33", status); + +} + +static void t_ltpb(int *status) +/* +** - - - - - - - +** t _ l t p b +** - - - - - - - +** +** Test eraLtpb function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: eraLtpb, vvd +** +** This revision: 2016 March 12 +*/ +{ + double epj, rpb[3][3]; + + + epj = 1666.666; + + eraLtpb(epj, rpb); + + vvd(rpb[0][0], 0.9967044167723271851, 1e-14, + "eraLtpb", "rpb11", status); + vvd(rpb[0][1], 0.7437794731203340345e-1, 1e-14, + "eraLtpb", "rpb12", status); + vvd(rpb[0][2], 0.3237632684841625547e-1, 1e-14, + "eraLtpb", "rpb13", status); + vvd(rpb[1][0], -0.7437795663437177152e-1, 1e-14, + "eraLtpb", "rpb21", status); + vvd(rpb[1][1], 0.9972293947500013666, 1e-14, + "eraLtpb", "rpb22", status); + vvd(rpb[1][2], -0.1205741865911243235e-2, 1e-14, + "eraLtpb", "rpb23", status); + vvd(rpb[2][0], -0.3237630543224664992e-1, 1e-14, + "eraLtpb", "rpb31", status); + vvd(rpb[2][1], -0.1206316791076485295e-2, 1e-14, + "eraLtpb", "rpb32", status); + vvd(rpb[2][2], 0.9994750220222438819, 1e-14, + "eraLtpb", "rpb33", status); + +} + +static void t_ltpecl(int *status) +/* +** - - - - - - - - - +** t _ l t p e c l +** - - - - - - - - - +** +** Test eraLtpecl function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: eraLtpecl, vvd +** +** This revision: 2016 March 12 +*/ +{ + double epj, vec[3]; + + + epj = -1500.0; + + eraLtpecl(epj, vec); + + vvd(vec[0], 0.4768625676477096525e-3, 1e-14, + "eraLtpecl", "vec1", status); + vvd(vec[1], -0.4052259533091875112, 1e-14, + "eraLtpecl", "vec2", status); + vvd(vec[2], 0.9142164401096448012, 1e-14, + "eraLtpecl", "vec3", status); + +} + +static void t_ltpequ(int *status) +/* +** - - - - - - - - - +** t _ l t p e q u +** - - - - - - - - - +** +** Test eraLtpequ function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: eraLtpequ, vvd +** +** This revision: 2016 March 12 +*/ +{ + double epj, veq[3]; + + + epj = -2500.0; + + eraLtpequ(epj, veq); + + vvd(veq[0], -0.3586652560237326659, 1e-14, + "eraLtpequ", "veq1", status); + vvd(veq[1], -0.1996978910771128475, 1e-14, + "eraLtpequ", "veq2", status); + vvd(veq[2], 0.9118552442250819624, 1e-14, + "eraLtpequ", "veq3", status); } @@ -9060,5 +9423,5 @@ ** - - - - - ** -** This revision: 2013 October 3 +** This revision: 2016 March 12 */ { @@ -9134,4 +9497,6 @@ t_dtdb(&status); t_dtf2d(&status); + t_eceq06(&status); + t_ecm06(&status); t_ee00(&status); t_ee00a(&status); @@ -9147,4 +9512,5 @@ t_epj2jd(&status); t_epv00(&status); + t_eqec06(&status); t_eqeq94(&status); t_era00(&status); @@ -9190,4 +9556,11 @@ t_ldn(&status); t_ldsun(&status); + t_lteceq(&status); + t_ltecm(&status); + t_lteqec(&status); + t_ltp(&status); + t_ltpb(&status); + t_ltpecl(&status); + t_ltpequ(&status); t_num00a(&status); t_num00b(&status); @@ -9309,5 +9682,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/taitt.c =================================================================== --- /trunk/FACT++/erfa/src/taitt.c (revision 18710) +++ /trunk/FACT++/erfa/src/taitt.c (revision 18711) @@ -34,5 +34,5 @@ ** P. Kenneth Seidelmann (ed), University Science Books (1992) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -41,4 +41,5 @@ /* TT minus TAI (days). */ static const double dtat = ERFA_TTMTAI/ERFA_DAYSEC; + /* Result, safeguarding precision. */ @@ -58,5 +59,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/taiut1.c =================================================================== --- /trunk/FACT++/erfa/src/taiut1.c (revision 18710) +++ /trunk/FACT++/erfa/src/taiut1.c (revision 18711) @@ -36,9 +36,10 @@ ** P. Kenneth Seidelmann (ed), University Science Books (1992) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double dtad; + /* Result, safeguarding precision. */ @@ -59,5 +60,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/taiutc.c =================================================================== --- /trunk/FACT++/erfa/src/taiutc.c (revision 18710) +++ /trunk/FACT++/erfa/src/taiutc.c (revision 18711) @@ -57,5 +57,5 @@ ** P. Kenneth Seidelmann (ed), University Science Books (1992) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -64,4 +64,5 @@ int i, j; double a1, a2, u1, u2, g1, g2; + /* Put the two parts of the TAI into big-first order. */ @@ -107,5 +108,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/tcbtdb.c =================================================================== --- /trunk/FACT++/erfa/src/tcbtdb.c (revision 18710) +++ /trunk/FACT++/erfa/src/tcbtdb.c (revision 18711) @@ -48,5 +48,5 @@ ** IAU 2006 Resolution B3 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -61,4 +61,5 @@ double d; + /* Result, safeguarding precision. */ @@ -80,5 +81,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/tcgtt.c =================================================================== --- /trunk/FACT++/erfa/src/tcgtt.c (revision 18710) +++ /trunk/FACT++/erfa/src/tcgtt.c (revision 18711) @@ -33,5 +33,5 @@ ** IAU 2000 Resolution B1.9 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -40,4 +40,5 @@ /* 1977 Jan 1 00:00:32.184 TT, as MJD */ static const double t77t = ERFA_DJM77 + ERFA_TTMTAI/ERFA_DAYSEC; + /* Result, safeguarding precision. */ @@ -57,5 +58,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/tdbtcb.c =================================================================== --- /trunk/FACT++/erfa/src/tdbtcb.c (revision 18710) +++ /trunk/FACT++/erfa/src/tdbtcb.c (revision 18711) @@ -48,5 +48,5 @@ ** IAU 2006 Resolution B3 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -64,4 +64,5 @@ double d, f; + /* Result, preserving date format but safeguarding precision. */ @@ -85,5 +86,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/tdbtt.c =================================================================== --- /trunk/FACT++/erfa/src/tdbtt.c (revision 18710) +++ /trunk/FACT++/erfa/src/tdbtt.c (revision 18711) @@ -46,9 +46,10 @@ ** IAU 2006 Resolution 3 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double dtrd; + /* Result, safeguarding precision. */ @@ -69,5 +70,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/tf2a.c =================================================================== --- /trunk/FACT++/erfa/src/tf2a.c (revision 18710) +++ /trunk/FACT++/erfa/src/tf2a.c (revision 18711) @@ -35,5 +35,5 @@ ** first, the smallest taking precedence. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -56,5 +56,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/tf2d.c =================================================================== --- /trunk/FACT++/erfa/src/tf2d.c (revision 18710) +++ /trunk/FACT++/erfa/src/tf2d.c (revision 18711) @@ -35,5 +35,5 @@ ** first, the smallest taking precedence. ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -56,5 +56,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/tr.c =================================================================== --- /trunk/FACT++/erfa/src/tr.c (revision 18710) +++ /trunk/FACT++/erfa/src/tr.c (revision 18711) @@ -21,5 +21,5 @@ ** eraCr copy r-matrix ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -27,4 +27,5 @@ double wm[3][3]; int i, j; + for (i = 0; i < 3; i++) { @@ -41,5 +42,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/trxp.c =================================================================== --- /trunk/FACT++/erfa/src/trxp.c (revision 18710) +++ /trunk/FACT++/erfa/src/trxp.c (revision 18711) @@ -23,9 +23,10 @@ ** eraRxp product of r-matrix and p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double tr[3][3]; + /* Transpose of matrix r. */ @@ -41,5 +42,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/trxpv.c =================================================================== --- /trunk/FACT++/erfa/src/trxpv.c (revision 18710) +++ /trunk/FACT++/erfa/src/trxpv.c (revision 18711) @@ -23,9 +23,10 @@ ** eraRxpv product of r-matrix and pv-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double tr[3][3]; + /* Transpose of matrix r. */ @@ -41,5 +42,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/tttai.c =================================================================== --- /trunk/FACT++/erfa/src/tttai.c (revision 18710) +++ /trunk/FACT++/erfa/src/tttai.c (revision 18711) @@ -34,5 +34,5 @@ ** P. Kenneth Seidelmann (ed), University Science Books (1992) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -41,4 +41,5 @@ /* TT minus TAI (days). */ static const double dtat = ERFA_TTMTAI/ERFA_DAYSEC; + /* Result, safeguarding precision. */ @@ -58,5 +59,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/tttcg.c =================================================================== --- /trunk/FACT++/erfa/src/tttcg.c (revision 18710) +++ /trunk/FACT++/erfa/src/tttcg.c (revision 18711) @@ -33,5 +33,5 @@ ** IAU 2000 Resolution B1.9 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -43,4 +43,5 @@ /* TT to TCG rate */ static const double elgg = ERFA_ELG/(1.0-ERFA_ELG); + /* Result, safeguarding precision. */ @@ -60,5 +61,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/tttdb.c =================================================================== --- /trunk/FACT++/erfa/src/tttdb.c (revision 18710) +++ /trunk/FACT++/erfa/src/tttdb.c (revision 18711) @@ -46,9 +46,10 @@ ** IAU 2006 Resolution 3 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double dtrd; + /* Result, safeguarding precision. */ @@ -69,5 +70,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ttut1.c =================================================================== --- /trunk/FACT++/erfa/src/ttut1.c (revision 18710) +++ /trunk/FACT++/erfa/src/ttut1.c (revision 18711) @@ -35,9 +35,10 @@ ** P. Kenneth Seidelmann (ed), University Science Books (1992) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double dtd; + /* Result, safeguarding precision. */ @@ -58,5 +59,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ut1tai.c =================================================================== --- /trunk/FACT++/erfa/src/ut1tai.c (revision 18710) +++ /trunk/FACT++/erfa/src/ut1tai.c (revision 18711) @@ -36,9 +36,10 @@ ** P. Kenneth Seidelmann (ed), University Science Books (1992) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double dtad; + /* Result, safeguarding precision. */ @@ -59,5 +60,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ut1tt.c =================================================================== --- /trunk/FACT++/erfa/src/ut1tt.c (revision 18710) +++ /trunk/FACT++/erfa/src/ut1tt.c (revision 18711) @@ -35,9 +35,10 @@ ** P. Kenneth Seidelmann (ed), University Science Books (1992) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double dtd; + /* Result, safeguarding precision. */ @@ -58,5 +59,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/ut1utc.c =================================================================== --- /trunk/FACT++/erfa/src/ut1utc.c (revision 18710) +++ /trunk/FACT++/erfa/src/ut1utc.c (revision 18711) @@ -63,5 +63,5 @@ ** P. Kenneth Seidelmann (ed), University Science Books (1992) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -70,4 +70,5 @@ int i, iy, im, id, js; double duts, u1, u2, d1, dats1, d2, fd, dats2, ddats, us1, us2, du; + /* UT1-UTC in seconds. */ @@ -141,5 +142,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/utctai.c =================================================================== --- /trunk/FACT++/erfa/src/utctai.c (revision 18710) +++ /trunk/FACT++/erfa/src/utctai.c (revision 18711) @@ -59,5 +59,5 @@ ** P. Kenneth Seidelmann (ed), University Science Books (1992) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -66,4 +66,5 @@ int iy, im, id, j, iyt, imt, idt; double u1, u2, fd, dat0, dat12, w, dat24, dlod, dleap, z1, z2, a2; + /* Put the two parts of the UTC into big-first order. */ @@ -125,5 +126,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/utcut1.c =================================================================== --- /trunk/FACT++/erfa/src/utcut1.c (revision 18710) +++ /trunk/FACT++/erfa/src/utcut1.c (revision 18711) @@ -64,5 +64,5 @@ ** eraTaiut1 TAI to UT1 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -70,4 +70,5 @@ int iy, im, id, js, jw; double w, dat, dta, tai1, tai2; + /* Look up TAI-UTC. */ @@ -95,5 +96,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/xy06.c =================================================================== --- /trunk/FACT++/erfa/src/xy06.c (revision 18710) +++ /trunk/FACT++/erfa/src/xy06.c (revision 18711) @@ -86,5 +86,5 @@ ** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -2707,5 +2707,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/xys00a.c =================================================================== --- /trunk/FACT++/erfa/src/xys00a.c (revision 18710) +++ /trunk/FACT++/erfa/src/xys00a.c (revision 18711) @@ -60,9 +60,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rbpn[3][3]; + /* Form the bias-precession-nutation matrix, IAU 2000A. */ @@ -81,5 +82,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/xys00b.c =================================================================== --- /trunk/FACT++/erfa/src/xys00b.c (revision 18710) +++ /trunk/FACT++/erfa/src/xys00b.c (revision 18711) @@ -60,9 +60,10 @@ ** IERS Technical Note No. 32, BKG (2004) ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rbpn[3][3]; + /* Form the bias-precession-nutation matrix, IAU 2000A. */ @@ -81,5 +82,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/xys06a.c =================================================================== --- /trunk/FACT++/erfa/src/xys06a.c (revision 18710) +++ /trunk/FACT++/erfa/src/xys06a.c (revision 18711) @@ -60,9 +60,10 @@ ** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ { double rbpn[3][3]; + /* Form the bias-precession-nutation matrix, IAU 2006/2000A. */ @@ -81,5 +82,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/zp.c =================================================================== --- /trunk/FACT++/erfa/src/zp.c (revision 18710) +++ /trunk/FACT++/erfa/src/zp.c (revision 18711) @@ -12,5 +12,5 @@ ** p double[3] p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -26,5 +26,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/zpv.c =================================================================== --- /trunk/FACT++/erfa/src/zpv.c (revision 18710) +++ /trunk/FACT++/erfa/src/zpv.c (revision 18711) @@ -15,5 +15,5 @@ ** eraZp zero p-vector ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -28,5 +28,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. ** Index: /trunk/FACT++/erfa/src/zr.c =================================================================== --- /trunk/FACT++/erfa/src/zr.c (revision 18710) +++ /trunk/FACT++/erfa/src/zr.c (revision 18711) @@ -12,5 +12,5 @@ ** r double[3][3] r-matrix ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** Derived, with permission, from the SOFA library. See notes at end of file. */ @@ -32,5 +32,5 @@ ** ** -** Copyright (C) 2013-2015, NumFOCUS Foundation. +** Copyright (C) 2013-2016, NumFOCUS Foundation. ** All rights reserved. **