File Coverage

palsrc/palNutc.c
Criterion Covered Total %
statement 4 4 100.0
branch n/a
condition n/a
subroutine n/a
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             /*
2             *+
3             * Name:
4             * palNutc
5              
6             * Purpose:
7             * Calculate nutation longitude & obliquoty components
8              
9             * Language:
10             * Starlink ANSI C
11              
12             * Type of Module:
13             * Library routine
14              
15             * Invocation:
16             * void palNutc( double date, double * dpsi, double *deps, double *eps0 );
17              
18             * Arguments:
19             * date = double (Given)
20             * TT as modified Julian date (JD-2400000.5)
21             * dpsi = double * (Returned)
22             * Nutation in longitude
23             * deps = double * (Returned)
24             * Nutation in obliquity
25             * eps0 = double * (Returned)
26             * Mean obliquity.
27              
28             * Description:
29             * Calculates the longitude * obliquity components and mean obliquity
30             * using the SOFA/ERFA library.
31              
32             * Authors:
33             * TIMJ: Tim Jenness (JAC, Hawaii)
34             * {enter_new_authors_here}
35              
36             * Notes:
37             * - Calls eraObl06 and eraNut06a and therefore uses the IAU 206
38             * precession/nutation model.
39             * - Note the change from SLA/F regarding the date. TT is used
40             * rather than TDB.
41              
42             * History:
43             * 2012-03-05 (TIMJ):
44             * Initial version
45             * Adapted with permission from the Fortran SLALIB library.
46             * {enter_further_changes_here}
47              
48             * Copyright:
49             * Copyright (C) 2012 Science and Technology Facilities Council.
50             * All Rights Reserved.
51              
52             * Licence:
53             * This program is free software; you can redistribute it and/or
54             * modify it under the terms of the GNU General Public License as
55             * published by the Free Software Foundation; either version 3 of
56             * the License, or (at your option) any later version.
57             *
58             * This program is distributed in the hope that it will be
59             * useful, but WITHOUT ANY WARRANTY; without even the implied
60             * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
61             * PURPOSE. See the GNU General Public License for more details.
62             *
63             * You should have received a copy of the GNU General Public License
64             * along with this program; if not, write to the Free Software
65             * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
66             * MA 02110-1301, USA.
67              
68             * Bugs:
69             * {note_any_bugs_here}
70             *-
71             */
72              
73             #include "pal.h"
74             #include "palmac.h"
75             #include "pal1sofa.h"
76              
77 10           void palNutc( double date, double * dpsi, double *deps, double *eps0 ) {
78 10           eraNut06a( PAL__MJD0, date, dpsi, deps );
79 10           *eps0 = eraObl06( PAL__MJD0, date );
80 10           }