Changeset 18711 for trunk/FACT++/erfa


Ignore:
Timestamp:
01/06/17 11:48:17 (8 years ago)
Author:
tbretz
Message:
Updated to ERFA 1.3.0 (no relevant code change except the leap second at the beginning of 2017)
Location:
trunk/FACT++/erfa
Files:
228 edited

Legend:

Unmodified
Added
Removed
  • trunk/FACT++/erfa/README.rst

    r18348 r18711  
    1414---------------------
    1515
    16 This version of ERFA (v1.2.0) is based on SOFA version "20150209_a", with the
     16This version of ERFA (v1.3.0) is based on SOFA version "20160503_a", with the
    1717differences outlined below.
    1818
     
    3535addressing localized bugs or similar smaller issues:
    3636
    37 * Currently no bugfixe changes relative to SOFA.
     37* ERFA 1.3.0 and SOFA "20160503_a"
     38
     39  + There are no differences between ERFA 1.3.0 and SOFA "20160503_a".
     40
     41* ERFA 1.2.0 and SOFA "20150209_a"
     42
     43  + Typos have been corrected in the documentation of atco13 and atio13 (see https://github.com/liberfa/erfa/issues/29).
     44
     45Note that issues identified in ERFA should generally also be reported upstream to SOFA at sofa@ukho.gov.uk.
    3846
    3947Building and installing ERFA
  • trunk/FACT++/erfa/RELEASE.rst

    r18348 r18711  
    1212  repository`_ in its own directory.  That will create a directory called `erfa`
    1313  inside the `erfa-fetch` directory, and   you should copy its contents to the
    14   `src` directory of `erfa`.  Use ``git diff`` in `erfa` to inspect the changes,
    15   and then commit and push them to github.
     14  `src` directory of `erfa`.  Add any new C files or header files added by SOFA
     15  to ``src/Makefile.am``, as appropriate. Use ``git diff`` in `erfa` to inspect
     16  the changes, and then commit and push them to github.
    1617
    1718* Update the version number in the `AC_INIT` macro of `configure.ac` to
     
    4142  will be placed in the working directory.
    4243
    43 * 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``). 
     44* Tag the current commit with the version number.  A signed tag is preferred if
     45  you have an a signing key (e.g., do ``git tag -s v0.0.1``). 
    4446
    4547* Push up your changes and the new tag to github:
     
    5254  made.
    5355
    54 * Click on the "Draft release notes or downloads" button (or it might be "Edit release").  Put the version number as
    55   the title (e.g., ``v0.0.1``)and for the description put
    56   ``See `README.rst` for release notes.``
     56* Click on the "Draft release notes or downloads" button (or it might be
     57  "Edit release").  Put the version number as the title (e.g., ``v0.0.1``)and
     58  for the description put ``See `README.rst` for release notes.``
    5759
    5860* Upload the tarball you created (e.g., `erfa-0.0.1.tar.gz`) by dropping it
     
    128130  * relevant bug reports in the github project page
    129131
    130 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
    131 the mentioned order.
     132The shared library version info is stored in three numbers called *current*,
     133*revision* and *age*. These numbers appear in the macro `ERFA_LIB_VERSION_INFO`
     134in the mentioned order.
    132135
    133136If the version is given in the form CURRENT,REVISION,AGE then
  • trunk/FACT++/erfa/configure.ac

    r18348 r18711  
    33AC_PREREQ([2.68])
    44## Follow the instructions in RELEASE.rst to change package version
    5 AC_INIT([erfa],[1.2.0])
     5AC_INIT([erfa],[1.3.0])
    66AC_CONFIG_SRCDIR([src/erfa.h])
    77AC_CONFIG_HEADER([config.h])
     
    1818## Revision is the version of the current interface
    1919## Follow the instructions in RELEASE.rst to change the version info
    20 ERFA_LIB_VERSION_INFO(3, 0, 2)
     20ERFA_LIB_VERSION_INFO(4, 0, 3)
    2121
    2222# Checks for libraries.
  • trunk/FACT++/erfa/src/Makefile.am

    r18348 r18711  
    77c2ixy.c c2ixys.c c2s.c c2t00a.c c2t00b.c c2t06a.c c2tcio.c c2teqx.c \
    88c2tpe.c c2txy.c cal2jd.c cp.c cpv.c cr.c d2dtf.c d2tf.c dat.c dtdb.c \
    9 dtf2d.c ee00a.c ee00b.c ee00.c ee06a.c eect00.c eform.c eo06a.c \
    10 eors.c epb2jd.c epb.c epj2jd.c epj.c epv00.c eqeq94.c era00.c \
    11 fad03.c fae03.c faf03.c faju03.c fal03.c falp03.c fama03.c \
     9dtf2d.c eceq06.c ee00a.c ee00.c eect00.c eo06a.c epb2jd.c epj2jd.c epv00.c \
     10eqeq94.c ecm06.c ee00b.c ee06a.c eform.c eors.c epb.c epj.c eqec06.c \
     11era00.c fad03.c fae03.c faf03.c faju03.c fal03.c falp03.c fama03.c \
    1212fame03.c fane03.c faom03.c fapa03.c fasa03.c faur03.c fave03.c \
    1313fk52h.c fk5hip.c fk5hz.c fw2m.c fw2xy.c g2icrs.c gc2gd.c gc2gde.c gd2gc.c \
    1414gd2gce.c gmst00.c gmst06.c gmst82.c gst00a.c gst00b.c gst06a.c \
    1515gst06.c gst94.c h2fk5.c hfk5z.c icrs2g.c ir.c jd2cal.c jdcalf.c ld.c \
    16 ldn.c ldsun.c num00a.c num00b.c num06a.c numat.c nut00a.c nut00b.c \
     16ldn.c ldsun.c lteceq.c ltecm.c lteqec.c ltpb.c ltp.c ltpecl.c ltpequ.c \
     17num00a.c num00b.c num06a.c numat.c nut00a.c nut00b.c \
    1718nut06a.c nut80.c nutm80.c obl06.c obl80.c p06e.c p2pv.c p2s.c pap.c \
    1819pas.c pb06.c pdp.c pfw06.c plan94.c pmat00.c pmat06.c pmat76.c \
  • trunk/FACT++/erfa/src/a2af.c

    r18348 r18711  
    5252**     by testing for idmsf[0]=360 and setting idmsf[0-3] to zero.
    5353**
    54 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     54**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5555**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5656*/
     
    5858/* Hours to degrees * radians to turns */
    5959   const double F = 15.0 / ERFA_D2PI;
     60
    6061
    6162/* Scale then use days to h,m,s function. */
     
    6869** 
    6970** 
    70 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     71**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7172**  All rights reserved.
    7273** 
  • trunk/FACT++/erfa/src/a2tf.c

    r18348 r18711  
    5252**     by testing for ihmsf[0]=24 and setting ihmsf[0-3] to zero.
    5353**
    54 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     54**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5555**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5656*/
     
    6565** 
    6666** 
    67 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     67**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6868**  All rights reserved.
    6969** 
  • trunk/FACT++/erfa/src/ab.c

    r18348 r18711  
    4949**     eraPdp       scalar product of two p-vectors
    5050**
    51 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     51**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5252**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5353*/
     
    5555   int i;
    5656   double pdv, w1, w2, r2, w, p[3], r;
     57
    5758
    5859   pdv = eraPdp(pnat, v);
     
    7677** 
    7778** 
    78 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     79**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7980**  All rights reserved.
    8081** 
  • trunk/FACT++/erfa/src/af2a.c

    r18348 r18711  
    3535**      first, the smallest taking precedence.
    3636**
    37 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     37**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3838**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3939*/
     
    5656** 
    5757** 
    58 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     58**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5959**  All rights reserved.
    6060** 
  • trunk/FACT++/erfa/src/anp.c

    r18348 r18711  
    1515**              double     angle in range 0-2pi
    1616**
    17 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     17**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    1818**  Derived, with permission, from the SOFA library.  See notes at end of file.
    1919*/
    2020{
    2121   double w;
     22
    2223
    2324   w = fmod(a, ERFA_D2PI);
     
    3031** 
    3132** 
    32 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     33**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3334**  All rights reserved.
    3435** 
  • trunk/FACT++/erfa/src/anpm.c

    r18348 r18711  
    1515**              double     angle in range +/-pi
    1616**
    17 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     17**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    1818**  Derived, with permission, from the SOFA library.  See notes at end of file.
    1919*/
    2020{
    2121   double w;
     22
    2223
    2324   w = fmod(a, ERFA_D2PI);
     
    3031** 
    3132** 
    32 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     33**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3334**  All rights reserved.
    3435** 
  • trunk/FACT++/erfa/src/apcg.c

    r18348 r18711  
    103103**     eraApcs      astrometry parameters, ICRS-GCRS, space observer
    104104**
    105 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     105**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    106106**  Derived, with permission, from the SOFA library.  See notes at end of file.
    107107*/
     
    110110   double pv[2][3] = { { 0.0, 0.0, 0.0 },
    111111                       { 0.0, 0.0, 0.0 } };
     112
    112113
    113114/* Compute the star-independent astrometry parameters. */
     
    120121** 
    121122** 
    122 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     123**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    123124**  All rights reserved.
    124125** 
  • trunk/FACT++/erfa/src/apcg13.c

    r18348 r18711  
    105105**     eraApcg      astrometry parameters, ICRS-GCRS, geocenter
    106106**
    107 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     107**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    108108**  Derived, with permission, from the SOFA library.  See notes at end of file.
    109109*/
    110110{
    111111   double ehpv[2][3], ebpv[2][3];
     112
    112113
    113114/* Earth barycentric & heliocentric position/velocity (au, au/d). */
     
    123124** 
    124125** 
    125 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     126**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    126127**  All rights reserved.
    127128** 
  • trunk/FACT++/erfa/src/apci.c

    r18348 r18711  
    113113**     eraC2ixys    celestial-to-intermediate matrix, given X,Y and s
    114114**
    115 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     115**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    116116**  Derived, with permission, from the SOFA library.  See notes at end of file.
    117117*/
     
    130130** 
    131131** 
    132 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     132**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    133133**  All rights reserved.
    134134** 
  • trunk/FACT++/erfa/src/apci13.c

    r18348 r18711  
    111111**     eraEors      equation of the origins, given NPB matrix and s
    112112**
    113 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     113**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    114114**  Derived, with permission, from the SOFA library.  See notes at end of file.
    115115*/
     
    117117   double ehpv[2][3], ebpv[2][3], r[3][3], x, y, s;
    118118
     119
    119120/* Earth barycentric & heliocentric position/velocity (au, au/d). */
    120121   (void) eraEpv00(date1, date2, ehpv, ebpv);
     
    141142** 
    142143** 
    143 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     144**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    144145**  All rights reserved.
    145146** 
  • trunk/FACT++/erfa/src/apco.c

    r18348 r18711  
    153153**     eraCr        copy r-matrix
    154154**
    155 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     155**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    156156**  Derived, with permission, from the SOFA library.  See notes at end of file.
    157157*/
    158158{
    159159   double sl, cl, r[3][3], pvc[2][3], pv[2][3];
     160
    160161
    161162/* Longitude with adjustment for TIO locator s'. */
     
    203204** 
    204205** 
    205 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     206**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    206207**  All rights reserved.
    207208** 
  • trunk/FACT++/erfa/src/apco13.c

    r18348 r18711  
    174174**     eraEors      equation of the origins, given NPB matrix and s
    175175**
    176 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     176**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    177177**  Derived, with permission, from the SOFA library.  See notes at end of file.
    178178*/
     
    182182          r[3][3], x, y, s, theta, sp, refa, refb;
    183183
     184
    184185/* UTC to other time scales. */
    185186   j = eraUtctai(utc1, utc2, &tai1, &tai2);
     
    226227** 
    227228** 
    228 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     229**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    229230**  All rights reserved.
    230231** 
  • trunk/FACT++/erfa/src/apcs.c

    r18348 r18711  
    123123**     eraIr        initialize r-matrix to identity
    124124**
    125 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     125**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    126126**  Derived, with permission, from the SOFA library.  See notes at end of file.
    127127*/
     
    135135   int i;
    136136   double dp, dv, pb[3], vb[3], ph[3], v2, w;
     137
    137138
    138139/* Time since reference epoch, years (for proper motion calculation). */
     
    172173** 
    173174** 
    174 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     175**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    175176**  All rights reserved.
    176177** 
  • trunk/FACT++/erfa/src/apcs13.c

    r18348 r18711  
    112112**     eraApcs      astrometry parameters, ICRS-GCRS, space observer
    113113**
    114 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     114**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    115115**  Derived, with permission, from the SOFA library.  See notes at end of file.
    116116*/
    117117{
    118118   double ehpv[2][3], ebpv[2][3];
     119
    119120
    120121/* Earth barycentric & heliocentric position/velocity (au, au/d). */
     
    130131** 
    131132** 
    132 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     133**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    133134**  All rights reserved.
    134135** 
  • trunk/FACT++/erfa/src/aper.c

    r18348 r18711  
    9090**     transformation), and atmospheric refraction.
    9191**
    92 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     92**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9393**  Derived, with permission, from the SOFA library.  See notes at end of file.
    9494*/
     
    102102** 
    103103** 
    104 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     104**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    105105**  All rights reserved.
    106106** 
  • trunk/FACT++/erfa/src/aper13.c

    r18348 r18711  
    109109**     eraEra00     Earth rotation angle, IAU 2000
    110110**
    111 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     111**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    112112**  Derived, with permission, from the SOFA library.  See notes at end of file.
    113113*/
     
    121121** 
    122122** 
    123 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     123**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    124124**  All rights reserved.
    125125** 
  • trunk/FACT++/erfa/src/apio.c

    r18348 r18711  
    114114**     eraAper      astrometry parameters: update ERA
    115115**
    116 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     116**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    117117**  Derived, with permission, from the SOFA library.  See notes at end of file.
    118118*/
    119119{
    120120   double sl, cl, pv[2][3];
     121
    121122
    122123/* Longitude with adjustment for TIO locator s'. */
     
    152153** 
    153154** 
    154 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     155**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    155156**  All rights reserved.
    156157** 
  • trunk/FACT++/erfa/src/apio13.c

    r18348 r18711  
    163163**     eraApio      astrometry parameters, CIRS-observed
    164164**
    165 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     165**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    166166**  Derived, with permission, from the SOFA library.  See notes at end of file.
    167167*/
     
    169169   int j;
    170170   double tai1, tai2, tt1, tt2, ut11, ut12, sp, theta, refa, refb;
     171
    171172
    172173/* UTC to other time scales. */
     
    198199** 
    199200** 
    200 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     201**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    201202**  All rights reserved.
    202203** 
  • trunk/FACT++/erfa/src/atci13.c

    r18348 r18711  
    7979**     eraAtciq     quick ICRS to CIRS
    8080**
    81 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     81**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8282**  Derived, with permission, from the SOFA library.  See notes at end of file.
    8383*/
     
    8585/* Star-independent astrometry parameters */
    8686   eraASTROM astrom;
     87
    8788
    8889/* The transformation parameters. */
     
    9899** 
    99100** 
    100 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     101**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    101102**  All rights reserved.
    102103** 
  • trunk/FACT++/erfa/src/atciq.c

    r18348 r18711  
    6565**     eraAnp       normalize angle into range 0 to 2pi
    6666**
    67 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     67**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6868**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6969*/
    7070{
    7171   double pco[3], pnat[3], ppr[3], pi[3], w;
     72
    7273
    7374/* Proper motion and parallax, giving BCRS coordinate direction. */
     
    9394** 
    9495** 
    95 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     96**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9697**  All rights reserved.
    9798** 
  • trunk/FACT++/erfa/src/atciqn.c

    r18348 r18711  
    1717**  star-independent parameters can be obtained by calling one of the
    1818**  functions eraApci[13], eraApcg[13], eraApco[13] or eraApcs[13].
     19**
    1920**
    2021**  If the only light-deflecting body to be taken into account is the
     
    101102**     eraAnp       normalize angle into range 0 to 2pi
    102103**
    103 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     104**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    104105**  Derived, with permission, from the SOFA library.  See notes at end of file.
    105106*/
    106107{
    107108   double pco[3], pnat[3], ppr[3], pi[3], w;
     109
    108110
    109111/* Proper motion and parallax, giving BCRS coordinate direction. */
     
    129131** 
    130132** 
    131 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     133**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    132134**  All rights reserved.
    133135** 
  • trunk/FACT++/erfa/src/atciqz.c

    r18348 r18711  
    6464**     eraAnp       normalize angle into range +/- pi
    6565**
    66 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     66**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6767**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6868*/
    6969{
    7070   double pco[3], pnat[3], ppr[3], pi[3], w;
     71
    7172
    7273/* BCRS coordinate direction (unit vector). */
     
    9293** 
    9394** 
    94 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     95**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9596**  All rights reserved.
    9697** 
  • trunk/FACT++/erfa/src/atco13.c

    r18348 r18711  
    150150**     eraApco13    astrometry parameters, ICRS-observed, 2013
    151151**     eraAtciq     quick ICRS to CIRS
    152 **     eraAtioq     quick ICRS to observed
    153 **
    154 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     152**     eraAtioq     quick CIRS to observed
     153**
     154**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    155155**  Derived, with permission, from the SOFA library.  See notes at end of file.
    156156*/
     
    160160   double ri, di;
    161161
     162
    162163/* Star-independent astrometry parameters. */
    163164   j = eraApco13(utc1, utc2, dut1, elong, phi, hm, xp, yp,
     
    182183** 
    183184** 
    184 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     185**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    185186**  All rights reserved.
    186187** 
  • trunk/FACT++/erfa/src/atic13.c

    r18348 r18711  
    7272**     eraAticq     quick CIRS to ICRS astrometric
    7373**
    74 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     74**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7575**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7676*/
     
    7878/* Star-independent astrometry parameters */
    7979   eraASTROM astrom;
     80
    8081
    8182/* Star-independent astrometry parameters. */
     
    9192** 
    9293** 
    93 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     94**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9495**  All rights reserved.
    9596** 
  • trunk/FACT++/erfa/src/aticq.c

    r18348 r18711  
    6060**     eraAnp       normalize angle into range +/- pi
    6161**
    62 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     62**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6363**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6464*/
     
    6767   double pi[3], ppr[3], pnat[3], pco[3], w, d[3], before[3], r2, r,
    6868          after[3];
     69
    6970
    7071/* CIRS RA,Dec to Cartesian. */
     
    138139** 
    139140** 
    140 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     141**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    141142**  All rights reserved.
    142143** 
  • trunk/FACT++/erfa/src/aticqn.c

    r18348 r18711  
    9898**     eraAnp       normalize angle into range +/- pi
    9999**
    100 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     100**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    101101**  Derived, with permission, from the SOFA library.  See notes at end of file.
    102102*/
     
    106106          after[3];
    107107
     108
    108109/* CIRS RA,Dec to Cartesian. */
    109110   eraS2c(ri, di, pi);
     
    176177** 
    177178** 
    178 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     179**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    179180**  All rights reserved.
    180181** 
  • trunk/FACT++/erfa/src/atio13.c

    r18348 r18711  
    133133**  Called:
    134134**     eraApio13    astrometry parameters, CIRS-observed, 2013
    135 **     eraAtioq     quick ICRS to observed
    136 **
    137 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     135**     eraAtioq     quick CIRS to observed
     136**
     137**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    138138**  Derived, with permission, from the SOFA library.  See notes at end of file.
    139139*/
     
    142142   eraASTROM astrom;
    143143
     144
    144145/* Star-independent astrometry parameters for CIRS->observed. */
    145146   j = eraApio13(utc1, utc2, dut1, elong, phi, hm, xp, yp,
     
    161162** 
    162163** 
    163 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     164**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    164165**  All rights reserved.
    165166** 
  • trunk/FACT++/erfa/src/atioq.c

    r18348 r18711  
    9696**     eraAnp       normalize angle into range 0 to 2pi
    9797**
    98 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     98**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9999**  Derived, with permission, from the SOFA library.  See notes at end of file.
    100100*/
     
    108108          xaeo, yaeo, zaeo, zdobs, hmobs, dcobs, raobs;
    109109
    110 /*--------------------------------------------------------------------*/
    111110
    112111/* CIRS RA,Dec to Cartesian -HA,Dec. */
     
    184183** 
    185184** 
    186 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     185**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    187186**  All rights reserved.
    188187** 
  • trunk/FACT++/erfa/src/atoc13.c

    r18348 r18711  
    142142**     eraAticq     quick CIRS to ICRS
    143143**
    144 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     144**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    145145**  Derived, with permission, from the SOFA library.  See notes at end of file.
    146146*/
     
    150150   double eo, ri, di;
    151151
     152
    152153/* Star-independent astrometry parameters. */
    153154   j = eraApco13(utc1, utc2, dut1, elong, phi, hm, xp, yp,
     
    172173** 
    173174** 
    174 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     175**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    175176**  All rights reserved.
    176177** 
  • trunk/FACT++/erfa/src/atoi13.c

    r18348 r18711  
    141141**     eraAtoiq     quick observed to CIRS
    142142**
    143 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     143**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    144144**  Derived, with permission, from the SOFA library.  See notes at end of file.
    145145*/
     
    148148   eraASTROM astrom;
    149149
     150
    150151/* Star-independent astrometry parameters for CIRS->observed. */
    151152   j = eraApio13(utc1, utc2, dut1, elong, phi, hm, xp, yp,
     
    167168** 
    168169** 
    169 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     170**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    170171**  All rights reserved.
    171172** 
  • trunk/FACT++/erfa/src/atoiq.c

    r18348 r18711  
    8989**     eraAnp       normalize angle into range 0 to 2pi
    9090**
    91 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     91**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9292**  Derived, with permission, from the SOFA library.  See notes at end of file.
    9393*/
     
    9999          f, xhd, yhd, zhd, xpl, ypl, w, hma;
    100100
     101
    101102/* Coordinate type. */
    102103   c = (int) type[0];
     
    199200** 
    200201** 
    201 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     202**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    202203**  All rights reserved.
    203204** 
  • trunk/FACT++/erfa/src/bi00.c

    r18348 r18711  
    4242**     from ftp://maia.usno.navy.mil/conv2000/chapter5/IAU2000A.
    4343**
    44 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     44**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4545**  Derived, with permission, from the SOFA library.  See notes at end of file.
    4646*/
     
    5252/* The ICRS RA of the J2000.0 equinox (Chapront et al., 2002) */
    5353   const double DRA0 = -0.0146 * ERFA_DAS2R;
     54
    5455
    5556/* Return the results (which are fixed). */
     
    6465** 
    6566** 
    66 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     67**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6768**  All rights reserved.
    6869** 
  • trunk/FACT++/erfa/src/bp00.c

    r18348 r18711  
    7171**          intermediate origin" (CIO) by IAU 2006 Resolution 2.
    7272**
    73 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     73**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7474**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7575*/
     
    8080   double t, dpsibi, depsbi, dra0, psia77, oma77, chia,
    8181          dpsipr, depspr, psia, oma, rbw[3][3];
     82
    8283
    8384/* Interval between fundamental epoch J2000.0 and current date (JC). */
     
    120121** 
    121122** 
    122 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     123**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    123124**  All rights reserved.
    124125** 
  • trunk/FACT++/erfa/src/bp06.c

    r18348 r18711  
    6565**     Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981
    6666**
    67 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     67**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6868**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6969*/
    7070{
    7171   double gamb, phib, psib, epsa, rbpw[3][3], rbt[3][3];
     72
    7273
    7374/* B matrix. */
     
    9192** 
    9293** 
    93 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     94**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9495**  All rights reserved.
    9596** 
  • trunk/FACT++/erfa/src/bpn2xy.c

    r18348 r18711  
    3535**          intermediate origin" (CIO) by IAU 2006 Resolution 2.
    3636**
    37 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     37**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3838**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3939*/
     
    4949** 
    5050** 
    51 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     51**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5252**  All rights reserved.
    5353** 
  • trunk/FACT++/erfa/src/c2i00a.c

    r18348 r18711  
    6969**     IERS Technical Note No. 32, BKG (2004)
    7070**
    71 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     71**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7272**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7373*/
    7474{
    7575   double rbpn[3][3];
     76
    7677
    7778/* Obtain the celestial-to-true matrix (IAU 2000A). */
     
    8788** 
    8889** 
    89 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     90**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9091**  All rights reserved.
    9192** 
  • trunk/FACT++/erfa/src/c2i00b.c

    r18348 r18711  
    6969**     IERS Technical Note No. 32, BKG (2004)
    7070**
    71 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     71**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7272**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7373*/
    7474{
    7575   double rbpn[3][3];
     76
    7677
    7778/* Obtain the celestial-to-true matrix (IAU 2000B). */
     
    8788** 
    8889** 
    89 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     90**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9091**  All rights reserved.
    9192** 
  • trunk/FACT++/erfa/src/c2i06a.c

    r18348 r18711  
    6060**     IERS Technical Note No. 32, BKG
    6161**
    62 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     62**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6363**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6464*/
    6565{
    6666   double rbpn[3][3], x, y, s;
     67
    6768
    6869/* Obtain the celestial-to-true matrix (IAU 2006/2000A). */
     
    8485** 
    8586** 
    86 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     87**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8788**  All rights reserved.
    8889** 
  • trunk/FACT++/erfa/src/c2ibpn.c

    r18348 r18711  
    7272**     IERS Technical Note No. 32, BKG (2004)
    7373**
    74 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     74**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7575**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7676*/
    7777{
    7878   double x, y;
     79
    7980
    8081/* Extract the X,Y coordinates. */
     
    9091** 
    9192** 
    92 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     93**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9394**  All rights reserved.
    9495** 
  • trunk/FACT++/erfa/src/c2ixy.c

    r18348 r18711  
    6666**     IERS Technical Note No. 32, BKG (2004)
    6767**
    68 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     68**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6969**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7070*/
     
    8080** 
    8181** 
    82 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     82**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8383**  All rights reserved.
    8484** 
  • trunk/FACT++/erfa/src/c2ixys.c

    r18348 r18711  
    4848**     IERS Technical Note No. 32, BKG (2004)
    4949**
    50 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     50**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5151**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5252*/
     
    7272** 
    7373** 
    74 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     74**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7575**  All rights reserved.
    7676** 
  • trunk/FACT++/erfa/src/c2s.c

    r18348 r18711  
    2424**  3) At either pole, zero theta is returned.
    2525**
    26 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     26**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2727**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2828*/
    2929{
    3030   double x, y, z, d2;
     31
    3132
    3233   x  = p[0];
     
    4445** 
    4546** 
    46 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     47**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4748**  All rights reserved.
    4849** 
  • trunk/FACT++/erfa/src/c2t00a.c

    r18348 r18711  
    7575**     IERS Technical Note No. 32, BKG (2004)
    7676**
    77 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     77**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7878**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7979*/
    8080{
    8181   double rc2i[3][3], era, sp, rpom[3][3];
     82
    8283
    8384/* Form the celestial-to-intermediate matrix for this TT (IAU 2000A). */
     
    102103** 
    103104** 
    104 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     105**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    105106**  All rights reserved.
    106107** 
  • trunk/FACT++/erfa/src/c2t00b.c

    r18348 r18711  
    7474**     IERS Technical Note No. 32, BKG (2004)
    7575**
    76 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     76**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7777**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7878*/
    7979{
    8080   double rc2i[3][3], era, rpom[3][3];
     81
    8182
    8283/* Form the celestial-to-intermediate matrix for this TT (IAU 2000B). */
     
    9899** 
    99100** 
    100 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     101**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    101102**  All rights reserved.
    102103** 
  • trunk/FACT++/erfa/src/c2t06a.c

    r18348 r18711  
    7373**     IERS Technical Note No. 32, BKG
    7474**
    75 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     75**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7676**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7777*/
    7878{
    7979   double rc2i[3][3], era, sp, rpom[3][3];
     80
    8081
    8182/* Form the celestial-to-intermediate matrix for this TT. */
     
    100101** 
    101102** 
    102 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     103**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    103104**  All rights reserved.
    104105** 
  • trunk/FACT++/erfa/src/c2tcio.c

    r18348 r18711  
    5353**     IERS Technical Note No. 32, BKG
    5454**
    55 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     55**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5656**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5757*/
    5858{
    5959   double r[3][3];
     60
    6061
    6162/* Construct the matrix. */
     
    7071** 
    7172** 
    72 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     73**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7374**  All rights reserved.
    7475** 
  • trunk/FACT++/erfa/src/c2teqx.c

    r18348 r18711  
    5353**     IERS Technical Note No. 32, BKG (2004)
    5454**
    55 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     55**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5656**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5757*/
    5858{
    5959   double r[3][3];
     60
    6061
    6162/* Construct the matrix. */
     
    7071** 
    7172** 
    72 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     73**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7374**  All rights reserved.
    7475** 
  • trunk/FACT++/erfa/src/c2tpe.c

    r18348 r18711  
    8484**     IERS Technical Note No. 32, BKG (2004)
    8585**
    86 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     86**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8787**  Derived, with permission, from the SOFA library.  See notes at end of file.
    8888*/
     
    9090   double epsa, rb[3][3], rp[3][3], rbp[3][3], rn[3][3],
    9191          rbpn[3][3], gmst, ee, sp, rpom[3][3];
     92
    9293
    9394/* Form the celestial-to-true matrix for this TT. */
     
    115116** 
    116117** 
    117 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     118**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    118119**  All rights reserved.
    119120** 
  • trunk/FACT++/erfa/src/c2txy.c

    r18348 r18711  
    8080**     IERS Technical Note No. 32, BKG (2004)
    8181**
    82 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     82**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8383**  Derived, with permission, from the SOFA library.  See notes at end of file.
    8484*/
    8585{
    8686   double rc2i[3][3], era, sp, rpom[3][3];
     87
    8788
    8889/* Form the celestial-to-intermediate matrix for this TT. */
     
    107108** 
    108109** 
    109 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     110**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    110111**  All rights reserved.
    111112** 
  • trunk/FACT++/erfa/src/cal2jd.c

    r18348 r18711  
    4444**     Section 12.92 (p604).
    4545**
    46 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     46**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4747**  Derived, with permission, from the SOFA library.  See notes at end of file.
    4848*/
     
    5757   static const int mtab[]
    5858                     = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
     59
    5960
    6061/* Preset status. */
     
    8788** 
    8889** 
    89 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     90**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9091**  All rights reserved.
    9192** 
  • trunk/FACT++/erfa/src/cp.c

    r18348 r18711  
    1515**     c        double[3]     copy
    1616**
    17 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     17**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    1818**  Derived, with permission, from the SOFA library.  See notes at end of file.
    1919*/
     
    2929** 
    3030** 
    31 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     31**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3232**  All rights reserved.
    3333** 
  • trunk/FACT++/erfa/src/cpv.c

    r18348 r18711  
    1818**     eraCp        copy p-vector
    1919**
    20 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     20**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2121**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2222*/
     
    3131** 
    3232** 
    33 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     33**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3434**  All rights reserved.
    3535** 
  • trunk/FACT++/erfa/src/cr.c

    r18348 r18711  
    1313**
    1414**  Returned:
    15 **   char[]     double[3][3]    copy
     15**     c        double[3][3]    copy
    1616**
    1717**  Called:
    1818**     eraCp        copy p-vector
    1919**
    20 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     20**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2121**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2222*/
     
    3232** 
    3333** 
    34 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     34**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3535**  All rights reserved.
    3636** 
  • trunk/FACT++/erfa/src/d2dtf.c

    r18348 r18711  
    7272**     eraDat       delta(AT) = TAI-UTC
    7373**
    74 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     74**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7575**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7676*/
     
    8080   int iy1, im1, id1, js, iy2, im2, id2, ihmsf1[4], i;
    8181   double a1, b1, fd, dat0, dat12, w, dat24, dleap;
     82
    8283
    8384/* The two-part JD. */
     
    184185** 
    185186** 
    186 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     187**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    187188**  All rights reserved.
    188189** 
  • trunk/FACT++/erfa/src/d2tf.c

    r18348 r18711  
    4949**     by testing for ihmsf[0]=24 and setting ihmsf[0-3] to zero.
    5050**
    51 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     51**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5252**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5353*/
     
    5555   int nrs, n;
    5656   double rs, rm, rh, a, w, ah, am, as, af;
     57
    5758
    5859/* Handle sign. */
     
    108109** 
    109110** 
    110 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     111**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    111112**  All rights reserved.
    112113** 
  • trunk/FACT++/erfa/src/dat.c

    r18348 r18711  
    3737**     :  added.                                  :
    3838**     :                                          :
    39 **     :  Latest leap second:  2015 June 30       :
     39**     :  Latest leap second:  2016 December 31   :
    4040**     :                                          :
    4141**     :__________________________________________:
     
    116116**     eraCal2jd    Gregorian calendar to JD
    117117**
    118 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     118**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    119119**  Derived, with permission, from the SOFA library.  See notes at end of file.
    120120*/
    121121{
    122122/* Release year for this version of eraDat */
    123    enum { IYV = 2015};
     123   enum { IYV = 2016};
    124124
    125125/* Reference dates (MJD) and drift rates (s/day), pre leap seconds */
     
    189189      { 2009,  1, 34.0       },
    190190      { 2012,  7, 35.0       },
    191       { 2015,  7, 36.0       }
     191      { 2015,  7, 36.0       },
     192      { 2017,  1, 37.0       }
    192193   };
    193194
     
    245246** 
    246247** 
    247 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     248**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    248249**  All rights reserved.
    249250** 
  • trunk/FACT++/erfa/src/dtdb.c

    r18348 r18711  
    158158**     Francou, G. & Laskar, J., Astron.Astrophys., 282, 663-683 (1994).
    159159**
    160 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     160**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    161161**  Derived, with permission, from the SOFA library.  See notes at end of file.
    162162*/
     
    10621062   };
    10631063
     1064
    10641065/* Time since J2000.0 in Julian millennia. */
    10651066   t = ((date1 - ERFA_DJ00) + date2) / ERFA_DJM;
     
    11611162** 
    11621163** 
    1163 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     1164**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    11641165**  All rights reserved.
    11651166** 
  • trunk/FACT++/erfa/src/dtf2d.c

    r18348 r18711  
    7676**     eraJd2cal    JD to Gregorian calendar
    7777**
    78 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     78**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7979**  Derived, with permission, from the SOFA library.  See notes at end of file.
    8080*/
     
    8282   int js, iy2, im2, id2;
    8383   double dj, w, day, seclim, dat0, dat12, dat24, dleap, time;
     84
    8485
    8586/* Today's Julian Day Number. */
     
    151152** 
    152153** 
    153 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     154**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    154155**  All rights reserved.
    155156** 
  • trunk/FACT++/erfa/src/ee00.c

    r18348 r18711  
    6161**     IERS Technical Note No. 32, BKG (2004)
    6262**
    63 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     63**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6464**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6565*/
    6666{
    6767   double ee;
     68
    6869
    6970/* Equation of the equinoxes. */
     
    7677** 
    7778** 
    78 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     79**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7980**  All rights reserved.
    8081** 
  • trunk/FACT++/erfa/src/ee00a.c

    r18348 r18711  
    5959**     IERS Technical Note No. 32, BKG (2004).
    6060**
    61 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     61**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6262**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6363*/
    6464{
    6565   double dpsipr, depspr, epsa, dpsi, deps, ee;
     66
    6667
    6768/* IAU 2000 precession-rate adjustments. */
     
    8384** 
    8485** 
    85 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     86**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8687**  All rights reserved.
    8788** 
  • trunk/FACT++/erfa/src/ee00b.c

    r18348 r18711  
    6565**     IERS Technical Note No. 32, BKG (2004)
    6666**
    67 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     67**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6868**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6969*/
    7070{
    7171   double dpsipr, depspr, epsa, dpsi, deps, ee;
     72
    7273
    7374/* IAU 2000 precession-rate adjustments. */
     
    8990** 
    9091** 
    91 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     92**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9293**  All rights reserved.
    9394** 
  • trunk/FACT++/erfa/src/ee06a.c

    r18348 r18711  
    5151**     IERS Technical Note No. 32, BKG
    5252**
    53 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     53**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5454**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5555*/
    5656{
    5757   double gst06a, gmst06, ee;
     58
    5859
    5960/* Apparent and mean sidereal times. */
     
    7071** 
    7172** 
    72 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     73**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7374**  All rights reserved.
    7475** 
  • trunk/FACT++/erfa/src/eect00.c

    r18348 r18711  
    9292**     IERS Technical Note No. 32, BKG (2004)
    9393**
    94 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     94**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9595**  Derived, with permission, from the SOFA library.  See notes at end of file.
    9696*/
     
    231231** 
    232232** 
    233 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     233**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    234234**  All rights reserved.
    235235** 
  • trunk/FACT++/erfa/src/eform.c

    r18348 r18711  
    5656**     p220.
    5757**
    58 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     58**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5959**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6060*/
     
    9595** 
    9696** 
    97 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     97**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9898**  All rights reserved.
    9999** 
  • trunk/FACT++/erfa/src/eo06a.c

    r18348 r18711  
    5555**     Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981
    5656**
    57 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     57**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5858**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5959*/
    6060{
    6161   double r[3][3], x, y, s, eo;
     62
    6263
    6364/* Classical nutation x precession x bias matrix. */
     
    7980** 
    8081** 
    81 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     82**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8283**  All rights reserved.
    8384** 
  • trunk/FACT++/erfa/src/eors.c

    r18348 r18711  
    3434**     Wallace, P. & Capitaine, N., 2006, Astron.Astrophys. 459, 981
    3535**
    36 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     36**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3737**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3838*/
    3939{
    4040   double x, ax, xs, ys, zs, p, q, eo;
     41
    4142
    4243/* Evaluate Wallace & Capitaine (2006) expression (16). */
     
    5657** 
    5758** 
    58 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     59**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5960**  All rights reserved.
    6061** 
  • trunk/FACT++/erfa/src/epb.c

    r18348 r18711  
    2727**     Lieske, J.H., 1979. Astron.Astrophys., 73, 282.
    2828**
    29 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     29**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3030**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3131*/
     
    4040** 
    4141** 
    42 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     42**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4343**  All rights reserved.
    4444** 
  • trunk/FACT++/erfa/src/epb2jd.c

    r18348 r18711  
    2727**     Lieske, J.H., 1979, Astron.Astrophys. 73, 282.
    2828**
    29 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     29**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3030**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3131*/
     
    4040** 
    4141** 
    42 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     42**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4343**  All rights reserved.
    4444** 
  • trunk/FACT++/erfa/src/epj.c

    r18348 r18711  
    2727**     Lieske, J.H., 1979, Astron.Astrophys. 73, 282.
    2828**
    29 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     29**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3030**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3131*/
    3232{
    3333   double epj;
     34
    3435
    3536   epj = 2000.0 + ((dj1 - ERFA_DJ00) + dj2) / ERFA_DJY;
     
    4142** 
    4243** 
    43 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     44**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4445**  All rights reserved.
    4546** 
  • trunk/FACT++/erfa/src/epj2jd.c

    r18348 r18711  
    2727**     Lieske, J.H., 1979, Astron.Astrophys. 73, 282.
    2828**
    29 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     29**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3030**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3131*/
     
    4040** 
    4141** 
    42 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     42**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4343**  All rights reserved.
    4444** 
  • trunk/FACT++/erfa/src/epv00.c

    r18348 r18711  
    9595**     will receive the barycentric values.
    9696**
    97 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     97**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9898**  Derived, with permission, from the SOFA library.  See notes at end of file.
    9999*/
     
    25382538** 
    25392539** 
    2540 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     2540**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    25412541**  All rights reserved.
    25422542** 
  • trunk/FACT++/erfa/src/eqeq94.c

    r18348 r18711  
    5252**     645-650.
    5353**
    54 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     54**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5555**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5656*/
    5757{
    5858   double t,  om,  dpsi,  deps,  eps0, ee;
     59
    5960
    6061/* Interval between fundamental epoch J2000.0 and given date (JC). */
     
    8081** 
    8182** 
    82 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     83**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8384**  All rights reserved.
    8485** 
  • trunk/FACT++/erfa/src/era00.c

    r18348 r18711  
    5555**     IERS Technical Note No. 32, BKG (2004)
    5656**
    57 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     57**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5858**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5959*/
    6060{
    6161   double d1, d2, t, f, theta;
     62
    6263
    6364/* Days since fundamental epoch. */
     
    8485** 
    8586** 
    86 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     87**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8788**  All rights reserved.
    8889** 
  • trunk/FACT++/erfa/src/erfa.h

    r18348 r18711  
    99**  Prototype function declarations for ERFA library.
    1010**
    11 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     11**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    1212**  Derived, with permission, from the SOFA library.  See notes at end of file.
    1313*/
     
    193193void eraFw2xy(double gamb, double phib, double psi, double eps,
    194194              double *x, double *y);
     195void eraLtp(double epj, double rp[3][3]);
     196void eraLtpb(double epj, double rpb[3][3]);
     197void eraLtpecl(double epj, double vec[3]);
     198void eraLtpequ(double epj, double veq[3]);
    195199void eraNum00a(double date1, double date2, double rmatn[3][3]);
    196200void eraNum00b(double date1, double date2, double rmatn[3][3]);
     
    306310              double *pmr2, double *pmd2, double *px2, double *rv2);
    307311
     312/* Astronomy/EclipticCoordinates */
     313void eraEceq06(double date1, double date2, double dl, double db,
     314               double *dr, double *dd);
     315void eraEcm06(double date1, double date2, double rm[3][3]);
     316void eraEqec06(double date1, double date2, double dr, double dd,
     317               double *dl, double *db);
     318void eraLteceq(double epj, double dl, double db, double *dr, double *dd);
     319void eraLtecm(double epj, double rm[3][3]);
     320void eraLteqec(double epj, double dr, double dd, double *dl, double *db);
     321
    308322/* Astronomy/GalacticCoordinates */
    309 void eraG2icrs ( double dl, double db, double *dr, double *dd );
    310 void eraIcrs2g ( double dr, double dd, double *dl, double *db );
     323void eraG2icrs(double dl, double db, double *dr, double *dd);
     324void eraIcrs2g(double dr, double dd, double *dl, double *db);
    311325
    312326/* Astronomy/GeodeticGeocentric */
     
    443457** 
    444458** 
    445 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     459**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    446460**  All rights reserved.
    447461** 
  • trunk/FACT++/erfa/src/erfam.h

    r18348 r18711  
    99**  Macros used by ERFA library.
    1010**
    11 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     11**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    1212**  Derived, with permission, from the SOFA library.  See notes at end of file.
    1313*/
     
    148148** 
    149149** 
    150 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     150**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    151151**  All rights reserved.
    152152** 
  • trunk/FACT++/erfa/src/fad03.c

    r18348 r18711  
    3232**     Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683
    3333**
    34 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     34**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3535**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3636*/
    3737{
    3838   double a;
     39
    3940
    4041/* Mean elongation of the Moon from the Sun (IERS Conventions 2003). */
     
    5152** 
    5253** 
    53 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     54**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5455**  All rights reserved.
    5556** 
  • trunk/FACT++/erfa/src/fae03.c

    r18348 r18711  
    3535**     Astron.Astrophys.Supp.Ser. 135, 111
    3636**
    37 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     37**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3838**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3939*/
    4040{
    4141   double a;
     42
    4243
    4344/* Mean longitude of Earth (IERS Conventions 2003). */
     
    5051** 
    5152** 
    52 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     53**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5354**  All rights reserved.
    5455** 
  • trunk/FACT++/erfa/src/faf03.c

    r18348 r18711  
    3333**     Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683
    3434**
    35 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     35**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3636**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3737*/
    3838{
    3939   double a;
     40
    4041
    4142/* Mean longitude of the Moon minus that of the ascending node */
     
    4950   return a;
    5051
     52
    5153}
    5254/*----------------------------------------------------------------------
    5355** 
    5456** 
    55 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     57**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5658**  All rights reserved.
    5759** 
  • trunk/FACT++/erfa/src/faju03.c

    r18348 r18711  
    3535**     Astron.Astrophys.Supp.Ser. 135, 111
    3636**
    37 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     37**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3838**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3939*/
    4040{
    4141   double a;
     42
    4243
    4344/* Mean longitude of Jupiter (IERS Conventions 2003). */
     
    5051** 
    5152** 
    52 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     53**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5354**  All rights reserved.
    5455** 
  • trunk/FACT++/erfa/src/fal03.c

    r18348 r18711  
    3232**     Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683
    3333**
    34 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     34**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3535**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3636*/
    3737{
    3838   double a;
     39
    3940
    4041/* Mean anomaly of the Moon (IERS Conventions 2003). */
     
    5152** 
    5253** 
    53 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     54**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5455**  All rights reserved.
    5556** 
  • trunk/FACT++/erfa/src/falp03.c

    r18348 r18711  
    3232**     Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683
    3333**
    34 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     34**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3535**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3636*/
    3737{
    3838   double a;
     39
    3940
    4041/* Mean anomaly of the Sun (IERS Conventions 2003). */
     
    5152** 
    5253** 
    53 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     54**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5455**  All rights reserved.
    5556** 
  • trunk/FACT++/erfa/src/fama03.c

    r18348 r18711  
    3535**     Astron.Astrophys.Supp.Ser. 135, 111
    3636**
    37 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     37**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3838**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3939*/
    4040{
    4141   double a;
     42
    4243
    4344/* Mean longitude of Mars (IERS Conventions 2003). */
     
    5051** 
    5152** 
    52 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     53**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5354**  All rights reserved.
    5455** 
  • trunk/FACT++/erfa/src/fame03.c

    r18348 r18711  
    3535**     Astron.Astrophys.Supp.Ser. 135, 111
    3636**
    37 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     37**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3838**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3939*/
    4040{
    4141   double a;
     42
    4243
    4344/* Mean longitude of Mercury (IERS Conventions 2003). */
     
    5051** 
    5152** 
    52 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     53**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5354**  All rights reserved.
    5455** 
  • trunk/FACT++/erfa/src/fane03.c

    r18348 r18711  
    3232**     Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683
    3333**
    34 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     34**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3535**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3636*/
    3737{
    3838   double a;
     39
    3940
    4041/* Mean longitude of Neptune (IERS Conventions 2003). */
     
    4748** 
    4849** 
    49 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     50**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5051**  All rights reserved.
    5152** 
  • trunk/FACT++/erfa/src/faom03.c

    r18348 r18711  
    3232**     Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683
    3333**
    34 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     34**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3535**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3636*/
    3737{
    3838   double a;
     39
    3940
    4041/* Mean longitude of the Moon's ascending node */
     
    5253** 
    5354** 
    54 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     55**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5556**  All rights reserved.
    5657** 
  • trunk/FACT++/erfa/src/fapa03.c

    r18348 r18711  
    3636**     IERS Technical Note No. 32, BKG (2004)
    3737**
    38 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     38**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3939**  Derived, with permission, from the SOFA library.  See notes at end of file.
    4040*/
    4141{
    4242   double a;
     43
    4344
    4445/* General accumulated precession in longitude. */
     
    5152** 
    5253** 
    53 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     54**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5455**  All rights reserved.
    5556** 
  • trunk/FACT++/erfa/src/fasa03.c

    r18348 r18711  
    3535**     Astron.Astrophys.Supp.Ser. 135, 111
    3636**
    37 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     37**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3838**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3939*/
    4040{
    4141   double a;
     42
    4243
    4344/* Mean longitude of Saturn (IERS Conventions 2003). */
     
    5051** 
    5152** 
    52 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     53**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5354**  All rights reserved.
    5455** 
  • trunk/FACT++/erfa/src/faur03.c

    r18348 r18711  
    3232**     Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683
    3333**
    34 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     34**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3535**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3636*/
    3737{
    3838   double a;
     39
    3940
    4041/* Mean longitude of Uranus (IERS Conventions 2003). */
     
    4748** 
    4849** 
    49 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     50**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5051**  All rights reserved.
    5152** 
  • trunk/FACT++/erfa/src/fave03.c

    r18348 r18711  
    3535**     Astron.Astrophys.Supp.Ser. 135, 111
    3636**
    37 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     37**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3838**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3939*/
    4040{
    4141   double a;
     42
    4243
    4344/* Mean longitude of Venus (IERS Conventions 2003). */
     
    5051** 
    5152** 
    52 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     53**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5354**  All rights reserved.
    5455** 
  • trunk/FACT++/erfa/src/fk52h.c

    r18348 r18711  
    5454**     F.Mignard & M.Froeschle, Astron. Astrophys. 354, 732-739 (2000).
    5555**
    56 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     56**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5757**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5858*/
     
    6060   int i;
    6161   double pv5[2][3], r5h[3][3], s5h[3], wxp[3], vv[3], pvh[2][3];
     62
    6263
    6364/* FK5 barycentric position/velocity pv-vector (normalized). */
     
    9192** 
    9293** 
    93 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     94**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9495**  All rights reserved.
    9596** 
  • trunk/FACT++/erfa/src/fk5hip.c

    r18348 r18711  
    3737**     F.Mignard & M.Froeschle, Astron. Astrophys. 354, 732-739 (2000).
    3838**
    39 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     39**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4040**  Derived, with permission, from the SOFA library.  See notes at end of file.
    4141*/
     
    4646   double epx, epy, epz;
    4747   double omx, omy, omz;
     48
    4849
    4950   epx = -19.9e-3 * ERFA_DAS2R;
     
    7475** 
    7576** 
    76 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     77**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7778**  All rights reserved.
    7879** 
  • trunk/FACT++/erfa/src/fk5hz.c

    r18348 r18711  
    7070**     F.Mignard & M.Froeschle, 2000, Astron.Astrophys. 354, 732-739.
    7171**
    72 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     72**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7373**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7474*/
     
    7676   double t, p5e[3], r5h[3][3], s5h[3], vst[3], rst[3][3], p5[3],
    7777          ph[3], w;
     78
    7879
    7980/* Interval from given date to fundamental epoch J2000.0 (JY). */
     
    108109** 
    109110** 
    110 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     111**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    111112**  All rights reserved.
    112113** 
  • trunk/FACT++/erfa/src/fw2m.c

    r18348 r18711  
    6666**     Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351
    6767**
    68 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     68**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6969**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7070*/
     
    8383** 
    8484** 
    85 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     85**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8686**  All rights reserved.
    8787** 
  • trunk/FACT++/erfa/src/fw2xy.c

    r18348 r18711  
    5151**     Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351
    5252**
    53 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     53**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5454**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5555*/
    5656{
    5757   double r[3][3];
     58
    5859
    5960/* Form NxPxB matrix. */
     
    6970** 
    7071** 
    71 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     72**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7273**  All rights reserved.
    7374** 
  • trunk/FACT++/erfa/src/g2icrs.c

    r18348 r18711  
    6262**     Publications Division, Noordwijk, Netherlands.
    6363**
    64 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     64**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6565**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6666*/
     
    110110** 
    111111** 
    112 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     112**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    113113**  All rights reserved.
    114114** 
  • trunk/FACT++/erfa/src/gc2gd.c

    r18348 r18711  
    5252**     eraGc2gde    geocentric to geodetic transformation, general
    5353**
    54 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     54**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5555**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5656*/
     
    5858   int j;
    5959   double a, f;
     60
    6061
    6162/* Obtain reference ellipsoid parameters. */
     
    8283** 
    8384** 
    84 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     85**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8586**  All rights reserved.
    8687** 
  • trunk/FACT++/erfa/src/gc2gde.c

    r18348 r18711  
    5757**     79: 689-693
    5858**
    59 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     59**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6060**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6161*/
     
    148148** 
    149149** 
    150 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     150**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    151151**  All rights reserved.
    152152** 
  • trunk/FACT++/erfa/src/gd2gc.c

    r18348 r18711  
    5555**     eraZp        zero p-vector
    5656**
    57 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     57**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5858**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5959*/
     
    6161   int j;
    6262   double a, f;
     63
    6364
    6465/* Obtain reference ellipsoid parameters. */
     
    8182** 
    8283** 
    83 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     84**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8485**  All rights reserved.
    8586** 
  • trunk/FACT++/erfa/src/gd2gce.c

    r18348 r18711  
    5656**     Section 4.22, p202.
    5757**
    58 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     58**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5959**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6060*/
    6161{
    6262   double sp, cp, w, d, ac, as, r;
     63
    6364
    6465/* Functions of geodetic latitude. */
     
    8586** 
    8687** 
    87 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     88**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8889**  All rights reserved.
    8990** 
  • trunk/FACT++/erfa/src/gmst00.c

    r18348 r18711  
    6969**     IERS Technical Note No. 32, BKG (2004)
    7070**
    71 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     71**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7272**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7373*/
    7474{
    7575   double t, gmst;
     76
    7677
    7778/* TT Julian centuries since J2000.0. */
     
    9394** 
    9495** 
    95 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     96**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9697**  All rights reserved.
    9798** 
  • trunk/FACT++/erfa/src/gmst06.c

    r18348 r18711  
    5959**     Astron.Astrophys. 432, 355
    6060**
    61 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     61**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6262**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6363*/
    6464{
    6565   double t, gmst;
     66
    6667
    6768/* TT Julian centuries since J2000.0. */
     
    8485** 
    8586** 
    86 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     87**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8788**  All rights reserved.
    8889** 
  • trunk/FACT++/erfa/src/gmst82.c

    r18348 r18711  
    6161**     Aoki et al., Astron. Astrophys. 105, 359-361 (1982).
    6262**
    63 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     63**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6464**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6565*/
     
    7676
    7777   double d1, d2, t, f, gmst;
     78
    7879
    7980/* Julian centuries since fundamental epoch. */
     
    99100** 
    100101** 
    101 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     102**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    102103**  All rights reserved.
    103104** 
  • trunk/FACT++/erfa/src/gst00a.c

    r18348 r18711  
    7070**     IERS Technical Note No. 32, BKG (2004)
    7171**
    72 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     72**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7373**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7474*/
    7575{
    7676   double gmst00, ee00a, gst;
     77
    7778
    7879   gmst00 = eraGmst00(uta, utb, tta, ttb);
     
    8687** 
    8788** 
    88 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     89**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8990**  All rights reserved.
    9091** 
  • trunk/FACT++/erfa/src/gst00b.c

    r18348 r18711  
    7878**     IERS Technical Note No. 32, BKG (2004)
    7979**
    80 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     80**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8181**  Derived, with permission, from the SOFA library.  See notes at end of file.
    8282*/
    8383{
    8484   double gmst00, ee00b, gst;
     85
    8586
    8687   gmst00 = eraGmst00(uta, utb, uta, utb);
     
    9495** 
    9596** 
    96 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     97**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9798**  All rights reserved.
    9899** 
  • trunk/FACT++/erfa/src/gst06.c

    r18348 r18711  
    6565**     Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981
    6666**
    67 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     67**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6868**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6969*/
    7070{
    7171   double x, y, s, era, eors, gst;
     72
    7273
    7374/* Extract CIP coordinates. */
     
    8889** 
    8990** 
    90 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     91**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9192**  All rights reserved.
    9293** 
  • trunk/FACT++/erfa/src/gst06a.c

    r18348 r18711  
    6161**     Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981
    6262**
    63 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     63**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6464**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6565*/
    6666{
    6767   double rnpb[3][3], gst;
     68
    6869
    6970/* Classical nutation x precession x bias matrix, IAU 2000A. */
     
    7980** 
    8081** 
    81 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     82**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8283**  All rights reserved.
    8384** 
  • trunk/FACT++/erfa/src/gst94.c

    r18348 r18711  
    6363**     IAU Resolution C7, Recommendation 3 (1994)
    6464**
    65 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     65**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6666**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6767*/
    6868{
    6969   double gmst82, eqeq94, gst;
     70
    7071
    7172   gmst82 = eraGmst82(uta, utb);
     
    7980** 
    8081** 
    81 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     82**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8283**  All rights reserved.
    8384** 
  • trunk/FACT++/erfa/src/h2fk5.c

    r18348 r18711  
    5656**     F.Mignard & M.Froeschle, Astron. Astrophys. 354, 732-739 (2000).
    5757**
    58 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     58**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5959**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6060*/
     
    6262   int i;
    6363   double pvh[2][3], r5h[3][3], s5h[3], sh[3], wxp[3], vv[3], pv5[2][3];
     64
    6465
    6566/* Hipparcos barycentric position/velocity pv-vector (normalized). */
     
    9697** 
    9798** 
    98 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     99**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    99100**  All rights reserved.
    100101** 
  • trunk/FACT++/erfa/src/hfk5z.c

    r18348 r18711  
    7575**     F.Mignard & M.Froeschle, 2000, Astron.Astrophys. 354, 732-739.
    7676**
    77 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     77**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7878**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7979*/
     
    8282   rst[3][3], r5ht[3][3], pv5e[2][3], vv[3],
    8383   w, r, v;
     84
    8485
    8586/* Time interval from fundamental epoch J2000.0 to given date (JY). */
     
    123124** 
    124125** 
    125 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     126**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    126127**  All rights reserved.
    127128** 
  • trunk/FACT++/erfa/src/icrs2g.c

    r18348 r18711  
    6262**     Publications Division, Noordwijk, Netherlands.
    6363**
    64 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     64**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6565**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6666*/
     
    110110** 
    111111** 
    112 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     112**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    113113**  All rights reserved.
    114114** 
  • trunk/FACT++/erfa/src/ir.c

    r18348 r18711  
    1212**     r       double[3][3]    r-matrix
    1313**
    14 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     14**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    1515**  Derived, with permission, from the SOFA library.  See notes at end of file.
    1616*/
     
    3232** 
    3333** 
    34 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     34**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3535**  All rights reserved.
    3636** 
  • trunk/FACT++/erfa/src/jd2cal.c

    r18348 r18711  
    5151**     Section 12.92 (p604).
    5252**
    53 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     53**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5454**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5555*/
     
    6161   long jd, l, n, i, k;
    6262   double dj, d1, d2, f1, f2, f, d;
     63
    6364
    6465/* Verify date is acceptable. */
     
    103104** 
    104105** 
    105 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     106**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    106107**  All rights reserved.
    107108** 
  • trunk/FACT++/erfa/src/jdcalf.c

    r18348 r18711  
    5656**     Section 12.92 (p604).
    5757**
    58 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     58**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5959**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6060*/
     
    6262   int j, js;
    6363   double denom, d1, d2, f1, f2, f;
     64
    6465
    6566/* Denominator of fraction (e.g. 100 for 2 decimal places). */
     
    109110** 
    110111** 
    111 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     112**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    112113**  All rights reserved.
    113114** 
  • trunk/FACT++/erfa/src/ld.c

    r18348 r18711  
    6969**     eraPxp       vector product of two p-vectors
    7070**
    71 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     71**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7272**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7373*/
     
    7575   int i;
    7676   double qpe[3], qdqpe, w, eq[3], peq[3];
     77
    7778
    7879/* q . (q + e). */
     
    100101** 
    101102** 
    102 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     103**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    103104**  All rights reserved.
    104105** 
  • trunk/FACT++/erfa/src/ldn.c

    r18348 r18711  
    7979**     eraLd        light deflection by a solar-system body
    8080**
    81 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     81**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8282**  Derived, with permission, from the SOFA library.  See notes at end of file.
    8383*/
     
    8888   int i;
    8989   double  v[3], dt, ev[3], em, e[3];
     90
    9091
    9192/* Star direction prior to deflection. */
     
    122123** 
    123124** 
    124 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     125**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    125126**  All rights reserved.
    126127** 
  • trunk/FACT++/erfa/src/ldsun.c

    r18348 r18711  
    2424**
    2525**  2) The deflection is restrained when the angle between the star and
    26 **     the center of the Sun is less than about 9 arcsec, falling to
    27 **     zero for zero separation. (The chosen threshold is within the
    28 **     solar limb for all solar-system applications.)
     26**     the center of the Sun is less than a threshold value, falling to
     27**     zero deflection for zero separation.  The chosen threshold value
     28**     is within the solar limb for all solar-system applications, and
     29**     is about 5 arcminutes for the case of a terrestrial observer.
    2930**
    3031**  3) The arguments p and p1 can be the same array.
     
    3334**     eraLd        light deflection by a solar-system body
    3435**
    35 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     36**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3637**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3738*/
    3839{
    39    eraLd(1.0, p, p, e, em, 1e-9, p1);
     40   double em2, dlim;
     41
     42
     43/* Deflection limiter (smaller for distant observers). */
     44   em2 = em*em;
     45   if ( em2 < 1.0 ) em2 = 1.0;
     46   dlim = 1e-6 / (em2 > 1.0 ? em2 : 1.0);
     47
     48/* Apply the deflection. */
     49   eraLd(1.0, p, p, e, em, dlim, p1);
    4050
    4151/* Finished. */
     
    4555** 
    4656** 
    47 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     57**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4858**  All rights reserved.
    4959** 
  • trunk/FACT++/erfa/src/num00a.c

    r18348 r18711  
    5353**     Section 3.222-3 (p114).
    5454**
    55 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     55**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5656**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5757*/
    5858{
    5959   double dpsi, deps, epsa, rb[3][3], rp[3][3], rbp[3][3], rbpn[3][3];
     60
    6061
    6162/* Obtain the required matrix (discarding other results). */
     
    6970** 
    7071** 
    71 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     72**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7273**  All rights reserved.
    7374** 
  • trunk/FACT++/erfa/src/num00b.c

    r18348 r18711  
    5353**     Section 3.222-3 (p114).
    5454**
    55 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     55**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5656**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5757*/
    5858{
    5959   double dpsi, deps, epsa, rb[3][3], rp[3][3], rbp[3][3], rbpn[3][3];
     60
    6061
    6162/* Obtain the required matrix (discarding other results). */
     
    6970** 
    7071** 
    71 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     72**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7273**  All rights reserved.
    7374** 
  • trunk/FACT++/erfa/src/num06a.c

    r18348 r18711  
    5252**     Section 3.222-3 (p114).
    5353**
    54 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     54**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5555**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5656*/
    5757{
    5858   double eps, dp, de;
     59
    5960
    6061/* Mean obliquity. */
     
    7374** 
    7475** 
    75 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     76**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7677**  All rights reserved.
    7778** 
  • trunk/FACT++/erfa/src/numat.c

    r18348 r18711  
    1717**
    1818**  Notes:
     19**
    1920**
    2021**  1) The supplied mean obliquity epsa, must be consistent with the
     
    4142**     Section 3.222-3 (p114).
    4243**
    43 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     44**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4445**  Derived, with permission, from the SOFA library.  See notes at end of file.
    4546*/
     
    5758** 
    5859** 
    59 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     60**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6061**  All rights reserved.
    6162** 
  • trunk/FACT++/erfa/src/nut00a.c

    r18348 r18711  
    149149**     Resolutions", in IERS Workshop 5.1 (2002)
    150150**
    151 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     151**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    152152**  Derived, with permission, from the SOFA library.  See notes at end of file.
    153153*/
     
    19961996** 
    19971997** 
    1998 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     1998**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    19991999**  All rights reserved.
    20002000** 
  • trunk/FACT++/erfa/src/nut00b.c

    r18348 r18711  
    117117**     Francou, G., Laskar, J., Astron.Astrophys. 282, 663-683 (1994)
    118118**
    119 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     119**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    120120**  Derived, with permission, from the SOFA library.  See notes at end of file.
    121121*/
     
    321321** 
    322322** 
    323 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     323**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    324324**  All rights reserved.
    325325** 
  • trunk/FACT++/erfa/src/nut06a.c

    r18348 r18711  
    7676**     Resolutions", in IERS Workshop 5.1 (2002)
    7777**
    78 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     78**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7979**  Derived, with permission, from the SOFA library.  See notes at end of file.
    8080*/
    8181{
    8282   double t, fj2, dp, de;
     83
    8384
    8485/* Interval between fundamental date J2000.0 and given date (JC). */
     
    101102** 
    102103** 
    103 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     104**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    104105**  All rights reserved.
    105106** 
  • trunk/FACT++/erfa/src/nut80.c

    r18348 r18711  
    4949**     Section 3.222 (p111).
    5050**
    51 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     51**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5252**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5353*/
     
    274274** 
    275275** 
    276 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     276**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    277277**  All rights reserved.
    278278** 
  • trunk/FACT++/erfa/src/nutm80.c

    r18348 r18711  
    4646**     eraNumat     form nutation matrix
    4747**
    48 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     48**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4949**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5050*/
    5151{
    5252   double dpsi, deps, epsa;
     53
    5354
    5455/* Nutation components and mean obliquity. */
     
    6566** 
    6667** 
    67 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     68**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6869**  All rights reserved.
    6970** 
  • trunk/FACT++/erfa/src/obl06.c

    r18348 r18711  
    4343**     Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351
    4444**
    45 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     45**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4646**  Derived, with permission, from the SOFA library.  See notes at end of file.
    4747*/
    4848{
    4949   double t, eps0;
     50
    5051
    5152/* Interval between fundamental date J2000.0 and given date (JC). */
     
    6667** 
    6768** 
    68 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     69**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6970**  All rights reserved.
    7071** 
  • trunk/FACT++/erfa/src/obl80.c

    r18348 r18711  
    4545**     Expression 3.222-1 (p114).
    4646**
    47 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     47**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4848**  Derived, with permission, from the SOFA library.  See notes at end of file.
    4949*/
    5050{
    5151   double t, eps0;
     52
    5253
    5354/* Interval between fundamental epoch J2000.0 and given date (JC). */
     
    6667** 
    6768** 
    68 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     69**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6970**  All rights reserved.
    7071** 
  • trunk/FACT++/erfa/src/p06e.c

    r18348 r18711  
    121121**     eraObl06     mean obliquity, IAU 2006
    122122**
    123 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     123**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    124124**  Derived, with permission, from the SOFA library.  See notes at end of file.
    125125*/
    126126{
    127127   double t;
     128
    128129
    129130/* Interval between fundamental date J2000.0 and given date (JC). */
     
    269270** 
    270271** 
    271 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     272**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    272273**  All rights reserved.
    273274** 
  • trunk/FACT++/erfa/src/p2pv.c

    r18348 r18711  
    1919**     eraZp        zero p-vector
    2020**
    21 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     21**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2222**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2323*/
     
    3232** 
    3333** 
    34 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     34**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3535**  All rights reserved.
    3636** 
  • trunk/FACT++/erfa/src/p2s.c

    r18348 r18711  
    2727**     eraPm        modulus of p-vector
    2828**
    29 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     29**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3030**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3131*/
     
    4040** 
    4141** 
    42 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     42**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4343**  All rights reserved.
    4444** 
  • trunk/FACT++/erfa/src/pap.c

    r18348 r18711  
    3838**     eraPdp       scalar product of two p-vectors
    3939**
    40 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     40**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4141**  Derived, with permission, from the SOFA library.  See notes at end of file.
    4242*/
    4343{
    4444   double am, au[3], bm, st, ct, xa, ya, za, eta[3], xi[3], a2b[3], pa;
     45
    4546
    4647/* Modulus and direction of the a vector. */
     
    8788** 
    8889** 
    89 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     90**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9091**  All rights reserved.
    9192** 
  • trunk/FACT++/erfa/src/pas.c

    r18348 r18711  
    2727**  2) Zero is returned if the two points are coincident.
    2828**
    29 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     29**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3030**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3131*/
    3232{
    3333   double dl, x, y, pa;
     34
    3435
    3536   dl = bl - al;
     
    4445** 
    4546** 
    46 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     47**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4748**  All rights reserved.
    4849** 
  • trunk/FACT++/erfa/src/pb06.c

    r18348 r18711  
    6464**     eraRz        rotate around Z-axis
    6565**
    66 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     66**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6767**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6868*/
    6969{
    7070   double r[3][3], r31, r32;
     71
    7172
    7273/* Precession matrix via Fukushima-Williams angles. */
     
    9293** 
    9394** 
    94 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     95**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9596**  All rights reserved.
    9697** 
  • trunk/FACT++/erfa/src/pdp.c

    r18348 r18711  
    1616**            double        a . b
    1717**
    18 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     18**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    1919**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2020*/
    2121{
    2222   double w;
     23
    2324
    2425   w  = a[0] * b[0]
     
    3233** 
    3334** 
    34 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     35**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3536**  All rights reserved.
    3637** 
  • trunk/FACT++/erfa/src/pfw06.c

    r18348 r18711  
    7474**     eraObl06     mean obliquity, IAU 2006
    7575**
    76 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     76**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7777**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7878*/
    7979{
    8080   double t;
     81
    8182
    8283/* Interval between fundamental date J2000.0 and given date (JC). */
     
    113114** 
    114115** 
    115 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     116**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    116117**  All rights reserved.
    117118** 
  • trunk/FACT++/erfa/src/plan94.c

    r18348 r18711  
    158158**              Astron. Astrophys. 282, 663 (1994).
    159159**
    160 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     160**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    161161**  Derived, with permission, from the SOFA library.  See notes at end of file.
    162162*/
     
    463463** 
    464464** 
    465 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     465**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    466466**  All rights reserved.
    467467** 
  • trunk/FACT++/erfa/src/pm.c

    r18348 r18711  
    1515**            double        modulus
    1616**
    17 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     17**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    1818**  Derived, with permission, from the SOFA library.  See notes at end of file.
    1919*/
     
    2525** 
    2626** 
    27 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     27**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2828**  All rights reserved.
    2929** 
  • trunk/FACT++/erfa/src/pmat00.c

    r18348 r18711  
    5151**     (2000)
    5252**
    53 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     53**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5454**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5555*/
    5656{
    5757   double rb[3][3], rp[3][3];
     58
    5859
    5960/* Obtain the required matrix (discarding others). */
     
    6667** 
    6768** 
    68 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     69**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6970**  All rights reserved.
    7071** 
  • trunk/FACT++/erfa/src/pmat06.c

    r18348 r18711  
    5252**     Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981
    5353**
    54 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     54**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5555**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5656*/
    5757{
    5858   double gamb, phib, psib, epsa;
     59
    5960
    6061/* Bias-precession Fukushima-Williams angles. */
     
    7071** 
    7172** 
    72 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     73**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7374**  All rights reserved.
    7475** 
  • trunk/FACT++/erfa/src/pmat76.c

    r18348 r18711  
    6767**     Kaplan,G.H., 1981. USNO circular no. 163, pA2.
    6868**
    69 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     69**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7070**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7171*/
    7272{
    7373   double zeta, z, theta, wmat[3][3];
     74
    7475
    7576/* Precession Euler angles, J2000.0 to specified date. */
     
    8990** 
    9091** 
    91 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     92**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9293**  All rights reserved.
    9394** 
  • trunk/FACT++/erfa/src/pmp.c

    r18348 r18711  
    2020**     arguments.
    2121**
    22 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     22**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2323**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2424*/
     
    3434** 
    3535** 
    36 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     36**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3737**  All rights reserved.
    3838** 
  • trunk/FACT++/erfa/src/pmpx.c

    r18348 r18711  
    4747**     eraPn        decompose p-vector into modulus and direction
    4848**
    49 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     49**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5050**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5151*/
     
    5959   int i;
    6060   double sr, cr, sd, cd, x, y, z, p[3], dt, pxr, w, pdz, pm[3];
     61
    6162
    6263/* Spherical coordinates to unit vector (and useful functions). */
     
    9293** 
    9394** 
    94 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     95**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9596**  All rights reserved.
    9697** 
  • trunk/FACT++/erfa/src/pmsafe.c

    r18348 r18711  
    106106**     eraStarpm    update star catalog data for space motion
    107107**
    108 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     108**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    109109**  Derived, with permission, from the SOFA library.  See notes at end of file.
    110110*/
     
    119119   int jpx, j;
    120120   double pm, px1a;
     121
    121122
    122123/* Proper motion in one year (radians). */
     
    145146** 
    146147** 
    147 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     148**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    148149**  All rights reserved.
    149150** 
  • trunk/FACT++/erfa/src/pn.c

    r18348 r18711  
    2929**     eraSxp       multiply p-vector by scalar
    3030**
    31 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     31**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3232**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3333*/
    3434{
    3535   double w;
     36
    3637
    3738/* Obtain the modulus and test for zero. */
     
    5758** 
    5859** 
    59 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     60**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6061**  All rights reserved.
    6162** 
  • trunk/FACT++/erfa/src/pn00.c

    r18348 r18711  
    9696**          intermediate origin" (CIO) by IAU 2006 Resolution 2.
    9797**
    98 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     98**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9999**  Derived, with permission, from the SOFA library.  See notes at end of file.
    100100*/
    101101{
    102102   double dpsipr, depspr, rbpw[3][3], rnw[3][3];
     103
    103104
    104105/* IAU 2000 precession-rate adjustments. */
     
    125126** 
    126127** 
    127 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     128**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    128129**  All rights reserved.
    129130** 
  • trunk/FACT++/erfa/src/pn00a.c

    r18348 r18711  
    9696**          intermediate origin" (CIO) by IAU 2006 Resolution 2.
    9797**
    98 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     98**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9999**  Derived, with permission, from the SOFA library.  See notes at end of file.
    100100*/
     
    112112** 
    113113** 
    114 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     114**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    115115**  All rights reserved.
    116116** 
  • trunk/FACT++/erfa/src/pn00b.c

    r18348 r18711  
    9696**          intermediate origin" (CIO) by IAU 2006 Resolution 2.
    9797**
    98 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     98**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9999**  Derived, with permission, from the SOFA library.  See notes at end of file.
    100100*/
     
    112112** 
    113113** 
    114 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     114**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    115115**  All rights reserved.
    116116** 
  • trunk/FACT++/erfa/src/pn06.c

    r18348 r18711  
    9494**     Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981
    9595**
    96 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     96**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9797**  Derived, with permission, from the SOFA library.  See notes at end of file.
    9898*/
    9999{
    100100   double gamb, phib, psib, eps, r1[3][3], r2[3][3], rt[3][3];
     101
    101102
    102103/* Bias-precession Fukushima-Williams angles of J2000.0 = frame bias. */
     
    135136** 
    136137** 
    137 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     138**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    138139**  All rights reserved.
    139140** 
  • trunk/FACT++/erfa/src/pn06a.c

    r18348 r18711  
    8686**     Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855
    8787**
    88 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     88**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8989**  Derived, with permission, from the SOFA library.  See notes at end of file.
    9090*/
     
    102102** 
    103103** 
    104 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     104**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    105105**  All rights reserved.
    106106** 
  • trunk/FACT++/erfa/src/pnm00a.c

    r18348 r18711  
    5454**     (2000)
    5555**
    56 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     56**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5757**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5858*/
    5959{
    6060   double dpsi, deps, epsa, rb[3][3], rp[3][3], rbp[3][3], rn[3][3];
     61
    6162
    6263/* Obtain the required matrix (discarding other results). */
     
    6970** 
    7071** 
    71 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     72**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7273**  All rights reserved.
    7374** 
  • trunk/FACT++/erfa/src/pnm00b.c

    r18348 r18711  
    5454**     (2000)
    5555**
    56 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     56**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5757**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5858*/
    5959{
    6060   double dpsi, deps, epsa, rb[3][3], rp[3][3], rbp[3][3], rn[3][3];
     61
    6162
    6263/* Obtain the required matrix (discarding other results). */
     
    6970** 
    7071** 
    71 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     72**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7273**  All rights reserved.
    7374** 
  • trunk/FACT++/erfa/src/pnm06a.c

    r18348 r18711  
    5151**     Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855.
    5252**
    53 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     53**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5454**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5555*/
    5656{
    5757   double gamb, phib, psib, epsa, dp, de;
     58
    5859
    5960/* Fukushima-Williams angles for frame bias and precession. */
     
    7273** 
    7374** 
    74 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     75**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7576**  All rights reserved.
    7677** 
  • trunk/FACT++/erfa/src/pnm80.c

    r18348 r18711  
    5353**     Section 3.3 (p145).
    5454**
    55 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     55**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5656**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5757*/
    5858{
    5959   double rmatp[3][3], rmatn[3][3];
     60
    6061
    6162/* Precession matrix, J2000.0 to date. */
     
    7475** 
    7576** 
    76 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     77**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7778**  All rights reserved.
    7879** 
  • trunk/FACT++/erfa/src/pom00.c

    r18348 r18711  
    4747**     IERS Technical Note No. 32, BKG (2004)
    4848**
    49 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     49**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5050**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5151*/
     
    6464** 
    6565** 
    66 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     66**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6767**  All rights reserved.
    6868** 
  • trunk/FACT++/erfa/src/ppp.c

    r18348 r18711  
    2020**     arguments.
    2121**
    22 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     22**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2323**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2424*/
     
    3434** 
    3535** 
    36 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     36**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3737**  All rights reserved.
    3838** 
  • trunk/FACT++/erfa/src/ppsp.c

    r18348 r18711  
    2424**     eraPpp       p-vector plus p-vector
    2525**
    26 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     26**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2727**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2828*/
    2929{
    3030   double sb[3];
     31
    3132
    3233/* s*b. */
     
    4243** 
    4344** 
    44 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     45**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4546**  All rights reserved.
    4647** 
  • trunk/FACT++/erfa/src/pr00.c

    r18348 r18711  
    6767**     Resolutions", in IERS Workshop 5.1 (2002).
    6868**
    69 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     69**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7070**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7171*/
     
    7676   static const double PRECOR = -0.29965 * ERFA_DAS2R,
    7777                       OBLCOR = -0.02524 * ERFA_DAS2R;
     78
    7879
    7980/* Interval between fundamental epoch J2000.0 and given date (JC). */
     
    9091** 
    9192** 
    92 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     93**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9394**  All rights reserved.
    9495** 
  • trunk/FACT++/erfa/src/prec76.c

    r18348 r18711  
    6767**     (6) & (7), p283.
    6868**
    69 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     69**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7070**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7171*/
    7272{
    7373   double t0, t, tas2r, w;
     74
    7475
    7576/* Interval between fundamental epoch J2000.0 and start date (JC). */
     
    9697** 
    9798** 
    98 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     99**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    99100**  All rights reserved.
    100101** 
  • trunk/FACT++/erfa/src/pv2p.c

    r18348 r18711  
    1818**     eraCp        copy p-vector
    1919**
    20 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     20**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2121**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2222*/
     
    3030** 
    3131** 
    32 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     32**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3333**  All rights reserved.
    3434** 
  • trunk/FACT++/erfa/src/pv2s.c

    r18348 r18711  
    3535**     In such cases zeroes are returned for all three.
    3636**
    37 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     37**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3838**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3939*/
    4040{
    4141   double x, y, z, xd, yd, zd, rxy2, rxy, r2, rtrue, rw, xyp;
     42
    4243
    4344/* Components of position/velocity vector. */
     
    9293** 
    9394** 
    94 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     95**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9596**  All rights reserved.
    9697** 
  • trunk/FACT++/erfa/src/pvdpv.c

    r18348 r18711  
    2626**     eraPdp       scalar product of two p-vectors
    2727**
    28 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     28**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2929**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3030*/
    3131{
    3232   double adbd, addb;
     33
    3334
    3435/* a . b = constant part of result. */
     
    5051** 
    5152** 
    52 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     53**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5354**  All rights reserved.
    5455** 
  • trunk/FACT++/erfa/src/pvm.c

    r18348 r18711  
    1919**     eraPm        modulus of p-vector
    2020**
    21 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     21**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2222**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2323*/
     
    3535** 
    3636** 
    37 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     37**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3838**  All rights reserved.
    3939** 
  • trunk/FACT++/erfa/src/pvmpv.c

    r18348 r18711  
    2323**     eraPmp       p-vector minus p-vector
    2424**
    25 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     25**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2626**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2727*/
     
    3636** 
    3737** 
    38 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     38**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3939**  All rights reserved.
    4040** 
  • trunk/FACT++/erfa/src/pvppv.c

    r18348 r18711  
    2323**     eraPpp       p-vector plus p-vector
    2424**
    25 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     25**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2626**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2727*/
     
    3636** 
    3737** 
    38 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     38**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3939**  All rights reserved.
    4040** 
  • trunk/FACT++/erfa/src/pvstar.c

    r18348 r18711  
    9494**     Stumpff, P., 1985, Astron.Astrophys. 144, 232-240.
    9595**
    96 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     96**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9797**  Derived, with permission, from the SOFA library.  See notes at end of file.
    9898*/
     
    101101          usr[3], ust[3], a, rad, decd, rd;
    102102
     103
    103104/* Isolate the radial component of the velocity (AU/day, inertial). */
    104105   eraPn(pv[0], &r, x);
     
    155156** 
    156157** 
    157 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     158**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    158159**  All rights reserved.
    159160** 
  • trunk/FACT++/erfa/src/pvtob.c

    r18348 r18711  
    6262**     eraTrxp      product of transpose of r-matrix and p-vector
    6363**
    64 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     64**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6565**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6666*/
     
    7070
    7171   double xyzm[3], rpm[3][3], xyz[3], x, y, z, s, c;
     72
    7273
    7374/* Geodetic to geocentric transformation (ERFA_WGS84). */
     
    101102** 
    102103** 
    103 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     104**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    104105**  All rights reserved.
    105106** 
  • trunk/FACT++/erfa/src/pvu.c

    r18348 r18711  
    2929**     eraCp        copy p-vector
    3030**
    31 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     31**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3232**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3333*/
     
    4242** 
    4343** 
    44 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     44**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4545**  All rights reserved.
    4646** 
  • trunk/FACT++/erfa/src/pvup.c

    r18348 r18711  
    2323**  2) The time units of dt must match those of the velocity.
    2424**
    25 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     25**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2626**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2727*/
     
    3737** 
    3838** 
    39 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     39**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4040**  All rights reserved.
    4141** 
  • trunk/FACT++/erfa/src/pvxpv.c

    r18348 r18711  
    3131**     eraPpp       p-vector plus p-vector
    3232**
    33 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     33**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3434**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3535*/
    3636{
    3737   double wa[2][3], wb[2][3], axbd[3], adxb[3];
     38
    3839
    3940/* Make copies of the inputs. */
     
    5556** 
    5657** 
    57 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     58**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5859**  All rights reserved.
    5960** 
  • trunk/FACT++/erfa/src/pxp.c

    r18348 r18711  
    2020**     arguments.
    2121**
    22 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     22**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2323**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2424*/
    2525{
    2626   double xa, ya, za, xb, yb, zb;
     27
    2728
    2829   xa = a[0];
     
    4243** 
    4344** 
    44 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     45**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4546**  All rights reserved.
    4647** 
  • trunk/FACT++/erfa/src/refco.c

    r18348 r18711  
    146146**     Stone, Ronald C., P.A.S.P. 108, 1051-1058, 1996.
    147147**
    148 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     148**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    149149**  Derived, with permission, from the SOFA library.  See notes at end of file.
    150150*/
     
    152152   int optic;
    153153   double p, t, r, w, ps, pw, tk, wlsq, gamma, beta;
     154
    154155
    155156/* Decide whether optical/IR or radio case:  switch at 100 microns. */
     
    201202** 
    202203** 
    203 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     204**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    204205**  All rights reserved.
    205206** 
  • trunk/FACT++/erfa/src/rm2v.c

    r18348 r18711  
    3030**     the rotation vector from the origin.
    3131**
    32 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     32**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3333**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3434*/
     
    6060** 
    6161** 
    62 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     62**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6363**  All rights reserved.
    6464** 
  • trunk/FACT++/erfa/src/rv2m.c

    r18348 r18711  
    2727**     rotation vector from the origin.
    2828**
    29 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     29**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3030**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3131*/
     
    6767** 
    6868** 
    69 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     69**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7070**  All rights reserved.
    7171** 
  • trunk/FACT++/erfa/src/rx.c

    r18348 r18711  
    2929**         (  0   - sin(phi)   + cos(phi)  )
    3030**
    31 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     31**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3232**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3333*/
    3434{
    3535   double s, c, a10, a11, a12, a20, a21, a22;
     36
    3637
    3738   s = sin(phi);
     
    5859** 
    5960** 
    60 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     61**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6162**  All rights reserved.
    6263** 
  • trunk/FACT++/erfa/src/rxp.c

    r18348 r18711  
    2222**     eraCp        copy p-vector
    2323**
    24 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     24**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2525**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2626*/
     
    2828   double w, wrp[3];
    2929   int i, j;
     30
    3031
    3132/* Matrix r * vector p. */
     
    4748** 
    4849** 
    49 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     50**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5051**  All rights reserved.
    5152** 
  • trunk/FACT++/erfa/src/rxpv.c

    r18348 r18711  
    2222**     eraRxp       product of r-matrix and p-vector
    2323**
    24 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     24**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2525**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2626*/
     
    3535** 
    3636** 
    37 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     37**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3838**  All rights reserved.
    3939** 
  • trunk/FACT++/erfa/src/rxr.c

    r18348 r18711  
    2323**     eraCr        copy r-matrix
    2424**
    25 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     25**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2626**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2727*/
     
    2929   int i, j, k;
    3030   double w, wm[3][3];
     31
    3132
    3233   for (i = 0; i < 3; i++) {
     
    4748** 
    4849** 
    49 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     50**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5051**  All rights reserved.
    5152** 
  • trunk/FACT++/erfa/src/ry.c

    r18348 r18711  
    2929**         (  + sin(theta)     0      + cos(theta)  )
    3030**
    31 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     31**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3232**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3333*/
    3434{
    3535   double s, c, a00, a01, a02, a20, a21, a22;
     36
    3637
    3738   s = sin(theta);
     
    5859** 
    5960** 
    60 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     61**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6162**  All rights reserved.
    6263** 
  • trunk/FACT++/erfa/src/rz.c

    r18348 r18711  
    2929**         (       0            0         1  )
    3030**
    31 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     31**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3232**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3333*/
    3434{
    3535   double s, c, a00, a01, a02, a10, a11, a12;
     36
    3637
    3738   s = sin(psi);
     
    5859** 
    5960** 
    60 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     61**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6162**  All rights reserved.
    6263** 
  • trunk/FACT++/erfa/src/s00.c

    r18348 r18711  
    7777**     IERS Technical Note No. 32, BKG (2004)
    7878**
    79 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     79**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8080**  Derived, with permission, from the SOFA library.  See notes at end of file.
    8181*/
     
    320320** 
    321321** 
    322 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     322**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    323323**  All rights reserved.
    324324** 
  • trunk/FACT++/erfa/src/s00a.c

    r18348 r18711  
    7070**     IERS Technical Note No. 32, BKG (2004)
    7171**
    72 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     72**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7373**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7474*/
    7575{
    7676   double rbpn[3][3], x, y, s;
     77
    7778
    7879/* Bias-precession-nutation-matrix, IAU 2000A. */
     
    9192** 
    9293** 
    93 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     94**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9495**  All rights reserved.
    9596** 
  • trunk/FACT++/erfa/src/s00b.c

    r18348 r18711  
    7070**     IERS Technical Note No. 32, BKG (2004)
    7171**
    72 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     72**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7373**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7474*/
    7575{
    7676   double rbpn[3][3], x, y, s;
     77
    7778
    7879/* Bias-precession-nutation-matrix, IAU 2000B. */
     
    9192** 
    9293** 
    93 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     94**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9495**  All rights reserved.
    9596** 
  • trunk/FACT++/erfa/src/s06.c

    r18348 r18711  
    7474**     IERS Technical Note No. 32, BKG
    7575**
    76 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     76**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7777**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7878*/
     
    317317** 
    318318** 
    319 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     319**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    320320**  All rights reserved.
    321321** 
  • trunk/FACT++/erfa/src/s06a.c

    r18348 r18711  
    7272**     Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981
    7373**
    74 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     74**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7575**  Derived, with permission, from the SOFA library.  See notes at end of file.
    7676*/
    7777{
    7878   double rnpb[3][3], x, y, s;
     79
    7980
    8081/* Bias-precession-nutation-matrix, IAU 20006/2000A. */
     
    9394** 
    9495** 
    95 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     96**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9697**  All rights reserved.
    9798** 
  • trunk/FACT++/erfa/src/s2c.c

    r18348 r18711  
    1616**     c        double[3]    direction cosines
    1717**
    18 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     18**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    1919**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2020*/
    2121{
    2222   double cp;
     23
    2324
    2425   cp = cos(phi);
     
    3334** 
    3435** 
    35 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     36**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3637**  All rights reserved.
    3738** 
  • trunk/FACT++/erfa/src/s2p.c

    r18348 r18711  
    2121**     eraSxp       multiply p-vector by scalar
    2222**
    23 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     23**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2424**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2525*/
    2626{
    2727   double u[3];
     28
    2829
    2930   eraS2c(theta, phi, u);
     
    3637** 
    3738** 
    38 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     39**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3940**  All rights reserved.
    4041** 
  • trunk/FACT++/erfa/src/s2pv.c

    r18348 r18711  
    2222**     pv       double[2][3]    pv-vector
    2323**
    24 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     24**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2525**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2626*/
    2727{
    2828   double st, ct, sp, cp, rcp, x, y, rpd, w;
     29
    2930
    3031   st = sin(theta);
     
    5152** 
    5253** 
    53 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     54**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5455**  All rights reserved.
    5556** 
  • trunk/FACT++/erfa/src/s2xpv.c

    r18348 r18711  
    2323**     eraSxp       multiply p-vector by scalar
    2424**
    25 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     25**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2626**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2727*/
     
    3636** 
    3737** 
    38 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     38**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3939**  All rights reserved.
    4040** 
  • trunk/FACT++/erfa/src/sepp.c

    r18348 r18711  
    3131**     eraPdp       scalar product of two p-vectors
    3232**
    33 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     33**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3434**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3535*/
    3636{
    3737   double axb[3], ss, cs, s;
     38
    3839
    3940/* Sine of angle between the vectors, multiplied by the two moduli. */
     
    5354** 
    5455** 
    55 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     56**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5657**  All rights reserved.
    5758** 
  • trunk/FACT++/erfa/src/seps.c

    r18348 r18711  
    2222**     eraSepp      angular separation between two p-vectors
    2323**
    24 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     24**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2525**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2626*/
    2727{
    2828   double ac[3], bc[3], s;
     29
    2930
    3031/* Spherical to Cartesian. */
     
    4142** 
    4243** 
    43 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     44**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4445**  All rights reserved.
    4546** 
  • trunk/FACT++/erfa/src/sp00.c

    r18348 r18711  
    4848**     IERS Technical Note No. 32, BKG (2004)
    4949**
    50 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     50**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5151**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5252*/
    5353{
    5454   double t, sp;
     55
    5556
    5657/* Interval between fundamental epoch J2000.0 and current date (JC). */
     
    6667** 
    6768** 
    68 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     69**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6970**  All rights reserved.
    7071** 
  • trunk/FACT++/erfa/src/starpm.c

    r18348 r18711  
    107107**     eraPvstar    space motion pv-vector to star catalog data
    108108**
    109 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     109**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    110110**  Derived, with permission, from the SOFA library.  See notes at end of file.
    111111*/
     
    114114          pv2[2][3];
    115115   int j1, j2, j;
     116
    116117
    117118/* RA,Dec etc. at the "before" epoch to space motion pv-vector. */
     
    153154** 
    154155** 
    155 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     156**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    156157**  All rights reserved.
    157158** 
  • trunk/FACT++/erfa/src/starpv.c

    r18348 r18711  
    114114**     Stumpff, P., 1985, Astron.Astrophys. 144, 232-240.
    115115**
    116 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     116**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    117117**  Derived, with permission, from the SOFA library.  See notes at end of file.
    118118*/
     
    134134          odd = 0.0, oddel = 0.0,   /* compiler   */
    135135          od = 0.0, odel = 0.0;     /* warnings   */
     136
    136137
    137138/* Distance (AU). */
     
    212213** 
    213214** 
    214 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     215**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    215216**  All rights reserved.
    216217** 
  • trunk/FACT++/erfa/src/sxp.c

    r18348 r18711  
    1919**     It is permissible for p and sp to be the same array.
    2020**
    21 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     21**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2222**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2323*/
     
    3333** 
    3434** 
    35 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     35**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3636**  All rights reserved.
    3737** 
  • trunk/FACT++/erfa/src/sxpv.c

    r18348 r18711  
    2222**     eraS2xpv     multiply pv-vector by two scalars
    2323**
    24 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     24**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2525**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2626*/
     
    3434** 
    3535** 
    36 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     36**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3737**  All rights reserved.
    3838** 
  • trunk/FACT++/erfa/src/t_erfa_c.c

    r18348 r18711  
    1818**  All messages go to stdout.
    1919**
    20 **  This revision:  2015 January 30
     20**  This revision:  2016 July 11
    2121**
    2222*/
     
    7777**     status   int          set to TRUE if test fails
    7878**
    79 **  This revision:  2013 August 7
     79**  This revision:  2016 April 21
    8080*/
    8181{
     
    8484
    8585   a = val - valok;
    86    if (fabs(a) > dval) {
     86   if (a != 0.0 && fabs(a) > fabs(dval)) {
    8787      f = fabs(valok / a);
    8888      *status = 1;
     
    29032903**  Called:  eraDat, vvd, viv
    29042904**
    2905 **  This revision:  2015 January 30
     2905**  This revision:  2016 July 11
    29062906*/
    29072907{
     
    29202920   viv(j, 0, "eraDat", "j2", status);
    29212921
    2922    j = eraDat(2015, 9, 1, 0.0, &deltat);
    2923 
    2924    vvd(deltat, 36.0, 0.0, "eraDat", "d3", status);
     2922   j = eraDat(2017, 9, 1, 0.0, &deltat);
     2923
     2924   vvd(deltat, 37.0, 0.0, "eraDat", "d3", status);
    29252925   viv(j, 0, "eraDat", "j3", status);
    29262926
     
    29792979}
    29802980
     2981static void t_eceq06(int *status)
     2982/*
     2983**  - - - - -
     2984**   t _ e c e q 0 6
     2985**  - - - - -
     2986**
     2987**  Test eraEceq06 function.
     2988**
     2989**  Returned:
     2990**     status    int         FALSE = success, TRUE = fail
     2991**
     2992**  Called:  eraEceq06, vvd
     2993**
     2994**  This revision:  2016 March 12
     2995*/
     2996{
     2997   double date1, date2, dl, db, dr, dd;
     2998
     2999
     3000   date1 = 2456165.5;
     3001   date2 = 0.401182685;
     3002   dl = 5.1;
     3003   db = -0.9;
     3004
     3005   eraEceq06(date1, date2, dl, db, &dr, &dd);
     3006
     3007   vvd(dr, 5.533459733613627767, 1e-14, "eraEceq06", "dr", status);
     3008   vvd(dd, -1.246542932554480576, 1e-14, "eraEceq06", "dd", status);
     3009
     3010}
     3011
     3012static void t_ecm06(int *status)
     3013/*
     3014**  - - - - - - - -
     3015**   t _ e c m 0 6
     3016**  - - - - - - - -
     3017**
     3018**  Test eraEcm06 function.
     3019**
     3020**  Returned:
     3021**     status    int         FALSE = success, TRUE = fail
     3022**
     3023**  Called:  eraEcm06, vvd
     3024**
     3025**  This revision:  2016 March 12
     3026*/
     3027{
     3028   double date1, date2, rm[3][3];
     3029
     3030
     3031   date1 = 2456165.5;
     3032   date2 = 0.401182685;
     3033
     3034   eraEcm06(date1, date2, rm);
     3035
     3036   vvd(rm[0][0], 0.9999952427708701137, 1e-14,
     3037       "eraEcm06", "rm11", status);
     3038   vvd(rm[0][1], -0.2829062057663042347e-2, 1e-14,
     3039       "eraEcm06", "rm12", status);
     3040   vvd(rm[0][2], -0.1229163741100017629e-2, 1e-14,
     3041       "eraEcm06", "rm13", status);
     3042   vvd(rm[1][0], 0.3084546876908653562e-2, 1e-14,
     3043       "eraEcm06", "rm21", status);
     3044   vvd(rm[1][1], 0.9174891871550392514, 1e-14,
     3045       "eraEcm06", "rm22", status);
     3046   vvd(rm[1][2], 0.3977487611849338124, 1e-14,
     3047       "eraEcm06", "rm23", status);
     3048   vvd(rm[2][0], 0.2488512951527405928e-5, 1e-14,
     3049       "eraEcm06", "rm31", status);
     3050   vvd(rm[2][1], -0.3977506604161195467, 1e-14,
     3051       "eraEcm06", "rm32", status);
     3052   vvd(rm[2][2], 0.9174935488232863071, 1e-14,
     3053       "eraEcm06", "rm33", status);
     3054
     3055}
     3056
    29813057static void t_ee00(int *status)
    29823058/*
     
    31193195**  Called:  eraEform, viv, vvd
    31203196**
    3121 **  This revision:  2013 August 7
     3197**  This revision:  2016 March 12
    31223198*/
    31233199{
     
    31333209   viv(j, 0, "eraEform", "j1", status);
    31343210   vvd(a, 6378137.0, 1e-10, "eraEform", "a1", status);
    3135    vvd(f, 0.0033528106647474807, 1e-18, "eraEform", "f1", status);
     3211   vvd(f, 0.3352810664747480720e-2, 1e-18, "eraEform", "f1", status);
    31363212
    31373213   j = eraEform(ERFA_GRS80, &a, &f);
     
    31393215   viv(j, 0, "eraEform", "j2", status);
    31403216   vvd(a, 6378137.0, 1e-10, "eraEform", "a2", status);
    3141    vvd(f, 0.0033528106811823189, 1e-18, "eraEform", "f2", status);
     3217   vvd(f, 0.3352810681182318935e-2, 1e-18, "eraEform", "f2", status);
    31423218
    31433219   j = eraEform(ERFA_WGS72, &a, &f);
     
    31453221   viv(j, 0, "eraEform", "j2", status);
    31463222   vvd(a, 6378135.0, 1e-10, "eraEform", "a3", status);
    3147    vvd(f, 0.0033527794541675049, 1e-18, "eraEform", "f3", status);
     3223   vvd(f, 0.3352779454167504862e-2, 1e-18, "eraEform", "f3", status);
    31483224
    31493225   j = eraEform(4, &a, &f);
     
    33723448
    33733449   viv(j, 0, "eraEpv00", "j", status);
     3450
     3451}
     3452
     3453static void t_eqec06(int *status)
     3454/*
     3455**  - - - - - - - - -
     3456**   t _ e q e c 0 6
     3457**  - - - - - - - - -
     3458**
     3459**  Test eraEqec06 function.
     3460**
     3461**  Returned:
     3462**     status    int         FALSE = success, TRUE = fail
     3463**
     3464**  Called:  eraEqec06, vvd
     3465**
     3466**  This revision:  2016 March 12
     3467*/
     3468{
     3469   double date1, date2, dr, dd, dl, db;
     3470
     3471
     3472   date1 = 1234.5;
     3473   date2 = 2440000.5;
     3474   dr = 1.234;
     3475   dd = 0.987;
     3476
     3477   eraEqec06(date1, date2, dr, dd, &dl, &db);
     3478
     3479   vvd(dl, 1.342509918994654619, 1e-14, "eraEqec06", "dl", status);
     3480   vvd(db, 0.5926215259704608132, 1e-14, "eraEqec06", "db", status);
    33743481
    33753482}
     
    39454052**  Called:  eraGc2gd, viv, vvd
    39464053**
    3947 **  This revision:  2013 August 7
     4054**  This revision:  2016 March 12
    39484055*/
    39494056{
     
    39594066
    39604067   viv(j, 0, "eraGc2gd", "j1", status);
    3961    vvd(e, 0.98279372324732907, 1e-14, "eraGc2gd", "e1", status);
     4068   vvd(e, 0.9827937232473290680, 1e-14, "eraGc2gd", "e1", status);
    39624069   vvd(p, 0.97160184819075459, 1e-14, "eraGc2gd", "p1", status);
    3963    vvd(h, 331.41724614260599, 1e-8, "eraGc2gd", "h1", status);
     4070   vvd(h, 331.4172461426059892, 1e-8, "eraGc2gd", "h1", status);
    39644071
    39654072   j = eraGc2gd(ERFA_GRS80, xyz, &e, &p, &h);
    39664073
    39674074   viv(j, 0, "eraGc2gd", "j2", status);
    3968    vvd(e, 0.98279372324732907, 1e-14, "eraGc2gd", "e2", status);
     4075   vvd(e, 0.9827937232473290680, 1e-14, "eraGc2gd", "e2", status);
    39694076   vvd(p, 0.97160184820607853, 1e-14, "eraGc2gd", "p2", status);
    39704077   vvd(h, 331.41731754844348, 1e-8, "eraGc2gd", "h2", status);
     
    39734080
    39744081   viv(j, 0, "eraGc2gd", "j3", status);
    3975    vvd(e, 0.98279372324732907, 1e-14, "eraGc2gd", "e3", status);
    3976    vvd(p, 0.97160181811015119, 1e-14, "eraGc2gd", "p3", status);
    3977    vvd(h, 333.27707261303181, 1e-8, "eraGc2gd", "h3", status);
     4082   vvd(e, 0.9827937232473290680, 1e-14, "eraGc2gd", "e3", status);
     4083   vvd(p, 0.9716018181101511937, 1e-14, "eraGc2gd", "p3", status);
     4084   vvd(h, 333.2770726130318123, 1e-8, "eraGc2gd", "h3", status);
    39784085
    39794086   j = eraGc2gd(4, xyz, &e, &p, &h);
     
    39954102**  Called:  eraGc2gde, viv, vvd
    39964103**
    3997 **  This revision:  2013 August 7
     4104**  This revision:  2016 March 12
    39984105*/
    39994106{
     
    40064113
    40074114   viv(j, 0, "eraGc2gde", "j", status);
    4008    vvd(e, 0.98279372324732907, 1e-14, "eraGc2gde", "e", status);
    4009    vvd(p, 0.97160183775704115, 1e-14, "eraGc2gde", "p", status);
     4115   vvd(e, 0.9827937232473290680, 1e-14, "eraGc2gde", "e", status);
     4116   vvd(p, 0.9716018377570411532, 1e-14, "eraGc2gde", "p", status);
    40104117   vvd(h, 332.36862495764397, 1e-8, "eraGc2gde", "h", status);
    40114118}
     
    40244131**  Called:  eraGd2gc, viv, vvd
    40254132**
    4026 **  This revision:  2013 August 7
     4133**  This revision:  2016 March 12
    40274134*/
    40284135{
     
    40384145
    40394146   viv(j, 0, "eraGd2gc", "j1", status);
    4040    vvd(xyz[0], -5599000.5577049947, 1e-7, "eraGd2gc", "0/1", status);
    4041    vvd(xyz[1], 233011.67223479203, 1e-7, "eraGd2gc", "1/1", status);
    4042    vvd(xyz[2], -3040909.4706983363, 1e-7, "eraGd2gc", "2/1", status);
     4147   vvd(xyz[0], -5599000.5577049947, 1e-7, "eraGd2gc", "1/1", status);
     4148   vvd(xyz[1], 233011.67223479203, 1e-7, "eraGd2gc", "2/1", status);
     4149   vvd(xyz[2], -3040909.4706983363, 1e-7, "eraGd2gc", "3/1", status);
    40434150
    40444151   j = eraGd2gc(ERFA_GRS80, e, p, h, xyz);
    40454152
    40464153   viv(j, 0, "eraGd2gc", "j2", status);
    4047    vvd(xyz[0], -5599000.5577260984, 1e-7, "eraGd2gc", "0/2", status);
    4048    vvd(xyz[1], 233011.6722356703, 1e-7, "eraGd2gc", "1/2", status);
    4049    vvd(xyz[2], -3040909.4706095476, 1e-7, "eraGd2gc", "2/2", status);
     4154   vvd(xyz[0], -5599000.5577260984, 1e-7, "eraGd2gc", "1/2", status);
     4155   vvd(xyz[1], 233011.6722356702949, 1e-7, "eraGd2gc", "2/2", status);
     4156   vvd(xyz[2], -3040909.4706095476, 1e-7, "eraGd2gc", "3/2", status);
    40504157
    40514158   j = eraGd2gc(ERFA_WGS72, e, p, h, xyz);
    40524159
    40534160   viv(j, 0, "eraGd2gc", "j3", status);
    4054    vvd(xyz[0], -5598998.7626301490, 1e-7, "eraGd2gc", "0/3", status);
    4055    vvd(xyz[1], 233011.5975297822, 1e-7, "eraGd2gc", "1/3", status);
    4056    vvd(xyz[2], -3040908.6861467111, 1e-7, "eraGd2gc", "2/3", status);
     4161   vvd(xyz[0], -5598998.7626301490, 1e-7, "eraGd2gc", "1/3", status);
     4162   vvd(xyz[1], 233011.5975297822211, 1e-7, "eraGd2gc", "2/3", status);
     4163   vvd(xyz[2], -3040908.6861467111, 1e-7, "eraGd2gc", "3/3", status);
    40574164
    40584165   j = eraGd2gc(4, e, p, h, xyz);
     
    40744181**  Called:  eraGd2gce, viv, vvd
    40754182**
    4076 **  This revision:  2013 August 7
     4183**  This revision:  2016 March 12
    40774184*/
    40784185{
     
    40854192
    40864193   viv(j, 0, "eraGd2gce", "j", status);
    4087    vvd(xyz[0], -5598999.6665116328, 1e-7, "eraGd2gce", "0", status);
    4088    vvd(xyz[1], 233011.63514630572, 1e-7, "eraGd2gce", "1", status);
    4089    vvd(xyz[2], -3040909.0517314132, 1e-7, "eraGd2gce", "2", status);
     4194   vvd(xyz[0], -5598999.6665116328, 1e-7, "eraGd2gce", "1", status);
     4195   vvd(xyz[1], 233011.6351463057189, 1e-7, "eraGd2gce", "2", status);
     4196   vvd(xyz[2], -3040909.0517314132, 1e-7, "eraGd2gce", "3", status);
    40904197}
    40914198
     
    46634770   vvd(p1[2], -0.2167355419322321302, 1e-12,
    46644771               "eraLdsun", "3", status);
     4772
     4773}
     4774
     4775static void t_lteceq(int *status)
     4776/*
     4777**  - - - - - - - - -
     4778**   t _ l t e c e q
     4779**  - - - - - - - - -
     4780**
     4781**  Test eraLteceq function.
     4782**
     4783**  Returned:
     4784**     status    int         FALSE = success, TRUE = fail
     4785**
     4786**  Called:  eraLteceq, vvd
     4787**
     4788**  This revision:  2016 March 12
     4789*/
     4790{
     4791   double epj, dl, db, dr, dd;
     4792
     4793
     4794   epj = 2500.0;
     4795   dl = 1.5;
     4796   db = 0.6;
     4797
     4798   eraLteceq(epj, dl, db, &dr, &dd);
     4799
     4800   vvd(dr, 1.275156021861921167, 1e-14, "eraLteceq", "dr", status);
     4801   vvd(dd, 0.9966573543519204791, 1e-14, "eraLteceq", "dd", status);
     4802
     4803}
     4804
     4805static void t_ltecm(int *status)
     4806/*
     4807**  - - - - - - - -
     4808**   t _ l t e c m
     4809**  - - - - - - - -
     4810**
     4811**  Test eraLtecm function.
     4812**
     4813**  Returned:
     4814**     status    int         FALSE = success, TRUE = fail
     4815**
     4816**  Called:  eraLtecm, vvd
     4817**
     4818**  This revision:  2016 March 12
     4819*/
     4820{
     4821   double epj, rm[3][3];
     4822
     4823
     4824   epj = -3000.0;
     4825
     4826   eraLtecm(epj, rm);
     4827
     4828   vvd(rm[0][0], 0.3564105644859788825, 1e-14,
     4829       "eraLtecm", "rm11", status);
     4830   vvd(rm[0][1], 0.8530575738617682284, 1e-14,
     4831       "eraLtecm", "rm12", status);
     4832   vvd(rm[0][2], 0.3811355207795060435, 1e-14,
     4833       "eraLtecm", "rm13", status);
     4834   vvd(rm[1][0], -0.9343283469640709942, 1e-14,
     4835       "eraLtecm", "rm21", status);
     4836   vvd(rm[1][1], 0.3247830597681745976, 1e-14,
     4837       "eraLtecm", "rm22", status);
     4838   vvd(rm[1][2], 0.1467872751535940865, 1e-14,
     4839       "eraLtecm", "rm23", status);
     4840   vvd(rm[2][0], 0.1431636191201167793e-2, 1e-14,
     4841       "eraLtecm", "rm31", status);
     4842   vvd(rm[2][1], -0.4084222566960599342, 1e-14,
     4843       "eraLtecm", "rm32", status);
     4844   vvd(rm[2][2], 0.9127919865189030899, 1e-14,
     4845       "eraLtecm", "rm33", status);
     4846
     4847}
     4848
     4849static void t_lteqec(int *status)
     4850/*
     4851**  - - - - - - - - -
     4852**   t _ l t e q e c
     4853**  - - - - - - - - -
     4854**
     4855**  Test eraLteqec function.
     4856**
     4857**  Returned:
     4858**     status    int         FALSE = success, TRUE = fail
     4859**
     4860**  Called:  eraLteqec, vvd
     4861**
     4862**  This revision:  2016 March 12
     4863*/
     4864{
     4865   double epj, dr, dd, dl, db;
     4866
     4867
     4868   epj = -1500.0;
     4869   dr = 1.234;
     4870   dd = 0.987;
     4871
     4872   eraLteqec(epj, dr, dd, &dl, &db);
     4873
     4874   vvd(dl, 0.5039483649047114859, 1e-14, "eraLteqec", "dl", status);
     4875   vvd(db, 0.5848534459726224882, 1e-14, "eraLteqec", "db", status);
     4876
     4877}
     4878
     4879static void t_ltp(int *status)
     4880/*
     4881**  - - - - - -
     4882**   t _ l t p
     4883**  - - - - - -
     4884**
     4885**  Test eraLtp function.
     4886**
     4887**  Returned:
     4888**     status    int         FALSE = success, TRUE = fail
     4889**
     4890**  Called:  eraLtp, vvd
     4891**
     4892**  This revision:  2016 March 12
     4893*/
     4894{
     4895   double epj, rp[3][3];
     4896
     4897
     4898   epj = 1666.666;
     4899
     4900   eraLtp(epj, rp);
     4901
     4902   vvd(rp[0][0], 0.9967044141159213819, 1e-14,
     4903       "eraLtp", "rp11", status);
     4904   vvd(rp[0][1], 0.7437801893193210840e-1, 1e-14,
     4905       "eraLtp", "rp12", status);
     4906   vvd(rp[0][2], 0.3237624409345603401e-1, 1e-14,
     4907       "eraLtp", "rp13", status);
     4908   vvd(rp[1][0], -0.7437802731819618167e-1, 1e-14,
     4909       "eraLtp", "rp21", status);
     4910   vvd(rp[1][1], 0.9972293894454533070, 1e-14,
     4911       "eraLtp", "rp22", status);
     4912   vvd(rp[1][2], -0.1205768842723593346e-2, 1e-14,
     4913       "eraLtp", "rp23", status);
     4914   vvd(rp[2][0], -0.3237622482766575399e-1, 1e-14,
     4915       "eraLtp", "rp31", status);
     4916   vvd(rp[2][1], -0.1206286039697609008e-2, 1e-14,
     4917       "eraLtp", "rp32", status);
     4918   vvd(rp[2][2], 0.9994750246704010914, 1e-14,
     4919       "eraLtp", "rp33", status);
     4920
     4921}
     4922
     4923static void t_ltpb(int *status)
     4924/*
     4925**  - - - - - - -
     4926**   t _ l t p b
     4927**  - - - - - - -
     4928**
     4929**  Test eraLtpb function.
     4930**
     4931**  Returned:
     4932**     status    int         FALSE = success, TRUE = fail
     4933**
     4934**  Called:  eraLtpb, vvd
     4935**
     4936**  This revision:  2016 March 12
     4937*/
     4938{
     4939   double epj, rpb[3][3];
     4940
     4941
     4942   epj = 1666.666;
     4943
     4944   eraLtpb(epj, rpb);
     4945
     4946   vvd(rpb[0][0], 0.9967044167723271851, 1e-14,
     4947       "eraLtpb", "rpb11", status);
     4948   vvd(rpb[0][1], 0.7437794731203340345e-1, 1e-14,
     4949       "eraLtpb", "rpb12", status);
     4950   vvd(rpb[0][2], 0.3237632684841625547e-1, 1e-14,
     4951       "eraLtpb", "rpb13", status);
     4952   vvd(rpb[1][0], -0.7437795663437177152e-1, 1e-14,
     4953       "eraLtpb", "rpb21", status);
     4954   vvd(rpb[1][1], 0.9972293947500013666, 1e-14,
     4955       "eraLtpb", "rpb22", status);
     4956   vvd(rpb[1][2], -0.1205741865911243235e-2, 1e-14,
     4957       "eraLtpb", "rpb23", status);
     4958   vvd(rpb[2][0], -0.3237630543224664992e-1, 1e-14,
     4959       "eraLtpb", "rpb31", status);
     4960   vvd(rpb[2][1], -0.1206316791076485295e-2, 1e-14,
     4961       "eraLtpb", "rpb32", status);
     4962   vvd(rpb[2][2], 0.9994750220222438819, 1e-14,
     4963       "eraLtpb", "rpb33", status);
     4964
     4965}
     4966
     4967static void t_ltpecl(int *status)
     4968/*
     4969**  - - - - - - - - -
     4970**   t _ l t p e c l
     4971**  - - - - - - - - -
     4972**
     4973**  Test eraLtpecl function.
     4974**
     4975**  Returned:
     4976**     status    int         FALSE = success, TRUE = fail
     4977**
     4978**  Called:  eraLtpecl, vvd
     4979**
     4980**  This revision:  2016 March 12
     4981*/
     4982{
     4983   double epj, vec[3];
     4984
     4985
     4986   epj = -1500.0;
     4987
     4988   eraLtpecl(epj, vec);
     4989
     4990   vvd(vec[0], 0.4768625676477096525e-3, 1e-14,
     4991       "eraLtpecl", "vec1", status);
     4992   vvd(vec[1], -0.4052259533091875112, 1e-14,
     4993       "eraLtpecl", "vec2", status);
     4994   vvd(vec[2], 0.9142164401096448012, 1e-14,
     4995       "eraLtpecl", "vec3", status);
     4996
     4997}
     4998
     4999static void t_ltpequ(int *status)
     5000/*
     5001**  - - - - - - - - -
     5002**   t _ l t p e q u
     5003**  - - - - - - - - -
     5004**
     5005**  Test eraLtpequ function.
     5006**
     5007**  Returned:
     5008**     status    int         FALSE = success, TRUE = fail
     5009**
     5010**  Called:  eraLtpequ, vvd
     5011**
     5012**  This revision:  2016 March 12
     5013*/
     5014{
     5015   double epj, veq[3];
     5016
     5017
     5018   epj = -2500.0;
     5019
     5020   eraLtpequ(epj, veq);
     5021
     5022   vvd(veq[0], -0.3586652560237326659, 1e-14,
     5023       "eraLtpequ", "veq1", status);
     5024   vvd(veq[1], -0.1996978910771128475, 1e-14,
     5025       "eraLtpequ", "veq2", status);
     5026   vvd(veq[2], 0.9118552442250819624, 1e-14,
     5027       "eraLtpequ", "veq3", status);
    46655028
    46665029}
     
    90609423**  - - - - -
    90619424**
    9062 **  This revision:  2013 October 3
     9425**  This revision:  2016 March 12
    90639426*/
    90649427{
     
    91349497   t_dtdb(&status);
    91359498   t_dtf2d(&status);
     9499   t_eceq06(&status);
     9500   t_ecm06(&status);
    91369501   t_ee00(&status);
    91379502   t_ee00a(&status);
     
    91479512   t_epj2jd(&status);
    91489513   t_epv00(&status);
     9514   t_eqec06(&status);
    91499515   t_eqeq94(&status);
    91509516   t_era00(&status);
     
    91909556   t_ldn(&status);
    91919557   t_ldsun(&status);
     9558   t_lteceq(&status);
     9559   t_ltecm(&status);
     9560   t_lteqec(&status);
     9561   t_ltp(&status);
     9562   t_ltpb(&status);
     9563   t_ltpecl(&status);
     9564   t_ltpequ(&status);
    91929565   t_num00a(&status);
    91939566   t_num00b(&status);
     
    93099682** 
    93109683** 
    9311 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     9684**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    93129685**  All rights reserved.
    93139686** 
  • trunk/FACT++/erfa/src/taitt.c

    r18348 r18711  
    3434**     P. Kenneth Seidelmann (ed), University Science Books (1992)
    3535**
    36 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     36**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3737**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3838*/
     
    4141/* TT minus TAI (days). */
    4242   static const double dtat = ERFA_TTMTAI/ERFA_DAYSEC;
     43
    4344
    4445/* Result, safeguarding precision. */
     
    5859** 
    5960** 
    60 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     61**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6162**  All rights reserved.
    6263** 
  • trunk/FACT++/erfa/src/taiut1.c

    r18348 r18711  
    3636**     P. Kenneth Seidelmann (ed), University Science Books (1992)
    3737**
    38 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     38**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3939**  Derived, with permission, from the SOFA library.  See notes at end of file.
    4040*/
    4141{
    4242   double dtad;
     43
    4344
    4445/* Result, safeguarding precision. */
     
    5960** 
    6061** 
    61 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     62**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6263**  All rights reserved.
    6364** 
  • trunk/FACT++/erfa/src/taiutc.c

    r18348 r18711  
    5757**     P. Kenneth Seidelmann (ed), University Science Books (1992)
    5858**
    59 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     59**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6060**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6161*/
     
    6464   int i, j;
    6565   double a1, a2, u1, u2, g1, g2;
     66
    6667
    6768/* Put the two parts of the TAI into big-first order. */
     
    107108** 
    108109** 
    109 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     110**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    110111**  All rights reserved.
    111112** 
  • trunk/FACT++/erfa/src/tcbtdb.c

    r18348 r18711  
    4848**     IAU 2006 Resolution B3
    4949**
    50 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     50**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5151**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5252*/
     
    6161
    6262   double d;
     63
    6364
    6465/* Result, safeguarding precision. */
     
    8081** 
    8182** 
    82 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     83**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8384**  All rights reserved.
    8485** 
  • trunk/FACT++/erfa/src/tcgtt.c

    r18348 r18711  
    3333**     IAU 2000 Resolution B1.9
    3434**
    35 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     35**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3636**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3737*/
     
    4040/* 1977 Jan 1 00:00:32.184 TT, as MJD */
    4141   static const double t77t = ERFA_DJM77 + ERFA_TTMTAI/ERFA_DAYSEC;
     42
    4243
    4344/* Result, safeguarding precision. */
     
    5758** 
    5859** 
    59 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     60**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6061**  All rights reserved.
    6162** 
  • trunk/FACT++/erfa/src/tdbtcb.c

    r18348 r18711  
    4848**     IAU 2006 Resolution B3
    4949**
    50 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     50**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5151**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5252*/
     
    6464
    6565   double d, f;
     66
    6667
    6768/* Result, preserving date format but safeguarding precision. */
     
    8586** 
    8687** 
    87 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     88**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8889**  All rights reserved.
    8990** 
  • trunk/FACT++/erfa/src/tdbtt.c

    r18348 r18711  
    4646**     IAU 2006 Resolution 3
    4747**
    48 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     48**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4949**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5050*/
    5151{
    5252   double dtrd;
     53
    5354
    5455/* Result, safeguarding precision. */
     
    6970** 
    7071** 
    71 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     72**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7273**  All rights reserved.
    7374** 
  • trunk/FACT++/erfa/src/tf2a.c

    r18348 r18711  
    3535**      first, the smallest taking precedence.
    3636**
    37 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     37**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3838**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3939*/
     
    5656** 
    5757** 
    58 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     58**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5959**  All rights reserved.
    6060** 
  • trunk/FACT++/erfa/src/tf2d.c

    r18348 r18711  
    3535**      first, the smallest taking precedence.
    3636**
    37 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     37**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3838**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3939*/
     
    5656** 
    5757** 
    58 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     58**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    5959**  All rights reserved.
    6060** 
  • trunk/FACT++/erfa/src/tr.c

    r18348 r18711  
    2121**     eraCr        copy r-matrix
    2222**
    23 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     23**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2424**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2525*/
     
    2727   double wm[3][3];
    2828   int i, j;
     29
    2930
    3031   for (i = 0; i < 3; i++) {
     
    4142** 
    4243** 
    43 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     44**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4445**  All rights reserved.
    4546** 
  • trunk/FACT++/erfa/src/trxp.c

    r18348 r18711  
    2323**     eraRxp       product of r-matrix and p-vector
    2424**
    25 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     25**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2626**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2727*/
    2828{
    2929   double tr[3][3];
     30
    3031
    3132/* Transpose of matrix r. */
     
    4142** 
    4243** 
    43 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     44**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4445**  All rights reserved.
    4546** 
  • trunk/FACT++/erfa/src/trxpv.c

    r18348 r18711  
    2323**     eraRxpv      product of r-matrix and pv-vector
    2424**
    25 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     25**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2626**  Derived, with permission, from the SOFA library.  See notes at end of file.
    2727*/
    2828{
    2929   double tr[3][3];
     30
    3031
    3132/* Transpose of matrix r. */
     
    4142** 
    4243** 
    43 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     44**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4445**  All rights reserved.
    4546** 
  • trunk/FACT++/erfa/src/tttai.c

    r18348 r18711  
    3434**     P. Kenneth Seidelmann (ed), University Science Books (1992)
    3535**
    36 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     36**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3737**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3838*/
     
    4141/* TT minus TAI (days). */
    4242   static const double dtat = ERFA_TTMTAI/ERFA_DAYSEC;
     43
    4344
    4445/* Result, safeguarding precision. */
     
    5859** 
    5960** 
    60 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     61**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6162**  All rights reserved.
    6263** 
  • trunk/FACT++/erfa/src/tttcg.c

    r18348 r18711  
    3333**     IAU 2000 Resolution B1.9
    3434**
    35 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     35**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3636**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3737*/
     
    4343/* TT to TCG rate */
    4444   static const double elgg = ERFA_ELG/(1.0-ERFA_ELG);
     45
    4546
    4647/* Result, safeguarding precision. */
     
    6061** 
    6162** 
    62 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     63**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6364**  All rights reserved.
    6465** 
  • trunk/FACT++/erfa/src/tttdb.c

    r18348 r18711  
    4646**     IAU 2006 Resolution 3
    4747**
    48 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     48**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    4949**  Derived, with permission, from the SOFA library.  See notes at end of file.
    5050*/
    5151{
    5252   double dtrd;
     53
    5354
    5455/* Result, safeguarding precision. */
     
    6970** 
    7071** 
    71 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     72**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    7273**  All rights reserved.
    7374** 
  • trunk/FACT++/erfa/src/ttut1.c

    r18348 r18711  
    3535**     P. Kenneth Seidelmann (ed), University Science Books (1992)
    3636**
    37 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     37**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3838**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3939*/
    4040{
    4141   double dtd;
     42
    4243
    4344/* Result, safeguarding precision. */
     
    5859** 
    5960** 
    60 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     61**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6162**  All rights reserved.
    6263** 
  • trunk/FACT++/erfa/src/ut1tai.c

    r18348 r18711  
    3636**     P. Kenneth Seidelmann (ed), University Science Books (1992)
    3737**
    38 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     38**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3939**  Derived, with permission, from the SOFA library.  See notes at end of file.
    4040*/
    4141{
    4242   double dtad;
     43
    4344
    4445/* Result, safeguarding precision. */
     
    5960** 
    6061** 
    61 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     62**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6263**  All rights reserved.
    6364** 
  • trunk/FACT++/erfa/src/ut1tt.c

    r18348 r18711  
    3535**     P. Kenneth Seidelmann (ed), University Science Books (1992)
    3636**
    37 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     37**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3838**  Derived, with permission, from the SOFA library.  See notes at end of file.
    3939*/
    4040{
    4141   double dtd;
     42
    4243
    4344/* Result, safeguarding precision. */
     
    5859** 
    5960** 
    60 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     61**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6162**  All rights reserved.
    6263** 
  • trunk/FACT++/erfa/src/ut1utc.c

    r18348 r18711  
    6363**     P. Kenneth Seidelmann (ed), University Science Books (1992)
    6464**
    65 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     65**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6666**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6767*/
     
    7070   int i, iy, im, id, js;
    7171   double duts, u1, u2, d1, dats1, d2, fd, dats2, ddats, us1, us2, du;
     72
    7273
    7374/* UT1-UTC in seconds. */
     
    141142** 
    142143** 
    143 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     144**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    144145**  All rights reserved.
    145146** 
  • trunk/FACT++/erfa/src/utctai.c

    r18348 r18711  
    5959**     P. Kenneth Seidelmann (ed), University Science Books (1992)
    6060**
    61 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     61**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6262**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6363*/
     
    6666   int iy, im, id, j, iyt, imt, idt;
    6767   double u1, u2, fd, dat0, dat12, w, dat24, dlod, dleap, z1, z2, a2;
     68
    6869
    6970/* Put the two parts of the UTC into big-first order. */
     
    125126** 
    126127** 
    127 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     128**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    128129**  All rights reserved.
    129130** 
  • trunk/FACT++/erfa/src/utcut1.c

    r18348 r18711  
    6464**     eraTaiut1    TAI to UT1
    6565**
    66 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     66**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6767**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6868*/
     
    7070   int iy, im, id, js, jw;
    7171   double w, dat, dta, tai1, tai2;
     72
    7273
    7374/* Look up TAI-UTC. */
     
    9596** 
    9697** 
    97 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     98**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    9899**  All rights reserved.
    99100** 
  • trunk/FACT++/erfa/src/xy06.c

    r18348 r18711  
    8686**     Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981
    8787**
    88 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     88**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8989**  Derived, with permission, from the SOFA library.  See notes at end of file.
    9090*/
     
    27072707** 
    27082708** 
    2709 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     2709**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    27102710**  All rights reserved.
    27112711** 
  • trunk/FACT++/erfa/src/xys00a.c

    r18348 r18711  
    6060**     IERS Technical Note No. 32, BKG (2004)
    6161**
    62 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     62**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6363**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6464*/
    6565{
    6666   double rbpn[3][3];
     67
    6768
    6869/* Form the bias-precession-nutation matrix, IAU 2000A. */
     
    8182** 
    8283** 
    83 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     84**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8485**  All rights reserved.
    8586** 
  • trunk/FACT++/erfa/src/xys00b.c

    r18348 r18711  
    6060**     IERS Technical Note No. 32, BKG (2004)
    6161**
    62 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     62**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6363**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6464*/
    6565{
    6666   double rbpn[3][3];
     67
    6768
    6869/* Form the bias-precession-nutation matrix, IAU 2000A. */
     
    8182** 
    8283** 
    83 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     84**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8485**  All rights reserved.
    8586** 
  • trunk/FACT++/erfa/src/xys06a.c

    r18348 r18711  
    6060**     Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981
    6161**
    62 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     62**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    6363**  Derived, with permission, from the SOFA library.  See notes at end of file.
    6464*/
    6565{
    6666   double rbpn[3][3];
     67
    6768
    6869/* Form the bias-precession-nutation matrix, IAU 2006/2000A. */
     
    8182** 
    8283** 
    83 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     84**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    8485**  All rights reserved.
    8586** 
  • trunk/FACT++/erfa/src/zp.c

    r18348 r18711  
    1212**     p        double[3]      p-vector
    1313**
    14 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     14**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    1515**  Derived, with permission, from the SOFA library.  See notes at end of file.
    1616*/
     
    2626** 
    2727** 
    28 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     28**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    2929**  All rights reserved.
    3030** 
  • trunk/FACT++/erfa/src/zpv.c

    r18348 r18711  
    1515**     eraZp        zero p-vector
    1616**
    17 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     17**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    1818**  Derived, with permission, from the SOFA library.  See notes at end of file.
    1919*/
     
    2828** 
    2929** 
    30 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     30**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3131**  All rights reserved.
    3232** 
  • trunk/FACT++/erfa/src/zr.c

    r18348 r18711  
    1212**     r        double[3][3]    r-matrix
    1313**
    14 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     14**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    1515**  Derived, with permission, from the SOFA library.  See notes at end of file.
    1616*/
     
    3232** 
    3333** 
    34 **  Copyright (C) 2013-2015, NumFOCUS Foundation.
     34**  Copyright (C) 2013-2016, NumFOCUS Foundation.
    3535**  All rights reserved.
    3636** 
Note: See TracChangeset for help on using the changeset viewer.