File Coverage

palsrc/palAmp.c
Criterion Covered Total %
statement 0 4 0.0
branch n/a
condition n/a
subroutine n/a
pod n/a
total 0 4 0.0


line stmt bran cond sub pod time code
1             /*
2             *+
3             * Name:
4             * palAmp
5              
6             * Purpose:
7             * Convert star RA,Dec from geocentric apparaent to mean place.
8              
9             * Language:
10             * Starlink ANSI C
11              
12             * Type of Module:
13             * Library routine
14              
15             * Invocation:
16             * void palAmp ( double ra, double da, double date, double eq,
17             * double *rm, double *dm );
18              
19             * Arguments:
20             * ra = double (Given)
21             * Apparent RA (radians)
22             * dec = double (Given)
23             * Apparent Dec (radians)
24             * date = double (Given)
25             * TDB for apparent place (JD-2400000.5)
26             * eq = double (Given)
27             * Equinox: Julian epoch of mean place.
28             * rm = double * (Returned)
29             * Mean RA (radians)
30             * dm = double * (Returned)
31             * Mean Dec (radians)
32              
33             * Description:
34             * Convert star RA,Dec from geocentric apparent to mean place. The
35             * mean coordinate system is close to ICRS. See palAmpqk for details.
36              
37             * Authors:
38             * TIMJ: Tim Jenness (JAC, Hawaii)
39             * PTW: Patrick T. Wallace
40             * {enter_new_authors_here}
41              
42             * Notes:
43             * - See palMappa and palAmpqk for details.
44              
45             * History:
46             * 2012-03-02 (TIMJ):
47             * Initial version
48             * Adapted with permission from the Fortran SLALIB library.
49             * {enter_further_changes_here}
50              
51             * Copyright:
52             * Copyright (C) 2001 Rutherford Appleton Laboratory
53             * Copyright (C) 2012 Science and Technology Facilities Council.
54             * All Rights Reserved.
55              
56             * Licence:
57             * This program is free software; you can redistribute it and/or
58             * modify it under the terms of the GNU General Public License as
59             * published by the Free Software Foundation; either version 3 of
60             * the License, or (at your option) any later version.
61             *
62             * This program is distributed in the hope that it will be
63             * useful, but WITHOUT ANY WARRANTY; without even the implied
64             * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
65             * PURPOSE. See the GNU General Public License for more details.
66             *
67             * You should have received a copy of the GNU General Public License
68             * along with this program; if not, write to the Free Software
69             * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
70             * MA 02110-1301, USA.
71              
72             * Bugs:
73             * {note_any_bugs_here}
74             *-
75             */
76              
77             #include "pal.h"
78              
79 0           void palAmp ( double ra, double da, double date, double eq,
80             double *rm, double *dm ) {
81             double amprms[21];
82 0           palMappa( eq, date, amprms );
83 0           palAmpqk( ra, da, amprms, rm, dm );
84 0           }