FACT++  1.0
palAmp.c
Go to the documentation of this file.
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 void palAmp ( double ra, double da, double date, double eq,
80  double *rm, double *dm ) {
81  double amprms[21];
82  palMappa( eq, date, amprms );
83  palAmpqk( ra, da, amprms, rm, dm );
84 }
void palAmp(double ra, double da, double date, double eq, double *rm, double *dm)
Definition: palAmp.c:79
void palAmpqk(double ra, double da, double amprms[21], double *rm, double *dm)
Definition: palAmpqk.c:85
void palMappa(double eq, double date, double amprms[21])
Definition: palMappa.c:94