summaryrefslogtreecommitdiffstats
path: root/ast/pal/pal1sofa.h
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2018-01-09 19:06:55 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2018-01-09 19:06:55 (GMT)
commit01e0ebfe59d9028b0246ec4a549bd7528ada94eb (patch)
treea6c5b54db03177a1c8f3e7fb531990dfbc7bae39 /ast/pal/pal1sofa.h
parentd64cf9c0bd23e752867b149be636d1bbd4501cf4 (diff)
downloadblt-01e0ebfe59d9028b0246ec4a549bd7528ada94eb.zip
blt-01e0ebfe59d9028b0246ec4a549bd7528ada94eb.tar.gz
blt-01e0ebfe59d9028b0246ec4a549bd7528ada94eb.tar.bz2
update ast 8.6.2
Diffstat (limited to 'ast/pal/pal1sofa.h')
-rw-r--r--ast/pal/pal1sofa.h142
1 files changed, 142 insertions, 0 deletions
diff --git a/ast/pal/pal1sofa.h b/ast/pal/pal1sofa.h
new file mode 100644
index 0000000..11f7446
--- /dev/null
+++ b/ast/pal/pal1sofa.h
@@ -0,0 +1,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