File: pal1sofa.h

package info (click to toggle)
starlink-pal 0.9.8-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 1,808 kB
  • sloc: ansic: 6,689; makefile: 128; sh: 81
file content (142 lines) | stat: -rw-r--r-- 3,234 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
/*
*+
*  Name:
*     pal1sofa.h

*  Purpose:
*     Mappings of ERFA names to SOFA names

*  Language:
*     Starlink ANSI C

*  Type of Module:
*     Include file

*  Invocation:
*     #include "pal1sofa.h"

*  Description:
*     PAL will work with both SOFA and ERFA libraries and the
*     difference is generally a change in prefix. This include
*     file maps the ERFA form of functions to the SOFA form
*     and includes the relevant sofa.h vs erfa.h file.

*  Authors:
*     TIMJ: Tim Jenness (JAC, Hawaii)
*     {enter_new_authors_here}

*  Notes:
*     - PAL uses the ERFA form by default.

*  History:
*     2014-07-29 (TIMJ):
*        Initial version
*     {enter_further_changes_here}

*  Copyright:
*     Copyright (C) 2014 Tim Jenness
*     All Rights Reserved.

*  Licence:
*     This program is free software: you can redistribute it and/or
*     modify it under the terms of the GNU Lesser General Public
*     License as published by the Free Software Foundation, either
*     version 3 of the License, or (at your option) any later
*     version.
*
*     This program is distributed in the hope that it will be useful,
*     but WITHOUT ANY WARRANTY; without even the implied warranty of
*     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
*     GNU Lesser General Public License for more details.
*
*     You should have received a copy of the GNU Lesser General
*     License along with this program.  If not, see
*     <http://www.gnu.org/licenses/>.

*  Bugs:
*     {note_any_bugs_here}
*-
*/

#ifndef PAL1SOFAHDEF
#define PAL1SOFAHDEF

#if HAVE_CONFIG_H
#  include <config.h>
#endif

# if HAVE_SOFA_H

#  include "sofa.h"
#  include "sofam.h"

   /* Must replace ERFA with SOFA */

#  define eraA2af iauA2af
#  define eraA2tf iauA2tf
#  define eraAf2a iauAf2a
#  define eraAnp iauAnp
#  define eraAnpm iauAnpm
#  define eraC2s iauC2s
#  define eraCal2jd iauCal2jd
#  define eraD2tf iauD2tf
#  define eraDat iauDat
#  define eraEe06a iauEe06a
#  define eraEpb iauEpb
#  define eraEpb2jd iauEpb2jd
#  define eraEpj iauEpj
#  define eraEpj2jd iauEpj2jd
#  define eraEpv00 iauEpv00
#  define eraFk5hz iauFk5hz
#  define eraGd2gc iauGd2gc
#  define eraGmst06 iauGmst06
#  define eraHfk5z iauHfk5z
#  define eraIr iauIr
#  define eraJd2cal iauJd2cal
#  define eraNut06a iauNut06a
#  define eraObl06 iauObl06
#  define eraP06e iauP06e
#  define eraPap iauPap
#  define eraPas iauPas
#  define eraPdp iauPdp
#  define eraPlan94 iauPlan94
#  define eraPmat06 iauPmat06
#  define eraPn iauPn
#  define eraPnm06a iauPnm06a
#  define eraPxp iauPxp
#  define eraRefco iauRefco
#  define eraRm2v iauRm2v
#  define eraRv2m iauRv2m
#  define eraRx iauRx
#  define eraRxp iauRxp
#  define eraRxpv iauRxpv
#  define eraRxr iauRxr
#  define eraRy iauRy
#  define eraRz iauRz
#  define eraS2c iauS2c
#  define eraSepp iauSepp
#  define eraSeps iauSeps
#  define eraStarpm iauStarpm
#  define eraTf2a iauTf2a
#  define eraTf2d iauTf2d
#  define eraTr iauTr
#  define eraTrxp iauTrxp

/* These are from sofam.h */

#  define ERFA_WGS84 WGS84

#  define ERFA_DJ00 DJ00
#  define ERFA_DJY DJY
#  define ERFA_DAU DAU

# else

#  include "erfa.h"
#  include "erfam.h"

/* No further action required */

# endif

#endif