Initial import of version 2.10

2 years ago · ded7b26f78
commit ded7b26f78
109 changed files with 682348 additions and 0 deletions
--- a/7
+++ b/7
@ -0,0 +1,7 @@
+all:
+	cd src && ${MAKE}
+
+install:
+	cd src && ${MAKE} install
+	cd doc && ${MAKE} install
+	cd data && ${MAKE} install
--- a/data/Makefile
+++ b/data/Makefile
@ -0,0 +1,69 @@
+SE1_FILES = \
+	seas_00.se1 \
+	seas_06.se1 \
+	seas_12.se1 \
+	seas_18.se1 \
+	seas_24.se1 \
+	seas_30.se1 \
+	seas_36.se1 \
+	seas_42.se1 \
+	seas_48.se1 \
+	seasm06.se1 \
+	seasm12.se1 \
+	seasm18.se1 \
+	seasm24.se1 \
+	seasm30.se1 \
+	seasm36.se1 \
+	seasm42.se1 \
+	seasm48.se1 \
+	seasm54.se1 \
+	semo_00.se1 \
+	semo_06.se1 \
+	semo_12.se1 \
+	semo_18.se1 \
+	semo_24.se1 \
+	semo_30.se1 \
+	semo_36.se1 \
+	semo_42.se1 \
+	semo_48.se1 \
+	semom06.se1 \
+	semom12.se1 \
+	semom18.se1 \
+	semom24.se1 \
+	semom30.se1 \
+	semom36.se1 \
+	semom42.se1 \
+	semom48.se1 \
+	semom54.se1 \
+	sepl_00.se1 \
+	sepl_06.se1 \
+	sepl_12.se1 \
+	sepl_18.se1 \
+	sepl_24.se1 \
+	sepl_30.se1 \
+	sepl_36.se1 \
+	sepl_42.se1 \
+	sepl_48.se1 \
+	seplm06.se1 \
+	seplm12.se1 \
+	seplm18.se1 \
+	seplm24.se1 \
+	seplm30.se1 \
+	seplm36.se1 \
+	seplm42.se1 \
+	seplm48.se1 \
+	seplm54.se1 \
+	$(NULL)
+
+OTHER_FILES = \
+	seorbel.txt \
+	seasnam.txt \
+	sefstars.txt \
+	seleapsec.txt \
+	$(NULL)
+
+all:
+
+install:
+	mkdir -p $(DESTDIR)/usr/share/libswe
+	install -m 0644 $(SE1_FILES) $(OTHER_FILES) $(DESTDIR)/usr/share/libswe
--- a/data/seas_00.se1
+++ b/data/seas_00.se1
--- a/data/seas_06.se1
+++ b/data/seas_06.se1
--- a/data/seas_12.se1
+++ b/data/seas_12.se1
--- a/data/seas_18.se1
+++ b/data/seas_18.se1
--- a/data/seas_24.se1
+++ b/data/seas_24.se1
--- a/data/seas_30.se1
+++ b/data/seas_30.se1
--- a/data/seas_36.se1
+++ b/data/seas_36.se1
--- a/data/seas_42.se1
+++ b/data/seas_42.se1
--- a/data/seas_48.se1
+++ b/data/seas_48.se1
--- a/data/seasm06.se1
+++ b/data/seasm06.se1
--- a/data/seasm12.se1
+++ b/data/seasm12.se1
--- a/data/seasm18.se1
+++ b/data/seasm18.se1
--- a/data/seasm24.se1
+++ b/data/seasm24.se1
--- a/data/seasm30.se1
+++ b/data/seasm30.se1
--- a/data/seasm36.se1
+++ b/data/seasm36.se1
--- a/data/seasm42.se1
+++ b/data/seasm42.se1
--- a/data/seasm48.se1
+++ b/data/seasm48.se1
--- a/data/seasm54.se1
+++ b/data/seasm54.se1
--- a/data/seasnam.txt
+++ b/data/seasnam.txt
--- a/data/sefstars.txt
+++ b/data/sefstars.txt
--- a/data/seleapsec.txt
+++ b/data/seleapsec.txt
@ -0,0 +1,6 @@
+# This file contains the dates of leap seconds to be taken into account
+# by the Swiss Ephemeris. 
+# For each new leap second add the date of its insertion in the format
+# yyyymmdd, e.g. "20081231" for 31 december 2008.
+# The leap second is inserted at the end of the day.
+20081231
--- a/data/semo_00.se1
+++ b/data/semo_00.se1
--- a/data/semo_06.se1
+++ b/data/semo_06.se1
--- a/data/semo_12.se1
+++ b/data/semo_12.se1
--- a/data/semo_18.se1
+++ b/data/semo_18.se1
--- a/data/semo_24.se1
+++ b/data/semo_24.se1
--- a/data/semo_30.se1
+++ b/data/semo_30.se1
--- a/data/semo_36.se1
+++ b/data/semo_36.se1
--- a/data/semo_42.se1
+++ b/data/semo_42.se1
--- a/data/semo_48.se1
+++ b/data/semo_48.se1
--- a/data/semom06.se1
+++ b/data/semom06.se1
--- a/data/semom12.se1
+++ b/data/semom12.se1
--- a/data/semom18.se1
+++ b/data/semom18.se1
--- a/data/semom24.se1
+++ b/data/semom24.se1
--- a/data/semom30.se1
+++ b/data/semom30.se1
--- a/data/semom36.se1
+++ b/data/semom36.se1
--- a/data/semom42.se1
+++ b/data/semom42.se1
--- a/data/semom48.se1
+++ b/data/semom48.se1
--- a/data/semom54.se1
+++ b/data/semom54.se1
--- a/data/seorbel.txt
+++ b/data/seorbel.txt
@ -0,0 +1,87 @@
+    # Orbital elements of ficticious planets
+    # 27 Jan. 2000
+    #
+    # This file is part of the Swiss Ephemeris, from Version 1.52 on.
+    #
+    # Warning! These planets do not exist!
+    #
+    # The user can add his or her own elements.
+    # 960 is the maximum number of ficticious planets.
+    #
+    # The elements order is as follows:
+    # 1. epoch of elements (Julian day)
+    # 2. equinox (Julian day or "J1900" or "B1950" or "J2000")
+    # 3. mean anomaly at epoch
+    # 4. semi-axis
+    # 5. eccentricity
+    # 6. argument of perihelion (ang. distance of perihelion from node)
+    # 7. ascending node
+    # 8. inclination
+    # 9. name of planet
+    #
+    # use '#' for comments
+    # to compute a body with swe_calc(), use planet number 
+    # ipl = SE_FICT_OFFSET_1 + number_of_elements_set,
+    # e.g. number of Kronos is ipl = 39 + 4 = 43
+    #
+    # Witte/Sieggruen planets, refined by James Neely
+J1900, J1900, 163.7409, 40.99837, 0.00460, 171.4333, 129.8325, 1.0833, Cupido   # 1
+J1900, J1900,  27.6496, 50.66744, 0.00245, 148.1796, 161.3339, 1.0500, Hades    # 2
+J1900, J1900, 165.1232, 59.21436, 0.00120, 299.0440,   0.0000, 0.0000, Zeus     # 3
+J1900, J1900, 169.0193, 64.81690, 0.00305, 208.8801,   0.0000, 0.0000, Kronos   # 4
+J1900, J1900, 138.0533, 70.29949, 0.00000,   0.0000,   0.0000, 0.0000, Apollon  # 5
+J1900, J1900, 351.3350, 73.62765, 0.00000,   0.0000,   0.0000, 0.0000, Admetos  # 6
+J1900, J1900,  55.8983, 77.25568, 0.00000,   0.0000,   0.0000, 0.0000, Vulcanus # 7
+J1900, J1900, 165.5163, 83.66907, 0.00000,   0.0000,   0.0000, 0.0000, Poseidon # 8
+    #
+    # Isis-Transpluto; elements from "Die Sterne" 3/1952, p. 70ff. 
+    # Strubell does not give an equinox. 1945 is taken in order to 
+    # reproduce the as best as ASTRON ephemeris. (This is a strange 
+    # choice, though.)
+    # The epoch according to Strubell is 1772.76. 
+    # 1772 is a leap year!
+    # The fraction is counted from 1 Jan. 1772
+2368547.66, 2431456.5, 0.0, 77.775, 0.3, 0.7, 0, 0, Isis-Transpluto             # 9
+    # Nibiru, elements from Christian Woeltge, Hannover
+1856113.380954, 1856113.380954, 0.0, 234.8921, 0.981092, 103.966, -44.567, 158.708, Nibiru # 10
+    # Harrington, elements from Astronomical Journal 96(4), Oct. 1988 
+2374696.5, J2000, 0.0, 101.2, 0.411, 208.5, 275.4, 32.4, Harrington             # 11
+    # according to W.G. Hoyt, "Planets X and Pluto", Tucson 1980, p. 63 
+2395662.5, 2395662.5, 34.05, 36.15, 0.10761, 284.75, 0, 0, Leverrier (Neptune)  # 12
+2395662.5, 2395662.5, 24.28, 37.25, 0.12062, 299.11, 0, 0, Adams (Neptune)      # 13
+2425977.5, 2425977.5, 281, 43.0, 0.202, 204.9, 0, 0, Lowell (Pluto)             # 14
+2425977.5, 2425977.5, 48.95, 55.1, 0.31, 280.1, 100, 15, Pickering (Pluto)      # 15
+# intramercurian hypothetical Vulcan acc. to L.H. Weston
+J1900,JDATE, 252.8987988 + 707550.7341 * T, 0.13744, 0.019, 322.212069+1670.056*T, 47.787931-1670.056*T, 7.5, Vulcan # 16
+# Selena/White Moon
+J2000,JDATE, 242.2205555 + 5143.5418158 * T, 0.05280098949, 0.0, 0.0, 0.0, 0.0, Selena/White Moon, geo # 17
+# Hypothetical planet Proserpina, according to http://www.geocities.com/Hollywood/Academy/7519/proserpina.html
+# J1900, 170.73 + 51.05 * T
+J1900,JDATE, 170.73, 79.225630, 0, 0, 0, 0, Proserpina #18
+# Waldemath's Second Earth Moon 
+# Elements were derived by D.Koch from Waldemaths original elements as given in 
+# David Walters' book on Vulcan. They differ from Solar Fire (Graham Dawsons) 
+# elements, which are based on the assumption that the "mean longitude" given
+# by Waldemath is an observation (a true longitude)
+# Neither Swisseph nor Solar fire elements agree with Delphine Jay's ephemeris,
+# which is obviously wrong.
+2414290.95827875,2414290.95827875, 70.3407215 + 109023.2634989 * T, 0.0068400705250028, 0.1587, 8.14049594 + 2393.47417444 * T, 136.24878256 - 1131.71719709 * T, 2.5, Waldemath, geo # 19
+# Colin R. Nicholl's Comet, according to "The Great Christ Comet", p. 223.
+1719500.7, J2000, 0.0, 1190.0, 0.9999, 9.47, 200.08, 178.3, Christ Comet # 20
+# Planet 9, according to: Fienga & alii, Constraints on the location of a
+# possible 9th planet, Astronomy & Astrophysics no. FiengaLaskar2016R5. The
+# authors provide true anomaly 117.8. Mean anomaly derived by D. Koch
+2457388.5,J2000,45.5272966,700,0.6,150,113,30,Planet_9 # 21
+# Comet Halley 12 BCE, only good near 12 BCE; 
+# Yeomans/Kiang, Mon. Not. R. astr. Soc. (1981), 197, p. 643
+1717323.34852, B1950, 0.0, 17.99261849, 0.9673664, 92.54399, 35.19064, 163.58392, Comet Halley 12 BCE # 22
+# 2015 RR245
+2457600.5,J2000,322.50413,81.2891975,0.5852663,261.41753,211.67680,7.57643,2015 RR245 # 23
+#
+# The following elements are for test only
+# (Selena without T)
+J2000,JDATE, 242.2205555, 0.05279142865925, 0.0, 0.0, 0.0, 0.0, Selena/White Moon, geo # 17
+# (Selena with T, gives exactly the same position) 
+J2000,JDATE, 242.2205555 + 5143.5418158 * T, 0.05279142865925, 0.0, 0.0, 0.0, 0.0, Selena/White Moon with T Terms, geo # 17
+J2000, JDATE, 174.794787 + 149472.5157715 * T, 0.38709831, 0.20563175 + 0.000020406 * T, 29.125226 + 0.3702885 * T, 48.330893 + 1.186189 * T, 7.004986 + 0.0018215 * T, Mercury elem. for equ. of date # 18
+J2000, J2000, 174.794787 + 149472.5157715 * T, 0.38709831, 0.20563175 + 0.000020406 * T, 29.125226 + 0.2842872 * T, 48.330893 - 0.1254229 * T, 7.004986 - 0.0059516 * T, Mercury Test J2000 Elements# 18
--- a/data/sepl_00.se1
+++ b/data/sepl_00.se1
--- a/data/sepl_06.se1
+++ b/data/sepl_06.se1
--- a/data/sepl_12.se1
+++ b/data/sepl_12.se1
--- a/data/sepl_18.se1
+++ b/data/sepl_18.se1
--- a/data/sepl_24.se1
+++ b/data/sepl_24.se1
--- a/data/sepl_30.se1
+++ b/data/sepl_30.se1
--- a/data/sepl_36.se1
+++ b/data/sepl_36.se1
--- a/data/sepl_42.se1
+++ b/data/sepl_42.se1
--- a/data/sepl_48.se1
+++ b/data/sepl_48.se1
--- a/data/seplm06.se1
+++ b/data/seplm06.se1
--- a/data/seplm12.se1
+++ b/data/seplm12.se1
--- a/data/seplm18.se1
+++ b/data/seplm18.se1
--- a/data/seplm24.se1
+++ b/data/seplm24.se1
--- a/data/seplm30.se1
+++ b/data/seplm30.se1
--- a/data/seplm36.se1
+++ b/data/seplm36.se1
--- a/data/seplm42.se1
+++ b/data/seplm42.se1
--- a/data/seplm48.se1
+++ b/data/seplm48.se1
--- a/data/seplm54.se1
+++ b/data/seplm54.se1
--- a/doc/Makefile
+++ b/doc/Makefile
@ -0,0 +1,5 @@
+all:
+
+install:
+	mkdir -p $(DESTDIR)/usr/share/doc/libswe
+	install -m 0644 sweph.gif swephin.gif swephprg.htm swephprg.pdf swisseph.htm swisseph.pdf $(DESTDIR)/usr/share/doc/libswe
--- a/doc/sweph.gif
+++ b/doc/sweph.gif
--- a/doc/swephin.gif
+++ b/doc/swephin.gif
--- a/doc/swephprg.htm
+++ b/doc/swephprg.htm
--- a/doc/swephprg.pdf
+++ b/doc/swephprg.pdf
--- a/doc/swisseph.htm
+++ b/doc/swisseph.htm
--- a/doc/swisseph.pdf
+++ b/doc/swisseph.pdf
--- a/perl/Changes
+++ b/perl/Changes
@ -0,0 +1,71 @@
+Revision history for Perl extension SwissEph.
+
+First created on 3 April 2009, with Swiss Ephemeris 1.76.
+
+Updated on 27 January 2011:
+- Function swe_utc_time_zone() added for Swiss Ephemeris 1.77
+- Delta t updated
+- Fixed stars: algorithm in swe_fixstar() was improved, new input file sefstars.txt was created
+
+Updated on 7 September 2012:
+- Precession algorithm was updated
+- Function swe_rise_trans_true_hor() added for Swiss Ephemeris 1.78
+- several minor bug fixes (see documentation swephprg.pdf)
+
+Updated on 23 April 2013, Swiss Ephemeris 1.79
+- Improved precision in eclipse calculations: 2nd and 3rd contact with solar eclipses, penumbral and partial phases with lunar eclipses. 
+- Bug fix in function swe_sol_eclipse_when_loc().If the local maximum eclipse occurs at sunset or sunrise, tret[0] now gives the moment when the lower limb of the Sun touches the horizon. This was not correctly implemented in former versions
+- Bug fix in Perl functions swe_house() etc. These functions had crashed with a segmention violation if called with the house parameter ‘G’.
+- Bug fix in Perl function swe_utc_to_jd(), where gregflag had been read from the 4th instead of the 6th parameter.
+- Bug fix in Perl functions to do with date conversion. The default mechanism for gregflag was buggy.  
+- For Hindu astrologers, some more ayanamshas were added that are related to Suryasiddhanta and Aryabhata and are of historical interest. 
+
+Updated on 31 August 2012
+- Function swe_house_name() added for Swiss Ephemeris 1.80
+
+Updated on 11 February 2014, for Swiss Ephemeris 2.00:
+- Major release, Swisseph can handle JPL ephemeris DE431
+- The following functions were added:
+  swe_lun_eclipse_when_loc()   searches locally visible lunar eclipse
+  swe_lmt_to_lat()             conversion of LMT to LAT
+  swe_lat_to_lmt()             conversion of LAT to LMT
+
+Updated on 18 March 2015, Swiss Ephemeris 2.01:
+- a few constants added to SwissEph.pm
+
+Updated on 5 August 2015, Swiss Ephemeris 2.02:
+- The following functions were added:
+  swe_deltat_ex()              provides Delta T adjusted to ephemeris chosen
+  swe_get_ayanamsa_ex()        provides ayanamsa depending on ephemeris chosen
+  swe_get_ayanamsa_ex_ut()     provides ayanamsa depending on ephemeris chosen
+
+Updated on 14 August 2015, Swiss Ephemeris 2.02.01:
+- see documentation swephprg.pdf
+
+Updated on 16 Oct 2015, Swiss Ephemeris 2.03:
+- see documentation swephprg.pdf
+
+Updated on 21 Oct 2015, Swiss Ephemeris 2.04:
+- see documentation swephprg.pdf
+
+Updated on 26 May 2016, Swiss Ephemeris 2.05:
+- see documentation swephprg.pdf
+
+Updated on 12 Jan 2018, Swiss Ephemeris 2.07:
+- see documentation swephprg.pdf
+
+Updated on 19 Jun 2019, Swiss Ephemeris 2.08:
+- a few defines (constants) were added in SwissEph.pm
+
+Updated on 9 Aug 2019, Swiss Ephemeris 2.08:
+- eclipse functions return saros series and eclipse numbers
+
+Updated on 23 Jul 2020, Swiss Ephemeris 2.09:
+- see documentation swephprg.pdf
+
+Updated on 18 Aug 2020, Swiss Ephemeris 2.09.02:
+- see documentation swephprg.pdf
+
+Updated on 10 Dec 2020, Swiss Ephemeris 2.10:
+- see documentation swephprg.pdf
+
--- a/perl/MANIFEST
+++ b/perl/MANIFEST
@ -0,0 +1,85 @@
+Changes
+Makefile.PL
+MANIFEST
+ppport.h
+sweodef.h
+swephexp.h
+README
+SwissEph.xs
+t/SwissEph.t
+lib/SwissEph.pm
+blib/arch/auto/SwissEph/SwissEph.so
+fix_selinux
+/usr/local/lib64/swe/libswe.so.2.04
+/usr/local/lib64/swe/libswe.so.2.05c
+/usr/local/lib64/swe/libswe.so.2.05c
+/usr/local/lib64/swe/libswe.so.2.05c
+/usr/local/lib64/swe/libswe.so.2.05
+/usr/local/lib64/swe/libswe.so.2.05.01
+/usr/local/lib64/swe/libswe.so.2.05.02b02
+/usr/local/lib64/swe/libswe.so.2.05.02b02
+/usr/local/lib64/swe/libswe.so.2.05.02b03
+/usr/local/lib64/swe/libswe.so.2.05.02b02
+/usr/local/lib64/swe/libswe.so.2.05.02b04
+/usr/local/lib64/swe/libswe.so.2.05.02b04
+/usr/local/lib64/swe/libswe.so.2.05.02b05
+/usr/local/lib64/swe/libswe.so.2.05.02b05
+/usr/local/lib64/swe/libswe.so.2.05.02b05
+/usr/local/lib64/swe/libswe.so.2.05.02b05
+/usr/local/lib64/swe/libswe.so.2.05.02b05
+/usr/local/lib64/swe/libswe.so.2.05.02b05
+/usr/local/lib64/swe/libswe.so.2.05.02b05
+/usr/local/lib64/swe/libswe.so.2.05.02b05
+/usr/local/lib64/swe/libswe.so.2.05.02b05
+/usr/local/lib64/swe/libswe.so.2.05.02b06
+/usr/local/lib64/swe/libswe.so.2.06
+/usr/local/lib64/swe/libswe.so.2.06.01b02
+/usr/local/lib64/swe/libswe.so.2.06.01b03
+/usr/local/lib64/swe/libswe.so.2.06.01b03
+/usr/local/lib64/swe/libswe.so.2.06.01b03
+/usr/local/lib64/swe/libswe.so.2.06.01b03
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07
+/usr/local/lib64/swe/libswe.so.2.07.01
+/usr/local/lib64/swe/libswe.so.2.05c
+/usr/local/lib64/swe/libswe.so.2.07.02
+/usr/local/lib64/swe/libswe.so.2.07.02
+/usr/local/lib64/swe/libswe.so.2.08
+/usr/local/lib64/swe/libswe.so.2.08
+/usr/local/lib64/swe/libswe.so.2.08
+/usr/local/lib64/swe/libswe.so.2.08
+/usr/local/lib64/swe/libswe.so.2.08
+/usr/local/lib64/swe/libswe.so.2.08
+/usr/local/lib64/swe/libswe.so.2.08.00a
+/usr/local/lib64/swe/libswe.so.2.09
+/usr/local/lib64/swe/libswe.so.2.09
+/usr/local/lib64/swe/libswe.so.2.09
+/usr/local/lib64/swe/libswe.so.2.09.01
+/usr/local/lib64/swe/libswe.so.2.09.02
+/usr/local/lib64/swe/libswe.so.2.09.03
+/usr/local/lib64/swe/libswe.so.2.10
+META.yml                                 Module YAML meta-data (added by MakeMaker)
+META.json                                Module JSON meta-data (added by MakeMaker)
--- a/perl/META.json
+++ b/perl/META.json
@ -0,0 +1,39 @@
+{
+   "abstract" : "The Swiss Ephemeris made accessible for Perl \r",
+   "author" : [
+      "Dieter <dieter@astro.ch>"
+   ],
+   "dynamic_config" : 1,
+   "generated_by" : "ExtUtils::MakeMaker version 6.68, CPAN::Meta::Converter version 2.120921",
+   "license" : [
+      "unknown"
+   ],
+   "meta-spec" : {
+      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+      "version" : "2"
+   },
+   "name" : "SwissEph",
+   "no_index" : {
+      "directory" : [
+         "t",
+         "inc"
+      ]
+   },
+   "prereqs" : {
+      "build" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : "0"
+         }
+      },
+      "configure" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : "0"
+         }
+      },
+      "runtime" : {
+         "requires" : {}
+      }
+   },
+   "release_status" : "stable",
+   "version" : "2.10"
+}
--- a/perl/META.yml
+++ b/perl/META.yml
@ -0,0 +1,21 @@
+---
+abstract: "The Swiss Ephemeris made accessible for Perl \r"
+author:
+  - 'Dieter <dieter@astro.ch>'
+build_requires:
+  ExtUtils::MakeMaker: 0
+configure_requires:
+  ExtUtils::MakeMaker: 0
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.68, CPAN::Meta::Converter version 2.120921'
+license: unknown
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: 1.4
+name: SwissEph
+no_index:
+  directory:
+    - t
+    - inc
+requires: {}
+version: 2.10
--- a/perl/Makefile.PL
+++ b/perl/Makefile.PL
@ -0,0 +1,21 @@
+#!/usr/local/bin/perl
+use 5.008007;
+use ExtUtils::MakeMaker;
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+WriteMakefile(
+    NAME              => 'SwissEph',
+    VERSION_FROM      => 'lib/SwissEph.pm', # finds $VERSION
+    PREREQ_PM         => {}, # e.g., Module::Name => 1.1
+    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
+      (ABSTRACT_FROM  => 'lib/SwissEph.pm', # retrieve abstract from module
+       AUTHOR         => 'Dieter <dieter@astro.ch>') : ()),
+    #LIBS              => ['-lC:\sweph\bin\swedll32'], # e.g., '-lm'
+    LIBS              => ['-L/usr/local/lib64/swe -lswe'], # e.g., '-lm'
+    #LIBS              => ['-lswe'], # e.g., '-lm'
+    DEFINE            => '', # e.g., '-DHAVE_SOMETHING'
+    INC               => '-I.', # e.g., '-I. -I/usr/include/other'
+#    DISTVNAME         => 'perl_swisseph', # 
+	# Un-comment this if you add C files to link with later:
+    # OBJECT            => '$(O_FILES)', # link all the C files too
+);
--- a/perl/README
+++ b/perl/README
@ -0,0 +1,112 @@
+SwissEph version 2.056
+=====================
+
+The README is used to introduce the module and provide instructions on
+how to install the module, any machine dependencies it may have (for
+example C compilers and installed libraries) and any other information
+that should be provided before the module is installed.
+
+INSTALLATION
+
+On Linux:
+=========
+
+  Before installing this module, you have to install a shared library of
+  the Swiss Ephemeris functions. 
+  Unpack http://www.astro.com/ftp/swisseph/swe_unix_src_2.06.tar.gz
+  or whatever the latest version is, or the one you want to use.
+  There will be a src directory in the unpacked files. Go there
+  and run
+  make libswe.so to build the shared library.  Copy this file to 
+  /usr/local/lib64/swe 
+
+  Usually, this will also require that you create a file (as root)
+  /etc/ld.so.conf.d/swisseph.conf
+  with the content line
+  /usr/local/lib64/swe
+
+  Now run ldconfig(8) (as root) in order to generate the
+  symbolic links required.
+
+  Now you can install the Perl module for the Swiss Ephemeris.
+  Type the following:
+
+    perl Makefile.PL
+    make
+    make test
+    make install	(requires root)
+
+On Windows:
+===========
+
+  Before installing this module, you have to install the following things
+  on your computer:
+
+  - the Swiss Ephemeris DLL swedll32.dll. If haven't done this yet,
+    download the Swiss Ephemeris from the download area at 
+    www.astro.com/swisseph and unpack it.
+
+  - Visual C++ Express Edition, which can be downloaded for free from the
+    http://www.microsoft.com/express/download/.
+
+  After that you can install the Perl module. In the current directory 
+  (where you read this README file), open the file Makefile.PL and
+  fix the LIBS parameter. It must contain the directory to the Swiss Ephemeris
+  DLL. After that run:
+
+    perl Makefile.PL
+    nmake
+    nmake test
+    nmake install
+
+
+COPYRIGHT AND LICENCE
+
+Copyright (C) 2017 Astrodienst, Zurich, Switzerland.
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.8.7 or,
+at your option, any later version of Perl 5 you may have available.
+
+-----------------------
+Update 23-march-2016, example how to use PerlSwissEph-2.04.tar.gz
+
+download PerlSwissEph-2.04.tar.gz
+unpack it with
+tar xzvf PerlSwissEph-2.04.tar.gz
+
+it creates a directory SwissEph-2.04
+cd SwissEph-2.04
+perl Makefile.PL        (to create Makefile)
+
+there is a warning:
+Warning: the following files are missing in your kit:
+    /usr/local/lib64/swe/libswe.so.2.04
+
+The tarball contains ./usr/local/lib64/swe/libswe.so.2.04
+you must copy or move this to /usr/local/lib64/swe/libswe.so.2.04 by hand.
+
+If your architecture is not 64-bit Linux, you may have to create libswe.so.2.04
+from the Swisseph C source distribution yourself, and then place it properly.
+
+Then you must tell the Linux system how to find the dynamic library.
+On Redhat RHEL 6 this goes like this:
+as root, cd /etc/ld.so.conf.d
+edit or create a file swisseph.conf with this line in it
+/usr/local/lib64/swe
+
+now run as root: ldconfig
+afterwards, you should find in /usr/local/lib64/swe/
+something like this
+lrwxrwxrwx. 1 root  root     14 Mar 23 17:44 libswe.so -> libswe.so.2.04
+lrwxrwxrwx. 1 root  root     14 Mar 23 17:43 libswe.so.1 -> libswe.so.2.04
+-rwxr-xr-x. 1 root root  847686 Mar 23 17:10 libswe.so.2.04
+
+Now, as normal user, go back to
+cd SwissEph-2.04
+make
+make test
+
+as root, (unless you can write in the install target directories)
+make install
+
--- a/perl/SwissEph.xs
+++ b/perl/SwissEph.xs
--- a/perl/fix_selinux
+++ b/perl/fix_selinux
@ -0,0 +1,5 @@
+/usr/sbin/semanage fcontext -a -t textrel_shlib_t /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/auto/SwissEph/SwissEph.so
+/sbin/restorecon -v /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/auto/SwissEph/SwissEph.so
+/usr/sbin/semanage fcontext -a -t textrel_shlib_t /usr/lib/libswe.so.1.76.00
+/sbin/restorecon -v /usr/lib/libswe.so.1.76.00
+
--- a/perl/lib/SwissEph.pm
+++ b/perl/lib/SwissEph.pm
--- a/perl/ppport.h
+++ b/perl/ppport.h
--- a/perl/sweodef.h
+++ b/perl/sweodef.h
@ -0,0 +1,341 @@
+/************************************************************
+   definitions and constants for all Swiss Ephemeris source files,
+   only required for compiling the libraries, not for the external
+   interface of the libraries.
+
+   The definitions are a subset of Astrodienst's ourdef.h content
+   and must be kept compatible. Everything not used in SwissEph
+   has been deleted.
+
+   Does auto-detection of MSDOS (TURBO_C or MS_C),  HPUNIX, Linux.
+   Must be extended for more portability; there should be a way
+   to detect byte order and file system type.
+   
+************************************************************/
+
+/* Copyright (C) 1997 - 2008 Astrodienst AG, Switzerland.  All rights reserved.
+
+  License conditions
+  ------------------
+
+  This file is part of Swiss Ephemeris.
+
+  Swiss Ephemeris is distributed with NO WARRANTY OF ANY KIND.  No author
+  or distributor accepts any responsibility for the consequences of using it,
+  or for whether it serves any particular purpose or works at all, unless he
+  or she says so in writing.  
+
+  Swiss Ephemeris is made available by its authors under a dual licensing
+  system. The software developer, who uses any part of Swiss Ephemeris
+  in his or her software, must choose between one of the two license models,
+  which are
+  a) GNU public license version 2 or later
+  b) Swiss Ephemeris Professional License
+
+  The choice must be made before the software developer distributes software
+  containing parts of Swiss Ephemeris to others, and before any public
+  service using the developed software is activated.
+
+  If the developer choses the GNU GPL software license, he or she must fulfill
+  the conditions of that license, which includes the obligation to place his
+  or her whole software project under the GNU GPL or a compatible license.
+  See http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
+
+  If the developer choses the Swiss Ephemeris Professional license,
+  he must follow the instructions as found in http://www.astro.com/swisseph/ 
+  and purchase the Swiss Ephemeris Professional Edition from Astrodienst
+  and sign the corresponding license contract.
+
+  The License grants you the right to use, copy, modify and redistribute
+  Swiss Ephemeris, but only under certain conditions described in the License.
+  Among other things, the License requires that the copyright notices and
+  this notice be preserved on all copies.
+
+  Authors of the Swiss Ephemeris: Dieter Koch and Alois Treindl
+
+  The authors of Swiss Ephemeris have no control or influence over any of
+  the derived works, i.e. over software or services created by other
+  programmers which use Swiss Ephemeris functions.
+
+  The names of the authors or of the copyright holder (Astrodienst) must not
+  be used for promoting any software, product or service which uses or contains
+  the Swiss Ephemeris. This copyright notice is the ONLY place where the
+  names of the authors can legally appear, except in cases where they have
+  given special permission in writing.
+
+  The trademarks 'Swiss Ephemeris' and 'Swiss Ephemeris inside' may be used
+  for promoting such software, products or services.
+*/
+
+#ifndef _OURDEF_INCLUDED	/* ourdef.h is a superset of sweodef.h */
+#ifndef _SWEODEF_INCLUDED /* allow multiple #includes */
+#define _SWEODEF_INCLUDED
+ 
+# define MY_TRUE 1	/* for use in other defines, before TRUE is defined */
+# define MY_FALSE 0	/* for use in other defines, before TRUE is defined */
+
+/* TLS support
+ *
+ * Sun Studio C/C++, IBM XL C/C++, GNU C and Intel C/C++ (Linux systems) -> __thread
+ * Borland, VC++ -> __declspec(thread)
+ */
+#if !defined(TLSOFF) && !defined( __APPLE__ ) && !defined(WIN32) && !defined(DOS32)
+#if defined( __GNUC__ )
+#define TLS     __thread
+#else
+#define TLS     __declspec(thread)
+#endif
+#else
+#define TLS
+#endif
+
+#ifdef _WIN32		/* Microsoft VC 5.0 does not define MSDOS anymore */
+# undef MSDOS
+# define MSDOS MY_TRUE
+#include <wtypes.h>
+#include <objbase.h>
+#include <wincon.h>
+#include <winbase.h>
+#include <io.h>
+#include <windows.h>
+# define sleep(x)	Sleep((x) * 1000)
+#endif
+
+#ifdef _MSC_VER
+# define MS_VC
+#endif
+
+#ifdef WIN32		/* Microsoft VC 5.0 does not define MSDOS anymore */
+# define MSDOS MY_TRUE
+#endif
+
+#ifdef MSDOS	/* already defined by some DOS compilers */
+# undef MSDOS
+# define MSDOS MY_TRUE
+#endif
+
+#ifdef __TURBOC__	/* defined by  turboc */
+# ifndef MSDOS
+#   define MSDOS MY_TRUE
+# endif
+# define TURBO_C
+#endif
+
+#ifdef __SC__	/* defined by  Symantec C */
+# ifndef MSDOS
+#   define MSDOS MY_TRUE
+# endif
+# define SYMANTEC_C
+#endif
+
+#ifdef __WATCOMC__	/* defined by  WatcomC */
+# ifndef MSDOS
+#   define MSDOS MY_TRUE
+# endif
+# define WATCOMC
+#endif
+
+#ifdef __MWERKS__	/* defined on Macintosh CodeWarrior */
+# if macintosh && powerc
+#  define MACOS MY_TRUE		/* let it undefined otherwise */
+#  define MSDOS MY_FALSE	/* in case one above fired falsely */
+# endif
+#endif
+
+#ifdef MSDOS
+#  define HPUNIX MY_FALSE
+#  define INTEL_BYTE_ORDER 1
+#  ifndef TURBO_C
+#    define MS_C	/* assume Microsoft C compiler */
+#  endif
+# define UNIX_FS MY_FALSE
+#else
+# ifdef MACOS
+#  define HPUNIX MY_FALSE
+#  define UNIX_FS MY_FALSE
+# else
+#  define MSDOS MY_FALSE
+#  define HPUNIX MY_TRUE
+#  ifndef _HPUX_SOURCE
+#    define _HPUX_SOURCE
+#  endif
+#  define UNIX_FS MY_TRUE
+# endif
+#endif
+
+#include <math.h>
+#include <stdlib.h>
+#ifndef FILE
+# include <stdio.h>
+#endif
+
+#if HPUNIX
+#  include <unistd.h>
+#endif
+
+/*
+ * if we have 16-bit ints, we define INT_16; we will need %ld to printf an int32
+ * if we have 64-bit long, we define LONG_64
+ * If none is defined, we have int = long = 32 bit, and use %d to printf an int32
+ */
+#include <limits.h>
+#if INT_MAX < 40000
+# define INT_16
+#else
+# if LONG_MAX > INT_MAX
+#   define LONG_64
+# endif
+#endif
+
+#ifdef BYTE_ORDER
+#ifdef LITTLE_ENDIAN
+# if BYTE_ORDER == LITTLE_ENDIAN
+#  define INTEL_BYTE_ORDER
+# endif
+#endif
+#endif
+
+#ifdef INT_16
+  typedef long	int32;
+  typedef unsigned long	uint32;
+  typedef int	int16;
+  typedef double  REAL8;  /* real with at least 64 bit precision */
+  typedef long    INT4;   /* signed integer with at least 32 bit precision */
+  typedef unsigned long UINT4;
+                          /* unsigned integer with at least 32 bit precision */
+  typedef int     AS_BOOL;
+  typedef unsigned int UINT2;	/* unsigned 16 bits */
+# define ABS4	labs		/* abs function for long */ 
+#else
+  typedef int	int32;
+  typedef long long	int64;
+  typedef unsigned int	uint32;
+  typedef short	int16;
+  typedef double  REAL8;  /* real with at least 64 bit precision */
+  typedef int     INT4;   /* signed integer with at least 32 bit precision */
+  typedef unsigned int UINT4; 
+			/* unsigned integer with at least 32 bit precision */
+  typedef int     AS_BOOL;
+  typedef unsigned short UINT2;	/* unsigned 16 bits */
+  # define ABS4	abs		/* abs function for long */
+#endif
+
+#if MSDOS 
+# ifdef TURBO_C
+#   include <alloc.h>		/* MSC needs malloc ! */
+# else
+#   include <malloc.h>
+# endif
+# define SIGALRM SIGINT
+#endif
+
+#ifndef TRUE 
+#  define TRUE 1
+#  define FALSE 0
+#endif
+
+#ifndef OK 
+#  define OK (0)
+#  define ERR (-1)
+#endif
+
+/* hack because UCHAR is already used by mingw gcc */
+#ifdef __GNUC__
+#ifdef _WIN32
+#define UCHAR SWE_UCHAR
+#endif
+#endif
+
+typedef unsigned char UCHAR;
+#define UCP	(UCHAR*)
+#define SCP	(char*)
+
+# define ODEGREE_STRING "°"	/* degree as string, utf8 encoding */
+ 
+
+
+#ifndef HUGE
+#  define HUGE 1.7E+308     /* biggest value for REAL8 */
+#endif
+#ifndef M_PI
+#  define M_PI 3.14159265358979323846
+#endif
+ 
+/* #define forward static  obsolete */
+
+#define AS_MAXCH 256    /* used for string declarations, allowing 255 char+\0 */
+ 
+/*
+#define DEGTORAD 0.0174532925199433
+#define RADTODEG 57.2957795130823
+*/
+#define RADTODEG (180.0 / M_PI)
+#define DEGTORAD (M_PI / 180.0)
+ 
+typedef int32    centisec;       /* centiseconds used for angles and times */
+#define CS	(centisec)	/* use for casting */
+#define CSEC	centisec	/* use for typing */
+
+#define DEG     360000  /* degree expressed in centiseconds */
+#define DEG7_30 (2700000)	/* 7.5 degrees */
+#define DEG15   (15 * DEG)
+#define DEG24   (24 * DEG)
+#define DEG30   (30 * DEG)
+#define DEG60   (60 * DEG)
+#define DEG90   (90 * DEG)
+#define DEG120  (120 * DEG)
+#define DEG150  (150 * DEG)
+#define DEG180  (180 * DEG)
+#define DEG270  (270 * DEG)
+#define DEG360  (360 * DEG)
+ 
+/* #define CSTORAD  4.84813681109536E-08  centisec to rad: pi / 180 /3600/100 */
+/* #define RADTOCS  2.06264806247096E+07  rad to centisec 180*3600*100/pi */
+#define CSTORAD	(DEGTORAD / 360000.0)
+#define RADTOCS (RADTODEG * 360000.0)
+ 
+#define CS2DEG	(1.0/360000.0)	/* centisec to degree */
+
+/* control strings for fopen()	*/
+#if UNIX_FS
+#  define BFILE_R_ACCESS "r"	/* open binary file for reading */
+#  define BFILE_RW_ACCESS "r+"	/* open binary file for writing and reading */
+#  define BFILE_W_CREATE "w"	/* create/open binary file for write*/
+#  define BFILE_A_ACCESS "a+"	/* create/open binary file for append*/
+#  define FILE_R_ACCESS "r"	/* open text file for reading */
+#  define FILE_RW_ACCESS "r+"	/* open text file for writing and reading */
+#  define FILE_W_CREATE "w"	/* create/open text file for write*/
+#  define FILE_A_ACCESS "a+"	/* create/open text file for append*/
+#  define O_BINARY 0		/* for open(), not defined in Unix */
+#  define OPEN_MODE 0666	/* default file creation mode */
+#  define DIR_GLUE "/"		/* glue string for directory/file */
+#  define PATH_SEPARATOR ";:"	/* semicolon or colon may be used */
+#else
+#  define BFILE_R_ACCESS "rb"	/* open binary file for reading */
+#  define BFILE_RW_ACCESS "r+b"	/* open binary file for writing and reading */
+#  define BFILE_W_CREATE "wb"	/* create/open binary file for write*/
+#  define BFILE_A_ACCESS "a+b"	/* create/open binary file for append*/
+#  define PATH_SEPARATOR ";"	/* semicolon as PATH separator */
+#  define OPEN_MODE 0666	/* default file creation mode */
+# ifdef MACOS
+#  define FILE_R_ACCESS "r"	/* open text file for reading */
+#  define FILE_RW_ACCESS "r+"	/* open text file for writing and reading */
+#  define FILE_W_CREATE "w"	/* create/open text file for write*/
+#  define FILE_A_ACCESS "a+"	/* create/open text file for append*/
+#  define DIR_GLUE ":"		/* glue string for directory/file */
+# else
+#  define FILE_R_ACCESS "rt"	/* open text file for reading */
+#  define FILE_RW_ACCESS "r+t"	/* open text file for writing and reading */
+#  define FILE_W_CREATE "wt"	/* create/open text file for write*/
+#  define FILE_A_ACCESS "a+t"	/* create/open text file for append*/
+/* attention, all backslashes for msdos directry names must be written as \\,
+   because it is the C escape character */
+#  define DIR_GLUE "\\"		/* glue string for directory/file */
+# endif
+#endif
+
+#include <string.h>
+#include <ctype.h>
+
+#endif /* _SWEODEF_INCLUDED */
+#endif /* _OURDEF_INCLUDED */
--- a/perl/swephexp.h
+++ b/perl/swephexp.h
--- a/perl/t/SwissEph.t
+++ b/perl/t/SwissEph.t
@ -0,0 +1,567 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl SwissEph.t'
+
+
+use Test::More tests => 248;
+
+BEGIN { use_ok("SwissEph") };
+
+#------------------------------------------------------------------------
+# Sun for 2451544.5 ET : Longitude should be 279.858461
+#------------------------------------------------------------------------
+my $ref;
+my $i;
+my @xx;
+my $serr="";
+
+#------------------------------------------------------------------------
+# Coordinate transformation
+#------------------------------------------------------------------------
+# ecliptic -> equator
+my @rade = SwissEph::swe_cotrans([80, 5, 0], -23);
+is(round_4($rade[0]), 78.7418, "swe_cotrans([80, 5, 0], -23) -> ra");
+is(round_4($rade[1]), 27.6169, "swe_cotrans([80, 5, 0], -23) -> de");
+# with speed
+@rade = SwissEph::swe_cotrans_sp([80, 5, 0, 1, 0, 0], -23);
+is(round_4($rade[0]), 78.7418, "swe_cotrans([80, 5, 0], -23) -> ra");
+is(round_4($rade[1]), 27.6169, "swe_cotrans([80, 5, 0], -23) -> de");
+is(round_4($rade[3]), 1.1210, "swe_cotrans([80, 5, 0], -23) -> ra_speed");
+is(round_4($rade[4]), 0.0763, "swe_cotrans([80, 5, 0], -23) -> de_speed");
+ 
+#------------------------------------------------------------------------
+# Function Delta T - values may change, but the seconds for 2000-1-1 are sure 
+#------------------------------------------------------------------------
+is( round_4(SwissEph::swe_deltat( 2451545 )* 86400), 63.8289, "swe_deltat(1 jan 2000)");
+
+$ref = SwissEph::swe_deltat_ex(2451545, SwissEph::SEFLG_MOSEPH);
+is(round_4($ref->{dt} *86400.0), 63.8289, "swe_deltat_ex(1 jan 2000)");
+
+#------------------------------------------------------------------------
+# Sidereal Time
+#------------------------------------------------------------------------
+is(round_4( SwissEph::swe_sidtime( 2451544.5 )), 6.6643, "swe_sidtime(1 jan 2000)");
+is(round_4( SwissEph::swe_sidtime0( 2451544.5, 23.5, 0)), 6.6645, "swe_sidtime0(1 jan 2000,23.5,0)");
+
+$ref = SwissEph::swe_time_equ(2415020.5);
+is($ref->{retval}, 0, "swe_time_equ(1 jan 1900)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_time_equ(1 jan 1900)->serr = $ref->{serr}\n";
+}
+is(round_4($ref->{time_equ}), -0.0023, "swe_time_equ(1 jan 1900)->time_equ");
+
+$ref = SwissEph::swe_lat_to_lmt(-146780.0, 82.2);
+if (exists($ref->{serr})) {
+  print STDERR "swe_time_equ(1 jan 1900)->serr = $ref->{serr}\n";
+}
+is(round_4($ref->{tjd_lmt}), -146779.9898, "swe_lat_to_lmt(-146780.0, 82.2)->tjd_lmt");
+
+$ref = SwissEph::swe_lmt_to_lat(-146779.9898, 82.2);
+if (exists($ref->{serr})) {
+  print STDERR "swe_time_equ(1 jan 1900)->serr = $ref->{serr}\n";
+}
+is(round_4($ref->{tjd_lat}), -146779.9998, "swe_lmt_to_lat(-146779.986742931, 82.2)->tjd_lat");
+
+#------------------------------------------------------------------------
+# Calendar conversion
+#------------------------------------------------------------------------
+is( SwissEph::swe_julday(2000,1,1,0.), 2451544.5, "swe_julday() 1 jan 2000");
+is( SwissEph::swe_julday(2000,1,1,0.,1), 2451544.5, "swe_julday() 1 jan 2000, explicit greg flag");
+is( SwissEph::swe_julday(2000,1,1,0.,0), 2451557.5, "swe_julday() 1 jan 2000, explicit jul flag");
+$ref = SwissEph::swe_revjul(2436723.5888888889,1);
+is($ref->{iyar}, 1959, "swe_revjul(2436723.5888888889), year");
+is($ref->{imon}, 6, "swe_revjul(2436723.5888888889), month");
+is($ref->{iday}, 4, "swe_revjul(2436723.5888888889), day");
+is($ref->{ihou}, 2, "swe_revjul(2436723.5888888889), hour");
+is($ref->{imin}, 8, "swe_revjul(2436723.5888888889), minute");
+is($ref->{isec}, 0, "swe_revjul(2436723.5888888889), second");
+is(round_4($ref->{dhou}), 2.1333, "swe_revjul(2436723.5888888889), hour/decimal");
+
+#------------------------------------------------------------------------
+# Wrapper for swe_houses
+#------------------------------------------------------------------------
+$ref = SwissEph::swe_houses( 2451544.5, 52., 7., "P");
+is( round_4( $ref->{cusps}->[1] ),  191.8825, "swe_houses()->{1}");
+is( round_4( $ref->{cusps}->[2] ),  217.0327, "swe_houses()->{2}");
+is( round_4( $ref->{cusps}->[3] ),  248.4837, "swe_houses()->{3}");
+is( round_4( $ref->{cusps}->[4] ),  285.6359, "swe_houses()->{4}");
+is( round_4( $ref->{cusps}->[5] ),  321.0151, "swe_houses()->{5}");
+is( round_4( $ref->{cusps}->[6] ),  349.6374, "swe_houses()->{6}");
+is( round_4( $ref->{cusps}->[7] ),   11.8825, "swe_houses()->{7}");
+is( round_4( $ref->{cusps}->[8] ),   37.0327, "swe_houses()->{8}");
+is( round_4( $ref->{cusps}->[9] ),   68.4837, "swe_houses()->{9}");
+is( round_4( $ref->{cusps}->[10] ), 105.6359, "swe_houses()->{10}");
+is( round_4( $ref->{cusps}->[11] ), 141.0151, "swe_houses()->{11}");
+is( round_4( $ref->{cusps}->[12] ), 169.6374, "swe_houses()->{12}");
+is( round_4( $ref->{asc} ), 191.8825, "swe_houses()->{asc}");
+is( round_4( $ref->{mc} ), 105.6359, "swe_houses()->{mc}");
+is( round_4( $ref->{armc} ), 106.9642, "swe_houses()->{armc}");
+is( round_4( $ref->{vertex} ), 27.2378, "swe_houses()->{vertex}");
+is( round_4( $ref->{equasc} ), 198.3910, "swe_houses()->{equasc}");
+is( round_4( $ref->{coasc1} ), 218.3740, "swe_houses()->{coasc1}");
+is( round_4( $ref->{coasc2} ), 193.7952, "swe_houses()->{coasc2}");
+is( round_4( $ref->{polasc} ), 38.3740, "swe_houses()->{polasc}");
+
+$ref = SwissEph::swe_houses_armc( 106.96424825, 52., 23.4376796111111, "P");
+is( round_4( $ref->{cusps}->[1] ),  191.8825, "swe_houses_armc()->{1}");
+is( round_4( $ref->{cusps}->[2] ),  217.0327, "swe_houses_armc()->{2}");
+is( round_4( $ref->{cusps}->[3] ),  248.4837, "swe_houses_armc()->{3}");
+is( round_4( $ref->{cusps}->[4] ),  285.6359, "swe_houses_armc()->{4}");
+is( round_4( $ref->{cusps}->[5] ),  321.0151, "swe_houses_armc()->{5}");
+is( round_4( $ref->{cusps}->[6] ),  349.6374, "swe_houses_armc()->{6}");
+is( round_4( $ref->{cusps}->[7] ),   11.8825, "swe_houses_armc()->{7}");
+is( round_4( $ref->{cusps}->[8] ),   37.0327, "swe_houses_armc()->{8}");
+is( round_4( $ref->{cusps}->[9] ),   68.4837, "swe_houses_armc()->{9}");
+is( round_4( $ref->{cusps}->[10] ), 105.6359, "swe_houses_armc()->{10}");
+is( round_4( $ref->{cusps}->[11] ), 141.0151, "swe_houses_armc()->{11}");
+is( round_4( $ref->{cusps}->[12] ), 169.6374, "swe_houses_armc()->{12}");
+is( round_4( $ref->{asc} ), 191.8825, "swe_houses_armc()->{asc}");
+is( round_4( $ref->{mc} ), 105.6359, "swe_houses_armc()->{mc}");
+is( round_4( $ref->{armc} ), 106.9642, "swe_houses_armc()->{armc}");
+is( round_4( $ref->{vertex} ), 27.2378, "swe_houses_armc()->{vertex}");
+is( round_4( $ref->{equasc} ), 198.3910, "swe_houses_armc()->{equasc}");
+is( round_4( $ref->{coasc1} ), 218.3740, "swe_houses_armc()->{coasc1}");
+is( round_4( $ref->{coasc2} ), 193.7952, "swe_houses_armc()->{coasc2}");
+is( round_4( $ref->{polasc} ), 38.3740, "swe_houses_armc()->{polasc}");
+
+$ref = SwissEph::swe_houses_ex( 2451544.5, 0, 52., 7., "P");
+is( round_4( $ref->{cusps}->[1] ),  191.8825, "swe_houses_ex()->{1}");
+is( round_4( $ref->{cusps}->[2] ),  217.0327, "swe_houses_ex()->{2}");
+is( round_4( $ref->{cusps}->[3] ),  248.4837, "swe_houses_ex()->{3}");
+is( round_4( $ref->{cusps}->[4] ),  285.6359, "swe_houses_ex()->{4}");
+is( round_4( $ref->{cusps}->[5] ),  321.0151, "swe_houses_ex()->{5}");
+is( round_4( $ref->{cusps}->[6] ),  349.6374, "swe_houses_ex()->{6}");
+is( round_4( $ref->{cusps}->[7] ),   11.8825, "swe_houses_ex()->{7}");
+is( round_4( $ref->{cusps}->[8] ),   37.0327, "swe_houses_ex()->{8}");
+is( round_4( $ref->{cusps}->[9] ),   68.4837, "swe_houses_ex()->{9}");
+is( round_4( $ref->{cusps}->[10] ), 105.6359, "swe_houses_ex()->{10}");
+is( round_4( $ref->{cusps}->[11] ), 141.0151, "swe_houses_ex()->{11}");
+is( round_4( $ref->{cusps}->[12] ), 169.6374, "swe_houses_ex()->{12}");
+is( round_4( $ref->{asc} ), 191.8825, "swe_houses_ex()->{asc}");
+is( round_4( $ref->{mc} ), 105.6359, "swe_houses_ex()->{mc}");
+is( round_4( $ref->{armc} ), 106.9642, "swe_houses_ex()->{armc}");
+is( round_4( $ref->{vertex} ), 27.2378, "swe_houses_ex()->{vertex}");
+is( round_4( $ref->{equasc} ), 198.3910, "swe_houses_ex()->{equasc}");
+is( round_4( $ref->{coasc1} ), 218.3740, "swe_houses_ex()->{coasc1}");
+is( round_4( $ref->{coasc2} ), 193.7952, "swe_houses_ex()->{coasc2}");
+is( round_4( $ref->{polasc} ), 38.3740, "swe_houses_ex()->{polasc}");
+
+$ref = SwissEph::swe_house_pos(290,47,23.5,"P",72,0);
+is($ref->{retval}, 0, "swe_house_pos()->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_house_pos()->serr = $ref->{serr}\n";
+}
+is($ref->{ihno}, 2, "swe_house_pos()->ihno");
+is(round_4($ref->{dhpos}), 2.1459, "swe_house_pos()->dhpos");
+is(round_4($ref->{dhpos_deg}), 34.3767, "swe_house_pos()->dhpos_deg");
+
+$ref = SwissEph::swe_gauquelin_sector(2436723.5888888889,SwissEph::SE_MOON,"",0,0,[8.6,47.35,400],1013,15);
+is($ref->{retval}, 0, "swe_gauquelin_sector()->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_gauquelin_sector(1 jan 1900)->serr = $ref->{serr}\n";
+}
+is(round_4($ref->{dsector}), 36.1724, "swe_gauquelin_sector()->dsector");
+
+#------------------------------------------------------------------------
+# Wrapper for swe_calc
+#------------------------------------------------------------------------
+
+$ref = SwissEph::swe_calc(2415020.5, 3, 260);
+is($ref->{retval}, 260, "swe_calc(1900, Venus)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_calc(1900, Venus)->serr = $ref->{serr}\n";
+}
+is(round_4($ref->{xx}->[0]), 306.3745, "swe_calc(1900, Venus)->xx[0]");
+is(round_4($ref->{xx}->[1]), -1.6830, "swe_calc(1900, Venus)->xx[1]");
+is(round_4($ref->{xx}->[2]), 1.4646, "swe_calc(1900, Venus)->xx[2]");
+is(round_4($ref->{xx}->[3]), 1.2435, "swe_calc(1900, Venus)->xx[3]");
+
+my $dt = SwissEph::swe_deltat(2415020.5);
+$ref = SwissEph::swe_calc_ut(2415020.5-$dt, 3, 260);
+is($ref->{retval}, 260, "swe_calc_ut(1900, Venus)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_calc_ut(1900, Venus)->serr = $ref->{serr}\n";
+}
+is(round_4($ref->{xx}->[0]), 306.3745, "swe_calc_ut(1900, Venus)->xx[0]");
+is(round_4($ref->{xx}->[1]), -1.6830, "swe_calc_ut(1900, Venus)->xx[1]");
+is(round_4($ref->{xx}->[2]), 1.4646, "swe_calc_ut(1900, Venus)->xx[2]");
+is(round_4($ref->{xx}->[3]), 1.2435, "swe_calc_ut(1900, Venus)->xx[3]");
+#print STDERR "swe_calc_ut $ref->{xx}->[0] $ref->{xx}->[1]\n";
+
+#------------------------------------------------------------------------
+# Wrapper for swe_fixstar
+#------------------------------------------------------------------------
+
+$ref = SwissEph::swe_fixstar_mag("alcyone");
+is($ref->{retval}, 0, "swe_fixstar_mag(Alcyone)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_fixstar_mag(Alcyone)->serr = $ref->{serr}\n";
+}
+is($ref->{starname}, "Alcyone,etTau", "swe_fixstar_mag(Alcyone)->starname");
+is(round_4($ref->{dmag}), 2.87, "swe_fixstar_mag(Alcyone)->dmag");
+
+$ref = SwissEph::swe_fixstar("alcyone", 2415020.5, 4);
+is($ref->{retval}, 4, "swe_fixstar(1900, Alcyone)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_fixstar(1900, Alcyone)->serr = $ref->{serr}\n";
+}
+is($ref->{starname}, "Alcyone,etTau", "swe_fixstar(1900, Alcyone)->starname");
+is(round_4($ref->{xx}->[0]), 58.6052, "swe_fixstar(1900, Alcyone)->xx[0]");
+is(round_4($ref->{xx}->[2]), 25496153.13, "swe_fixstar(1900, Alcyone)->xx[2]");
+
+$ref = SwissEph::swe_fixstar_ut("alcyone", 2415020.5-SwissEph::swe_deltat(2415020.5), 4);
+is($ref->{retval}, 4, "swe_fixstar_ut(1900, Alcyone)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_fixstar_ut(1900, Alcyone)->serr = $ref->{serr}\n";
+}
+is($ref->{starname}, "Alcyone,etTau", "swe_fixstar_ut(1900, Alcyone)->starname");
+is(round_4($ref->{xx}->[0]), 58.6052, "swe_fixstar_ut(1900, Alcyone)->xx[0]");
+is(round_4($ref->{xx}->[2]), 25496153.13, "swe_fixstar_ut(1900, Alcyone)->xx[2]");
+
+$ref = SwissEph::swe_fixstar2("alcyone", 2415020.5, 4);
+is($ref->{retval}, 4, "swe_fixstar2(1900, Alcyone)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_fixstar2(1900, Alcyone)->serr = $ref->{serr}\n";
+}
+is($ref->{starname}, "Alcyone,etTau", "swe_fixstar2(1900, Alcyone)->starname");
+is(round_4($ref->{xx}->[0]), 58.6052, "swe_fixstar2(1900, Alcyone)->xx[0]");
+is(round_4($ref->{xx}->[2]), 25496153.13, "swe_fixstar2(1900, Alcyone)->xx[2]");
+
+$ref = SwissEph::swe_fixstar2_ut("alcyone", 2415020.5-SwissEph::swe_deltat(2415020.5), 4);
+is($ref->{retval}, 4, "swe_fixstar2_ut(1900, Alcyone)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_fixstar2_ut(1900, Alcyone)->serr = $ref->{serr}\n";
+}
+is($ref->{starname}, "Alcyone,etTau", "swe_fixstar2_ut(1900, Alcyone)->starname");
+is(round_4($ref->{xx}->[0]), 58.6052, "swe_fixstar2_ut(1900, Alcyone)->xx[0]");
+is(round_4($ref->{xx}->[2]), 25496153.13, "swe_fixstar2_ut(1900, Alcyone)->xx[2]");
+
+$ref = SwissEph::swe_fixstar2_mag("alcyone");
+is($ref->{retval}, 0, "swe_fixstar2_mag(Alcyone)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_fixstar2_mag(Alcyone)->serr = $ref->{serr}\n";
+}
+is($ref->{starname}, "Alcyone,etTau", "swe_fixstar2_mag(Alcyone)->starname");
+is(round_4($ref->{dmag}), 2.87, "swe_fixstar2_mag(Alcyone)->dmag");
+
+$ref = SwissEph::swe_pheno(2415020.5, 3, 4);
+is($ref->{retval}, 4, "swe_pheno(1900, Venus)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_pheno(1900, Venus)->serr = $ref->{serr}\n";
+}
+is(round_4($ref->{phase_angle}), 36.7449, "swe_pheno(1900, Venus)->phase_angle");
+is(round_4($ref->{phase}), 0.9007, "swe_pheno(1900, Venus)->phase");
+is(round_4($ref->{elongation}), 26.2712, "swe_pheno(1900, Venus)->elongation");
+is(round_4($ref->{disc_diameter}), 0.0032, "swe_pheno(1900, Venus)->disc_diameter");
+is(round_4($ref->{magnitude}), -3.9102, "swe_pheno(1900, Venus)->magnitude");
+is(round_4($ref->{hor_parallax}), 0, "swe_pheno(1900, Venus)->hor_parallax");
+is(round_4($ref->{attr}->[0]), 36.7449, "swe_pheno(1900, Venus)->attr[0]");
+
+$ref = SwissEph::swe_pheno_ut(2415020.5 - SwissEph::swe_deltat(2415020.5), 3, 4);
+is($ref->{retval}, 4, "swe_pheno_ut(1900, Venus)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_pheno_ut(1900, Venus)->serr = $ref->{serr}\n";
+}
+is(round_4($ref->{phase_angle}), 36.7449, "swe_pheno_ut(1900, Venus)->phase_angle");
+is(round_4($ref->{phase}), 0.9007, "swe_pheno_ut(1900, Venus)->phase");
+is(round_4($ref->{elongation}), 26.2712, "swe_pheno_ut(1900, Venus)->elongation");
+is(round_4($ref->{disc_diameter}), 0.0032, "swe_pheno_ut(1900, Venus)->disc_diameter");
+is(round_4($ref->{magnitude}), -3.9102, "swe_pheno_ut(1900, Venus)->magnitude");
+is(round_4($ref->{hor_parallax}), 0, "swe_pheno_ut(1900, Venus)->hor_parallax");
+is(round_4($ref->{attr}->[0]), 36.7449, "swe_pheno_ut(1900, Venus)->attr[0]");
+
+#------------------------------------------------------------------------
+# ayanamsha
+#------------------------------------------------------------------------
+
+is(round_4(SwissEph::swe_get_ayanamsa(2451544.5)), 24.7403, "swe_get_ayanamsa(2000)");
+is(round_4(SwissEph::swe_get_ayanamsa_ut(2451544.5-SwissEph::swe_deltat(2451544.5))), 24.7403, "swe_get_ayanamsa(2000)");
+
+$ref = SwissEph::swe_get_ayanamsa_ex(2451544.5, SwissEph::SEFLG_MOSEPH);
+is(round_4($ref->{daya}),24.7364, "swe_get_ayanamsa_ex(2000)");
+
+$ref = SwissEph::swe_get_ayanamsa_ex_ut(2451544.5, SwissEph::SEFLG_MOSEPH);
+is(round_4($ref->{daya}),24.7364, "swe_get_ayanamsa_ex(2000)");
+
+is(SwissEph::swe_get_ayanamsa_name(3), "Raman", "swe_get_ayanamsa(Raman)");
+
+is(SwissEph::swe_get_planet_name(SwissEph::SE_VENUS), "Venus", "swe_get_planet_name(Venus)");
+
+#------------------------------------------------------------------------
+# refraction, azimuth, and altitude, rise and transit
+#------------------------------------------------------------------------
+
+$ref = SwissEph::swe_refrac_extended(0.1,400,1013,15,0.02,1);
+is($ref->{retval}, 0, "swe_refrac_extended()->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_refrac_extended()->serr = $ref->{serr}\n";
+}
+is(round_4($ref->{alt_true}), -0.4391, "swe_refrac_extended()->alt_true");
+is(round_4($ref->{alt_apparent}), 0.1, "swe_refrac_extended()->alt_apparent");
+is(round_4($ref->{refraction}), 0.5392, "swe_refrac_extended()->refraction");
+is(round_4($ref->{dip}), -0.5238, "swe_refrac_extended()->dip");
+is(round_4($ref->{dret}->[0]), -0.4391, "swe_refrac_extended()->dret[0]");
+
+is(round_4(SwissEph::swe_refrac(0.6,1013,15,1)), 0.1441, "swe_refrac()");
+
+@xx = SwissEph::swe_azalt(2436723.588888888,0,[8.55,47.35,0],1013,15,[252,0,1]);
+is(round_4($xx[0]), 38.9512, "swe_azalt()->azimuth");
+is(round_4($xx[1]), 10.8971, "swe_azalt()->alt_true");
+is(round_4($xx[2]), 10.9771, "swe_azalt()->alt_apparent");
+
+@xx = SwissEph::swe_azalt_rev(2436723.588888888,0,[8.55,47.35,0],\@xx);
+is(round_4($xx[0]), 252, "swe_azalt_rev()->ecl_lon");
+is(round_4($xx[1]), 0, "swe_azalt_rev()->ecl_lat");
+
+$ref = SwissEph::swe_rise_trans(2415020.5,3,"", 4,0,[8.55,47.23,400],1013,15);
+is($ref->{retval}, 0, "swe_rise_trans(1900, Venus)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_rise_trans(1900, Venus)->serr = $ref->{serr}\n";
+}
+is(round_4($ref->{dret}), 2415020.8696, "swe_rise_trans(1900, Venus)->dret");
+
+#------------------------------------------------------------------------
+# eclipses and occultations
+#------------------------------------------------------------------------
+
+$ref = SwissEph::swe_lun_eclipse_how(2454517.643069,4,[278,0,0]);
+is($ref->{retval}, 4, "swe_lun_eclipse_how(2008)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_lun_eclipse_how(2008)->serr = $ref->{serr}\n";
+}
+is(round_4($ref->{mag_umbral}), 1.1059, "swe_lun_eclipse_how(2008)->mag_umbral");
+is(round_4($ref->{mag_penumbral}), 2.1450, "swe_lun_eclipse_how(2008)->mag_penumbral");
+is(round_4($ref->{attr}->[0]), 1.1059, "swe_lun_eclipse_how(2008)->attr[0]");
+
+$ref = SwissEph::swe_sol_eclipse_how(2454503.663212,4,[-150.270493,-67.547072,0]);
+is($ref->{retval}, 137, "swe_sol_eclipse_how(2008)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_sol_eclipse_how(2008)->serr = $ref->{serr}\n";
+}
+is(round_4($ref->{disc_ratio}), 0.9658, "swe_sol_eclipse_how(2008)->disc_ratio");
+is(round_4($ref->{fraction_diameter}), 0.9808, "swe_sol_eclipse_how(2008)->fraction_diameter");
+is(round_4($ref->{fraction_disc}), 0.9327, "swe_sol_eclipse_how(2008)->fraction_disc");
+is(round_4($ref->{core_shadow_km}), 123.5327, "swe_sol_eclipse_how(2008)->core_shadow_km");
+is(round_4($ref->{sun_azimuth}), 88.5702, "swe_sol_eclipse_how(2008)->sun_azimuth");
+is(round_4($ref->{sun_alt_true}), 16.2305, "swe_sol_eclipse_how(2008)->sun_alt_true");
+is(round_4($ref->{separation_angle}), 0.0011, "swe_sol_eclipse_how(2008)->separation_angle");
+
+$ref = SwissEph::swe_sol_eclipse_where(2454503.663212,4);
+is($ref->{retval}, 9, "swe_sol_eclipse_where(2008)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_sol_eclipse_where(2008)->serr = $ref->{serr}\n";
+}
+is(round_4($ref->{geopos}->[0]), -150.3452, "swe_sol_eclipse_where(2008)->geopos[0]");
+is(round_4($ref->{geopos}->[1]), -67.5477, "swe_sol_eclipse_where(2008)->geopos[1]");
+is(round_4($ref->{disc_ratio}), 0.9658, "swe_sol_eclipse_where(2008)->disc_ratio");
+is(round_4($ref->{fraction_diameter}), 0.9809, "swe_sol_eclipse_where(2008)->fraction_diameter");
+is(round_4($ref->{fraction_disc}), 0.9327, "swe_sol_eclipse_where(2008)->fraction_disc");
+is(round_4($ref->{core_shadow_km}), 123.5327, "swe_sol_eclipse_where(2008)->core_shadow_km");
+is(round_4($ref->{sun_azimuth}), 88.6393, "swe_sol_eclipse_where(2008)->sun_azimuth");
+is(round_4($ref->{sun_alt_true}), 16.2591, "swe_sol_eclipse_where(2008)->sun_alt_true");
+is(round_4($ref->{separation_angle}), 0.0011, "swe_sol_eclipse_where(2008)->separation_angle");
+
+$ref = SwissEph::swe_lun_occult_where(2454531.296945,SwissEph::SE_VENUS,"",4);
+is($ref->{retval}, 5, "swe_lun_occult_where(2008)->retval");
+if (exists($ref->{serr})) {
+  print STDERR "swe_lun_occult_where(2008)->serr = $ref->{serr}\n";
+}
+is(round_4($ref->{geopos}->[0]), -132.4299, "swe_lun_occult_where(2008)->geopos[0]");
+is(round_4($ref->{geopos}->[1]), -3.2154, "swe_lun_occult_where(2008)->geopos[1]");
+is(round_4($ref->{disc_ratio}), 172.5202, "swe_lun_occult_where(2008)->disc_ratio");
+is(rou