From d54fe7c1f704a63824c5bfa0ece65245572e9b27 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 4 Mar 2015 21:21:30 -0500 Subject: Initial commit --- src/Makefile.Linux.orig | 138 + src/Makefile.Linux64.orig | 113 + src/Makefile.MacOSX.orig | 143 + src/Makefile.Solaris.orig | 137 + src/Makefile.am | 1 + src/Makefile.in | 619 + src/Makefile.orig.orig | 137 + src/analysis/Makefile.Linux.orig | 142 + src/analysis/Makefile.Linux64.orig | 141 + src/analysis/Makefile.MacOSX.orig | 145 + src/analysis/Makefile.Solaris.orig | 147 + src/analysis/Makefile.orig.orig | 147 + src/analysis/bpm_combine.c | 548 + src/analysis/cf_arith.c | 2154 ++++ src/analysis/cf_coadd.c | 192 + src/analysis/cf_combine.c | 544 + src/analysis/cf_make_900_obs.csh | 193 + src/analysis/cf_make_all_exp.c | 91 + src/analysis/cf_make_all_obs.csh | 555 + src/analysis/cf_nvo.c | 497 + src/analysis/cf_pack.c | 270 + src/analysis/cf_reflux.c | 148 + src/analysis/cf_ttag_to_hist.c | 463 + src/analysis/cf_wrspec7.c | 58 + src/analysis/cf_wrspec_cf2.c | 120 + src/analysis/cf_xcorr.c | 303 + src/analysis/extract_jitter.c | 198 + src/analysis/get_shift.c | 164 + src/analysis/gethmjd.c | 98 + src/analysis/idf_combine.c | 945 ++ src/analysis/idf_cut.c | 977 ++ src/analysis/idf_screen.c | 339 + src/analysis/mjd2hjd.c | 129 + src/analysis/modhead.c | 114 + src/analysis/remove_target_orbital_motion.c | 503 + src/analysis/ttag_combine.c | 520 + src/analysis/ttag_lightcurve.c | 398 + src/analysis/ttag_lightcurve_channel_sum.c | 183 + src/analysis/ttag_lightcurve_combine.c | 182 + src/analysis/ttag_lightcurve_mjd2hmjd.c | 151 + src/analysis/ttag_lightcurve_periodogram.c | 294 + src/cal/geom/Makefile.orig.orig | 43 + src/cal/geom/make_geom_file | Bin 0 -> 35004 bytes src/cal/geom/make_geom_file.c | 185 + src/cal/get_tle/GetTLE.class | Bin 0 -> 2897 bytes src/cal/get_tle/GetTLE.java | 110 + src/cal/get_tle/add_tle.pl | 182 + src/cal/get_tle/check_tle.dat | 266 + src/cal/get_tle/check_tle.pl | 100 + src/cal/get_tle/check_tle.pro | 73 + src/cal/get_tle/get_tle.pl | 148 + src/cal/get_tle/get_tle.pl.OIG | 148 + src/cal/get_tle/get_tle.pl.orig | 144 + src/cal/get_tle/get_tle.pl.space-track | 148 + src/cal/get_tle/make_cvzramtool.pl | 215 + src/cal/get_tle/make_orbit.pl | 233 + src/cal/get_tle/test_get_tle.pl | 148 + src/cal/get_tle/test_tle.csh | 50 + src/cal/get_tle/tmp/FUSE.OLD | 5205 +++++++++ src/cal/get_tle/tmp/FUSE.TLE | 5205 +++++++++ src/cal/get_tle/tmp/FUSE.TLE.NEW | 15 + src/cal/get_tle/tmp/FUSE.TLE.awf | 4419 ++++++++ src/cal/get_tle/tmp/FUSE.TLE.kruk | 4578 ++++++++ src/cal/get_tle/tmp/add_tle.pl | 182 + src/cal/get_tle/tmp/check_tle.pl | 100 + src/cal/get_tle/tmp/five.tle.orig | 17 + src/cal/get_tle/tmp/get_tle.logfile | 122 + src/cal/get_tle/tmp/get_tle.pl | 148 + src/cal/get_tle/tmp/make_cvzramtool.pl | 215 + src/cal/get_tle/tmp/make_orbit.pl | 233 + src/cal/get_tle/tmp/test_get_tle.pl | 148 + src/cal/get_tle/tmp/test_tle.csh | 50 + src/cal/get_tle/tmp/update_tle.csh | 55 + src/cal/get_tle/update_tle.csh | 57 + src/cal/jitter/Makefile.Linux.orig | 43 + src/cal/jitter/Makefile.Linux64.orig | 42 + src/cal/jitter/Makefile.MacOSX.orig | 46 + src/cal/jitter/Makefile.Solaris.orig | 50 + src/cal/jitter/Makefile.orig.orig | 50 + src/cal/jitter/cf_jitter.c | 1239 ++ src/cal/jitter/cf_jitter_diag.c | 916 ++ src/cal/parm/Makefile.orig.orig | 52 + src/cal/parm/make_parm_file.c | 109 + src/cal/saa/Makefile.orig.orig | 19 + src/cal/saa/make_saa_file.c | 81 + src/cal/screen/Makefile.orig.orig | 28 + src/cal/screen/make_screen_file | Bin 0 -> 11700 bytes src/cal/screen/make_screen_file.c | 122 + src/configure.linux.orig | 68 + src/configure.linux64.orig | 74 + src/configure.macosx.orig | 78 + src/configure.solaris.orig | 98 + src/fes/Makefile.Linux.orig | 44 + src/fes/Makefile.Linux64.orig | 43 + src/fes/Makefile.Solaris.orig | 44 + src/fes/Makefile.orig.orig | 44 + src/fes/cf_calfes.c | 151 + src/fes/cf_calfes.h | 10 + src/fes/cf_cp_hdr.c | 71 + src/fes/cf_fes_apply_bias.c | 98 + src/fes/cf_fes_apply_flat.c | 67 + src/fes/cf_fes_apply_mask.c | 56 + src/fes/cf_fes_cal.c | 115 + src/fes/cf_fes_get_cal_image.c | 71 + src/fes/cf_fes_init.c | 294 + src/fes/cf_fes_read.c | 76 + src/fes/cf_fes_write.c | 60 + src/fes/cf_limbang.c | 100 + src/fuv/Makefile.Linux.orig | 75 + src/fuv/Makefile.Linux64.orig | 74 + src/fuv/Makefile.MacOSX.orig | 76 + src/fuv/Makefile.Solaris.orig | 75 + src/fuv/Makefile.orig.orig | 75 + src/fuv/cf_assign_wavelength.c | 178 + src/fuv/cf_bad_pixels.c | 1001 ++ src/fuv/cf_convert_to_farf.c | 268 + src/fuv/cf_countmap.c | 541 + src/fuv/cf_extract_spectra.c | 336 + src/fuv/cf_flux_calibrate.c | 173 + src/fuv/cf_gainmap.c | 610 + src/fuv/cf_hist_init.c | 653 ++ src/fuv/cf_remove_motions.c | 316 + src/fuv/cf_screen_photons.c | 298 + src/fuv/cf_ttag_init.c | 594 + src/libcf/Makefile.Linux.orig | 152 + src/libcf/Makefile.Linux64.orig | 151 + src/libcf/Makefile.MacOSX.orig | 152 + src/libcf/Makefile.Solaris.orig | 152 + src/libcf/Makefile.orig.orig | 152 + src/libcf/calfits.c | 658 ++ src/libcf/cf_active_region.c | 90 + src/libcf/cf_apply_dead_time.c | 142 + src/libcf/cf_apply_filters.c | 177 + src/libcf/cf_astig_farf.c | 144 + src/libcf/cf_astigmatism.c | 198 + src/libcf/cf_cal_file.c | 84 + src/libcf/cf_calculate_y_centroid.c | 289 + src/libcf/cf_calculate_ycent_motion.c | 152 + src/libcf/cf_check_digitizer.c | 101 + src/libcf/cf_convert_to_ergs.c | 182 + src/libcf/cf_count_rate_y_distort.c | 157 + src/libcf/cf_dispersion.c | 85 + src/libcf/cf_doppler_and_heliocentric.c | 87 + src/libcf/cf_electronics_dead_time.c | 104 + src/libcf/cf_error_msg.c | 263 + src/libcf/cf_extraction_limits.c | 137 + src/libcf/cf_fes_proc_check.c | 94 + src/libcf/cf_fes_proc_update.c | 68 + src/libcf/cf_fifo_dead_time.c | 164 + src/libcf/cf_find_spectra.c | 396 + src/libcf/cf_fpa_position.c | 231 + src/libcf/cf_fuv_init.c | 592 + src/libcf/cf_geometric_distort.c | 145 + src/libcf/cf_grating_motion.c | 432 + src/libcf/cf_header_io.c | 110 + src/libcf/cf_identify_channel.c | 201 + src/libcf/cf_idf_io.c | 161 + src/libcf/cf_ids_dead_time.c | 109 + src/libcf/cf_init_support.c | 1344 +++ src/libcf/cf_make_mask.c | 175 + src/libcf/cf_make_wave_array.c | 147 + src/libcf/cf_mirror_motion.c | 189 + src/libcf/cf_modify_hist_pha.c | 91 + src/libcf/cf_modify_hist_times.c | 83 + src/libcf/cf_nint.c | 47 + src/libcf/cf_optimal_extraction.c | 551 + src/libcf/cf_pha_x_distort.c | 107 + src/libcf/cf_proc_check.c | 124 + src/libcf/cf_proc_update.c | 97 + src/libcf/cf_read_fpa_pos.c | 82 + src/libcf/cf_rebin_background.c | 211 + src/libcf/cf_rebin_probability_array.c | 180 + src/libcf/cf_satellite_jitter.c | 245 + src/libcf/cf_scale_bkgd.c | 956 ++ src/libcf/cf_screen_airglow.c | 70 + src/libcf/cf_screen_bad_pixels.c | 122 + src/libcf/cf_screen_burst.c | 758 ++ src/libcf/cf_screen_high_voltage.c | 146 + src/libcf/cf_screen_jitter.c | 246 + src/libcf/cf_screen_limb_angle.c | 87 + src/libcf/cf_screen_pulse_height.c | 79 + src/libcf/cf_screen_saa.c | 83 + src/libcf/cf_set_good_time_intervals.c | 157 + src/libcf/cf_set_photon_flags.c | 425 + src/libcf/cf_set_user_gtis.c | 100 + src/libcf/cf_source_aper.c | 67 + src/libcf/cf_standard_or_optimal_extraction.c | 75 + src/libcf/cf_target_count_rate.c | 112 + src/libcf/cf_thermal_distort.c | 258 + src/libcf/cf_time_xy_distort.c | 171 + src/libcf/cf_timestamp.c | 78 + src/libcf/cf_velang.c | 147 + src/libcf/cf_write_extracted_spectrum.c | 226 + src/libcf/eclipse.c | 148 + src/libcf/geod_mag.c | 40 + src/libcf/helio_vel.c | 82 + src/libcf/lsrd_vel.c | 51 + src/libcf/lsrk_vel.c | 52 + src/libcf/month_day.c | 19 + src/libcf/pole_ang.c | 64 + src/libcf/read_tle.c | 303 + src/libcf/saa.c | 74 + src/libcf/set_orbit_parms.c | 86 + src/libcf/sgp4.c | 426 + src/libcf/solar_ang.c | 90 + src/libcf/space_vel.c | 46 + src/libcf/state_geod.c | 107 + src/libcf/state_limb.c | 159 + src/slalib/Makefile.am | 187 + src/slalib/Makefile.in | 830 ++ src/slalib/addet.f | 67 + src/slalib/afin.f | 102 + src/slalib/airmas.f | 58 + src/slalib/altaz.f | 145 + src/slalib/amp.f | 68 + src/slalib/ampqk.f | 127 + src/slalib/aop.f | 174 + src/slalib/aoppa.f | 176 + src/slalib/aoppat.f | 45 + src/slalib/aopqk.f | 242 + src/slalib/atmdsp.f | 121 + src/slalib/atms.f | 40 + src/slalib/atmt.f | 54 + src/slalib/av2m.f | 68 + src/slalib/bear.f | 42 + src/slalib/caf2r.f | 57 + src/slalib/caldj.f | 57 + src/slalib/calyd.f | 65 + src/slalib/cc2s.f | 53 + src/slalib/cc62s.f | 82 + src/slalib/cd2tf.f | 55 + src/slalib/cldj.f | 78 + src/slalib/clyd.f | 101 + src/slalib/combn.f | 142 + src/slalib/cr2af.f | 58 + src/slalib/cr2tf.f | 58 + src/slalib/create.com | 140 + src/slalib/cs2c.f | 41 + src/slalib/cs2c6.f | 56 + src/slalib/ctf2d.f | 56 + src/slalib/ctf2r.f | 54 + src/slalib/daf2r.f | 55 + src/slalib/dafin.f | 163 + src/slalib/dat.f | 219 + src/slalib/dav2m.f | 67 + src/slalib/dbear.f | 42 + src/slalib/dbjin.f | 113 + src/slalib/dc62s.f | 82 + src/slalib/dcc2s.f | 53 + src/slalib/dcmpf.f | 140 + src/slalib/dcs2c.f | 41 + src/slalib/dd2tf.f | 89 + src/slalib/de2h.f | 89 + src/slalib/deuler.f | 163 + src/slalib/dfltin.f | 280 + src/slalib/dh2e.f | 83 + src/slalib/dimxv.f | 51 + src/slalib/djcal.f | 77 + src/slalib/djcl.f | 68 + src/slalib/dm2av.f | 59 + src/slalib/dmat.f | 140 + src/slalib/dmoon.f | 641 ++ src/slalib/dmxm.f | 56 + src/slalib/dmxv.f | 47 + src/slalib/dpav.f | 72 + src/slalib/dr2af.f | 58 + src/slalib/dr2tf.f | 58 + src/slalib/drange.f | 32 + src/slalib/dranrm.f | 31 + src/slalib/ds2c6.f | 57 + src/slalib/ds2tp.f | 67 + src/slalib/dsep.f | 48 + src/slalib/dt.f | 79 + src/slalib/dtf2d.f | 55 + src/slalib/dtf2r.f | 53 + src/slalib/dtp2s.f | 42 + src/slalib/dtp2v.f | 56 + src/slalib/dtps2c.f | 91 + src/slalib/dtpv2c.f | 83 + src/slalib/dtt.f | 46 + src/slalib/dv2tp.f | 78 + src/slalib/dvdv.f | 27 + src/slalib/dvn.f | 46 + src/slalib/dvxv.f | 39 + src/slalib/e2h.f | 89 + src/slalib/earth.f | 111 + src/slalib/ecleq.f | 55 + src/slalib/ecmat.f | 52 + src/slalib/ecor.f | 78 + src/slalib/eg50.f | 90 + src/slalib/el2ue.f | 301 + src/slalib/epb.f | 30 + src/slalib/epb2d.f | 30 + src/slalib/epco.f | 51 + src/slalib/epj.f | 29 + src/slalib/epj2d.f | 29 + src/slalib/eqecl.f | 55 + src/slalib/eqeqx.f | 57 + src/slalib/eqgal.f | 79 + src/slalib/etrms.f | 62 + src/slalib/euler.f | 68 + src/slalib/evp.f | 441 + src/slalib/fitxy.f | 300 + src/slalib/fk425.f | 249 + src/slalib/fk45z.f | 165 + src/slalib/fk524.f | 257 + src/slalib/fk52h.f | 105 + src/slalib/fk54z.f | 69 + src/slalib/fk5hz.f | 107 + src/slalib/flotin.f | 128 + src/slalib/galeq.f | 79 + src/slalib/galsup.f | 79 + src/slalib/ge50.f | 90 + src/slalib/geoc.f | 57 + src/slalib/gmst.f | 60 + src/slalib/gmsta.f | 80 + src/slalib/gresid.f_alpha_OSF1 | 76 + src/slalib/gresid.f_convex | 80 + src/slalib/gresid.f_ix86_Linux | 74 + src/slalib/gresid.f_mips | 74 + src/slalib/gresid.f_pcm | 73 + src/slalib/gresid.f_sun4 | 80 + src/slalib/gresid.f_sun4_Solaris | 80 + src/slalib/gresid.f_vax | 72 + src/slalib/gresid.f_x86_64 | 74 + src/slalib/h2e.f | 83 + src/slalib/h2fk5.f | 109 + src/slalib/hfk5z.f | 122 + src/slalib/idchf.f | 94 + src/slalib/idchi.f | 91 + src/slalib/imxv.f | 51 + src/slalib/intin.f | 176 + src/slalib/invf.f | 90 + src/slalib/kbj.f | 56 + src/slalib/m2av.f | 59 + src/slalib/makefile.orig | 1426 +++ src/slalib/map.f | 75 + src/slalib/mappa.f | 107 + src/slalib/mapqk.f | 143 + src/slalib/mapqkz.f | 113 + src/slalib/mk | 437 + src/slalib/mk.sv | 437 + src/slalib/moon.f | 362 + src/slalib/mxm.f | 55 + src/slalib/mxv.f | 47 + src/slalib/nut.f | 44 + src/slalib/nutc.f | 442 + src/slalib/oap.f | 172 + src/slalib/oapqk.f | 233 + src/slalib/obs.f | 844 ++ src/slalib/pa.f | 46 + src/slalib/pav.f | 53 + src/slalib/pc.bat | 75 + src/slalib/pcd.f | 59 + src/slalib/pda2h.f | 100 + src/slalib/pdq2h.f | 98 + src/slalib/permut.f | 141 + src/slalib/pertel.f | 159 + src/slalib/pertue.f | 535 + src/slalib/planel.f | 117 + src/slalib/planet.f | 707 ++ src/slalib/plante.f | 157 + src/slalib/pm.f | 74 + src/slalib/polmo.f | 133 + src/slalib/prebn.f | 62 + src/slalib/prec.f | 79 + src/slalib/preces.f | 84 + src/slalib/precl.f | 125 + src/slalib/prenut.f | 48 + src/slalib/put.com | 38 + src/slalib/pv2el.f | 351 + src/slalib/pv2ue.f | 150 + src/slalib/pvobs.f | 59 + src/slalib/pxy.f | 92 + src/slalib/random.f_alpha_OSF1 | 56 + src/slalib/random.f_convex | 56 + src/slalib/random.f_ix86_Linux | 54 + src/slalib/random.f_mips | 54 + src/slalib/random.f_pcm | 42 + src/slalib/random.f_sun4 | 56 + src/slalib/random.f_sun4_Solaris | 56 + src/slalib/random.f_vax | 52 + src/slalib/random.f_x86_64 | 54 + src/slalib/range.f | 33 + src/slalib/ranorm.f | 31 + src/slalib/rcc.f | 1063 ++ src/slalib/rdplan.f | 183 + src/slalib/read.me | 441 + src/slalib/refco.f | 70 + src/slalib/refcoq.f | 208 + src/slalib/refro.f | 374 + src/slalib/refv.f | 106 + src/slalib/refz.f | 139 + src/slalib/rep.bat | 21 + src/slalib/rtl_random.c | 33 + src/slalib/rverot.f | 48 + src/slalib/rvgalc.f | 69 + src/slalib/rvlg.f | 64 + src/slalib/rvlsrd.f | 78 + src/slalib/rvlsrk.f | 77 + src/slalib/s2tp.f | 67 + src/slalib/sep.f | 48 + src/slalib/sla.news | 40 + src/slalib/sla_link | 1 + src/slalib/sla_link_adam | 1 + src/slalib/sla_test.f | 28 + src/slalib/smat.f | 141 + src/slalib/subet.f | 66 + src/slalib/sun67.htx/blueball.gif | Bin 0 -> 398 bytes src/slalib/sun67.htx/change_begin.gif | Bin 0 -> 133 bytes src/slalib/sun67.htx/change_begin_right.gif | Bin 0 -> 128 bytes src/slalib/sun67.htx/change_delete.gif | Bin 0 -> 257 bytes src/slalib/sun67.htx/change_delete_right.gif | Bin 0 -> 257 bytes src/slalib/sun67.htx/change_end.gif | Bin 0 -> 135 bytes src/slalib/sun67.htx/change_end_right.gif | Bin 0 -> 127 bytes src/slalib/sun67.htx/contents.xbm | 12 + src/slalib/sun67.htx/contents_motif.gif | Bin 0 -> 225 bytes src/slalib/sun67.htx/cross_ref_motif.gif | Bin 0 -> 78 bytes src/slalib/sun67.htx/foot_motif.gif | Bin 0 -> 87 bytes src/slalib/sun67.htx/footnode.html | 224 + src/slalib/sun67.htx/greenball.gif | Bin 0 -> 398 bytes src/slalib/sun67.htx/icons.html | 42 + src/slalib/sun67.htx/image.gif | Bin 0 -> 195 bytes src/slalib/sun67.htx/images.aux | 1 + src/slalib/sun67.htx/images.log | 1727 +++ src/slalib/sun67.htx/images.pl | 1686 +++ src/slalib/sun67.htx/images.tex | 2852 +++++ src/slalib/sun67.htx/img1.gif | Bin 0 -> 164 bytes src/slalib/sun67.htx/img10.gif | Bin 0 -> 129 bytes src/slalib/sun67.htx/img100.gif | Bin 0 -> 144 bytes src/slalib/sun67.htx/img101.gif | Bin 0 -> 137 bytes src/slalib/sun67.htx/img102.gif | Bin 0 -> 168 bytes src/slalib/sun67.htx/img103.gif | Bin 0 -> 173 bytes src/slalib/sun67.htx/img104.gif | Bin 0 -> 255 bytes src/slalib/sun67.htx/img105.gif | Bin 0 -> 160 bytes src/slalib/sun67.htx/img106.gif | Bin 0 -> 416 bytes src/slalib/sun67.htx/img107.gif | Bin 0 -> 454 bytes src/slalib/sun67.htx/img108.gif | Bin 0 -> 367 bytes src/slalib/sun67.htx/img109.gif | Bin 0 -> 507 bytes src/slalib/sun67.htx/img11.gif | Bin 0 -> 939 bytes src/slalib/sun67.htx/img110.gif | Bin 0 -> 470 bytes src/slalib/sun67.htx/img111.gif | Bin 0 -> 370 bytes src/slalib/sun67.htx/img112.gif | Bin 0 -> 260 bytes src/slalib/sun67.htx/img113.gif | Bin 0 -> 362 bytes src/slalib/sun67.htx/img114.gif | Bin 0 -> 327 bytes src/slalib/sun67.htx/img115.gif | Bin 0 -> 144 bytes src/slalib/sun67.htx/img116.gif | Bin 0 -> 291 bytes src/slalib/sun67.htx/img117.gif | Bin 0 -> 186 bytes src/slalib/sun67.htx/img118.gif | Bin 0 -> 190 bytes src/slalib/sun67.htx/img119.gif | Bin 0 -> 406 bytes src/slalib/sun67.htx/img12.gif | Bin 0 -> 980 bytes src/slalib/sun67.htx/img120.gif | Bin 0 -> 415 bytes src/slalib/sun67.htx/img121.gif | Bin 0 -> 260 bytes src/slalib/sun67.htx/img122.gif | Bin 0 -> 177 bytes src/slalib/sun67.htx/img123.gif | Bin 0 -> 185 bytes src/slalib/sun67.htx/img124.gif | Bin 0 -> 252 bytes src/slalib/sun67.htx/img125.gif | Bin 0 -> 239 bytes src/slalib/sun67.htx/img126.gif | Bin 0 -> 229 bytes src/slalib/sun67.htx/img127.gif | Bin 0 -> 164 bytes src/slalib/sun67.htx/img128.gif | Bin 0 -> 467 bytes src/slalib/sun67.htx/img129.gif | Bin 0 -> 142 bytes src/slalib/sun67.htx/img13.gif | Bin 0 -> 319 bytes src/slalib/sun67.htx/img130.gif | Bin 0 -> 147 bytes src/slalib/sun67.htx/img131.gif | Bin 0 -> 155 bytes src/slalib/sun67.htx/img132.gif | Bin 0 -> 163 bytes src/slalib/sun67.htx/img133.gif | Bin 0 -> 226 bytes src/slalib/sun67.htx/img134.gif | Bin 0 -> 231 bytes src/slalib/sun67.htx/img135.gif | Bin 0 -> 242 bytes src/slalib/sun67.htx/img136.gif | Bin 0 -> 271 bytes src/slalib/sun67.htx/img137.gif | Bin 0 -> 210 bytes src/slalib/sun67.htx/img138.gif | Bin 0 -> 771 bytes src/slalib/sun67.htx/img139.gif | Bin 0 -> 242 bytes src/slalib/sun67.htx/img14.gif | Bin 0 -> 272 bytes src/slalib/sun67.htx/img140.gif | Bin 0 -> 133 bytes src/slalib/sun67.htx/img141.gif | Bin 0 -> 222 bytes src/slalib/sun67.htx/img142.gif | Bin 0 -> 251 bytes src/slalib/sun67.htx/img143.gif | Bin 0 -> 251 bytes src/slalib/sun67.htx/img144.gif | Bin 0 -> 349 bytes src/slalib/sun67.htx/img145.gif | Bin 0 -> 331 bytes src/slalib/sun67.htx/img146.gif | Bin 0 -> 146 bytes src/slalib/sun67.htx/img147.gif | Bin 0 -> 192 bytes src/slalib/sun67.htx/img148.gif | Bin 0 -> 688 bytes src/slalib/sun67.htx/img149.gif | Bin 0 -> 143 bytes src/slalib/sun67.htx/img15.gif | Bin 0 -> 277 bytes src/slalib/sun67.htx/img150.gif | Bin 0 -> 201 bytes src/slalib/sun67.htx/img151.gif | Bin 0 -> 252 bytes src/slalib/sun67.htx/img152.gif | Bin 0 -> 290 bytes src/slalib/sun67.htx/img153.gif | Bin 0 -> 246 bytes src/slalib/sun67.htx/img154.gif | Bin 0 -> 198 bytes src/slalib/sun67.htx/img155.gif | Bin 0 -> 261 bytes src/slalib/sun67.htx/img156.gif | Bin 0 -> 243 bytes src/slalib/sun67.htx/img157.gif | Bin 0 -> 334 bytes src/slalib/sun67.htx/img158.gif | Bin 0 -> 227 bytes src/slalib/sun67.htx/img159.gif | Bin 0 -> 326 bytes src/slalib/sun67.htx/img16.gif | Bin 0 -> 233 bytes src/slalib/sun67.htx/img160.gif | Bin 0 -> 312 bytes src/slalib/sun67.htx/img161.gif | Bin 0 -> 247 bytes src/slalib/sun67.htx/img162.gif | Bin 0 -> 203 bytes src/slalib/sun67.htx/img163.gif | Bin 0 -> 206 bytes src/slalib/sun67.htx/img164.gif | Bin 0 -> 198 bytes src/slalib/sun67.htx/img165.gif | Bin 0 -> 221 bytes src/slalib/sun67.htx/img166.gif | Bin 0 -> 263 bytes src/slalib/sun67.htx/img167.gif | Bin 0 -> 252 bytes src/slalib/sun67.htx/img168.gif | Bin 0 -> 256 bytes src/slalib/sun67.htx/img169.gif | Bin 0 -> 455 bytes src/slalib/sun67.htx/img17.gif | Bin 0 -> 409 bytes src/slalib/sun67.htx/img170.gif | Bin 0 -> 153 bytes src/slalib/sun67.htx/img171.gif | Bin 0 -> 217 bytes src/slalib/sun67.htx/img172.gif | Bin 0 -> 505 bytes src/slalib/sun67.htx/img173.gif | Bin 0 -> 160 bytes src/slalib/sun67.htx/img174.gif | Bin 0 -> 199 bytes src/slalib/sun67.htx/img175.gif | Bin 0 -> 243 bytes src/slalib/sun67.htx/img176.gif | Bin 0 -> 215 bytes src/slalib/sun67.htx/img177.gif | Bin 0 -> 247 bytes src/slalib/sun67.htx/img178.gif | Bin 0 -> 190 bytes src/slalib/sun67.htx/img179.gif | Bin 0 -> 215 bytes src/slalib/sun67.htx/img18.gif | Bin 0 -> 243 bytes src/slalib/sun67.htx/img180.gif | Bin 0 -> 385 bytes src/slalib/sun67.htx/img181.gif | Bin 0 -> 371 bytes src/slalib/sun67.htx/img182.gif | Bin 0 -> 205 bytes src/slalib/sun67.htx/img183.gif | Bin 0 -> 299 bytes src/slalib/sun67.htx/img184.gif | Bin 0 -> 219 bytes src/slalib/sun67.htx/img185.gif | Bin 0 -> 205 bytes src/slalib/sun67.htx/img186.gif | Bin 0 -> 191 bytes src/slalib/sun67.htx/img187.gif | Bin 0 -> 218 bytes src/slalib/sun67.htx/img188.gif | Bin 0 -> 209 bytes src/slalib/sun67.htx/img189.gif | Bin 0 -> 193 bytes src/slalib/sun67.htx/img19.gif | Bin 0 -> 140 bytes src/slalib/sun67.htx/img190.gif | Bin 0 -> 214 bytes src/slalib/sun67.htx/img191.gif | Bin 0 -> 206 bytes src/slalib/sun67.htx/img192.gif | Bin 0 -> 149 bytes src/slalib/sun67.htx/img193.gif | Bin 0 -> 209 bytes src/slalib/sun67.htx/img194.gif | Bin 0 -> 216 bytes src/slalib/sun67.htx/img195.gif | Bin 0 -> 249 bytes src/slalib/sun67.htx/img196.gif | Bin 0 -> 204 bytes src/slalib/sun67.htx/img197.gif | Bin 0 -> 229 bytes src/slalib/sun67.htx/img198.gif | Bin 0 -> 206 bytes src/slalib/sun67.htx/img199.gif | Bin 0 -> 248 bytes src/slalib/sun67.htx/img2.gif | Bin 0 -> 165 bytes src/slalib/sun67.htx/img20.gif | Bin 0 -> 288 bytes src/slalib/sun67.htx/img200.gif | Bin 0 -> 217 bytes src/slalib/sun67.htx/img201.gif | Bin 0 -> 254 bytes src/slalib/sun67.htx/img202.gif | Bin 0 -> 248 bytes src/slalib/sun67.htx/img203.gif | Bin 0 -> 191 bytes src/slalib/sun67.htx/img204.gif | Bin 0 -> 267 bytes src/slalib/sun67.htx/img205.gif | Bin 0 -> 209 bytes src/slalib/sun67.htx/img206.gif | Bin 0 -> 281 bytes src/slalib/sun67.htx/img207.gif | Bin 0 -> 304 bytes src/slalib/sun67.htx/img208.gif | Bin 0 -> 318 bytes src/slalib/sun67.htx/img209.gif | Bin 0 -> 315 bytes src/slalib/sun67.htx/img21.gif | Bin 0 -> 211 bytes src/slalib/sun67.htx/img210.gif | Bin 0 -> 2211 bytes src/slalib/sun67.htx/img211.gif | Bin 0 -> 493 bytes src/slalib/sun67.htx/img212.gif | Bin 0 -> 189 bytes src/slalib/sun67.htx/img213.gif | Bin 0 -> 207 bytes src/slalib/sun67.htx/img214.gif | Bin 0 -> 212 bytes src/slalib/sun67.htx/img215.gif | Bin 0 -> 215 bytes src/slalib/sun67.htx/img216.gif | Bin 0 -> 193 bytes src/slalib/sun67.htx/img217.gif | Bin 0 -> 233 bytes src/slalib/sun67.htx/img218.gif | Bin 0 -> 234 bytes src/slalib/sun67.htx/img219.gif | Bin 0 -> 257 bytes src/slalib/sun67.htx/img22.gif | Bin 0 -> 206 bytes src/slalib/sun67.htx/img220.gif | Bin 0 -> 262 bytes src/slalib/sun67.htx/img221.gif | Bin 0 -> 238 bytes src/slalib/sun67.htx/img222.gif | Bin 0 -> 327 bytes src/slalib/sun67.htx/img223.gif | Bin 0 -> 325 bytes src/slalib/sun67.htx/img224.gif | Bin 0 -> 704 bytes src/slalib/sun67.htx/img225.gif | Bin 0 -> 572 bytes src/slalib/sun67.htx/img226.gif | Bin 0 -> 192 bytes src/slalib/sun67.htx/img227.gif | Bin 0 -> 278 bytes src/slalib/sun67.htx/img228.gif | Bin 0 -> 258 bytes src/slalib/sun67.htx/img229.gif | Bin 0 -> 307 bytes src/slalib/sun67.htx/img23.gif | Bin 0 -> 138 bytes src/slalib/sun67.htx/img230.gif | Bin 0 -> 443 bytes src/slalib/sun67.htx/img231.gif | Bin 0 -> 248 bytes src/slalib/sun67.htx/img232.gif | Bin 0 -> 206 bytes src/slalib/sun67.htx/img233.gif | Bin 0 -> 197 bytes src/slalib/sun67.htx/img234.gif | Bin 0 -> 204 bytes src/slalib/sun67.htx/img235.gif | Bin 0 -> 193 bytes src/slalib/sun67.htx/img236.gif | Bin 0 -> 189 bytes src/slalib/sun67.htx/img237.gif | Bin 0 -> 563 bytes src/slalib/sun67.htx/img238.gif | Bin 0 -> 314 bytes src/slalib/sun67.htx/img239.gif | Bin 0 -> 507 bytes src/slalib/sun67.htx/img24.gif | Bin 0 -> 138 bytes src/slalib/sun67.htx/img240.gif | Bin 0 -> 143 bytes src/slalib/sun67.htx/img241.gif | Bin 0 -> 183 bytes src/slalib/sun67.htx/img242.gif | Bin 0 -> 212 bytes src/slalib/sun67.htx/img243.gif | Bin 0 -> 412 bytes src/slalib/sun67.htx/img244.gif | Bin 0 -> 414 bytes src/slalib/sun67.htx/img245.gif | Bin 0 -> 202 bytes src/slalib/sun67.htx/img246.gif | Bin 0 -> 461 bytes src/slalib/sun67.htx/img247.gif | Bin 0 -> 360 bytes src/slalib/sun67.htx/img248.gif | Bin 0 -> 353 bytes src/slalib/sun67.htx/img249.gif | Bin 0 -> 303 bytes src/slalib/sun67.htx/img25.gif | Bin 0 -> 187 bytes src/slalib/sun67.htx/img250.gif | Bin 0 -> 487 bytes src/slalib/sun67.htx/img251.gif | Bin 0 -> 91 bytes src/slalib/sun67.htx/img252.gif | Bin 0 -> 473 bytes src/slalib/sun67.htx/img253.gif | Bin 0 -> 233 bytes src/slalib/sun67.htx/img254.gif | Bin 0 -> 352 bytes src/slalib/sun67.htx/img255.gif | Bin 0 -> 9320 bytes src/slalib/sun67.htx/img256.gif | Bin 0 -> 253 bytes src/slalib/sun67.htx/img257.gif | Bin 0 -> 115 bytes src/slalib/sun67.htx/img258.gif | Bin 0 -> 286 bytes src/slalib/sun67.htx/img259.gif | Bin 0 -> 335 bytes src/slalib/sun67.htx/img26.gif | Bin 0 -> 312 bytes src/slalib/sun67.htx/img260.gif | Bin 0 -> 209 bytes src/slalib/sun67.htx/img261.gif | Bin 0 -> 255 bytes src/slalib/sun67.htx/img262.gif | Bin 0 -> 530 bytes src/slalib/sun67.htx/img263.gif | Bin 0 -> 489 bytes src/slalib/sun67.htx/img264.gif | Bin 0 -> 398 bytes src/slalib/sun67.htx/img265.gif | Bin 0 -> 306 bytes src/slalib/sun67.htx/img266.gif | Bin 0 -> 232 bytes src/slalib/sun67.htx/img267.gif | Bin 0 -> 404 bytes src/slalib/sun67.htx/img268.gif | Bin 0 -> 396 bytes src/slalib/sun67.htx/img269.gif | Bin 0 -> 286 bytes src/slalib/sun67.htx/img27.gif | Bin 0 -> 165 bytes src/slalib/sun67.htx/img270.gif | Bin 0 -> 376 bytes src/slalib/sun67.htx/img271.gif | Bin 0 -> 468 bytes src/slalib/sun67.htx/img272.gif | Bin 0 -> 352 bytes src/slalib/sun67.htx/img273.gif | Bin 0 -> 272 bytes src/slalib/sun67.htx/img274.gif | Bin 0 -> 378 bytes src/slalib/sun67.htx/img275.gif | Bin 0 -> 452 bytes src/slalib/sun67.htx/img276.gif | Bin 0 -> 263 bytes src/slalib/sun67.htx/img277.gif | Bin 0 -> 379 bytes src/slalib/sun67.htx/img278.gif | Bin 0 -> 342 bytes src/slalib/sun67.htx/img279.gif | Bin 0 -> 343 bytes src/slalib/sun67.htx/img28.gif | Bin 0 -> 383 bytes src/slalib/sun67.htx/img280.gif | Bin 0 -> 354 bytes src/slalib/sun67.htx/img281.gif | Bin 0 -> 267 bytes src/slalib/sun67.htx/img282.gif | Bin 0 -> 349 bytes src/slalib/sun67.htx/img283.gif | Bin 0 -> 337 bytes src/slalib/sun67.htx/img284.gif | Bin 0 -> 242 bytes src/slalib/sun67.htx/img285.gif | Bin 0 -> 165 bytes src/slalib/sun67.htx/img286.gif | Bin 0 -> 525 bytes src/slalib/sun67.htx/img287.gif | Bin 0 -> 168 bytes src/slalib/sun67.htx/img288.gif | Bin 0 -> 522 bytes src/slalib/sun67.htx/img289.gif | Bin 0 -> 215 bytes src/slalib/sun67.htx/img29.gif | Bin 0 -> 279 bytes src/slalib/sun67.htx/img290.gif | Bin 0 -> 354 bytes src/slalib/sun67.htx/img291.gif | Bin 0 -> 220 bytes src/slalib/sun67.htx/img292.gif | Bin 0 -> 342 bytes src/slalib/sun67.htx/img293.gif | Bin 0 -> 288 bytes src/slalib/sun67.htx/img294.gif | Bin 0 -> 224 bytes src/slalib/sun67.htx/img295.gif | Bin 0 -> 241 bytes src/slalib/sun67.htx/img296.gif | Bin 0 -> 203 bytes src/slalib/sun67.htx/img297.gif | Bin 0 -> 292 bytes src/slalib/sun67.htx/img298.gif | Bin 0 -> 143 bytes src/slalib/sun67.htx/img299.gif | Bin 0 -> 308 bytes src/slalib/sun67.htx/img3.gif | Bin 0 -> 281 bytes src/slalib/sun67.htx/img30.gif | Bin 0 -> 135 bytes src/slalib/sun67.htx/img300.gif | Bin 0 -> 400 bytes src/slalib/sun67.htx/img301.gif | Bin 0 -> 209 bytes src/slalib/sun67.htx/img302.gif | Bin 0 -> 1014 bytes src/slalib/sun67.htx/img303.gif | Bin 0 -> 210 bytes src/slalib/sun67.htx/img304.gif | Bin 0 -> 264 bytes src/slalib/sun67.htx/img305.gif | Bin 0 -> 285 bytes src/slalib/sun67.htx/img306.gif | Bin 0 -> 1785 bytes src/slalib/sun67.htx/img307.gif | Bin 0 -> 324 bytes src/slalib/sun67.htx/img308.gif | Bin 0 -> 516 bytes src/slalib/sun67.htx/img309.gif | Bin 0 -> 431 bytes src/slalib/sun67.htx/img31.gif | Bin 0 -> 208 bytes src/slalib/sun67.htx/img310.gif | Bin 0 -> 371 bytes src/slalib/sun67.htx/img311.gif | Bin 0 -> 316 bytes src/slalib/sun67.htx/img312.gif | Bin 0 -> 304 bytes src/slalib/sun67.htx/img313.gif | Bin 0 -> 301 bytes src/slalib/sun67.htx/img314.gif | Bin 0 -> 446 bytes src/slalib/sun67.htx/img315.gif | Bin 0 -> 184 bytes src/slalib/sun67.htx/img316.gif | Bin 0 -> 154 bytes src/slalib/sun67.htx/img317.gif | Bin 0 -> 253 bytes src/slalib/sun67.htx/img318.gif | Bin 0 -> 139 bytes src/slalib/sun67.htx/img319.gif | Bin 0 -> 162 bytes src/slalib/sun67.htx/img32.gif | Bin 0 -> 212 bytes src/slalib/sun67.htx/img320.gif | Bin 0 -> 287 bytes src/slalib/sun67.htx/img321.gif | Bin 0 -> 364 bytes src/slalib/sun67.htx/img322.gif | Bin 0 -> 372 bytes src/slalib/sun67.htx/img323.gif | Bin 0 -> 306 bytes src/slalib/sun67.htx/img324.gif | Bin 0 -> 214 bytes src/slalib/sun67.htx/img325.gif | Bin 0 -> 399 bytes src/slalib/sun67.htx/img326.gif | Bin 0 -> 349 bytes src/slalib/sun67.htx/img327.gif | Bin 0 -> 379 bytes src/slalib/sun67.htx/img328.gif | Bin 0 -> 413 bytes src/slalib/sun67.htx/img329.gif | Bin 0 -> 255 bytes src/slalib/sun67.htx/img33.gif | Bin 0 -> 201 bytes src/slalib/sun67.htx/img330.gif | Bin 0 -> 376 bytes src/slalib/sun67.htx/img34.gif | Bin 0 -> 309 bytes src/slalib/sun67.htx/img35.gif | Bin 0 -> 314 bytes src/slalib/sun67.htx/img36.gif | Bin 0 -> 211 bytes src/slalib/sun67.htx/img37.gif | Bin 0 -> 247 bytes src/slalib/sun67.htx/img38.gif | Bin 0 -> 436 bytes src/slalib/sun67.htx/img39.gif | Bin 0 -> 179 bytes src/slalib/sun67.htx/img4.gif | Bin 0 -> 468 bytes src/slalib/sun67.htx/img40.gif | Bin 0 -> 297 bytes src/slalib/sun67.htx/img41.gif | Bin 0 -> 316 bytes src/slalib/sun67.htx/img42.gif | Bin 0 -> 305 bytes src/slalib/sun67.htx/img43.gif | Bin 0 -> 152 bytes src/slalib/sun67.htx/img44.gif | Bin 0 -> 316 bytes src/slalib/sun67.htx/img45.gif | Bin 0 -> 286 bytes src/slalib/sun67.htx/img46.gif | Bin 0 -> 290 bytes src/slalib/sun67.htx/img47.gif | Bin 0 -> 178 bytes src/slalib/sun67.htx/img48.gif | Bin 0 -> 87 bytes src/slalib/sun67.htx/img49.gif | Bin 0 -> 169 bytes src/slalib/sun67.htx/img5.gif | Bin 0 -> 122 bytes src/slalib/sun67.htx/img50.gif | Bin 0 -> 352 bytes src/slalib/sun67.htx/img51.gif | Bin 0 -> 541 bytes src/slalib/sun67.htx/img52.gif | Bin 0 -> 171 bytes src/slalib/sun67.htx/img53.gif | Bin 0 -> 250 bytes src/slalib/sun67.htx/img54.gif | Bin 0 -> 446 bytes src/slalib/sun67.htx/img55.gif | Bin 0 -> 325 bytes src/slalib/sun67.htx/img56.gif | Bin 0 -> 350 bytes src/slalib/sun67.htx/img57.gif | Bin 0 -> 434 bytes src/slalib/sun67.htx/img58.gif | Bin 0 -> 448 bytes src/slalib/sun67.htx/img59.gif | Bin 0 -> 382 bytes src/slalib/sun67.htx/img6.gif | Bin 0 -> 1072 bytes src/slalib/sun67.htx/img60.gif | Bin 0 -> 410 bytes src/slalib/sun67.htx/img61.gif | Bin 0 -> 1250 bytes src/slalib/sun67.htx/img62.gif | Bin 0 -> 1276 bytes src/slalib/sun67.htx/img63.gif | Bin 0 -> 1246 bytes src/slalib/sun67.htx/img64.gif | Bin 0 -> 1302 bytes src/slalib/sun67.htx/img65.gif | Bin 0 -> 219 bytes src/slalib/sun67.htx/img66.gif | Bin 0 -> 248 bytes src/slalib/sun67.htx/img67.gif | Bin 0 -> 241 bytes src/slalib/sun67.htx/img68.gif | Bin 0 -> 356 bytes src/slalib/sun67.htx/img69.gif | Bin 0 -> 233 bytes src/slalib/sun67.htx/img7.gif | Bin 0 -> 1121 bytes src/slalib/sun67.htx/img70.gif | Bin 0 -> 143 bytes src/slalib/sun67.htx/img71.gif | Bin 0 -> 170 bytes src/slalib/sun67.htx/img72.gif | Bin 0 -> 73 bytes src/slalib/sun67.htx/img73.gif | Bin 0 -> 237 bytes src/slalib/sun67.htx/img74.gif | Bin 0 -> 236 bytes src/slalib/sun67.htx/img75.gif | Bin 0 -> 160 bytes src/slalib/sun67.htx/img76.gif | Bin 0 -> 207 bytes src/slalib/sun67.htx/img77.gif | Bin 0 -> 206 bytes src/slalib/sun67.htx/img78.gif | Bin 0 -> 211 bytes src/slalib/sun67.htx/img79.gif | Bin 0 -> 241 bytes src/slalib/sun67.htx/img8.gif | Bin 0 -> 305 bytes src/slalib/sun67.htx/img80.gif | Bin 0 -> 243 bytes src/slalib/sun67.htx/img81.gif | Bin 0 -> 246 bytes src/slalib/sun67.htx/img82.gif | Bin 0 -> 261 bytes src/slalib/sun67.htx/img83.gif | Bin 0 -> 208 bytes src/slalib/sun67.htx/img84.gif | Bin 0 -> 139 bytes src/slalib/sun67.htx/img85.gif | Bin 0 -> 290 bytes src/slalib/sun67.htx/img86.gif | Bin 0 -> 201 bytes src/slalib/sun67.htx/img87.gif | Bin 0 -> 219 bytes src/slalib/sun67.htx/img88.gif | Bin 0 -> 334 bytes src/slalib/sun67.htx/img89.gif | Bin 0 -> 217 bytes src/slalib/sun67.htx/img9.gif | Bin 0 -> 428 bytes src/slalib/sun67.htx/img90.gif | Bin 0 -> 226 bytes src/slalib/sun67.htx/img91.gif | Bin 0 -> 218 bytes src/slalib/sun67.htx/img92.gif | Bin 0 -> 151 bytes src/slalib/sun67.htx/img93.gif | Bin 0 -> 278 bytes src/slalib/sun67.htx/img94.gif | Bin 0 -> 294 bytes src/slalib/sun67.htx/img95.gif | Bin 0 -> 403 bytes src/slalib/sun67.htx/img96.gif | Bin 0 -> 246 bytes src/slalib/sun67.htx/img97.gif | Bin 0 -> 224 bytes src/slalib/sun67.htx/img98.gif | Bin 0 -> 425 bytes src/slalib/sun67.htx/img99.gif | Bin 0 -> 157 bytes src/slalib/sun67.htx/index_motif.gif | Bin 0 -> 180 bytes src/slalib/sun67.htx/internals.pl | 1482 +++ src/slalib/sun67.htx/invis_anchor.xbm | 4 + src/slalib/sun67.htx/labels.pl | 1482 +++ src/slalib/sun67.htx/next_group_motif.gif | Bin 0 -> 259 bytes src/slalib/sun67.htx/next_group_motif_gr.gif | Bin 0 -> 259 bytes src/slalib/sun67.htx/next_motif.gif | Bin 0 -> 172 bytes src/slalib/sun67.htx/next_motif_gr.gif | Bin 0 -> 172 bytes src/slalib/sun67.htx/node1.html | 65 + src/slalib/sun67.htx/node10.html | 75 + src/slalib/sun67.htx/node100.html | 110 + src/slalib/sun67.htx/node101.html | 132 + src/slalib/sun67.htx/node102.html | 149 + src/slalib/sun67.htx/node103.html | 170 + src/slalib/sun67.htx/node104.html | 208 + src/slalib/sun67.htx/node105.html | 166 + src/slalib/sun67.htx/node106.html | 207 + src/slalib/sun67.htx/node107.html | 188 + src/slalib/sun67.htx/node108.html | 156 + src/slalib/sun67.htx/node109.html | 168 + src/slalib/sun67.htx/node11.html | 102 + src/slalib/sun67.htx/node110.html | 200 + src/slalib/sun67.htx/node111.html | 104 + src/slalib/sun67.htx/node112.html | 107 + src/slalib/sun67.htx/node113.html | 109 + src/slalib/sun67.htx/node114.html | 107 + src/slalib/sun67.htx/node115.html | 115 + src/slalib/sun67.htx/node116.html | 116 + src/slalib/sun67.htx/node117.html | 92 + src/slalib/sun67.htx/node118.html | 146 + src/slalib/sun67.htx/node119.html | 188 + src/slalib/sun67.htx/node12.html | 75 + src/slalib/sun67.htx/node120.html | 190 + src/slalib/sun67.htx/node121.html | 118 + src/slalib/sun67.htx/node122.html | 170 + src/slalib/sun67.htx/node123.html | 122 + src/slalib/sun67.htx/node124.html | 104 + src/slalib/sun67.htx/node125.html | 107 + src/slalib/sun67.htx/node126.html | 157 + src/slalib/sun67.htx/node127.html | 159 + src/slalib/sun67.htx/node128.html | 187 + src/slalib/sun67.htx/node129.html | 175 + src/slalib/sun67.htx/node13.html | 489 + src/slalib/sun67.htx/node130.html | 140 + src/slalib/sun67.htx/node131.html | 106 + src/slalib/sun67.htx/node132.html | 117 + src/slalib/sun67.htx/node133.html | 111 + src/slalib/sun67.htx/node134.html | 102 + src/slalib/sun67.htx/node135.html | 319 + src/slalib/sun67.htx/node136.html | 258 + src/slalib/sun67.htx/node137.html | 247 + src/slalib/sun67.htx/node138.html | 116 + src/slalib/sun67.htx/node139.html | 117 + src/slalib/sun67.htx/node14.html | 112 + src/slalib/sun67.htx/node140.html | 148 + src/slalib/sun67.htx/node141.html | 107 + src/slalib/sun67.htx/node142.html | 108 + src/slalib/sun67.htx/node143.html | 133 + src/slalib/sun67.htx/node144.html | 310 + src/slalib/sun67.htx/node145.html | 279 + src/slalib/sun67.htx/node146.html | 255 + src/slalib/sun67.htx/node147.html | 278 + src/slalib/sun67.htx/node148.html | 256 + src/slalib/sun67.htx/node149.html | 135 + src/slalib/sun67.htx/node15.html | 230 + src/slalib/sun67.htx/node150.html | 202 + src/slalib/sun67.htx/node151.html | 111 + src/slalib/sun67.htx/node152.html | 145 + src/slalib/sun67.htx/node153.html | 120 + src/slalib/sun67.htx/node154.html | 131 + src/slalib/sun67.htx/node155.html | 110 + src/slalib/sun67.htx/node156.html | 323 + src/slalib/sun67.htx/node157.html | 203 + src/slalib/sun67.htx/node158.html | 102 + src/slalib/sun67.htx/node159.html | 145 + src/slalib/sun67.htx/node16.html | 121 + src/slalib/sun67.htx/node160.html | 98 + src/slalib/sun67.htx/node161.html | 93 + src/slalib/sun67.htx/node162.html | 93 + src/slalib/sun67.htx/node163.html | 166 + src/slalib/sun67.htx/node164.html | 184 + src/slalib/sun67.htx/node165.html | 176 + src/slalib/sun67.htx/node166.html | 428 + src/slalib/sun67.htx/node167.html | 232 + src/slalib/sun67.htx/node168.html | 276 + src/slalib/sun67.htx/node169.html | 275 + src/slalib/sun67.htx/node17.html | 205 + src/slalib/sun67.htx/node170.html | 111 + src/slalib/sun67.htx/node171.html | 115 + src/slalib/sun67.htx/node172.html | 101 + src/slalib/sun67.htx/node173.html | 121 + src/slalib/sun67.htx/node174.html | 126 + src/slalib/sun67.htx/node175.html | 129 + src/slalib/sun67.htx/node176.html | 100 + src/slalib/sun67.htx/node177.html | 152 + src/slalib/sun67.htx/node178.html | 111 + src/slalib/sun67.htx/node179.html | 107 + src/slalib/sun67.htx/node18.html | 135 + src/slalib/sun67.htx/node180.html | 184 + src/slalib/sun67.htx/node181.html | 122 + src/slalib/sun67.htx/node182.html | 201 + src/slalib/sun67.htx/node183.html | 109 + src/slalib/sun67.htx/node184.html | 117 + src/slalib/sun67.htx/node185.html | 168 + src/slalib/sun67.htx/node186.html | 144 + src/slalib/sun67.htx/node187.html | 378 + src/slalib/sun67.htx/node188.html | 220 + src/slalib/sun67.htx/node189.html | 160 + src/slalib/sun67.htx/node19.html | 160 + src/slalib/sun67.htx/node190.html | 137 + src/slalib/sun67.htx/node191.html | 91 + src/slalib/sun67.htx/node192.html | 95 + src/slalib/sun67.htx/node193.html | 93 + src/slalib/sun67.htx/node194.html | 91 + src/slalib/sun67.htx/node195.html | 114 + src/slalib/sun67.htx/node196.html | 137 + src/slalib/sun67.htx/node197.html | 171 + src/slalib/sun67.htx/node198.html | 167 + src/slalib/sun67.htx/node199.html | 174 + src/slalib/sun67.htx/node2.html | 85 + src/slalib/sun67.htx/node20.html | 320 + src/slalib/sun67.htx/node200.html | 168 + src/slalib/sun67.htx/node201.html | 215 + src/slalib/sun67.htx/node202.html | 254 + src/slalib/sun67.htx/node203.html | 187 + src/slalib/sun67.htx/node204.html | 127 + src/slalib/sun67.htx/node205.html | 92 + src/slalib/sun67.htx/node206.html | 125 + src/slalib/sun67.htx/node207.html | 119 + src/slalib/sun67.htx/node208.html | 92 + src/slalib/sun67.htx/node209.html | 147 + src/slalib/sun67.htx/node21.html | 264 + src/slalib/sun67.htx/node210.html | 177 + src/slalib/sun67.htx/node211.html | 232 + src/slalib/sun67.htx/node212.html | 171 + src/slalib/sun67.htx/node213.html | 181 + src/slalib/sun67.htx/node214.html | 189 + src/slalib/sun67.htx/node215.html | 87 + src/slalib/sun67.htx/node216.html | 110 + src/slalib/sun67.htx/node217.html | 92 + src/slalib/sun67.htx/node218.html | 91 + src/slalib/sun67.htx/node219.html | 184 + src/slalib/sun67.htx/node22.html | 119 + src/slalib/sun67.htx/node220.html | 96 + src/slalib/sun67.htx/node221.html | 158 + src/slalib/sun67.htx/node222.html | 113 + src/slalib/sun67.htx/node223.html | 139 + src/slalib/sun67.htx/node224.html | 617 + src/slalib/sun67.htx/node225.html | 143 + src/slalib/sun67.htx/node226.html | 212 + src/slalib/sun67.htx/node227.html | 230 + src/slalib/sun67.htx/node228.html | 696 ++ src/slalib/sun67.htx/node229.html | 65 + src/slalib/sun67.htx/node23.html | 278 + src/slalib/sun67.htx/node24.html | 213 + src/slalib/sun67.htx/node25.html | 103 + src/slalib/sun67.htx/node26.html | 123 + src/slalib/sun67.htx/node27.html | 122 + src/slalib/sun67.htx/node28.html | 128 + src/slalib/sun67.htx/node29.html | 140 + src/slalib/sun67.htx/node3.html | 76 + src/slalib/sun67.htx/node30.html | 103 + src/slalib/sun67.htx/node31.html | 114 + src/slalib/sun67.htx/node32.html | 115 + src/slalib/sun67.htx/node33.html | 128 + src/slalib/sun67.htx/node34.html | 129 + src/slalib/sun67.htx/node35.html | 142 + src/slalib/sun67.htx/node36.html | 122 + src/slalib/sun67.htx/node37.html | 121 + src/slalib/sun67.htx/node38.html | 99 + src/slalib/sun67.htx/node39.html | 114 + src/slalib/sun67.htx/node4.html | 131 + src/slalib/sun67.htx/node40.html | 125 + src/slalib/sun67.htx/node41.html | 125 + src/slalib/sun67.htx/node42.html | 122 + src/slalib/sun67.htx/node43.html | 229 + src/slalib/sun67.htx/node44.html | 109 + src/slalib/sun67.htx/node45.html | 103 + src/slalib/sun67.htx/node46.html | 123 + src/slalib/sun67.htx/node47.html | 157 + src/slalib/sun67.htx/node48.html | 110 + src/slalib/sun67.htx/node49.html | 103 + src/slalib/sun67.htx/node5.html | 83 + src/slalib/sun67.htx/node50.html | 166 + src/slalib/sun67.htx/node51.html | 99 + src/slalib/sun67.htx/node52.html | 115 + src/slalib/sun67.htx/node53.html | 145 + src/slalib/sun67.htx/node54.html | 127 + src/slalib/sun67.htx/node55.html | 200 + src/slalib/sun67.htx/node56.html | 146 + src/slalib/sun67.htx/node57.html | 118 + src/slalib/sun67.htx/node58.html | 112 + src/slalib/sun67.htx/node59.html | 117 + src/slalib/sun67.htx/node6.html | 116 + src/slalib/sun67.htx/node60.html | 107 + src/slalib/sun67.htx/node61.html | 152 + src/slalib/sun67.htx/node62.html | 154 + src/slalib/sun67.htx/node63.html | 106 + src/slalib/sun67.htx/node64.html | 115 + src/slalib/sun67.htx/node65.html | 117 + src/slalib/sun67.htx/node66.html | 122 + src/slalib/sun67.htx/node67.html | 121 + src/slalib/sun67.htx/node68.html | 93 + src/slalib/sun67.htx/node69.html | 93 + src/slalib/sun67.htx/node7.html | 76 + src/slalib/sun67.htx/node70.html | 114 + src/slalib/sun67.htx/node71.html | 129 + src/slalib/sun67.htx/node72.html | 100 + src/slalib/sun67.htx/node73.html | 131 + src/slalib/sun67.htx/node74.html | 125 + src/slalib/sun67.htx/node75.html | 125 + src/slalib/sun67.htx/node76.html | 109 + src/slalib/sun67.htx/node77.html | 117 + src/slalib/sun67.htx/node78.html | 168 + src/slalib/sun67.htx/node79.html | 144 + src/slalib/sun67.htx/node8.html | 85 + src/slalib/sun67.htx/node80.html | 111 + src/slalib/sun67.htx/node81.html | 137 + src/slalib/sun67.htx/node82.html | 91 + src/slalib/sun67.htx/node83.html | 95 + src/slalib/sun67.htx/node84.html | 93 + src/slalib/sun67.htx/node85.html | 145 + src/slalib/sun67.htx/node86.html | 124 + src/slalib/sun67.htx/node87.html | 97 + src/slalib/sun67.htx/node88.html | 106 + src/slalib/sun67.htx/node89.html | 140 + src/slalib/sun67.htx/node9.html | 75 + src/slalib/sun67.htx/node90.html | 106 + src/slalib/sun67.htx/node91.html | 330 + src/slalib/sun67.htx/node92.html | 91 + src/slalib/sun67.htx/node93.html | 91 + src/slalib/sun67.htx/node94.html | 110 + src/slalib/sun67.htx/node95.html | 91 + src/slalib/sun67.htx/node96.html | 91 + src/slalib/sun67.htx/node97.html | 98 + src/slalib/sun67.htx/node98.html | 111 + src/slalib/sun67.htx/node99.html | 105 + src/slalib/sun67.htx/orangeball.gif | Bin 0 -> 398 bytes src/slalib/sun67.htx/pinkball.gif | Bin 0 -> 398 bytes src/slalib/sun67.htx/previous_group_motif.gif | Bin 0 -> 303 bytes src/slalib/sun67.htx/previous_group_motif_gr.gif | Bin 0 -> 303 bytes src/slalib/sun67.htx/previous_motif.gif | Bin 0 -> 220 bytes src/slalib/sun67.htx/previous_motif_gr.gif | Bin 0 -> 220 bytes src/slalib/sun67.htx/purpleball.gif | Bin 0 -> 398 bytes src/slalib/sun67.htx/redball.gif | Bin 0 -> 398 bytes src/slalib/sun67.htx/source.gif | Bin 0 -> 979 bytes src/slalib/sun67.htx/sun67.css | 10 + src/slalib/sun67.htx/sun67.html | 610 + src/slalib/sun67.htx/up_motif.gif | Bin 0 -> 145 bytes src/slalib/sun67.htx/up_motif_gr.gif | Bin 0 -> 145 bytes src/slalib/sun67.htx/whiteball.gif | Bin 0 -> 275 bytes src/slalib/sun67.htx/yellowball.gif | Bin 0 -> 398 bytes src/slalib/sun67.htx_tar | Bin 0 -> 2293760 bytes src/slalib/sun67.tex | 12430 +++++++++++++++++++++ src/slalib/supgal.f | 79 + src/slalib/svd.f | 379 + src/slalib/svdcov.f | 60 + src/slalib/svdsol.f | 109 + src/slalib/tp2s.f | 42 + src/slalib/tp2v.f | 56 + src/slalib/tps2c.f | 91 + src/slalib/tpv2c.f | 83 + src/slalib/ue2el.f | 194 + src/slalib/ue2pv.f | 215 + src/slalib/unpcd.f | 68 + src/slalib/v2tp.f | 78 + src/slalib/vdv.f | 27 + src/slalib/vn.f | 46 + src/slalib/vxv.f | 39 + src/slalib/wait.f_alpha_OSF1 | 32 + src/slalib/wait.f_convex | 32 + src/slalib/wait.f_ix86_Linux | 32 + src/slalib/wait.f_mips | 32 + src/slalib/wait.f_pcm | 66 + src/slalib/wait.f_sun4 | 32 + src/slalib/wait.f_sun4_Solaris | 32 + src/slalib/wait.f_vax | 43 + src/slalib/wait.f_x86_64 | 32 + src/slalib/xy2xy.f | 49 + src/slalib/zd.f | 62 + 1037 files changed, 146508 insertions(+) create mode 100644 src/Makefile.Linux.orig create mode 100644 src/Makefile.Linux64.orig create mode 100644 src/Makefile.MacOSX.orig create mode 100644 src/Makefile.Solaris.orig create mode 100644 src/Makefile.am create mode 100644 src/Makefile.in create mode 100644 src/Makefile.orig.orig create mode 100644 src/analysis/Makefile.Linux.orig create mode 100644 src/analysis/Makefile.Linux64.orig create mode 100644 src/analysis/Makefile.MacOSX.orig create mode 100644 src/analysis/Makefile.Solaris.orig create mode 100644 src/analysis/Makefile.orig.orig create mode 100644 src/analysis/bpm_combine.c create mode 100644 src/analysis/cf_arith.c create mode 100644 src/analysis/cf_coadd.c create mode 100644 src/analysis/cf_combine.c create mode 100755 src/analysis/cf_make_900_obs.csh create mode 100644 src/analysis/cf_make_all_exp.c create mode 100755 src/analysis/cf_make_all_obs.csh create mode 100644 src/analysis/cf_nvo.c create mode 100644 src/analysis/cf_pack.c create mode 100644 src/analysis/cf_reflux.c create mode 100644 src/analysis/cf_ttag_to_hist.c create mode 100644 src/analysis/cf_wrspec7.c create mode 100644 src/analysis/cf_wrspec_cf2.c create mode 100644 src/analysis/cf_xcorr.c create mode 100644 src/analysis/extract_jitter.c create mode 100644 src/analysis/get_shift.c create mode 100644 src/analysis/gethmjd.c create mode 100644 src/analysis/idf_combine.c create mode 100644 src/analysis/idf_cut.c create mode 100644 src/analysis/idf_screen.c create mode 100644 src/analysis/mjd2hjd.c create mode 100644 src/analysis/modhead.c create mode 100644 src/analysis/remove_target_orbital_motion.c create mode 100644 src/analysis/ttag_combine.c create mode 100644 src/analysis/ttag_lightcurve.c create mode 100644 src/analysis/ttag_lightcurve_channel_sum.c create mode 100644 src/analysis/ttag_lightcurve_combine.c create mode 100644 src/analysis/ttag_lightcurve_mjd2hmjd.c create mode 100644 src/analysis/ttag_lightcurve_periodogram.c create mode 100644 src/cal/geom/Makefile.orig.orig create mode 100755 src/cal/geom/make_geom_file create mode 100644 src/cal/geom/make_geom_file.c create mode 100644 src/cal/get_tle/GetTLE.class create mode 100644 src/cal/get_tle/GetTLE.java create mode 100755 src/cal/get_tle/add_tle.pl create mode 100644 src/cal/get_tle/check_tle.dat create mode 100755 src/cal/get_tle/check_tle.pl create mode 100644 src/cal/get_tle/check_tle.pro create mode 100755 src/cal/get_tle/get_tle.pl create mode 100755 src/cal/get_tle/get_tle.pl.OIG create mode 100755 src/cal/get_tle/get_tle.pl.orig create mode 100755 src/cal/get_tle/get_tle.pl.space-track create mode 100755 src/cal/get_tle/make_cvzramtool.pl create mode 100755 src/cal/get_tle/make_orbit.pl create mode 100755 src/cal/get_tle/test_get_tle.pl create mode 100755 src/cal/get_tle/test_tle.csh create mode 100644 src/cal/get_tle/tmp/FUSE.OLD create mode 100644 src/cal/get_tle/tmp/FUSE.TLE create mode 100644 src/cal/get_tle/tmp/FUSE.TLE.NEW create mode 100644 src/cal/get_tle/tmp/FUSE.TLE.awf create mode 100644 src/cal/get_tle/tmp/FUSE.TLE.kruk create mode 100755 src/cal/get_tle/tmp/add_tle.pl create mode 100755 src/cal/get_tle/tmp/check_tle.pl create mode 100644 src/cal/get_tle/tmp/five.tle.orig create mode 100644 src/cal/get_tle/tmp/get_tle.logfile create mode 100755 src/cal/get_tle/tmp/get_tle.pl create mode 100755 src/cal/get_tle/tmp/make_cvzramtool.pl create mode 100755 src/cal/get_tle/tmp/make_orbit.pl create mode 100755 src/cal/get_tle/tmp/test_get_tle.pl create mode 100755 src/cal/get_tle/tmp/test_tle.csh create mode 100755 src/cal/get_tle/tmp/update_tle.csh create mode 100755 src/cal/get_tle/update_tle.csh create mode 100644 src/cal/jitter/Makefile.Linux.orig create mode 100644 src/cal/jitter/Makefile.Linux64.orig create mode 100644 src/cal/jitter/Makefile.MacOSX.orig create mode 100644 src/cal/jitter/Makefile.Solaris.orig create mode 100644 src/cal/jitter/Makefile.orig.orig create mode 100644 src/cal/jitter/cf_jitter.c create mode 100644 src/cal/jitter/cf_jitter_diag.c create mode 100644 src/cal/parm/Makefile.orig.orig create mode 100644 src/cal/parm/make_parm_file.c create mode 100644 src/cal/saa/Makefile.orig.orig create mode 100644 src/cal/saa/make_saa_file.c create mode 100644 src/cal/screen/Makefile.orig.orig create mode 100755 src/cal/screen/make_screen_file create mode 100644 src/cal/screen/make_screen_file.c create mode 100755 src/configure.linux.orig create mode 100755 src/configure.linux64.orig create mode 100755 src/configure.macosx.orig create mode 100755 src/configure.solaris.orig create mode 100644 src/fes/Makefile.Linux.orig create mode 100644 src/fes/Makefile.Linux64.orig create mode 100644 src/fes/Makefile.Solaris.orig create mode 100644 src/fes/Makefile.orig.orig create mode 100644 src/fes/cf_calfes.c create mode 100644 src/fes/cf_calfes.h create mode 100644 src/fes/cf_cp_hdr.c create mode 100644 src/fes/cf_fes_apply_bias.c create mode 100644 src/fes/cf_fes_apply_flat.c create mode 100644 src/fes/cf_fes_apply_mask.c create mode 100644 src/fes/cf_fes_cal.c create mode 100644 src/fes/cf_fes_get_cal_image.c create mode 100644 src/fes/cf_fes_init.c create mode 100644 src/fes/cf_fes_read.c create mode 100644 src/fes/cf_fes_write.c create mode 100644 src/fes/cf_limbang.c create mode 100644 src/fuv/Makefile.Linux.orig create mode 100644 src/fuv/Makefile.Linux64.orig create mode 100644 src/fuv/Makefile.MacOSX.orig create mode 100644 src/fuv/Makefile.Solaris.orig create mode 100644 src/fuv/Makefile.orig.orig create mode 100644 src/fuv/cf_assign_wavelength.c create mode 100644 src/fuv/cf_bad_pixels.c create mode 100644 src/fuv/cf_convert_to_farf.c create mode 100644 src/fuv/cf_countmap.c create mode 100644 src/fuv/cf_extract_spectra.c create mode 100644 src/fuv/cf_flux_calibrate.c create mode 100644 src/fuv/cf_gainmap.c create mode 100644 src/fuv/cf_hist_init.c create mode 100644 src/fuv/cf_remove_motions.c create mode 100644 src/fuv/cf_screen_photons.c create mode 100644 src/fuv/cf_ttag_init.c create mode 100644 src/libcf/Makefile.Linux.orig create mode 100644 src/libcf/Makefile.Linux64.orig create mode 100644 src/libcf/Makefile.MacOSX.orig create mode 100644 src/libcf/Makefile.Solaris.orig create mode 100644 src/libcf/Makefile.orig.orig create mode 100644 src/libcf/calfits.c create mode 100644 src/libcf/cf_active_region.c create mode 100644 src/libcf/cf_apply_dead_time.c create mode 100644 src/libcf/cf_apply_filters.c create mode 100644 src/libcf/cf_astig_farf.c create mode 100644 src/libcf/cf_astigmatism.c create mode 100644 src/libcf/cf_cal_file.c create mode 100644 src/libcf/cf_calculate_y_centroid.c create mode 100644 src/libcf/cf_calculate_ycent_motion.c create mode 100644 src/libcf/cf_check_digitizer.c create mode 100644 src/libcf/cf_convert_to_ergs.c create mode 100644 src/libcf/cf_count_rate_y_distort.c create mode 100644 src/libcf/cf_dispersion.c create mode 100644 src/libcf/cf_doppler_and_heliocentric.c create mode 100644 src/libcf/cf_electronics_dead_time.c create mode 100644 src/libcf/cf_error_msg.c create mode 100644 src/libcf/cf_extraction_limits.c create mode 100644 src/libcf/cf_fes_proc_check.c create mode 100644 src/libcf/cf_fes_proc_update.c create mode 100644 src/libcf/cf_fifo_dead_time.c create mode 100644 src/libcf/cf_find_spectra.c create mode 100644 src/libcf/cf_fpa_position.c create mode 100644 src/libcf/cf_fuv_init.c create mode 100644 src/libcf/cf_geometric_distort.c create mode 100644 src/libcf/cf_grating_motion.c create mode 100644 src/libcf/cf_header_io.c create mode 100644 src/libcf/cf_identify_channel.c create mode 100644 src/libcf/cf_idf_io.c create mode 100644 src/libcf/cf_ids_dead_time.c create mode 100644 src/libcf/cf_init_support.c create mode 100644 src/libcf/cf_make_mask.c create mode 100644 src/libcf/cf_make_wave_array.c create mode 100644 src/libcf/cf_mirror_motion.c create mode 100644 src/libcf/cf_modify_hist_pha.c create mode 100644 src/libcf/cf_modify_hist_times.c create mode 100644 src/libcf/cf_nint.c create mode 100644 src/libcf/cf_optimal_extraction.c create mode 100644 src/libcf/cf_pha_x_distort.c create mode 100644 src/libcf/cf_proc_check.c create mode 100644 src/libcf/cf_proc_update.c create mode 100644 src/libcf/cf_read_fpa_pos.c create mode 100644 src/libcf/cf_rebin_background.c create mode 100644 src/libcf/cf_rebin_probability_array.c create mode 100644 src/libcf/cf_satellite_jitter.c create mode 100644 src/libcf/cf_scale_bkgd.c create mode 100644 src/libcf/cf_screen_airglow.c create mode 100644 src/libcf/cf_screen_bad_pixels.c create mode 100644 src/libcf/cf_screen_burst.c create mode 100644 src/libcf/cf_screen_high_voltage.c create mode 100644 src/libcf/cf_screen_jitter.c create mode 100644 src/libcf/cf_screen_limb_angle.c create mode 100644 src/libcf/cf_screen_pulse_height.c create mode 100644 src/libcf/cf_screen_saa.c create mode 100644 src/libcf/cf_set_good_time_intervals.c create mode 100644 src/libcf/cf_set_photon_flags.c create mode 100644 src/libcf/cf_set_user_gtis.c create mode 100644 src/libcf/cf_source_aper.c create mode 100644 src/libcf/cf_standard_or_optimal_extraction.c create mode 100644 src/libcf/cf_target_count_rate.c create mode 100644 src/libcf/cf_thermal_distort.c create mode 100644 src/libcf/cf_time_xy_distort.c create mode 100644 src/libcf/cf_timestamp.c create mode 100644 src/libcf/cf_velang.c create mode 100644 src/libcf/cf_write_extracted_spectrum.c create mode 100644 src/libcf/eclipse.c create mode 100644 src/libcf/geod_mag.c create mode 100644 src/libcf/helio_vel.c create mode 100644 src/libcf/lsrd_vel.c create mode 100644 src/libcf/lsrk_vel.c create mode 100644 src/libcf/month_day.c create mode 100644 src/libcf/pole_ang.c create mode 100644 src/libcf/read_tle.c create mode 100644 src/libcf/saa.c create mode 100644 src/libcf/set_orbit_parms.c create mode 100644 src/libcf/sgp4.c create mode 100644 src/libcf/solar_ang.c create mode 100644 src/libcf/space_vel.c create mode 100644 src/libcf/state_geod.c create mode 100644 src/libcf/state_limb.c create mode 100644 src/slalib/Makefile.am create mode 100644 src/slalib/Makefile.in create mode 100644 src/slalib/addet.f create mode 100644 src/slalib/afin.f create mode 100644 src/slalib/airmas.f create mode 100644 src/slalib/altaz.f create mode 100644 src/slalib/amp.f create mode 100644 src/slalib/ampqk.f create mode 100644 src/slalib/aop.f create mode 100644 src/slalib/aoppa.f create mode 100644 src/slalib/aoppat.f create mode 100644 src/slalib/aopqk.f create mode 100644 src/slalib/atmdsp.f create mode 100644 src/slalib/atms.f create mode 100644 src/slalib/atmt.f create mode 100644 src/slalib/av2m.f create mode 100644 src/slalib/bear.f create mode 100644 src/slalib/caf2r.f create mode 100644 src/slalib/caldj.f create mode 100644 src/slalib/calyd.f create mode 100644 src/slalib/cc2s.f create mode 100644 src/slalib/cc62s.f create mode 100644 src/slalib/cd2tf.f create mode 100644 src/slalib/cldj.f create mode 100644 src/slalib/clyd.f create mode 100644 src/slalib/combn.f create mode 100644 src/slalib/cr2af.f create mode 100644 src/slalib/cr2tf.f create mode 100755 src/slalib/create.com create mode 100644 src/slalib/cs2c.f create mode 100644 src/slalib/cs2c6.f create mode 100644 src/slalib/ctf2d.f create mode 100644 src/slalib/ctf2r.f create mode 100644 src/slalib/daf2r.f create mode 100644 src/slalib/dafin.f create mode 100644 src/slalib/dat.f create mode 100644 src/slalib/dav2m.f create mode 100644 src/slalib/dbear.f create mode 100644 src/slalib/dbjin.f create mode 100644 src/slalib/dc62s.f create mode 100644 src/slalib/dcc2s.f create mode 100644 src/slalib/dcmpf.f create mode 100644 src/slalib/dcs2c.f create mode 100644 src/slalib/dd2tf.f create mode 100644 src/slalib/de2h.f create mode 100644 src/slalib/deuler.f create mode 100644 src/slalib/dfltin.f create mode 100644 src/slalib/dh2e.f create mode 100644 src/slalib/dimxv.f create mode 100644 src/slalib/djcal.f create mode 100644 src/slalib/djcl.f create mode 100644 src/slalib/dm2av.f create mode 100644 src/slalib/dmat.f create mode 100644 src/slalib/dmoon.f create mode 100644 src/slalib/dmxm.f create mode 100644 src/slalib/dmxv.f create mode 100644 src/slalib/dpav.f create mode 100644 src/slalib/dr2af.f create mode 100644 src/slalib/dr2tf.f create mode 100644 src/slalib/drange.f create mode 100644 src/slalib/dranrm.f create mode 100644 src/slalib/ds2c6.f create mode 100644 src/slalib/ds2tp.f create mode 100644 src/slalib/dsep.f create mode 100644 src/slalib/dt.f create mode 100644 src/slalib/dtf2d.f create mode 100644 src/slalib/dtf2r.f create mode 100644 src/slalib/dtp2s.f create mode 100644 src/slalib/dtp2v.f create mode 100644 src/slalib/dtps2c.f create mode 100644 src/slalib/dtpv2c.f create mode 100644 src/slalib/dtt.f create mode 100644 src/slalib/dv2tp.f create mode 100644 src/slalib/dvdv.f create mode 100644 src/slalib/dvn.f create mode 100644 src/slalib/dvxv.f create mode 100644 src/slalib/e2h.f create mode 100644 src/slalib/earth.f create mode 100644 src/slalib/ecleq.f create mode 100644 src/slalib/ecmat.f create mode 100644 src/slalib/ecor.f create mode 100644 src/slalib/eg50.f create mode 100644 src/slalib/el2ue.f create mode 100644 src/slalib/epb.f create mode 100644 src/slalib/epb2d.f create mode 100644 src/slalib/epco.f create mode 100644 src/slalib/epj.f create mode 100644 src/slalib/epj2d.f create mode 100644 src/slalib/eqecl.f create mode 100644 src/slalib/eqeqx.f create mode 100644 src/slalib/eqgal.f create mode 100644 src/slalib/etrms.f create mode 100644 src/slalib/euler.f create mode 100644 src/slalib/evp.f create mode 100644 src/slalib/fitxy.f create mode 100644 src/slalib/fk425.f create mode 100644 src/slalib/fk45z.f create mode 100644 src/slalib/fk524.f create mode 100644 src/slalib/fk52h.f create mode 100644 src/slalib/fk54z.f create mode 100644 src/slalib/fk5hz.f create mode 100644 src/slalib/flotin.f create mode 100644 src/slalib/galeq.f create mode 100644 src/slalib/galsup.f create mode 100644 src/slalib/ge50.f create mode 100644 src/slalib/geoc.f create mode 100644 src/slalib/gmst.f create mode 100644 src/slalib/gmsta.f create mode 100644 src/slalib/gresid.f_alpha_OSF1 create mode 100644 src/slalib/gresid.f_convex create mode 100644 src/slalib/gresid.f_ix86_Linux create mode 100644 src/slalib/gresid.f_mips create mode 100644 src/slalib/gresid.f_pcm create mode 100644 src/slalib/gresid.f_sun4 create mode 100644 src/slalib/gresid.f_sun4_Solaris create mode 100644 src/slalib/gresid.f_vax create mode 100644 src/slalib/gresid.f_x86_64 create mode 100644 src/slalib/h2e.f create mode 100644 src/slalib/h2fk5.f create mode 100644 src/slalib/hfk5z.f create mode 100644 src/slalib/idchf.f create mode 100644 src/slalib/idchi.f create mode 100644 src/slalib/imxv.f create mode 100644 src/slalib/intin.f create mode 100644 src/slalib/invf.f create mode 100644 src/slalib/kbj.f create mode 100644 src/slalib/m2av.f create mode 100644 src/slalib/makefile.orig create mode 100644 src/slalib/map.f create mode 100644 src/slalib/mappa.f create mode 100644 src/slalib/mapqk.f create mode 100644 src/slalib/mapqkz.f create mode 100755 src/slalib/mk create mode 100755 src/slalib/mk.sv create mode 100644 src/slalib/moon.f create mode 100644 src/slalib/mxm.f create mode 100644 src/slalib/mxv.f create mode 100644 src/slalib/nut.f create mode 100644 src/slalib/nutc.f create mode 100644 src/slalib/oap.f create mode 100644 src/slalib/oapqk.f create mode 100644 src/slalib/obs.f create mode 100644 src/slalib/pa.f create mode 100644 src/slalib/pav.f create mode 100755 src/slalib/pc.bat create mode 100644 src/slalib/pcd.f create mode 100644 src/slalib/pda2h.f create mode 100644 src/slalib/pdq2h.f create mode 100644 src/slalib/permut.f create mode 100644 src/slalib/pertel.f create mode 100644 src/slalib/pertue.f create mode 100644 src/slalib/planel.f create mode 100644 src/slalib/planet.f create mode 100644 src/slalib/plante.f create mode 100644 src/slalib/pm.f create mode 100644 src/slalib/polmo.f create mode 100644 src/slalib/prebn.f create mode 100644 src/slalib/prec.f create mode 100644 src/slalib/preces.f create mode 100644 src/slalib/precl.f create mode 100644 src/slalib/prenut.f create mode 100755 src/slalib/put.com create mode 100644 src/slalib/pv2el.f create mode 100644 src/slalib/pv2ue.f create mode 100644 src/slalib/pvobs.f create mode 100644 src/slalib/pxy.f create mode 100644 src/slalib/random.f_alpha_OSF1 create mode 100644 src/slalib/random.f_convex create mode 100644 src/slalib/random.f_ix86_Linux create mode 100644 src/slalib/random.f_mips create mode 100644 src/slalib/random.f_pcm create mode 100644 src/slalib/random.f_sun4 create mode 100644 src/slalib/random.f_sun4_Solaris create mode 100644 src/slalib/random.f_vax create mode 100644 src/slalib/random.f_x86_64 create mode 100644 src/slalib/range.f create mode 100644 src/slalib/ranorm.f create mode 100644 src/slalib/rcc.f create mode 100644 src/slalib/rdplan.f create mode 100644 src/slalib/read.me create mode 100644 src/slalib/refco.f create mode 100644 src/slalib/refcoq.f create mode 100644 src/slalib/refro.f create mode 100644 src/slalib/refv.f create mode 100644 src/slalib/refz.f create mode 100755 src/slalib/rep.bat create mode 100644 src/slalib/rtl_random.c create mode 100644 src/slalib/rverot.f create mode 100644 src/slalib/rvgalc.f create mode 100644 src/slalib/rvlg.f create mode 100644 src/slalib/rvlsrd.f create mode 100644 src/slalib/rvlsrk.f create mode 100644 src/slalib/s2tp.f create mode 100644 src/slalib/sep.f create mode 100644 src/slalib/sla.news create mode 100755 src/slalib/sla_link create mode 100755 src/slalib/sla_link_adam create mode 100644 src/slalib/sla_test.f create mode 100644 src/slalib/smat.f create mode 100644 src/slalib/subet.f create mode 100644 src/slalib/sun67.htx/blueball.gif create mode 100644 src/slalib/sun67.htx/change_begin.gif create mode 100644 src/slalib/sun67.htx/change_begin_right.gif create mode 100644 src/slalib/sun67.htx/change_delete.gif create mode 100644 src/slalib/sun67.htx/change_delete_right.gif create mode 100644 src/slalib/sun67.htx/change_end.gif create mode 100644 src/slalib/sun67.htx/change_end_right.gif create mode 100644 src/slalib/sun67.htx/contents.xbm create mode 100644 src/slalib/sun67.htx/contents_motif.gif create mode 100644 src/slalib/sun67.htx/cross_ref_motif.gif create mode 100644 src/slalib/sun67.htx/foot_motif.gif create mode 100644 src/slalib/sun67.htx/footnode.html create mode 100644 src/slalib/sun67.htx/greenball.gif create mode 100644 src/slalib/sun67.htx/icons.html create mode 100644 src/slalib/sun67.htx/image.gif create mode 100644 src/slalib/sun67.htx/images.aux create mode 100644 src/slalib/sun67.htx/images.log create mode 100644 src/slalib/sun67.htx/images.pl create mode 100644 src/slalib/sun67.htx/images.tex create mode 100644 src/slalib/sun67.htx/img1.gif create mode 100644 src/slalib/sun67.htx/img10.gif create mode 100644 src/slalib/sun67.htx/img100.gif create mode 100644 src/slalib/sun67.htx/img101.gif create mode 100644 src/slalib/sun67.htx/img102.gif create mode 100644 src/slalib/sun67.htx/img103.gif create mode 100644 src/slalib/sun67.htx/img104.gif create mode 100644 src/slalib/sun67.htx/img105.gif create mode 100644 src/slalib/sun67.htx/img106.gif create mode 100644 src/slalib/sun67.htx/img107.gif create mode 100644 src/slalib/sun67.htx/img108.gif create mode 100644 src/slalib/sun67.htx/img109.gif create mode 100644 src/slalib/sun67.htx/img11.gif create mode 100644 src/slalib/sun67.htx/img110.gif create mode 100644 src/slalib/sun67.htx/img111.gif create mode 100644 src/slalib/sun67.htx/img112.gif create mode 100644 src/slalib/sun67.htx/img113.gif create mode 100644 src/slalib/sun67.htx/img114.gif create mode 100644 src/slalib/sun67.htx/img115.gif create mode 100644 src/slalib/sun67.htx/img116.gif create mode 100644 src/slalib/sun67.htx/img117.gif create mode 100644 src/slalib/sun67.htx/img118.gif create mode 100644 src/slalib/sun67.htx/img119.gif create mode 100644 src/slalib/sun67.htx/img12.gif create mode 100644 src/slalib/sun67.htx/img120.gif create mode 100644 src/slalib/sun67.htx/img121.gif create mode 100644 src/slalib/sun67.htx/img122.gif create mode 100644 src/slalib/sun67.htx/img123.gif create mode 100644 src/slalib/sun67.htx/img124.gif create mode 100644 src/slalib/sun67.htx/img125.gif create mode 100644 src/slalib/sun67.htx/img126.gif create mode 100644 src/slalib/sun67.htx/img127.gif create mode 100644 src/slalib/sun67.htx/img128.gif create mode 100644 src/slalib/sun67.htx/img129.gif create mode 100644 src/slalib/sun67.htx/img13.gif create mode 100644 src/slalib/sun67.htx/img130.gif create mode 100644 src/slalib/sun67.htx/img131.gif create mode 100644 src/slalib/sun67.htx/img132.gif create mode 100644 src/slalib/sun67.htx/img133.gif create mode 100644 src/slalib/sun67.htx/img134.gif create mode 100644 src/slalib/sun67.htx/img135.gif create mode 100644 src/slalib/sun67.htx/img136.gif create mode 100644 src/slalib/sun67.htx/img137.gif create mode 100644 src/slalib/sun67.htx/img138.gif create mode 100644 src/slalib/sun67.htx/img139.gif create mode 100644 src/slalib/sun67.htx/img14.gif create mode 100644 src/slalib/sun67.htx/img140.gif create mode 100644 src/slalib/sun67.htx/img141.gif create mode 100644 src/slalib/sun67.htx/img142.gif create mode 100644 src/slalib/sun67.htx/img143.gif create mode 100644 src/slalib/sun67.htx/img144.gif create mode 100644 src/slalib/sun67.htx/img145.gif create mode 100644 src/slalib/sun67.htx/img146.gif create mode 100644 src/slalib/sun67.htx/img147.gif create mode 100644 src/slalib/sun67.htx/img148.gif create mode 100644 src/slalib/sun67.htx/img149.gif create mode 100644 src/slalib/sun67.htx/img15.gif create mode 100644 src/slalib/sun67.htx/img150.gif create mode 100644 src/slalib/sun67.htx/img151.gif create mode 100644 src/slalib/sun67.htx/img152.gif create mode 100644 src/slalib/sun67.htx/img153.gif create mode 100644 src/slalib/sun67.htx/img154.gif create mode 100644 src/slalib/sun67.htx/img155.gif create mode 100644 src/slalib/sun67.htx/img156.gif create mode 100644 src/slalib/sun67.htx/img157.gif create mode 100644 src/slalib/sun67.htx/img158.gif create mode 100644 src/slalib/sun67.htx/img159.gif create mode 100644 src/slalib/sun67.htx/img16.gif create mode 100644 src/slalib/sun67.htx/img160.gif create mode 100644 src/slalib/sun67.htx/img161.gif create mode 100644 src/slalib/sun67.htx/img162.gif create mode 100644 src/slalib/sun67.htx/img163.gif create mode 100644 src/slalib/sun67.htx/img164.gif create mode 100644 src/slalib/sun67.htx/img165.gif create mode 100644 src/slalib/sun67.htx/img166.gif create mode 100644 src/slalib/sun67.htx/img167.gif create mode 100644 src/slalib/sun67.htx/img168.gif create mode 100644 src/slalib/sun67.htx/img169.gif create mode 100644 src/slalib/sun67.htx/img17.gif create mode 100644 src/slalib/sun67.htx/img170.gif create mode 100644 src/slalib/sun67.htx/img171.gif create mode 100644 src/slalib/sun67.htx/img172.gif create mode 100644 src/slalib/sun67.htx/img173.gif create mode 100644 src/slalib/sun67.htx/img174.gif create mode 100644 src/slalib/sun67.htx/img175.gif create mode 100644 src/slalib/sun67.htx/img176.gif create mode 100644 src/slalib/sun67.htx/img177.gif create mode 100644 src/slalib/sun67.htx/img178.gif create mode 100644 src/slalib/sun67.htx/img179.gif create mode 100644 src/slalib/sun67.htx/img18.gif create mode 100644 src/slalib/sun67.htx/img180.gif create mode 100644 src/slalib/sun67.htx/img181.gif create mode 100644 src/slalib/sun67.htx/img182.gif create mode 100644 src/slalib/sun67.htx/img183.gif create mode 100644 src/slalib/sun67.htx/img184.gif create mode 100644 src/slalib/sun67.htx/img185.gif create mode 100644 src/slalib/sun67.htx/img186.gif create mode 100644 src/slalib/sun67.htx/img187.gif create mode 100644 src/slalib/sun67.htx/img188.gif create mode 100644 src/slalib/sun67.htx/img189.gif create mode 100644 src/slalib/sun67.htx/img19.gif create mode 100644 src/slalib/sun67.htx/img190.gif create mode 100644 src/slalib/sun67.htx/img191.gif create mode 100644 src/slalib/sun67.htx/img192.gif create mode 100644 src/slalib/sun67.htx/img193.gif create mode 100644 src/slalib/sun67.htx/img194.gif create mode 100644 src/slalib/sun67.htx/img195.gif create mode 100644 src/slalib/sun67.htx/img196.gif create mode 100644 src/slalib/sun67.htx/img197.gif create mode 100644 src/slalib/sun67.htx/img198.gif create mode 100644 src/slalib/sun67.htx/img199.gif create mode 100644 src/slalib/sun67.htx/img2.gif create mode 100644 src/slalib/sun67.htx/img20.gif create mode 100644 src/slalib/sun67.htx/img200.gif create mode 100644 src/slalib/sun67.htx/img201.gif create mode 100644 src/slalib/sun67.htx/img202.gif create mode 100644 src/slalib/sun67.htx/img203.gif create mode 100644 src/slalib/sun67.htx/img204.gif create mode 100644 src/slalib/sun67.htx/img205.gif create mode 100644 src/slalib/sun67.htx/img206.gif create mode 100644 src/slalib/sun67.htx/img207.gif create mode 100644 src/slalib/sun67.htx/img208.gif create mode 100644 src/slalib/sun67.htx/img209.gif create mode 100644 src/slalib/sun67.htx/img21.gif create mode 100644 src/slalib/sun67.htx/img210.gif create mode 100644 src/slalib/sun67.htx/img211.gif create mode 100644 src/slalib/sun67.htx/img212.gif create mode 100644 src/slalib/sun67.htx/img213.gif create mode 100644 src/slalib/sun67.htx/img214.gif create mode 100644 src/slalib/sun67.htx/img215.gif create mode 100644 src/slalib/sun67.htx/img216.gif create mode 100644 src/slalib/sun67.htx/img217.gif create mode 100644 src/slalib/sun67.htx/img218.gif create mode 100644 src/slalib/sun67.htx/img219.gif create mode 100644 src/slalib/sun67.htx/img22.gif create mode 100644 src/slalib/sun67.htx/img220.gif create mode 100644 src/slalib/sun67.htx/img221.gif create mode 100644 src/slalib/sun67.htx/img222.gif create mode 100644 src/slalib/sun67.htx/img223.gif create mode 100644 src/slalib/sun67.htx/img224.gif create mode 100644 src/slalib/sun67.htx/img225.gif create mode 100644 src/slalib/sun67.htx/img226.gif create mode 100644 src/slalib/sun67.htx/img227.gif create mode 100644 src/slalib/sun67.htx/img228.gif create mode 100644 src/slalib/sun67.htx/img229.gif create mode 100644 src/slalib/sun67.htx/img23.gif create mode 100644 src/slalib/sun67.htx/img230.gif create mode 100644 src/slalib/sun67.htx/img231.gif create mode 100644 src/slalib/sun67.htx/img232.gif create mode 100644 src/slalib/sun67.htx/img233.gif create mode 100644 src/slalib/sun67.htx/img234.gif create mode 100644 src/slalib/sun67.htx/img235.gif create mode 100644 src/slalib/sun67.htx/img236.gif create mode 100644 src/slalib/sun67.htx/img237.gif create mode 100644 src/slalib/sun67.htx/img238.gif create mode 100644 src/slalib/sun67.htx/img239.gif create mode 100644 src/slalib/sun67.htx/img24.gif create mode 100644 src/slalib/sun67.htx/img240.gif create mode 100644 src/slalib/sun67.htx/img241.gif create mode 100644 src/slalib/sun67.htx/img242.gif create mode 100644 src/slalib/sun67.htx/img243.gif create mode 100644 src/slalib/sun67.htx/img244.gif create mode 100644 src/slalib/sun67.htx/img245.gif create mode 100644 src/slalib/sun67.htx/img246.gif create mode 100644 src/slalib/sun67.htx/img247.gif create mode 100644 src/slalib/sun67.htx/img248.gif create mode 100644 src/slalib/sun67.htx/img249.gif create mode 100644 src/slalib/sun67.htx/img25.gif create mode 100644 src/slalib/sun67.htx/img250.gif create mode 100644 src/slalib/sun67.htx/img251.gif create mode 100644 src/slalib/sun67.htx/img252.gif create mode 100644 src/slalib/sun67.htx/img253.gif create mode 100644 src/slalib/sun67.htx/img254.gif create mode 100644 src/slalib/sun67.htx/img255.gif create mode 100644 src/slalib/sun67.htx/img256.gif create mode 100644 src/slalib/sun67.htx/img257.gif create mode 100644 src/slalib/sun67.htx/img258.gif create mode 100644 src/slalib/sun67.htx/img259.gif create mode 100644 src/slalib/sun67.htx/img26.gif create mode 100644 src/slalib/sun67.htx/img260.gif create mode 100644 src/slalib/sun67.htx/img261.gif create mode 100644 src/slalib/sun67.htx/img262.gif create mode 100644 src/slalib/sun67.htx/img263.gif create mode 100644 src/slalib/sun67.htx/img264.gif create mode 100644 src/slalib/sun67.htx/img265.gif create mode 100644 src/slalib/sun67.htx/img266.gif create mode 100644 src/slalib/sun67.htx/img267.gif create mode 100644 src/slalib/sun67.htx/img268.gif create mode 100644 src/slalib/sun67.htx/img269.gif create mode 100644 src/slalib/sun67.htx/img27.gif create mode 100644 src/slalib/sun67.htx/img270.gif create mode 100644 src/slalib/sun67.htx/img271.gif create mode 100644 src/slalib/sun67.htx/img272.gif create mode 100644 src/slalib/sun67.htx/img273.gif create mode 100644 src/slalib/sun67.htx/img274.gif create mode 100644 src/slalib/sun67.htx/img275.gif create mode 100644 src/slalib/sun67.htx/img276.gif create mode 100644 src/slalib/sun67.htx/img277.gif create mode 100644 src/slalib/sun67.htx/img278.gif create mode 100644 src/slalib/sun67.htx/img279.gif create mode 100644 src/slalib/sun67.htx/img28.gif create mode 100644 src/slalib/sun67.htx/img280.gif create mode 100644 src/slalib/sun67.htx/img281.gif create mode 100644 src/slalib/sun67.htx/img282.gif create mode 100644 src/slalib/sun67.htx/img283.gif create mode 100644 src/slalib/sun67.htx/img284.gif create mode 100644 src/slalib/sun67.htx/img285.gif create mode 100644 src/slalib/sun67.htx/img286.gif create mode 100644 src/slalib/sun67.htx/img287.gif create mode 100644 src/slalib/sun67.htx/img288.gif create mode 100644 src/slalib/sun67.htx/img289.gif create mode 100644 src/slalib/sun67.htx/img29.gif create mode 100644 src/slalib/sun67.htx/img290.gif create mode 100644 src/slalib/sun67.htx/img291.gif create mode 100644 src/slalib/sun67.htx/img292.gif create mode 100644 src/slalib/sun67.htx/img293.gif create mode 100644 src/slalib/sun67.htx/img294.gif create mode 100644 src/slalib/sun67.htx/img295.gif create mode 100644 src/slalib/sun67.htx/img296.gif create mode 100644 src/slalib/sun67.htx/img297.gif create mode 100644 src/slalib/sun67.htx/img298.gif create mode 100644 src/slalib/sun67.htx/img299.gif create mode 100644 src/slalib/sun67.htx/img3.gif create mode 100644 src/slalib/sun67.htx/img30.gif create mode 100644 src/slalib/sun67.htx/img300.gif create mode 100644 src/slalib/sun67.htx/img301.gif create mode 100644 src/slalib/sun67.htx/img302.gif create mode 100644 src/slalib/sun67.htx/img303.gif create mode 100644 src/slalib/sun67.htx/img304.gif create mode 100644 src/slalib/sun67.htx/img305.gif create mode 100644 src/slalib/sun67.htx/img306.gif create mode 100644 src/slalib/sun67.htx/img307.gif create mode 100644 src/slalib/sun67.htx/img308.gif create mode 100644 src/slalib/sun67.htx/img309.gif create mode 100644 src/slalib/sun67.htx/img31.gif create mode 100644 src/slalib/sun67.htx/img310.gif create mode 100644 src/slalib/sun67.htx/img311.gif create mode 100644 src/slalib/sun67.htx/img312.gif create mode 100644 src/slalib/sun67.htx/img313.gif create mode 100644 src/slalib/sun67.htx/img314.gif create mode 100644 src/slalib/sun67.htx/img315.gif create mode 100644 src/slalib/sun67.htx/img316.gif create mode 100644 src/slalib/sun67.htx/img317.gif create mode 100644 src/slalib/sun67.htx/img318.gif create mode 100644 src/slalib/sun67.htx/img319.gif create mode 100644 src/slalib/sun67.htx/img32.gif create mode 100644 src/slalib/sun67.htx/img320.gif create mode 100644 src/slalib/sun67.htx/img321.gif create mode 100644 src/slalib/sun67.htx/img322.gif create mode 100644 src/slalib/sun67.htx/img323.gif create mode 100644 src/slalib/sun67.htx/img324.gif create mode 100644 src/slalib/sun67.htx/img325.gif create mode 100644 src/slalib/sun67.htx/img326.gif create mode 100644 src/slalib/sun67.htx/img327.gif create mode 100644 src/slalib/sun67.htx/img328.gif create mode 100644 src/slalib/sun67.htx/img329.gif create mode 100644 src/slalib/sun67.htx/img33.gif create mode 100644 src/slalib/sun67.htx/img330.gif create mode 100644 src/slalib/sun67.htx/img34.gif create mode 100644 src/slalib/sun67.htx/img35.gif create mode 100644 src/slalib/sun67.htx/img36.gif create mode 100644 src/slalib/sun67.htx/img37.gif create mode 100644 src/slalib/sun67.htx/img38.gif create mode 100644 src/slalib/sun67.htx/img39.gif create mode 100644 src/slalib/sun67.htx/img4.gif create mode 100644 src/slalib/sun67.htx/img40.gif create mode 100644 src/slalib/sun67.htx/img41.gif create mode 100644 src/slalib/sun67.htx/img42.gif create mode 100644 src/slalib/sun67.htx/img43.gif create mode 100644 src/slalib/sun67.htx/img44.gif create mode 100644 src/slalib/sun67.htx/img45.gif create mode 100644 src/slalib/sun67.htx/img46.gif create mode 100644 src/slalib/sun67.htx/img47.gif create mode 100644 src/slalib/sun67.htx/img48.gif create mode 100644 src/slalib/sun67.htx/img49.gif create mode 100644 src/slalib/sun67.htx/img5.gif create mode 100644 src/slalib/sun67.htx/img50.gif create mode 100644 src/slalib/sun67.htx/img51.gif create mode 100644 src/slalib/sun67.htx/img52.gif create mode 100644 src/slalib/sun67.htx/img53.gif create mode 100644 src/slalib/sun67.htx/img54.gif create mode 100644 src/slalib/sun67.htx/img55.gif create mode 100644 src/slalib/sun67.htx/img56.gif create mode 100644 src/slalib/sun67.htx/img57.gif create mode 100644 src/slalib/sun67.htx/img58.gif create mode 100644 src/slalib/sun67.htx/img59.gif create mode 100644 src/slalib/sun67.htx/img6.gif create mode 100644 src/slalib/sun67.htx/img60.gif create mode 100644 src/slalib/sun67.htx/img61.gif create mode 100644 src/slalib/sun67.htx/img62.gif create mode 100644 src/slalib/sun67.htx/img63.gif create mode 100644 src/slalib/sun67.htx/img64.gif create mode 100644 src/slalib/sun67.htx/img65.gif create mode 100644 src/slalib/sun67.htx/img66.gif create mode 100644 src/slalib/sun67.htx/img67.gif create mode 100644 src/slalib/sun67.htx/img68.gif create mode 100644 src/slalib/sun67.htx/img69.gif create mode 100644 src/slalib/sun67.htx/img7.gif create mode 100644 src/slalib/sun67.htx/img70.gif create mode 100644 src/slalib/sun67.htx/img71.gif create mode 100644 src/slalib/sun67.htx/img72.gif create mode 100644 src/slalib/sun67.htx/img73.gif create mode 100644 src/slalib/sun67.htx/img74.gif create mode 100644 src/slalib/sun67.htx/img75.gif create mode 100644 src/slalib/sun67.htx/img76.gif create mode 100644 src/slalib/sun67.htx/img77.gif create mode 100644 src/slalib/sun67.htx/img78.gif create mode 100644 src/slalib/sun67.htx/img79.gif create mode 100644 src/slalib/sun67.htx/img8.gif create mode 100644 src/slalib/sun67.htx/img80.gif create mode 100644 src/slalib/sun67.htx/img81.gif create mode 100644 src/slalib/sun67.htx/img82.gif create mode 100644 src/slalib/sun67.htx/img83.gif create mode 100644 src/slalib/sun67.htx/img84.gif create mode 100644 src/slalib/sun67.htx/img85.gif create mode 100644 src/slalib/sun67.htx/img86.gif create mode 100644 src/slalib/sun67.htx/img87.gif create mode 100644 src/slalib/sun67.htx/img88.gif create mode 100644 src/slalib/sun67.htx/img89.gif create mode 100644 src/slalib/sun67.htx/img9.gif create mode 100644 src/slalib/sun67.htx/img90.gif create mode 100644 src/slalib/sun67.htx/img91.gif create mode 100644 src/slalib/sun67.htx/img92.gif create mode 100644 src/slalib/sun67.htx/img93.gif create mode 100644 src/slalib/sun67.htx/img94.gif create mode 100644 src/slalib/sun67.htx/img95.gif create mode 100644 src/slalib/sun67.htx/img96.gif create mode 100644 src/slalib/sun67.htx/img97.gif create mode 100644 src/slalib/sun67.htx/img98.gif create mode 100644 src/slalib/sun67.htx/img99.gif create mode 100644 src/slalib/sun67.htx/index_motif.gif create mode 100644 src/slalib/sun67.htx/internals.pl create mode 100644 src/slalib/sun67.htx/invis_anchor.xbm create mode 100644 src/slalib/sun67.htx/labels.pl create mode 100644 src/slalib/sun67.htx/next_group_motif.gif create mode 100644 src/slalib/sun67.htx/next_group_motif_gr.gif create mode 100644 src/slalib/sun67.htx/next_motif.gif create mode 100644 src/slalib/sun67.htx/next_motif_gr.gif create mode 100644 src/slalib/sun67.htx/node1.html create mode 100644 src/slalib/sun67.htx/node10.html create mode 100644 src/slalib/sun67.htx/node100.html create mode 100644 src/slalib/sun67.htx/node101.html create mode 100644 src/slalib/sun67.htx/node102.html create mode 100644 src/slalib/sun67.htx/node103.html create mode 100644 src/slalib/sun67.htx/node104.html create mode 100644 src/slalib/sun67.htx/node105.html create mode 100644 src/slalib/sun67.htx/node106.html create mode 100644 src/slalib/sun67.htx/node107.html create mode 100644 src/slalib/sun67.htx/node108.html create mode 100644 src/slalib/sun67.htx/node109.html create mode 100644 src/slalib/sun67.htx/node11.html create mode 100644 src/slalib/sun67.htx/node110.html create mode 100644 src/slalib/sun67.htx/node111.html create mode 100644 src/slalib/sun67.htx/node112.html create mode 100644 src/slalib/sun67.htx/node113.html create mode 100644 src/slalib/sun67.htx/node114.html create mode 100644 src/slalib/sun67.htx/node115.html create mode 100644 src/slalib/sun67.htx/node116.html create mode 100644 src/slalib/sun67.htx/node117.html create mode 100644 src/slalib/sun67.htx/node118.html create mode 100644 src/slalib/sun67.htx/node119.html create mode 100644 src/slalib/sun67.htx/node12.html create mode 100644 src/slalib/sun67.htx/node120.html create mode 100644 src/slalib/sun67.htx/node121.html create mode 100644 src/slalib/sun67.htx/node122.html create mode 100644 src/slalib/sun67.htx/node123.html create mode 100644 src/slalib/sun67.htx/node124.html create mode 100644 src/slalib/sun67.htx/node125.html create mode 100644 src/slalib/sun67.htx/node126.html create mode 100644 src/slalib/sun67.htx/node127.html create mode 100644 src/slalib/sun67.htx/node128.html create mode 100644 src/slalib/sun67.htx/node129.html create mode 100644 src/slalib/sun67.htx/node13.html create mode 100644 src/slalib/sun67.htx/node130.html create mode 100644 src/slalib/sun67.htx/node131.html create mode 100644 src/slalib/sun67.htx/node132.html create mode 100644 src/slalib/sun67.htx/node133.html create mode 100644 src/slalib/sun67.htx/node134.html create mode 100644 src/slalib/sun67.htx/node135.html create mode 100644 src/slalib/sun67.htx/node136.html create mode 100644 src/slalib/sun67.htx/node137.html create mode 100644 src/slalib/sun67.htx/node138.html create mode 100644 src/slalib/sun67.htx/node139.html create mode 100644 src/slalib/sun67.htx/node14.html create mode 100644 src/slalib/sun67.htx/node140.html create mode 100644 src/slalib/sun67.htx/node141.html create mode 100644 src/slalib/sun67.htx/node142.html create mode 100644 src/slalib/sun67.htx/node143.html create mode 100644 src/slalib/sun67.htx/node144.html create mode 100644 src/slalib/sun67.htx/node145.html create mode 100644 src/slalib/sun67.htx/node146.html create mode 100644 src/slalib/sun67.htx/node147.html create mode 100644 src/slalib/sun67.htx/node148.html create mode 100644 src/slalib/sun67.htx/node149.html create mode 100644 src/slalib/sun67.htx/node15.html create mode 100644 src/slalib/sun67.htx/node150.html create mode 100644 src/slalib/sun67.htx/node151.html create mode 100644 src/slalib/sun67.htx/node152.html create mode 100644 src/slalib/sun67.htx/node153.html create mode 100644 src/slalib/sun67.htx/node154.html create mode 100644 src/slalib/sun67.htx/node155.html create mode 100644 src/slalib/sun67.htx/node156.html create mode 100644 src/slalib/sun67.htx/node157.html create mode 100644 src/slalib/sun67.htx/node158.html create mode 100644 src/slalib/sun67.htx/node159.html create mode 100644 src/slalib/sun67.htx/node16.html create mode 100644 src/slalib/sun67.htx/node160.html create mode 100644 src/slalib/sun67.htx/node161.html create mode 100644 src/slalib/sun67.htx/node162.html create mode 100644 src/slalib/sun67.htx/node163.html create mode 100644 src/slalib/sun67.htx/node164.html create mode 100644 src/slalib/sun67.htx/node165.html create mode 100644 src/slalib/sun67.htx/node166.html create mode 100644 src/slalib/sun67.htx/node167.html create mode 100644 src/slalib/sun67.htx/node168.html create mode 100644 src/slalib/sun67.htx/node169.html create mode 100644 src/slalib/sun67.htx/node17.html create mode 100644 src/slalib/sun67.htx/node170.html create mode 100644 src/slalib/sun67.htx/node171.html create mode 100644 src/slalib/sun67.htx/node172.html create mode 100644 src/slalib/sun67.htx/node173.html create mode 100644 src/slalib/sun67.htx/node174.html create mode 100644 src/slalib/sun67.htx/node175.html create mode 100644 src/slalib/sun67.htx/node176.html create mode 100644 src/slalib/sun67.htx/node177.html create mode 100644 src/slalib/sun67.htx/node178.html create mode 100644 src/slalib/sun67.htx/node179.html create mode 100644 src/slalib/sun67.htx/node18.html create mode 100644 src/slalib/sun67.htx/node180.html create mode 100644 src/slalib/sun67.htx/node181.html create mode 100644 src/slalib/sun67.htx/node182.html create mode 100644 src/slalib/sun67.htx/node183.html create mode 100644 src/slalib/sun67.htx/node184.html create mode 100644 src/slalib/sun67.htx/node185.html create mode 100644 src/slalib/sun67.htx/node186.html create mode 100644 src/slalib/sun67.htx/node187.html create mode 100644 src/slalib/sun67.htx/node188.html create mode 100644 src/slalib/sun67.htx/node189.html create mode 100644 src/slalib/sun67.htx/node19.html create mode 100644 src/slalib/sun67.htx/node190.html create mode 100644 src/slalib/sun67.htx/node191.html create mode 100644 src/slalib/sun67.htx/node192.html create mode 100644 src/slalib/sun67.htx/node193.html create mode 100644 src/slalib/sun67.htx/node194.html create mode 100644 src/slalib/sun67.htx/node195.html create mode 100644 src/slalib/sun67.htx/node196.html create mode 100644 src/slalib/sun67.htx/node197.html create mode 100644 src/slalib/sun67.htx/node198.html create mode 100644 src/slalib/sun67.htx/node199.html create mode 100644 src/slalib/sun67.htx/node2.html create mode 100644 src/slalib/sun67.htx/node20.html create mode 100644 src/slalib/sun67.htx/node200.html create mode 100644 src/slalib/sun67.htx/node201.html create mode 100644 src/slalib/sun67.htx/node202.html create mode 100644 src/slalib/sun67.htx/node203.html create mode 100644 src/slalib/sun67.htx/node204.html create mode 100644 src/slalib/sun67.htx/node205.html create mode 100644 src/slalib/sun67.htx/node206.html create mode 100644 src/slalib/sun67.htx/node207.html create mode 100644 src/slalib/sun67.htx/node208.html create mode 100644 src/slalib/sun67.htx/node209.html create mode 100644 src/slalib/sun67.htx/node21.html create mode 100644 src/slalib/sun67.htx/node210.html create mode 100644 src/slalib/sun67.htx/node211.html create mode 100644 src/slalib/sun67.htx/node212.html create mode 100644 src/slalib/sun67.htx/node213.html create mode 100644 src/slalib/sun67.htx/node214.html create mode 100644 src/slalib/sun67.htx/node215.html create mode 100644 src/slalib/sun67.htx/node216.html create mode 100644 src/slalib/sun67.htx/node217.html create mode 100644 src/slalib/sun67.htx/node218.html create mode 100644 src/slalib/sun67.htx/node219.html create mode 100644 src/slalib/sun67.htx/node22.html create mode 100644 src/slalib/sun67.htx/node220.html create mode 100644 src/slalib/sun67.htx/node221.html create mode 100644 src/slalib/sun67.htx/node222.html create mode 100644 src/slalib/sun67.htx/node223.html create mode 100644 src/slalib/sun67.htx/node224.html create mode 100644 src/slalib/sun67.htx/node225.html create mode 100644 src/slalib/sun67.htx/node226.html create mode 100644 src/slalib/sun67.htx/node227.html create mode 100644 src/slalib/sun67.htx/node228.html create mode 100644 src/slalib/sun67.htx/node229.html create mode 100644 src/slalib/sun67.htx/node23.html create mode 100644 src/slalib/sun67.htx/node24.html create mode 100644 src/slalib/sun67.htx/node25.html create mode 100644 src/slalib/sun67.htx/node26.html create mode 100644 src/slalib/sun67.htx/node27.html create mode 100644 src/slalib/sun67.htx/node28.html create mode 100644 src/slalib/sun67.htx/node29.html create mode 100644 src/slalib/sun67.htx/node3.html create mode 100644 src/slalib/sun67.htx/node30.html create mode 100644 src/slalib/sun67.htx/node31.html create mode 100644 src/slalib/sun67.htx/node32.html create mode 100644 src/slalib/sun67.htx/node33.html create mode 100644 src/slalib/sun67.htx/node34.html create mode 100644 src/slalib/sun67.htx/node35.html create mode 100644 src/slalib/sun67.htx/node36.html create mode 100644 src/slalib/sun67.htx/node37.html create mode 100644 src/slalib/sun67.htx/node38.html create mode 100644 src/slalib/sun67.htx/node39.html create mode 100644 src/slalib/sun67.htx/node4.html create mode 100644 src/slalib/sun67.htx/node40.html create mode 100644 src/slalib/sun67.htx/node41.html create mode 100644 src/slalib/sun67.htx/node42.html create mode 100644 src/slalib/sun67.htx/node43.html create mode 100644 src/slalib/sun67.htx/node44.html create mode 100644 src/slalib/sun67.htx/node45.html create mode 100644 src/slalib/sun67.htx/node46.html create mode 100644 src/slalib/sun67.htx/node47.html create mode 100644 src/slalib/sun67.htx/node48.html create mode 100644 src/slalib/sun67.htx/node49.html create mode 100644 src/slalib/sun67.htx/node5.html create mode 100644 src/slalib/sun67.htx/node50.html create mode 100644 src/slalib/sun67.htx/node51.html create mode 100644 src/slalib/sun67.htx/node52.html create mode 100644 src/slalib/sun67.htx/node53.html create mode 100644 src/slalib/sun67.htx/node54.html create mode 100644 src/slalib/sun67.htx/node55.html create mode 100644 src/slalib/sun67.htx/node56.html create mode 100644 src/slalib/sun67.htx/node57.html create mode 100644 src/slalib/sun67.htx/node58.html create mode 100644 src/slalib/sun67.htx/node59.html create mode 100644 src/slalib/sun67.htx/node6.html create mode 100644 src/slalib/sun67.htx/node60.html create mode 100644 src/slalib/sun67.htx/node61.html create mode 100644 src/slalib/sun67.htx/node62.html create mode 100644 src/slalib/sun67.htx/node63.html create mode 100644 src/slalib/sun67.htx/node64.html create mode 100644 src/slalib/sun67.htx/node65.html create mode 100644 src/slalib/sun67.htx/node66.html create mode 100644 src/slalib/sun67.htx/node67.html create mode 100644 src/slalib/sun67.htx/node68.html create mode 100644 src/slalib/sun67.htx/node69.html create mode 100644 src/slalib/sun67.htx/node7.html create mode 100644 src/slalib/sun67.htx/node70.html create mode 100644 src/slalib/sun67.htx/node71.html create mode 100644 src/slalib/sun67.htx/node72.html create mode 100644 src/slalib/sun67.htx/node73.html create mode 100644 src/slalib/sun67.htx/node74.html create mode 100644 src/slalib/sun67.htx/node75.html create mode 100644 src/slalib/sun67.htx/node76.html create mode 100644 src/slalib/sun67.htx/node77.html create mode 100644 src/slalib/sun67.htx/node78.html create mode 100644 src/slalib/sun67.htx/node79.html create mode 100644 src/slalib/sun67.htx/node8.html create mode 100644 src/slalib/sun67.htx/node80.html create mode 100644 src/slalib/sun67.htx/node81.html create mode 100644 src/slalib/sun67.htx/node82.html create mode 100644 src/slalib/sun67.htx/node83.html create mode 100644 src/slalib/sun67.htx/node84.html create mode 100644 src/slalib/sun67.htx/node85.html create mode 100644 src/slalib/sun67.htx/node86.html create mode 100644 src/slalib/sun67.htx/node87.html create mode 100644 src/slalib/sun67.htx/node88.html create mode 100644 src/slalib/sun67.htx/node89.html create mode 100644 src/slalib/sun67.htx/node9.html create mode 100644 src/slalib/sun67.htx/node90.html create mode 100644 src/slalib/sun67.htx/node91.html create mode 100644 src/slalib/sun67.htx/node92.html create mode 100644 src/slalib/sun67.htx/node93.html create mode 100644 src/slalib/sun67.htx/node94.html create mode 100644 src/slalib/sun67.htx/node95.html create mode 100644 src/slalib/sun67.htx/node96.html create mode 100644 src/slalib/sun67.htx/node97.html create mode 100644 src/slalib/sun67.htx/node98.html create mode 100644 src/slalib/sun67.htx/node99.html create mode 100644 src/slalib/sun67.htx/orangeball.gif create mode 100644 src/slalib/sun67.htx/pinkball.gif create mode 100644 src/slalib/sun67.htx/previous_group_motif.gif create mode 100644 src/slalib/sun67.htx/previous_group_motif_gr.gif create mode 100644 src/slalib/sun67.htx/previous_motif.gif create mode 100644 src/slalib/sun67.htx/previous_motif_gr.gif create mode 100644 src/slalib/sun67.htx/purpleball.gif create mode 100644 src/slalib/sun67.htx/redball.gif create mode 100755 src/slalib/sun67.htx/source.gif create mode 100644 src/slalib/sun67.htx/sun67.css create mode 100644 src/slalib/sun67.htx/sun67.html create mode 100644 src/slalib/sun67.htx/up_motif.gif create mode 100644 src/slalib/sun67.htx/up_motif_gr.gif create mode 100644 src/slalib/sun67.htx/whiteball.gif create mode 100644 src/slalib/sun67.htx/yellowball.gif create mode 100644 src/slalib/sun67.htx_tar create mode 100644 src/slalib/sun67.tex create mode 100644 src/slalib/supgal.f create mode 100644 src/slalib/svd.f create mode 100644 src/slalib/svdcov.f create mode 100644 src/slalib/svdsol.f create mode 100644 src/slalib/tp2s.f create mode 100644 src/slalib/tp2v.f create mode 100644 src/slalib/tps2c.f create mode 100644 src/slalib/tpv2c.f create mode 100644 src/slalib/ue2el.f create mode 100644 src/slalib/ue2pv.f create mode 100644 src/slalib/unpcd.f create mode 100644 src/slalib/v2tp.f create mode 100644 src/slalib/vdv.f create mode 100644 src/slalib/vn.f create mode 100644 src/slalib/vxv.f create mode 100644 src/slalib/wait.f_alpha_OSF1 create mode 100644 src/slalib/wait.f_convex create mode 100644 src/slalib/wait.f_ix86_Linux create mode 100644 src/slalib/wait.f_mips create mode 100644 src/slalib/wait.f_pcm create mode 100644 src/slalib/wait.f_sun4 create mode 100644 src/slalib/wait.f_sun4_Solaris create mode 100644 src/slalib/wait.f_vax create mode 100644 src/slalib/wait.f_x86_64 create mode 100644 src/slalib/xy2xy.f create mode 100644 src/slalib/zd.f (limited to 'src') diff --git a/src/Makefile.Linux.orig b/src/Makefile.Linux.orig new file mode 100644 index 0000000..1351804 --- /dev/null +++ b/src/Makefile.Linux.orig @@ -0,0 +1,138 @@ + +CALFUSEDIR= ${PWD}/.. +PLATFORM= ix86_Linux +SHARED= -shared +FITSVER= 2.470 + +# Symbols for make +MAKE= make + +#Symbols used for compiling +CC= cc +OPT= -Wall -g -DCFORTRAN -Dg77Fortran -Df2cFortran +CFLAGS= ${OPT} -I${CALFUSEDIR}/include +LIBS= -lc -lm -lnsl -ldl -lgfortran + +all: lib bin fes jitter + +lib: libcfitsio libsla libfuse + +install: libinstall bininstall analinstall jitinstall # fesinstall + +libinstall: libcfitsioinstall libslainstall libfuseinstall + +clean: binclean fesclean analclean libclean jitclean + +distclean: bindistclean fesdistclean analdistclean libdistclean jitdistclean + +libclean: libcfitsioclean libslaclean libfuseclean + +libdistclean: libcfitsiodistclean libsladistclean libfusedistclean + +cfitsio/Makefile: + cd cfitsio; CC="${CC}"; export CC; ./configure; + +libcfitsio.so: + cd cfitsio; /bin/rm -f libcfitsio-${FITSVER}.so + +libcfitsio: cfitsio/Makefile + cd cfitsio; ${MAKE} CFLAGS="${OPT}"; \ + ${CC} ${SHARED} -o libcfitsio-${FITSVER}.so *.o ${LIBS} + +libsla: + SYSTEM="${PLATFORM}"; export SYSTEM; \ + FFLAGS="${OPT}"; export FFLAGS; \ + cd slalib; ./mk build; ${CC} ${SHARED} -o libsla.so *.o ${LIBS} + +libfuse: + cd libcf; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +bin: + cd fuv; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +fes: + cd fes; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +analysis: + cd analysis; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +jitter: + cd cal/jitter; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +libcfitsioinstall: libcfitsio + cd cfitsio; cp libcfitsio-${FITSVER}.so ${CALFUSEDIR}/lib + +libslainstall: libsla + cd slalib; cp libsla.so ${CALFUSEDIR}/lib + +libfuseinstall: libfuse + cd libcf; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +bininstall: bin + cd fuv; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +fesinstall: fes + cd fes; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +analinstall: analysis + cd analysis; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +jitinstall: jitter + cd cal/jitter; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +libcfitsioclean: + - cd cfitsio; ${MAKE} clean; /bin/rm -f libcfitsio-${FITSVER}.so + +libcfitsiodistclean: + - cd cfitsio; ${MAKE} distclean; /bin/rm -f libcfitsio-${FITSVER}.so + cd ../lib; /bin/rm -f libcfitsio-${FITSVER}.so + +libslaclean: + - SYSTEM="${PLATFORM}"; export SYSTEM; \ + cd slalib; ./mk clean; /bin/rm -f libsla.a libsla.so + +libsladistclean: + - SYSTEM="${PLATFORM}"; export SYSTEM; \ + cd slalib; ./mk unbuild + cd ../lib; /bin/rm -f libsla.so + +libfuseclean: + cd libcf; ${MAKE} clean + +libfusedistclean: + cd libcf; ${MAKE} distclean + +binclean: + cd fuv; ${MAKE} clean + +bindistclean: + cd fuv; ${MAKE} distclean + +fesclean: + cd fes; ${MAKE} clean + +fesdistclean: + cd fes; ${MAKE} distclean + +analclean: + cd analysis; ${MAKE} clean + +analdistclean: + cd analysis; ${MAKE} distclean + +jitclean: + cd cal/jitter; ${MAKE} clean + +jitdistclean: + cd cal/jitter; ${MAKE} distclean + diff --git a/src/Makefile.Linux64.orig b/src/Makefile.Linux64.orig new file mode 100644 index 0000000..6c498d9 --- /dev/null +++ b/src/Makefile.Linux64.orig @@ -0,0 +1,113 @@ + +CALFUSEDIR= ${PWD}/.. +PLATFORM= x86_64 +SHARED= -shared -fPIC + +# Symbols for make +MAKE= make + +#Symbols used for compiling +CC= gcc +OPT= -Wall -g -DCFORTRAN -Dg77Fortran -Df2cFortran +CFLAGS= ${OPT} -I${CALFUSEDIR}/include +LIBS= -lc -lm -lnsl -ldl -lgfortran -lcfitsio + +install: libinstall bininstall analinstall jitinstall # fesinstall + +libinstall: libslainstall libfuseinstall + +clean: binclean fesclean analclean libclean jitclean + +distclean: bindistclean fesdistclean analdistclean libdistclean jitdistclean + +libclean: libslaclean libfuseclean + +libdistclean: libsladistclean libfusedistclean + +libsla: + SYSTEM="${PLATFORM}"; export SYSTEM; \ + FFLAGS="${OPT}"; export FFLAGS; \ + cd slalib; ./mk build; ${CC} ${SHARED} -o libsla.so *.o ${LIBS} + +libfuse: + cd libcf; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT} ${SHARED}" all + +bin: + cd fuv; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" all + +fes: + cd fes; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" all + +analysis: + cd analysis; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" all + +jitter: + cd cal/jitter; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" all + +libslainstall: libsla + cd slalib; cp libsla.so ${CALFUSEDIR}/lib + +libfuseinstall: libfuse + cd libcf; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +bininstall: bin + cd fuv; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +fesinstall: fes + cd fes; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +analinstall: analysis + cd analysis; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +jitinstall: jitter + cd cal/jitter; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +libslaclean: + - SYSTEM="${PLATFORM}"; export SYSTEM; \ + cd slalib; ./mk clean; /bin/rm -f libsla.a libsla.so + +libsladistclean: + - SYSTEM="${PLATFORM}"; export SYSTEM; \ + cd slalib; ./mk unbuild + cd ../lib; /bin/rm -f libsla.so + +libfuseclean: + cd libcf; ${MAKE} clean + +libfusedistclean: + cd libcf; ${MAKE} distclean + +binclean: + cd fuv; ${MAKE} clean + +bindistclean: + cd fuv; ${MAKE} distclean + +fesclean: + cd fes; ${MAKE} clean + +fesdistclean: + cd fes; ${MAKE} distclean + +analclean: + cd analysis; ${MAKE} clean + +analdistclean: + cd analysis; ${MAKE} distclean + +jitclean: + cd cal/jitter; ${MAKE} clean + +jitdistclean: + cd cal/jitter; ${MAKE} distclean + diff --git a/src/Makefile.MacOSX.orig b/src/Makefile.MacOSX.orig new file mode 100644 index 0000000..6bfae3e --- /dev/null +++ b/src/Makefile.MacOSX.orig @@ -0,0 +1,143 @@ + +# Master Makefile for Mac OS X Version 10.2 or higher +# Slalib installation requires the command "make -e install" +# Leave PLATFORM = ix86_Linux; required by slalib. +# FITSVER is not used; library is always called libcfitsio.dylib. + +CALFUSEDIR= ${PWD}/.. +PLATFORM= ix86_Linux +SHARED= -dynamiclib +FITSVER= 2.470 +MACOSX_DEPLOYMENT_TARGET= 10.2 + +# Symbols for make +MAKE= make + +#Symbols used for compiling +CC= cc +OPT= -O3 -Wall -DCFORTRAN -Dg77Fortran -Df2cFortran +CFLAGS= ${OPT} -I${CALFUSEDIR}/include +LIBS= -L/sw/lib/ -lgfortran + +all: lib bin fes jitter + +lib: libcfitsio libsla libfuse + +install: libinstall bininstall analinstall jitinstall # fesinstall + +libinstall: libcfitsioinstall libslainstall libfuseinstall + +clean: binclean fesclean analclean libclean jitclean + +distclean: bindistclean fesdistclean analdistclean libdistclean jitdistclean + +libclean: libcfitsioclean libslaclean libfuseclean + +libdistclean: libcfitsiodistclean libsladistclean libfusedistclean + +cfitsio/Makefile: + cd cfitsio; CC="${CC}"; export CC; ./configure; + +libcfitsio: cfitsio/Makefile + cd cfitsio; ${MAKE} shared + +libsla: + - SYSTEM="${PLATFORM}"; export SYSTEM; \ + cd slalib; ./mk build; \ + ${CC} ${SHARED} -o libsla.dylib *.o ${LIBS} + +libfuse: + cd libcf; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +bin: + MACOSX_DEPLOYMENT_TARGET="${MACOSX_DEPLOYMENT_TARGET}"; \ + export MACOSX_DEPLOYMENT_TARGET; \ + cd fuv; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +fes: + cd fes; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +analysis: + cd analysis; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +jitter: + cd cal/jitter; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +libcfitsioinstall: libcfitsio + cd cfitsio; cp libcfitsio.dylib ${CALFUSEDIR}/lib + +libslainstall: libsla + cd slalib; cp libsla.dylib ${CALFUSEDIR}/lib + +libfuseinstall: libfuse + cd libcf; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +bininstall: bin + cd fuv; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +fesinstall: fes + cd fes; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +analinstall: analysis + cd analysis; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +jitinstall: jitter + cd cal/jitter; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +libcfitsioclean: + - cd cfitsio; ${MAKE} clean; /bin/rm -f libcfitsio.dylib + +libcfitsiodistclean: + - cd cfitsio; ${MAKE} distclean; /bin/rm -f libcfitsio.dylib + /bin/rm -f ../lib/libcfitsio.dylib + # cd ../lib; /bin/rm libcfitsio-${FITSVER}.dylib + +libslaclean: + - SYSTEM="${PLATFORM}"; export SYSTEM; \ + cd slalib; ./mk clean; /bin/rm -f libsla.a libsla.dylib + +libsladistclean: + - SYSTEM="${PLATFORM}"; export SYSTEM; \ + cd slalib; ./mk unbuild + cd ../lib; /bin/rm -f libsla.dylib + +libfuseclean: + cd libcf; ${MAKE} clean + +libfusedistclean: + cd libcf; ${MAKE} distclean + +binclean: + cd fuv; ${MAKE} clean + +bindistclean: + cd fuv; ${MAKE} distclean + +fesclean: + cd fes; ${MAKE} clean + +fesdistclean: + cd fes; ${MAKE} distclean + +analclean: + cd analysis; ${MAKE} clean + +analdistclean: + cd analysis; ${MAKE} distclean + +jitclean: + cd cal/jitter; ${MAKE} clean + +jitdistclean: + cd cal/jitter; ${MAKE} distclean + diff --git a/src/Makefile.Solaris.orig b/src/Makefile.Solaris.orig new file mode 100644 index 0000000..6661a7d --- /dev/null +++ b/src/Makefile.Solaris.orig @@ -0,0 +1,137 @@ + +CALFUSEDIR= ${PWD}/.. +PLATFORM= sun4_Solaris +SHARED= -G +FITSVER= 2.470 + +# Symbols for make +MAKE= make + +#Symbols used for compiling +CC= cc +OPT= -O -DCFORTRAN -KPIC -DSOLARIS +CFLAGS= ${OPT} -I${CALFUSEDIR}/include +LIBS= -lc -lm -lnsl -ldl -lsocket -lsunmath -lM77 -lF77 + +all: lib bin fes jitter + +lib: libcfitsio libsla libfuse + +install: libinstall bininstall analinstall jitinstall # fesinstall + +libinstall: libcfitsioinstall libslainstall libfuseinstall + +clean: binclean fesclean analclean libclean jitclean + +distclean: bindistclean fesdistclean analdistclean libdistclean jitdistclean + +libclean: libcfitsioclean libslaclean libfuseclean + +libdistclean: libcfitsiodistclean libsladistclean libfusedistclean + +cfitsio/Makefile: + cd cfitsio; CC="${CC}"; export CC; ./configure; + +libcfitsio.so: + cd cfitsio; /bin/rm -f libcfitsio-${FITSVER}.so + +libcfitsio: cfitsio/Makefile + cd cfitsio; ${MAKE} CFLAGS="${OPT}"; \ + ${CC} ${SHARED} -o libcfitsio-${FITSVER}.so *.o ${LIBS} + +libsla: + SYSTEM="${PLATFORM}"; export SYSTEM; \ + FFLAGS="${OPT}"; export FFLAGS; \ + cd slalib; ./mk build; ${CC} ${SHARED} -o libsla.so *.o ${LIBS} + +libfuse: + cd libcf; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +bin: + cd fuv; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +fes: + cd fes; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +analysis: + cd analysis; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +jitter: + cd cal/jitter; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +libcfitsioinstall: libcfitsio + cd cfitsio; cp libcfitsio-${FITSVER}.so ${CALFUSEDIR}/lib + +libslainstall: libsla + cd slalib; cp libsla.so ${CALFUSEDIR}/lib + +libfuseinstall: libfuse + cd libcf; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +bininstall: bin + cd fuv; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +fesinstall: fes + cd fes; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +analinstall: analysis + cd analysis; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +jitinstall: jitter + cd cal/jitter; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +libcfitsioclean: + - cd cfitsio; ${MAKE} clean; /bin/rm -f libcfitsio-${FITSVER}.so + +libcfitsiodistclean: + - cd cfitsio; ${MAKE} distclean; /bin/rm -f libcfitsio-${FITSVER}.so + cd ../lib; /bin/rm -f libcfitsio-${FITSVER}.so + +libslaclean: + - SYSTEM="${PLATFORM}"; export SYSTEM; \ + cd slalib; ./mk clean; /bin/rm -f libsla.a libsla.so + +libsladistclean: + - SYSTEM="${PLATFORM}"; export SYSTEM; \ + cd slalib; ./mk unbuild + cd ../lib; /bin/rm -f libsla.so + +libfuseclean: + cd libcf; ${MAKE} clean + +libfusedistclean: + cd libcf; ${MAKE} distclean + +binclean: + cd fuv; ${MAKE} clean + +bindistclean: + cd fuv; ${MAKE} distclean + +fesclean: + cd fes; ${MAKE} clean + +fesdistclean: + cd fes; ${MAKE} distclean + +analclean: + cd analysis; ${MAKE} clean + +analdistclean: + cd analysis; ${MAKE} distclean + +jitclean: + cd cal/jitter; ${MAKE} clean + +jitdistclean: + cd cal/jitter; ${MAKE} distclean diff --git a/src/Makefile.am b/src/Makefile.am new file mode 100644 index 0000000..7a3bd69 --- /dev/null +++ b/src/Makefile.am @@ -0,0 +1 @@ +SUBDIRS = slalib diff --git a/src/Makefile.in b/src/Makefile.in new file mode 100644 index 0000000..b58841d --- /dev/null +++ b/src/Makefile.in @@ -0,0 +1,619 @@ +# Makefile.in generated by automake 1.15 from Makefile.am. +# @configure_input@ + +# Copyright (C) 1994-2014 Free Software Foundation, Inc. + +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +@SET_MAKE@ +VPATH = @srcdir@ +am__is_gnu_make = { \ + if test -z '$(MAKELEVEL)'; then \ + false; \ + elif test -n '$(MAKE_HOST)'; then \ + true; \ + elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \ + true; \ + else \ + false; \ + fi; \ +} +am__make_running_with_option = \ + case $${target_option-} in \ + ?) ;; \ + *) echo "am__make_running_with_option: internal error: invalid" \ + "target option '$${target_option-}' specified" >&2; \ + exit 1;; \ + esac; \ + has_opt=no; \ + sane_makeflags=$$MAKEFLAGS; \ + if $(am__is_gnu_make); then \ + sane_makeflags=$$MFLAGS; \ + else \ + case $$MAKEFLAGS in \ + *\\[\ \ ]*) \ + bs=\\; \ + sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ + | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ + esac; \ + fi; \ + skip_next=no; \ + strip_trailopt () \ + { \ + flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ + }; \ + for flg in $$sane_makeflags; do \ + test $$skip_next = yes && { skip_next=no; continue; }; \ + case $$flg in \ + *=*|--*) continue;; \ + -*I) strip_trailopt 'I'; skip_next=yes;; \ + -*I?*) strip_trailopt 'I';; \ + -*O) strip_trailopt 'O'; skip_next=yes;; \ + -*O?*) strip_trailopt 'O';; \ + -*l) strip_trailopt 'l'; skip_next=yes;; \ + -*l?*) strip_trailopt 'l';; \ + -[dEDm]) skip_next=yes;; \ + -[JT]) skip_next=yes;; \ + esac; \ + case $$flg in \ + *$$target_option*) has_opt=yes; break;; \ + esac; \ + done; \ + test $$has_opt = yes +am__make_dryrun = (target_option=n; $(am__make_running_with_option)) +am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) +pkgdatadir = $(datadir)/@PACKAGE@ +pkgincludedir = $(includedir)/@PACKAGE@ +pkglibdir = $(libdir)/@PACKAGE@ +pkglibexecdir = $(libexecdir)/@PACKAGE@ +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = @build@ +host_triplet = @host@ +subdir = src +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ + $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ + $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ + $(top_srcdir)/configure.ac +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON) +mkinstalldirs = $(install_sh) -d +CONFIG_HEADER = $(top_builddir)/config.h +CONFIG_CLEAN_FILES = +CONFIG_CLEAN_VPATH_FILES = +AM_V_P = $(am__v_P_@AM_V@) +am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) +am__v_P_0 = false +am__v_P_1 = : +AM_V_GEN = $(am__v_GEN_@AM_V@) +am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) +am__v_GEN_0 = @echo " GEN " $@; +am__v_GEN_1 = +AM_V_at = $(am__v_at_@AM_V@) +am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) +am__v_at_0 = @ +am__v_at_1 = +SOURCES = +DIST_SOURCES = +RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \ + ctags-recursive dvi-recursive html-recursive info-recursive \ + install-data-recursive install-dvi-recursive \ + install-exec-recursive install-html-recursive \ + install-info-recursive install-pdf-recursive \ + install-ps-recursive install-recursive installcheck-recursive \ + installdirs-recursive pdf-recursive ps-recursive \ + tags-recursive uninstall-recursive +am__can_run_installinfo = \ + case $$AM_UPDATE_INFO_DIR in \ + n|no|NO) false;; \ + *) (install-info --version) >/dev/null 2>&1;; \ + esac +RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ + distclean-recursive maintainer-clean-recursive +am__recursive_targets = \ + $(RECURSIVE_TARGETS) \ + $(RECURSIVE_CLEAN_TARGETS) \ + $(am__extra_recursive_targets) +AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \ + distdir +am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) +# Read a list of newline-separated strings from the standard input, +# and print each of them once, without duplicates. Input order is +# *not* preserved. +am__uniquify_input = $(AWK) '\ + BEGIN { nonempty = 0; } \ + { items[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in items) print i; }; } \ +' +# Make sure the list of sources is unique. This is necessary because, +# e.g., the same source file might be shared among _SOURCES variables +# for different programs/libraries. +am__define_uniq_tagged_files = \ + list='$(am__tagged_files)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | $(am__uniquify_input)` +ETAGS = etags +CTAGS = ctags +DIST_SUBDIRS = $(SUBDIRS) +am__DIST_COMMON = $(srcdir)/Makefile.in +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +am__relativize = \ + dir0=`pwd`; \ + sed_first='s,^\([^/]*\)/.*$$,\1,'; \ + sed_rest='s,^[^/]*/*,,'; \ + sed_last='s,^.*/\([^/]*\)$$,\1,'; \ + sed_butlast='s,/*[^/]*$$,,'; \ + while test -n "$$dir1"; do \ + first=`echo "$$dir1" | sed -e "$$sed_first"`; \ + if test "$$first" != "."; then \ + if test "$$first" = ".."; then \ + dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ + dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ + else \ + first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ + if test "$$first2" = "$$first"; then \ + dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ + else \ + dir2="../$$dir2"; \ + fi; \ + dir0="$$dir0"/"$$first"; \ + fi; \ + fi; \ + dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ + done; \ + reldir="$$dir2" +ACLOCAL = @ACLOCAL@ +ALLOCA = @ALLOCA@ +AMTAR = @AMTAR@ +AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ +AR = @AR@ +AUTOCONF = @AUTOCONF@ +AUTOHEADER = @AUTOHEADER@ +AUTOMAKE = @AUTOMAKE@ +AWK = @AWK@ +CC = @CC@ +CCDEPMODE = @CCDEPMODE@ +CFLAGS = @CFLAGS@ +CPP = @CPP@ +CPPFLAGS = @CPPFLAGS@ +CYGPATH_W = @CYGPATH_W@ +DEFS = @DEFS@ +DEPDIR = @DEPDIR@ +DLLTOOL = @DLLTOOL@ +DSYMUTIL = @DSYMUTIL@ +DUMPBIN = @DUMPBIN@ +ECHO_C = @ECHO_C@ +ECHO_N = @ECHO_N@ +ECHO_T = @ECHO_T@ +EGREP = @EGREP@ +EXEEXT = @EXEEXT@ +F77 = @F77@ +FFLAGS = @FFLAGS@ +FGREP = @FGREP@ +GREP = @GREP@ +INSTALL = @INSTALL@ +INSTALL_DATA = @INSTALL_DATA@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_SCRIPT = @INSTALL_SCRIPT@ +INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ +LD = @LD@ +LDFLAGS = @LDFLAGS@ +LIBOBJS = @LIBOBJS@ +LIBS = @LIBS@ +LIBTOOL = @LIBTOOL@ +LIPO = @LIPO@ +LN_S = @LN_S@ +LTLIBOBJS = @LTLIBOBJS@ +LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@ +MAKEINFO = @MAKEINFO@ +MANIFEST_TOOL = @MANIFEST_TOOL@ +MKDIR_P = @MKDIR_P@ +NM = @NM@ +NMEDIT = @NMEDIT@ +OBJDUMP = @OBJDUMP@ +OBJEXT = @OBJEXT@ +OTOOL = @OTOOL@ +OTOOL64 = @OTOOL64@ +PACKAGE = @PACKAGE@ +PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ +PACKAGE_NAME = @PACKAGE_NAME@ +PACKAGE_STRING = @PACKAGE_STRING@ +PACKAGE_TARNAME = @PACKAGE_TARNAME@ +PACKAGE_URL = @PACKAGE_URL@ +PACKAGE_VERSION = @PACKAGE_VERSION@ +PATH_SEPARATOR = @PATH_SEPARATOR@ +RANLIB = @RANLIB@ +SED = @SED@ +SET_MAKE = @SET_MAKE@ +SHELL = @SHELL@ +STRIP = @STRIP@ +VERSION = @VERSION@ +abs_builddir = @abs_builddir@ +abs_srcdir = @abs_srcdir@ +abs_top_builddir = @abs_top_builddir@ +abs_top_srcdir = @abs_top_srcdir@ +ac_ct_AR = @ac_ct_AR@ +ac_ct_CC = @ac_ct_CC@ +ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ +ac_ct_F77 = @ac_ct_F77@ +am__include = @am__include@ +am__leading_dot = @am__leading_dot@ +am__quote = @am__quote@ +am__tar = @am__tar@ +am__untar = @am__untar@ +bindir = @bindir@ +build = @build@ +build_alias = @build_alias@ +build_cpu = @build_cpu@ +build_os = @build_os@ +build_vendor = @build_vendor@ +builddir = @builddir@ +datadir = @datadir@ +datarootdir = @datarootdir@ +docdir = @docdir@ +dvidir = @dvidir@ +exec_prefix = @exec_prefix@ +host = @host@ +host_alias = @host_alias@ +host_cpu = @host_cpu@ +host_os = @host_os@ +host_vendor = @host_vendor@ +htmldir = @htmldir@ +includedir = @includedir@ +infodir = @infodir@ +install_sh = @install_sh@ +libdir = @libdir@ +libexecdir = @libexecdir@ +localedir = @localedir@ +localstatedir = @localstatedir@ +mandir = @mandir@ +mkdir_p = @mkdir_p@ +oldincludedir = @oldincludedir@ +pdfdir = @pdfdir@ +prefix = @prefix@ +program_transform_name = @program_transform_name@ +psdir = @psdir@ +sbindir = @sbindir@ +sharedstatedir = @sharedstatedir@ +srcdir = @srcdir@ +sysconfdir = @sysconfdir@ +target_alias = @target_alias@ +top_build_prefix = @top_build_prefix@ +top_builddir = @top_builddir@ +top_srcdir = @top_srcdir@ +SUBDIRS = slalib +all: all-recursive + +.SUFFIXES: +$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ + && { if test -f $@; then exit 0; else break; fi; }; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign src/Makefile'; \ + $(am__cd) $(top_srcdir) && \ + $(AUTOMAKE) --foreign src/Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(am__aclocal_m4_deps): + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs + +# This directory's subdirectories are mostly independent; you can cd +# into them and run 'make' without going through this Makefile. +# To change the values of 'make' variables: instead of editing Makefiles, +# (1) if the variable is set in 'config.status', edit 'config.status' +# (which will cause the Makefiles to be regenerated when you run 'make'); +# (2) otherwise, pass the desired values on the 'make' command line. +$(am__recursive_targets): + @fail=; \ + if $(am__make_keepgoing); then \ + failcom='fail=yes'; \ + else \ + failcom='exit 1'; \ + fi; \ + dot_seen=no; \ + target=`echo $@ | sed s/-recursive//`; \ + case "$@" in \ + distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ + *) list='$(SUBDIRS)' ;; \ + esac; \ + for subdir in $$list; do \ + echo "Making $$target in $$subdir"; \ + if test "$$subdir" = "."; then \ + dot_seen=yes; \ + local_target="$$target-am"; \ + else \ + local_target="$$target"; \ + fi; \ + ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ + || eval $$failcom; \ + done; \ + if test "$$dot_seen" = "no"; then \ + $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ + fi; test -z "$$fail" + +ID: $(am__tagged_files) + $(am__define_uniq_tagged_files); mkid -fID $$unique +tags: tags-recursive +TAGS: tags + +tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + set x; \ + here=`pwd`; \ + if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ + include_option=--etags-include; \ + empty_fix=.; \ + else \ + include_option=--include; \ + empty_fix=; \ + fi; \ + list='$(SUBDIRS)'; for subdir in $$list; do \ + if test "$$subdir" = .; then :; else \ + test ! -f $$subdir/TAGS || \ + set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ + fi; \ + done; \ + $(am__define_uniq_tagged_files); \ + shift; \ + if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + if test $$# -gt 0; then \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + "$$@" $$unique; \ + else \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$unique; \ + fi; \ + fi +ctags: ctags-recursive + +CTAGS: ctags +ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + $(am__define_uniq_tagged_files); \ + test -z "$(CTAGS_ARGS)$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && $(am__cd) $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) "$$here" +cscopelist: cscopelist-recursive + +cscopelist-am: $(am__tagged_files) + list='$(am__tagged_files)'; \ + case "$(srcdir)" in \ + [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ + *) sdir=$(subdir)/$(srcdir) ;; \ + esac; \ + for i in $$list; do \ + if test -f "$$i"; then \ + echo "$(subdir)/$$i"; \ + else \ + echo "$$sdir/$$i"; \ + fi; \ + done >> $(top_builddir)/cscope.files + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + list='$(DISTFILES)'; \ + dist_files=`for file in $$list; do echo $$file; done | \ + sed -e "s|^$$srcdirstrip/||;t" \ + -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ + case $$dist_files in \ + */*) $(MKDIR_P) `echo "$$dist_files" | \ + sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ + sort -u` ;; \ + esac; \ + for file in $$dist_files; do \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + if test -d $$d/$$file; then \ + dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test -d "$(distdir)/$$file"; then \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ + else \ + test -f "$(distdir)/$$file" \ + || cp -p $$d/$$file "$(distdir)/$$file" \ + || exit 1; \ + fi; \ + done + @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ + if test "$$subdir" = .; then :; else \ + $(am__make_dryrun) \ + || test -d "$(distdir)/$$subdir" \ + || $(MKDIR_P) "$(distdir)/$$subdir" \ + || exit 1; \ + dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ + $(am__relativize); \ + new_distdir=$$reldir; \ + dir1=$$subdir; dir2="$(top_distdir)"; \ + $(am__relativize); \ + new_top_distdir=$$reldir; \ + echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ + echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ + ($(am__cd) $$subdir && \ + $(MAKE) $(AM_MAKEFLAGS) \ + top_distdir="$$new_top_distdir" \ + distdir="$$new_distdir" \ + am__remove_distdir=: \ + am__skip_length_check=: \ + am__skip_mode_fix=: \ + distdir) \ + || exit 1; \ + fi; \ + done +check-am: all-am +check: check-recursive +all-am: Makefile +installdirs: installdirs-recursive +installdirs-am: +install: install-recursive +install-exec: install-exec-recursive +install-data: install-data-recursive +uninstall: uninstall-recursive + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-recursive +install-strip: + if test -z '$(STRIP)'; then \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + install; \ + else \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ + fi +mostlyclean-generic: + +clean-generic: + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-recursive + +clean-am: clean-generic clean-libtool mostlyclean-am + +distclean: distclean-recursive + -rm -f Makefile +distclean-am: clean-am distclean-generic distclean-tags + +dvi: dvi-recursive + +dvi-am: + +html: html-recursive + +html-am: + +info: info-recursive + +info-am: + +install-data-am: + +install-dvi: install-dvi-recursive + +install-dvi-am: + +install-exec-am: + +install-html: install-html-recursive + +install-html-am: + +install-info: install-info-recursive + +install-info-am: + +install-man: + +install-pdf: install-pdf-recursive + +install-pdf-am: + +install-ps: install-ps-recursive + +install-ps-am: + +installcheck-am: + +maintainer-clean: maintainer-clean-recursive + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-recursive + +mostlyclean-am: mostlyclean-generic mostlyclean-libtool + +pdf: pdf-recursive + +pdf-am: + +ps: ps-recursive + +ps-am: + +uninstall-am: + +.MAKE: $(am__recursive_targets) install-am install-strip + +.PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am check \ + check-am clean clean-generic clean-libtool cscopelist-am ctags \ + ctags-am distclean distclean-generic distclean-libtool \ + distclean-tags distdir dvi dvi-am html html-am info info-am \ + install install-am install-data install-data-am install-dvi \ + install-dvi-am install-exec install-exec-am install-html \ + install-html-am install-info install-info-am install-man \ + install-pdf install-pdf-am install-ps install-ps-am \ + install-strip installcheck installcheck-am installdirs \ + installdirs-am maintainer-clean maintainer-clean-generic \ + mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ + ps ps-am tags tags-am uninstall uninstall-am + +.PRECIOUS: Makefile + + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/src/Makefile.orig.orig b/src/Makefile.orig.orig new file mode 100644 index 0000000..6661a7d --- /dev/null +++ b/src/Makefile.orig.orig @@ -0,0 +1,137 @@ + +CALFUSEDIR= ${PWD}/.. +PLATFORM= sun4_Solaris +SHARED= -G +FITSVER= 2.470 + +# Symbols for make +MAKE= make + +#Symbols used for compiling +CC= cc +OPT= -O -DCFORTRAN -KPIC -DSOLARIS +CFLAGS= ${OPT} -I${CALFUSEDIR}/include +LIBS= -lc -lm -lnsl -ldl -lsocket -lsunmath -lM77 -lF77 + +all: lib bin fes jitter + +lib: libcfitsio libsla libfuse + +install: libinstall bininstall analinstall jitinstall # fesinstall + +libinstall: libcfitsioinstall libslainstall libfuseinstall + +clean: binclean fesclean analclean libclean jitclean + +distclean: bindistclean fesdistclean analdistclean libdistclean jitdistclean + +libclean: libcfitsioclean libslaclean libfuseclean + +libdistclean: libcfitsiodistclean libsladistclean libfusedistclean + +cfitsio/Makefile: + cd cfitsio; CC="${CC}"; export CC; ./configure; + +libcfitsio.so: + cd cfitsio; /bin/rm -f libcfitsio-${FITSVER}.so + +libcfitsio: cfitsio/Makefile + cd cfitsio; ${MAKE} CFLAGS="${OPT}"; \ + ${CC} ${SHARED} -o libcfitsio-${FITSVER}.so *.o ${LIBS} + +libsla: + SYSTEM="${PLATFORM}"; export SYSTEM; \ + FFLAGS="${OPT}"; export FFLAGS; \ + cd slalib; ./mk build; ${CC} ${SHARED} -o libsla.so *.o ${LIBS} + +libfuse: + cd libcf; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +bin: + cd fuv; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +fes: + cd fes; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +analysis: + cd analysis; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +jitter: + cd cal/jitter; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" FITSVER=${FITSVER} all + +libcfitsioinstall: libcfitsio + cd cfitsio; cp libcfitsio-${FITSVER}.so ${CALFUSEDIR}/lib + +libslainstall: libsla + cd slalib; cp libsla.so ${CALFUSEDIR}/lib + +libfuseinstall: libfuse + cd libcf; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +bininstall: bin + cd fuv; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +fesinstall: fes + cd fes; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +analinstall: analysis + cd analysis; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +jitinstall: jitter + cd cal/jitter; ${MAKE} CALFUSEDIR="${CALFUSEDIR}" \ + CC="${CC}" OPT="${OPT}" install + +libcfitsioclean: + - cd cfitsio; ${MAKE} clean; /bin/rm -f libcfitsio-${FITSVER}.so + +libcfitsiodistclean: + - cd cfitsio; ${MAKE} distclean; /bin/rm -f libcfitsio-${FITSVER}.so + cd ../lib; /bin/rm -f libcfitsio-${FITSVER}.so + +libslaclean: + - SYSTEM="${PLATFORM}"; export SYSTEM; \ + cd slalib; ./mk clean; /bin/rm -f libsla.a libsla.so + +libsladistclean: + - SYSTEM="${PLATFORM}"; export SYSTEM; \ + cd slalib; ./mk unbuild + cd ../lib; /bin/rm -f libsla.so + +libfuseclean: + cd libcf; ${MAKE} clean + +libfusedistclean: + cd libcf; ${MAKE} distclean + +binclean: + cd fuv; ${MAKE} clean + +bindistclean: + cd fuv; ${MAKE} distclean + +fesclean: + cd fes; ${MAKE} clean + +fesdistclean: + cd fes; ${MAKE} distclean + +analclean: + cd analysis; ${MAKE} clean + +analdistclean: + cd analysis; ${MAKE} distclean + +jitclean: + cd cal/jitter; ${MAKE} clean + +jitdistclean: + cd cal/jitter; ${MAKE} distclean diff --git a/src/analysis/Makefile.Linux.orig b/src/analysis/Makefile.Linux.orig new file mode 100644 index 0000000..b1786ef --- /dev/null +++ b/src/analysis/Makefile.Linux.orig @@ -0,0 +1,142 @@ + +FITSVER= 2.470 +CALFUSEDIR= ${PWD}/../.. + +# Symbols for include directories +FUSEINCLDIR= -I${CALFUSEDIR}/include + +# Symbols used for compiling +CC= cc +OPT= -g -Wall -DCFORTRAN -Dg77Fortran -Df2cFortran +CFLAGS= ${OPT} ${FUSEINCLDIR} + +# Symbols used for creating shared binaries +FUSEBINDIR= ${CALFUSEDIR}/bin +FUSELIBDIR= -L${CALFUSEDIR}/lib +LIBDIR= -L/opt/SUNWspro/lib +FUSELIBS= -lsla -lcfitsio-${FITSVER} -lcf +LIBS= -lc -lm -lnsl -ldl -lgfortran +LDFLAGS= -Wl,-R${CALFUSEDIR}/lib + +# Binaries to be made + +BINS= cf_ttag_to_hist get_shift mjd2hjd cf_reflux \ + idf_screen extract_jitter modhead \ + cf_arith cf_combine cf_nvo cf_pack cf_xcorr \ + idf_combine bpm_combine ttag_combine \ + cf_coadd cf_make_all_exp \ + remove_target_orbital_motion idf_cut \ + ttag_lightcurve \ + ttag_lightcurve_channel_sum \ + ttag_lightcurve_mjd2hmjd \ + ttag_lightcurve_combine \ + ttag_lightcurve_periodogram + +all: ${BINS} + chmod g+rw ${BINS} + +install: all + /bin/cp ${BINS} cf_make_all_obs.csh cf_make_900_obs.csh ${FUSEBINDIR} + +clean: + /bin/rm -f *.o ${BINS} + +distclean: + /bin/rm -f *.o ${BINS} + cd ../../bin; /bin/rm -f ${BINS} + +cf_arith: cf_arith.c cf_wrspec7.c cf_wrspec_cf2.c + ${CC} ${CFLAGS} -o cf_arith cf_arith.c cf_wrspec7.c cf_wrspec_cf2.c\ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_coadd: cf_coadd.c + ${CC} ${CFLAGS} -o cf_coadd cf_coadd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_combine: cf_combine.c cf_wrspec7.c + ${CC} ${CFLAGS} -o cf_combine cf_combine.c cf_wrspec7.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_make_all_exp: + ${CC} ${CFLAGS} -o cf_make_all_exp cf_make_all_exp.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_ttag_to_hist: + ${CC} ${CFLAGS} -o cf_ttag_to_hist cf_ttag_to_hist.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_combine: + ${CC} ${CFLAGS} -o ttag_combine ttag_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +idf_combine: + ${CC} ${CFLAGS} -o idf_combine idf_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +bpm_combine: + ${CC} ${CFLAGS} -o bpm_combine bpm_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +get_shift: + ${CC} ${CFLAGS} -o get_shift get_shift.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_pack: + ${CC} ${CFLAGS} -o cf_pack cf_pack.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_nvo: + ${CC} ${CFLAGS} -o cf_nvo cf_nvo.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_reflux: + ${CC} ${CFLAGS} -o cf_reflux cf_reflux.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_xcorr: + ${CC} ${CFLAGS} -o cf_xcorr cf_xcorr.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +modhead: + ${CC} ${CFLAGS} -o modhead modhead.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve: + ${CC} ${CFLAGS} -o ttag_lightcurve ttag_lightcurve.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_periodogram: + ${CC} ${CFLAGS} -o ttag_lightcurve_periodogram ttag_lightcurve_periodogram.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +mjd2hjd: mjd2hjd.c gethmjd.c + ${CC} ${CFLAGS} -o mjd2hjd mjd2hjd.c gethmjd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_channel_sum: + ${CC} ${CFLAGS} -o ttag_lightcurve_channel_sum ttag_lightcurve_channel_sum.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_mjd2hmjd : ttag_lightcurve_mjd2hmjd.c gethmjd.c + ${CC} ${CFLAGS} -o ttag_lightcurve_mjd2hmjd ttag_lightcurve_mjd2hmjd.c gethmjd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_combine: + ${CC} ${CFLAGS} -o ttag_lightcurve_combine ttag_lightcurve_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +idf_screen: + ${CC} ${CFLAGS} -o idf_screen idf_screen.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +remove_target_orbital_motion: remove_target_orbital_motion.c gethmjd.c + ${CC} ${CFLAGS} -o remove_target_orbital_motion remove_target_orbital_motion.c gethmjd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +idf_cut: + ${CC} ${CFLAGS} -o idf_cut idf_cut.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +extract_jitter: + ${CC} ${CFLAGS} -o extract_jitter extract_jitter.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} diff --git a/src/analysis/Makefile.Linux64.orig b/src/analysis/Makefile.Linux64.orig new file mode 100644 index 0000000..2ef8094 --- /dev/null +++ b/src/analysis/Makefile.Linux64.orig @@ -0,0 +1,141 @@ + +CALFUSEDIR= ${PWD}/../.. + +# Symbols for include directories +FUSEINCLDIR= -I${CALFUSEDIR}/include + +# Symbols used for compiling +CC= cc +OPT= -g -Wall -DCFORTRAN -Dg77Fortran -Df2cFortran +CFLAGS= ${OPT} ${FUSEINCLDIR} + +# Symbols used for creating shared binaries +FUSEBINDIR= ${CALFUSEDIR}/bin +FUSELIBDIR= -L${CALFUSEDIR}/lib +LIBDIR= -L/opt/SUNWspro/lib +FUSELIBS= -lsla -lcf +LIBS= -lc -lm -lnsl -ldl -lgfortran -lcfitsio +LDFLAGS= -Wl,-R${CALFUSEDIR}/lib + +# Binaries to be made + +BINS= cf_ttag_to_hist get_shift mjd2hjd cf_reflux \ + idf_screen extract_jitter modhead \ + cf_arith cf_combine cf_nvo cf_pack cf_xcorr \ + idf_combine bpm_combine ttag_combine \ + cf_coadd cf_make_all_exp \ + remove_target_orbital_motion idf_cut \ + ttag_lightcurve \ + ttag_lightcurve_channel_sum \ + ttag_lightcurve_mjd2hmjd \ + ttag_lightcurve_combine \ + ttag_lightcurve_periodogram + +all: ${BINS} + chmod g+rw ${BINS} + +install: all + /bin/cp ${BINS} cf_make_all_obs.csh cf_make_900_obs.csh ${FUSEBINDIR} + +clean: + /bin/rm -f *.o ${BINS} + +distclean: + /bin/rm -f *.o ${BINS} + cd ../../bin; /bin/rm -f ${BINS} + +cf_arith: cf_arith.c cf_wrspec7.c cf_wrspec_cf2.c + ${CC} ${CFLAGS} -o cf_arith cf_arith.c cf_wrspec7.c cf_wrspec_cf2.c\ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_coadd: cf_coadd.c + ${CC} ${CFLAGS} -o cf_coadd cf_coadd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_combine: cf_combine.c cf_wrspec7.c + ${CC} ${CFLAGS} -o cf_combine cf_combine.c cf_wrspec7.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_make_all_exp: + ${CC} ${CFLAGS} -o cf_make_all_exp cf_make_all_exp.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_ttag_to_hist: + ${CC} ${CFLAGS} -o cf_ttag_to_hist cf_ttag_to_hist.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_combine: + ${CC} ${CFLAGS} -o ttag_combine ttag_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +idf_combine: + ${CC} ${CFLAGS} -o idf_combine idf_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +bpm_combine: + ${CC} ${CFLAGS} -o bpm_combine bpm_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +get_shift: + ${CC} ${CFLAGS} -o get_shift get_shift.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_pack: + ${CC} ${CFLAGS} -o cf_pack cf_pack.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_nvo: + ${CC} ${CFLAGS} -o cf_nvo cf_nvo.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_reflux: + ${CC} ${CFLAGS} -o cf_reflux cf_reflux.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_xcorr: + ${CC} ${CFLAGS} -o cf_xcorr cf_xcorr.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +modhead: + ${CC} ${CFLAGS} -o modhead modhead.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve: + ${CC} ${CFLAGS} -o ttag_lightcurve ttag_lightcurve.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_periodogram: + ${CC} ${CFLAGS} -o ttag_lightcurve_periodogram ttag_lightcurve_periodogram.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +mjd2hjd: mjd2hjd.c gethmjd.c + ${CC} ${CFLAGS} -o mjd2hjd mjd2hjd.c gethmjd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_channel_sum: + ${CC} ${CFLAGS} -o ttag_lightcurve_channel_sum ttag_lightcurve_channel_sum.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_mjd2hmjd : ttag_lightcurve_mjd2hmjd.c gethmjd.c + ${CC} ${CFLAGS} -o ttag_lightcurve_mjd2hmjd ttag_lightcurve_mjd2hmjd.c gethmjd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_combine: + ${CC} ${CFLAGS} -o ttag_lightcurve_combine ttag_lightcurve_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +idf_screen: + ${CC} ${CFLAGS} -o idf_screen idf_screen.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +remove_target_orbital_motion: remove_target_orbital_motion.c gethmjd.c + ${CC} ${CFLAGS} -o remove_target_orbital_motion remove_target_orbital_motion.c gethmjd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +idf_cut: + ${CC} ${CFLAGS} -o idf_cut idf_cut.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +extract_jitter: + ${CC} ${CFLAGS} -o extract_jitter extract_jitter.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} diff --git a/src/analysis/Makefile.MacOSX.orig b/src/analysis/Makefile.MacOSX.orig new file mode 100644 index 0000000..5e40b35 --- /dev/null +++ b/src/analysis/Makefile.MacOSX.orig @@ -0,0 +1,145 @@ + +FITSVER= 2.470 +CALFUSEDIR= ${PWD}/../.. +MACOSX_DEPLOYMENT_TARGET= 10.2 + +# Symbols for include directories +FUSEINCLDIR= -I${CALFUSEDIR}/include + +# Symbols used for compiling +CC= cc +OPT= -O3 -Wall -DCFORTRAN -Dg77Fortran -Df2cFortran +CFLAGS= ${OPT} ${FUSEINCLDIR} + +# Symbols used for creating shared binaries +FUSEBINDIR= ${CALFUSEDIR}/bin +FUSELIBDIR= -L${CALFUSEDIR}/lib +# FUSELIBS= -lsla -lcfitsio-${FITSVER} -lcf +FUSELIBS= -lsla -lcfitsio -lcf +LIBS= -lc -lm -ldl -L/sw/lib/ -lgfortran + +# Binaries to be made + +BINS= cf_ttag_to_hist get_shift mjd2hjd cf_reflux \ + idf_screen extract_jitter modhead \ + cf_arith cf_combine cf_nvo cf_pack cf_xcorr \ + idf_combine bpm_combine ttag_combine \ + cf_coadd cf_make_all_exp \ + remove_target_orbital_motion idf_cut \ + ttag_lightcurve \ + ttag_lightcurve_channel_sum \ + ttag_lightcurve_mjd2hmjd \ + ttag_lightcurve_combine \ + ttag_lightcurve_periodogram + +all: ${BINS} + chmod g+rw ${BINS} + +install: + MACOSX_DEPLOYMENT_TARGET="${MACOSX_DEPLOYMENT_TARGET}"; \ + export MACOSX_DEPLOYMENT_TARGET; \ + make all + /bin/cp ${BINS} cf_make_all_obs.csh cf_make_900_obs.csh ${FUSEBINDIR} + +clean: + /bin/rm -f *.o ${BINS} + +distclean: + /bin/rm -f *.o ${BINS} + cd ../../bin; /bin/rm -f ${BINS} + +cf_arith: cf_arith.c cf_wrspec7.c cf_wrspec_cf2.c + ${CC} ${CFLAGS} -o cf_arith cf_arith.c cf_wrspec7.c cf_wrspec_cf2.c\ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_coadd: cf_coadd.c + ${CC} ${CFLAGS} -o cf_coadd cf_coadd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_combine: cf_combine.c cf_wrspec7.c + ${CC} ${CFLAGS} -o cf_combine cf_combine.c cf_wrspec7.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_make_all_exp: + ${CC} ${CFLAGS} -o cf_make_all_exp cf_make_all_exp.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_ttag_to_hist: + ${CC} ${CFLAGS} -o cf_ttag_to_hist cf_ttag_to_hist.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_combine: + ${CC} ${CFLAGS} -o ttag_combine ttag_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +idf_combine: + ${CC} ${CFLAGS} -o idf_combine idf_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +bpm_combine: + ${CC} ${CFLAGS} -o bpm_combine bpm_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +get_shift: + ${CC} ${CFLAGS} -o get_shift get_shift.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_pack: + ${CC} ${CFLAGS} -o cf_pack cf_pack.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_nvo: + ${CC} ${CFLAGS} -o cf_nvo cf_nvo.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_reflux: + ${CC} ${CFLAGS} -o cf_reflux cf_reflux.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_xcorr: + ${CC} ${CFLAGS} -o cf_xcorr cf_xcorr.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +modhead: + ${CC} ${CFLAGS} -o modhead modhead.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve: + ${CC} ${CFLAGS} -o ttag_lightcurve ttag_lightcurve.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_periodogram: + ${CC} ${CFLAGS} -o ttag_lightcurve_periodogram ttag_lightcurve_periodogram.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +mjd2hjd: mjd2hjd.c gethmjd.c + ${CC} ${CFLAGS} -o mjd2hjd mjd2hjd.c gethmjd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_channel_sum: + ${CC} ${CFLAGS} -o ttag_lightcurve_channel_sum ttag_lightcurve_channel_sum.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_mjd2hmjd : ttag_lightcurve_mjd2hmjd.c gethmjd.c + ${CC} ${CFLAGS} -o ttag_lightcurve_mjd2hmjd ttag_lightcurve_mjd2hmjd.c gethmjd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_combine: + ${CC} ${CFLAGS} -o ttag_lightcurve_combine ttag_lightcurve_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +idf_screen: + ${CC} ${CFLAGS} -o idf_screen idf_screen.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +remove_target_orbital_motion: remove_target_orbital_motion.c gethmjd.c + ${CC} ${CFLAGS} -o remove_target_orbital_motion remove_target_orbital_motion.c gethmjd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +idf_cut: + ${CC} ${CFLAGS} -o idf_cut idf_cut.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +extract_jitter: + ${CC} ${CFLAGS} -o extract_jitter extract_jitter.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} diff --git a/src/analysis/Makefile.Solaris.orig b/src/analysis/Makefile.Solaris.orig new file mode 100644 index 0000000..52fb31b --- /dev/null +++ b/src/analysis/Makefile.Solaris.orig @@ -0,0 +1,147 @@ + +FITSVER= 2.470 +CALFUSEDIR= ${PWD}/../.. + +# Symbols for include directories +FUSEINCLDIR= -I${CALFUSEDIR}/include + +# Symbols used for compiling +CC= cc +# Romelfanger's optimizations +# OPT= -fast -xO5 -xtarget=ultra2 -xarch=v8plusa +# +# SunWorld's optimizations +# OPT= -p -v -xO2 -xdepend -xchip=ultra -xarch=generic +OPT= -O -DCFORTRAN -KPIC -DSOLARIS +CFLAGS= ${OPT} ${FUSEINCLDIR} + +# Symbols used for creating shared binaries +FUSEBINDIR= ${CALFUSEDIR}/bin +FUSELIBDIR= -L${CALFUSEDIR}/lib +LIBDIR= -L/opt/SUNWspro/lib +FUSELIBS= -lsla -lcfitsio-${FITSVER} -lcf +LIBS= -lc -lm -lnsl -ldl -lsocket -lsunmath -lM77 -lF77 +LDFLAGS= -Wl,-R${CALFUSEDIR}/lib + +# Binaries to be made + +BINS= cf_ttag_to_hist get_shift mjd2hjd cf_reflux \ + idf_screen extract_jitter modhead \ + cf_arith cf_combine cf_nvo cf_pack cf_xcorr \ + idf_combine bpm_combine ttag_combine \ + cf_coadd cf_make_all_exp \ + remove_target_orbital_motion idf_cut \ + ttag_lightcurve \ + ttag_lightcurve_channel_sum \ + ttag_lightcurve_mjd2hmjd \ + ttag_lightcurve_combine \ + ttag_lightcurve_periodogram + +all: ${BINS} + chmod g+rw ${BINS} + +install: all + /bin/cp ${BINS} cf_make_all_obs.csh cf_make_900_obs.csh ${FUSEBINDIR} + +clean: + /bin/rm -f *.o ${BINS} + +distclean: + /bin/rm -f *.o ${BINS} + cd ../../bin; /bin/rm -f ${BINS} + +cf_arith: cf_arith.c cf_wrspec7.c cf_wrspec_cf2.c + ${CC} ${CFLAGS} -o cf_arith cf_arith.c cf_wrspec7.c cf_wrspec_cf2.c\ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_coadd: cf_coadd.c + ${CC} ${CFLAGS} -o cf_coadd cf_coadd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_combine: cf_combine.c cf_wrspec7.c + ${CC} ${CFLAGS} -o cf_combine cf_combine.c cf_wrspec7.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_make_all_exp: + ${CC} ${CFLAGS} -o cf_make_all_exp cf_make_all_exp.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_ttag_to_hist: + ${CC} ${CFLAGS} -o cf_ttag_to_hist cf_ttag_to_hist.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_combine: + ${CC} ${CFLAGS} -o ttag_combine ttag_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +idf_combine: + ${CC} ${CFLAGS} -o idf_combine idf_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +bpm_combine: + ${CC} ${CFLAGS} -o bpm_combine bpm_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +get_shift: + ${CC} ${CFLAGS} -o get_shift get_shift.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_pack: + ${CC} ${CFLAGS} -o cf_pack cf_pack.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_nvo: + ${CC} ${CFLAGS} -o cf_nvo cf_nvo.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_reflux: + ${CC} ${CFLAGS} -o cf_reflux cf_reflux.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_xcorr: + ${CC} ${CFLAGS} -o cf_xcorr cf_xcorr.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +modhead: + ${CC} ${CFLAGS} -o modhead modhead.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve: + ${CC} ${CFLAGS} -o ttag_lightcurve ttag_lightcurve.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_periodogram: + ${CC} ${CFLAGS} -o ttag_lightcurve_periodogram ttag_lightcurve_periodogram.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +mjd2hjd: mjd2hjd.c gethmjd.c + ${CC} ${CFLAGS} -o mjd2hjd mjd2hjd.c gethmjd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_channel_sum: + ${CC} ${CFLAGS} -o ttag_lightcurve_channel_sum ttag_lightcurve_channel_sum.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_mjd2hmjd : ttag_lightcurve_mjd2hmjd.c gethmjd.c + ${CC} ${CFLAGS} -o ttag_lightcurve_mjd2hmjd ttag_lightcurve_mjd2hmjd.c gethmjd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_combine: + ${CC} ${CFLAGS} -o ttag_lightcurve_combine ttag_lightcurve_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +idf_screen: + ${CC} ${CFLAGS} -o idf_screen idf_screen.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +remove_target_orbital_motion: remove_target_orbital_motion.c gethmjd.c + ${CC} ${CFLAGS} -o remove_target_orbital_motion remove_target_orbital_motion.c gethmjd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +idf_cut: + ${CC} ${CFLAGS} -o idf_cut idf_cut.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +extract_jitter: + ${CC} ${CFLAGS} -o extract_jitter extract_jitter.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} diff --git a/src/analysis/Makefile.orig.orig b/src/analysis/Makefile.orig.orig new file mode 100644 index 0000000..52fb31b --- /dev/null +++ b/src/analysis/Makefile.orig.orig @@ -0,0 +1,147 @@ + +FITSVER= 2.470 +CALFUSEDIR= ${PWD}/../.. + +# Symbols for include directories +FUSEINCLDIR= -I${CALFUSEDIR}/include + +# Symbols used for compiling +CC= cc +# Romelfanger's optimizations +# OPT= -fast -xO5 -xtarget=ultra2 -xarch=v8plusa +# +# SunWorld's optimizations +# OPT= -p -v -xO2 -xdepend -xchip=ultra -xarch=generic +OPT= -O -DCFORTRAN -KPIC -DSOLARIS +CFLAGS= ${OPT} ${FUSEINCLDIR} + +# Symbols used for creating shared binaries +FUSEBINDIR= ${CALFUSEDIR}/bin +FUSELIBDIR= -L${CALFUSEDIR}/lib +LIBDIR= -L/opt/SUNWspro/lib +FUSELIBS= -lsla -lcfitsio-${FITSVER} -lcf +LIBS= -lc -lm -lnsl -ldl -lsocket -lsunmath -lM77 -lF77 +LDFLAGS= -Wl,-R${CALFUSEDIR}/lib + +# Binaries to be made + +BINS= cf_ttag_to_hist get_shift mjd2hjd cf_reflux \ + idf_screen extract_jitter modhead \ + cf_arith cf_combine cf_nvo cf_pack cf_xcorr \ + idf_combine bpm_combine ttag_combine \ + cf_coadd cf_make_all_exp \ + remove_target_orbital_motion idf_cut \ + ttag_lightcurve \ + ttag_lightcurve_channel_sum \ + ttag_lightcurve_mjd2hmjd \ + ttag_lightcurve_combine \ + ttag_lightcurve_periodogram + +all: ${BINS} + chmod g+rw ${BINS} + +install: all + /bin/cp ${BINS} cf_make_all_obs.csh cf_make_900_obs.csh ${FUSEBINDIR} + +clean: + /bin/rm -f *.o ${BINS} + +distclean: + /bin/rm -f *.o ${BINS} + cd ../../bin; /bin/rm -f ${BINS} + +cf_arith: cf_arith.c cf_wrspec7.c cf_wrspec_cf2.c + ${CC} ${CFLAGS} -o cf_arith cf_arith.c cf_wrspec7.c cf_wrspec_cf2.c\ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_coadd: cf_coadd.c + ${CC} ${CFLAGS} -o cf_coadd cf_coadd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_combine: cf_combine.c cf_wrspec7.c + ${CC} ${CFLAGS} -o cf_combine cf_combine.c cf_wrspec7.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_make_all_exp: + ${CC} ${CFLAGS} -o cf_make_all_exp cf_make_all_exp.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_ttag_to_hist: + ${CC} ${CFLAGS} -o cf_ttag_to_hist cf_ttag_to_hist.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_combine: + ${CC} ${CFLAGS} -o ttag_combine ttag_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +idf_combine: + ${CC} ${CFLAGS} -o idf_combine idf_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +bpm_combine: + ${CC} ${CFLAGS} -o bpm_combine bpm_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +get_shift: + ${CC} ${CFLAGS} -o get_shift get_shift.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_pack: + ${CC} ${CFLAGS} -o cf_pack cf_pack.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_nvo: + ${CC} ${CFLAGS} -o cf_nvo cf_nvo.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_reflux: + ${CC} ${CFLAGS} -o cf_reflux cf_reflux.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +cf_xcorr: + ${CC} ${CFLAGS} -o cf_xcorr cf_xcorr.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +modhead: + ${CC} ${CFLAGS} -o modhead modhead.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve: + ${CC} ${CFLAGS} -o ttag_lightcurve ttag_lightcurve.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_periodogram: + ${CC} ${CFLAGS} -o ttag_lightcurve_periodogram ttag_lightcurve_periodogram.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +mjd2hjd: mjd2hjd.c gethmjd.c + ${CC} ${CFLAGS} -o mjd2hjd mjd2hjd.c gethmjd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_channel_sum: + ${CC} ${CFLAGS} -o ttag_lightcurve_channel_sum ttag_lightcurve_channel_sum.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_mjd2hmjd : ttag_lightcurve_mjd2hmjd.c gethmjd.c + ${CC} ${CFLAGS} -o ttag_lightcurve_mjd2hmjd ttag_lightcurve_mjd2hmjd.c gethmjd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +ttag_lightcurve_combine: + ${CC} ${CFLAGS} -o ttag_lightcurve_combine ttag_lightcurve_combine.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +idf_screen: + ${CC} ${CFLAGS} -o idf_screen idf_screen.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +remove_target_orbital_motion: remove_target_orbital_motion.c gethmjd.c + ${CC} ${CFLAGS} -o remove_target_orbital_motion remove_target_orbital_motion.c gethmjd.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +idf_cut: + ${CC} ${CFLAGS} -o idf_cut idf_cut.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} + +extract_jitter: + ${CC} ${CFLAGS} -o extract_jitter extract_jitter.c \ + ${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS} diff --git a/src/analysis/bpm_combine.c b/src/analysis/bpm_combine.c new file mode 100644 index 0000000..86ec7d0 --- /dev/null +++ b/src/analysis/bpm_combine.c @@ -0,0 +1,548 @@ + +/***************************************************************************** + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSEbpm_combine + ***************************************************************************** + * + * Synopsis: bpm_combine output_bpm_file combined_idf_file + * + * + * Description: Creates a bpm file associated with a combined idf file + * It gets the names of the idf files from the combined idf + * file header. It gets the name of the bpm files from the idf + * files header. These bpm files are then combined using the + * offset information provided in the combined idf file header. + * The BPM_CAL keyword is updated in the combined idf file + * header. + * + * WARNING: all the single exposure IDF files (who took part in + * the creation of the idf_file) and their associated BPM files + * must be in the working directory. + * + * + * History: 12/03/03 bjg v1.0 Begin work. + * 12/05/03 bjg First version that compiles + * + * 12/10/03 bjg Accept now only idf as parameter + * Updated NSPEC keyword and + * SPECxxx, WOFFLxxx, WOFFSxxx + * keywords + * Removed paths in filenames + * written into header. + * 04/05/04 bjg Remove unused variables + * Change formats to match arg + * types in printf + * 05/25/04 bjg Skip when BPM_CAL unpopulated + * or not present. + * 04/13/05 wvd v2.0 combined_idf_file may be + * replaced by a file containing + * a list of BPM files. The first + * line of this file must contain + * the number of entries that + * follow. + * + ****************************************************************************/ + + + +#include +#include +#include +#include +#include "calfuse.h" + +typedef char filename[FLEN_CARD]; + + + +static char CF_PRGM_ID[]= "bpm_combine"; +static char CF_VER_NUM[]= "2.0"; + +int main(int argc,char *argv[]){ + + char date[FLEN_CARD]={'\0'}; + char rootname[FLEN_CARD]; + char *corrected_filename; + char *string_pointer; + + int felem_hdu2; + + char stime[FLEN_CARD],keyword[FLEN_CARD]; + + + + time_t vtime; + + fitsfile *infits,*outfits,*idffits; + char *has_bpm_list; + filename *filelist; + double *expstartlist; + double *expendlist; + long *neventslist; + double *sicshiftlist; + double *lifshiftlist; + double *exptimelist; + + double delta_t; + + filename tempstring,tempstring2; + double tempdouble; + long templong; + float tempfloat; + char tempchar; + + double minexpstart; + int minindex; + + int nfiles; + + int intnull=0,anynull; + int ncol; + + int status=0; + int hdutype=0; + int tref = 0; + + long nevents=0; + long n_real_events=0; + long i,j,istart; + + + float * xfield,*yfield,*weightfield,*lambdafield; + char *channelfield; + + char fmt_byte[FLEN_CARD],fmt_float[FLEN_CARD],fmt_short[FLEN_CARD]; + + double totalexptime=0, rawtime=0; + long neventscreened=0, neventscreenedpha=0; + float timescreened=0, timesaa=0, timelowlimbangle=0, timeburst=0, timejitter=0,timenight=0; + + + + int hdu2_tfields=5; + + char hdu2_extname[]="POTHOLE_DATA"; /* Name of this extension */ + + char *hdu2_ttype[]={"X", "Y", "CHANNEL", "WEIGHT", "LAMBDA"}; + + char *hdu2_tform[5]; /* We'll assign values when we know + the number of elements in the data set. */ + + + char *hdu2_tunit[]={"PIXELS", "PIXELS", "UNITLESS", "UNITLESS", "ANGSTROMS"}; + + + FILE *fp=NULL; + char line[FLEN_FILENAME]; + int maxline=FLEN_FILENAME; + + + if (argc != 3) { + printf("Incorrect number of arguments.\n"); + printf("Calling sequence:bpm_combine bpm_file combined_idf_file\n"); + printf("Final argument may be the name of a file containing a list of BPM files.\n"); + printf("First line must be number of BPM files in list.\n"); + exit(1); + } + + /* Initialize error checking. */ + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution."); + + /* get and display time */ + vtime = time(NULL) ; + strcpy(stime,ctime(&vtime)); + + fits_open_file(&idffits,argv[2],READONLY,&status); + if (status) { + status = 0; + if ((fp = fopen(argv[2], "r")) == NULL) { + printf("Can't open file %s\n", argv[2]); + return 1; + } + if ((fgets(line, maxline, fp)) == NULL) { + printf("Error reading file %s\n", argv[2]); + return 1; + } + sscanf(line,"%d",&nfiles); + } + else FITS_read_key(idffits,TINT,"NSPEC",&nfiles,NULL,&status); + + filelist = (filename *)malloc(nfiles*sizeof(filename)); + neventslist = (long *)malloc(nfiles*sizeof(long)); + sicshiftlist = (double *)calloc((size_t)nfiles,sizeof(double)); + lifshiftlist = (double *)calloc((size_t)nfiles,sizeof(double)); + expstartlist = (double *)malloc(nfiles*sizeof(double)); + expendlist = (double *)malloc(nfiles*sizeof(double)); + exptimelist = (double *)malloc(nfiles*sizeof(double)); + has_bpm_list = (char *)malloc(nfiles*sizeof(char)); + + for (i=0; i4) lambdafield[j]=lambdafield[j]+sicshiftlist[i]; + weightfield[j]=weightfield[j]*exptimelist[i]/totalexptime; + } + + + + FITS_write_col(outfits, TFLOAT, 1, 1, felem_hdu2, neventslist[i], xfield, &status); + FITS_write_col(outfits, TFLOAT, 2, 1, felem_hdu2, neventslist[i], yfield, &status); + FITS_write_col(outfits, TBYTE, 3, 1, felem_hdu2, neventslist[i], channelfield, &status); + FITS_write_col(outfits, TFLOAT, 4, 1, felem_hdu2, neventslist[i], weightfield, &status); + FITS_write_col(outfits, TFLOAT, 5, 1, felem_hdu2, neventslist[i], lambdafield, &status); + + + free(xfield); + free(yfield); + free(channelfield); + free(weightfield); + free(lambdafield); + + felem_hdu2+=neventslist[i]; + + FITS_close_file(infits,&status); + + + } + + printf("--------CLOSING OUTPUT FILE-----\n"); + + + FITS_close_file(outfits,&status); + + + if (fp == NULL) { + FITS_open_file(&idffits,argv[2],READWRITE,&status); + + string_pointer=strrchr(argv[1],'/'); + if (string_pointer==NULL) corrected_filename=argv[1]; + else corrected_filename=&(string_pointer[1]); + + FITS_update_key(idffits,TSTRING,"BPM_CAL",corrected_filename,NULL,&status); + FITS_close_file(idffits,&status); + } + + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished execution."); + return EXIT_SUCCESS; + +} + + diff --git a/src/analysis/cf_arith.c b/src/analysis/cf_arith.c new file mode 100644 index 0000000..94e40e9 --- /dev/null +++ b/src/analysis/cf_arith.c @@ -0,0 +1,2154 @@ +/***************************************************************************** + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ***************************************************************************** + * + * Synopsis: cf_arith infile1 op infile2 outfile + * + * Description: This is a generic utility program that performs arithmetic + * operations on two FUSE FITS files. The files must + * contain extracted FUSE spectra. + * Input files are assumed to have 6 columns in a binary + * table in the first extension (wavelength, flux, error, quality, + * counts, counts_error). Files with 4 columns (no counts or + * counts_error) are also handled for compatibility with + * pipeline output written prior to 12/1/99. + * + * (The next paragraph is included for completeness, but is + * not expected to be applicable to most users). + * If infile1 and infile2 have the same number of extensions, + * the specified operation is performed for each extension + * (outfile_ext_i = infile1_ext_i op infile2_ext_i). + * If infile2 has a single extension, the operation is performed + * for each extension in infile1 with the extension in infile2 + * (outfile_ext_i = infile1_ext_i op infile2_ext_1). + * + * infile1 and infile2 must have the same number of elements + * in each binary table (ie. binned by the same factor). + * infile2 may be a numeric string instead of a file. + * The header in outfile will be the same as for infile1, + * plus some HISTORY lines. + * No check is performed that the wavelengths in infile2 match + * those in infile1. + * It is assumed that error arrays contain errors, not variances. + * + * If infile2 is the string "EXPTIME" (without the quotes) + * operand 2 is set to the exposure time in the header of infile1. + * + * valid choices for the operation "op" are: + * +, -, *, /, avg_t, avg_s, repl_d, repl_e, boxcar, delta, + * min, max, shift, bin, deriv, addnoise + * + * avg_t = average weighted by exposure time + * avg_s = average weighted by sigma (errors) + * avg_t, avg_s valid only if infile2 is a fits file. + * repl_d = replace data in operand1 with data from operand2 + * repl_e = replace errors in operand1 with errors from operand2 + * boxcar = smooth data in operand1 with moving boxcar + * of width operand2. If operand2 is a FITS file, + * the "FLUX" column is used as the width. This + * permits application of variable smoothing. + * delta = adds delta functions to operand 1 every 100 pixels; + * height is equal to operand 2 (must be a scalar). + * Used only for creating test spectra. + * shift = shift data by the specified number of pixels. Operand2 + * must be an integer. A positive shift moves the data + * to higher pixel numbers. + * bin = bin data by the specified number of pixels. Operand2 + * must be an integer. The flux column is averaged, the + * counts column is summed. + * deriv = take derivative of input: out[i] = in[i+1] - in[i] + * operand 2 is ignored for this! + * addnoise = a uniformly distributed random number in the range + * +/-operand2 is added pixel-by-pixel to the flux + * Used only for creating test spectra. + * + * If op = "+" and the second operand is a file (not a scalar), + * or if op = "avg_t" or if op = "avg_s", the exposure + * time in the output is the sum of the exposure times + * in the input files. + * + * For op1 min op2 out: op1 is replaced by op2 if op1 < op2. + * (op2 sets a min value for the flux) + * For op1 max op2 out: op1 is replaced by op2 if op1 > op2. + * (op2 sets a max value for the flux) + * + * The same operations are performed on the counts/countserr + * columns as on the flux/fluxerr columns. In most cases this + * leads to reasonable results. However, in a few cases, such + * as addition or subtraction of a scalar, the result is likely + * to be meaningless for either the flux or counts columns. + * Exceptions: MIN, MAX, REPL_D, REPL_E, DELTA, only affect + * the flux and fluxerr columns. The counts and countserror + * columns are unaffected. + * + * Note that avg_t and avg_s also average the counts; in some + * cases the user may have really wanted the counts to be summed! + * + * NOTE: Must enclose * in quotes (ie. "*") or the shell + * will expand it into filenames in the pwd! + * + * + * History: 08/15/99 jwk started work + * 10/25/99 v1.1 jwk avg_t,_s sum exp times in output + * 11/30/99 jwk handle either 4 or 6-column files + * 01/06/00 v1.2 jwk add bin option + * 05/01/00 v1.3 jwk handle byte or short quality flags + * 09/20/00 v1.4 jwk add derivative operation + * 10/11/00 v1.5 jwk update FILENAME keyword in output file + * 12/11/00 v1.6 jwk improve numeric accuracy of error prop. + * 01/23/01 v1.7 jwk smooth quality rather than sum when + * doing BOXCAR, to avoid overflow of + * short datasize. + * 10/10/01 v1.8 jwk add handling of eff area files + * 05/30/03 v1.9 jwk change timeval from long to time_t; put + * ifdef SOLARIS/endif around ieee_retro + * spec field width for final timestamp + * (make consistent with calfuse version) + * 02/04/04 v2.0 jwk implement addnoise option + * 02/25/04 v2.1 jwk check for zero errors in avg_s code + * 03/06/04 v3.0 jwk add support for calfuse 3.0 files + * 04/05/04 v3.1 bjg Declarations for cf_wrspec7 and + * cf_wrspec_cf2 + * Include ctype.h + * Correct formats to match argument + * types in printf + * Remove unused variable long npix + * Casting to char * arg of setstate + * Remove local definitions of + * initstate() and setstate() + * Correct use of cf_wrspec7 + * 08/26/05 v3.2 wvd Change name from cf_arith3 to cf_arith. + * If no arguments, don't return error. + * Just print message and exit.\ + * 08/27/07 v3.3 bot Added L to long l.399 and 537 + * + ****************************************************************************/ + +#include +#include +#include +#include +#include +#include +#include "calfuse.h" +#include + +#define PLUS 1 +#define MINUS 2 +#define MULT 3 +#define DIV 4 +#define AVG_T 5 +#define AVG_S 6 +#define REPL_D 7 +#define REPL_E 8 +#define BOXCAR 9 +#define DELTA 10 +#define MIN 11 +#define MAX 12 +#define SHIFT 13 +#define BIN 14 +#define DERIV 15 +#define ADDNOISE 16 + +/* arbitrary value for error when no data is present */ +#define DEF_ERROR 1.e-3 + +#define MAX_RAND 0x7fffffff + +static char CF_PRGM_ID[] = "cf_arith"; +static char CF_VER_NUM[] = "3.3"; + + +void cf_wrspec7(fitsfile *outfits, long npts, float *wave, float *flux, + float *error, long *counts, float *weights, + float *bkgd,short *pothole); +void cf_wrspec_cf2(fitsfile *outfits, int npts, float *wave, + float *spec, float *errs, short *qual, + float *counts, float *cntserr, int ncol, + int areaflag); + + + + +int main(int argc, char *argv[]) +{ + char *timestr; + time_t timeval; + char infile1[80], infile2[80], outfile[80]; + char comment[FLEN_CARD]; + char expt_comment[FLEN_CARD]; + char errstr[80]; + char datatype[20]; + int areaflag; + int nbin; + int next_1, next_2; + int status=0, anynull=0, intnull=0; + int hdutype_1, hdutype_2, hdutype_o; + int hdunum_1, hdunum_2, hdunum_o; + long npix_1, npix_2, npix_o; + long naxis2_1, naxis2_2; + int fluxcol, wavecol, errorcol, qualcol, cntscol, cntserrcol; + int bkgdcol, wgtscol; + int tfields_1, tfields_2; + int opcode; + int cf_version; + long i, j, k, k1, k2; + int arg2_scalar; + int p_shift; + float arg2_val; + float swave, sflux, sferr, scnts, scerr, spix; + float sbkgd, swgts; + long lqual, slcts; + short squal; + short *qual1, *qual2, *qual_o; + float *wave1, *flux1, *flxerr1, *cnts1, *cntserr1; + float *flux2, *flxerr2, *cnts2, *cntserr2; + float *flux_o, *flxerr_o, *cnts_o, *cntserr_o; + float *wave_o; + float *wgts1, *wgts2, *wgts_o; + float *bkgd1, *bkgd2, *bkgd_o; + long *lcts1, *lcts2, *lcts_o; + char tformstr[FLEN_CARD]; + char key_str[FLEN_CARD]; + char qual_lbl[FLEN_CARD]; + float f1, f2, fn; + float tmp1, tmp2, tmp3, tmp4; + float exptime_1, exptime_2, exptime_o; + fitsfile *infits_1, *infits_2, *outfits; + int chkop(); + int check_num(); + void padstr(); + /* following items used by random number generator */ + clock_t clock(); /* system clock function */ + int ns; /* used by random # generator */ + unsigned long seed; /* random # generator seed */ + /* char *initstate(), *setstate(); */ + double rand1(); + +/* Initialize random number generator state array. */ + static unsigned long state1[32] = { 3, 0x9a319039, + 0x32d9c024, 0x9b663182, 0x5da1f342, 0x7449e56b, + 0xbeb1dbb0, 0xab5c5918, 0x946554fd, 0x8c2e680f, + 0xeb3d799f, 0xb11ee0b7, 0x2d436b86, 0xda672e2a, + 0x1588ca88, 0xe369735d, 0x904f35f7, 0xd7158fd6, + 0x6fa6f051, 0x616e6b96, 0xac94efdc, 0xde3b81e0, + 0xdf0a6fb5, 0xf103bc02, 0x48f340fb, 0x36413f93, + 0xc622c298, 0xf5a42ab8, 0x8a88d77b, 0xf5ad9d0e, + 0x8999220b, 0x27fb47b9 }; + + + /* perform an initial call to clock() - clock() returns the elapsed time + * since the first call, so in order to use it for a random # generator + * seed later we have to get it started here. Subsequent calls follow + * opening of the first file, so that should provide some run-to-run + * variations. + */ + seed = clock(); + + /* Enter a timestamp into the log. */ + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing"); + + /* Initialize error checking */ + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + + + /* check command line */ + if (argc != 5) { + printf("Usage: cf_arith infile1 op infile2 outfile\n"); + return 1; + } + + strcpy (infile1, argv[1]); + strcpy (infile2, argv[3]); + strcpy (outfile, argv[4]); + + if ((opcode = chkop (argv[2])) == 0) + { + sprintf (comment,"Undefined operation: %s\n", argv[2]); + cf_if_error (comment); + } + + /* Open input file(s) */ + + FITS_open_file(&infits_1, infile1, READONLY, &status); + + /* get number of extensions in operand1 */ + FITS_get_num_hdus (infits_1, &next_1, &status); + next_1--; + + /* get exposure time in case we need it later. */ + ffgky(infits_1, TFLOAT, "EXPTIME", &exptime_1, expt_comment, &status); + if (status) + { + fprintf (stderr, "Keyword EXPTIME not found; set exptime_1=1.0\n"); + exptime_1 = 1.0; + status = 0; + } + exptime_o = exptime_1; + + /* check nature of second operand: is it a number? */ + /* can have leading sign, and may contain E,e,D,d and additional sign */ + arg2_scalar = check_num (argv[3]); + if (arg2_scalar) + arg2_val = atof (argv[3]); + + /* Also allow the possibility of having argv[3] = "EXPTIME": */ + if (!strcmp (argv[3], "EXPTIME")) + { + arg2_scalar = TRUE; + arg2_val = exptime_1; + } + + /* check for valid operand if operation is SHIFT: */ + p_shift = 0; + if (opcode == SHIFT) + { + if (!arg2_scalar) + cf_if_error ("SHIFT requires scalar argument!\n"); + + /* convert argument to an integer */ + p_shift = (int) strtol (argv[3], (char **)NULL, 10); + } + + /* check for valid operand if operation is BIN: */ + nbin = 1; + if (opcode == BIN) + { + if (!arg2_scalar) + cf_if_error ("BIN requires scalar argument!\n"); + + /* convert argument to an integer */ + nbin = (int) strtol (argv[3], (char **)NULL, 10); + if (nbin < 1) + { + sprintf (errstr, "bin factor = %d; must be >0!\n", nbin); + cf_if_error (errstr); + } + } + + /* Check for valid operand if operation is ADDNOISE: + * I suppose we could relax this and take a pixel-by-pixel amplitude + * from a spectrum, but let's keep it simple for now. + * Also initialize random number generator. + */ + if (opcode == ADDNOISE) + { + if (!arg2_scalar) + cf_if_error ("ADDNOISE requires scalar argument!\n"); + + /* initialize random number generator */ + /* the local clock function doesn't change rapidly enough to be + * useful, even though it is nominally at microsecond resolution */ + /* seed = 2 * (clock() & 0x0ffff) + 1; */ + time (&timeval); + seed = 2 * timeval + 1; + + ns = 128; + initstate (seed, (char *) state1, ns); + setstate ((char *)state1); + } + + /* bypass operand2 if op= derivative; we ignore op2 in this case*/ + if (opcode == DERIV) + arg2_scalar = TRUE; + + if (!arg2_scalar) + { + FITS_open_file (&infits_2, infile2, READONLY, &status); + FITS_get_num_hdus (infits_2, &next_2, &status); + next_2--; + + if ((next_2 != next_1) && (next_2 != 1)) + { + fprintf (stderr, "file %s has %d extensions.\n", infile1, next_1); + fprintf (stderr, "file %s has %d extensions.\n", infile2, next_2); + cf_if_error ("Illegal combination, aborting!\n"); + } + ffgky(infits_2, TFLOAT, "EXPTIME", &exptime_2, expt_comment, &status); + if (status) + { + fprintf (stderr, "Keyword EXPTIME not found; set exptime_2=1.0\n"); + exptime_2 = 1.0; + status = 0; + } + } + + /* open output file */ + + remove(outfile); /*In case the old file name exists*/ + FITS_create_file (&outfits, outfile, &status); + + /* Copy header from first operand. The output file will have the same + * number of extensions as operand1. + */ + /* cf_cp_hdr(infits_1, 1, outfits, 1); */ + FITS_copy_header (infits_1, outfits, &status); + + /* Loop over extensions */ + for ( i = 1; i <= next_1; i++ ) + { + hdunum_1=i+1; + + FITS_movabs_hdu(infits_1, hdunum_1, &hdutype_1, &status); + /* for Calfuse 2 and before, array length is specified by NAXIS2. + * For Calfuse 3, need to get it from TFORM1. + */ + FITS_read_key(infits_1, TLONG, "NAXIS2", &naxis2_1, NULL, &status); + if (naxis2_1 > 1L) + npix_1 = naxis2_1; + else + { + FITS_read_key(infits_1, TSTRING, "TFORM1", tformstr, NULL, &status); + sscanf (tformstr, "%ldE", &npix_1); + } + + + /* need to figure out what kind of data we have. + * tfields=4 implies very old calfuse files, or effective area files; + * tfields=6 implies calfuse 1.8 or 2.x + * tfields=7 implies calfuse 3.x + * Each has different types of data columns. + */ + FITS_read_key(infits_1, TINT, "TFIELDS", &tfields_1, NULL, &status); + + if ((tfields_1 == 4) || (tfields_1 == 6)) + cf_version = 2; + else if (tfields_1 == 7) + cf_version = 3; + else + { + sprintf (errstr, "Expecting 4,6 or 7 cols, found %d\n", tfields_1); + cf_if_error (errstr); + } + + /* Allocate data arrays */ + wave1 = (float *) cf_malloc(sizeof(float) * npix_1); + flux1 = (float *) cf_malloc(sizeof(float) * npix_1); + flxerr1 = (float *) cf_malloc(sizeof(float) * npix_1); + qual1 = (short *) cf_malloc(sizeof(short) * npix_1); + + if (cf_version == 2) + { + cnts1 = (float *) cf_malloc(sizeof(float) * npix_1); + cntserr1 = (float *) cf_malloc(sizeof(float) * npix_1); + } + else + { + lcts1 = (long *) cf_malloc(sizeof(long) * npix_1); + bkgd1 = (float *) cf_malloc(sizeof(float) * npix_1); + wgts1 = (float *) cf_malloc(sizeof(float) * npix_1); + } + + /* Get the column numbers from file 1 */ + FITS_read_key(infits_1, TSTRING, "TTYPE2", datatype, NULL, &status); + if (!strcmp(datatype, "FLUX")) + { + areaflag = FALSE; + FITS_get_colnum(infits_1, TRUE, "FLUX", &fluxcol, &status); + } + else + { + areaflag = TRUE; + FITS_get_colnum(infits_1, TRUE, "AREA", &fluxcol, &status); + } + + FITS_get_colnum(infits_1, TRUE, "WAVE", &wavecol, &status); + FITS_get_colnum(infits_1, TRUE, "ERROR", &errorcol, &status); + + /* don't know at present if calfuse 3.x will use "QUALITY" or + * "POTHOLE", so check both. + */ + if (cf_version == 2) + FITS_get_colnum(infits_1, TRUE, "QUALITY", &qualcol, &status); + else + { + qualcol = 0; + for (j=1; j<=tfields_1; j++) + { + sprintf (key_str, "TTYPE%1ld", j); + FITS_read_key(infits_1, TSTRING, key_str,datatype, NULL, &status); + if (!strcmp (datatype, "QUALITY") || !strcmp(datatype,"POTHOLE")) + { + strcpy (qual_lbl, datatype); + qualcol = j; + } + } + if (qualcol == 0) + cf_if_error ("QUALITY column not found!"); + } + + if (tfields_1 == 6) + { + FITS_get_colnum(infits_1, TRUE, "COUNTS", &cntscol, &status); + FITS_get_colnum(infits_1, TRUE, "CNTSERR", &cntserrcol, &status); + } + + if (tfields_1 == 7) + { + FITS_get_colnum(infits_1, TRUE, "COUNTS", &cntscol, &status); + FITS_get_colnum(infits_1, TRUE, "WEIGHTS", &wgtscol, &status); + FITS_get_colnum(infits_1, TRUE, "BKGD", &bkgdcol, &status); + } + + FITS_read_col(infits_1, TFLOAT, fluxcol, 1L, 1L, npix_1, + &intnull, flux1, &anynull, &status); + FITS_read_col(infits_1, TFLOAT, wavecol, 1L, 1L, npix_1, + &intnull, wave1, &anynull, &status); + FITS_read_col(infits_1, TFLOAT, errorcol, 1L, 1L, npix_1, + &intnull, flxerr1, &anynull, &status); + FITS_read_col(infits_1, TSHORT, qualcol, 1L, 1L, npix_1, + &intnull, qual1, &anynull, &status); + + if (tfields_1 == 6) + { + FITS_read_col(infits_1, TFLOAT, cntscol, 1L, 1L, npix_1, + &intnull, cnts1, &anynull, &status); + FITS_read_col(infits_1, TFLOAT, cntserrcol, 1L, 1L, npix_1, + &intnull, cntserr1, &anynull, &status); + } + else if (tfields_1 == 7) + { + FITS_read_col(infits_1, TLONG, cntscol, 1L, 1L, npix_1, + &intnull, lcts1, &anynull, &status); + FITS_read_col(infits_1, TFLOAT, wgtscol, 1L, 1L, npix_1, + &intnull, wgts1, &anynull, &status); + FITS_read_col(infits_1, TFLOAT, bkgdcol, 1L, 1L, npix_1, + &intnull, bkgd1, &anynull, &status); + } + else + { + for (j=0; j 1L) + npix_2 = naxis2_2; + else + { + FITS_read_key(infits_2, TSTRING, "TFORM1", tformstr, NULL, + &status); + sscanf (tformstr, "%ldE", &npix_2); + } + + FITS_read_key(infits_2, TINT, "TFIELDS", &tfields_2, NULL, + &status); + + if (tfields_2 != tfields_1) + { + sprintf (errstr, "File1 has %d cols; File 2 has %d cols!\n", + tfields_1, tfields_2); + cf_if_error (errstr); + } + + if (npix_2 != npix_1) + { + fprintf (stderr, "npix1 = %ld, npix2 = %ld\n", npix_1, npix_2); + cf_if_error ("Aborting"); + } + + /* Allocate data arrays */ + flux2 = (float *) cf_malloc(sizeof(float) * npix_2); + flxerr2 = (float *) cf_malloc(sizeof(float) * npix_2); + qual2 = (short *) cf_malloc(sizeof(short) * npix_2); + if (cf_version == 2) + { + cnts2 = (float *) cf_malloc(sizeof(float) * npix_2); + cntserr2 = (float *) cf_malloc(sizeof(float) * npix_2); + } + else + { + lcts2 = (long *) cf_malloc(sizeof(long) * npix_2); + wgts2 = (float *) cf_malloc(sizeof(float) * npix_2); + bkgd2 = (float *) cf_malloc(sizeof(float) * npix_2); + } + + /* Read the data from file 2 */ + + if (areaflag) + FITS_get_colnum(infits_2, TRUE, "AREA", &fluxcol, &status); + else + FITS_get_colnum(infits_2, TRUE, "FLUX", &fluxcol, &status); + + FITS_get_colnum(infits_2, TRUE, "ERROR", &errorcol, &status); + + /* don't know at present if calfuse 3.x will use "QUALITY" or + * "POTHOLE", so check both. + * (there may also be a mix of files present!) + */ + if (cf_version == 2) + FITS_get_colnum(infits_2, TRUE, "QUALITY", &qualcol,&status); + else + { + qualcol = 0; + for (j=1; j<=tfields_2; j++) + { + sprintf (key_str, "TTYPE%1ld", j); + FITS_read_key(infits_2, TSTRING, key_str,datatype, NULL, + &status); + if (!strcmp (datatype, "QUALITY") || + !strcmp(datatype,"POTHOLE")) + { + strcpy (qual_lbl, datatype); + qualcol = j; + } + } + if (qualcol == 0) + cf_if_error ("QUALITY column not found!"); + } + + if (tfields_2 == 6) + { + FITS_get_colnum(infits_2, TRUE, "COUNTS", &cntscol, &status); + FITS_get_colnum(infits_2, TRUE, "CNTSERR", &cntserrcol, + &status); + } + + if (tfields_2 == 7) + { + FITS_get_colnum(infits_2,TRUE, "COUNTS", &cntscol, &status); + FITS_get_colnum(infits_2,TRUE, "WEIGHTS", &wgtscol, &status); + FITS_get_colnum(infits_2,TRUE, "BKGD", &bkgdcol, &status); + } + + FITS_read_col(infits_2, TFLOAT, fluxcol, 1L, 1L, npix_2, + &intnull, flux2, &anynull, &status); + FITS_read_col(infits_2, TFLOAT, errorcol, 1L, 1L, npix_2, + &intnull, flxerr2, &anynull, &status); + FITS_read_col(infits_2, TSHORT, qualcol, 1L, 1L, npix_2, + &intnull, qual2, &anynull, &status); + + if (tfields_2 == 6) + { + FITS_read_col(infits_2, TFLOAT, cntscol, 1L, 1L, npix_2, + &intnull, cnts2, &anynull, &status); + FITS_read_col(infits_2, TFLOAT, cntserrcol, 1L, 1L, npix_2, + &intnull, cntserr2, &anynull, &status); + } + else if (tfields_1 == 7) + { + FITS_read_col(infits_2, TLONG, cntscol, 1L, 1L, npix_2, + &intnull, lcts2, &anynull, &status); + FITS_read_col(infits_2, TFLOAT, wgtscol, 1L, 1L, npix_2, + &intnull, wgts2, &anynull, &status); + FITS_read_col(infits_2, TFLOAT, bkgdcol, 1L, 1L, npix_2, + &intnull, bkgd2, &anynull, &status); + } + else + { + for (j=0; j 1)) + { + if (nbin > npix_1) + { + sprintf (errstr, "bin factor = %d; must be < npix!\n", nbin); + cf_if_error (errstr); + } + npix_o = npix_1 / nbin; + } + else + npix_o = npix_1; + + /* make space for output arrays */ + flux_o = (float *) cf_malloc(sizeof(float) * npix_o); + flxerr_o = (float *) cf_malloc(sizeof(float) * npix_o); + qual_o = (short *) cf_malloc(sizeof(short) * npix_o); + + if (cf_version == 2) + { + cnts_o = (float *) cf_malloc(sizeof(float) * npix_o); + cntserr_o = (float *) cf_malloc(sizeof(float) * npix_o); + } + else + { + lcts_o = (long *) cf_malloc(sizeof(long) * npix_o); + wgts_o = (float *) cf_malloc(sizeof(float) * npix_o); + bkgd_o = (float *) cf_malloc(sizeof(float) * npix_o); + } + + if (opcode == BIN) + wave_o = (float *) cf_malloc(sizeof(float) * npix_o); + else + wave_o = wave1; + + /********* perform arithmetic operations here *********/ + switch (opcode) + { + case PLUS: + if (arg2_scalar) + { + if (cf_version == 2) + { + for (j=0; j 0.) && (flxerr2[j] > 0.)) + { + f1 = 1. / (flxerr1[j] * flxerr1[j]); + f2 = 1. / (flxerr2[j] * flxerr2[j]); + } + else + f1 = f2 = 1.; + fn = f1 + f2; + flux_o[j] = (f1 * flux1[j] + f2 * flux2[j]) / fn; + flxerr_o[j] = sqrt (1./fn); + if ((cntserr1[j] > 0.) && (cntserr2[j] > 0.)) + { + f1 = 1. / (cntserr1[j] * cntserr1[j]); + f2 = 1. / (cntserr2[j] * cntserr2[j]); + } + else + f1 = f2 = 1.; + fn = f1 + f2; + cnts_o[j] = (f1 * cnts1[j] + f2 * cnts2[j]) / fn; + cntserr_o[j] = sqrt (1./fn); + if ((qual1[j] == 0) || (qual2[j] == 0)) + qual_o[j] = 0; + else + qual_o[j] = qual1[j]; + } + } /* end if cf_version == 2 */ + else + { + for (j=0; j 0.) && (flxerr2[j] > 0.)) + { + f1 = 1. / (flxerr1[j] * flxerr1[j]); + f2 = 1. / (flxerr2[j] * flxerr2[j]); + } + else + f1 = f2 = 1.; + fn = f1 + f2; + flux_o[j] = (f1 * flux1[j] + f2 * flux2[j]) / fn; + flxerr_o[j] = sqrt (1./fn); + lcts_o[j] = (f1 * lcts1[j] + f2 * lcts2[j]) / fn; + wgts_o[j] = (f1 * wgts1[j] + f2 * wgts2[j]) / fn; + bkgd_o[j] = (f1 * bkgd1[j] + f2 * bkgd2[j]) / fn; + if ((qual1[j] == 0) || (qual2[j] == 0)) + qual_o[j] = 0; + else + qual_o[j] = (f1*qual1[j] + f2*qual2[j]) / fn; + } + } + } + break; + + case REPL_D: + if (arg2_scalar) + { + if (cf_version == 2) + { + for (j=0; j npix_1-1) + k2 = npix_1-1; + sflux = 0.; + sferr = 0.; + scnts = 0.; + scerr = 0.; + lqual = 0; + for (k=k1; k<=k2; k++) + { + sflux += flux1[k]; + sferr += flxerr1[k] * flxerr1[k]; + scnts += cnts1[k]; + scerr += cntserr1[k] * cntserr1[k]; + lqual += (long) qual1[k]; + } + spix = (float)(k2 - k1 + 1); + flux_o[j] = sflux / spix; + flxerr_o[j] = sqrt (sferr) / spix; + cnts_o[j] = scnts / spix; + cntserr_o[j] = sqrt (scerr) / spix; + qual_o[j] = (short) (lqual / spix); + } /* end of for j... */ + } /* end if cf_version == 2 */ + else + { /* start cf_version == 3 for scalar smoothing > 1 */ + for (j=0; j npix_1-1) + k2 = npix_1-1; + sflux = 0.; + sferr = 0.; + slcts = 0; + sbkgd = 0.; + swgts = 0.; + lqual = 0; + for (k=k1; k<=k2; k++) + { + sflux += flux1[k]; + sferr += flxerr1[k] * flxerr1[k]; + slcts += lcts1[k]; + swgts += wgts1[k]; + sbkgd += bkgd1[k]; + lqual += (long) qual1[k]; + } + spix = (float)(k2 - k1 + 1); + flux_o[j] = sflux / spix; + flxerr_o[j] = sqrt (sferr) / spix; + lcts_o[j] = slcts / spix; + bkgd_o[j] = sbkgd / spix; + wgts_o[j] = swgts / spix; + qual_o[j] = (short) (lqual / spix); + } /* end of for j... */ + } /* end cf_version == 3 */ + } /* end of arg2_scalar > 1 */ + } /* end of if (arg2_scalar) */ + else + { + /* allow the smoothing width to vary pixel-by-pixel */ + if (cf_version == 2) + { + for (j=0; j npix_1-1) + k2 = npix_1-1; + sflux = 0.; + sferr = 0.; + scnts = 0.; + scerr = 0.; + lqual = 0; + for (k=k1; k<=k2; k++) + { + sflux += flux1[k]; + sferr += flxerr1[k] * flxerr1[k]; + scnts += cnts1[k]; + scerr += cntserr1[k] * cntserr1[k]; + lqual += (long) qual1[k]; + } + spix = (float)(k2 - k1 + 1); + flux_o[j] = sflux / spix; + flxerr_o[j] = sqrt (sferr) / spix; + cnts_o[j] = scnts / spix; + cntserr_o[j] = sqrt (scerr) / spix; + qual_o[j] = (short) (lqual / spix); + } /* end of arg2_val > 1 */ + } /* end of for j... */ + } /* end if cf_version == 2 */ + else + { /* cf_version == 3 */ + for (j=0; j npix_1-1) + k2 = npix_1-1; + sflux = 0.; + sferr = 0.; + slcts = 0; + sbkgd = 0.; + swgts = 0.; + lqual = 0; + for (k=k1; k<=k2; k++) + { + sflux += flux1[k]; + sferr += flxerr1[k] * flxerr1[k]; + slcts += lcts1[k]; + swgts += wgts1[k]; + sbkgd += bkgd1[k]; + lqual += (long) qual1[k]; + } + spix = (float)(k2 - k1 + 1); + flux_o[j] = sflux / spix; + flxerr_o[j] = sqrt (sferr) / spix; + lcts_o[j] = slcts / spix; + wgts_o[j] = swgts / spix; + bkgd_o[j] = sbkgd / spix; + qual_o[j] = (short) (lqual / spix); + } /* end of arg2_val > 1 */ + } /* end of for j... */ + } /* end if cf_version == 3 */ + } /* end of if (!arg2_scalar) */ + break; /* end of case BOXCAR */ + + case MIN: + if (arg2_scalar) + { + if (cf_version == 2) + { + for (j=0; j arg2_val) + flux_o[j] = arg2_val; + else + flux_o[j] = flux1[j]; + flxerr_o[j] = flxerr1[j]; + cnts_o[j] = cnts1[j]; + cntserr_o[j] = cntserr1[j]; + qual_o[j] = qual1[j]; + } + } + else + { + for (j=0; j arg2_val) + flux_o[j] = arg2_val; + else + flux_o[j] = flux1[j]; + flxerr_o[j] = flxerr1[j]; + lcts_o[j] = lcts1[j]; + wgts_o[j] = wgts1[j]; + bkgd_o[j] = bkgd1[j]; + qual_o[j] = qual1[j]; + } + } + } + else + { + for (j=0; j flux2[j]) + { + flux_o[j] = flux2[j]; + flxerr_o[j] = flxerr2[j]; + } + else + { + flux_o[j] = flux1[j]; + flxerr_o[j] = flxerr1[j]; + } + if ((qual1[j] == 0) || (qual2[j] == 0)) + qual_o[j] = 0; + else + qual_o[j] = qual1[j]; + } + if (cf_version == 2) + { + for (j=0; j 0) + { + for (j=0; j 0) + { + for (j=0; j npix_1) + k2 = npix_1; + swave = 0.; + sflux = 0.; + sferr = 0.; + scnts = 0.; + scerr = 0.; + squal = 0; + spix = 0; + for (k=k1; k 0) + { + sflux += flux1[k]; + sferr += flxerr1[k] * flxerr1[k]; + scnts += cnts1[k]; + scerr += cntserr1[k] * cntserr1[k]; + squal += qual1[k]; + spix++; + } + } + if (spix == 0) + spix = 1; + wave_o[j] = swave / (float)(k2 - k1); + flux_o[j] = sflux / spix; + flxerr_o[j] = sqrt (sferr) / spix; + cnts_o[j] = scnts; + cntserr_o[j] = sqrt (scerr); + qual_o[j] = squal; + } /* end of for j... */ + } /* end cf_version == 2 */ + else + { + for (j=0; j npix_1) + k2 = npix_1; + swave = 0.; + sflux = 0.; + sferr = 0.; + slcts = 0; + swgts = 0.; + sbkgd = 0.; + squal = 0; + spix = 0; + for (k=k1; k 0) + { + sflux += flux1[k]; + sferr += flxerr1[k] * flxerr1[k]; + slcts += lcts1[k]; + swgts += wgts1[k]; + sbkgd += bkgd1[k]; + squal += qual1[k]; + spix++; + } + } + if (spix == 0) + spix = 1; + wave_o[j] = swave / (float)(k2 - k1); + flux_o[j] = sflux / spix; + flxerr_o[j] = sqrt (sferr) / spix; + lcts_o[j] = slcts; + qual_o[j] = squal / spix; + wgts_o[j] = swgts / spix; + bkgd_o[j] = sbkgd; + } /* end of for j... */ + } /* end cf_version == 3 */ + } /* end of nbin > 1 */ + break; + + case DERIV: + if (cf_version == 2) + { + for (j=0; j 1 */ +double rand1 () +{ + long random(); + double r; + + r = 2. * (double) random() / (double)MAX_RAND - 1.; + return (r); +} + diff --git a/src/analysis/cf_coadd.c b/src/analysis/cf_coadd.c new file mode 100644 index 0000000..eaa5fe2 --- /dev/null +++ b/src/analysis/cf_coadd.c @@ -0,0 +1,192 @@ +/****************************************************************************** + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ****************************************************************************** + * + * Synopsis: cf_coadd root_name + * + * This program calls the routines that produce the exposure-level + * all files and the observation-level all, ano, and nvo files. + * + * 03/29/04 v0.1 bjg Begin work. + * 04/05/04 v0.2 bjg Remove unused variables + * Include unistd.h + * 06/07/04 v0.3 bjg Updated some keywords + * 08/12/04 v0.4 bjg Keywords QIK_COR and COMB_COR + * now set to COMPLETE. + * 08/26/04 v0.5 bjg Handle case aperture=RFPT + * 03/17/05 v0.6 tc Rename EXPTIME to OBSTIME in all extensions + * 08/22/05 v1.0 wvd Completely re-write for CalFUSE v3.1.7. + * Calls cf_make_all_exp for each exposure and + * cf_make_all_obs.csh only once. + * 08/27/07 v1.1 bot Changed i from int to long to match n + * Added L to corresponding values + * + *****************************************************************************/ + + + +#include +#include +#include +#include +#include "calfuse.h" + +static char CF_PRGM_ID[] = "cf_coadd"; +static char CF_VER_NUM[] = "1.1"; + + +/*********************************************************************/ + +int main(int argc, char *argv[]) +{ + + char asnf_file[120], filename[120], instmode[100], aper_string[100], aper_num[100]; + fitsfile *asnf_fits_ptr, *infits; + long n; + int status = 0; + long i; + int anynull; + FILE * ffile; + + + char command0[256]; + + + char memname[120], *memname_ptr; + char memtype[120], *memtype_ptr; + char ** memname_ptr2; + char ** memtype_ptr2; + + char NULL_STR[] = {'\0'}; + + char file_present; + char expo_num_string[10]; + int expo_num; + + char know=0; + + /* Enter a timestamp into the log. */ + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing"); + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + + + memname_ptr=memname; + memtype_ptr=memtype; + + memname_ptr2=&memname_ptr; + memtype_ptr2=&memtype_ptr; + + + /* Input Parameters */ + if (argc != 2) + cf_if_error("Usage: cf_coadd rootname"); + + /*Open association file*/ + + strcpy(asnf_file, argv[1]); + strcat(asnf_file, "asnf.fit"); + FITS_open_file(&asnf_fits_ptr, asnf_file, READONLY, &status); + FITS_movabs_hdu(asnf_fits_ptr, 2, NULL, &status); + + + FITS_read_key(asnf_fits_ptr, TLONG, "NAXIS2", &n, NULL, &status); + + + for (i=0L;i + * 10/11/00 v1.4 jwk update FILENAME keyword in output file + * 10/27/00 v1.5 peb #ifdef ieee_retrospective + * 04/18/01 v1.6 wvd Change declaration of timeval from + * long to time_t + * 10/29/02 v1.7 wvd Correct error in history line. + * 05/19/03 v1.8 wvd Two updates from jwk: + * Close each input file in initial loop; + * without this cfitsio crashes upon + * opening the 60th file. + * Weight each pixel by exposure time + * after excluding 'bad' pixels. + * 12/15/03 v1.9 bjg Changed to work on CalFUSE 3 spectrum + * data format + * 01/12/04 v1.10 bjg npix_1 is now correct + * copy header of 1st file instead of 2nd + * Updated the name of some FITS cols that + * were still using 2.4 format + * 03/09/04 v1.11 wvd Change POTHOLE to QUALITY throughout. + * 04/05/04 - bjg Declarations for cf_wrspec7 and + * cf_wrspec_cf2 + * Remove unused variables + * 06/07/04 v1.12 bjg Update some keywords (plantime, + * rawtime, exp_saa, nbadevnt ...) + * 04/07/05 v1.13 tc Read 1D|2D spectrum format. Clean unused + * variables. Allows one to shift a 2D + * spectrum (2nd column in the filelist). + * Use calloc rather than malloc. The + * quality value is now the nearest short. + * Update ROOTNAME keyword. Change EXP to + * OBS if "-k" (optional). Proper use of + * fclose() and rewind() + * 04/16/05 v1.14 tc Use cf_read_col() + * 05/02/05 v1.15 wvd Write NSPEC, SPEC###, WOFF### to + * output file header (primary HDU). + * 06/03/05 v1.16 wvd Delete unused variables. + * 07/06/05 v1.17 wvd Use fgets to read input file. + * Change pix_shift to type int. + * 07/21/05 v1.18 wvd Adopt the sign convention for spectral + * shifts used by FUSE_REGISTER. + * 08/26/05 v1.19 wvd Without arguments, don't return an + * error. Just print help and exit. + * 08/29/05 v1.20 wvd If input list contains only file + * names, assume shifts are zero. + * 01/31/06 v1.21 wvd Revise creation date of output file. + * 05/19/06 v1.22 wvd Use same options as idf_combine. + * Ignore spectra with EXP_STAT != 0. + * Override with -a option. + * 05/22/06 v1.23 wvd Rewrite program using a single while + * loop. + * 05/23/06 v1.24 wvd Properly normalize quality array. + * 05/26/06 v1.25 wvd Include unistd.h + * 07/12/06 v1.26 wvd Clean up i/o. + * 08/14/06 v1.27 wvd Count SPEC### and WAVE### using ngood, + * not nfiles. + * 05/04/07 v1.28 wvd If the input file list contains a + * blank line, skip to the next line. + * 08/27/07 v1.29 bot Changed TINT to TLONG l.412 + * Added L to long l.125 to 136, 351, 378 + * 04/04/08 v1.30 wvd If -a flag is set, include files with + * positive values of EXP_STAT, but not + * those with negative values. + * 07/25/08 v1.31 wvd Set output EXP_STAT keyword to lowest + * non-negative value among input files. + * + ****************************************************************************/ + +#include +#include +#include +#include +#include +#include +#include "calfuse.h" + +void cf_wrspec7(fitsfile *outfits, long npts, float *wave, float *flux, + float *error, long *counts, float *weights, + float *bkgd,short *quality); +void cf_wrspec_cf2(fitsfile *outfits, int npts, float *wave, + float *spec, float *errs, short *qual, + float *counts, float *cntserr, int ncol, + int areaflag); + +static char CF_PRGM_ID[] = "cf_combine"; +static char CF_VER_NUM[] = "1.31"; + +int main(int argc, char *argv[]) +{ + char *timestr; + time_t timeval; + char flist[80], infile[80], line[FLEN_CARD], outfile[80], string0[100]; + char comment[FLEN_CARD]; + char errstr[80]; + int nargs, nfiles, ngood; + int status=0; + int hdutype_1, hdutype_o; + int hdunum_1, hdunum_o; + long npix_1; + int tfields_1, delta = 0; + long j; + short *quality1; + float *wave1, *flux1, *error1, *weights1, *bkgd1; + + double *flux_o, *error_o, *quality_o; + float *weights_o, *bkgd_o; + long *counts_o, *counts1; + float *exptime_p; + float f1, shift, wpc; + + float exptime_1, exptime_o = 0.; + float rawtime_1, rawtime_o = 0.; + long plantime_1, plantime_o = 0L; + long nbadevnt_1, nbadevnt_o = 0L; + long nbadpha_1 , nbadpha_o = 0L; + long exp_bad_1 , exp_bad_o = 0L; + long exp_brst_1, exp_brst_o = 0L; + long exp_hv_1, exp_hv_o = 0L; + long exp_jitr_1, exp_jitr_o = 0L; + long exp_lim_1 , exp_lim_o = 0L; + long exp_saa_1 , exp_saa_o = 0L; + long expnight_1, expnight_o = 0L; + + long nevents_1, nevents_o = 0L; + long exp_stat, exp_stat_out=999; + + double mjd_start, mjd_end; + double mjd_start_o = 99999., mjd_end_o = 0.; + fitsfile *infits_1, *outfits; + FILE *ifp; + char keyword[FLEN_KEYWORD], root_name[32]; + int k_flag = 0; + + float *temp_float; + short *temp_short; + long *temp_long; + + /* Function prototypes*/ + void getnshift_float(float*, float*, long, int); + void getnshift_short(short*, short*, long, int); + void getnshift_long(long*, long*, long, int); + + int optc; + int ignore_exp_stat=TRUE; + + char opts[] = "ahkv:"; + char usage[] = + "Usage:\n" + " cf_combine [-ahk] [-v level] file_list output_idf_file\n"; + char option[] = + "Options:\n" + " -h: this help message\n" + " -v: verbosity level (=1; 0 is silent)\n" + " -a: ignore EXP_STAT keyword\n" + " -k: Change EXP keywords to OBS\n"; + + verbose_level = 1; + + /* Check number of options and arguments */ + while ((optc = getopt(argc, argv, opts)) != -1) { + switch(optc) { + + case 'h': + printf("%s\n%s", usage, option); + return 0; + case 'a': + ignore_exp_stat=FALSE; + break; + case 'v': + verbose_level = atoi(optarg); + break; + case 'k': + k_flag=1; + break; + } + } + + /* Enter a timestamp into the log. */ + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing"); + + /* Initialize error checking */ + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + + if (argc < optind+2) { + printf("%s", usage); + return 1; + } + + strcpy (flist, argv[optind]); + strcpy (outfile, argv[optind+1]); + + if ((ifp = fopen (flist, "r")) == NULL) + { + sprintf (errstr, "Unable to open file %s\n", flist); + cf_if_error (errstr); + } + + if (ignore_exp_stat) + cf_verbose(1,"Will include only files with EXP_STAT=0") ; + else + cf_verbose(1,"Will include only files with EXP_STAT >= 0") ; + + nfiles = ngood = 0; + + /* BIG LOOP THROUGH INPUT FILES */ + while (fgets(line, FLEN_CARD, ifp) != NULL) { + nargs = sscanf(line, "%s %d", infile, &delta); + if (nargs == EOF) continue; + if (nargs == 1) delta = 0; + nfiles++; + cf_verbose (3, "Input file loop: nfiles = %d, file = %s", nfiles, infile); + + /* Open input file */ + FITS_open_file(&infits_1, infile, READONLY, &status); + FITS_read_key(infits_1, TLONG, "EXP_STAT", &exp_stat, NULL, &status); + FITS_read_key(infits_1, TDOUBLE, "EXPSTART", &mjd_start, NULL, &status); + FITS_read_key(infits_1, TDOUBLE, "EXPEND" , &mjd_end , NULL, &status); + FITS_read_key(infits_1, TFLOAT, "EXPTIME" , &exptime_1 , NULL, &status); + FITS_read_key(infits_1, TLONG, "NEVENTS", &nevents_1, NULL, &status); + FITS_read_key(infits_1, TFLOAT, "RAWTIME" , &rawtime_1 , NULL, &status); + FITS_read_key(infits_1, TLONG, "PLANTIME", &plantime_1, NULL, &status); + nevents_o += nevents_1; + rawtime_o += rawtime_1; + plantime_o += plantime_1; + + if (mjd_start < mjd_start_o) mjd_start_o = mjd_start; + if (mjd_end > mjd_end_o) mjd_end_o = mjd_end; + + /* Create output file, copy the header from the input file */ + if (nfiles==1) + { + /* open output file */ + remove(outfile); /* In case the old file name exists */ + FITS_create_file (&outfits, outfile, &status); + FITS_copy_header(infits_1, outfits, &status); + FITS_write_date(outfits, &status); + + FITS_read_key(infits_1, TFLOAT, "WPC" , &wpc , NULL, &status); + + /* Now go to the second HDU and figure out how long the arrays are. */ + hdunum_1 = 2; + FITS_movabs_hdu(infits_1, hdunum_1, &hdutype_1, &status); + FITS_read_key(infits_1, TINT, "TFIELDS", &tfields_1, NULL, &status); + + if (tfields_1 != 7) + { + sprintf (errstr, "Expecting 7 cols, found %d\n", tfields_1); + cf_if_error (errstr); + } + + npix_1 = cf_read_col(infits_1, TFLOAT, "WAVE", (void **) &wave1); + + /* Allocate data arrays (calloc initializes to 0 by default). */ + exptime_p = (float *) cf_calloc(npix_1, sizeof(float)); + + flux1 = (float *) cf_calloc(npix_1, sizeof(float)); + error1 = (float *) cf_calloc(npix_1, sizeof(float)); + counts1 = (long *) cf_calloc(npix_1, sizeof(long)); + weights1 = (float *) cf_calloc(npix_1, sizeof(float)); + bkgd1 = (float *) cf_calloc(npix_1, sizeof(float)); + quality1 = (short *) cf_calloc(npix_1, sizeof(short)); + + flux_o = (double *) cf_calloc(npix_1, sizeof(double)); + error_o = (double *) cf_calloc(npix_1, sizeof(double)); + counts_o = (long *) cf_calloc(npix_1, sizeof(long)); + weights_o = (float *) cf_calloc(npix_1, sizeof(float)); + bkgd_o = (float *) cf_calloc(npix_1, sizeof(float)); + quality_o = (double *) cf_calloc(npix_1, sizeof(double)); + + hdunum_1 = 1; + FITS_movabs_hdu(infits_1, hdunum_1, &hdutype_1, &status); + + } /* end of if(nfiles==1) */ + + /* Set EXP_STAT to lowest non-negative value in input files. */ + if (exp_stat_out > exp_stat && exp_stat >= 0) exp_stat_out = exp_stat; + + /* Skip files with EXP_TIME = 0 or EXP_STAT != 0. */ + if (ignore_exp_stat && exp_stat != 0) { + cf_if_warning("File %s rejected. EXP_STAT not equal to zero. Use -a flag to override.", + infile) ; + FITS_close_file(infits_1,&status); + continue; + } + + /* Never include files with negative values of EXP_STAT. */ + else if (exp_stat < 0) { + cf_if_warning("File %s rejected. EXP_STAT less than zero.", infile) ; + FITS_close_file(infits_1,&status); + continue; + } + + if (exptime_1 < 1.) { + cf_verbose (3, "Rejecting file %s: EXPTIME = %f", infile, exptime_1); + FITS_close_file(infits_1,&status); + continue; + } + ngood++; + + FITS_read_key(infits_1, TLONG, "NBADEVNT", &nbadevnt_1, NULL, &status); + FITS_read_key(infits_1, TLONG, "NBADPHA" , &nbadpha_1 , NULL, &status); + FITS_read_key(infits_1, TLONG, "EXP_BAD" , &exp_bad_1 , NULL, &status); + FITS_read_key(infits_1, TLONG, "EXP_BRST", &exp_brst_1, NULL, &status); + FITS_read_key(infits_1, TLONG, "EXP_HV", &exp_hv_1, NULL, &status); + FITS_read_key(infits_1, TLONG, "EXP_JITR", &exp_jitr_1, NULL, &status); + FITS_read_key(infits_1, TLONG, "EXP_LIM" , &exp_lim_1 , NULL, &status); + FITS_read_key(infits_1, TLONG, "EXP_SAA" , &exp_saa_1 , NULL, &status); + FITS_read_key(infits_1, TLONG, "EXPNIGHT", &expnight_1, NULL, &status); + + exptime_o += exptime_1; + nbadevnt_o += nbadevnt_1; + nbadpha_o += nbadpha_1; + exp_bad_o += exp_bad_1; + exp_saa_o += exp_saa_1; + exp_lim_o += exp_lim_1; + exp_brst_o += exp_brst_1; + exp_hv_o += exp_hv_1; + exp_jitr_o += exp_jitr_1; + expnight_o += expnight_1; + + /* Read the data from input file (HDU 2) */ + hdunum_1 = 2; + FITS_movabs_hdu(infits_1, hdunum_1, &hdutype_1, &status); + + (void) cf_read_col(infits_1, TFLOAT, "FLUX", (void **) &temp_float); + getnshift_float(flux1, temp_float, npix_1, delta); + free(temp_float); + + (void) cf_read_col(infits_1, TFLOAT, "ERROR", (void **) &temp_float); + getnshift_float(error1, temp_float, npix_1, delta); + free(temp_float); + + (void) cf_read_col(infits_1, TSHORT, "QUALITY", (void **) &temp_short); + getnshift_short(quality1, temp_short, npix_1, delta); + free(temp_short); + + (void) cf_read_col(infits_1, TLONG, "COUNTS", (void **) &temp_long); + getnshift_long(counts1, temp_long, npix_1, delta); + free(temp_long); + + (void) cf_read_col(infits_1, TFLOAT, "WEIGHTS", (void **) &temp_float); + getnshift_float(weights1, temp_float, npix_1, delta); + free(temp_float); + + (void) cf_read_col(infits_1, TFLOAT, "BKGD", (void **) &temp_float); + getnshift_float(bkgd1, temp_float, npix_1, delta); + free(temp_float); + + /* Average fluxes, weighting by exposure time; add counts. */ + /* Include only pixels with non-zero quality flags. */ + for (j=0L; j 0) { + f1 = exptime_1; + exptime_p[j] += f1; + flux_o[j] += f1 * flux1[j]; + error_o[j] += f1 * f1 * (double) error1[j]*error1[j]; + counts_o[j] += counts1[j]; + weights_o[j] += weights1[j]; + bkgd_o[j] += bkgd1[j]; + quality_o[j] += f1 * (double) quality1[j]; + } + } + + FITS_close_file(infits_1, &status); + + /* Write input file name and spectral shift to output file header. */ + sprintf(keyword, "SPEC%03d", ngood); + FITS_update_key(outfits, TSTRING, keyword, infile, NULL, &status); + sprintf(keyword, "WOFF%03d", ngood); + shift = delta * wpc; + FITS_update_key(outfits, TFLOAT, keyword, &shift, "[A]", &status); + + + } /* end of loop over input files */ + + /* Convert variances back to sigma. Normalize flux, error, and quality by EXPTIME. + Convert from doubles to floats. */ + for (j=0L; j 0.) { + flux1[j] = flux_o[j] / exptime_p[j]; + error1[j] = sqrt(error_o[j]) / exptime_p[j]; + quality1[j] = cf_nint(quality_o[j] / exptime_p[j]); + } + else { + flux1[j] = error1[j] = 0.; + quality1[j] = 0; + } + + /* Write the output file (in multi-row format). */ + cf_wrspec7 (outfits, npix_1, wave1, flux1, error1, counts_o, weights_o, bkgd_o, quality1); + + free(exptime_p); + free(wave1); + free(flux1); + free(error1); + free(bkgd1); + free(counts1); + free(weights1); + free(quality1); + free(flux_o); + free(error_o); + free(quality_o); + free(bkgd_o); + free(counts_o); + free(weights_o); + + hdunum_o = 1; + FITS_movabs_hdu (outfits, hdunum_o, &hdutype_o, &status); + + /* update output header keywords*/ + + FITS_update_key(outfits, TLONG, "EXP_STAT", &exp_stat_out, NULL, &status); + FITS_update_key(outfits, TDOUBLE, "EXPSTART", &mjd_start_o, NULL, &status); + FITS_update_key(outfits, TDOUBLE, "EXPEND", &mjd_end_o , NULL, &status); + FITS_update_key(outfits, TFLOAT, "EXPTIME", &exptime_o , NULL, &status); + FITS_update_key(outfits, TLONG, "NEVENTS", &nevents_o, NULL, &status); + FITS_update_key(outfits, TFLOAT, "RAWTIME", &rawtime_o , NULL, &status); + FITS_update_key(outfits, TLONG, "PLANTIME", &plantime_o, NULL, &status); + FITS_update_key(outfits, TLONG, "NBADEVNT", &nbadevnt_o, NULL, &status); + FITS_update_key(outfits, TLONG, "NBADPHA" , &nbadpha_o , NULL, &status); + FITS_update_key(outfits, TLONG, "EXP_BAD" , &exp_bad_o , NULL, &status); + FITS_update_key(outfits, TLONG, "EXP_BRST", &exp_brst_o, NULL, &status); + FITS_update_key(outfits, TLONG, "EXP_HV", &exp_hv_o, NULL, &status); + FITS_update_key(outfits, TLONG, "EXP_JITR", &exp_jitr_o, NULL, &status); + FITS_update_key(outfits, TLONG, "EXP_LIM" , &exp_lim_o , NULL, &status); + FITS_update_key(outfits, TLONG, "EXP_SAA" , &exp_saa_o , NULL, &status); + FITS_update_key(outfits, TLONG, "EXPNIGHT", &expnight_o, NULL, &status); + + /* update FILENAME keyword in output file */ + FITS_update_key(outfits, TSTRING, "FILENAME", outfile, NULL, &status); + + strcpy(string0, "COMBINED SPECTRA"); + FITS_update_key(outfits, TSTRING, "FILETYPE", string0, NULL, &status); + + sprintf(string0, "000"); + FITS_update_key(outfits, TSTRING, "EXP_ID", string0, NULL, &status); + + FITS_read_key(outfits, TSTRING, "ROOTNAME", root_name, NULL, &status); + sprintf(string0, "%.8s000", root_name); + FITS_update_key(outfits, TSTRING, "ROOTNAME", string0, NULL, &status); + + FITS_update_key(outfits, TINT, "NSPEC", &ngood, + "Number of combined spectral files", &status); + + if (k_flag) + { + cf_if_fits_error(fits_modify_name(outfits, "EXP_STAT", "OBS_STAT", &status)); + cf_if_fits_error(fits_modify_name(outfits, "EXPSTART", "OBSSTART", &status)); + cf_if_fits_error(fits_modify_name(outfits, "EXPEND", "OBSEND", &status)); + cf_if_fits_error(fits_modify_name(outfits, "EXPTIME", "OBSTIME", &status)); + cf_if_fits_error(fits_modify_name(outfits, "EXPNIGHT", "OBSNIGHT", &status)); + } + else { + /* Add HISTORY lines to output file */ + if (ignore_exp_stat) { + sprintf (comment, "cf_combine: Including only files with EXP_STAT=0"); + FITS_write_history (outfits, comment, &status); + } + + else { + sprintf (comment, "cf_combine: Including only files with EXP_STAT >= 0"); + FITS_write_history (outfits, comment, &status); + } + + sprintf (comment, "cf_combine: File list = %s", flist); + FITS_write_history (outfits, comment, &status); + + time (&timeval); + timestr = ctime (&timeval); + sprintf (comment, "cf_combine: Completed on %.24s", timestr); + FITS_write_history (outfits, comment, &status); + } + + /* Close the files. */ + fclose(ifp); + FITS_close_file(outfits, &status); + + /* Enter a timestamp into the log. */ + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing"); +#ifdef SOLARIS + ieee_retrospective(stdout); +#endif + return 0; +} + + +void getnshift_float (float *out_vect, float *in_vect, long n, int delta) +{ + long k, ind; + + for (k = 0; k < n; k++) + { + ind = k - delta; + if((ind >= 0) && (ind < n)) + out_vect[k] = in_vect[ind]; + else + out_vect[k] = 0; + } +} + +void getnshift_short (short *out_vect, short *in_vect, long n, int delta) +{ + long k, ind; + + for (k = 0; k < n; k++) + { + ind = k - delta; + if((ind >= 0) && (ind < n)) + out_vect[k] = in_vect[ind]; + else + out_vect[k] = 0; + } +} + +void getnshift_long (long *out_vect, long *in_vect, long n, int delta) +{ + long k, ind; + + for (k = 0; k < n; k++) + { + ind = k - delta; + if((ind >= 0) && (ind < n)) + out_vect[k] = in_vect[ind]; + else + out_vect[k] = 0; + } +} diff --git a/src/analysis/cf_make_900_obs.csh b/src/analysis/cf_make_900_obs.csh new file mode 100755 index 0000000..9edbc70 --- /dev/null +++ b/src/analysis/cf_make_900_obs.csh @@ -0,0 +1,193 @@ +#!/usr/local/bin/tcsh -f + +#****************************************************************************** +#* Johns Hopkins University +#* Center For Astrophysical Sciences +#* FUSE +#****************************************************************************** +#* +#* Synopsis: cf_make_900_obs.csh association_file +#* +#* Description: This routine is derived from cf_make_all_obs.csh, but modified +#* to consider only 900+ (airglow) files. Output is a single +#* quick-look image of the airglow spactrum. +#* +#* Extracted spectra are combined, not IDF files. +#* +#* When an expected data set is missing, the script stops, cleans +#* the directory, and returns 1. +#* +#* History: 08/08/08 1.00 wvd Create separate quick-look image +#* for 900+ (airglow) exposures. +#* Always combine extracted spectra. If +#* cf_xcorr fails, combine with no shift. +#* 08/08/08 1.01 wvd Rename airglow quick-look file to +#* M112580100000airgttagf.gif +#* +#*****************************************************************************/ + +# Delete files after processing? (Default is no.) +#set DELETE_IDF # Delete intermediate data files +set DELETE_BPM # Delete bad-pixel map files + +# Set program path +set rm = "/bin/rm -f" + +set cf_xcorr = cf_xcorr +set cf_combine = cf_combine +set cf_pack = cf_pack +set cf_nvo = cf_nvo +set idl_obsplot = idl_obsplot.pl +set modhead = modhead + +# Init var list +set detector = (1a 2b) +set channel = (lif sic) +set resolution = (2 3 4) +set obsmod = (hist ttag) + +# Determine the root name and the program ID +set asnf = $1 +set rn = ${asnf:s/000asnf.fit//} +set pid = `echo $rn | awk '{print substr($1, 1, 4)}'` + +# Determine the object class +set tmp_file = `ls ${rn}*fcal.fit | awk '{if (NR == 1) print}'` +set tmp_buf = `$modhead $tmp_file OBJCLASS` +set objclass = $tmp_buf[2] + +# Clean tmp files that the script will create (safe) +$rm tmp_xcorr.res tmp_combine.lis +$rm tmp_good_exp.lis tmp_exp.lis tmp_seg_dn.lis +$rm DN_${rn}*.fit + +foreach om ($obsmod) + foreach res ($resolution) + foreach chan ($channel) + foreach det ($detector) + + set ignore_exp_stat = '' + if ($om == hist) set ignore_exp_stat = -a + if ($pid == S100) set ignore_exp_stat = -a + if ($pid == M106) set ignore_exp_stat = -a + + # Find exposures that match the current segment + set seg = $det$chan$res$om + set readfiles = 0 + ls ${rn}9[0-9][0-9]${seg}fcal.fit |& grep -v 000${seg} > tmp_exp.lis # Keep only "9xx" exposures + if ($? == 0) then + set readfiles = 2 + set ignore_exp_stat = -a + endif + + if ($readfiles >= 1) then # There are one or more exposures + + echo " " + echo "*** Processing: $seg ***" + # [1a][lif] -> [1b][lif], [2b][lif] -> [2a][lif] etc... + if ($det == 1a) set det2 = 1b + if ($det == 2b) set det2 = 2a + set seg2 = $det2$chan$res$om + + echo "----- cf_xcorr input -----" + cat tmp_exp.lis + echo "----------------------------" + $cf_xcorr tmp_exp.lis tmp_xcorr.res # Compute shift and sigma_shift + echo "----- cf_xcorr results -----" + cat tmp_xcorr.res + echo "----------------------------" + + awk '{if ($3 >= 0) {print $6, $2} else {print $6}}' tmp_xcorr.res > tmp_good_exp.lis + + # + # --- Path 1: Optimize resolution --- + # + + echo "Optimize resolution..." + set n_good = `cat tmp_good_exp.lis | wc -l` + + # Extract [Day + Night] spectra + set s = DN_${rn}900${seg}fcal.fit + awk '{print "'$rn'"$1"'$seg'fcal.fit",$2}' tmp_good_exp.lis > tmp_combine.lis # Combine $seg [dn] + # echo "----- Combining Files ----- " + # cat tmp_combine.lis + # echo "Output: " $s + $cf_combine -k $ignore_exp_stat tmp_combine.lis $s + # $modhead "${s}[1]" NUM_EXP $n_good + $modhead "${s}[1]" COMBMETH XCORR + echo $s >> tmp_seg_dn.lis + + set s = DN_${rn}900${seg2}fcal.fit + awk '{print "'$rn'"$1"'$seg2'fcal.fit",$2}' tmp_good_exp.lis > tmp_combine.lis # Combine $seg2 [dn] + # echo "----- Combining Files ----- " + # cat tmp_combine.lis + # echo "Output: " $s + $cf_combine -k $ignore_exp_stat tmp_combine.lis $s + # $modhead "${s}[1]" NUM_EXP $n_good + $modhead "${s}[1]" COMBMETH XCORR + echo $s >> tmp_seg_dn.lis + + endif + end + + $rm tmp_xcorr.res tmp_combine.lis + $rm tmp_good_exp.lis tmp_exp.lis + + end + + # Pack the 8 [detector][channel] pairs together + if (-e tmp_seg_dn.lis) then + + set fcal_all = ${rn}00900all$res${om}fcal.fit # Final output name + $rm $fcal_all # Clean (safe) + set n_segs = `cat tmp_seg_dn.lis | wc -l` + + if (!($n_segs == 8)) then + + @ mseg = 8 - $n_segs + echo "ERROR: $mseg (day + night) segments are missing" + $rm tmp_seg_dn.lis + goto crash + + else + + $cf_pack tmp_seg_dn.lis $fcal_all + $rm tmp_seg_dn.lis + + # Plot figures, delete unwanted files + $idl_obsplot {$rn} airglow + mv ${rn}00900spec${om}f.gif ${rn}00000airg${om}f.gif + $rm ${rn}00900lif*.gif ${rn}00900sic*.gif + $rm $fcal_all + + endif + endif + end +end + +# Clean [dn] files. +$rm DN_${rn}*.fit + +# Delete IDF files +if $?DELETE_IDF then + echo "NOTE: Deleting intermediate data files." + $rm ${rn}*idf.fit +endif + +# Delete bad-pixel-map (bpm) files +if $?DELETE_BPM then + echo "NOTE: Deleting bad pixel map (bpm) files." + $rm ${rn}*bpm.fit +endif + +exit(0) + +crash: # Procedure when script crashes + +# Clean directory +$rm tmp_xcorr.res tmp_combine.lis +$rm tmp_good_exp.lis tmp_exp.lis tmp_seg_dn.lis +$rm DN_*.fit + +# Return 1 +exit(1) diff --git a/src/analysis/cf_make_all_exp.c b/src/analysis/cf_make_all_exp.c new file mode 100644 index 0000000..926ac2c --- /dev/null +++ b/src/analysis/cf_make_all_exp.c @@ -0,0 +1,91 @@ +/***************************************************************************** + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ***************************************************************************** + * + * Synopsis: cf_make_all_exp output_filename input1 input2 input3 input4 + * + * Description: For a single exposure, copies header of channel with largest + * value of EXPTIME into an otherwise empty "all" file. + * Input files should represent each of the four FUSE channels. + * + * + * History: 08/11/05 wvd v1.0 Based on cf_quicklook. + * + ****************************************************************************/ + +#include +#include +#include +#include "calfuse.h" + +static char CF_PRGM_ID[]= "cf_make_all_exp"; +static char CF_VER_NUM[]= "1.0"; + +int main(int argc,char *argv[]){ + + char *corrected_filename, *string_pointer; + char comment[FLEN_CARD], datestr[FLEN_CARD]; + int i, nextend=0, ref_file=2, timeref; + int status=0; + float exptime, max_exptime; + + fitsfile *infits,*outfits; + + if (argc != 6) { + printf("Incorrect number of arguments.\n"); + printf("Calling sequence: cf_make_all_exp output_filename " + "input1 input2 input3 input4\n"); + exit(1); + } + + /* Initialize error checking. */ + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution."); + + /* Determine the channel with the longest exposure time */ + + max_exptime = 0; + for (i = 0; i < 4; i++) { + FITS_open_file(&infits, argv[2+i], READONLY, &status); + FITS_read_key(infits, TFLOAT, "EXPTIME", &exptime, NULL, &status); + if (exptime >= max_exptime) { + ref_file = 2 + i; + max_exptime = exptime; + } + FITS_close_file(infits, &status); + } + + /* Copy header from the reference file to the exposure-level "all" file. */ + + FITS_open_file(&infits, argv[ref_file], READONLY, &status); + FITS_create_file(&outfits, argv[1], &status); + FITS_copy_hdu(infits, outfits, 0, &status); + + /* Modify a few header keywords. */ + string_pointer = strrchr(argv[1],'/'); + if (string_pointer == NULL) corrected_filename = argv[1]; + else corrected_filename = &(string_pointer[1]); + FITS_update_key(outfits, TINT, "NEXTEND", &nextend, NULL, &status); + FITS_write_date(outfits, &status); + FITS_update_key(outfits, TSTRING, "FILENAME", corrected_filename, NULL, &status); + FITS_update_key(outfits, TSTRING, "FILETYPE", "EXPOSURE-LEVEL STATUS FILE", NULL, &status); + + /* Add a note warning that this file contains no data. */ + FITS_write_comment(outfits, " ", &status); + FITS_write_comment(outfits, + "This file contains no data.", &status); + FITS_write_comment(outfits, + "Its header keywords are used by the DADS cataloging software.", &status); + fits_get_system_time(datestr, &timeref, &status); + sprintf(comment, "CalFUSE v%s %.10s", CALFUSE_VERSION, datestr); + FITS_write_comment(outfits, comment, &status); + FITS_write_comment(outfits, " ", &status); + + + FITS_close_file(infits, &status); + FITS_close_file(outfits,&status); + + return EXIT_SUCCESS; +} diff --git a/src/analysis/cf_make_all_obs.csh b/src/analysis/cf_make_all_obs.csh new file mode 100755 index 0000000..2a97247 --- /dev/null +++ b/src/analysis/cf_make_all_obs.csh @@ -0,0 +1,555 @@ +#!/usr/local/bin/tcsh -f + +#****************************************************************************** +#* Johns Hopkins University +#* Center For Astrophysical Sciences +#* FUSE +#****************************************************************************** +#* +#* Synopsis: cf_make_all_obs.csh association_file +#* +#* Description: Creates 3 files from Calfuse output (properly run): +#* +#* 1) An "all" file containing 1 extension per detector (= 8). +#* Each extension contains a combined spectrum from the set +#* of exposures, using "Xcorr" or "Background" method. +#* 2) In the case of TTAG data, creates an "ano" file. Same as +#* the "all" file but considering "night only" exposure time. +#* 3) A National Virtual Observatory "nvo" file. One extension +#* containing wavelengths that span the whole FUSE range. +#* +#* The Xcorr method consists of co-adding spectra, the latter +#* being corrected for a possible shift. The Background method +#* consists of combining all the IDF files. +#* +#* The Xcorr test is performed on 4 (detector, channel) pairs, the +#* method of other pairs are given by them: +#* LiF 1a -> Lif 1b +#* LiF 2b -> LiF 2a +#* SiC 1a -> Sic 1b +#* Sic 2b -> Sic 2a +#* In the script, the left segments are referred as to $seg (or +#* $det) and the right segments are referred as to $seg2 (or +#* $det2). +#* +#* When an expected data set is missing, the script stops, cleans +#* the directory, and returns 1. +#* +#* History: 04/15/05 1.0 tc First release +#* 08/22/05 1.1 wvd Argument is name of association file. +#* 10/20/05 1.2 wvd Use idl_obsplot.pl to call cf_obsplot. +#* 10/25/05 1.3 wvd Add option to delete BPM or IDF files. +#* 03/21/06 1.4 wvd If there's only one exposure, always +#* follow the cross-correlation path. +#* Don't check the number of night-only +#* spectra before calling cf_pack. +#* 03/28/06 1.5 wvd If there's no good time in any exposure, +#* follow the cross-correlation path. +#* 04/27/06 1.6 wvd Be smarter when discarding 000 files. +#* Always use cross-corr for HIST data. +#* 05/23/06 1.7 wvd Move -k to proper spot after cf_combine. +#* 06/02/06 1.8 wvd If OBJCLASS = 7 (Sky Background) +#* always combine IDF files. +#* 06/22/06 1.9 wvd Call idf_combine with -z flag. +#* 05/24/07 1.10 bot If only 900+ spectra are available, +#* use them. +#* 04/04/08 1.11 bot Ignore EXP_STAT in cf_combine for HIST +#* data. +#* 07/25/08 1.12 wvd Ignore EXP_STAT in cf_combine and +#* idf_combine for BR-EARTH observations +#* (S100, M106, and 900+ exposures). +#* 08/08/08 1.13 wvd Don't ignore EXP_STAT for 900+ exposures. +#* 08/15/08 1.14 wvd Call cf_make_900_obs.csh +#* to make quick-look airglow plot. +#* +#*****************************************************************************/ + +# Delete files after processing? (Default is no.) +#set DELETE_IDF # Delete intermediate data files +#set DELETE_BPM # Delete bad-pixel map files + +# Set program path +set rm = "/bin/rm -f" + +set cf_xcorr = cf_xcorr +set cf_combine = cf_combine +set cf_pack = cf_pack +set cf_nvo = cf_nvo +set idl_obsplot = idl_obsplot.pl +set modhead = modhead + +#set cf_xcorr = /home/vela/civeit/Work/CalFuse/Xcorr/New/cf_xcorr +#set cf_combine = /home/vela/civeit/Work/CalFuse/Shiftexp/cf_combine +#set cf_pack = /home/vela/civeit/Work/CalFuse/Pack/cf_pack +#set cf_nvo = /home/vela/civeit/Work/CalFuse/Nvo/cf_nvo +#set modhead = /home/vela/civeit/local/bin/modhead + +#set cf_obsplot = /data1/fuse/calfuse/v3.1/idl/cf_obsplot.pro + +# Init var list +set detector = (1a 2b) +set channel = (lif sic) +set resolution = (2 3 4) +set obsmod = (hist ttag) + +# Determine the root name and the program ID +set asnf = $1 +set rn = ${asnf:s/000asnf.fit//} +set pid = `echo $rn | awk '{print substr($1, 1, 4)}'` + +# Determine the object class +set tmp_file = `ls ${rn}*fcal.fit | awk '{if (NR == 1) print}'` +set tmp_buf = `$modhead $tmp_file OBJCLASS` +set objclass = $tmp_buf[2] + +# Clean tmp files that the script will create (safe) +$rm tmp_xcorr.res tmp_bpm1.lis tmp_bpm2.lis tmp_combine.lis tmp_night_exp.lis +$rm tmp_all_night_exp.lis tmp_good_exp.lis tmp_exp.lis tmp_seg_dn.lis tmp_seg_no.lis +$rm DN_${rn}*.fit NO_${rn}*.fit + +foreach om ($obsmod) + foreach res ($resolution) + foreach chan ($channel) + foreach det ($detector) + + set ignore_exp_stat = '' + if ($om == hist) set ignore_exp_stat = -a + if ($pid == S100) set ignore_exp_stat = -a + if ($pid == M106) set ignore_exp_stat = -a + + # Find exposures that match the current segment + set seg = $det$chan$res$om + set readfiles = 0 + ls ${rn}[0-8][0-9][0-9]${seg}fcal.fit |& grep -v 000${seg} > tmp_exp.lis # Reject EXP "9xx" and "000" + + if ($? == 0) then + set readfiles = 1 + else + ls ${rn}9[0-9][0-9]${seg}fcal.fit |& grep -v 000${seg} > tmp_exp.lis # Keep only "9xx" exposures + if ($? == 0) set readfiles = 2 + endif + + if ($readfiles >= 1) then # There are one or more exposures + + echo " " + echo "*** Processing: $seg ***" + # [1a][lif] -> [1b][lif], [2b][lif] -> [2a][lif] etc... + if ($det == 1a) set det2 = 1b + if ($det == 2b) set det2 = 2a + set seg2 = $det2$chan$res$om + + echo "----- cf_xcorr input -----" + cat tmp_exp.lis + echo "----------------------------" + $cf_xcorr tmp_exp.lis tmp_xcorr.res # Compute shift and sigma_shift + echo "----- cf_xcorr results -----" + cat tmp_xcorr.res + echo "----------------------------" + + awk '{if ($5 > 0) print $6, $4, $5}' tmp_xcorr.res > tmp_all_night_exp.lis + awk '{if ($3 >= 0) print $6, $2}' tmp_xcorr.res > tmp_good_exp.lis + awk '{if (($3 >= 0) && ($5 > 0)) print $6, $2, $4, $5}' tmp_xcorr.res > tmp_night_exp.lis + set time_good = `awk 'BEGIN{$t = 0} {if ($3 >= 0) $t = $t + $4} END{print $t}' tmp_xcorr.res` + set time_bad = `awk 'BEGIN{$t = 0} {if ($3 < 0) $t = $t + $4} END{print $t}' tmp_xcorr.res` + echo "Xcorr time: $time_good - Background time: $time_bad" + set n_exp = `cat tmp_xcorr.res | wc -l` + + if (($time_good > 2 * $time_bad && $objclass != 7) || ($time_good == 0 && $time_bad == 0) || $n_exp == 1 || $om == hist) then + + # + # --- Path 1: Optimize resolution --- + # + + echo "Optimize resolution..." + set n_good = `cat tmp_good_exp.lis | wc -l` + + # Extract [Day + Night] spectra + set s = DN_${rn}000${seg}fcal.fit + awk '{print "'$rn'"$1"'$seg'fcal.fit",$2}' tmp_good_exp.lis > tmp_combine.lis # Combine $seg [dn] + # echo "----- Combining Files ----- " + # cat tmp_combine.lis + # echo "Output: " $s + $cf_combine -k $ignore_exp_stat tmp_combine.lis $s + # $modhead "${s}[1]" NUM_EXP $n_good + $modhead "${s}[1]" COMBMETH XCORR + echo $s >> tmp_seg_dn.lis + + set s = DN_${rn}000${seg2}fcal.fit + awk '{print "'$rn'"$1"'$seg2'fcal.fit",$2}' tmp_good_exp.lis > tmp_combine.lis # Combine $seg2 [dn] + # echo "----- Combining Files ----- " + # cat tmp_combine.lis + # echo "Output: " $s + $cf_combine -k $ignore_exp_stat tmp_combine.lis $s + # $modhead "${s}[1]" NUM_EXP $n_good + $modhead "${s}[1]" COMBMETH XCORR + echo $s >> tmp_seg_dn.lis + + set n_night = `cat tmp_night_exp.lis | wc -l` + if ($om == ttag && $n_night > 0) then # Create and combine night only files + + echo "*** Creating night only files ***" + set exp_nums = `awk '{print $1}' tmp_night_exp.lis` + + foreach exp ($exp_nums) + + # Create night-only BPM and FCAL files if they do not already exist. + set bno1 = NO_$rn$exp$det${om}fbpm.fit # Bad-pixel maps + set bno2 = NO_$rn$exp$det2${om}fbpm.fit + set cno1 = NO_$rn$exp${seg}fcal.fit # Extracted spectra + set cno2 = NO_$rn$exp${seg2}fcal.fit + + set etime = `egrep "^$exp" tmp_night_exp.lis | awk '{print $3}'` + set ntime = `egrep "^$exp" tmp_night_exp.lis | awk '{print $4}'` + set ratio = `egrep "^$exp" tmp_night_exp.lis | awk '{printf "%.0f", 0.5+$4/$3*10.}'` + + if (!(-e $cno1)) then + if ($etime == $ntime) then + echo "$cno1 is a symbolic link to $rn$exp${seg}fcal.fit" + ln -s $rn$exp${seg}fcal.fit $cno1 + else + + set idf_file = $rn$exp$det${om}fidf.fit + if (!(-e $bno1)) then + if ($ratio > 9) then + echo "$bno1 is a symbolic link to $rn$exp$det${om}fbpm.fit" + ln -s $rn$exp$det${om}fbpm.fit $bno1 + else + echo "Creating BPM: $bno1 ..." + cf_bad_pixels -n $bno1 $idf_file + endif + endif + + echo "Creating (LiF + SiC) FCAL: $cno1 ..." + cf_extract_spectra -n $bno1 -r NO_$rn$exp $idf_file # Existence of $bno1 is not required + endif + endif + + if (!(-e $cno2)) then + if ($etime == $ntime) then + echo "Using a symbolic link to $cno2" + ln -s $rn$exp${seg2}fcal.fit NO_$rn$exp${seg2}fcal.fit + else + + set idf_file = $rn$exp$det2${om}fidf.fit + if (!(-e $bno2)) then + if ($ratio > 9) then + echo "Using a symbolic link to $bno2" + ln -s $rn$exp$det2${om}fbpm.fit NO_$rn$exp$det2${om}fbpm.fit + else + echo "Creating BPM: $bno2 ..." + cf_bad_pixels -n $bno2 $idf_file + endif + endif + + echo "Creating (LiF + SiC) FCAL: $cno2 ..." + cf_extract_spectra -n $bno2 -r NO_$rn$exp $idf_file # Existence of $bno2 is not required + endif + endif + + end + + # Combine exposures into a single spectrum. + set s = NO_${rn}000${seg}fcal.fit + awk '{print "NO_'$rn'"$1"'$seg'fcal.fit",$2}' tmp_night_exp.lis > tmp_combine.lis # Combine $seg [no] + $cf_combine -k $ignore_exp_stat tmp_combine.lis $s + # $modhead "${s}[1]" NUM_EXP $n_night + $modhead "${s}[0]" DAYNIGHT NIGHT + $modhead "${s}[1]" COMBMETH XCORR + echo $s >> tmp_seg_no.lis + + set s = NO_${rn}000${seg2}fcal.fit + awk '{print "NO_'$rn'"$1"'$seg2'fcal.fit",$2}' tmp_night_exp.lis > tmp_combine.lis # Combine $seg2 [no] + $cf_combine -k $ignore_exp_stat tmp_combine.lis $s + # $modhead "${s}[1]" NUM_EXP $n_night + $modhead "${s}[0]" DAYNIGHT NIGHT + $modhead "${s}[1]" COMBMETH XCORR + echo $s >> tmp_seg_no.lis + + endif + + else + + # + # --- Path 2: Optimize background --- + # + + echo "Optimize background..." + + # Combine IDF files + set idf1_all = DN_${rn}000$det${om}fidf.fit # Same for [dn] and [no] + set idf2_all = DN_${rn}000$det2${om}fidf.fit + + if (!(-e $idf1_all)) then + echo "Creating IDF: $idf1_all ..." + if ($readfiles == 1) then + ls ${rn}[0-8][0-9][0-9]$det${om}fidf.fit |& grep -v 000${det} > tmp_idf.lis # Reject EXP "9xx" and "000" + else + ls ${rn}9[0-9][0-9]$det${om}fidf.fit |& grep -v 000${det} > tmp_idf.lis # Consider only airglow + endif + if ($? == 0) then # IDF files exist + + set idf_lis = `awk '{printf "%s ",$1}' tmp_idf.lis` + # echo "Combining IDF files: " $idf_lis + idf_combine -cz $ignore_exp_stat $idf1_all $idf_lis # Create combined IDF file for $seg + $rm tmp_idf.lis + + else + + echo "ERROR: IDF files are missing" + $rm tmp_idf.lis + goto crash + + endif + endif + + if (!(-e $idf2_all)) then + echo "Creating IDF: $idf2_all ..." + if ($readfiles == 1) then + ls ${rn}[0-8][0-9][0-9]$det2${om}fidf.fit |& grep -v 000${det2} > tmp_idf.lis # Reject EXP "9xx" and "000" + else + ls ${rn}9[0-9][0-9]$det2${om}fidf.fit |& grep -v 000${det2} > tmp_idf.lis # Consider only airglow + endif + if ($? == 0) then # IDF files exist + + set idf_lis = `awk '{printf "%s ",$1}' tmp_idf.lis` + # echo "Combining IDF files: " $idf_lis + idf_combine -cz $ignore_exp_stat $idf2_all $idf_lis # Create combined IDF file for $seg2 + $rm tmp_idf.lis + + else + + echo "ERROR: IDF files are missing" + $rm tmp_idf.lis + goto crash + + endif + endif + + # Get the number of (valid) combined IDF files + set tmp_buf = `$modhead $idf1_all NSPEC` + set n_comb1 = $tmp_buf[3] + set tmp_buf = `$modhead $idf1_all SPEC001` + set idf1_1 = $tmp_buf[3] + set tmp_buf = `$modhead $idf2_all NSPEC` + set n_comb2 = $tmp_buf[3] + set tmp_buf = `$modhead $idf2_all SPEC001` + set idf2_1 = $tmp_buf[3] + + # Combine BPM files + set bpm1_all = DN_${rn}000$det${om}fbpm.fit + set bpm2_all = DN_${rn}000$det2${om}fbpm.fit + + if (!(-e $bpm1_all)) then + echo "Combine all BPM (from IDF): $bpm1_all ..." + bpm_combine $bpm1_all $idf1_all # Create combined BPM file [dn] for $seg + endif + + if (!(-e $bpm2_all)) then + echo "Combine all BPM (from IDF): $bpm2_all ..." + bpm_combine $bpm2_all $idf2_all # Idem for $seg2 + endif + + # Extract [Day + Night] spectra + set s = DN_${rn}000${seg}fcal.fit + set xxx = DN_${rn}xxx${seg}fcal.fit + if (!(-e $xxx)) cf_extract_spectra -r DN_${rn}xxx $idf1_all # Avoid overwrite LiF | SiC + echo $xxx > tmp_combine.lis + $cf_combine -k $ignore_exp_stat tmp_combine.lis $s + $modhead "${s}[0]" NSPEC $n_comb1 + $modhead "${s}[0]" SPEC001 $idf1_1 + $modhead "${s}[1]" COMBMETH BACKGRND + echo $s >> tmp_seg_dn.lis + + set s = DN_${rn}000${seg2}fcal.fit + set xxx = DN_${rn}xxx${seg2}fcal.fit + if (!(-e $xxx)) cf_extract_spectra -r DN_${rn}xxx $idf2_all # Avoid overwrite LiF | SiC + echo $xxx > tmp_combine.lis + $cf_combine -k $ignore_exp_stat tmp_combine.lis $s + $modhead "${s}[0]" NSPEC $n_comb2 + $modhead "${s}[0]" SPEC001 $idf2_1 + $modhead "${s}[1]" COMBMETH BACKGRND + echo $s >> tmp_seg_dn.lis + + set n_night = `cat tmp_all_night_exp.lis | wc -l` + if ($om == ttag && $n_night > 0) then # Create and combine night only files + + echo "*** Creating night only files ***" + set exp_nums = `awk '{print $1}' tmp_all_night_exp.lis` + $rm tmp_bpm1.lis tmp_bpm2.lis + + foreach exp ($exp_nums) + + # Create bpm night only files (if they do not exist yet) + set bno1 = NO_$rn$exp$det${om}fbpm.fit + set bno2 = NO_$rn$exp$det2${om}fbpm.fit + + set idf_file = $rn$exp$det${om}fidf.fit + if (!(-e $bno1)) then + echo "Creating BPM: $bno1 ..." + cf_bad_pixels -n $bno1 $idf_file + endif + if (-e $bno1) echo $bno1 >> tmp_bpm1.lis # If valid, add in $seg list + + set idf_file = $rn$exp$det2${om}fidf.fit + if (!(-e $bno2)) then + echo "Creating BPM: $bno2 ..." + cf_bad_pixels -n $bno2 $idf_file + endif + if (-e $bno2) echo $bno2 >> tmp_bpm2.lis # If valid, add in $seg2 list + + end + + + # Combine BPM for $seg and extract spectra + + set bpm1_all = NO_${rn}000$det${om}fbpm.fit + set n_bpm = `cat tmp_bpm1.lis | wc -l` + echo "Number of valid BPM files: $n_bpm" + + if ($n_bpm > 0) then + + echo $n_bpm > tmp_bpm.lis + cat tmp_bpm1.lis >> tmp_bpm.lis + + if (!(-e $bpm1_all)) then + echo "Combine all BPM (from list): $bpm1_all ..." + bpm_combine $bpm1_all tmp_bpm.lis # Create combined BPM file [no] for $seg + endif + $rm tmp_bpm.lis + + endif + + # Extract [Night only] spectra. The existence of $bpm1_all is not required + set s = NO_${rn}000${seg}fcal.fit + set xxx = NO_${rn}xxx${seg}fcal.fit + if (!(-e $xxx)) cf_extract_spectra -n $bpm1_all -r NO_${rn}xxx $idf1_all # Avoid overwrite LiF | SiC + echo $xxx > tmp_combine.lis + $cf_combine -k $ignore_exp_stat tmp_combine.lis $s + $modhead "${s}[0]" NSPEC $n_comb1 + $modhead "${s}[0]" SPEC001 $idf1_1 + $modhead "${s}[1]" COMBMETH BACKGRND + echo $s >> tmp_seg_no.lis + + + # Combine BPM for $seg2 and extract spectra + + set bpm2_all = NO_${rn}000$det2${om}fbpm.fit + set n_bpm = `cat tmp_bpm2.lis | wc -l` + echo "Number of valid BPM files: $n_bpm" + + if ($n_bpm > 0) then + + echo $n_bpm > tmp_bpm.lis + cat tmp_bpm2.lis >> tmp_bpm.lis + + if (!(-e $bpm2_all)) then + echo "Combine all BPM (from list): $bpm2_all ..." + bpm_combine $bpm2_all tmp_bpm.lis # Create combined BPM file [no] for $seg2 + endif + $rm tmp_bpm.lis + + endif + + # Extract [Night only] spectra. The existence of $bpm2_all is not required + set s = NO_${rn}000${seg2}fcal.fit + set xxx = NO_${rn}xxx${seg2}fcal.fit + if (!(-e $xxx)) cf_extract_spectra -n $bpm2_all -r NO_${rn}xxx $idf2_all # Avoid overwrite LiF | SiC + echo $xxx > tmp_combine.lis + $cf_combine -k $ignore_exp_stat tmp_combine.lis $s + $modhead "${s}[0]" NSPEC $n_comb2 + $modhead "${s}[0]" SPEC001 $idf2_1 + $modhead "${s}[1]" COMBMETH BACKGRND + echo $s >> tmp_seg_no.lis + + endif + endif + endif + end + + $rm tmp_xcorr.res tmp_bpm1.lis tmp_bpm2.lis tmp_combine.lis + $rm tmp_all_night_exp.lis tmp_good_exp.lis tmp_exp.lis tmp_night_exp.lis + + end + + # Pack the 8 [detector][channel] pairs together ([dn] and [no] for ttag) + if (-e tmp_seg_dn.lis) then + + set fcal_all = ${rn}00000all$res${om}fcal.fit # Final output name + $rm $fcal_all # Clean (safe) + set n_segs = `cat tmp_seg_dn.lis | wc -l` + + if (!($n_segs == 8)) then + + @ mseg = 8 - $n_segs + echo "ERROR: $mseg (day + night) segments are missing" + $rm tmp_seg_dn.lis + goto crash + + else + + $cf_pack tmp_seg_dn.lis $fcal_all + $rm tmp_seg_dn.lis + + # Plot figures + $idl_obsplot {$rn} + + # Create National Virtual Observatory file + set nvo_file = ${rn}00000nvo$res${om}fcal.fit + $rm $nvo_file # Clean (safe) + $cf_nvo $fcal_all $nvo_file # Create file + + if (-e tmp_seg_no.lis) then + + set fcal_all = ${rn}00000ano$res${om}fcal.fit # Final output name + $rm $fcal_all # Clean (safe) + set n_segs = `cat tmp_seg_no.lis | wc -l` + + # if (!($n_segs == 8)) then + # + # @ mseg = 8 - $n_segs + # echo "ERROR: $mseg (night only) segments are missing" + # $rm tmp_seg_no.lis + # # goto crash + # + # else + + $cf_pack tmp_seg_no.lis $fcal_all + $rm tmp_seg_no.lis + + # endif + + endif + endif + endif + end +end + +# Clean [dn] and [no] files. Just keep all, (ano) and nvo +$rm DN_${rn}*.fit NO_${rn}*.fit + +# Delete IDF files +if $?DELETE_IDF then + echo "NOTE: Deleting intermediate data files." + $rm ${rn}*idf.fit +endif + +# Delete bad-pixel-map (bpm) files +if $?DELETE_BPM then + echo "NOTE: Deleting bad pixel map (bpm) files." + $rm ${rn}*bpm.fit +endif + +# Call routine to make quick-look airglow plot. +cf_make_900_obs.csh $1 + +exit(0) + +crash: # Procedure when script crashes + +# Clean directory +$rm tmp_xcorr.res tmp_bpm1.lis tmp_bpm2.lis tmp_combine.lis tmp_night_exp.lis +$rm tmp_all_night_exp.lis tmp_good_exp.lis tmp_exp.lis tmp_seg_dn.lis tmp_seg_no.lis +$rm DN_*.fit NO_*.fit + +# Return 1 +exit(1) diff --git a/src/analysis/cf_nvo.c b/src/analysis/cf_nvo.c new file mode 100644 index 0000000..4dd9771 --- /dev/null +++ b/src/analysis/cf_nvo.c @@ -0,0 +1,497 @@ +/******************************************************************************* + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ******************************************************************************* + * + * Usage: cf_nvo all_segments.fit nvo_file.fit + * + * Description: Write a National Virtual Observatory (nvo) file. The program + * uses the file created by cf_pack, which contains one spectrum + * per extension, each corresponding to a detector channel. + * + * History: 04/11/05 tc v1.0 First release + * 05/16/2005 wvd v1.1 Check mean flux of each segment. + * If preferred channel is missing, + * replace it with another. + * 05/19/2005 wvd v1.2 Shift each channel to match + * LiF1A between 1045 and 1070 A. + * 05/20/2005 wvd v1.3 For emission-line sources, + * cross-correlate on O VI lines. + * 05/23/2005 wvd v1.4 Don't assume that sides A and B + * have the same shift. + * 06/01/2005 wvd v1.5 Do assume that sides A and B + * have the same shift. + * 06/03/2005 wvd v1.6 Delete unused variables. + * 06/08/2005 wvd v1.7 Define MAXFLOAT if needed. + * 06/16/2005 wvd v1.8 Include values.h + * 07/06/2005 wvd v1.9 If FESCENT = FES B, use LiF 2B + * as wavelength standard. + * 07/12/2005 wvd v1.10 Give up on use of MAXFLOAT. + * 08/11/2005 wvd v1.11 Set keyword NEXTEND = 1. + * 03/22/2006 wvd v1.12 Allow use of SiC data for + * 1000-1100 A region. + * Don't cross-correlate segments + * with OBSTIME = 0. + * 05/16/2006 wvd v1.13 Use Lyman beta to align + * background exposures. + * Use O VI and C II to align WD's. + * 05/19/2006 wvd v1.14 In copy_spec(), test index to + * prevent extending past the edge. + * For BKGD targets, omit flux + * comparison when deciding which + * regions to use. + * Delete index to the file + * extensions from the primary HDU. + * Compute mean flux over same + * wavelength region for each band. + * 05/24/2006 wvd v1.16 For PC targets, don't include + * O VI in calculation of mean flux + * 12/19/2006 wvd v1.17 Reject segments with + * OBSTIME < 10 seconds when full + * exposure is longer than 100 s. + * 02/19/2008 bot v1.18 Fixed indexing problem in + * copy_spec due to shift and n_copy + * + ******************************************************************************/ + +#include +#include +#include +#include +#include "calfuse.h" + +#define MAXSHIFT 30 +#define N_SHIFT 61 +#define NVO_MIN 900 +#define NVO_MAX 1190 + +static char CF_PRGM_ID[] = "cf_nvo"; +static char CF_VER_NUM[] = "1.18"; + +static int +compute_shift(fitsfile *pt_fits, int hdu_ref, int hdu, float wmin, float wdelta, + float wpc, int *shift, int *quality) +{ + char comb[FLEN_VALUE], ref_comb[FLEN_VALUE]; + int hdutype, status = 0; + int ind_chi2_min, nchi; + long i, k, n_rows, ref_start, start, n_pix; + float *error, *flux, *wave, *ref_error, *ref_flux, *ref_wave; + float chi_square[N_SHIFT], chi_square_min, chi_square_max; + float ref_obstime, obstime; + double scale, sum, var1, var2; + + /* Don't need to shift reference spectrum. */ + if (hdu_ref == hdu) { + *shift = 0; + *quality = TRUE; + return(0); + } + + /* Read data for reference and data channels. */ + FITS_movabs_hdu(pt_fits, hdu_ref, &hdutype, &status); + FITS_read_key(pt_fits, TSTRING, "COMBMETH", &ref_comb, NULL, &status); + FITS_read_key(pt_fits, TFLOAT, "OBSTIME", &ref_obstime, NULL, &status); + n_rows = cf_read_col(pt_fits, TFLOAT, "WAVE", (void **) &ref_wave); + n_rows = cf_read_col(pt_fits, TFLOAT, "FLUX", (void **) &ref_flux); + n_rows = cf_read_col(pt_fits, TFLOAT, "ERROR", (void **) &ref_error); + + FITS_movabs_hdu(pt_fits, hdu, &hdutype, &status); + FITS_read_key(pt_fits, TSTRING, "COMBMETH", &comb, NULL, &status); + FITS_read_key(pt_fits, TFLOAT, "OBSTIME", &obstime, NULL, &status); + n_rows = cf_read_col(pt_fits, TFLOAT, "WAVE", (void **) &wave); + n_rows = cf_read_col(pt_fits, TFLOAT, "FLUX", (void **) &flux); + n_rows = cf_read_col(pt_fits, TFLOAT, "ERROR", (void **) &error); + + /* If either channel was not constructed using cross-correlation, + * return a shift of 0. */ + if (strncmp(ref_comb,"X",1) || strncmp(comb,"X",1)) { + *shift = 0; + *quality = FALSE; + printf("hdu = %d, hdu_ref = %d, COMBMETH != XCORR\n", + hdu, hdu_ref); + return(0); + } + + /* If either channel has OBSTIME = 0, return a shift of 0. */ + if (ref_obstime < 1 || obstime < 1) { + *shift = 0; + *quality = FALSE; + if (ref_obstime < 1) + printf("hdu_ref = %d, OBSTIME = %f\n", hdu_ref, ref_obstime); + if (obstime < 1) printf("hdu = %d, OBSTIME = %f\n", hdu, obstime); + return(0); + } + + /* Compute chi-squared for shifts between +/- MAXSHIFT pixels. */ + ref_start = cf_nlong((wmin - ref_wave[0]) / wpc) + MAXSHIFT; + start = cf_nlong((wmin - wave[0]) / wpc); + n_pix = cf_nlong(wdelta / wpc) - (N_SHIFT - 1); + + for (k = 0; k < N_SHIFT; k++) { + nchi = 0; + sum = 0; + for (i = 0; i < n_pix; i++) { + var1 = ref_error[ref_start + i] * ref_error[ref_start + i]; + var2 = error[start + i + k] * error[start + i + k]; + if ((var1 + var2) > 0.) { + sum += (ref_flux[ref_start + i] - flux[start + i + k]) * + (ref_flux[ref_start + i] - flux[start + i + k]) / + (var1 + var2); + nchi++; + } + } + scale = (double) nchi / n_pix; + chi_square[k] = sum / scale; + } + + /* If chi-squared changes by less than 20% over range of shifts, abort. + * Otherwise, return shift corresponding to lowest value of chi-square. + */ + ind_chi2_min = 0; + chi_square_min = 1E5; + chi_square_max = -1E5; + for (k = 0; k < N_SHIFT; k++) { + if (chi_square[k] < chi_square_min) + { + chi_square_min = chi_square[k]; + ind_chi2_min = k; + } + else if (chi_square[k] > chi_square_max) + chi_square_max = chi_square[k]; + } + + if (chi_square_max / chi_square_min < 1.2) { + *shift = 0; + *quality = FALSE; + printf("hdu = %d, hdu_ref = %d. Chi-square dist is flat.\n", + hdu, hdu_ref); + } + else { + *shift = ind_chi2_min - MAXSHIFT; + *quality = TRUE; + } + + free(ref_error); + free(ref_flux); + free(ref_wave); + free(error); + free(flux); + free(wave); + + return(0); +} + + +static int +copy_spec(fitsfile *pt_fits, int hdu, float w_min, float w_max, float wpc, + int shift, float *flux_nvo, float *error_nvo, long n_nvo) +{ + int hdutype, status = 0; + long i, i0, n_rows, nvo_start, start, n_copy, n_copy0; + float *error, *flux, w0; + + FITS_movabs_hdu(pt_fits, hdu, &hdutype, &status); + FITS_read_key(pt_fits, TFLOAT, "W0", &w0, NULL, &status); + n_rows = cf_read_col(pt_fits, TFLOAT, "FLUX", (void **) &flux); + n_rows = cf_read_col(pt_fits, TFLOAT, "ERROR", (void **) &error); + + nvo_start = cf_nlong(((double) w_min - NVO_MIN) / wpc); + start = cf_nlong(((double) w_min - w0) / wpc); + n_copy = cf_nlong(((double) w_max - w_min) / wpc) + 1; + if (nvo_start + n_copy > n_nvo) { + printf ("HDU = %d, w_min = %.1f, w_max = %.1f, wpc = %5.3f\n", + hdu, w_min, w_max, wpc); + printf ("n_nvo = %ld, nvo_start = %ld, start = %ld, n_copy = %ld\n", + n_nvo, nvo_start, start, n_copy); + cf_if_error("Can't create NVO array."); + } + + n_copy0 = n_copy; + if (start + shift + n_copy > n_rows) { + n_copy = n_rows - (start + shift); + if (hdu == 3) for (i = n_copy; i < n_copy0; i++) { + flux_nvo[i+nvo_start] = 0.0; + error_nvo[i+nvo_start] = 0.0; + } + } + + i0 = 0; + if (start + shift < 0) { + i0 = -(start + shift); + for (i = 0; i < i0; i++) { + flux_nvo[i+nvo_start] = 0.0; + error_nvo[i+nvo_start] = 0.0; + } + } + + for (i = i0; i < n_copy; i++) { + flux_nvo[i+nvo_start] = flux[i+start+shift]; + error_nvo[i+nvo_start] = error[i+start+shift]; + } + + free(error); + free(flux); + return(0); +} + + +int main(int argc, char *argv[]) +{ + /* Variables */ + char program[FLEN_VALUE]; + double mean_flux[8], sum_flux; + float *wave, *flux, w0, wpc, hdu_wpc; + float *wave_nvo, *flux_nvo, *error_nvo; + float max_obstime, wmin, wdelta; + long n_rows, n_nvo; + int ref, i, nextend=1, n_hdus, shift[8], quality[8]; + int bkgd_obs=FALSE, objclass; + int nkeys, morekeys=0; + long k, n_elem; + + char *ttype[] = { "WAVE", "FLUX", "ERROR" }; + char *tform[] = { "1E", "1E", "1E" }; + char *tunit[] = { "ANGSTROMS", "ERG/CM2/S/A", "ERG/CM2/S/A" }; + + /* HDU numbers must be consistent with output of cf_pack. */ + char *extname[] = { "1ASIC", "2BSIC", "1ALIF", "2BLIF", "1BSIC", "2ASIC", "1BLIF", "2ALIF" }; + int hdu[] = { 6, 8, 2, 4, 7, 9, 3 , 5 }; + float w_min[] = { 997, 1010, 990, 990, 904, 917.5, 1094 , 1090 }; + float w_max[] = { 1090, 1104, 1080, 1074, 992, 998, 1190 , 1180 }; + + /* Regions to use when computing mean flux. */ + float *region; + float region_array[8][6] = { + {0, 0, 1030, 1039, 1045, 1070}, /* 1ASIC */ + {0, 0, 1030, 1039, 1045, 1070}, /* 2BSIC */ + {0, 0, 1030, 1039, 1045, 1070}, /* 1ALIF */ + {0, 0, 1030, 1039, 1045, 1070}, /* 2BLIF */ + {912, 935, 955, 970, 980, 985}, /* 1BSIC */ + {912, 935, 955, 970, 980, 985}, /* 2ASIC */ + {1095, 1130, 1140, 1165, 1170, 1180}, /* 1BLIF */ + {1095, 1130, 1140, 1165, 1170, 1180} /* 2ALIF */ + }; + + char in_name[80], out_name[80]; + char extname_key[80], src_type[FLEN_VALUE], sp_type[FLEN_VALUE], fescent[FLEN_VALUE]; + fitsfile *pt_fits, *pt_fits_out; + int status = 0, hdutype; + + + /*********************************** + ** Enter a timestamp into the log ** + ***********************************/ + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing"); + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + + + /*********************************************************** + ** Check for proper command-line usage and read arguments ** + ***********************************************************/ + if (argc != 3) + cf_if_error("Usage: cf_nvo all_segments.fit nvo_file.fit"); + + strcpy(in_name, argv[1]); + strcpy(out_name, "!"); + strcat(out_name, argv[2]); /* Force overwrite */ + + /******************************************* + ** Open input file, read header keywords. ** + *******************************************/ + FITS_open_file(&pt_fits, in_name, READONLY, &status); + FITS_read_key(pt_fits, TSTRING, "PRGRM_ID", &program, NULL, &status); + FITS_read_key(pt_fits, TINT, "OBJCLASS", &objclass, NULL, &status); + FITS_read_key(pt_fits, TSTRING, "SP_TYPE", &sp_type, NULL, &status); + FITS_read_key(pt_fits, TSTRING, "SRC_TYPE", &src_type, NULL, &status); + FITS_read_key(pt_fits, TFLOAT, "OBSTIME", &max_obstime, NULL, &status); + FITS_read_key(pt_fits, TFLOAT, "WPC", &wpc, NULL, &status); + FITS_read_key(pt_fits, TSTRING, "FESCENT", &fescent, NULL, &status); + ref = 2; /* LiF 1A */ + if (!strncmp(fescent, "FES B", 5)) ref = 3; /* LiF 2B */ + + /**************************************************************** + ** If SRC_TYPE = PC, exclude O VI in calculation of mean flux. ** + ****************************************************************/ + if (!strncmp(src_type, "PC", 2)) + for (i = 0; i < 4; i++) + region_array[i][2] = region_array[i][3] = 0; + + /*************************************** + ** Compute mean flux in each channel. ** + ***************************************/ + FITS_get_num_hdus(pt_fits, &n_hdus, &status); + if (n_hdus != 9) + cf_if_error("Input file must have 9 extensions (%d found)", n_hdus); + + for (i = 0; i < 8; i++) { + float obstime; + FITS_movabs_hdu(pt_fits, hdu[i], &hdutype, &status); + FITS_read_key(pt_fits, TSTRING, "EXTNAME", extname_key, NULL, &status); + if (strcmp(extname_key, extname[i])) + cf_if_error("Extension %d's name does not match (%s)", + hdu[i], extname[i]); + FITS_read_key(pt_fits, TFLOAT, "WPC", &hdu_wpc, NULL, &status); + if (hdu_wpc != wpc) + cf_if_error("Extension %d's WPC does not match primary HDU", + hdu[i]); + FITS_read_key(pt_fits, TFLOAT, "OBSTIME", &obstime, NULL, &status); + if (obstime < 1. || (obstime < 10 && max_obstime > 100)) + mean_flux[i] = -1; + else { + n_rows = cf_read_col(pt_fits, TFLOAT, "WAVE", (void **) &wave); + n_rows = cf_read_col(pt_fits, TFLOAT, "FLUX", (void **) &flux); + + sum_flux = n_elem = 0; + region = region_array[i]; + for (k = 0; k < n_rows; k++) + { + if ((wave[k] > region[0] && wave[k] < region[1]) || + (wave[k] > region[2] && wave[k] < region[3]) || + (wave[k] > region[4] && wave[k] < region[5])) { + sum_flux += flux[k]; + n_elem ++; + } + } + + mean_flux[i] = sum_flux / n_elem; + free(wave); + free(flux); + } + + printf("%s\tmean_flux = %g\n", extname_key, mean_flux[i]); + } + + /******************************************************************* + * If FESCENT = FES A, compute shifts relative to LiF 1A. + * If FESCENT = FES B, use LiF 2B. + * For background targets, compare Lyman beta lines. + * For other emission-line targets, compare O VI lines. + * For white dwarfs, use O VI and C II. + * For other continuum sources, use the region between 1045 and 1070 A + * for the four 1000-1100 A channels. + ******************************************************************/ + + if (src_type[1] == 'E') { /* Emission-line source */ + /* Use Lyman beta to align background observations. */ + if (objclass == 7 || (program[0] == 'S' && program[2] == '0' && program[3] == '5')) { + printf("Assuming background observation.\n"); + wmin = 1024.; + wdelta = 6.; + } else { /* Use O VI emission for everything else. */ + printf("SRC_TYPE = %s. Emission-line target.\n", src_type); + wmin = 1030.; + wdelta = 9.; + } + } + /* Continuum source */ + else if (objclass == 17 || objclass == 29 || objclass == 37) { + /* Use O VI and C II to align white dwarf spectra. */ + printf("OBJCLASS = %d. Assuming nearby white dwarf.\n", objclass); + wmin = 1030.; + wdelta = 9.; + } + else { /* Use 1045-1070 A region for all other continuum sources. */ + printf("SRC_TYPE = %s. Continuum target.\n", src_type); + wmin = 1045.; + wdelta = 25.; + } + + for (i = 0; i < 4; i++) { + if (mean_flux[i] > -1) + compute_shift(pt_fits, hdu[ref], hdu[i], wmin, wdelta, wpc, shift+i, quality+i); + else + shift[i] = 0; + shift[i+4] = shift[i]; + printf("hdu = %d, hdu_ref = %d, shift = %d\n", hdu[i], hdu[ref], shift[i]); + } + + /************************** + ** Set up output arrays. ** + **************************/ + n_nvo = cf_nlong((double) (NVO_MAX - NVO_MIN) / wpc) + 1; + wave_nvo = (float *) cf_calloc(n_nvo, sizeof(float)); + for (i = 0; i < n_nvo; i++) wave_nvo[i] = NVO_MIN + (double) wpc * i; + flux_nvo = (float *) cf_calloc(n_nvo, sizeof(float)); + error_nvo = (float *) cf_calloc(n_nvo, sizeof(float)); + + for (i = 0; i < n_nvo; i++) { + flux_nvo[i] = 0.0; + error_nvo[i] = 0.0; + } + + /************************************************************** + ** In each wave band, copy best data set into output arrays. ** + **************************************************************/ + /* For BKGD targets, omit flux comparison when selecting which + regions to use. */ + if (objclass == 7 || !strncmp(sp_type, "BKGD", 4)) bkgd_obs = TRUE; + + /* First fill in the 1010-1104 A region with SiC 2B. */ + copy_spec(pt_fits, hdu[1], w_min[1], w_max[1], wpc, shift[1], flux_nvo, error_nvo, n_nvo); + + /* Replace with SiC 1A if possible. It has a higher S/N, but extends only to 1090 A. */ + if ((bkgd_obs && mean_flux[0] > -1) || (mean_flux[0] > 0.9 * mean_flux[1])) + copy_spec(pt_fits, hdu[0], w_min[0], w_max[0], wpc, shift[0], flux_nvo, error_nvo, n_nvo); + + /* Next overlay the region between 990 and 1080 A with LiF 1A or LiF 2B, if available. */ + if ((bkgd_obs && mean_flux[2] > -1) || ((mean_flux[2] > 0.9 * mean_flux[3]) && + (mean_flux[2] > 0.7 * mean_flux[0]) && (mean_flux[2] > 0.7 * mean_flux[1]))) + copy_spec(pt_fits, hdu[2], w_min[2], w_max[2], wpc, shift[2], flux_nvo, error_nvo, n_nvo); + else if ((bkgd_obs && mean_flux[3] > -1) || + ((mean_flux[3] > 0.7 * mean_flux[0]) && (mean_flux[3] > 0.7 * mean_flux[1]))) + copy_spec(pt_fits, hdu[3], w_min[3], w_max[3], wpc, shift[3], flux_nvo, error_nvo, n_nvo); + else + w_max[5] = 1010, w_min[6] = w_min[7] = 1104; + /* If no LiF data, adopt limits of SiC spectra. */ + + /* Use SiC 1B to populate the shortest wavelengths. */ + copy_spec(pt_fits, hdu[4], w_min[4], w_max[4], wpc, shift[4], flux_nvo, error_nvo, n_nvo); + + /* If SiC 2A is good, use it for the main part of 900 - 1000 A. */ + if ((bkgd_obs && mean_flux[5] > -1) || (mean_flux[5] > 0.9 * mean_flux[4])) + copy_spec(pt_fits, hdu[5], w_min[5], w_max[5], wpc, shift[5], flux_nvo, error_nvo, n_nvo); + + /* Use LiF 1B to populate the longest wavelengths. */ + copy_spec(pt_fits, hdu[6], w_min[6], w_max[6], wpc, shift[6], flux_nvo, error_nvo, n_nvo); + + /* If LiF 2A is good, use it for the main part of 1100 - 1180 A. */ + if ((bkgd_obs && mean_flux[7] > -1) || (mean_flux[7] > 0.9 * mean_flux[6])) + copy_spec(pt_fits, hdu[7], w_min[7], w_max[7], wpc, shift[7], flux_nvo, error_nvo, n_nvo); + + + for (i = 0; i < n_nvo; i++) { + if (flux_nvo[i] >= 1 || error_nvo[i] >= 1) cf_if_error("Bad values in NVO array."); + } + + /********************* + ** Create NVO file. ** + *********************/ + FITS_create_file(&pt_fits_out, out_name, &status); + FITS_movabs_hdu(pt_fits, 1, &hdutype, &status); + FITS_copy_header(pt_fits, pt_fits_out, &status); + FITS_update_key(pt_fits_out, TINT, "NEXTEND", &nextend, NULL, &status); + FITS_update_key(pt_fits_out, TSTRING, "FILENAME", (out_name + 1), NULL, &status); + FITS_update_key(pt_fits_out, TSTRING, "FILETYPE", "NVO SPECTRUM", NULL, &status); + w0 = NVO_MIN; + FITS_update_key(pt_fits_out, TFLOAT, "W0", &w0, NULL, &status); + + /* Delete index to file extensions from the primary HDU. */ + fits_get_hdrspace(pt_fits_out, &nkeys, &morekeys, &status); + for (i = nkeys; i > nkeys-12; i--) fits_delete_record(pt_fits_out, i, &status); + + FITS_create_tbl(pt_fits_out, BINARY_TBL, n_nvo, 3, ttype, tform, tunit, "FUSE_SPECTRUM", &status); + FITS_write_col(pt_fits_out, TFLOAT, 1, 1L, 1L, n_nvo, wave_nvo, &status); + FITS_write_col(pt_fits_out, TFLOAT, 2, 1L, 1L, n_nvo, flux_nvo, &status); + FITS_write_col(pt_fits_out, TFLOAT, 3, 1L, 1L, n_nvo, error_nvo, &status); + + free(wave_nvo); + free(flux_nvo); + free(error_nvo); + + FITS_close_file(pt_fits_out, &status); + FITS_close_file(pt_fits, &status); + + return(0); +} diff --git a/src/analysis/cf_pack.c b/src/analysis/cf_pack.c new file mode 100644 index 0000000..a823c22 --- /dev/null +++ b/src/analysis/cf_pack.c @@ -0,0 +1,270 @@ +/******************************************************************************* + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ******************************************************************************* + * + * Usage: cf_pack combined_exposure_list out_file_name.fit + * + * Description: Write the 8 segments (1alif, 1blif etc...) into a single fits + * file with 8 extensions (in addition to the primary array). + * + * History: 04/08/05 tc v1.0 First release + * 05/02/05 wvd v1.1 Copy SPEC and WOFF keywords to + * output file. + * 06/03/05 wvd v1.2 Delete unused variables. + * 06/29/05 wvd v1.3 Set keyword COMB_COR = COMPLETE. + * 09/30/05 wvd v1.4 Update archive search keywords. + * 03/23/06 wvd v1.5 If a segment is missing, write + * an empty image extension. + * 05/19/06 wvd v1.6 Write an index to the file + * extensions to the primary HDU. + * 05/24/06 wvd v1.7 Remove SPEC* keywords from + * primary HDU. + * 05/29/06 wvd v1.8 Use while construction to + * delete WOFF* keywords. + * 06/22/06 wvd v1.9 Truncate APER_ACT from (for + * example) MDRS_LIF to MDRS. + * 08/14/06 wvd v1.10 Tinker with code to copy SPEC + * keywords to new file header. + * 04/07/07 wvd v1.11 Clean up compiler warnings. + * 08/27/07 bot v1.12 Changed TINT to TLONG l.163,214, + * and 215 ; added L to every number + * occurence related to i and j ; + * Changed i to k l.123 to 131 to + * keep an int in this case + * + ******************************************************************************/ + +#include +#include +#include +#include +#include "calfuse.h" + +/* Calfuse variables */ +static char CF_PRGM_ID[] = "cf_pack"; +static char CF_VER_NUM[] = "1.12"; + +int main(int argc, char *argv[]) +{ + /* Variables */ + float obstime, obstime_max, woffset; + float w0, wpc; + int wave_cnum, flux_cnum, error_cnum; + int n_spec, n_best_spec; + long i, j, num_exp, n_rows; + int k; + + char *ttype[] = { "WAVE", "FLUX", "ERROR" }; + char *tform[] = { "1E", "1E", "1E" }; + char *tunit[] = { "ANGSTROMS", "ERG/CM2/S/A", "ERG/CM2/S/A" }; + char *extname[] = { "1ALIF", "1BLIF", "2BLIF", "2ALIF", "1ASIC", "1BSIC", "2BSIC", "2ASIC" }; + char spec_list[][80] = { "NULL", "NULL", "NULL", "NULL", "NULL", "NULL", "NULL", "NULL" }; + + /* New values for archive search keywords */ + float bandwid = 285.; + float centrwv = 1046.; + float wavemin = 904.; + float wavemax = 1189.; + + FILE *pt_file; + char comment[FLEN_COMMENT], spec_lis[80], out_name[80], spec_name[80]; + char aper_act[80], detector[80], segment[80]; + char err_str[80], aper_key[8], combmeth_key[9]; + char keyname[FLEN_KEYWORD], keyvalue[FLEN_VALUE]; + fitsfile *pt_fits, *pt_fits_out; + int status = 0, hdutype = 0; + int nextend_key = 8; + float obstime_key = 0; + + + /*********************************** + ** Enter a timestamp into the log ** + ***********************************/ + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing"); + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + + + /*********************************************************** + ** Check for proper command-line usage and read arguments ** + ***********************************************************/ + if (argc != 3) + cf_if_error("Usage: cf_pack combined_exposure_list out_file_name.fit\n"); + + strcpy(spec_lis, argv[1]); + strcpy(out_name, "!"); + strcat(out_name, argv[2]); /* Force overwrite */ + + /******************** + ** Open input list ** + ********************/ + if ((pt_file = fopen(spec_lis, "r")) == NULL) + { + sprintf(err_str, "Unable to open file %s\n", spec_lis); + cf_if_error(err_str); + } + + /* *********************************************** + ** Determine which spectrum has maximum OBSTIME ** + ** Write input file list to spec_list array. ** + *************************************************/ + n_best_spec = -1; + n_spec = 0; + obstime_max = -1; + + while (fscanf(pt_file, "%80s", spec_name) != EOF) + { + FITS_open_file(&pt_fits, spec_name, READONLY, &status); + FITS_read_key(pt_fits, TFLOAT, "OBSTIME" , &obstime, NULL, &status); + FITS_read_key(pt_fits, TSTRING, "DETECTOR" , &detector, NULL, &status); + FITS_read_key(pt_fits, TSTRING, "APER_ACT" , &aper_act, NULL, &status); + FITS_close_file(pt_fits, &status); + + sprintf(segment, "%2s%3s", detector, aper_act+5); + for (k=0; k<8; k++) + if (!strcmp(segment, extname[k])) { + strcpy(spec_list[k], spec_name); + break; + } + if (obstime_max < obstime) { + n_best_spec = k; + obstime_max = obstime; + } + n_spec++; + } + fclose(pt_file); + if (n_spec == 0) cf_if_error("No valid segments provided"); + if (n_spec != 8) cf_if_warning("Combining fewer than 8 segments"); + + /* *************************************************** + ** Copy header of reference spectrum to output file ** + ** Update a few header keywords. ** + *****************************************************/ + + FITS_open_file(&pt_fits, spec_list[n_best_spec], READONLY, &status); + FITS_create_file(&pt_fits_out, out_name, &status); + FITS_copy_header(pt_fits, pt_fits_out, &status); + FITS_close_file(pt_fits, &status); + + FITS_update_key(pt_fits_out, TSTRING, "FILENAME", (out_name + 1), NULL, &status); + FITS_update_key(pt_fits_out, TSTRING, "DETECTOR", "ALL", NULL, &status); + FITS_update_key(pt_fits_out, TSTRING, "COMB_COR", "COMPLETE", NULL, &status); + + sprintf(aper_key, "%4s", aper_act); + FITS_update_key(pt_fits_out, TSTRING, "APER_ACT", aper_key, NULL, &status); + FITS_update_key(pt_fits_out, TINT, "NEXTEND", &nextend_key, NULL, &status); + + FITS_update_key(pt_fits_out, TFLOAT, "BANDWID", &bandwid, NULL, &status); + FITS_update_key(pt_fits_out, TFLOAT, "CENTRWV", ¢rwv, NULL, &status); + FITS_update_key(pt_fits_out, TFLOAT, "WAVEMIN", &wavemin, NULL, &status); + FITS_update_key(pt_fits_out, TFLOAT, "WAVEMAX", &wavemax, NULL, &status); + + FITS_read_key(pt_fits_out, TLONG, "NSPEC", &num_exp, NULL, &status); + FITS_delete_key(pt_fits_out, "NSPEC", &status); + for (i = 0L; i < num_exp; i++) { + sprintf(keyname, "SPEC%03ld", i+1L); + FITS_delete_key(pt_fits_out, keyname, &status); + sprintf(keyname, "WOFF*%03ld", i+1L); + FITS_delete_key(pt_fits_out, keyname, &status); + fits_delete_key(pt_fits_out, keyname, &status); + if (status != 0) status = 0; + } + + + /* *************************************************** + ** Step through detector segments. + ** Copy spectra into extensions of output file. + *****************************************************/ + for (i = 0L; i < 8L; i++) { + + if (!strncmp(spec_list[i], "NULL", 4)) { + n_rows = 0L; + FITS_create_tbl(pt_fits_out, BINARY_TBL, n_rows, 3, ttype, tform, + tunit, extname[i], &status); + FITS_write_comment(pt_fits_out, "Extension is empty. No data available.", &status); + } + else { + FITS_open_file(&pt_fits, spec_list[i], READONLY, &status); + + FITS_movabs_hdu(pt_fits, 2, &hdutype, &status); + FITS_get_colnum(pt_fits, TRUE, "WAVE", &wave_cnum, &status); + FITS_get_colnum(pt_fits, TRUE, "FLUX", &flux_cnum, &status); + FITS_get_colnum(pt_fits, TRUE, "ERROR", &error_cnum, &status); + FITS_get_num_rows(pt_fits, &n_rows, &status); + + FITS_create_tbl(pt_fits_out, BINARY_TBL, n_rows, 3, ttype, tform, + tunit, extname[i], &status); + + FITS_copy_col(pt_fits, pt_fits_out, wave_cnum, 1, FALSE, &status); + FITS_copy_col(pt_fits, pt_fits_out, flux_cnum, 2, FALSE, &status); + FITS_copy_col(pt_fits, pt_fits_out, error_cnum, 3, FALSE, &status); + + /* Copy various header keywords */ + FITS_read_key(pt_fits, TSTRING, "COMBMETH", combmeth_key, NULL, &status); + FITS_update_key(pt_fits_out, TSTRING, "COMBMETH", combmeth_key, NULL, &status); + + FITS_movabs_hdu(pt_fits, 1, &hdutype, &status); + FITS_read_key(pt_fits, TFLOAT, "W0", &w0, NULL, &status); + FITS_update_key(pt_fits_out, TFLOAT, "W0", &w0, NULL, &status); + FITS_read_key(pt_fits, TFLOAT, "WPC", &wpc, NULL, &status); + FITS_update_key(pt_fits_out, TFLOAT, "WPC", &wpc, NULL, &status); + FITS_read_key(pt_fits, TFLOAT, "OBSTIME", &obstime_key, NULL, &status); + FITS_update_key(pt_fits_out, TFLOAT, "OBSTIME", &obstime_key, NULL, &status); + FITS_read_key(pt_fits, TLONG, "NSPEC", &num_exp, NULL, &status); + FITS_update_key(pt_fits_out, TLONG, "NSPEC", &num_exp, NULL, &status); + + for (j = 0L; j < num_exp; j++) { + sprintf(keyname, "SPEC%03ld", j+1L); + FITS_read_key(pt_fits, TSTRING, keyname, keyvalue, NULL, &status); + FITS_update_key(pt_fits_out, TSTRING, keyname, keyvalue, NULL, &status); + sprintf(keyname, "WOFF%03ld", j+1L); + fits_read_key(pt_fits, TFLOAT, keyname, &woffset, comment, &status); + if (status) { + status = 0; + woffset = 0.; + sprintf(comment, "[A]"); + } + FITS_update_key(pt_fits_out, TFLOAT, keyname, &woffset, comment, &status); + } + FITS_close_file(pt_fits, &status); + } + } + if (n_spec != 8) { + char datestr[FLEN_CARD]; + int timeref; + FITS_movabs_hdu(pt_fits_out, 1, &hdutype, &status); + FITS_write_comment(pt_fits_out, " ", &status); + sprintf(comment, "Segments"); + for (i=0L; i<8L; i++) if (!strncmp(spec_list[i], "NULL", 4)) + sprintf(comment, "%s %s", comment, extname[i]); + sprintf(comment, "%s are missing.", comment); + FITS_write_comment(pt_fits_out, comment, &status); + sprintf(comment, "Extensions"); + for (i=0L; i<8L; i++) if (!strncmp(spec_list[i], "NULL", 4)) + sprintf(comment, "%s %ld", comment, i+1L); + sprintf(comment, "%s of this file contain no data.", comment); + FITS_write_comment(pt_fits_out, comment, &status); + fits_get_system_time(datestr, &timeref, &status); + sprintf(comment, "CalFUSE v%s %.10s", CALFUSE_VERSION, datestr); + FITS_write_comment(pt_fits_out, comment, &status); + FITS_write_comment(pt_fits_out, " ", &status); + } + + /* Add an index to the file extensions. */ + FITS_movabs_hdu(pt_fits_out, 1, &hdutype, &status); + FITS_write_comment(pt_fits_out, " ", &status); + sprintf(comment, "Index to file extensions:"); + FITS_write_comment(pt_fits_out, comment, &status); + sprintf(comment, "Extension 0 This Header"); + FITS_write_comment(pt_fits_out, comment, &status); + for (i=0L; i<8L; i++) { + sprintf(comment, "Extension %ld %s", i+1L, extname[i]); + FITS_write_comment(pt_fits_out, comment, &status); + } + FITS_write_comment(pt_fits_out, " ", &status); + + FITS_close_file(pt_fits_out, &status); + + return(0); +} diff --git a/src/analysis/cf_reflux.c b/src/analysis/cf_reflux.c new file mode 100644 index 0000000..1a2511f --- /dev/null +++ b/src/analysis/cf_reflux.c @@ -0,0 +1,148 @@ +/***************************************************************************** + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + * + * Synopsis: cf_reflux input_file output_file aeff_cal1 [aeff_cal2] + * + * Description: Program applies a new flux calibration to an extracted + * spectral file. If two effective-area files are given, + * program interpolates between them based on the MDJ + * of the exposure. + * Program writes a history line to output file header. + * + * Arguments: input_file FUSE extracted spectral file (fcal.fit) + * output_file Copy of input file with modified flux cal. + * aeff_cal1 Effective-area curve + * aeff_cal2 Optional effective-area curve, needed only + * if you wish to interpolate. + * + * Returns: none + * + * History: 06/02/05 1.1 wvd Based on programs cf_uninterp and + * cf_extract_spectra. + * + ****************************************************************************/ + +#include +#include +#include +#include +#include "calfuse.h" + +static char CF_PRGM_ID[] = "cf_reflux"; +static char CF_VER_NUM[] = "1.1"; + +int main(int argc, char *argv[]) +{ + char aper_act[FLEN_VALUE], datestr[FLEN_VALUE]; + int status=0, hdutype; + int aperture, timeref; + long i, frow=1, felement=1, nout; + float exptime, wpc; + float *wave, *flux, *error, *weights, *bkgd; + unsigned char *channel; + fitsfile *infits, *outfits; + + /* Enter a timestamp into the log. */ + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing"); + + /* Initialize error checking */ + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + + if (argc < 4) { + printf("Usage: cf_reflux input_file output_file aeff_cal1 [aeff_cal2]\n"); + return 0; + } + + /* Copy input spectral file to output. Close input file. */ + FITS_open_file(&infits, argv[1], READONLY, &status); + FITS_create_file(&outfits, argv[2], &status); + FITS_copy_hdu(infits, outfits, 0, &status); + FITS_movrel_hdu(infits, 1, &hdutype, &status); + FITS_copy_hdu(infits, outfits, 0, &status); + FITS_close_file(infits, &status); + + /* Modify output file keywords. */ + FITS_movabs_hdu(outfits, 1, &hdutype, &status); + FITS_update_key(outfits, TSTRING, "FILENAME", argv[2], NULL, &status); + FITS_update_key(outfits, TSTRING, "AEFF1CAL", argv[3], NULL, &status); + if (argc == 5) + FITS_update_key(outfits, TSTRING, "AEFF2CAL", argv[4], NULL, &status); + else + FITS_update_key(outfits, TSTRING, "AEFF2CAL", argv[3], NULL, &status); + + /* Add HISTORY lines to the output file */ + fits_get_system_time(datestr, &timeref, &status); + strcat(datestr, " File recalibrated using cf_reflux"); + FITS_write_history(outfits, datestr, &status); + + /* Through which aperture was this spectrum obtained? */ + FITS_read_key(outfits, TSTRING, "APER_ACT", aper_act, NULL, &status); + if (!strcmp(aper_act, "HIRS_LIF")) aperture = 1; + else if (!strcmp(aper_act, "MDRS_LIF")) aperture = 2; + else if (!strcmp(aper_act, "LWRS_LIF")) aperture = 3; + else if (!strcmp(aper_act, "HIRS_SIC")) aperture = 5; + else if (!strcmp(aper_act, "MDRS_SIC")) aperture = 6; + else if (!strcmp(aper_act, "LWRS_SIC")) aperture = 7; + else { + printf("Unable to interpret header keyword APER_ACT = %s\n", aper_act); + FITS_close_file(outfits, &status); + return 0; + } + + /* Read WAVE, FLUX, ERROR, WEIGHTS, and BKGD arrays */ + FITS_movabs_hdu(outfits, 2, &hdutype, &status); + nout = cf_read_col(outfits, TFLOAT, "WAVE", (void **) &wave); + nout = cf_read_col(outfits, TFLOAT, "FLUX", (void **) &flux); + nout = cf_read_col(outfits, TFLOAT, "ERROR", (void **) &error); + nout = cf_read_col(outfits, TFLOAT, "WEIGHTS", (void **) &weights); + nout = cf_read_col(outfits, TFLOAT, "BKGD", (void **) &bkgd); + channel = (unsigned char *) cf_malloc(sizeof(unsigned char) * nout); + + /* Compute inputs to flux-calibration routine */ + for (i = 0; i < nout; i++) { + channel[i] = (unsigned char) aperture; + if (flux[i] != 0.) error[i] /= flux[i]; /* Relative error */ + flux[i] = weights[i] - bkgd[i]; /* Units are counts */ + } + + /* Apply flux calibration */ + FITS_movabs_hdu(outfits, 1, &hdutype, &status); + FITS_update_key(outfits, TSTRING, "FLUX_COR", "PERFORM", NULL, &status) ; + cf_convert_to_ergs(outfits, nout, flux, flux, channel, wave); + + /* Convert flux and error arrays to units of erg/cm2/s/A. */ + FITS_movabs_hdu(outfits, 1, &hdutype, &status); + FITS_read_key(outfits, TFLOAT, "EXPTIME", &exptime, NULL, &status); + FITS_read_key(outfits, TFLOAT, "WPC", &wpc, NULL, &status); + if (exptime < 1) { + printf ("EXPTIME = %g. Exiting.\n", exptime); + FITS_close_file(outfits, &status); + return 0; + } + for (i = 0; i < nout; i++) { + flux[i] /= exptime * wpc; + error[i] *= flux[i]; + } + + /* Write new flux and error arrays to the output file. */ + FITS_movabs_hdu(outfits, 2, &hdutype, &status); + FITS_write_col(outfits, TFLOAT, 2, frow, felement, nout, flux, &status); + FITS_write_col(outfits, TFLOAT, 3, frow, felement, nout, error, &status); + + /* Close output file. */ + FITS_close_file(outfits, &status); + + /* Free memory. */ + free(wave); + free(flux); + free(error); + free(weights); + free(bkgd); + free(channel); + + /* Enter a timestamp into the log. */ + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing"); + return 0; +} diff --git a/src/analysis/cf_ttag_to_hist.c b/src/analysis/cf_ttag_to_hist.c new file mode 100644 index 0000000..070a1a6 --- /dev/null +++ b/src/analysis/cf_ttag_to_hist.c @@ -0,0 +1,463 @@ +/***************************************************************************** + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ***************************************************************************** + * + * Synopsis: cf_ttag_to_hist input_file output_file + * + * Description: Creates a FITS 2D image from a time-tagged data file (FITS + * binary table of photon address data). The 2D SIA table is + * written to the first extension (HDU=1) and the other four + * extensions contain the two apertures and stim-lamp pulses. + * + * + * Arguments: input_file Input raw time-tagged FITS file name + * output_file Output raw histogram FITS file name + * + * Returns: none + * + * History: 03/28/00 1.01 peb Begin work + * 12/21/00 1.03 peb Fixed type mismatched in cfitsio + * calls + * + ****************************************************************************/ + +#include +#include +#include +#include "calfuse.h" + +#define STIMX 2048 + +static char CF_PRGM_ID[] = "cf_ttag_to_hist"; +static char CF_VER_NUM[] = "1.03"; + +int main(int argc, char *argv[]) +{ + fitsfile *infits, *outfits; + char buffer[FLEN_CARD], *siabuf; + int status = 0, intnull, anynull, hdutype, fcol, begkey=5, endkey; + int j, k1, kx1, ky1, k2, kx2, ky2, k3, kx3, ky3, k4, kx4, ky4; + int naxis, naxis1, naxis2, naxis3, naxis4; + int *posx, *posy, npixel, fpixel=1, frow, felem, nrow; + int begx1, begy1, begx2, begy2, begx3, begy3, begx4, begy4; + int rcnt1, rcnt2, rcnt3, rcnt4, min1, min2, min3, min4; + int max1, max2, max3, max4, binx, biny; + int keynum, nextend=4, extver=0, bzero=32768, bscale=1; + short *outbuf1, *outbuf2, *outbuf3, *outbuf4; + long naxes[2], naxes1[2], naxes2[2], naxes3[2], naxes4[2]; + float fzero=0.0; + double ra_targ, dec_targ, pa_aper, equinox; + + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + /* + * Open input ttag data file and create output file. + */ + FITS_open_file(&infits, argv[1], READONLY, &status); + FITS_create_file(&outfits, argv[2], &status); + /* + * Create primary image header + */ + naxis = 2; naxes[0] = 8; naxes[1] = 64; + FITS_create_img(outfits, BYTE_IMG, naxis, naxes, &status); + /* + * Copy header from primary HDU of the input file to the output file, + * but leave the primary HDU data array empty. + */ + FITS_read_key(infits, TINT, "SPECBINX", &binx, buffer, &status); + FITS_read_key(infits, TINT, "SPECBINY", &biny, buffer, &status); + FITS_get_hdrpos(infits, &endkey, &keynum, &status); + for (j = begkey; j <= endkey; j++) { + FITS_read_record(infits, j, buffer, &status); + FITS_write_record(outfits, buffer, &status); + } + FITS_update_key(outfits, TINT, "NEXTEND", &nextend, NULL, &status); + FITS_update_key(outfits, TSTRING, "FILETYPE", "RAW HISTOGRAM", + NULL, &status); + FITS_update_key(outfits, TSTRING, "INSTMODE", "HIST", NULL, &status); + /* + * Populate primary data or SIA table. + */ + npixel = naxes[0]*naxes[1]; + siabuf = cf_malloc(npixel); + memset(siabuf, 1, npixel); + FITS_write_img(outfits, TBYTE, fpixel, npixel, siabuf, &status); + free(siabuf); + /* + * Move to the 1st HDU of the input file and read the binary table. + */ + FITS_movabs_hdu(infits, 2, &hdutype, &status); + if(hdutype != BINARY_TBL) { + cf_if_error("Error: This HDU is not a binary table!"); + } + FITS_read_key(infits, TINT, "NAXIS2", &nrow, buffer, &status); + FITS_read_key(infits, TDOUBLE, "RA_TARG", &ra_targ, buffer, &status); + FITS_read_key(infits, TDOUBLE, "DEC_TARG", &dec_targ, buffer, &status); + FITS_read_key(infits, TDOUBLE, "PA_APER", &pa_aper, buffer, &status); + FITS_read_key(infits, TDOUBLE, "EQUINOX", &equinox, buffer, &status); + /* + * Allocate memory for X, Y photon event arrays + */ + posx = cf_malloc(sizeof(int) * nrow); + posy = cf_malloc(sizeof(int) * nrow); + /* + * Read X and Y from table + */ + frow = felem = 1; intnull = anynull = 0; + + FITS_get_colnum(infits, TRUE, "X", &fcol, &status); + FITS_read_col(infits, TINT, fcol, frow, felem, nrow, &intnull, + posx, &anynull, &status); + FITS_get_colnum(infits, TRUE, "Y", &fcol, &status); + FITS_read_col(infits, TINT, fcol, frow, felem, nrow, &intnull, + posy, &anynull, &status); + /* + * Create buffers (outbufn) to hold binned images, and + * initialize them. + */ + naxis1 = 2; naxes1[0] = NXMAX; naxes1[1] = 20; + begx1 = 0; begy1 = 48; rcnt1 = 56; min1 = max1 = 0; + outbuf1 = cf_calloc(naxes1[0]*naxes1[1], sizeof(short)); + + naxis2 = 2; naxes2[0] = NXMAX; naxes2[1] = 20; + begx2 = 0; begy2 = 76; rcnt2 = 57; min2 = max2 = 0; + outbuf2 = cf_calloc(naxes2[0]*naxes2[1], sizeof(short)); + + naxis3 = 2; naxes3[0] = STIMX; naxes3[1] = 2; + begx3 = 0; begy3 = 76; rcnt3 = 1; min3 = max3 = 0; + outbuf3 = cf_calloc(naxes3[0]*naxes3[1], sizeof(short)); + + naxis4 = 2; naxes4[0] = STIMX; naxes4[1] = 2; + begx4 = 14336; begy4 = 78; rcnt4 = 1; min4 = max4 = 0; + outbuf4 = cf_calloc(naxes4[0]*naxes4[1], sizeof(short)); + + for(j = 0; j < nrow; j++) { + kx1 = posx[j]/binx-begx1; + ky1 = posy[j]/biny-begy1; + if (kx1 >= 0 && kx1 < naxes1[0] && ky1 >= 0 && ky1 < naxes1[1]) { + k1 = naxes1[0]*ky1 + kx1; + outbuf1[k1] += 1; + if (outbuf1[k1] < min1) + min1 = outbuf1[k1]; + if (outbuf1[k1] > max1) + max1 = outbuf1[k1]; + } + kx2 = posx[j]/binx-begx2; + ky2 = posy[j]/biny-begy2; + if (kx2 >= 0 && kx2 < naxes2[0] && ky2 >= 0 && ky2 < naxes2[1]) { + k2 = naxes2[0]*ky2 + kx2; + outbuf2[k2] += 1; + if (outbuf2[k2] < min2) + min2 = outbuf2[k2]; + if (outbuf2[k2] > max2) + max2 = outbuf2[k2]; + } + kx3 = posx[j]/binx-begx3; + ky3 = posy[j]/biny-begy3; + if (kx3 >= 0 && kx3 < naxes3[0] && ky3 >= 0 && ky3 < naxes3[1]) { + k3 = naxes3[0]*ky3 + kx3; + outbuf3[k3] += 1; + if (outbuf3[k3] < min3) + min3 = outbuf3[k3]; + if (outbuf3[k3] > max3) + max3 = outbuf3[k3]; + } + kx4 = posx[j]/binx-begx4; + ky4 = posy[j]/biny-begy4; + if (kx4 >= 0 && kx4 < naxes4[0] && ky4 >= 0 && ky4 < naxes4[1]) { + k4 = naxes4[0]*ky4 + kx4; + outbuf4[k4] += 1; + if (outbuf4[k4] < min4) + min4 = outbuf4[k4]; + if (outbuf4[k4] > max4) + max4 = outbuf4[k4]; + } + } + /* + * Extension 1 + */ + FITS_create_img(outfits, SHORT_IMG, naxis1, naxes1, &status); + extver = 1; + + FITS_write_key(outfits, TSTRING, "EXTNAME", "HISTOGRAM", + "name of this extension", &status); + FITS_write_key(outfits, TINT, "EXTVER" , &extver, + "extension version number", &status); + FITS_write_key(outfits, TINT, "BZERO" , &bzero, + "image brightness offset", &status); + FITS_write_key(outfits, TINT, "BSCALE" , &bscale, + "image brightness scale", &status); + + FITS_write_comment(outfits, " ", &status); + FITS_write_comment(outfits, " ", &status); + FITS_write_comment(outfits, + " World Coordinate System and Related Parameters", + &status); + FITS_write_comment(outfits, " ", &status); + + FITS_write_key(outfits, TFLOAT, "CRPIX1", &fzero, + "x-coordinate of reference pixel", &status); + FITS_write_key(outfits, TFLOAT, "CRPIX2", &fzero, + "y-coordinate of reference pixel", &status); + FITS_write_key(outfits, TFLOAT, "CRVAL1", &fzero, + "first axis value at reference pixel", &status); + FITS_write_key(outfits, TFLOAT, "CRVAL2", &fzero, + "second axis value at reference pixel", &status); + FITS_write_key(outfits, TSTRING, "CTYPE1", "LAMBDA", + "the coordinate type for the first axis", &status); + FITS_write_key(outfits, TSTRING, "CYTPE2", "ANGLE", + "the coordinate type for the second axis", &status); + FITS_write_key(outfits, TFLOAT, "CD1_1", &fzero, + "partial of first axis coordinate w.r.t. x", &status); + FITS_write_key(outfits, TFLOAT, "CD1_2", &fzero, + "partial of first axis coordinate w.r.t. y", &status); + FITS_write_key(outfits, TFLOAT, "CD2_1", &fzero, + "partial of second axis coordinate w.r.t. x", &status); + FITS_write_key(outfits, TFLOAT, "CD2_2", &fzero, + "partial of second axis coordinate w.r.t. y", &status); + FITS_write_key(outfits, TDOUBLE, "RA_TARG", &ra_targ, + "RA of reference aperture center", &status); + FITS_write_key(outfits, TDOUBLE, "DEC_TARG", &dec_targ, + "Declination of reference aperture center", &status); + FITS_write_key(outfits, TDOUBLE, "PA_APER", &pa_aper, + "Position Angle of reference aperture center", &status); + FITS_write_key(outfits, TDOUBLE, "EQUINOX", &equinox, + "equinox of celestial coord. system", &status); + + FITS_write_comment(outfits, " ", &status); + FITS_write_comment(outfits, " HISTOGRAM REGION PARAMETERS", &status); + FITS_write_comment(outfits, " ", &status); + + FITS_write_key(outfits, TINT, "XORIGIN", &begx1, + "offset of this region in the x dimension", &status); + FITS_write_key(outfits, TINT, "YORIGIN", &begy1, + "offset of this region in the y dimension", &status); + FITS_write_key(outfits, TINT, "RCOUNT", &rcnt1, + "count of rectangles in this region", &status); + FITS_write_key(outfits, TINT, "MINVAL", &min1, + "minimum value within rectangles", &status); + FITS_write_key(outfits, TINT, "MAXVAL", &max1, + "maximum value within rectangles", &status); + + FITS_write_img(outfits, TSHORT, fpixel, naxes1[0]*naxes1[1], + outbuf1, &status); + /* + * Extension 2 + */ + FITS_create_img(outfits, SHORT_IMG, naxis2, naxes2, &status); + extver = 2; + + FITS_write_key(outfits, TSTRING, "EXTNAME", "HISTOGRAM", + "name of this extension", &status); + FITS_write_key(outfits, TINT, "EXTVER" , &extver, + "extension version number", &status); + FITS_write_key(outfits, TINT, "BZERO" , &bzero, + "image brightness offset", &status); + FITS_write_key(outfits, TINT, "BSCALE" , &bscale, + "image brightness scale", &status); + + FITS_write_comment(outfits, " ", &status); + FITS_write_comment(outfits, " ", &status); + FITS_write_comment(outfits, + " World Coordinate System and Related Parameters", + &status); + FITS_write_comment(outfits, " ", &status); + + FITS_write_key(outfits, TFLOAT, "CRPIX1", &fzero, + "x-coordinate of reference pixel", &status); + FITS_write_key(outfits, TFLOAT, "CRPIX2", &fzero, + "y-coordinate of reference pixel", &status); + FITS_write_key(outfits, TFLOAT, "CRVAL1", &fzero, + "first axis value at reference pixel", &status); + FITS_write_key(outfits, TFLOAT, "CRVAL2", &fzero, + "second axis value at reference pixel", &status); + FITS_write_key(outfits, TSTRING, "CTYPE1", "LAMBDA", + "the coordinate type for the first axis", &status); + FITS_write_key(outfits, TSTRING, "CYTPE2", "ANGLE", + "the coordinate type for the second axis", &status); + FITS_write_key(outfits, TFLOAT, "CD1_1", &fzero, + "partial of first axis coordinate w.r.t. x", &status); + FITS_write_key(outfits, TFLOAT, "CD1_2", &fzero, + "partial of first axis coordinate w.r.t. y", &status); + FITS_write_key(outfits, TFLOAT, "CD2_1", &fzero, + "partial of second axis coordinate w.r.t. x", &status); + FITS_write_key(outfits, TFLOAT, "CD2_2", &fzero, + "partial of second axis coordinate w.r.t. y", &status); + FITS_write_key(outfits, TDOUBLE, "RA_TARG", &ra_targ, + "RA of reference aperture center", &status); + FITS_write_key(outfits, TDOUBLE, "DEC_TARG", &dec_targ, + "Declination of reference aperture center", &status); + FITS_write_key(outfits, TDOUBLE, "PA_APER", &pa_aper, + "Position Angle of reference aperture center", &status); + FITS_write_key(outfits, TDOUBLE, "EQUINOX", &equinox, + "equinox of celestial coord. system", &status); + + FITS_write_comment(outfits, " ", &status); + FITS_write_comment(outfits, " HISTOGRAM REGION PARAMETERS", &status); + FITS_write_comment(outfits, " ", &status); + + FITS_write_key(outfits, TINT, "XORIGIN", &begx2, + "offset of this region in the x dimension", &status); + FITS_write_key(outfits, TINT, "YORIGIN", &begy2, + "offset of this region in the y dimension", &status); + FITS_write_key(outfits, TINT, "RCOUNT", &rcnt2, + "count of rectangles in this region", &status); + FITS_write_key(outfits, TINT, "MINVAL", &min2, + "minimum value within rectangles", &status); + FITS_write_key(outfits, TINT, "MAXVAL", &max2, + "maximum value within rectangles", &status); + + FITS_write_img(outfits, TSHORT, fpixel, naxes2[0]*naxes2[1], + outbuf2, &status); + /* + * Extension 3 + */ + FITS_create_img(outfits, SHORT_IMG, naxis3, naxes3, &status); + extver = 3; + + FITS_write_key(outfits, TSTRING, "EXTNAME", "HISTOGRAM", + "name of this extension", &status); + FITS_write_key(outfits, TINT, "EXTVER" , &extver, + "extension version number", &status); + FITS_write_key(outfits, TINT, "BZERO" , &bzero, + "image brightness offset", &status); + FITS_write_key(outfits, TINT, "BSCALE" , &bscale, + "image brightness scale", &status); + + FITS_write_comment(outfits, " ", &status); + FITS_write_comment(outfits, " ", &status); + FITS_write_comment(outfits, + " World Coordinate System and Related Parameters", + &status); + FITS_write_comment(outfits, " ", &status); + + FITS_write_key(outfits, TFLOAT, "CRPIX1", &fzero, + "x-coordinate of reference pixel", &status); + FITS_write_key(outfits, TFLOAT, "CRPIX2", &fzero, + "y-coordinate of reference pixel", &status); + FITS_write_key(outfits, TFLOAT, "CRVAL1", &fzero, + "first axis value at reference pixel", &status); + FITS_write_key(outfits, TFLOAT, "CRVAL2", &fzero, + "second axis value at reference pixel", &status); + FITS_write_key(outfits, TSTRING, "CTYPE1", "LAMBDA", + "the coordinate type for the first axis", &status); + FITS_write_key(outfits, TSTRING, "CYTPE2", "ANGLE", + "the coordinate type for the second axis", &status); + FITS_write_key(outfits, TFLOAT, "CD1_1", &fzero, + "partial of first axis coordinate w.r.t. x", &status); + FITS_write_key(outfits, TFLOAT, "CD1_2", &fzero, + "partial of first axis coordinate w.r.t. y", &status); + FITS_write_key(outfits, TFLOAT, "CD2_1", &fzero, + "partial of second axis coordinate w.r.t. x", &status); + FITS_write_key(outfits, TFLOAT, "CD2_2", &fzero, + "partial of second axis coordinate w.r.t. y", &status); + FITS_write_key(outfits, TDOUBLE, "RA_TARG", &ra_targ, + "RA of reference aperture center", &status); + FITS_write_key(outfits, TDOUBLE, "DEC_TARG", &dec_targ, + "Declination of reference aperture center", &status); + FITS_write_key(outfits, TDOUBLE, "PA_APER", &pa_aper, + "Position Angle of reference aperture center", &status); + FITS_write_key(outfits, TDOUBLE, "EQUINOX", &equinox, + "equinox of celestial coord. system", &status); + + FITS_write_comment(outfits, " ", &status); + FITS_write_comment(outfits, " HISTOGRAM REGION PARAMETERS", &status); + FITS_write_comment(outfits, " ", &status); + + FITS_write_key(outfits, TINT, "XORIGIN", &begx3, + "offset of this region in the x dimension", &status); + FITS_write_key(outfits, TINT, "YORIGIN", &begy3, + "offset of this region in the y dimension", &status); + FITS_write_key(outfits, TINT, "RCOUNT", &rcnt3, + "count of rectangles in this region", &status); + FITS_write_key(outfits, TINT, "MINVAL", &min3, + "minimum value within rectangles", &status); + FITS_write_key(outfits, TINT, "MAXVAL", &max3, + "maximum value within rectangles", &status); + + FITS_write_img(outfits, TSHORT, fpixel, naxes3[0]*naxes3[1], + outbuf3, &status); + /* + * Extension 4 + */ + FITS_create_img(outfits, SHORT_IMG, naxis4, naxes4, &status); + extver = 4; + + FITS_write_key(outfits, TSTRING, "EXTNAME", "HISTOGRAM", + "name of this extension", &status); + FITS_write_key(outfits, TINT, "EXTVER" , &extver, + "extension version number", &status); + FITS_write_key(outfits, TINT, "BZERO" , &bzero, + "image brightness offset", &status); + FITS_write_key(outfits, TINT, "BSCALE" , &bscale, + "image brightness scale", &status); + + FITS_write_comment(outfits, " ", &status); + FITS_write_comment(outfits, " ", &status); + FITS_write_comment(outfits, + " World Coordinate System and Related Parameters", + &status); + FITS_write_comment(outfits, " ", &status); + + FITS_write_key(outfits, TFLOAT, "CRPIX1", &fzero, + "x-coordinate of reference pixel", &status); + FITS_write_key(outfits, TFLOAT, "CRPIX2", &fzero, + "y-coordinate of reference pixel", &status); + FITS_write_key(outfits, TFLOAT, "CRVAL1", &fzero, + "first axis value at reference pixel", &status); + FITS_write_key(outfits, TFLOAT, "CRVAL2", &fzero, + "second axis value at reference pixel", &status); + FITS_write_key(outfits, TSTRING, "CTYPE1", "LAMBDA", + "the coordinate type for the first axis", &status); + FITS_write_key(outfits, TSTRING, "CYTPE2", "ANGLE", + "the coordinate type for the second axis", &status); + FITS_write_key(outfits, TFLOAT, "CD1_1", &fzero, + "partial of first axis coordinate w.r.t. x", &status); + FITS_write_key(outfits, TFLOAT, "CD1_2", &fzero, + "partial of first axis coordinate w.r.t. y", &status); + FITS_write_key(outfits, TFLOAT, "CD2_1", &fzero, + "partial of second axis coordinate w.r.t. x", &status); + FITS_write_key(outfits, TFLOAT, "CD2_2", &fzero, + "partial of second axis coordinate w.r.t. y", &status); + FITS_write_key(outfits, TDOUBLE, "RA_TARG", &ra_targ, + "RA of reference aperture center", &status); + FITS_write_key(outfits, TDOUBLE, "DEC_TARG", &dec_targ, + "Declination of reference aperture center", &status); + FITS_write_key(outfits, TDOUBLE, "PA_APER", &pa_aper, + "Position Angle of reference aperture center", &status); + FITS_write_key(outfits, TDOUBLE, "EQUINOX", &equinox, + "equinox of celestial coord. system", &status); + + FITS_write_comment(outfits, " ", &status); + FITS_write_comment(outfits, " HISTOGRAM REGION PARAMETERS", &status); + FITS_write_comment(outfits, " ", &status); + + FITS_write_key(outfits, TINT, "XORIGIN", &begx4, + "offset of this region in the x dimension", &status); + FITS_write_key(outfits, TINT, "YORIGIN", &begy4, + "offset of this region in the y dimension", &status); + FITS_write_key(outfits, TINT, "RCOUNT", &rcnt4, + "count of rectangles in this region", &status); + FITS_write_key(outfits, TINT, "MINVAL", &min4, + "minimum value within rectangles", &status); + FITS_write_key(outfits, TINT, "MAXVAL", &max4, + "maximum value within rectangles", &status); + + FITS_write_img(outfits, TSHORT, fpixel, naxes4[0]*naxes4[1], + outbuf4, &status); + /* + * Free memory and close the input and output files + */ + free(outbuf1); + free(outbuf2); + free(outbuf3); + free(outbuf4); + free(posx); + free(posy); + + FITS_close_file(outfits, &status); + FITS_close_file(infits, &status); + + return 0; +} diff --git a/src/analysis/cf_wrspec7.c b/src/analysis/cf_wrspec7.c new file mode 100644 index 0000000..979046b --- /dev/null +++ b/src/analysis/cf_wrspec7.c @@ -0,0 +1,58 @@ +/******************************************************************************* + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ******************************************************************************* + * + * Synopsis: cf_wrspec7(fitsfile *outfits, long npts, float *wave, float *flux, + * float *error, long *counts, float *weights, + * float *bkgd,short *pothole) + * + * Description: Write a file containing a FUSE 2D spectrum. + * + * Arguments: fitsfile *fname Output FITS file structure + * + * Returns: none + * + * History: 12/15/03 bjg Begin work from cf_wrspec4. + * 01/12/04 bjg Call to fits_create_tbl with nrow=1 + * instead of npts + * 03/22/04 bjg Change POTHOLE to QUALITY + * 03/25/04 bjg Moved time stamp writing to beginning + * of routine + * 04/07/05 v1.1 tc Create a multi-rows table rather than + * a unique vector in a cell + * + ******************************************************************************/ + +#include +#include +#include "calfuse.h" + +static char CF_PRGM_ID[] = "cf_wrspec7"; +static char CF_VER_NUM[] = "1.1"; + +void cf_wrspec7(fitsfile *outfits, long npts, float *wave, float *flux, + float *error, long *counts, float *weights,float *bkgd,short *pothole) +{ + char *ttype[] = {"WAVE", "FLUX", "ERROR", "COUNTS", "WEIGHTS", "BKGD", "QUALITY" }; + char *tform[] = {"1E", "1E", "1E", "1J", "1E", "1E", "1I"}; + char *tunit[] = {"ANGSTROMS", "ERG/CM2/S/A", "ERG/CM2/S/A", "COUNTS", "COUNTS", "COUNTS", "UNITLESS"}; + char extname[] = "FUSE 2D Spectrum"; + int tfields = 7, status = 0; + + /* Write time stamp to log file. */ + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, ""); + + fits_create_tbl(outfits, BINARY_TBL, 1, tfields, ttype, tform, tunit, extname, &status); + + /* Write out the data. */ + FITS_write_col(outfits, TFLOAT, 1, 1L, 1L, npts, wave, &status); + FITS_write_col(outfits, TFLOAT, 2, 1L, 1L, npts, flux, &status); + FITS_write_col(outfits, TFLOAT, 3, 1L, 1L, npts, error, &status ); + FITS_write_col(outfits, TLONG, 4, 1L, 1L, npts, counts, &status); + FITS_write_col(outfits, TFLOAT, 5, 1L, 1L, npts, weights, &status); + FITS_write_col(outfits, TFLOAT, 6, 1L, 1L, npts, bkgd, &status); + FITS_write_col(outfits, TSHORT, 7, 1L, 1L, npts, pothole, &status); + +} diff --git a/src/analysis/cf_wrspec_cf2.c b/src/analysis/cf_wrspec_cf2.c new file mode 100644 index 0000000..883c3d5 --- /dev/null +++ b/src/analysis/cf_wrspec_cf2.c @@ -0,0 +1,120 @@ +/******************************************************************************* + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ******************************************************************************* + * + * Synopsis: cf_wrspec_cf2(fitsfile *outfits, int npts, float *wave, + * float *spec, float *errs, short *qual, + * float *counts, float *cntserr, int ncol, + * int areaflag); + * + * Description: Write a file containing a FUSE 1D spectrum, in a format + * compatible with Calfuse 2.4 and earlier. + * + * Arguments: char *fname Output file name + * float *wave wavelengths + * float *spec spectrum + * float *errs associated 1-sigma error bars + * short *qual associated quality flags + * float *counts total counts in column + * float *cntserr 1-sigma error bar on total counts + * int ncol specifies 4 or 6 column format + * int areaflag 0 if spectrum column is FLUX + * 1 if spectrum column is AREA + * + * Returns: none + * + * History: 05/04/98 gak Begin work. + * 04/20/99 emm Added FITS_ error checking routines, + * converted qual flags to BYTE. + * 06/07/99 1.2 peb Added reporting of version number. + * 10/22/99 1.3 emm Added total counts column. + * 10/22/99 1.4 emm Added total counts errors column. + * 10/22/99 1.5 emm totcnts and errors are just duplicates + * of flux and error for now + * 10/29/99 1.6 emm counts and cntserr are now read in + * from calling program. + * 12/21/99 1.7 emm Quality flags now short (1I) instead + * of byte char (1B). + * 11/30/01 1.8 wvd Don't write timestamp to log file. + * 03/08/04 1.9 jwk allow tfields=4 or 6, and option to + * change "FLUX" col to "AREA"; for use + * with cf_arith + * 04/05/04 bjg Include string.h + * Write timestamp + * + ******************************************************************************/ + +#include +#include +#include +#include "calfuse.h" + +static char CF_PRGM_ID[] = "cf_wrspec_cf2"; +static char CF_VER_NUM[] = "1.9"; + +void cf_wrspec_cf2(fitsfile *outfits, int npts, float *wave, float *spec, + float *errs, short *qual, float *counts, float *cntserr, + int ncol, int areaflag) +{ + char *ttype[] = {"WAVE", "FLUX", "ERROR", "QUALITY", "COUNTS","CNTSERR"}; + char *tform[] = {"1E", "1E", "1E", "1I", "1E", "1E"}; + char *tunit[] = {"ANGSTROMS", "ERG/CM2/S/A", "ERG/CM2/S/A", " ","COUNTS","COUNTS"}; + char extname[] = "FUSE 1D Spectrum"; + int tfields = 6, + status = 0; + long felem = 1, + frow = 1; + +/* Write time stamp to log file. */ + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, ""); + + +/* Create the extension for the data in the output file. + Columns will be + WAVE 1E + FLUX 1E + ERROR 1E + QUALITY 1B + TOTAL COUNTS 1E Same as FLUX column for now + COUNTS ERRORS 1E Same as ERROR column for now +*/ + + if (ncol == 4) + { + tfields = 4; + if (areaflag) + { + strcpy(ttype[1], "AREA"); + strcpy(tunit[1], "CM^2"); + strcpy(tunit[2], "CM^2"); + } + } + + fits_create_tbl (outfits, BINARY_TBL, (long)npts, tfields, ttype, + tform, tunit, extname, &status); + +/* Write out the data. */ + FITS_write_col(outfits, TFLOAT, 1, frow, felem, (long)npts, + wave, &status); + + FITS_write_col(outfits, TFLOAT, 2, frow, felem, (long)npts, + spec, &status); + + FITS_write_col(outfits, TFLOAT, 3, frow, felem, (long)npts, + errs, &status ); + + FITS_write_col(outfits, TSHORT, 4, frow, felem, (long)npts, + qual, &status); + + if (tfields == 6) + { + FITS_write_col(outfits, TFLOAT, 5, frow, felem, (long)npts, + counts, &status); + + FITS_write_col(outfits, TFLOAT, 6, frow, felem, (long)npts, + cntserr, &status); + } + +} diff --git a/src/analysis/cf_xcorr.c b/src/analysis/cf_xcorr.c new file mode 100644 index 0000000..383f281 --- /dev/null +++ b/src/analysis/cf_xcorr.c @@ -0,0 +1,303 @@ +/******************************************************************************* + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ******************************************************************************* + * + * Usage: cf_xcorr exposure_list exp_shift_list + * + * Description: Determine pixel shifts between exposures. The + * reference spectrum is the one having the longest exposure + * time. The input list (ASCII) is the set of exposures to process, + * the output list (ASCII) has 3 columns: exposure name, shift and + * sigma_shift. Sigma_shift = -1 corresponds to non-detected shift. + * Sigma_shift = 1 indicates a valid shift value. + * The reference exposure always has shift and sigma_shift of 0. + * + * History: 04/07/05 tc v1.0 First release + * 04/15/05 tc v1.1 Use cf_read_col + * 04/27/05 wvd v1.2 Use variance arrays properly. + * Use QUALITY array to identify + * bad data. + * Change spec array to type INT. + * Use chi2, not reduced chi2, + * to set error bars. + * 05/20/05 wvd v1.3 For continuum spectra, use + * single region between 1045 and + * 1070 A. For emission-line + * targets, use O VI lines. + * 06/03/05 wvd v1.4 Delete unused variables. + * 07/21/05 wvd v1.5 Adopt the sign convention for + * spectral shifts used by + * FUSE_REGISTER. + * 08/01/05 wvd v1.6 Store EXPNIGHT of reference + * spectrum in ref_expnight. + * 09/13/05 wvd v1.7 If called with no arguments, + * return calling info, not error. + * 04/27/06 wvd v1.8 Scale each spectrum to match + * mean of reference spectrum. + * 05/16/06 wvd v1.9 Use Lyman beta to align + * background exposures. + * Use O VI and C II to align WD's. + * 03/28/08 wvd v1.10 Write value of NORM to output. + * For HIST data only: if XCORRR + * fails, but NORM > 0.5, then + * set shift and sigma to 0. + * 08/15/08 wvd v1.11 If EXP_STAT = 2, treat as + * background observation. + * + ******************************************************************************/ + +#include +#include +#include +#include +#include "calfuse.h" + +/* Calfuse variables */ +static char CF_PRGM_ID[] = "cf_xcorr"; +static char CF_VER_NUM[] = "1.11"; + +/* Parameters */ +#define MAXSHIFT 20 +#define N_SHIFT 41 + +int main(int argc, char *argv[]) +{ + /* Variables */ + char *spec_lis, *out_name, src_type[FLEN_VALUE]; + char spec_name[FLEN_FILENAME], ref_spec_name[FLEN_FILENAME]; + char program[FLEN_VALUE]; + char instmode[FLEN_CARD] ; + double *ref_flux, *ref_error, *flux, *error; + double scale, sum, variance, norm, ref_tot, total; + float chi_square[N_SHIFT], chi_square_min, chi_square_max; + float exptime, exptime_max; + float *wave, w0, wpc, wmin, wdelta; + int ly_beta=FALSE, exp_stat, objclass, shift, sigma; + int ind_chi2_min, N, N_tmp, nchi, n_spec, ind_ref_spec=0; + long expnight, ref_expnight, i, k, n_pix, ref_start, start; + + FILE *pt_file, *pt_file_out; + fitsfile *in_fits; + int status = 0, hdutype = 0; + + /*********************************** + ** Enter a timestamp into the log ** + ***********************************/ + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing"); + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + + + /*********************************************************** + ** Check for proper command-line usage and read arguments ** + ***********************************************************/ + if (argc != 3) { + printf("Usage: cf_xcorr exposure_list exp_shift_list\n"); + return(0); + } + + spec_lis = argv[1]; + out_name = argv[2]; + + /******************************************** + ** Open input list and create output file ** + ********************************************/ + if ((pt_file = fopen(spec_lis, "r")) == NULL) + { + cf_if_error("Unable to open file %s", spec_lis); + } + pt_file_out = fopen(out_name, "w"); + + /******************************************************************** + ** Set the reference spectrum to the one which has maximum EXPTIME ** + ********************************************************************/ + n_spec = 0; + exptime_max = -1; + + while (fscanf(pt_file, "%80s", spec_name) != EOF) + { + FITS_open_file(&in_fits, spec_name, READONLY, &status); + FITS_read_key(in_fits, TFLOAT, "EXPTIME", &exptime, NULL, &status); + FITS_read_key(in_fits, TLONG, "EXPNIGHT", &expnight, NULL, &status); + FITS_close_file(in_fits, &status); + if (exptime > exptime_max) + { + exptime_max = exptime; + ind_ref_spec = n_spec; + strcpy(ref_spec_name, spec_name); + } + n_spec++; + } + + if (n_spec == 0) cf_if_error("At least one spectrum is required"); + + if (n_spec == 1) + { + fprintf(pt_file_out, "%s %2d %2d %5.0f %5ld %c%c%c 1.0\n", ref_spec_name, 0, 0, + exptime_max, expnight, ref_spec_name[8], ref_spec_name[9], ref_spec_name[10]); + fclose(pt_file_out); + return(0); + } + printf("n_spec: %d, max exptime: %g, ind_ref: %d, ref_name: %s\n", + n_spec, exptime_max, ind_ref_spec, ref_spec_name); + + /* Read source type and set XCORR limits accordingly. */ + FITS_open_file(&in_fits, ref_spec_name, READONLY, &status); + FITS_read_key(in_fits, TINT, "EXP_STAT", &exp_stat, NULL, &status); + FITS_read_key(in_fits, TSTRING, "PRGRM_ID", &program, NULL, &status); + FITS_read_key(in_fits, TINT, "OBJCLASS", &objclass, NULL, &status); + FITS_read_key(in_fits, TSTRING, "SRC_TYPE", &src_type, NULL, &status); + FITS_read_key(in_fits, TSTRING, "INSTMODE", instmode, NULL, &status) ; + FITS_read_key(in_fits, TFLOAT, "W0", &w0, NULL, &status); + FITS_read_key(in_fits, TFLOAT, "WPC", &wpc, NULL, &status); + if (src_type[1] == 'E') { /* Emission-line source */ + /* Use Lyman beta to align background observations. */ + if (exp_stat == (int) TEMPORAL_LIMB || + objclass == 1 || objclass == 7 || objclass == 90) { + printf("Assuming background observation.\n"); + wmin = 1024.; + wdelta = 6.; + ly_beta = TRUE; + } else { /* Use O VI emission for everything else. */ + printf("SRC_TYPE = %s. Emission-line target.\n", src_type); + wmin = 1030.; + wdelta = 9.; + } + } + else if (objclass == 17 || objclass == 29 || objclass == 37) { + /* Use O VI and C II to align white dwarf spectra. */ + printf("OBJCLASS = %d. Assuming nearby white dwarf.\n", objclass); + wmin = 1030.; + wdelta = 9.; + } + else { /* Use 1045-1070 A region for all other continuum sources. */ + printf("SRC_TYPE = %s. Assuming continuum target.\n", src_type); + wmin = 1045.; + wdelta = 25.; + } + start = cf_nlong((wmin - w0) / wpc); + ref_start = start + MAXSHIFT; + n_pix = cf_nlong(wdelta / wpc) - (N_SHIFT - 1); + + /* Read wave, flux, and error arrays from reference exposure. */ + FITS_read_key(in_fits, TLONG, "EXPNIGHT" , &ref_expnight, NULL, &status); + FITS_movabs_hdu(in_fits, 2, &hdutype, &status); + if (hdutype != BINARY_TBL) cf_if_error("FITS files must contain BINARY TABLE in HDU #2"); + N = cf_read_col(in_fits, TFLOAT, "WAVE", (void **) &wave); + N = cf_read_col(in_fits, TDOUBLE, "FLUX", (void **) &ref_flux); + N = cf_read_col(in_fits, TDOUBLE, "ERROR", (void **) &ref_error); + FITS_close_file(in_fits, &status); + + /* Compute total flux of reference spectrum in region of interest. */ + ref_tot = 0.; + for (i = 0; i < n_pix; i++) ref_tot += ref_flux[start+i]; + + /***************************************************************** + ** Compute the shift of each spectrum relative to the reference ** + ******************************************************************/ + n_spec = 0; + rewind(pt_file); + + while (fscanf(pt_file, "%80s", spec_name) != EOF) + { + /* Do nothing if the current spectrum is the reference. */ + if (n_spec++ == ind_ref_spec) { + fprintf(pt_file_out, "%s %3d %2d %5.0f %5ld %c%c%c 1.0\n", + ref_spec_name, 0, 0, exptime_max, ref_expnight, + ref_spec_name[8], ref_spec_name[9], ref_spec_name[10]); + continue; + } + + /* Read the next spectrum */ + FITS_open_file(&in_fits, spec_name, READONLY, &status); + FITS_read_key(in_fits, TFLOAT, "EXPTIME", &exptime, NULL, &status); + FITS_read_key(in_fits, TLONG, "EXPNIGHT", &expnight, NULL, &status); + FITS_movabs_hdu(in_fits, 2, &hdutype, &status); + if (hdutype != BINARY_TBL) cf_if_error("FITS files must contain BINARY TABLE in HDU #2"); + N_tmp = cf_read_col(in_fits, TDOUBLE, "FLUX", (void **) &flux); + N_tmp = cf_read_col(in_fits, TDOUBLE, "ERROR", (void **) &error); + if (N_tmp != N) cf_if_error("Tables must have the same number of elements"); + FITS_close_file(in_fits, &status); + + /* If EXPTIME < 1, move on to the next data file. */ + if (exptime < 1) { + fprintf(pt_file_out, "%s %3d %2d %5.0f %5ld %c%c%c 0.0\n", + spec_name, 0, -1, exptime, expnight, + spec_name[8], spec_name[9], spec_name[10]); + continue; + } + + /* Compute total flux of data spectrum in region of interest. */ + norm = 1.; + if (!ly_beta) { /* Don't rescale if aligning on airglow. */ + total = 0.; + for (i = 0; i < n_pix; i++) total += flux[start+i]; + norm = ref_tot / total; + } + + /* Compute chi-squared for shifts between +/- MAXSHIFT pixels. */ + for (k = 0; k < N_SHIFT; k++) { + nchi = 0; + sum = 0; + for (i = 0; i < n_pix; i++) { + variance = ref_error[ref_start + i] * ref_error[ref_start + i] + + norm * norm * error[start + i + k] * error[start + i + k]; + if (variance > 0) { + sum += (ref_flux[ref_start + i] - norm * flux[start + i + k]) * + (ref_flux[ref_start + i] - norm * flux[start + i + k]) / variance; + nchi++; + } + } + scale = (double) nchi / n_pix; + chi_square[k] = sum / scale; + } + + /* Compute min and max values of chi-squared. */ + ind_chi2_min = 0; + chi_square_min = 1E5; + chi_square_max = -1E5; + for (k = 0; k < N_SHIFT; k++) { + if (chi_square[k] < chi_square_min) + { + chi_square_min = chi_square[k]; + ind_chi2_min = k; + } + else if (chi_square[k] > chi_square_max) + chi_square_max = chi_square[k]; + } + shift = MAXSHIFT - ind_chi2_min; + + /* If chi-squared changes by less than 20% over range of shifts, bail out. + * Otherwise, return shift corresponding to lowest value of chi-square. */ + if (chi_square_max / chi_square_min < 1.2) + sigma = -1; + else + sigma = 1; + + + /* If we're in HIST mode and sigma = -1 and NORM < 2, + * then set shift = sigma = 0. */ + if (!(strncasecmp(instmode, "HIST", 4)) && sigma == -1 && norm < 2.0) + shift = sigma = 0; + + /* printf ("shift = %d\tchi_square_max / chi_square_min = %g\n", + ind_chi2_min - MAXSHIFT, chi_square_max / chi_square_min); */ + + fprintf(pt_file_out, "%s %3d %2d %5.0f %5ld %c%c%c %f\n", + spec_name, shift, sigma, exptime, expnight, + spec_name[8], spec_name[9], spec_name[10], norm); + + free(flux); + free(error); + } + + free(wave); + free(ref_flux); + free(ref_error); + + fclose(pt_file); + fclose(pt_file_out); + + return(0); +} diff --git a/src/analysis/extract_jitter.c b/src/analysis/extract_jitter.c new file mode 100644 index 0000000..a4ceb4d --- /dev/null +++ b/src/analysis/extract_jitter.c @@ -0,0 +1,198 @@ + +/************************************************************************* + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ************************************************************************* + * + * + * Usage: + * extract_jitter [-h] [-v level] input_file + * + * + * + * Arguments: + * input_file : jitter file + * + * + * + * + * + * + * Options: + * -h: this help message + * -v: verbosity level (=1; 0 is silent) + * + * + * + * + * History: 11/04/2004 v1.0 bjg + * 06/03/2005 v1.1 wvd Fix bug that set expstart=expend. + * Delete unused variables. + * + ***************************************************************************/ + + +#include +#include +#include +#include +#include +#include + +#include "calfuse.h" + + +static char CF_PRGM_ID[]= "extract_jitter"; +static char CF_VER_NUM[]= "1.0"; + + +int main(int argc,char *argv[]){ + + + + char input_filename[FLEN_CARD]; + char output_filename_x[FLEN_CARD]; + char output_filename_y[FLEN_CARD]; + + FILE * output_file_x; + FILE * output_file_y; + + fitsfile * infits; + + + + int intnull=0,anynull; + int status=0; + int hdutype=0; + + long i, N; + int ncol; + + double * hdu2_time; + double * hdu2_dx; + double * hdu2_dy; + int * hdu2_trkflg; + + + + double mjd,dx,dy; + + int trkflg; + + double expstart, expend; + + int optc; + + char opts[] = "hfv:"; + char usage[] = + "Usage:\n" + " extract_jitter [-h] [-v level] input_file\n\n" + "Arguments:\n" + " input_file : jitter file (FITS)\n\n"; + char option[] = + "Options:\n" + " -h: this help message \n" + " -v: verbosity level (=1; 0 is silent) \n"; + + verbose_level = 1; + + + /* Check number of options and arguments */ + while ((optc = getopt(argc, argv, opts)) != -1) { + switch(optc) { + case 'h': + printf("%s\n%s", usage, option); + return EXIT_SUCCESS; + case 'v': + verbose_level = atoi(optarg); + break; + } + } + + /* Initialize error checking. */ + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + if (argc != optind+1) + cf_if_error("%s\nIncorrect number of program arguments", usage); + + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution."); + + strcpy(input_filename,argv[optind]); + + + + strcpy(output_filename_x,input_filename); + strcpy(output_filename_y,input_filename); + strcat(output_filename_x,".jtx"); + strcat(output_filename_y,".jty"); + + + /* Create the output file */ + output_file_x = fopen(output_filename_x,"w"); + output_file_y = fopen(output_filename_y,"w"); + + + + FITS_open_file(&infits,input_filename,READONLY,&status); + + FITS_read_key(infits,TDOUBLE,"EXPSTART",&expstart,NULL,&status); + FITS_read_key(infits,TDOUBLE,"EXPEND",&expend,NULL,&status); + + FITS_movabs_hdu(infits,2,&hdutype,&status); + + FITS_read_key(infits,TLONG,"NAXIS2",&N,NULL,&status); + + hdu2_time=(double *)malloc(N*sizeof(double)); + hdu2_dx=(double *)malloc(N*sizeof(double)); + hdu2_dy=(double *)malloc(N*sizeof(double)); + hdu2_trkflg=(int *)malloc(N*sizeof(int)); + + FITS_get_colnum(infits, TRUE, "TIME", &ncol, &status); + FITS_read_col(infits, TDOUBLE, ncol, 1, 1, N, &intnull, + hdu2_time, &anynull, &status); + + FITS_get_colnum(infits, TRUE, "DX", &ncol, &status); + FITS_read_col(infits, TDOUBLE, ncol, 1, 1, N, &intnull, + hdu2_dx, &anynull, &status); + + FITS_get_colnum(infits, TRUE, "DY", &ncol, &status); + FITS_read_col(infits, TDOUBLE, ncol, 1, 1, N, &intnull, + hdu2_dy, &anynull, &status); + + FITS_get_colnum(infits, TRUE, "TRKFLG", &ncol, &status); + FITS_read_col(infits, TINT, ncol, 1, 1, N, &intnull, + hdu2_trkflg, &anynull, &status); + + + for (i=0;i=expstart) && (mjd<=expend) && (trkflg==5)){ + fprintf(output_file_x,"%15lf %15lf\n",mjd,dx); + fprintf(output_file_y,"%15lf %15lf\n",mjd,dy); + } + } + + + + free(hdu2_time); + free(hdu2_dx); + free(hdu2_dy); + free(hdu2_trkflg); + + + + FITS_close_file(infits,&status); + + fclose(output_file_x); + fclose(output_file_y); + + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished execution."); + return EXIT_SUCCESS; + +} diff --git a/src/analysis/get_shift.c b/src/analysis/get_shift.c new file mode 100644 index 0000000..a4c2b70 --- /dev/null +++ b/src/analysis/get_shift.c @@ -0,0 +1,164 @@ +/***************************************************************************** + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ***************************************************************************** + * + * Synopsis: getshift spec1 spec2 w1 w2 + * + * Description: Computes the wavelength shift between the spectra from two + * different exposures spec1 and spec2 using a cross-correlation + * in the wavelength window defined by w1 and w2 + * + * + * History: 01/08/04 bjg 1.0 begin work + * 04/05/04 bjg 1.1 Return EXIT_SUCCESS + * Correct formats to match + * argument types in printf + * 08/26/05 wvd 1.2 If given no arguments, don't return error. + * Just print message and exit. + * + ****************************************************************************/ + +#include +#include +#include +#include +#include +#include "calfuse.h" + + +#define MAXSHIFT 25 +#define SMOOTH_PAR 4 + + +static char CF_PRGM_ID[] = "get_shift"; +static char CF_VER_NUM[] = "1.2"; + + +int wave_search(float *table, int i, int j, float elmt){ + + int k; + + if (i>=j) return i; + if (elmt==table[i]) return i; + if (elmt==table[j]) return j; + k=(i+j)/2; + if (elmt==table[k]) return k; + if ((elmt-table[i])*(elmt-table[k])<0) return wave_search(table,i,k,elmt); + return wave_search(table,k+1,j,elmt); +} + +int main(int argc, char *argv[]) +{ + + int status=0; + int hdutype=0; + + long n,n1,n2,laux,i,j,k; + + float *wave, *flux1, *flux2, *flux1s, *flux2s; + + float w1,w2; + + fitsfile *infits1, *infits2; + + float correl[2*MAXSHIFT+1]; + + + /* Enter a timestamp into the log. */ + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing"); + + /* Initialize error checking */ + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + + + /* check command line */ + if (argc != 5) { + printf("Usage: getshift spec1 spec2 w1 w2 \n"); + return 1; + } + + + FITS_open_file(&infits1, argv[1], READONLY, &status); + FITS_open_file(&infits2, argv[2], READONLY, &status); + + sscanf(argv[3],"%f",&w1); + sscanf(argv[4],"%f",&w2); + + + FITS_movabs_hdu(infits1, 2, &hdutype, &status); + FITS_movabs_hdu(infits2, 2, &hdutype, &status); + + + n=cf_read_col(infits1,TFLOAT,"WAVE",(void **) &wave); + n=cf_read_col(infits1,TFLOAT,"FLUX",(void **) &flux1); + n=cf_read_col(infits2,TFLOAT,"FLUX",(void **) &flux2); + + + flux1s=(float*)malloc(n*sizeof(float)); + flux2s=(float*)malloc(n*sizeof(float)); + + + for (i=0;i=0)&&(j0) + cf_if_error("Wavelength parameters out of range\n"); + + if ((w2-wave[0])*(w2-wave[n-1])>0) + cf_if_error("Wavelength parameters out of range\n"); + + n1=wave_search(wave,0,n-1,w1); + n2=wave_search(wave,0,n-1,w2); + + + if (n1>n2) { + laux=n2; + n2=n1; + n1=laux; + } + + if ((n1-MAXSHIFT<0)||(n2+MAXSHIFT>=n)) + cf_if_error("Wavelength parameters too close to bounds\n"); + + k=0; + + for (i=0;i<=2*MAXSHIFT;i++){ + correl[i]=0; + for (j=n1;j<=n2;j++){ + correl[i]=correl[i]+flux1s[j]*flux2s[j+i-MAXSHIFT]; + } + if (correl[i]>correl[k]) k=i; + } + + + + FITS_close_file(infits1, &status); + FITS_close_file(infits2, &status); + + /* Enter a timestamp into the log. */ + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing"); + + printf("Shift is %ld steps.\n",k-MAXSHIFT); + + return EXIT_SUCCESS; + + +} diff --git a/src/analysis/gethmjd.c b/src/analysis/gethmjd.c new file mode 100644 index 0000000..dcb3cdb --- /dev/null +++ b/src/analysis/gethmjd.c @@ -0,0 +1,98 @@ + +/***************************************************************************** + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ***************************************************************************** + * + * + * From Modified Julian Day and RA,DEC of target, + * computes Heliocentic Modified Julian Day + * + * Uses slalib to compute the light time delay along the target direction. + * + * + * History: 10/06/04 bjg + * + ****************************************************************************/ + + + +#include +#include +#include +#include +#include +#include + +#ifdef CFORTRAN +#include "cfortran.h" + +PROTOCCALLSFSUB6(SLA_DJCL, sla_djcl, DOUBLE, PINT, PINT, PINT, PDOUBLE, \ + PINT) +#define slaDjcl(DJM, IY, IM, ID, FD, J) \ + CCALLSFSUB6(SLA_DJCL, sla_djcl, DOUBLE, PINT, PINT, PINT, PDOUBLE, \ + PINT, DJM, IY, IM, ID, FD, J) + + +PROTOCCALLSFSUB6(SLA_CALYD, sla_calyd, INT, INT, INT, PINT, PINT, \ + PINT) +#define slaCalyd(IY, IM, ID, NY, ND, J) \ + CCALLSFSUB6(SLA_CALYD, sla_calyd, INT, INT, INT, PINT, PINT, \ + PINT, IY, IM, ID, NY, ND, J) + +PROTOCCALLSFSUB7(SLA_ECOR, sla_ecor, FLOAT, FLOAT, INT, INT, FLOAT, PFLOAT, \ + PFLOAT) +#define slaEcor(RM, DM, IY, ID, FD, RV, TL) \ + CCALLSFSUB7(SLA_ECOR, sla_ecor, FLOAT, FLOAT, INT, INT, FLOAT, PFLOAT, \ + PFLOAT, RM, DM, IY, ID, FD, RV, TL) + +#else +#include "slalib.h" +#include "slamac.h" +#endif + + +#include "calfuse.h" + + +#define DEG2RAD (M_PI/180.0f) + +double gethmjd(double mjd, int ra_h, int ra_m, float ra_s, int dec_d, int dec_m, float dec_s){ + + + int status; + + int year, month, day; + int jyear, jday; + double frac; + + + float ra, dec; + float lt, v; + + ra = ( ra_h + ra_m/60.0 + ra_s/3600.0 ) * 15.0 * DEG2RAD; + dec = ( dec_d + dec_m/60.0 + dec_s/3600.0 ) * DEG2RAD; + + +#ifdef CFORTRAN + slaDjcl(mjd, year, month, day, frac, status); +#else + slaDjcl(mjd, &year, &month, &day, &frac, &status); +#endif + +#ifdef CFORTRAN + slaCalyd(year, month, day, jyear, jday, status); +#else + slaCalyd(year, month, day, &jyear, &jday, &status); +#endif + +#ifdef CFORTRAN + slaEcor(ra, dec, jyear, jday, (float) frac, v, lt); +#else + slaEcor(ra, dec, jyear, jday, (float) frac, &v, <); +#endif + + return (double) (mjd+lt/(3600.0*24.0)); + +} diff --git a/src/analysis/idf_combine.c b/src/analysis/idf_combine.c new file mode 100644 index 0000000..3f1a678 --- /dev/null +++ b/src/analysis/idf_combine.c @@ -0,0 +1,945 @@ + +/***************************************************************************** + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ***************************************************************************** + * + * Synopsis: idf_combine outfile file1 file2 file3 file4 file5 ... + * + * Description: Reads multiple contiguous idf files and concatenates them + * into a single file. + * + * History: 08/11/03 bjg Begin work from ttag_combine.c + * sort the input files in time order + * 08/12/03 bjg v1.0 First usable version + * 08/13/03 bjg Some minor changes + * 08/14/03 bjg Fixed some important keywords + * in the main HDU + * 08/20/03 bjg v1.1 Changed the way the binary tables + * are read, created and written + * (same as cf_ttag_init) + * 09/09/03 bjg v1.2 Fixed some keywords + * 10/29/03 bjg Changed the scaling format for + * output timeline to conform the + * new IDF formatting. + * 11/17/03 bjg v1.3 Now warns users if the Focal + * Plane Assembly has moved between + * exposures. + * 11/22/03 bjg Now prints the name of the + * included files in the main + * header. + * 12/10/03 bjg Updated NSPEC keyword and + * SPECxxx, WOFFLxxx, WOFFSxxx keywords + * Removed path in filenames written + * into header. + * 02/25/04 bjg Bug fix + * 03/25/04 bjg Added TZERO and TSCALE values for + * AIC and FEC countrates + * 04/05/04 bjg Remove unused variables + * Change formats to match arg types + * in printf + * Remove static keyword in struct key + * definition + * Add braces in TSCAL and TZERO + * definitions + * 06/08/04 bjg Changes to handle EXP_STAT keyword + * 08/13/04 bjg v1.4 Recalculates Y centroid on demand + * 10/06/04 bjg v1.5 Added option -b to store + * ORBITAL_VEL in a float + * 10/26/04 bjg v1.6 Cosmetic change + * 01/28/2005 bjg v1.7 Fixed crash within CFITSIO with + * with IDF files having empty tables + * 02/16/2005 wvd v1.8 Double TSCALE and TZERO + * for the AIC_CNT_RATE array. + * 03/22/2005 wvd v1.9 Read and write TIME_SUNRISE + * and TIME_SUNSET as shorts. + * 04/15/2005 tc v1.10 Update PLANTIME keyword + * 06/08/2005 tc v1.11 Comment out warning if FPA has + * shifted. Pipeline corrects for this. + * 09/19/2005 wvd v1.12 Don't even read FPA positions. + * 05/22/2006 wvd v1.13 Change most header keyword + * types from float to long. + * 06/22/2006 wvd v1.14 Add -z flag to force creation of + * an output file, even if empty. + * 11/10/2006 wvd v1.15 Add comment fields to WOFFS and + * WOFFL keywords. + * 08/27/2007 bot v1.16 Changed long for int l.138 + * 07/25/2008 wvd v1.17 Set output EXP_STAT keyword to lowest + * non-negative value among input files. + * 08/22/2008 wvd v1.18 If -a flag is set, include files with + * positive values of EXP_STAT, but not + * those with negative values. + * + ****************************************************************************/ + + +#include +#include +#include +#include +#include +#include "calfuse.h" + +typedef char filename[FLEN_CARD]; + +struct key { + char keyword[FLEN_KEYWORD]; + float value; +}; + +static char CF_PRGM_ID[]= "idf_combine"; +static char CF_VER_NUM[]= "1.18"; + +int main(int argc,char *argv[]){ + + char date[FLEN_CARD]={'\0'}; + char rootname[FLEN_CARD]; + char comment[FLEN_COMMENT]; + + int felem_hdu2,felem_hdu4,frow_hdu3; + + char stime[FLEN_CARD],keyword[FLEN_CARD],card[FLEN_CARD]; + + char fmt_byte[FLEN_CARD],fmt_float[FLEN_CARD],fmt_short[FLEN_CARD]; + + char *corrected_filename; + char *string_pointer; + char string0[100], string1[100]; + + time_t vtime; + + fitsfile *infits,*outfits; + + filename *filelist; + double *expstartlist; + double *expendlist; + long *neventslist; + long *nrecordslist; + long *ngtislist; + + double delta_t; + + float zero=0.0; + + filename tempstring; + double tempdouble; + long templong; + float tempfloat; + char tempchar; + + double minexpstart; + int minindex; + + int nfiles; + + int intnull=0,anynull; + int ncol; + + int status=0; + int hdutype=0; + int tref = 0; + + int n2; + + int exp_stat, exp_stat_out=99; + + long nevents=0, nrecords=0, ngtis=0; + long n_real_events=0; + + long i,j; + + float *floatlist; + short *shortlist; + char *charlist; + double *doublelist; + + float exptime=0, rawtime=0; + long neventscreened=0, neventscreenedpha=0, plantime=0, timehv=0; + long timescreened=0, timesaa=0, timelowlimbangle=0, timeburst=0, + timejitter=0,timenight=0; + + /* float fpasx0, fpasx, fpalx0, fpalx, dfpasx, dfpalx ; */ + /* int fpa_split = FALSE; */ + + int hdu2_tfields=14; + + char hdu2_extname[]="TTAG DATA"; /* Name of this extension */ + + char *hdu2_ttype[]={"TIME", "XRAW", "YRAW", "PHA", "WEIGHT", "XFARF", + "YFARF", "X", "Y", "CHANNEL", "TIMEFLGS", + "LOC_FLGS", "LAMBDA", "ERGCM2" }; + + char *hdu2_tform[14]; /* We'll assign values when we know + the number of elements in the data set. */ + + + char *hdu2_tunit[]={"SECONDS", "PIXELS", "PIXELS", "UNITLESS", "UNITLESS", + "PIXELS", "PIXELS", "PIXELS", "PIXELS", "UNITLESS", + "UNITLESS", "UNITLESS", "ANGSTROMS", "ERG CM^-2"}; + + struct key hdu2_tscal[] = {{"TSCAL6", 0.25}, {"TSCAL7", 0.1}, + {"TSCAL8", 0.25}, {"TSCAL9", 0.1}}; + + struct key hdu2_tzero[] = {{"TZERO6", 8192.}, {"TZERO7", 0.}, + {"TZERO8", 8192.}, {"TZERO9", 0.}}; + + + + + int hdu3_tfields=2; + + char hdu3_extname[]="GTI"; /* Name of this extension */ + + char *hdu3_ttype[]={"START", "STOP" }; + + char *hdu3_tform[2]={"1D", "1D" }; /* We'll assign values when we know + the number of elements in the data set. */ + + + char *hdu3_tunit[]={"seconds", "seconds"}; + + struct key hdu4_tscal[16]; + struct key hdu4_tzero[16]; + + char hdu4_extname[]="TIMELINE"; + int hdu4_tfields=16; /* output table will have 16 columns */ + char *hdu4_ttype[]={"TIME", "STATUS_FLAGS", "TIME_SUNRISE", "TIME_SUNSET", + "LIMB_ANGLE", "LONGITUDE", "LATITUDE", "ORBITAL_VEL", + "HIGH_VOLTAGE", "LIF_CNT_RATE", "SIC_CNT_RATE", + "FEC_CNT_RATE", "AIC_CNT_RATE", "BKGD_CNT_RATE", + "YCENT_LIF","YCENT_SIC"}; + + char *hdu4_tform[16]; /* we will define tform later, when the number + of photons is known */ + + char *hdu4_tunit[]={"seconds", "unitless", "seconds", "seconds", "degrees", + "degrees", "degrees", "km/s", "unitless", "counts/sec", + "counts/sec", "counts/sec", "counts/sec", "counts/sec", + "pixels","pixels" }; + + + int ignore_exp_stat=0; + int do_ycent=0; + int big_vel=0; + int do_empty=FALSE, empty_output=FALSE; + + float *x=NULL, *y=NULL, *weight=NULL; + unsigned char *channel=NULL, *timeflags=NULL, *locflags=NULL; + + int optc; + + char opts[] = "hacbv:z"; + char usage[] = + "Usage:\n" + " idf_combine [-ahbcz] [-v level] output_idf_file input_idf_files\n"; + char option[] = + "Options:\n" + " -h: this help message\n" + " -v: verbosity level (=1; 0 is silent)\n" + " -a: ignore EXP_STAT keyword \n" + " -c: recalculates Y centroids (use target events) \n" + " -b: store ORBITAL_VEL in a float \n" + " -z: if no good data, generate empty output file\n"; + + verbose_level = 1; + + /* Check number of options and arguments */ + while ((optc = getopt(argc, argv, opts)) != -1) { + switch(optc) { + + case 'h': + printf("%s\n%s", usage, option); + return 0; + case 'a': + ignore_exp_stat=1; + break; + case 'v': + verbose_level = atoi(optarg); + break; + case 'c': + do_ycent=1; + break; + case 'b': + big_vel=1; + break; + case 'z': + do_empty=TRUE; + break; + } + } + + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + + if (argc < optind+2) { + printf("%s", usage); + return 1; + } + + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution."); + + /* get and display time */ + vtime = time(NULL) ; + strcpy(stime,ctime(&vtime)); + + + nfiles=argc-optind-1; + + filelist = (filename *)cf_calloc(nfiles, sizeof(filename)); + expstartlist = (double *)cf_calloc(nfiles, sizeof(double)); + expendlist = (double *)cf_calloc(nfiles, sizeof(double)); + neventslist = (long *)cf_calloc(nfiles, sizeof(long)); + nrecordslist = (long *)cf_calloc(nfiles, sizeof(long)); + ngtislist = (long *)cf_calloc(nfiles, sizeof(long)); + + if (!ignore_exp_stat) + cf_verbose(1,"Will include only files with EXP_STAT=0") ; + else + cf_verbose(1,"Will include only files with EXP_STAT >= 0") ; + + cf_verbose(1,"GETTING INFORMATION ON INPUT FILES") ; + + n2=0; + + for (i=0; i exp_stat && exp_stat >= 0) exp_stat_out = exp_stat; + + /* Skip files with bad values of EXP_STAT. */ + if (!ignore_exp_stat && exp_stat != 0) { + cf_if_warning("File %s rejected. EXP_STAT not equal to zero. Use -a flag to override.", + argv[optind+i+1]) ; + FITS_close_file(infits,&status); + continue; + } + /* Never include files with negative values of EXP_STAT. */ + else if (exp_stat < 0) { + cf_if_warning("File %s rejected. EXP_STAT less than zero.", argv[optind+i+1]) ; + FITS_close_file(infits,&status); + continue; + } + + FITS_read_key(infits,TFLOAT,"EXPTIME",&(tempfloat),NULL,&status); + exptime+=tempfloat; + FITS_read_key(infits,TLONG,"NEVENTS",&templong,NULL,&status); + n_real_events+=templong; + FITS_read_key(infits,TFLOAT,"RAWTIME",&(tempfloat),NULL,&status); + rawtime+=tempfloat; + FITS_read_key(infits,TLONG,"PLANTIME",&(templong),NULL,&status); + plantime+=tempfloat; + + FITS_read_key(infits,TLONG,"NBADEVNT",&templong,NULL,&status); + neventscreened+=templong; + FITS_read_key(infits,TLONG,"NBADPHA",&templong,NULL,&status); + neventscreenedpha+=templong; + + FITS_read_key(infits,TLONG,"EXP_BAD",&templong,NULL,&status); + timescreened+=templong; + FITS_read_key(infits,TLONG,"EXP_BRST",&templong,NULL,&status); + timeburst+=templong; + FITS_read_key(infits,TLONG,"EXP_HV",&templong,NULL,&status); + timehv+=templong; + FITS_read_key(infits,TLONG,"EXP_JITR",&templong,NULL,&status); + timejitter+=templong; + FITS_read_key(infits,TLONG,"EXP_LIM",&templong,NULL,&status); + timelowlimbangle+=templong; + FITS_read_key(infits,TLONG,"EXP_SAA",&templong,NULL,&status); + timesaa+=templong; + FITS_read_key(infits,TLONG,"EXPNIGHT",&templong,NULL,&status); + timenight+=templong; + + FITS_movabs_hdu(infits,2,&hdutype,&status); + FITS_read_key(infits,TSTRING,"TFORM1",&tempstring,NULL,&status); + sscanf(tempstring,"%ld%c",&neventslist[n2],&tempchar); + nevents+=neventslist[n2]; + + FITS_movabs_hdu(infits,3,&hdutype,&status); + FITS_read_key(infits,TLONG,"NAXIS2",&(ngtislist[n2]),NULL,&status); + ngtis+=ngtislist[n2]; + + FITS_movabs_hdu(infits,4,&hdutype,&status); + FITS_read_key(infits,TSTRING,"TFORM1",&tempstring,NULL,&status); + sscanf(tempstring,"%ld%c",&nrecordslist[n2],&tempchar); + nrecords+=nrecordslist[n2]; + + FITS_close_file(infits,&status); + + n2++; + } + + nfiles=n2; + + if (nfiles==0){ + if (do_empty) { + cf_verbose(1,"No files to combine. Generating empty output file."); + do_ycent = FALSE; + empty_output = TRUE; + expendlist[0]=expstartlist[0]; + nfiles = 1; + } + else { + cf_verbose(1,"No files to combine. Exiting."); + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished execution."); + exit(0); + } + } + + cf_verbose(1,"SORTING INPUT FILES IN TIME ORDER") ; + + for (i=0; i0){ + floatlist=(float *)malloc(neventslist[i]*sizeof(float)); + shortlist=(short *)malloc(neventslist[i]*sizeof(short)); + charlist=(char *)malloc(neventslist[i]*sizeof(char)); + + FITS_get_colnum(infits, TRUE, "TIME", &ncol, &status); + FITS_read_col(infits, TFLOAT, ncol, 1, 1, neventslist[i], &intnull, + floatlist, &anynull, &status); + for (j=0;j0){ + doublelist=(double *)malloc(ngtislist[i]*sizeof(double)); + + FITS_get_colnum(infits, TRUE, "START", &ncol, &status); + FITS_read_col(infits, TDOUBLE, ncol, 1, 1, ngtislist[i], &intnull, + doublelist, &anynull, &status); + for (j=0;j0){ + floatlist=(float *)malloc(nrecordslist[i]*sizeof(float)); + shortlist=(short *)malloc(nrecordslist[i]*sizeof(short)); + charlist=(char *)malloc(nrecordslist[i]*sizeof(char)); + + + FITS_get_colnum(infits, TRUE, "TIME", &ncol, &status); + FITS_read_col(infits, TFLOAT, ncol, 1, 1, nrecordslist[i], &intnull, + floatlist, &anynull, &status); + for (j=0;j +#include +#include +#include +#include +#include + +#include "calfuse.h" + +#define _MIN(a,b) (((a)<(b))?(a):(b)) + +typedef char filename[FLEN_CARD]; + +struct key { + char keyword[FLEN_KEYWORD]; + float value; +}; + +static char CF_PRGM_ID[]= "idf_cut"; +static char CF_VER_NUM[]= "1.1"; + + +static int _isinphase(double t, double RefTime, double Period, double vinf, double vsup){ + + float v; + + v=fmod(t-RefTime,Period); + if (v<0) v+=Period; + + return ((v>=vinf)&&(vvinf) return t-v+vinf+Period; + else return t-v+vinf; + +} +static double _getphasenextstop(double t, double RefTime, double Period, double vinf, double vsup){ + + float v; + + v=fmod(t-RefTime,Period); + if (v<0) v+=Period; + + if (v>vsup) return t-v+vsup+Period; + else return t-v+vsup; +} + +struct _gti{ + double start; + double stop; + struct _gti *next; +}; + +typedef struct{ + struct _gti * gtilist; + long N; +} _tempgtis; + +static void _pushgti(double a, double b, _tempgtis * tempgtis){ + struct _gti *aux; + + aux=tempgtis->gtilist; + + tempgtis->gtilist=malloc(sizeof(struct _gti)); + tempgtis->N++; + tempgtis->gtilist->start=a; + tempgtis->gtilist->stop=b; + tempgtis->gtilist->next=aux; +} + +static void _popgti(double * a, double * b, _tempgtis * tempgtis){ + struct _gti *aux; + + *a=tempgtis->gtilist->start; + *b=tempgtis->gtilist->stop; + + aux=tempgtis->gtilist; + tempgtis->gtilist=tempgtis->gtilist->next; + free(aux); + tempgtis->N--; +} + +static _tempgtis * _makegtis(){ + _tempgtis * tempgtis; + + tempgtis=malloc(sizeof(_tempgtis)); + tempgtis->gtilist=NULL; + tempgtis->N=0; + return tempgtis; +} + +static void _deletegtis(_tempgtis * tempgtis){ + double a,b; + while (tempgtis->gtilist!=NULL) _popgti(&a,&b,tempgtis); + free(tempgtis); + tempgtis=NULL; +} + +static long _ngtis(_tempgtis * tempgtis){ + return tempgtis->N; +} + + +/****************************************************************************/ + +long make_evlist(fitsfile *infits,fitsfile *outfits, + double RefTime,double Period, long Nout, + long phase,char * daynight, + long * nbadevnt,long * nbadpha){ + + + int status=0; + + char pha; + char loc_flgs; + char timeflgs; + char time_test; + + char keyword[FLEN_CARD],card[FLEN_CARD]; + + char fmt_byte[FLEN_CARD],fmt_float[FLEN_CARD],fmt_short[FLEN_CARD]; + + int tfields=14; + + char extname[]="TTAG DATA"; /* Name of this extension */ + + char *ttype[]={"TIME", "XRAW", "YRAW", "PHA", "WEIGHT", "XFARF", + "YFARF", "X", "Y", "CHANNEL", "TIMEFLGS", + "LOC_FLGS", "LAMBDA", "ERGCM2" }; + + char *tform[14]; /* We'll assign values when we know + the number of elements in the data set. */ + + + char *tunit[]={"SECONDS", "PIXELS", "PIXELS", "UNITLESS", "UNITLESS", + "PIXELS", "PIXELS", "PIXELS", "PIXELS", "UNITLESS", + "UNITLESS", "UNITLESS", "ANGSTROMS", "ERG CM^-2"}; + + struct key tscal[] = {{"TSCAL6", 0.25}, {"TSCAL7", 0.1}, + {"TSCAL8", 0.25}, {"TSCAL9", 0.1}}; + + struct key tzero[] = {{"TZERO6", 8192.}, {"TZERO7", 0.}, + {"TZERO8", 8192.}, {"TZERO9", 0.}}; + + float *i_time; + short *i_xraw; + short *i_yraw; + char *i_pha; + float *i_weight; + float *i_xfarf; + float *i_yfarf; + float *i_x; + float *i_y; + char *i_channel; + char *i_timeflgs; + char *i_loc_flgs; + float *i_lambda; + float *i_ergcm2; + + + float *o_time; + short *o_xraw; + short *o_yraw; + char *o_pha; + float *o_weight; + float *o_xfarf; + float *o_yfarf; + float *o_x; + float *o_y; + char *o_channel; + char *o_timeflgs; + char *o_loc_flgs; + float *o_lambda; + float *o_ergcm2; + + long npts; + + long i; + + float vinf,vsup; + + long nevents=0; + + *nbadevnt=0; + *nbadpha=0; + + + npts = cf_read_col(infits, TFLOAT, "TIME", (void **) &i_time); + npts = cf_read_col(infits, TSHORT, "XRAW", (void **) &i_xraw); + npts = cf_read_col(infits, TSHORT, "YRAW", (void **) &i_yraw); + npts = cf_read_col(infits, TBYTE, "PHA", (void **) &i_pha); + npts = cf_read_col(infits, TFLOAT, "WEIGHT", (void **) &i_weight); + npts = cf_read_col(infits, TFLOAT, "XFARF", (void **) &i_xfarf); + npts = cf_read_col(infits, TFLOAT, "YFARF", (void **) &i_yfarf); + npts = cf_read_col(infits, TFLOAT, "X", (void **) &i_x); + npts = cf_read_col(infits, TFLOAT, "Y", (void **) &i_y); + npts = cf_read_col(infits, TBYTE, "CHANNEL", (void **) &i_channel); + npts = cf_read_col(infits, TBYTE, "TIMEFLGS", (void **) &i_timeflgs); + npts = cf_read_col(infits, TBYTE, "LOC_FLGS", (void **) &i_loc_flgs); + npts = cf_read_col(infits, TFLOAT, "LAMBDA", (void **) &i_lambda); + npts = cf_read_col(infits, TFLOAT, "ERGCM2", (void **) &i_ergcm2); + + + o_time = (float *) malloc(npts*sizeof(float)); + o_xraw = (short *) malloc(npts*sizeof(short)); + o_yraw = (short *) malloc(npts*sizeof(short)); + o_pha = (char *) malloc(npts*sizeof(char)); + o_weight = (float *) malloc(npts*sizeof(float)); + o_xfarf = (float *) malloc(npts*sizeof(float)); + o_yfarf = (float *) malloc(npts*sizeof(float)); + o_x = (float *) malloc(npts*sizeof(float)); + o_y = (float *) malloc(npts*sizeof(float)); + o_channel = (char *) malloc(npts*sizeof(char)); + o_timeflgs = (char *) malloc(npts*sizeof(char)); + o_loc_flgs = (char *) malloc(npts*sizeof(char)); + o_lambda = (float *) malloc(npts*sizeof(float)); + o_ergcm2 = (float *) malloc(npts*sizeof(float)); + + vinf=(phase*Period)/((float)Nout); + vsup=((phase+1)*Period)/((float)Nout); + + + for (i=0;i 0) { + + FITS_write_col(outfits, TFLOAT, 1, 1, 1, nevents, o_time, &status); + FITS_write_col(outfits, TSHORT, 2, 1, 1, nevents, o_xraw, &status); + FITS_write_col(outfits, TSHORT, 3, 1, 1, nevents, o_yraw, &status); + FITS_write_col(outfits, TBYTE , 4, 1, 1, nevents, o_pha, &status); + FITS_write_col(outfits, TFLOAT, 5, 1, 1, nevents, o_weight, &status); + FITS_write_col(outfits, TFLOAT, 6, 1, 1, nevents, o_xfarf, &status); + FITS_write_col(outfits, TFLOAT, 7, 1, 1, nevents, o_yfarf, &status); + FITS_write_col(outfits, TFLOAT, 8, 1, 1, nevents, o_x, &status); + FITS_write_col(outfits, TFLOAT, 9, 1, 1, nevents, o_y, &status); + FITS_write_col(outfits, TBYTE , 10, 1, 1, nevents, o_channel, &status); + FITS_write_col(outfits, TBYTE , 11, 1, 1, nevents, o_timeflgs, &status); + FITS_write_col(outfits, TBYTE , 12, 1, 1, nevents, o_loc_flgs, &status); + FITS_write_col(outfits, TFLOAT, 13, 1, 1, nevents, o_lambda, &status); + FITS_write_col(outfits, TFLOAT, 14, 1, 1, nevents, o_ergcm2, &status); + } + + free(o_time); + free(o_xraw ); + free(o_yraw); + free(o_pha); + free(o_weight); + free(o_xfarf); + free(o_yfarf); + free(o_x); + free(o_y); + free(o_channel); + free(o_timeflgs); + free(o_loc_flgs); + free(o_lambda); + free(o_ergcm2); + + free(i_time); + free(i_xraw ); + free(i_yraw); + free(i_pha); + free(i_weight); + free(i_xfarf); + free(i_yfarf); + free(i_x); + free(i_y); + free(i_channel); + free(i_timeflgs); + free(i_loc_flgs); + free(i_lambda); + free(i_ergcm2); + + return nevents; +} + +/****************************************************************************/ +long make_gtitab(fitsfile * infits, fitsfile * outfits, + double RefTime, double Period, long Nout, + long phase){ + + + + int status=0; + + int tfields=2; + char extname[]="GTI"; /* Name of this extension */ + char *ttype[]={"START", "STOP" }; + char *tform[2]={"1D", "1D" }; + char *tunit[]={"seconds", "seconds"}; + + double *i_start; + double *i_stop; + double *o_start; + double *o_stop; + + _tempgtis * tempgtis; + + long npts=0; + long ngtis=0; + long i; + + float vinf,vsup; + + double a,b; + double _start, _stop; + + npts = cf_read_col(infits, TDOUBLE, "START", (void **) &i_start); + npts = cf_read_col(infits, TDOUBLE, "STOP", (void **) &i_stop); + + vinf=(phase*Period)/((float)Nout); + vsup=((phase+1)*Period)/((float)Nout); + + tempgtis=_makegtis(); + for (i=0;i=0;i--){ + _popgti(&o_start[i],&o_stop[i],tempgtis); + } + + _deletegtis(tempgtis); + + /* Append a new empty binary table to the output file */ + FITS_create_tbl(outfits, BINARY_TBL, ngtis, tfields, ttype, tform, + tunit, extname, &status); + + + if (ngtis>0){ + FITS_write_col(outfits, TDOUBLE, 1, 1, 1, ngtis, o_start, &status); + FITS_write_col(outfits, TDOUBLE, 2, 1, 1, ngtis, o_stop, &status); + } + + return ngtis; + +} +/****************************************************************************/ +long make_timeline(fitsfile *infits, fitsfile *outfits, + double RefTime, double Period, long Nout, long phase, + char *daynight, + double *exptime, double *exp_bad, double *exp_brst, double *exp_hv, + double *exp_jitr, double *exp_lim, double *exp_saa, double *expnight){ + + char timeflgs; + char time_test; + int status=0; + + int bigtime=1; + int big_vel=1; + + char keyword[FLEN_CARD],card[FLEN_CARD]; + + char fmt_byte[FLEN_CARD],fmt_float[FLEN_CARD],fmt_short[FLEN_CARD]; + + struct key tscal[16]; + struct key tzero[16]; + + char extname[]="TIMELINE"; + + int tfields=16; /* output table will have 16 columns */ + + char *ttype[]={"TIME", "STATUS_FLAGS", "TIME_SUNRISE", "TIME_SUNSET", + "LIMB_ANGLE", "LONGITUDE", "LATITUDE", "ORBITAL_VEL", + "HIGH_VOLTAGE", "LIF_CNT_RATE", "SIC_CNT_RATE", + "FEC_CNT_RATE", "AIC_CNT_RATE", "BKGD_CNT_RATE", + "YCENT_LIF","YCENT_SIC"}; + + char *tform[16]; /* we will define tform later, when the number + of photons is known */ + + char *tunit[]={"seconds", "unitless", "seconds", "seconds", "degrees", + "degrees", "degrees", "km/s", "unitless", "counts/sec", + "counts/sec", "counts/sec", "counts/sec", "counts/sec", + "pixels","pixels" }; + + float *i_time; + char *i_status_flags; + float *i_time_sunrise; + float *i_time_sunset; + float *i_limb_angle; + float *i_longitude; + float *i_latitude; + float *i_orbital_vel; + short *i_high_voltage; + short *i_lif_cnt_rate; + short *i_sic_cnt_rate; + short *i_fec_cnt_rate; + short *i_aic_cnt_rate; + short *i_bkgd_cnt_rate; + float *i_ycent_lif; + float *i_ycent_sic; + + float *o_time; + char *o_status_flags; + float *o_time_sunrise; + float *o_time_sunset; + float *o_limb_angle; + float *o_longitude; + float *o_latitude; + float *o_orbital_vel; + short *o_high_voltage; + short *o_lif_cnt_rate; + short *o_sic_cnt_rate; + short *o_fec_cnt_rate; + short *o_aic_cnt_rate; + short *o_bkgd_cnt_rate; + float *o_ycent_lif; + float *o_ycent_sic; + + long npts; + + long i; + + float vinf,vsup; + + long nseconds=0; + + *exptime=0; + *expnight=0; + *exp_bad=0; + *exp_brst=0; + *exp_hv=0; + *exp_jitr=0; + *exp_lim=0; + *exp_saa=0; + *expnight=0; + + + + npts = cf_read_col(infits, TFLOAT, "TIME" , (void **) &i_time); + npts = cf_read_col(infits, TBYTE , "STATUS_FLAGS" , (void **) &i_status_flags); + npts = cf_read_col(infits, TFLOAT, "TIME_SUNRISE" , (void **) &i_time_sunrise); + npts = cf_read_col(infits, TFLOAT, "TIME_SUNSET" , (void **) &i_time_sunset); + npts = cf_read_col(infits, TFLOAT, "LIMB_ANGLE" , (void **) &i_limb_angle); + npts = cf_read_col(infits, TFLOAT, "LONGITUDE" , (void **) &i_longitude); + npts = cf_read_col(infits, TFLOAT, "LATITUDE" , (void **) &i_latitude); + npts = cf_read_col(infits, TFLOAT, "ORBITAL_VEL" , (void **) &i_orbital_vel); + npts = cf_read_col(infits, TSHORT, "HIGH_VOLTAGE" , (void **) &i_high_voltage); + npts = cf_read_col(infits, TSHORT, "LIF_CNT_RATE" , (void **) &i_lif_cnt_rate); + npts = cf_read_col(infits, TSHORT, "SIC_CNT_RATE" , (void **) &i_sic_cnt_rate); + npts = cf_read_col(infits, TSHORT, "FEC_CNT_RATE" , (void **) &i_fec_cnt_rate); + npts = cf_read_col(infits, TSHORT, "AIC_CNT_RATE" , (void **) &i_aic_cnt_rate); + npts = cf_read_col(infits, TSHORT, "BKGD_CNT_RATE" , (void **) &i_bkgd_cnt_rate); + npts = cf_read_col(infits, TFLOAT, "YCENT_LIF" , (void **) &i_ycent_lif); + npts = cf_read_col(infits, TFLOAT, "YCENT_SIC" , (void **) &i_ycent_sic); + + + o_time = (float *) malloc(npts*sizeof(float)); + o_status_flags = (char *) malloc(npts*sizeof(char)); + o_time_sunrise = (float *) malloc(npts*sizeof(float)); + o_time_sunset = (float *) malloc(npts*sizeof(float)); + o_limb_angle = (float *) malloc(npts*sizeof(float)); + o_longitude = (float *) malloc(npts*sizeof(float)); + o_latitude = (float *) malloc(npts*sizeof(float)); + o_orbital_vel = (float *) malloc(npts*sizeof(float)); + o_high_voltage = (short *) malloc(npts*sizeof(short)); + o_lif_cnt_rate = (short *) malloc(npts*sizeof(short)); + o_sic_cnt_rate = (short *) malloc(npts*sizeof(short)); + o_fec_cnt_rate = (short *) malloc(npts*sizeof(short)); + o_aic_cnt_rate = (short *) malloc(npts*sizeof(short)); + o_bkgd_cnt_rate = (short *) malloc(npts*sizeof(short)); + o_ycent_lif = (float *) malloc(npts*sizeof(float)); + o_ycent_sic = (float *) malloc(npts*sizeof(float)); + + + vinf=(phase*Period)/((float)Nout); + vsup=((phase+1)*Period)/((float)Nout); + + + for (i=0;i 0) { + + FITS_write_col(outfits, TFLOAT, 1, 1, 1, nseconds, o_time , &status); + FITS_write_col(outfits, TBYTE , 2, 1, 1, nseconds, o_status_flags , &status); + FITS_write_col(outfits, TFLOAT, 3, 1, 1, nseconds, o_time_sunrise , &status); + FITS_write_col(outfits, TFLOAT, 4, 1, 1, nseconds, o_time_sunset , &status); + FITS_write_col(outfits, TFLOAT, 5, 1, 1, nseconds, o_limb_angle , &status); + FITS_write_col(outfits, TFLOAT, 6, 1, 1, nseconds, o_longitude , &status); + FITS_write_col(outfits, TFLOAT, 7, 1, 1, nseconds, o_latitude , &status); + FITS_write_col(outfits, TFLOAT, 8, 1, 1, nseconds, o_orbital_vel , &status); + FITS_write_col(outfits, TSHORT, 9, 1, 1, nseconds, o_high_voltage , &status); + FITS_write_col(outfits, TSHORT, 10, 1, 1, nseconds, o_lif_cnt_rate , &status); + FITS_write_col(outfits, TSHORT, 11, 1, 1, nseconds, o_sic_cnt_rate , &status); + FITS_write_col(outfits, TSHORT, 12, 1, 1, nseconds, o_fec_cnt_rate , &status); + FITS_write_col(outfits, TSHORT, 13, 1, 1, nseconds, o_aic_cnt_rate , &status); + FITS_write_col(outfits, TSHORT, 14, 1, 1, nseconds, o_bkgd_cnt_rate , &status); + FITS_write_col(outfits, TFLOAT, 15, 1, 1, nseconds, o_ycent_lif , &status); + FITS_write_col(outfits, TFLOAT, 16, 1, 1, nseconds, o_ycent_sic , &status); + + } + + free(o_time); + free(o_status_flags); + free(o_time_sunrise); + free(o_time_sunset); + free(o_limb_angle); + free(o_longitude); + free(o_latitude); + free(o_orbital_vel); + free(o_high_voltage); + free(o_lif_cnt_rate); + free(o_sic_cnt_rate); + free(o_fec_cnt_rate); + free(o_aic_cnt_rate); + free(o_bkgd_cnt_rate); + free(o_ycent_lif); + free(o_ycent_sic); + + free(i_time); + free(i_status_flags); + free(i_time_sunrise); + free(i_time_sunset); + free(i_limb_angle); + free(i_longitude); + free(i_latitude); + free(i_orbital_vel); + free(i_high_voltage); + free(i_lif_cnt_rate); + free(i_sic_cnt_rate); + free(i_fec_cnt_rate); + free(i_aic_cnt_rate); + free(i_bkgd_cnt_rate); + free(i_ycent_lif); + free(i_ycent_sic); + + return nseconds; +} +/****************************************************************************/ + + +int main(int argc,char *argv[]){ + time_t vtime; + char stime[FLEN_CARD]; + + fitsfile * infits; + fitsfile * outfits; + + filename input_filename,output_filename, ifname; + + char string0[FLEN_CARD], daynight[FLEN_CARD]; + + + + long nevents; + long nseconds; + long ngtis; + + long nbadevnt; + long nbadpha; + + double exptime; + double exp_bad; + double exp_brst; + double exp_hv; + double exp_jitr; + double exp_lim; + double exp_saa; + double expnight; + + double RefTime; + double Period; + long Nout; + + double expstart; + + long i; + + int optc; + + char opts[] = "hmv:"; + char usage[] = + "Usage:\n" + " idf_cut [-hm] [-v level] idf_file RefTime Period Nout\n"; + char argument[] = + "Arguments:\n" + " RefTime : Reference Time in seconds since EXPSTART\n" + " Period : Period in seconds\n" + " Nout : Number of output files.\n"; + char option[] = + "Options:\n" + " -m: interprets RefTime as MJD\n" + " -h: this help message\n" + " -v: verbosity level (=1; 0 is silent)\n"; + + int hdutype=0; + int status=0; + int rtime_mjd=0; + verbose_level = 1; + + /* Check number of options and arguments */ + while ((optc = getopt(argc, argv, opts)) != -1) { + switch(optc) { + case 'h': + printf("%s\n%s\n%s", usage, argument, option); + return 0; + case 'v': + verbose_level = atoi(optarg); + break; + case 'm': + rtime_mjd=1; + break; + } + } + + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + + if (argc != optind+4) { + printf("%s", usage); + cf_if_error("Incorrect number of arguments"); + } + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution."); + + /* get and display time */ + vtime = time(NULL) ; + strcpy(stime,ctime(&vtime)); + + strcpy(input_filename,argv[optind]); + + sscanf(argv[optind+1],"%lf",&RefTime); + sscanf(argv[optind+2],"%lf",&Period); + sscanf(argv[optind+3],"%ld",&Nout); + + FITS_open_file(&infits,input_filename,READONLY,&status); + FITS_read_key(infits,TSTRING,"DAYNIGHT",daynight,NULL,&status); + FITS_read_key(infits,TSTRING,"FILENAME",ifname,NULL,&status); + + if (rtime_mjd){ + FITS_read_key(infits,TDOUBLE,"EXPSTART",&expstart,NULL,&status); + RefTime=(RefTime-expstart)*3600.0*24.0; + } + + for (i=0;i +#include +#include +#include +#include +#include "calfuse.h" + + +typedef char filename[FLEN_CARD]; + +struct key { + char keyword[FLEN_KEYWORD]; + float value; +}; + +static char CF_PRGM_ID[]= "idf_screen"; +static char CF_VER_NUM[]= "1.1"; + +int main(int argc,char *argv[]){ + + char tempstring[FLEN_CARD]; + char daynight[FLEN_CARD]; + char * corrected_filename; + char * string_pointer; + + char time_test; + + int status=0; + int hdutype=0; + + long i, npts; + + char * tflags, * lflags; + + fitsfile *infits , *outfits; + + filename input_fname , output_fname; + + char selstr1[FLEN_CARD]; + char selstr2[FLEN_CARD]; + + char sel1; + int sel2; + + long nbadevnt=0; + long nbadpha=0; + + double exptime=0.0; + double exp_bad=0.0; + double exp_brst=0.0; + double exp_hv=0.0; + double exp_jitr=0.0; + double exp_lim=0.0; + double exp_saa=0.0; + double expnight=0.0; + + int optc; + + char opts[] = "hv:"; + char usage[] = + "Usage:\n" + " idf_screen [-h] [-v level] input_idf_file output_idf_file \n" + " timeflag value\n"; + char argument[] = + "Arguments :\n" + " timeflag : USER/JITR/OPUS/BRST/HV/SAA/LIMB/DAY \n" + " value : GOOD/BAD/EITHER \n"; + char option[] = + "Options:\n" + " -h: this help message\n" + " -v: verbosity level (=1; 0 is silent)\n"; + + verbose_level = 1; + + /* Check number of options and arguments */ + while ((optc = getopt(argc, argv, opts)) != -1) { + switch(optc) { + case 'h': + printf("%s\n%s\n%s", usage, argument, option); + return 0; + case 'v': + verbose_level = atoi(optarg); + break; + } + } + + + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + + if (argc != optind+4) { + printf("%s", usage); + cf_if_error("Incorrect number of arguments"); + } + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution."); + + + strcpy(input_fname,argv[optind]); + strcpy(output_fname,argv[optind+1]); + strcpy(selstr1,argv[optind+2]); + strcpy(selstr2,argv[optind+3]); + + + + if (!strcasecmp(selstr2,"GOOD")) { + sel2=0; + } else if (!strcasecmp(selstr2,"BAD")) { + sel2=1; + } else if (!strcasecmp(selstr2,"EITHER")) { + sel2=2; + } else { + printf("%s", usage); + cf_if_error("VALUE not recognized."); + } + + + if (!strcasecmp(selstr1,"USER")) { + sel1=TEMPORAL_USER; + } else if (!strcasecmp(selstr1,"JITR")) { + sel1=TEMPORAL_JITR; + } else if (!strcasecmp(selstr1,"OPUS")) { + sel1=TEMPORAL_OPUS; + } else if (!strcasecmp(selstr1,"BRST")) { + sel1=TEMPORAL_BRST; + } else if (!strcasecmp(selstr1,"HV")) { + sel1=TEMPORAL_HV; + } else if (!strcasecmp(selstr1,"SAA")) { + sel1=TEMPORAL_SAA; + } else if (!strcasecmp(selstr1,"LIMB")) { + sel1=TEMPORAL_LIMB; + } else if (!strcasecmp(selstr1,"DAY")) { + sel1=TEMPORAL_DAY; + } else { + printf("%s", usage); + cf_if_error("TIMEFLAG not recognized."); + } + + cf_verbose(1,"Input Filename : %s",input_fname); + cf_verbose(1,"Output Filename : %s",output_fname); + cf_verbose(1,"FLAG : %s - %d",selstr1,sel1); + cf_verbose(1,"VALUE : %s - %d",selstr2,sel2); + + if ((sel1>1)&&(sel2==0)){ + cf_verbose(1,"Nothing to do."); + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished execution."); + return EXIT_SUCCESS; + } + + cf_verbose(1,"OPENING INPUT FILE"); + FITS_open_file(&infits,input_fname,READONLY,&status); + + cf_verbose(1,"CREATING OUTPUT FILE"); + FITS_create_file(&outfits,output_fname,&status); + FITS_copy_hdu(infits,outfits,0,&status); + + string_pointer=strrchr(output_fname,'/'); + if (string_pointer==NULL) corrected_filename=output_fname; + else corrected_filename=&(string_pointer[1]); + + FITS_update_key(outfits,TSTRING,"FILENAME",corrected_filename,NULL,&status); + + strcpy(tempstring,""); + + FITS_update_key(outfits,TSTRING,"BPM_CAL",tempstring,NULL,&status); + + if (sel1 == 1) { + switch(sel2) { + case 0: + strcpy(daynight,"NIGHT"); + break; + case 1: + strcpy(daynight,"DAY"); + break; + case 2: + strcpy(daynight,"BOTH"); + break; + } + FITS_update_key(outfits,TSTRING,"DAYNIGHT",daynight,NULL,&status); + } else { + FITS_read_key(infits,TSTRING,"DAYNIGHT",daynight,NULL,&status); + } + + + FITS_movabs_hdu(infits,2,&hdutype,&status); + FITS_create_hdu(outfits,&status); + FITS_copy_hdu(infits,outfits,0,&status); + + + npts = cf_read_col(outfits, TBYTE, "TIMEFLGS", (void **) &tflags); + npts = cf_read_col(outfits, TBYTE, "LOC_FLGS", (void **) &lflags); + for (i=0;i1){ + if (sel2==1){ + tflags[i]=(tflags[i])^sel1; + } else if (sel2==2){ + tflags[i]=(tflags[i])&(~sel1); + } + } + + switch(daynight[0]) { + case 'D': + time_test=tflags[i]^TEMPORAL_DAY; + break; + case 'N': + time_test=tflags[i]; + break; + default: + time_test=tflags[i]&(~TEMPORAL_DAY); + } + + if (lflags[i]&LOCATION_PHA){ + nbadpha++; + } + + if ((lflags[i]&~LOCATION_AIR) || (time_test)) { + nbadevnt++; + } + } + + if ((sel1>1)&&(sel2>0)){ + cf_write_col(outfits, TBYTE, "TIMEFLGS", (void *) tflags, npts); + } + + free(tflags); + free(lflags); + + + FITS_movabs_hdu(infits,3,&hdutype,&status); + FITS_create_hdu(outfits,&status); + FITS_copy_hdu(infits,outfits,0,&status); + + + FITS_movabs_hdu(infits,4,&hdutype,&status); + FITS_create_hdu(outfits,&status); + FITS_copy_hdu(infits,outfits,0,&status); + + + npts = cf_read_col(outfits, TBYTE, "STATUS_FLAGS", (void **) &tflags); + + for (i=0;i1){ + if (sel2==1){ + tflags[i]=(tflags[i])^sel1; + } else if (sel2==2){ + tflags[i]=(tflags[i])&(~sel1); + } + } + + switch(daynight[0]) { + case 'D': + time_test=tflags[i]^TEMPORAL_DAY; + break; + case 'N': + time_test=tflags[i]; + break; + default: + time_test=tflags[i]&(~TEMPORAL_DAY); + } + + + if (time_test==0) { + + exptime+=1.0; + + if (!(tflags[i] & TEMPORAL_DAY)) + expnight+=1.0; + + } else { + + exp_bad+=1.0; + + if (tflags[i] & TEMPORAL_BRST) + exp_brst+=1.0; + + if (tflags[i] & TEMPORAL_HV) + exp_hv=+1.0; + + if (tflags[i] & TEMPORAL_JITR) + exp_jitr=+1.0; + + if (tflags[i] & TEMPORAL_LIMB) + exp_lim=+1.0; + + if (tflags[i] & TEMPORAL_SAA) + exp_saa=+1.0; + } + + } + + if ((sel1>1)&&(sel2>0)){ + cf_write_col(outfits, TBYTE, "STATUS_FLAGS", (void *) tflags, npts); + } + + free(tflags); + + /* Update Main Header Keyword */ + FITS_movabs_hdu(outfits,1,&hdutype,&status); + + FITS_update_key(outfits,TDOUBLE ,"EXPTIME" ,&exptime ,NULL,&status); + FITS_update_key(outfits,TLONG ,"NBADEVNT" ,&nbadevnt ,NULL,&status); + FITS_update_key(outfits,TLONG ,"NBADPHA" ,&nbadpha ,NULL,&status); + FITS_update_key(outfits,TDOUBLE ,"EXP_BAD" ,&exp_bad ,NULL,&status); + FITS_update_key(outfits,TDOUBLE ,"EXP_SAA" ,&exp_saa ,NULL,&status); + FITS_update_key(outfits,TDOUBLE ,"EXP_LIM" ,&exp_lim ,NULL,&status); + FITS_update_key(outfits,TDOUBLE ,"EXP_BRST" ,&exp_brst ,NULL,&status); + FITS_update_key(outfits,TDOUBLE ,"EXP_JITR" ,&exp_jitr ,NULL,&status); + FITS_update_key(outfits,TDOUBLE ,"EXPNIGHT" ,&expnight ,NULL,&status); + + cf_verbose(1,"CLOSING INPUT FILE"); + FITS_close_file(infits,&status); + + cf_verbose(1,"CLOSING OUTPUT FILE"); + FITS_close_file(outfits,&status); + + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished execution."); + return EXIT_SUCCESS; + +} + + diff --git a/src/analysis/mjd2hjd.c b/src/analysis/mjd2hjd.c new file mode 100644 index 0000000..e0ecd18 --- /dev/null +++ b/src/analysis/mjd2hjd.c @@ -0,0 +1,129 @@ + +/***************************************************************************** + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ***************************************************************************** + * + * + * + * Usage: + * mjd2hjd [-h] [-v level] mjd ra_h ra_m ra_s dec_d dec_m dec_s + * + * + * Arguments: + * mjd : Modified Julian Day + * ra_h ra_m ra_s dec_d dec_m dec_s : RA and DEC of target : hh mm ss.s dd mm ss.s + * + * + * Options: + * -h: this help message + * -v: verbosity level (=1; 0 is silent) + * + * + * + * + * + * History: 10/06/04 bjg v1.0 + * 10/26/04 bjg v1.1 Cosmetic change + * + ****************************************************************************/ + + + +#include +#include +#include +#include +#include +#include + +#include "calfuse.h" + + + +#define SECONDS_PER_DAY (24.0*3600.0) + +static char CF_PRGM_ID[]= "mjd2hjd"; +static char CF_VER_NUM[]= "1.1"; + + +double gethmjd(double, int, int, float, int, int, float); + +int main(int argc,char *argv[]){ + + int optc; + + + + double lighttime; + double jd, mjd, hjd, hmjd; + + int rah,ram,decd,decm; + float ras,decs; + + + char opts[] = "hv:"; + char usage[] = + "Usage:\n" + " mjd2hjd [-h] [-v level] mjd ra_h ra_m ra_s dec_d dec_m dec_s\n"; + char argument[] = + "Arguments:\n" + " mjd : Modified Julian Day.\n" + " ra_h ra_m ra_s dec_d dec_m dec_s : RA and DEC of target.\n"; + char option[] = + "Options:\n" + " -h: this help message\n" + " -v: verbosity level (=1; 0 is silent)\n"; + verbose_level = 1; + + + /* Check number of options and arguments */ + while ((optc = getopt(argc, argv, opts)) != -1) { + switch(optc) { + + case 'h': + printf("%s\n%s\n%s", usage, argument, option); + return EXIT_SUCCESS; + case 'v': + verbose_level = atoi(optarg); + break; + } + } + + /* Initialize error checking. */ + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + if (argc != optind+7) + cf_if_error("%s\nIncorrect number of program arguments", usage); + + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution."); + + sscanf(argv[optind],"%lf",&mjd); + sscanf(argv[optind+1],"%d",&rah); + sscanf(argv[optind+2],"%d",&ram); + sscanf(argv[optind+3],"%f",&ras); + sscanf(argv[optind+4],"%d",&decd); + sscanf(argv[optind+5],"%d",&decm); + sscanf(argv[optind+6],"%f",&decs); + + + hmjd=gethmjd(mjd,rah,ram,ras,decd,decs,decm); + + jd = mjd + 2400000.5; + hjd = hmjd + 2400000.5; + + lighttime=(hmjd-mjd)*SECONDS_PER_DAY; + + cf_verbose(1,"Right Ascension of target: %d h %d m %f s",rah,ram,ras); + cf_verbose(1,"Declination of target: %d deg %d m %f s",decd,decm,decs); + cf_verbose(1,"jd= %lf",jd); + cf_verbose(1,"mjd= %lf",mjd); + cf_verbose(1,"hjd= %lf",hjd); + cf_verbose(1,"hmjd= %lf",hmjd); + cf_verbose(1,"heliocentric light time correction = %lf s",lighttime); + cf_verbose(1,"---positive when Earth is closer to target than Sun"); + return EXIT_SUCCESS; + +} + diff --git a/src/analysis/modhead.c b/src/analysis/modhead.c new file mode 100644 index 0000000..0ffc40b --- /dev/null +++ b/src/analysis/modhead.c @@ -0,0 +1,114 @@ +/***************************************************************************** + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ***************************************************************************** + * + * Synopsis: modhead file.fit[ext] KEYWORD NEW_VALUE + * + * Description: Returns or modifies the value of a header keyword. + * If NEW_VALUE is not specified, current value of KEYWORD is + * returned. If KEYWORD is not found and NEW_VALUE is given, + * KEYWORD is added to header. If an extension beyond the + * primary HDU is requested, file name must be given in + * parentheses: "file.fit[3]" or an alternate construction + * used: file.fit+3 Note that the primary HDU is extension 0. + * + * History: 05/15/05 tc started work + * 08/30/05 wvd Allow multi-word strings. + * + ****************************************************************************/ + +#include +#include +#include "fitsio.h" + +int main(int argc, char *argv[]) +{ + fitsfile *fptr; /* FITS file pointer, defined in fitsio.h */ + char card[FLEN_CARD], newcard[FLEN_CARD]; + char oldvalue[FLEN_VALUE], comment[FLEN_COMMENT]; + int status = 0; /* CFITSIO status value MUST be initialized to zero! */ + int i, iomode, keytype; + + if (argc == 3) + iomode = READONLY; + else if (argc >= 4) + iomode = READWRITE; + else if (argc < 3) { + printf("Usage: modhead filename[ext] keyword new_value\n"); + printf("\n"); + printf("Write or modify the value of a header keyword.\n"); + printf("If 'newvalue' is not specified, then just print \n"); + printf("the current value. \n"); + printf("\n"); + printf("Examples: \n"); + printf(" modhead file.fits dec - list the DEC keyword \n"); + printf(" modhead file.fits dec 30.0 - set DEC = 30.0 \n"); + printf("\n"); + printf(" modhead \"file.fits[2]\" OBSTIME - list OBSTIME from extention 2 \n"); + printf(" modhead file.fits+2 OBSTIME - list OBSTIME from extention 2\n"); + return(0); + } + + if (!fits_open_file(&fptr, argv[1], iomode, &status)) + { + if (fits_read_card(fptr,argv[2], card, &status)) + { + printf("Keyword does not exist\n"); + card[0] = '\0'; + comment[0] = '\0'; + status = 0; /* reset status after error */ + } + else + printf("%s\n",card); + + if (argc >= 4) /* write or overwrite the keyword */ + { + /* check if this is a protected keyword that must not be changed */ + if (*card && fits_get_keyclass(card) == TYP_STRUC_KEY) + { + printf("Protected keyword cannot be modified.\n"); + } + else + { + /* get the comment string */ + if (*card)fits_parse_value(card, oldvalue, comment, &status); + + /* construct template for new keyword */ + strcpy(newcard, argv[2]); /* copy keyword name */ + strcat(newcard, " = "); /* '=' value delimiter */ + if (argc == 4) strcat(newcard, argv[3]); /* new value */ + else { + strcat(newcard, "'"); + for (i = 3; i < argc-1; i++) { + strcat(newcard, argv[i]); /* new value */ + strcat(newcard, " "); + } + strcat(newcard, argv[i]); /* new value */ + strcat(newcard, "'"); + } + + if (*comment) { + strcat(newcard, " / "); /* comment delimiter */ + strcat(newcard, comment); /* append the comment */ + } + + /* reformat the keyword string to conform to FITS rules */ + fits_parse_template(newcard, card, &keytype, &status); + + /* overwrite the keyword with the new value */ + fits_update_card(fptr, argv[2], card, &status); + + printf("Keyword has been changed to:\n"); + printf("%s\n",card); + } + } /* if argc == 4 */ + fits_close_file(fptr, &status); + } /* open_file */ + + /* if error occured, print out error message */ + if (status) fits_report_error(stderr, status); + return(status); +} + diff --git a/src/analysis/remove_target_orbital_motion.c b/src/analysis/remove_target_orbital_motion.c new file mode 100644 index 0000000..d104b0d --- /dev/null +++ b/src/analysis/remove_target_orbital_motion.c @@ -0,0 +1,503 @@ + +/***************************************************************************** + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ***************************************************************************** + * + * + * + * Usage: + * remove_target_orbital_motion [-hb] [-v level] + * input_idf_file output_idf_file + * hjd0 period vrmax + * [ra_h ra_m ra_s dec_d dec_m dec_s] + * + * Arguments: + * mjd0 : Heliocentric or Geocentric + * Julian Day + * of closest approch on orbit. + * period : Period in seconds. + * vrmax : Maximum radial velocity in km/s + * ra_h ra_m ra_s dec_d dec_m dec_s : (Optional) RA and DEC of target. + * If present mjd0 is interpreted + * as Heliocentric. + * + * Options: + * -h: this help message + * -v: verbosity level (=1; 0 is silent) + * -b: update timeline doppler information (required for BPM) + * + * + * History: 12/01/03 bjg v1.0 Begin work. + * 12/02/03 bjg Changed calling + * parameters format. + * 12/04/03 bjg Number of elements in HDU2 + * is now determined from HDU2 + * header instead of HDU1 + * header NEVENTS keyword + * 12/10/03 bjg Updated header. + * 04/05/04 bjg Remove unused variables + * 06/10/04 bjg Some code cleaning + * 10/07/04 bjg v1.1 Added heliocentric + * time correction (optional) + * Added timeline doppler + * correction information + * (optional) for cf_bad_pixels + * 10/26/04 bjg v1.2 Cosmetic change + * + ****************************************************************************/ + + + +#include +#include +#include +#include +#include +#include + +#include "calfuse.h" + + + + +#define LIGHT_SPEED 299792.458 /* speed of light in kilometers per second */ +#define SECONDS_PER_DAY (24.0*3600.0) + +static char CF_PRGM_ID[]= "remove_target_orbital_motion"; +static char CF_VER_NUM[]= "1.2"; + +struct key { + char keyword[FLEN_KEYWORD]; + float value; +}; + + +double gethmjd(double, int, int, float, int, int, float); + +int main(int argc,char *argv[]){ + + + char fmt_byte[FLEN_CARD],fmt_float[FLEN_CARD],fmt_short[FLEN_CARD]; + + fitsfile * infits; + fitsfile * outfits; + + char input_filename[FLEN_CARD],output_filename[FLEN_CARD]; + char * corrected_filename; + char * string_pointer; + + int intnull=0,anynull; + int status=0; + int hdutype=0; + int ncol; + char tempstring[FLEN_CARD]; + char tempchar; + char keyword[FLEN_CARD],card[FLEN_CARD]; + + + struct key hdu4_tscal[16]; + struct key hdu4_tzero[16]; + + char hdu4_extname[]="TIMELINE"; + int hdu4_tfields=16; /* output table will have 16 columns */ + char *hdu4_ttype[]={"TIME", "STATUS_FLAGS", "TIME_SUNRISE", "TIME_SUNSET", + "LIMB_ANGLE", "LONGITUDE", "LATITUDE", "ORBITAL_VEL", + "HIGH_VOLTAGE", "LIF_CNT_RATE", "SIC_CNT_RATE", + "FEC_CNT_RATE", "AIC_CNT_RATE", "BKGD_CNT_RATE", + "YCENT_LIF","YCENT_SIC"}; + + char *hdu4_tform[16]; /* we will define tform later, when the number + of photons is known */ + + char *hdu4_tunit[]={"seconds", "unitless", "seconds", "seconds", "degrees", + "degrees", "degrees", "km/s", "unitless", "counts/sec", + "counts/sec", "counts/sec", "counts/sec", "counts/sec", + "pixels","pixels" }; + + + long nevents, nrecords; + long i; + + float * floatlist; + short * shortlist; + char * charlist; + + double * hdu4_time; + double * hdu4_orbvel; + + double * hdu2_time; + double * hdu2_lambda; + + double delta_t; + double period, vrmax, mjd0; + double expstart, mjd; + + int rah,ram,decd,decm; + float ras,decs; + + int optc; + + char opts[] = "hbv:"; + + char usage[] = + "Usage:\n" + " remove_target_orbital_motion [-hb] [-v level] \n" + " input_idf_file output_idf_file\n" + " mjd0 period vrmax\n" + " [ra_h ra_m ra_s dec_d dec_m dec_s]\n"; + char argument[] = + "Arguments:\n" + " mjd0 : (Geocentric or Heliocentric) Modified Julian Day\n" + " of closest approch on orbit.\n" + " period : Period in seconds.\n" + " vrmax : Maximum radial velocity in km/s\n" + " ra_h ra_m ra_s dec_d dec_m dec_s : Optional RA and DEC of target.\n" + " If present mjd0 is interpreted\n" + " as Heliocentric. \n"; + + char option[] = + "Options:\n" + " -h: this help message\n" + " -v: verbosity level (=1; 0 is silent)\n" + " -b: update timeline doppler information (required for BPM)\n"; + + + + int bigtime=1; /* How to store TSUNRISE and TSUNSET" */ + int do_timeline=0; + int helio_corr=0; + + verbose_level = 1; + + + /* Check number of options and arguments */ + while ((optc = getopt(argc, argv, opts)) != -1) { + switch(optc) { + case 'h': + printf("%s\n%s\n%s", usage, argument, option); + return EXIT_SUCCESS; + case 'v': + verbose_level = atoi(optarg); + break; + case 'b': + do_timeline=1; + break; + } + } + + /* Initialize error checking. */ + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + if ((argc != optind+11)&&(argc != optind+5)) + cf_if_error("%s\nIncorrect number of program arguments", usage); + + if (argc==optind+11) helio_corr=1; + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution."); + + strcpy(input_filename,argv[optind]); + strcpy(output_filename,argv[optind+1]); + + sscanf(argv[optind+2],"%lf",&mjd0); + sscanf(argv[optind+3],"%lf",&period); + sscanf(argv[optind+4],"%lf",&vrmax); + + cf_verbose(1,"Target Orbital Motion Doppler Correction"); + cf_verbose(1,"Processing file %s",input_filename); + + if (helio_corr) { + sscanf(argv[optind+5],"%d",&rah); + sscanf(argv[optind+6],"%d",&ram); + sscanf(argv[optind+7],"%f",&ras); + sscanf(argv[optind+8],"%d",&decd); + sscanf(argv[optind+9],"%d",&decm); + sscanf(argv[optind+10],"%f",&decs); + cf_verbose(1,"Right Ascension of target: %d h %d m %f s",rah,ram,ras); + cf_verbose(1,"Declination of target: %d deg %d m %f s",decd,decm,decs); + cf_verbose(1,"Heliocentric Modified Julian Day of closest approch on orbit: %lf",mjd0); + } else { + cf_verbose(1,"Geocentric Modified Julian Day of closest approch on orbit: %lf",mjd0); + } + + cf_verbose(1,"Period in seconds: %lf",period); + cf_verbose(1,"Maximum radial velocity in kilometers per second: %lf",vrmax); + + + + FITS_open_file(&infits,input_filename,READONLY,&status); + FITS_read_key(infits,TDOUBLE,"EXPSTART",&(expstart),NULL,&status); + + FITS_create_file(&outfits,output_filename,&status); + FITS_copy_hdu(infits,outfits,0,&status); + + string_pointer=strrchr(output_filename,'/'); + if (string_pointer==NULL) corrected_filename=output_filename; + else corrected_filename=&(string_pointer[1]); + + FITS_update_key(outfits,TSTRING,"FILENAME",corrected_filename,NULL,&status); + + strcpy(tempstring,""); + + FITS_update_key(outfits,TSTRING,"BPM_CAL",tempstring,NULL,&status); + + + + FITS_movabs_hdu(infits,2,&hdutype,&status); + FITS_read_key(infits,TSTRING,"TFORM1",tempstring,NULL,&status); + sscanf(tempstring,"%ld%c",&nevents,&tempchar); + + FITS_create_hdu(outfits,&status); + FITS_copy_hdu(infits,outfits,0,&status); + + + hdu2_time=(double *)malloc(nevents*sizeof(double)); + hdu2_lambda=(double *)malloc(nevents*sizeof(double)); + + + + FITS_get_colnum(infits, TRUE, "TIME", &ncol, &status); + FITS_read_col(infits, TDOUBLE, ncol, 1, 1, nevents, &intnull, + hdu2_time, &anynull, &status); + + FITS_get_colnum(infits, TRUE, "LAMBDA", &ncol, &status); + FITS_read_col(infits, TDOUBLE, ncol, 1, 1, nevents, &intnull, + hdu2_lambda, &anynull, &status); + + + + + cf_verbose(1,"Geocentric Modified Julian Day of start of observation/exposure is: %f",expstart); + if (helio_corr) { + mjd=gethmjd(expstart,rah,ram,ras,decd,decm,decs); + cf_verbose(1,"Heliocentric Modified Julian Day of start of observation/exposure is: %f",mjd); + } + + for (i=0;i +#include +#include +#include +#include +#include "calfuse.h" + +static char CF_PRGM_ID[] = "ttag_combine"; +static char CF_VER_NUM[] = "1.11"; + +#define MAXGTI 2000 /* Maximum number of good time intervals */ + +static int +cf_dtcor_read_counters(fitsfile *infits, long *de, long *fe, long *ai1a, + long *ai1b, long *ai2a, long *ai2b, long *sic, long *lif, long *as, + double *ctm ) +{ + char cntstr[FLEN_CARD], detstr[FLEN_CARD]; + long de_b, de_e, fe_b, fe_e; + long ai1a_b, ai1a_e, ai1b_b, ai1b_e, ai2a_b, ai2a_e, ai2b_b, ai2b_e ; + long sic_b, sic_e, lif_b, lif_e, as_b, as_e ; + double ctm_b, ctm_e ; + int status=0; + + FITS_read_key(infits, TSTRING, "DETECTOR", detstr, NULL, &status); + + /* Segment 1A Counters */ + + sprintf(cntstr, "%1.1s%2.2s%4.4s","C",detstr,"DE_B"); + FITS_read_key(infits, TLONG, cntstr, &de_b, NULL, &status); + + sprintf(cntstr, "%1.1s%2.2s%4.4s","C",detstr,"DE_E"); + FITS_read_key(infits, TLONG, cntstr, &de_e, NULL, &status); + + sprintf(cntstr, "%1.1s%2.2s%4.4s","C",detstr,"FE_B"); + FITS_read_key(infits, TLONG, cntstr, &fe_b, NULL, &status); + + sprintf(cntstr, "%1.1s%2.2s%4.4s","C",detstr,"FE_E"); + FITS_read_key(infits, TLONG, cntstr, &fe_e, NULL, &status); + + sprintf(cntstr, "%1.1s%2.2s%5.5s","C",detstr,"SIC_B"); + FITS_read_key(infits, TLONG, cntstr, &sic_b, NULL, &status); + + sprintf(cntstr, "%1.1s%2.2s%5.5s","C",detstr,"SIC_E"); + FITS_read_key(infits, TLONG, cntstr, &sic_e, NULL, &status); + + sprintf(cntstr, "%1.1s%2.2s%5.5s","C",detstr,"LIF_B"); + FITS_read_key(infits, TLONG, cntstr, &lif_b, NULL, &status); + + sprintf(cntstr, "%1.1s%2.2s%5.5s","C",detstr,"LIF_E"); + FITS_read_key(infits, TLONG, cntstr, &lif_e, NULL, &status); + + sprintf(cntstr, "%1.1s%2.2s%4.4s","C",detstr,"AS_B"); + FITS_read_key(infits, TLONG, cntstr, &as_b, NULL, &status); + + sprintf(cntstr, "%1.1s%2.2s%4.4s","C",detstr,"AS_E"); + FITS_read_key(infits, TLONG, cntstr, &as_e, NULL, &status); + + /* Active Image Counters */ + FITS_read_key(infits, TLONG, "C1AAI_B", &ai1a_b, NULL, &status); + FITS_read_key(infits, TLONG, "C1AAI_E", &ai1a_e, NULL, &status); + FITS_read_key(infits, TLONG, "C1BAI_B", &ai1b_b, NULL, &status); + FITS_read_key(infits, TLONG, "C1BAI_E", &ai1b_e, NULL, &status); + FITS_read_key(infits, TLONG, "C2AAI_B", &ai2a_b, NULL, &status); + FITS_read_key(infits, TLONG, "C2AAI_E", &ai2a_e, NULL, &status); + FITS_read_key(infits, TLONG, "C2BAI_B", &ai2b_b, NULL, &status); + FITS_read_key(infits, TLONG, "C2BAI_E", &ai2b_e, NULL, &status); + FITS_read_key(infits, TDOUBLE, "CTIME_B", &ctm_b, NULL, &status); + FITS_read_key(infits, TDOUBLE, "CTIME_E", &ctm_e, NULL, &status); + + + *de = de_e - de_b; + *fe= fe_e - fe_b; + *ai1a = ai1a_e - ai1a_b ; + *ai1b = ai1b_e - ai1b_b ; + *ai2a = ai2a_e - ai2a_b ; + *ai2b = ai2b_e - ai2b_b ; + *sic = sic_e - sic_b ; + *lif = lif_e - lif_b ; + *as = as_e - as_b ; + *ctm = ctm_e - ctm_b ; + + return 0; +} + +int main(int argc, char *argv[]) +{ + int i, j, k; + char buffer[FLEN_CARD], comment[FLEN_CARD], stime[FLEN_CARD]; + char cntstr[FLEN_CARD], detstr[FLEN_CARD]; + char expid[FLEN_CARD], procstep[FLEN_CARD] ; + long de, fe, de_tot, fe_tot, fe_b, de_b, fe_e, de_e; + long ai1a, ai1b, ai2a, ai2b, ai1a_tot, ai1b_tot, ai2a_tot; + long ai2b_tot,ai1a_b, ai1a_e, ai1b_b, ai1b_e, ai2a_b ; + long ai2a_e, ai2b_b, ai2b_e, sic_b, sic_e, sic_tot, sic ; + long lif_b, lif_e, lif_tot, lif, as_b, as_e, as_tot, as ; + long expnight, indnight; + int status=0, nfiles=0, hdutype=0, nkeys, keynum, anynull; + fitsfile *infits, *outfits; + long nevents, jrow, ngti, ngti_in; + char *pha_in, *dnflg ; + short *x_in, *y_in; + float *time_in, *gti_start, *gti_stop; + float *gti_start_in, *gti_stop_in, *dx, *dy ; + float fpasx0, fpasx, fpalx0, fpalx, dfpasx, dfpalx ; + double mjd_init, mjd_start, mjd_end, exptime, mjd_last=0, indtime; + double rawtime, trawtime; + double ctm, ctm_b, ctm_e, ctm_tot ; + int plantime, procflg ; + long tplantime ; + int tcol_in, xcol_in, ycol_in, phacol_in, startcol ,stopcol; + int tcol_out, xcol_out, ycol_out, phacol_out; + int dxcol_in, dxcol_out, dycol_in, dycol_out,dnflgcol_in; + int dnflgcol_out ; + int fpa_split = FALSE; + time_t vtime; + + + if (argc < 3) { + printf("Incorrect number of arguments.\n"); + printf("Calling sequence:ttag_combine output_file input_file1 input_file2 input_file3 ...\n"); + exit(1); + } + + /* Initialize error checking. */ + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution."); + + /* get and display time */ + vtime = time(NULL) ; + strcpy(stime,ctime(&vtime)) ; + + jrow=1; + de_tot=0 ; + fe_tot=0 ; + ai1a_tot=0 ; + ai1b_tot=0 ; + ai2a_tot=0 ; + ai2b_tot=0 ; + sic_tot=0 ; + lif_tot=0 ; + as_tot=0 ; + ctm_tot=0. ; + procflg=-1 ; + gti_start = (float *) cf_malloc(sizeof(float) * 1000); + gti_stop = (float *) cf_malloc(sizeof(float) * 1000); + + gti_start[0] = 0.0; + gti_stop[0] = 0.0; + + nfiles = argc-1; + + exptime=0.0; + expnight=0; + trawtime=0.0; + tplantime=0; + + ngti=0; /* is the number of new good time intervals */ + + for (i=2; i<=nfiles; i++) { + printf("Processing %-60.60s\n",argv[i]); + FITS_open_file(&infits, argv[i], READONLY, &status); + + if (i==2) { + FITS_read_key(infits, TDOUBLE, "EXPSTART", &mjd_init, + NULL, &status); + mjd_last=mjd_start=mjd_init; + FITS_read_key(infits, TDOUBLE, "EXPEND", &mjd_end, + NULL, &status); + FITS_read_key(infits, TSTRING, "INIT_COR", procstep, + NULL, &status) ; + cf_read_fpa_pos (infits, &fpasx0, &fpalx0); + FITS_create_file(&outfits, argv[1], &status); + FITS_copy_hdu(infits, outfits, 0, &status); + FITS_create_hdu(outfits, &status); + FITS_movabs_hdu(infits,2,&hdutype,&status); + FITS_get_hdrpos(infits, &nkeys, &keynum, &status); + for (j=1; j<=nkeys; j++) { + FITS_read_record(infits, j, buffer, &status); + FITS_write_record(outfits, buffer, &status); + } + /* adjust some initial keywords */ + nevents=0; + FITS_update_key(outfits, TLONG, "NAXIS2", &nevents, + NULL, &status); + /* set a flag (procflg) if the file is processed in any way */ + if ( strncmp(procstep, "COMP", 4) == 0) { + printf("file has been processed - setting flag \n") ; + procflg = 1 ; } + else printf("These are raw data files \n") ; + } else { + FITS_read_key(infits, TDOUBLE, "EXPSTART", &mjd_start, + NULL, &status); + if (mjd_start < mjd_last) + cf_if_error("Files must be in time order, first to last."); + mjd_last=mjd_start; + FITS_read_key(infits, TDOUBLE, "EXPEND", &mjd_end, + NULL, &status); + cf_read_fpa_pos (infits, &fpasx, &fpalx); + dfpasx = fpasx - fpasx0 ; + dfpalx = fpalx - fpalx0 ; + if (fabs((double)dfpasx) > 30.) { + printf("\nLarge change in SIC FPA X position: %f \n",dfpasx) ; + fpa_split = TRUE; + } + if (fabs((double)dfpalx) > 30.) { + printf("\nLarge change in LIF FPA X position: %f \n",dfpalx) ; + fpa_split = TRUE; + } + } + + FITS_movabs_hdu(infits,1,&hdutype,&status); + + FITS_read_key(infits, TDOUBLE, "EXPTIME", &indtime, + NULL, &status); + exptime+=indtime; + + fits_read_key(infits, TDOUBLE, "RAWTIME", &rawtime, + NULL, &status); + if (status) + status = 0; + else + trawtime+=rawtime; + + FITS_read_key(infits, TINT, "PLANTIME", &plantime, + NULL, &status); + tplantime+=plantime ; + + fits_read_key(infits, TLONG, "EXPNIGHT", &indnight, + NULL, &status); + if (status) + status = 0; + else + expnight+=indnight; + + cf_dtcor_read_counters(infits,&de,&fe,&ai1a,&ai1b,&ai2a,&ai2b, + &sic,&lif,&as,&ctm) ; + + de_tot += de; + fe_tot += fe; + ai1a_tot += ai1a ; + ai1b_tot += ai1b ; + ai2a_tot += ai2a ; + ai2b_tot += ai2b ; + sic_tot += sic ; + lif_tot += lif ; + as_tot += as ; + ctm_tot += ctm ; + + FITS_movabs_hdu(infits,2,&hdutype,&status); + /* Get the number of events in the input file. */ + FITS_read_key(infits, TLONG, "NAXIS2", &nevents, NULL, &status); + + printf(" EXPTIME=%10.3f NEVENTS=%10ld\n",indtime,nevents); + + /* Allocate space for the input and output times, coords, + pha */ + time_in = (float *) cf_malloc(sizeof(float) * nevents); + x_in = (short *) cf_malloc(sizeof(short) * nevents); + y_in = (short *) cf_malloc(sizeof(short) * nevents); + pha_in = (char *) cf_malloc(sizeof(char) * nevents); + dx = (float *) cf_malloc(sizeof(float) * nevents); + dy = (float *) cf_malloc(sizeof(float) * nevents); + dnflg = (char *) cf_malloc(sizeof(char) * nevents); + + FITS_get_colnum(infits, TRUE, "TIME", &tcol_in, &status); + FITS_get_colnum(infits, TRUE, "X", &xcol_in, &status); + FITS_get_colnum(infits, TRUE, "Y", &ycol_in, &status); + FITS_get_colnum(infits, TRUE, "PHA", &phacol_in, &status); + if(procflg > 0) { + FITS_get_colnum(infits, TRUE, "DX", &dxcol_in, &status); + FITS_get_colnum(infits, TRUE, "DY", &dycol_in, &status); + FITS_get_colnum(infits, TRUE, "DNFLG",&dnflgcol_in, &status); } + + FITS_get_colnum(outfits, TRUE, "TIME", &tcol_out, &status); + FITS_get_colnum(outfits, TRUE, "X", &xcol_out, &status); + FITS_get_colnum(outfits, TRUE, "Y", &ycol_out, &status); + FITS_get_colnum(outfits, TRUE, "PHA", &phacol_out, &status); + if (procflg > 0 ) { + FITS_get_colnum(outfits, TRUE, "DX", &dxcol_out, &status); + FITS_get_colnum(outfits, TRUE, "DY", &dycol_out, &status); + FITS_get_colnum(outfits, TRUE, "DNFLG",&dnflgcol_out, &status);} + + FITS_read_col(infits, TFLOAT, tcol_in, 1, 1, nevents, NULL, + time_in, &anynull, &status); + FITS_read_col(infits, TSHORT, xcol_in, 1, 1, nevents, NULL, + x_in, &anynull, &status); + FITS_read_col(infits, TSHORT, ycol_in, 1, 1, nevents, NULL, + y_in, &anynull, &status); + FITS_read_col(infits, TBYTE, phacol_in, 1, 1, nevents, NULL, + pha_in, &anynull, &status); + if(procflg > 0) { + FITS_read_col(infits, TFLOAT, dxcol_in, 1, 1, nevents, NULL, + dx, &anynull, &status); + FITS_read_col(infits, TFLOAT, dycol_in, 1, 1, nevents, NULL, + dy, &anynull, &status); + FITS_read_col(infits, TBYTE, dnflgcol_in, 1, 1, nevents, NULL, + dnflg, &anynull, &status);} + + for (j=0; j 0) { + FITS_write_col(outfits, TFLOAT, dxcol_out, jrow, 1, + nevents, dx, &status); + FITS_write_col(outfits, TFLOAT, dycol_out, jrow, 1, + nevents, dy, &status); + FITS_write_col(outfits, TBYTE, dnflgcol_out, jrow, 1, + nevents, dnflg, &status); } + jrow+=nevents; + + free(time_in); + free(x_in); + free(y_in); + free(pha_in); + free(dx) ; + free(dy) ; + free(dnflg) ; + + + /* Copy GTI from input to output */ + FITS_movabs_hdu(infits, 3, &hdutype, &status); + FITS_read_key(infits, TLONG, "NAXIS2", &ngti_in, NULL, &status); + gti_start_in = (float *) cf_malloc(sizeof(float) * ngti_in); + gti_stop_in = (float *) cf_malloc(sizeof(float) * ngti_in); + FITS_get_colnum(infits, TRUE, "START", &startcol, &status); + FITS_get_colnum(infits, TRUE, "STOP", &stopcol, &status); + FITS_read_col(infits, TFLOAT, startcol, 1, 1, ngti_in, 0, + gti_start_in, &anynull, &status); + FITS_read_col(infits, TFLOAT, stopcol, 1, 1, ngti_in, 0, + gti_stop_in, &anynull, &status); + for (k=0; k= MAXGTI) { + sprintf(buffer, "More than %d good time intervals.",MAXGTI) ; + cf_if_error(buffer); + } + } + free(gti_start_in); + free(gti_stop_in); + + FITS_close_file(infits, &status); + } + + FITS_flush_file(outfits, &status); + + FITS_movabs_hdu(outfits, 1, &hdutype, &status); + jrow=jrow-1 ; + FITS_update_key(outfits, TLONG, "NEVENTS", &jrow, 0, &status) ; + FITS_update_key(outfits, TDOUBLE, "EXPTIME", &exptime, 0, &status); + FITS_update_key(outfits, TDOUBLE, "EXPEND", &mjd_end, 0, &status); + FITS_update_key(outfits, TLONG, "PLANTIME", &tplantime, 0, &status) ; + + if (expnight < 0) + expnight = 0; + FITS_update_key(outfits, TLONG, "EXPNIGHT", &expnight, 0, &status); + + if (trawtime - exptime > -1.) + FITS_update_key(outfits, TDOUBLE, "RAWTIME", &trawtime, 0, &status); + + FITS_read_key(outfits, TSTRING, "DETECTOR", detstr, NULL, &status); + sprintf(cntstr, "%1.1s%2.2s%4.4s","C",detstr,"FE_B"); + FITS_read_key(outfits, TLONG, cntstr, &fe_b, NULL, &status); + sprintf(cntstr, "%1.1s%2.2s%4.4s","C",detstr,"DE_B"); + FITS_read_key(outfits, TLONG, cntstr, &de_b, NULL, &status); + sprintf(cntstr, "%1.1s%2.2s%5.5s","C",detstr,"SIC_B"); + FITS_read_key(outfits, TLONG, cntstr, &sic_b, NULL, &status); + sprintf(cntstr, "%1.1s%2.2s%5.5s","C",detstr,"LIF_B"); + FITS_read_key(outfits, TLONG, cntstr, &lif_b, NULL, &status); + sprintf(cntstr, "%1.1s%2.2s%4.4s","C",detstr,"AS_B"); + FITS_read_key(outfits, TLONG, cntstr, &as_b, NULL, &status); + + FITS_read_key(outfits, TLONG, "C1AAI_B", &ai1a_b, NULL, &status); + FITS_read_key(outfits, TLONG, "C1BAI_B", &ai1b_b, NULL, &status); + FITS_read_key(outfits, TLONG, "C2AAI_B", &ai2a_b, NULL, &status); + FITS_read_key(outfits, TLONG, "C2BAI_B", &ai2b_b, NULL, &status); + FITS_read_key(outfits, TDOUBLE, "CTIME_B", &ctm_b, NULL, &status); + + sprintf(comment, "New ID for combined data") ; + strncpy(expid,"999 ",18) ; + expid[18]='\0' ; + FITS_update_key(outfits, TSTRING, "EXP_ID", expid, comment, &status); + + sprintf(comment, "Date and time file was created") ; + stime[24]='\0' ; + FITS_update_key(outfits, TSTRING, "DATE", stime, comment, &status) ; + + de_e = de_tot + de_b; + fe_e = fe_tot + fe_b; + lif_e = lif_tot + lif_b ; + sic_e = sic_tot + sic_b ; + as_e = as_tot + as_b ; + ctm_e = ctm_tot + ctm_b ; + ai1a_e = ai1a_tot + ai1a_b ; + ai1b_e = ai1b_tot + ai1b_b ; + ai2a_e = ai2a_tot + ai2a_b ; + ai2b_e = ai2b_tot + ai2b_b ; + + sprintf(cntstr, "%1.1s%2.2s%4.4s","C",detstr,"DE_E"); + FITS_update_key(outfits, TLONG, cntstr, &de_e, NULL, &status); + sprintf(cntstr, "%1.1s%2.2s%4.4s","C",detstr,"FE_E"); + FITS_update_key(outfits, TLONG, cntstr, &fe_e, NULL, &status); + sprintf(cntstr, "%1.1s%2.2s%5.5s","C",detstr,"SIC_E"); + FITS_update_key(outfits, TLONG, cntstr, &sic_e, NULL, &status); + sprintf(cntstr, "%1.1s%2.2s%5.5s","C",detstr,"LIF_E"); + FITS_update_key(outfits, TLONG, cntstr, &lif_e, NULL, &status); + sprintf(cntstr, "%1.1s%2.2s%4.4s","C",detstr,"AS_E"); + FITS_update_key(outfits, TLONG, cntstr, &as_e, NULL, &status); + + FITS_update_key(outfits, TLONG, "C1AAI_E", &ai1a_e, NULL, &status); + FITS_update_key(outfits, TLONG, "C1BAI_E", &ai1b_e, NULL, &status); + FITS_update_key(outfits, TLONG, "C2AAI_E", &ai2a_e, NULL, &status); + FITS_update_key(outfits, TLONG, "C2BAI_E", &ai2b_e, NULL, &status); + FITS_update_key(outfits, TDOUBLE, "CTIME_E", &ctm_e, NULL, &status); + + + FITS_write_comment(outfits, " ", &status); + FITS_write_comment(outfits, "CF_TTAG_COMBINE", &status); + FITS_write_comment(outfits, " ", &status); + FITS_write_comment(outfits, "This file is a concatenation of:", &status); + for (i=2; i<=nfiles; i++) { + FITS_write_comment(outfits, argv[i], &status); + } + + + FITS_open_file(&infits, argv[2], READONLY, &status); + + /* Move to the second extension which contains the goof time intervals. */ + FITS_movabs_hdu(infits, 3, &hdutype, &status); + + /* Create the second extension in the output file. */ + FITS_create_hdu(outfits, &status); + + /* Copy the header of the input file to the output file. */ + FITS_get_hdrpos(infits, &nkeys, &keynum, &status); + for (i=1; i<=nkeys; i++) { + FITS_read_record(infits, i, buffer, &status); + FITS_write_record(outfits, buffer, &status); + } + + FITS_get_colnum(outfits,TRUE,"START",&startcol,&status); + FITS_get_colnum(outfits,TRUE,"STOP",&stopcol,&status); + + FITS_write_col(outfits, TFLOAT, startcol, 1, 1, ngti, gti_start, &status); + FITS_write_col(outfits, TFLOAT, stopcol, 1, 1, ngti, gti_stop, &status); + + free(gti_start); + free(gti_stop); + + FITS_close_file(infits, &status); + FITS_close_file(outfits, &status); + + if (fpa_split) + cf_if_warning("FPA motion detected. Resolution may be compromised.\n"); + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished execution."); + return 0; +} diff --git a/src/analysis/ttag_lightcurve.c b/src/analysis/ttag_lightcurve.c new file mode 100644 index 0000000..f1a14fa --- /dev/null +++ b/src/analysis/ttag_lightcurve.c @@ -0,0 +1,398 @@ + +/************************************************************************* + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ************************************************************************* + * + * + * Usage: + * ttag_lightcurve [-hf] [-v level] input_file output_file windows_file + * bins LiForSiC + * + * + * Arguments: + * input_file : ttag IDF file + * output_file : ASCII file with 2 columns : + * - time (MJD) + * - countrate + * + * windows_file : input ASCII file with 2 columns : + * - start of spectral windows + * - stop of spectral windows + * + * bins : bin size in seconds + * LiForSiC : 1=LiF, 2=SiC + * + * + * + * + * Options: + * -h: this help message + * -f: output calibrated flux (erg/cm2/s) instead of countrate + * -v: verbosity level (=1; 0 is silent) + * + * + * + * + * History: 10/06/04 bjg v1.0 + * 06/03/05 wvd v1.1 Delete unused variables. + * + ***************************************************************************/ + + + +#include +#include +#include +#include +#include +#include + +#include "calfuse.h" + + + + +#define N_MAX_WIN 100 /* Maximum number of spectral windows */ + +typedef struct { + float start; + float stop; +} interval; /* type to store a spectral window */ + + +int is_inside(float val,interval * interval_ptr, int nintervals); +int is_good_time(char timeflag,char * daynight); +int is_in_lif_channel(char channel, char * aperture); +int is_in_sic_channel(char channel, char * aperture); + + + + + +static char CF_PRGM_ID[]= "ttag_lightcurve"; +static char CF_VER_NUM[]= "1.1"; + + + + +int main(int argc,char *argv[]){ + + + + char input_filename[FLEN_CARD]; + char output_filename[FLEN_CARD]; + char windefs_filename[FLEN_CARD]; + + FILE * output_file; + FILE * windefs_file; + + fitsfile * infits; + + interval swindows[N_MAX_WIN]; /* the spectral windows are stored + in an array of intervals */ + int nwindows = 0; /* number of spectral windows TBD */ + + float bins; + + int intnull=0,anynull; + int status=0; + int hdutype=0; + + long nevents; + long i; + int ncol; + + char tempchar; + char tempstring[FLEN_CARD]; + + char daynight[FLEN_CARD]; + char instmode[FLEN_CARD]; + char aperture[FLEN_CARD]; + + double * hdu2_time; + double * hdu2_lambda; + double * hdu2_weight; + char * hdu2_channel; + char * hdu2_timeflgs; + char * hdu2_loc_flgs; + + float * gti_start; + float * gti_stop; + int ngtis; + + interval * gtis; + + double t, tmax, ctot; + + double expstart; + + int badtime; + + int LiForSiC; + + + int optc; + + int do_flux=0; + + char opts[] = "hfv:"; + char usage[] = + "Usage:\n" + " ttag_lightcurve [-hf] [-v level] input_file output_file windows_file\n" + " bins LiForSiC\n\n" + "Arguments:\n" + " input_file : ttag IDF file\n\n" + " output_file : ASCII file with 2 columns:\n" + " - time (MJD)\n" + " - countrate corrected for deadtime\n\n" + " windows_file : input ASCII file with 2 columns :\n" + " - start of spectral windows\n" + " - stop of spectral windows\n\n" + " bins : bin size in seconds\n" + " LiForSiC : 1=LiF, 2=SiC\n"; + char option[] = + "Options:\n" + " -h: this help message \n" + " -f: output calibrated flux (erg/cm2/s) instead of countrate \n" + " -v: verbosity level (=1; 0 is silent) \n"; + + verbose_level = 1; + + + /* Check number of options and arguments */ + while ((optc = getopt(argc, argv, opts)) != -1) { + switch(optc) { + case 'h': + printf("%s\n%s", usage, option); + return EXIT_SUCCESS; + case 'v': + verbose_level = atoi(optarg); + break; + case 'f': + do_flux=1; + break; + } + } + + /* Initialize error checking. */ + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + if (argc != optind+5) + cf_if_error("%s\nIncorrect number of program arguments", usage); + + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution."); + + strcpy(input_filename,argv[optind]); + strcpy(output_filename,argv[optind+1]); + strcpy(windefs_filename,argv[optind+2]); + sscanf(argv[optind+3],"%f",&bins); + sscanf(argv[optind+4],"%d",&LiForSiC); + + if ((LiForSiC>2)||(LiForSiC<1)) { + cf_if_error("%s\nLiForSiC value must be 1 (LiF) or 2 (SiC)", usage); + } + + + if (bins<=0) { + cf_if_error("Time interval is less than or equal to zero."); + } + + + /* Open the spectral windows definition file */ + if ((windefs_file = fopen (windefs_filename, "r")) == NULL){ + cf_if_error ("Unable to open file %s\n", windefs_filename); + } + + + /* Read the spectral windows definition file and store the spectral windows */ + while (fscanf(windefs_file,"%f %f",&((swindows[nwindows]).start), + &((swindows[nwindows]).stop))!=EOF) + { + nwindows++; + } + + + + + for (i=0;i=tmax) { + if (!(is_inside(t,gtis,ngtis))) badtime=1; + if (!(is_inside(tmax,gtis,ngtis))) badtime=1; + if (!badtime) fprintf(output_file,"%15lf %15lf\n",expstart+t/(3600.0*24.0),ctot/bins); + t=tmax; + tmax=t+bins; + ctot=0.0; + badtime=0; + } + + if (!(is_good_time(hdu2_timeflgs[i],daynight))) badtime=1; + + if (is_inside(hdu2_lambda[i],swindows,nwindows)){ + if (hdu2_loc_flgs[i]==0){ + if (LiForSiC==1){ + if (is_in_lif_channel(hdu2_channel[i],aperture)){ + ctot+=hdu2_weight[i]; + } + } + else { + if (is_in_sic_channel(hdu2_channel[i],aperture)){ + ctot+=hdu2_weight[i]; + } + } + } + } + + i++; + } + + free(hdu2_time); + free(hdu2_lambda); + free(hdu2_weight); + free(hdu2_channel); + free(hdu2_timeflgs); + free(hdu2_loc_flgs); + + + + FITS_close_file(infits,&status); + fclose(windefs_file); + fclose(output_file); + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished execution."); + return EXIT_SUCCESS; + +} + +int is_inside(float val,interval * interval_ptr, int nintervals){ + int i; + i=0; + while (i=interval_ptr[i].start)){ + return 1; + } + i++; + } + return 0; +} + +int is_good_time(char timeflag,char * daynight){ + + if (!(strncasecmp(daynight,"DAY" ,3))) return (timeflag == 1); + if (!(strncasecmp(daynight,"NIGHT",5))) return (timeflag == 0); + + return ((timeflag&254) == 0); + +} + +int is_in_lif_channel(char channel, char * aperture){ + if (!strncasecmp(aperture,"LWRS",4)) return (channel == 3); + if (!strncasecmp(aperture,"MDRS",4)) return (channel == 2); + if (!strncasecmp(aperture,"HIRS",4)) return (channel == 1); + return 0; +} + +int is_in_sic_channel(char channel, char * aperture){ + if (!strncasecmp(aperture,"LWRS",4)) return (channel == 7); + if (!strncasecmp(aperture,"MDRS",4)) return (channel == 6); + if (!strncasecmp(aperture,"HIRS",4)) return (channel == 5); + return 0; +} diff --git a/src/analysis/ttag_lightcurve_channel_sum.c b/src/analysis/ttag_lightcurve_channel_sum.c new file mode 100644 index 0000000..9f76c37 --- /dev/null +++ b/src/analysis/ttag_lightcurve_channel_sum.c @@ -0,0 +1,183 @@ + +/************************************************************************* + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ************************************************************************* + * + * + * Usage: + * ttag_lightcurve_channel_sum [-h] [-v level] output_file + * input_file1 input_file2 + * + * + * Arguments: + * input_files : ASCII files with 2 columns : + * - time + * - signal + * + * output_file : ASCII file with 2 columns : + * - time + * - signal + * + * + * + * + * + * + * Options: + * -h: this help message + * -v: verbosity level (=1; 0 is silent) + * + * + * + * + * History: 10/06/04 bjg v1.0 + * 11/04/04 bjg v1.1 time equality criteria changed + * + ***************************************************************************/ + + + +#include +#include +#include +#include +#include +#include + +#include "calfuse.h" + + +#define MAX_INPUT_FILE 20 + +static char CF_PRGM_ID[]= "ttag_lightcurve_channel_sum"; +static char CF_VER_NUM[]= "1.1"; + + +int is_equal(double a, double b, double delta){ + + return ( ((a-b) <= delta) && ((a-b) > -delta) ); + +} + + +int main(int argc,char *argv[]){ + + + + char input_filename1[FLEN_CARD]; + char input_filename2[FLEN_CARD]; + char output_filename[FLEN_CARD]; + + + FILE * output_file; + FILE * input_file1; + FILE * input_file2; + + double t1,v1,t2,v2, delta_t; + + int end_of_file; + + int optc; + + char opts[] = "hv:"; + char usage[] = + "Usage:\n" + " ttag_lightcurve_channel_sum [-h] [-v level] output_file\n" + " input_file1 input_file2\n\n" + "Arguments:\n" + " input_files : ASCII files with 2 columns :\n" + " - time\n" + " - signal\n\n" + " output_file : ASCII file with 2 columns : \n" + " - time \n" + " - signal\n"; + char option[] = + "Options:\n" + " -h: this help message \n" + " -v: verbosity level (=1; 0 is silent) \n"; + + verbose_level = 1; + + + /* Check number of options and arguments */ + while ((optc = getopt(argc, argv, opts)) != -1) { + switch(optc) { + case 'h': + printf("%s\n%s", usage, option); + return EXIT_SUCCESS; + case 'v': + verbose_level = atoi(optarg); + break; + } + } + + /* Initialize error checking. */ + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + if (argc != optind+3) + cf_if_error("%s\nIncorrect number of program arguments", usage); + + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution."); + + strcpy(output_filename,argv[optind]); + strcpy(input_filename1,argv[optind+1]); + strcpy(input_filename2,argv[optind+2]); + + + + if ((input_file1 = fopen(input_filename1,"r")) == NULL){ + cf_if_error ("Unable to open file %s\n", input_filename1); + } + + if ((input_file2 = fopen(input_filename2,"r")) == NULL){ + fclose(input_file1); + cf_if_error ("Unable to open file %s\n", input_filename2); + } + + + /* Create the output file */ + if ((output_file = fopen(output_filename,"w")) == NULL){ + fclose(input_file1); + fclose(input_file2); + cf_if_error ("Unable to create file %s\n", output_filename); + } + + fscanf(input_file1,"%lf %lf",&t1,&v1); + fscanf(input_file1,"%lf %lf",&t2,&v2); + delta_t=t2-t1; + + fseek(input_file1,0,SEEK_SET); + + + end_of_file=(fscanf(input_file2,"%lf %lf",&t2,&v2)==EOF)||(fscanf(input_file1,"%lf %lf",&t1,&v1)==EOF); + + + while (!end_of_file){ + if (is_equal(t2,t1,delta_t/2)){ + fprintf(output_file,"%15lf %15lf\n",t1,v1+v2); + end_of_file=(fscanf(input_file2,"%lf %lf",&t2,&v2)==EOF)||(fscanf(input_file1,"%lf %lf",&t1,&v1)==EOF); + } + else if (t2 +#include +#include +#include +#include +#include "calfuse.h" + + +typedef char filename[FLEN_CARD]; + +static char CF_PRGM_ID[]= "ttag_lightcurve_combine"; +static char CF_VER_NUM[]= "1.0"; + +int main(int argc,char *argv[]){ + + char stime[FLEN_CARD]; + time_t vtime; + + + filename *filelist; + double *expstartlist; + + filename tempstring; + double tempdouble; + + double minexpstart; + int minindex; + + long nfiles, n2; + long i,j; + + double t,v; + FILE * fin; + FILE * fout; + + int optc; + + char opts[] = "hv:"; + char usage[] = + "Usage:\n" + " ttag_lightcurve_combine [-h] [-v level] output_file input_files\n"; + char option[] = + "Options:\n" + " -h: this help message\n" + " -v: verbosity level (=1; 0 is silent)\n"; + + verbose_level = 1; + + /* Check number of options and arguments */ + while ((optc = getopt(argc, argv, opts)) != -1) { + switch(optc) { + case 'h': + printf("%s\n%s", usage, option); + return 0; + case 'v': + verbose_level = atoi(optarg); + break; + } + } + + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + + if (argc < optind+2) { + printf("%s", usage); + cf_if_error("Incorrect number of arguments"); + } + + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution."); + + /* get and display time */ + vtime = time(NULL) ; + strcpy(stime,ctime(&vtime)); + + + nfiles=argc-optind-1; + + filelist = (filename *)malloc(nfiles*sizeof(filename)); + expstartlist = (double *)malloc(nfiles*sizeof(double)); + + + cf_verbose(1,"GETTING INFORMATION ON INPUT FILES") ; + + n2=0; + + for (i=0; i +#include +#include +#include +#include +#include + +#include "calfuse.h" + +double gethmjd(double, int, int, float, int, int, float); + +static char CF_PRGM_ID[]= "ttag_lightcurve_mjd2hmjd"; +static char CF_VER_NUM[]= "1.1"; + + +int main(int argc,char *argv[]){ + + + + char input_filename[FLEN_CARD]; + char output_filename[FLEN_CARD]; + + + FILE * output_file; + FILE * input_file; + + + double t,t2,v; + int rah, ram, decd, decm; + float ras, decs; + + + int optc; + + char opts[] = "hv:"; + char usage[] = + "Usage:\n" + " ttag_lightcurve_mjd2hmjd [-h] [-v level] output_file input_file\n" + " hh mm ss dd mm ss\n\n" + "Arguments:\n" + " input_file : ASCII file with 2 columns :\n" + " - time (MJD) \n" + " - signal\n\n" + " output_file : ASCII file with 2 columns : \n" + " - time (HMJD) \n" + " - signal \n\n" + " hh mm ss dd mm ss : RA and DEC of target\n"; + char option[] = + "Options:\n" + " -h: this help message \n" + " -v: verbosity level (=1; 0 is silent) \n"; + + verbose_level = 1; + + + /* Check number of options and arguments */ + while ((optc = getopt(argc, argv, opts)) != -1) { + switch(optc) { + case 'h': + printf("%s\n%s", usage, option); + return EXIT_SUCCESS; + case 'v': + verbose_level = atoi(optarg); + break; + } + } + + /* Initialize error checking. */ + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + if (argc != optind+8) + cf_if_error("%s\nIncorrect number of program arguments", usage); + + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution."); + + strcpy(output_filename,argv[optind]); + strcpy(input_filename,argv[optind+1]); + sscanf(argv[optind+2],"%d",&rah); + sscanf(argv[optind+3],"%d",&ram); + sscanf(argv[optind+4],"%f",&ras); + sscanf(argv[optind+5],"%d",&decd); + sscanf(argv[optind+6],"%d",&decm); + sscanf(argv[optind+7],"%f",&decs); + + + if ((input_file = fopen(input_filename,"r")) == NULL){ + cf_if_error ("Unable to open file %s\n", input_filename); + } + + /* Create the output file */ + if ((output_file = fopen(output_filename,"w")) == NULL){ + fclose(input_file); + cf_if_error ("Unable to create file %s\n", output_filename); + } + + while(fscanf(input_file,"%lf %lf",&t,&v)!=EOF) { + t2=gethmjd(t, rah, ram, ras, decd, decm, decs); + + fprintf(output_file,"%15lf %15lf\n",t2,v); + } + + fclose(input_file); + fclose(output_file); + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished execution."); + return EXIT_SUCCESS; + +} + + diff --git a/src/analysis/ttag_lightcurve_periodogram.c b/src/analysis/ttag_lightcurve_periodogram.c new file mode 100644 index 0000000..939a1ec --- /dev/null +++ b/src/analysis/ttag_lightcurve_periodogram.c @@ -0,0 +1,294 @@ + +/**************************************************************************** + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + **************************************************************************** + * + * + * Usage: + * ttag_lightcurve_periodogram [-hs] [-v level] input_file output_file + * minf maxf stepf + * + * + * Arguments: + * input_file : an ASCII file with 2 columns : + * - time (days) + * - countrate + * + * output_file : an ASCII file with 2 columns : + * - frequency (Hz) + * - normalized estimated power spectral density + * + * minf : start frequency (Hz) + * maxf : end frequency (Hz) + * stepf : frequency step (Hz) + * + * + * + * Options: + * -h: this help message + * -v: verbosity level (=1; 0 is silent) + * -s: time is in seconds instead of days + * + * + ************************************************************************** + * + * + * + * Description: + * + * Computes the Lomb periodogram of signal h + * from samples (hj) j=1..N at times (tj) j=1..N + * + * + * w=2*pi*f + * + * + * + * 1 / (sum_j[(hj-H)*cos(w(tj-tau))])^2 + * Pn(w) = ----------- | --------------------------------- + * 2*sigma2 \ sum_j[(cos(w(tj-tau)))^2] + * + * + * (sum_j[(hj-H)*sin(w(tj-tau))])^2 \ + * + --------------------------------- | + * sum_j[(cos(w(tj-tau)))^2] / + * + * + * + * + * H=sum_i[hi]/N sigma2=sum_i[(hi-H)^2]/(N-1) + * + * + * sum_j[sin(2*w*tj)] + * tan (2*w*tau) = ------------------ + * sum_j[cos(2*w*tj)] + * + * + * PAINFULLY SLOW + * NEED TO BE REWRITTEN TO DO A FAST TRANSFORM (RECURSIVE) + * + * + * + ***************************************************************************** + * + * History: 10/07/04 bjg v1.0 + * 11/04/04 bjg v1.1 + * + * ----v1.1 CHANGES WERE CANCELLED --- + * 12/06/04 bjg v1.2 + * 12/13/04 bjg v1.3 Changed N and i to long + * Initialize N to 0 + * 06/03/05 wvd v1.4 Delete unused variables. + * + * + ***************************************************************************/ + + + +#include +#include +#include +#include +#include +#include + + +#include "calfuse.h" + + +static char CF_PRGM_ID[]= "ttag_lightcurve_periodogram"; +static char CF_VER_NUM[]= "1.1"; + + + +int main(int argc,char *argv[]){ + + + + char input_filename[FLEN_CARD],output_filename[FLEN_CARD]; + + FILE * output_file; + FILE * input_file; + + float minf,maxf; + float stepf; + + + double H; + double sigma2; + double tau; + + + double val1,val2; + double * t; + double * h; + double total1,total2,total3,total4; + double aux; + double Pn; + double f; + double j0=0; + + long i, N; + long ndx; + + int time_unit=0; + + int optc; + + char opts[] = "hsv:"; + + char usage[] = + "Usage:\n" + " ttag_lightcurve_periodogram [-hs] [-v level] input_file output_file\n" + " minf, maxf, stepf\n" + "Arguments:\n" + " input_file : an ASCII file with 2 columns :\n" + " - time (JD or MJD, Helio- or Geo-centric)\n" + " - countrate\n\n" + " output_file : an ASCII file with 2 columns :\n" + " - frequency (Hz)\n" + " - normalized estimated power spectral density\n\n" + " minf : start frequency (Hz)\n" + " maxf : end frequency (Hz)\n" + " stepf : frequency step (Hz)\n"; + + char option[] = + "Options:\n" + " -h: this help message\n" + " -v: verbosity level (=1; 0 is silent)\n" + " -s: time is in seconds instead of days\n"; + + verbose_level = 1; + + + /* Check number of options and arguments */ + while ((optc = getopt(argc, argv, opts)) != -1) { + switch(optc) { + case 'h': + printf("%s\n%s", usage, option); + return EXIT_SUCCESS; + case 'v': + verbose_level = atoi(optarg); + break; + case 's': + time_unit=1; + break; + } + } + + /* Initialize error checking. */ + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + if (argc != optind+5) + cf_if_error("%s\nIncorrect number of program arguments", usage); + + + cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution."); + + strcpy(input_filename,argv[optind]); + strcpy(output_filename,argv[optind+1]); + sscanf(argv[optind+2],"%f",&minf); + sscanf(argv[optind+3],"%f",&maxf); + sscanf(argv[optind+4],"%f",&stepf); + + + + if ((input_file = fopen (input_filename, "r")) == NULL){ + cf_if_error ("Unable to open file %s\n", input_filename); + } + + + N=0; + while (fscanf(input_file,"%lf %lf",&val1,&val2)!=EOF){ + N++; + } + + t=(double *)malloc(N*sizeof(double)); + h=(double *)malloc(N*sizeof(double)); + + + fseek(input_file,0,SEEK_SET); + + i=0; + total1=0; + while (fscanf(input_file,"%lf %lf",&val1,&val2)!=EOF){ + if (i==0) { + t[i]=0.0; j0=val1; + } + else { + if (time_unit) t[i]=val1-j0; + else t[i]=(val1-j0)*3600.0*24; + } + + h[i]=val2; + + total1+=h[i]; + + i++; + + } + + H=total1/N; + + total1=0; + for (i=0;i +#include "calfuse.h" +#define EFFMJD 50000.0 +#define NXMAX 16384 +#define NYMAX 1024 + +static char CF_PRGM_ID[] = "make_geom_file"; +static char CF_VER_NUM[] = "1.1"; + + +int main(int argc, char *argv[]) +{ + char *segment[]={"1A","1B","2A","2B"}; + char *segments[]={"1a","1b","2a","2b"}; + char extname[]="GEOMETRIC DISTORTION"; + char infile[80]; + char outfile[80]; + int version; + int i, j, hdutype, status=0, nullval=0, anynull=0; + int ix, iy; + int ival; + int naxis; + long naxes[2]; + int nxpix, nypix; + float effmjd; + float bscale, bzero, datamin, datamax; + float *inbuf; + fitsfile *geomfits, *infits; + + /* Initialize error checking */ + cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr); + + if (argc != 2) + { + fprintf (stderr, "Usage: make_geom_file version\n"); + exit (-1); + } + + version = (int) strtol (argv[1], (char **) NULL, 10); + if ((version <0) || (version > 999)) + { + fprintf (stderr, "Illegal version value: %s\n", argv[1]); + exit (-1); + } + + +for (i=0; i<4; i++) { /* 1A,1B,2A,2B */ + /* open the y-distortion file, move to first extension (the one with + the Y distortion image in it) */ + sprintf(infile, "ydist_%2.2s_2d.fit", segments[i]); + FITS_open_file (&infits, infile, READONLY, &status); + FITS_movabs_hdu (infits, 2, &hdutype, &status); + FITS_read_key (infits, TINT, "NAXIS1", &nxpix, NULL, &status); + FITS_read_key (infits, TINT, "NAXIS2", &nypix, NULL, &status); + if (nxpix != NXMAX) + { + fprintf (stderr, "NAXIS1 = %d, not %d\n", nxpix, NXMAX); + exit (-1); + } + + if (nypix != NYMAX) + { + fprintf (stderr, "NAXIS2 = %d, not %d\n", nypix, NYMAX); + exit (-1); + } + + /* buffers to hold one row of data at a time */ + inbuf = (float *) calloc (nxpix, sizeof(float)); + + /* create the output file */ + naxis = 0; + naxes[0] = 0; + naxes[1] = 0; + + sprintf(outfile,"geom%2.2s%03d.fit", segments[i], version); + printf("%20.20s\n",outfile); + + FITS_create_file (&geomfits,outfile,&status); + FITS_create_img (geomfits, SHORT_IMG, naxis, naxes, &status); + + /* populate basic keywords */ + FITS_write_key (geomfits, TSTRING, "CALFTYPE", "GEOM", + "Calibration file type", &status); + + FITS_write_key (geomfits,TINT,"CALFVERS",&version, + "Calibration file version", &status); + + FITS_write_key (geomfits,TSTRING,"DETECTOR",segment[i], + "detector (1A, 1B, 2A, 2B", &status); + + effmjd=EFFMJD; + FITS_write_key (geomfits,TFLOAT,"EFFMJD",&effmjd, + "Date on which file should be applied (MJD)", &status); + + ival = 1; + FITS_write_key (geomfits, TINT, "SPECBINX", &ival, + "Binning in Detector X coordinate for HIST mode", &status); + + FITS_write_key (geomfits, TINT, "SPECBINY", &ival, + "Binning in Detector Y coordinate for HIST mode", &status); + + FITS_write_date (geomfits, &status); + + FITS_write_key (geomfits,TSTRING,"AUTHOR","RICH ROBINSON", + "Author of file", &status); + + /* create empty first extension (HDU 2) for X distortions; + * not used presently, but is kept for possible later use. + */ + FITS_create_img (geomfits, SHORT_IMG, naxis, naxes, &status); + FITS_write_comment (geomfits, "No x correction for geometric distortion", + &status); + + /* now create extension to hold Y distortions */ + naxis = 2; + naxes[0] = nxpix; + naxes[1] = nypix; + bzero = 0.; + bscale = 0.01; + datamin = 0.; + datamax = 0.; + + /* use SHORT_IMG to force bitpix=16 */ + FITS_create_img (geomfits, SHORT_IMG, naxis, naxes, &status); + FITS_write_key (geomfits, TFLOAT, "BSCALE", &bscale, "Scale factor", + &status); + FITS_write_key (geomfits, TFLOAT, "BZERO", &bzero, "Zero level", + &status); + + /* now loop over rows of distortion image */ + for (iy=0; iy datamax) + datamax = inbuf[ix]; + } + /* cfitsio will do conversion to SHORT using bscale, bzero */ + FITS_write_img (geomfits, TFLOAT, nxpix*iy+1, nxpix, inbuf, &status); + } + + FITS_write_key (geomfits, TFLOAT, "DATAMIN", &datamin, "Minimum value", + &status); + FITS_write_key (geomfits, TFLOAT, "DATAMAX", &datamax, "Maximum value", + &status); + + + /* done with this segment */ + FITS_close_file(geomfits, &status); + FITS_close_file(infits, &status); + +} /* end of loop over segments */ + + return 0; +} diff --git a/src/cal/get_tle/GetTLE.class b/src/cal/get_tle/GetTLE.class new file mode 100644 index 0000000..6d32037 Binary files /dev/null and b/src/cal/get_tle/GetTLE.class differ diff --git a/src/cal/get_tle/GetTLE.java b/src/cal/get_tle/GetTLE.java new file mode 100644 index 0000000..68e88d3 --- /dev/null +++ b/src/cal/get_tle/GetTLE.java @@ -0,0 +1,110 @@ +/* + * GetTLE.java + * + * Created on January 16, 2005, 8:34 PM + */ +import java.net.URL; +import java.net.URLConnection; +import java.io.*; + +import java.util.Map; +import java.util.List; +/** + * + * @author fred + */ +public class GetTLE { + + /** Creates a new instance of GetTLE */ + public GetTLE() { + } + + /** + * @param args the command line arguments + */ + static final String host="www.space-track.org"; + static final String loginURL="/perl/login.pl"; + static final String dataURL="/perl/id_query.pl?ids=25791&timeframe=last5&common_name=yes&sort=catnum&descending=yes&ascii=yes&_submit=Submit&_submitted=1"; + static final String username="mromelfanger"; + static final String password="FuseJHU1"; + + static final String outputFile = "/data1/fuse/calfuse/caltemp/five.tle"; + static final String logFile = "/data1/fuse/calfuse/caltemp/get_tle.logfile"; +/* + static final String outputFile = "/caltemp/five.tle"; + static final String logFile = "/caltemp/get_tle.logfile"; +*/ + public static void main(String[] args) { + // TODO code application logic here + try { + /* + * Open the login url and get the session cookie back. + */ + PrintWriter log = new PrintWriter(new OutputStreamWriter(new FileOutputStream(logFile))); + PrintWriter out = new PrintWriter(new OutputStreamWriter(new FileOutputStream(outputFile))); + + URL u = new URL("http://"+host+loginURL+"?username="+username+"&password="+password+"&_submitted=1&_submit=Submit"); + + URLConnection c = u.openConnection(); + Map m = c.getHeaderFields(); + List l = (List) m.get("Set-Cookie"); + String session = null; + for(int i=0;i!=l.size();i++) { + String s = (String) l.get(i); + if(s.startsWith("spacetrack_session=")) { + int end = s.indexOf(";"); + if(end < 0) + end = s.length(); + session = s.substring(0, end); + break; + } + } + InputStream is = c.getInputStream(); + BufferedReader br = new BufferedReader(new InputStreamReader(is)); + String s; + while((s = br.readLine()) != null) + log.println(s); + is.close(); + + if(session == null) { + out.println("Could not get session id"); + System.exit(1); + } + + /* + * Use the session cookie to query for the fuse data. + */ + + u = new URL("http://"+host+dataURL); + c = u.openConnection(); + c.setRequestProperty("Cookie", session); + is = c.getInputStream(); + br = new BufferedReader(new InputStreamReader(is)); + /* + * Read each line and keep what is between the pre's, add an extra + * line at the end. + */ + boolean collect = false; + out.println(); + while((s = br.readLine()) != null) { + log.println(s); + if(s.startsWith("
")) {
+/*                    br.readLine(); */
+                    collect = true;
+                } else if(s.startsWith("
")) { + break; + } else if(collect) { + out.println(s); + } + } + out.println(); + br.close(); + is.close(); + out.close(); + log.close(); + + } catch (Throwable e) { + e.printStackTrace(); + } + } +} diff --git a/src/cal/get_tle/add_tle.pl b/src/cal/get_tle/add_tle.pl new file mode 100755 index 0000000..feaa1ba --- /dev/null +++ b/src/cal/get_tle/add_tle.pl @@ -0,0 +1,182 @@ +#!/usr/local/bin/perl +use FileHandle; + +# *************************************************** +# add_tle.pl +# +# This Perl module will read in the latest five orbital elements +# from the file five.tle (which was created by get_tle.pl) and +# add any new orbital elements to the file FUSE.TLE. The file +# FUSE.TLE is in descending order (i.e. the most recent elements +# are first). In order to prepend the new TLE onto the old list +# I found it was easiest to store everything in a temporary file +# TEMP.TLE and rewrite FUSE.TLE. +# +# Author: Ed Murphy +# +# History: Written July 27, 1999 +# +# *************************************************** + +# Define the file names. old_maintle_filename is not actually opened, +# but is used in a system call at the end of the program. + +$input_filename = "/data1/fuse/calfuse/caltemp/five.tle"; +$maintle_filename = "/data1/fuse/calfuse/calfiles/FUSE.TLE"; +$old_maintle_filename = "/data1/fuse/calfuse/caltemp/FUSE.OLD"; +$temp_filename = "/data1/fuse/calfuse/caltemp/TEMP.TLE"; + +# Open the files. +open (TLE_INFILE, "<$input_filename") || die "Cannot open $input_filename"; +open (TLE_TEMPFILE, ">$temp_filename") || die "Cannot open $temp_filename"; +open (TLE_MAINFILE, "<$maintle_filename") || die "Cannot open $maintle_filename"; + +# Read the first two lines from the maintle file to get the date of the +# most recent set of TLEs. Save these lines for later output. + $lineout1 = ; + $lineout2 = ; + $last_date = substr($lineout2,18,14); + +# get rid of the blank line at the beginning of five.tle file + $line = ; + +# Cycle through the five.tle file and look for files more recent than +# last_date. + while ($line1 = ) { + $sat_name = substr($line1,0,4); + $line2 = ; + $line3 = ; + $tle_date = substr($line2,18,14); + $id2 = substr($line2, 2, 5); + $id3 = substr($line3, 2, 5); + # if the TLE is more recent, print it out to the TEMP file. + if (($tle_date > $last_date+0.05) && ($sat_name eq "FUSE") && ($id2 == 25791) && ($id3 == 25791)) { + &check_tle; + print TLE_TEMPFILE $line1; + print TLE_TEMPFILE $line2; + print TLE_TEMPFILE $line3; + # Send this output to screen to make sure TLEs look OK + if ($tle_flag != 0) { + print STDOUT "ERROR: Possible error in TLE:\n"; + } + print STDOUT "The new TLEs are:\n"; + print STDOUT $line1; + print STDOUT $line2; + print STDOUT $line3; + } + + } + +# Now add the MAINTLE file to the end of the TEMPFILE + print TLE_TEMPFILE $lineout1; + print TLE_TEMPFILE $lineout2; + while ($line1 = ) { + print TLE_TEMPFILE $line1; + } + + close (TLE_INFILE); + close (TLE_MAINFILE); + close (TLE_TEMPFILE); + +# Move the MAINFILE into the old_maintle filename +# Move the TEMPFILE to be the MAINFILE +# Remove the five.tle file. + system("mv $maintle_filename $old_maintle_filename"); + system("mv $temp_filename $maintle_filename"); + system("chmod ug+rw $maintle_filename"); + system("chgrp sdp $maintle_filename"); + system("rm -f $input_filename"); + +### end of Perl script + +sub check_tle { + + $tle_flag = 0; + + &parse_lines; + + &calculate_a0; + + &calculate_orbs; + + if (($mean_mot > 14.391) || ($mean_mot < 14.389)) { + $tle_flag = 1; + print STDOUT "Possible error in mean motion $mean_mot \n"; + } + if (($incl > 24.990) || ($incl < 24.975)) { + $tle_flag = 1; + print STDOUT "Possible error in inclination $incl \n"; + } + if (($eccen > 0.00120) || ($eccen < 0.00108)) { + $tle_flag = 1; + print STDOUT "Possible error in eccentricity $eccen \n"; + } + if (($semiax > 7145.0) || ($semiax < 7143.0)) { + $tle_flag = 1; + print STDOUT "Possible error in semi-major axis $semia \n"; + } + if (($apogee > 777.0) || ($apogee < 773.0)) { + $tle_flag = 1; + print STDOUT "Possible error in apogee $apogee \n"; + } + if (($perigee > 760.0) || ($perigee < 756.0)) { + $tle_flag = 1; + print STDOUT "Possible error in perigee $perigee \n"; + } + +} + +sub parse_lines { +$year = substr($line2, 18, 2); +$doy = substr($line2, 20, 3); +$dayfrac = substr($line2, 23, 9); +$epoch = $year.$doy.$dayfrac; +$incl = substr($line3, 9, 8); +$raan = substr($line3, 17,8); +$eccen = substr($line3, 26, 7); +$eccen = "0." . $eccen; +$mean_mot = substr($line3, 52, 11); +$mean_anom = substr($line3, 43, 8); +$arg_perig = substr($line3, 34, 8); + + +if ($year > 50) { + $year += 1900; +} else { + $year += 2000; +} + +$dayfrac = "0".$dayfrac; + +} + +sub calculate_a0 { + +$mu = 3.986005E5; +$pi = 3.14159265358979; +$radian = 0.0174532925200; + +$mm=2.0*$pi*$mean_mot/(24.0*60.0); +$ke=0.74366916E-1; +$k2=5.413080E-4; +$a1=($ke/$mm)**(2.0/3.0); +$inrad = $incl * $radian; + +$d1=3.0/2.0*$k2/($a1*$a1)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen) +**(3.0/2.0)); +$a0=$a1*(1.0-$d1/3.0-$d1*$d1-134.0/81.0*$d1*$d1*$d1); +$d0=3.0/2.0*$k2/($a0*$a0)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen) +**(3.0/2.0)); +$semiax=$a0/(1-$d0)*6378.135; + +} + +sub calculate_orbs { + +$period = 60.0*24.0/($mean_mot/(1+$d0)); +$cax=$eccen*$semiax; +$perigee=$semiax-$cax-6378.1; +$apogee=$semiax+$cax-6378.1; + +} + diff --git a/src/cal/get_tle/check_tle.dat b/src/cal/get_tle/check_tle.dat new file mode 100644 index 0000000..ded4897 --- /dev/null +++ b/src/cal/get_tle/check_tle.dat @@ -0,0 +1,266 @@ +108.630 773.22 757.14 7143.28 310.64 24.9828 305.80 54.35 0.001125 +107.936 773.22 757.16 7143.29 314.88 24.9826 313.12 47.02 0.001124 +107.867 773.22 757.16 7143.29 315.30 24.9827 313.87 46.28 0.001124 +105.856 772.97 757.43 7143.30 327.59 24.9817 337.06 23.03 0.001087 +104.677 773.01 757.42 7143.31 334.78 24.9813 348.70 11.35 0.001091 +103.915 772.84 757.59 7143.32 339.44 24.9810 358.03 2.03 0.001068 +103.013 772.85 757.61 7143.33 344.94 24.9809 7.16 352.88 0.001067 +101.973 772.85 757.64 7143.34 351.29 24.9805 17.95 342.06 0.001064 +101.072 772.84 757.67 7143.36 356.79 24.9805 27.25 332.74 0.001062 +100.101 772.84 757.70 7143.37 2.72 24.9799 37.24 322.74 0.001059 + 99.130 773.00 757.58 7143.39 8.65 24.9798 48.68 311.27 0.001079 + 98.090 773.16 757.45 7143.41 15.00 24.9802 60.36 299.58 0.001099 + 97.120 773.16 757.49 7143.42 20.93 24.9804 69.96 289.97 0.001097 + 96.149 773.25 757.43 7143.44 26.85 24.9807 79.94 279.99 0.001108 + 95.178 773.40 757.32 7143.46 32.78 24.9813 89.08 270.85 0.001125 + 94.207 773.53 757.22 7143.47 38.70 24.9816 98.83 261.09 0.001142 + 92.197 773.67 757.14 7143.50 50.98 24.9822 118.15 241.78 0.001157 + 90.186 773.65 757.20 7143.53 63.26 24.9830 138.68 221.29 0.001151 + 89.284 773.57 757.31 7143.54 68.76 24.9832 148.16 211.82 0.001138 + 88.314 773.61 757.29 7143.55 74.68 24.9836 157.56 202.45 0.001142 + 88.036 773.64 757.27 7143.55 76.38 24.9839 159.74 200.27 0.001145 + 87.204 773.59 757.33 7143.56 81.46 24.9841 168.20 191.82 0.001138 + 86.234 773.53 757.41 7143.57 87.38 24.9842 178.62 181.43 0.001128 + 84.223 773.35 757.62 7143.59 99.66 24.9845 199.98 160.11 0.001101 + 83.183 773.34 757.65 7143.59 106.01 24.9846 210.82 149.29 0.001098 + 82.212 773.34 757.66 7143.60 111.93 24.9846 220.83 139.30 0.001097 + 81.172 773.32 757.68 7143.60 118.29 24.9843 231.47 128.68 0.001095 + 80.201 773.31 757.70 7143.61 124.21 24.9841 241.32 118.84 0.001092 + 79.230 773.35 757.67 7143.61 130.14 24.9837 251.65 108.52 0.001098 + 77.219 773.26 757.78 7143.62 142.42 24.9829 271.35 88.83 0.001084 + 75.555 773.24 757.83 7143.64 152.58 24.9825 288.59 71.58 0.001079 + 73.614 773.17 757.93 7143.65 164.43 24.9823 308.84 51.31 0.001066 + 72.643 773.11 758.02 7143.66 170.35 24.9825 319.25 40.88 0.001056 + 71.672 773.11 758.04 7143.67 176.28 24.9826 329.64 30.47 0.001055 + 70.563 773.10 758.06 7143.68 183.05 24.9828 341.75 18.33 0.001053 + 68.690 773.13 758.08 7143.70 194.48 24.9834 1.83 358.22 0.001053 + 67.720 773.15 758.07 7143.71 200.41 24.9838 12.56 347.47 0.001055 + 66.749 773.21 758.03 7143.72 206.34 24.9838 22.58 337.42 0.001062 + 65.778 773.26 758.00 7143.73 212.26 24.9841 33.40 326.58 0.001068 + 64.807 773.34 757.94 7143.74 218.19 24.9845 43.65 316.32 0.001078 + 63.767 773.41 757.88 7143.75 224.54 24.9849 54.50 305.45 0.001087 + 63.559 773.45 757.85 7143.75 225.81 24.9850 56.77 303.17 0.001091 + 61.826 773.42 757.90 7143.76 236.39 24.9855 73.30 286.63 0.001086 + 60.855 773.42 757.92 7143.77 242.32 24.9863 83.21 276.72 0.001085 + 59.884 773.48 757.87 7143.78 248.25 24.9869 92.80 267.12 0.001093 + 58.913 773.49 757.88 7143.78 254.18 24.9873 102.62 257.31 0.001092 + 57.942 773.58 757.79 7143.79 260.11 24.9875 112.13 247.80 0.001105 + 56.625 773.64 757.74 7143.79 268.15 24.9875 125.73 234.21 0.001113 + 55.862 773.67 757.72 7143.79 272.80 24.9873 133.77 226.19 0.001116 + 54.683 773.63 757.76 7143.80 280.00 24.9871 146.42 213.56 0.001111 + 53.990 773.61 757.79 7143.80 284.23 24.9870 153.72 206.27 0.001108 + 53.019 773.71 757.70 7143.80 290.16 24.9867 163.70 196.32 0.001120 + 52.048 773.76 757.64 7143.80 296.08 24.9868 173.55 186.48 0.001128 + 51.910 773.76 757.65 7143.81 296.93 24.9870 174.86 185.18 0.001127 + 48.858 774.02 757.42 7143.82 315.55 24.9866 205.59 154.52 0.001162 + 48.096 774.05 757.39 7143.82 320.21 24.9864 213.26 146.87 0.001166 + 47.125 774.07 757.38 7143.83 326.13 24.9864 222.86 137.28 0.001168 + 46.154 774.07 757.40 7143.84 332.06 24.9866 232.86 127.29 0.001167 + 45.183 774.02 757.47 7143.84 337.98 24.9869 242.57 117.60 0.001159 + 44.212 773.95 757.56 7143.85 343.91 24.9869 253.00 107.18 0.001147 + 42.201 773.81 757.73 7143.87 356.18 24.9867 274.98 85.20 0.001125 + 41.924 773.72 757.83 7143.87 357.88 24.9866 278.32 81.86 0.001112 + 41.161 773.74 757.82 7143.88 2.53 24.9865 286.72 73.45 0.001114 + 40.190 773.68 757.89 7143.89 8.46 24.9864 297.63 62.54 0.001105 + 38.318 773.62 757.98 7143.90 19.88 24.9860 318.17 41.97 0.001095 + 35.198 773.64 757.97 7143.91 38.93 24.9862 351.29 8.78 0.001097 + 34.227 773.65 757.96 7143.91 44.85 24.9863 1.51 358.53 0.001099 + 33.187 773.86 757.77 7143.91 51.23 24.9855 12.74 347.28 0.001126 + 32.216 773.88 757.74 7143.91 57.15 24.9855 22.82 337.18 0.001129 + 31.176 773.89 757.74 7143.91 63.50 24.9852 33.70 326.28 0.001130 + 30.205 773.92 757.71 7143.92 69.43 24.9850 44.30 315.66 0.001134 + 29.442 773.94 757.70 7143.92 74.09 24.9849 52.57 307.37 0.001136 + 27.431 773.34 758.31 7143.93 86.33 24.9851 73.56 286.42 0.001052 + 25.559 774.03 757.63 7143.93 97.79 24.9844 93.91 266.01 0.001148 + 23.617 774.17 757.50 7143.94 109.65 24.9842 114.41 245.52 0.001166 + 22.577 774.22 757.46 7143.94 116.00 24.9839 125.22 234.72 0.001174 + 22.300 774.22 757.46 7143.94 117.69 24.9838 128.12 231.82 0.001174 + 21.537 774.27 757.42 7143.94 122.35 24.9840 136.11 223.85 0.001179 + 20.427 774.36 757.34 7143.95 129.12 24.9842 147.36 212.62 0.001191 + 19.664 774.32 757.39 7143.96 133.78 24.9840 155.40 204.60 0.001184 + 18.624 774.28 757.44 7143.96 140.13 24.9842 165.98 194.03 0.001178 + 17.445 774.31 757.43 7143.97 147.32 24.9848 177.35 182.70 0.001181 + 14.533 774.04 757.74 7143.99 165.10 24.9856 206.71 153.40 0.001141 + 13.562 773.98 757.81 7143.99 171.03 24.9857 217.11 143.02 0.001132 + 12.730 773.96 757.83 7144.00 176.10 24.9854 226.43 133.71 0.001128 + 11.620 773.94 757.86 7144.00 182.88 24.9855 238.36 121.80 0.001125 + 10.719 773.96 757.85 7144.00 188.38 24.9854 248.31 111.86 0.001127 + 9.887 773.95 757.86 7144.00 193.45 24.9854 257.17 103.01 0.001126 + 6.835 773.86 757.96 7144.01 212.05 24.9869 286.17 74.05 0.001113 + 5.934 774.02 757.80 7144.01 217.58 24.9856 299.57 60.59 0.001135 + 5.865 774.02 757.81 7144.01 218.00 24.9857 300.38 59.78 0.001134 + 4.963 773.98 757.84 7144.01 223.51 24.9860 309.90 50.25 0.001130 + 3.992 773.96 757.87 7144.02 229.43 24.9861 320.27 39.87 0.001126 + 3.021 773.98 757.85 7144.02 235.36 24.9860 330.38 29.74 0.001129 + 1.981 773.99 757.84 7144.02 241.71 24.9860 341.22 18.87 0.001130 + 1.010 773.98 757.86 7144.02 247.64 24.9859 351.36 8.71 0.001128 +363.098 773.92 757.93 7144.02 265.41 24.9851 21.54 338.46 0.001120 +362.127 773.92 757.94 7144.03 271.34 24.9849 32.01 327.97 0.001118 +361.156 773.92 757.94 7144.03 277.27 24.9846 42.52 317.45 0.001118 +360.116 773.94 757.93 7144.04 283.62 24.9844 53.54 306.41 0.001120 +359.145 773.95 757.93 7144.04 289.54 24.9844 63.93 296.01 0.001121 +357.203 774.01 757.90 7144.05 301.39 24.9845 84.75 275.17 0.001128 +355.192 774.13 757.80 7144.07 313.67 24.9845 105.27 254.65 0.001143 +354.915 774.16 757.77 7144.07 315.36 24.9845 108.09 251.84 0.001147 +354.152 774.20 757.75 7144.07 320.02 24.9845 115.78 244.15 0.001151 +353.181 774.16 757.80 7144.08 325.94 24.9845 125.81 234.14 0.001145 +352.210 774.18 757.79 7144.09 331.87 24.9843 135.40 224.55 0.001147 +351.170 774.20 757.79 7144.10 338.22 24.9847 145.76 214.22 0.001148 +350.338 774.21 757.79 7144.10 343.30 24.9846 154.42 205.57 0.001149 +350.199 774.23 757.78 7144.10 344.14 24.9848 155.57 204.42 0.001151 +348.396 774.19 757.84 7144.11 355.15 24.9849 174.28 185.76 0.001144 +348.188 774.19 757.84 7144.11 356.42 24.9851 176.05 184.00 0.001144 +347.217 774.17 757.87 7144.12 2.34 24.9852 185.78 174.28 0.001141 +346.247 774.15 757.90 7144.12 8.27 24.9852 195.83 164.25 0.001138 +344.235 774.12 757.95 7144.13 20.54 24.9851 216.22 143.91 0.001131 +343.195 774.07 758.00 7144.14 26.89 24.9849 226.99 133.15 0.001125 +342.155 774.04 758.03 7144.14 33.24 24.9847 238.08 122.08 0.001120 +341.531 774.05 758.04 7144.14 37.05 24.9847 244.57 115.60 0.001120 +341.184 773.98 758.11 7144.14 39.16 24.9845 248.20 111.97 0.001111 +340.213 773.97 758.12 7144.15 45.09 24.9844 258.31 101.87 0.001109 +339.242 773.97 758.13 7144.15 51.01 24.9842 268.63 91.55 0.001109 +337.578 773.99 758.12 7144.16 61.17 24.9838 286.25 73.92 0.001110 +337.509 774.00 758.11 7144.16 61.59 24.9838 286.85 73.32 0.001112 +336.538 774.05 758.07 7144.16 67.52 24.9835 297.10 63.07 0.001118 +335.914 774.07 758.05 7144.16 71.33 24.9832 303.71 56.45 0.001121 +334.665 774.05 758.08 7144.17 78.94 24.9829 316.75 43.39 0.001118 +333.556 774.09 758.05 7144.17 85.72 24.9828 328.26 31.85 0.001123 +332.724 774.16 757.99 7144.18 90.79 24.9822 336.99 23.11 0.001132 +330.713 774.27 757.90 7144.19 103.07 24.9815 357.78 2.28 0.001146 +330.019 774.33 757.86 7144.20 107.31 24.9813 4.95 355.09 0.001152 +329.534 774.34 757.86 7144.20 110.27 24.9818 10.30 349.73 0.001153 +328.008 774.38 757.85 7144.21 119.58 24.9820 25.82 334.17 0.001156 +326.829 774.52 757.73 7144.22 126.78 24.9826 38.70 321.27 0.001175 +325.511 774.64 757.62 7144.23 134.85 24.9847 55.33 304.60 0.001191 +322.807 774.75 757.54 7144.25 151.36 24.9836 84.57 275.34 0.001204 +321.628 774.77 757.54 7144.25 158.55 24.9837 96.97 262.94 0.001205 +320.796 774.73 757.59 7144.26 163.62 24.9836 105.46 254.44 0.001200 +318.992 774.59 757.75 7144.27 174.62 24.9830 125.36 234.58 0.001179 +318.854 774.55 757.78 7144.27 175.47 24.9833 127.12 232.82 0.001174 +316.981 774.65 757.74 7144.30 186.90 24.9842 146.44 213.53 0.001183 +316.773 774.86 757.57 7144.31 188.17 24.9851 145.45 214.48 0.001210 +316.010 774.46 757.93 7144.30 192.83 24.9823 153.10 206.89 0.001157 +314.069 774.51 757.91 7144.31 204.67 24.9828 173.02 187.01 0.001162 +313.098 774.52 757.91 7144.32 210.60 24.9828 183.20 176.86 0.001162 +312.127 774.53 757.91 7144.32 216.52 24.9830 193.37 166.71 0.001163 +311.087 774.49 757.96 7144.33 222.87 24.9827 203.97 156.14 0.001157 +310.116 774.40 758.06 7144.33 228.79 24.9823 213.77 146.35 0.001144 +309.145 774.36 758.10 7144.33 234.72 24.9823 223.68 136.46 0.001138 +308.174 774.37 758.10 7144.34 240.64 24.9823 233.84 126.31 0.001138 +307.203 774.35 758.13 7144.34 246.56 24.9824 243.91 116.26 0.001135 +306.163 774.32 758.18 7144.35 252.91 24.9827 254.83 105.35 0.001129 +305.261 774.31 758.19 7144.35 258.41 24.9828 264.22 95.96 0.001128 +302.140 774.24 758.30 7144.37 277.45 24.9830 296.47 63.70 0.001115 +301.239 774.23 758.31 7144.37 282.95 24.9829 306.01 54.14 0.001114 +300.198 774.21 758.35 7144.38 289.30 24.9829 317.27 42.87 0.001110 +299.158 774.03 758.53 7144.38 295.66 24.9835 328.16 31.95 0.001085 +298.118 774.07 758.50 7144.38 302.00 24.9832 339.36 20.73 0.001089 +297.216 774.07 758.51 7144.39 307.50 24.9833 349.08 10.99 0.001089 +295.274 773.98 758.61 7144.40 319.36 24.9834 9.95 350.08 0.001076 +294.165 774.02 758.58 7144.40 326.13 24.9829 21.44 338.56 0.001080 +293.194 774.01 758.60 7144.40 332.05 24.9828 31.55 328.43 0.001078 +292.778 774.01 758.60 7144.41 334.59 24.9827 35.88 324.10 0.001078 +292.154 774.07 758.55 7144.41 338.40 24.9826 43.52 316.44 0.001086 +291.183 774.21 758.42 7144.42 344.33 24.9822 53.84 306.11 0.001105 +289.518 774.24 758.41 7144.43 354.48 24.9823 71.32 288.61 0.001108 +288.478 774.25 758.42 7144.43 0.83 24.9826 82.47 277.46 0.001108 +286.883 774.35 758.34 7144.44 10.56 24.9828 99.39 260.53 0.001120 +285.496 774.38 758.32 7144.45 19.02 24.9830 113.65 246.28 0.001124 +284.664 774.37 758.34 7144.46 24.10 24.9832 122.42 237.53 0.001122 +283.970 774.37 758.35 7144.46 28.33 24.9830 129.71 230.25 0.001122 +280.711 774.40 758.35 7144.47 48.22 24.9832 163.02 196.99 0.001123 +280.017 774.41 758.34 7144.48 52.45 24.9831 170.35 189.68 0.001124 +279.740 774.46 758.29 7144.48 54.15 24.9833 172.76 187.27 0.001132 +278.769 774.41 758.35 7144.48 60.08 24.9828 182.98 177.08 0.001124 +278.075 774.36 758.40 7144.48 64.31 24.9826 190.47 169.60 0.001117 +276.757 774.34 758.43 7144.49 72.35 24.9823 204.41 155.69 0.001113 +276.480 774.39 758.38 7144.48 74.05 24.9818 207.10 153.01 0.001121 +275.578 774.38 758.40 7144.49 79.55 24.9819 216.89 143.24 0.001118 +272.596 774.25 758.55 7144.50 97.75 24.9821 248.02 112.15 0.001099 +271.833 774.34 758.46 7144.50 102.42 24.9829 255.10 105.08 0.001112 +270.932 774.24 758.57 7144.50 107.92 24.9833 263.95 96.23 0.001097 +269.822 773.92 758.90 7144.51 114.70 24.9836 274.80 85.36 0.001051 +268.643 773.94 758.88 7144.51 121.89 24.9835 287.13 73.04 0.001054 +267.880 774.13 758.70 7144.51 126.54 24.9836 295.09 65.08 0.001079 +266.909 774.10 758.74 7144.52 132.46 24.9837 305.28 54.87 0.001075 +266.008 774.09 758.75 7144.52 137.96 24.9838 314.68 45.45 0.001074 +265.037 774.11 758.73 7144.52 143.89 24.9838 325.03 35.09 0.001077 +264.066 774.08 758.77 7144.52 149.81 24.9841 335.51 24.59 0.001072 +263.095 774.09 758.76 7144.53 155.74 24.9841 345.72 14.36 0.001073 +262.887 774.10 758.76 7144.53 157.01 24.9842 348.34 11.74 0.001073 +260.113 774.22 758.65 7144.54 173.94 24.9841 17.33 342.68 0.001089 +259.072 774.27 758.61 7144.54 180.29 24.9841 28.03 331.96 0.001096 +258.171 774.30 758.58 7144.54 185.79 24.9841 37.84 322.14 0.001101 +256.159 774.38 758.51 7144.54 198.06 24.9843 59.30 300.64 0.001110 +255.188 774.42 758.46 7144.54 203.99 24.9841 69.80 290.13 0.001117 +254.217 774.50 758.39 7144.54 209.91 24.9838 80.42 279.50 0.001128 +252.137 774.49 758.41 7144.55 222.61 24.9838 102.32 257.60 0.001125 +251.166 774.57 758.33 7144.55 228.53 24.9838 112.36 247.57 0.001136 +250.334 774.60 758.30 7144.55 233.61 24.9836 121.18 238.76 0.001141 +250.126 774.58 758.32 7144.55 234.88 24.9837 123.34 236.60 0.001138 +249.224 774.62 758.28 7144.55 240.38 24.9836 132.83 227.12 0.001144 +248.184 774.63 758.28 7144.56 246.73 24.9836 143.64 216.33 0.001144 +247.143 774.65 758.28 7144.56 253.08 24.9835 154.31 205.69 0.001146 +246.242 774.69 758.24 7144.57 258.58 24.9836 163.59 196.43 0.001151 +244.161 774.68 758.28 7144.58 271.28 24.9840 184.46 175.60 0.001148 +243.260 774.68 758.28 7144.58 276.78 24.9841 193.50 166.58 0.001148 +242.150 774.65 758.33 7144.59 283.55 24.9841 205.10 155.01 0.001143 +241.456 774.65 758.33 7144.59 287.78 24.9841 212.47 147.65 0.001142 +238.543 774.56 758.45 7144.60 305.56 24.9851 241.95 118.21 0.001128 +237.434 774.52 758.49 7144.61 312.33 24.9853 253.55 106.63 0.001122 +236.463 774.43 758.59 7144.61 318.26 24.9853 263.34 96.84 0.001109 +236.255 774.41 758.62 7144.61 319.53 24.9853 265.51 94.67 0.001105 +235.284 774.40 758.63 7144.61 325.45 24.9852 275.96 84.22 0.001103 +233.619 774.37 758.67 7144.62 335.61 24.9853 293.75 66.41 0.001099 +232.510 774.27 758.77 7144.62 342.38 24.9859 305.48 54.68 0.001085 +230.706 774.36 758.69 7144.62 353.38 24.9854 324.79 35.33 0.001096 +229.597 774.30 758.75 7144.62 0.16 24.9857 336.89 23.20 0.001088 +228.487 774.28 758.77 7144.62 6.93 24.9853 348.47 11.61 0.001085 +227.724 774.33 758.72 7144.63 11.58 24.9851 356.38 3.68 0.001093 +223.563 774.42 758.65 7144.63 36.97 24.9842 41.92 318.04 0.001104 +218.639 774.71 758.38 7144.65 67.02 24.9828 92.62 267.30 0.001143 +216.974 774.83 758.27 7144.65 77.18 24.9829 110.10 249.82 0.001159 +215.726 774.62 758.48 7144.65 84.79 24.9823 122.86 237.09 0.001130 +213.992 774.63 758.50 7144.66 95.37 24.9829 140.93 219.04 0.001129 +213.021 774.72 758.42 7144.67 101.29 24.9830 150.66 209.33 0.001141 +212.882 774.76 758.38 7144.67 102.14 24.9832 151.72 208.27 0.001146 +211.079 774.92 758.23 7144.68 113.14 24.9832 170.09 189.94 0.001168 +210.108 774.90 758.26 7144.68 119.07 24.9830 180.03 180.02 0.001164 +209.137 774.92 758.24 7144.68 124.99 24.9829 190.07 170.00 0.001167 +208.859 774.88 758.28 7144.68 126.68 24.9830 192.78 167.30 0.001162 +208.166 774.88 758.29 7144.68 130.92 24.9829 200.09 160.00 0.001161 +207.126 774.81 758.36 7144.68 137.26 24.9830 210.54 149.58 0.001151 +206.155 774.77 758.40 7144.69 143.19 24.9831 220.62 139.52 0.001146 +205.114 774.74 758.44 7144.69 149.54 24.9835 231.12 129.03 0.001141 +204.213 774.68 758.50 7144.69 155.04 24.9835 240.13 120.03 0.001132 +203.172 774.62 758.57 7144.69 161.38 24.9835 250.92 109.26 0.001123 +202.132 774.57 758.62 7144.69 167.73 24.9837 261.69 98.49 0.001117 +201.161 774.54 758.65 7144.70 173.66 24.9837 271.78 88.39 0.001113 +200.190 774.54 758.65 7144.70 179.58 24.9838 281.91 78.26 0.001112 +200.121 774.52 758.67 7144.70 180.04 24.9842 284.37 75.80 0.001110 +199.219 774.51 758.68 7144.70 185.54 24.9840 293.67 66.50 0.001107 +198.179 774.47 758.73 7144.70 191.89 24.9844 304.62 55.53 0.001102 +197.208 774.43 758.77 7144.70 197.81 24.9845 315.10 45.03 0.001097 +196.167 774.41 758.80 7144.70 204.16 24.9848 326.28 33.84 0.001093 +195.404 774.40 758.81 7144.70 208.81 24.9845 334.28 25.82 0.001091 +195.266 774.39 758.81 7144.70 209.66 24.9847 335.90 24.21 0.001091 +194.225 774.39 758.82 7144.71 216.00 24.9849 347.09 12.99 0.001089 +193.185 774.39 758.82 7144.71 222.35 24.9850 358.14 1.91 0.001090 +192.145 774.40 758.82 7144.71 228.70 24.9850 9.20 350.84 0.001091 +191.243 774.42 758.80 7144.71 234.20 24.9852 18.68 341.33 0.001093 +189.578 774.47 758.75 7144.71 244.35 24.9847 35.63 324.35 0.001100 +188.538 774.53 758.70 7144.72 250.70 24.9847 46.49 313.47 0.001108 +187.567 774.56 758.68 7144.72 256.62 24.9847 56.72 303.22 0.001111 +187.220 774.58 758.66 7144.72 258.73 24.9849 60.33 299.61 0.001115 +186.596 774.58 758.66 7144.72 262.54 24.9848 66.84 293.09 0.001114 +185.556 774.61 758.64 7144.73 268.89 24.9850 77.79 282.14 0.001118 +184.585 774.64 758.62 7144.73 274.81 24.9851 87.90 272.03 0.001121 +183.614 774.64 758.63 7144.73 280.73 24.9851 98.00 261.93 0.001120 +182.643 774.66 758.62 7144.74 286.65 24.9852 108.11 251.82 0.001123 +181.533 774.65 758.63 7144.74 293.42 24.9851 119.74 240.20 0.001121 +180.423 774.66 758.64 7144.75 300.19 24.9851 131.33 228.62 0.001121 +179.730 774.66 758.64 7144.75 304.42 24.9851 138.60 221.36 0.001121 +178.689 774.66 758.65 7144.76 310.76 24.9851 149.51 210.48 0.001120 +178.551 774.66 758.65 7144.76 311.61 24.9851 150.96 209.03 0.001120 +177.926 774.68 758.64 7144.76 315.41 24.9853 157.55 202.45 0.001123 +176.955 774.50 758.84 7144.77 321.34 24.9860 169.04 190.98 0.001096 diff --git a/src/cal/get_tle/check_tle.pl b/src/cal/get_tle/check_tle.pl new file mode 100755 index 0000000..483692e --- /dev/null +++ b/src/cal/get_tle/check_tle.pl @@ -0,0 +1,100 @@ +#!/usr/local/bin/perl +use FileHandle; + +# *************************************************** +# add_tle.pl +# +# This Perl module will read in the latest five orbital elements +# from the file five.tle (which was created by get_tle.pl) and +# add any new orbital elements to the file FUSE.TLE. +# +# Author: Ed Murphy +# +# History: Written July 27, 1999 +# +# *************************************************** + +# Define the file names. old_maintle_filename is not actually opened, +# but is used in a system call at the end of the program. + +$maintle_filename = "/data1/fuse/calfuse/calfiles/FUSE.TLE"; +$outtle_filename = "check_tle.dat"; + +# Open the files. +open (TLE_MAINFILE, "<$maintle_filename") || die "Cannot open $maintle_filename"; +open (TLE_OUT, ">$outtle_filename") || die "Cannot open $outtle_filename"; + +# Read the first two lines from the maintle file to get the date of the +# most recent set of TLEs. Save these lines for later output. +while ($line1 = ) { + $line2 = ; + $line3 = ; + + &parse_lines; + + &calculate_a0; + &calculate_orbs; + + printf TLE_OUT "%7.3f %6.2f %6.2f %7.2f %6.2f %7.4f %6.2f %6.2f %8.6f\n",$day, $apogee, $perigee, $semiax, $raan, $incl, $mean_anom, $arg_perig, $eccen; + +} + + close (TLE_MAINFILE); + close (TLE_OUT); + +### end of Perl script + + +sub parse_lines { +$year = substr($line2, 18, 2); +$doy = substr($line2, 20, 3); +$dayfrac = substr($line2, 23, 9); +$day=$doy.$dayfrac; +$epoch = $year.$doy.$dayfrac; +$incl = substr($line3, 9, 8); +$raan = substr($line3, 17,8); +$eccen = substr($line3, 26, 7); +$eccen = "0." . $eccen; +$mean_mot = substr($line3, 52, 11); +$mean_anom = substr($line3, 43, 8); +$arg_perig = substr($line3, 34, 8); + + +if ($year > 50) { + $year += 1900; +} else { + $year += 2000; +} + +$dayfrac = "0".$dayfrac; + +} + +sub calculate_a0 { + +$mu = 3.986005E5; +$pi = 3.14159265358979; +$radian = 0.0174532925200; + +$mm=2.0*$pi*$mean_mot/(24.0*60.0); +$ke=0.74366916E-1; +$k2=5.413080E-4; +$a1=($ke/$mm)**(2.0/3.0); +$inrad = $incl * $radian; + +$d1=3.0/2.0*$k2/($a1*$a1)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen)**(3.0/2.0)); +$a0=$a1*(1.0-$d1/3.0-$d1*$d1-134.0/81.0*$d1*$d1*$d1); +$d0=3.0/2.0*$k2/($a0*$a0)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen)**(3.0/2.0)); +$semiax=$a0/(1-$d0)*6378.135; + +} + +sub calculate_orbs { + +$period = 60.0*24.0/($mean_mot/(1+$d0)); +$cax=$eccen*$semiax; +$perigee=$semiax-$cax-6378.1; +$apogee=$semiax+$cax-6378.1; + +} + diff --git a/src/cal/get_tle/check_tle.pro b/src/cal/get_tle/check_tle.pro new file mode 100644 index 0000000..5388d9d --- /dev/null +++ b/src/cal/get_tle/check_tle.pro @@ -0,0 +1,73 @@ +; +fname='check_tle.dat' +get_lun,unit0 +openr,unit0,fname +day=fltarr(1000) +apogee=fltarr(1000) +perigee=fltarr(1000) +semiax=fltarr(1000) +raan=fltarr(1000) +incl=fltarr(1000) +mean_anom=fltarr(1000) +arg_perig=fltarr(1000) +eccen=fltarr(1000) +d=0.0 +a=0.0 +p=0.0 +sem=0.0 +ra=0.0 +inc=0.0 +ma=0.0 +ap=0.0 +ec=0.0 +j=0 +while (not EOF(unit0)) do begin + readf,unit0,d,a,p,sem,ra,inc,ma,ap,ec + day[j]=d + apogee[j]=a + perigee[j]=p + semiax[j]=sem + raan[j]=ra + incl[j]=inc + mean_anom[j]=ma + arg_perig[j]=ap + eccen[j]=ec + j=j+1 +endwhile +day=day(0:j-1) +apogee=apogee(0:j-1) +perigee=perigee(0:j-1) +semiax=semiax(0:j-1) +raan=raan(0:j-1) +incl=incl(0:j-1) +mean_anom=mean_anom(0:j-1) +arg_perig=arg_perig(0:j-1) +eccen=eccen(0:j-1) +close,unit0 +free_lun,unit0 +!x.title='Day of Year 1999' +!y.title='Arbitrary units' +!p.title='FUSE Orbital Elements' +!x.style=1 +!y.range=[0,1000] +!x.range=[170,day(0)+10] +!p.charsize=1.7 +!p.linestyle=0 +plot,day,apogee +oplot,day,perigee +oplot,day,semiax*100.0-714470.0+700.0 +oplot,day,raan*2.0 +oplot,day,incl*3500.0-87445.0+900.0 +oplot,day,mean_anom*2.0 +oplot,day,arg_perig*2.0 +oplot,day,eccen/2E-6 +xyouts,day(0),apogee(0),"Apogee",charsize=1.0 +xyouts,day(0),perigee(0),"Perigee",charsize=1.0 +xyouts,day(0),semiax(0)*100.0-714470.0+700.0,"Semimajor axis*100",charsize=1.0 +xyouts,day(0),raan(0)*2.0,"RAAN*2",charsize=1.0 +xyouts,day(0),incl(0)*3500.0-87445.0+900.0,"incl*3500",charsize=1.0 +xyouts,day(0),mean_anom(0)*2.0,"mean anomaly*2",charsize=1.0 +xyouts,day(0),arg_perig(0)*2.0,"argument of perigee*2",charsize=1.0 +xyouts,day(0),eccen(0)/2E-6,"eccen/2E-6",charsize=1.0 + +end diff --git a/src/cal/get_tle/get_tle.pl b/src/cal/get_tle/get_tle.pl new file mode 100755 index 0000000..33b72e5 --- /dev/null +++ b/src/cal/get_tle/get_tle.pl @@ -0,0 +1,148 @@ +#!/usr/local/bin/perl +use FileHandle; +use IPC::Open2; + +### +# OIG TLE retrieval program +# DJG - 6/14/98 +# +# Uses a file called "one" which has sat numbers to get +# +# Places all output in a single file called "five.tle". +# +### + +### Configure: +##$login = "emurphy"; +##$passwd = "bdr529"; + +$login = "mromelfanger"; +$passwd = "fusejhu"; +$output_filename = "/data1/fuse/calfuse/caltemp/five.tle"; +$log_filename = "/data1/fuse/calfuse/caltemp/get_tle.logfile"; + +### (end of configure section) + +# system("fixlist one tempone"); +# chop($satstoget = `cat tempone`); +# system("rm -f tempone"); + +$satstoget = "25791"; + +# The "output" file collects debugging copies of everything that comes back. +open(OUT,">$log_filename") || die "Could not open output file"; + +# The following logs in to OIG and gets the first "continue" code + +$host = "oig1.gsfc.nasa.gov"; +#$url = "scripts/foxweb.dll/loginok\@app01?tdac=&ffv01=$login&ffv02=$passwd"; +$url = "scripts/foxweb.exe/loginok\@app01?tdac=&ffv01=$login&ffv02=$passwd"; + +open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection"; +Writer->autoflush(); + +print Reader "telnet $host 80\n"; +print Writer "GET \/$url\n"; +while () { + print OUT "$_"; # copy each login screen line to the output file + if (/tdac=(\w+)\"/) { + $continuecode = $1; # This code is the "continue" code + } +} +close(Reader); +close(Writer); + +# $continuecode contains the very first "continue" code after login. + +print OUT "*** \n Starting User's Home Page output page \n***\n\n"; + +# This url accesses the next screen (user home page) +#$url = "scripts/foxweb.dll/favorhome\@app01?tdac=" . $continuecode; +$url = "scripts/foxweb.exe/favorhome\@app01?tdac=" . $continuecode; +# print $url; # debug print + +open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection"; +Writer->autoflush(); + +print Reader "telnet $host 80\n"; +print Writer "GET \/$url\n"; + +while () { + print OUT "$_"; # copy each line to the output file + + if(/tdac=(\w+)\"/) { + +# Look for the "tle ad hoc query" code and save it + chop($word = "$_"); + if ($word =~ /ftleadhoc.+tdac=(\w+)\"/) { + $tlequerycode = "$1"; + } + } +} +# close(HOMEPAGE); +# This access is to the "TLE ad hoc query" web page. +#$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $tlequerycode; +$url = "scripts/foxweb.exe/ftleadhoc\@app01?tdac=" . $tlequerycode; + +open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection"; +Writer->autoflush(); + +print Reader "telnet $host 80\n"; +print Writer "GET \/$url\n"; + +while () { + print OUT "$_"; # copy each login screen line to the output file + + # Look for the TLE "submit" code + chop($word = "$_"); + if ($word =~ /tdac\" VALUE=\"(\w+)\"/) { + $gotcode2 = "$1"; + } +} +close(Reader); +close(Writer); + +# Compose the TLE query and submit it +#$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $gotcode2; +$url = "scripts/foxweb.exe/ftleadhoc\@app01?tdac=" . $gotcode2; +$url .= "&ffv01=" . $satstoget . "&ffv02=standard&ffv03=catno&ffv04=five"; + +# print "$url\n"; # debug print + +# Read the reply and copy the relevant lines to output_filename + +$copy = "no"; +open(TLEOUT,">$output_filename") || die "Error opening $output_filename"; + +open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection"; +Writer->autoflush(); + +print Reader "telnet $host 80\n"; +print Writer "GET \/$url\n"; + +while () { + if ($_ =~ /

/) { # End copy operation + print "$_"; # write remaining limit to output file + $copy = "no"; + } + if ($copy eq "yes") { + print TLEOUT "$_"; # copy every line to five.tle + # print "$_"; # and to the terminal + } + if (substr($_,0,5) eq "

") {  # Begin copy operation
+    $copy = "yes";
+  }
+}
+close(Reader);
+close(Writer);
+close(TLEOUT);
+
+# The following will remove all session files. You can comment it
+# out for debugging.
+# system("rm -f output");
+
+# The following script "fixes up" the output
+# system("fix/do.fix.one");
+
+### end of Perl script
+
diff --git a/src/cal/get_tle/get_tle.pl.OIG b/src/cal/get_tle/get_tle.pl.OIG
new file mode 100755
index 0000000..33b72e5
--- /dev/null
+++ b/src/cal/get_tle/get_tle.pl.OIG
@@ -0,0 +1,148 @@
+#!/usr/local/bin/perl
+use FileHandle;
+use IPC::Open2;
+
+###
+# OIG TLE retrieval program
+# DJG - 6/14/98
+#
+# Uses a file called "one" which has sat numbers to get
+#
+# Places all output in a single file called "five.tle".
+#
+###
+
+### Configure:
+##$login = "emurphy";
+##$passwd = "bdr529";
+
+$login = "mromelfanger";
+$passwd = "fusejhu";
+$output_filename = "/data1/fuse/calfuse/caltemp/five.tle";
+$log_filename = "/data1/fuse/calfuse/caltemp/get_tle.logfile";
+
+### (end of configure section)
+
+# system("fixlist one tempone");
+# chop($satstoget = `cat tempone`);
+# system("rm -f tempone");
+
+$satstoget = "25791";
+
+# The "output" file collects debugging copies of everything that comes back.
+open(OUT,">$log_filename") || die "Could not open output file";
+
+# The following logs in to OIG and gets the first "continue" code
+
+$host = "oig1.gsfc.nasa.gov";
+#$url = "scripts/foxweb.dll/loginok\@app01?tdac=&ffv01=$login&ffv02=$passwd";
+$url = "scripts/foxweb.exe/loginok\@app01?tdac=&ffv01=$login&ffv02=$passwd";
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+while () {
+  print OUT "$_";  # copy each login screen line to the output file
+  if (/tdac=(\w+)\"/) {
+    $continuecode = $1;  # This code is the "continue" code
+  }
+}
+close(Reader);
+close(Writer);
+
+# $continuecode contains the very first "continue" code after login.
+
+print OUT "*** \n Starting User's Home Page output page \n***\n\n";
+
+# This url accesses the next screen (user home page)
+#$url = "scripts/foxweb.dll/favorhome\@app01?tdac=" . $continuecode;
+$url = "scripts/foxweb.exe/favorhome\@app01?tdac=" . $continuecode;
+# print $url; # debug print
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  print OUT "$_";      # copy each line to the output file
+
+  if(/tdac=(\w+)\"/) {
+
+#   Look for the "tle ad hoc query" code and save it
+    chop($word = "$_");
+    if ($word =~ /ftleadhoc.+tdac=(\w+)\"/) {
+      $tlequerycode = "$1";
+    }
+  }
+}
+# close(HOMEPAGE);
+# This access is to the "TLE ad hoc query" web page.
+#$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $tlequerycode;
+$url = "scripts/foxweb.exe/ftleadhoc\@app01?tdac=" . $tlequerycode;
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  print OUT "$_";  # copy each login screen line to the output file
+
+  # Look for the TLE "submit" code
+  chop($word = "$_");
+  if ($word =~ /tdac\" VALUE=\"(\w+)\"/) {
+    $gotcode2 = "$1";
+  }
+}
+close(Reader);
+close(Writer);
+
+# Compose the TLE query and submit it
+#$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $gotcode2;
+$url = "scripts/foxweb.exe/ftleadhoc\@app01?tdac=" . $gotcode2;
+$url .= "&ffv01=" . $satstoget . "&ffv02=standard&ffv03=catno&ffv04=five";
+
+# print "$url\n";  # debug print
+
+# Read the reply and copy the relevant lines to output_filename
+
+$copy = "no";
+open(TLEOUT,">$output_filename") || die "Error opening $output_filename";
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  if ($_ =~ /
/) {  # End copy operation
+    print "$_";       # write remaining limit to output file
+    $copy = "no";
+  }
+  if ($copy eq "yes") {
+    print TLEOUT "$_";   # copy every line to five.tle
+    # print "$_";          # and to the terminal
+  }
+  if (substr($_,0,5) eq "
") {  # Begin copy operation
+    $copy = "yes";
+  }
+}
+close(Reader);
+close(Writer);
+close(TLEOUT);
+
+# The following will remove all session files. You can comment it
+# out for debugging.
+# system("rm -f output");
+
+# The following script "fixes up" the output
+# system("fix/do.fix.one");
+
+### end of Perl script
+
diff --git a/src/cal/get_tle/get_tle.pl.orig b/src/cal/get_tle/get_tle.pl.orig
new file mode 100755
index 0000000..28f9229
--- /dev/null
+++ b/src/cal/get_tle/get_tle.pl.orig
@@ -0,0 +1,144 @@
+#!/usr/local/bin/perl
+use FileHandle;
+use IPC::Open2;
+
+###
+# OIG TLE retrieval program
+# DJG - 6/14/98
+#
+# Uses a file called "one" which has sat numbers to get
+#
+# Places all output in a single file called "five.tle".
+#
+###
+
+### Configure:
+##$login = "emurphy";
+##$passwd = "bdr529";
+
+$login = "mromelfanger";
+$passwd = "fusejhu";
+$output_filename = "/data1/fuse/calfuse/caltemp/five.tle";
+$log_filename = "/data1/fuse/calfuse/caltemp/get_tle.logfile";
+
+### (end of configure section)
+
+# system("fixlist one tempone");
+# chop($satstoget = `cat tempone`);
+# system("rm -f tempone");
+
+$satstoget = "25791";
+
+# The "output" file collects debugging copies of everything that comes back.
+open(OUT,">$log_filename") || die "Could not open output file";
+
+# The following logs in to OIG and gets the first "continue" code
+
+$host = "oig1.gsfc.nasa.gov";
+$url = "scripts/foxweb.dll/loginok\@app01?tdac=&ffv01=$login&ffv02=$passwd";
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+while () {
+  print OUT "$_";  # copy each login screen line to the output file
+  if (/tdac=(\w+)\"/) {
+    $continuecode = $1;  # This code is the "continue" code
+  }
+}
+close(Reader);
+close(Writer);
+
+# $continuecode contains the very first "continue" code after login.
+
+print OUT "*** \n Starting User's Home Page output page \n***\n\n";
+
+# This url accesses the next screen (user home page)
+$url = "scripts/foxweb.dll/favorhome\@app01?tdac=" . $continuecode;
+# print $url; # debug print
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  print OUT "$_";      # copy each line to the output file
+
+  if(/tdac=(\w+)\"/) {
+
+#   Look for the "tle ad hoc query" code and save it
+    chop($word = "$_");
+    if ($word =~ /ftleadhoc.+tdac=(\w+)\"/) {
+      $tlequerycode = "$1";
+    }
+  }
+}
+# close(HOMEPAGE);
+# This access is to the "TLE ad hoc query" web page.
+$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $tlequerycode;
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  print OUT "$_";  # copy each login screen line to the output file
+
+  # Look for the TLE "submit" code
+  chop($word = "$_");
+  if ($word =~ /tdac\" VALUE=\"(\w+)\"/) {
+    $gotcode2 = "$1";
+  }
+}
+close(Reader);
+close(Writer);
+
+# Compose the TLE query and submit it
+$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $gotcode2;
+$url .= "&ffv01=" . $satstoget . "&ffv02=standard&ffv03=catno&ffv04=five";
+
+# print "$url\n";  # debug print
+
+# Read the reply and copy the relevant lines to output_filename
+
+$copy = "no";
+open(TLEOUT,">$output_filename") || die "Error opening $output_filename";
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  if ($_ =~ /
/) {  # End copy operation
+    print "$_";       # write remaining limit to output file
+    $copy = "no";
+  }
+  if ($copy eq "yes") {
+    print TLEOUT "$_";   # copy every line to five.tle
+    # print "$_";          # and to the terminal
+  }
+  if (substr($_,0,5) eq "
") {  # Begin copy operation
+    $copy = "yes";
+  }
+}
+close(Reader);
+close(Writer);
+close(TLEOUT);
+
+# The following will remove all session files. You can comment it
+# out for debugging.
+# system("rm -f output");
+
+# The following script "fixes up" the output
+# system("fix/do.fix.one");
+
+### end of Perl script
+
diff --git a/src/cal/get_tle/get_tle.pl.space-track b/src/cal/get_tle/get_tle.pl.space-track
new file mode 100755
index 0000000..60e59d5
--- /dev/null
+++ b/src/cal/get_tle/get_tle.pl.space-track
@@ -0,0 +1,148 @@
+#!/usr/local/bin/perl
+use FileHandle;
+use IPC::Open2;
+
+###
+# OIG TLE retrieval program
+# DJG - 6/14/98
+#
+# Uses a file called "one" which has sat numbers to get
+#
+# Places all output in a single file called "five.tle".
+#
+###
+
+### Configure:
+##$login = "emurphy";
+##$passwd = "bdr529";
+
+$login = "mromelfanger";
+$passwd = "FuseJHU1";
+$output_filename = "/data1/fuse/calfuse/caltemp/five.tle";
+$log_filename = "/data1/fuse/calfuse/caltemp/get_tle.logfile";
+
+### (end of configure section)
+
+# system("fixlist one tempone");
+# chop($satstoget = `cat tempone`);
+# system("rm -f tempone");
+
+$satstoget = "25791";
+
+# The "output" file collects debugging copies of everything that comes back.
+open(OUT,">$log_filename") || die "Could not open output file";
+
+# The following logs in to OIG and gets the first "continue" code
+
+$host = "www.space-track.org";
+#$url = "scripts/foxweb.dll/loginok\@app01?tdac=&ffv01=$login&ffv02=$passwd";
+$url = "scripts/foxweb.exe/loginok\@app01?tdac=&ffv01=$login&ffv02=$passwd";
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+while () {
+  print OUT "$_";  # copy each login screen line to the output file
+  if (/tdac=(\w+)\"/) {
+    $continuecode = $1;  # This code is the "continue" code
+  }
+}
+close(Reader);
+close(Writer);
+
+# $continuecode contains the very first "continue" code after login.
+
+print OUT "*** \n Starting User's Home Page output page \n***\n\n";
+
+# This url accesses the next screen (user home page)
+#$url = "scripts/foxweb.dll/favorhome\@app01?tdac=" . $continuecode;
+$url = "scripts/foxweb.exe/favorhome\@app01?tdac=" . $continuecode;
+# print $url; # debug print
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  print OUT "$_";      # copy each line to the output file
+
+  if(/tdac=(\w+)\"/) {
+
+#   Look for the "tle ad hoc query" code and save it
+    chop($word = "$_");
+    if ($word =~ /ftleadhoc.+tdac=(\w+)\"/) {
+      $tlequerycode = "$1";
+    }
+  }
+}
+# close(HOMEPAGE);
+# This access is to the "TLE ad hoc query" web page.
+#$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $tlequerycode;
+$url = "scripts/foxweb.exe/ftleadhoc\@app01?tdac=" . $tlequerycode;
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  print OUT "$_";  # copy each login screen line to the output file
+
+  # Look for the TLE "submit" code
+  chop($word = "$_");
+  if ($word =~ /tdac\" VALUE=\"(\w+)\"/) {
+    $gotcode2 = "$1";
+  }
+}
+close(Reader);
+close(Writer);
+
+# Compose the TLE query and submit it
+#$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $gotcode2;
+$url = "scripts/foxweb.exe/ftleadhoc\@app01?tdac=" . $gotcode2;
+$url .= "&ffv01=" . $satstoget . "&ffv02=standard&ffv03=catno&ffv04=five";
+
+# print "$url\n";  # debug print
+
+# Read the reply and copy the relevant lines to output_filename
+
+$copy = "no";
+open(TLEOUT,">$output_filename") || die "Error opening $output_filename";
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  if ($_ =~ /
/) {  # End copy operation
+    print "$_";       # write remaining limit to output file
+    $copy = "no";
+  }
+  if ($copy eq "yes") {
+    print TLEOUT "$_";   # copy every line to five.tle
+    # print "$_";          # and to the terminal
+  }
+  if (substr($_,0,5) eq "
") {  # Begin copy operation
+    $copy = "yes";
+  }
+}
+close(Reader);
+close(Writer);
+close(TLEOUT);
+
+# The following will remove all session files. You can comment it
+# out for debugging.
+# system("rm -f output");
+
+# The following script "fixes up" the output
+# system("fix/do.fix.one");
+
+### end of Perl script
+
diff --git a/src/cal/get_tle/make_cvzramtool.pl b/src/cal/get_tle/make_cvzramtool.pl
new file mode 100755
index 0000000..4cb2e01
--- /dev/null
+++ b/src/cal/get_tle/make_cvzramtool.pl
@@ -0,0 +1,215 @@
+#!/usr/local/bin/perl
+use FileHandle;
+
+# This program will read in the latest FUSE TLE and recreate the 
+# cvz_ram_tool.html web page.
+
+$output_filename = "/data2/violet/htdocs/support/tools/cvz_ram_tool.html";
+open (OUTF, ">$output_filename") || die "Cannot open cvz_ram_tool.html file";
+
+system("chmod ug+rw $output_filename");
+system("chgrp www $output_filename");
+
+$input_filename = "/data1/fuse/calfuse/calfiles/FUSE.TLE";
+open (INP_TLE, "<$input_filename") || die "Cannot open FUSE.TLE file";
+
+$line1 = ;
+$line2 = ;
+$line3 = ;
+
+$id2 = substr($line2, 2, 5);
+$id3 = substr($line3, 2, 5);
+
+if (($id2 != 25791) || ($id3 != 25791)) {
+    print STDOUT "Error in TLE:\n";
+    print STDOUT $line1;
+    print STDOUT $line2;
+    print STDOUT $line3;
+    die "Error in TLE";
+}
+
+close (INP_TLE);
+
+$year = substr($line2, 18, 2);
+$doy = substr($line2, 20, 3);
+$dayfrac = substr($line2, 23, 9);
+$incl = substr($line3, 9, 8);
+$raan = substr($line3, 17,8);
+$eccen = substr($line3, 26, 7);
+$eccen = "0." . $eccen;
+$mean_mot = substr($line3, 52, 11);
+
+if ($year > 50) {
+    $year += 1900;
+} else {
+    $year += 2000;
+}
+
+$dayfrac = "0".$dayfrac;
+
+&convert_doy;
+&convert_dayfrac;
+&calculate_a0;
+
+$now=`date`;
+$datest = substr($now,4,3)." ".substr($now,8,2).", ".substr($now,24,4);
+
+print OUTF "FUSE CVZ/Ram Calculator\n";
+print OUTF "
FUSE Continuous Viewing Zone and Orbit Ram Calculator V1.3
\n";
+print OUTF "
June 12, 1999 
\n";
+
+print OUTF "The FUSE Continuous Viewing Zone and Orbit Ram \n";
+print OUTF "Calculator can determine when a given target \n";
+print OUTF "direction is in the continuous viewing zone. \n";
+print OUTF "It also calculates when a given target lies \n";
+print OUTF "within 20 degrees of the orbital plane and \n";
+print OUTF "cannot be observed due to ram avoidance\n";
+print OUTF "constraints. The default orbital elements \n";
+print OUTF "were last updated on $month $day, $year. \n";
+
+print OUTF "
\n";
+print OUTF "
\n";
+print OUTF "
\n";
+
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "
\n";
+  
+print OUTF "
\n";
+print OUTF "Target Parameters:\n";
+print OUTF "
\n";
+print OUTF "
\n";
+print OUTF "Right Ascension (format HH:MM:SS.SS):\n";
+print OUTF " (J2000.0)\n";
+print OUTF "
\n";
+print OUTF "Declination (format -DD:MM:SS.S):\n";
+print OUTF " (J2000.0)\n";
+print OUTF "
\n";
+print OUTF "
\n";
+print OUTF "
\n";
+print OUTF "Output table parameters:\n";
+print OUTF "
\n";
+print OUTF " Minimum Earth limb angle:  \n";
+print OUTF "(deg)\n";
+print OUTF "
\n";
+print OUTF "Start Date:\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "
\n";
+print OUTF "Time step:days
\n";
+print OUTF "Number of steps:
\n";
+print OUTF "
\n";
+print OUTF "
\n";
+print OUTF "FUSE classical Keplarian orbital elements:\n";
+print OUTF "
\n";
+print OUTF "Epoch date of elements:\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "
\n";
+print OUTF "Epoch UT time of elements (format HH:MM:SS.SS):\n";
+printf OUTF "\n",$hour,$minute,$second;
+print OUTF "
\n";
+print OUTF "Semi-major axis (km):\n";
+printf OUTF " \n",$semiax;
+print OUTF "
\n";
+print OUTF "Right ascension of the ascending node (degrees):\n";
+print OUTF "\n";
+print OUTF "
\n";
+print OUTF "Orbit inclination (degrees):\n";
+print OUTF "\n";
+print OUTF "
\n";
+print OUTF "Eccentricity:\n";
+print OUTF " \n";
+print OUTF "
\n";
+print OUTF "
\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "
\n";
+
+print OUTF "
\n";
+print OUTF "This page uses the  STARLINK \n";
+print OUTF "set of astronomical subroutines.\n";
+print OUTF "
\n";
+print OUTF "This page was automatically generated on $now";
+print OUTF "
\n";
+print OUTF "
emurphy\@pha.jhu.edu
\n";
+
+close (OUTF);
+
+### end of Perl script
+
+
+sub convert_doy {
+    @daytab1 = (0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
+    @daytab2 = (0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
+    @monthstr = ("", "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");
+
+    if ((($year%4 == 0) && ($year%100 != 0)) || ($year%400 == 0)) {
+        # $year is a leap year use daytab1
+        for ($i = 1; $doy > $daytab1[$i]; $i++) {
+	    $doy -= $daytab1[$i];
+	}
+    } else {
+        # $year is not a leap year, use daytab2
+        for ($i = 1; $doy > $daytab2[$i]; $i++) {
+	    $doy -= $daytab2[$i];
+	}
+    }
+    $month = $monthstr[$i];
+    $day = $doy;
+}
+
+sub convert_dayfrac {
+    $dayfrac *= 24.0;
+    $hour = int($dayfrac);
+    $minute = int(($dayfrac-$hour)*60.0);
+    $second = ((($dayfrac-$hour)*60.0)-$minute)*60.0;
+}
+
+sub calculate_a0 {
+
+$mu = 3.986005E5;
+$pi = 3.14159265358979;
+$radian = 0.0174532925200;
+
+$mm=2.0*$pi*$mean_mot/(24.0*60.0);
+$ke=0.74366916E-1;
+$k2=5.413080E-4;
+$a1=($ke/$mm)**(2.0/3.0);
+$inrad = $incl * $radian;
+
+$d1=3.0/2.0*$k2/($a1*$a1)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen)**(3.0/2.0));
+$a0=$a1*(1.0-$d1/3.0-$d1*$d1-134.0/81.0*$d1*$d1*$d1);
+$d0=3.0/2.0*$k2/($a0*$a0)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen)**(3.0/2.0));
+$semiax=$a0/(1-$d0)*6378.135;
+}
diff --git a/src/cal/get_tle/make_orbit.pl b/src/cal/get_tle/make_orbit.pl
new file mode 100755
index 0000000..a8f00ff
--- /dev/null
+++ b/src/cal/get_tle/make_orbit.pl
@@ -0,0 +1,233 @@
+#!/usr/local/bin/perl
+use FileHandle;
+
+# Ed Murphy's program to rewrite the orbit page
+# Updated 03/27/00  Changed GSOC to Heavens Above
+
+$output_filename = "/data2/violet/htdocs/users/orbit.html";
+open (OUTF, ">$output_filename") || die "Cannot open $output_filename file";
+
+system("chmod ug+rw $output_filename");
+system("chgrp www $output_filename");
+
+$input_filename = "/data1/fuse/calfuse/calfiles/FUSE.TLE";
+open (INP_TLE, "<$input_filename") || die "Cannot open $input_filename file";
+
+$satid = 25791;
+
+&input_lines;
+
+close (INP_TLE);
+
+&parse_lines;
+
+&convert_doy;
+&convert_dayfrac;
+&calculate_a0;
+&calculate_orbs;
+
+$now=`date`;
+$datest = substr($now,4,3)." ".substr($now,8,2).", ".substr($now,24,4);
+
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "FUSE Orbital Elements page\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "
\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "
\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "
\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "FUSE
\n";
+print OUTF "Orbital Elements\n";
+print OUTF "
\n";
+print OUTF "\n";
+print OUTF "
\n";
+print OUTF "
\n";
+print OUTF "\n";
+print OUTF "Where is FUSE now?
\n";
+print OUTF "Check out the\n";
+print OUTF "\n";
+print OUTF "Heavens-Above Satellite Predictions page .\n";
+print OUTF "
\n";
+print OUTF "
\n";
+print OUTF "
\n";
+print OUTF "
\n";
+print OUTF " \n";
+print OUTF  "FUSE orbital elements:\n";
+print OUTF  "     NORAD number       25791\n";
+print OUTF  "     International ID  99035A\n";
+print OUTF  " \n";
+
+&print_orb;
+
+print OUTF "
\n";
+
+&print_tail;
+
+close (OUTF);
+
+### end of Perl script
+
+
+sub convert_doy {
+    @daytab1 = (0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
+    @daytab2 = (0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
+    @monthstr = ("", "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");
+
+    if ((($year%4 == 0) && ($year%100 != 0)) || ($year%400 == 0)) {
+        # $year is a leap year use daytab1
+        for ($i = 1; $doy > $daytab1[$i]; $i++) {
+	    $doy -= $daytab1[$i];
+	}
+    } else {
+        # $year is not a leap year, use daytab2
+        for ($i = 1; $doy > $daytab2[$i]; $i++) {
+	    $doy -= $daytab2[$i];
+	}
+    }
+    $month = $monthstr[$i];
+    $day = $doy;
+}
+
+sub convert_dayfrac {
+    $dayfrac *= 24.0;
+    $hour = int($dayfrac);
+    $minute = int(($dayfrac-$hour)*60.0);
+    $second = ((($dayfrac-$hour)*60.0)-$minute)*60.0;
+}
+
+sub input_lines {
+$line1 = ;
+$line2 = ;
+$line3 = ;
+
+$id2 = substr($line2, 2, 5);
+$id3 = substr($line3, 2, 5);
+
+if (($id2 != $satid) || ($id3 != $satid)) {
+    print STDOUT "Error in TLE:\n";
+    print STDOUT $line1;
+    print STDOUT $line2;
+    print STDOUT $line3;
+#    die "Error in TLE";
+}
+
+}
+
+sub parse_lines {
+$year = substr($line2, 18, 2);
+$doy = substr($line2, 20, 3);
+$dayfrac = substr($line2, 23, 9);
+$epoch = $year.$doy.$dayfrac;
+$incl = substr($line3, 9, 8);
+$raan = substr($line3, 17,8);
+$eccen = substr($line3, 26, 7);
+$eccen = "0." . $eccen;
+$mean_mot = substr($line3, 52, 11);
+$mean_anom = substr($line3, 43, 8);
+$arg_perig = substr($line3, 34, 8);
+
+
+if ($year > 50) {
+    $year += 1900;
+} else {
+    $year += 2000;
+}
+
+$dayfrac = "0".$dayfrac;
+
+}
+
+sub calculate_a0 {
+
+$mu = 3.986005E5;
+$pi = 3.14159265358979;
+$radian = 0.0174532925200;
+
+$mm=2.0*$pi*$mean_mot/(24.0*60.0);
+$ke=0.74366916E-1;
+$k2=5.413080E-4;
+$a1=($ke/$mm)**(2.0/3.0);
+$inrad = $incl * $radian;
+
+$d1=3.0/2.0*$k2/($a1*$a1)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen)**(3.0/2.0));
+$a0=$a1*(1.0-$d1/3.0-$d1*$d1-134.0/81.0*$d1*$d1*$d1);
+$d0=3.0/2.0*$k2/($a0*$a0)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen)**(3.0/2.0));
+$semiax=$a0/(1-$d0)*6378.135;
+
+}
+
+sub calculate_orbs {
+
+$period = 60.0*24.0/($mean_mot/(1+$d0));
+$cax=$eccen*$semiax;
+$perigee=$semiax-$cax-6378.1;
+$apogee=$semiax+$cax-6378.1;
+
+}
+
+sub print_orb {
+print OUTF  "     Epoch           $epoch\n";
+printf OUTF "     Semimajor axis   %7.2f km\n",$semiax;
+printf OUTF "     Apogee            %5.2f km\n",$apogee;
+printf OUTF "     Perigee           %5.2f km\n",$perigee;
+print OUTF  "     Eccentricity   $eccen\n";
+printf OUTF  "     Inclination       %6.2f degrees\n",$incl;
+printf OUTF "     Period            %6.2f minutes\n",$period;
+printf OUTF "     RA of asc. node   %6.2f degrees\n",$raan;
+printf OUTF "     Arg. of perigee   %6.2f degrees\n",$arg_perig;
+printf OUTF "     Mean anomaly      %6.2f degrees\n",$mean_anom;
+print OUTF  " \n";
+
+}
+
+sub print_tail {
+print OUTF "
";
+
+print OUTF "The FUSE Delta II second stage (NORAD #25792) reentered on \n";
+print OUTF "the morning of August 4, 1999 during orbit number 708.  \n";
+print OUTF "According to predictions by Alan Pickup, reentry \n";
+print OUTF "occured within 90 minutes of 5:31 UT, probably over the \n";
+print OUTF "Arabian Sea or India.  The final orbit was 119 x 103 km (74 x 64 mi).\n";
+print OUTF "
";
+print OUTF "
";
+print OUTF "\n";
+print OUTF " Could anything have survived reentry?
\n";
+print OUTF "
";
+print OUTF "\n";
+print OUTF "
These numbers assume a Keplerian orbit; the actual apogee and perigee \n";
+print OUTF "will differ by a few km on an orbit-to-orbit basis.\n";
+print OUTF "
";
+print OUTF "
The NORAD Two-Line Elements (TLEs) for FUSE can be found in the file \n";
+print OUTF " FUSE.TLE .\n";
+print OUTF "
 \n";
+print OUTF "This page is automatically updated daily.  I wish to thank \n";
+print OUTF "Doyle Groves \n";
+print OUTF "for providing a Perl script to access the NASA\n";
+print OUTF "Orbital Information Group web page.\n";
+print OUTF "
 Ed Murphy, \n";
+print OUTF "
emurphy\@pha.jhu.edu
\n";
+print OUTF "
\n";
+print OUTF "\n";
+print OUTF "
\n";
+print OUTF "Last changed: $datest.\n";
+print OUTF "
\n";
+print OUTF "Return to the FUSE home page.
\n";
+print OUTF "
\n";
+print OUTF "
\n";
+print OUTF "
\n";
+print OUTF "\n";
+print OUTF "\n";
+
+}
diff --git a/src/cal/get_tle/test_get_tle.pl b/src/cal/get_tle/test_get_tle.pl
new file mode 100755
index 0000000..33b72e5
--- /dev/null
+++ b/src/cal/get_tle/test_get_tle.pl
@@ -0,0 +1,148 @@
+#!/usr/local/bin/perl
+use FileHandle;
+use IPC::Open2;
+
+###
+# OIG TLE retrieval program
+# DJG - 6/14/98
+#
+# Uses a file called "one" which has sat numbers to get
+#
+# Places all output in a single file called "five.tle".
+#
+###
+
+### Configure:
+##$login = "emurphy";
+##$passwd = "bdr529";
+
+$login = "mromelfanger";
+$passwd = "fusejhu";
+$output_filename = "/data1/fuse/calfuse/caltemp/five.tle";
+$log_filename = "/data1/fuse/calfuse/caltemp/get_tle.logfile";
+
+### (end of configure section)
+
+# system("fixlist one tempone");
+# chop($satstoget = `cat tempone`);
+# system("rm -f tempone");
+
+$satstoget = "25791";
+
+# The "output" file collects debugging copies of everything that comes back.
+open(OUT,">$log_filename") || die "Could not open output file";
+
+# The following logs in to OIG and gets the first "continue" code
+
+$host = "oig1.gsfc.nasa.gov";
+#$url = "scripts/foxweb.dll/loginok\@app01?tdac=&ffv01=$login&ffv02=$passwd";
+$url = "scripts/foxweb.exe/loginok\@app01?tdac=&ffv01=$login&ffv02=$passwd";
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+while () {
+  print OUT "$_";  # copy each login screen line to the output file
+  if (/tdac=(\w+)\"/) {
+    $continuecode = $1;  # This code is the "continue" code
+  }
+}
+close(Reader);
+close(Writer);
+
+# $continuecode contains the very first "continue" code after login.
+
+print OUT "*** \n Starting User's Home Page output page \n***\n\n";
+
+# This url accesses the next screen (user home page)
+#$url = "scripts/foxweb.dll/favorhome\@app01?tdac=" . $continuecode;
+$url = "scripts/foxweb.exe/favorhome\@app01?tdac=" . $continuecode;
+# print $url; # debug print
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  print OUT "$_";      # copy each line to the output file
+
+  if(/tdac=(\w+)\"/) {
+
+#   Look for the "tle ad hoc query" code and save it
+    chop($word = "$_");
+    if ($word =~ /ftleadhoc.+tdac=(\w+)\"/) {
+      $tlequerycode = "$1";
+    }
+  }
+}
+# close(HOMEPAGE);
+# This access is to the "TLE ad hoc query" web page.
+#$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $tlequerycode;
+$url = "scripts/foxweb.exe/ftleadhoc\@app01?tdac=" . $tlequerycode;
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  print OUT "$_";  # copy each login screen line to the output file
+
+  # Look for the TLE "submit" code
+  chop($word = "$_");
+  if ($word =~ /tdac\" VALUE=\"(\w+)\"/) {
+    $gotcode2 = "$1";
+  }
+}
+close(Reader);
+close(Writer);
+
+# Compose the TLE query and submit it
+#$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $gotcode2;
+$url = "scripts/foxweb.exe/ftleadhoc\@app01?tdac=" . $gotcode2;
+$url .= "&ffv01=" . $satstoget . "&ffv02=standard&ffv03=catno&ffv04=five";
+
+# print "$url\n";  # debug print
+
+# Read the reply and copy the relevant lines to output_filename
+
+$copy = "no";
+open(TLEOUT,">$output_filename") || die "Error opening $output_filename";
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  if ($_ =~ /
/) {  # End copy operation
+    print "$_";       # write remaining limit to output file
+    $copy = "no";
+  }
+  if ($copy eq "yes") {
+    print TLEOUT "$_";   # copy every line to five.tle
+    # print "$_";          # and to the terminal
+  }
+  if (substr($_,0,5) eq "
") {  # Begin copy operation
+    $copy = "yes";
+  }
+}
+close(Reader);
+close(Writer);
+close(TLEOUT);
+
+# The following will remove all session files. You can comment it
+# out for debugging.
+# system("rm -f output");
+
+# The following script "fixes up" the output
+# system("fix/do.fix.one");
+
+### end of Perl script
+
diff --git a/src/cal/get_tle/test_tle.csh b/src/cal/get_tle/test_tle.csh
new file mode 100755
index 0000000..5431552
--- /dev/null
+++ b/src/cal/get_tle/test_tle.csh
@@ -0,0 +1,50 @@
+#!/bin/csh -f
+#******************************************************************************
+#*              Johns Hopkins University
+#*              Center For Astrophysical Sciences
+#*              FUSE
+#*****************************************************************************
+#*
+#* Synopsis:    update_tle
+#*
+#* Description: Shell script for automatically downloading the latest
+#*              orbital elements from the GSFC OIG, and placing these
+#*              elements in the FUSE.TLE file.  It will also update 
+#*              the cvz_ram_tool.html calculator.
+#*		
+#*		All messages are to stdout or stderr.
+#*
+#* Arguments:   None
+#*
+#* Returns:     Exit codes:
+#*			0		successful execution
+#* 
+#* History:     07/27/99        emm     Begin work.
+#******************************************************************************/
+
+set tlestat=0
+
+# Step 1
+/usr/local/fusesw/calfuse/current/src/cal/get_tle/get_tle.pl
+set cfstat=$status
+
+# Step 2
+if !({$cfstat}) then
+    /usr/local/fusesw/calfuse/current/src/cal/get_tle/add_tle.pl
+    set cfstat=$status
+endif
+
+# Step 3
+if !({$cfstat}) then
+    /usr/local/fusesw/calfuse/current/src/cal/get_tle/make_cvzramtool.pl
+    set cfstat=$status
+endif
+
+# Step 4
+if !({$cfstat}) then
+    /usr/local/fusesw/calfuse/current/src/cal/get_tle/make_orbit.pl
+    set cfstat=$status
+endif
+
+exit($cfstat)
+
diff --git a/src/cal/get_tle/tmp/FUSE.OLD b/src/cal/get_tle/tmp/FUSE.OLD
new file mode 100644
index 0000000..75e788e
--- /dev/null
+++ b/src/cal/get_tle/tmp/FUSE.OLD
@@ -0,0 +1,5205 @@
+FUSE 1
+1 25791U 99035A   03334.81529517  .00000629  00000-0  13611-3 0    73
+2 25791  24.9828 141.7372 0010396 237.2837 122.6662 14.41449325233814
+FUSE 1
+1 25791U 99035A   03332.32285756  .00000721  00000-0  16400-3 0    51
+2 25791  24.9827 157.0092 0010498 210.6638 149.3252 14.41447882233456
+FUSE 1
+1 25791U 99035A   03331.90745146 +.00000729 +00000-0 +16628-3 0 00081
+2 25791 024.9828 159.5554 0010553 206.5242 153.4727 14.41447542233393
+FUSE 1
+1 25791U 99035A   03331.14587356  .00000725  00000-0  16505-3 0    40
+2 25791  24.9828 164.2238 0010646 198.4715 161.5398 14.41446726233287
+FUSE 1
+1 25791U 99035A   03329.89965515  .00000696  00000-0  15651-3 0    33
+2 25791  24.9826 171.8592 0010670 185.6347 174.4062 14.41445181233104
+FUSE 1
+1 25791U 99035A   03328.86113523 +.00000610 +00000-0 +13023-3 0 00030
+2 25791 024.9825 178.2061 0010624 174.6707 185.3915 14.41444336232953
+FUSE 1
+1 25791U 99035A   03328.79190076  .00000678  00000-0  15092-3 0    21
+2 25791  24.9829 178.6308 0010612 173.9957 186.0679 14.41444516232945
+FUSE 1
+1 25791U 99035A   03327.89185200 +.00000523 +00000-0 +10396-3 0 00058
+2 25791 024.9836 184.1428 0010625 164.7116 195.3708 14.41443393232811
+FUSE 1
+1 25791U 99035A   03327.06103806  .00000946  00000-0  23212-3 0    15
+2 25791  24.9839 189.2348 0010607 156.0117 204.0892 14.41443370232699
+FUSE 1
+1 25791U 99035A   03326.92256930 +.00001217 +00000-0 +31425-3 0 00068
+2 25791 024.9831 190.0850 0010666 154.7022 205.4026 14.41443784232675
+FUSE 1
+1 25791U 99035A   03325.81481645  .00001001  00000-0  24877-3 0    06
+2 25791  24.9833 196.8767 0010686 142.8583 217.2666 14.41441143232511
+FUSE 1
+1 25791U 99035A   03324.91476442 +.00000578 +00000-0 +12056-3 0 00021
+2 25791 024.9828 202.3884 0010744 133.5472 226.5911 14.41438825232381
+FUSE 1
+1 25791U 99035A   03323.94547862 +.00000358 +00000-0 +54039-4 0 00011
+2 25791 024.9832 208.3404 0010860 124.8670 235.2866 14.41437713232248
+FUSE 1
+1 25791U 99035A   03322.90695295 +.00000456 +00000-0 +83650-4 0 00009
+2 25791 024.9834 214.7019 0010853 115.1433 245.0191 14.41437815232091
+FUSE 1
+1 25791U 99035A   03321.93766319 +.00000482 +00000-0 +91492-4 0 00223
+2 25791 024.9834 220.6386 0010837 104.6262 255.5450 14.41437349231959
+FUSE 1
+1 25791U 99035A   03320.89913707 +.00000498 +00000-0 +96406-4 0 09969
+2 25791 024.9836 226.9996 0010817 093.6241 266.5508 14.41436631231802
+FUSE 1
+1 25791U 99035A   03319.92984440 +.00000599 +00000-0 +12716-3 0 09988
+2 25791 024.9836 232.9378 0010741 083.7324 276.4412 14.41436361231669
+FUSE 1
+1 25791U 99035A   03318.96055095 +.00000529 +00000-0 +10579-3 0 00064
+2 25791 024.9837 238.8759 0010678 074.0237 286.1451 14.41435571231521
+FUSE 1
+1 25791U 99035A   03317.92202182 +.00000413 +00000-0 +70728-4 0 00021
+2 25791 024.9840 245.2398 0010704 063.5995 296.5616 14.41434631231377
+FUSE 1
+1 25791U 99035A   03316.95272605 +.00000470 +00000-0 +88022-4 0 09972
+2 25791 024.9836 251.1803 0010590 053.6350 306.5138 14.41434475231239
+FUSE 1
+1 25791U 99035A   03315.91419451 +.00000359 +00000-0 +54432-4 0 09951
+2 25791 024.9837 257.5405 0010596 042.7776 317.3563 14.41433347231087
+FUSE 1
+1 25791U 99035A   03314.94489683 +.00000376 +00000-0 +59442-4 0 00177
+2 25791 024.9838 263.4782 0010541 032.5623 327.5544 14.41433068230946
+FUSE 1
+1 25791U 99035A   03313.97559885 +.00000299 +00000-0 +36081-4 0 09921
+2 25791 024.9837 269.4165 0010540 022.3690 337.7277 14.41432334230802
+FUSE 1
+1 25791U 99035A   03312.93706443 +.00000584 +00000-0 +12243-3 0 09931
+2 25791 024.9834 275.7793 0010504 011.6272 348.4499 14.41433055230652
+FUSE 1
+1 25791U 99035A   03311.96776569 +.00000350 +00000-0 +51482-4 0 09939
+2 25791 024.9833 281.7181 0010408 001.6598 358.3945 14.41431695230511
+FUSE 1
+1 25791U 99035A   03310.65228737 +.00000444 +00000-0 +80221-4 0 09930
+2 25791 024.9835 289.7793 0010257 347.5217 012.5005 14.41431193230320
+FUSE 1
+1 25791U 99035A   03309.40604522 +.00000467 +00000-0 +87049-4 0 00145
+2 25791 024.9835 297.4135 0010238 333.3895 026.6085 14.41430141230146
+FUSE 1
+1 25791U 99035A   03308.78292393 +.00000641 +00000-0 +13975-3 0 09895
+2 25791 024.9836 301.2316 0010231 327.1757 032.8108 14.41430126230051
+FUSE 1
+1 25791U 99035A   03307.39821018 +.00000487 +00000-0 +93143-4 0 09853
+2 25791 024.9836 309.7266 0009954 308.3405 051.6212 14.41427785229857
+FUSE 1
+1 25791U 99035A   03306.42890957 +.00001374 +00000-0 +36220-3 0 09920
+2 25791 024.9826 315.6681 0010109 298.0220 061.9265 14.41428485229712
+FUSE 1
+1 25791U 99035A   03305.45960939 +.00002012 +00000-0 +55551-3 0 00086
+2 25791 024.9823 321.6056 0010134 287.9208 072.0205 14.41427385229572
+FUSE 1
+1 25791U 99035A   03304.49030907 +.00002090 +00000-0 +57918-3 0 09839
+2 25791 024.9820 327.5453 0010274 277.3913 082.5438 14.41423770229439
+FUSE 1
+1 25791U 99035A   03303.52100790 +.00001430 +00000-0 +37917-3 0 09979
+2 25791 024.9824 333.4868 0010388 267.0794 092.8530 14.41418570229291
+FUSE 1
+1 25791U 99035A   03303.24406524  .00000959  00000-0  23638-3 0  9826
+2 25791  24.9827 335.1872 0010550 264.3245  95.6061 14.41416153229251
+FUSE 1
+1 25791U 99035A   03302.20552450  .00001096  00000-0  27769-3 0  9812
+2 25791  24.9825 341.5507 0010562 253.8882 106.0488 14.41414636229106
+FUSE 1
+1 25791U 99035A   03300.54385630  .00000645  00000-0  14088-3 0  9809
+2 25791  24.9828 351.7298 0010742 236.4738 123.4745 14.41411128228860
+FUSE 1
+1 25791U 99035A   03299.22836924  .00000522  00000-0  10377-3 0  9797
+2 25791  24.9826 359.7898 0010802 223.1838 136.7831 14.41409442228671
+FUSE 1
+1 25791U 99035A   03297.56670010  .00000441  00000-0  79217-4 0  9782
+2 25791  24.9828   9.9670 0010755 205.8604 154.1368 14.41407956228431
+FUSE 1
+1 25791U 99035A   03295.69732098 +.00000439 +00000-0 +78644-4 0 09778
+2 25791 024.9823 021.4161 0010726 186.3436 173.6933 14.41406877228169
+FUSE 1
+1 25791U 99035A   03294.58954049  .00000442  00000-0  79553-4 0  9760
+2 25791  24.9822  28.2003 0010717 174.4425 185.6202 14.41406259228003
+FUSE 1
+1 25791U 99035A   03293.68946830 +.00000437 +00000-0 +78059-4 0 09808
+2 25791 024.9822 033.7128 0010712 164.9748 195.1079 14.41405735227879
+FUSE 1
+1 25791U 99035A   03293.55099557  .00000435  00000-0  77377-4 0  9753
+2 25791  24.9823  34.5611 0010708 163.5206 196.5648 14.41405674227852
+FUSE 1
+1 25791U 99035A   03292.85863226 +.00000395 +00000-0 +65203-4 0 00006
+2 25791 024.9822 038.8017 0010732 156.0067 204.0939 14.41405084227759
+FUSE 1
+1 25791U 99035A   03292.09703250  .00000466  00000-0  86677-4 0  9749
+2 25791  24.9816  43.4715 0010662 147.9465 212.1683 14.41404859227645
+FUSE 1
+1 25791U 99035A   03290.98925305  .00000496  00000-0  95741-4 0  9736
+2 25791  24.9815  50.2722 0010596 136.9264 223.2143 14.41404097227489
+FUSE 1
+1 25791U 99035A   03289.81223159  .00000457  00000-0  84144-4 0  9725
+2 25791  24.9826  57.4936 0010620 125.6318 234.5184 14.41403544227318
+FUSE 1
+1 25791U 99035A   03288.77368245 +.00000424 +00000-0 +74086-4 0 09802
+2 25791 024.9826 063.8560 0010538 115.2199 244.9403 14.41402817227166
+FUSE 1
+1 25791U 99035A   03288.56597245  .00000409  00000-0  69342-4 0  9715
+2 25791  24.9830  65.1298 0010470 113.2118 246.9490 14.41402657227135
+FUSE 1
+1 25791U 99035A   03287.80436833 +.00000487 +00000-0 +93214-4 0 09863
+2 25791 024.9823 069.7945 0010522 105.3271 254.8405 14.41402718227026
+FUSE 1
+1 25791U 99035A   03286.83505381  .00000474  00000-0  89149-4 0  9701
+2 25791  24.9821  75.7317 0010429  95.3344 264.8358 14.41401993226884
+FUSE 1
+1 25791U 99035A   03285.86573823 +.00000465 +00000-0 +86378-4 0 09878
+2 25791 024.9822 081.6696 0010346 085.1348 275.0344 14.41401345226745
+FUSE 1
+1 25791U 99035A   03285.58879111  .00000442  00000-0  79392-4 0  9699
+2 25791  24.9825  83.3678 0010296  82.0216 278.1456 14.41400988226707
+FUSE 1
+1 25791U 99035A   03284.55023662  .00000447  00000-0  80990-4 0  9687
+2 25791  24.9825  89.7291 0010201  70.9880 289.1734 14.41400492226551
+FUSE 1
+1 25791U 99035A   03282.88854730  .00000440  00000-0  79027-4 0  9670
+2 25791  24.9825  99.9047 0010178  53.4478 306.6963 14.41399534226312
+FUSE 1
+1 25791U 99035A   03281.84998986  .00000468  00000-0  87538-4 0  9662
+2 25791  24.9822 106.2646 0010191  42.5792 317.5504 14.41399184226165
+FUSE 1
+1 25791U 99035A   03280.94990632 +.00000467 +00000-0 +87263-4 0 09712
+2 25791 024.9824 111.7767 0010189 033.0995 327.0149 14.41398673226038
+FUSE 1
+1 25791U 99035A   03280.81143207  .00000455  00000-0  83540-4 0  9650
+2 25791  24.9826 112.6255 0010186  31.4564 328.6551 14.41398503226017
+FUSE 1
+1 25791U 99035A   03279.91134723 +.00000485 +00000-0 +92641-4 0 09747
+2 25791 024.9824 118.1376 0010154 021.8776 338.2165 14.41398227225888
+FUSE 1
+1 25791U 99035A   03279.01126251  .00000481  00000-0  91312-4 0  9644
+2 25791  24.9824 123.6499 0010153  12.3561 347.7194 14.41397643225755
+FUSE 1
+1 25791U 99035A   03278.94202521 +.00000481 +00000-0 +91337-4 0 09906
+2 25791 024.9824 124.0738 0010152 011.6408 348.4333 14.41397601225743
+FUSE 1
+1 25791U 99035A   03277.97270237 +.00000495 +00000-0 +95508-4 0 09681
+2 25791 024.9827 130.0106 0010132 001.2425 358.8110 14.41397155225601
+FUSE 1
+1 25791U 99035A   03277.90346511  .00000490  00000-0  94065-4 0  9630
+2 25791  24.9828 130.4350 0010138   0.4734 359.5783 14.41397083225599
+FUSE 1
+1 25791U 99035A   03276.03405565  .00000520  00000-0  10314-3 0  9625
+2 25791  24.9827 141.8830 0010124 340.4951  19.5169 14.41396123225326
+FUSE 1
+1 25791U 99035A   03275.96481828 +.00000519 +00000-0 +10285-3 0 09740
+2 25791 024.9827 142.3069 0010124 339.7655 020.2450 14.41396066225315
+FUSE 1
+1 25791U 99035A   03274.99549511  .00000510  00000-0  10007-3 0  9615
+2 25791  24.9826 148.2432 0010136 329.5837  30.4082 14.41395326225171
+FUSE 1
+1 25791U 99035A   03273.95693438 +.00000508 +00000-0 +99668-4 0 09650
+2 25791 024.9828 154.6032 0010134 318.6446 041.3297 14.41394631225024
+FUSE 1
+1 25791U 99035A   03273.88769694  .00000499  00000-0  96894-4 0  9602
+2 25791  24.9830 155.0276 0010143 317.9041  42.0681 14.41394528225014
+FUSE 1
+1 25791U 99035A   03272.91837360 +.00000497 +00000-0 +96337-4 0 09713
+2 25791 024.9831 160.9638 0010155 307.6849 052.2737 14.41393912224871
+FUSE 1
+1 25791U 99035A   03272.15676230  .00000502  00000-0  97734-4 0  9591
+2 25791  24.9829 165.6274 0010158 299.6477  60.3019 14.41393430224762
+FUSE 1
+1 25791U 99035A   03270.91049028  .00000459  00000-0  84530-4 0  9582
+2 25791  24.9828 173.2617 0010180 286.1903  73.7484 14.41392360224582
+FUSE 1
+1 25791U 99035A   03269.59498120  .00000447  00000-0  80950-4 0  9573
+2 25791  24.9826 181.3203 0010142 272.2580  87.6765 14.41391553224394
+FUSE 1
+1 25791U 99035A   03268.97184558 +.00000445 +00000-0 +80376-4 0 09728
+2 25791 024.9827 185.1382 0010173 265.5171 094.4175 14.41391194224303
+FUSE 1
+1 25791U 99035A   03268.21023535  .00000414  00000-0  70946-4 0  9562
+2 25791  24.9826 189.8028 0010188 257.2495 102.6873 14.41390641224193
+FUSE 1
+1 25791U 99035A   03266.96396409 +.00000465 +00000-0 +86405-4 0 09591
+2 25791 024.9820 197.4355 0010222 244.5075 115.4384 14.41390276224011
+FUSE 1
+1 25791U 99035A   03266.89472691  .00000397  00000-0  65865-4 0  9558
+2 25791  24.9820 197.8595 0010244 243.7321 116.2133 14.41389876224004
+FUSE 1
+1 25791U 99035A   03265.92540594 +.00000421 +00000-0 +73184-4 0 09583
+2 25791 024.9820 203.7991 0010303 233.3804 126.5767 14.41389519223862
+FUSE 1
+1 25791U 99035A   03265.85616889  .00000313  00000-0  40304-4 0  9540
+2 25791  24.9821 204.2231 0010301 232.5282 127.4287 14.41388972223853
+FUSE 1
+1 25791U 99035A   03264.95608437 +.00000413 +00000-0 +70600-4 0 09600
+2 25791 024.9825 209.7349 0010306 222.8574 137.1133 14.41389145223725
+FUSE 1
+1 25791U 99035A   03264.47142380  .00000318  00000-0  41810-4 0  9534
+2 25791  24.9828 212.7038 0010331 217.6796 142.2976 14.41388613223656
+FUSE 1
+1 25791U 99035A   03263.98676299 +.00000580 +00000-0 +12130-3 0 09634
+2 25791 024.9828 215.6716 0010371 212.5398 147.4473 14.41389300223582
+FUSE 1
+1 25791U 99035A   03263.22515633  .00000537  00000-0  10820-3 0  9529
+2 25791  24.9833 220.3517 0010502 204.2952 155.7061 14.41388708223474
+FUSE 1
+1 25791U 99035A   03262.18659921  .00000379  00000-0  60457-4 0  9517
+2 25791  24.9840 226.7147 0010614 193.4882 166.5362 14.41387701223326
+FUSE 1
+1 25791U 99035A   03260.94032957 +.00000309 +00000-0 +39078-4 0 09544
+2 25791 024.9847 234.3525 0010738 180.7298 179.3196 14.41387027223143
+FUSE 1
+1 25791U 99035A   03260.59414308  .00000321  00000-0  42703-4 0  9508
+2 25791  24.9846 236.4723 0010751 177.3006 182.7566 14.41387012223096
+FUSE 1
+1 25791U 99035A   03259.62482160 +.00000345 +00000-0 +49962-4 0 09512
+2 25791 024.9849 242.4122 0010762 167.3136 192.7647 14.41386920222956
+FUSE 1
+1 25791U 99035A   03259.48634698  .00000346  00000-0  50207-4 0  9493
+2 25791  24.9851 243.2626 0010790 166.2982 193.7819 14.41386915222939
+FUSE 1
+1 25791U 99035A   03258.79397436 +.00000352 +00000-0 +52081-4 0 09637
+2 25791 024.9852 247.5042 0010849 159.0756 201.0196 14.41386761222832
+FUSE 1
+1 25791U 99035A   03258.24007588  .00000371  00000-0  57900-4 0  9482
+2 25791  24.9858 250.9015 0011010 153.8841 206.2222 14.41386865222757
+FUSE 1
+1 25791U 99035A   03257.33999071 +.00000378 +00000-0 +60212-4 0 09553
+2 25791 024.9856 256.4136 0010989 144.6365 215.4873 14.41386567222622
+FUSE 1
+1 25791U 99035A   03257.20151615  .00000373  00000-0  58654-4 0  9476
+2 25791  24.9858 257.2623 0010972 143.2340 216.8919 14.41386487222609
+FUSE 1
+1 25791U 99035A   03255.47058133  .00000387  00000-0  62819-4 0  9466
+2 25791  24.9862 267.8626 0010955 125.3598 234.7940 14.41385975222357
+FUSE 1
+1 25791U 99035A   03254.50125662 +.00000395 +00000-0 +65424-4 0 09599
+2 25791 024.9864 273.7990 0010932 115.3011 244.8633 14.41385685222217
+FUSE 1
+1 25791U 99035A   03254.22430627  .00000409  00000-0  69456-4 0  9458
+2 25791  24.9864 275.4955 0010924 112.3361 247.8299 14.41385695222170
+FUSE 1
+1 25791U 99035A   03253.46269339 +.00000419 +00000-0 +72692-4 0 09663
+2 25791 024.9863 280.1591 0010929 104.3257 255.8466 14.41385425222062
+FUSE 1
+1 25791U 99035A   03252.49336705  .00000424  00000-0  74176-4 0  9448
+2 25791  24.9866 286.0950 0010932  94.0918 266.0842 14.41385027221926
+FUSE 1
+1 25791U 99035A   03251.52403956 +.00000424 +00000-0 +73986-4 0 09576
+2 25791 024.9869 292.0308 0010917 083.9198 276.2554 14.41384578221780
+FUSE 1
+1 25791U 99035A   03251.24708871  .00000426  00000-0  74604-4 0  9434
+2 25791  24.9872 293.7274 0010909  80.9459 279.2282 14.41384483221744
+FUSE 1
+1 25791U 99035A   03250.97013781 +.00000418 +00000-0 +72375-4 0 09740
+2 25791 024.9873 295.4231 0010905 078.1232 282.0498 14.41384291221705
+FUSE 1
+1 25791U 99035A   03249.86233339 +.00000400 +00000-0 +66776-4 0 09423
+2 25791 024.9871 302.2068 0010890 066.3519 293.8131 14.41383569221541
+FUSE 1
+1 25791U 99035A   03248.96224150 +.00000395 +00000-0 +65318-4 0 09428
+2 25791 024.9864 307.7247 0010716 058.1747 301.9802 14.41383147221415
+FUSE 1
+1 25791U 99035A   03248.82376522  .00000395  00000-0  65312-4 0  9417
+2 25791  24.9864 308.5726 0010716  56.7210 303.4300 14.41383087221395
+FUSE 1
+1 25791U 99035A   03247.57748243  .00000413  00000-0  70836-4 0  9408
+2 25791  24.9872 316.2080 0010565  43.8549 316.2796 14.41382788221216
+FUSE 1
+1 25791U 99035A   03246.53891243  .00000409  00000-0  69731-4 0  9397
+2 25791  24.9871 322.5678 0010569  32.9529 327.1635 14.41382255221064
+FUSE 1
+1 25791U 99035A   03245.63881795 +.00000407 +00000-0 +68920-4 0 09609
+2 25791 024.9867 328.0798 0010586 023.6313 336.4682 14.41381788220930
+FUSE 1
+1 25791U 99035A   03244.87719914 +.00000397 +00000-0 +66048-4 0 09390
+2 25791 024.9864 332.7446 0010573 015.6956 344.3874 14.41381338220829
+FUSE 1
+1 25791U 99035A   03244.80796102  .00000402  00000-0  67416-4 0  9383
+2 25791  24.9865 333.1693 0010551  14.8812 345.2004 14.41381368220814
+FUSE 1
+1 25791U 99035A   03243.56167487  .00000400  00000-0  66930-4 0  9370
+2 25791  24.9861 340.8025 0010455   2.0304 358.0247 14.41380812220636
+FUSE 1
+1 25791U 99035A   03242.10768214  .00000384  00000-0  61838-4 0  9366
+2 25791  24.9858 349.7084 0010398 346.8053  13.2597 14.41380003220428
+FUSE 1
+1 25791U 99035A   03240.86139314  .00000177  00000-0 -91380-6 0  9357
+2 25791  24.9845 357.3695 0010244 330.3925  29.6003 14.41377473220243
+FUSE 1
+1 25791U 99035A   03239.19967539  .00000180  00000-0 -11405-6 0  9342
+2 25791  24.9845   7.5442 0010244 312.9466  47.0181 14.41377475220000
+FUSE 1
+1 25791U 99035A   03237.81491175  .00000180  00000-0 -10791-6 0  9333
+2 25791  24.9845  16.0231 0010244 298.4083  61.5391 14.41377477219806
+FUSE 1
+1 25791U 99035A   03236.70710174 +.00000180 +00000-0 -12297-6 0 09505
+2 25791 024.9845 022.8062 0010244 286.7778 073.1606 14.41377478219645
+FUSE 1
+1 25791U 99035A   03235.87624491  .00000430  00000-0  75902-4 0  9325
+2 25791  24.9843  27.8971 0010286 277.4878  82.4467 14.41377926219524
+FUSE 1
+1 25791U 99035A   03234.56072309  .00000420  00000-0  72808-4 0  9315
+2 25791  24.9844  35.9594 0010466 263.3036  96.6284 14.41377185219336
+FUSE 1
+1 25791U 99035A   03232.89901222  .00000471  00000-0  88341-4 0  9308
+2 25791  24.9843  46.1371 0010503 245.8515 114.0899 14.41376268219092
+FUSE 1
+1 25791U 99035A   03231.92968258 +.00000350 +00000-0 +51702-4 0 09300
+2 25791 024.9843 052.0765 0010506 236.3120 123.6400 14.41375219218958
+FUSE 1
+1 25791U 99035A   03231.86044481  .00000313  00000-0  40315-4 0  9291
+2 25791  24.9843  52.5008 0010526 235.7646 124.1874 14.41375001218940
+FUSE 1
+1 25791U 99035A   03230.89111324 +.00000349 +00000-0 +51379-4 0 09464
+2 25791 024.9839 058.4375 0010590 225.8512 134.1126 14.41374740218805
+FUSE 1
+1 25791U 99035A   03229.99102053  .00000344  00000-0  49608-4 0  9289
+2 25791  24.9838  63.9510 0010593 216.5837 143.3947 14.41374377218670
+FUSE 1
+1 25791U 99035A   03228.88321397  .00000376  00000-0  59327-4 0  9273
+2 25791  24.9835  70.7358 0010594 204.9564 155.0432 14.41374173218518
+FUSE 1
+1 25791U 99035A   03227.84464580  .00000382  00000-0  61272-4 0  9268
+2 25791  24.9832  77.0969 0010595 194.0430 165.9784 14.41373732218368
+FUSE 1
+1 25791U 99035A   03226.18293582  .00000373  00000-0  58388-4 0  9259
+2 25791  24.9829  87.2795 0010731 178.1810 181.8718 14.41372848218126
+FUSE 1
+1 25791U 99035A   03225.07512980  .00000318  00000-0  41806-4 0  9247
+2 25791  24.9835  94.0680 0010816 167.1667 192.9121 14.41372136217966
+FUSE 1
+1 25791U 99035A   03223.96732209 +.00000355 +00000-0 +53136-4 0 09274
+2 25791 024.9833 100.8554 0010794 156.0215 204.0798 14.41372011217801
+FUSE 1
+1 25791U 99035A   03223.89808455  .00000296  00000-0  35300-4 0  9236
+2 25791  24.9836 101.2807 0010797 155.4595 204.6427 14.41371615217799
+FUSE 1
+1 25791U 99035A   03222.92875220 +.00000342 +00000-0 +49175-4 0 09263
+2 25791 024.9836 107.2168 0010792 144.9594 215.1626 14.41371640217653
+FUSE 1
+1 25791U 99035A   03222.85951409  .00000389  00000-0  63357-4 0  9224
+2 25791  24.9835 107.6416 0010784 144.0445 216.0785 14.41371877217646
+FUSE 1
+1 25791U 99035A   03221.12856271  .00000472  00000-0  88663-4 0  9213
+2 25791  24.9830 118.2449 0010733 126.0331 234.1179 14.41371231217397
+FUSE 1
+1 25791U 99035A   03219.95151328 +.00000389 +00000-0 +63388-4 0 09249
+2 25791 024.9833 125.4565 0010532 114.7019 245.4588 14.41370330217223
+FUSE 1
+1 25791U 99035A   03219.88227503  .00000360  00000-0  54766-4 0  9205
+2 25791  24.9833 125.8804 0010481 114.1240 246.0365 14.41370138217211
+FUSE 1
+1 25791U 99035A   03218.98217790 +.00000310 +00000-0 +39570-4 0 09270
+2 25791 024.9834 131.3939 0010359 104.8947 255.2709 14.41369450217081
+FUSE 1
+1 25791U 99035A   03218.22055588  .00000325  00000-0  43896-4 0  9195
+2 25791  24.9833 136.0582 0010328  97.1561 263.0126 14.41369334216976
+FUSE 1
+1 25791U 99035A   03216.97426484 +.00000324 +00000-0 +43677-4 0 09200
+2 25791 024.9831 143.6927 0010266 083.9318 276.2359 14.41368918216796
+FUSE 1
+1 25791U 99035A   03216.90502635  .00000324  00000-0  43789-4 0  9187
+2 25791  24.9831 144.1168 0010254  83.2226 276.9448 14.41368901216784
+FUSE 1
+1 25791U 99035A   03215.93568806 +.00000306 +00000-0 +38302-4 0 09186
+2 25791 024.9831 150.0535 0010228 073.0379 287.1257 14.41368459216640
+FUSE 1
+1 25791U 99035A   03215.86644944  .00000306  00000-0  38426-4 0  9172
+2 25791  24.9830 150.4777 0010251  72.2855 287.8766 14.41368430216637
+FUSE 1
+1 25791U 99035A   03214.27396229  .00000303  00000-0  37387-4 0  9167
+2 25791  24.9829 160.2299 0010215  55.5824 304.5651 14.41367999216407
+FUSE 1
+1 25791U 99035A   03213.23538267  .00000307  00000-0  38665-4 0  9155
+2 25791  24.9828 166.5915 0010190  44.3110 315.8212 14.41367720216259
+FUSE 1
+1 25791U 99035A   03211.98908622 +.00000313 +00000-0 +40404-4 0 09196
+2 25791 024.9827 174.2250 0010179 031.1264 328.9848 14.41367405216077
+FUSE 1
+1 25791U 99035A   03211.29669883  .00000314  00000-0  40736-4 0  9147
+2 25791  24.9825 178.4652 0010188  23.8546 336.2433 14.41367209215970
+FUSE 1
+1 25791U 99035A   03210.95050531 +.00000311 +00000-0 +39816-4 0 09147
+2 25791 024.9826 180.5863 0010167 019.9914 340.1003 14.41367090215921
+FUSE 1
+1 25791U 99035A   03210.25811739  .00000298  00000-0  35831-4 0  9131
+2 25791  24.9827 184.8260 0010169  12.8248 347.2517 14.41366825215826
+FUSE 1
+1 25791U 99035A   03209.98116198 +.00000355 +00000-0 +53278-4 0 09203
+2 25791 024.9828 186.5250 0010134 009.7829 350.2881 14.41367237215788
+FUSE 1
+1 25791U 99035A   03209.21953520  .00000362  00000-0  55372-4 0  9123
+2 25791  24.9829 191.1892 0010126   1.8534 358.2012 14.41367046215670
+FUSE 1
+1 25791U 99035A   03207.41932608  .00000397  00000-0  65919-4 0  9112
+2 25791  24.9834 202.2142 0010129 342.4913  17.5242 14.41366581215411
+FUSE 1
+1 25791U 99035A   03206.24226672  .00000379  00000-0  60573-4 0  9109
+2 25791  24.9836 209.4233 0010138 329.9393  30.0533 14.41365965215244
+FUSE 1
+1 25791U 99035A   03204.85749015  .00000390  00000-0  63688-4 0  9096
+2 25791  24.9836 217.9044 0010134 314.4685  45.4984 14.41365469215044
+FUSE 1
+1 25791U 99035A   03203.47271543  .00000301  00000-0  36716-4 0  9082
+2 25791  24.9838 226.3867 0010127 298.5921  61.3578 14.41364370214843
+FUSE 1
+1 25791U 99035A   03202.50337269 +.00000333 +00000-0 +46557-4 0 09082
+2 25791 024.9834 232.3257 0010184 287.7687 072.1712 14.41364273214708
+FUSE 1
+1 25791U 99035A   03202.43413602  .00000335  00000-0  47009-4 0  9074
+2 25791  24.9835 232.7499 0010187 287.0863  72.8636 14.41364263214692
+FUSE 1
+1 25791U 99035A   03200.49545146  .00000183  00000-0  84321-6 0  9067
+2 25791  24.9838 244.6283 0010314 266.2072  93.7255 14.41363179214415
+FUSE 1
+1 25791U 99035A   03199.24916265  .00000402  00000-0  67231-4 0  9053
+2 25791  24.9834 252.3006 0010423 253.2621 106.6748 14.41363500214236
+FUSE 1
+1 25791U 99035A   03197.58743701  .00000400  00000-0  66746-4 0  9048
+2 25791  24.9833 262.4772 0010401 235.9965 123.9556 14.41362839213996
+FUSE 1
+1 25791U 99035A   03196.61809736 +.00000504 +00000-0 +98396-4 0 09043
+2 25791 024.9830 268.4132 0010415 225.8377 134.1285 14.41362729213855
+FUSE 1
+1 25791U 99035A   03196.54885888  .00000449  00000-0  81664-4 0  9034
+2 25791  24.9830 268.8370 0010432 225.2935 134.6725 14.41362452213842
+FUSE 1
+1 25791U 99035A   03195.64875805 +.00000455 +00000-0 +83486-4 0 09224
+2 25791 024.9829 274.3493 0010447 216.0256 143.9548 14.41361982213717
+FUSE 1
+1 25791U 99035A   03194.88713482 +.00000400 +00000-0 +66658-4 0 09032
+2 25791 024.9833 279.0133 0010462 208.0340 151.9610 14.41361395213602
+FUSE 1
+1 25791U 99035A   03194.81789616  .00000397  00000-0  65761-4 0  9025
+2 25791  24.9833 279.4379 0010462 207.3064 152.6887 14.41361358213594
+FUSE 1
+1 25791U 99035A   03193.57160311  .00000394  00000-0  64958-4 0  9015
+2 25791  24.9835 287.0727 0010549 194.3193 165.7017 14.41360869213419
+FUSE 1
+1 25791U 99035A   03192.53302554  .00000384  00000-0  62038-4 0  9002
+2 25791  24.9837 293.4343 0010602 183.6268 176.4166 14.41360386213261
+FUSE 1
+1 25791U 99035A   03191.35597034  .00000393  00000-0  64745-4 0  8994
+2 25791  24.9836 300.6430 0010601 171.2654 188.8044 14.41359972213091
+FUSE 1
+1 25791U 99035A   03190.17891471  .00000398  00000-0  66148-4 0  8988
+2 25791  24.9835 307.8521 0010640 158.8269 201.2681 14.41359500212921
+FUSE 1
+1 25791U 99035A   03188.93261973 +.00000398 +00000-0 +66190-4 0 08984
+2 25791 024.9836 315.4853 0010668 145.8317 214.2878 14.41358965212741
+FUSE 1
+1 25791U 99035A   03188.86338107  .00000398  00000-0  66279-4 0  8977
+2 25791  24.9837 315.9093 0010668 145.1176 215.0032 14.41358942212734
+FUSE 1
+1 25791U 99035A   03187.89403965 +.00000399 +00000-0 +66534-4 0 09149
+2 25791 024.9837 321.8470 0010683 135.2787 224.8581 14.41358544212593
+FUSE 1
+1 25791U 99035A   03187.54784627  .00000403  00000-0  67680-4 0  8966
+2 25791  24.9839 323.9680 0010707 131.6538 228.4889 14.41358445212548
+FUSE 1
+1 25791U 99035A   03186.23230982  .00000406  00000-0  68626-4 0  8954
+2 25791  24.9839 332.0260 0010696 118.3365 241.8223 14.41357879212350
+FUSE 1
+1 25791U 99035A   03185.12448869  .00000396  00000-0  65488-4 0  8946
+2 25791  24.9837 338.8117 0010654 106.8250 253.3431 14.41357267212194
+FUSE 1
+1 25791U 99035A   03183.87818800  .00000395  00000-0  65374-4 0  8934
+2 25791  24.9840 346.4456 0010638  93.9282 266.2445 14.41356752212019
+FUSE 1
+1 25791U 99035A   03182.90884166 +.00000400 +00000-0 +66995-4 0 09146
+2 25791 024.9842 352.3832 0010602 083.8848 276.2865 14.41356408211870
+FUSE 1
+1 25791U 99035A   03182.56264693  .00000389  00000-0  63591-4 0  8925
+2 25791  24.9841 354.5053 0010564  80.1314 280.0389 14.41356127211820
+FUSE 1
+1 25791U 99035A   03181.93949462 +.00000396 +00000-0 +65802-4 0 09194
+2 25791 024.9843 358.3221 0010512 073.9292 286.2372 14.41355980211735
+FUSE 1
+1 25791U 99035A   03181.17786419  .00000395  00000-0  65266-4 0  8913
+2 25791  24.9844   2.9874 0010488  65.8262 294.3343 14.41355639211628
+FUSE 1
+1 25791U 99035A   03180.13927548  .00000410  00000-0  69784-4 0  8904
+2 25791  24.9846   9.3489 0010422  55.0943 305.0535 14.41355362211477
+FUSE 1
+1 25791U 99035A   03178.89296857  .00000417  00000-0  72182-4 0  8897
+2 25791  24.9844  16.9825 0010375  41.8562 318.2738 14.41354851211293
+FUSE 1
+1 25791U 99035A   03177.85437834  .00000422  00000-0  73448-4 0  8885
+2 25791  24.9849  23.3439 0010297  30.9792 329.1322 14.41354454211141
+FUSE 1
+1 25791U 99035A   03176.95426603 +.00000430 +00000-0 +76000-4 0 09042
+2 25791 024.9848 028.8557 0010293 021.4500 338.6436 14.41354102211016
+FUSE 1
+1 25791U 99035A   03176.05415314  .00000443  00000-0  79845-4 0  8874
+2 25791  24.9846  34.3674 0010294  11.9009 348.1738 14.41353789210880
+FUSE 1
+1 25791U 99035A   03175.01556135  .00000450  00000-0  82065-4 0  8861
+2 25791  24.9847  40.7274 0010280   1.0899 358.9629 14.41353338210732
+FUSE 1
+1 25791U 99035A   03173.97697009 +.00000396 +00000-0 +65568-4 0 08903
+2 25791 024.9822 047.0922 0010249 350.3402 009.6908 14.41352733210581
+FUSE 1
+1 25791U 99035A   03173.90773105  .00000369  00000-0  57536-4 0  8858
+2 25791  24.9822  47.5172 0010351 349.7832  10.2465 14.41352535210571
+FUSE 1
+1 25791U 99035A   03172.86913829  .00000604  00000-0  12883-3 0  8847
+2 25791  24.9818  53.8803 0010249 338.4160  21.5913 14.41352920210427
+FUSE 1
+1 25791U 99035A   03171.48434975  .00000462  00000-0  85627-4 0  8832
+2 25791  24.9815  62.3608 0010207 323.6696  36.3121 14.41351186210222
+FUSE 1
+1 25791U 99035A   03170.93043425 +.00000466 +00000-0 +86941-4 0 08965
+2 25791 024.9816 065.7566 0010267 317.5345 042.4371 14.41350839210142
+FUSE 1
+1 25791U 99035A   03170.16879981  .00000418  00000-0  72429-4 0  8822
+2 25791  24.9818  70.4234 0010268 308.4790  51.4798 14.41350330210030
+FUSE 1
+1 25791U 99035A   03169.96108168 +.00000420 +00000-0 +73009-4 0 08907
+2 25791 024.9818 071.6973 0010259 306.2163 053.7398 14.41350228210007
+FUSE 1
+1 25791U 99035A   03169.13020792  .00000418  00000-0  72287-4 0  8816
+2 25791  24.9816  76.7849 0010262 297.4420  62.5043 14.41349800209887
+FUSE 1
+1 25791U 99035A   03167.95313733 +.00000423 +00000-0 +73631-4 0 08836
+2 25791 024.9816 083.9955 0010237 284.2230 075.7140 14.41349347209712
+FUSE 1
+1 25791U 99035A   03167.88389799  .00000435  00000-0  77426-4 0  8809
+2 25791  24.9815  84.4197 0010234 283.5451  76.3924 14.41349399209702
+FUSE 1
+1 25791U 99035A   03166.98378580 +.00000412 +00000-0 +70359-4 0 08897
+2 25791 024.9815 089.9316 0010231 274.0471 085.8867 14.41348763209579
+FUSE 1
+1 25791U 99035A   03166.56834950  .00000395  00000-0  65244-4 0  8795
+2 25791  24.9815  92.4756 0010212 269.5845  90.3483 14.41348446209516
+FUSE 1
+1 25791U 99035A   03165.25280226  .00000385  00000-0  62295-4 0  8782
+2 25791  24.9816 100.5354 0010250 255.6305 104.3063 14.41347768209326
+FUSE 1
+1 25791U 99035A   03164.21421250  .00000364  00000-0  55776-4 0  8773
+2 25791  24.9817 106.8968 0010263 244.7090 115.2352 14.41347204209171
+FUSE 1
+1 25791U 99035A   03163.93725544 +.00000369 +00000-0 +57280-4 0 09097
+2 25791 024.9817 108.5944 0010284 241.8348 118.1121 14.41347113209132
+FUSE 1
+1 25791U 99035A   03162.96790594 +.00000356 +00000-0 +53409-4 0 08809
+2 25791 024.9817 114.5342 0010284 232.0618 127.8964 14.41346608208996
+FUSE 1
+1 25791U 99035A   03162.89866691  .00000344  00000-0  49614-4 0  8768
+2 25791  24.9818 114.9584 0010288 231.3218 128.6380 14.41346492208982
+FUSE 1
+1 25791U 99035A   03161.92931687 +.00000312 +00000-0 +39943-4 0 08814
+2 25791 024.9818 120.8944 0010301 221.0945 138.8793 14.41345978208841
+FUSE 1
+1 25791U 99035A   03161.51388123  .00000295  00000-0  34834-4 0  8757
+2 25791  24.9820 123.4393 0010342 216.6080 143.3724 14.41345778208782
+FUSE 1
+1 25791U 99035A   03160.95996814 +.00000250 +00000-0 +21193-4 0 08773
+2 25791 024.9821 126.8372 0010451 211.1438 148.8456 14.41345263208708
+FUSE 1
+1 25791U 99035A   03160.40605336  .00000261  00000-0  24623-4 0  8749
+2 25791  24.9820 130.2299 0010533 205.5270 154.4717 14.41345268208625
+FUSE 1
+1 25791U 99035A   03159.99061818 +.00000273 +00000-0 +28036-4 0 08815
+2 25791 024.9819 132.7771 0010571 201.2873 158.7201 14.41345234208560
+FUSE 1
+1 25791U 99035A   03159.22898615  .00000265  00000-0  25800-4 0  8732
+2 25791  24.9819 137.4409 0010567 193.3150 166.7080 14.41345034208454
+FUSE 1
+1 25791U 99035A   03158.19039828  .00000250  00000-0  21230-4 0  8726
+2 25791  24.9819 143.8080 0010564 183.2476 176.7970 14.41344597208302
+FUSE 1
+1 25791U 99035A   03156.66713447  .00000150  00000-0 -91100-5 0  8715
+2 25791  24.9821 153.1385 0010638 167.6080 192.4690 14.41343778208085
+FUSE 1
+1 25791U 99035A   03155.42082656  .00000252  00000-0  21776-4 0  8701
+2 25791  24.9824 160.7774 0010914 155.1123 204.9913 14.41344428207901
+FUSE 1
+1 25791U 99035A   03154.45147561 +.00000386 +00000-0 +62443-4 0 08827
+2 25791 024.9823 166.7138 0010921 144.9592 215.1639 14.41344834207768
+FUSE 1
+1 25791U 99035A   03154.24375716  .00000440  00000-0  78935-4 0  8698
+2 25791  24.9823 167.9870 0010912 142.7461 217.3784 14.41345004207737
+FUSE 1
+1 25791U 99035A   03152.72049180  .00000524  00000-0  10445-3 0  8685
+2 25791  24.9821 177.3180 0010876 127.0026 233.1484 14.41344268207516
+FUSE 1
+1 25791U 99035A   03151.54342182  .00000483  00000-0  91927-4 0  8670
+2 25791  24.9825 184.5392 0010739 116.1807 243.9807 14.41343273207343
+FUSE 1
+1 25791U 99035A   03150.22787149  .00000462  00000-0  85706-4 0  8664
+2 25791  24.9829 192.6106 0010589 103.2247 256.9442 14.41342447207158
+FUSE 1
+1 25791U 99035A   03148.56611937  .00000483  00000-0  92184-4 0  8659
+2 25791  24.9829 202.7908 0010554  85.9076 274.2645 14.41341656206911
+FUSE 1
+1 25791U 99035A   03147.52752265 +.00000485 +00000-0 +92660-4 0 08802
+2 25791 024.9829 209.1535 0010502 074.9181 285.2489 14.41341031206764
+FUSE 1
+1 25791U 99035A   03147.25056401  .00000444  00000-0  80285-4 0  8648
+2 25791  24.9832 210.8523 0010387  71.8386 288.3258 14.41340505206727
+FUSE 1
+1 25791U 99035A   03145.65804606  .00000436  00000-0  77914-4 0  8633
+2 25791  24.9834 220.6078 0010334  54.9657 305.1825 14.41339591206493
+FUSE 1
+1 25791U 99035A   03144.55020623  .00000437  00000-0  78023-4 0  8622
+2 25791  24.9834 227.3948 0010384  43.0456 317.0865 14.41338981206335
+FUSE 1
+1 25791U 99035A   03143.51160500  .00000421  00000-0  73254-4 0  8619
+2 25791  24.9837 233.7586 0010263  31.8445 328.2684 14.41338349206180
+FUSE 1
+1 25791U 99035A   03142.68072397 +.00000390 +00000-0 +63795-4 0 08751
+2 25791 024.9839 238.8486 0010272 023.0015 337.0956 14.41337687206064
+FUSE 1
+1 25791U 99035A   03142.33452356  .00000379  00000-0  60393-4 0  8602
+2 25791  24.9841 240.9721 0010255  19.1006 340.9888 14.41337442206011
+FUSE 1
+1 25791U 99035A   03141.71136164 +.00000379 +00000-0 +60626-4 0 08800
+2 25791 024.9840 244.7879 0010278 012.6009 347.4755 14.41337187205922
+FUSE 1
+1 25791U 99035A   03140.74199907  .00000370  00000-0  57735-4 0  8590
+2 25791  24.9841 250.7264 0010336   2.4159 357.6402 14.41336697205787
+FUSE 1
+1 25791U 99035A   03139.77263585 +.00000354 +00000-0 +52942-4 0 08660
+2 25791 024.9844 256.6661 0010354 351.8435 008.1907 14.41336219205647
+FUSE 1
+1 25791U 99035A   03139.56491547  .00000328  00000-0  45098-4 0  8584
+2 25791  24.9847 257.9406 0010399 349.2190  10.8094 14.41335926205617
+FUSE 1
+1 25791U 99035A   03138.73403226 +.00000337 +00000-0 +47751-4 0 08790
+2 25791 024.9846 263.0295 0010413 340.7827 019.2287 14.41335717205491
+FUSE 1
+1 25791U 99035A   03137.76466903  .00000347  00000-0  50863-4 0  8578
+2 25791  24.9846 268.9696 0010450 330.8995  29.0930 14.41335458205358
+FUSE 1
+1 25791U 99035A   03136.65682420  .00000390  00000-0  63870-4 0  8568
+2 25791  24.9845 275.7569 0010467 319.1949  40.7776 14.41335447205197
+FUSE 1
+1 25791U 99035A   03135.68746059 +.00000395 +00000-0 +65459-4 0 08569
+2 25791 024.9844 281.6931 0010472 309.0975 050.8590 14.41335072205053
+FUSE 1
+1 25791U 99035A   03135.54898003  .00000409  00000-0  69659-4 0  8552
+2 25791  24.9844 282.5416 0010458 307.6606  52.2948 14.41335149205036
+FUSE 1
+1 25791U 99035A   03134.51037701 +.00000418 +00000-0 +72356-4 0 08578
+2 25791 024.9842 288.9014 0010448 296.9961 062.9478 14.41334711204883
+FUSE 1
+1 25791U 99035A   03133.88721559  .00000426  00000-0  74642-4 0  8544
+2 25791  24.9841 292.7176 0010439 290.6823  69.2571 14.41334447204792
+FUSE 1
+1 25791U 99035A   03132.84861269 +.00000430 +00000-0 +75920-4 0 08592
+2 25791 024.9841 299.0779 0010500 279.5447 080.3876 14.41333984204649
+FUSE 1
+1 25791U 99035A   03132.57165180  .00000452  00000-0  82534-4 0  8538
+2 25791  24.9840 300.7743 0010474 276.5765  83.3548 14.41334042204600
+FUSE 1
+1 25791U 99035A   03131.87925065 +.00000453 +00000-0 +82898-4 0 08732
+2 25791 024.9839 305.0137 0010463 269.3387 090.5924 14.41333669204502
+FUSE 1
+1 25791U 99035A   03130.90988891  .00000490  00000-0  94080-4 0  8525
+2 25791  24.9837 310.9515 0010487 259.0381 100.8949 14.41333434204367
+FUSE 1
+1 25791U 99035A   03129.87128778  .00000523  00000-0  10424-3 0  8514
+2 25791  24.9835 317.3134 0010521 248.2159 111.7230 14.41333026204210
+FUSE 1
+1 25791U 99035A   03128.90192725 +.00000552 +00000-0 +11296-3 0 08532
+2 25791 024.9833 323.2517 0010552 238.0980 121.8502 14.41332579204072
+FUSE 1
+1 25791U 99035A   03128.83268738  .00000545  00000-0  11086-3 0  8508
+2 25791  24.9833 323.6764 0010568 237.4929 122.4559 14.41332467204067
+FUSE 1
+1 25791U 99035A   03127.93256604 +.00000601 +00000-0 +12794-3 0 08608
+2 25791 024.9830 329.1896 0010698 227.9538 132.0061 14.41332295203934
+FUSE 1
+1 25791U 99035A   03126.96320595  .00000625  00000-0  13528-3 0  8490
+2 25791  24.9830 335.1268 0010736 217.7754 142.2000 14.41331691203793
+FUSE 1
+1 25791U 99035A   03125.92460573  .00000669  00000-0  14867-3 0  8480
+2 25791  24.9827 341.4877 0010781 206.7283 153.2669 14.41331116203649
+FUSE 1
+1 25791U 99035A   03124.95524601 +.00000691 +00000-0 +15516-3 0 08505
+2 25791 024.9825 347.4243 0010785 196.3122 163.7039 14.41330332203501
+FUSE 1
+1 25791U 99035A   03124.88600610  .00000690  00000-0  15495-3 0  8473
+2 25791  24.9826 347.8485 0010786 195.5964 164.4215 14.41330260203492
+FUSE 1
+1 25791U 99035A   03123.91664594 +.00000696 +00000-0 +15682-3 0 08516
+2 25791 024.9825 353.7856 0010797 185.6495 174.3891 14.41329308203356
+FUSE 1
+1 25791U 99035A   03123.84740597  .00000693  00000-0  15596-3 0  8461
+2 25791  24.9825 354.2099 0010797 185.0043 175.0358 14.41329216203347
+FUSE 1
+1 25791U 99035A   03122.11640408  .00000703  00000-0  15884-3 0  8451
+2 25791  24.9822   4.8109 0010810 167.4774 192.6009 14.41327425203095
+FUSE 1
+1 25791U 99035A   03121.07780243  .00000667  00000-0  14783-3 0  8442
+2 25791  24.9822  11.1719 0010728 156.8103 203.2890 14.41325997202941
+FUSE 1
+1 25791U 99035A   03119.96995900 +.00000637 +00000-0 +13898-3 0 08471
+2 25791 024.9824 017.9568 0010660 145.4593 214.6611 14.41324655202780
+FUSE 1
+1 25791U 99035A   03119.90071904  .00000619  00000-0  13339-3 0  8430
+2 25791  24.9826  18.3811 0010636 144.7680 215.3531 14.41324414202771
+FUSE 1
+1 25791U 99035A   03118.86211447  .00000584  00000-0  12289-3 0  8425
+2 25791  24.9826  24.7417 0010559 134.0951 226.0434 14.41323141202622
+FUSE 1
+1 25791U 99035A   03117.96198940 +.00000540 +00000-0 +10940-3 0 08522
+2 25791 024.9829 030.2539 0010497 124.5628 235.5873 14.41321998202493
+FUSE 1
+1 25791U 99035A   03117.20034409  .00000515  00000-0  10194-3 0  8419
+2 25791  24.9829  34.9180 0010485 116.4587 243.7000 14.41321200202384
+FUSE 1
+1 25791U 99035A   03115.88477360  .00000443  00000-0  80015-4 0  8407
+2 25791  24.9830  42.9750 0010371 102.4463 257.7219 14.41319637202197
+FUSE 1
+1 25791U 99035A   03114.98464436 +.00000405 +00000-0 +68282-4 0 08441
+2 25791 024.9831 048.4873 0010313 092.7862 267.3832 14.41318779202065
+FUSE 1
+1 25791U 99035A   03114.84616281  .00000401  00000-0  67228-4 0  8392
+2 25791  24.9830  49.3353 0010321  91.2914 268.8779 14.41318665202046
+FUSE 1
+1 25791U 99035A   03113.94603175 +.00000392 +00000-0 +64358-4 0 08457
+2 25791 024.9830 054.8471 0010295 081.7820 278.3859 14.41318172201911
+FUSE 1
+1 25791U 99035A   03113.25362240  .00000391  00000-0  64235-4 0  8381
+2 25791  24.9829  59.0866 0010297  74.5006 285.6639 14.41317864201815
+FUSE 1
+1 25791U 99035A   03112.97665904 +.00000377 +00000-0 +60036-4 0 08459
+2 25791 024.9831 060.7830 0010270 071.4871 288.6765 14.41317625201778
+FUSE 1
+1 25791U 99035A   03112.21500808  .00000363  00000-0  55711-4 0  8377
+2 25791  24.9831  65.4465 0010279  63.4745 296.6818 14.41317184201660
+FUSE 1
+1 25791U 99035A   03111.17639208  .00000363  00000-0  55548-4 0  8365
+2 25791  24.9830  71.8062 0010279  52.4799 307.6644 14.41316776201510
+FUSE 1
+1 25791U 99035A   03110.96866852 +.00000365 +00000-0 +56405-4 0 08600
+2 25791 024.9830 073.0785 0010262 050.2094 309.9312 14.41316734201489
+FUSE 1
+1 25791U 99035A   03109.58384492 +.00000379 +00000-0 +60572-4 0 08369
+2 25791 024.9829 081.5576 0010264 035.5220 324.5953 14.41316327201288
+FUSE 1
+1 25791U 99035A   03109.37612134  .00000390  00000-0  63811-4 0  8354
+2 25791  24.9831  82.8309 0010191  33.2102 326.9042 14.41316389201252
+FUSE 1
+1 25791U 99035A   03108.33750280  .00000419  00000-0  72748-4 0  8344
+2 25791  24.9833  89.1917 0010176  22.3826 337.7123 14.41316238201101
+FUSE 1
+1 25791U 99035A   03107.22964140  .00000487  00000-0  93318-4 0  8333
+2 25791  24.9837  95.9773 0010052  10.7357 349.3362 14.41316429200940
+FUSE 1
+1 25791U 99035A   03105.98329705 +.00000572 +00000-0 +11935-3 0 08346
+2 25791 024.9839 103.6091 0010055 357.5958 002.4500 14.41316519200765
+FUSE 1
+1 25791U 99035A   03105.42936709  .00000573  00000-0  11956-3 0  8325
+2 25791  24.9839 107.0005 0010053 351.7713   8.2628 14.41316090200681
+FUSE 1
+1 25791U 99035A   03104.39074737  .00000618  00000-0  13316-3 0  8315
+2 25791  24.9841 113.3600 0010076 341.0911  18.9221 14.41315709200539
+FUSE 1
+1 25791U 99035A   03103.83681675 +.00000642 +00000-0 +14053-3 0 08493
+2 25791 024.9841 116.7516 0010112 335.4399 024.5624 14.41315476200452
+FUSE 1
+1 25791U 99035A   03103.21364467  .00000672  00000-0  14956-3 0  8307
+2 25791  24.9843 120.5685 0010100 328.7321  31.2586 14.41315278200363
+FUSE 1
+1 25791U 99035A   03101.89805968  .00000719  00000-0  16399-3 0  8298
+2 25791  24.9841 128.6245 0010100 314.9047  45.0638 14.41314506200177
+FUSE 1
+1 25791U 99035A   03100.72095835  .00000735  00000-0  16862-3 0  8285
+2 25791  24.9823 135.8422 0010255 300.3804  59.5679 14.41313234200009
+FUSE 1
+1 25791U 99035A   03099.95930502 +.00000731 +00000-0 +16758-3 0 08321
+2 25791 024.9822 140.5054 0010257 292.8087 067.1336 14.41312329199895
+FUSE 1
+1 25791U 99035A   03099.54386033  .00000758  00000-0  17568-3 0  8273
+2 25791  24.9817 143.0635 0010123 287.3571  72.5830 14.41312013199834
+FUSE 1
+1 25791U 99035A   03098.92068851 +.00000723 +00000-0 +16491-3 0 08499
+2 25791 024.9816 146.8804 0010159 280.5747 079.3533 14.41310909199748
+FUSE 1
+1 25791U 99035A   03098.22827686  .00000751  00000-0  17368-3 0  8261
+2 25791  24.9821 151.1234 0010310 272.8590  87.0746 14.41310499199644
+FUSE 1
+1 25791U 99035A   03097.18965913  .00000710  00000-0  16100-3 0  8258
+2 25791  24.9822 157.4830 0010353 261.6244  98.3091 14.41308833199495
+FUSE 1
+1 25791U 99035A   03095.94331601  .00000705  00000-0  15943-3 0  8248
+2 25791  24.9828 165.1153 0010485 248.0340 111.9051 14.41307527199315
+FUSE 1
+1 25791U 99035A   03094.55849177  .00000687  00000-0  15400-3 0  8232
+2 25791  24.9837 173.5981 0010507 233.7648 126.1888 14.41305878199115
+FUSE 1
+1 25791U 99035A   03093.79684032 +.00000617 +00000-0 +13296-3 0 08340
+2 25791 024.9830 178.2689 0010658 225.6842 134.2806 14.41303892199000
+FUSE 1
+1 25791U 99035A   03093.45063419  .00000588  00000-0  12399-3 0  8220
+2 25791  24.9830 180.3890 0010661 222.1502 137.8185 14.41303261198959
+FUSE 1
+1 25791U 99035A   03092.06580825  .00000498  00000-0  96689-4 0  8215
+2 25791  24.9829 188.8687 0010595 207.4856 152.5026 14.41301203198758
+FUSE 1
+1 25791U 99035A   03090.88870503  .00000512  00000-0  10095-3 0  8200
+2 25791  24.9830 196.0770 0010689 195.3984 164.6200 14.41300573198583
+FUSE 1
+1 25791U 99035A   03089.91932625 +.00000473 +00000-0 +89013-4 0 08355
+2 25791 024.9831 202.0132 0010707 185.2549 174.7855 14.41299501198441
+FUSE 1
+1 25791U 99035A   03089.57311974  .00000447  00000-0  81025-4 0  8193
+2 25791  24.9832 204.1347 0010678 181.8480 178.1989 14.41298969198393
+FUSE 1
+1 25791U 99035A   03088.18829319  .00000422  00000-0  73584-4 0  8189
+2 25791  24.9836 212.6159 0010751 167.8506 192.2415 14.41297973198190
+FUSE 1
+1 25791U 99035A   03087.14967143  .00000439  00000-0  78641-4 0  8178
+2 25791  24.9834 218.9892 0010499 154.7731 205.3306 14.41297621198044
+FUSE 1
+1 25791U 99035A   03086.94194663 +.00000428 +00000-0 +75286-4 0 08488
+2 25791 024.9835 220.2611 0010504 152.4498 207.6568 14.41297416198016
+FUSE 1
+1 25791U 99035A   03085.90332252  .00000414  00000-0  71085-4 0  8164
+2 25791  24.9838 226.6261 0010293 142.1870 217.9362 14.41296881197868
+FUSE 1
+1 25791U 99035A   03085.90332251 +.00000414 +00000-0 +71084-4 0 08173
+2 25791 024.9838 226.6261 0010293 142.1870 217.9361 14.41296881197867
+FUSE 1
+1 25791U 99035A   03084.86469882  .00000343  00000-0  49516-4 0  8152
+2 25791  24.9847 232.9875 0010201 130.8102 229.3297 14.41295801197719
+FUSE 1
+1 25791U 99035A   03083.89531250 +.00000489 +00000-0 +93920-4 0 08321
+2 25791 024.9844 238.9268 0010672 122.1781 237.9761 14.41296727197570
+FUSE 1
+1 25791U 99035A   03083.54910375  .00000503  00000-0  98232-4 0  8140
+2 25791  24.9844 241.0479 0010701 118.5123 241.6462 14.41296648197528
+FUSE 1
+1 25791U 99035A   03082.92592724 +.00000523 +00000-0 +10446-3 0 08451
+2 25791 024.9843 244.8641 0010700 112.2904 247.8737 14.41296449197438
+FUSE 1
+1 25791U 99035A   03082.16426759  .00000526  00000-0  10521-3 0  8133
+2 25791  24.9841 249.5294 0010669 104.2866 255.8838 14.41295912197327
+FUSE 1
+1 25791U 99035A   03081.12563750  .00000612  00000-0  13128-3 0  8122
+2 25791  24.9842 255.8923 0010711  94.3078 265.8647 14.41296014197175
+FUSE 1
+1 25791U 99035A   03079.87928172  .00000670  00000-0  14898-3 0  8112
+2 25791  24.9845 263.5260 0010772  80.9467 279.2259 14.41295470196990
+FUSE 1
+1 25791U 99035A   03078.90989285 +.00000680 +00000-0 +15204-3 0 08356
+2 25791 024.9842 269.4617 0010753 070.0356 290.1308 14.41294541196854
+FUSE 1
+1 25791U 99035A   03078.56368187  .00000702  00000-0  15885-3 0  8103
+2 25791  24.9840 271.5817 0010757  66.2560 293.9075 14.41294387196801
+FUSE 1
+1 25791U 99035A   03077.17883857  .00000638  00000-0  13930-3 0  8090
+2 25791  24.9843 280.0617 0010654  50.7889 309.3564 14.41292379196607
+FUSE 1
+1 25791U 99035A   03076.14020216  .00000782  00000-0  18324-3 0  8089
+2 25791  24.9848 286.4255 0010468  43.0582 317.0743 14.41292815196451
+FUSE 1
+1 25791U 99035A   03074.89383969  .00000825  00000-0  19632-3 0  8076
+2 25791  24.9853 294.0604 0010385  30.7066 329.4048 14.41291731196279
+FUSE 1
+1 25791U 99035A   03073.43974802  .00000854  00000-0  20497-3 0  8069
+2 25791  24.9852 302.9660 0010367  15.2865 344.7954 14.41290069196060
+FUSE 1
+1 25791U 99035A   03072.19338203  .00000856  00000-0  20554-3 0  8055
+2 25791  24.9854 310.5981 0010287   2.1680 357.8866 14.41288422195880
+FUSE 1
+1 25791U 99035A   03071.08550087  .00000818  00000-0  19402-3 0  8045
+2 25791  24.9860 317.3842 0010263 349.9948  10.0353 14.41286657195721
+FUSE 1
+1 25791U 99035A   03069.97761880 +.00000763 +00000-0 +17745-3 0 08086
+2 25791 024.9860 324.1683 0010236 338.1839 021.8232 14.41284751195560
+FUSE 1
+1 25791U 99035A   03069.90837617  .00000758  00000-0  17585-3 0  8032
+2 25791  24.9860 324.5922 0010236 337.4031  22.6028 14.41284617195558
+FUSE 1
+1 25791U 99035A   03068.93897780 +.00000723 +00000-0 +16521-3 0 08098
+2 25791 024.9864 330.5285 0010290 326.4566 033.5291 14.41283191195416
+FUSE 1
+1 25791U 99035A   03068.86973524  .00000716  00000-0  16303-3 0  8024
+2 25791  24.9864 330.9527 0010287 325.7078  34.2768 14.41283044195408
+FUSE 1
+1 25791U 99035A   03067.55412264  .00000656  00000-0  14496-3 0  8011
+2 25791  24.9864 339.0080 0010311 311.6370  48.3251 14.41281081195210
+FUSE 1
+1 25791U 99035A   03066.44623884  .00000578  00000-0  12112-3 0  8005
+2 25791  24.9864 345.7927 0010333 299.7399  60.2082 14.41279280195050
+FUSE 1
+1 25791U 99035A   03065.40759665  .00000526  00000-0  10514-3 0  7991
+2 25791  24.9863 352.1521 0010350 288.8170  71.1215 14.41277936194904
+FUSE 1
+1 25791U 99035A   03064.23046813  .00000487  00000-0  93421-4 0  7989
+2 25791  24.9864 359.3605 0010411 275.9615  83.9706 14.41276773194731
+FUSE 1
+1 25791U 99035A   03062.98409806 +.00000428 +00000-0 +75413-4 0 08015
+2 25791 024.9863 006.9942 0010426 262.5976 097.3348 14.41275346194553
+FUSE 1
+1 25791U 99035A   03062.91485526  .00000425  00000-0  74460-4 0  7973
+2 25791  24.9862   7.4181 0010421 261.8604  98.0722 14.41275270194547
+FUSE 1
+1 25791U 99035A   03061.94545741 +.00000420 +00000-0 +73017-4 0 08008
+2 25791 024.9848 013.3688 0010509 252.6434 107.2924 14.41274844194403
+FUSE 1
+1 25791U 99035A   03061.66848589  .00000420  00000-0  73002-4 0  7961
+2 25791  24.9848  15.0645 0010505 249.7386 110.1988 14.41274707194360
+FUSE 1
+1 25791U 99035A   03060.49135828  .00000388  00000-0  63176-4 0  7959
+2 25791  24.9852  22.2747 0010610 237.5708 122.3771 14.41273890194196
+FUSE 1
+1 25791U 99035A   03059.24498747  .00000395  00000-0  65325-4 0  7947
+2 25791  24.9851  29.9090 0010713 224.4424 135.5221 14.41273446194018
+FUSE 1
+1 25791U 99035A   03058.96801613 +.00000410 +00000-0 +70039-4 0 08335
+2 25791 024.9848 031.6055 0010711 221.6605 138.3087 14.41273447193979
+FUSE 1
+1 25791U 99035A   03057.79088784  .00000466  00000-0  86878-4 0  7935
+2 25791  24.9852  38.8148 0010787 209.3160 150.6743 14.41273450193800
+FUSE 1
+1 25791U 99035A   03056.75224577  .00000511  00000-0  10064-3 0  7925
+2 25791  24.9849  45.1756 0010796 198.5017 161.5097 14.41273260193657
+FUSE 1
+1 25791U 99035A   03055.71360371  .00000543  00000-0  11053-3 0  7916
+2 25791  24.9851  51.5371 0010893 187.8825 172.1502 14.41272912193506
+FUSE 1
+1 25791U 99035A   03054.81344706 +.00000592 +00000-0 +12526-3 0 07943
+2 25791 024.9854 057.0504 0010975 178.3725 181.6813 14.41272772193372
+FUSE 1
+1 25791U 99035A   03054.53647601  .00000595  00000-0  12630-3 0  7907
+2 25791  24.9855  58.7463 0010996 175.5448 184.5158 14.41272591193338
+FUSE 1
+1 25791U 99035A   03053.22086164  .00000648  00000-0  14239-3 0  7897
+2 25791  24.9854  66.8027 0011082 162.1387 197.9511 14.41272079193145
+FUSE 1
+1 25791U 99035A   03052.18221916  .00000654  00000-0  14422-3 0  7887
+2 25791  24.9857  73.1612 0010974 150.9371 209.1749 14.41271157192993
+FUSE 1
+1 25791U 99035A   03051.69751897 +.00000653 +00000-0 +14404-3 0 08192
+2 25791 024.9857 076.1286 0010974 145.8259 214.2956 14.41270685192926
+FUSE 1
+1 25791U 99035A   03050.86660284  .00000682  00000-0  15278-3 0  7875
+2 25791  24.9852  81.2163 0010966 137.4487 222.6871 14.41270247192803
+FUSE 1
+1 25791U 99035A   03049.55098927  .00000679  00000-0  15178-3 0  7862
+2 25791  24.9830  89.2921 0010776 123.5065 236.6474 14.41268750192615
+FUSE 1
+1 25791U 99035A   03046.91974757  .00000708  00000-0  16072-3 0  7848
+2 25791  24.9828 105.4061 0010755  96.1405 264.0326 14.41266314192231
+FUSE 1
+1 25791U 99035A   03045.81185480  .00000675  00000-0  15076-3 0  7838
+2 25791  24.9829 112.1925 0010804  84.5002 275.6738 14.41264829192071
+FUSE 1
+1 25791U 99035A   03044.56547187  .00000671  00000-0  14933-3 0  7821
+2 25791  24.9825 119.8235 0010884  72.1647 288.0048 14.41263465191897
+FUSE 1
+1 25791U 99035A   03043.87303595 +.00000663 +00000-0 +14707-3 0 08086
+2 25791 024.9823 124.0647 0010837 064.8117 295.3515 14.41262691191797
+FUSE 1
+1 25791U 99035A   03043.24984329  .00000652  00000-0  14385-3 0  7817
+2 25791  24.9824 127.8828 0010807  58.4950 301.6614 14.41261995191709
+FUSE 1
+1 25791U 99035A   03042.07269992  .00000613  00000-0  13188-3 0  7805
+2 25791  24.9827 135.0921 0010730  46.2939 313.8459 14.41260560191534
+FUSE 1
+1 25791U 99035A   03040.82631031  .00000590  00000-0  12473-3 0  7791
+2 25791  24.9825 142.7255 0010676  33.4461 326.6705 14.41259243191356
+FUSE 1
+1 25791U 99035A   03039.57991945  .00000595  00000-0  12637-3 0  7780
+2 25791  24.9832 150.3613 0010568  20.6980 339.3959 14.41258343191173
+FUSE 1
+1 25791U 99035A   03038.54125940  .00000562  00000-0  11637-3 0  7772
+2 25791  24.9831 156.7218 0010533   9.4132 350.6584 14.41257190191022
+FUSE 1
+1 25791U 99035A   03037.01788880  .00000562  00000-0  11641-3 0  7765
+2 25791  24.9831 166.0494 0010450 353.4940   6.5445 14.41256054190805
+FUSE 1
+1 25791U 99035A   03035.90998290 +.00000529 +00000-0 +10615-3 0 07762
+2 25791 024.9834 172.8362 0010444 341.3662 018.6462 14.41254945190649
+FUSE 1
+1 25791U 99035A   03035.84073869  .00000529  00000-0  10615-3 0  7750
+2 25791  24.9834 173.2601 0010444 340.6394  19.3715 14.41254896190637
+FUSE 1
+1 25791U 99035A   03034.94056470 +.00000514 +00000-0 +10178-3 0 07937
+2 25791 024.9830 178.7729 0010445 331.0545 028.9383 14.41254106190504
+FUSE 1
+1 25791U 99035A   03034.59434384  .00000508  00000-0  99976-4 0  7748
+2 25791  24.9829 180.8929 0010469 327.4109  32.5752 14.41253798190450
+FUSE 1
+1 25791U 99035A   03033.55568063  .00000512  00000-0  10098-3 0  7736
+2 25791  24.9832 187.2531 0010490 316.1247  43.8429 14.41253174190304
+FUSE 1
+1 25791U 99035A   03032.24004087  .00000509  00000-0  10030-3 0  7723
+2 25791  24.9833 195.3101 0010479 301.8051  58.1431 14.41252308190118
+FUSE 1
+1 25791U 99035A   03031.13213438  .00000500  00000-0  97473-4 0  7719
+2 25791  24.9834 202.0943 0010489 289.8402  70.0976 14.41251485189957
+FUSE 1
+1 25791U 99035A   03029.95498370 +.00000507 +00000-0 +99455-4 0 07726
+2 25791 024.9833 209.3044 0010568 277.2138 082.7170 14.41250807189787
+FUSE 1
+1 25791U 99035A   03029.88573951  .00000506  00000-0  99284-4 0  7704
+2 25791  24.9834 209.7284 0010567 276.4676  83.4627 14.41250759189775
+FUSE 1
+1 25791U 99035A   03028.91632543 +.00000457 +00000-0 +84396-4 0 07714
+2 25791 024.9829 215.6872 0010688 267.6409 092.2873 14.41250112189637
+FUSE 1
+1 25791U 99035A   03028.84708138  .00000459  00000-0  84922-4 0  7694
+2 25791  24.9829 216.1111 0010685 266.8899  93.0390 14.41250090189627
+FUSE 1
+1 25791U 99035A   03027.94690786 +.00000485 +00000-0 +92887-4 0 07916
+2 25791 024.9829 221.6256 0010733 257.2339 102.6968 14.41249791189494
+FUSE 1
+1 25791U 99035A   03027.39295481  .00000522  00000-0  10395-3 0  7687
+2 25791  24.9825 225.0181 0010750 251.6346 108.2992 14.41249718189410
+FUSE 1
+1 25791U 99035A   03026.90824636 +.00000535 +00000-0 +10794-3 0 07938
+2 25791 024.9827 227.9872 0010755 246.4607 113.4770 14.41249533189346
+FUSE 1
+1 25791U 99035A   03026.21580544  .00000600  00000-0  12773-3 0  7672
+2 25791  24.9822 232.2291 0010751 239.2471 120.6976 14.41249537189241
+FUSE 1
+1 25791U 99035A   03024.90017016  .00000620  00000-0  13395-3 0  7667
+2 25791  24.9825 240.2875 0010606 224.5201 135.4454 14.41248661189059
+FUSE 1
+1 25791U 99035A   03023.86150943  .00000683  00000-0  15306-3 0  7650
+2 25791  24.9823 246.6490 0010698 213.6230 146.3601 14.41248266188901
+FUSE 1
+1 25791U 99035A   03022.96133739 +.00000720 +00000-0 +16435-3 0 07885
+2 25791 024.9822 252.1619 0010714 203.8994 156.1017 14.41247660188774
+FUSE 1
+1 25791U 99035A   03022.47662920  .00000753  00000-0  17422-3 0  7647
+2 25791  24.9818 255.1315 0010728 199.1571 160.8533 14.41247360188703
+FUSE 1
+1 25791U 99035A   03021.23023620  .00000814  00000-0  19309-3 0  7631
+2 25791  24.9818 262.7649 0010872 186.1483 173.8893 14.41246466188524
+FUSE 1
+1 25791U 99035A   03020.19157559  .00000839  00000-0  20070-3 0  7627
+2 25791  24.9818 269.1258 0010854 175.1951 184.8664 14.41245346188376
+FUSE 1
+1 25791U 99035A   03019.15291393  .00000874  00000-0  21118-3 0  7618
+2 25791  24.9818 275.4875 0010879 164.2609 195.8238 14.41244267188221
+FUSE 1
+1 25791U 99035A   03017.90651918  .00000882  00000-0  21358-3 0  7606
+2 25791  24.9820 283.1229 0010889 151.5092 208.6013 14.41242588188047
+FUSE 1
+1 25791U 99035A   03016.86785572  .00000849  00000-0  20352-3 0  7598
+2 25791  24.9821 289.4833 0010877 140.6893 219.4408 14.41240829187899
+FUSE 1
+1 25791U 99035A   03015.96767820 +.00000843 +00000-0 +20187-3 0 07628
+2 25791 024.9820 294.9922 0010992 131.6564 228.4886 14.41239598187768
+FUSE 1
+1 25791U 99035A   03015.41372249  .00000840  00000-0  20100-3 0  7582
+2 25791  24.9820 298.3836 0010997 125.8349 234.3181 14.41238834187688
+FUSE 1
+1 25791U 99035A   03014.23656622  .00000784  00000-0  18395-3 0  7570
+2 25791  24.9824 305.5944 0010955 113.8675 246.2990 14.41236827187518
+FUSE 1
+1 25791U 99035A   03013.19789667  .00000698  00000-0  15769-3 0  7565
+2 25791  24.9829 311.9557 0010860 103.1125 257.0596 14.41234894187368
+FUSE 1
+1 25791U 99035A   03012.92091841 +.00000651 +00000-0 +14337-3 0 07913
+2 25791 024.9830 313.6530 0010837 100.3922 259.7809 14.41234171187328
+FUSE 1
+1 25791U 99035A   03011.95149077 +.00000591 +00000-0 +12511-3 0 07599
+2 25791 024.9833 319.5894 0010774 090.1943 269.9802 14.41232741187189
+FUSE 1
+1 25791U 99035A   03011.88224586  .00000585  00000-0  12347-3 0  7556
+2 25791  24.9834 320.0134 0010776  89.4952 270.6791 14.41232635187174
+FUSE 1
+1 25791U 99035A   03010.49734521  .00000571  00000-0  11922-3 0  7549
+2 25791  24.9836 328.4940 0010755  75.1825 284.9873 14.41231417186974
+FUSE 1
+1 25791U 99035A   03009.38942288  .00000562  00000-0  11651-3 0  7534
+2 25791  24.9838 335.2793 0010726  63.5938 296.5669 14.41230504186813
+FUSE 1
+1 25791U 99035A   03008.21225405  .00000536  00000-0  10847-3 0  7526
+2 25791  24.9841 342.4893 0010658  51.4879 308.6589 14.41229428186642
+FUSE 1
+1 25791U 99035A   03007.17357430  .00000496  00000-0  96283-4 0  7517
+2 25791  24.9846 348.8510 0010606  40.2151 319.9146 14.41228391186490
+FUSE 1
+1 25791U 99035A   03005.71941978  .00000492  00000-0  95196-4 0  7508
+2 25791  24.9848 357.7568 0010489  25.1948 334.9069 14.41227497186283
+FUSE 1
+1 25791U 99035A   03004.54224559  .00000519  00000-0  10345-3 0  7497
+2 25791  24.9849   4.9669 0010381  12.5994 347.4773 14.41226999186118
+FUSE 1
+1 25791U 99035A   03003.22657791  .00000659  00000-0  14583-3 0  7481
+2 25791  24.9844  13.0234 0010171 358.9129   1.1355 14.41227192185920
+FUSE 1
+1 25791U 99035A   03001.70317381 +.00000783 +00000-0 +18366-3 0 07470
+2 25791 024.9836 022.3505 0010142 342.3951 017.6202 14.41226616185702
+FUSE 1
+1 25791U 99035A   02365.66448900  .00000905  00000-0  22093-3 0  7466
+2 25791  24.9828  28.7111 0010120 331.1925  28.8023 14.41226254185555
+FUSE 1
+1 25791U 99035A   02364.55655917  .00001003  00000-0  25056-3 0  7452
+2 25791  24.9823  35.4963 0010124 319.5885  40.3870 14.41225360185397
+FUSE 1
+1 25791U 99035A   02363.24089208  .00001123  00000-0  28737-3 0  7442
+2 25791  24.9817  43.5541 0010043 305.4795  54.4774 14.41224128185206
+FUSE 1
+1 25791U 99035A   02361.85597983  .00001182  00000-0  30525-3 0  7433
+2 25791  24.9811  52.0336 0010047 290.8057  69.1372 14.41221885185001
+FUSE 1
+1 25791U 99035A   02360.81729577  .00001190  00000-0  30775-3 0  7429
+2 25791  24.9811  58.3946 0010013 279.4423  80.4952 14.41219863184855
+FUSE 1
+1 25791U 99035A   02359.98634816 +.00001193 +00000-0 +30865-3 0 07531
+2 25791 024.9811 063.4834 0010006 270.4269 089.5092 14.41218193184736
+FUSE 1
+1 25791U 99035A   02359.57087417  .00001197  00000-0  30966-3 0  7418
+2 25791  24.9812  66.0284 0010007 265.9037  94.0326 14.41217390184670
+FUSE 1
+1 25791U 99035A   02356.87029074  .00001204  00000-0  31182-3 0  7390
+2 25791  24.9811  82.5668 0009938 236.3646 123.5914 14.41211956184287
+FUSE 1
+1 25791U 99035A   02355.55462023  .00001090  00000-0  27728-3 0  7382
+2 25791  24.9809  90.6214 0010165 222.2949 137.6776 14.41208399184093
+FUSE 1
+1 25791U 99035A   02354.51593217  .00001046  00000-0  26390-3 0  7371
+2 25791  24.9811  96.9840 0010179 211.0308 148.9598 14.41206118183947
+FUSE 1
+1 25791U 99035A   02353.13101277  .00001006  00000-0  25162-3 0  7360
+2 25791  24.9814 105.4674 0010149 196.0465 163.9721 14.41203384183749
+FUSE 1
+1 25791U 99035A   02351.95382922 +.00000934 +00000-0 +22963-3 0 07372
+2 25791 024.9817 112.6764 0010197 184.0228 176.0200 14.41200867183570
+FUSE 1
+1 25791U 99035A   02351.88458303  .00000934  00000-0  22971-3 0  7358
+2 25791  24.9817 113.1005 0010193 183.2930 176.7513 14.41200763183569
+FUSE 1
+1 25791U 99035A   02350.91513627 +.00000904 +00000-0 +22045-3 0 07519
+2 25791 024.9819 119.0445 0010562 174.0065 186.0569 14.41199099183420
+FUSE 1
+1 25791U 99035A   02350.56890542  .00000886  00000-0  21508-3 0  7347
+2 25791  24.9818 121.1673 0010554 170.6826 189.3879 14.41198405183378
+FUSE 1
+1 25791U 99035A   02349.11473244  .00000853  00000-0  20507-3 0  7333
+2 25791  24.9823 130.0779 0010595 156.0675 204.0329 14.41196121183160
+FUSE 1
+1 25791U 99035A   02347.86829613  .00000843  00000-0  20210-3 0  7327
+2 25791  24.9826 137.7176 0010579 143.6291 216.4936 14.41194381182982
+FUSE 1
+1 25791U 99035A   02346.96809054 +.00000846 +00000-0 +20310-3 0 07328
+2 25791 024.9827 143.2322 0010589 134.4622 225.6760 14.41193196182851
+FUSE 1
+1 25791U 99035A   02346.82959720  .00000840  00000-0  20129-3 0  7310
+2 25791  24.9828 144.0807 0010580 133.0588 227.0808 14.41192967182838
+FUSE 1
+1 25791U 99035A   02345.92939017 +.00000816 +00000-0 +19371-3 0 07418
+2 25791 024.9830 149.5942 0010509 123.9678 236.1843 14.41191589182705
+FUSE 1
+1 25791U 99035A   02345.58315657  .00000792  00000-0  18653-3 0  7301
+2 25791  24.9831 151.7183 0010408 120.6946 239.4591 14.41190929182655
+FUSE 1
+1 25791U 99035A   02344.89068773 +.00000785 +00000-0 +18451-3 0 07429
+2 25791 024.9831 155.9574 0010423 113.3541 246.8055 14.41190019182558
+FUSE 1
+1 25791U 99035A   02344.54445368  .00000789  00000-0  18568-3 0  7298
+2 25791  24.9831 158.0799 0010476 110.1229 250.0410 14.41189637182508
+FUSE 1
+1 25791U 99035A   02343.15951322  .00000783  00000-0  18396-3 0  7288
+2 25791  24.9834 166.5623 0010426  96.2869 263.8829 14.41187968182309
+FUSE 1
+1 25791U 99035A   02342.88252492 +.00000775 +00000-0 +18152-3 0 07460
+2 25791 024.9835 168.2588 0010398 093.2895 266.8803 14.41187559182269
+FUSE 1
+1 25791U 99035A   02341.98231177  .00000761  00000-0  17708-3 0  7277
+2 25791  24.9836 173.7711 0010366  83.7509 276.4178 14.41186369182136
+FUSE 1
+1 25791U 99035A   02340.87435475  .00000768  00000-0  17944-3 0  7269
+2 25791  24.9836 180.5545 0010319  72.0817 288.0815 14.41185129181979
+FUSE 1
+1 25791U 99035A   02339.90489123 +.00000743 +00000-0 +17159-3 0 07373
+2 25791 024.9838 186.4897 0010302 061.8181 298.3364 14.41183804181834
+FUSE 1
+1 25791U 99035A   02339.00467365  .00000760  00000-0  17694-3 0  7258
+2 25791  24.9837 192.0009 0010340  52.4233 307.7215 14.41182886181702
+FUSE 1
+1 25791U 99035A   02337.96595978 +.00000747 +00000-0 +17292-3 0 07274
+2 25791 024.9838 198.3601 0010349 041.4682 318.6611 14.41181581181550
+FUSE 1
+1 25791U 99035A   02337.89671225  .00000735  00000-0  16930-3 0  7248
+2 25791  24.9838 198.7841 0010344  40.6825 319.4454 14.41181406181544
+FUSE 1
+1 25791U 99035A   02336.92724431 +.00000730 +00000-0 +16784-3 0 07263
+2 25791 024.9839 204.7190 0010345 030.4753 329.6355 14.41180304181402
+FUSE 1
+1 25791U 99035A   02336.85799660  .00000726  00000-0  16666-3 0  7232
+2 25791  24.9840 205.1432 0010343  29.6910 330.4183 14.41180198181399
+FUSE 1
+1 25791U 99035A   02335.95777534 +.00000723 +00000-0 +16574-3 0 07378
+2 25791 024.9840 210.6541 0010353 020.2600 339.8318 14.41179182181265
+FUSE 1
+1 25791U 99035A   02335.12680126  .00000724  00000-0  16595-3 0  7225
+2 25791  24.9839 215.7423 0010346  11.4473 348.6270 14.41178242181148
+FUSE 1
+1 25791U 99035A   02333.88033836  .00000777  00000-0  18215-3 0  7214
+2 25791  24.9838 223.3729 0010367 358.4414   1.6064 14.41177194180964
+FUSE 1
+1 25791U 99035A   02332.21838680  .00000738  00000-0  17012-3 0  7200
+2 25791  24.9840 233.5483 0010369 340.4562  19.5551 14.41175004180725
+FUSE 1
+1 25791U 99035A   02330.97192266 +.00000736 +00000-0 +16945-3 0 07228
+2 25791 024.9841 241.1847 0010383 327.1955 032.7907 14.41173576180543
+FUSE 1
+1 25791U 99035A   02330.90267454  .00000744  00000-0  17204-3 0  7197
+2 25791  24.9842 241.6086 0010384 326.4698  33.5151 14.41173549180530
+FUSE 1
+1 25791U 99035A   02329.93320137 +.00000795 +00000-0 +18754-3 0 07238
+2 25791 024.9841 247.5450 0010325 316.0567 043.9119 14.41172687180399
+FUSE 1
+1 25791U 99035A   02329.86395339  .00000793  00000-0  18694-3 0  7181
+2 25791  24.9841 247.9690 0010320 315.3599  44.6079 14.41172585180380
+FUSE 1
+1 25791U 99035A   02328.96372831 +.00000874 +00000-0 +21177-3 0 07262
+2 25791 024.9839 253.4818 0010301 306.0731 053.8822 14.41171745180256
+FUSE 1
+1 25791U 99035A   02328.47899189  .00000852  00000-0  20479-3 0  7178
+2 25791  24.9839 256.4492 0010283 300.9882  58.9620 14.41170988180188
+FUSE 1
+1 25791U 99035A   02327.23252631  .00000997  00000-0  24907-3 0  7165
+2 25791  24.9837 264.0850 0010209 287.9702  71.9692 14.41169674180007
+FUSE 1
+1 25791U 99035A   02325.91681241  .00001075  00000-0  27280-3 0  7155
+2 25791  24.9835 272.1466 0010275 274.0090  85.9246 14.41167756179814
+FUSE 1
+1 25791U 99035A   02324.94733872 +.00001074 +00000-0 +27250-3 0 07151
+2 25791 024.9837 278.0849 0010343 263.9267 096.0064 14.41166020179673
+FUSE 1
+1 25791U 99035A   02324.67034596  .00001073  00000-0  27216-3 0  7148
+2 25791  24.9837 279.7804 0010340 261.0175  98.9158 14.41165514179634
+FUSE 1
+1 25791U 99035A   02323.97786359 +.00001085 +00000-0 +27593-3 0 07186
+2 25791 024.9834 284.0218 0010561 253.2107 106.7242 14.41164354179534
+FUSE 1
+1 25791U 99035A   02323.56237448  .00001085  00000-0  27595-3 0  7138
+2 25791  24.9834 286.5654 0010546 248.8875 111.0502 14.41163593179475
+FUSE 1
+1 25791U 99035A   02322.24665714  .00001162  00000-0  29927-3 0  7129
+2 25791  24.9833 294.6241 0010703 233.4813 126.4702 14.41161870179280
+FUSE 1
+1 25791U 99035A   02321.20793280  .00001220  00000-0  31720-3 0  7112
+2 25791  24.9829 300.9847 0010808 222.5858 137.3810 14.41160264179133
+FUSE 1
+1 25791U 99035A   02319.40747635  .00001263  00000-0  33024-3 0  7109
+2 25791  24.9825 312.0065 0010876 203.7169 156.2843 14.41156787178877
+FUSE 1
+1 25791U 99035A   02318.64574421 +.00001273 +00000-0 +33320-3 0 07183
+2 25791 024.9823 316.6719 0010904 195.8401 164.1766 14.41155172178760
+FUSE 1
+1 25791U 99035A   02317.81476349 +.00001220 +00000-0 +31728-3 0 07352
+2 25791 024.9826 321.7601 0010933 187.6105 172.4237 14.41152903178643
+FUSE 1
+1 25791U 99035A   02316.84528386  .00001225  00000-0  31884-3 0  7081
+2 25791  24.9827 327.6980 0010976 177.5120 182.5438 14.41150915178502
+FUSE 1
+1 25791U 99035A   02315.59880787  .00001242  00000-0  32394-3 0  7073
+2 25791  24.9825 335.3293 0011048 164.4233 195.6623 14.41148412178324
+FUSE 1
+1 25791U 99035A   02314.69857361 +.00001241 +00000-0 +32373-3 0 07071
+2 25791 024.9823 340.8415 0011033 155.1164 204.9876 14.41146449178190
+FUSE 1
+1 25791U 99035A   02314.56007609  .00001242  00000-0  32393-3 0  7061
+2 25791  24.9823 341.6892 0011038 153.6592 206.4489 14.41146160178176
+FUSE 1
+1 25791U 99035A   02313.24434699  .00001193  00000-0  30916-3 0  7051
+2 25791  24.9828 349.7471 0011087 140.1634 219.9694 14.41143010177981
+FUSE 1
+1 25791U 99035A   02312.20561116  .00001132  00000-0  29035-3 0  7043
+2 25791  24.9834 356.1079 0011110 129.7443 230.4048 14.41140389177833
+FUSE 1
+1 25791U 99035A   02311.92861422 +.00001126 +00000-0 +28868-3 0 07309
+2 25791 024.9835 357.8035 0011119 126.7910 233.3617 14.41139808177792
+FUSE 1
+1 25791U 99035A   02310.95912468 +.00001083 +00000-0 +27550-3 0 07048
+2 25791 024.9837 003.7403 0011086 116.7489 243.4157 14.41137566177658
+FUSE 1
+1 25791U 99035A   02310.82062580  .00001082  00000-0  27519-3 0  7038
+2 25791  24.9837   4.5881 0011089 115.2851 244.8806 14.41137305177632
+FUSE 1
+1 25791U 99035A   02309.78188408 +.00001035 +00000-0 +26086-3 0 07068
+2 25791 024.9840 010.9478 0011067 104.2526 255.9212 14.41135021177482
+FUSE 1
+1 25791U 99035A   02309.57413526  .00001031  00000-0  25964-3 0  7023
+2 25791  24.9841  12.2196 0011058 102.0689 258.1059 14.41134631177458
+FUSE 1
+1 25791U 99035A   02308.67388968 +.00001007 +00000-0 +25233-3 0 07048
+2 25791 024.9841 017.7307 0011071 092.5180 267.6595 14.41132871177326
+FUSE 1
+1 25791U 99035A   02308.53539014  .00001005  00000-0  25166-3 0  7013
+2 25791  24.9842  18.5786 0011066  91.0739 269.1037 14.41132629177302
+FUSE 1
+1 25791U 99035A   02307.08114362  .00000944  00000-0  23310-3 0  7006
+2 25791  24.9847  27.4838 0011100  76.0546 284.1186 14.41129780177094
+FUSE 1
+1 25791U 99035A   02306.04239290  .00000935  00000-0  23046-3 0  6992
+2 25791  24.9847  33.8456 0011062  65.0552 295.1089 14.41128082176944
+FUSE 1
+1 25791U 99035A   02304.86513927  .00000956  00000-0  23688-3 0  6986
+2 25791  24.9847  41.0556 0010946  52.9833 307.1674 14.41126496176775
+FUSE 1
+1 25791U 99035A   02303.89563460 +.00000960 +00000-0 +23806-3 0 06982
+2 25791 024.9849 046.9935 0010898 043.0452 317.0893 14.41125049176637
+FUSE 1
+1 25791U 99035A   02303.82638415  .00000966  00000-0  23984-3 0  6970
+2 25791  24.9849  47.4173 0010865  42.3451 317.7891 14.41125000176623
+FUSE 1
+1 25791U 99035A   02302.71837611 +.00001023 +00000-0 +25722-3 0 07019
+2 25791 024.9847 054.2005 0010813 031.1742 328.9406 14.41123746176466
+FUSE 1
+1 25791U 99035A   02302.57987459  .00001040  00000-0  26254-3 0  6962
+2 25791  24.9846  55.0483 0010830  29.7688 330.3422 14.41123680176445
+FUSE 1
+1 25791U 99035A   02300.98711079  .00001096  00000-0  27956-3 0  6958
+2 25791  24.9841  64.7981 0010843  13.0413 347.0373 14.41121314176213
+FUSE 1
+1 25791U 99035A   02299.87909991  .00001128  00000-0  28943-3 0  6947
+2 25791  24.9841  71.5856 0010786   1.4027 358.6513 14.41119575176050
+FUSE 1
+1 25791U 99035A   02298.84033835  .00001169  00000-0  30201-3 0  6932
+2 25791  24.9842  77.9480 0010811 350.6657   9.3651 14.41117963175906
+FUSE 1
+1 25791U 99035A   02297.94007642 +.00001182 +00000-0 +30577-3 0 06941
+2 25791 024.9844 083.4626 0010597 339.8645 020.1444 14.41116418175779
+FUSE 1
+1 25791U 99035A   02297.80157473  .00001180  00000-0  30538-3 0  6927
+2 25791  24.9845  84.3107 0010600 338.3923  21.6137 14.41116135175751
+FUSE 1
+1 25791U 99035A   02296.90131265 +.00001199 +00000-0 +31112-3 0 07052
+2 25791 024.9844 089.8231 0010565 328.5579 031.4298 14.41114507175620
+FUSE 1
+1 25791U 99035A   02296.55505701  .00001238  00000-0  32303-3 0  6914
+2 25791  24.9844  91.9448 0010517 324.3002  35.6802 14.41114238175578
+FUSE 1
+1 25791U 99035A   02295.93179849 +.00001243 +00000-0 +32465-3 0 07023
+2 25791 024.9845 095.7602 0010517 317.7975 042.1726 14.41112961175487
+FUSE 1
+1 25791U 99035A   02295.51629228  .00001254  00000-0  32781-3 0  6907
+2 25791  24.9843  98.3052 0010532 313.0139  46.9486 14.41112188175421
+FUSE 1
+1 25791U 99035A   02294.96228418 +.00001256 +00000-0 +32856-3 0 07075
+2 25791 024.9843 101.6963 0010529 307.2176 052.7370 14.41111015175348
+FUSE 1
+1 25791U 99035A   02294.13127216  .00001240  00000-0  32359-3 0  6898
+2 25791  24.9841 106.7843 0010541 298.5475  61.3971 14.41109044175226
+FUSE 1
+1 25791U 99035A   02293.92351906 +.00001239 +00000-0 +32344-3 0 07139
+2 25791 024.9843 108.0569 0010535 296.3424 063.6002 14.41108613175198
+FUSE 1
+1 25791U 99035A   02292.95400352 +.00001237 +00000-0 +32256-3 0 06905
+2 25791 024.9842 113.9928 0010572 285.9862 073.9481 14.41106520175057
+FUSE 1
+1 25791U 99035A   02292.88475244  .00001234  00000-0  32188-3 0  6887
+2 25791  24.9842 114.4167 0010574 285.2452  74.6888 14.41106349175045
+FUSE 1
+1 25791U 99035A   02291.56898052  .00001216  00000-0  31640-3 0  6878
+2 25791  24.9839 122.4724 0010637 271.2762  88.6530 14.41103373174859
+FUSE 1
+1 25791U 99035A   02290.94572017 +.00001195 +00000-0 +30991-3 0 07009
+2 25791 024.9844 126.2889 0010671 264.7560 095.1729 14.41101851174762
+FUSE 1
+1 25791U 99035A   02290.18395700  .00001174  00000-0  30345-3 0  6860
+2 25791  24.9843 130.9526 0010673 256.7111 103.2208 14.41100044174650
+FUSE 1
+1 25791U 99035A   02288.86818259  .00001140  00000-0  29323-3 0  6857
+2 25791  24.9845 139.0064 0010704 243.0013 116.9405 14.41097023174465
+FUSE 1
+1 25791U 99035A   02287.89866426 +.00001136 +00000-0 +29186-3 0 06894
+2 25791 024.9843 144.9409 0010684 232.7314 127.2281 14.41095095174326
+FUSE 1
+1 25791U 99035A   02287.20614986  .00001151  00000-0  29649-3 0  6847
+2 25791  24.9827 149.1875 0010669 225.6654 134.2979 14.41093836174225
+FUSE 1
+1 25791U 99035A   02285.89037225  .00001130  00000-0  29004-3 0  6836
+2 25791  24.9828 157.2454 0010692 211.9002 148.0860 14.41091133174039
+FUSE 1
+1 25791U 99035A   02284.85159928  .00001103  00000-0  28186-3 0  6825
+2 25791  24.9828 163.6064 0010728 200.9652 159.0419 14.41088960173884
+FUSE 1
+1 25791U 99035A   02283.32806291  .00001033  00000-0  26046-3 0  6812
+2 25791  24.9830 172.9322 0010689 184.6616 175.3793 14.41085821173666
+FUSE 1
+1 25791U 99035A   02282.98180447 +.00000996 +00000-0 +24906-3 0 06844
+2 25791 024.9832 175.0528 0010704 180.9650 179.0837 14.41085010173610
+FUSE 1
+1 25791U 99035A   02282.22003459  .00001026  00000-0  25852-3 0  6800
+2 25791  24.9831 179.7159 0010708 172.9134 187.1536 14.41083903173505
+FUSE 1
+1 25791U 99035A   02280.97350077 +.00000830 +00000-0 +19849-3 0 06802
+2 25791 024.9833 187.3563 0011025 161.6340 198.4554 14.41080808173324
+FUSE 1
+1 25791U 99035A   02280.90424885  .00000955  00000-0  23675-3 0  6792
+2 25791  24.9831 187.7802 0010991 160.8057 199.2869 14.41081211173315
+FUSE 1
+1 25791U 99035A   02279.93472079 +.00001010 +00000-0 +25355-3 0 06825
+2 25791 024.9829 193.7205 0011006 150.8784 209.2336 14.41079909173176
+FUSE 1
+1 25791U 99035A   02279.38070408  .00001043  00000-0  26359-3 0  6780
+2 25791  24.9829 197.1114 0011002 144.9425 215.1807 14.41079042173093
+FUSE 1
+1 25791U 99035A   02278.20341727  .00000963  00000-0  23930-3 0  6776
+2 25791  24.9832 204.3229 0011020 133.2028 226.9401 14.41076821172928
+FUSE 1
+1 25791U 99035A   02276.88762358  .00000955  00000-0  23667-3 0  6762
+2 25791  24.9828 212.3833 0011005 119.6564 240.5042 14.41074562172731
+FUSE 1
+1 25791U 99035A   02275.50257357  .00000810  00000-0  19257-3 0  6757
+2 25791  24.9832 220.8633 0010929 105.5890 254.5823 14.41071888172536
+FUSE 1
+1 25791U 99035A   02274.94855287 +.00000769 +00000-0 +18010-3 0 06782
+2 25791 024.9832 224.2597 0010747 099.8528 260.3191 14.41070889172458
+FUSE 1
+1 25791U 99035A   02274.39453091  .00000766  00000-0  17925-3 0  6745
+2 25791  24.9832 227.6504 0010741  94.0800 266.0941 14.41070217172379
+FUSE 1
+1 25791U 99035A   02273.97901442 +.00000752 +00000-0 +17475-3 0 06831
+2 25791 024.9833 230.1965 0010675 089.7969 270.3764 14.41069590172310
+FUSE 1
+1 25791U 99035A   02273.21723299  .00000755  00000-0  17576-3 0  6734
+2 25791  24.9834 234.8609 0010679  81.6884 278.4835 14.41068740172200
+FUSE 1
+1 25791U 99035A   02272.94022098 +.00000777 +00000-0 +18254-3 0 07023
+2 25791 024.9832 236.5583 0010621 078.7403 281.4295 14.41068586172166
+FUSE 1
+1 25791U 99035A   02271.97067853 +.00000808 +00000-0 +19195-3 0 06741
+2 25791 024.9832 242.4959 0010491 068.8195 291.3434 14.41067715172025
+FUSE 1
+1 25791U 99035A   02271.55516014  .00000808  00000-0  19212-3 0  6721
+2 25791  24.9832 245.0390 0010492  64.4543 295.7048 14.41067193171964
+FUSE 1
+1 25791U 99035A   02270.51636263  .00000857  00000-0  20706-3 0  6718
+2 25791  24.9832 251.3989 0010443  53.4959 306.6509 14.41066244171817
+FUSE 1
+1 25791U 99035A   02269.33905765  .00000893  00000-0  21807-3 0  6704
+2 25791  24.9833 258.6080 0010394  40.7861 319.3423 14.41064845171648
+FUSE 1
+1 25791U 99035A   02268.23100366  .00000992  00000-0  24815-3 0  6696
+2 25791  24.9827 265.3949 0010332  28.8061 331.3014 14.41063880171481
+FUSE 1
+1 25791U 99035A   02267.19220147  .00001098  00000-0  28063-3 0  6686
+2 25791  24.9823 271.7543 0010324  17.9281 342.1586 14.41062934171339
+FUSE 1
+1 25791U 99035A   02265.66862362  .00001232  00000-0  32165-3 0  6674
+2 25791  24.9816 281.0815 0010329   1.9220 358.1327 14.41060966171117
+FUSE 1
+1 25791U 99035A   02264.56056684  .00001222  00000-0  31866-3 0  6669
+2 25791  24.9817 287.8674 0010319 349.8851  10.1457 14.41058532170954
+FUSE 1
+1 25791U 99035A   02263.52176164  .00001227  00000-0  32006-3 0  6651
+2 25791  24.9817 294.2294 0010341 338.4888  21.5185 14.41056345170801
+FUSE 1
+1 25791U 99035A   02262.62146251 +.00001266 +00000-0 +33195-3 0 06726
+2 25791 024.9813 299.7417 0010331 328.9476 031.0420 14.41054666170677
+FUSE 1
+1 25791U 99035A   02262.41370124  .00001257  00000-0  32914-3 0  6640
+2 25791  24.9813 301.0139 0010341 326.6238  33.3618 14.41054137170641
+FUSE 1
+1 25791U 99035A   02261.23638509  .00001327  00000-0  35045-3 0  6638
+2 25791  24.9808 308.2225 0010336 313.5426  46.4225 14.41052008170473
+FUSE 1
+1 25791U 99035A   02260.19757547  .00001443  00000-0  38612-3 0  6627
+2 25791  24.9803 314.5833 0010346 302.4458  57.5047 14.41050420170321
+FUSE 1
+1 25791U 99035A   02259.71279796 +.00001450 +00000-0 +38808-3 0 06904
+2 25791 024.9803 317.5503 0010348 297.3449 062.6007 14.41049231170255
+FUSE 1
+1 25791U 99035A   02258.81249669  .00001457  00000-0  39044-3 0  6618
+2 25791  24.9801 323.0624 0010344 288.1227  71.8153 14.41046928170127
+FUSE 1
+1 25791U 99035A   02257.56592355  .00001607  00000-0  43604-3 0  6605
+2 25791  24.9798 330.6972 0010331 274.6720  85.2607 14.41044565169942
+FUSE 1
+1 25791U 99035A   02256.52711275  .00001599  00000-0  43384-3 0  6597
+2 25791  24.9793 337.0578 0010393 263.4699  96.4645 14.41041446169793
+FUSE 1
+1 25791U 99035A   02255.41904580  .00001584  00000-0  42933-3 0  6589
+2 25791  24.9787 343.8424 0010407 251.9278 108.0095 14.41038086169630
+FUSE 1
+1 25791U 99035A   02254.72650348 +.00001491 +00000-0 +40078-3 0 06835
+2 25791 024.9788 348.0813 0010411 244.6244 115.3195 14.41035736169537
+FUSE 1
+1 25791U 99035A   02253.89545131  .00001396  00000-0  37159-3 0  6576
+2 25791  24.9785 353.1698 0010435 235.7390 124.2119 14.41033155169416
+FUSE 1
+1 25791U 99035A   02252.92589091 +.00001057 +00000-0 +26812-3 0 06570
+2 25791 024.9789 359.1085 0010610 225.0767 134.8879 14.41029740169270
+FUSE 1
+1 25791U 99035A   02252.85663624  .00001059  00000-0  26870-3 0  6562
+2 25791  24.9790 359.5326 0010621 224.3210 135.6441 14.41029635169267
+FUSE 1
+1 25791U 99035A   02251.95632761 +.00001005 +00000-0 +25223-3 0 06562
+2 25791 024.9790 005.0443 0010707 214.4524 145.5288 14.41027801169131
+FUSE 1
+1 25791U 99035A   02251.81781883  .00001011  00000-0  25399-3 0  6557
+2 25791  24.9790   5.8921 0010710 212.9295 147.0567 14.41027608169112
+FUSE 1
+1 25791U 99035A   02250.70974565 +.00000905 +00000-0 +22152-3 0 06628
+2 25791 024.9792 012.6758 0010740 201.5396 158.4662 14.41025222168950
+FUSE 1
+1 25791U 99035A   02250.57123644  .00000892  00000-0  21766-3 0  6543
+2 25791  24.9793  13.5236 0010741 200.1557 159.8528 14.41024911168935
+FUSE 1
+1 25791U 99035A   02248.90912382  .00000783  00000-0  18435-3 0  6539
+2 25791  24.9796  23.6965 0010767 182.5930 177.4521 14.41021797168696
+FUSE 1
+1 25791U 99035A   02247.93955749 +.00000652 +00000-0 +14418-3 0 06762
+2 25791 024.9802 029.6342 0010910 173.0331 187.0327 14.41019680168553
+FUSE 1
+1 25791U 99035A   02247.24700867  .00000614  00000-0  13267-3 0  6528
+2 25791  24.9803  33.8749 0010996 165.8745 194.2065 14.41018736168453
+FUSE 1
+1 25791U 99035A   02246.13892944  .00000537  00000-0  10933-3 0  6513
+2 25791  24.9806  40.6587 0011018 154.5982 205.5064 14.41017206168294
+FUSE 1
+1 25791U 99035A   02244.89233811  .00000526  00000-0  10578-3 0  6508
+2 25791  24.9810  48.2931 0011178 142.1273 218.0023 14.41016304168112
+FUSE 1
+1 25791U 99035A   02243.57648803  .00000736  00000-0  16997-3 0  6495
+2 25791  24.9800  56.3527 0011307 128.8388 231.3126 14.41016815167921
+FUSE 1
+1 25791U 99035A   02242.12212513  .00001042  00000-0  26353-3 0  6487
+2 25791  24.9790  65.2545 0011385 113.4504 246.7186 14.41017164167715
+FUSE 1
+1 25791U 99035A   02241.15254607  .00001586  00000-0  42999-3 0  6475
+2 25791  24.9772  71.1895 0011244 103.6925 256.4821 14.41018933167574
+FUSE 1
+1 25791U 99035A   02240.87553062  .00000969  00000-0  24140-3 0  6461
+2 25791  24.9785  72.8895 0010796 101.1155 259.0566 14.41013762167531
+FUSE 1
+1 25791U 99035A   02239.90595273 +.00001112 +00000-0 +28499-3 0 06645
+2 25791 024.9781 078.8252 0010791 090.9038 269.2706 14.41013017167396
+FUSE 1
+1 25791U 99035A   02239.21339631  .00001213  00000-0  31602-3 0  6454
+2 25791  24.9777  83.0642 0010776  83.4859 276.6874 14.41012252167290
+FUSE 1
+1 25791U 99035A   02237.96679327 +.00001439 +00000-0 +38514-3 0 06496
+2 25791 024.9774 090.6979 0010768 071.0115 289.1558 14.41010739167110
+FUSE 1
+1 25791U 99035A   02237.89753765  .00001477  00000-0  39690-3 0  6440
+2 25791  24.9773  91.1232 0010788  70.3652 289.8019 14.41010744167101
+FUSE 1
+1 25791U 99035A   02236.44316461  .00001500  00000-0  40378-3 0  6439
+2 25791  24.9767 100.0287 0010670  55.6564 304.4950 14.41006864166893
+FUSE 1
+1 25791U 99035A   02235.19655478  .00001345  00000-0  35650-3 0  6427
+2 25791  24.9770 107.6610 0010486  43.1111 317.0209 14.41003175166715
+FUSE 1
+1 25791U 99035A   02233.94994384 +.00001071 +00000-0 +27257-3 0 06453
+2 25791 024.9778 115.2923 0010434 030.0321 330.0788 14.40999043166530
+FUSE 1
+1 25791U 99035A   02233.88068763  .00001046  00000-0  26501-3 0  6418
+2 25791  24.9780 115.7163 0010425  29.2338 330.8754 14.40998751166527
+FUSE 1
+1 25791U 99035A   02232.49555828  .00000919  00000-0  22621-3 0  6403
+2 25791  24.9786 124.1958 0010414  14.6083 345.4723 14.40995445166325
+FUSE 1
+1 25791U 99035A   02231.94150552 +.00000876 +00000-0 +21309-3 0 06546
+2 25791 024.9788 127.5880 0010407 008.4765 351.5919 14.40994234166249
+FUSE 1
+1 25791U 99035A   02231.38745204  .00000845  00000-0  20367-3 0  6390
+2 25791  24.9789 130.9790 0010378   2.6277 357.4296 14.40993213166169
+FUSE 1
+1 25791U 99035A   02230.97191224 +.00000798 +00000-0 +18928-3 0 06602
+2 25791 024.9793 133.5251 0010384 358.0335 002.0134 14.40992235166106
+FUSE 1
+1 25791U 99035A   02230.21008800  .00000719  00000-0  16493-3 0  6389
+2 25791  24.9799 138.1891 0010364 349.8416  10.1882 14.40990663165998
+FUSE 1
+1 25791U 99035A   02228.89420846  .00000570  00000-0  11957-3 0  6372
+2 25791  24.9808 146.2460 0010327 335.3789  24.6230 14.40988149165806
+FUSE 1
+1 25791U 99035A   02227.85535415  .00000520  00000-0  10422-3 0  6366
+2 25791  24.9812 152.6068 0010343 324.1332  35.8482 14.40986913165657
+FUSE 1
+1 25791U 99035A   02226.95501315 +.00000506 +00000-0 +99908-4 0 06426
+2 25791 024.9813 158.1197 0010337 314.4756 045.4908 14.40986180165529
+FUSE 1
+1 25791U 99035A   02226.47021386  .00000502  00000-0  98661-4 0  6351
+2 25791  24.9813 161.0865 0010330 309.4557  50.5037 14.40985822165454
+FUSE 1
+1 25791U 99035A   02225.98541513 +.00000476 +00000-0 +90569-4 0 06422
+2 25791 024.9815 164.0553 0010405 304.3474 055.6046 14.40985257165388
+FUSE 1
+1 25791U 99035A   02225.22358750  .00000482  00000-0  92578-4 0  6348
+2 25791  24.9816 168.7186 0010417 296.1218  63.8218 14.40984875165274
+FUSE 1
+1 25791U 99035A   02223.97696163 +.00000481 +00000-0 +92220-4 0 06412
+2 25791 024.9814 176.3517 0010455 283.1411 076.7930 14.40984067165095
+FUSE 1
+1 25791U 99035A   02223.49216218  .00000489  00000-0  94620-4 0  6333
+2 25791  24.9814 179.3194 0010476 277.8554  82.0754 14.40983850165026
+FUSE 1
+1 25791U 99035A   02222.93810641 +.00000509 +00000-0 +10073-3 0 06456
+2 25791 024.9812 182.7128 0010537 272.0359 087.8941 14.40983654164940
+FUSE 1
+1 25791U 99035A   02222.24553673  .00000508  00000-0  10033-3 0  6320
+2 25791  24.9814 186.9527 0010565 264.8001  95.1296 14.40983198164842
+FUSE 1
+1 25791U 99035A   02220.72188492  .00000514  00000-0  10213-3 0  6310
+2 25791  24.9811 196.2838 0010649 248.9270 111.0101 14.40982128164623
+FUSE 1
+1 25791U 99035A   02219.96005888 +.00000589 +00000-0 +12528-3 0 06358
+2 25791 024.9808 200.9504 0010520 240.1664 119.7798 14.40982235164515
+FUSE 1
+1 25791U 99035A   02219.54451761  .00000591  00000-0  12583-3 0  6306
+2 25791  24.9809 203.4950 0010565 235.7070 124.2439 14.40981930164456
+FUSE 1
+1 25791U 99035A   02218.50566444  .00000591  00000-0  12589-3 0  6290
+2 25791  24.9810 209.8564 0010671 225.0521 134.9121 14.40981088164304
+FUSE 1
+1 25791U 99035A   02217.67458222 +.00000586 +00000-0 +12427-3 0 06319
+2 25791 024.9810 214.9451 0010742 216.2683 143.7098 14.40980335164187
+FUSE 1
+1 25791U 99035A   02217.46681143  .00000587  00000-0  12450-3 0  6289
+2 25791  24.9811 216.2175 0010798 214.1027 145.8787 14.40980196164156
+FUSE 1
+1 25791U 99035A   02216.77424262 +.00000608 +00000-0 +13094-3 0 06446
+2 25791 024.9810 220.4589 0010860 206.6184 153.3766 14.40979799164058
+FUSE 1
+1 25791U 99035A   02216.22018763  .00000623  00000-0  13547-3 0  6272
+2 25791  24.9812 223.8548 0011013 200.8472 159.1590 14.40979503163971
+FUSE 1
+1 25791U 99035A   02215.18133380  .00000638  00000-0  14024-3 0  6265
+2 25791  24.9811 230.2141 0011063 190.3957 169.6323 14.40978710163820
+FUSE 1
+1 25791U 99035A   02213.72693828  .00000645  00000-0  14244-3 0  6252
+2 25791  24.9811 239.1154 0011038 174.9987 185.0630 14.40977412163613
+FUSE 1
+1 25791U 99035A   02212.54957017  .00000624  00000-0  13599-3 0  6242
+2 25791  24.9812 246.3230 0011021 162.5693 197.5196 14.40976134163444
+FUSE 1
+1 25791U 99035A   02211.71848578 +.00000610 +00000-0 +13168-3 0 06428
+2 25791 024.9811 251.4099 0011007 153.9347 206.1718 14.40975246163324
+FUSE 1
+1 25791U 99035A   02211.23368603  .00000608  00000-0  13095-3 0  6236
+2 25791  24.9811 254.3777 0010998 148.9909 211.1249 14.40974805163252
+FUSE 1
+1 25791U 99035A   02210.74888612 +.00000597 +00000-0 +12772-3 0 06506
+2 25791 024.9812 257.3445 0011002 143.8708 216.2543 14.40974298163187
+FUSE 1
+1 25791U 99035A   02209.98705743 +.00000587 +00000-0 +12459-3 0 06234
+2 25791 024.9812 262.0081 0011027 135.8366 224.3023 14.40973550163075
+FUSE 1
+1 25791U 99035A   02209.84854304  .00000587  00000-0  12459-3 0  6226
+2 25791  24.9812 262.8557 0011027 134.3832 225.7585 14.40973436163052
+FUSE 1
+1 25791U 99035A   02208.87894183 +.00000550 +00000-0 +11335-3 0 06274
+2 25791 024.9814 268.7902 0011057 124.1443 236.0120 14.40972331162918
+FUSE 1
+1 25791U 99035A   02208.53265521  .00000545  00000-0  11191-3 0  6213
+2 25791  24.9816 270.9107 0011057 120.4890 239.6710 14.40972045162867
+FUSE 1
+1 25791U 99035A   02207.21676421  .00000548  00000-0  11278-3 0  6200
+2 25791  24.9817 278.9666 0011052 107.3653 252.8065 14.40971121162675
+FUSE 1
+1 25791U 99035A   02206.87047673 +.00000547 +00000-0 +11238-3 0 06588
+2 25791 024.9817 281.0857 0011055 103.7292 256.4448 14.40970853162625
+FUSE 1
+1 25791U 99035A   02205.97012911 +.00000514 +00000-0 +10239-3 0 06208
+2 25791 024.9822 286.5981 0010989 094.6865 265.4898 14.40969946162493
+FUSE 1
+1 25791U 99035A   02205.83161386  .00000516  00000-0  10301-3 0  6194
+2 25791  24.9822 287.4462 0010983  93.2503 266.9261 14.40969873162472
+FUSE 1
+1 25791U 99035A   02204.86200730 +.00000468 +00000-0 +88363-4 0 06306
+2 25791 024.9826 293.3810 0010949 083.1743 277.0007 14.40968846162330
+FUSE 1
+1 25791U 99035A   02204.58497626  .00000484  00000-0  93112-4 0  6189
+2 25791  24.9826 295.0773 0010951  80.5497 279.6249 14.40968840162292
+FUSE 1
+1 25791U 99035A   02203.89239905 +.00000449 +00000-0 +82482-4 0 06488
+2 25791 024.9828 299.3172 0010890 073.2055 286.9638 14.40968123162191
+FUSE 1
+1 25791U 99035A   02203.13056333  .00000422  00000-0  74306-4 0  6170
+2 25791  24.9830 303.9805 0010839  65.4604 294.7027 14.40967491162089
+FUSE 1
+1 25791U 99035A   02201.88392126  .00000430  00000-0  76591-4 0  6169
+2 25791  24.9831 311.6129 0010788  52.8603 307.2893 14.40966950161907
+FUSE 1
+1 25791U 99035A   02200.84505139  .00000426  00000-0  75310-4 0  6156
+2 25791  24.9831 317.9723 0010726  42.0624 318.0702 14.40966400161754
+FUSE 1
+1 25791U 99035A   02199.94469674 +.00000428 +00000-0 +76045-4 0 06177
+2 25791 024.9831 323.4842 0010660 032.3527 327.7634 14.40965983161621
+FUSE 1
+1 25791U 99035A   02199.80618047  .00000429  00000-0  76448-4 0  6147
+2 25791  24.9831 324.3321 0010640  30.8653 329.2479 14.40965931161609
+FUSE 1
+1 25791U 99035A   02198.90582495 +.00000439 +00000-0 +79526-4 0 06303
+2 25791 024.9831 329.8436 0010600 021.3948 338.6994 14.40965565161478
+FUSE 1
+1 25791U 99035A   02198.55953443  .00000442  00000-0  80466-4 0  6139
+2 25791  24.9831 331.9633 0010574  17.8270 342.2607 14.40965414161429
+FUSE 1
+1 25791U 99035A   02197.93621100 +.00000444 +00000-0 +80937-4 0 06362
+2 25791 024.9831 335.7781 0010561 011.3039 348.7699 14.40965095161330
+FUSE 1
+1 25791U 99035A   02197.24362949  .00000444  00000-0  80988-4 0  6129
+2 25791  24.9831 340.0166 0010550   3.9600 356.0998 14.40964729161231
+FUSE 1
+1 25791U 99035A   02196.20475640  .00000449  00000-0  82478-4 0  6117
+2 25791  24.9832 346.3749 0010499 353.1602   6.8760 14.40964234161083
+FUSE 1
+1 25791U 99035A   02195.92772353 +.00000455 +00000-0 +84353-4 0 06533
+2 25791 024.9833 348.0711 0010484 350.1147 009.9154 14.40964150161041
+FUSE 1
+1 25791U 99035A   02194.95810905 +.00000446 +00000-0 +81482-4 0 06126
+2 25791 024.9834 354.0072 0010473 339.7777 020.2317 14.40963538160909
+FUSE 1
+1 25791U 99035A   02194.88885078  .00000448  00000-0  82042-4 0  6104
+2 25791  24.9834 354.4313 0010464 339.0255  20.9823 14.40963525160898
+FUSE 1
+1 25791U 99035A   02193.84997767  .00000458  00000-0  85132-4 0  6090
+2 25791  24.9833   0.7908 0010468 328.1332  31.8541 14.40963009160746
+FUSE 1
+1 25791U 99035A   02192.94962101 +.00000463 +00000-0 +86594-4 0 06116
+2 25791 024.9833 006.3022 0010480 318.4949 041.4767 14.40962539160615
+FUSE 1
+1 25791U 99035A   02192.81110453  .00000461  00000-0  86250-4 0  6080
+2 25791  24.9833   7.1500 0010464 316.9667  43.0024 14.40962462160593
+FUSE 1
+1 25791U 99035A   02191.91074766 +.00000486 +00000-0 +93771-4 0 06270
+2 25791 024.9834 012.6624 0010451 307.1503 052.8049 14.40962172160468
+FUSE 1
+1 25791U 99035A   02191.56445709  .00000480  00000-0  91884-4 0  6075
+2 25791  24.9832  14.7827 0010464 303.4798  56.4711 14.40961871160419
+FUSE 1
+1 25791U 99035A   02190.94113347 +.00000477 +00000-0 +90930-4 0 06343
+2 25791 024.9834 018.5979 0010445 296.7402 063.2037 14.40961502160324
+FUSE 1
+1 25791U 99035A   02190.17929374  .00000481  00000-0  92165-4 0  6069
+2 25791  24.9832  23.2616 0010481 288.6533  71.2835 14.40961043160211
+FUSE 1
+1 25791U 99035A   02189.14042204  .00000483  00000-0  92846-4 0  6059
+2 25791  24.9831  29.6230 0010511 277.8585  82.0723 14.40960393160069
+FUSE 1
+1 25791U 99035A   02187.89377604  .00000505  00000-0  99522-4 0  6046
+2 25791  24.9830  37.2551 0010534 264.3308  95.5998 14.40959812159883
+FUSE 1
+1 25791U 99035A   02186.43935654  .00000501  00000-0  98297-4 0  6033
+2 25791  24.9829  46.1591 0010579 249.0358 110.8998 14.40958795159675
+FUSE 1
+1 25791U 99035A   02185.19271205  .00000504  00000-0  99265-4 0  6028
+2 25791  24.9830  53.7902 0010629 236.0216 123.9281 14.40958001159492
+FUSE 1
+1 25791U 99035A   02184.15384184  .00000513  00000-0  10203-3 0  6017
+2 25791  24.9831  60.1514 0010674 224.8693 135.0951 14.40957412159345
+FUSE 1
+1 25791U 99035A   02182.97645554 +.00000516 +00000-0 +10283-3 0 06062
+2 25791 024.9830 067.3585 0010725 212.3891 147.5958 14.40956658159177
+FUSE 1
+1 25791U 99035A   02182.90719767  .00000519  00000-0  10371-3 0  6008
+2 25791  24.9829  67.7832 0010724 211.7115 148.2747 14.40956613159169
+FUSE 1
+1 25791U 99035A   02181.93758516 +.00000548 +00000-0 +11261-3 0 06062
+2 25791 024.9828 073.7191 0010818 201.1978 158.8084 14.40956221159028
+FUSE 1
+1 25791U 99035A   02181.86832717  .00000553  00000-0  11428-3 0  5992
+2 25791  24.9828  74.1435 0010825 200.5146 159.4931 14.40956212159019
+FUSE 1
+1 25791U 99035A   02180.96797324 +.00000532 +00000-0 +10787-3 0 06159
+2 25791 024.9829 079.6553 0010847 191.2420 168.7845 14.40955372158883
+FUSE 1
+1 25791U 99035A   02180.55242493  .00000529  00000-0  10681-3 0  5985
+2 25791  24.9829  82.1984 0010852 186.9486 173.0868 14.40955042158821
+FUSE 1
+1 25791U 99035A   02179.92910226 +.00000542 +00000-0 +11095-3 0 06155
+2 25791 024.9830 086.0152 0010926 180.7342 179.3149 14.40954738158730
+FUSE 1
+1 25791U 99035A   02179.23652162  .00000551  00000-0  11359-3 0  5973
+2 25791  24.9830  90.2545 0010946 173.5199 186.5457 14.40954304158635
+FUSE 1
+1 25791U 99035A   02177.98987603 +.00000542 +00000-0 +11095-3 0 06006
+2 25791 024.9832 097.8882 0011031 160.8337 199.2588 14.40953321158457
+FUSE 1
+1 25791U 99035A   02177.85135981  .00000538  00000-0  10963-3 0  5968
+2 25791  24.9832  98.7360 0011031 159.3474 200.7478 14.40953176158435
+FUSE 1
+1 25791U 99035A   02176.95100402 +.00000504 +00000-0 +99300-4 0 06022
+2 25791 024.9833 104.2472 0011004 150.1851 209.9284 14.40952226158308
+FUSE 1
+1 25791U 99035A   02176.46619641  .00000500  00000-0  98147-4 0  5953
+2 25791  24.9832 107.2138 0011008 145.0625 215.0606 14.40951875158232
+FUSE 1
+1 25791U 99035A   02175.21954740  .00000495  00000-0  96657-4 0  5943
+2 25791  24.9834 114.8444 0011052 132.0019 228.1431 14.40951047158052
+FUSE 1
+1 25791U 99035A   02173.90363925  .00000444  00000-0  81013-4 0  5939
+2 25791  24.9837 122.9038 0011028 119.1777 240.9836 14.40949793157868
+FUSE 1
+1 25791U 99035A   02172.51846935  .00000425  00000-0  75104-4 0  5924
+2 25791  24.9839 131.3835 0010980 104.9187 255.2530 14.40948920157661
+FUSE 1
+1 25791U 99035A   02171.41033186  .00000417  00000-0  72553-4 0  5913
+2 25791  24.9844 138.1686 0010902  93.6662 266.5092 14.40948370157502
+FUSE 1
+1 25791U 99035A   02170.50996877 +.00000436 +00000-0 +78639-4 0 05975
+2 25791 024.9843 143.6798 0010904 084.4115 275.7637 14.40948095157375
+FUSE 1
+1 25791U 99035A   02170.23293415  .00000423  00000-0  74576-4 0  5908
+2 25791  24.9845 145.3761 0010901  81.5059 278.6684 14.40947844157339
+FUSE 1
+1 25791U 99035A   02169.19405227  .00000425  00000-0  75062-4 0  5898
+2 25791  24.9846 151.7361 0010811  70.7002 289.4672 14.40947374157183
+FUSE 1
+1 25791U 99035A   02167.60109739  .00000492  00000-0  95589-4 0  5880
+2 25791  24.9842 161.4859 0010787  54.1241 306.0266 14.40947018156956
+FUSE 1
+1 25791U 99035A   02166.56221265  .00000534  00000-0  10864-3 0  5871
+2 25791  24.9839 167.8442 0010791  43.1206 317.0146 14.40946662156801
+FUSE 1
+1 25791U 99035A   02165.24629112  .00000568  00000-0  11909-3 0  5865
+2 25791  24.9843 175.9013 0010722  29.2251 330.8852 14.40946031156615
+FUSE 1
+1 25791U 99035A   02163.86110918  .00000595  00000-0  12719-3 0  5859
+2 25791  24.9845 184.3792 0010702  14.8284 345.2538 14.40945180156412
+FUSE 1
+1 25791U 99035A   02162.54518530  .00000658  00000-0  14664-3 0  5845
+2 25791  24.9846 192.4369 0010588   1.1350 358.9185 14.40944578156226
+FUSE 1
+1 25791U 99035A   02161.85259359 +.00000674 +00000-0 +15131-3 0 06107
+2 25791 024.9846 196.6771 0010590 353.7741 006.2633 14.40944011156124
+FUSE 1
+1 25791U 99035A   02161.22926069  .00000700  00000-0  15929-3 0  5831
+2 25791  24.9847 200.4935 0010585 347.0023  13.0212 14.40943608156034
+FUSE 1
+1 25791U 99035A   02159.84407613  .00000743  00000-0  17262-3 0  5823
+2 25791  24.9846 208.9724 0010588 332.2220  27.7726 14.40942460155834
+FUSE 1
+1 25791U 99035A   02158.80518770  .00000793  00000-0  18784-3 0  5819
+2 25791  24.9846 215.3341 0010581 321.3048  38.6704 14.40941632155681
+FUSE 1
+1 25791U 99035A   02157.97407665 +.00000825 +00000-0 +19757-3 0 05879
+2 25791 024.9847 220.4222 0010562 312.3796 047.5815 14.40940838155562
+FUSE 1
+1 25791U 99035A   02157.55852103  .00000870  00000-0  21141-3 0  5807
+2 25791  24.9847 222.9680 0010439 307.4635  52.4923 14.40940695155507
+FUSE 1
+1 25791U 99035A   02156.86592860 +.00000855 +00000-0 +20693-3 0 06042
+2 25791 024.9846 227.2073 0010554 299.6921 060.2540 14.40939609155402
+FUSE 1
+1 25791U 99035A   02156.24259499  .00000899  00000-0  22019-3 0  5795
+2 25791  24.9846 231.0244 0010551 292.5198  67.4193 14.40939088155314
+FUSE 1
+1 25791U 99035A   02155.06518757  .00000887  00000-0  21661-3 0  5787
+2 25791  24.9851 238.2318 0010502 278.6019  81.3297 14.40937436155140
+FUSE 1
+1 25791U 99035A   02154.92666911 +.00000889 +00000-0 +21739-3 0 06067
+2 25791 024.9851 239.0795 0010509 277.1250 082.8066 14.40937258155126
+FUSE 1
+1 25791U 99035A   02153.88777948  .00000883  00000-0  21546-3 0  5771
+2 25791  24.9856 245.4403 0010777 265.3681  94.5596 14.40935853154971
+FUSE 1
+1 25791U 99035A   02152.57185272  .00000902  00000-0  22117-3 0  5765
+2 25791  24.9868 253.4989 0011060 249.3519 110.5805 14.40934379154783
+FUSE 1
+1 25791U 99035A   02151.53296309  .00000970  00000-0  24192-3 0  5753
+2 25791  24.9869 259.8581 0011180 238.2453 121.6966 14.40933320154639
+FUSE 1
+1 25791U 99035A   02150.70185103 +.00001051 +00000-0 +26686-3 0 05975
+2 25791 024.9867 264.9433 0011243 229.4877 130.4651 14.40932501154518
+FUSE 1
+1 25791U 99035A   02149.93999876  .00001091  00000-0  27908-3 0  5745
+2 25791  24.9867 269.6053 0011249 221.4930 138.4719 14.40931407154401
+FUSE 1
+1 25791U 99035A   02148.90111038 +.00001229 +00000-0 +32134-3 0 05769
+2 25791 024.9863 275.9625 0011269 210.6845 149.3088 14.40930136154250
+FUSE 1
+1 25791U 99035A   02148.83185155  .00000938  00000-0  23221-3 0  5732
+2 25791  24.9851 276.3822 0010775 212.4019 147.5850 14.40927933154242
+FUSE 1
+1 25791U 99035A   02147.93147934 +.00000813 +00000-0 +19395-3 0 05958
+2 25791 024.9857 281.8960 0010898 202.6278 157.3749 14.40926137154113
+FUSE 1
+1 25791U 99035A   02147.58518187  .00001001  00000-0  25172-3 0  5726
+2 25791  24.9861 284.0183 0011012 197.6860 162.3263 14.40926704154060
+FUSE 1
+1 25791U 99035A   02146.54628978  .00000913  00000-0  22451-3 0  5718
+2 25791  24.9845 290.3753 0010754 189.6041 170.4268 14.40924183153916
+FUSE 1
+1 25791U 99035A   02145.16109886  .00000752  00000-0  17520-3 0  5708
+2 25791  24.9854 298.8585 0011057 175.5591 184.5015 14.40921808153718
+FUSE 1
+1 25791U 99035A   02144.12220258  .00000806  00000-0  19188-3 0  5690
+2 25791  24.9858 305.2220 0011313 166.0837 193.9972 14.40920971153563
+FUSE 1
+1 25791U 99035A   02143.91442346 +.00000815 +00000-0 +19451-3 0 06009
+2 25791 024.9859 306.4952 0011363 164.3048 195.7813 14.40920803153534
+FUSE 1
+1 25791U 99035A   02142.94478746 +.00000943 +00000-0 +23384-3 0 05690
+2 25791 024.9854 312.4312 0011411 153.9631 206.1530 14.40920479153398
+FUSE 1
+1 25791U 99035A   02142.87552765  .00000884  00000-0  21574-3 0  5688
+2 25791  24.9848 312.8512 0010954 151.9799 208.1299 14.40919629153389
+FUSE 1
+1 25791U 99035A   02141.90588955 +.00000926 +00000-0 +22857-3 0 05874
+2 25791 024.9841 318.7826 0010700 140.9341 219.1940 14.40918429153242
+FUSE 1
+1 25791U 99035A   02141.55958991  .00000963  00000-0  23993-3 0  5677
+2 25791  24.9839 320.9048 0010714 137.4073 222.7267 14.40918220153193
+FUSE 1
+1 25791U 99035A   02140.17438775  .00001057  00000-0  26889-3 0  5668
+2 25791  24.9835 329.3818 0010822 124.7440 235.4086 14.40916869152998
+FUSE 1
+1 25791U 99035A   02139.96660755 +.00001083 +00000-0 +27692-3 0 05884
+2 25791 024.9836 330.6540 0010888 122.4431 237.7130 14.40916754152968
+FUSE 1
+1 25791U 99035A   02139.06622508  .00001163  00000-0  30126-3 0  5659
+2 25791  24.9830 336.1650 0010863 113.3928 246.7719 14.40915711152839
+FUSE 1
+1 25791U 99035A   02137.88879990  .00001296  00000-0  34198-3 0  5645
+2 25791  24.9826 343.3712 0010907 101.0863 259.0871 14.40914401152666
+FUSE 1
+1 25791U 99035A   02136.91915471 +.00001350 +00000-0 +35875-3 0 05816
+2 25791 024.9827 349.3060 0010932 090.9446 269.2314 14.40912681152528
+FUSE 1
+1 25791U 99035A   02136.22654987  .00001376  00000-0  36654-3 0  5636
+2 25791  24.9826 353.5443 0010936  83.6416 276.5336 14.40911244152427
+FUSE 1
+1 25791U 99035A   02135.94950762 +.00001397 +00000-0 +37325-3 0 05723
+2 25791 024.9825 355.2400 0010966 080.7402 279.4344 14.40910769152381
+FUSE 1
+1 25791U 99035A   02135.18764091  .00001413  00000-0  37797-3 0  5628
+2 25791  24.9824 359.9024 0010965  72.6730 287.4977 14.40909002152273
+FUSE 1
+1 25791U 99035A   02134.91059834 +.00001415 +00000-0 +37857-3 0 05922
+2 25791 024.9825 001.5980 0010968 069.7349 290.4345 14.40908337152230
+FUSE 1
+1 25791U 99035A   02133.94094738 +.00001415 +00000-0 +37859-3 0 05636
+2 25791 024.9824 007.5352 0010877 059.9778 300.1809 14.40905944152093
+FUSE 1
+1 25791U 99035A   02133.87168652  .00001412  00000-0  37775-3 0  5617
+2 25791  24.9825   7.9592 0010873  59.2261 300.9315 14.40905750152084
+FUSE 1
+1 25791U 99035A   02132.48646600  .00001369  00000-0  36456-3 0  5602
+2 25791  24.9823  16.4325 0010684  45.9733 314.1653 14.40902098151888
+FUSE 1
+1 25791U 99035A   02131.30902586  .00001353  00000-0  35975-3 0  5596
+2 25791  24.9822  23.6391 0010610  33.6244 326.4935 14.40899142151716
+FUSE 1
+1 25791U 99035A   02130.20084454  .00001308  00000-0  34583-3 0  5582
+2 25791  24.9820  30.4208 0010580  22.0031 338.0932 14.40896173151558
+FUSE 1
+1 25791U 99035A   02129.16192230  .00001226  00000-0  32085-3 0  5570
+2 25791  24.9821  36.7788 0010481  11.1643 348.9097 14.40893274151404
+FUSE 1
+1 25791U 99035A   02128.95413775 +.00001211 +00000-0 +31627-3 0 05931
+2 25791 024.9821 038.0520 0010468 008.7737 351.2951 14.40892692151379
+FUSE 1
+1 25791U 99035A   02127.98447523 +.00001111 +00000-0 +28565-3 0 05601
+2 25791 024.9824 043.9896 0010296 357.7755 002.2712 14.40889924151236
+FUSE 1
+1 25791U 99035A   02127.91521357  .00001094  00000-0  28026-3 0  5569
+2 25791  24.9824  44.4136 0010284 357.0692   2.9753 14.40889652151228
+FUSE 1
+1 25791U 99035A   02126.94554859 +.00001060 +00000-0 +27008-3 0 05601
+2 25791 024.9824 050.3495 0010262 346.7330 013.2907 14.40887620151085
+FUSE 1
+1 25791U 99035A   02126.87628689  .00001055  00000-0  26832-3 0  5558
+2 25791  24.9824  50.7736 0010263 346.0680  13.9545 14.40887452151076
+FUSE 1
+1 25791U 99035A   02125.97588259 +.00001014 +00000-0 +25588-3 0 05671
+2 25791 024.9823 056.2855 0010259 336.2920 023.7116 14.40885529150942
+FUSE 1
+1 25791U 99035A   02125.42178682  .00001006  00000-0  25328-3 0  5545
+2 25791  24.9822  59.6761 0010255 330.4733  29.5196 14.40884531150863
+FUSE 1
+1 25791U 99035A   02124.38285672  .00001011  00000-0  25509-3 0  5533
+2 25791  24.9820  66.0352 0010273 319.4923  40.4821 14.40882801150716
+FUSE 1
+1 25791U 99035A   02123.20540156  .00000953  00000-0  23705-3 0  5523
+2 25791  24.9824  73.2432 0010279 305.7597  54.1955 14.40880460150540
+FUSE 1
+1 25791U 99035A   02121.95868326 +.00001002 +00000-0 +25225-3 0 05542
+2 25791 024.9819 080.8762 0010331 292.1373 067.8041 14.40878747150366
+FUSE 1
+1 25791U 99035A   02121.54311021  .00001003  00000-0  25248-3 0  5515
+2 25791  24.9819  83.4189 0010337 287.6956  72.2421 14.40878063150307
+FUSE 1
+1 25791U 99035A   02120.98901322 +.00001023 +00000-0 +25857-3 0 05632
+2 25791 024.9818 086.8098 0010306 282.1201 077.8157 14.40877264150221
+FUSE 1
+1 25791U 99035A   02120.22712923  .00001015  00000-0  25630-3 0  5502
+2 25791  24.9819  91.4718 0010318 274.0246  85.9082 14.40875930150118
+FUSE 1
+1 25791U 99035A   02119.95008070 +.00001028 +00000-0 +26024-3 0 05648
+2 25791 024.9817 093.1681 0010309 271.2034 088.7294 14.40875508150070
+FUSE 1
+1 25791U 99035A   02119.18819734  .00000984  00000-0  24661-3 0  5498
+2 25791  24.9821  97.8348 0010364 262.8749  97.0580 14.40873938149968
+FUSE 1
+1 25791U 99035A   02117.59516608  .00000965  00000-0  24087-3 0  5485
+2 25791  24.9822 107.5863 0010462 245.7519 114.1894 14.40871219149738
+FUSE 1
+1 25791U 99035A   02116.55623223  .00001014  00000-0  25598-3 0  5475
+2 25791  24.9819 113.9469 0010496 234.8360 125.1166 14.40869721149589
+FUSE 1
+1 25791U 99035A   02115.24024880  .00000904  00000-0  22221-3 0  5460
+2 25791  24.9822 122.0047 0010673 220.6675 139.3037 14.40867070149393
+FUSE 1
+1 25791U 99035A   02113.64721393  .00000997  00000-0  25068-3 0  5458
+2 25791  24.9820 131.7593 0010921 204.4419 155.5575 14.40864885149169
+FUSE 1
+1 25791U 99035A   02112.60827693  .00001229  00000-0  32167-3 0  5449
+2 25791  24.9818 138.1223 0011109 194.3356 165.6844 14.40863758149016
+FUSE 1
+1 25791U 99035A   02111.70786489 +.00001579 +00000-0 +42935-3 0 05459
+2 25791 024.9818 143.6347 0011005 184.3083 175.7332 14.40862715148885
+FUSE 1
+1 25791U 99035A   02111.56934007  .00001615  00000-0  44009-3 0  5437
+2 25791  24.9819 144.4840 0011022 182.6205 177.4245 14.40862480148868
+FUSE 1
+1 25791U 99035A   02110.53040188  .00001831  00000-0  50650-3 0  5429
+2 25791  24.9817 150.8474 0011038 171.9009 188.1678 14.40859918148715
+FUSE 1
+1 25791U 99035A   02109.21441033  .00001839  00000-0  50903-3 0  5414
+2 25791  24.9818 158.9076 0011058 159.5103 200.5858 14.40855347148522
+FUSE 1
+1 25791U 99035A   02107.75988762  .00001806  00000-0  49905-3 0  5409
+2 25791  24.9818 167.8101 0011016 144.5815 215.5425 14.40850340148319
+FUSE 1
+1 25791U 99035A   02106.72093909  .00001824  00000-0  50445-3 0  5394
+2 25791  24.9819 174.1696 0011038 134.1147 226.0286 14.40847102148164
+FUSE 1
+1 25791U 99035A   02105.61272498  .00001733  00000-0  47679-3 0  5386
+2 25791  24.9822 180.9533 0010987 122.6889 237.4679 14.40842753148002
+FUSE 1
+1 25791U 99035A   02104.85082480 +.00001713 +00000-0 +47068-3 0 05437
+2 25791 024.9823 185.6152 0010986 114.8415 245.3238 14.40840218147898
+FUSE 1
+1 25791U 99035A   02104.57377071  .00001648  00000-0  45060-3 0  5379
+2 25791  24.9828 187.3119 0010910 112.4216 247.7465 14.40838832147858
+FUSE 1
+1 25791U 99035A   02102.91143625  .00001546  00000-0  41945-3 0  5365
+2 25791  24.9833 197.4876 0010832  95.2901 264.8851 14.40833179147610
+FUSE 1
+1 25791U 99035A   02101.94173617 +.00001486 +00000-0 +40101-3 0 05367
+2 25791 024.9836 203.4219 0010768 085.1671 275.0035 14.40830065147475
+FUSE 1
+1 25791U 99035A   02101.87247187  .00001527  00000-0  41368-3 0  5354
+2 25791  24.9836 203.8460 0010860  84.9976 275.1776 14.40830297147464
+FUSE 1
+1 25791U 99035A   02100.90276910 +.00001525 +00000-0 +41312-3 0 05406
+2 25791 024.9836 209.7805 0010820 074.8575 285.3127 14.40827651147329
+FUSE 1
+1 25791U 99035A   02100.55644706  .00001466  00000-0  39504-3 0  5346
+2 25791  24.9839 211.9005 0010785  71.2224 288.9455 14.40826227147276
+FUSE 1
+1 25791U 99035A   02099.72527026 +.00001468 +00000-0 +39557-3 0 05369
+2 25791 024.9839 216.9860 0010792 062.4507 297.7098 14.40824076147152
+FUSE 1
+1 25791U 99035A   02099.51747561  .00001466  00000-0  39497-3 0  5332
+2 25791  24.9839 218.2573 0010790  60.2600 299.8974 14.40823521147123
+FUSE 1
+1 25791U 99035A   02098.96335660 +.00001461 +00000-0 +39351-3 0 05517
+2 25791 024.9839 221.6473 0010791 054.4596 305.6917 14.40822053147043
+FUSE 1
+1 25791U 99035A   02097.99364657  .00001460  00000-0  39305-3 0  5324
+2 25791  24.9840 227.5821 0010785  44.3275 315.8094 14.40819548146900
+FUSE 1
+1 25791U 99035A   02096.88540384  .00001474  00000-0  39764-3 0  5317
+2 25791  24.9839 234.3643 0010788  32.8173 327.3012 14.40816799146743
+FUSE 1
+1 25791U 99035A   02095.63862735  .00001487  00000-0  40141-3 0  5300
+2 25791  24.9840 241.9943 0010816  19.8188 340.2741 14.40813643146563
+FUSE 1
+1 25791U 99035A   02094.59964440  .00001479  00000-0  39900-3 0  5290
+2 25791  24.9841 248.3515 0010781   8.9830 351.0866 14.40810859146412
+FUSE 1
+1 25791U 99035A   02093.56066001  .00001449  00000-0  39004-3 0  5283
+2 25791  24.9842 254.7110 0010724 357.7982   2.2481 14.40807913146263
+FUSE 1
+1 25791U 99035A   02092.17534371  .00001416  00000-0  37974-3 0  5276
+2 25791  24.9846 263.1915 0010706 342.3947  17.6181 14.40804146146065
+FUSE 1
+1 25791U 99035A   02091.06708795  .00001473  00000-0  39722-3 0  5261
+2 25791  24.9844 269.9758 0010605 329.8586  30.1311 14.40801748145901
+FUSE 1
+1 25791U 99035A   02090.92855601 +.00001487 +00000-0 +40157-3 0 05410
+2 25791 024.9846 270.8250 0010580 328.4929 031.4942 14.40801529145887
+FUSE 1
+1 25791U 99035A   02089.95883174 +.00001422 +00000-0 +38169-3 0 05269
+2 25791 024.9848 276.7588 0010511 318.2311 041.7395 14.40798658145743
+FUSE 1
+1 25791U 99035A   02089.88956560  .00001421  00000-0  38139-3 0  5256
+2 25791  24.9849 277.1827 0010506 317.5131  42.4562 14.40798492145730
+FUSE 1
+1 25791U 99035A   02088.15791078  .00001515  00000-0  41010-3 0  5241
+2 25791  24.9847 287.7803 0010520 298.7755  61.1699 14.40794544145482
+FUSE 1
+1 25791U 99035A   02087.95011214 +.00001499 +00000-0 +40534-3 0 05370
+2 25791 024.9848 289.0527 0010533 296.5864 063.3562 14.40793924145453
+FUSE 1
+1 25791U 99035A   02086.91111703  .00001749  00000-0  48209-3 0  5239
+2 25791  24.9841 295.4106 0010495 285.4100  74.5251 14.40792142145301
+FUSE 1
+1 25791U 99035A   02085.94138844 +.00001800 +00000-0 +49790-3 0 05230
+2 25791 024.9840 301.3448 0010492 275.1890 084.7423 14.40789187145168
+FUSE 1
+1 25791U 99035A   02085.87212209  .00001800  00000-0  49784-3 0  5222
+2 25791  24.9839 301.7687 0010498 274.4524  85.4786 14.40788939145150
+FUSE 1
+1 25791U 99035A   02084.20972717  .00001789  00000-0  49461-3 0  5212
+2 25791  24.9837 311.9410 0010520 257.1269 102.8063 14.40783400144918
+FUSE 1
+1 25791U 99035A   02083.17072852  .00001737  00000-0  47850-3 0  5200
+2 25791  24.9841 318.3008 0010603 246.6391 113.2992 14.40779739144768
+FUSE 1
+1 25791U 99035A   02081.92392783  .00001713  00000-0  47112-3 0  5192
+2 25791  24.9843 325.9324 0010711 233.7134 126.2384 14.40775609144588
+FUSE 1
+1 25791U 99035A   02080.88492453  .00001724  00000-0  47457-3 0  5184
+2 25791  24.9839 332.2902 0010758 223.1027 136.8641 14.40772451144430
+FUSE 1
+1 25791U 99035A   02079.98445671 +.00001660 +00000-0 +45511-3 0 05248
+2 25791 024.9866 337.8089 0010640 212.3177 147.6681 14.40769396144307
+FUSE 1
+1 25791U 99035A   02079.36105289  .00001660  00000-0  45502-3 0  5170
+2 25791  24.9864 341.6231 0010625 205.7116 154.2858 14.40767508144212
+FUSE 1
+1 25791U 99035A   02078.94545013 +.00001663 +00000-0 +45593-3 0 05203
+2 25791 024.9866 344.1681 0010662 201.5314 158.4745 14.40766326144157
+FUSE 1
+1 25791U 99035A   02078.18351059  .00001670  00000-0  45823-3 0  5163
+2 25791  24.9867 348.8302 0010676 193.5096 166.5127 14.40764131144045
+FUSE 1
+1 25791U 99035A   02076.93669799 +.00001712 +00000-0 +47120-3 0 05188
+2 25791 024.9862 356.4616 0010674 180.4765 179.5730 14.40760708143868
+FUSE 1
+1 25791U 99035A   02076.86743038  .00001720  00000-0  47342-3 0  5151
+2 25791  24.9861 356.8853 0010677 179.8078 180.2432 14.40760558143856
+FUSE 1
+1 25791U 99035A   02075.34354341  .00001769  00000-0  48858-3 0  5143
+2 25791  24.9857   6.2089 0010689 164.1831 195.9013 14.40756227143637
+FUSE 1
+1 25791U 99035A   02074.23525935  .00001789  00000-0  49489-3 0  5131
+2 25791  24.9864  12.9917 0010652 152.3559 207.7514 14.40752965143470
+FUSE 1
+1 25791U 99035A   02073.95818794 +.00001809 +00000-0 +50096-3 0 05215
+2 25791 024.9863 014.6889 0010627 149.3903 210.7224 14.40752237143437
+FUSE 1
+1 25791U 99035A   02073.19624002  .00001826  00000-0  50609-3 0  5127
+2 25791  24.9865  19.3522 0010642 141.9145 218.2115 14.40749948143323
+FUSE 1
+1 25791U 99035A   02072.91916797 +.00001841 +00000-0 +51076-3 0 05363
+2 25791 024.9864 021.0498 0010609 139.0566 221.0741 14.40749171143282
+FUSE 1
+1 25791U 99035A   02071.53380359  .00001868  00000-0  51930-3 0  5110
+2 25791  24.9870  29.5310 0010560 125.3666 234.7831 14.40744898143080
+FUSE 1
+1 25791U 99035A   02070.97965627 +.00001883 +00000-0 +52391-3 0 05124
+2 25791 024.9873 032.9250 0010530 120.0536 240.1014 14.40743233143007
+FUSE 1
+1 25791U 99035A   02070.49477683  .00001888  00000-0  52553-3 0  5104
+2 25791  24.9873  35.8909 0010528 115.0412 245.1193 14.40741625142931
+FUSE 1
+1 25791U 99035A   02069.24793971  .00001911  00000-0  53253-3 0  5099
+2 25791  24.9880  43.5225 0010388 102.6935 257.4711 14.40737632142757
+FUSE 1
+1 25791U 99035A   02068.20890526  .00001963  00000-0  54852-3 0  5080
+2 25791  24.9877  49.8807 0010265  92.5971 267.5712 14.40734504142601
+FUSE 1
+1 25791U 99035A   02066.40790516  .00002019  00000-0  56597-3 0  5078
+2 25791  24.9882  60.8982 0010140  74.0227 286.1405 14.40728545142340
+FUSE 1
+1 25791U 99035A   02065.23032416  .00001976  00000-0  55274-3 0  5067
+2 25791  24.9890  68.1059 0009928  61.2977 298.8527 14.40723876142175
+FUSE 1
+1 25791U 99035A   02063.63711823 +.00001966 +00000-0 +54965-3 0 05060
+2 25791 024.9889 077.8519 0009855 044.5446 315.5856 14.40718057141946
+FUSE 1
+1 25791U 99035A   02063.56784827  .00001964  00000-0  54915-3 0  5058
+2 25791  24.9890  78.2758 0009853  43.7948 316.3342 14.40717794141939
+FUSE 1
+1 25791U 99035A   02062.25171546  .00001967  00000-0  55002-3 0  5041
+2 25791  24.9898  86.3315 0009720  29.5760 330.5288 14.40713207141744
+FUSE 1
+1 25791U 99035A   02060.72776629  .00001974  00000-0  55231-3 0  5035
+2 25791  24.9904  95.6541 0009691  13.5587 346.5178 14.40707846141526
+FUSE 1
+1 25791U 99035A   02059.68870443  .00002061  00000-0  57921-3 0  5022
+2 25791  24.9908 102.0122 0009670   2.3178 357.7366 14.40705063141372
+FUSE 1
+1 25791U 99035A   02058.58037276 +.00001937 +00000-0 +54089-3 0 05190
+2 25791 024.9855 108.7808 0010347 348.8163 011.2115 14.40699031141216
+FUSE 1
+1 25791U 99035A   02058.23401784  .00001930  00000-0  53890-3 0  5014
+2 25791  24.9854 110.8994 0010344 345.1099  14.9105 14.40697723141169
+FUSE 1
+1 25791U 99035A   02057.95693361 +.00001927 +00000-0 +53794-3 0 05295
+2 25791 024.9853 112.5943 0010342 342.2401 017.7744 14.40696709141123
+FUSE 1
+1 25791U 99035A   02056.98714049 +.00001855 +00000-0 +51590-3 0 05016
+2 25791 024.9848 118.5439 0010389 330.7846 029.2084 14.40692621140986
+FUSE 1
+1 25791U 99035A   02056.84859804  .00001856  00000-0  51612-3 0  5005
+2 25791  24.9848 119.3917 0010396 329.3558  30.6348 14.40692155140967
+FUSE 1
+1 25791U 99035A   02055.87879896 +.00001862 +00000-0 +51795-3 0 05009
+2 25791 024.9847 125.3251 0010386 318.7436 041.2281 14.40688909140821
+FUSE 1
+1 25791U 99035A   02055.80952754  .00001868  00000-0  51976-3 0  4991
+2 25791  24.9847 125.7494 0010379 317.8153  42.1555 14.40688735140812
+FUSE 1
+1 25791U 99035A   02054.56264168  .00001830  00000-0  50822-3 0  4985
+2 25791  24.9853 133.3826 0010404 303.6462  56.3056 14.40684284140636
+FUSE 1
+1 25791U 99035A   02051.93031607 +.00001939 +00000-0 +54187-3 0 04981
+2 25791 024.9846 149.4920 0010329 274.4706 085.4618 14.40676334140255
+FUSE 1
+1 25791U 99035A   02051.86104389  .00001949  00000-0  54496-3 0  4963
+2 25791  24.9847 149.9167 0010322 273.5085  86.4222 14.40676201140241
+FUSE 1
+1 25791U 99035A   02050.89124093 +.00001793 +00000-0 +49705-3 0 04963
+2 25791 024.9879 155.8456 0009888 267.6928 092.2444 14.40671793140105
+FUSE 1
+1 25791U 99035A   02050.82196891  .00001795  00000-0  49764-3 0  4957
+2 25791  24.9879 156.2699 0009920 266.9073  93.0299 14.40671596140095
+FUSE 1
+1 25791U 99035A   02049.85216173 +.00001762 +00000-0 +48738-3 0 05049
+2 25791 024.9881 162.2061 0009833 257.1871 102.7547 14.40668129139954
+FUSE 1
+1 25791U 99035A   02049.57507351  .00001745  00000-0  48221-3 0  4945
+2 25791  24.9884 163.9032 0009829 254.4578 105.4840 14.40667101139913
+FUSE 1
+1 25791U 99035A   02048.18962711  .00001789  00000-0  49573-3 0  4934
+2 25791  24.9865 172.3765 0010089 240.4382 119.5119 14.40662912139715
+FUSE 1
+1 25791U 99035A   02047.15054256  .00001796  00000-0  49804-3 0  4920
+2 25791  24.9866 178.7417 0010129 229.8799 130.0812 14.40659621139562
+FUSE 1
+1 25791U 99035A   02045.83436523  .00001840  00000-0  51150-3 0  4910
+2 25791  24.9866 186.7961 0010148 215.4593 144.5240 14.40655733139373
+FUSE 1
+1 25791U 99035A   02044.79527556 +.00001873 +00000-0 +52184-3 0 04971
+2 25791 024.9863 193.1524 0010137 204.2065 155.7965 14.40652516139223
+FUSE 1
+1 25791U 99035A   02044.51818359  .00001925  00000-0  53776-3 0  4904
+2 25791  24.9860 194.8476 0010191 201.0271 158.9809 14.40652078139188
+FUSE 1
+1 25791U 99035A   02043.82545578 +.00001946 +00000-0 +54433-3 0 04990
+2 25791 024.9858 199.0847 0010200 193.6793 166.3433 14.40649817139082
+FUSE 1
+1 25791U 99035A   02042.92490752  .00001992  00000-0  55840-3 0  4896
+2 25791  24.9856 204.5925 0010259 184.1947 175.8472 14.40647025138951
+FUSE 1
+1 25791U 99035A   02041.95508458 +.00002053 +00000-0 +57741-3 0 04892
+2 25791 024.9856 210.5265 0010300 173.9651 186.0980 14.40644069138818
+FUSE 1
+1 25791U 99035A   02041.88581150  .00002073  00000-0  58348-3 0  4889
+2 25791  24.9861 210.9521 0010311 172.9624 187.1028 14.40644058138806
+FUSE 1
+1 25791U 99035A   02040.56961753  .00002206  00000-0  62450-3 0  4870
+2 25791  24.9858 219.0013 0010484 159.5673 200.5249 14.40640287138618
+FUSE 1
+1 25791U 99035A   02039.53051625  .00002255  00000-0  63954-3 0  4866
+2 25791  24.9858 225.3571 0010553 148.4366 211.6776 14.40636535138462
+FUSE 1
+1 25791U 99035A   02038.14504167  .00002351  00000-0  66921-3 0  4859
+2 25791  24.9858 233.8326 0010636 134.1993 225.9382 14.40631676138264
+FUSE 1
+1 25791U 99035A   02037.93721974 +.00002397 +00000-0 +68340-3 0 04938
+2 25791 024.9861 235.1054 0010736 131.7488 228.3923 14.40631273138232
+FUSE 1
+1 25791U 99035A   02036.89810875  .00002492  00000-0  71274-3 0  4847
+2 25791  24.9862 241.4623 0010829 122.1317 238.0237 14.40627644138089
+FUSE 1
+1 25791U 99035A   02035.92826968 +.00002548 +00000-0 +73019-3 0 04841
+2 25791 024.9863 247.3934 0010862 112.4256 247.7399 14.40623688137945
+FUSE 1
+1 25791U 99035A   02035.85899543  .00002552  00000-0  73123-3 0  4832
+2 25791  24.9863 247.8171 0010864 111.6988 248.4676 14.40623397137930
+FUSE 1
+1 25791U 99035A   02034.95842869 +.00002563 +00000-0 +73476-3 0 04924
+2 25791 024.9867 253.3259 0010904 102.2272 257.9457 14.40619245137805
+FUSE 1
+1 25791U 99035A   02034.26568177  .00002587  00000-0  74211-3 0  4828
+2 25791  24.9865 257.5631 0010840  95.4477 264.7266 14.40616180137700
+FUSE 1
+1 25791U 99035A   02033.22656041  .00002588  00000-0  74253-3 0  4817
+2 25791  24.9868 263.9212 0010966  84.6163 275.5595 14.40611176137558
+FUSE 1
+1 25791U 99035A   02032.18743380  .00002587  00000-0  74231-3 0  4808
+2 25791  24.9869 270.2766 0010977  73.7493 286.4230 14.40606150137408
+FUSE 1
+1 25791U 99035A   02030.94047759 +.00002528 +00000-0 +72437-3 0 04808
+2 25791 024.9874 277.9037 0011018 060.9223 299.2389 14.40599492137222
+FUSE 1
+1 25791U 99035A   02030.87120198  .00002526  00000-0  72362-3 0  4792
+2 25791  24.9874 278.3273 0011014  60.1902 299.9702 14.40599135137210
+FUSE 1
+1 25791U 99035A   02029.34713303  .00002495  00000-0  71439-3 0  4786
+2 25791  24.9875 287.6482 0010997  44.3035 315.8351 14.40591646136997
+FUSE 1
+1 25791U 99035A   02028.93147652 +.00002479 +00000-0 +70929-3 0 04862
+2 25791 024.9876 290.1899 0010994 039.9697 320.1619 14.40589498136932
+FUSE 1
+1 25791U 99035A   02028.16943701  .00002474  00000-0  70791-3 0  4778
+2 25791  24.9876 294.8500 0011006  32.1353 327.9821 14.40585928136823
+FUSE 1
+1 25791U 99035A   02027.96161389 +.00002407 +00000-0 +68742-3 0 05050
+2 25791 024.9874 296.1287 0010582 028.3810 331.7529 14.40584028136795
+FUSE 1
+1 25791U 99035A   02026.92246706  .00002341  00000-0  66697-3 0  4763
+2 25791  24.9799 302.5272 0010059  16.0811 344.0013 14.40577732136644
+FUSE 1
+1 25791U 99035A   02025.39837504  .00002257  00000-0  64121-3 0  4750
+2 25791  24.9803 311.8488 0010138 359.9596   0.0915 14.40570421136423
+FUSE 1
+1 25791U 99035A   02024.22066220  .00002170  00000-0  61445-3 0  4749
+2 25791  24.9808 319.0539 0010178 346.9833  13.0414 14.40564803136255
+FUSE 1
+1 25791U 99035A   02023.94355340 +.00002127 +00000-0 +60118-3 0 04963
+2 25791 024.9808 320.7502 0010231 343.9239 016.0947 14.40563257136213
+FUSE 1
+1 25791U 99035A   02022.97366856 +.00002070 +00000-0 +58368-3 0 04746
+2 25791 024.9809 326.6854 0010289 333.5703 026.4279 14.40558911136071
+FUSE 1
+1 25791U 99035A   02022.90439095  .00002070  00000-0  58368-3 0  4734
+2 25791  24.9809 327.1090 0010289 332.8439  27.1535 14.40558648136066
+FUSE 1
+1 25791U 99035A   02021.93450374 +.00001972 +00000-0 +55342-3 0 04738
+2 25791 024.9815 333.0432 0010420 322.2211 037.7568 14.40554066135924
+FUSE 1
+1 25791U 99035A   02021.51883604  .00001971  00000-0  55294-3 0  4722
+2 25791  24.9815 335.5850 0010420 317.8920  42.0786 14.40552554135866
+FUSE 1
+1 25791U 99035A   02020.34111020  .00001902  00000-0  53176-3 0  4718
+2 25791  24.9819 342.7879 0010496 305.4885  54.4643 14.40547753135692
+FUSE 1
+1 25791U 99035A   02019.23265919  .00001870  00000-0  52196-3 0  4705
+2 25791  24.9819 349.5667 0010511 294.0221  65.9186 14.40543639135538
+FUSE 1
+1 25791U 99035A   02018.19348466  .00001814  00000-0  50458-3 0  4693
+2 25791  24.9822 355.9219 0010534 283.3551  76.5783 14.40539652135382
+FUSE 1
+1 25791U 99035A   02016.60007962  .00001743  00000-0  48297-3 0  4688
+2 25791  24.9823   5.6676 0010591 266.8378  93.0919 14.40533828135154
+FUSE 1
+1 25791U 99035A   02015.76873696 +.00001678 +00000-0 +46283-3 0 04713
+2 25791 024.9823 010.7535 0010644 258.3411 101.5912 14.40530615135034
+FUSE 1
+1 25791U 99035A   02015.56090099  .00001670  00000-0  46017-3 0  4671
+2 25791  24.9825  12.0258 0010623 256.2726 103.6602 14.40529913135001
+FUSE 1
+1 25791U 99035A   02014.59099802 +.00001637 +00000-0 +45017-3 0 04801
+2 25791 024.9827 017.9579 0010652 246.2520 113.6872 14.40526735134868
+FUSE 1
+1 25791U 99035A   02014.24460394  .00001618  00000-0  44436-3 0  4668
+2 25791  24.9826  20.0778 0010710 242.8070 117.1346 14.40525522134813
+FUSE 1
+1 25791U 99035A   02012.65118694  .00001644  00000-0  45243-3 0  4659
+2 25791  24.9821  29.8239 0010731 226.1513 133.8108 14.40521061134586
+FUSE 1
+1 25791U 99035A   02011.54272015  .00001715  00000-0  47438-3 0  4640
+2 25791  24.9815  36.6044 0010793 214.5223 145.4584 14.40518322134422
+FUSE 1
+1 25791U 99035A   02010.43425174  .00001799  00000-0  50019-3 0  4633
+2 25791  24.9809  43.3849 0010812 202.7174 157.2854 14.40515528134267
+FUSE 1
+1 25791U 99035A   02009.25649964  .00002024  00000-0  56982-3 0  4622
+2 25791  24.9789  50.5894 0010900 190.2577 169.7698 14.40513435134090
+FUSE 1
+1 25791U 99035A   02007.73234977  .00002144  00000-0  60706-3 0  4618
+2 25791  24.9780  59.9106 0010959 174.4447 185.6181 14.40508676133874
+FUSE 1
+1 25791U 99035A   02006.55459467  .00002207  00000-0  62629-3 0  4605
+2 25791  24.9776  67.1133 0010962 161.9239 198.1657 14.40504470133701
+FUSE 1
+1 25791U 99035A   02005.93107615 +.00002223 +00000-0 +63140-3 0 04899
+2 25791 024.9772 070.9268 0010959 155.3799 204.7234 14.40502008133612
+FUSE 1
+1 25791U 99035A   02005.23827537  .00002302  00000-0  65586-3 0  4595
+2 25791  24.9762  75.1663 0011117 148.7865 211.3305 14.40499774133511
+FUSE 1
+1 25791U 99035A   02003.92195234  .00002277  00000-0  64830-3 0  4582
+2 25791  24.9761  83.2157 0011128 134.9320 225.2086 14.40493934133324
+FUSE 1
+1 25791U 99035A   02002.88274676  .00002253  00000-0  64083-3 0  4577
+2 25791  24.9763  89.5747 0011378 124.3397 235.8189 14.40489372133179
+FUSE 1
+1 25791U 99035A   02001.91281822 +.00002146 +00000-0 +60789-3 0 04694
+2 25791 024.9768 095.5070 0011442 114.6843 245.4859 14.40484505133039
+FUSE 1
+1 25791U 99035A   02001.56641338  .00002152  00000-0  60976-3 0  4568
+2 25791  24.9764  97.6258 0011412 111.4641 248.7084 14.40483142132989
+FUSE 1
+1 25791U 99035A   01365.87360347 +.00002106 +00000-0 +59549-3 0 04723
+2 25791 024.9765 101.8629 0011436 104.3050 255.8720 14.40480024132882
+FUSE 1
+1 25791U 99035A   01365.52719815  .00002060  00000-0  58137-3 0  4555
+2 25791  24.9767 103.9819 0011371 101.3489 258.8298 14.40478294132833
+FUSE 1
+1 25791U 99035A   01364.14157199  .00001894  00000-0  53009-3 0  4549
+2 25791  24.9776 112.4568 0011372  87.4678 272.7139 14.40471893132639
+FUSE 1
+1 25791U 99035A   01362.89450064  .00001855  00000-0  51805-3 0  4534
+2 25791  24.9779 120.0847 0011421  75.1248 285.0524 14.40467329132453
+FUSE 1
+1 25791U 99035A   01361.92455302 +.00001831 +00000-0 +51089-3 0 04748
+2 25791 024.9778 126.0189 0011472 065.3088 294.8603 14.40463838132318
+FUSE 1
+1 25791U 99035A   01361.57814148  .00001900  00000-0  53207-3 0  4523
+2 25791  24.9772 128.1378 0011523  62.3118 297.8556 14.40463267132263
+FUSE 1
+1 25791U 99035A   01360.95460072 +.00001920 +00000-0 +53816-3 0 04716
+2 25791 024.9770 131.9515 0011492 055.8592 304.2995 14.40461264132179
+FUSE 1
+1 25791U 99035A   01360.53891054  .00002081  00000-0  58819-3 0  4513
+2 25791  24.9761 134.4940 0011549  52.3362 307.8493 14.40461175132116
+FUSE 1
+1 25791U 99035A   01360.19249807  .00001557  00000-0  42615-3 0  4501
+2 25791  24.9814 136.6178 0011030  44.8843 315.2554 14.40455881132069
+FUSE 1
+1 25791U 99035A   01358.87612700  .00001498  00000-0  40783-3 0  4495
+2 25791  24.9820 144.6693 0010973  30.9588 329.1578 14.40451843131876
+FUSE 1
+1 25791U 99035A   01357.55975188  .00001377  00000-0  37042-3 0  4480
+2 25791  24.9830 152.7226 0010843  16.8175 343.2692 14.40447508131686
+FUSE 1
+1 25791U 99035A   01356.24337185  .00001363  00000-0  36634-3 0  4474
+2 25791  24.9832 160.7748 0010783   3.1653 356.8921 14.40444244131497
+FUSE 1
+1 25791U 99035A   01355.13483804  .00001399  00000-0  37745-3 0  4463
+2 25791  24.9832 167.5556 0010791 351.3648   8.6665 14.40441877131339
+FUSE 1
+1 25791U 99035A   01353.88773524  .00001488  00000-0  40499-3 0  4452
+2 25791  24.9831 175.1848 0010716 338.1167  21.8882 14.40439533131157
+FUSE 1
+1 25791U 99035A   01352.91776521 +.00001536 +00000-0 +41984-3 0 04527
+2 25791 024.9828 181.1169 0010739 327.7733 032.2118 14.40437323131012
+FUSE 1
+1 25791U 99035A   01352.57134719  .00001547  00000-0  42314-3 0  4447
+2 25791  24.9827 183.2356 0010758 324.0828  35.8958 14.40436465130968
+FUSE 1
+1 25791U 99035A   01351.39352449  .00001601  00000-0  43981-3 0  4439
+2 25791  24.9825 190.4393 0010750 311.5670  48.3911 14.40433644130790
+FUSE 1
+1 25791U 99035A   01350.90853821 +.00001630 +00000-0 +44889-3 0 04570
+2 25791 024.9828 193.4057 0010738 306.2371 053.7148 14.40432555130723
+FUSE 1
+1 25791U 99035A   01350.21570001  .00001672  00000-0  46189-3 0  4425
+2 25791  24.9825 197.6430 0010796 298.8753  61.0671 14.40430851130624
+FUSE 1
+1 25791U 99035A   01349.17644244  .00001720  00000-0  47692-3 0  4412
+2 25791  24.9826 203.9992 0010810 288.0247  71.9089 14.40428119130475
+FUSE 1
+1 25791U 99035A   01348.13718358  .00001739  00000-0  48271-3 0  4408
+2 25791  24.9830 210.3552 0010817 277.4348  82.4917 14.40425082130322
+FUSE 1
+1 25791U 99035A   01346.95935558 +.00001792 +00000-0 +49923-3 0 04414
+2 25791 024.9832 217.5601 0010828 264.7976 095.1293 14.40421820130151
+FUSE 1
+1 25791U 99035A   01346.89007156  .00001798  00000-0  50103-3 0  4396
+2 25791  24.9831 217.9838 0010822 264.0722  95.8552 14.40421637130142
+FUSE 1
+1 25791U 99035A   01345.92009452 +.00001804 +00000-0 +50297-3 0 04561
+2 25791 024.9834 223.9163 0010848 253.7226 106.2093 14.40418551130008
+FUSE 1
+1 25791U 99035A   01345.50438976  .00001829  00000-0  51074-3 0  4383
+2 25791  24.9833 226.4598 0010750 249.3404 110.5947 14.40417367129949
+FUSE 1
+1 25791U 99035A   01344.95011669 +.00001830 +00000-0 +51089-3 0 04543
+2 25791 024.9832 229.8499 0010756 243.5301 116.4117 14.40415519129865
+FUSE 1
+1 25791U 99035A   01344.18799003  .00001792  00000-0  49923-3 0  4375
+2 25791  24.9834 234.5123 0010818 235.5423 124.4062 14.40412721129757
+FUSE 1
+1 25791U 99035A   01343.14872416  .00001816  00000-0  50671-3 0  4368
+2 25791  24.9837 240.8680 0010867 223.8806 136.0838 14.40409582129602
+FUSE 1
+1 25791U 99035A   01341.90160523  .00001680  00000-0  46452-3 0  4359
+2 25791  24.9841 248.4975 0010871 211.3142 148.6721 14.40404442129428
+FUSE 1
+1 25791U 99035A   01340.93162024 +.00001621 +00000-0 +44627-3 0 04479
+2 25791 024.9843 254.4284 0010863 200.7838 159.2234 14.40401129129285
+FUSE 1
+1 25791U 99035A   01340.37734226  .00001562  00000-0  42806-3 0  4343
+2 25791  24.9846 257.8173 0010861 194.8366 165.1825 14.40399138129209
+FUSE 1
+1 25791U 99035A   01339.19949999  .00001406  00000-0  37978-3 0  4336
+2 25791  24.9853 265.0213 0010893 182.8071 177.2377 14.40394882129036
+FUSE 1
+1 25791U 99035A   01337.95236873  .00001264  00000-0  33601-3 0  4328
+2 25791  24.9859 272.6472 0011030 169.6495 190.4242 14.40391020128858
+FUSE 1
+1 25791U 99035A   01336.98237488 +.00001205 +00000-0 +31765-3 0 04350
+2 25791 024.9862 278.5777 0011067 159.5220 200.5735 14.40388553128711
+FUSE 1
+1 25791U 99035A   01336.91308955  .00001199  00000-0  31585-3 0  4319
+2 25791  24.9862 279.0014 0011071 158.8008 201.2962 14.40388365128702
+FUSE 1
+1 25791U 99035A   01335.52738000  .00001234  00000-0  32682-3 0  4301
+2 25791  24.9862 287.4731 0011104 144.1718 215.9555 14.40385754128501
+FUSE 1
+1 25791U 99035A   01334.21095244  .00001172  00000-0  30740-3 0  4294
+2 25791  24.9865 295.5226 0011153 130.8481 229.2994 14.40382693128319
+FUSE 1
+1 25791U 99035A   01333.17166461  .00001237  00000-0  32780-3 0  4285
+2 25791  24.9866 301.8786 0011197 121.1081 239.0526 14.40380912128164
+FUSE 1
+1 25791U 99035A   01331.78594478  .00001365  00000-0  36732-3 0  4275
+2 25791  24.9865 310.3519 0011209 106.8472 253.3273 14.40378324127969
+FUSE 1
+1 25791U 99035A   01330.67736645 +.00001415 +00000-0 +38296-3 0 04303
+2 25791 024.9868 317.1335 0011064 094.8355 265.3420 14.40375646127802
+FUSE 1
+1 25791U 99035A   01330.53879352  .00001567  00000-0  43006-3 0  4269
+2 25791  24.9872 317.9818 0011229  93.6128 266.5666 14.40376029127787
+FUSE 1
+1 25791U 99035A   01329.70735725 +.00001621 +00000-0 +44667-3 0 04457
+2 25791 024.9872 323.0652 0011232 084.6461 275.5327 14.40373883127661
+FUSE 1
+1 25791U 99035A   01329.22235264  .00001585  00000-0  43552-3 0  4256
+2 25791  24.9876 326.0324 0011267  80.2956 279.8829 14.40372335127590
+FUSE 1
+1 25791U 99035A   01327.83661937  .00001684  00000-0  46626-3 0  4245
+2 25791  24.9875 334.5052 0011431  65.9356 294.2344 14.40369004127398
+FUSE 1
+1 25791U 99035A   01326.52016884  .00001740  00000-0  48380-3 0  4236
+2 25791  24.9874 342.5535 0011585  52.2073 307.9485 14.40365366127202
+FUSE 1
+1 25791U 99035A   01325.41157411  .00001880  00000-0  52699-3 0  4227
+2 25791  24.9858 349.3412 0010869  41.2944 318.8383 14.40362474127049
+FUSE 1
+1 25791U 99035A   01324.92656363 +.00001916 +00000-0 +53838-3 0 04486
+2 25791 024.9856 352.3075 0010879 036.2259 323.8984 14.40361028126978
+FUSE 1
+1 25791U 99035A   01324.23369056  .00001967  00000-0  55417-3 0  4212
+2 25791  24.9855 356.5485 0010758  28.8088 331.3014 14.40358919126873
+FUSE 1
+1 25791U 99035A   01323.67939132 +.00001961 +00000-0 +55223-3 0 04407
+2 25791 024.9854 359.9372 0010776 023.0532 337.0460 14.40356881126790
+FUSE 1
+1 25791U 99035A   01322.70936542  .00001987  00000-0  56035-3 0  4198
+2 25791  24.9853   5.8688 0010772  12.9432 347.1352 14.40353526126658
+FUSE 1
+1 25791U 99035A   01321.67005005  .00001934  00000-0  54405-3 0  4184
+2 25791  24.9852  12.2257 0010726   1.9216 358.1340 14.40349375126508
+FUSE 1
+1 25791U 99035A   01320.56144300  .00001920  00000-0  53980-3 0  4174
+2 25791  24.9852  19.0058 0010683 350.0478   9.9818 14.40345343126346
+FUSE 1
+1 25791U 99035A   01319.52212142  .00001855  00000-0  51954-3 0  4163
+2 25791  24.9851  25.3612 0010623 338.9778  21.0292 14.40341342126192
+FUSE 1
+1 25791U 99035A   01318.82923904 +.00001856 +00000-0 +52003-3 0 04314
+2 25791 024.9847 029.5994 0010595 331.5863 028.4066 14.40338911126095
+FUSE 1
+1 25791U 99035A   01318.41350910  .00001890  00000-0  53052-3 0  4155
+2 25791  24.9848  32.1452 0010575 326.5664  33.4173 14.40337609126038
+FUSE 1
+1 25791U 99035A   01316.88916357  .00001729  00000-0  48061-3 0  4141
+2 25791  24.9843  41.4680 0010423 310.4505  49.5094 14.40331762125816
+FUSE 1
+1 25791U 99035A   01315.78054605  .00002207  00000-0  62878-3 0  4131
+2 25791  24.9835  48.2543 0010468 297.9246  62.0232 14.40329121125652
+FUSE 1
+1 25791U 99035A   01314.67192519  .00002266  00000-0  64699-3 0  4122
+2 25791  24.9832  55.0359 0010699 286.0302  73.9029 14.40324776125496
+FUSE 1
+1 25791U 99035A   01313.56330279  .00002157  00000-0  61343-3 0  4117
+2 25791  24.9831  61.8147 0010834 274.3350  85.5922 14.40319729125335
+FUSE 1
+1 25791U 99035A   01312.52396703  .00002119  00000-0  60174-3 0  4104
+2 25791  24.9829  68.1695 0010860 263.6572  96.2701 14.40315363125183
+FUSE 1
+1 25791U 99035A   01311.76178660 +.00001972 +00000-0 +55623-3 0 04344
+2 25791 024.9830 072.8283 0010752 255.8544 104.0769 14.40311922125079
+FUSE 1
+1 25791U 99035A   01310.99960448  .00001931  00000-0  54345-3 0  4098
+2 25791  24.9829  77.4894 0010755 247.9477 111.9889 14.40308978124960
+FUSE 1
+1 25791U 99035A   01309.96026276 +.00001965 +00000-0 +55405-3 0 04090
+2 25791 024.9829 083.8473 0010851 237.1463 122.8002 14.40305487124811
+FUSE 1
+1 25791U 99035A   01309.89097339  .00001972  00000-0  55619-3 0  4084
+2 25791  24.9829  84.2713 0010836 236.3815 123.5665 14.40305298124800
+FUSE 1
+1 25791U 99035A   01308.57447006  .00002179  00000-0  62044-3 0  4077
+2 25791  24.9822  92.3254 0010825 222.6458 137.3208 14.40301956124614
+FUSE 1
+1 25791U 99035A   01307.53512328  .00002351  00000-0  67374-3 0  4064
+2 25791  24.9814  98.6808 0010806 211.6998 148.2862 14.40299019124461
+FUSE 1
+1 25791U 99035A   01305.94145638 +.00002419 +00000-0 +69493-3 0 04062
+2 25791 024.9809 108.4263 0010833 195.2773 164.7418 14.40292404124234
+FUSE 1
+1 25791U 99035A   01305.87216636  .00002410  00000-0  69213-3 0  4051
+2 25791  24.9811 108.8509 0010847 194.5526 165.4669 14.40292047124225
+FUSE 1
+1 25791U 99035A   01304.90210496 +.00002483 +00000-0 +71481-3 0 04210
+2 25791 024.9807 114.7853 0010812 184.6053 175.4356 14.40288074124088
+FUSE 1
+1 25791U 99035A   01304.55565381  .00002564  00000-0  73991-3 0  4046
+2 25791  24.9803 116.9068 0010808 180.8733 179.1763 14.40287007124037
+FUSE 1
+1 25791U 99035A   01303.93204085 +.00002548 +00000-0 +73522-3 0 04141
+2 25791 024.9803 120.7190 0010799 174.3529 185.7099 14.40283909123947
+FUSE 1
+1 25791U 99035A   01303.03126575  .00002520  00000-0  72659-3 0  4037
+2 25791  24.9800 126.2295 0010755 164.6304 195.4536 14.40279287123810
+FUSE 1
+1 25791U 99035A   01301.78402958  .00002608  00000-0  75393-3 0  4023
+2 25791  24.9799 133.8566 0011062 153.3348 206.7722 14.40274032123633
+FUSE 1
+1 25791U 99035A   01299.91316810  .00002915  00000-0  84930-3 0  4012
+2 25791  24.9792 145.2965 0011048 134.0555 226.0864 14.40265988123368
+FUSE 1
+1 25791U 99035A   01298.18087804  .00003212  00000-0  94181-3 0  4007
+2 25791  24.9785 155.8916 0011040 115.9737 244.1911 14.40256974123117
+FUSE 1
+1 25791U 99035A   01297.97300262 +.00003234 +00000-0 +94848-3 0 04115
+2 25791 024.9787 157.1643 0011055 113.7776 246.3895 14.40255785123086
+FUSE 1
+1 25791U 99035A   01297.07220791  .00002684  00000-0  77791-3 0  3995
+2 25791  24.9787 162.6747 0010929 104.4008 255.7717 14.40248557122957
+FUSE 1
+1 25791U 99035A   01295.96352986 +.00002126 +00000-0 +60489-3 0 04025
+2 25791 024.9793 169.4508 0010628 092.8140 267.3584 14.40240931122798
+FUSE 1
+1 25791U 99035A   01295.89423827  .00002043  00000-0  57915-3 0  3982
+2 25791  24.9794 169.8749 0010644  91.9762 268.1968 14.40240146122780
+FUSE 1
+1 25791U 99035A   01294.92413976 +.00001853 +00000-0 +51998-3 0 04152
+2 25791 024.9798 175.8066 0010633 081.1941 278.9772 14.40235323122649
+FUSE 1
+1 25791U 99035A   01294.30050214  .00001823  00000-0  51089-3 0  3973
+2 25791  24.9799 179.6196 0010702  74.5779 285.5911 14.40232995122559
+FUSE 1
+1 25791U 99035A   01293.26110316  .00001744  00000-0  48616-3 0  3960
+2 25791  24.9799 185.9754 0010658  63.5604 296.6004 14.40228963122404
+FUSE 1
+1 25791U 99035A   01292.22169993  .00001707  00000-0  47471-3 0  3956
+2 25791  24.9799 192.3301 0010648  52.4658 307.6827 14.40225399122258
+FUSE 1
+1 25791U 99035A   01290.97441176 +.00001672 +00000-0 +46391-3 0 03975
+2 25791 024.9797 199.9582 0010599 039.1258 321.0014 14.40221249122071
+FUSE 1
+1 25791U 99035A   01290.90511781  .00001674  00000-0  46472-3 0  3947
+2 25791  24.9797 200.3818 0010601  38.3799 321.7462 14.40221053122061
+FUSE 1
+1 25791U 99035A   01289.44994252  .00001682  00000-0  46703-3 0  3937
+2 25791  24.9794 209.2810 0010620  22.7711 337.3265 14.40216632121857
+FUSE 1
+1 25791U 99035A   01288.96488349 +.00001640 +00000-0 +45420-3 0 04039
+2 25791 024.9794 212.2491 0010567 017.4224 342.6645 14.40214807121781
+FUSE 1
+1 25791U 99035A   01288.41052915  .00001638  00000-0  45357-3 0  3928
+2 25791  24.9794 215.6384 0010635  11.8186 348.2573 14.40213128121709
+FUSE 1
+1 25791U 99035A   01287.23252352  .00001574  00000-0  43355-3 0  3918
+2 25791  24.9794 222.8447 0010562 358.4459   1.6013 14.40209149121539
+FUSE 1
+1 25791U 99035A   01285.91592729  .00001390  00000-0  37646-3 0  3907
+2 25791  24.9795 230.9044 0010544 342.9330  17.0829 14.40203938121344
+FUSE 1
+1 25791U 99035A   01284.39144118  .00001300  00000-0  34838-3 0  3892
+2 25791  24.9795 240.2335 0010739 326.2228  33.7597 14.40199484121121
+FUSE 1
+1 25791U 99035A   01283.97567245 +.00001223 +00000-0 +32457-3 0 03894
+2 25791 024.9792 242.7798 0010828 320.9649 039.0093 14.40197815121064
+FUSE 1
+1 25791U 99035A   01283.35201646  .00001212  00000-0  32118-3 0  3887
+2 25791  24.9792 246.5916 0010829 314.6054  45.3576 14.40196427120972
+FUSE 1
+1 25791U 99035A   01282.31258856 +.00001218 +00000-0 +32310-3 0 03876
+2 25791 024.9792 252.9458 0010895 303.3438 056.6026 14.40194305120820
+FUSE 1
+1 25791U 99035A   01281.96611121 +.00001476 +00000-0 +40318-3 0 03877
+2 25791 024.9786 255.0631 0010800 300.4688 059.4739 14.40195140120775
+FUSE 1
+1 25791U 99035A   01281.27315947  .00001503  00000-0  41154-3 0  3867
+2 25791  24.9785 259.2981 0010800 293.1387  66.7977 14.40193471120671
+FUSE 1
+1 25791U 99035A   01280.23373114  .00001657  00000-0  45958-3 0  3857
+2 25791  24.9781 265.6543 0010925 282.3330  77.5954 14.40191161120521
+FUSE 1
+1 25791U 99035A   01279.19430003  .00002067  00000-0  58705-3 0  3840
+2 25791  24.9775 272.0130 0011160 270.5332  89.3900 14.40189300120378
+FUSE 1
+1 25791U 99035A   01277.60050645  .00002136  00000-0  60847-3 0  3830
+2 25791  24.9771 281.7563 0011259 253.7403 106.1876 14.40183292120141
+FUSE 1
+1 25791U 99035A   01276.69966572 +.00002038 +00000-0 +57797-3 0 03834
+2 25791 024.9770 287.2658 0011436 244.9457 114.9868 14.40179081120019
+FUSE 1
+1 25791U 99035A   01276.56107445  .00002038  00000-0  57794-3 0  3822
+2 25791  24.9770 288.1132 0011429 243.5500 116.3834 14.40178557119993
+FUSE 1
+1 25791U 99035A   01275.59093557 +.00002005 +00000-0 +56772-3 0 03900
+2 25791 024.9769 294.0432 0011469 233.5602 126.3872 14.40174627119858
+FUSE 1
+1 25791U 99035A   01275.24445817  .00001894  00000-0  53340-3 0  3815
+2 25791  24.9772 296.1661 0011642 231.1207 128.8260 14.40172274119806
+FUSE 1
+1 25791U 99035A   01274.20502117  .00001837  00000-0  51559-3 0  3803
+2 25791  24.9774 302.5234 0011565 220.9357 139.0293 14.40168098119654
+FUSE 1
+1 25791U 99035A   01272.54191528  .00001742  00000-0  48618-3 0  3793
+2 25791  24.9776 312.6900 0011479 204.0234 155.9738 14.40161743119414
+FUSE 1
+1 25791U 99035A   01271.22528748  .00001537  00000-0  42239-3 0  3789
+2 25791  24.9783 320.7396 0011360 191.6142 168.4111 14.40155760119224
+FUSE 1
+1 25791U 99035A   01270.18584050  .00001414  00000-0  38420-3 0  3771
+2 25791  24.9786 327.0943 0011214 181.1674 178.8811 14.40151731119076
+FUSE 1
+1 25791U 99035A   01268.59201413  .00001316  00000-0  35376-3 0  3769
+2 25791  24.9790 336.8359 0011124 164.6593 195.4255 14.40146964118849
+FUSE 1
+1 25791U 99035A   01267.55255878  .00001264  00000-0  33768-3 0  3752
+2 25791  24.9791 343.1899 0011084 153.8979 206.2088 14.40144164118691
+FUSE 1
+1 25791U 99035A   01266.85958720 +.00001236 +00000-0 +32881-3 0 04003
+2 25791 024.9791 347.4254 0011062 146.6571 213.4636 14.40142395118599
+FUSE 1
+1 25791U 99035A   01266.23591181  .00001222  00000-0  32443-3 0  3748
+2 25791  24.9790 351.2395 0010997 140.3022 219.8292 14.40140919118504
+FUSE 1
+1 25791U 99035A   01264.84996263  .00001228  00000-0  32643-3 0  3730
+2 25791  24.9790 359.7127 0010966 126.1194 234.0331 14.40138072118306
+FUSE 1
+1 25791U 99035A   01263.81049784  .00001251  00000-0  33374-3 0  3720
+2 25791  24.9787   6.0658 0010961 115.2876 244.8774 14.40136053118154
+FUSE 1
+1 25791U 99035A   01262.90962669 +.00001258 +00000-0 +33575-3 0 03770
+2 25791 024.9786 011.5725 0010944 105.8616 254.3099 14.40134145118029
+FUSE 1
+1 25791U 99035A   01262.56313782  .00001225  00000-0  32562-3 0  3711
+2 25791  24.9789  13.6910 0010897 102.2762 257.8965 14.40133131117978
+FUSE 1
+1 25791U 99035A   01261.73156198 +.00001238 +00000-0 +32981-3 0 03916
+2 25791 024.9787 018.7732 0010906 093.5350 266.6406 14.40131469117857
+FUSE 1
+1 25791U 99035A   01260.76138915  .00001191  00000-0  31510-3 0  3707
+2 25791  24.9789  24.7033 0010879  83.2256 276.9490 14.40129023117715
+FUSE 1
+1 25791U 99035A   01259.92981039 +.00001175 +00000-0 +31013-3 0 03874
+2 25791 024.9786 029.7863 0010871 074.4468 285.7243 14.40127147117592
+FUSE 1
+1 25791U 99035A   01259.58331925  .00001147  00000-0  30130-3 0  3697
+2 25791  24.9787  31.9057 0010852  70.6480 289.5197 14.40126176117540
+FUSE 1
+1 25791U 99035A   01258.95963335 +.00001144 +00000-0 +30044-3 0 03874
+2 25791 024.9786 035.7176 0010865 064.0853 296.0773 14.40124921117457
+FUSE 1
+1 25791U 99035A   01258.54384331  .00001102  00000-0  28749-3 0  3684
+2 25791  24.9787  38.2594 0010849  59.6296 300.5294 14.40123716117396
+FUSE 1
+1 25791U 99035A   01256.88067564  .00001029  00000-0  26472-3 0  3673
+2 25791  24.9789  48.4246 0010881  42.1181 318.0162 14.40120076117159
+FUSE 1
+1 25791U 99035A   01255.84119312 +.00000982 +00000-0 +24994-3 0 03828
+2 25791 024.9791 054.7780 0010906 031.2706 328.8450 14.40117913117004
+FUSE 1
+1 25791U 99035A   01255.56399752  .00000973  00000-0  24725-3 0  3669
+2 25791  24.9790  56.4726 0010911  28.3803 331.7300 14.40117363116963
+FUSE 1
+1 25791U 99035A   01254.17801710  .00000928  00000-0  23335-3 0  3652
+2 25791  24.9790  64.9453 0010913  13.8647 346.2161 14.40114762116765
+FUSE 1
+1 25791U 99035A   01253.13853000  .00000871  00000-0  21540-3 0  3648
+2 25791  24.9793  71.2996 0010924   2.8497 357.2074 14.40112768116617
+FUSE 1
+1 25791U 99035A   01251.89114396  .00000824  00000-0  20070-3 0  3631
+2 25791  24.9796  78.9282 0010899 349.5744  10.4536 14.40110640116437
+FUSE 1
+1 25791U 99035A   01250.57445682  .00000789  00000-0  18992-3 0  3629
+2 25791  24.9798  86.9794 0010848 335.6563  24.3436 14.40108640116244
+FUSE 1
+1 25791U 99035A   01249.39636695  .00000757  00000-0  18011-3 0  3619
+2 25791  24.9802  94.1822 0010810 323.2224  36.7543 14.40106962116071
+FUSE 1
+1 25791U 99035A   01248.91127102 +.00000751 +00000-0 +17803-3 0 03830
+2 25791 024.9803 097.1479 0010787 318.2500 041.7192 14.40106349116005
+FUSE 1
+1 25791U 99035A   01248.21827703  .00000711  00000-0  16549-3 0  3604
+2 25791  24.9806 101.3869 0010851 311.0280  48.9290 14.40105201115909
+FUSE 1
+1 25791U 99035A   01247.94107926 +.00000692 +00000-0 +15961-3 0 03998
+2 25791 024.9808 103.0812 0010848 308.0548 051.8982 14.40104743115863
+FUSE 1
+1 25791U 99035A   01246.97088639 +.00000665 +00000-0 +15119-3 0 03624
+2 25791 024.9811 109.0135 0010822 297.4688 062.4719 14.40103568115724
+FUSE 1
+1 25791U 99035A   01246.90158683  .00000665  00000-0  15140-3 0  3594
+2 25791  24.9811 109.4371 0010823 296.7486  63.1913 14.40103507115715
+FUSE 1
+1 25791U 99035A   01245.86209396  .00000696  00000-0  16089-3 0  3582
+2 25791  24.9808 115.7946 0010841 285.1746  74.7568 14.40102728115561
+FUSE 1
+1 25791U 99035A   01244.47610489  .00000659  00000-0  14935-3 0  3573
+2 25791  24.9811 124.2700 0010831 270.7608  89.1659 14.40100949115366
+FUSE 1
+1 25791U 99035A   01243.36731275  .00000662  00000-0  15021-3 0  3567
+2 25791  24.9811 131.0482 0010866 258.9721 100.9574 14.40099892115206
+FUSE 1
+1 25791U 99035A   01242.25852056  .00000648  00000-0  14586-3 0  3553
+2 25791  24.9814 137.8264 0010894 247.3559 112.5794 14.40098711115047
+FUSE 1
+1 25791U 99035A   01241.98132292 +.00000630 +00000-0 +14046-3 0 03737
+2 25791 024.9816 139.5223 0010941 244.5808 115.3567 14.40098300115001
+FUSE 1
+1 25791U 99035A   01241.21902828  .00000629  00000-0  14009-3 0  3549
+2 25791  24.9817 144.1835 0011009 236.5844 123.3610 14.40097610114897
+FUSE 1
+1 25791U 99035A   01239.97163784 +.00000567 +00000-0 +12075-3 0 03541
+2 25791 024.9822 151.8119 0011137 224.0036 135.9578 14.40096009114714
+FUSE 1
+1 25791U 99035A   01239.90233840  .00000573  00000-0  12271-3 0  3539
+2 25791  24.9822 152.2355 0011140 223.3426 136.6211 14.40096007114709
+FUSE 1
+1 25791U 99035A   01238.93214506 +.00000578 +00000-0 +12417-3 0 03569
+2 25791 024.9822 158.1667 0011192 213.0996 146.8828 14.40095287114565
+FUSE 1
+1 25791U 99035A   01238.44704821  .00000558  00000-0  11791-3 0  3527
+2 25791  24.9823 161.1314 0011195 208.1454 151.8451 14.40094733114491
+FUSE 1
+1 25791U 99035A   01237.19965619  .00000543  00000-0  11309-3 0  3510
+2 25791  24.9826 168.7556 0011260 195.0033 165.0141 14.40093691114311
+FUSE 1
+1 25791U 99035A   01235.46716564  .00000559  00000-0  11830-3 0  3506
+2 25791  24.9826 179.3436 0011265 177.0928 182.9645 14.40092549114064
+FUSE 1
+1 25791U 99035A   01234.91276874 +.00000555 +00000-0 +11697-3 0 03518
+2 25791 024.9826 182.7322 0011267 171.3778 188.6930 14.40092091113980
+FUSE 1
+1 25791U 99035A   01234.21977186  .00000553  00000-0  11627-3 0  3493
+2 25791  24.9827 186.9667 0011270 164.0792 196.0070 14.40091557113881
+FUSE 1
+1 25791U 99035A   01233.18027640  .00000553  00000-0  11642-3 0  3485
+2 25791  24.9827 193.3193 0011293 153.2255 206.8853 14.40090779113734
+FUSE 1
+1 25791U 99035A   01231.72498050  .00000562  00000-0  11920-3 0  3478
+2 25791  24.9824 202.2156 0011301 138.1751 221.9616 14.40089739113529
+FUSE 1
+1 25791U 99035A   01230.54688298  .00000525  00000-0  10770-3 0  3462
+2 25791  24.9834 209.4179 0011313 126.3801 233.7753 14.40088665113353
+FUSE 1
+1 25791U 99035A   01229.23018362  .00000520  00000-0  10610-3 0  3452
+2 25791  24.9836 217.4680 0011315 112.6116 247.5590 14.40087703113163
+FUSE 1
+1 25791U 99035A   01228.81438323 +.00000515 +00000-0 +10467-3 0 03665
+2 25791 024.9835 220.0093 0011311 108.2127 251.9609 14.40087362113104
+FUSE 1
+1 25791U 99035A   01227.84418190  .00000497  00000-0  98977-4 0  3445
+2 25791  24.9840 225.9413 0011274  98.5742 261.6044 14.40086582112969
+FUSE 1
+1 25791U 99035A   01226.66607788 +.00000493 +00000-0 +97886-4 0 03463
+2 25791 024.9839 233.1408 0011275 086.3501 273.8298 14.40085796112794
+FUSE 1
+1 25791U 99035A   01226.52747722  .00000492  00000-0  97361-4 0  3435
+2 25791  24.9840 233.9884 0011272  84.8774 275.3014 14.40085704112774
+FUSE 1
+1 25791U 99035A   01225.21077022  .00000514  00000-0  10445-3 0  3420
+2 25791  24.9840 242.0362 0011245  71.4518 288.7213 14.40085082112581
+FUSE 1
+1 25791U 99035A   01223.89406193  .00000470  00000-0  90604-4 0  3413
+2 25791  24.9848 250.0849 0011117  57.6806 302.4776 14.40083898112392
+FUSE 1
+1 25791U 99035A   01222.78525341  .00000440  00000-0  81399-4 0  3404
+2 25791  24.9853 256.8629 0011047  46.0947 314.0477 14.40083059112237
+FUSE 1
+1 25791U 99035A   01221.95364609 +.00000421 +00000-0 +75317-4 0 03435
+2 25791 024.9857 261.9471 0011006 037.3315 322.7958 14.40082476112119
+FUSE 1
+1 25791U 99035A   01221.53784190  .00000421  00000-0  75510-4 0  3390
+2 25791  24.9858 264.4889 0010990  32.9399 327.1792 14.40082299112056
+FUSE 1
+1 25791U 99035A   01220.98343688 +.00000390 +00000-0 +65848-4 0 03579
+2 25791 024.9859 267.8782 0010962 026.9957 333.1120 14.40081738111977
+FUSE 1
+1 25791U 99035A   01220.22112886  .00000387  00000-0  64765-4 0  3382
+2 25791  24.9860 272.5393 0010909  18.8496 341.2417 14.40081380111869
+FUSE 1
+1 25791U 99035A   01218.97371408  .00000391  00000-0  65912-4 0  3377
+2 25791  24.9861 280.1628 0010876   5.5029 354.5594 14.40080902111686
+FUSE 1
+1 25791U 99035A   01217.86490136  .00000373  00000-0  60393-4 0  3361
+2 25791  24.9866 286.9411 0010853 353.7666   6.2707 14.40080339111529
+FUSE 1
+1 25791U 99035A   01216.82538872  .00000371  00000-0  59777-4 0  3357
+2 25791  24.9868 293.2962 0010793 342.5968  17.4161 14.40079940111374
+FUSE 1
+1 25791U 99035A   01215.57797329  .00000400  00000-0  68747-4 0  3341
+2 25791  24.9867 300.9214 0010734 329.1452  30.8424 14.40079711111190
+FUSE 1
+1 25791U 99035A   01214.88496511 +.00000411 +00000-0 +72102-4 0 03738
+2 25791 024.9865 305.1569 0010752 321.8056 038.1700 14.40079469111094
+FUSE 1
+1 25791U 99035A   01213.91475370 +.00000418 +00000-0 +74537-4 0 03349
+2 25791 024.9864 311.0878 0010770 311.6786 048.2800 14.40079073110957
+FUSE 1
+1 25791U 99035A   01213.84545284  .00000418  00000-0  74517-4 0  3330
+2 25791  24.9864 311.5114 0010770 310.9520  49.0052 14.40079040110944
+FUSE 1
+1 25791U 99035A   01212.94454257 +.00000434 +00000-0 +79248-4 0 03344
+2 25791 024.9864 317.0188 0010768 301.3288 058.6164 14.40078734110813
+FUSE 1
+1 25791U 99035A   01212.80594067  .00000444  00000-0  82373-4 0  3325
+2 25791  24.9863 317.8657 0010766 299.6889  60.2542 14.40078761110791
+FUSE 1
+1 25791U 99035A   01211.90503055 +.00000468 +00000-0 +90090-4 0 03446
+2 25791 024.9863 323.3726 0010776 290.0365 069.8977 14.40078499110666
+FUSE 1
+1 25791U 99035A   01211.55852704  .00000460  00000-0  87431-4 0  3318
+2 25791  24.9864 325.4904 0010823 286.2525  73.6791 14.40078234110615
+FUSE 1
+1 25791U 99035A   01210.93482022 +.00000472 +00000-0 +91278-4 0 03633
+2 25791 024.9864 329.3017 0010848 279.6419 080.2862 14.40077996110525
+FUSE 1
+1 25791U 99035A   01210.17251264  .00000478  00000-0  93199-4 0  3305
+2 25791  24.9863 333.9619 0010873 271.6318  88.2943 14.40077601110410
+FUSE 1
+1 25791U 99035A   01208.85579991  .00000490  00000-0  96802-4 0  3293
+2 25791  24.9866 342.0099 0010922 257.5431 102.3853 14.40076934110225
+FUSE 1
+1 25791U 99035A   01207.81629030  .00000501  00000-0  10023-3 0  3280
+2 25791  24.9867 348.3635 0010966 246.5884 113.3470 14.40076398110073
+FUSE 1
+1 25791U 99035A   01206.91538249 +.00000508 +00000-0 +10250-3 0 03415
+2 25791 024.9866 353.8713 0010987 237.1497 122.7945 14.40075887109946
+FUSE 1
+1 25791U 99035A   01206.56887963  .00000511  00000-0  10326-3 0  3278
+2 25791  24.9867 355.9893 0011012 233.5318 126.4174 14.40075691109893
+FUSE 1
+1 25791U 99035A   01205.87587337 +.00000527 +00000-0 +10839-3 0 03505
+2 25791 024.9868 000.2251 0011076 226.2868 133.6720 14.40075413109799
+FUSE 1
+1 25791U 99035A   01205.25216864  .00000510  00000-0  10313-3 0  3263
+2 25791  24.9867   4.0363 0011090 219.8115 140.1582 14.40074798109708
+FUSE 1
+1 25791U 99035A   01203.93545728 +.00000516 +00000-0 +10479-3 0 03269
+2 25791 024.9866 012.0811 0011114 206.0591 153.9357 14.40073969109517
+FUSE 1
+1 25791U 99035A   01203.86615663  .00000516  00000-0  10479-3 0  3256
+2 25791  24.9866  12.5045 0011114 205.3331 154.6628 14.40073923109503
+FUSE 1
+1 25791U 99035A   01202.96524958 +.00000508 +00000-0 +10233-3 0 03486
+2 25791 024.9865 018.0111 0011154 196.1382 163.8780 14.40073233109374
+FUSE 1
+1 25791U 99035A   01202.54944641  .00000493  00000-0  97826-4 0  3246
+2 25791  24.9863  20.5527 0011169 191.8050 168.2200 14.40072784109311
+FUSE 1
+1 25791U 99035A   01201.16343360  .00000507  00000-0  10206-3 0  3235
+2 25791  24.9866  29.0225 0011223 177.3906 182.6661 14.40072075109115
+FUSE 1
+1 25791U 99035A   01200.12393049  .00000384  00000-0  63784-4 0  3221
+2 25791  24.9826  35.4045 0011352 165.2759 194.8082 14.40070335108968
+FUSE 1
+1 25791U 99035A   01198.94581712 +.00000454 +00000-0 +85448-4 0 03255
+2 25791 024.9819 042.6054 0011509 153.7866 206.3225 14.40070361108793
+FUSE 1
+1 25791U 99035A   01198.87651654  .00000454  00000-0  85668-4 0  3210
+2 25791  24.9819  43.0290 0011506 153.0511 207.0603 14.40070330108780
+FUSE 1
+1 25791U 99035A   01197.90630513 +.00000543 +00000-0 +11321-3 0 03251
+2 25791 024.9814 048.9614 0011667 143.2067 216.9249 14.40070553108641
+FUSE 1
+1 25791U 99035A   01197.83700416  .00000546  00000-0  11423-3 0  3204
+2 25791  24.9813  49.3856 0011672 142.5933 217.5379 14.40070523108630
+FUSE 1
+1 25791U 99035A   01196.93609183 +.00000693 +00000-0 +16016-3 0 03423
+2 25791 024.9796 054.8902 0011793 132.6084 227.5393 14.40070954108505
+FUSE 1
+1 25791U 99035A   01196.45099063  .00000473  00000-0  91615-4 0  3199
+2 25791  24.9825  57.8656 0011228 128.4789 231.6720 14.40068671108430
+FUSE 1
+1 25791U 99035A   01195.20357322  .00000505  00000-0  10164-3 0  3180
+2 25791  24.9825  65.4916 0011215 116.0156 244.1500 14.40068220108256
+FUSE 1
+1 25791U 99035A   01194.02545613  .00000499  00000-0  99733-4 0  3172
+2 25791  24.9826  72.6920 0011188 103.4129 256.7628 14.40067381108089
+FUSE 1
+1 25791U 99035A   01193.95615541 +.00000494 +00000-0 +98068-4 0 03356
+2 25791 024.9827 073.1157 0011179 102.6649 257.5123 14.40067286108078
+FUSE 1
+1 25791U 99035A   01192.50083132  .00000493  00000-0  97812-4 0  3165
+2 25791  24.9831  82.0131 0011146  87.3221 272.8568 14.40066408107867
+FUSE 1
+1 25791U 99035A   01191.94642156 +.00000499 +00000-0 +99730-4 0 03267
+2 25791 024.9831 085.4021 0011170 081.6595 278.5190 14.40066125107781
+FUSE 1
+1 25791U 99035A   01191.18410683  .00000513  00000-0  10412-3 0  3155
+2 25791  24.9835  90.0635 0011114  74.2217 285.9515 14.40065843107672
+FUSE 1
+1 25791U 99035A   01190.14458616  .00000519  00000-0  10586-3 0  3145
+2 25791  24.9834  96.4153 0011128  63.2236 296.9407 14.40065179107528
+FUSE 1
+1 25791U 99035A   01188.89716000  .00000517  00000-0  10535-3 0  3139
+2 25791  24.9835 104.0390 0011105  50.1547 309.9937 14.40064329107342
+FUSE 1
+1 25791U 99035A   01187.85763598  .00000560  00000-0  11885-3 0  3124
+2 25791  24.9834 110.3927 0011027  39.7903 320.3413 14.40064059107198
+FUSE 1
+1 25791U 99035A   01186.26369845  .00000576  00000-0  12383-3 0  3115
+2 25791  24.9833 120.1320 0011040  23.1413 336.9590 14.40062964106967
+FUSE 1
+1 25791U 99035A   01185.22417234  .00000611  00000-0  13466-3 0  3108
+2 25791  24.9832 126.4851 0010938  12.2821 347.7952 14.40062479106818
+FUSE 1
+1 25791U 99035A   01183.90743981  .00000616  00000-0  13632-3 0  3090
+2 25791  24.9835 134.5338 0011000 358.4299   1.6173 14.40061396106623
+FUSE 1
+1 25791U 99035A   01182.72930922  .00000647  00000-0  14599-3 0  3088
+2 25791  24.9835 141.7349 0010932 346.1083  13.9122 14.40060663106450
+FUSE 1
+1 25791U 99035A   01181.55117807  .00000655  00000-0  14826-3 0  3078
+2 25791  24.9833 148.9349 0010989 333.0109  26.9827 14.40059608106287
+FUSE 1
+1 25791U 99035A   01180.23444311  .00000674  00000-0  15430-3 0  3067
+2 25791  24.9834 156.9835 0010915 318.5214  41.4471 14.40058589106094
+FUSE 1
+1 25791U 99035A   01179.95723625 +.00000660 +00000-0 +14998-3 0 03537
+2 25791 024.9835 158.6778 0010936 315.4784 044.4860 14.40058184106053
+FUSE 1
+1 25791U 99035A   01178.98701077 +.00000700 +00000-0 +16223-3 0 03095
+2 25791 024.9839 164.6103 0010804 304.5310 055.4225 14.40057715105914
+FUSE 1
+1 25791U 99035A   01178.91770917  .00000670  00000-0  15306-3 0  3050
+2 25791  24.9837 165.0340 0010775 303.9328  56.0166 14.40057316105906
+FUSE 1
+1 25791U 99035A   01177.94748394 +.00000667 +00000-0 +15215-3 0 03051
+2 25791 024.9839 170.9631 0010758 293.8032 066.1362 14.40056346105762
+FUSE 1
+1 25791U 99035A   01177.80888028  .00000659  00000-0  14952-3 0  3042
+2 25791  24.9838 171.8101 0010748 292.4036  67.5332 14.40056120105741
+FUSE 1
+1 25791U 99035A   01176.83865444 +.00000669 +00000-0 +15256-3 0 03062
+2 25791 024.9836 177.7390 0010771 281.9230 078.0068 14.40055269105600
+FUSE 1
+1 25791U 99035A   01176.56144703  .00000675  00000-0  15449-3 0  3038
+2 25791  24.9837 179.4333 0010795 278.8637  81.0649 14.40055073105566
+FUSE 1
+1 25791U 99035A   01175.86842919 +.00000678 +00000-0 +15546-3 0 03316
+2 25791 024.9837 183.6698 0010800 271.5427 088.3843 14.40054412105462
+FUSE 1
+1 25791U 99035A   01175.24471298  .00000688  00000-0  15855-3 0  3028
+2 25791  24.9839 187.4824 0010794 264.9104  95.0170 14.40053918105375
+FUSE 1
+1 25791U 99035A   01173.85867780  .00000677  00000-0  15522-3 0  3016
+2 25791  24.9839 195.9535 0010801 250.3967 109.5372 14.40052381105179
+FUSE 1
+1 25791U 99035A   01172.95775496 +.00000670 +00000-0 +15307-3 0 03067
+2 25791 024.9841 201.4598 0010826 240.8926 119.0499 14.40051405105048
+FUSE 1
+1 25791U 99035A   01172.54194415  .00000672  00000-0  15364-3 0  3007
+2 25791  24.9843 204.0010 0010840 236.4724 123.4748 14.40051033104986
+FUSE 1
+1 25791U 99035A   01171.98753138 +.00000679 +00000-0 +15575-3 0 03288
+2 25791 024.9843 207.3895 0010842 230.3514 129.6117 14.40050582104903
+FUSE 1
+1 25791U 99035A   01171.22521133  .00000677  00000-0  15522-3 0  2990
+2 25791  24.9854 212.0560 0010996 222.3356 137.6304 14.40049810104798
+FUSE 1
+1 25791U 99035A   01169.97777976 +.00000651 +00000-0 +14719-3 0 02996
+2 25791 024.9854 219.6805 0010993 209.2640 150.7249 14.40048323104613
+FUSE 1
+1 25791U 99035A   01169.83917607  .00000653  00000-0  14780-3 0  2987
+2 25791  24.9854 220.5274 0010997 207.8311 152.1606 14.40048213104595
+FUSE 1
+1 25791U 99035A   01168.93825267 +.00000639 +00000-0 +14331-3 0 02983
+2 25791 024.9853 226.0330 0011011 198.4101 161.6008 14.40047199104467
+FUSE 1
+1 25791U 99035A   01168.79964884  .00000639  00000-0  14331-3 0  2975
+2 25791  24.9853 226.8798 0011011 196.9581 163.0554 14.40047071104447
+FUSE 1
+1 25791U 99035A   01167.55221537  .00000637  00000-0  14282-3 0  2961
+2 25791  24.9855 234.5040 0011049 184.0993 175.9424 14.40045914104263
+FUSE 1
+1 25791U 99035A   01166.51268687  .00000629  00000-0  14035-3 0  2959
+2 25791  24.9856 240.8573 0011071 173.3506 186.7149 14.40044884104114
+FUSE 1
+1 25791U 99035A   01165.95827450 +.00000603 +00000-0 +13200-3 0 03120
+2 25791 024.9848 244.2600 0010963 166.9546 193.1247 14.40044112104031
+FUSE 1
+1 25791U 99035A   01165.40385861  .00000599  00000-0  13098-3 0  2943
+2 25791  24.9849 247.6487 0010973 161.1937 198.8977 14.40043624103953
+FUSE 1
+1 25791U 99035A   01164.22572358  .00000615  00000-0  13598-3 0  2934
+2 25791  24.9850 254.8490 0011010 149.2494 210.8676 14.40042799103781
+FUSE 1
+1 25791U 99035A   01163.87921276 +.00000615 +00000-0 +13599-3 0 03270
+2 25791 024.9849 256.9662 0011011 145.6235 214.4988 14.40042491103737
+FUSE 1
+1 25791U 99035A   01163.18619226  .00000575  00000-0  12336-3 0  2927
+2 25791  24.9852 261.2039 0011012 139.1112 221.0231 14.40041529103636
+FUSE 1
+1 25791U 99035A   01162.90898327 +.00000573 +00000-0 +12283-3 0 03321
+2 25791 024.9853 262.8977 0011009 136.1629 223.9749 14.40041298103594
+FUSE 1
+1 25791U 99035A   01161.86945008  .00000570  00000-0  12199-3 0  2911
+2 25791  24.9855 269.2523 0011028 125.4435 234.7103 14.40040463103442
+FUSE 1
+1 25791U 99035A   01160.55270529  .00000600  00000-0  13110-3 0  2902
+2 25791  24.9853 277.3011 0011033 112.2693 247.8985 14.40039697103257
+FUSE 1
+1 25791U 99035A   01159.51316909  .00000608  00000-0  13389-3 0  2893
+2 25791  24.9855 283.6566 0011020 101.4944 258.6799 14.40038905103107
+FUSE 1
+1 25791U 99035A   01158.95874900 +.00000619 +00000-0 +13726-3 0 03157
+2 25791 024.9854 287.0455 0011021 095.8528 264.3235 14.40038518103026
+FUSE 1
+1 25791U 99035A   01158.40432836  .00000637  00000-0  14284-3 0  2884
+2 25791  24.9854 290.4346 0011007  89.9818 270.1950 14.40038207102947
+FUSE 1
+1 25791U 99035A   01157.22618367  .00000647  00000-0  14588-3 0  2875
+2 25791  24.9857 297.6350 0011049  77.7985 282.3753 14.40037223102774
+FUSE 1
+1 25791U 99035A   01156.18664290  .00000642  00000-0  14440-3 0  2866
+2 25791  24.9861 303.9893 0011005  67.0287 293.1376 14.40036236102629
+FUSE 1
+1 25791U 99035A   01154.86988814  .00000664  00000-0  15129-3 0  2858
+2 25791  24.9862 312.0359 0010968  53.2775 306.8736 14.40035235102433
+FUSE 1
+1 25791U 99035A   01153.55313207  .00000654  00000-0  14823-3 0  2849
+2 25791  24.9862 320.0822 0010917  39.4182 320.7119 14.40033855102244
+FUSE 1
+1 25791U 99035A   01152.51358604  .00000656  00000-0  14876-3 0  2833
+2 25791  24.9862 326.4348 0010879  28.5266 331.5835 14.40032889102090
+FUSE 1
+1 25791U 99035A   01151.95916093 +.00000658 +00000-0 +14954-3 0 03067
+2 25791 024.9864 329.8227 0010858 022.6676 337.4309 14.40032401102015
+FUSE 1
+1 25791U 99035A   01151.33543277  .00000649  00000-0  14671-3 0  2828
+2 25791  24.9863 333.6343 0010866  15.9419 344.1429 14.40031685101925
+FUSE 1
+1 25791U 99035A   01150.15727791  .00000654  00000-0  14810-3 0  2812
+2 25791  24.9864 340.8337 0010840   3.4915 356.5667 14.40030638101753
+FUSE 1
+1 25791U 99035A   01149.88006493 +.00000653 +00000-0 +14785-3 0 03135
+2 25791 024.9866 342.5280 0010826 000.5019 359.5497 14.40030376101717
+FUSE 1
+1 25791U 99035A   01148.90982283  .00000634  00000-0  14209-3 0  2800
+2 25791  24.9866 348.4566 0010800 350.2840   9.7632 14.40029222101575
+FUSE 1
+1 25791U 99035A   01147.38515028  .00000579  00000-0  12480-3 0  2795
+2 25791  24.9837 357.7948 0010793 333.6467  26.3492 14.40027134101356
+FUSE 1
+1 25791U 99035A   01146.20699331  .00000565  00000-0  12045-3 0  2786
+2 25791  24.9838   4.9959 0010786 321.0840  38.8893 14.40026061101180
+FUSE 1
+1 25791U 99035A   01144.89022932  .00000533  00000-0  11042-3 0  2776
+2 25791  24.9841  13.0436 0010817 306.9215  53.0301 14.40024823100993
+FUSE 1
+1 25791U 99035A   01143.91998144 +.00000546 +00000-0 +11428-3 0 02924
+2 25791 024.9842 018.9724 0010816 296.5378 063.4019 14.40024274100857
+FUSE 1
+1 25791U 99035A   01143.36555441  .00000551  00000-0  11588-3 0  2767
+2 25791  24.9842  22.3601 0010810 290.7426  69.1925 14.40023904100773
+FUSE 1
+1 25791U 99035A   01142.94973432 +.00000553 +00000-0 +11652-3 0 02881
+2 25791 024.9843 024.9015 0010807 286.3744 073.5580 14.40023633100710
+FUSE 1
+1 25791U 99035A   01142.32600379  .00000567  00000-0  12088-3 0  2755
+2 25791  24.9842  28.7136 0010785 279.8487  80.0792 14.40023279100625
+FUSE 1
+1 25791U 99035A   01141.91018440 +.00000540 +00000-0 +11242-3 0 02900
+2 25791 024.9840 031.2547 0010893 276.2467 083.6799 14.40022637100563
+FUSE 1
+1 25791U 99035A   01141.21715079  .00000549  00000-0  11542-3 0  2749
+2 25791  24.9840  35.4898 0010896 268.8475  91.0785 14.40022229100461
+FUSE 1
+1 25791U 99035A   01139.90038775  .00000571  00000-0  12219-3 0  2739
+2 25791  24.9839  43.5397 0010931 255.0386 104.8911 14.40021439100277
+FUSE 1
+1 25791U 99035A   01138.58362425  .00000609  00000-0  13389-3 0  2724
+2 25791  24.9837  51.5882 0011072 241.1629 118.7758 14.40020744100086
+FUSE 1
+1 25791U 99035A   01137.33616481  .00000661  00000-0  15031-3 0  2713
+2 25791  24.9839  59.2112 0011101 227.8811 132.0752 14.40020162 99901
+FUSE 1
+1 25791U 99035A   01136.22731284  .00000674  00000-0  15435-3 0  2700
+2 25791  24.9841  65.9875 0011119 216.3279 143.6473 14.40019220 99747
+FUSE 1
+1 25791U 99035A   01134.97985363 +.00000712 +00000-0 +16613-3 0 02734
+2 25791 024.9840 073.6131 0011195 203.7721 156.2269 14.40018339099566
+FUSE 1
+1 25791U 99035A   01134.91055026  .00000715  00000-0  16725-3 0  2694
+2 25791  24.9839  74.0366 0011202 203.0881 156.9123 14.40018302 99553
+FUSE 1
+1 25791U 99035A   01133.94030404 +.00000743 +00000-0 +17573-3 0 02737
+2 25791 024.9839 079.9663 0011198 193.0427 166.9790 14.40017554099419
+FUSE 1
+1 25791U 99035A   01133.45518076  .00000746  00000-0  17689-3 0  2684
+2 25791  24.9839  82.9302 0011209 188.0450 171.9871 14.40017047 99341
+FUSE 1
+1 25791U 99035A   01132.20772024  .00000785  00000-0  18898-3 0  2676
+2 25791  24.9839  90.5544 0011269 175.2870 184.7740 14.40016047 99160
+FUSE 1
+1 25791U 99035A   01130.96025905 +.00000820 +00000-0 +19980-3 0 02691
+2 25791 024.9841 098.1782 0011296 162.1732 197.9172 14.40014946098983
+FUSE 1
+1 25791U 99035A   01130.89095562  .00000820  00000-0  20001-3 0  2662
+2 25791  24.9841  98.6016 0011296 161.4536 198.6384 14.40014866 98975
+FUSE 1
+1 25791U 99035A   01129.92071030 +.00000847 +00000-0 +20834-3 0 02661
+2 25791 024.9833 104.5520 0011085 151.6354 208.4757 14.40014053098835
+FUSE 1
+1 25791U 99035A   01129.85140680  .00000850  00000-0  20936-3 0  2657
+2 25791  24.9832 104.9757 0011084 150.9394 209.1729 14.40013984 98823
+FUSE 1
+1 25791U 99035A   01128.95046107 +.00000863 +00000-0 +21348-3 0 02704
+2 25791 024.9831 110.4816 0011082 141.5157 218.6142 14.40012890098695
+FUSE 1
+1 25791U 99035A   01128.53463956  .00000867  00000-0  21456-3 0  2640
+2 25791  24.9830 113.0225 0011082 137.1961 222.9409 14.40012343 98632
+FUSE 1
+1 25791U 99035A   01127.98021059 +.00000880 +00000-0 +21866-3 0 02822
+2 25791 024.9832 116.4114 0011088 131.3728 228.7736 14.40011719098555
+FUSE 1
+1 25791U 99035A   01127.21786998  .00000884  00000-0  22005-3 0  2637
+2 25791  24.9831 121.0699 0011080 123.3961 236.7608 14.40010685 98442
+FUSE 1
+1 25791U 99035A   01125.90109773  .00000892  00000-0  22255-3 0  2626
+2 25791  24.9833 129.1184 0011028 109.9749 250.1950 14.40008904 98258
+FUSE 1
+1 25791U 99035A   01124.86153846  .00000895  00000-0  22336-3 0  2612
+2 25791  24.9835 135.4720 0010976  99.2838 260.8908 14.40007464 98102
+FUSE 1
+1 25791U 99035A   01123.82197729  .00000903  00000-0  22598-3 0  2604
+2 25791  24.9836 141.8244 0010956  88.5472 271.6290 14.40006059 97953
+FUSE 1
+1 25791U 99035A   01122.78241421  .00000914  00000-0  22957-3 0  2596
+2 25791  24.9838 148.1778 0010906  77.7606 282.4122 14.40004664 97809
+FUSE 1
+1 25791U 99035A   01121.74284958  .00000909  00000-0  22797-3 0  2588
+2 25791  24.9840 154.5310 0010872  66.8417 293.3235 14.40003100 97659
+FUSE 1
+1 25791U 99035A   01120.98050140 +.00000892 +00000-0 +22245-3 0 02632
+2 25791 024.9840 159.1901 0010848 058.8234 301.3337 14.40001802097545
+FUSE 1
+1 25791U 99035A   01120.56467427  .00000893  00000-0  22276-3 0  2574
+2 25791  24.9840 161.7307 0010845  54.4415 305.7103 14.40001218 97487
+FUSE 1
+1 25791U 99035A   01119.24788803  .00000840  00000-0  20637-3 0  2561
+2 25791  24.9839 169.7779 0010778  40.3623 319.7683 14.39998784 97294
+FUSE 1
+1 25791U 99035A   01117.23804969  .00000814  00000-0  19817-3 0  2547
+2 25791  24.9840 182.0587 0010772  19.4486 340.6431 14.39995823 97003
+FUSE 1
+1 25791U 99035A   01116.96083039 +.00000802 +00000-0 +19449-3 0 02877
+2 25791 024.9843 183.7523 0010778 016.6787 343.4072 14.39995329096960
+FUSE 1
+1 25791U 99035A   01116.19847490  .00001304  00000-0  35116-3 0  2531
+2 25791  24.9827 188.4092 0011139   8.8375 351.2331 14.39996795 96854
+FUSE 1
+1 25791U 99035A   01114.88168133 +.00000626 +00000-0 +13955-3 0 02538
+2 25791 024.9832 196.4565 0011007 354.8618 005.1760 14.39992143096665
+FUSE 1
+1 25791U 99035A   01114.81237588  .00000730  00000-0  17192-3 0  2524
+2 25791  24.9832 196.8805 0010974 353.8797   6.1556 14.39992378 96658
+FUSE 1
+1 25791U 99035A   01113.91141013 +.00001105 +00000-0 +28900-3 0 02583
+2 25791 024.9832 202.3874 0010818 344.5129 015.5072 14.39992088096521
+FUSE 1
+1 25791U 99035A   01113.56488467  .00000804  00000-0  19509-3 0  2514
+2 25791  24.9836 204.5049 0010848 340.9754  19.0347 14.39990691 96476
+FUSE 1
+1 25791U 99035A   01112.87183381 +.00000588 +00000-0 +12770-3 0 02853
+2 25791 024.9838 208.7401 0010866 334.2845 025.7120 14.39989069096372
+FUSE 1
+1 25791U 99035A   01112.24808739  .00000697  00000-0  16161-3 0  2506
+2 25791  24.9837 212.5519 0010856 327.7806  32.2065 14.39988758 96282
+FUSE 1
+1 25791U 99035A   01110.86198210  .00000839  00000-0  20609-3 0  2496
+2 25791  24.9833 221.0217 0010828 312.9646  46.9953 14.39987824 96084
+FUSE 1
+1 25791U 99035A   01109.96101490 +.00000640 +00000-0 +14376-3 0 02662
+2 25791 024.9835 226.5270 0010746 303.7230 056.2253 14.39986069095953
+FUSE 1
+1 25791U 99035A   01109.54518505  .00000698  00000-0  16199-3 0  2483
+2 25791  24.9825 229.0749 0010853 299.3689  60.5757 14.39985563 95896
+FUSE 1
+1 25791U 99035A   01108.92143892 +.00000424 +00000-0 +76456-4 0 02689
+2 25791 024.9835 232.8933 0010773 292.5014 067.4341 14.39984084095805
+FUSE 1
+1 25791U 99035A   01108.43630231  .00000475  00000-0  92307-4 0  2479
+2 25791  24.9841 235.8622 0010842 287.1593  72.7725 14.39984197 95731
+FUSE 1
+1 25791U 99035A   01107.25811420  .00000342  00000-0  50688-4 0  2467
+2 25791  24.9840 243.0654 0010850 274.6194  85.3080 14.39982982 95568
+FUSE 1
+1 25791U 99035A   01106.91158787 +.00000319 +00000-0 +43545-4 0 02816
+2 25791 024.9842 245.1833 0010843 270.9361 088.9901 14.39982821095517
+FUSE 1
+1 25791U 99035A   01105.94131510 +.00000457 +00000-0 +86612-4 0 02469
+2 25791 024.9838 251.1154 0010905 261.3015 098.6260 14.39982811095373
+FUSE 1
+1 25791U 99035A   01105.87200985  .00000459  00000-0  87250-4 0  2454
+2 25791  24.9840 251.5393 0010901 260.6320  99.2952 14.39982811 95366
+FUSE 1
+1 25791U 99035A   01104.55520998  .00001008  00000-0  25888-3 0  2445
+2 25791  24.9829 259.5887 0011021 247.1818 112.7523 14.39983372 95172
+FUSE 1
+1 25791U 99035A   01103.51562954  .00001492  00000-0  40988-3 0  2432
+2 25791  24.9842 265.9425 0010869 234.0542 125.8931 14.39984015 95021
+FUSE 1
+1 25791U 99035A   01102.89188107 +.00001731 +00000-0 +48461-3 0 02649
+2 25791 024.9844 269.7554 0011059 227.9140 132.0419 14.39983703094938
+FUSE 1
+1 25791U 99035A   01102.54535407  .00001893  00000-0  53504-3 0  2429
+2 25791  24.9846 271.8734 0010921 223.7407 136.2232 14.39983757 94883
+FUSE 1
+1 25791U 99035A   01101.92160517 +.00002030 +00000-0 +57800-3 0 02647
+2 25791 024.9848 275.6854 0011217 217.6844 142.2874 14.39982801094794
+FUSE 1
+1 25791U 99035A   01101.57507715  .00002190  00000-0  62781-3 0  2419
+2 25791  24.9854 277.8031 0010956 213.3871 146.5941 14.39983161 94741
+FUSE 1
+1 25791U 99035A   01100.88202474 +.00002253 +00000-0 +64777-3 0 02660
+2 25791 024.9853 282.0379 0011053 206.6572 153.3357 14.39981020094643
+FUSE 1
+1 25791U 99035A   01100.18897006  .00002361  00000-0  68129-3 0  2401
+2 25791  24.9852 286.2722 0011029 198.9302 161.0725 14.39979226 94546
+FUSE 1
+1 25791U 99035A   01099.91174907 +.00002395 +00000-0 +69207-3 0 02750
+2 25791 024.9855 287.9660 0011230 196.5404 163.4735 14.39978461094502
+FUSE 1
+1 25791U 99035A   01098.94147224 +.00002530 +00000-0 +73411-3 0 02421
+2 25791 024.9854 293.8958 0011234 186.4584 173.5772 14.39975567094369
+FUSE 1
+1 25791U 99035A   01098.87216662  .00002543  00000-0  73810-3 0  2399
+2 25791  24.9855 294.3194 0011295 185.6074 174.4304 14.39975420 94358
+FUSE 1
+1 25791U 99035A   01097.55535820  .00002756  00000-0  80493-3 0  2383
+2 25791  24.9857 302.3671 0011209 171.5084 188.5605 14.39971661 94162
+FUSE 1
+1 25791U 99035A   01096.51577572  .00001819  00000-0  51232-3 0  2375
+2 25791  24.9851 308.7196 0011060 159.9502 200.1452 14.39962260 94018
+FUSE 1
+1 25791U 99035A   01095.19896006  .00002137  00000-0  61186-3 0  2366
+2 25791  24.9847 316.7677 0011044 146.2105 213.9107 14.39958939 93821
+FUSE 1
+1 25791U 99035A   01094.92173520 +.00002224 +00000-0 +63882-3 0 02749
+2 25791 024.9845 318.4612 0011055 143.4912 216.6355 14.39958128093784
+FUSE 1
+1 25791U 99035A   01093.95144716 +.00002409 +00000-0 +69674-3 0 02410
+2 25791 024.9843 324.3915 0011216 133.1891 226.9554 14.39954609093645
+FUSE 1
+1 25791U 99035A   01093.88214064  .00002499  00000-0  72482-3 0  2359
+2 25791  24.9842 324.8152 0011197 132.3778 227.7676 14.39954543 93635
+FUSE 1
+1 25791U 99035A   01092.91184954 +.00003251 +00000-0 +95975-3 0 02557
+2 25791 024.9837 330.7471 0011246 122.5955 237.5655 14.39950967093498
+FUSE 1
+1 25791U 99035A   01091.17917824  .00003186  00000-0  93968-3 0  2337
+2 25791  24.9835 341.3417 0011318 105.3746 254.8012 14.39939177 93243
+FUSE 1
+1 25791U 99035A   01090.13956723  .00002972  00000-0  87297-3 0  2322
+2 25791  24.9838 347.6958 0011329  94.7440 265.4361 14.39932401 93090
+FUSE 1
+1 25791U 99035A   01088.96133501 +.00002837 +00000-0 +83108-3 0 02339
+2 25791 024.9838 354.9011 0011327 083.2313 276.9488 14.39925595092925
+FUSE 1
+1 25791U 99035A   01088.89202703  .00002815  00000-0  82399-3 0  2317
+2 25791  24.9839 355.3247 0011337  82.5196 277.6602 14.39925159 92915
+FUSE 1
+1 25791U 99035A   01087.92171315 +.00001946 +00000-0 +55260-3 0 02360
+2 25791 024.9847 001.2552 0011205 072.8181 287.3553 14.39918251092772
+FUSE 1
+1 25791U 99035A   01087.85240649  .00001697  00000-0  47485-3 0  2306
+2 25791  24.9849   1.6791 0011193  72.3247 287.8536 14.39917141 92769
+FUSE 1
+1 25791U 99035A   01082.51561712  .00000996  00000-0  25569-3 0  2266
+2 25791  24.9850  34.2906 0010848  15.4515 344.6316 14.39903030 91997
+FUSE 1
+1 25791U 99035A   01081.96114279 +.00000895 +00000-0 +22411-3 0 02357
+2 25791 024.9850 037.6798 0010802 008.8785 351.1917 14.39901631091915
+FUSE 1
+1 25791U 99035A   01081.33735740  .00000887  00000-0  22159-3 0  2259
+2 25791  24.9850  41.4919 0010779   2.2856 357.7699 14.39900735 91826
+FUSE 1
+1 25791U 99035A   01080.92150068 +.00000863 +00000-0 +21388-3 0 02333
+2 25791 024.9849 044.0329 0010784 357.8343 002.2118 14.39899989091763
+FUSE 1
+1 25791U 99035A   01080.22840542  .00000844  00000-0  20810-3 0  2247
+2 25791  24.9848  48.2669 0010801 350.7139   9.3171 14.39898909 91667
+FUSE 1
+1 25791U 99035A   01079.95116702 +.00000849 +00000-0 +20965-3 0 02537
+2 25791 024.9848 049.9618 0010808 347.8135 012.2110 14.39898588091624
+FUSE 1
+1 25791U 99035A   01078.98083194 +.00000863 +00000-0 +21409-3 0 02245
+2 25791 024.9850 055.8907 0010787 337.5934 022.4103 14.39897482091484
+FUSE 1
+1 25791U 99035A   01078.91152241  .00000863  00000-0  21400-3 0  2238
+2 25791  24.9849  56.3142 0010787 336.8603  23.1424 14.39897379 91472
+FUSE 1
+1 25791U 99035A   01077.94118795 +.00000865 +00000-0 +21466-3 0 02296
+2 25791 024.9846 062.2492 0010753 326.7694 033.2147 14.39896112091337
+FUSE 1
+1 25791U 99035A   01077.52532984  .00000862  00000-0  21353-3 0  2225
+2 25791  24.9844  64.7900 0010747 322.4604  37.5154 14.39895491 91270
+FUSE 1
+1 25791U 99035A   01076.48568446  .00000836  00000-0  20539-3 0  2216
+2 25791  24.9842  71.1417 0010785 311.0390  48.9185 14.39893786 91120
+FUSE 1
+1 25791U 99035A   01075.23810913  .00000832  00000-0  20428-3 0  2209
+2 25791  24.9846  78.7649 0010811 297.7413  62.1997 14.39892127 90946
+FUSE 1
+1 25791U 99035A   01073.99053383 +.00000816 +00000-0 +19913-3 0 02209
+2 25791 024.9845 086.3872 0010797 284.5974 075.3336 14.39890279090766
+FUSE 1
+1 25791U 99035A   01073.92122749  .00000816  00000-0  19910-3 0  2190
+2 25791  24.9845  86.8106 0010797 283.8732  76.0753 14.39890190 90757
+FUSE 1
+1 25791U 99035A   01072.88158105 +.00000784 +00000-0 +18923-3 0 02220
+2 25791 024.9830 093.1816 0010740 272.7044 087.2233 14.39888516090601
+FUSE 1
+1 25791U 99035A   01072.53503188  .00000787  00000-0  19030-3 0  2185
+2 25791  24.9830  95.2987 0010757 268.9911  90.9362 14.39888127 90557
+FUSE 1
+1 25791U 99035A   01071.98055429 +.00000763 +00000-0 +18258-3 0 02201
+2 25791 024.9833 098.6880 0010753 263.1759 096.7529 14.39887246090473
+FUSE 1
+1 25791U 99035A   01071.49538471  .00000791  00000-0  19130-3 0  2177
+2 25791  24.9831 101.6522 0010849 257.9268 102.0023 14.39886914 90405
+FUSE 1
+1 25791U 99035A   01070.94090658 +.00000785 +00000-0 +18959-3 0 02469
+2 25791 024.9831 105.0409 0010844 252.1036 107.8288 14.39886182090326
+FUSE 1
+1 25791U 99035A   01070.24780824  .00000809  00000-0  19709-3 0  2161
+2 25791  24.9831 109.2771 0010871 244.6528 115.2853 14.39885565 90220
+FUSE 1
+1 25791U 99035A   01069.20816158  .00000791  00000-0  19153-3 0  2157
+2 25791  24.9832 115.6328 0011054 233.9117 126.0367 14.39884078 90070
+FUSE 1
+1 25791U 99035A   01067.82196489  .00000809  00000-0  19705-3 0  2143
+2 25791  24.9830 124.1033 0011113 218.9869 140.9835 14.39882486 89871
+FUSE 1
+1 25791U 99035A   01066.64369761 +.00000799 +00000-0 +19374-3 0 02169
+2 25791 024.9830 131.3033 0011151 207.0123 152.9803 14.39880895089707
+FUSE 1
+1 25791U 99035A   01066.50507788  .00000796  00000-0  19291-3 0  2139
+2 25791  24.9830 132.1500 0011152 205.5911 154.4046 14.39880702 89684
+FUSE 1
+1 25791U 99035A   01065.88128936 +.00000790 +00000-0 +19103-3 0 02397
+2 25791 024.9831 135.9622 0011122 198.9598 161.0503 14.39879873089593
+FUSE 1
+1 25791U 99035A   01065.18819067  .00000783  00000-0  18885-3 0  2121
+2 25791  24.9834 140.1989 0011152 191.7198 168.3068 14.39878991 89495
+FUSE 1
+1 25791U 99035A   01064.91095089 +.00000771 +00000-0 +18518-3 0 02446
+2 25791 024.9835 141.8928 0011125 188.7032 171.3283 14.39878539089457
+FUSE 1
+1 25791U 99035A   01063.87130138  .00000765  00000-0  18340-3 0  2115
+2 25791  24.9836 148.2465 0011125 177.9406 182.1148 14.39877264 89308
+FUSE 1
+1 25791U 99035A   01063.87130137 +.00000767 +00000-0 +18406-3 0 02120
+2 25791 024.9835 148.2460 0011132 177.9393 182.1166 14.39877276089308
+FUSE 1
+1 25791U 99035A   01062.90096058 +.00000769 +00000-0 +18444-3 0 02210
+2 25791 024.9839 154.1757 0011132 167.8039 192.2735 14.39876200089166
+FUSE 1
+1 25791U 99035A   01062.55441017  .00000773  00000-0  18590-3 0  2105
+2 25791  24.9841 156.2936 0011137 164.3299 195.7558 14.39875851 89113
+FUSE 1
+1 25791U 99035A   01061.30682837  .00000772  00000-0  18556-3 0  2093
+2 25791  24.9841 163.9191 0011157 150.7881 209.3252 14.39874318 88938
+FUSE 1
+1 25791U 99035A   01060.82165726 +.00000760 +00000-0 +18192-3 0 02488
+2 25791 024.9843 166.8839 0011144 145.5272 214.5963 14.39873647088866
+FUSE 1
+1 25791U 99035A   01059.92062424 +.00000739 +00000-0 +17528-3 0 02194
+2 25791 024.9846 172.3899 0011179 135.9727 224.1680 14.39872415088734
+FUSE 1
+1 25791U 99035A   01059.57407284  .00000713  00000-0  16698-3 0  2089
+2 25791  24.9853 174.5090 0011130 132.3934 227.7515 14.39871839 88686
+FUSE 1
+1 25791U 99035A   01058.25717454  .00000711  00000-0  16656-3 0  2077
+2 25791  24.9850 182.5567 0011163 119.2623 240.9005 14.39870406 88495
+FUSE 1
+1 25791U 99035A   01057.91062171 +.00000714 +00000-0 +16747-3 0 02319
+2 25791 024.9852 184.6743 0011160 115.8000 244.3659 14.39870084088444
+FUSE 1
+1 25791U 99035A   01056.87096351  .00000689  00000-0  15951-3 0  2069
+2 25791  24.9851 191.0276 0011173 104.7434 255.4312 14.39868715 88298
+FUSE 1
+1 25791U 99035A   01055.90061376 +.00000679 +00000-0 +15637-3 0 02285
+2 25791 024.9850 196.9579 0011170 094.7617 265.4158 14.39867625088158
+FUSE 1
+1 25791U 99035A   01055.55406001  .00000689  00000-0  15968-3 0  2057
+2 25791  24.9853 199.0771 0011176  91.3496 268.8293 14.39867412 88109
+FUSE 1
+1 25791U 99035A   01054.23715345  .00000689  00000-0  15972-3 0  2049
+2 25791  24.9854 207.1235 0011152  77.7001 282.4754 14.39866067 87917
+FUSE 1
+1 25791U 99035A   01053.89059839 +.00000696 +00000-0 +16187-3 0 02158
+2 25791 024.9856 209.2409 0011136 074.1479 286.0253 14.39865797087864
+FUSE 1
+1 25791U 99035A   01052.92024384 +.00000702 +00000-0 +16372-3 0 02040
+2 25791 024.9854 215.1686 0011139 064.1094 296.0556 14.39864826087724
+FUSE 1
+1 25791U 99035A   01052.85093275  .00000705  00000-0  16455-3 0  2031
+2 25791  24.9853 215.5920 0011131  63.4459 296.7188 14.39864778 87710
+FUSE 1
+1 25791U 99035A   01051.88057587 +.00000742 +00000-0 +17626-3 0 02031
+2 25791 024.9846 221.5212 0010994 053.4019 306.7497 14.39864094087570
+FUSE 1
+1 25791U 99035A   01049.17743500  .00000805  00000-0  19598-3 0  2004
+2 25791  24.9852 238.0376 0010943  24.9759 335.1274 14.39861598 87181
+FUSE 1
+1 25791U 99035A   01048.13776370  .00000818  00000-0  20021-3 0  1994
+2 25791  24.9855 244.3897 0010946  14.2126 345.8687 14.39860443 87033
+FUSE 1
+1 25791U 99035A   01046.95946808 +.00000826 +00000-0 +20265-3 0 02009
+2 25791 024.9856 251.5883 0010925 001.7292 358.3251 14.39859035086862
+FUSE 1
+1 25791U 99035A   01046.89015657  .00000828  00000-0  20328-3 0  1989
+2 25791  24.9856 252.0117 0010921   1.0228 359.0304 14.39858972 86851
+FUSE 1
+1 25791U 99035A   01045.91979473 +.00000825 +00000-0 +20234-3 0 02104
+2 25791 024.9857 257.9395 0010895 350.7865 009.2444 14.39857693086718
+FUSE 1
+1 25791U 99035A   01045.57323730  .00000822  00000-0  20128-3 0  1978
+2 25791  24.9855 260.0575 0010891 347.1542  12.8705 14.39857185 86669
+FUSE 1
+1 25791U 99035A   01044.32563210  .00000852  00000-0  21070-3 0  1968
+2 25791  24.9845 267.6885 0010940 335.0275  24.9843 14.39855877 86482
+FUSE 1
+1 25791U 99035A   01043.90976161 +.00000818 +00000-0 +19993-3 0 02047
+2 25791 024.9856 270.2365 0010879 331.1039 028.8868 14.39855093086427
+FUSE 1
+1 25791U 99035A   01043.21664491  .00000820  00000-0  20056-3 0  1955
+2 25791  24.9857 274.4720 0010879 323.9471  36.0302 14.39854225 86327
+FUSE 1
+1 25791U 99035A   01042.93939835 +.00000809 +00000-0 +19728-3 0 02345
+2 25791 024.9860 276.1661 0010879 321.0294 038.9430 14.39853798086288
+FUSE 1
+1 25791U 99035A   01041.89972384  .00000762  00000-0  18265-3 0  1943
+2 25791  24.9864 282.5199 0010886 310.1836  49.7717 14.39852068 86139
+FUSE 1
+1 25791U 99035A   01040.86004627  .00000786  00000-0  18998-3 0  1933
+2 25791  24.9864 288.8712 0010909 298.1189  61.8216 14.39851115 85984
+FUSE 1
+1 25791U 99035A   01039.88968203 +.00000776 +00000-0 +18695-3 0 01946
+2 25791 024.9866 294.8003 0010918 287.8124 072.1191 14.39849851085846
+FUSE 1
+1 25791U 99035A   01039.54312320  .00000778  00000-0  18759-3 0  1923
+2 25791  24.9865 296.9171 0010912 284.1925  75.7371 14.39849453 85798
+FUSE 1
+1 25791U 99035A   01038.91931566 +.00000841 +00000-0 +20715-3 0 01973
+2 25791 024.9853 300.7300 0011058 276.2116 083.7128 14.39849226085707
+FUSE 1
+1 25791U 99035A   01038.36482175  .00000851  00000-0  21041-3 0  1917
+2 25791  24.9852 304.1176 0011034 270.4549  89.4688 14.39848568 85628
+FUSE 1
+1 25791U 99035A   01037.94895133 +.00000854 +00000-0 +21128-3 0 02024
+2 25791 024.9850 306.6578 0011082 266.4454 093.4786 14.39848015085566
+FUSE 1
+1 25791U 99035A   01037.18652191  .00000871  00000-0  21669-3 0  1900
+2 25791  24.9854 311.3163 0011114 258.2637 101.6623 14.39847183 85456
+FUSE 1
+1 25791U 99035A   01035.93891068 +.00000893 +00000-0 +22356-3 0 01974
+2 25791 024.9856 318.9409 0011155 245.1344 114.8003 14.39845662085277
+FUSE 1
+1 25791U 99035A   01035.86959892  .00000895  00000-0  22415-3 0  1895
+2 25791  24.9856 319.3643 0011153 244.4229 115.5125 14.39845576 85260
+FUSE 1
+1 25791U 99035A   01034.96854630 +.00000904 +00000-0 +22698-3 0 02030
+2 25791 024.9856 324.8713 0011214 234.8399 125.1056 14.39844383085139
+FUSE 1
+1 25791U 99035A   01034.48336452  .00000891  00000-0  22284-3 0  1882
+2 25791  24.9853 327.8353 0011183 229.6286 130.3245 14.39843518 85060
+FUSE 1
+1 25791U 99035A   01033.23575272  .00000882  00000-0  22011-3 0  1876
+2 25791  24.9856 335.4581 0011214 216.6240 143.3500 14.39841675 84881
+FUSE 1
+1 25791U 99035A   01031.91882870  .00000844  00000-0  20813-3 0  1869
+2 25791  24.9858 343.5045 0011276 203.2127 156.7872 14.39839469 84699
+FUSE 1
+1 25791U 99035A   01031.91882869 +.00000845 +00000-0 +20836-3 0 01874
+2 25791 024.9858 343.5045 0011276 203.2090 156.7909 14.39839478084699
+FUSE 1
+1 25791U 99035A   01030.94846209 +.00000841 +00000-0 +20712-3 0 01918
+2 25791 024.9858 349.4319 0011289 193.2674 166.7539 14.39838132084559
+FUSE 1
+1 25791U 99035A   01030.46327849  .00000841  00000-0  20740-3 0  1853
+2 25791  24.9859 352.3959 0011304 188.2132 171.8192 14.39837508 84484
+FUSE 1
+1 25791U 99035A   01029.97809487 +.00000835 +00000-0 +20546-3 0 01981
+2 25791 024.9857 355.3599 0011303 183.2284 176.8152 14.39836776084417
+FUSE 1
+1 25791U 99035A   01029.21566280  .00000836  00000-0  20576-3 0  1848
+2 25791  24.9858   0.0180 0011350 175.3074 184.7541 14.39835807 84301
+FUSE 1
+1 25791U 99035A   01028.93841499 +.00000830 +00000-0 +20392-3 0 02294
+2 25791 024.9857 001.7120 0011345 172.4854 187.5833 14.39835361084265
+FUSE 1
+1 25791U 99035A   01027.96804596 +.00000821 +00000-0 +20111-3 0 01864
+2 25791 024.9857 007.6404 0011373 162.4249 197.6654 14.39833987084123
+FUSE 1
+1 25791U 99035A   01026.85905350  .00000774  00000-0  18631-3 0  1828
+2 25791  24.9845  14.4272 0011225 151.2576 208.8553 14.39832070 83960
+FUSE 1
+1 25791U 99035A   01025.95799395 +.00000773 +00000-0 +18616-3 0 01909
+2 25791 024.9845 019.9320 0011218 141.9876 218.1434 14.39830995083837
+FUSE 1
+1 25791U 99035A   01025.47280699  .00000781  00000-0  18854-3 0  1811
+2 25791  24.9846  22.8964 0011235 137.2317 222.9063 14.39830514 83762
+FUSE 1
+1 25791U 99035A   01024.91830785 +.00000785 +00000-0 +18987-3 0 01952
+2 25791 024.9848 026.2846 0011214 131.5244 228.6226 14.39829899083683
+FUSE 1
+1 25791U 99035A   01024.22518426  .00000758  00000-0  18147-3 0  1803
+2 25791  24.9850  30.5196 0011218 123.7953 236.3624 14.39828802 83586
+FUSE 1
+1 25791U 99035A   01022.97755790 +.00000765 +00000-0 +18342-3 0 01805
+2 25791 024.9847 038.1420 0011197 110.9464 249.2242 14.39827391083409
+FUSE 1
+1 25791U 99035A   01022.90824523  .00000765  00000-0  18346-3 0  1791
+2 25791  24.9847  38.5654 0011197 110.2109 249.9602 14.39827310 83397
+FUSE 1
+1 25791U 99035A   01021.93786714 +.00000792 +00000-0 +19214-3 0 01821
+2 25791 024.9847 044.4944 0011176 100.2360 259.9412 14.39826436083253
+FUSE 1
+1 25791U 99035A   01021.52199043  .00000791  00000-0  19188-3 0  1783
+2 25791  24.9847  47.0345 0011184  95.8875 264.2905 14.39825918 83199
+FUSE 1
+1 25791U 99035A   01020.48229781  .00000782  00000-0  18904-3 0  1774
+2 25791  24.9841  53.3876 0011058  84.9507 275.2262 14.39824524 83047
+FUSE 1
+1 25791U 99035A   01019.23466394  .00000810  00000-0  19778-3 0  1769
+2 25791  24.9842  61.0115 0011055  71.9716 288.1993 14.39823278 82863
+FUSE 1
+1 25791U 99035A   01018.81878536 +.00000815 +00000-0 +19923-3 0 02046
+2 25791 024.9840 063.5519 0011051 067.5973 292.5699 14.39822788082809
+FUSE 1
+1 25791U 99035A   01017.84840102  .00000828  00000-0  20329-3 0  1759
+2 25791  24.9838  69.4799 0011044  57.4205 302.7356 14.39821674 82660
+FUSE 1
+1 25791U 99035A   01016.80870221 +.00000844 +00000-0 +20844-3 0 01759
+2 25791 024.9839 075.8311 0011035 046.6049 313.5376 14.39820510082512
+FUSE 1
+1 25791U 99035A   01012.85783892  .00000765  00000-0  18364-3 0  1719
+2 25791  24.9824  99.9904 0011095   5.3964 354.6663 14.39814661 81946
+FUSE 1
+1 25791U 99035A   01011.81813392  .00000754  00000-0  18014-3 0  1702
+2 25791  24.9823 106.3421 0011120 354.5641   5.4745 14.39813318 81795
+FUSE 1
+1 25791U 99035A   01010.84774202 +.00000728 +00000-0 +17200-3 0 01820
+2 25791 024.9826 112.2708 0011146 344.3870 015.6294 14.39811988081659
+FUSE 1
+1 25791U 99035A   01010.57048690  .00000725  00000-0  17100-3 0  1696
+2 25791  24.9825 113.9647 0011158 341.3954  18.6145 14.39811641 81611
+FUSE 1
+1 25791U 99035A   01009.87734870 +.00000732 +00000-0 +17321-3 0 02008
+2 25791 024.9824 118.1992 0011164 334.0178 025.9768 14.39810940081516
+FUSE 1
+1 25791U 99035A   01006.55028272  .00000853  00000-0  21119-3 0  1667
+2 25791  24.9829 138.5275 0011161 298.7980  61.1405 14.39808266 81030
+FUSE 1
+1 25791U 99035A   01005.23331831  .00000949  00000-0  24121-3 0  1650
+2 25791  24.9829 146.5736 0011130 284.7867  75.1402 14.39807380 80842
+FUSE 1
+1 25791U 99035A   01004.95606288 +.00000961 +00000-0 +24508-3 0 01933
+2 25791 024.9830 148.2673 0011129 281.7309 078.1948 14.39807093080804
+FUSE 1
+1 25791U 99035A   01004.12429643  .00001014  00000-0  26161-3 0  1645
+2 25791  24.9831 153.3490 0011081 272.9218  87.0015 14.39806304 80681
+FUSE 1
+1 25791U 99035A   01003.91635493 +.00001024 +00000-0 +26479-3 0 02041
+2 25791 024.9833 154.6194 0011082 270.5710 089.3526 14.39806079080658
+FUSE 1
+1 25791U 99035A   01002.94596086 +.00001080 +00000-0 +28217-3 0 01657
+2 25791 024.9835 160.5480 0011065 260.2028 099.7226 14.39805000080513
+FUSE 1
+1 25791U 99035A   01002.87664699  .00001085  00000-0  28401-3 0  1633
+2 25791  24.9835 160.9715 0011055 259.4691 100.4567 14.39804944 80506
+FUSE 1
+1 25791U 99035A   01001.90625279 +.00001148 +00000-0 +30354-3 0 01851
+2 25791 024.9836 166.9004 0011074 249.1527 110.7793 14.39803819080368
+FUSE 1
+1 25791U 99035A   01001.55968328  .00001172  00000-0  31103-3 0  1622
+2 25791  24.9835 169.0177 0011071 245.6535 114.2814 14.39803412 80316
+FUSE 1
+1 25791U 99035A   00366.24272051  .00001201  00000-0  32013-3 0  1615
+2 25791  24.9835 177.0632 0011054 231.9139 128.0369 14.39801117 80127
+FUSE 1
+1 25791U 99035A   00365.13370179  .00001276  00000-0  34372-3 0  1603
+2 25791  24.9782 183.8601 0011264 220.6704 139.2961 14.39798988 79968
+FUSE 1
+1 25791U 99035A   00363.88605187  .00001279  00000-0  34462-3 0  1594
+2 25791  24.9781 191.4825 0011236 207.4675 152.5240 14.39796242 79788
+FUSE 1
+1 25791U 99035A   00362.91565615 +.00001282 +00000-0 +34567-3 0 01880
+2 25791 024.9781 197.4116 0011250 197.2959 162.7167 14.39794117079649
+FUSE 1
+1 25791U 99035A   00361.52937650  .00001173  00000-0  31161-3 0  1570
+2 25791  24.9788 205.8833 0011253 183.0025 177.0420 14.39790123 79448
+FUSE 1
+1 25791U 99035A   00360.21240650  .00001095  00000-0  28697-3 0  1564
+2 25791  24.9795 213.9300 0011256 169.4207 190.6539 14.39786866 79258
+FUSE 1
+1 25791U 99035A   00358.89543401  .00000997  00000-0  25633-3 0  1551
+2 25791  24.9802 221.9784 0011166 156.0199 204.0842 14.39783673 79063
+FUSE 1
+1 25791U 99035A   00357.57846016  .00000809  00000-0  19747-3 0  1543
+2 25791  24.9811 230.0287 0011220 142.5559 217.5744 14.39779898 78875
+FUSE 1
+1 25791U 99035A   00356.33079409  .00000742  00000-0  17656-3 0  1532
+2 25791  24.9815 237.6510 0011207 129.3758 230.7742 14.39777765 78696
+FUSE 1
+1 25791U 99035A   00355.91490500 +.00000715 +00000-0 +16811-3 0 01738
+2 25791 024.9818 240.1930 0011125 125.1559 234.9994 14.39777043078634
+FUSE 1
+1 25791U 99035A   00355.22175552  .00000689  00000-0  15980-3 0  1522
+2 25791  24.9818 244.4279 0011116 117.9072 242.2571 14.39776049 78533
+FUSE 1
+1 25791U 99035A   00354.94449551 +.00000671 +00000-0 +15421-3 0 01715
+2 25791 024.9820 246.1228 0011092 115.1399 245.0262 14.39775609078498
+FUSE 1
+1 25791U 99035A   00354.18203097  .00000667  00000-0  15302-3 0  1515
+2 25791  24.9821 250.7805 0011090 107.2769 252.9059 14.39774846 78383
+FUSE 1
+1 25791U 99035A   00353.14230184  .00000588  00000-0  12827-3 0  1507
+2 25791  24.9841 257.1312 0011153  94.7945 265.3836 14.39773357 78236
+FUSE 1
+1 25791U 99035A   00351.89462457  .00000618  00000-0  13768-3 0  1494
+2 25791  24.9843 264.7546 0011143  81.4463 278.7305 14.39772637 78057
+FUSE 1
+1 25791U 99035A   00350.57762798  .00000713  00000-0  16757-3 0  1485
+2 25791  24.9838 272.8003 0011117  67.5108 292.6555 14.39772305 77863
+FUSE 1
+1 25791U 99035A   00349.95378601 +.00000801 +00000-0 +19521-3 0 01751
+2 25791 024.9839 276.6107 0011037 061.1524 299.0082 14.39772533077773
+FUSE 1
+1 25791U 99035A   00348.91404926 +.00000938 +00000-0 +23822-3 0 01543
+2 25791 024.9841 282.9613 0011060 050.5076 309.6402 14.39772572077629
+FUSE 1
+1 25791U 99035A   00348.22089271  .00000955  00000-0  24346-3 0  1472
+2 25791  24.9841 287.1948 0011058  43.2638 316.8736 14.39771669 77522
+FUSE 1
+1 25791U 99035A   00347.94362883 +.00001009 +00000-0 +26044-3 0 01831
+2 25791 024.9842 288.8885 0011102 040.6503 319.4819 14.39771783077486
+FUSE 1
+1 25791U 99035A   00344.20056550  .00001466  00000-0  40388-3 0  1450
+2 25791  24.9857 311.7525 0010921   1.7998 358.2548 14.39768887 76944
+FUSE 1
+1 25791U 99035A   00342.95287422 +.00001623 +00000-0 +45287-3 0 02453
+2 25791 024.9861 319.3741 0010868 348.9036 011.1207 14.39767344076766
+FUSE 1
+1 25791U 99035A   00341.91313263 +.00001697 +00000-0 +47635-3 0 02169
+2 25791 024.9862 325.7251 0010827 338.0727 021.9314 14.39765205076612
+FUSE 1
+1 25791U 99035A   00340.80407309 +.00001773 +00000-0 +50001-3 0 01795
+2 25791 024.9865 332.4995 0010780 326.3093 033.6722 14.39762765076452
+FUSE 1
+1 25791U 99035A   00339.97228129 +.00001440 +00000-0 +39551-3 0 01453
+2 25791 024.9788 337.5913 0010715 317.2047 042.7636 14.39758312076333
+FUSE 1
+1 25791U 99035A   00339.90296490  .00001431  00000-0  39277-3 0  1446
+2 25791  24.9788 338.0153 0010711 316.5102  43.4556 14.39758072 76326
+FUSE 1
+1 25791U 99035A   00338.93253567 +.00001650 +00000-0 +46156-3 0 01892
+2 25791 024.9780 343.9450 0010727 305.4403 054.5107 14.39756594076187
+FUSE 1
+1 25791U 99035A   00337.89278976 +.00002012 +00000-0 +57514-3 0 01474
+2 25791 024.9771 350.3001 0010560 294.2116 065.7285 14.39754923076031
+FUSE 1
+1 25791U 99035A   00337.54620726  .00002120  00000-0  60886-3 0  1432
+2 25791  24.9769 352.4170 0010591 290.1130  69.8236 14.39754084 75985
+FUSE 1
+1 25791U 99035A   00336.78372846 +.00002078 +00000-0 +59583-3 0 02103
+2 25791 024.9767 357.0797 0010598 283.2388 076.6938 14.39750755075878
+FUSE 1
+1 25791U 99035A   00335.81329748 +.00001963 +00000-0 +55983-3 0 01784
+2 25791 024.9768 003.0088 0010682 272.4500 087.4788 14.39746543075738
+FUSE 1
+1 25791U 99035A   00332.55541084  .00001441  00000-0  39598-3 0  1416
+2 25791  24.9789  22.9137 0010823 238.8335 121.1112 14.39732709 75269
+FUSE 1
+1 25791U 99035A   00329.50545449  .00001099  00000-0  28863-3 0  1407
+2 25791  24.9807  41.5484 0010919 206.6216 153.3741 14.39723397 74828
+FUSE 1
+1 25791U 99035A   00326.80207218  .00000755  00000-0  18065-3 0  1395
+2 25791  24.9826  58.0674 0010967 178.4838 181.5705 14.39716699 74439
+FUSE 1
+1 25791U 99035A   00325.90094187 +.00000678 +00000-0 +15666-3 0 02663
+2 25791 024.9830 063.5734 0010889 169.1263 190.9481 14.39715100074301
+FUSE 1
+1 25791U 99035A   00324.86117451 +.00000608 +00000-0 +13450-3 0 02311
+2 25791 024.9833 069.9269 0010882 158.3926 201.7040 14.39713575074155
+FUSE 1
+1 25791U 99035A   00323.96004177 +.00000488 +00000-0 +96967-4 0 01894
+2 25791 024.9842 075.4361 0010837 150.2956 209.8168 14.39712104074027
+FUSE 1
+1 25791U 99035A   00322.92027010 +.00000542 +00000-0 +11394-3 0 01510
+2 25791 024.9842 081.7899 0010800 140.3373 219.7924 14.39711850073875
+FUSE 1
+1 25791U 99035A   00322.57367987  .00000544  00000-0  11471-3 0  1384
+2 25791  24.9842  83.9087 0010770 137.0085 223.1269 14.39711602 73828
+FUSE 1
+1 25791U 99035A   00321.88049734 +.00000639 +00000-0 +14444-3 0 02068
+2 25791 024.9838 088.1431 0010747 130.4414 229.7025 14.39711664073729
+FUSE 1
+1 25791U 99035A   00319.45435949  .00001051  00000-0  27399-3 0  1370
+2 25791  24.9822 102.9641 0011109 102.6166 257.5577 14.39710812 73374
+FUSE 1
+1 25791U 99035A   00318.83049407 +.00001135 +00000-0 +30023-3 0 02126
+2 25791 024.9820 106.7751 0011100 096.2751 263.9015 14.39710072073281
+FUSE 1
+1 25791U 99035A   00317.92935383 +.00001328 +00000-0 +36094-3 0 01927
+2 25791 024.9815 112.2808 0011081 086.9676 273.2095 14.39708951073151
+FUSE 1
+1 25791U 99035A   00316.95889405 +.00001476 +00000-0 +40722-3 0 01547
+2 25791 024.9811 118.2117 0011162 076.8388 283.3367 14.39707302073012
+FUSE 1
+1 25791U 99035A   00316.54298192  .00001536  00000-0  42622-3 0  1367
+2 25791  24.9808 120.7548 0011167  72.5609 287.6119 14.39706598 72958
+FUSE 1
+1 25791U 99035A   00312.17588299  .00001526  00000-0  42309-3 0  1352
+2 25791  24.9810 147.4346 0011047  26.6311 333.4765 14.39694429 72327
+FUSE 1
+1 25791U 99035A   00311.89860506 +.00001531 +00000-0 +42464-3 0 02432
+2 25791 024.9811 149.1285 0011021 023.7582 336.3433 14.39693742072285
+FUSE 1
+1 25791U 99035A   00310.92813172 +.00001533 +00000-0 +42529-3 0 02234
+2 25791 024.9811 155.0570 0011011 013.6669 346.4135 14.39691108072141
+FUSE 1
+1 25791U 99035A   00309.95765612 +.00001545 +00000-0 +42918-3 0 01953
+2 25791 024.9811 160.9853 0010987 003.5007 356.5574 14.39688573072001
+FUSE 1
+1 25791U 99035A   00308.91785913 +.00001558 +00000-0 +43320-3 0 01631
+2 25791 024.9811 167.3377 0010936 352.6420 007.3927 14.39685825071856
+FUSE 1
+1 25791U 99035A   00307.94738084  .00001523  00000-0  42238-3 0  1347
+2 25791  24.9813 173.2666 0010902 342.2944  17.7187 14.39682876 71715
+FUSE 1
+1 25791U 99035A   00306.90758062 +.00001494 +00000-0 +41322-3 0 02161
+2 25791 024.9816 179.6189 0010843 331.2370 028.7545 14.39679852071566
+FUSE 1
+1 25791U 99035A   00305.93709941 +.00001422 +00000-0 +39070-3 0 01847
+2 25791 024.9820 185.5476 0010836 320.8016 039.1721 14.39676778071420
+FUSE 1
+1 25791U 99035A   00304.96661633 +.00001342 +00000-0 +36540-3 0 01518
+2 25791 024.9825 191.4771 0010878 310.3487 049.6069 14.39673761071285
+FUSE 1
+1 25791U 99035A   00304.48137472  .00001294  00000-0  35039-3 0  1332
+2 25791  24.9827 194.4415 0010840 305.2721  54.6774 14.39672228 71217
+FUSE 1
+1 25791U 99035A   00300.94603167 +.00001128 +00000-0 +29826-3 0 01487
+2 25791 024.9836 216.0428 0010846 267.5163 092.4104 14.39663463070709
+FUSE 1
+1 25791U 99035A   00300.32214586  .00001125  00000-0  29742-3 0  1329
+2 25791  24.9837 219.8536 0010864 260.8686  99.0595 14.39662271 70610
+FUSE 1
+1 25791U 99035A   00299.97554307 +.00001099 +00000-0 +28908-3 0 02622
+2 25791 024.9840 221.9723 0010883 257.3195 102.6096 14.39661414070562
+FUSE 1
+1 25791U 99035A   00298.93573357 +.00001095 +00000-0 +28804-3 0 02219
+2 25791 024.9842 228.3263 0010808 246.2256 113.7131 14.39659498070412
+FUSE 1
+1 25791U 99035A   00297.96524296 +.00001101 +00000-0 +28980-3 0 01840
+2 25791 024.9843 234.2549 0010819 235.8887 124.0592 14.39657800070277
+FUSE 1
+1 25791U 99035A   00296.92543051 +.00001198 +00000-0 +32020-3 0 01469
+2 25791 024.9839 240.6071 0010755 225.0055 134.9574 14.39656593070122
+FUSE 1
+1 25791U 99035A   00296.23222249  .00001231  00000-0  33056-3 0  1318
+2 25791  24.9837 244.8414 0010747 217.7619 142.2134 14.39655396 70025
+FUSE 1
+1 25791U 99035A   00295.95493830 +.00001341 +00000-0 +36537-3 0 02570
+2 25791 024.9831 246.5364 0010694 214.7072 145.2732 14.39655631069985
+FUSE 1
+1 25791U 99035A   00294.98444509 +.00001216 +00000-0 +32610-3 0 02121
+2 25791 024.9831 252.4518 0011171 205.6776 154.3176 14.39652293069842
+FUSE 1                    
+1 25791U 99035A   00292.97413670  .00001233  00000-0  33120-3 0  1465
+2 25791  24.9832 264.7305 0011154 184.3003 175.7409 14.39648196 69551
+FUSE 1
+1 25791U 99035A   00292.21160463  .00001227  00000-0  32957-3 0  1304
+2 25791  24.9833 269.3878 0011141 176.2888 183.7705 14.39646543 69445
+FUSE 1
+1 25791U 99035A   00290.96382404  .00001125  00000-0  29744-3 0  2033
+2 25791  24.9839 277.0093 0011248 162.9629 197.1281 14.39643362 69263
+FUSE 1
+1 25791U 99035A   00289.92400452  .00001005  00000-0  25962-3 0  1697
+2 25791  24.9842 283.3623 0011271 152.1446 207.9673 14.39640561 69117
+FUSE 1
+1 25791U 99035A   00288.88418235  .00000939  00000-0  23889-3 0  1296
+2 25791  24.9839 289.7161 0011345 141.9406 218.1903 14.39638291 68963
+FUSE 1
+1 25791U 99035A   00286.94317390  .00000937  00000-0  23849-3 0  2050
+2 25791  24.9842 301.5720 0011377 121.8967 238.2636 14.39635355 68688
+FUSE 1
+1 25791U 99035A   00284.93283722  .00000946  00000-0  24124-3 0  1290
+2 25791  24.9844 313.8517 0011349 101.4953 258.6830 14.39632282 68394
+FUSE 1
+1 25791U 99035A   00283.82368229  .00001113  00000-0  29370-3 0  2356
+2 25791  24.9845 320.6276 0011360  90.5778 269.6031 14.39631230 68239
+FUSE 1
+1 25791U 99035A   00281.18943126  .00001671  00000-0  46933-3 0  1271
+2 25791  24.9838 336.7203 0011242  63.6820 296.4846 14.39626315 67854
+FUSE 1
+1 25791U 99035A   00279.87230155  .00001498  00000-0  41495-3 0  1843
+2 25791  24.9836 344.7657 0011284  49.9927 310.1569 14.39621506 67667
+FUSE 1
+1 25791U 99035A   00278.13922732  .00001349  00000-0  36829-3 0  1266
+2 25791  24.9841 355.3497 0011217  31.6026 328.5162 14.39615977 67417
+FUSE 1
+1 25791U 99035A   00275.92088045 +.00001249 +00000-0 +33679-3 0 02260
+2 25791 024.9846 008.8984 0011149 008.1796 351.8898 14.39610187067097
+FUSE 1
+1 25791U 99035A   00274.88102724 +.00001183 +00000-0 +31605-3 0 01932
+2 25791 024.9847 015.2496 0011092 357.4607 002.5840 14.39607485066943
+FUSE 1
+1 25791U 99035A   00273.91049603 +.00001143 +00000-0 +30335-3 0 01587
+2 25791 024.9849 021.1778 0011061 347.4078 012.6154 14.39605252066806
+FUSE 1
+1 25791U 99035A   00272.87063947  .00001058  00000-0  27682-3 0  1258
+2 25791  24.9850  27.5285 0010951 336.1587  23.8412 14.39602697 66652
+FUSE 1
+1 25791U 99035A   00271.90010587 +.00000952 +00000-0 +24332-3 0 02019
+2 25791 024.9849 033.4553 0010904 326.2752 033.7061 14.39600291066519
+FUSE 1
+1 25791U 99035A   00270.86024700 +.00000806 +00000-0 +19727-3 0 01755
+2 25791 024.9848 039.8050 0010873 315.4400 044.5233 14.39597817066368
+FUSE 1
+1 25791U 99035A   00269.95903493 +.00000698 +00000-0 +16343-3 0 01422
+2 25791 024.9847 045.3098 0010847 305.7600 054.1897 14.39596109066238
+FUSE 1
+1 25791U 99035A   00269.19647060  .00000662  00000-0  15206-3 0  1241
+2 25791  24.9847  49.9681 0010790 297.8206  62.1208 14.39595085 66121
+FUSE 1
+1 25791U 99035A   00265.93823791 +.00000839 +00000-0 +20769-3 0 01602
+2 25791 024.9853 069.8642 0010925 262.8653 097.0612 14.39592139065654
+FUSE 1
+1 25791U 99035A   00264.89837713  .00000866  00000-0  21632-3 0  1234
+2 25791  24.9853  76.2157 0010914 251.7893 108.1424 14.39590766 65501
+FUSE 1
+1 25791U 99035A   00263.85851584 +.00000759 +00000-0 +18267-3 0 02468
+2 25791 024.9844 082.5656 0011036 240.7792 119.1611 14.39588783065356
+FUSE 1
+1 25791U 99035A   00262.95730211 +.00000987 +00000-0 +25418-3 0 02190
+2 25791 024.9843 088.0698 0011108 231.2492 128.7025 14.39588229065220
+FUSE 1
+1 25791U 99035A   00261.91744362 +.00000854 +00000-0 +21237-3 0 01903
+2 25791 024.9840 094.4417 0011199 219.5461 140.4230 14.39586929065079
+FUSE 1
+1 25791U 99035A   00260.94690555 +.00000874 +00000-0 +21887-3 0 01496
+2 25791 024.9839 100.3694 0011196 209.3232 150.6648 14.39585857064930
+FUSE 1
+1 25791U 99035A   00260.60028428  .00000895  00000-0  22526-3 0  1228
+2 25791  24.9838 102.4866 0011182 205.8154 154.1794 14.39585645 64882
+FUSE 1
+1 25791U 99035A   00257.89664249 +.00000980 +00000-0 +25207-3 0 01574
+2 25791 024.9797 119.0147 0011228 178.5341 181.5202 14.39582285064499
+FUSE 1
+1 25791U 99035A   00256.92610205 +.00001007 +00000-0 +26048-3 0 01317
+2 25791 024.9796 124.9428 0011260 168.6067 191.4699 14.39580956064354
+FUSE 1
+1 25791U 99035A   00256.57948045  .00001009  00000-0  26113-3 0  1218
+2 25791  24.9796 127.0600 0011258 164.9452 195.1394 14.39580392 64306
+FUSE 1
+1 25791U 99035A   00255.95556083 +.00001022 +00000-0 +26540-3 0 02272
+2 25791 024.9796 130.8705 0011304 158.5484 201.5503 14.39579482064212
+FUSE 1
+1 25791U 99035A   00254.91569423 +.00001012 +00000-0 +26236-3 0 01998
+2 25791 024.9795 137.2214 0011318 147.7697 212.3506 14.39577628064064
+FUSE 1
+1 25791U 99035A   00253.94515052 +.00000993 +00000-0 +25614-3 0 01704
+2 25791 024.9796 143.1491 0011353 137.8454 222.2931 14.39575858063927
+FUSE 1
+1 25791U 99035A   00252.90528132 +.00000931 +00000-0 +23692-3 0 01337
+2 25791 024.9802 149.5025 0011353 127.3223 232.8322 14.39573664063773
+FUSE 1
+1 25791U 99035A   00252.21203297  .00000929  00000-0  23624-3 0  1201
+2 25791  24.9802 153.7367 0011354 120.2792 239.8836 14.39572606 63674
+FUSE 1
+1 25791U 99035A   00250.96418540 +.00000820 +00000-0 +20171-3 0 02317
+2 25791 024.9813 161.3571 0011231 106.6703 253.5039 14.39569924063499
+FUSE 1
+1 25791U 99035A   00249.92430983 +.00000751 +00000-0 +18005-3 0 01973
+2 25791 024.9819 167.7098 0011202 095.9335 264.2451 14.39568010063344
+FUSE 1
+1 25791U 99035A   00248.95375648 +.00000728 +00000-0 +17305-3 0 01641
+2 25791 024.9822 173.6380 0011200 085.7277 274.4508 14.39566715063209
+FUSE 1
+1 25791U 99035A   00247.98320188 +.00000685 +00000-0 +15936-3 0 01204
+2 25791 024.9827 179.5664 0011177 075.4057 284.7689 14.39565289063062
+FUSE 1
+1 25791U 99035A   00247.91387641  .00000685  00000-0  15938-3 0  1194
+2 25791  24.9827 179.9897 0011176  74.6798 285.4945 14.39565219 63051
+FUSE 1
+1 25791U 99035A   00243.89298918 +.00000627 +00000-0 +14121-3 0 01217
+2 25791 024.9838 204.5495 0011279 032.6718 327.4493 14.39560964062474
+FUSE 1
+1 25791U 99035A   00243.54635985  .00000620  00000-0  13900-3 0  1181
+2 25791  24.9838 206.6661 0011299  29.0913 331.0222 14.39560578 62428
+FUSE 1
+1 25791U 99035A   00242.92242652 +.00000636 +00000-0 +14397-3 0 02524
+2 25791 024.9839 210.4766 0011308 022.5635 337.5375 14.39560193062331
+FUSE 1
+1 25791U 99035A   00241.95186248 +.00000663 +00000-0 +15237-3 0 02180
+2 25791 024.9839 216.4045 0011240 012.3907 347.6875 14.39559570062199
+FUSE 1
+1 25791U 99035A   00241.11995000 +.00000705 +00000-0 +16585-3 0 01905
+2 25791 024.9843 221.4849 0011230 004.1902 355.8697 14.39559225062072
+FUSE 1
+1 25791U 99035A   00240.14938556 +.00000715 +00000-0 +16878-3 0 01535
+2 25791 024.9843 227.4129 0011265 353.6646 006.3718 14.39558267061935
+FUSE 1
+1 25791U 99035A   00239.24814579  .00000768  00000-0  18562-3 0  1172
+2 25791  24.9851 232.9197 0011057 343.6898  16.3253 14.39557918 61800
+FUSE 1
+1 25791U 99035A   00237.16836108 +.00000937 +00000-0 +23867-3 0 01265
+2 25791 024.9852 245.6242 0010930 321.1150 038.8565 14.39556840061509
+FUSE 1
+1 25791U 99035A   00236.47509969  .00000981  00000-0  25253-3 0  1169
+2 25791  24.9852 249.8576 0010910 313.5211  46.4389 14.39556202 61406
+FUSE 1
+1 25791U 99035A   00236.12846894 +.00001006 +00000-0 +26041-3 0 02540
+2 25791 024.9853 251.9740 0010908 310.0331 049.9215 14.39555895061353
+FUSE 1
+1 25791U 99035A   00234.18733724 +.00001106 +00000-0 +29194-3 0 01914
+2 25791 024.9856 263.8291 0010929 289.3257 070.6065 14.39553537061071
+FUSE 1
+1 25791U 99035A   00233.97935917 +.00001108 +00000-0 +29254-3 0 01827
+2 25791 024.9855 265.0992 0010925 287.2111 072.7202 14.39553153061041
+FUSE 1
+1 25791U 99035A   00232.93946679 +.00001150 +00000-0 +30606-3 0 01414
+2 25791 024.9859 271.4505 0010949 275.8605 084.0653 14.39551685060899
+FUSE 1
+1 25791U 99035A   00232.24620540  .00001162  00000-0  30984-3 0  1157
+2 25791  24.9861 275.6842 0010947 268.2547  91.6703 14.39550498 60791
+FUSE 1
+1 25791U 99035A   00230.85968265 +.00001168 +00000-0 +31152-3 0 01841
+2 25791 024.9861 284.1498 0010908 253.3956 106.5351 14.39547810060596
+FUSE 1
+1 25791U 99035A   00229.88911656 +.00001173 +00000-0 +31324-3 0 01650
+2 25791 024.9862 290.0753 0010918 243.1432 116.7994 14.39545953060451
+FUSE 1
+1 25791U 99035A   00228.84922713 +.00001681 +00000-0 +47341-3 0 01392
+2 25791 024.9833 296.4467 0010541 233.3366 126.6176 14.39544754060304
+FUSE 1
+1 25791U 99035A   00228.22529183  .00001437  00000-0  39642-3 0  1145
+2 25791  24.9839 300.2597 0010660 226.7882 133.1742 14.39542247 60216
+FUSE 1
+1 25791U 99035A   00227.87866114 +.00001204 +00000-0 +32286-3 0 01748
+2 25791 024.9843 302.3743 0010672 222.4107 137.5583 14.39540549060161
+FUSE 1
+1 25791U 99035A   00226.90809209 +.00001066 +00000-0 +27935-3 0 01531
+2 25791 024.9844 308.3015 0010818 212.0864 147.8990 14.39538035060025
+FUSE 1
+1 25791U 99035A   00225.86819636 +.00000875 +00000-0 +21927-3 0 01240
+2 25791 024.9839 314.6498 0010966 200.7238 159.2827 14.39535222059879
+FUSE 1
+1 25791U 99035A   00225.59089041  .00000839  00000-0  20809-3 0  1135
+2 25791  24.9841 316.3434 0010990 198.0059 162.0059 14.39534638 59833
+FUSE 1
+1 25791U 99035A   00222.88715209 +.00000729 +00000-0 +17338-3 0 01575
+2 25791 024.9839 332.8560 0011113 170.5138 189.5580 14.39530485059440
+FUSE 1
+1 25791U 99035A   00221.91657699 +.00000732 +00000-0 +17430-3 0 01315
+2 25791 024.9840 338.7844 0011141 160.6691 199.4239 14.39529454059307
+FUSE 1
+1 25791U 99035A   00221.15398144  .00000741  00000-0  17714-3 0  1122
+2 25791  24.9839 343.4418 0011158 152.7937 207.3154 14.39528689 59199
+FUSE 1
+1 25791U 99035A   00219.90609556 +.00000787 +00000-0 +19148-3 0 01712
+2 25791 024.9839 351.0626 0011186 140.1583 219.9740 14.39527697059013
+FUSE 1
+1 25791U 99035A   00218.93551634 +.00000842 +00000-0 +20903-3 0 01383
+2 25791 024.9842 356.9905 0011221 130.2195 229.9294 14.39527076058879
+FUSE 1
+1 25791U 99035A   00218.24224392  .00000911  00000-0  23076-3 0  1117
+2 25791  24.9837   1.2239 0011126 122.7808 237.3779 14.39526803 58771
+FUSE 1
+1 25791U 99035A   00216.92502528 +.00000994 +00000-0 +25698-3 0 01359
+2 25791 024.9840 009.2668 0011090 109.2022 250.9670 14.39525666058583
+FUSE 1
+1 25791U 99035A   00215.95444232 +.00001073 +00000-0 +28173-3 0 01224
+2 25791 024.9846 015.1947 0011165 099.5630 260.6137 14.39524901058446
+FUSE 1
+1 25791U 99035A   00215.19184019  .00001121  00000-0  29713-3 0  1106
+2 25791  24.9845  19.8506 0011155  91.5631 268.6149 14.39524011 58330
+FUSE 1
+1 25791U 99035A   00213.87461582 +.00001234 +00000-0 +33255-3 0 01563
+2 25791 024.9851 027.8945 0011173 078.5475 281.6282 14.39522670058145
+FUSE 1
+1 25791U 99035A   00212.90402845 +.00001276 +00000-0 +34584-3 0 01363
+2 25791 024.9853 033.8211 0011136 068.8066 291.3628 14.39521095058004
+FUSE 1
+1 25791U 99035A   00212.14142266  .00001313  00000-0  35764-3 0  1090
+2 25791  24.9850  38.4778 0011130  60.7162 299.4447 14.39519790 57895
+FUSE 1
+1 25791U 99035A   00209.92292793 +.00001396 +00000-0 +38383-3 0 01533
+2 25791 024.9849 052.0258 0011073 037.5021 322.6251 14.39515598057579
+FUSE 1
+1 25791U 99035A   00208.95233548 +.00001473 +00000-0 +40802-3 0 01252
+2 25791 024.9837 057.9580 0011424 026.9665 333.1435 14.39514058057430
+FUSE 1
+1 25791U 99035A   00208.18972549  .00001576  00000-0  44071-3 0  1085
+2 25791  24.9833  62.6176 0011472  18.7210 341.3716 14.39512347 57328
+FUSE 1
+1 25791U 99035A   00206.94181514 +.00001511 +00000-0 +42008-3 0 01921
+2 25791 024.9854 070.2405 0011038 006.6126 353.4533 14.39509278057141
+FUSE 1
+1 25791U 99035A   00205.97121710 +.00001487 +00000-0 +41266-3 0 01685
+2 25791 024.9852 076.1701 0011017 356.2364 003.8067 14.39506509057005
+FUSE 1
+1 25791U 99035A   00204.93128816 +.00001476 +00000-0 +40903-3 0 01386
+2 25791 024.9852 082.5219 0010972 345.2641 014.7546 14.39503741056855
+FUSE 1
+1 25791U 99035A   00203.96068597 +.00001638 +00000-0 +46010-3 0 01113
+2 25791 024.9851 088.4485 0010910 335.3315 024.6669 14.39501677056711
+FUSE 1
+1 25791U 99035A   00203.89135786  .00001602  00000-0  44873-3 0  1071
+2 25791  24.9852  88.8720 0010897 334.6954  25.3042 14.39501366 56700
+FUSE 1
+1 25791U 99035A   00201.95014789 +.00001572 +00000-0 +43936-3 0 01799
+2 25791 024.9852 100.7256 0010918 312.2678 047.6911 14.39496898056421
+FUSE 1
+1 25791U 99035A   00200.97954187 +.00001738 +00000-0 +49182-3 0 01451
+2 25791 024.9852 106.6535 0010962 301.6227 058.3210 14.39494751056288
+FUSE 1
+1 25791U 99035A   00199.93960649 +.00001805 +00000-0 +51300-3 0 01117
+2 25791 024.9853 113.0050 0010969 290.2578 069.6750 14.39491667056133
+FUSE 1
+1 25791U 99035A   00199.87027750  .00001803  00000-0  51229-3 0  1069
+2 25791  24.9852 113.4283 0010971 289.5399  70.3926 14.39491421 56120
+FUSE 1
+1 25791U 99035A   00198.96900068 +.00001318 +00000-0 +35923-3 0 01266
+2 25791 024.9850 118.9330 0011332 279.9281 079.9947 14.39486512055993
+FUSE 1
+1 25791U 99035A   00198.20638092  .00001053  00000-0  27558-3 0  1056
+2 25791  24.9852 123.5922 0011255 271.8947  88.0275 14.39483842 55884
+FUSE 1
+1 25791U 99035A   00195.91851583  .00000689  00000-0  16100-3 0  1047
+2 25791  24.9847 137.5630 0011254 247.8427 112.0894 14.39478555 55558
+FUSE 1
+1 25791U 99035A   00194.94790513 +.00000622 +00000-0 +13965-3 0 02217
+2 25791 024.9845 143.4897 0011244 237.8927 122.0496 14.39476756055415
+FUSE 1
+1 25791U 99035A   00193.97729403 +.00000584 +00000-0 +12775-3 0 01820
+2 25791 024.9847 149.4236 0011293 228.1708 131.7837 14.39475391055278
+FUSE 1
+1 25791U 99035A   00192.93735201 +.00000550 +00000-0 +11684-3 0 01414
+2 25791 024.9846 155.7737 0011308 217.3578 142.6152 14.39474212055121
+FUSE 1
+1 25791U 99035A   00191.96673850 +.00000542 +00000-0 +11437-3 0 01065
+2 25791 024.9844 161.7002 0011295 207.2529 152.7388 14.39473399054981
+FUSE 1
+1 25791U 99035A   00191.89740911  .00000540  00000-0  11391-3 0  1034
+2 25791  24.9843 162.1235 0011294 206.5071 153.4866 14.39473330 54979
+FUSE 1
+1 25791U 99035A   00188.91623713 +.00000545 +00000-0 +11536-3 0 01387
+2 25791 024.9846 180.3280 0011401 175.5058 184.5555 14.39471262054549
+FUSE 1
+1 25791U 99035A   00187.94562172 +.00000562 +00000-0 +12095-3 0 01032
+2 25791 024.9848 186.2545 0011434 165.3569 194.7270 14.39470796054403
+FUSE 1
+1 25791U 99035A   00187.87629207  .00000562  00000-0  12095-3 0  1026
+2 25791  24.9848 186.6777 0011434 164.6313 195.4544 14.39470742 54394
+FUSE 1
+1 25791U 99035A   00183.57784536  .00000667  00000-0  15416-3 0  1011
+2 25791  24.9855 212.9320 0011413 120.5817 239.5821 14.39468389 53779
+FUSE 1
+1 25791U 99035A   00181.91392783 +.00000671 +00000-0 +15546-3 0 01789
+2 25791 024.9854 223.1058 0011337 102.1276 258.0499 14.39467140053535
+FUSE 1
+1 25791U 99035A   00180.87397553 +.00000700 +00000-0 +16442-3 0 01445
+2 25791 024.9852 229.4559 0011322 091.4012 268.7791 14.39466353053381
+FUSE 1
+1 25791U 99035A   00179.97268238 +.00000726 +00000-0 +17280-3 0 01057
+2 25791 024.9855 234.9604 0011315 082.3086 277.8702 14.39465677053255
+FUSE 1
+1 25791U 99035A   00179.55670036  .00000742  00000-0  17762-3 0  1002
+2 25791  24.9855 237.5004 0011277  78.2476 281.9296 14.39465389 53199
+FUSE 1
+1 25791U 99035A   00178.86339700 +.00000752 +00000-0 +18089-3 0 02381
+2 25791 024.9856 241.7337 0011290 070.9195 289.2531 14.39464704053090
+FUSE 1
+1 25791U 99035A   00177.89277115 +.00000766 +00000-0 +18548-3 0 02031
+2 25791 024.9859 247.6607 0011289 060.8540 299.3095 14.39463739052956
+FUSE 1
+1 25791U 99035A   00176.92214342 +.00000800 +00000-0 +19601-3 0 01665
+2 25791 024.9859 253.5881 0011190 051.0927 309.0575 14.39462915052810
+FUSE 1
+1 25791U 99035A   00175.88218431 +.00000816 +00000-0 +20117-3 0 01315
+2 25791 024.9862 259.9387 0011137 040.3293 319.8037 14.39461801052661
+FUSE 1
+1 25791U 99035A   00175.25820859  .00000821  00000-0  20275-3 0   993
+2 25791  24.9863 263.7490 0011148  33.8548 326.2678 14.39461054 52575
+FUSE 1
+1 25791U 99035A   00173.87159264 +.00000872 +00000-0 +21895-3 0 01978
+2 25791 024.9863 272.2156 0011038 020.3739 339.7205 14.39459774052379
+FUSE 1
+1 25791U 99035A   00172.90096122 +.00000862 +00000-0 +21562-3 0 01592
+2 25791 024.9869 278.1422 0011016 010.0480 350.0243 14.39458368052232
+FUSE 1
+1 25791U 99035A   00171.93032817 +.00000868 +00000-0 +21744-3 0 01290
+2 25791 024.9870 284.0679 0010950 359.6225 000.4272 14.39457116052091
+FUSE 1
+1 25791U 99035A   00170.95969467 +.00000873 +00000-0 +21901-3 0 01001
+2 25791 024.9872 289.9957 0010930 349.1807 010.8463 14.39455848051955
+FUSE 1
+1 25791U 99035A   00170.89036360  .00000875  00000-0  21983-3 0   989
+2 25791  24.9872 290.4190 0010916 348.4366  11.5890 14.39455786 51949
+FUSE 1
+1 25791U 99035A   00167.83979740 +.00000834 +00000-0 +20689-3 0 01244
+2 25791 024.9865 309.0441 0011049 315.9144 044.0481 14.39451106051509
+FUSE 1
+1 25791U 99035A   00166.93849291 +.00000817 +00000-0 +20146-3 0 00991
+2 25791 024.9866 314.5466 0011043 306.5008 053.4481 14.39449711051375
+FUSE 1
+1 25791U 99035A   00166.86916175  .00000816  00000-0  20127-3 0   975
+2 25791  24.9867 314.9701 0011045 305.7696  54.1782 14.39449617 51364
+FUSE 1
+1 25791U 99035A   00165.89852612 +.00001393 +00000-0 +38331-3 0 01420
+2 25791 024.9880 320.9003 0010529 293.0245 066.9309 14.39451820051226
+FUSE 1
+1 25791U 99035A   00164.92788963 +.00001058 +00000-0 +27751-3 0 01130
+2 25791 024.9900 326.8234 0010700 286.6900 073.2425 14.39448463051080
+FUSE 1
+1 25791U 99035A   00164.58123317  .00001414  00000-0  39006-3 0   960
+2 25791  24.9895 328.9405 0010608 283.0060  76.9260 14.39449353 51032
+FUSE 1
+1 25791U 99035A   00163.88792360 +.00001009 +00000-0 +26201-3 0 01988
+2 25791 024.9902 333.1737 0010422 276.0922 083.8398 14.39446429050938
+FUSE 1
+1 25791U 99035A   00162.91728936 +.00000838 +00000-0 +20810-3 0 01731
+2 25791 024.9924 339.1014 0009907 267.6684 092.2688 14.39444419050790
+FUSE                    
+1 25791U 99035A   00160.90668101  .00000585  00000-0  12820-3 0  1084
+2 25791  24.9857 351.3806 0010965 243.0464 116.8920 14.39441160 50501
+FUSE                    
+1 25791U 99035A   00159.93604429  .00000520  00000-0  10769-3 0  2088
+2 25791  24.9857 357.3078 0010932 232.6720 127.2791 14.39439999 50364
+FUSE                    
+1 25791U 99035A   00158.89607500  .00000535  00000-0  11232-3 0  1828
+2 25791  24.9859   3.6563 0011010 221.7464 138.2204 14.39439406 50216
+FUSE                    
+1 25791U 99035A   00157.92543755  .00000593  00000-0  13055-3 0  1551
+2 25791  24.9862   9.5835 0010973 212.1855 147.7986 14.39438945 50075
+FUSE                    
+1 25791U 99035A   00156.95479994  .00000684  00000-0  15953-3 0  1220
+2 25791  24.9855  15.5108 0010936 202.2301 157.7734 14.39438339 49934
+FUSE                    
+1 25791U 99035A   00153.90422121  .00000864  00000-0  21631-3 0  1165
+2 25791  24.9865  34.1388 0011133 170.3555 189.7168 14.39436079 49494
+FUSE                    
+1 25791U 99035A   00152.93358165  .00000892  00000-0  22526-3 0  1001
+2 25791  24.9870  40.0657 0011211 160.4686 199.6263 14.39435106 49358
+FUSE                    
+1 25791U 99035A   00151.96294208  .00000727  00000-0  17304-3 0  1612
+2 25791  24.9867  45.9944 0011211 149.4582 210.6578 14.39433226 49218
+FUSE 1
+1 25791U 99035A   00150.92296786 +.00000783 +00000-0 +19073-3 0 01460
+2 25791 024.9865 052.3453 0011336 140.3401 219.7938 14.39432403049060
+FUSE 1
+1 25791U 99035A   00149.95232539 +.00000829 +00000-0 +20521-3 0 01198
+2 25791 024.9864 058.2759 0011314 130.9449 229.2035 14.39431340048923
+FUSE 1
+1 25791U 99035A   00148.91235042  .00001108  00000-0  29356-3 0   921
+2 25791  24.9862  64.6309 0011392 119.2869 240.8777 14.39431427 48776
+FUSE 1
+1 25791U 99035A   00146.97105909 +.00001049 +00000-0 +27490-3 0 01217
+2 25791 024.9860 076.4928 0011034 100.1008 260.0730 14.39427312048499
+FUSE 1
+1 25791U 99035A   00145.93107729 +.00001195 +00000-0 +32101-3 0 01053
+2 25791 024.9858 082.8448 0010906 089.5878 270.5877 14.39425983048340
+FUSE 1
+1 25791U 99035A   00144.96042610 +.00001210 +00000-0 +32585-3 0 00943
+2 25791 024.9858 088.7713 0010797 079.6238 280.5487 14.39424047048201
+FUSE 1
+1 25791U 99035A   00144.89109336  .00001242  00000-0  33587-3 0   919
+2 25791  24.9856  89.1955 0010755  78.9603 281.2108 14.39424127 48199
+FUSE 1
+1 25791U 99035A   00143.92043990 +.00001286 +00000-0 +34981-3 0 01362
+2 25791 024.9853 095.1215 0010661 068.9516 291.2131 14.39422329048054
+FUSE 1
+1 25791U 99035A   00142.94978508 +.00001390 +00000-0 +38255-3 0 01224
+2 25791 024.9849 101.0495 0010673 058.3816 301.7746 14.39420789047916
+FUSE 1
+1 25791U 99035A   00141.97912863 +.00001410 +00000-0 +38914-3 0 01076
+2 25791 024.9848 106.9769 0010693 048.0107 312.1315 14.39418518047773
+FUSE 1
+1 25791U 99035A   00140.31514173  .00001395  00000-0  38437-3 0   908
+2 25791  24.9846 117.1387 0010720  30.1996 329.9129 14.39414225 47534
+FUSE 1
+1 25791U 99035A   00139.96847802 +.00001336 +00000-0 +36555-3 0 01225
+2 25791 024.9846 119.2585 0010753 026.5593 333.5472 14.39413031047485
+FUSE 1
+1 25791U 99035A   00138.30448417 +.00000986 +00000-0 +25496-3 0 01032
+2 25791 024.9849 129.4190 0010807 008.4590 351.6103 14.39408079047241
+FUSE 1
+1 25791U 99035A   00138.16581799 +.00000917 +00000-0 +23330-3 0 00989
+2 25791 024.9852 130.2683 0010800 006.3941 353.6704 14.39407532047222
+FUSE 1
+1 25791U 99035A   00137.33381884  .00000891  00000-0  22495-3 0   892
+2 25791  24.9849 135.3478 0010942 358.1038   1.9431 14.39406114 47100
+FUSE 1
+1 25791U 99035A   00137.12581947 +.00000782 +00000-0 +19067-3 0 01443
+2 25791 024.9853 136.6194 0010936 354.9891 005.0518 14.39405165047070
+FUSE 1
+1 25791U 99035A   00136.15515183 +.00000717 +00000-0 +17007-3 0 01309
+2 25791 024.9856 142.5472 0011025 344.6838 015.3341 14.39403617046937
+FUSE 1
+1 25791U 99035A   00135.11514942 +.00000688 +00000-0 +16101-3 0 01150
+2 25791 024.9856 148.8977 0011074 333.6712 026.3233 14.39402271046789
+FUSE 1
+1 25791U 99035A   00134.14447983 +.00000686 +00000-0 +16024-3 0 01019
+2 25791 024.9858 154.8255 0011141 323.3354 036.6390 14.39401238046645
+FUSE 1
+1 25791U 99035A   00133.24314397  .00000697  00000-0  16371-3 0   882
+2 25791  24.9859 160.3315 0011225 313.9280  46.0306 14.39400350 46513
+FUSE 1
+1 25791U 99035A   00132.13380598 +.00000799 +00000-0 +19602-3 0 01249
+2 25791 024.9855 167.1074 0011235 302.2916 057.6506 14.39399858046356
+FUSE 1
+1 25791U 99035A   00130.46979970 +.00000876 +00000-0 +22019-3 0 01108
+2 25791 024.9854 177.2667 0011205 284.7991 075.1274 14.39398379046117
+FUSE 1
+1 25791U 99035A   00129.42979604 +.00000935 +00000-0 +23904-3 0 00958
+2 25791 024.9855 183.6177 0011214 273.6439 086.2789 14.39397418045968
+FUSE 1
+1 25791U 99035A   00129.22179542  .00000943  00000-0  24155-3 0   878
+2 25791  24.9857 184.8897 0011260 271.3687  88.5531 14.39397203 45932
+FUSE 1
+1 25791U 99035A   00124.57644568  .00001168  00000-0  31255-3 0   864
+2 25791  24.9853 213.2548 0011424 222.2133 137.7495 14.39390992 45261
+FUSE 1
+1 25791U 99035A   00123.60577526 +.00001181 +00000-0 +31680-3 0 01291
+2 25791 024.9854 219.1824 0011455 212.1770 147.8041 14.39389176045129
+FUSE 1
+1 25791U 99035A   00122.63510361 +.00001231 +00000-0 +33248-3 0 01161
+2 25791 024.9854 225.1097 0011461 201.9716 158.0303 14.39387621044982
+FUSE 1
+1 25791U 99035A   00121.66443151 +.00001251 +00000-0 +33895-3 0 01031
+2 25791 024.9854 231.0388 0011524 192.1664 167.8570 14.39385753044847
+FUSE 1
+1 25791U 99035A   00120.69375881 +.00001261 +00000-0 +34204-3 0 00919
+2 25791 024.9855 236.9674 0011466 182.0966 177.9496 14.39383716044709
+FUSE 1
+1 25791U 99035A   00120.55509156  .00001252  00000-0  33924-3 0   859
+2 25791  24.9857 237.8165 0011446 180.8748 179.1742 14.39383343 44689
+FUSE 1
+1 25791U 99035A   00118.68307534 +.00001268 +00000-0 +34428-3 0 01247
+2 25791 024.9853 249.2479 0011337 161.2641 198.8291 14.39379290044418
+FUSE 1
+1 25791U 99035A   00117.71239774 +.00001285 +00000-0 +34957-3 0 01099
+2 25791 024.9854 255.1775 0011271 151.1573 208.9557 14.39377287044279
+FUSE 1
+1 25791U 99035A   00116.74171833 +.00001334 +00000-0 +36531-3 0 00984
+2 25791 024.9851 261.1035 0011286 140.4017 219.7326 14.39375466044138
+FUSE 1
+1 25791U 99035A   00115.77103748  .00001336  00000-0  36589-3 0   846
+2 25791  24.9850 267.0332 0011164 130.0444 230.1046 14.39373163 43997
+FUSE 1
+1 25791U 99035A   00114.80035556 +.00001323 +00000-0 +36184-3 0 01051
+2 25791 024.9850 272.9636 0011139 118.8594 241.3037 14.39370701043855
+FUSE 1
+1 25791U 99035A   00113.48299633 +.00001343 +00000-0 +36805-3 0 00918
+2 25791 024.9847 281.0129 0011026 104.5281 255.6449 14.39367716043665
+FUSE 1
+1 25791U 99035A   00112.58164220 +.00001325 +00000-0 +36244-3 0 00895
+2 25791 024.9847 286.5147 0010991 094.9470 265.2284 14.39365442043531
+FUSE 1
+1 25791U 99035A   00111.61095147  .00001385  00000-0  38153-3 0   830
+2 25791  24.9843 292.4418 0011151  84.3852 275.7943 14.39363622 43390
+FUSE 1
+1 25791U 99035A   00110.57092100 +.00001565 +00000-0 +43855-3 0 00880
+2 25791 024.9834 298.7936 0011325 073.8814 286.2937 14.39362514043241
+FUSE 1
+1 25791U 99035A   00108.62952641 +.00001728 +00000-0 +49007-3 0 00851
+2 25791 024.9828 310.6444 0011254 054.3518 305.8020 14.39358127042962
+FUSE 1
+1 25791U 99035A   00107.93616998 +.00001752 +00000-0 +49756-3 0 00843
+2 25791 024.9826 314.8766 0011241 047.0226 313.1227 14.39356131042867
+FUSE 1
+1 25791U 99035A   00107.86683435  .00001753  00000-0  49803-3 0   827
+2 25791  24.9827 315.3009 0011242  46.2771 313.8667 14.39355927 42857
+FUSE 1
+1 25791U 99035A   00105.85608578  .00002056  00000-0  59388-3 0   814
+2 25791  24.9817 327.5892 0010873  23.0273 337.0569 14.39351807 42560
+FUSE 1
+1 25791U 99035A   00104.67736936 +.00002243 +00000-0 +65292-3 0 00823
+2 25791 024.9813 334.7843 0010911 011.3549 348.7002 14.39348712042394
+FUSE 1
+1 25791U 99035A   00103.91467118 +.00002381 +00000-0 +69669-3 0 00816
+2 25791 024.9810 339.4400 0010675 002.0282 358.0252 14.39346695042287
+FUSE 1
+1 25791U 99035A   00103.01329876 +.00002405 +00000-0 +70441-3 0 01194
+2 25791 024.9809 344.9404 0010670 352.8750 007.1606 14.39342875042158
+FUSE 1
+1 25791U 99035A   00101.97324977 +.00002555 +00000-0 +75197-3 0 01137
+2 25791 024.9805 351.2909 0010643 342.0641 017.9481 14.39339226042005
+FUSE 1
+1 25791U 99035A   00101.07187295 +.00002583 +00000-0 +76093-3 0 01124
+2 25791 024.9805 356.7922 0010619 332.7422 027.2531 14.39335099041874
+FUSE 1
+1 25791U 99035A   00100.10115731 +.00002671 +00000-0 +78880-3 0 00968
+2 25791 024.9799 002.7214 0010593 322.7422 037.2356 14.39330819041734
+FUSE 1
+1 25791U 99035A   00099.13043908  .00002590  00000-0  76309-3 0   799
+2 25791  24.9798   8.6538 0010792 311.2745  48.6840 14.39325505 41593
+FUSE 1
+1 25791U 99035A   00098.09037990 +.00002445 +00000-0 +71735-3 0 00851
+2 25791 024.9802 015.0028 0010995 299.5824 060.3584 14.39319881041446
+FUSE 1
+1 25791U 99035A   00097.11965747 +.00002329 +00000-0 +68059-3 0 00815
+2 25791 024.9804 020.9278 0010970 289.9717 069.9613 14.39314724041301
+FUSE 1
+1 25791U 99035A   00096.14893064 +.00002270 +00000-0 +66193-3 0 00877
+2 25791 024.9807 026.8527 0011076 279.9873 079.9390 14.39310047041167
+FUSE 1
+1 25791U 99035A   00095.17820409 +.00002063 +00000-0 +59661-3 0 00795
+2 25791 024.9813 032.7786 0011255 270.8469 089.0777 14.39304208041025
+FUSE 1
+1 25791U 99035A   00094.20747091  .00001992  00000-0  57410-3 0   771
+2 25791  24.9816  38.7034 0011419 261.0932  98.8284 14.39299966 40887
+FUSE 1
+1 25791U 99035A   00092.19666424  .00001729  00000-0  49103-3 0   764
+2 25791  24.9822  50.9810 0011573 241.7849 118.1493 14.39290662 40595
+FUSE 1
+1 25791U 99035A   00090.18584768 +.00001549 +00000-0 +43389-3 0 00794
+2 25791 024.9830 063.2550 0011512 221.2878 138.6763 14.39283008040302
+FUSE 1
+1 25791U 99035A   00089.28444503  .00001459  00000-0  40539-3 0   755
+2 25791  24.9832  68.7566 0011380 211.8222 148.1602 14.39279719 40179
+FUSE 1
+1 25791U 99035A   00088.31370039 +.00001360 +00000-0 +37404-3 0 00961
+2 25791 024.9836 074.6816 0011423 202.4456 157.5555 14.39276438040031
+FUSE 1
+1 25791U 99035A   00088.03634565 +.00001304 +00000-0 +35643-3 0 00913
+2 25791 024.9839 076.3760 0011454 200.2734 159.7366 14.39275277039997
+FUSE 1
+1 25791U 99035A   00087.20427617 +.00001254 +00000-0 +34072-3 0 00840
+2 25791 024.9841 081.4558 0011382 191.8207 168.2033 14.39272923039870
+FUSE 1
+1 25791U 99035A   00086.23352802  .00001203  00000-0  32440-3 0   745
+2 25791  24.9842  87.3815 0011279 181.4280 178.6196 14.39270365 39731
+FUSE 1
+1 25791U 99035A   00084.22268757 +.00001077 +00000-0 +28473-3 0 00961
+2 25791 024.9845 099.6586 0011009 160.1136 199.9804 14.39265143039448
+FUSE 1
+1 25791U 99035A   00083.18259301 +.00001067 +00000-0 +28137-3 0 00832
+2 25791 024.9846 106.0081 0010977 149.2929 210.8223 14.39263170039292
+FUSE 1
+1 25791U 99035A   00082.21183569  .00001096  00000-0  29069-3 0   733
+2 25791  24.9846 111.9346 0010974 139.3047 220.8279 14.39261692 39153
+FUSE 1
+1 25791U 99035A   00081.17173683 +.00001160 +00000-0 +31097-3 0 01011
+2 25791 024.9843 118.2860 0010946 128.6797 231.4693 14.39260290039008
+FUSE 1
+1 25791U 99035A   00080.20097578 +.00001213 +00000-0 +32794-3 0 00880
+2 25791 024.9841 124.2128 0010923 118.8383 241.3214 14.39258856038864
+FUSE 1
+1 25791U 99035A   00079.23021298  .00001324  00000-0  36292-3 0   720
+2 25791  24.9837 130.1398 0010979 108.5196 251.6496 14.39257774 38722
+FUSE 1
+1 25791U 99035A   00077.21934109 +.00001513 +00000-0 +42309-3 0 00861
+2 25791 024.9829 142.4172 0010838 088.8266 271.3475 14.39254631038434
+FUSE 1
+1 25791U 99035A   00075.55516719  .00001577  00000-0  44314-3 0   711
+2 25791  24.9825 152.5756 0010789  71.5815 288.5864 14.39250628 38191
+FUSE 1
+1 25791U 99035A   00073.61362244 +.00001623 +00000-0 +45792-3 0 01149
+2 25791 024.9823 164.4274 0010664 051.3108 308.8354 14.39245491037910
+FUSE 1
+1 25791U 99035A   00072.64284711 +.00001597 +00000-0 +44979-3 0 01015
+2 25791 024.9825 170.3543 0010564 040.8844 319.2456 14.39242488037772
+FUSE 1
+1 25791U 99035A   00071.67206979 +.00001573 +00000-0 +44222-3 0 00864
+2 25791 024.9826 176.2815 0010546 030.4691 329.6435 14.39239518037632
+FUSE 1
+1 25791U 99035A   00070.56260671  .00001532  00000-0  42912-3 0   702
+2 25791  24.9828 183.0544 0010529  18.3343 341.7543 14.39236091 37479
+FUSE 1
+1 25791U 99035A   00068.69038219 +.00001413 +00000-0 +39162-3 0 00952
+2 25791 024.9834 194.4830 0010533 358.2154 001.8316 14.39230155037209
+FUSE 1
+1 25791U 99035A   00067.71959612 +.00001335 +00000-0 +36691-3 0 00815
+2 25791 024.9838 200.4095 0010552 347.4671 012.5574 14.39227138037065
+FUSE 1
+1 25791U 99035A   00066.74880810  .00001316  00000-0  36063-3 0   698
+2 25791  24.9838 206.3364 0010621 337.4200  22.5842 14.39224685 36920
+FUSE 1
+1 25791U 99035A   00065.77801832 +.00001263 +00000-0 +34378-3 0 00998
+2 25791 024.9841 212.2629 0010676 326.5841 033.3993 14.39222062036782
+FUSE 1
+1 25791U 99035A   00064.80722849 +.00001189 +00000-0 +32036-3 0 00830
+2 25791 024.9845 218.1911 0010778 316.3193 043.6474 14.39219324036645
+FUSE 1
+1 25791U 99035A   00063.76709448 +.00001101 +00000-0 +29240-3 0 00718
+2 25791 024.9849 224.5412 0010871 305.4534 054.4961 14.39216487036499
+FUSE 1
+1 25791U 99035A   00063.55906739  .00001088  00000-0  28832-3 0   683
+2 25791  24.9850 225.8120 0010913 303.1719  56.7740 14.39215991 36464
+FUSE 1
+1 25791U 99035A   00061.82550819 +.00000982 +00000-0 +25477-3 0 00960
+2 25791 024.9855 236.3933 0010864 286.6270 073.3045 14.39211998036219
+FUSE 1
+1 25791U 99035A   00060.85471378 +.00000901 +00000-0 +22923-3 0 00845
+2 25791 024.9863 242.3201 0010848 276.7178 083.2098 14.39209859036077
+FUSE 1
+1 25791U 99035A   00059.88391871  .00000826  00000-0  20540-3 0   675
+2 25791  24.9869 248.2490 0010930 267.1229  92.8030 14.39207865 35932
+FUSE 1
+1 25791U 99035A   00058.91312284 +.00000781 +00000-0 +19097-3 0 00977
+2 25791 024.9873 254.1768 0010925 257.3125 102.6165 14.39206249035799
+FUSE 1
+1 25791U 99035A   00057.94232639 +.00000728 +00000-0 +17411-3 0 00816
+2 25791 024.9875 260.1056 0011055 247.8021 112.1316 14.39204614035655
+FUSE 1
+1 25791U 99035A   00056.62481384 +.00000758 +00000-0 +18375-3 0 00670
+2 25791 024.9875 268.1502 0011129 234.2119 125.7313 14.39203424035463
+FUSE 1
+1 25791U 99035A   00055.86204329  .00000793  00000-0  19497-3 0   661
+2 25791  24.9873 272.8046 0011161 226.1863 133.7679 14.39202825 35354
+FUSE 1
+1 25791U 99035A   00054.68321769 +.00000848 +00000-0 +21235-3 0 01001
+2 25791 024.9871 279.9967 0011112 213.5611 146.4207 14.39201763035188
+FUSE 1
+1 25791U 99035A   00053.98979045 +.00000850 +00000-0 +21296-3 0 00974
+2 25791 024.9870 284.2284 0011076 206.2727 153.7221 14.39200822035085
+FUSE 1
+1 25791U 99035A   00053.01899083 +.00000935 +00000-0 +24004-3 0 00830
+2 25791 024.9867 290.1552 0011204 196.3192 163.6959 14.39200205034940
+FUSE 1
+1 25791U 99035A   00052.04819115 +.00000994 +00000-0 +25875-3 0 00719
+2 25791 024.9868 296.0811 0011283 186.4833 173.5531 14.39199236034805
+FUSE 1
+1 25791U 99035A   00051.90950592  .00000987  00000-0  25647-3 0   650
+2 25791  24.9870 296.9294 0011270 185.1807 174.8586 14.39198964 34783
+FUSE 1
+1 25791U 99035A   00048.85841520  .00001297  00000-0  35475-3 0   644
+2 25791  24.9866 315.5528 0011618 154.5181 205.5896 14.39195818 34340
+FUSE 1
+1 25791U 99035A   00048.09564157 +.00001343 +00000-0 +36946-3 0 01229
+2 25791 024.9864 320.2075 0011655 146.8674 213.2566 14.39194413034238
+FUSE 1
+1 25791U 99035A   00047.12483713 +.00001391 +00000-0 +38482-3 0 01095
+2 25791 024.9864 326.1324 0011683 137.2771 222.8642 14.39192494034095
+FUSE 1
+1 25791U 99035A   00046.15403192 +.00001360 +00000-0 +37483-3 0 00949
+2 25791 024.9866 332.0573 0011665 127.2938 232.8638 14.39189972033950
+FUSE 1
+1 25791U 99035A   00045.18322419 +.00001296 +00000-0 +35475-3 0 00793
+2 25791 024.9869 337.9835 0011586 117.6016 242.5669 14.39187410033812
+FUSE 1
+1 25791U 99035A   00044.21241546  .00001146  00000-0  30690-3 0   638
+2 25791  24.9869 343.9091 0011473 107.1762 253.0006 14.39184536 33672
+FUSE 1
+1 25791U 99035A   00042.20144618 +.00000911 +00000-0 +23237-3 0 00758
+2 25791 024.9867 356.1818 0011249 085.1954 274.9841 14.39179242033387
+FUSE 1
+1 25791U 99035A   00041.92407140  .00000833  00000-0  20764-3 0   629
+2 25791  24.9866 357.8759 0011123  81.8578 278.3201 14.39178018 33348
+FUSE 1
+1 25791U 99035A   00041.16128579 +.00000812 +00000-0 +20105-3 0 01066
+2 25791 024.9865 002.5305 0011143 073.4503 286.7237 14.39176773033231
+FUSE 1
+1 25791U 99035A   00040.19046659 +.00000730 +00000-0 +17515-3 0 00919
+2 25791 024.9864 008.4561 0011054 062.5359 297.6273 14.39174760033097
+FUSE 1
+1 25791U 99035A   00038.31816651  .00000622  00000-0  14075-3 0   612
+2 25791  24.9860  19.8837 0010946  41.9661 318.1684 14.39171741 32822
+FUSE 1
+1 25791U 99035A   00035.19765343 +.00000599 +00000-0 +13337-3 0 00754
+2 25791 024.9862 038.9297 0010966 008.7816 351.2878 14.39168833032372
+FUSE 1
+1 25791U 99035A   00034.22682512  .00000609  00000-0  13670-3 0   609
+2 25791  24.9863  44.8546 0010985 358.5324   1.5150 14.39168123 32232
+FUSE 1
+1 25791U 99035A   00033.18665576 +.00000568 +00000-0 +12356-3 0 01126
+2 25791 024.9855 051.2265 0011261 347.2812 012.7409 14.39167162032084
+FUSE 1
+1 25791U 99035A   00032.21582678 +.00000591 +00000-0 +13078-3 0 00970
+2 25791 024.9855 057.1532 0011294 337.1761 022.8245 14.39166555031942
+FUSE 1
+1 25791U 99035A   00031.17565214 +.00000642 +00000-0 +14694-3 0 00805
+2 25791 024.9852 063.5033 0011303 326.2800 033.6988 14.39166094031795
+FUSE 1
+1 25791U 99035A   00030.20482266 +.00000686 +00000-0 +16093-3 0 00659
+2 25791 024.9850 069.4311 0011343 315.6598 044.3015 14.39165560031659
+FUSE 1
+1 25791U 99035A   00029.44202816  .00000689  00000-0  16196-3 0   594
+2 25791  24.9849  74.0872 0011363 307.3743  52.5733 14.39164796 31549
+FUSE 1
+1 25791U 99035A   00027.43102888  .00000569  00000-0  18032-3 0   586
+2 25791  24.9851  86.3260 0010521 286.4177  73.5622 14.39162573 31251
+FUSE 1
+1 25791U 99035A   00025.55871179  .00000869  00000-0  21924-3 0   579
+2 25791  24.9844  97.7947 0011481 266.0116  93.9082 14.39161817 30989
+FUSE 1
+1 25791U 99035A   00023.61705451 +.00000924 +00000-0 +23647-3 0 00872
+2 25791 024.9842 109.6465 0011662 245.5194 114.4098 14.39159561030703
+FUSE 1
+1 25791U 99035A   00022.57688135 +.00000962 +00000-0 +24873-3 0 00723
+2 25791 024.9839 115.9974 0011736 234.7227 125.2184 14.39158302030554
+FUSE 1
+1 25791U 99035A   00022.29950177 +.00001003 +00000-0 +26163-3 0 00619
+2 25791 024.9838 117.6930 0011736 231.8231 128.1224 14.39158246030517
+FUSE 1
+1 25791U 99035A   00021.53670825  .00000998  00000-0  26013-3 0   564
+2 25791  24.9840 122.3487 0011792 223.8474 136.1104 14.39156968 30405
+FUSE 1
+1 25791U 99035A   00020.42719000 +.00000962 +00000-0 +24860-3 0 00907
+2 25791 024.9842 129.1211 0011913 212.6223 147.3555 14.39154882030249
+FUSE 1
+1 25791U 99035A   00019.66439581 +.00000966 +00000-0 +24995-3 0 00839
+2 25791 024.9840 133.7768 0011844 204.5957 155.3985 14.39153669030138
+FUSE 1
+1 25791U 99035A   00018.62422196 +.00000928 +00000-0 +23794-3 0 00696
+2 25791 024.9842 140.1276 0011782 194.0350 165.9832 14.39151690029988
+FUSE 1
+1 25791U 99035A   00017.44535596  .00000854  00000-0  21447-3 0   550
+2 25791  24.9848 147.3221 0011810 182.6957 177.3499 14.39149382 29814
+FUSE 1
+1 25791U 99035A   00014.53285856  .00000615  00000-0  13854-3 0   545
+2 25791  24.9856 165.1015 0011407 153.4049 206.7053 14.39143679 29391
+FUSE 1
+1 25791U 99035A   00013.56202232 +.00000571 +00000-0 +12445-3 0 00786
+2 25791 024.9857 171.0254 0011318 143.0152 217.1149 14.39142418029251
+FUSE 1
+1 25791U 99035A   00012.72987589 +.00000562 +00000-0 +12183-3 0 00732
+2 25791 024.9854 176.1050 0011284 133.7108 226.4334 14.39141611029137
+FUSE 1
+1 25791U 99035A   00011.62034564 +.00000527 +00000-0 +11055-3 0 00633
+2 25791 024.9855 182.8750 0011249 121.8036 238.3572 14.39140431028974
+FUSE 1
+1 25791U 99035A   00010.71885112 +.00000512 +00000-0 +10577-3 0 00569
+2 25791 024.9854 188.3761 0011274 111.8566 248.3147 14.39139621028845
+FUSE 1
+1 25791U 99035A   00009.88670072  .00000501  00000-0  10250-3 0   535
+2 25791  24.9854 193.4536 0011262 103.0112 257.1659 14.39138969 28726
+FUSE 1
+1 25791U 99035A   00006.83547797  .00000337  00000-0  10675-3 0   521
+2 25791  24.9869 212.0479 0011133  74.0467 286.1742 14.39136665 28280
+FUSE 1
+1 25791U 99035A   00005.93397487 +.00000522 +00000-0 +10899-3 0 00546
+2 25791 024.9856 217.5808 0011349 060.5895 299.5747 14.39136473028152
+FUSE 1
+1 25791U 99035A   00005.86462875  .00000520  00000-0  10857-3 0   511
+2 25791  24.9857 218.0047 0011344  59.7788 300.3845 14.39136413 28143
+FUSE 1
+1 25791U 99035A   00004.96312675 +.00000518 +00000-0 +10767-3 0 01139
+2 25791 024.9860 223.5077 0011297 050.2547 309.8954 14.39135812028010
+FUSE 1
+1 25791U 99035A   00003.99227761 +.00000520 +00000-0 +10842-3 0 00981
+2 25791 024.9861 229.4342 0011263 039.8658 320.2678 14.39135178027878
+FUSE 1
+1 25791U 99035A   00003.02142715 +.00000562 +00000-0 +12179-3 0 00835
+2 25791 024.9860 235.3606 0011286 029.7368 330.3779 14.39134850027732
+FUSE 1
+1 25791U 99035A   00001.98122961 +.00000601 +00000-0 +13433-3 0 00657
+2 25791 024.9860 241.7105 0011303 018.8712 341.2214 14.39134376027580
+FUSE 1
+1 25791U 99035A   00001.01037721  .00000666  00000-0  15478-3 0   506
+2 25791  24.9859 247.6366 0011281   8.7106 351.3596 14.39134101 27448
+FUSE 1
+1 25791U 99035A   99363.09781835  .00000899  00000-0  22901-3 0   490
+2 25791  24.9851 265.4129 0011197 338.4602  21.5436 14.39132626 27028
+FUSE 1
+1 25791U 99035A   99362.12696497 +.00000961 +00000-0 +24848-3 0 00922
+2 25791 024.9849 271.3386 0011184 327.9746 032.0084 14.39131724026881
+FUSE 1
+1 25791U 99035A   99361.15611130 +.00001034 +00000-0 +27194-3 0 00799
+2 25791 024.9846 277.2653 0011182 317.4471 042.5171 14.39130801026740
+FUSE 1
+1 25791U 99035A   99360.11591130 +.00001087 +00000-0 +28861-3 0 00623
+2 25791 024.9844 283.6152 0011205 306.4053 053.5421 14.39129438026590
+FUSE 1
+1 25791U 99035A   99359.14505772  .00001123  00000-0  30012-3 0   487
+2 25791  24.9844 289.5405 0011210 296.0081  63.9276 14.39127971 26455
+FUSE 1
+1 25791U 99035A   99357.20334989 +.00001185 +00000-0 +31974-3 0 00927
+2 25791 024.9845 301.3934 0011276 275.1736 084.7487 14.39124778026179
+FUSE 1
+1 25791U 99035A   99355.19229507 +.00001143 +00000-0 +30633-3 0 00589
+2 25791 024.9845 313.6688 0011427 254.6519 105.2727 14.39120370025887
+FUSE 1
+1 25791U 99035A   99354.91490853  .00001110  00000-0  29599-3 0   473
+2 25791  24.9845 315.3629 0011470 251.8385 108.0875 14.39119513 25847
+FUSE 1
+1 25791U 99035A   99354.15209340 +.00001101 +00000-0 +29307-3 0 01038
+2 25791 024.9845 320.0181 0011509 244.1536 115.7785 14.39117975025732
+FUSE 1
+1 25791U 99035A   99353.18123792 +.00001083 +00000-0 +28726-3 0 00881
+2 25791 024.9845 325.9428 0011452 234.1361 125.8092 14.39115978025590
+FUSE 1
+1 25791U 99035A   99352.21038154 +.00001042 +00000-0 +27447-3 0 00762
+2 25791 024.9843 331.8688 0011469 224.5539 135.4048 14.39113821025458
+FUSE 1
+1 25791U 99035A   99351.17017792 +.00000973 +00000-0 +25237-3 0 00577
+2 25791 024.9847 338.2189 0011485 214.2213 145.7558 14.39111421025300
+FUSE 1
+1 25791U 99035A   99350.33801333  .00000951  00000-0  24529-3 0   463
+2 25791  24.9846 343.2967 0011487 205.5729 154.4211 14.39109889 25180
+FUSE 1
+1 25791U 99035A   99350.19931958 +.00000933 +00000-0 +23956-3 0 00962
+2 25791 024.9848 344.1445 0011512 204.4239 155.5731 14.39109519025163
+FUSE 1
+1 25791U 99035A   99348.39629426 +.00000823 +00000-0 +20475-3 0 00865
+2 25791 024.9849 355.1452 0011441 185.7566 174.2811 14.39105974024908
+FUSE 1
+1 25791U 99035A   99348.18825288 +.00000798 +00000-0 +19683-3 0 00787
+2 25791 024.9851 356.4159 0011443 183.9954 176.0469 14.39105492024872
+FUSE 1
+1 25791U 99035A   99347.21739099 +.00000760 +00000-0 +18478-3 0 00593
+2 25791 024.9852 002.3410 0011413 174.2811 185.7832 14.39103915024736
+FUSE 1
+1 25791U 99035A   99346.24652782  .00000754  00000-0  18291-3 0   459
+2 25791  24.9852   8.2668 0011377 164.2548 195.8318 14.39102692 24597
+FUSE 1
+1 25791U 99035A   99344.23544964 +.00000756 +00000-0 +18345-3 0 00821
+2 25791 024.9851 020.5393 0011315 143.9081 216.2195 14.39100353024308
+FUSE 1
+1 25791U 99035A   99343.19523523 +.00000758 +00000-0 +18405-3 0 00642
+2 25791 024.9849 026.8884 0011251 133.1541 226.9914 14.39099103024150
+FUSE 1
+1 25791U 99035A   99342.15501899 +.00000788 +00000-0 +19383-3 0 00479
+2 25791 024.9847 033.2384 0011205 122.0799 238.0799 14.39098132024006
+FUSE 1
+1 25791U 99035A   99341.53088842  .00000788  00000-0  19382-3 0   444
+2 25791  24.9847  37.0461 0011204 115.5981 244.5688 14.39097368 23911
+FUSE 1
+1 25791U 99035A   99341.18414898 +.00000797 +00000-0 +19666-3 0 00927
+2 25791 024.9845 039.1646 0011110 111.9666 248.2014 14.39096976023865
+FUSE 1
+1 25791U 99035A   99340.21327751 +.00000821 +00000-0 +20422-3 0 00796
+2 25791 024.9844 045.0894 0011092 101.8687 258.3063 14.39095956023723
+FUSE 1
+1 25791U 99035A   99339.24240445 +.00000860 +00000-0 +21656-3 0 00626
+2 25791 024.9842 051.0146 0011088 091.5490 268.6286 14.39094994023586
+FUSE 1
+1 25791U 99035A   99337.57804728 +.00000910 +00000-0 +23264-3 0 00454
+2 25791 024.9838 061.1710 0011103 073.9223 286.2502 14.39093024023340
+FUSE 1
+1 25791U 99035A   99337.50869901  .00000916  00000-0  23465-3 0   438
+2 25791  24.9838  61.5940 0011123  73.3216 286.8513 14.39092988 23332
+FUSE 1
+1 25791U 99035A   99336.53782164 +.00000978 +00000-0 +25413-3 0 00775
+2 25791 024.9835 067.5184 0011185 063.0696 297.0953 14.39091962023198
+FUSE 1
+1 25791U 99035A   99335.91368480 +.00001057 +00000-0 +27938-3 0 00668
+2 25791 024.9832 071.3272 0011211 056.4491 303.7082 14.39091557023104
+FUSE 1
+1 25791U 99035A   99334.66541084 +.00001103 +00000-0 +29413-3 0 00563
+2 25791 024.9829 078.9441 0011175 043.3897 316.7490 14.39089668022921
+FUSE 1
+1 25791U 99035A   99333.55583168  .00001182  00000-0  31912-3 0   428
+2 25791  24.9828  85.7150 0011228  31.8546 328.2638 14.39088163 22768
+FUSE 1
+1 25791U 99035A   99332.72364624 +.00001252 +00000-0 +34147-3 0 00926
+2 25791 024.9822 090.7928 0011318 023.1121 336.9895 14.39086934022646
+FUSE 1
+1 25791U 99035A   99330.71252915 +.00001370 +00000-0 +37884-3 0 00621
+2 25791 024.9815 103.0720 0011456 002.2762 357.7803 14.39083149022351
+FUSE 1
+1 25791U 99035A   99330.01903979 +.00001341 +00000-0 +36977-3 0 00515
+2 25791 024.9813 107.3056 0011522 355.0936 004.9469 14.39081189022254
+FUSE 1
+1 25791U 99035A   99329.53359692  .00001309  00000-0  35954-3 0   414
+2 25791  24.9818 110.2720 0011533 349.7266  10.3016 14.39079811 22188
+FUSE 1
+1 25791U 99035A   99328.00791539 +.00001217 +00000-0 +33021-3 0 00742
+2 25791 024.9820 119.5846 0011565 334.1745 025.8190 14.39075614021963
+FUSE 1
+1 25791U 99035A   99326.82897714 +.00001154 +00000-0 +31024-3 0 00585
+2 25791 024.9826 126.7842 0011751 321.2678 038.6990 14.39072676021790
+FUSE 1
+1 25791U 99035A   99325.51133788  .00001054  00000-0  27855-3 0   401
+2 25791  24.9847 134.8467 0011912 304.6034  55.3277 14.39069633 21609
+FUSE 1
+1 25791U 99035A   99322.80670431 +.00001256 +00000-0 +34276-3 0 00411
+2 25791 024.9836 151.3552 0012041 275.3401 084.5737 14.39066077021213
+FUSE 1
+1 25791U 99035A   99321.62776187 +.00001252 +00000-0 +34139-3 0 00408
+2 25791 024.9837 158.5475 0012055 262.9443 096.9715 14.39063501021043
+FUSE 1
+1 25791U 99035A   99320.79556237  .00001252  00000-0  34144-3 0   391
+2 25791  24.9836 163.6246 0012002 254.4359 105.4616 14.39061664 20929
+FUSE 1
+1 25791U 99035A   99318.99247388 +.00001603 +00000-0 +45300-3 0 00424
+2 25791 024.9830 174.6225 0011785 234.5772 125.3639 14.39059706020668
+FUSE 1
+1 25791U 99035A   99318.85377493  .00001636  00000-0  46351-3 0   388
+2 25791  24.9833 175.4706 0011739 232.8226 127.1216 14.39059600 20640
+FUSE 1
+1 25791U 99035A   99316.98133499  .00000949  00000-0  24506-3 0   379
+2 25791  24.9842 186.9003 0011834 213.5350 146.4412 14.39050830 20375
+FUSE 1
+1 25791U 99035A   99316.77328072  .00000093  00000-0 -27298-4 0   361
+2 25791  24.9851 188.1733 0012103 214.4787 145.4516 14.39045117 20346
+FUSE 1
+1 25791U 99035A   99316.01043130  .00001289  00000-0  35317-3 0   353
+2 25791  24.9823 192.8263 0011574 206.8856 153.1047 14.39050776 20238
+FUSE 1
+1 25791U 99035A   99314.06863125 +.00000807 +00000-0 +19978-3 0 00675
+2 25791 024.9828 204.6728 0011620 187.0114 173.0230 14.39045484019952
+FUSE 1
+1 25791U 99035A   99313.09772812 +.00000806 +00000-0 +19960-3 0 00668
+2 25791 024.9828 210.5953 0011621 176.8561 183.2018 14.39044261019815
+FUSE 1
+1 25791U 99035A   99312.12682443 +.00000807 +00000-0 +20004-3 0 00607
+2 25791 024.9830 216.5187 0011630 166.7136 193.3684 14.39043064019674
+FUSE 1
+1 25791U 99035A   99311.08656905 +.00000824 +00000-0 +20537-3 0 00492
+2 25791 024.9827 222.8664 0011566 156.1383 203.9662 14.39041822019523
+FUSE 1
+1 25791U 99035A   99310.11566272  .00000873  00000-0  22108-3 0   346
+2 25791  24.9823 228.7931 0011439 146.3502 213.7733 14.39040863 19380
+FUSE 1
+1 25791U 99035A   99309.14475480 +.00000912 +00000-0 +23325-3 0 00624
+2 25791 024.9823 234.7169 0011382 136.4568 223.6834 14.39039788019240
+FUSE 1
+1 25791U 99035A   99308.17384628 +.00000917 +00000-0 +23509-3 0 00594
+2 25791 024.9823 240.6396 0011384 126.3110 233.8450 14.39038400019103
+FUSE 1
+1 25791U 99035A   99307.20293604 +.00000929 +00000-0 +23900-3 0 00509
+2 25791 024.9824 246.5634 0011348 116.2606 243.9068 14.39037064018967
+FUSE 1
+1 25791U 99035A   99306.16267374 +.00000901 +00000-0 +22981-3 0 00427
+2 25791 024.9827 252.9105 0011294 105.3472 254.8283 14.39035306018815
+FUSE 1
+1 25791U 99035A   99305.26111145  .00000880  00000-0  22322-3 0   336
+2 25791  24.9828 258.4108 0011278  95.9573 264.2230 14.39033878 18682
+FUSE 1
+1 25791U 99035A   99302.14030694 +.00000777 +00000-0 +19052-3 0 00420
+2 25791 024.9830 277.4546 0011155 063.6998 296.4659 14.39029030018237
+FUSE 1
+1 25791U 99035A   99301.23873747  .00000793  00000-0  19553-3 0   326
+2 25791  24.9829 282.9548 0011144  54.1449 306.0093 14.39027991 18102
+FUSE 1
+1 25791U 99035A   99300.19846426 +.00000688 +00000-0 +16220-3 0 00785
+2 25791 024.9829 289.3031 0011097 042.8698 317.2674 14.39026119017959
+FUSE 1
+1 25791U 99035A   99299.15818884 +.00000714 +00000-0 +17059-3 0 00607
+2 25791 024.9835 295.6560 0010854 031.9536 328.1631 14.39025229017802
+FUSE 1
+1 25791U 99035A   99298.11791199 +.00000847 +00000-0 +21277-3 0 00447
+2 25791 024.9832 302.0031 0010894 020.7345 339.3596 14.39024199017655
+FUSE 1
+1 25791U 99035A   99297.21633808  .00000871  00000-0  22050-3 0   312
+2 25791  24.9833 307.5043 0010887  10.9937 349.0810 14.39022966 17522
+FUSE 1
+1 25791U 99035A   99295.27448293 +.00000936 +00000-0 +24130-3 0 00647
+2 25791 024.9834 319.3563 0010756 350.0772 009.9521 14.39020654017243
+FUSE 1
+1 25791U 99035A   99294.16484983 +.00001000 +00000-0 +26157-3 0 00453
+2 25791 024.9829 326.1256 0010800 338.5647 021.4408 14.39019299017082
+FUSE 1
+1 25791U 99035A   99293.19392082  .00001020  00000-0  26791-3 0   303
+2 25791  24.9828 332.0506 0010781 328.4327  31.5533 14.39017852 16944
+FUSE 1
+1 25791U 99035A   99292.77780736 +.00001020 +00000-0 +26806-3 0 00883
+2 25791 024.9827 334.5890 0010781 324.0963 035.8778 14.39017148016883
+FUSE 1
+1 25791U 99035A   99292.15363794 +.00001076 +00000-0 +28568-3 0 00761
+2 25791 024.9826 338.3998 0010857 316.4441 043.5205 14.39016547016796
+FUSE 1
+1 25791U 99035A   99291.18270908 +.00001062 +00000-0 +28130-3 0 00587
+2 25791 024.9822 344.3280 0011053 306.1106 053.8378 14.39014543016650
+FUSE 1
+1 25791U 99035A   99289.51825652 +.00001008 +00000-0 +26405-3 0 00430
+2 25791 024.9823 354.4815 0011076 288.6058 071.3246 14.39011177016415
+FUSE 1
+1 25791U 99035A   99288.47797288  .00000951  00000-0  24613-3 0   296
+2 25791  24.9826   0.8275 0011076 277.4591  82.4657 14.39009052 16269
+FUSE 1
+1 25791U 99035A   99286.88287063 +.00000861 +00000-0 +21717-3 0 00634
+2 25791 024.9828 010.5602 0011200 260.5300 099.3940 14.39005892016038
+FUSE 1
+1 25791U 99035A   99285.49582403 +.00000795 +00000-0 +19630-3 0 00486
+2 25791 024.9830 019.0217 0011238 246.2842 113.6491 14.39003480015839
+FUSE 1
+1 25791U 99035A   99284.66359563 +.00000761 +00000-0 +18552-3 0 00398
+2 25791 024.9832 024.0989 0011221 237.5271 122.4154 14.39002187015718
+FUSE 1
+1 25791U 99035A   99283.97007305  .00000754  00000-0  18327-3 0   285
+2 25791  24.9830  28.3293 0011217 230.2490 129.7115 14.39001280 15618
+FUSE 1
+1 25791U 99035A   99280.71050717 +.00000608 +00000-0 +13659-3 0 00426
+2 25791 024.9832 048.2231 0011233 196.9935 163.0195 14.38996802015142
+FUSE 1
+1 25791U 99035A   99280.01698155 +.00000604 +00000-0 +13553-3 0 00286
+2 25791 024.9831 052.4539 0011244 189.6758 170.3528 14.38996155015044
+FUSE 1
+1 25791U 99035A   99279.73957122  .00000606  00000-0  13609-3 0   278
+2 25791  24.9833  54.1486 0011318 187.2744 172.7600 14.38995976 15000
+FUSE 1
+1 25791U 99035A   99278.76863587 +.00000623 +00000-0 +14143-3 0 00780
+2 25791 024.9828 060.0769 0011243 177.0793 182.9783 14.38995168014863
+FUSE 1
+1 25791U 99035A   99278.07510995 +.00000624 +00000-0 +14185-3 0 00637
+2 25791 024.9826 064.3088 0011169 169.6029 190.4711 14.38994496014765
+FUSE 1
+1 25791U 99035A   99276.75740903 +.00000633 +00000-0 +14460-3 0 00461
+2 25791 024.9823 072.3487 0011129 155.6892 204.4141 14.38993316014575
+FUSE 1
+1 25791U 99035A   99276.47999801 +.00000694 +00000-0 +16404-3 0 00358
+2 25791 024.9818 074.0450 0011207 153.0078 207.1024 14.38993598014531
+FUSE 1
+1 25791U 99035A   99275.57841241  .00000671  00000-0  15672-3 0   263
+2 25791  24.9819  79.5451 0011185 143.2379 216.8904 14.38992466 14406
+FUSE 1
+1 25791U 99035A   99272.59623714 +.00000619 +00000-0 +14032-3 0 00288
+2 25791 024.9821 097.7456 0010986 112.1476 248.0207 14.38989140013976
+FUSE 1
+1 25791U 99035A   99271.83335507 +.00000694 +00000-0 +16423-3 0 00261
+2 25791 024.9829 102.4180 0011115 105.0840 255.0961 14.38989289013860
+FUSE 1
+1 25791U 99035A   99270.93176357  .00000625  00000-0  14212-3 0   254
+2 25791  24.9833 107.9206 0010968  96.2277 263.9501 14.38987831 13739
+FUSE 1
+1 25791U 99035A   99269.82210754 +.00000624 +00000-0 +14194-3 0 00270
+2 25791 024.9836 114.6962 0010511 085.3632 274.8041 14.38987014013579
+FUSE 1
+1 25791U 99035A   99268.64310209 +.00000665 +00000-0 +15491-3 0 00260
+2 25791 024.9835 121.8881 0010538 073.0440 287.1349 14.38986259013408
+FUSE 1
+1 25791U 99035A   99267.88021393 +.00000624 +00000-0 +14182-3 0 00258
+2 25791 024.9836 126.5415 0010795 065.0791 295.0869 14.38985118013294
+FUSE 1
+1 25791U 99035A   99266.90926343  .00000583  00000-0  12888-3 0   243
+2 25791  24.9837 132.4642 0010750  54.8710 305.2813 14.38983972 13155
+FUSE 1
+1 25791U 99035A   99266.00766538 +.00000570 +00000-0 +12480-3 0 00561
+2 25791 024.9838 137.9635 0010739 045.4550 314.6838 14.38983153013021
+FUSE 1
+1 25791U 99035A   99265.03671293 +.00000579 +00000-0 +12751-3 0 00498
+2 25791 024.9838 143.8883 0010767 035.0894 325.0328 14.38982440012880
+FUSE 1
+1 25791U 99035A   99264.06575950 +.00000540 +00000-0 +11503-3 0 00439
+2 25791 024.9841 149.8130 0010718 024.5892 335.5124 14.38981393012743
+FUSE 1
+1 25791U 99035A   99263.09480512 +.00000542 +00000-0 +11581-3 0 00315
+2 25791 024.9841 155.7371 0010726 014.3641 345.7173 14.38980695012600
+FUSE 1
+1 25791U 99035A   99262.88674378  .00000509  00000-0  10546-3 0   230
+2 25791  24.9842 157.0081 0010731  11.7394 348.3365 14.38980270 12573
+FUSE 1
+1 25791U 99035A   99260.11258537 +.00000453 +00000-0 +87384-4 0 00502
+2 25791 024.9841 173.9362 0010893 342.6831 017.3307 14.38977970012170
+FUSE 1
+1 25791U 99035A   99259.07227521 +.00000447 +00000-0 +85573-4 0 00347
+2 25791 024.9841 180.2856 0010956 331.9610 028.0309 14.38977330012020
+FUSE 1
+1 25791U 99035A   99258.17067241  .00000427  00000-0  79225-4 0   220
+2 25791  24.9841 185.7874 0011007 322.1366  37.8369 14.38976734 11893
+FUSE 1
+1 25791U 99035A   99256.15940484 +.00000459 +00000-0 +89377-4 0 00465
+2 25791 024.9843 198.0620 0011104 300.6420 059.2997 14.38975981011608
+FUSE 1
+1 25791U 99035A   99255.18844792 +.00000499 +00000-0 +10205-3 0 00357
+2 25791 024.9841 203.9868 0011170 290.1305 069.8003 14.38975748011464
+FUSE 1
+1 25791U 99035A   99254.21749084  .00000578  00000-0  12715-3 0   219
+2 25791  24.9838 209.9117 0011276 279.5024  80.4212 14.38975778 11328
+FUSE 1
+1 25791U 99035A   99252.13687317 +.00000703 +00000-0 +16695-3 0 00422
+2 25791 024.9838 222.6085 0011253 257.6029 102.3226 14.38974995011027
+FUSE 1
+1 25791U 99035A   99251.16591877 +.00000740 +00000-0 +17891-3 0 00306
+2 25791 024.9838 228.5342 0011361 247.5654 112.3649 14.38974264010882
+FUSE 1
+1 25791U 99035A   99250.33367230  .00000790  00000-0  19473-3 0   200
+2 25791  24.9836 233.6120 0011410 238.7623 121.1773 14.38973707 10768
+FUSE 1
+1 25791U 99035A   99250.12561055 +.00000806 +00000-0 +20003-3 0 00780
+2 25791 024.9837 234.8822 0011380 236.5967 123.3441 14.38973616010736
+FUSE 1
+1 25791U 99035A   99249.22401093 +.00000850 +00000-0 +21378-3 0 00688
+2 25791 024.9836 240.3848 0011437 227.1228 132.8321 14.38972820010608
+FUSE 1
+1 25791U 99035A   99248.18370392 +.00000868 +00000-0 +21968-3 0 00504
+2 25791 024.9836 246.7339 0011442 216.3322 143.6406 14.38971553010453
+FUSE 1
+1 25791U 99035A   99247.14339628 +.00000893 +00000-0 +22765-3 0 00331
+2 25791 024.9835 253.0817 0011458 205.6866 154.3072 14.38970276010308
+FUSE 1
+1 25791U 99035A   99246.24179636  .00000875  00000-0  22203-3 0   193
+2 25791  24.9836 258.5836 0011512 196.4275 163.5862 14.38968832 10171
+FUSE 1
+1 25791U 99035A   99244.16117925 +.00000770 +00000-0 +18839-3 0 00526
+2 25791 024.9840 271.2810 0011478 175.5983 184.4632 14.38965078009876
+FUSE 1
+1 25791U 99035A   99243.25957613 +.00000746 +00000-0 +18082-3 0 00412
+2 25791 024.9841 276.7823 0011475 166.5838 193.4978 14.38963795009740
+FUSE 1
+1 25791U 99035A   99242.14991061 +.00000697 +00000-0 +16531-3 0 00214
+2 25791 024.9841 283.5545 0011425 155.0075 205.0993 14.38962068009589
+FUSE 1
+1 25791U 99035A   99241.45636787  .00000690  00000-0  16312-3 0   184
+2 25791  24.9841 287.7844 0011423 147.6480 212.4734 14.38961291  9483
+FUSE 1
+1 25791U 99035A   99238.54348289 +.00000555 +00000-0 +12005-3 0 00339
+2 25791 024.9851 305.5600 0011277 118.2109 241.9541 14.38957529009068
+FUSE 1
+1 25791U 99035A   99237.43380917  .00000519  00000-0  10841-3 0   178
+2 25791  24.9853 312.3322 0011217 106.6278 253.5464 14.38956402  8903
+FUSE 1
+1 25791U 99035A   99236.46284262 +.00000461 +00000-0 +90008-4 0 00705
+2 25791 024.9853 318.2560 0011086 096.8361 263.3410 14.38955295008762
+FUSE 1
+1 25791U 99035A   99236.25477872 +.00000452 +00000-0 +87040-4 0 00615
+2 25791 024.9853 319.5272 0011052 094.6665 265.5117 14.38955073008731
+FUSE 1
+1 25791U 99035A   99235.28381051 +.00000458 +00000-0 +89138-4 0 00470
+2 25791 024.9852 325.4528 0011033 084.2171 275.9597 14.38954552008598
+FUSE 1
+1 25791U 99035A   99233.61929130 +.00000451 +00000-0 +86895-4 0 00303
+2 25791 024.9853 335.6110 0010986 066.4129 293.7536 14.38953524008353
+FUSE 1
+1 25791U 99035A   99232.50961001  .00000368  00000-0  60512-4 0   162
+2 25791  24.9859 342.3821 0010848  54.6767 305.4755 14.38952340  8198
+FUSE 1
+1 25791U 99035A   99230.70637369 +.00000429 +00000-0 +79925-4 0 00424
+2 25791 024.9854 353.3830 0010964 035.3348 324.7888 14.38952031007934
+FUSE 1
+1 25791U 99035A   99229.59668927 +.00000395 +00000-0 +68969-4 0 00285
+2 25791 024.9857 000.1562 0010882 023.2043 336.8948 14.38951224007779
+FUSE 1
+1 25791U 99035A   99228.48700287 +.00000471 +00000-0 +93172-4 0 00221
+2 25791 024.9853 006.9252 0010851 011.6095 348.4667 14.38951260007619
+FUSE 1
+1 25791U 99035A   99227.72409421  .00000487  00000-0  98308-4 0   158
+2 25791  24.9851  11.5809 0010930   3.6815 356.3773 14.38950858  7502
+FUSE 1
+1 25791U 99035A   99223.56276789  .00000619  00000-0  14028-3 0   147
+2 25791  24.9842  36.9742 0011040 318.0438  41.9206 14.38948712  6903
+FUSE 1
+1 25791U 99035A   99218.63853449  .00000720  00000-0  17250-3 0   135
+2 25791  24.9828  67.0232 0011431 267.3032  92.6167 14.38944759  6193
+FUSE 1
+1 25791U 99035A   99216.97400544 +.00000683 +00000-0 +16063-3 0 00166
+2 25791 024.9829 077.1763 0011588 249.8240 110.1026 14.38942807005959
+FUSE 1
+1 25791U 99035A   99215.72561041  .00001104  00000-0  29513-3 0   127
+2 25791  24.9823  84.7905 0011295 237.0915 122.8597 14.38943232  5774
+FUSE 1
+1 25791U 99035A   99213.99172686 +.00000755 +00000-0 +18386-3 0 00281
+2 25791 024.9829 095.3690 0011291 219.0401 140.9295 14.38939332005520
+FUSE 1
+1 25791U 99035A   99213.02075147 +.00000641 +00000-0 +14744-3 0 00175
+2 25791 024.9830 101.2939 0011410 209.3286 150.6585 14.38937829005384
+FUSE 1
+1 25791U 99035A   99212.88204088  .00000581  00000-0  12826-3 0   112
+2 25791  24.9832 102.1415 0011463 208.2710 151.7177 14.38937383  5365
+FUSE 1
+1 25791U 99035A   99211.07879897 +.00000483 +00000-0 +96970-4 0 00493
+2 25791 024.9832 113.1440 0011683 189.9414 170.0864 14.38935491005102
+FUSE 1
+1 25791U 99035A   99210.10782220 +.00000457 +00000-0 +88695-4 0 00361
+2 25791 024.9830 119.0680 0011645 180.0206 180.0306 14.38934715004963
+FUSE 1
+1 25791U 99035A   99209.13684459 +.00000476 +00000-0 +94628-4 0 00215
+2 25791 024.9829 124.9914 0011669 170.0019 190.0732 14.38934254004820
+FUSE 1
+1 25791U 99035A   99208.85942248  .00000483  00000-0  96822-4 0   100
+2 25791  24.9830 126.6849 0011617 167.3014 192.7802 14.38934135  4785
+FUSE 1
+1 25791U 99035A   99208.16586648 +.00000509 +00000-0 +10534-3 0 00689
+2 25791 024.9829 130.9163 0011612 160.0034 200.0933 14.38933809004681
+FUSE 1
+1 25791U 99035A   99207.12553224 +.00000477 +00000-0 +95090-4 0 00537
+2 25791 024.9830 137.2648 0011506 149.5759 210.5420 14.38933010004534
+FUSE 1
+1 25791U 99035A   99206.15455295 +.00000436 +00000-0 +81952-4 0 00388
+2 25791 024.9831 143.1889 0011456 139.5200 220.6160 14.38932240004393
+FUSE 1
+1 25791U 99035A   99205.11421632 +.00000433 +00000-0 +81097-4 0 00221
+2 25791 024.9835 149.5359 0011411 129.0298 231.1227 14.38931694004248
+FUSE 1
+1 25791U 99035A   99204.21259024  .00000427  00000-0  79119-4 0    95
+2 25791  24.9835 155.0370 0011324 120.0292 240.1341 14.38931194  4119
+FUSE 1
+1 25791U 99035A   99203.17225182 +.00000414 +00000-0 +74992-4 0 00525
+2 25791 024.9835 161.3843 0011233 109.2556 250.9169 14.38930540003968
+FUSE 1
+1 25791U 99035A   99202.13191170 +.00000423 +00000-0 +77980-4 0 00383
+2 25791 024.9837 167.7323 0011168 098.4908 261.6865 14.38930164003818
+FUSE 1
+1 25791U 99035A   99201.16092631 +.00000440 +00000-0 +83410-4 0 00235
+2 25791 024.9837 173.6562 0011126 088.3941 271.7841 14.38929874003674
+FUSE 1
+1 25791U 99035A   99200.18994021  .00000454  00000-0  87696-4 0    88
+2 25791  24.9838 179.5806 0011119  78.2644 281.9107 14.38929532  3535
+FUSE 1
+1 25791U 99035A   99200.12059101 +.00000432 +00000-0 +80931-4 0 00725
+2 25791 024.9842 180.0407 0011095 075.8036 284.3701 14.38929430003528
+FUSE 1
+1 25791U 99035A   99199.21895964 +.00000465 +00000-0 +91252-4 0 00631
+2 25791 024.9840 185.5408 0011075 066.4980 293.6690 14.38929231003393
+FUSE 1
+1 25791U 99035A   99198.17861506 +.00000472 +00000-0 +93642-4 0 00475
+2 25791 024.9844 191.8880 0011017 055.5344 304.6202 14.38928745003245
+FUSE 1
+1 25791U 99035A   99197.20762573 +.00000483 +00000-0 +97242-4 0 00328
+2 25791 024.9845 197.8116 0010965 045.0350 315.1043 14.38928247003108
+FUSE 1
+1 25791U 99035A   99196.16727896 +.00000496 +00000-0 +10136-3 0 00130
+2 25791 024.9848 204.1584 0010927 033.8431 326.2770 14.38927757002952
+FUSE 1
+1 25791U 99035A   99195.40435724  .00000525  00000-0  11052-3 0    76
+2 25791  24.9845 208.8116 0010908  25.8212 334.2838 14.38927498  2842
+FUSE 1
+1 25791U 99035A   99195.26564445 +.00000515 +00000-0 +10744-3 0 00732
+2 25791 024.9847 209.6583 0010905 024.2058 335.8962 14.38927325002821
+FUSE 1
+1 25791U 99035A   99194.22529636 +.00000515 +00000-0 +10742-3 0 00547
+2 25791 024.9849 216.0045 0010895 012.9914 347.0873 14.38926634002672
+FUSE 1
+1 25791U 99035A   99193.18494715 +.00000545 +00000-0 +11704-3 0 00384
+2 25791 024.9850 222.3506 0010896 001.9128 358.1416 14.38926205002526
+FUSE 1
+1 25791U 99035A   99192.14459780 +.00000580 +00000-0 +12797-3 0 00193
+2 25791 024.9850 228.6966 0010908 350.8363 009.1951 14.38925741002370
+FUSE 1
+1 25791U 99035A   99191.24296126  .00000600  00000-0  13459-3 0    61
+2 25791  24.9852 234.1962 0010933 341.3306  18.6794 14.38925220  2248
+FUSE 1
+1 25791U 99035A   99189.57840234 +.00000688 +00000-0 +16244-3 0 00431
+2 25791 024.9847 244.3496 0011003 324.3520 035.6271 14.38924327002005
+FUSE 1
+1 25791U 99035A   99188.53805210 +.00000745 +00000-0 +18074-3 0 00304
+2 25791 024.9847 250.6956 0011082 313.4689 046.4896 14.38923665001857
+FUSE 1
+1 25791U 99035A   99187.56705911 +.00000776 +00000-0 +19053-3 0 00181
+2 25791 024.9847 256.6180 0011114 303.2228 056.7215 14.38922773001717
+FUSE 1
+1 25791U 99035A   99187.22027565  .00000809  00000-0  20103-3 0    57
+2 25791  24.9849 258.7334 0011145 299.6070  60.3328 14.38922625  1666
+FUSE 1
+1 25791U 99035A   99186.59606618 +.00000806 +00000-0 +20001-3 0 00658
+2 25791 024.9848 262.5402 0011144 293.0885 066.8449 14.38921812001577
+FUSE 1
+1 25791U 99035A   99185.55571694 +.00000781 +00000-0 +19209-3 0 00489
+2 25791 024.9850 268.8854 0011179 282.1384 077.7873 14.38920354001427
+FUSE 1
+1 25791U 99035A   99184.58472411 +.00000771 +00000-0 +18889-3 0 00356
+2 25791 024.9851 274.8074 0011210 272.0258 087.8967 14.38919111001282
+FUSE 1
+1 25791U 99035A   99183.61373101 +.00000806 +00000-0 +20014-3 0 00199
+2 25791 024.9851 280.7294 0011202 261.9284 097.9951 14.38918148001148
+FUSE
+1 25791U 99035A   99182.64273781  .00000831  00000-0  20827-3 0    48
+2 25791  24.9852 286.6514 0011228 251.8187 108.1089 14.38917064  1005
+FUSE
+1 25791U 99035A   99181.53303177 +.00000885 +00000-0 +22535-3 0 00326
+2 25791 024.9851 293.4193 0011207 240.2024 119.7372 14.38915842000848
+FUSE
+1 25791U 99035A   99180.42332586 +.00000769 +00000-0 +18844-3 0 00250
+2 25791 024.9851 300.1870 0011210 228.6224 131.3324 14.38913850000688
+FUSE
+1 25791U 99035A   99179.72975929 +.00000701 +00000-0 +16654-3 0 00225
+2 25791 024.9851 304.4168 0011211 221.3620 138.6046 14.38912818000589
+FUSE
+1 25791U 99035A   99178.68940879 +.00000540 +00000-0 +11515-3 0 00070
+2 25791 024.9851 310.7614 0011204 210.4757 149.5099 14.38911405000431
+FUSE
+1 25791U 99035A   99178.55069535  .00000518  00000-0  10814-3 0    39
+2 25791  24.9851 311.6073 0011204 209.0295 150.9590 14.38911233   410
+FUSE
+1 25791U 99035A   99177.92648488 +.00000082 +00000-0 -31136-4 0 00408
+2 25791 024.9853 315.4140 0011227 202.4549 157.5464 14.38909900000324
+FUSE
+1 25791U 99035A   99176.95549150 -.00001333 +00000-0 -48314-3 0 00075
+2 25791 024.9860 321.3361 0010962 190.9807 169.0438 14.38907601000185
diff --git a/src/cal/get_tle/tmp/FUSE.TLE b/src/cal/get_tle/tmp/FUSE.TLE
new file mode 100644
index 0000000..75e788e
--- /dev/null
+++ b/src/cal/get_tle/tmp/FUSE.TLE
@@ -0,0 +1,5205 @@
+FUSE 1
+1 25791U 99035A   03334.81529517  .00000629  00000-0  13611-3 0    73
+2 25791  24.9828 141.7372 0010396 237.2837 122.6662 14.41449325233814
+FUSE 1
+1 25791U 99035A   03332.32285756  .00000721  00000-0  16400-3 0    51
+2 25791  24.9827 157.0092 0010498 210.6638 149.3252 14.41447882233456
+FUSE 1
+1 25791U 99035A   03331.90745146 +.00000729 +00000-0 +16628-3 0 00081
+2 25791 024.9828 159.5554 0010553 206.5242 153.4727 14.41447542233393
+FUSE 1
+1 25791U 99035A   03331.14587356  .00000725  00000-0  16505-3 0    40
+2 25791  24.9828 164.2238 0010646 198.4715 161.5398 14.41446726233287
+FUSE 1
+1 25791U 99035A   03329.89965515  .00000696  00000-0  15651-3 0    33
+2 25791  24.9826 171.8592 0010670 185.6347 174.4062 14.41445181233104
+FUSE 1
+1 25791U 99035A   03328.86113523 +.00000610 +00000-0 +13023-3 0 00030
+2 25791 024.9825 178.2061 0010624 174.6707 185.3915 14.41444336232953
+FUSE 1
+1 25791U 99035A   03328.79190076  .00000678  00000-0  15092-3 0    21
+2 25791  24.9829 178.6308 0010612 173.9957 186.0679 14.41444516232945
+FUSE 1
+1 25791U 99035A   03327.89185200 +.00000523 +00000-0 +10396-3 0 00058
+2 25791 024.9836 184.1428 0010625 164.7116 195.3708 14.41443393232811
+FUSE 1
+1 25791U 99035A   03327.06103806  .00000946  00000-0  23212-3 0    15
+2 25791  24.9839 189.2348 0010607 156.0117 204.0892 14.41443370232699
+FUSE 1
+1 25791U 99035A   03326.92256930 +.00001217 +00000-0 +31425-3 0 00068
+2 25791 024.9831 190.0850 0010666 154.7022 205.4026 14.41443784232675
+FUSE 1
+1 25791U 99035A   03325.81481645  .00001001  00000-0  24877-3 0    06
+2 25791  24.9833 196.8767 0010686 142.8583 217.2666 14.41441143232511
+FUSE 1
+1 25791U 99035A   03324.91476442 +.00000578 +00000-0 +12056-3 0 00021
+2 25791 024.9828 202.3884 0010744 133.5472 226.5911 14.41438825232381
+FUSE 1
+1 25791U 99035A   03323.94547862 +.00000358 +00000-0 +54039-4 0 00011
+2 25791 024.9832 208.3404 0010860 124.8670 235.2866 14.41437713232248
+FUSE 1
+1 25791U 99035A   03322.90695295 +.00000456 +00000-0 +83650-4 0 00009
+2 25791 024.9834 214.7019 0010853 115.1433 245.0191 14.41437815232091
+FUSE 1
+1 25791U 99035A   03321.93766319 +.00000482 +00000-0 +91492-4 0 00223
+2 25791 024.9834 220.6386 0010837 104.6262 255.5450 14.41437349231959
+FUSE 1
+1 25791U 99035A   03320.89913707 +.00000498 +00000-0 +96406-4 0 09969
+2 25791 024.9836 226.9996 0010817 093.6241 266.5508 14.41436631231802
+FUSE 1
+1 25791U 99035A   03319.92984440 +.00000599 +00000-0 +12716-3 0 09988
+2 25791 024.9836 232.9378 0010741 083.7324 276.4412 14.41436361231669
+FUSE 1
+1 25791U 99035A   03318.96055095 +.00000529 +00000-0 +10579-3 0 00064
+2 25791 024.9837 238.8759 0010678 074.0237 286.1451 14.41435571231521
+FUSE 1
+1 25791U 99035A   03317.92202182 +.00000413 +00000-0 +70728-4 0 00021
+2 25791 024.9840 245.2398 0010704 063.5995 296.5616 14.41434631231377
+FUSE 1
+1 25791U 99035A   03316.95272605 +.00000470 +00000-0 +88022-4 0 09972
+2 25791 024.9836 251.1803 0010590 053.6350 306.5138 14.41434475231239
+FUSE 1
+1 25791U 99035A   03315.91419451 +.00000359 +00000-0 +54432-4 0 09951
+2 25791 024.9837 257.5405 0010596 042.7776 317.3563 14.41433347231087
+FUSE 1
+1 25791U 99035A   03314.94489683 +.00000376 +00000-0 +59442-4 0 00177
+2 25791 024.9838 263.4782 0010541 032.5623 327.5544 14.41433068230946
+FUSE 1
+1 25791U 99035A   03313.97559885 +.00000299 +00000-0 +36081-4 0 09921
+2 25791 024.9837 269.4165 0010540 022.3690 337.7277 14.41432334230802
+FUSE 1
+1 25791U 99035A   03312.93706443 +.00000584 +00000-0 +12243-3 0 09931
+2 25791 024.9834 275.7793 0010504 011.6272 348.4499 14.41433055230652
+FUSE 1
+1 25791U 99035A   03311.96776569 +.00000350 +00000-0 +51482-4 0 09939
+2 25791 024.9833 281.7181 0010408 001.6598 358.3945 14.41431695230511
+FUSE 1
+1 25791U 99035A   03310.65228737 +.00000444 +00000-0 +80221-4 0 09930
+2 25791 024.9835 289.7793 0010257 347.5217 012.5005 14.41431193230320
+FUSE 1
+1 25791U 99035A   03309.40604522 +.00000467 +00000-0 +87049-4 0 00145
+2 25791 024.9835 297.4135 0010238 333.3895 026.6085 14.41430141230146
+FUSE 1
+1 25791U 99035A   03308.78292393 +.00000641 +00000-0 +13975-3 0 09895
+2 25791 024.9836 301.2316 0010231 327.1757 032.8108 14.41430126230051
+FUSE 1
+1 25791U 99035A   03307.39821018 +.00000487 +00000-0 +93143-4 0 09853
+2 25791 024.9836 309.7266 0009954 308.3405 051.6212 14.41427785229857
+FUSE 1
+1 25791U 99035A   03306.42890957 +.00001374 +00000-0 +36220-3 0 09920
+2 25791 024.9826 315.6681 0010109 298.0220 061.9265 14.41428485229712
+FUSE 1
+1 25791U 99035A   03305.45960939 +.00002012 +00000-0 +55551-3 0 00086
+2 25791 024.9823 321.6056 0010134 287.9208 072.0205 14.41427385229572
+FUSE 1
+1 25791U 99035A   03304.49030907 +.00002090 +00000-0 +57918-3 0 09839
+2 25791 024.9820 327.5453 0010274 277.3913 082.5438 14.41423770229439
+FUSE 1
+1 25791U 99035A   03303.52100790 +.00001430 +00000-0 +37917-3 0 09979
+2 25791 024.9824 333.4868 0010388 267.0794 092.8530 14.41418570229291
+FUSE 1
+1 25791U 99035A   03303.24406524  .00000959  00000-0  23638-3 0  9826
+2 25791  24.9827 335.1872 0010550 264.3245  95.6061 14.41416153229251
+FUSE 1
+1 25791U 99035A   03302.20552450  .00001096  00000-0  27769-3 0  9812
+2 25791  24.9825 341.5507 0010562 253.8882 106.0488 14.41414636229106
+FUSE 1
+1 25791U 99035A   03300.54385630  .00000645  00000-0  14088-3 0  9809
+2 25791  24.9828 351.7298 0010742 236.4738 123.4745 14.41411128228860
+FUSE 1
+1 25791U 99035A   03299.22836924  .00000522  00000-0  10377-3 0  9797
+2 25791  24.9826 359.7898 0010802 223.1838 136.7831 14.41409442228671
+FUSE 1
+1 25791U 99035A   03297.56670010  .00000441  00000-0  79217-4 0  9782
+2 25791  24.9828   9.9670 0010755 205.8604 154.1368 14.41407956228431
+FUSE 1
+1 25791U 99035A   03295.69732098 +.00000439 +00000-0 +78644-4 0 09778
+2 25791 024.9823 021.4161 0010726 186.3436 173.6933 14.41406877228169
+FUSE 1
+1 25791U 99035A   03294.58954049  .00000442  00000-0  79553-4 0  9760
+2 25791  24.9822  28.2003 0010717 174.4425 185.6202 14.41406259228003
+FUSE 1
+1 25791U 99035A   03293.68946830 +.00000437 +00000-0 +78059-4 0 09808
+2 25791 024.9822 033.7128 0010712 164.9748 195.1079 14.41405735227879
+FUSE 1
+1 25791U 99035A   03293.55099557  .00000435  00000-0  77377-4 0  9753
+2 25791  24.9823  34.5611 0010708 163.5206 196.5648 14.41405674227852
+FUSE 1
+1 25791U 99035A   03292.85863226 +.00000395 +00000-0 +65203-4 0 00006
+2 25791 024.9822 038.8017 0010732 156.0067 204.0939 14.41405084227759
+FUSE 1
+1 25791U 99035A   03292.09703250  .00000466  00000-0  86677-4 0  9749
+2 25791  24.9816  43.4715 0010662 147.9465 212.1683 14.41404859227645
+FUSE 1
+1 25791U 99035A   03290.98925305  .00000496  00000-0  95741-4 0  9736
+2 25791  24.9815  50.2722 0010596 136.9264 223.2143 14.41404097227489
+FUSE 1
+1 25791U 99035A   03289.81223159  .00000457  00000-0  84144-4 0  9725
+2 25791  24.9826  57.4936 0010620 125.6318 234.5184 14.41403544227318
+FUSE 1
+1 25791U 99035A   03288.77368245 +.00000424 +00000-0 +74086-4 0 09802
+2 25791 024.9826 063.8560 0010538 115.2199 244.9403 14.41402817227166
+FUSE 1
+1 25791U 99035A   03288.56597245  .00000409  00000-0  69342-4 0  9715
+2 25791  24.9830  65.1298 0010470 113.2118 246.9490 14.41402657227135
+FUSE 1
+1 25791U 99035A   03287.80436833 +.00000487 +00000-0 +93214-4 0 09863
+2 25791 024.9823 069.7945 0010522 105.3271 254.8405 14.41402718227026
+FUSE 1
+1 25791U 99035A   03286.83505381  .00000474  00000-0  89149-4 0  9701
+2 25791  24.9821  75.7317 0010429  95.3344 264.8358 14.41401993226884
+FUSE 1
+1 25791U 99035A   03285.86573823 +.00000465 +00000-0 +86378-4 0 09878
+2 25791 024.9822 081.6696 0010346 085.1348 275.0344 14.41401345226745
+FUSE 1
+1 25791U 99035A   03285.58879111  .00000442  00000-0  79392-4 0  9699
+2 25791  24.9825  83.3678 0010296  82.0216 278.1456 14.41400988226707
+FUSE 1
+1 25791U 99035A   03284.55023662  .00000447  00000-0  80990-4 0  9687
+2 25791  24.9825  89.7291 0010201  70.9880 289.1734 14.41400492226551
+FUSE 1
+1 25791U 99035A   03282.88854730  .00000440  00000-0  79027-4 0  9670
+2 25791  24.9825  99.9047 0010178  53.4478 306.6963 14.41399534226312
+FUSE 1
+1 25791U 99035A   03281.84998986  .00000468  00000-0  87538-4 0  9662
+2 25791  24.9822 106.2646 0010191  42.5792 317.5504 14.41399184226165
+FUSE 1
+1 25791U 99035A   03280.94990632 +.00000467 +00000-0 +87263-4 0 09712
+2 25791 024.9824 111.7767 0010189 033.0995 327.0149 14.41398673226038
+FUSE 1
+1 25791U 99035A   03280.81143207  .00000455  00000-0  83540-4 0  9650
+2 25791  24.9826 112.6255 0010186  31.4564 328.6551 14.41398503226017
+FUSE 1
+1 25791U 99035A   03279.91134723 +.00000485 +00000-0 +92641-4 0 09747
+2 25791 024.9824 118.1376 0010154 021.8776 338.2165 14.41398227225888
+FUSE 1
+1 25791U 99035A   03279.01126251  .00000481  00000-0  91312-4 0  9644
+2 25791  24.9824 123.6499 0010153  12.3561 347.7194 14.41397643225755
+FUSE 1
+1 25791U 99035A   03278.94202521 +.00000481 +00000-0 +91337-4 0 09906
+2 25791 024.9824 124.0738 0010152 011.6408 348.4333 14.41397601225743
+FUSE 1
+1 25791U 99035A   03277.97270237 +.00000495 +00000-0 +95508-4 0 09681
+2 25791 024.9827 130.0106 0010132 001.2425 358.8110 14.41397155225601
+FUSE 1
+1 25791U 99035A   03277.90346511  .00000490  00000-0  94065-4 0  9630
+2 25791  24.9828 130.4350 0010138   0.4734 359.5783 14.41397083225599
+FUSE 1
+1 25791U 99035A   03276.03405565  .00000520  00000-0  10314-3 0  9625
+2 25791  24.9827 141.8830 0010124 340.4951  19.5169 14.41396123225326
+FUSE 1
+1 25791U 99035A   03275.96481828 +.00000519 +00000-0 +10285-3 0 09740
+2 25791 024.9827 142.3069 0010124 339.7655 020.2450 14.41396066225315
+FUSE 1
+1 25791U 99035A   03274.99549511  .00000510  00000-0  10007-3 0  9615
+2 25791  24.9826 148.2432 0010136 329.5837  30.4082 14.41395326225171
+FUSE 1
+1 25791U 99035A   03273.95693438 +.00000508 +00000-0 +99668-4 0 09650
+2 25791 024.9828 154.6032 0010134 318.6446 041.3297 14.41394631225024
+FUSE 1
+1 25791U 99035A   03273.88769694  .00000499  00000-0  96894-4 0  9602
+2 25791  24.9830 155.0276 0010143 317.9041  42.0681 14.41394528225014
+FUSE 1
+1 25791U 99035A   03272.91837360 +.00000497 +00000-0 +96337-4 0 09713
+2 25791 024.9831 160.9638 0010155 307.6849 052.2737 14.41393912224871
+FUSE 1
+1 25791U 99035A   03272.15676230  .00000502  00000-0  97734-4 0  9591
+2 25791  24.9829 165.6274 0010158 299.6477  60.3019 14.41393430224762
+FUSE 1
+1 25791U 99035A   03270.91049028  .00000459  00000-0  84530-4 0  9582
+2 25791  24.9828 173.2617 0010180 286.1903  73.7484 14.41392360224582
+FUSE 1
+1 25791U 99035A   03269.59498120  .00000447  00000-0  80950-4 0  9573
+2 25791  24.9826 181.3203 0010142 272.2580  87.6765 14.41391553224394
+FUSE 1
+1 25791U 99035A   03268.97184558 +.00000445 +00000-0 +80376-4 0 09728
+2 25791 024.9827 185.1382 0010173 265.5171 094.4175 14.41391194224303
+FUSE 1
+1 25791U 99035A   03268.21023535  .00000414  00000-0  70946-4 0  9562
+2 25791  24.9826 189.8028 0010188 257.2495 102.6873 14.41390641224193
+FUSE 1
+1 25791U 99035A   03266.96396409 +.00000465 +00000-0 +86405-4 0 09591
+2 25791 024.9820 197.4355 0010222 244.5075 115.4384 14.41390276224011
+FUSE 1
+1 25791U 99035A   03266.89472691  .00000397  00000-0  65865-4 0  9558
+2 25791  24.9820 197.8595 0010244 243.7321 116.2133 14.41389876224004
+FUSE 1
+1 25791U 99035A   03265.92540594 +.00000421 +00000-0 +73184-4 0 09583
+2 25791 024.9820 203.7991 0010303 233.3804 126.5767 14.41389519223862
+FUSE 1
+1 25791U 99035A   03265.85616889  .00000313  00000-0  40304-4 0  9540
+2 25791  24.9821 204.2231 0010301 232.5282 127.4287 14.41388972223853
+FUSE 1
+1 25791U 99035A   03264.95608437 +.00000413 +00000-0 +70600-4 0 09600
+2 25791 024.9825 209.7349 0010306 222.8574 137.1133 14.41389145223725
+FUSE 1
+1 25791U 99035A   03264.47142380  .00000318  00000-0  41810-4 0  9534
+2 25791  24.9828 212.7038 0010331 217.6796 142.2976 14.41388613223656
+FUSE 1
+1 25791U 99035A   03263.98676299 +.00000580 +00000-0 +12130-3 0 09634
+2 25791 024.9828 215.6716 0010371 212.5398 147.4473 14.41389300223582
+FUSE 1
+1 25791U 99035A   03263.22515633  .00000537  00000-0  10820-3 0  9529
+2 25791  24.9833 220.3517 0010502 204.2952 155.7061 14.41388708223474
+FUSE 1
+1 25791U 99035A   03262.18659921  .00000379  00000-0  60457-4 0  9517
+2 25791  24.9840 226.7147 0010614 193.4882 166.5362 14.41387701223326
+FUSE 1
+1 25791U 99035A   03260.94032957 +.00000309 +00000-0 +39078-4 0 09544
+2 25791 024.9847 234.3525 0010738 180.7298 179.3196 14.41387027223143
+FUSE 1
+1 25791U 99035A   03260.59414308  .00000321  00000-0  42703-4 0  9508
+2 25791  24.9846 236.4723 0010751 177.3006 182.7566 14.41387012223096
+FUSE 1
+1 25791U 99035A   03259.62482160 +.00000345 +00000-0 +49962-4 0 09512
+2 25791 024.9849 242.4122 0010762 167.3136 192.7647 14.41386920222956
+FUSE 1
+1 25791U 99035A   03259.48634698  .00000346  00000-0  50207-4 0  9493
+2 25791  24.9851 243.2626 0010790 166.2982 193.7819 14.41386915222939
+FUSE 1
+1 25791U 99035A   03258.79397436 +.00000352 +00000-0 +52081-4 0 09637
+2 25791 024.9852 247.5042 0010849 159.0756 201.0196 14.41386761222832
+FUSE 1
+1 25791U 99035A   03258.24007588  .00000371  00000-0  57900-4 0  9482
+2 25791  24.9858 250.9015 0011010 153.8841 206.2222 14.41386865222757
+FUSE 1
+1 25791U 99035A   03257.33999071 +.00000378 +00000-0 +60212-4 0 09553
+2 25791 024.9856 256.4136 0010989 144.6365 215.4873 14.41386567222622
+FUSE 1
+1 25791U 99035A   03257.20151615  .00000373  00000-0  58654-4 0  9476
+2 25791  24.9858 257.2623 0010972 143.2340 216.8919 14.41386487222609
+FUSE 1
+1 25791U 99035A   03255.47058133  .00000387  00000-0  62819-4 0  9466
+2 25791  24.9862 267.8626 0010955 125.3598 234.7940 14.41385975222357
+FUSE 1
+1 25791U 99035A   03254.50125662 +.00000395 +00000-0 +65424-4 0 09599
+2 25791 024.9864 273.7990 0010932 115.3011 244.8633 14.41385685222217
+FUSE 1
+1 25791U 99035A   03254.22430627  .00000409  00000-0  69456-4 0  9458
+2 25791  24.9864 275.4955 0010924 112.3361 247.8299 14.41385695222170
+FUSE 1
+1 25791U 99035A   03253.46269339 +.00000419 +00000-0 +72692-4 0 09663
+2 25791 024.9863 280.1591 0010929 104.3257 255.8466 14.41385425222062
+FUSE 1
+1 25791U 99035A   03252.49336705  .00000424  00000-0  74176-4 0  9448
+2 25791  24.9866 286.0950 0010932  94.0918 266.0842 14.41385027221926
+FUSE 1
+1 25791U 99035A   03251.52403956 +.00000424 +00000-0 +73986-4 0 09576
+2 25791 024.9869 292.0308 0010917 083.9198 276.2554 14.41384578221780
+FUSE 1
+1 25791U 99035A   03251.24708871  .00000426  00000-0  74604-4 0  9434
+2 25791  24.9872 293.7274 0010909  80.9459 279.2282 14.41384483221744
+FUSE 1
+1 25791U 99035A   03250.97013781 +.00000418 +00000-0 +72375-4 0 09740
+2 25791 024.9873 295.4231 0010905 078.1232 282.0498 14.41384291221705
+FUSE 1
+1 25791U 99035A   03249.86233339 +.00000400 +00000-0 +66776-4 0 09423
+2 25791 024.9871 302.2068 0010890 066.3519 293.8131 14.41383569221541
+FUSE 1
+1 25791U 99035A   03248.96224150 +.00000395 +00000-0 +65318-4 0 09428
+2 25791 024.9864 307.7247 0010716 058.1747 301.9802 14.41383147221415
+FUSE 1
+1 25791U 99035A   03248.82376522  .00000395  00000-0  65312-4 0  9417
+2 25791  24.9864 308.5726 0010716  56.7210 303.4300 14.41383087221395
+FUSE 1
+1 25791U 99035A   03247.57748243  .00000413  00000-0  70836-4 0  9408
+2 25791  24.9872 316.2080 0010565  43.8549 316.2796 14.41382788221216
+FUSE 1
+1 25791U 99035A   03246.53891243  .00000409  00000-0  69731-4 0  9397
+2 25791  24.9871 322.5678 0010569  32.9529 327.1635 14.41382255221064
+FUSE 1
+1 25791U 99035A   03245.63881795 +.00000407 +00000-0 +68920-4 0 09609
+2 25791 024.9867 328.0798 0010586 023.6313 336.4682 14.41381788220930
+FUSE 1
+1 25791U 99035A   03244.87719914 +.00000397 +00000-0 +66048-4 0 09390
+2 25791 024.9864 332.7446 0010573 015.6956 344.3874 14.41381338220829
+FUSE 1
+1 25791U 99035A   03244.80796102  .00000402  00000-0  67416-4 0  9383
+2 25791  24.9865 333.1693 0010551  14.8812 345.2004 14.41381368220814
+FUSE 1
+1 25791U 99035A   03243.56167487  .00000400  00000-0  66930-4 0  9370
+2 25791  24.9861 340.8025 0010455   2.0304 358.0247 14.41380812220636
+FUSE 1
+1 25791U 99035A   03242.10768214  .00000384  00000-0  61838-4 0  9366
+2 25791  24.9858 349.7084 0010398 346.8053  13.2597 14.41380003220428
+FUSE 1
+1 25791U 99035A   03240.86139314  .00000177  00000-0 -91380-6 0  9357
+2 25791  24.9845 357.3695 0010244 330.3925  29.6003 14.41377473220243
+FUSE 1
+1 25791U 99035A   03239.19967539  .00000180  00000-0 -11405-6 0  9342
+2 25791  24.9845   7.5442 0010244 312.9466  47.0181 14.41377475220000
+FUSE 1
+1 25791U 99035A   03237.81491175  .00000180  00000-0 -10791-6 0  9333
+2 25791  24.9845  16.0231 0010244 298.4083  61.5391 14.41377477219806
+FUSE 1
+1 25791U 99035A   03236.70710174 +.00000180 +00000-0 -12297-6 0 09505
+2 25791 024.9845 022.8062 0010244 286.7778 073.1606 14.41377478219645
+FUSE 1
+1 25791U 99035A   03235.87624491  .00000430  00000-0  75902-4 0  9325
+2 25791  24.9843  27.8971 0010286 277.4878  82.4467 14.41377926219524
+FUSE 1
+1 25791U 99035A   03234.56072309  .00000420  00000-0  72808-4 0  9315
+2 25791  24.9844  35.9594 0010466 263.3036  96.6284 14.41377185219336
+FUSE 1
+1 25791U 99035A   03232.89901222  .00000471  00000-0  88341-4 0  9308
+2 25791  24.9843  46.1371 0010503 245.8515 114.0899 14.41376268219092
+FUSE 1
+1 25791U 99035A   03231.92968258 +.00000350 +00000-0 +51702-4 0 09300
+2 25791 024.9843 052.0765 0010506 236.3120 123.6400 14.41375219218958
+FUSE 1
+1 25791U 99035A   03231.86044481  .00000313  00000-0  40315-4 0  9291
+2 25791  24.9843  52.5008 0010526 235.7646 124.1874 14.41375001218940
+FUSE 1
+1 25791U 99035A   03230.89111324 +.00000349 +00000-0 +51379-4 0 09464
+2 25791 024.9839 058.4375 0010590 225.8512 134.1126 14.41374740218805
+FUSE 1
+1 25791U 99035A   03229.99102053  .00000344  00000-0  49608-4 0  9289
+2 25791  24.9838  63.9510 0010593 216.5837 143.3947 14.41374377218670
+FUSE 1
+1 25791U 99035A   03228.88321397  .00000376  00000-0  59327-4 0  9273
+2 25791  24.9835  70.7358 0010594 204.9564 155.0432 14.41374173218518
+FUSE 1
+1 25791U 99035A   03227.84464580  .00000382  00000-0  61272-4 0  9268
+2 25791  24.9832  77.0969 0010595 194.0430 165.9784 14.41373732218368
+FUSE 1
+1 25791U 99035A   03226.18293582  .00000373  00000-0  58388-4 0  9259
+2 25791  24.9829  87.2795 0010731 178.1810 181.8718 14.41372848218126
+FUSE 1
+1 25791U 99035A   03225.07512980  .00000318  00000-0  41806-4 0  9247
+2 25791  24.9835  94.0680 0010816 167.1667 192.9121 14.41372136217966
+FUSE 1
+1 25791U 99035A   03223.96732209 +.00000355 +00000-0 +53136-4 0 09274
+2 25791 024.9833 100.8554 0010794 156.0215 204.0798 14.41372011217801
+FUSE 1
+1 25791U 99035A   03223.89808455  .00000296  00000-0  35300-4 0  9236
+2 25791  24.9836 101.2807 0010797 155.4595 204.6427 14.41371615217799
+FUSE 1
+1 25791U 99035A   03222.92875220 +.00000342 +00000-0 +49175-4 0 09263
+2 25791 024.9836 107.2168 0010792 144.9594 215.1626 14.41371640217653
+FUSE 1
+1 25791U 99035A   03222.85951409  .00000389  00000-0  63357-4 0  9224
+2 25791  24.9835 107.6416 0010784 144.0445 216.0785 14.41371877217646
+FUSE 1
+1 25791U 99035A   03221.12856271  .00000472  00000-0  88663-4 0  9213
+2 25791  24.9830 118.2449 0010733 126.0331 234.1179 14.41371231217397
+FUSE 1
+1 25791U 99035A   03219.95151328 +.00000389 +00000-0 +63388-4 0 09249
+2 25791 024.9833 125.4565 0010532 114.7019 245.4588 14.41370330217223
+FUSE 1
+1 25791U 99035A   03219.88227503  .00000360  00000-0  54766-4 0  9205
+2 25791  24.9833 125.8804 0010481 114.1240 246.0365 14.41370138217211
+FUSE 1
+1 25791U 99035A   03218.98217790 +.00000310 +00000-0 +39570-4 0 09270
+2 25791 024.9834 131.3939 0010359 104.8947 255.2709 14.41369450217081
+FUSE 1
+1 25791U 99035A   03218.22055588  .00000325  00000-0  43896-4 0  9195
+2 25791  24.9833 136.0582 0010328  97.1561 263.0126 14.41369334216976
+FUSE 1
+1 25791U 99035A   03216.97426484 +.00000324 +00000-0 +43677-4 0 09200
+2 25791 024.9831 143.6927 0010266 083.9318 276.2359 14.41368918216796
+FUSE 1
+1 25791U 99035A   03216.90502635  .00000324  00000-0  43789-4 0  9187
+2 25791  24.9831 144.1168 0010254  83.2226 276.9448 14.41368901216784
+FUSE 1
+1 25791U 99035A   03215.93568806 +.00000306 +00000-0 +38302-4 0 09186
+2 25791 024.9831 150.0535 0010228 073.0379 287.1257 14.41368459216640
+FUSE 1
+1 25791U 99035A   03215.86644944  .00000306  00000-0  38426-4 0  9172
+2 25791  24.9830 150.4777 0010251  72.2855 287.8766 14.41368430216637
+FUSE 1
+1 25791U 99035A   03214.27396229  .00000303  00000-0  37387-4 0  9167
+2 25791  24.9829 160.2299 0010215  55.5824 304.5651 14.41367999216407
+FUSE 1
+1 25791U 99035A   03213.23538267  .00000307  00000-0  38665-4 0  9155
+2 25791  24.9828 166.5915 0010190  44.3110 315.8212 14.41367720216259
+FUSE 1
+1 25791U 99035A   03211.98908622 +.00000313 +00000-0 +40404-4 0 09196
+2 25791 024.9827 174.2250 0010179 031.1264 328.9848 14.41367405216077
+FUSE 1
+1 25791U 99035A   03211.29669883  .00000314  00000-0  40736-4 0  9147
+2 25791  24.9825 178.4652 0010188  23.8546 336.2433 14.41367209215970
+FUSE 1
+1 25791U 99035A   03210.95050531 +.00000311 +00000-0 +39816-4 0 09147
+2 25791 024.9826 180.5863 0010167 019.9914 340.1003 14.41367090215921
+FUSE 1
+1 25791U 99035A   03210.25811739  .00000298  00000-0  35831-4 0  9131
+2 25791  24.9827 184.8260 0010169  12.8248 347.2517 14.41366825215826
+FUSE 1
+1 25791U 99035A   03209.98116198 +.00000355 +00000-0 +53278-4 0 09203
+2 25791 024.9828 186.5250 0010134 009.7829 350.2881 14.41367237215788
+FUSE 1
+1 25791U 99035A   03209.21953520  .00000362  00000-0  55372-4 0  9123
+2 25791  24.9829 191.1892 0010126   1.8534 358.2012 14.41367046215670
+FUSE 1
+1 25791U 99035A   03207.41932608  .00000397  00000-0  65919-4 0  9112
+2 25791  24.9834 202.2142 0010129 342.4913  17.5242 14.41366581215411
+FUSE 1
+1 25791U 99035A   03206.24226672  .00000379  00000-0  60573-4 0  9109
+2 25791  24.9836 209.4233 0010138 329.9393  30.0533 14.41365965215244
+FUSE 1
+1 25791U 99035A   03204.85749015  .00000390  00000-0  63688-4 0  9096
+2 25791  24.9836 217.9044 0010134 314.4685  45.4984 14.41365469215044
+FUSE 1
+1 25791U 99035A   03203.47271543  .00000301  00000-0  36716-4 0  9082
+2 25791  24.9838 226.3867 0010127 298.5921  61.3578 14.41364370214843
+FUSE 1
+1 25791U 99035A   03202.50337269 +.00000333 +00000-0 +46557-4 0 09082
+2 25791 024.9834 232.3257 0010184 287.7687 072.1712 14.41364273214708
+FUSE 1
+1 25791U 99035A   03202.43413602  .00000335  00000-0  47009-4 0  9074
+2 25791  24.9835 232.7499 0010187 287.0863  72.8636 14.41364263214692
+FUSE 1
+1 25791U 99035A   03200.49545146  .00000183  00000-0  84321-6 0  9067
+2 25791  24.9838 244.6283 0010314 266.2072  93.7255 14.41363179214415
+FUSE 1
+1 25791U 99035A   03199.24916265  .00000402  00000-0  67231-4 0  9053
+2 25791  24.9834 252.3006 0010423 253.2621 106.6748 14.41363500214236
+FUSE 1
+1 25791U 99035A   03197.58743701  .00000400  00000-0  66746-4 0  9048
+2 25791  24.9833 262.4772 0010401 235.9965 123.9556 14.41362839213996
+FUSE 1
+1 25791U 99035A   03196.61809736 +.00000504 +00000-0 +98396-4 0 09043
+2 25791 024.9830 268.4132 0010415 225.8377 134.1285 14.41362729213855
+FUSE 1
+1 25791U 99035A   03196.54885888  .00000449  00000-0  81664-4 0  9034
+2 25791  24.9830 268.8370 0010432 225.2935 134.6725 14.41362452213842
+FUSE 1
+1 25791U 99035A   03195.64875805 +.00000455 +00000-0 +83486-4 0 09224
+2 25791 024.9829 274.3493 0010447 216.0256 143.9548 14.41361982213717
+FUSE 1
+1 25791U 99035A   03194.88713482 +.00000400 +00000-0 +66658-4 0 09032
+2 25791 024.9833 279.0133 0010462 208.0340 151.9610 14.41361395213602
+FUSE 1
+1 25791U 99035A   03194.81789616  .00000397  00000-0  65761-4 0  9025
+2 25791  24.9833 279.4379 0010462 207.3064 152.6887 14.41361358213594
+FUSE 1
+1 25791U 99035A   03193.57160311  .00000394  00000-0  64958-4 0  9015
+2 25791  24.9835 287.0727 0010549 194.3193 165.7017 14.41360869213419
+FUSE 1
+1 25791U 99035A   03192.53302554  .00000384  00000-0  62038-4 0  9002
+2 25791  24.9837 293.4343 0010602 183.6268 176.4166 14.41360386213261
+FUSE 1
+1 25791U 99035A   03191.35597034  .00000393  00000-0  64745-4 0  8994
+2 25791  24.9836 300.6430 0010601 171.2654 188.8044 14.41359972213091
+FUSE 1
+1 25791U 99035A   03190.17891471  .00000398  00000-0  66148-4 0  8988
+2 25791  24.9835 307.8521 0010640 158.8269 201.2681 14.41359500212921
+FUSE 1
+1 25791U 99035A   03188.93261973 +.00000398 +00000-0 +66190-4 0 08984
+2 25791 024.9836 315.4853 0010668 145.8317 214.2878 14.41358965212741
+FUSE 1
+1 25791U 99035A   03188.86338107  .00000398  00000-0  66279-4 0  8977
+2 25791  24.9837 315.9093 0010668 145.1176 215.0032 14.41358942212734
+FUSE 1
+1 25791U 99035A   03187.89403965 +.00000399 +00000-0 +66534-4 0 09149
+2 25791 024.9837 321.8470 0010683 135.2787 224.8581 14.41358544212593
+FUSE 1
+1 25791U 99035A   03187.54784627  .00000403  00000-0  67680-4 0  8966
+2 25791  24.9839 323.9680 0010707 131.6538 228.4889 14.41358445212548
+FUSE 1
+1 25791U 99035A   03186.23230982  .00000406  00000-0  68626-4 0  8954
+2 25791  24.9839 332.0260 0010696 118.3365 241.8223 14.41357879212350
+FUSE 1
+1 25791U 99035A   03185.12448869  .00000396  00000-0  65488-4 0  8946
+2 25791  24.9837 338.8117 0010654 106.8250 253.3431 14.41357267212194
+FUSE 1
+1 25791U 99035A   03183.87818800  .00000395  00000-0  65374-4 0  8934
+2 25791  24.9840 346.4456 0010638  93.9282 266.2445 14.41356752212019
+FUSE 1
+1 25791U 99035A   03182.90884166 +.00000400 +00000-0 +66995-4 0 09146
+2 25791 024.9842 352.3832 0010602 083.8848 276.2865 14.41356408211870
+FUSE 1
+1 25791U 99035A   03182.56264693  .00000389  00000-0  63591-4 0  8925
+2 25791  24.9841 354.5053 0010564  80.1314 280.0389 14.41356127211820
+FUSE 1
+1 25791U 99035A   03181.93949462 +.00000396 +00000-0 +65802-4 0 09194
+2 25791 024.9843 358.3221 0010512 073.9292 286.2372 14.41355980211735
+FUSE 1
+1 25791U 99035A   03181.17786419  .00000395  00000-0  65266-4 0  8913
+2 25791  24.9844   2.9874 0010488  65.8262 294.3343 14.41355639211628
+FUSE 1
+1 25791U 99035A   03180.13927548  .00000410  00000-0  69784-4 0  8904
+2 25791  24.9846   9.3489 0010422  55.0943 305.0535 14.41355362211477
+FUSE 1
+1 25791U 99035A   03178.89296857  .00000417  00000-0  72182-4 0  8897
+2 25791  24.9844  16.9825 0010375  41.8562 318.2738 14.41354851211293
+FUSE 1
+1 25791U 99035A   03177.85437834  .00000422  00000-0  73448-4 0  8885
+2 25791  24.9849  23.3439 0010297  30.9792 329.1322 14.41354454211141
+FUSE 1
+1 25791U 99035A   03176.95426603 +.00000430 +00000-0 +76000-4 0 09042
+2 25791 024.9848 028.8557 0010293 021.4500 338.6436 14.41354102211016
+FUSE 1
+1 25791U 99035A   03176.05415314  .00000443  00000-0  79845-4 0  8874
+2 25791  24.9846  34.3674 0010294  11.9009 348.1738 14.41353789210880
+FUSE 1
+1 25791U 99035A   03175.01556135  .00000450  00000-0  82065-4 0  8861
+2 25791  24.9847  40.7274 0010280   1.0899 358.9629 14.41353338210732
+FUSE 1
+1 25791U 99035A   03173.97697009 +.00000396 +00000-0 +65568-4 0 08903
+2 25791 024.9822 047.0922 0010249 350.3402 009.6908 14.41352733210581
+FUSE 1
+1 25791U 99035A   03173.90773105  .00000369  00000-0  57536-4 0  8858
+2 25791  24.9822  47.5172 0010351 349.7832  10.2465 14.41352535210571
+FUSE 1
+1 25791U 99035A   03172.86913829  .00000604  00000-0  12883-3 0  8847
+2 25791  24.9818  53.8803 0010249 338.4160  21.5913 14.41352920210427
+FUSE 1
+1 25791U 99035A   03171.48434975  .00000462  00000-0  85627-4 0  8832
+2 25791  24.9815  62.3608 0010207 323.6696  36.3121 14.41351186210222
+FUSE 1
+1 25791U 99035A   03170.93043425 +.00000466 +00000-0 +86941-4 0 08965
+2 25791 024.9816 065.7566 0010267 317.5345 042.4371 14.41350839210142
+FUSE 1
+1 25791U 99035A   03170.16879981  .00000418  00000-0  72429-4 0  8822
+2 25791  24.9818  70.4234 0010268 308.4790  51.4798 14.41350330210030
+FUSE 1
+1 25791U 99035A   03169.96108168 +.00000420 +00000-0 +73009-4 0 08907
+2 25791 024.9818 071.6973 0010259 306.2163 053.7398 14.41350228210007
+FUSE 1
+1 25791U 99035A   03169.13020792  .00000418  00000-0  72287-4 0  8816
+2 25791  24.9816  76.7849 0010262 297.4420  62.5043 14.41349800209887
+FUSE 1
+1 25791U 99035A   03167.95313733 +.00000423 +00000-0 +73631-4 0 08836
+2 25791 024.9816 083.9955 0010237 284.2230 075.7140 14.41349347209712
+FUSE 1
+1 25791U 99035A   03167.88389799  .00000435  00000-0  77426-4 0  8809
+2 25791  24.9815  84.4197 0010234 283.5451  76.3924 14.41349399209702
+FUSE 1
+1 25791U 99035A   03166.98378580 +.00000412 +00000-0 +70359-4 0 08897
+2 25791 024.9815 089.9316 0010231 274.0471 085.8867 14.41348763209579
+FUSE 1
+1 25791U 99035A   03166.56834950  .00000395  00000-0  65244-4 0  8795
+2 25791  24.9815  92.4756 0010212 269.5845  90.3483 14.41348446209516
+FUSE 1
+1 25791U 99035A   03165.25280226  .00000385  00000-0  62295-4 0  8782
+2 25791  24.9816 100.5354 0010250 255.6305 104.3063 14.41347768209326
+FUSE 1
+1 25791U 99035A   03164.21421250  .00000364  00000-0  55776-4 0  8773
+2 25791  24.9817 106.8968 0010263 244.7090 115.2352 14.41347204209171
+FUSE 1
+1 25791U 99035A   03163.93725544 +.00000369 +00000-0 +57280-4 0 09097
+2 25791 024.9817 108.5944 0010284 241.8348 118.1121 14.41347113209132
+FUSE 1
+1 25791U 99035A   03162.96790594 +.00000356 +00000-0 +53409-4 0 08809
+2 25791 024.9817 114.5342 0010284 232.0618 127.8964 14.41346608208996
+FUSE 1
+1 25791U 99035A   03162.89866691  .00000344  00000-0  49614-4 0  8768
+2 25791  24.9818 114.9584 0010288 231.3218 128.6380 14.41346492208982
+FUSE 1
+1 25791U 99035A   03161.92931687 +.00000312 +00000-0 +39943-4 0 08814
+2 25791 024.9818 120.8944 0010301 221.0945 138.8793 14.41345978208841
+FUSE 1
+1 25791U 99035A   03161.51388123  .00000295  00000-0  34834-4 0  8757
+2 25791  24.9820 123.4393 0010342 216.6080 143.3724 14.41345778208782
+FUSE 1
+1 25791U 99035A   03160.95996814 +.00000250 +00000-0 +21193-4 0 08773
+2 25791 024.9821 126.8372 0010451 211.1438 148.8456 14.41345263208708
+FUSE 1
+1 25791U 99035A   03160.40605336  .00000261  00000-0  24623-4 0  8749
+2 25791  24.9820 130.2299 0010533 205.5270 154.4717 14.41345268208625
+FUSE 1
+1 25791U 99035A   03159.99061818 +.00000273 +00000-0 +28036-4 0 08815
+2 25791 024.9819 132.7771 0010571 201.2873 158.7201 14.41345234208560
+FUSE 1
+1 25791U 99035A   03159.22898615  .00000265  00000-0  25800-4 0  8732
+2 25791  24.9819 137.4409 0010567 193.3150 166.7080 14.41345034208454
+FUSE 1
+1 25791U 99035A   03158.19039828  .00000250  00000-0  21230-4 0  8726
+2 25791  24.9819 143.8080 0010564 183.2476 176.7970 14.41344597208302
+FUSE 1
+1 25791U 99035A   03156.66713447  .00000150  00000-0 -91100-5 0  8715
+2 25791  24.9821 153.1385 0010638 167.6080 192.4690 14.41343778208085
+FUSE 1
+1 25791U 99035A   03155.42082656  .00000252  00000-0  21776-4 0  8701
+2 25791  24.9824 160.7774 0010914 155.1123 204.9913 14.41344428207901
+FUSE 1
+1 25791U 99035A   03154.45147561 +.00000386 +00000-0 +62443-4 0 08827
+2 25791 024.9823 166.7138 0010921 144.9592 215.1639 14.41344834207768
+FUSE 1
+1 25791U 99035A   03154.24375716  .00000440  00000-0  78935-4 0  8698
+2 25791  24.9823 167.9870 0010912 142.7461 217.3784 14.41345004207737
+FUSE 1
+1 25791U 99035A   03152.72049180  .00000524  00000-0  10445-3 0  8685
+2 25791  24.9821 177.3180 0010876 127.0026 233.1484 14.41344268207516
+FUSE 1
+1 25791U 99035A   03151.54342182  .00000483  00000-0  91927-4 0  8670
+2 25791  24.9825 184.5392 0010739 116.1807 243.9807 14.41343273207343
+FUSE 1
+1 25791U 99035A   03150.22787149  .00000462  00000-0  85706-4 0  8664
+2 25791  24.9829 192.6106 0010589 103.2247 256.9442 14.41342447207158
+FUSE 1
+1 25791U 99035A   03148.56611937  .00000483  00000-0  92184-4 0  8659
+2 25791  24.9829 202.7908 0010554  85.9076 274.2645 14.41341656206911
+FUSE 1
+1 25791U 99035A   03147.52752265 +.00000485 +00000-0 +92660-4 0 08802
+2 25791 024.9829 209.1535 0010502 074.9181 285.2489 14.41341031206764
+FUSE 1
+1 25791U 99035A   03147.25056401  .00000444  00000-0  80285-4 0  8648
+2 25791  24.9832 210.8523 0010387  71.8386 288.3258 14.41340505206727
+FUSE 1
+1 25791U 99035A   03145.65804606  .00000436  00000-0  77914-4 0  8633
+2 25791  24.9834 220.6078 0010334  54.9657 305.1825 14.41339591206493
+FUSE 1
+1 25791U 99035A   03144.55020623  .00000437  00000-0  78023-4 0  8622
+2 25791  24.9834 227.3948 0010384  43.0456 317.0865 14.41338981206335
+FUSE 1
+1 25791U 99035A   03143.51160500  .00000421  00000-0  73254-4 0  8619
+2 25791  24.9837 233.7586 0010263  31.8445 328.2684 14.41338349206180
+FUSE 1
+1 25791U 99035A   03142.68072397 +.00000390 +00000-0 +63795-4 0 08751
+2 25791 024.9839 238.8486 0010272 023.0015 337.0956 14.41337687206064
+FUSE 1
+1 25791U 99035A   03142.33452356  .00000379  00000-0  60393-4 0  8602
+2 25791  24.9841 240.9721 0010255  19.1006 340.9888 14.41337442206011
+FUSE 1
+1 25791U 99035A   03141.71136164 +.00000379 +00000-0 +60626-4 0 08800
+2 25791 024.9840 244.7879 0010278 012.6009 347.4755 14.41337187205922
+FUSE 1
+1 25791U 99035A   03140.74199907  .00000370  00000-0  57735-4 0  8590
+2 25791  24.9841 250.7264 0010336   2.4159 357.6402 14.41336697205787
+FUSE 1
+1 25791U 99035A   03139.77263585 +.00000354 +00000-0 +52942-4 0 08660
+2 25791 024.9844 256.6661 0010354 351.8435 008.1907 14.41336219205647
+FUSE 1
+1 25791U 99035A   03139.56491547  .00000328  00000-0  45098-4 0  8584
+2 25791  24.9847 257.9406 0010399 349.2190  10.8094 14.41335926205617
+FUSE 1
+1 25791U 99035A   03138.73403226 +.00000337 +00000-0 +47751-4 0 08790
+2 25791 024.9846 263.0295 0010413 340.7827 019.2287 14.41335717205491
+FUSE 1
+1 25791U 99035A   03137.76466903  .00000347  00000-0  50863-4 0  8578
+2 25791  24.9846 268.9696 0010450 330.8995  29.0930 14.41335458205358
+FUSE 1
+1 25791U 99035A   03136.65682420  .00000390  00000-0  63870-4 0  8568
+2 25791  24.9845 275.7569 0010467 319.1949  40.7776 14.41335447205197
+FUSE 1
+1 25791U 99035A   03135.68746059 +.00000395 +00000-0 +65459-4 0 08569
+2 25791 024.9844 281.6931 0010472 309.0975 050.8590 14.41335072205053
+FUSE 1
+1 25791U 99035A   03135.54898003  .00000409  00000-0  69659-4 0  8552
+2 25791  24.9844 282.5416 0010458 307.6606  52.2948 14.41335149205036
+FUSE 1
+1 25791U 99035A   03134.51037701 +.00000418 +00000-0 +72356-4 0 08578
+2 25791 024.9842 288.9014 0010448 296.9961 062.9478 14.41334711204883
+FUSE 1
+1 25791U 99035A   03133.88721559  .00000426  00000-0  74642-4 0  8544
+2 25791  24.9841 292.7176 0010439 290.6823  69.2571 14.41334447204792
+FUSE 1
+1 25791U 99035A   03132.84861269 +.00000430 +00000-0 +75920-4 0 08592
+2 25791 024.9841 299.0779 0010500 279.5447 080.3876 14.41333984204649
+FUSE 1
+1 25791U 99035A   03132.57165180  .00000452  00000-0  82534-4 0  8538
+2 25791  24.9840 300.7743 0010474 276.5765  83.3548 14.41334042204600
+FUSE 1
+1 25791U 99035A   03131.87925065 +.00000453 +00000-0 +82898-4 0 08732
+2 25791 024.9839 305.0137 0010463 269.3387 090.5924 14.41333669204502
+FUSE 1
+1 25791U 99035A   03130.90988891  .00000490  00000-0  94080-4 0  8525
+2 25791  24.9837 310.9515 0010487 259.0381 100.8949 14.41333434204367
+FUSE 1
+1 25791U 99035A   03129.87128778  .00000523  00000-0  10424-3 0  8514
+2 25791  24.9835 317.3134 0010521 248.2159 111.7230 14.41333026204210
+FUSE 1
+1 25791U 99035A   03128.90192725 +.00000552 +00000-0 +11296-3 0 08532
+2 25791 024.9833 323.2517 0010552 238.0980 121.8502 14.41332579204072
+FUSE 1
+1 25791U 99035A   03128.83268738  .00000545  00000-0  11086-3 0  8508
+2 25791  24.9833 323.6764 0010568 237.4929 122.4559 14.41332467204067
+FUSE 1
+1 25791U 99035A   03127.93256604 +.00000601 +00000-0 +12794-3 0 08608
+2 25791 024.9830 329.1896 0010698 227.9538 132.0061 14.41332295203934
+FUSE 1
+1 25791U 99035A   03126.96320595  .00000625  00000-0  13528-3 0  8490
+2 25791  24.9830 335.1268 0010736 217.7754 142.2000 14.41331691203793
+FUSE 1
+1 25791U 99035A   03125.92460573  .00000669  00000-0  14867-3 0  8480
+2 25791  24.9827 341.4877 0010781 206.7283 153.2669 14.41331116203649
+FUSE 1
+1 25791U 99035A   03124.95524601 +.00000691 +00000-0 +15516-3 0 08505
+2 25791 024.9825 347.4243 0010785 196.3122 163.7039 14.41330332203501
+FUSE 1
+1 25791U 99035A   03124.88600610  .00000690  00000-0  15495-3 0  8473
+2 25791  24.9826 347.8485 0010786 195.5964 164.4215 14.41330260203492
+FUSE 1
+1 25791U 99035A   03123.91664594 +.00000696 +00000-0 +15682-3 0 08516
+2 25791 024.9825 353.7856 0010797 185.6495 174.3891 14.41329308203356
+FUSE 1
+1 25791U 99035A   03123.84740597  .00000693  00000-0  15596-3 0  8461
+2 25791  24.9825 354.2099 0010797 185.0043 175.0358 14.41329216203347
+FUSE 1
+1 25791U 99035A   03122.11640408  .00000703  00000-0  15884-3 0  8451
+2 25791  24.9822   4.8109 0010810 167.4774 192.6009 14.41327425203095
+FUSE 1
+1 25791U 99035A   03121.07780243  .00000667  00000-0  14783-3 0  8442
+2 25791  24.9822  11.1719 0010728 156.8103 203.2890 14.41325997202941
+FUSE 1
+1 25791U 99035A   03119.96995900 +.00000637 +00000-0 +13898-3 0 08471
+2 25791 024.9824 017.9568 0010660 145.4593 214.6611 14.41324655202780
+FUSE 1
+1 25791U 99035A   03119.90071904  .00000619  00000-0  13339-3 0  8430
+2 25791  24.9826  18.3811 0010636 144.7680 215.3531 14.41324414202771
+FUSE 1
+1 25791U 99035A   03118.86211447  .00000584  00000-0  12289-3 0  8425
+2 25791  24.9826  24.7417 0010559 134.0951 226.0434 14.41323141202622
+FUSE 1
+1 25791U 99035A   03117.96198940 +.00000540 +00000-0 +10940-3 0 08522
+2 25791 024.9829 030.2539 0010497 124.5628 235.5873 14.41321998202493
+FUSE 1
+1 25791U 99035A   03117.20034409  .00000515  00000-0  10194-3 0  8419
+2 25791  24.9829  34.9180 0010485 116.4587 243.7000 14.41321200202384
+FUSE 1
+1 25791U 99035A   03115.88477360  .00000443  00000-0  80015-4 0  8407
+2 25791  24.9830  42.9750 0010371 102.4463 257.7219 14.41319637202197
+FUSE 1
+1 25791U 99035A   03114.98464436 +.00000405 +00000-0 +68282-4 0 08441
+2 25791 024.9831 048.4873 0010313 092.7862 267.3832 14.41318779202065
+FUSE 1
+1 25791U 99035A   03114.84616281  .00000401  00000-0  67228-4 0  8392
+2 25791  24.9830  49.3353 0010321  91.2914 268.8779 14.41318665202046
+FUSE 1
+1 25791U 99035A   03113.94603175 +.00000392 +00000-0 +64358-4 0 08457
+2 25791 024.9830 054.8471 0010295 081.7820 278.3859 14.41318172201911
+FUSE 1
+1 25791U 99035A   03113.25362240  .00000391  00000-0  64235-4 0  8381
+2 25791  24.9829  59.0866 0010297  74.5006 285.6639 14.41317864201815
+FUSE 1
+1 25791U 99035A   03112.97665904 +.00000377 +00000-0 +60036-4 0 08459
+2 25791 024.9831 060.7830 0010270 071.4871 288.6765 14.41317625201778
+FUSE 1
+1 25791U 99035A   03112.21500808  .00000363  00000-0  55711-4 0  8377
+2 25791  24.9831  65.4465 0010279  63.4745 296.6818 14.41317184201660
+FUSE 1
+1 25791U 99035A   03111.17639208  .00000363  00000-0  55548-4 0  8365
+2 25791  24.9830  71.8062 0010279  52.4799 307.6644 14.41316776201510
+FUSE 1
+1 25791U 99035A   03110.96866852 +.00000365 +00000-0 +56405-4 0 08600
+2 25791 024.9830 073.0785 0010262 050.2094 309.9312 14.41316734201489
+FUSE 1
+1 25791U 99035A   03109.58384492 +.00000379 +00000-0 +60572-4 0 08369
+2 25791 024.9829 081.5576 0010264 035.5220 324.5953 14.41316327201288
+FUSE 1
+1 25791U 99035A   03109.37612134  .00000390  00000-0  63811-4 0  8354
+2 25791  24.9831  82.8309 0010191  33.2102 326.9042 14.41316389201252
+FUSE 1
+1 25791U 99035A   03108.33750280  .00000419  00000-0  72748-4 0  8344
+2 25791  24.9833  89.1917 0010176  22.3826 337.7123 14.41316238201101
+FUSE 1
+1 25791U 99035A   03107.22964140  .00000487  00000-0  93318-4 0  8333
+2 25791  24.9837  95.9773 0010052  10.7357 349.3362 14.41316429200940
+FUSE 1
+1 25791U 99035A   03105.98329705 +.00000572 +00000-0 +11935-3 0 08346
+2 25791 024.9839 103.6091 0010055 357.5958 002.4500 14.41316519200765
+FUSE 1
+1 25791U 99035A   03105.42936709  .00000573  00000-0  11956-3 0  8325
+2 25791  24.9839 107.0005 0010053 351.7713   8.2628 14.41316090200681
+FUSE 1
+1 25791U 99035A   03104.39074737  .00000618  00000-0  13316-3 0  8315
+2 25791  24.9841 113.3600 0010076 341.0911  18.9221 14.41315709200539
+FUSE 1
+1 25791U 99035A   03103.83681675 +.00000642 +00000-0 +14053-3 0 08493
+2 25791 024.9841 116.7516 0010112 335.4399 024.5624 14.41315476200452
+FUSE 1
+1 25791U 99035A   03103.21364467  .00000672  00000-0  14956-3 0  8307
+2 25791  24.9843 120.5685 0010100 328.7321  31.2586 14.41315278200363
+FUSE 1
+1 25791U 99035A   03101.89805968  .00000719  00000-0  16399-3 0  8298
+2 25791  24.9841 128.6245 0010100 314.9047  45.0638 14.41314506200177
+FUSE 1
+1 25791U 99035A   03100.72095835  .00000735  00000-0  16862-3 0  8285
+2 25791  24.9823 135.8422 0010255 300.3804  59.5679 14.41313234200009
+FUSE 1
+1 25791U 99035A   03099.95930502 +.00000731 +00000-0 +16758-3 0 08321
+2 25791 024.9822 140.5054 0010257 292.8087 067.1336 14.41312329199895
+FUSE 1
+1 25791U 99035A   03099.54386033  .00000758  00000-0  17568-3 0  8273
+2 25791  24.9817 143.0635 0010123 287.3571  72.5830 14.41312013199834
+FUSE 1
+1 25791U 99035A   03098.92068851 +.00000723 +00000-0 +16491-3 0 08499
+2 25791 024.9816 146.8804 0010159 280.5747 079.3533 14.41310909199748
+FUSE 1
+1 25791U 99035A   03098.22827686  .00000751  00000-0  17368-3 0  8261
+2 25791  24.9821 151.1234 0010310 272.8590  87.0746 14.41310499199644
+FUSE 1
+1 25791U 99035A   03097.18965913  .00000710  00000-0  16100-3 0  8258
+2 25791  24.9822 157.4830 0010353 261.6244  98.3091 14.41308833199495
+FUSE 1
+1 25791U 99035A   03095.94331601  .00000705  00000-0  15943-3 0  8248
+2 25791  24.9828 165.1153 0010485 248.0340 111.9051 14.41307527199315
+FUSE 1
+1 25791U 99035A   03094.55849177  .00000687  00000-0  15400-3 0  8232
+2 25791  24.9837 173.5981 0010507 233.7648 126.1888 14.41305878199115
+FUSE 1
+1 25791U 99035A   03093.79684032 +.00000617 +00000-0 +13296-3 0 08340
+2 25791 024.9830 178.2689 0010658 225.6842 134.2806 14.41303892199000
+FUSE 1
+1 25791U 99035A   03093.45063419  .00000588  00000-0  12399-3 0  8220
+2 25791  24.9830 180.3890 0010661 222.1502 137.8185 14.41303261198959
+FUSE 1
+1 25791U 99035A   03092.06580825  .00000498  00000-0  96689-4 0  8215
+2 25791  24.9829 188.8687 0010595 207.4856 152.5026 14.41301203198758
+FUSE 1
+1 25791U 99035A   03090.88870503  .00000512  00000-0  10095-3 0  8200
+2 25791  24.9830 196.0770 0010689 195.3984 164.6200 14.41300573198583
+FUSE 1
+1 25791U 99035A   03089.91932625 +.00000473 +00000-0 +89013-4 0 08355
+2 25791 024.9831 202.0132 0010707 185.2549 174.7855 14.41299501198441
+FUSE 1
+1 25791U 99035A   03089.57311974  .00000447  00000-0  81025-4 0  8193
+2 25791  24.9832 204.1347 0010678 181.8480 178.1989 14.41298969198393
+FUSE 1
+1 25791U 99035A   03088.18829319  .00000422  00000-0  73584-4 0  8189
+2 25791  24.9836 212.6159 0010751 167.8506 192.2415 14.41297973198190
+FUSE 1
+1 25791U 99035A   03087.14967143  .00000439  00000-0  78641-4 0  8178
+2 25791  24.9834 218.9892 0010499 154.7731 205.3306 14.41297621198044
+FUSE 1
+1 25791U 99035A   03086.94194663 +.00000428 +00000-0 +75286-4 0 08488
+2 25791 024.9835 220.2611 0010504 152.4498 207.6568 14.41297416198016
+FUSE 1
+1 25791U 99035A   03085.90332252  .00000414  00000-0  71085-4 0  8164
+2 25791  24.9838 226.6261 0010293 142.1870 217.9362 14.41296881197868
+FUSE 1
+1 25791U 99035A   03085.90332251 +.00000414 +00000-0 +71084-4 0 08173
+2 25791 024.9838 226.6261 0010293 142.1870 217.9361 14.41296881197867
+FUSE 1
+1 25791U 99035A   03084.86469882  .00000343  00000-0  49516-4 0  8152
+2 25791  24.9847 232.9875 0010201 130.8102 229.3297 14.41295801197719
+FUSE 1
+1 25791U 99035A   03083.89531250 +.00000489 +00000-0 +93920-4 0 08321
+2 25791 024.9844 238.9268 0010672 122.1781 237.9761 14.41296727197570
+FUSE 1
+1 25791U 99035A   03083.54910375  .00000503  00000-0  98232-4 0  8140
+2 25791  24.9844 241.0479 0010701 118.5123 241.6462 14.41296648197528
+FUSE 1
+1 25791U 99035A   03082.92592724 +.00000523 +00000-0 +10446-3 0 08451
+2 25791 024.9843 244.8641 0010700 112.2904 247.8737 14.41296449197438
+FUSE 1
+1 25791U 99035A   03082.16426759  .00000526  00000-0  10521-3 0  8133
+2 25791  24.9841 249.5294 0010669 104.2866 255.8838 14.41295912197327
+FUSE 1
+1 25791U 99035A   03081.12563750  .00000612  00000-0  13128-3 0  8122
+2 25791  24.9842 255.8923 0010711  94.3078 265.8647 14.41296014197175
+FUSE 1
+1 25791U 99035A   03079.87928172  .00000670  00000-0  14898-3 0  8112
+2 25791  24.9845 263.5260 0010772  80.9467 279.2259 14.41295470196990
+FUSE 1
+1 25791U 99035A   03078.90989285 +.00000680 +00000-0 +15204-3 0 08356
+2 25791 024.9842 269.4617 0010753 070.0356 290.1308 14.41294541196854
+FUSE 1
+1 25791U 99035A   03078.56368187  .00000702  00000-0  15885-3 0  8103
+2 25791  24.9840 271.5817 0010757  66.2560 293.9075 14.41294387196801
+FUSE 1
+1 25791U 99035A   03077.17883857  .00000638  00000-0  13930-3 0  8090
+2 25791  24.9843 280.0617 0010654  50.7889 309.3564 14.41292379196607
+FUSE 1
+1 25791U 99035A   03076.14020216  .00000782  00000-0  18324-3 0  8089
+2 25791  24.9848 286.4255 0010468  43.0582 317.0743 14.41292815196451
+FUSE 1
+1 25791U 99035A   03074.89383969  .00000825  00000-0  19632-3 0  8076
+2 25791  24.9853 294.0604 0010385  30.7066 329.4048 14.41291731196279
+FUSE 1
+1 25791U 99035A   03073.43974802  .00000854  00000-0  20497-3 0  8069
+2 25791  24.9852 302.9660 0010367  15.2865 344.7954 14.41290069196060
+FUSE 1
+1 25791U 99035A   03072.19338203  .00000856  00000-0  20554-3 0  8055
+2 25791  24.9854 310.5981 0010287   2.1680 357.8866 14.41288422195880
+FUSE 1
+1 25791U 99035A   03071.08550087  .00000818  00000-0  19402-3 0  8045
+2 25791  24.9860 317.3842 0010263 349.9948  10.0353 14.41286657195721
+FUSE 1
+1 25791U 99035A   03069.97761880 +.00000763 +00000-0 +17745-3 0 08086
+2 25791 024.9860 324.1683 0010236 338.1839 021.8232 14.41284751195560
+FUSE 1
+1 25791U 99035A   03069.90837617  .00000758  00000-0  17585-3 0  8032
+2 25791  24.9860 324.5922 0010236 337.4031  22.6028 14.41284617195558
+FUSE 1
+1 25791U 99035A   03068.93897780 +.00000723 +00000-0 +16521-3 0 08098
+2 25791 024.9864 330.5285 0010290 326.4566 033.5291 14.41283191195416
+FUSE 1
+1 25791U 99035A   03068.86973524  .00000716  00000-0  16303-3 0  8024
+2 25791  24.9864 330.9527 0010287 325.7078  34.2768 14.41283044195408
+FUSE 1
+1 25791U 99035A   03067.55412264  .00000656  00000-0  14496-3 0  8011
+2 25791  24.9864 339.0080 0010311 311.6370  48.3251 14.41281081195210
+FUSE 1
+1 25791U 99035A   03066.44623884  .00000578  00000-0  12112-3 0  8005
+2 25791  24.9864 345.7927 0010333 299.7399  60.2082 14.41279280195050
+FUSE 1
+1 25791U 99035A   03065.40759665  .00000526  00000-0  10514-3 0  7991
+2 25791  24.9863 352.1521 0010350 288.8170  71.1215 14.41277936194904
+FUSE 1
+1 25791U 99035A   03064.23046813  .00000487  00000-0  93421-4 0  7989
+2 25791  24.9864 359.3605 0010411 275.9615  83.9706 14.41276773194731
+FUSE 1
+1 25791U 99035A   03062.98409806 +.00000428 +00000-0 +75413-4 0 08015
+2 25791 024.9863 006.9942 0010426 262.5976 097.3348 14.41275346194553
+FUSE 1
+1 25791U 99035A   03062.91485526  .00000425  00000-0  74460-4 0  7973
+2 25791  24.9862   7.4181 0010421 261.8604  98.0722 14.41275270194547
+FUSE 1
+1 25791U 99035A   03061.94545741 +.00000420 +00000-0 +73017-4 0 08008
+2 25791 024.9848 013.3688 0010509 252.6434 107.2924 14.41274844194403
+FUSE 1
+1 25791U 99035A   03061.66848589  .00000420  00000-0  73002-4 0  7961
+2 25791  24.9848  15.0645 0010505 249.7386 110.1988 14.41274707194360
+FUSE 1
+1 25791U 99035A   03060.49135828  .00000388  00000-0  63176-4 0  7959
+2 25791  24.9852  22.2747 0010610 237.5708 122.3771 14.41273890194196
+FUSE 1
+1 25791U 99035A   03059.24498747  .00000395  00000-0  65325-4 0  7947
+2 25791  24.9851  29.9090 0010713 224.4424 135.5221 14.41273446194018
+FUSE 1
+1 25791U 99035A   03058.96801613 +.00000410 +00000-0 +70039-4 0 08335
+2 25791 024.9848 031.6055 0010711 221.6605 138.3087 14.41273447193979
+FUSE 1
+1 25791U 99035A   03057.79088784  .00000466  00000-0  86878-4 0  7935
+2 25791  24.9852  38.8148 0010787 209.3160 150.6743 14.41273450193800
+FUSE 1
+1 25791U 99035A   03056.75224577  .00000511  00000-0  10064-3 0  7925
+2 25791  24.9849  45.1756 0010796 198.5017 161.5097 14.41273260193657
+FUSE 1
+1 25791U 99035A   03055.71360371  .00000543  00000-0  11053-3 0  7916
+2 25791  24.9851  51.5371 0010893 187.8825 172.1502 14.41272912193506
+FUSE 1
+1 25791U 99035A   03054.81344706 +.00000592 +00000-0 +12526-3 0 07943
+2 25791 024.9854 057.0504 0010975 178.3725 181.6813 14.41272772193372
+FUSE 1
+1 25791U 99035A   03054.53647601  .00000595  00000-0  12630-3 0  7907
+2 25791  24.9855  58.7463 0010996 175.5448 184.5158 14.41272591193338
+FUSE 1
+1 25791U 99035A   03053.22086164  .00000648  00000-0  14239-3 0  7897
+2 25791  24.9854  66.8027 0011082 162.1387 197.9511 14.41272079193145
+FUSE 1
+1 25791U 99035A   03052.18221916  .00000654  00000-0  14422-3 0  7887
+2 25791  24.9857  73.1612 0010974 150.9371 209.1749 14.41271157192993
+FUSE 1
+1 25791U 99035A   03051.69751897 +.00000653 +00000-0 +14404-3 0 08192
+2 25791 024.9857 076.1286 0010974 145.8259 214.2956 14.41270685192926
+FUSE 1
+1 25791U 99035A   03050.86660284  .00000682  00000-0  15278-3 0  7875
+2 25791  24.9852  81.2163 0010966 137.4487 222.6871 14.41270247192803
+FUSE 1
+1 25791U 99035A   03049.55098927  .00000679  00000-0  15178-3 0  7862
+2 25791  24.9830  89.2921 0010776 123.5065 236.6474 14.41268750192615
+FUSE 1
+1 25791U 99035A   03046.91974757  .00000708  00000-0  16072-3 0  7848
+2 25791  24.9828 105.4061 0010755  96.1405 264.0326 14.41266314192231
+FUSE 1
+1 25791U 99035A   03045.81185480  .00000675  00000-0  15076-3 0  7838
+2 25791  24.9829 112.1925 0010804  84.5002 275.6738 14.41264829192071
+FUSE 1
+1 25791U 99035A   03044.56547187  .00000671  00000-0  14933-3 0  7821
+2 25791  24.9825 119.8235 0010884  72.1647 288.0048 14.41263465191897
+FUSE 1
+1 25791U 99035A   03043.87303595 +.00000663 +00000-0 +14707-3 0 08086
+2 25791 024.9823 124.0647 0010837 064.8117 295.3515 14.41262691191797
+FUSE 1
+1 25791U 99035A   03043.24984329  .00000652  00000-0  14385-3 0  7817
+2 25791  24.9824 127.8828 0010807  58.4950 301.6614 14.41261995191709
+FUSE 1
+1 25791U 99035A   03042.07269992  .00000613  00000-0  13188-3 0  7805
+2 25791  24.9827 135.0921 0010730  46.2939 313.8459 14.41260560191534
+FUSE 1
+1 25791U 99035A   03040.82631031  .00000590  00000-0  12473-3 0  7791
+2 25791  24.9825 142.7255 0010676  33.4461 326.6705 14.41259243191356
+FUSE 1
+1 25791U 99035A   03039.57991945  .00000595  00000-0  12637-3 0  7780
+2 25791  24.9832 150.3613 0010568  20.6980 339.3959 14.41258343191173
+FUSE 1
+1 25791U 99035A   03038.54125940  .00000562  00000-0  11637-3 0  7772
+2 25791  24.9831 156.7218 0010533   9.4132 350.6584 14.41257190191022
+FUSE 1
+1 25791U 99035A   03037.01788880  .00000562  00000-0  11641-3 0  7765
+2 25791  24.9831 166.0494 0010450 353.4940   6.5445 14.41256054190805
+FUSE 1
+1 25791U 99035A   03035.90998290 +.00000529 +00000-0 +10615-3 0 07762
+2 25791 024.9834 172.8362 0010444 341.3662 018.6462 14.41254945190649
+FUSE 1
+1 25791U 99035A   03035.84073869  .00000529  00000-0  10615-3 0  7750
+2 25791  24.9834 173.2601 0010444 340.6394  19.3715 14.41254896190637
+FUSE 1
+1 25791U 99035A   03034.94056470 +.00000514 +00000-0 +10178-3 0 07937
+2 25791 024.9830 178.7729 0010445 331.0545 028.9383 14.41254106190504
+FUSE 1
+1 25791U 99035A   03034.59434384  .00000508  00000-0  99976-4 0  7748
+2 25791  24.9829 180.8929 0010469 327.4109  32.5752 14.41253798190450
+FUSE 1
+1 25791U 99035A   03033.55568063  .00000512  00000-0  10098-3 0  7736
+2 25791  24.9832 187.2531 0010490 316.1247  43.8429 14.41253174190304
+FUSE 1
+1 25791U 99035A   03032.24004087  .00000509  00000-0  10030-3 0  7723
+2 25791  24.9833 195.3101 0010479 301.8051  58.1431 14.41252308190118
+FUSE 1
+1 25791U 99035A   03031.13213438  .00000500  00000-0  97473-4 0  7719
+2 25791  24.9834 202.0943 0010489 289.8402  70.0976 14.41251485189957
+FUSE 1
+1 25791U 99035A   03029.95498370 +.00000507 +00000-0 +99455-4 0 07726
+2 25791 024.9833 209.3044 0010568 277.2138 082.7170 14.41250807189787
+FUSE 1
+1 25791U 99035A   03029.88573951  .00000506  00000-0  99284-4 0  7704
+2 25791  24.9834 209.7284 0010567 276.4676  83.4627 14.41250759189775
+FUSE 1
+1 25791U 99035A   03028.91632543 +.00000457 +00000-0 +84396-4 0 07714
+2 25791 024.9829 215.6872 0010688 267.6409 092.2873 14.41250112189637
+FUSE 1
+1 25791U 99035A   03028.84708138  .00000459  00000-0  84922-4 0  7694
+2 25791  24.9829 216.1111 0010685 266.8899  93.0390 14.41250090189627
+FUSE 1
+1 25791U 99035A   03027.94690786 +.00000485 +00000-0 +92887-4 0 07916
+2 25791 024.9829 221.6256 0010733 257.2339 102.6968 14.41249791189494
+FUSE 1
+1 25791U 99035A   03027.39295481  .00000522  00000-0  10395-3 0  7687
+2 25791  24.9825 225.0181 0010750 251.6346 108.2992 14.41249718189410
+FUSE 1
+1 25791U 99035A   03026.90824636 +.00000535 +00000-0 +10794-3 0 07938
+2 25791 024.9827 227.9872 0010755 246.4607 113.4770 14.41249533189346
+FUSE 1
+1 25791U 99035A   03026.21580544  .00000600  00000-0  12773-3 0  7672
+2 25791  24.9822 232.2291 0010751 239.2471 120.6976 14.41249537189241
+FUSE 1
+1 25791U 99035A   03024.90017016  .00000620  00000-0  13395-3 0  7667
+2 25791  24.9825 240.2875 0010606 224.5201 135.4454 14.41248661189059
+FUSE 1
+1 25791U 99035A   03023.86150943  .00000683  00000-0  15306-3 0  7650
+2 25791  24.9823 246.6490 0010698 213.6230 146.3601 14.41248266188901
+FUSE 1
+1 25791U 99035A   03022.96133739 +.00000720 +00000-0 +16435-3 0 07885
+2 25791 024.9822 252.1619 0010714 203.8994 156.1017 14.41247660188774
+FUSE 1
+1 25791U 99035A   03022.47662920  .00000753  00000-0  17422-3 0  7647
+2 25791  24.9818 255.1315 0010728 199.1571 160.8533 14.41247360188703
+FUSE 1
+1 25791U 99035A   03021.23023620  .00000814  00000-0  19309-3 0  7631
+2 25791  24.9818 262.7649 0010872 186.1483 173.8893 14.41246466188524
+FUSE 1
+1 25791U 99035A   03020.19157559  .00000839  00000-0  20070-3 0  7627
+2 25791  24.9818 269.1258 0010854 175.1951 184.8664 14.41245346188376
+FUSE 1
+1 25791U 99035A   03019.15291393  .00000874  00000-0  21118-3 0  7618
+2 25791  24.9818 275.4875 0010879 164.2609 195.8238 14.41244267188221
+FUSE 1
+1 25791U 99035A   03017.90651918  .00000882  00000-0  21358-3 0  7606
+2 25791  24.9820 283.1229 0010889 151.5092 208.6013 14.41242588188047
+FUSE 1
+1 25791U 99035A   03016.86785572  .00000849  00000-0  20352-3 0  7598
+2 25791  24.9821 289.4833 0010877 140.6893 219.4408 14.41240829187899
+FUSE 1
+1 25791U 99035A   03015.96767820 +.00000843 +00000-0 +20187-3 0 07628
+2 25791 024.9820 294.9922 0010992 131.6564 228.4886 14.41239598187768
+FUSE 1
+1 25791U 99035A   03015.41372249  .00000840  00000-0  20100-3 0  7582
+2 25791  24.9820 298.3836 0010997 125.8349 234.3181 14.41238834187688
+FUSE 1
+1 25791U 99035A   03014.23656622  .00000784  00000-0  18395-3 0  7570
+2 25791  24.9824 305.5944 0010955 113.8675 246.2990 14.41236827187518
+FUSE 1
+1 25791U 99035A   03013.19789667  .00000698  00000-0  15769-3 0  7565
+2 25791  24.9829 311.9557 0010860 103.1125 257.0596 14.41234894187368
+FUSE 1
+1 25791U 99035A   03012.92091841 +.00000651 +00000-0 +14337-3 0 07913
+2 25791 024.9830 313.6530 0010837 100.3922 259.7809 14.41234171187328
+FUSE 1
+1 25791U 99035A   03011.95149077 +.00000591 +00000-0 +12511-3 0 07599
+2 25791 024.9833 319.5894 0010774 090.1943 269.9802 14.41232741187189
+FUSE 1
+1 25791U 99035A   03011.88224586  .00000585  00000-0  12347-3 0  7556
+2 25791  24.9834 320.0134 0010776  89.4952 270.6791 14.41232635187174
+FUSE 1
+1 25791U 99035A   03010.49734521  .00000571  00000-0  11922-3 0  7549
+2 25791  24.9836 328.4940 0010755  75.1825 284.9873 14.41231417186974
+FUSE 1
+1 25791U 99035A   03009.38942288  .00000562  00000-0  11651-3 0  7534
+2 25791  24.9838 335.2793 0010726  63.5938 296.5669 14.41230504186813
+FUSE 1
+1 25791U 99035A   03008.21225405  .00000536  00000-0  10847-3 0  7526
+2 25791  24.9841 342.4893 0010658  51.4879 308.6589 14.41229428186642
+FUSE 1
+1 25791U 99035A   03007.17357430  .00000496  00000-0  96283-4 0  7517
+2 25791  24.9846 348.8510 0010606  40.2151 319.9146 14.41228391186490
+FUSE 1
+1 25791U 99035A   03005.71941978  .00000492  00000-0  95196-4 0  7508
+2 25791  24.9848 357.7568 0010489  25.1948 334.9069 14.41227497186283
+FUSE 1
+1 25791U 99035A   03004.54224559  .00000519  00000-0  10345-3 0  7497
+2 25791  24.9849   4.9669 0010381  12.5994 347.4773 14.41226999186118
+FUSE 1
+1 25791U 99035A   03003.22657791  .00000659  00000-0  14583-3 0  7481
+2 25791  24.9844  13.0234 0010171 358.9129   1.1355 14.41227192185920
+FUSE 1
+1 25791U 99035A   03001.70317381 +.00000783 +00000-0 +18366-3 0 07470
+2 25791 024.9836 022.3505 0010142 342.3951 017.6202 14.41226616185702
+FUSE 1
+1 25791U 99035A   02365.66448900  .00000905  00000-0  22093-3 0  7466
+2 25791  24.9828  28.7111 0010120 331.1925  28.8023 14.41226254185555
+FUSE 1
+1 25791U 99035A   02364.55655917  .00001003  00000-0  25056-3 0  7452
+2 25791  24.9823  35.4963 0010124 319.5885  40.3870 14.41225360185397
+FUSE 1
+1 25791U 99035A   02363.24089208  .00001123  00000-0  28737-3 0  7442
+2 25791  24.9817  43.5541 0010043 305.4795  54.4774 14.41224128185206
+FUSE 1
+1 25791U 99035A   02361.85597983  .00001182  00000-0  30525-3 0  7433
+2 25791  24.9811  52.0336 0010047 290.8057  69.1372 14.41221885185001
+FUSE 1
+1 25791U 99035A   02360.81729577  .00001190  00000-0  30775-3 0  7429
+2 25791  24.9811  58.3946 0010013 279.4423  80.4952 14.41219863184855
+FUSE 1
+1 25791U 99035A   02359.98634816 +.00001193 +00000-0 +30865-3 0 07531
+2 25791 024.9811 063.4834 0010006 270.4269 089.5092 14.41218193184736
+FUSE 1
+1 25791U 99035A   02359.57087417  .00001197  00000-0  30966-3 0  7418
+2 25791  24.9812  66.0284 0010007 265.9037  94.0326 14.41217390184670
+FUSE 1
+1 25791U 99035A   02356.87029074  .00001204  00000-0  31182-3 0  7390
+2 25791  24.9811  82.5668 0009938 236.3646 123.5914 14.41211956184287
+FUSE 1
+1 25791U 99035A   02355.55462023  .00001090  00000-0  27728-3 0  7382
+2 25791  24.9809  90.6214 0010165 222.2949 137.6776 14.41208399184093
+FUSE 1
+1 25791U 99035A   02354.51593217  .00001046  00000-0  26390-3 0  7371
+2 25791  24.9811  96.9840 0010179 211.0308 148.9598 14.41206118183947
+FUSE 1
+1 25791U 99035A   02353.13101277  .00001006  00000-0  25162-3 0  7360
+2 25791  24.9814 105.4674 0010149 196.0465 163.9721 14.41203384183749
+FUSE 1
+1 25791U 99035A   02351.95382922 +.00000934 +00000-0 +22963-3 0 07372
+2 25791 024.9817 112.6764 0010197 184.0228 176.0200 14.41200867183570
+FUSE 1
+1 25791U 99035A   02351.88458303  .00000934  00000-0  22971-3 0  7358
+2 25791  24.9817 113.1005 0010193 183.2930 176.7513 14.41200763183569
+FUSE 1
+1 25791U 99035A   02350.91513627 +.00000904 +00000-0 +22045-3 0 07519
+2 25791 024.9819 119.0445 0010562 174.0065 186.0569 14.41199099183420
+FUSE 1
+1 25791U 99035A   02350.56890542  .00000886  00000-0  21508-3 0  7347
+2 25791  24.9818 121.1673 0010554 170.6826 189.3879 14.41198405183378
+FUSE 1
+1 25791U 99035A   02349.11473244  .00000853  00000-0  20507-3 0  7333
+2 25791  24.9823 130.0779 0010595 156.0675 204.0329 14.41196121183160
+FUSE 1
+1 25791U 99035A   02347.86829613  .00000843  00000-0  20210-3 0  7327
+2 25791  24.9826 137.7176 0010579 143.6291 216.4936 14.41194381182982
+FUSE 1
+1 25791U 99035A   02346.96809054 +.00000846 +00000-0 +20310-3 0 07328
+2 25791 024.9827 143.2322 0010589 134.4622 225.6760 14.41193196182851
+FUSE 1
+1 25791U 99035A   02346.82959720  .00000840  00000-0  20129-3 0  7310
+2 25791  24.9828 144.0807 0010580 133.0588 227.0808 14.41192967182838
+FUSE 1
+1 25791U 99035A   02345.92939017 +.00000816 +00000-0 +19371-3 0 07418
+2 25791 024.9830 149.5942 0010509 123.9678 236.1843 14.41191589182705
+FUSE 1
+1 25791U 99035A   02345.58315657  .00000792  00000-0  18653-3 0  7301
+2 25791  24.9831 151.7183 0010408 120.6946 239.4591 14.41190929182655
+FUSE 1
+1 25791U 99035A   02344.89068773 +.00000785 +00000-0 +18451-3 0 07429
+2 25791 024.9831 155.9574 0010423 113.3541 246.8055 14.41190019182558
+FUSE 1
+1 25791U 99035A   02344.54445368  .00000789  00000-0  18568-3 0  7298
+2 25791  24.9831 158.0799 0010476 110.1229 250.0410 14.41189637182508
+FUSE 1
+1 25791U 99035A   02343.15951322  .00000783  00000-0  18396-3 0  7288
+2 25791  24.9834 166.5623 0010426  96.2869 263.8829 14.41187968182309
+FUSE 1
+1 25791U 99035A   02342.88252492 +.00000775 +00000-0 +18152-3 0 07460
+2 25791 024.9835 168.2588 0010398 093.2895 266.8803 14.41187559182269
+FUSE 1
+1 25791U 99035A   02341.98231177  .00000761  00000-0  17708-3 0  7277
+2 25791  24.9836 173.7711 0010366  83.7509 276.4178 14.41186369182136
+FUSE 1
+1 25791U 99035A   02340.87435475  .00000768  00000-0  17944-3 0  7269
+2 25791  24.9836 180.5545 0010319  72.0817 288.0815 14.41185129181979
+FUSE 1
+1 25791U 99035A   02339.90489123 +.00000743 +00000-0 +17159-3 0 07373
+2 25791 024.9838 186.4897 0010302 061.8181 298.3364 14.41183804181834
+FUSE 1
+1 25791U 99035A   02339.00467365  .00000760  00000-0  17694-3 0  7258
+2 25791  24.9837 192.0009 0010340  52.4233 307.7215 14.41182886181702
+FUSE 1
+1 25791U 99035A   02337.96595978 +.00000747 +00000-0 +17292-3 0 07274
+2 25791 024.9838 198.3601 0010349 041.4682 318.6611 14.41181581181550
+FUSE 1
+1 25791U 99035A   02337.89671225  .00000735  00000-0  16930-3 0  7248
+2 25791  24.9838 198.7841 0010344  40.6825 319.4454 14.41181406181544
+FUSE 1
+1 25791U 99035A   02336.92724431 +.00000730 +00000-0 +16784-3 0 07263
+2 25791 024.9839 204.7190 0010345 030.4753 329.6355 14.41180304181402
+FUSE 1
+1 25791U 99035A   02336.85799660  .00000726  00000-0  16666-3 0  7232
+2 25791  24.9840 205.1432 0010343  29.6910 330.4183 14.41180198181399
+FUSE 1
+1 25791U 99035A   02335.95777534 +.00000723 +00000-0 +16574-3 0 07378
+2 25791 024.9840 210.6541 0010353 020.2600 339.8318 14.41179182181265
+FUSE 1
+1 25791U 99035A   02335.12680126  .00000724  00000-0  16595-3 0  7225
+2 25791  24.9839 215.7423 0010346  11.4473 348.6270 14.41178242181148
+FUSE 1
+1 25791U 99035A   02333.88033836  .00000777  00000-0  18215-3 0  7214
+2 25791  24.9838 223.3729 0010367 358.4414   1.6064 14.41177194180964
+FUSE 1
+1 25791U 99035A   02332.21838680  .00000738  00000-0  17012-3 0  7200
+2 25791  24.9840 233.5483 0010369 340.4562  19.5551 14.41175004180725
+FUSE 1
+1 25791U 99035A   02330.97192266 +.00000736 +00000-0 +16945-3 0 07228
+2 25791 024.9841 241.1847 0010383 327.1955 032.7907 14.41173576180543
+FUSE 1
+1 25791U 99035A   02330.90267454  .00000744  00000-0  17204-3 0  7197
+2 25791  24.9842 241.6086 0010384 326.4698  33.5151 14.41173549180530
+FUSE 1
+1 25791U 99035A   02329.93320137 +.00000795 +00000-0 +18754-3 0 07238
+2 25791 024.9841 247.5450 0010325 316.0567 043.9119 14.41172687180399
+FUSE 1
+1 25791U 99035A   02329.86395339  .00000793  00000-0  18694-3 0  7181
+2 25791  24.9841 247.9690 0010320 315.3599  44.6079 14.41172585180380
+FUSE 1
+1 25791U 99035A   02328.96372831 +.00000874 +00000-0 +21177-3 0 07262
+2 25791 024.9839 253.4818 0010301 306.0731 053.8822 14.41171745180256
+FUSE 1
+1 25791U 99035A   02328.47899189  .00000852  00000-0  20479-3 0  7178
+2 25791  24.9839 256.4492 0010283 300.9882  58.9620 14.41170988180188
+FUSE 1
+1 25791U 99035A   02327.23252631  .00000997  00000-0  24907-3 0  7165
+2 25791  24.9837 264.0850 0010209 287.9702  71.9692 14.41169674180007
+FUSE 1
+1 25791U 99035A   02325.91681241  .00001075  00000-0  27280-3 0  7155
+2 25791  24.9835 272.1466 0010275 274.0090  85.9246 14.41167756179814
+FUSE 1
+1 25791U 99035A   02324.94733872 +.00001074 +00000-0 +27250-3 0 07151
+2 25791 024.9837 278.0849 0010343 263.9267 096.0064 14.41166020179673
+FUSE 1
+1 25791U 99035A   02324.67034596  .00001073  00000-0  27216-3 0  7148
+2 25791  24.9837 279.7804 0010340 261.0175  98.9158 14.41165514179634
+FUSE 1
+1 25791U 99035A   02323.97786359 +.00001085 +00000-0 +27593-3 0 07186
+2 25791 024.9834 284.0218 0010561 253.2107 106.7242 14.41164354179534
+FUSE 1
+1 25791U 99035A   02323.56237448  .00001085  00000-0  27595-3 0  7138
+2 25791  24.9834 286.5654 0010546 248.8875 111.0502 14.41163593179475
+FUSE 1
+1 25791U 99035A   02322.24665714  .00001162  00000-0  29927-3 0  7129
+2 25791  24.9833 294.6241 0010703 233.4813 126.4702 14.41161870179280
+FUSE 1
+1 25791U 99035A   02321.20793280  .00001220  00000-0  31720-3 0  7112
+2 25791  24.9829 300.9847 0010808 222.5858 137.3810 14.41160264179133
+FUSE 1
+1 25791U 99035A   02319.40747635  .00001263  00000-0  33024-3 0  7109
+2 25791  24.9825 312.0065 0010876 203.7169 156.2843 14.41156787178877
+FUSE 1
+1 25791U 99035A   02318.64574421 +.00001273 +00000-0 +33320-3 0 07183
+2 25791 024.9823 316.6719 0010904 195.8401 164.1766 14.41155172178760
+FUSE 1
+1 25791U 99035A   02317.81476349 +.00001220 +00000-0 +31728-3 0 07352
+2 25791 024.9826 321.7601 0010933 187.6105 172.4237 14.41152903178643
+FUSE 1
+1 25791U 99035A   02316.84528386  .00001225  00000-0  31884-3 0  7081
+2 25791  24.9827 327.6980 0010976 177.5120 182.5438 14.41150915178502
+FUSE 1
+1 25791U 99035A   02315.59880787  .00001242  00000-0  32394-3 0  7073
+2 25791  24.9825 335.3293 0011048 164.4233 195.6623 14.41148412178324
+FUSE 1
+1 25791U 99035A   02314.69857361 +.00001241 +00000-0 +32373-3 0 07071
+2 25791 024.9823 340.8415 0011033 155.1164 204.9876 14.41146449178190
+FUSE 1
+1 25791U 99035A   02314.56007609  .00001242  00000-0  32393-3 0  7061
+2 25791  24.9823 341.6892 0011038 153.6592 206.4489 14.41146160178176
+FUSE 1
+1 25791U 99035A   02313.24434699  .00001193  00000-0  30916-3 0  7051
+2 25791  24.9828 349.7471 0011087 140.1634 219.9694 14.41143010177981
+FUSE 1
+1 25791U 99035A   02312.20561116  .00001132  00000-0  29035-3 0  7043
+2 25791  24.9834 356.1079 0011110 129.7443 230.4048 14.41140389177833
+FUSE 1
+1 25791U 99035A   02311.92861422 +.00001126 +00000-0 +28868-3 0 07309
+2 25791 024.9835 357.8035 0011119 126.7910 233.3617 14.41139808177792
+FUSE 1
+1 25791U 99035A   02310.95912468 +.00001083 +00000-0 +27550-3 0 07048
+2 25791 024.9837 003.7403 0011086 116.7489 243.4157 14.41137566177658
+FUSE 1
+1 25791U 99035A   02310.82062580  .00001082  00000-0  27519-3 0  7038
+2 25791  24.9837   4.5881 0011089 115.2851 244.8806 14.41137305177632
+FUSE 1
+1 25791U 99035A   02309.78188408 +.00001035 +00000-0 +26086-3 0 07068
+2 25791 024.9840 010.9478 0011067 104.2526 255.9212 14.41135021177482
+FUSE 1
+1 25791U 99035A   02309.57413526  .00001031  00000-0  25964-3 0  7023
+2 25791  24.9841  12.2196 0011058 102.0689 258.1059 14.41134631177458
+FUSE 1
+1 25791U 99035A   02308.67388968 +.00001007 +00000-0 +25233-3 0 07048
+2 25791 024.9841 017.7307 0011071 092.5180 267.6595 14.41132871177326
+FUSE 1
+1 25791U 99035A   02308.53539014  .00001005  00000-0  25166-3 0  7013
+2 25791  24.9842  18.5786 0011066  91.0739 269.1037 14.41132629177302
+FUSE 1
+1 25791U 99035A   02307.08114362  .00000944  00000-0  23310-3 0  7006
+2 25791  24.9847  27.4838 0011100  76.0546 284.1186 14.41129780177094
+FUSE 1
+1 25791U 99035A   02306.04239290  .00000935  00000-0  23046-3 0  6992
+2 25791  24.9847  33.8456 0011062  65.0552 295.1089 14.41128082176944
+FUSE 1
+1 25791U 99035A   02304.86513927  .00000956  00000-0  23688-3 0  6986
+2 25791  24.9847  41.0556 0010946  52.9833 307.1674 14.41126496176775
+FUSE 1
+1 25791U 99035A   02303.89563460 +.00000960 +00000-0 +23806-3 0 06982
+2 25791 024.9849 046.9935 0010898 043.0452 317.0893 14.41125049176637
+FUSE 1
+1 25791U 99035A   02303.82638415  .00000966  00000-0  23984-3 0  6970
+2 25791  24.9849  47.4173 0010865  42.3451 317.7891 14.41125000176623
+FUSE 1
+1 25791U 99035A   02302.71837611 +.00001023 +00000-0 +25722-3 0 07019
+2 25791 024.9847 054.2005 0010813 031.1742 328.9406 14.41123746176466
+FUSE 1
+1 25791U 99035A   02302.57987459  .00001040  00000-0  26254-3 0  6962
+2 25791  24.9846  55.0483 0010830  29.7688 330.3422 14.41123680176445
+FUSE 1
+1 25791U 99035A   02300.98711079  .00001096  00000-0  27956-3 0  6958
+2 25791  24.9841  64.7981 0010843  13.0413 347.0373 14.41121314176213
+FUSE 1
+1 25791U 99035A   02299.87909991  .00001128  00000-0  28943-3 0  6947
+2 25791  24.9841  71.5856 0010786   1.4027 358.6513 14.41119575176050
+FUSE 1
+1 25791U 99035A   02298.84033835  .00001169  00000-0  30201-3 0  6932
+2 25791  24.9842  77.9480 0010811 350.6657   9.3651 14.41117963175906
+FUSE 1
+1 25791U 99035A   02297.94007642 +.00001182 +00000-0 +30577-3 0 06941
+2 25791 024.9844 083.4626 0010597 339.8645 020.1444 14.41116418175779
+FUSE 1
+1 25791U 99035A   02297.80157473  .00001180  00000-0  30538-3 0  6927
+2 25791  24.9845  84.3107 0010600 338.3923  21.6137 14.41116135175751
+FUSE 1
+1 25791U 99035A   02296.90131265 +.00001199 +00000-0 +31112-3 0 07052
+2 25791 024.9844 089.8231 0010565 328.5579 031.4298 14.41114507175620
+FUSE 1
+1 25791U 99035A   02296.55505701  .00001238  00000-0  32303-3 0  6914
+2 25791  24.9844  91.9448 0010517 324.3002  35.6802 14.41114238175578
+FUSE 1
+1 25791U 99035A   02295.93179849 +.00001243 +00000-0 +32465-3 0 07023
+2 25791 024.9845 095.7602 0010517 317.7975 042.1726 14.41112961175487
+FUSE 1
+1 25791U 99035A   02295.51629228  .00001254  00000-0  32781-3 0  6907
+2 25791  24.9843  98.3052 0010532 313.0139  46.9486 14.41112188175421
+FUSE 1
+1 25791U 99035A   02294.96228418 +.00001256 +00000-0 +32856-3 0 07075
+2 25791 024.9843 101.6963 0010529 307.2176 052.7370 14.41111015175348
+FUSE 1
+1 25791U 99035A   02294.13127216  .00001240  00000-0  32359-3 0  6898
+2 25791  24.9841 106.7843 0010541 298.5475  61.3971 14.41109044175226
+FUSE 1
+1 25791U 99035A   02293.92351906 +.00001239 +00000-0 +32344-3 0 07139
+2 25791 024.9843 108.0569 0010535 296.3424 063.6002 14.41108613175198
+FUSE 1
+1 25791U 99035A   02292.95400352 +.00001237 +00000-0 +32256-3 0 06905
+2 25791 024.9842 113.9928 0010572 285.9862 073.9481 14.41106520175057
+FUSE 1
+1 25791U 99035A   02292.88475244  .00001234  00000-0  32188-3 0  6887
+2 25791  24.9842 114.4167 0010574 285.2452  74.6888 14.41106349175045
+FUSE 1
+1 25791U 99035A   02291.56898052  .00001216  00000-0  31640-3 0  6878
+2 25791  24.9839 122.4724 0010637 271.2762  88.6530 14.41103373174859
+FUSE 1
+1 25791U 99035A   02290.94572017 +.00001195 +00000-0 +30991-3 0 07009
+2 25791 024.9844 126.2889 0010671 264.7560 095.1729 14.41101851174762
+FUSE 1
+1 25791U 99035A   02290.18395700  .00001174  00000-0  30345-3 0  6860
+2 25791  24.9843 130.9526 0010673 256.7111 103.2208 14.41100044174650
+FUSE 1
+1 25791U 99035A   02288.86818259  .00001140  00000-0  29323-3 0  6857
+2 25791  24.9845 139.0064 0010704 243.0013 116.9405 14.41097023174465
+FUSE 1
+1 25791U 99035A   02287.89866426 +.00001136 +00000-0 +29186-3 0 06894
+2 25791 024.9843 144.9409 0010684 232.7314 127.2281 14.41095095174326
+FUSE 1
+1 25791U 99035A   02287.20614986  .00001151  00000-0  29649-3 0  6847
+2 25791  24.9827 149.1875 0010669 225.6654 134.2979 14.41093836174225
+FUSE 1
+1 25791U 99035A   02285.89037225  .00001130  00000-0  29004-3 0  6836
+2 25791  24.9828 157.2454 0010692 211.9002 148.0860 14.41091133174039
+FUSE 1
+1 25791U 99035A   02284.85159928  .00001103  00000-0  28186-3 0  6825
+2 25791  24.9828 163.6064 0010728 200.9652 159.0419 14.41088960173884
+FUSE 1
+1 25791U 99035A   02283.32806291  .00001033  00000-0  26046-3 0  6812
+2 25791  24.9830 172.9322 0010689 184.6616 175.3793 14.41085821173666
+FUSE 1
+1 25791U 99035A   02282.98180447 +.00000996 +00000-0 +24906-3 0 06844
+2 25791 024.9832 175.0528 0010704 180.9650 179.0837 14.41085010173610
+FUSE 1
+1 25791U 99035A   02282.22003459  .00001026  00000-0  25852-3 0  6800
+2 25791  24.9831 179.7159 0010708 172.9134 187.1536 14.41083903173505
+FUSE 1
+1 25791U 99035A   02280.97350077 +.00000830 +00000-0 +19849-3 0 06802
+2 25791 024.9833 187.3563 0011025 161.6340 198.4554 14.41080808173324
+FUSE 1
+1 25791U 99035A   02280.90424885  .00000955  00000-0  23675-3 0  6792
+2 25791  24.9831 187.7802 0010991 160.8057 199.2869 14.41081211173315
+FUSE 1
+1 25791U 99035A   02279.93472079 +.00001010 +00000-0 +25355-3 0 06825
+2 25791 024.9829 193.7205 0011006 150.8784 209.2336 14.41079909173176
+FUSE 1
+1 25791U 99035A   02279.38070408  .00001043  00000-0  26359-3 0  6780
+2 25791  24.9829 197.1114 0011002 144.9425 215.1807 14.41079042173093
+FUSE 1
+1 25791U 99035A   02278.20341727  .00000963  00000-0  23930-3 0  6776
+2 25791  24.9832 204.3229 0011020 133.2028 226.9401 14.41076821172928
+FUSE 1
+1 25791U 99035A   02276.88762358  .00000955  00000-0  23667-3 0  6762
+2 25791  24.9828 212.3833 0011005 119.6564 240.5042 14.41074562172731
+FUSE 1
+1 25791U 99035A   02275.50257357  .00000810  00000-0  19257-3 0  6757
+2 25791  24.9832 220.8633 0010929 105.5890 254.5823 14.41071888172536
+FUSE 1
+1 25791U 99035A   02274.94855287 +.00000769 +00000-0 +18010-3 0 06782
+2 25791 024.9832 224.2597 0010747 099.8528 260.3191 14.41070889172458
+FUSE 1
+1 25791U 99035A   02274.39453091  .00000766  00000-0  17925-3 0  6745
+2 25791  24.9832 227.6504 0010741  94.0800 266.0941 14.41070217172379
+FUSE 1
+1 25791U 99035A   02273.97901442 +.00000752 +00000-0 +17475-3 0 06831
+2 25791 024.9833 230.1965 0010675 089.7969 270.3764 14.41069590172310
+FUSE 1
+1 25791U 99035A   02273.21723299  .00000755  00000-0  17576-3 0  6734
+2 25791  24.9834 234.8609 0010679  81.6884 278.4835 14.41068740172200
+FUSE 1
+1 25791U 99035A   02272.94022098 +.00000777 +00000-0 +18254-3 0 07023
+2 25791 024.9832 236.5583 0010621 078.7403 281.4295 14.41068586172166
+FUSE 1
+1 25791U 99035A   02271.97067853 +.00000808 +00000-0 +19195-3 0 06741
+2 25791 024.9832 242.4959 0010491 068.8195 291.3434 14.41067715172025
+FUSE 1
+1 25791U 99035A   02271.55516014  .00000808  00000-0  19212-3 0  6721
+2 25791  24.9832 245.0390 0010492  64.4543 295.7048 14.41067193171964
+FUSE 1
+1 25791U 99035A   02270.51636263  .00000857  00000-0  20706-3 0  6718
+2 25791  24.9832 251.3989 0010443  53.4959 306.6509 14.41066244171817
+FUSE 1
+1 25791U 99035A   02269.33905765  .00000893  00000-0  21807-3 0  6704
+2 25791  24.9833 258.6080 0010394  40.7861 319.3423 14.41064845171648
+FUSE 1
+1 25791U 99035A   02268.23100366  .00000992  00000-0  24815-3 0  6696
+2 25791  24.9827 265.3949 0010332  28.8061 331.3014 14.41063880171481
+FUSE 1
+1 25791U 99035A   02267.19220147  .00001098  00000-0  28063-3 0  6686
+2 25791  24.9823 271.7543 0010324  17.9281 342.1586 14.41062934171339
+FUSE 1
+1 25791U 99035A   02265.66862362  .00001232  00000-0  32165-3 0  6674
+2 25791  24.9816 281.0815 0010329   1.9220 358.1327 14.41060966171117
+FUSE 1
+1 25791U 99035A   02264.56056684  .00001222  00000-0  31866-3 0  6669
+2 25791  24.9817 287.8674 0010319 349.8851  10.1457 14.41058532170954
+FUSE 1
+1 25791U 99035A   02263.52176164  .00001227  00000-0  32006-3 0  6651
+2 25791  24.9817 294.2294 0010341 338.4888  21.5185 14.41056345170801
+FUSE 1
+1 25791U 99035A   02262.62146251 +.00001266 +00000-0 +33195-3 0 06726
+2 25791 024.9813 299.7417 0010331 328.9476 031.0420 14.41054666170677
+FUSE 1
+1 25791U 99035A   02262.41370124  .00001257  00000-0  32914-3 0  6640
+2 25791  24.9813 301.0139 0010341 326.6238  33.3618 14.41054137170641
+FUSE 1
+1 25791U 99035A   02261.23638509  .00001327  00000-0  35045-3 0  6638
+2 25791  24.9808 308.2225 0010336 313.5426  46.4225 14.41052008170473
+FUSE 1
+1 25791U 99035A   02260.19757547  .00001443  00000-0  38612-3 0  6627
+2 25791  24.9803 314.5833 0010346 302.4458  57.5047 14.41050420170321
+FUSE 1
+1 25791U 99035A   02259.71279796 +.00001450 +00000-0 +38808-3 0 06904
+2 25791 024.9803 317.5503 0010348 297.3449 062.6007 14.41049231170255
+FUSE 1
+1 25791U 99035A   02258.81249669  .00001457  00000-0  39044-3 0  6618
+2 25791  24.9801 323.0624 0010344 288.1227  71.8153 14.41046928170127
+FUSE 1
+1 25791U 99035A   02257.56592355  .00001607  00000-0  43604-3 0  6605
+2 25791  24.9798 330.6972 0010331 274.6720  85.2607 14.41044565169942
+FUSE 1
+1 25791U 99035A   02256.52711275  .00001599  00000-0  43384-3 0  6597
+2 25791  24.9793 337.0578 0010393 263.4699  96.4645 14.41041446169793
+FUSE 1
+1 25791U 99035A   02255.41904580  .00001584  00000-0  42933-3 0  6589
+2 25791  24.9787 343.8424 0010407 251.9278 108.0095 14.41038086169630
+FUSE 1
+1 25791U 99035A   02254.72650348 +.00001491 +00000-0 +40078-3 0 06835
+2 25791 024.9788 348.0813 0010411 244.6244 115.3195 14.41035736169537
+FUSE 1
+1 25791U 99035A   02253.89545131  .00001396  00000-0  37159-3 0  6576
+2 25791  24.9785 353.1698 0010435 235.7390 124.2119 14.41033155169416
+FUSE 1
+1 25791U 99035A   02252.92589091 +.00001057 +00000-0 +26812-3 0 06570
+2 25791 024.9789 359.1085 0010610 225.0767 134.8879 14.41029740169270
+FUSE 1
+1 25791U 99035A   02252.85663624  .00001059  00000-0  26870-3 0  6562
+2 25791  24.9790 359.5326 0010621 224.3210 135.6441 14.41029635169267
+FUSE 1
+1 25791U 99035A   02251.95632761 +.00001005 +00000-0 +25223-3 0 06562
+2 25791 024.9790 005.0443 0010707 214.4524 145.5288 14.41027801169131
+FUSE 1
+1 25791U 99035A   02251.81781883  .00001011  00000-0  25399-3 0  6557
+2 25791  24.9790   5.8921 0010710 212.9295 147.0567 14.41027608169112
+FUSE 1
+1 25791U 99035A   02250.70974565 +.00000905 +00000-0 +22152-3 0 06628
+2 25791 024.9792 012.6758 0010740 201.5396 158.4662 14.41025222168950
+FUSE 1
+1 25791U 99035A   02250.57123644  .00000892  00000-0  21766-3 0  6543
+2 25791  24.9793  13.5236 0010741 200.1557 159.8528 14.41024911168935
+FUSE 1
+1 25791U 99035A   02248.90912382  .00000783  00000-0  18435-3 0  6539
+2 25791  24.9796  23.6965 0010767 182.5930 177.4521 14.41021797168696
+FUSE 1
+1 25791U 99035A   02247.93955749 +.00000652 +00000-0 +14418-3 0 06762
+2 25791 024.9802 029.6342 0010910 173.0331 187.0327 14.41019680168553
+FUSE 1
+1 25791U 99035A   02247.24700867  .00000614  00000-0  13267-3 0  6528
+2 25791  24.9803  33.8749 0010996 165.8745 194.2065 14.41018736168453
+FUSE 1
+1 25791U 99035A   02246.13892944  .00000537  00000-0  10933-3 0  6513
+2 25791  24.9806  40.6587 0011018 154.5982 205.5064 14.41017206168294
+FUSE 1
+1 25791U 99035A   02244.89233811  .00000526  00000-0  10578-3 0  6508
+2 25791  24.9810  48.2931 0011178 142.1273 218.0023 14.41016304168112
+FUSE 1
+1 25791U 99035A   02243.57648803  .00000736  00000-0  16997-3 0  6495
+2 25791  24.9800  56.3527 0011307 128.8388 231.3126 14.41016815167921
+FUSE 1
+1 25791U 99035A   02242.12212513  .00001042  00000-0  26353-3 0  6487
+2 25791  24.9790  65.2545 0011385 113.4504 246.7186 14.41017164167715
+FUSE 1
+1 25791U 99035A   02241.15254607  .00001586  00000-0  42999-3 0  6475
+2 25791  24.9772  71.1895 0011244 103.6925 256.4821 14.41018933167574
+FUSE 1
+1 25791U 99035A   02240.87553062  .00000969  00000-0  24140-3 0  6461
+2 25791  24.9785  72.8895 0010796 101.1155 259.0566 14.41013762167531
+FUSE 1
+1 25791U 99035A   02239.90595273 +.00001112 +00000-0 +28499-3 0 06645
+2 25791 024.9781 078.8252 0010791 090.9038 269.2706 14.41013017167396
+FUSE 1
+1 25791U 99035A   02239.21339631  .00001213  00000-0  31602-3 0  6454
+2 25791  24.9777  83.0642 0010776  83.4859 276.6874 14.41012252167290
+FUSE 1
+1 25791U 99035A   02237.96679327 +.00001439 +00000-0 +38514-3 0 06496
+2 25791 024.9774 090.6979 0010768 071.0115 289.1558 14.41010739167110
+FUSE 1
+1 25791U 99035A   02237.89753765  .00001477  00000-0  39690-3 0  6440
+2 25791  24.9773  91.1232 0010788  70.3652 289.8019 14.41010744167101
+FUSE 1
+1 25791U 99035A   02236.44316461  .00001500  00000-0  40378-3 0  6439
+2 25791  24.9767 100.0287 0010670  55.6564 304.4950 14.41006864166893
+FUSE 1
+1 25791U 99035A   02235.19655478  .00001345  00000-0  35650-3 0  6427
+2 25791  24.9770 107.6610 0010486  43.1111 317.0209 14.41003175166715
+FUSE 1
+1 25791U 99035A   02233.94994384 +.00001071 +00000-0 +27257-3 0 06453
+2 25791 024.9778 115.2923 0010434 030.0321 330.0788 14.40999043166530
+FUSE 1
+1 25791U 99035A   02233.88068763  .00001046  00000-0  26501-3 0  6418
+2 25791  24.9780 115.7163 0010425  29.2338 330.8754 14.40998751166527
+FUSE 1
+1 25791U 99035A   02232.49555828  .00000919  00000-0  22621-3 0  6403
+2 25791  24.9786 124.1958 0010414  14.6083 345.4723 14.40995445166325
+FUSE 1
+1 25791U 99035A   02231.94150552 +.00000876 +00000-0 +21309-3 0 06546
+2 25791 024.9788 127.5880 0010407 008.4765 351.5919 14.40994234166249
+FUSE 1
+1 25791U 99035A   02231.38745204  .00000845  00000-0  20367-3 0  6390
+2 25791  24.9789 130.9790 0010378   2.6277 357.4296 14.40993213166169
+FUSE 1
+1 25791U 99035A   02230.97191224 +.00000798 +00000-0 +18928-3 0 06602
+2 25791 024.9793 133.5251 0010384 358.0335 002.0134 14.40992235166106
+FUSE 1
+1 25791U 99035A   02230.21008800  .00000719  00000-0  16493-3 0  6389
+2 25791  24.9799 138.1891 0010364 349.8416  10.1882 14.40990663165998
+FUSE 1
+1 25791U 99035A   02228.89420846  .00000570  00000-0  11957-3 0  6372
+2 25791  24.9808 146.2460 0010327 335.3789  24.6230 14.40988149165806
+FUSE 1
+1 25791U 99035A   02227.85535415  .00000520  00000-0  10422-3 0  6366
+2 25791  24.9812 152.6068 0010343 324.1332  35.8482 14.40986913165657
+FUSE 1
+1 25791U 99035A   02226.95501315 +.00000506 +00000-0 +99908-4 0 06426
+2 25791 024.9813 158.1197 0010337 314.4756 045.4908 14.40986180165529
+FUSE 1
+1 25791U 99035A   02226.47021386  .00000502  00000-0  98661-4 0  6351
+2 25791  24.9813 161.0865 0010330 309.4557  50.5037 14.40985822165454
+FUSE 1
+1 25791U 99035A   02225.98541513 +.00000476 +00000-0 +90569-4 0 06422
+2 25791 024.9815 164.0553 0010405 304.3474 055.6046 14.40985257165388
+FUSE 1
+1 25791U 99035A   02225.22358750  .00000482  00000-0  92578-4 0  6348
+2 25791  24.9816 168.7186 0010417 296.1218  63.8218 14.40984875165274
+FUSE 1
+1 25791U 99035A   02223.97696163 +.00000481 +00000-0 +92220-4 0 06412
+2 25791 024.9814 176.3517 0010455 283.1411 076.7930 14.40984067165095
+FUSE 1
+1 25791U 99035A   02223.49216218  .00000489  00000-0  94620-4 0  6333
+2 25791  24.9814 179.3194 0010476 277.8554  82.0754 14.40983850165026
+FUSE 1
+1 25791U 99035A   02222.93810641 +.00000509 +00000-0 +10073-3 0 06456
+2 25791 024.9812 182.7128 0010537 272.0359 087.8941 14.40983654164940
+FUSE 1
+1 25791U 99035A   02222.24553673  .00000508  00000-0  10033-3 0  6320
+2 25791  24.9814 186.9527 0010565 264.8001  95.1296 14.40983198164842
+FUSE 1
+1 25791U 99035A   02220.72188492  .00000514  00000-0  10213-3 0  6310
+2 25791  24.9811 196.2838 0010649 248.9270 111.0101 14.40982128164623
+FUSE 1
+1 25791U 99035A   02219.96005888 +.00000589 +00000-0 +12528-3 0 06358
+2 25791 024.9808 200.9504 0010520 240.1664 119.7798 14.40982235164515
+FUSE 1
+1 25791U 99035A   02219.54451761  .00000591  00000-0  12583-3 0  6306
+2 25791  24.9809 203.4950 0010565 235.7070 124.2439 14.40981930164456
+FUSE 1
+1 25791U 99035A   02218.50566444  .00000591  00000-0  12589-3 0  6290
+2 25791  24.9810 209.8564 0010671 225.0521 134.9121 14.40981088164304
+FUSE 1
+1 25791U 99035A   02217.67458222 +.00000586 +00000-0 +12427-3 0 06319
+2 25791 024.9810 214.9451 0010742 216.2683 143.7098 14.40980335164187
+FUSE 1
+1 25791U 99035A   02217.46681143  .00000587  00000-0  12450-3 0  6289
+2 25791  24.9811 216.2175 0010798 214.1027 145.8787 14.40980196164156
+FUSE 1
+1 25791U 99035A   02216.77424262 +.00000608 +00000-0 +13094-3 0 06446
+2 25791 024.9810 220.4589 0010860 206.6184 153.3766 14.40979799164058
+FUSE 1
+1 25791U 99035A   02216.22018763  .00000623  00000-0  13547-3 0  6272
+2 25791  24.9812 223.8548 0011013 200.8472 159.1590 14.40979503163971
+FUSE 1
+1 25791U 99035A   02215.18133380  .00000638  00000-0  14024-3 0  6265
+2 25791  24.9811 230.2141 0011063 190.3957 169.6323 14.40978710163820
+FUSE 1
+1 25791U 99035A   02213.72693828  .00000645  00000-0  14244-3 0  6252
+2 25791  24.9811 239.1154 0011038 174.9987 185.0630 14.40977412163613
+FUSE 1
+1 25791U 99035A   02212.54957017  .00000624  00000-0  13599-3 0  6242
+2 25791  24.9812 246.3230 0011021 162.5693 197.5196 14.40976134163444
+FUSE 1
+1 25791U 99035A   02211.71848578 +.00000610 +00000-0 +13168-3 0 06428
+2 25791 024.9811 251.4099 0011007 153.9347 206.1718 14.40975246163324
+FUSE 1
+1 25791U 99035A   02211.23368603  .00000608  00000-0  13095-3 0  6236
+2 25791  24.9811 254.3777 0010998 148.9909 211.1249 14.40974805163252
+FUSE 1
+1 25791U 99035A   02210.74888612 +.00000597 +00000-0 +12772-3 0 06506
+2 25791 024.9812 257.3445 0011002 143.8708 216.2543 14.40974298163187
+FUSE 1
+1 25791U 99035A   02209.98705743 +.00000587 +00000-0 +12459-3 0 06234
+2 25791 024.9812 262.0081 0011027 135.8366 224.3023 14.40973550163075
+FUSE 1
+1 25791U 99035A   02209.84854304  .00000587  00000-0  12459-3 0  6226
+2 25791  24.9812 262.8557 0011027 134.3832 225.7585 14.40973436163052
+FUSE 1
+1 25791U 99035A   02208.87894183 +.00000550 +00000-0 +11335-3 0 06274
+2 25791 024.9814 268.7902 0011057 124.1443 236.0120 14.40972331162918
+FUSE 1
+1 25791U 99035A   02208.53265521  .00000545  00000-0  11191-3 0  6213
+2 25791  24.9816 270.9107 0011057 120.4890 239.6710 14.40972045162867
+FUSE 1
+1 25791U 99035A   02207.21676421  .00000548  00000-0  11278-3 0  6200
+2 25791  24.9817 278.9666 0011052 107.3653 252.8065 14.40971121162675
+FUSE 1
+1 25791U 99035A   02206.87047673 +.00000547 +00000-0 +11238-3 0 06588
+2 25791 024.9817 281.0857 0011055 103.7292 256.4448 14.40970853162625
+FUSE 1
+1 25791U 99035A   02205.97012911 +.00000514 +00000-0 +10239-3 0 06208
+2 25791 024.9822 286.5981 0010989 094.6865 265.4898 14.40969946162493
+FUSE 1
+1 25791U 99035A   02205.83161386  .00000516  00000-0  10301-3 0  6194
+2 25791  24.9822 287.4462 0010983  93.2503 266.9261 14.40969873162472
+FUSE 1
+1 25791U 99035A   02204.86200730 +.00000468 +00000-0 +88363-4 0 06306
+2 25791 024.9826 293.3810 0010949 083.1743 277.0007 14.40968846162330
+FUSE 1
+1 25791U 99035A   02204.58497626  .00000484  00000-0  93112-4 0  6189
+2 25791  24.9826 295.0773 0010951  80.5497 279.6249 14.40968840162292
+FUSE 1
+1 25791U 99035A   02203.89239905 +.00000449 +00000-0 +82482-4 0 06488
+2 25791 024.9828 299.3172 0010890 073.2055 286.9638 14.40968123162191
+FUSE 1
+1 25791U 99035A   02203.13056333  .00000422  00000-0  74306-4 0  6170
+2 25791  24.9830 303.9805 0010839  65.4604 294.7027 14.40967491162089
+FUSE 1
+1 25791U 99035A   02201.88392126  .00000430  00000-0  76591-4 0  6169
+2 25791  24.9831 311.6129 0010788  52.8603 307.2893 14.40966950161907
+FUSE 1
+1 25791U 99035A   02200.84505139  .00000426  00000-0  75310-4 0  6156
+2 25791  24.9831 317.9723 0010726  42.0624 318.0702 14.40966400161754
+FUSE 1
+1 25791U 99035A   02199.94469674 +.00000428 +00000-0 +76045-4 0 06177
+2 25791 024.9831 323.4842 0010660 032.3527 327.7634 14.40965983161621
+FUSE 1
+1 25791U 99035A   02199.80618047  .00000429  00000-0  76448-4 0  6147
+2 25791  24.9831 324.3321 0010640  30.8653 329.2479 14.40965931161609
+FUSE 1
+1 25791U 99035A   02198.90582495 +.00000439 +00000-0 +79526-4 0 06303
+2 25791 024.9831 329.8436 0010600 021.3948 338.6994 14.40965565161478
+FUSE 1
+1 25791U 99035A   02198.55953443  .00000442  00000-0  80466-4 0  6139
+2 25791  24.9831 331.9633 0010574  17.8270 342.2607 14.40965414161429
+FUSE 1
+1 25791U 99035A   02197.93621100 +.00000444 +00000-0 +80937-4 0 06362
+2 25791 024.9831 335.7781 0010561 011.3039 348.7699 14.40965095161330
+FUSE 1
+1 25791U 99035A   02197.24362949  .00000444  00000-0  80988-4 0  6129
+2 25791  24.9831 340.0166 0010550   3.9600 356.0998 14.40964729161231
+FUSE 1
+1 25791U 99035A   02196.20475640  .00000449  00000-0  82478-4 0  6117
+2 25791  24.9832 346.3749 0010499 353.1602   6.8760 14.40964234161083
+FUSE 1
+1 25791U 99035A   02195.92772353 +.00000455 +00000-0 +84353-4 0 06533
+2 25791 024.9833 348.0711 0010484 350.1147 009.9154 14.40964150161041
+FUSE 1
+1 25791U 99035A   02194.95810905 +.00000446 +00000-0 +81482-4 0 06126
+2 25791 024.9834 354.0072 0010473 339.7777 020.2317 14.40963538160909
+FUSE 1
+1 25791U 99035A   02194.88885078  .00000448  00000-0  82042-4 0  6104
+2 25791  24.9834 354.4313 0010464 339.0255  20.9823 14.40963525160898
+FUSE 1
+1 25791U 99035A   02193.84997767  .00000458  00000-0  85132-4 0  6090
+2 25791  24.9833   0.7908 0010468 328.1332  31.8541 14.40963009160746
+FUSE 1
+1 25791U 99035A   02192.94962101 +.00000463 +00000-0 +86594-4 0 06116
+2 25791 024.9833 006.3022 0010480 318.4949 041.4767 14.40962539160615
+FUSE 1
+1 25791U 99035A   02192.81110453  .00000461  00000-0  86250-4 0  6080
+2 25791  24.9833   7.1500 0010464 316.9667  43.0024 14.40962462160593
+FUSE 1
+1 25791U 99035A   02191.91074766 +.00000486 +00000-0 +93771-4 0 06270
+2 25791 024.9834 012.6624 0010451 307.1503 052.8049 14.40962172160468
+FUSE 1
+1 25791U 99035A   02191.56445709  .00000480  00000-0  91884-4 0  6075
+2 25791  24.9832  14.7827 0010464 303.4798  56.4711 14.40961871160419
+FUSE 1
+1 25791U 99035A   02190.94113347 +.00000477 +00000-0 +90930-4 0 06343
+2 25791 024.9834 018.5979 0010445 296.7402 063.2037 14.40961502160324
+FUSE 1
+1 25791U 99035A   02190.17929374  .00000481  00000-0  92165-4 0  6069
+2 25791  24.9832  23.2616 0010481 288.6533  71.2835 14.40961043160211
+FUSE 1
+1 25791U 99035A   02189.14042204  .00000483  00000-0  92846-4 0  6059
+2 25791  24.9831  29.6230 0010511 277.8585  82.0723 14.40960393160069
+FUSE 1
+1 25791U 99035A   02187.89377604  .00000505  00000-0  99522-4 0  6046
+2 25791  24.9830  37.2551 0010534 264.3308  95.5998 14.40959812159883
+FUSE 1
+1 25791U 99035A   02186.43935654  .00000501  00000-0  98297-4 0  6033
+2 25791  24.9829  46.1591 0010579 249.0358 110.8998 14.40958795159675
+FUSE 1
+1 25791U 99035A   02185.19271205  .00000504  00000-0  99265-4 0  6028
+2 25791  24.9830  53.7902 0010629 236.0216 123.9281 14.40958001159492
+FUSE 1
+1 25791U 99035A   02184.15384184  .00000513  00000-0  10203-3 0  6017
+2 25791  24.9831  60.1514 0010674 224.8693 135.0951 14.40957412159345
+FUSE 1
+1 25791U 99035A   02182.97645554 +.00000516 +00000-0 +10283-3 0 06062
+2 25791 024.9830 067.3585 0010725 212.3891 147.5958 14.40956658159177
+FUSE 1
+1 25791U 99035A   02182.90719767  .00000519  00000-0  10371-3 0  6008
+2 25791  24.9829  67.7832 0010724 211.7115 148.2747 14.40956613159169
+FUSE 1
+1 25791U 99035A   02181.93758516 +.00000548 +00000-0 +11261-3 0 06062
+2 25791 024.9828 073.7191 0010818 201.1978 158.8084 14.40956221159028
+FUSE 1
+1 25791U 99035A   02181.86832717  .00000553  00000-0  11428-3 0  5992
+2 25791  24.9828  74.1435 0010825 200.5146 159.4931 14.40956212159019
+FUSE 1
+1 25791U 99035A   02180.96797324 +.00000532 +00000-0 +10787-3 0 06159
+2 25791 024.9829 079.6553 0010847 191.2420 168.7845 14.40955372158883
+FUSE 1
+1 25791U 99035A   02180.55242493  .00000529  00000-0  10681-3 0  5985
+2 25791  24.9829  82.1984 0010852 186.9486 173.0868 14.40955042158821
+FUSE 1
+1 25791U 99035A   02179.92910226 +.00000542 +00000-0 +11095-3 0 06155
+2 25791 024.9830 086.0152 0010926 180.7342 179.3149 14.40954738158730
+FUSE 1
+1 25791U 99035A   02179.23652162  .00000551  00000-0  11359-3 0  5973
+2 25791  24.9830  90.2545 0010946 173.5199 186.5457 14.40954304158635
+FUSE 1
+1 25791U 99035A   02177.98987603 +.00000542 +00000-0 +11095-3 0 06006
+2 25791 024.9832 097.8882 0011031 160.8337 199.2588 14.40953321158457
+FUSE 1
+1 25791U 99035A   02177.85135981  .00000538  00000-0  10963-3 0  5968
+2 25791  24.9832  98.7360 0011031 159.3474 200.7478 14.40953176158435
+FUSE 1
+1 25791U 99035A   02176.95100402 +.00000504 +00000-0 +99300-4 0 06022
+2 25791 024.9833 104.2472 0011004 150.1851 209.9284 14.40952226158308
+FUSE 1
+1 25791U 99035A   02176.46619641  .00000500  00000-0  98147-4 0  5953
+2 25791  24.9832 107.2138 0011008 145.0625 215.0606 14.40951875158232
+FUSE 1
+1 25791U 99035A   02175.21954740  .00000495  00000-0  96657-4 0  5943
+2 25791  24.9834 114.8444 0011052 132.0019 228.1431 14.40951047158052
+FUSE 1
+1 25791U 99035A   02173.90363925  .00000444  00000-0  81013-4 0  5939
+2 25791  24.9837 122.9038 0011028 119.1777 240.9836 14.40949793157868
+FUSE 1
+1 25791U 99035A   02172.51846935  .00000425  00000-0  75104-4 0  5924
+2 25791  24.9839 131.3835 0010980 104.9187 255.2530 14.40948920157661
+FUSE 1
+1 25791U 99035A   02171.41033186  .00000417  00000-0  72553-4 0  5913
+2 25791  24.9844 138.1686 0010902  93.6662 266.5092 14.40948370157502
+FUSE 1
+1 25791U 99035A   02170.50996877 +.00000436 +00000-0 +78639-4 0 05975
+2 25791 024.9843 143.6798 0010904 084.4115 275.7637 14.40948095157375
+FUSE 1
+1 25791U 99035A   02170.23293415  .00000423  00000-0  74576-4 0  5908
+2 25791  24.9845 145.3761 0010901  81.5059 278.6684 14.40947844157339
+FUSE 1
+1 25791U 99035A   02169.19405227  .00000425  00000-0  75062-4 0  5898
+2 25791  24.9846 151.7361 0010811  70.7002 289.4672 14.40947374157183
+FUSE 1
+1 25791U 99035A   02167.60109739  .00000492  00000-0  95589-4 0  5880
+2 25791  24.9842 161.4859 0010787  54.1241 306.0266 14.40947018156956
+FUSE 1
+1 25791U 99035A   02166.56221265  .00000534  00000-0  10864-3 0  5871
+2 25791  24.9839 167.8442 0010791  43.1206 317.0146 14.40946662156801
+FUSE 1
+1 25791U 99035A   02165.24629112  .00000568  00000-0  11909-3 0  5865
+2 25791  24.9843 175.9013 0010722  29.2251 330.8852 14.40946031156615
+FUSE 1
+1 25791U 99035A   02163.86110918  .00000595  00000-0  12719-3 0  5859
+2 25791  24.9845 184.3792 0010702  14.8284 345.2538 14.40945180156412
+FUSE 1
+1 25791U 99035A   02162.54518530  .00000658  00000-0  14664-3 0  5845
+2 25791  24.9846 192.4369 0010588   1.1350 358.9185 14.40944578156226
+FUSE 1
+1 25791U 99035A   02161.85259359 +.00000674 +00000-0 +15131-3 0 06107
+2 25791 024.9846 196.6771 0010590 353.7741 006.2633 14.40944011156124
+FUSE 1
+1 25791U 99035A   02161.22926069  .00000700  00000-0  15929-3 0  5831
+2 25791  24.9847 200.4935 0010585 347.0023  13.0212 14.40943608156034
+FUSE 1
+1 25791U 99035A   02159.84407613  .00000743  00000-0  17262-3 0  5823
+2 25791  24.9846 208.9724 0010588 332.2220  27.7726 14.40942460155834
+FUSE 1
+1 25791U 99035A   02158.80518770  .00000793  00000-0  18784-3 0  5819
+2 25791  24.9846 215.3341 0010581 321.3048  38.6704 14.40941632155681
+FUSE 1
+1 25791U 99035A   02157.97407665 +.00000825 +00000-0 +19757-3 0 05879
+2 25791 024.9847 220.4222 0010562 312.3796 047.5815 14.40940838155562
+FUSE 1
+1 25791U 99035A   02157.55852103  .00000870  00000-0  21141-3 0  5807
+2 25791  24.9847 222.9680 0010439 307.4635  52.4923 14.40940695155507
+FUSE 1
+1 25791U 99035A   02156.86592860 +.00000855 +00000-0 +20693-3 0 06042
+2 25791 024.9846 227.2073 0010554 299.6921 060.2540 14.40939609155402
+FUSE 1
+1 25791U 99035A   02156.24259499  .00000899  00000-0  22019-3 0  5795
+2 25791  24.9846 231.0244 0010551 292.5198  67.4193 14.40939088155314
+FUSE 1
+1 25791U 99035A   02155.06518757  .00000887  00000-0  21661-3 0  5787
+2 25791  24.9851 238.2318 0010502 278.6019  81.3297 14.40937436155140
+FUSE 1
+1 25791U 99035A   02154.92666911 +.00000889 +00000-0 +21739-3 0 06067
+2 25791 024.9851 239.0795 0010509 277.1250 082.8066 14.40937258155126
+FUSE 1
+1 25791U 99035A   02153.88777948  .00000883  00000-0  21546-3 0  5771
+2 25791  24.9856 245.4403 0010777 265.3681  94.5596 14.40935853154971
+FUSE 1
+1 25791U 99035A   02152.57185272  .00000902  00000-0  22117-3 0  5765
+2 25791  24.9868 253.4989 0011060 249.3519 110.5805 14.40934379154783
+FUSE 1
+1 25791U 99035A   02151.53296309  .00000970  00000-0  24192-3 0  5753
+2 25791  24.9869 259.8581 0011180 238.2453 121.6966 14.40933320154639
+FUSE 1
+1 25791U 99035A   02150.70185103 +.00001051 +00000-0 +26686-3 0 05975
+2 25791 024.9867 264.9433 0011243 229.4877 130.4651 14.40932501154518
+FUSE 1
+1 25791U 99035A   02149.93999876  .00001091  00000-0  27908-3 0  5745
+2 25791  24.9867 269.6053 0011249 221.4930 138.4719 14.40931407154401
+FUSE 1
+1 25791U 99035A   02148.90111038 +.00001229 +00000-0 +32134-3 0 05769
+2 25791 024.9863 275.9625 0011269 210.6845 149.3088 14.40930136154250
+FUSE 1
+1 25791U 99035A   02148.83185155  .00000938  00000-0  23221-3 0  5732
+2 25791  24.9851 276.3822 0010775 212.4019 147.5850 14.40927933154242
+FUSE 1
+1 25791U 99035A   02147.93147934 +.00000813 +00000-0 +19395-3 0 05958
+2 25791 024.9857 281.8960 0010898 202.6278 157.3749 14.40926137154113
+FUSE 1
+1 25791U 99035A   02147.58518187  .00001001  00000-0  25172-3 0  5726
+2 25791  24.9861 284.0183 0011012 197.6860 162.3263 14.40926704154060
+FUSE 1
+1 25791U 99035A   02146.54628978  .00000913  00000-0  22451-3 0  5718
+2 25791  24.9845 290.3753 0010754 189.6041 170.4268 14.40924183153916
+FUSE 1
+1 25791U 99035A   02145.16109886  .00000752  00000-0  17520-3 0  5708
+2 25791  24.9854 298.8585 0011057 175.5591 184.5015 14.40921808153718
+FUSE 1
+1 25791U 99035A   02144.12220258  .00000806  00000-0  19188-3 0  5690
+2 25791  24.9858 305.2220 0011313 166.0837 193.9972 14.40920971153563
+FUSE 1
+1 25791U 99035A   02143.91442346 +.00000815 +00000-0 +19451-3 0 06009
+2 25791 024.9859 306.4952 0011363 164.3048 195.7813 14.40920803153534
+FUSE 1
+1 25791U 99035A   02142.94478746 +.00000943 +00000-0 +23384-3 0 05690
+2 25791 024.9854 312.4312 0011411 153.9631 206.1530 14.40920479153398
+FUSE 1
+1 25791U 99035A   02142.87552765  .00000884  00000-0  21574-3 0  5688
+2 25791  24.9848 312.8512 0010954 151.9799 208.1299 14.40919629153389
+FUSE 1
+1 25791U 99035A   02141.90588955 +.00000926 +00000-0 +22857-3 0 05874
+2 25791 024.9841 318.7826 0010700 140.9341 219.1940 14.40918429153242
+FUSE 1
+1 25791U 99035A   02141.55958991  .00000963  00000-0  23993-3 0  5677
+2 25791  24.9839 320.9048 0010714 137.4073 222.7267 14.40918220153193
+FUSE 1
+1 25791U 99035A   02140.17438775  .00001057  00000-0  26889-3 0  5668
+2 25791  24.9835 329.3818 0010822 124.7440 235.4086 14.40916869152998
+FUSE 1
+1 25791U 99035A   02139.96660755 +.00001083 +00000-0 +27692-3 0 05884
+2 25791 024.9836 330.6540 0010888 122.4431 237.7130 14.40916754152968
+FUSE 1
+1 25791U 99035A   02139.06622508  .00001163  00000-0  30126-3 0  5659
+2 25791  24.9830 336.1650 0010863 113.3928 246.7719 14.40915711152839
+FUSE 1
+1 25791U 99035A   02137.88879990  .00001296  00000-0  34198-3 0  5645
+2 25791  24.9826 343.3712 0010907 101.0863 259.0871 14.40914401152666
+FUSE 1
+1 25791U 99035A   02136.91915471 +.00001350 +00000-0 +35875-3 0 05816
+2 25791 024.9827 349.3060 0010932 090.9446 269.2314 14.40912681152528
+FUSE 1
+1 25791U 99035A   02136.22654987  .00001376  00000-0  36654-3 0  5636
+2 25791  24.9826 353.5443 0010936  83.6416 276.5336 14.40911244152427
+FUSE 1
+1 25791U 99035A   02135.94950762 +.00001397 +00000-0 +37325-3 0 05723
+2 25791 024.9825 355.2400 0010966 080.7402 279.4344 14.40910769152381
+FUSE 1
+1 25791U 99035A   02135.18764091  .00001413  00000-0  37797-3 0  5628
+2 25791  24.9824 359.9024 0010965  72.6730 287.4977 14.40909002152273
+FUSE 1
+1 25791U 99035A   02134.91059834 +.00001415 +00000-0 +37857-3 0 05922
+2 25791 024.9825 001.5980 0010968 069.7349 290.4345 14.40908337152230
+FUSE 1
+1 25791U 99035A   02133.94094738 +.00001415 +00000-0 +37859-3 0 05636
+2 25791 024.9824 007.5352 0010877 059.9778 300.1809 14.40905944152093
+FUSE 1
+1 25791U 99035A   02133.87168652  .00001412  00000-0  37775-3 0  5617
+2 25791  24.9825   7.9592 0010873  59.2261 300.9315 14.40905750152084
+FUSE 1
+1 25791U 99035A   02132.48646600  .00001369  00000-0  36456-3 0  5602
+2 25791  24.9823  16.4325 0010684  45.9733 314.1653 14.40902098151888
+FUSE 1
+1 25791U 99035A   02131.30902586  .00001353  00000-0  35975-3 0  5596
+2 25791  24.9822  23.6391 0010610  33.6244 326.4935 14.40899142151716
+FUSE 1
+1 25791U 99035A   02130.20084454  .00001308  00000-0  34583-3 0  5582
+2 25791  24.9820  30.4208 0010580  22.0031 338.0932 14.40896173151558
+FUSE 1
+1 25791U 99035A   02129.16192230  .00001226  00000-0  32085-3 0  5570
+2 25791  24.9821  36.7788 0010481  11.1643 348.9097 14.40893274151404
+FUSE 1
+1 25791U 99035A   02128.95413775 +.00001211 +00000-0 +31627-3 0 05931
+2 25791 024.9821 038.0520 0010468 008.7737 351.2951 14.40892692151379
+FUSE 1
+1 25791U 99035A   02127.98447523 +.00001111 +00000-0 +28565-3 0 05601
+2 25791 024.9824 043.9896 0010296 357.7755 002.2712 14.40889924151236
+FUSE 1
+1 25791U 99035A   02127.91521357  .00001094  00000-0  28026-3 0  5569
+2 25791  24.9824  44.4136 0010284 357.0692   2.9753 14.40889652151228
+FUSE 1
+1 25791U 99035A   02126.94554859 +.00001060 +00000-0 +27008-3 0 05601
+2 25791 024.9824 050.3495 0010262 346.7330 013.2907 14.40887620151085
+FUSE 1
+1 25791U 99035A   02126.87628689  .00001055  00000-0  26832-3 0  5558
+2 25791  24.9824  50.7736 0010263 346.0680  13.9545 14.40887452151076
+FUSE 1
+1 25791U 99035A   02125.97588259 +.00001014 +00000-0 +25588-3 0 05671
+2 25791 024.9823 056.2855 0010259 336.2920 023.7116 14.40885529150942
+FUSE 1
+1 25791U 99035A   02125.42178682  .00001006  00000-0  25328-3 0  5545
+2 25791  24.9822  59.6761 0010255 330.4733  29.5196 14.40884531150863
+FUSE 1
+1 25791U 99035A   02124.38285672  .00001011  00000-0  25509-3 0  5533
+2 25791  24.9820  66.0352 0010273 319.4923  40.4821 14.40882801150716
+FUSE 1
+1 25791U 99035A   02123.20540156  .00000953  00000-0  23705-3 0  5523
+2 25791  24.9824  73.2432 0010279 305.7597  54.1955 14.40880460150540
+FUSE 1
+1 25791U 99035A   02121.95868326 +.00001002 +00000-0 +25225-3 0 05542
+2 25791 024.9819 080.8762 0010331 292.1373 067.8041 14.40878747150366
+FUSE 1
+1 25791U 99035A   02121.54311021  .00001003  00000-0  25248-3 0  5515
+2 25791  24.9819  83.4189 0010337 287.6956  72.2421 14.40878063150307
+FUSE 1
+1 25791U 99035A   02120.98901322 +.00001023 +00000-0 +25857-3 0 05632
+2 25791 024.9818 086.8098 0010306 282.1201 077.8157 14.40877264150221
+FUSE 1
+1 25791U 99035A   02120.22712923  .00001015  00000-0  25630-3 0  5502
+2 25791  24.9819  91.4718 0010318 274.0246  85.9082 14.40875930150118
+FUSE 1
+1 25791U 99035A   02119.95008070 +.00001028 +00000-0 +26024-3 0 05648
+2 25791 024.9817 093.1681 0010309 271.2034 088.7294 14.40875508150070
+FUSE 1
+1 25791U 99035A   02119.18819734  .00000984  00000-0  24661-3 0  5498
+2 25791  24.9821  97.8348 0010364 262.8749  97.0580 14.40873938149968
+FUSE 1
+1 25791U 99035A   02117.59516608  .00000965  00000-0  24087-3 0  5485
+2 25791  24.9822 107.5863 0010462 245.7519 114.1894 14.40871219149738
+FUSE 1
+1 25791U 99035A   02116.55623223  .00001014  00000-0  25598-3 0  5475
+2 25791  24.9819 113.9469 0010496 234.8360 125.1166 14.40869721149589
+FUSE 1
+1 25791U 99035A   02115.24024880  .00000904  00000-0  22221-3 0  5460
+2 25791  24.9822 122.0047 0010673 220.6675 139.3037 14.40867070149393
+FUSE 1
+1 25791U 99035A   02113.64721393  .00000997  00000-0  25068-3 0  5458
+2 25791  24.9820 131.7593 0010921 204.4419 155.5575 14.40864885149169
+FUSE 1
+1 25791U 99035A   02112.60827693  .00001229  00000-0  32167-3 0  5449
+2 25791  24.9818 138.1223 0011109 194.3356 165.6844 14.40863758149016
+FUSE 1
+1 25791U 99035A   02111.70786489 +.00001579 +00000-0 +42935-3 0 05459
+2 25791 024.9818 143.6347 0011005 184.3083 175.7332 14.40862715148885
+FUSE 1
+1 25791U 99035A   02111.56934007  .00001615  00000-0  44009-3 0  5437
+2 25791  24.9819 144.4840 0011022 182.6205 177.4245 14.40862480148868
+FUSE 1
+1 25791U 99035A   02110.53040188  .00001831  00000-0  50650-3 0  5429
+2 25791  24.9817 150.8474 0011038 171.9009 188.1678 14.40859918148715
+FUSE 1
+1 25791U 99035A   02109.21441033  .00001839  00000-0  50903-3 0  5414
+2 25791  24.9818 158.9076 0011058 159.5103 200.5858 14.40855347148522
+FUSE 1
+1 25791U 99035A   02107.75988762  .00001806  00000-0  49905-3 0  5409
+2 25791  24.9818 167.8101 0011016 144.5815 215.5425 14.40850340148319
+FUSE 1
+1 25791U 99035A   02106.72093909  .00001824  00000-0  50445-3 0  5394
+2 25791  24.9819 174.1696 0011038 134.1147 226.0286 14.40847102148164
+FUSE 1
+1 25791U 99035A   02105.61272498  .00001733  00000-0  47679-3 0  5386
+2 25791  24.9822 180.9533 0010987 122.6889 237.4679 14.40842753148002
+FUSE 1
+1 25791U 99035A   02104.85082480 +.00001713 +00000-0 +47068-3 0 05437
+2 25791 024.9823 185.6152 0010986 114.8415 245.3238 14.40840218147898
+FUSE 1
+1 25791U 99035A   02104.57377071  .00001648  00000-0  45060-3 0  5379
+2 25791  24.9828 187.3119 0010910 112.4216 247.7465 14.40838832147858
+FUSE 1
+1 25791U 99035A   02102.91143625  .00001546  00000-0  41945-3 0  5365
+2 25791  24.9833 197.4876 0010832  95.2901 264.8851 14.40833179147610
+FUSE 1
+1 25791U 99035A   02101.94173617 +.00001486 +00000-0 +40101-3 0 05367
+2 25791 024.9836 203.4219 0010768 085.1671 275.0035 14.40830065147475
+FUSE 1
+1 25791U 99035A   02101.87247187  .00001527  00000-0  41368-3 0  5354
+2 25791  24.9836 203.8460 0010860  84.9976 275.1776 14.40830297147464
+FUSE 1
+1 25791U 99035A   02100.90276910 +.00001525 +00000-0 +41312-3 0 05406
+2 25791 024.9836 209.7805 0010820 074.8575 285.3127 14.40827651147329
+FUSE 1
+1 25791U 99035A   02100.55644706  .00001466  00000-0  39504-3 0  5346
+2 25791  24.9839 211.9005 0010785  71.2224 288.9455 14.40826227147276
+FUSE 1
+1 25791U 99035A   02099.72527026 +.00001468 +00000-0 +39557-3 0 05369
+2 25791 024.9839 216.9860 0010792 062.4507 297.7098 14.40824076147152
+FUSE 1
+1 25791U 99035A   02099.51747561  .00001466  00000-0  39497-3 0  5332
+2 25791  24.9839 218.2573 0010790  60.2600 299.8974 14.40823521147123
+FUSE 1
+1 25791U 99035A   02098.96335660 +.00001461 +00000-0 +39351-3 0 05517
+2 25791 024.9839 221.6473 0010791 054.4596 305.6917 14.40822053147043
+FUSE 1
+1 25791U 99035A   02097.99364657  .00001460  00000-0  39305-3 0  5324
+2 25791  24.9840 227.5821 0010785  44.3275 315.8094 14.40819548146900
+FUSE 1
+1 25791U 99035A   02096.88540384  .00001474  00000-0  39764-3 0  5317
+2 25791  24.9839 234.3643 0010788  32.8173 327.3012 14.40816799146743
+FUSE 1
+1 25791U 99035A   02095.63862735  .00001487  00000-0  40141-3 0  5300
+2 25791  24.9840 241.9943 0010816  19.8188 340.2741 14.40813643146563
+FUSE 1
+1 25791U 99035A   02094.59964440  .00001479  00000-0  39900-3 0  5290
+2 25791  24.9841 248.3515 0010781   8.9830 351.0866 14.40810859146412
+FUSE 1
+1 25791U 99035A   02093.56066001  .00001449  00000-0  39004-3 0  5283
+2 25791  24.9842 254.7110 0010724 357.7982   2.2481 14.40807913146263
+FUSE 1
+1 25791U 99035A   02092.17534371  .00001416  00000-0  37974-3 0  5276
+2 25791  24.9846 263.1915 0010706 342.3947  17.6181 14.40804146146065
+FUSE 1
+1 25791U 99035A   02091.06708795  .00001473  00000-0  39722-3 0  5261
+2 25791  24.9844 269.9758 0010605 329.8586  30.1311 14.40801748145901
+FUSE 1
+1 25791U 99035A   02090.92855601 +.00001487 +00000-0 +40157-3 0 05410
+2 25791 024.9846 270.8250 0010580 328.4929 031.4942 14.40801529145887
+FUSE 1
+1 25791U 99035A   02089.95883174 +.00001422 +00000-0 +38169-3 0 05269
+2 25791 024.9848 276.7588 0010511 318.2311 041.7395 14.40798658145743
+FUSE 1
+1 25791U 99035A   02089.88956560  .00001421  00000-0  38139-3 0  5256
+2 25791  24.9849 277.1827 0010506 317.5131  42.4562 14.40798492145730
+FUSE 1
+1 25791U 99035A   02088.15791078  .00001515  00000-0  41010-3 0  5241
+2 25791  24.9847 287.7803 0010520 298.7755  61.1699 14.40794544145482
+FUSE 1
+1 25791U 99035A   02087.95011214 +.00001499 +00000-0 +40534-3 0 05370
+2 25791 024.9848 289.0527 0010533 296.5864 063.3562 14.40793924145453
+FUSE 1
+1 25791U 99035A   02086.91111703  .00001749  00000-0  48209-3 0  5239
+2 25791  24.9841 295.4106 0010495 285.4100  74.5251 14.40792142145301
+FUSE 1
+1 25791U 99035A   02085.94138844 +.00001800 +00000-0 +49790-3 0 05230
+2 25791 024.9840 301.3448 0010492 275.1890 084.7423 14.40789187145168
+FUSE 1
+1 25791U 99035A   02085.87212209  .00001800  00000-0  49784-3 0  5222
+2 25791  24.9839 301.7687 0010498 274.4524  85.4786 14.40788939145150
+FUSE 1
+1 25791U 99035A   02084.20972717  .00001789  00000-0  49461-3 0  5212
+2 25791  24.9837 311.9410 0010520 257.1269 102.8063 14.40783400144918
+FUSE 1
+1 25791U 99035A   02083.17072852  .00001737  00000-0  47850-3 0  5200
+2 25791  24.9841 318.3008 0010603 246.6391 113.2992 14.40779739144768
+FUSE 1
+1 25791U 99035A   02081.92392783  .00001713  00000-0  47112-3 0  5192
+2 25791  24.9843 325.9324 0010711 233.7134 126.2384 14.40775609144588
+FUSE 1
+1 25791U 99035A   02080.88492453  .00001724  00000-0  47457-3 0  5184
+2 25791  24.9839 332.2902 0010758 223.1027 136.8641 14.40772451144430
+FUSE 1
+1 25791U 99035A   02079.98445671 +.00001660 +00000-0 +45511-3 0 05248
+2 25791 024.9866 337.8089 0010640 212.3177 147.6681 14.40769396144307
+FUSE 1
+1 25791U 99035A   02079.36105289  .00001660  00000-0  45502-3 0  5170
+2 25791  24.9864 341.6231 0010625 205.7116 154.2858 14.40767508144212
+FUSE 1
+1 25791U 99035A   02078.94545013 +.00001663 +00000-0 +45593-3 0 05203
+2 25791 024.9866 344.1681 0010662 201.5314 158.4745 14.40766326144157
+FUSE 1
+1 25791U 99035A   02078.18351059  .00001670  00000-0  45823-3 0  5163
+2 25791  24.9867 348.8302 0010676 193.5096 166.5127 14.40764131144045
+FUSE 1
+1 25791U 99035A   02076.93669799 +.00001712 +00000-0 +47120-3 0 05188
+2 25791 024.9862 356.4616 0010674 180.4765 179.5730 14.40760708143868
+FUSE 1
+1 25791U 99035A   02076.86743038  .00001720  00000-0  47342-3 0  5151
+2 25791  24.9861 356.8853 0010677 179.8078 180.2432 14.40760558143856
+FUSE 1
+1 25791U 99035A   02075.34354341  .00001769  00000-0  48858-3 0  5143
+2 25791  24.9857   6.2089 0010689 164.1831 195.9013 14.40756227143637
+FUSE 1
+1 25791U 99035A   02074.23525935  .00001789  00000-0  49489-3 0  5131
+2 25791  24.9864  12.9917 0010652 152.3559 207.7514 14.40752965143470
+FUSE 1
+1 25791U 99035A   02073.95818794 +.00001809 +00000-0 +50096-3 0 05215
+2 25791 024.9863 014.6889 0010627 149.3903 210.7224 14.40752237143437
+FUSE 1
+1 25791U 99035A   02073.19624002  .00001826  00000-0  50609-3 0  5127
+2 25791  24.9865  19.3522 0010642 141.9145 218.2115 14.40749948143323
+FUSE 1
+1 25791U 99035A   02072.91916797 +.00001841 +00000-0 +51076-3 0 05363
+2 25791 024.9864 021.0498 0010609 139.0566 221.0741 14.40749171143282
+FUSE 1
+1 25791U 99035A   02071.53380359  .00001868  00000-0  51930-3 0  5110
+2 25791  24.9870  29.5310 0010560 125.3666 234.7831 14.40744898143080
+FUSE 1
+1 25791U 99035A   02070.97965627 +.00001883 +00000-0 +52391-3 0 05124
+2 25791 024.9873 032.9250 0010530 120.0536 240.1014 14.40743233143007
+FUSE 1
+1 25791U 99035A   02070.49477683  .00001888  00000-0  52553-3 0  5104
+2 25791  24.9873  35.8909 0010528 115.0412 245.1193 14.40741625142931
+FUSE 1
+1 25791U 99035A   02069.24793971  .00001911  00000-0  53253-3 0  5099
+2 25791  24.9880  43.5225 0010388 102.6935 257.4711 14.40737632142757
+FUSE 1
+1 25791U 99035A   02068.20890526  .00001963  00000-0  54852-3 0  5080
+2 25791  24.9877  49.8807 0010265  92.5971 267.5712 14.40734504142601
+FUSE 1
+1 25791U 99035A   02066.40790516  .00002019  00000-0  56597-3 0  5078
+2 25791  24.9882  60.8982 0010140  74.0227 286.1405 14.40728545142340
+FUSE 1
+1 25791U 99035A   02065.23032416  .00001976  00000-0  55274-3 0  5067
+2 25791  24.9890  68.1059 0009928  61.2977 298.8527 14.40723876142175
+FUSE 1
+1 25791U 99035A   02063.63711823 +.00001966 +00000-0 +54965-3 0 05060
+2 25791 024.9889 077.8519 0009855 044.5446 315.5856 14.40718057141946
+FUSE 1
+1 25791U 99035A   02063.56784827  .00001964  00000-0  54915-3 0  5058
+2 25791  24.9890  78.2758 0009853  43.7948 316.3342 14.40717794141939
+FUSE 1
+1 25791U 99035A   02062.25171546  .00001967  00000-0  55002-3 0  5041
+2 25791  24.9898  86.3315 0009720  29.5760 330.5288 14.40713207141744
+FUSE 1
+1 25791U 99035A   02060.72776629  .00001974  00000-0  55231-3 0  5035
+2 25791  24.9904  95.6541 0009691  13.5587 346.5178 14.40707846141526
+FUSE 1
+1 25791U 99035A   02059.68870443  .00002061  00000-0  57921-3 0  5022
+2 25791  24.9908 102.0122 0009670   2.3178 357.7366 14.40705063141372
+FUSE 1
+1 25791U 99035A   02058.58037276 +.00001937 +00000-0 +54089-3 0 05190
+2 25791 024.9855 108.7808 0010347 348.8163 011.2115 14.40699031141216
+FUSE 1
+1 25791U 99035A   02058.23401784  .00001930  00000-0  53890-3 0  5014
+2 25791  24.9854 110.8994 0010344 345.1099  14.9105 14.40697723141169
+FUSE 1
+1 25791U 99035A   02057.95693361 +.00001927 +00000-0 +53794-3 0 05295
+2 25791 024.9853 112.5943 0010342 342.2401 017.7744 14.40696709141123
+FUSE 1
+1 25791U 99035A   02056.98714049 +.00001855 +00000-0 +51590-3 0 05016
+2 25791 024.9848 118.5439 0010389 330.7846 029.2084 14.40692621140986
+FUSE 1
+1 25791U 99035A   02056.84859804  .00001856  00000-0  51612-3 0  5005
+2 25791  24.9848 119.3917 0010396 329.3558  30.6348 14.40692155140967
+FUSE 1
+1 25791U 99035A   02055.87879896 +.00001862 +00000-0 +51795-3 0 05009
+2 25791 024.9847 125.3251 0010386 318.7436 041.2281 14.40688909140821
+FUSE 1
+1 25791U 99035A   02055.80952754  .00001868  00000-0  51976-3 0  4991
+2 25791  24.9847 125.7494 0010379 317.8153  42.1555 14.40688735140812
+FUSE 1
+1 25791U 99035A   02054.56264168  .00001830  00000-0  50822-3 0  4985
+2 25791  24.9853 133.3826 0010404 303.6462  56.3056 14.40684284140636
+FUSE 1
+1 25791U 99035A   02051.93031607 +.00001939 +00000-0 +54187-3 0 04981
+2 25791 024.9846 149.4920 0010329 274.4706 085.4618 14.40676334140255
+FUSE 1
+1 25791U 99035A   02051.86104389  .00001949  00000-0  54496-3 0  4963
+2 25791  24.9847 149.9167 0010322 273.5085  86.4222 14.40676201140241
+FUSE 1
+1 25791U 99035A   02050.89124093 +.00001793 +00000-0 +49705-3 0 04963
+2 25791 024.9879 155.8456 0009888 267.6928 092.2444 14.40671793140105
+FUSE 1
+1 25791U 99035A   02050.82196891  .00001795  00000-0  49764-3 0  4957
+2 25791  24.9879 156.2699 0009920 266.9073  93.0299 14.40671596140095
+FUSE 1
+1 25791U 99035A   02049.85216173 +.00001762 +00000-0 +48738-3 0 05049
+2 25791 024.9881 162.2061 0009833 257.1871 102.7547 14.40668129139954
+FUSE 1
+1 25791U 99035A   02049.57507351  .00001745  00000-0  48221-3 0  4945
+2 25791  24.9884 163.9032 0009829 254.4578 105.4840 14.40667101139913
+FUSE 1
+1 25791U 99035A   02048.18962711  .00001789  00000-0  49573-3 0  4934
+2 25791  24.9865 172.3765 0010089 240.4382 119.5119 14.40662912139715
+FUSE 1
+1 25791U 99035A   02047.15054256  .00001796  00000-0  49804-3 0  4920
+2 25791  24.9866 178.7417 0010129 229.8799 130.0812 14.40659621139562
+FUSE 1
+1 25791U 99035A   02045.83436523  .00001840  00000-0  51150-3 0  4910
+2 25791  24.9866 186.7961 0010148 215.4593 144.5240 14.40655733139373
+FUSE 1
+1 25791U 99035A   02044.79527556 +.00001873 +00000-0 +52184-3 0 04971
+2 25791 024.9863 193.1524 0010137 204.2065 155.7965 14.40652516139223
+FUSE 1
+1 25791U 99035A   02044.51818359  .00001925  00000-0  53776-3 0  4904
+2 25791  24.9860 194.8476 0010191 201.0271 158.9809 14.40652078139188
+FUSE 1
+1 25791U 99035A   02043.82545578 +.00001946 +00000-0 +54433-3 0 04990
+2 25791 024.9858 199.0847 0010200 193.6793 166.3433 14.40649817139082
+FUSE 1
+1 25791U 99035A   02042.92490752  .00001992  00000-0  55840-3 0  4896
+2 25791  24.9856 204.5925 0010259 184.1947 175.8472 14.40647025138951
+FUSE 1
+1 25791U 99035A   02041.95508458 +.00002053 +00000-0 +57741-3 0 04892
+2 25791 024.9856 210.5265 0010300 173.9651 186.0980 14.40644069138818
+FUSE 1
+1 25791U 99035A   02041.88581150  .00002073  00000-0  58348-3 0  4889
+2 25791  24.9861 210.9521 0010311 172.9624 187.1028 14.40644058138806
+FUSE 1
+1 25791U 99035A   02040.56961753  .00002206  00000-0  62450-3 0  4870
+2 25791  24.9858 219.0013 0010484 159.5673 200.5249 14.40640287138618
+FUSE 1
+1 25791U 99035A   02039.53051625  .00002255  00000-0  63954-3 0  4866
+2 25791  24.9858 225.3571 0010553 148.4366 211.6776 14.40636535138462
+FUSE 1
+1 25791U 99035A   02038.14504167  .00002351  00000-0  66921-3 0  4859
+2 25791  24.9858 233.8326 0010636 134.1993 225.9382 14.40631676138264
+FUSE 1
+1 25791U 99035A   02037.93721974 +.00002397 +00000-0 +68340-3 0 04938
+2 25791 024.9861 235.1054 0010736 131.7488 228.3923 14.40631273138232
+FUSE 1
+1 25791U 99035A   02036.89810875  .00002492  00000-0  71274-3 0  4847
+2 25791  24.9862 241.4623 0010829 122.1317 238.0237 14.40627644138089
+FUSE 1
+1 25791U 99035A   02035.92826968 +.00002548 +00000-0 +73019-3 0 04841
+2 25791 024.9863 247.3934 0010862 112.4256 247.7399 14.40623688137945
+FUSE 1
+1 25791U 99035A   02035.85899543  .00002552  00000-0  73123-3 0  4832
+2 25791  24.9863 247.8171 0010864 111.6988 248.4676 14.40623397137930
+FUSE 1
+1 25791U 99035A   02034.95842869 +.00002563 +00000-0 +73476-3 0 04924
+2 25791 024.9867 253.3259 0010904 102.2272 257.9457 14.40619245137805
+FUSE 1
+1 25791U 99035A   02034.26568177  .00002587  00000-0  74211-3 0  4828
+2 25791  24.9865 257.5631 0010840  95.4477 264.7266 14.40616180137700
+FUSE 1
+1 25791U 99035A   02033.22656041  .00002588  00000-0  74253-3 0  4817
+2 25791  24.9868 263.9212 0010966  84.6163 275.5595 14.40611176137558
+FUSE 1
+1 25791U 99035A   02032.18743380  .00002587  00000-0  74231-3 0  4808
+2 25791  24.9869 270.2766 0010977  73.7493 286.4230 14.40606150137408
+FUSE 1
+1 25791U 99035A   02030.94047759 +.00002528 +00000-0 +72437-3 0 04808
+2 25791 024.9874 277.9037 0011018 060.9223 299.2389 14.40599492137222
+FUSE 1
+1 25791U 99035A   02030.87120198  .00002526  00000-0  72362-3 0  4792
+2 25791  24.9874 278.3273 0011014  60.1902 299.9702 14.40599135137210
+FUSE 1
+1 25791U 99035A   02029.34713303  .00002495  00000-0  71439-3 0  4786
+2 25791  24.9875 287.6482 0010997  44.3035 315.8351 14.40591646136997
+FUSE 1
+1 25791U 99035A   02028.93147652 +.00002479 +00000-0 +70929-3 0 04862
+2 25791 024.9876 290.1899 0010994 039.9697 320.1619 14.40589498136932
+FUSE 1
+1 25791U 99035A   02028.16943701  .00002474  00000-0  70791-3 0  4778
+2 25791  24.9876 294.8500 0011006  32.1353 327.9821 14.40585928136823
+FUSE 1
+1 25791U 99035A   02027.96161389 +.00002407 +00000-0 +68742-3 0 05050
+2 25791 024.9874 296.1287 0010582 028.3810 331.7529 14.40584028136795
+FUSE 1
+1 25791U 99035A   02026.92246706  .00002341  00000-0  66697-3 0  4763
+2 25791  24.9799 302.5272 0010059  16.0811 344.0013 14.40577732136644
+FUSE 1
+1 25791U 99035A   02025.39837504  .00002257  00000-0  64121-3 0  4750
+2 25791  24.9803 311.8488 0010138 359.9596   0.0915 14.40570421136423
+FUSE 1
+1 25791U 99035A   02024.22066220  .00002170  00000-0  61445-3 0  4749
+2 25791  24.9808 319.0539 0010178 346.9833  13.0414 14.40564803136255
+FUSE 1
+1 25791U 99035A   02023.94355340 +.00002127 +00000-0 +60118-3 0 04963
+2 25791 024.9808 320.7502 0010231 343.9239 016.0947 14.40563257136213
+FUSE 1
+1 25791U 99035A   02022.97366856 +.00002070 +00000-0 +58368-3 0 04746
+2 25791 024.9809 326.6854 0010289 333.5703 026.4279 14.40558911136071
+FUSE 1
+1 25791U 99035A   02022.90439095  .00002070  00000-0  58368-3 0  4734
+2 25791  24.9809 327.1090 0010289 332.8439  27.1535 14.40558648136066
+FUSE 1
+1 25791U 99035A   02021.93450374 +.00001972 +00000-0 +55342-3 0 04738
+2 25791 024.9815 333.0432 0010420 322.2211 037.7568 14.40554066135924
+FUSE 1
+1 25791U 99035A   02021.51883604  .00001971  00000-0  55294-3 0  4722
+2 25791  24.9815 335.5850 0010420 317.8920  42.0786 14.40552554135866
+FUSE 1
+1 25791U 99035A   02020.34111020  .00001902  00000-0  53176-3 0  4718
+2 25791  24.9819 342.7879 0010496 305.4885  54.4643 14.40547753135692
+FUSE 1
+1 25791U 99035A   02019.23265919  .00001870  00000-0  52196-3 0  4705
+2 25791  24.9819 349.5667 0010511 294.0221  65.9186 14.40543639135538
+FUSE 1
+1 25791U 99035A   02018.19348466  .00001814  00000-0  50458-3 0  4693
+2 25791  24.9822 355.9219 0010534 283.3551  76.5783 14.40539652135382
+FUSE 1
+1 25791U 99035A   02016.60007962  .00001743  00000-0  48297-3 0  4688
+2 25791  24.9823   5.6676 0010591 266.8378  93.0919 14.40533828135154
+FUSE 1
+1 25791U 99035A   02015.76873696 +.00001678 +00000-0 +46283-3 0 04713
+2 25791 024.9823 010.7535 0010644 258.3411 101.5912 14.40530615135034
+FUSE 1
+1 25791U 99035A   02015.56090099  .00001670  00000-0  46017-3 0  4671
+2 25791  24.9825  12.0258 0010623 256.2726 103.6602 14.40529913135001
+FUSE 1
+1 25791U 99035A   02014.59099802 +.00001637 +00000-0 +45017-3 0 04801
+2 25791 024.9827 017.9579 0010652 246.2520 113.6872 14.40526735134868
+FUSE 1
+1 25791U 99035A   02014.24460394  .00001618  00000-0  44436-3 0  4668
+2 25791  24.9826  20.0778 0010710 242.8070 117.1346 14.40525522134813
+FUSE 1
+1 25791U 99035A   02012.65118694  .00001644  00000-0  45243-3 0  4659
+2 25791  24.9821  29.8239 0010731 226.1513 133.8108 14.40521061134586
+FUSE 1
+1 25791U 99035A   02011.54272015  .00001715  00000-0  47438-3 0  4640
+2 25791  24.9815  36.6044 0010793 214.5223 145.4584 14.40518322134422
+FUSE 1
+1 25791U 99035A   02010.43425174  .00001799  00000-0  50019-3 0  4633
+2 25791  24.9809  43.3849 0010812 202.7174 157.2854 14.40515528134267
+FUSE 1
+1 25791U 99035A   02009.25649964  .00002024  00000-0  56982-3 0  4622
+2 25791  24.9789  50.5894 0010900 190.2577 169.7698 14.40513435134090
+FUSE 1
+1 25791U 99035A   02007.73234977  .00002144  00000-0  60706-3 0  4618
+2 25791  24.9780  59.9106 0010959 174.4447 185.6181 14.40508676133874
+FUSE 1
+1 25791U 99035A   02006.55459467  .00002207  00000-0  62629-3 0  4605
+2 25791  24.9776  67.1133 0010962 161.9239 198.1657 14.40504470133701
+FUSE 1
+1 25791U 99035A   02005.93107615 +.00002223 +00000-0 +63140-3 0 04899
+2 25791 024.9772 070.9268 0010959 155.3799 204.7234 14.40502008133612
+FUSE 1
+1 25791U 99035A   02005.23827537  .00002302  00000-0  65586-3 0  4595
+2 25791  24.9762  75.1663 0011117 148.7865 211.3305 14.40499774133511
+FUSE 1
+1 25791U 99035A   02003.92195234  .00002277  00000-0  64830-3 0  4582
+2 25791  24.9761  83.2157 0011128 134.9320 225.2086 14.40493934133324
+FUSE 1
+1 25791U 99035A   02002.88274676  .00002253  00000-0  64083-3 0  4577
+2 25791  24.9763  89.5747 0011378 124.3397 235.8189 14.40489372133179
+FUSE 1
+1 25791U 99035A   02001.91281822 +.00002146 +00000-0 +60789-3 0 04694
+2 25791 024.9768 095.5070 0011442 114.6843 245.4859 14.40484505133039
+FUSE 1
+1 25791U 99035A   02001.56641338  .00002152  00000-0  60976-3 0  4568
+2 25791  24.9764  97.6258 0011412 111.4641 248.7084 14.40483142132989
+FUSE 1
+1 25791U 99035A   01365.87360347 +.00002106 +00000-0 +59549-3 0 04723
+2 25791 024.9765 101.8629 0011436 104.3050 255.8720 14.40480024132882
+FUSE 1
+1 25791U 99035A   01365.52719815  .00002060  00000-0  58137-3 0  4555
+2 25791  24.9767 103.9819 0011371 101.3489 258.8298 14.40478294132833
+FUSE 1
+1 25791U 99035A   01364.14157199  .00001894  00000-0  53009-3 0  4549
+2 25791  24.9776 112.4568 0011372  87.4678 272.7139 14.40471893132639
+FUSE 1
+1 25791U 99035A   01362.89450064  .00001855  00000-0  51805-3 0  4534
+2 25791  24.9779 120.0847 0011421  75.1248 285.0524 14.40467329132453
+FUSE 1
+1 25791U 99035A   01361.92455302 +.00001831 +00000-0 +51089-3 0 04748
+2 25791 024.9778 126.0189 0011472 065.3088 294.8603 14.40463838132318
+FUSE 1
+1 25791U 99035A   01361.57814148  .00001900  00000-0  53207-3 0  4523
+2 25791  24.9772 128.1378 0011523  62.3118 297.8556 14.40463267132263
+FUSE 1
+1 25791U 99035A   01360.95460072 +.00001920 +00000-0 +53816-3 0 04716
+2 25791 024.9770 131.9515 0011492 055.8592 304.2995 14.40461264132179
+FUSE 1
+1 25791U 99035A   01360.53891054  .00002081  00000-0  58819-3 0  4513
+2 25791  24.9761 134.4940 0011549  52.3362 307.8493 14.40461175132116
+FUSE 1
+1 25791U 99035A   01360.19249807  .00001557  00000-0  42615-3 0  4501
+2 25791  24.9814 136.6178 0011030  44.8843 315.2554 14.40455881132069
+FUSE 1
+1 25791U 99035A   01358.87612700  .00001498  00000-0  40783-3 0  4495
+2 25791  24.9820 144.6693 0010973  30.9588 329.1578 14.40451843131876
+FUSE 1
+1 25791U 99035A   01357.55975188  .00001377  00000-0  37042-3 0  4480
+2 25791  24.9830 152.7226 0010843  16.8175 343.2692 14.40447508131686
+FUSE 1
+1 25791U 99035A   01356.24337185  .00001363  00000-0  36634-3 0  4474
+2 25791  24.9832 160.7748 0010783   3.1653 356.8921 14.40444244131497
+FUSE 1
+1 25791U 99035A   01355.13483804  .00001399  00000-0  37745-3 0  4463
+2 25791  24.9832 167.5556 0010791 351.3648   8.6665 14.40441877131339
+FUSE 1
+1 25791U 99035A   01353.88773524  .00001488  00000-0  40499-3 0  4452
+2 25791  24.9831 175.1848 0010716 338.1167  21.8882 14.40439533131157
+FUSE 1
+1 25791U 99035A   01352.91776521 +.00001536 +00000-0 +41984-3 0 04527
+2 25791 024.9828 181.1169 0010739 327.7733 032.2118 14.40437323131012
+FUSE 1
+1 25791U 99035A   01352.57134719  .00001547  00000-0  42314-3 0  4447
+2 25791  24.9827 183.2356 0010758 324.0828  35.8958 14.40436465130968
+FUSE 1
+1 25791U 99035A   01351.39352449  .00001601  00000-0  43981-3 0  4439
+2 25791  24.9825 190.4393 0010750 311.5670  48.3911 14.40433644130790
+FUSE 1
+1 25791U 99035A   01350.90853821 +.00001630 +00000-0 +44889-3 0 04570
+2 25791 024.9828 193.4057 0010738 306.2371 053.7148 14.40432555130723
+FUSE 1
+1 25791U 99035A   01350.21570001  .00001672  00000-0  46189-3 0  4425
+2 25791  24.9825 197.6430 0010796 298.8753  61.0671 14.40430851130624
+FUSE 1
+1 25791U 99035A   01349.17644244  .00001720  00000-0  47692-3 0  4412
+2 25791  24.9826 203.9992 0010810 288.0247  71.9089 14.40428119130475
+FUSE 1
+1 25791U 99035A   01348.13718358  .00001739  00000-0  48271-3 0  4408
+2 25791  24.9830 210.3552 0010817 277.4348  82.4917 14.40425082130322
+FUSE 1
+1 25791U 99035A   01346.95935558 +.00001792 +00000-0 +49923-3 0 04414
+2 25791 024.9832 217.5601 0010828 264.7976 095.1293 14.40421820130151
+FUSE 1
+1 25791U 99035A   01346.89007156  .00001798  00000-0  50103-3 0  4396
+2 25791  24.9831 217.9838 0010822 264.0722  95.8552 14.40421637130142
+FUSE 1
+1 25791U 99035A   01345.92009452 +.00001804 +00000-0 +50297-3 0 04561
+2 25791 024.9834 223.9163 0010848 253.7226 106.2093 14.40418551130008
+FUSE 1
+1 25791U 99035A   01345.50438976  .00001829  00000-0  51074-3 0  4383
+2 25791  24.9833 226.4598 0010750 249.3404 110.5947 14.40417367129949
+FUSE 1
+1 25791U 99035A   01344.95011669 +.00001830 +00000-0 +51089-3 0 04543
+2 25791 024.9832 229.8499 0010756 243.5301 116.4117 14.40415519129865
+FUSE 1
+1 25791U 99035A   01344.18799003  .00001792  00000-0  49923-3 0  4375
+2 25791  24.9834 234.5123 0010818 235.5423 124.4062 14.40412721129757
+FUSE 1
+1 25791U 99035A   01343.14872416  .00001816  00000-0  50671-3 0  4368
+2 25791  24.9837 240.8680 0010867 223.8806 136.0838 14.40409582129602
+FUSE 1
+1 25791U 99035A   01341.90160523  .00001680  00000-0  46452-3 0  4359
+2 25791  24.9841 248.4975 0010871 211.3142 148.6721 14.40404442129428
+FUSE 1
+1 25791U 99035A   01340.93162024 +.00001621 +00000-0 +44627-3 0 04479
+2 25791 024.9843 254.4284 0010863 200.7838 159.2234 14.40401129129285
+FUSE 1
+1 25791U 99035A   01340.37734226  .00001562  00000-0  42806-3 0  4343
+2 25791  24.9846 257.8173 0010861 194.8366 165.1825 14.40399138129209
+FUSE 1
+1 25791U 99035A   01339.19949999  .00001406  00000-0  37978-3 0  4336
+2 25791  24.9853 265.0213 0010893 182.8071 177.2377 14.40394882129036
+FUSE 1
+1 25791U 99035A   01337.95236873  .00001264  00000-0  33601-3 0  4328
+2 25791  24.9859 272.6472 0011030 169.6495 190.4242 14.40391020128858
+FUSE 1
+1 25791U 99035A   01336.98237488 +.00001205 +00000-0 +31765-3 0 04350
+2 25791 024.9862 278.5777 0011067 159.5220 200.5735 14.40388553128711
+FUSE 1
+1 25791U 99035A   01336.91308955  .00001199  00000-0  31585-3 0  4319
+2 25791  24.9862 279.0014 0011071 158.8008 201.2962 14.40388365128702
+FUSE 1
+1 25791U 99035A   01335.52738000  .00001234  00000-0  32682-3 0  4301
+2 25791  24.9862 287.4731 0011104 144.1718 215.9555 14.40385754128501
+FUSE 1
+1 25791U 99035A   01334.21095244  .00001172  00000-0  30740-3 0  4294
+2 25791  24.9865 295.5226 0011153 130.8481 229.2994 14.40382693128319
+FUSE 1
+1 25791U 99035A   01333.17166461  .00001237  00000-0  32780-3 0  4285
+2 25791  24.9866 301.8786 0011197 121.1081 239.0526 14.40380912128164
+FUSE 1
+1 25791U 99035A   01331.78594478  .00001365  00000-0  36732-3 0  4275
+2 25791  24.9865 310.3519 0011209 106.8472 253.3273 14.40378324127969
+FUSE 1
+1 25791U 99035A   01330.67736645 +.00001415 +00000-0 +38296-3 0 04303
+2 25791 024.9868 317.1335 0011064 094.8355 265.3420 14.40375646127802
+FUSE 1
+1 25791U 99035A   01330.53879352  .00001567  00000-0  43006-3 0  4269
+2 25791  24.9872 317.9818 0011229  93.6128 266.5666 14.40376029127787
+FUSE 1
+1 25791U 99035A   01329.70735725 +.00001621 +00000-0 +44667-3 0 04457
+2 25791 024.9872 323.0652 0011232 084.6461 275.5327 14.40373883127661
+FUSE 1
+1 25791U 99035A   01329.22235264  .00001585  00000-0  43552-3 0  4256
+2 25791  24.9876 326.0324 0011267  80.2956 279.8829 14.40372335127590
+FUSE 1
+1 25791U 99035A   01327.83661937  .00001684  00000-0  46626-3 0  4245
+2 25791  24.9875 334.5052 0011431  65.9356 294.2344 14.40369004127398
+FUSE 1
+1 25791U 99035A   01326.52016884  .00001740  00000-0  48380-3 0  4236
+2 25791  24.9874 342.5535 0011585  52.2073 307.9485 14.40365366127202
+FUSE 1
+1 25791U 99035A   01325.41157411  .00001880  00000-0  52699-3 0  4227
+2 25791  24.9858 349.3412 0010869  41.2944 318.8383 14.40362474127049
+FUSE 1
+1 25791U 99035A   01324.92656363 +.00001916 +00000-0 +53838-3 0 04486
+2 25791 024.9856 352.3075 0010879 036.2259 323.8984 14.40361028126978
+FUSE 1
+1 25791U 99035A   01324.23369056  .00001967  00000-0  55417-3 0  4212
+2 25791  24.9855 356.5485 0010758  28.8088 331.3014 14.40358919126873
+FUSE 1
+1 25791U 99035A   01323.67939132 +.00001961 +00000-0 +55223-3 0 04407
+2 25791 024.9854 359.9372 0010776 023.0532 337.0460 14.40356881126790
+FUSE 1
+1 25791U 99035A   01322.70936542  .00001987  00000-0  56035-3 0  4198
+2 25791  24.9853   5.8688 0010772  12.9432 347.1352 14.40353526126658
+FUSE 1
+1 25791U 99035A   01321.67005005  .00001934  00000-0  54405-3 0  4184
+2 25791  24.9852  12.2257 0010726   1.9216 358.1340 14.40349375126508
+FUSE 1
+1 25791U 99035A   01320.56144300  .00001920  00000-0  53980-3 0  4174
+2 25791  24.9852  19.0058 0010683 350.0478   9.9818 14.40345343126346
+FUSE 1
+1 25791U 99035A   01319.52212142  .00001855  00000-0  51954-3 0  4163
+2 25791  24.9851  25.3612 0010623 338.9778  21.0292 14.40341342126192
+FUSE 1
+1 25791U 99035A   01318.82923904 +.00001856 +00000-0 +52003-3 0 04314
+2 25791 024.9847 029.5994 0010595 331.5863 028.4066 14.40338911126095
+FUSE 1
+1 25791U 99035A   01318.41350910  .00001890  00000-0  53052-3 0  4155
+2 25791  24.9848  32.1452 0010575 326.5664  33.4173 14.40337609126038
+FUSE 1
+1 25791U 99035A   01316.88916357  .00001729  00000-0  48061-3 0  4141
+2 25791  24.9843  41.4680 0010423 310.4505  49.5094 14.40331762125816
+FUSE 1
+1 25791U 99035A   01315.78054605  .00002207  00000-0  62878-3 0  4131
+2 25791  24.9835  48.2543 0010468 297.9246  62.0232 14.40329121125652
+FUSE 1
+1 25791U 99035A   01314.67192519  .00002266  00000-0  64699-3 0  4122
+2 25791  24.9832  55.0359 0010699 286.0302  73.9029 14.40324776125496
+FUSE 1
+1 25791U 99035A   01313.56330279  .00002157  00000-0  61343-3 0  4117
+2 25791  24.9831  61.8147 0010834 274.3350  85.5922 14.40319729125335
+FUSE 1
+1 25791U 99035A   01312.52396703  .00002119  00000-0  60174-3 0  4104
+2 25791  24.9829  68.1695 0010860 263.6572  96.2701 14.40315363125183
+FUSE 1
+1 25791U 99035A   01311.76178660 +.00001972 +00000-0 +55623-3 0 04344
+2 25791 024.9830 072.8283 0010752 255.8544 104.0769 14.40311922125079
+FUSE 1
+1 25791U 99035A   01310.99960448  .00001931  00000-0  54345-3 0  4098
+2 25791  24.9829  77.4894 0010755 247.9477 111.9889 14.40308978124960
+FUSE 1
+1 25791U 99035A   01309.96026276 +.00001965 +00000-0 +55405-3 0 04090
+2 25791 024.9829 083.8473 0010851 237.1463 122.8002 14.40305487124811
+FUSE 1
+1 25791U 99035A   01309.89097339  .00001972  00000-0  55619-3 0  4084
+2 25791  24.9829  84.2713 0010836 236.3815 123.5665 14.40305298124800
+FUSE 1
+1 25791U 99035A   01308.57447006  .00002179  00000-0  62044-3 0  4077
+2 25791  24.9822  92.3254 0010825 222.6458 137.3208 14.40301956124614
+FUSE 1
+1 25791U 99035A   01307.53512328  .00002351  00000-0  67374-3 0  4064
+2 25791  24.9814  98.6808 0010806 211.6998 148.2862 14.40299019124461
+FUSE 1
+1 25791U 99035A   01305.94145638 +.00002419 +00000-0 +69493-3 0 04062
+2 25791 024.9809 108.4263 0010833 195.2773 164.7418 14.40292404124234
+FUSE 1
+1 25791U 99035A   01305.87216636  .00002410  00000-0  69213-3 0  4051
+2 25791  24.9811 108.8509 0010847 194.5526 165.4669 14.40292047124225
+FUSE 1
+1 25791U 99035A   01304.90210496 +.00002483 +00000-0 +71481-3 0 04210
+2 25791 024.9807 114.7853 0010812 184.6053 175.4356 14.40288074124088
+FUSE 1
+1 25791U 99035A   01304.55565381  .00002564  00000-0  73991-3 0  4046
+2 25791  24.9803 116.9068 0010808 180.8733 179.1763 14.40287007124037
+FUSE 1
+1 25791U 99035A   01303.93204085 +.00002548 +00000-0 +73522-3 0 04141
+2 25791 024.9803 120.7190 0010799 174.3529 185.7099 14.40283909123947
+FUSE 1
+1 25791U 99035A   01303.03126575  .00002520  00000-0  72659-3 0  4037
+2 25791  24.9800 126.2295 0010755 164.6304 195.4536 14.40279287123810
+FUSE 1
+1 25791U 99035A   01301.78402958  .00002608  00000-0  75393-3 0  4023
+2 25791  24.9799 133.8566 0011062 153.3348 206.7722 14.40274032123633
+FUSE 1
+1 25791U 99035A   01299.91316810  .00002915  00000-0  84930-3 0  4012
+2 25791  24.9792 145.2965 0011048 134.0555 226.0864 14.40265988123368
+FUSE 1
+1 25791U 99035A   01298.18087804  .00003212  00000-0  94181-3 0  4007
+2 25791  24.9785 155.8916 0011040 115.9737 244.1911 14.40256974123117
+FUSE 1
+1 25791U 99035A   01297.97300262 +.00003234 +00000-0 +94848-3 0 04115
+2 25791 024.9787 157.1643 0011055 113.7776 246.3895 14.40255785123086
+FUSE 1
+1 25791U 99035A   01297.07220791  .00002684  00000-0  77791-3 0  3995
+2 25791  24.9787 162.6747 0010929 104.4008 255.7717 14.40248557122957
+FUSE 1
+1 25791U 99035A   01295.96352986 +.00002126 +00000-0 +60489-3 0 04025
+2 25791 024.9793 169.4508 0010628 092.8140 267.3584 14.40240931122798
+FUSE 1
+1 25791U 99035A   01295.89423827  .00002043  00000-0  57915-3 0  3982
+2 25791  24.9794 169.8749 0010644  91.9762 268.1968 14.40240146122780
+FUSE 1
+1 25791U 99035A   01294.92413976 +.00001853 +00000-0 +51998-3 0 04152
+2 25791 024.9798 175.8066 0010633 081.1941 278.9772 14.40235323122649
+FUSE 1
+1 25791U 99035A   01294.30050214  .00001823  00000-0  51089-3 0  3973
+2 25791  24.9799 179.6196 0010702  74.5779 285.5911 14.40232995122559
+FUSE 1
+1 25791U 99035A   01293.26110316  .00001744  00000-0  48616-3 0  3960
+2 25791  24.9799 185.9754 0010658  63.5604 296.6004 14.40228963122404
+FUSE 1
+1 25791U 99035A   01292.22169993  .00001707  00000-0  47471-3 0  3956
+2 25791  24.9799 192.3301 0010648  52.4658 307.6827 14.40225399122258
+FUSE 1
+1 25791U 99035A   01290.97441176 +.00001672 +00000-0 +46391-3 0 03975
+2 25791 024.9797 199.9582 0010599 039.1258 321.0014 14.40221249122071
+FUSE 1
+1 25791U 99035A   01290.90511781  .00001674  00000-0  46472-3 0  3947
+2 25791  24.9797 200.3818 0010601  38.3799 321.7462 14.40221053122061
+FUSE 1
+1 25791U 99035A   01289.44994252  .00001682  00000-0  46703-3 0  3937
+2 25791  24.9794 209.2810 0010620  22.7711 337.3265 14.40216632121857
+FUSE 1
+1 25791U 99035A   01288.96488349 +.00001640 +00000-0 +45420-3 0 04039
+2 25791 024.9794 212.2491 0010567 017.4224 342.6645 14.40214807121781
+FUSE 1
+1 25791U 99035A   01288.41052915  .00001638  00000-0  45357-3 0  3928
+2 25791  24.9794 215.6384 0010635  11.8186 348.2573 14.40213128121709
+FUSE 1
+1 25791U 99035A   01287.23252352  .00001574  00000-0  43355-3 0  3918
+2 25791  24.9794 222.8447 0010562 358.4459   1.6013 14.40209149121539
+FUSE 1
+1 25791U 99035A   01285.91592729  .00001390  00000-0  37646-3 0  3907
+2 25791  24.9795 230.9044 0010544 342.9330  17.0829 14.40203938121344
+FUSE 1
+1 25791U 99035A   01284.39144118  .00001300  00000-0  34838-3 0  3892
+2 25791  24.9795 240.2335 0010739 326.2228  33.7597 14.40199484121121
+FUSE 1
+1 25791U 99035A   01283.97567245 +.00001223 +00000-0 +32457-3 0 03894
+2 25791 024.9792 242.7798 0010828 320.9649 039.0093 14.40197815121064
+FUSE 1
+1 25791U 99035A   01283.35201646  .00001212  00000-0  32118-3 0  3887
+2 25791  24.9792 246.5916 0010829 314.6054  45.3576 14.40196427120972
+FUSE 1
+1 25791U 99035A   01282.31258856 +.00001218 +00000-0 +32310-3 0 03876
+2 25791 024.9792 252.9458 0010895 303.3438 056.6026 14.40194305120820
+FUSE 1
+1 25791U 99035A   01281.96611121 +.00001476 +00000-0 +40318-3 0 03877
+2 25791 024.9786 255.0631 0010800 300.4688 059.4739 14.40195140120775
+FUSE 1
+1 25791U 99035A   01281.27315947  .00001503  00000-0  41154-3 0  3867
+2 25791  24.9785 259.2981 0010800 293.1387  66.7977 14.40193471120671
+FUSE 1
+1 25791U 99035A   01280.23373114  .00001657  00000-0  45958-3 0  3857
+2 25791  24.9781 265.6543 0010925 282.3330  77.5954 14.40191161120521
+FUSE 1
+1 25791U 99035A   01279.19430003  .00002067  00000-0  58705-3 0  3840
+2 25791  24.9775 272.0130 0011160 270.5332  89.3900 14.40189300120378
+FUSE 1
+1 25791U 99035A   01277.60050645  .00002136  00000-0  60847-3 0  3830
+2 25791  24.9771 281.7563 0011259 253.7403 106.1876 14.40183292120141
+FUSE 1
+1 25791U 99035A   01276.69966572 +.00002038 +00000-0 +57797-3 0 03834
+2 25791 024.9770 287.2658 0011436 244.9457 114.9868 14.40179081120019
+FUSE 1
+1 25791U 99035A   01276.56107445  .00002038  00000-0  57794-3 0  3822
+2 25791  24.9770 288.1132 0011429 243.5500 116.3834 14.40178557119993
+FUSE 1
+1 25791U 99035A   01275.59093557 +.00002005 +00000-0 +56772-3 0 03900
+2 25791 024.9769 294.0432 0011469 233.5602 126.3872 14.40174627119858
+FUSE 1
+1 25791U 99035A   01275.24445817  .00001894  00000-0  53340-3 0  3815
+2 25791  24.9772 296.1661 0011642 231.1207 128.8260 14.40172274119806
+FUSE 1
+1 25791U 99035A   01274.20502117  .00001837  00000-0  51559-3 0  3803
+2 25791  24.9774 302.5234 0011565 220.9357 139.0293 14.40168098119654
+FUSE 1
+1 25791U 99035A   01272.54191528  .00001742  00000-0  48618-3 0  3793
+2 25791  24.9776 312.6900 0011479 204.0234 155.9738 14.40161743119414
+FUSE 1
+1 25791U 99035A   01271.22528748  .00001537  00000-0  42239-3 0  3789
+2 25791  24.9783 320.7396 0011360 191.6142 168.4111 14.40155760119224
+FUSE 1
+1 25791U 99035A   01270.18584050  .00001414  00000-0  38420-3 0  3771
+2 25791  24.9786 327.0943 0011214 181.1674 178.8811 14.40151731119076
+FUSE 1
+1 25791U 99035A   01268.59201413  .00001316  00000-0  35376-3 0  3769
+2 25791  24.9790 336.8359 0011124 164.6593 195.4255 14.40146964118849
+FUSE 1
+1 25791U 99035A   01267.55255878  .00001264  00000-0  33768-3 0  3752
+2 25791  24.9791 343.1899 0011084 153.8979 206.2088 14.40144164118691
+FUSE 1
+1 25791U 99035A   01266.85958720 +.00001236 +00000-0 +32881-3 0 04003
+2 25791 024.9791 347.4254 0011062 146.6571 213.4636 14.40142395118599
+FUSE 1
+1 25791U 99035A   01266.23591181  .00001222  00000-0  32443-3 0  3748
+2 25791  24.9790 351.2395 0010997 140.3022 219.8292 14.40140919118504
+FUSE 1
+1 25791U 99035A   01264.84996263  .00001228  00000-0  32643-3 0  3730
+2 25791  24.9790 359.7127 0010966 126.1194 234.0331 14.40138072118306
+FUSE 1
+1 25791U 99035A   01263.81049784  .00001251  00000-0  33374-3 0  3720
+2 25791  24.9787   6.0658 0010961 115.2876 244.8774 14.40136053118154
+FUSE 1
+1 25791U 99035A   01262.90962669 +.00001258 +00000-0 +33575-3 0 03770
+2 25791 024.9786 011.5725 0010944 105.8616 254.3099 14.40134145118029
+FUSE 1
+1 25791U 99035A   01262.56313782  .00001225  00000-0  32562-3 0  3711
+2 25791  24.9789  13.6910 0010897 102.2762 257.8965 14.40133131117978
+FUSE 1
+1 25791U 99035A   01261.73156198 +.00001238 +00000-0 +32981-3 0 03916
+2 25791 024.9787 018.7732 0010906 093.5350 266.6406 14.40131469117857
+FUSE 1
+1 25791U 99035A   01260.76138915  .00001191  00000-0  31510-3 0  3707
+2 25791  24.9789  24.7033 0010879  83.2256 276.9490 14.40129023117715
+FUSE 1
+1 25791U 99035A   01259.92981039 +.00001175 +00000-0 +31013-3 0 03874
+2 25791 024.9786 029.7863 0010871 074.4468 285.7243 14.40127147117592
+FUSE 1
+1 25791U 99035A   01259.58331925  .00001147  00000-0  30130-3 0  3697
+2 25791  24.9787  31.9057 0010852  70.6480 289.5197 14.40126176117540
+FUSE 1
+1 25791U 99035A   01258.95963335 +.00001144 +00000-0 +30044-3 0 03874
+2 25791 024.9786 035.7176 0010865 064.0853 296.0773 14.40124921117457
+FUSE 1
+1 25791U 99035A   01258.54384331  .00001102  00000-0  28749-3 0  3684
+2 25791  24.9787  38.2594 0010849  59.6296 300.5294 14.40123716117396
+FUSE 1
+1 25791U 99035A   01256.88067564  .00001029  00000-0  26472-3 0  3673
+2 25791  24.9789  48.4246 0010881  42.1181 318.0162 14.40120076117159
+FUSE 1
+1 25791U 99035A   01255.84119312 +.00000982 +00000-0 +24994-3 0 03828
+2 25791 024.9791 054.7780 0010906 031.2706 328.8450 14.40117913117004
+FUSE 1
+1 25791U 99035A   01255.56399752  .00000973  00000-0  24725-3 0  3669
+2 25791  24.9790  56.4726 0010911  28.3803 331.7300 14.40117363116963
+FUSE 1
+1 25791U 99035A   01254.17801710  .00000928  00000-0  23335-3 0  3652
+2 25791  24.9790  64.9453 0010913  13.8647 346.2161 14.40114762116765
+FUSE 1
+1 25791U 99035A   01253.13853000  .00000871  00000-0  21540-3 0  3648
+2 25791  24.9793  71.2996 0010924   2.8497 357.2074 14.40112768116617
+FUSE 1
+1 25791U 99035A   01251.89114396  .00000824  00000-0  20070-3 0  3631
+2 25791  24.9796  78.9282 0010899 349.5744  10.4536 14.40110640116437
+FUSE 1
+1 25791U 99035A   01250.57445682  .00000789  00000-0  18992-3 0  3629
+2 25791  24.9798  86.9794 0010848 335.6563  24.3436 14.40108640116244
+FUSE 1
+1 25791U 99035A   01249.39636695  .00000757  00000-0  18011-3 0  3619
+2 25791  24.9802  94.1822 0010810 323.2224  36.7543 14.40106962116071
+FUSE 1
+1 25791U 99035A   01248.91127102 +.00000751 +00000-0 +17803-3 0 03830
+2 25791 024.9803 097.1479 0010787 318.2500 041.7192 14.40106349116005
+FUSE 1
+1 25791U 99035A   01248.21827703  .00000711  00000-0  16549-3 0  3604
+2 25791  24.9806 101.3869 0010851 311.0280  48.9290 14.40105201115909
+FUSE 1
+1 25791U 99035A   01247.94107926 +.00000692 +00000-0 +15961-3 0 03998
+2 25791 024.9808 103.0812 0010848 308.0548 051.8982 14.40104743115863
+FUSE 1
+1 25791U 99035A   01246.97088639 +.00000665 +00000-0 +15119-3 0 03624
+2 25791 024.9811 109.0135 0010822 297.4688 062.4719 14.40103568115724
+FUSE 1
+1 25791U 99035A   01246.90158683  .00000665  00000-0  15140-3 0  3594
+2 25791  24.9811 109.4371 0010823 296.7486  63.1913 14.40103507115715
+FUSE 1
+1 25791U 99035A   01245.86209396  .00000696  00000-0  16089-3 0  3582
+2 25791  24.9808 115.7946 0010841 285.1746  74.7568 14.40102728115561
+FUSE 1
+1 25791U 99035A   01244.47610489  .00000659  00000-0  14935-3 0  3573
+2 25791  24.9811 124.2700 0010831 270.7608  89.1659 14.40100949115366
+FUSE 1
+1 25791U 99035A   01243.36731275  .00000662  00000-0  15021-3 0  3567
+2 25791  24.9811 131.0482 0010866 258.9721 100.9574 14.40099892115206
+FUSE 1
+1 25791U 99035A   01242.25852056  .00000648  00000-0  14586-3 0  3553
+2 25791  24.9814 137.8264 0010894 247.3559 112.5794 14.40098711115047
+FUSE 1
+1 25791U 99035A   01241.98132292 +.00000630 +00000-0 +14046-3 0 03737
+2 25791 024.9816 139.5223 0010941 244.5808 115.3567 14.40098300115001
+FUSE 1
+1 25791U 99035A   01241.21902828  .00000629  00000-0  14009-3 0  3549
+2 25791  24.9817 144.1835 0011009 236.5844 123.3610 14.40097610114897
+FUSE 1
+1 25791U 99035A   01239.97163784 +.00000567 +00000-0 +12075-3 0 03541
+2 25791 024.9822 151.8119 0011137 224.0036 135.9578 14.40096009114714
+FUSE 1
+1 25791U 99035A   01239.90233840  .00000573  00000-0  12271-3 0  3539
+2 25791  24.9822 152.2355 0011140 223.3426 136.6211 14.40096007114709
+FUSE 1
+1 25791U 99035A   01238.93214506 +.00000578 +00000-0 +12417-3 0 03569
+2 25791 024.9822 158.1667 0011192 213.0996 146.8828 14.40095287114565
+FUSE 1
+1 25791U 99035A   01238.44704821  .00000558  00000-0  11791-3 0  3527
+2 25791  24.9823 161.1314 0011195 208.1454 151.8451 14.40094733114491
+FUSE 1
+1 25791U 99035A   01237.19965619  .00000543  00000-0  11309-3 0  3510
+2 25791  24.9826 168.7556 0011260 195.0033 165.0141 14.40093691114311
+FUSE 1
+1 25791U 99035A   01235.46716564  .00000559  00000-0  11830-3 0  3506
+2 25791  24.9826 179.3436 0011265 177.0928 182.9645 14.40092549114064
+FUSE 1
+1 25791U 99035A   01234.91276874 +.00000555 +00000-0 +11697-3 0 03518
+2 25791 024.9826 182.7322 0011267 171.3778 188.6930 14.40092091113980
+FUSE 1
+1 25791U 99035A   01234.21977186  .00000553  00000-0  11627-3 0  3493
+2 25791  24.9827 186.9667 0011270 164.0792 196.0070 14.40091557113881
+FUSE 1
+1 25791U 99035A   01233.18027640  .00000553  00000-0  11642-3 0  3485
+2 25791  24.9827 193.3193 0011293 153.2255 206.8853 14.40090779113734
+FUSE 1
+1 25791U 99035A   01231.72498050  .00000562  00000-0  11920-3 0  3478
+2 25791  24.9824 202.2156 0011301 138.1751 221.9616 14.40089739113529
+FUSE 1
+1 25791U 99035A   01230.54688298  .00000525  00000-0  10770-3 0  3462
+2 25791  24.9834 209.4179 0011313 126.3801 233.7753 14.40088665113353
+FUSE 1
+1 25791U 99035A   01229.23018362  .00000520  00000-0  10610-3 0  3452
+2 25791  24.9836 217.4680 0011315 112.6116 247.5590 14.40087703113163
+FUSE 1
+1 25791U 99035A   01228.81438323 +.00000515 +00000-0 +10467-3 0 03665
+2 25791 024.9835 220.0093 0011311 108.2127 251.9609 14.40087362113104
+FUSE 1
+1 25791U 99035A   01227.84418190  .00000497  00000-0  98977-4 0  3445
+2 25791  24.9840 225.9413 0011274  98.5742 261.6044 14.40086582112969
+FUSE 1
+1 25791U 99035A   01226.66607788 +.00000493 +00000-0 +97886-4 0 03463
+2 25791 024.9839 233.1408 0011275 086.3501 273.8298 14.40085796112794
+FUSE 1
+1 25791U 99035A   01226.52747722  .00000492  00000-0  97361-4 0  3435
+2 25791  24.9840 233.9884 0011272  84.8774 275.3014 14.40085704112774
+FUSE 1
+1 25791U 99035A   01225.21077022  .00000514  00000-0  10445-3 0  3420
+2 25791  24.9840 242.0362 0011245  71.4518 288.7213 14.40085082112581
+FUSE 1
+1 25791U 99035A   01223.89406193  .00000470  00000-0  90604-4 0  3413
+2 25791  24.9848 250.0849 0011117  57.6806 302.4776 14.40083898112392
+FUSE 1
+1 25791U 99035A   01222.78525341  .00000440  00000-0  81399-4 0  3404
+2 25791  24.9853 256.8629 0011047  46.0947 314.0477 14.40083059112237
+FUSE 1
+1 25791U 99035A   01221.95364609 +.00000421 +00000-0 +75317-4 0 03435
+2 25791 024.9857 261.9471 0011006 037.3315 322.7958 14.40082476112119
+FUSE 1
+1 25791U 99035A   01221.53784190  .00000421  00000-0  75510-4 0  3390
+2 25791  24.9858 264.4889 0010990  32.9399 327.1792 14.40082299112056
+FUSE 1
+1 25791U 99035A   01220.98343688 +.00000390 +00000-0 +65848-4 0 03579
+2 25791 024.9859 267.8782 0010962 026.9957 333.1120 14.40081738111977
+FUSE 1
+1 25791U 99035A   01220.22112886  .00000387  00000-0  64765-4 0  3382
+2 25791  24.9860 272.5393 0010909  18.8496 341.2417 14.40081380111869
+FUSE 1
+1 25791U 99035A   01218.97371408  .00000391  00000-0  65912-4 0  3377
+2 25791  24.9861 280.1628 0010876   5.5029 354.5594 14.40080902111686
+FUSE 1
+1 25791U 99035A   01217.86490136  .00000373  00000-0  60393-4 0  3361
+2 25791  24.9866 286.9411 0010853 353.7666   6.2707 14.40080339111529
+FUSE 1
+1 25791U 99035A   01216.82538872  .00000371  00000-0  59777-4 0  3357
+2 25791  24.9868 293.2962 0010793 342.5968  17.4161 14.40079940111374
+FUSE 1
+1 25791U 99035A   01215.57797329  .00000400  00000-0  68747-4 0  3341
+2 25791  24.9867 300.9214 0010734 329.1452  30.8424 14.40079711111190
+FUSE 1
+1 25791U 99035A   01214.88496511 +.00000411 +00000-0 +72102-4 0 03738
+2 25791 024.9865 305.1569 0010752 321.8056 038.1700 14.40079469111094
+FUSE 1
+1 25791U 99035A   01213.91475370 +.00000418 +00000-0 +74537-4 0 03349
+2 25791 024.9864 311.0878 0010770 311.6786 048.2800 14.40079073110957
+FUSE 1
+1 25791U 99035A   01213.84545284  .00000418  00000-0  74517-4 0  3330
+2 25791  24.9864 311.5114 0010770 310.9520  49.0052 14.40079040110944
+FUSE 1
+1 25791U 99035A   01212.94454257 +.00000434 +00000-0 +79248-4 0 03344
+2 25791 024.9864 317.0188 0010768 301.3288 058.6164 14.40078734110813
+FUSE 1
+1 25791U 99035A   01212.80594067  .00000444  00000-0  82373-4 0  3325
+2 25791  24.9863 317.8657 0010766 299.6889  60.2542 14.40078761110791
+FUSE 1
+1 25791U 99035A   01211.90503055 +.00000468 +00000-0 +90090-4 0 03446
+2 25791 024.9863 323.3726 0010776 290.0365 069.8977 14.40078499110666
+FUSE 1
+1 25791U 99035A   01211.55852704  .00000460  00000-0  87431-4 0  3318
+2 25791  24.9864 325.4904 0010823 286.2525  73.6791 14.40078234110615
+FUSE 1
+1 25791U 99035A   01210.93482022 +.00000472 +00000-0 +91278-4 0 03633
+2 25791 024.9864 329.3017 0010848 279.6419 080.2862 14.40077996110525
+FUSE 1
+1 25791U 99035A   01210.17251264  .00000478  00000-0  93199-4 0  3305
+2 25791  24.9863 333.9619 0010873 271.6318  88.2943 14.40077601110410
+FUSE 1
+1 25791U 99035A   01208.85579991  .00000490  00000-0  96802-4 0  3293
+2 25791  24.9866 342.0099 0010922 257.5431 102.3853 14.40076934110225
+FUSE 1
+1 25791U 99035A   01207.81629030  .00000501  00000-0  10023-3 0  3280
+2 25791  24.9867 348.3635 0010966 246.5884 113.3470 14.40076398110073
+FUSE 1
+1 25791U 99035A   01206.91538249 +.00000508 +00000-0 +10250-3 0 03415
+2 25791 024.9866 353.8713 0010987 237.1497 122.7945 14.40075887109946
+FUSE 1
+1 25791U 99035A   01206.56887963  .00000511  00000-0  10326-3 0  3278
+2 25791  24.9867 355.9893 0011012 233.5318 126.4174 14.40075691109893
+FUSE 1
+1 25791U 99035A   01205.87587337 +.00000527 +00000-0 +10839-3 0 03505
+2 25791 024.9868 000.2251 0011076 226.2868 133.6720 14.40075413109799
+FUSE 1
+1 25791U 99035A   01205.25216864  .00000510  00000-0  10313-3 0  3263
+2 25791  24.9867   4.0363 0011090 219.8115 140.1582 14.40074798109708
+FUSE 1
+1 25791U 99035A   01203.93545728 +.00000516 +00000-0 +10479-3 0 03269
+2 25791 024.9866 012.0811 0011114 206.0591 153.9357 14.40073969109517
+FUSE 1
+1 25791U 99035A   01203.86615663  .00000516  00000-0  10479-3 0  3256
+2 25791  24.9866  12.5045 0011114 205.3331 154.6628 14.40073923109503
+FUSE 1
+1 25791U 99035A   01202.96524958 +.00000508 +00000-0 +10233-3 0 03486
+2 25791 024.9865 018.0111 0011154 196.1382 163.8780 14.40073233109374
+FUSE 1
+1 25791U 99035A   01202.54944641  .00000493  00000-0  97826-4 0  3246
+2 25791  24.9863  20.5527 0011169 191.8050 168.2200 14.40072784109311
+FUSE 1
+1 25791U 99035A   01201.16343360  .00000507  00000-0  10206-3 0  3235
+2 25791  24.9866  29.0225 0011223 177.3906 182.6661 14.40072075109115
+FUSE 1
+1 25791U 99035A   01200.12393049  .00000384  00000-0  63784-4 0  3221
+2 25791  24.9826  35.4045 0011352 165.2759 194.8082 14.40070335108968
+FUSE 1
+1 25791U 99035A   01198.94581712 +.00000454 +00000-0 +85448-4 0 03255
+2 25791 024.9819 042.6054 0011509 153.7866 206.3225 14.40070361108793
+FUSE 1
+1 25791U 99035A   01198.87651654  .00000454  00000-0  85668-4 0  3210
+2 25791  24.9819  43.0290 0011506 153.0511 207.0603 14.40070330108780
+FUSE 1
+1 25791U 99035A   01197.90630513 +.00000543 +00000-0 +11321-3 0 03251
+2 25791 024.9814 048.9614 0011667 143.2067 216.9249 14.40070553108641
+FUSE 1
+1 25791U 99035A   01197.83700416  .00000546  00000-0  11423-3 0  3204
+2 25791  24.9813  49.3856 0011672 142.5933 217.5379 14.40070523108630
+FUSE 1
+1 25791U 99035A   01196.93609183 +.00000693 +00000-0 +16016-3 0 03423
+2 25791 024.9796 054.8902 0011793 132.6084 227.5393 14.40070954108505
+FUSE 1
+1 25791U 99035A   01196.45099063  .00000473  00000-0  91615-4 0  3199
+2 25791  24.9825  57.8656 0011228 128.4789 231.6720 14.40068671108430
+FUSE 1
+1 25791U 99035A   01195.20357322  .00000505  00000-0  10164-3 0  3180
+2 25791  24.9825  65.4916 0011215 116.0156 244.1500 14.40068220108256
+FUSE 1
+1 25791U 99035A   01194.02545613  .00000499  00000-0  99733-4 0  3172
+2 25791  24.9826  72.6920 0011188 103.4129 256.7628 14.40067381108089
+FUSE 1
+1 25791U 99035A   01193.95615541 +.00000494 +00000-0 +98068-4 0 03356
+2 25791 024.9827 073.1157 0011179 102.6649 257.5123 14.40067286108078
+FUSE 1
+1 25791U 99035A   01192.50083132  .00000493  00000-0  97812-4 0  3165
+2 25791  24.9831  82.0131 0011146  87.3221 272.8568 14.40066408107867
+FUSE 1
+1 25791U 99035A   01191.94642156 +.00000499 +00000-0 +99730-4 0 03267
+2 25791 024.9831 085.4021 0011170 081.6595 278.5190 14.40066125107781
+FUSE 1
+1 25791U 99035A   01191.18410683  .00000513  00000-0  10412-3 0  3155
+2 25791  24.9835  90.0635 0011114  74.2217 285.9515 14.40065843107672
+FUSE 1
+1 25791U 99035A   01190.14458616  .00000519  00000-0  10586-3 0  3145
+2 25791  24.9834  96.4153 0011128  63.2236 296.9407 14.40065179107528
+FUSE 1
+1 25791U 99035A   01188.89716000  .00000517  00000-0  10535-3 0  3139
+2 25791  24.9835 104.0390 0011105  50.1547 309.9937 14.40064329107342
+FUSE 1
+1 25791U 99035A   01187.85763598  .00000560  00000-0  11885-3 0  3124
+2 25791  24.9834 110.3927 0011027  39.7903 320.3413 14.40064059107198
+FUSE 1
+1 25791U 99035A   01186.26369845  .00000576  00000-0  12383-3 0  3115
+2 25791  24.9833 120.1320 0011040  23.1413 336.9590 14.40062964106967
+FUSE 1
+1 25791U 99035A   01185.22417234  .00000611  00000-0  13466-3 0  3108
+2 25791  24.9832 126.4851 0010938  12.2821 347.7952 14.40062479106818
+FUSE 1
+1 25791U 99035A   01183.90743981  .00000616  00000-0  13632-3 0  3090
+2 25791  24.9835 134.5338 0011000 358.4299   1.6173 14.40061396106623
+FUSE 1
+1 25791U 99035A   01182.72930922  .00000647  00000-0  14599-3 0  3088
+2 25791  24.9835 141.7349 0010932 346.1083  13.9122 14.40060663106450
+FUSE 1
+1 25791U 99035A   01181.55117807  .00000655  00000-0  14826-3 0  3078
+2 25791  24.9833 148.9349 0010989 333.0109  26.9827 14.40059608106287
+FUSE 1
+1 25791U 99035A   01180.23444311  .00000674  00000-0  15430-3 0  3067
+2 25791  24.9834 156.9835 0010915 318.5214  41.4471 14.40058589106094
+FUSE 1
+1 25791U 99035A   01179.95723625 +.00000660 +00000-0 +14998-3 0 03537
+2 25791 024.9835 158.6778 0010936 315.4784 044.4860 14.40058184106053
+FUSE 1
+1 25791U 99035A   01178.98701077 +.00000700 +00000-0 +16223-3 0 03095
+2 25791 024.9839 164.6103 0010804 304.5310 055.4225 14.40057715105914
+FUSE 1
+1 25791U 99035A   01178.91770917  .00000670  00000-0  15306-3 0  3050
+2 25791  24.9837 165.0340 0010775 303.9328  56.0166 14.40057316105906
+FUSE 1
+1 25791U 99035A   01177.94748394 +.00000667 +00000-0 +15215-3 0 03051
+2 25791 024.9839 170.9631 0010758 293.8032 066.1362 14.40056346105762
+FUSE 1
+1 25791U 99035A   01177.80888028  .00000659  00000-0  14952-3 0  3042
+2 25791  24.9838 171.8101 0010748 292.4036  67.5332 14.40056120105741
+FUSE 1
+1 25791U 99035A   01176.83865444 +.00000669 +00000-0 +15256-3 0 03062
+2 25791 024.9836 177.7390 0010771 281.9230 078.0068 14.40055269105600
+FUSE 1
+1 25791U 99035A   01176.56144703  .00000675  00000-0  15449-3 0  3038
+2 25791  24.9837 179.4333 0010795 278.8637  81.0649 14.40055073105566
+FUSE 1
+1 25791U 99035A   01175.86842919 +.00000678 +00000-0 +15546-3 0 03316
+2 25791 024.9837 183.6698 0010800 271.5427 088.3843 14.40054412105462
+FUSE 1
+1 25791U 99035A   01175.24471298  .00000688  00000-0  15855-3 0  3028
+2 25791  24.9839 187.4824 0010794 264.9104  95.0170 14.40053918105375
+FUSE 1
+1 25791U 99035A   01173.85867780  .00000677  00000-0  15522-3 0  3016
+2 25791  24.9839 195.9535 0010801 250.3967 109.5372 14.40052381105179
+FUSE 1
+1 25791U 99035A   01172.95775496 +.00000670 +00000-0 +15307-3 0 03067
+2 25791 024.9841 201.4598 0010826 240.8926 119.0499 14.40051405105048
+FUSE 1
+1 25791U 99035A   01172.54194415  .00000672  00000-0  15364-3 0  3007
+2 25791  24.9843 204.0010 0010840 236.4724 123.4748 14.40051033104986
+FUSE 1
+1 25791U 99035A   01171.98753138 +.00000679 +00000-0 +15575-3 0 03288
+2 25791 024.9843 207.3895 0010842 230.3514 129.6117 14.40050582104903
+FUSE 1
+1 25791U 99035A   01171.22521133  .00000677  00000-0  15522-3 0  2990
+2 25791  24.9854 212.0560 0010996 222.3356 137.6304 14.40049810104798
+FUSE 1
+1 25791U 99035A   01169.97777976 +.00000651 +00000-0 +14719-3 0 02996
+2 25791 024.9854 219.6805 0010993 209.2640 150.7249 14.40048323104613
+FUSE 1
+1 25791U 99035A   01169.83917607  .00000653  00000-0  14780-3 0  2987
+2 25791  24.9854 220.5274 0010997 207.8311 152.1606 14.40048213104595
+FUSE 1
+1 25791U 99035A   01168.93825267 +.00000639 +00000-0 +14331-3 0 02983
+2 25791 024.9853 226.0330 0011011 198.4101 161.6008 14.40047199104467
+FUSE 1
+1 25791U 99035A   01168.79964884  .00000639  00000-0  14331-3 0  2975
+2 25791  24.9853 226.8798 0011011 196.9581 163.0554 14.40047071104447
+FUSE 1
+1 25791U 99035A   01167.55221537  .00000637  00000-0  14282-3 0  2961
+2 25791  24.9855 234.5040 0011049 184.0993 175.9424 14.40045914104263
+FUSE 1
+1 25791U 99035A   01166.51268687  .00000629  00000-0  14035-3 0  2959
+2 25791  24.9856 240.8573 0011071 173.3506 186.7149 14.40044884104114
+FUSE 1
+1 25791U 99035A   01165.95827450 +.00000603 +00000-0 +13200-3 0 03120
+2 25791 024.9848 244.2600 0010963 166.9546 193.1247 14.40044112104031
+FUSE 1
+1 25791U 99035A   01165.40385861  .00000599  00000-0  13098-3 0  2943
+2 25791  24.9849 247.6487 0010973 161.1937 198.8977 14.40043624103953
+FUSE 1
+1 25791U 99035A   01164.22572358  .00000615  00000-0  13598-3 0  2934
+2 25791  24.9850 254.8490 0011010 149.2494 210.8676 14.40042799103781
+FUSE 1
+1 25791U 99035A   01163.87921276 +.00000615 +00000-0 +13599-3 0 03270
+2 25791 024.9849 256.9662 0011011 145.6235 214.4988 14.40042491103737
+FUSE 1
+1 25791U 99035A   01163.18619226  .00000575  00000-0  12336-3 0  2927
+2 25791  24.9852 261.2039 0011012 139.1112 221.0231 14.40041529103636
+FUSE 1
+1 25791U 99035A   01162.90898327 +.00000573 +00000-0 +12283-3 0 03321
+2 25791 024.9853 262.8977 0011009 136.1629 223.9749 14.40041298103594
+FUSE 1
+1 25791U 99035A   01161.86945008  .00000570  00000-0  12199-3 0  2911
+2 25791  24.9855 269.2523 0011028 125.4435 234.7103 14.40040463103442
+FUSE 1
+1 25791U 99035A   01160.55270529  .00000600  00000-0  13110-3 0  2902
+2 25791  24.9853 277.3011 0011033 112.2693 247.8985 14.40039697103257
+FUSE 1
+1 25791U 99035A   01159.51316909  .00000608  00000-0  13389-3 0  2893
+2 25791  24.9855 283.6566 0011020 101.4944 258.6799 14.40038905103107
+FUSE 1
+1 25791U 99035A   01158.95874900 +.00000619 +00000-0 +13726-3 0 03157
+2 25791 024.9854 287.0455 0011021 095.8528 264.3235 14.40038518103026
+FUSE 1
+1 25791U 99035A   01158.40432836  .00000637  00000-0  14284-3 0  2884
+2 25791  24.9854 290.4346 0011007  89.9818 270.1950 14.40038207102947
+FUSE 1
+1 25791U 99035A   01157.22618367  .00000647  00000-0  14588-3 0  2875
+2 25791  24.9857 297.6350 0011049  77.7985 282.3753 14.40037223102774
+FUSE 1
+1 25791U 99035A   01156.18664290  .00000642  00000-0  14440-3 0  2866
+2 25791  24.9861 303.9893 0011005  67.0287 293.1376 14.40036236102629
+FUSE 1
+1 25791U 99035A   01154.86988814  .00000664  00000-0  15129-3 0  2858
+2 25791  24.9862 312.0359 0010968  53.2775 306.8736 14.40035235102433
+FUSE 1
+1 25791U 99035A   01153.55313207  .00000654  00000-0  14823-3 0  2849
+2 25791  24.9862 320.0822 0010917  39.4182 320.7119 14.40033855102244
+FUSE 1
+1 25791U 99035A   01152.51358604  .00000656  00000-0  14876-3 0  2833
+2 25791  24.9862 326.4348 0010879  28.5266 331.5835 14.40032889102090
+FUSE 1
+1 25791U 99035A   01151.95916093 +.00000658 +00000-0 +14954-3 0 03067
+2 25791 024.9864 329.8227 0010858 022.6676 337.4309 14.40032401102015
+FUSE 1
+1 25791U 99035A   01151.33543277  .00000649  00000-0  14671-3 0  2828
+2 25791  24.9863 333.6343 0010866  15.9419 344.1429 14.40031685101925
+FUSE 1
+1 25791U 99035A   01150.15727791  .00000654  00000-0  14810-3 0  2812
+2 25791  24.9864 340.8337 0010840   3.4915 356.5667 14.40030638101753
+FUSE 1
+1 25791U 99035A   01149.88006493 +.00000653 +00000-0 +14785-3 0 03135
+2 25791 024.9866 342.5280 0010826 000.5019 359.5497 14.40030376101717
+FUSE 1
+1 25791U 99035A   01148.90982283  .00000634  00000-0  14209-3 0  2800
+2 25791  24.9866 348.4566 0010800 350.2840   9.7632 14.40029222101575
+FUSE 1
+1 25791U 99035A   01147.38515028  .00000579  00000-0  12480-3 0  2795
+2 25791  24.9837 357.7948 0010793 333.6467  26.3492 14.40027134101356
+FUSE 1
+1 25791U 99035A   01146.20699331  .00000565  00000-0  12045-3 0  2786
+2 25791  24.9838   4.9959 0010786 321.0840  38.8893 14.40026061101180
+FUSE 1
+1 25791U 99035A   01144.89022932  .00000533  00000-0  11042-3 0  2776
+2 25791  24.9841  13.0436 0010817 306.9215  53.0301 14.40024823100993
+FUSE 1
+1 25791U 99035A   01143.91998144 +.00000546 +00000-0 +11428-3 0 02924
+2 25791 024.9842 018.9724 0010816 296.5378 063.4019 14.40024274100857
+FUSE 1
+1 25791U 99035A   01143.36555441  .00000551  00000-0  11588-3 0  2767
+2 25791  24.9842  22.3601 0010810 290.7426  69.1925 14.40023904100773
+FUSE 1
+1 25791U 99035A   01142.94973432 +.00000553 +00000-0 +11652-3 0 02881
+2 25791 024.9843 024.9015 0010807 286.3744 073.5580 14.40023633100710
+FUSE 1
+1 25791U 99035A   01142.32600379  .00000567  00000-0  12088-3 0  2755
+2 25791  24.9842  28.7136 0010785 279.8487  80.0792 14.40023279100625
+FUSE 1
+1 25791U 99035A   01141.91018440 +.00000540 +00000-0 +11242-3 0 02900
+2 25791 024.9840 031.2547 0010893 276.2467 083.6799 14.40022637100563
+FUSE 1
+1 25791U 99035A   01141.21715079  .00000549  00000-0  11542-3 0  2749
+2 25791  24.9840  35.4898 0010896 268.8475  91.0785 14.40022229100461
+FUSE 1
+1 25791U 99035A   01139.90038775  .00000571  00000-0  12219-3 0  2739
+2 25791  24.9839  43.5397 0010931 255.0386 104.8911 14.40021439100277
+FUSE 1
+1 25791U 99035A   01138.58362425  .00000609  00000-0  13389-3 0  2724
+2 25791  24.9837  51.5882 0011072 241.1629 118.7758 14.40020744100086
+FUSE 1
+1 25791U 99035A   01137.33616481  .00000661  00000-0  15031-3 0  2713
+2 25791  24.9839  59.2112 0011101 227.8811 132.0752 14.40020162 99901
+FUSE 1
+1 25791U 99035A   01136.22731284  .00000674  00000-0  15435-3 0  2700
+2 25791  24.9841  65.9875 0011119 216.3279 143.6473 14.40019220 99747
+FUSE 1
+1 25791U 99035A   01134.97985363 +.00000712 +00000-0 +16613-3 0 02734
+2 25791 024.9840 073.6131 0011195 203.7721 156.2269 14.40018339099566
+FUSE 1
+1 25791U 99035A   01134.91055026  .00000715  00000-0  16725-3 0  2694
+2 25791  24.9839  74.0366 0011202 203.0881 156.9123 14.40018302 99553
+FUSE 1
+1 25791U 99035A   01133.94030404 +.00000743 +00000-0 +17573-3 0 02737
+2 25791 024.9839 079.9663 0011198 193.0427 166.9790 14.40017554099419
+FUSE 1
+1 25791U 99035A   01133.45518076  .00000746  00000-0  17689-3 0  2684
+2 25791  24.9839  82.9302 0011209 188.0450 171.9871 14.40017047 99341
+FUSE 1
+1 25791U 99035A   01132.20772024  .00000785  00000-0  18898-3 0  2676
+2 25791  24.9839  90.5544 0011269 175.2870 184.7740 14.40016047 99160
+FUSE 1
+1 25791U 99035A   01130.96025905 +.00000820 +00000-0 +19980-3 0 02691
+2 25791 024.9841 098.1782 0011296 162.1732 197.9172 14.40014946098983
+FUSE 1
+1 25791U 99035A   01130.89095562  .00000820  00000-0  20001-3 0  2662
+2 25791  24.9841  98.6016 0011296 161.4536 198.6384 14.40014866 98975
+FUSE 1
+1 25791U 99035A   01129.92071030 +.00000847 +00000-0 +20834-3 0 02661
+2 25791 024.9833 104.5520 0011085 151.6354 208.4757 14.40014053098835
+FUSE 1
+1 25791U 99035A   01129.85140680  .00000850  00000-0  20936-3 0  2657
+2 25791  24.9832 104.9757 0011084 150.9394 209.1729 14.40013984 98823
+FUSE 1
+1 25791U 99035A   01128.95046107 +.00000863 +00000-0 +21348-3 0 02704
+2 25791 024.9831 110.4816 0011082 141.5157 218.6142 14.40012890098695
+FUSE 1
+1 25791U 99035A   01128.53463956  .00000867  00000-0  21456-3 0  2640
+2 25791  24.9830 113.0225 0011082 137.1961 222.9409 14.40012343 98632
+FUSE 1
+1 25791U 99035A   01127.98021059 +.00000880 +00000-0 +21866-3 0 02822
+2 25791 024.9832 116.4114 0011088 131.3728 228.7736 14.40011719098555
+FUSE 1
+1 25791U 99035A   01127.21786998  .00000884  00000-0  22005-3 0  2637
+2 25791  24.9831 121.0699 0011080 123.3961 236.7608 14.40010685 98442
+FUSE 1
+1 25791U 99035A   01125.90109773  .00000892  00000-0  22255-3 0  2626
+2 25791  24.9833 129.1184 0011028 109.9749 250.1950 14.40008904 98258
+FUSE 1
+1 25791U 99035A   01124.86153846  .00000895  00000-0  22336-3 0  2612
+2 25791  24.9835 135.4720 0010976  99.2838 260.8908 14.40007464 98102
+FUSE 1
+1 25791U 99035A   01123.82197729  .00000903  00000-0  22598-3 0  2604
+2 25791  24.9836 141.8244 0010956  88.5472 271.6290 14.40006059 97953
+FUSE 1
+1 25791U 99035A   01122.78241421  .00000914  00000-0  22957-3 0  2596
+2 25791  24.9838 148.1778 0010906  77.7606 282.4122 14.40004664 97809
+FUSE 1
+1 25791U 99035A   01121.74284958  .00000909  00000-0  22797-3 0  2588
+2 25791  24.9840 154.5310 0010872  66.8417 293.3235 14.40003100 97659
+FUSE 1
+1 25791U 99035A   01120.98050140 +.00000892 +00000-0 +22245-3 0 02632
+2 25791 024.9840 159.1901 0010848 058.8234 301.3337 14.40001802097545
+FUSE 1
+1 25791U 99035A   01120.56467427  .00000893  00000-0  22276-3 0  2574
+2 25791  24.9840 161.7307 0010845  54.4415 305.7103 14.40001218 97487
+FUSE 1
+1 25791U 99035A   01119.24788803  .00000840  00000-0  20637-3 0  2561
+2 25791  24.9839 169.7779 0010778  40.3623 319.7683 14.39998784 97294
+FUSE 1
+1 25791U 99035A   01117.23804969  .00000814  00000-0  19817-3 0  2547
+2 25791  24.9840 182.0587 0010772  19.4486 340.6431 14.39995823 97003
+FUSE 1
+1 25791U 99035A   01116.96083039 +.00000802 +00000-0 +19449-3 0 02877
+2 25791 024.9843 183.7523 0010778 016.6787 343.4072 14.39995329096960
+FUSE 1
+1 25791U 99035A   01116.19847490  .00001304  00000-0  35116-3 0  2531
+2 25791  24.9827 188.4092 0011139   8.8375 351.2331 14.39996795 96854
+FUSE 1
+1 25791U 99035A   01114.88168133 +.00000626 +00000-0 +13955-3 0 02538
+2 25791 024.9832 196.4565 0011007 354.8618 005.1760 14.39992143096665
+FUSE 1
+1 25791U 99035A   01114.81237588  .00000730  00000-0  17192-3 0  2524
+2 25791  24.9832 196.8805 0010974 353.8797   6.1556 14.39992378 96658
+FUSE 1
+1 25791U 99035A   01113.91141013 +.00001105 +00000-0 +28900-3 0 02583
+2 25791 024.9832 202.3874 0010818 344.5129 015.5072 14.39992088096521
+FUSE 1
+1 25791U 99035A   01113.56488467  .00000804  00000-0  19509-3 0  2514
+2 25791  24.9836 204.5049 0010848 340.9754  19.0347 14.39990691 96476
+FUSE 1
+1 25791U 99035A   01112.87183381 +.00000588 +00000-0 +12770-3 0 02853
+2 25791 024.9838 208.7401 0010866 334.2845 025.7120 14.39989069096372
+FUSE 1
+1 25791U 99035A   01112.24808739  .00000697  00000-0  16161-3 0  2506
+2 25791  24.9837 212.5519 0010856 327.7806  32.2065 14.39988758 96282
+FUSE 1
+1 25791U 99035A   01110.86198210  .00000839  00000-0  20609-3 0  2496
+2 25791  24.9833 221.0217 0010828 312.9646  46.9953 14.39987824 96084
+FUSE 1
+1 25791U 99035A   01109.96101490 +.00000640 +00000-0 +14376-3 0 02662
+2 25791 024.9835 226.5270 0010746 303.7230 056.2253 14.39986069095953
+FUSE 1
+1 25791U 99035A   01109.54518505  .00000698  00000-0  16199-3 0  2483
+2 25791  24.9825 229.0749 0010853 299.3689  60.5757 14.39985563 95896
+FUSE 1
+1 25791U 99035A   01108.92143892 +.00000424 +00000-0 +76456-4 0 02689
+2 25791 024.9835 232.8933 0010773 292.5014 067.4341 14.39984084095805
+FUSE 1
+1 25791U 99035A   01108.43630231  .00000475  00000-0  92307-4 0  2479
+2 25791  24.9841 235.8622 0010842 287.1593  72.7725 14.39984197 95731
+FUSE 1
+1 25791U 99035A   01107.25811420  .00000342  00000-0  50688-4 0  2467
+2 25791  24.9840 243.0654 0010850 274.6194  85.3080 14.39982982 95568
+FUSE 1
+1 25791U 99035A   01106.91158787 +.00000319 +00000-0 +43545-4 0 02816
+2 25791 024.9842 245.1833 0010843 270.9361 088.9901 14.39982821095517
+FUSE 1
+1 25791U 99035A   01105.94131510 +.00000457 +00000-0 +86612-4 0 02469
+2 25791 024.9838 251.1154 0010905 261.3015 098.6260 14.39982811095373
+FUSE 1
+1 25791U 99035A   01105.87200985  .00000459  00000-0  87250-4 0  2454
+2 25791  24.9840 251.5393 0010901 260.6320  99.2952 14.39982811 95366
+FUSE 1
+1 25791U 99035A   01104.55520998  .00001008  00000-0  25888-3 0  2445
+2 25791  24.9829 259.5887 0011021 247.1818 112.7523 14.39983372 95172
+FUSE 1
+1 25791U 99035A   01103.51562954  .00001492  00000-0  40988-3 0  2432
+2 25791  24.9842 265.9425 0010869 234.0542 125.8931 14.39984015 95021
+FUSE 1
+1 25791U 99035A   01102.89188107 +.00001731 +00000-0 +48461-3 0 02649
+2 25791 024.9844 269.7554 0011059 227.9140 132.0419 14.39983703094938
+FUSE 1
+1 25791U 99035A   01102.54535407  .00001893  00000-0  53504-3 0  2429
+2 25791  24.9846 271.8734 0010921 223.7407 136.2232 14.39983757 94883
+FUSE 1
+1 25791U 99035A   01101.92160517 +.00002030 +00000-0 +57800-3 0 02647
+2 25791 024.9848 275.6854 0011217 217.6844 142.2874 14.39982801094794
+FUSE 1
+1 25791U 99035A   01101.57507715  .00002190  00000-0  62781-3 0  2419
+2 25791  24.9854 277.8031 0010956 213.3871 146.5941 14.39983161 94741
+FUSE 1
+1 25791U 99035A   01100.88202474 +.00002253 +00000-0 +64777-3 0 02660
+2 25791 024.9853 282.0379 0011053 206.6572 153.3357 14.39981020094643
+FUSE 1
+1 25791U 99035A   01100.18897006  .00002361  00000-0  68129-3 0  2401
+2 25791  24.9852 286.2722 0011029 198.9302 161.0725 14.39979226 94546
+FUSE 1
+1 25791U 99035A   01099.91174907 +.00002395 +00000-0 +69207-3 0 02750
+2 25791 024.9855 287.9660 0011230 196.5404 163.4735 14.39978461094502
+FUSE 1
+1 25791U 99035A   01098.94147224 +.00002530 +00000-0 +73411-3 0 02421
+2 25791 024.9854 293.8958 0011234 186.4584 173.5772 14.39975567094369
+FUSE 1
+1 25791U 99035A   01098.87216662  .00002543  00000-0  73810-3 0  2399
+2 25791  24.9855 294.3194 0011295 185.6074 174.4304 14.39975420 94358
+FUSE 1
+1 25791U 99035A   01097.55535820  .00002756  00000-0  80493-3 0  2383
+2 25791  24.9857 302.3671 0011209 171.5084 188.5605 14.39971661 94162
+FUSE 1
+1 25791U 99035A   01096.51577572  .00001819  00000-0  51232-3 0  2375
+2 25791  24.9851 308.7196 0011060 159.9502 200.1452 14.39962260 94018
+FUSE 1
+1 25791U 99035A   01095.19896006  .00002137  00000-0  61186-3 0  2366
+2 25791  24.9847 316.7677 0011044 146.2105 213.9107 14.39958939 93821
+FUSE 1
+1 25791U 99035A   01094.92173520 +.00002224 +00000-0 +63882-3 0 02749
+2 25791 024.9845 318.4612 0011055 143.4912 216.6355 14.39958128093784
+FUSE 1
+1 25791U 99035A   01093.95144716 +.00002409 +00000-0 +69674-3 0 02410
+2 25791 024.9843 324.3915 0011216 133.1891 226.9554 14.39954609093645
+FUSE 1
+1 25791U 99035A   01093.88214064  .00002499  00000-0  72482-3 0  2359
+2 25791  24.9842 324.8152 0011197 132.3778 227.7676 14.39954543 93635
+FUSE 1
+1 25791U 99035A   01092.91184954 +.00003251 +00000-0 +95975-3 0 02557
+2 25791 024.9837 330.7471 0011246 122.5955 237.5655 14.39950967093498
+FUSE 1
+1 25791U 99035A   01091.17917824  .00003186  00000-0  93968-3 0  2337
+2 25791  24.9835 341.3417 0011318 105.3746 254.8012 14.39939177 93243
+FUSE 1
+1 25791U 99035A   01090.13956723  .00002972  00000-0  87297-3 0  2322
+2 25791  24.9838 347.6958 0011329  94.7440 265.4361 14.39932401 93090
+FUSE 1
+1 25791U 99035A   01088.96133501 +.00002837 +00000-0 +83108-3 0 02339
+2 25791 024.9838 354.9011 0011327 083.2313 276.9488 14.39925595092925
+FUSE 1
+1 25791U 99035A   01088.89202703  .00002815  00000-0  82399-3 0  2317
+2 25791  24.9839 355.3247 0011337  82.5196 277.6602 14.39925159 92915
+FUSE 1
+1 25791U 99035A   01087.92171315 +.00001946 +00000-0 +55260-3 0 02360
+2 25791 024.9847 001.2552 0011205 072.8181 287.3553 14.39918251092772
+FUSE 1
+1 25791U 99035A   01087.85240649  .00001697  00000-0  47485-3 0  2306
+2 25791  24.9849   1.6791 0011193  72.3247 287.8536 14.39917141 92769
+FUSE 1
+1 25791U 99035A   01082.51561712  .00000996  00000-0  25569-3 0  2266
+2 25791  24.9850  34.2906 0010848  15.4515 344.6316 14.39903030 91997
+FUSE 1
+1 25791U 99035A   01081.96114279 +.00000895 +00000-0 +22411-3 0 02357
+2 25791 024.9850 037.6798 0010802 008.8785 351.1917 14.39901631091915
+FUSE 1
+1 25791U 99035A   01081.33735740  .00000887  00000-0  22159-3 0  2259
+2 25791  24.9850  41.4919 0010779   2.2856 357.7699 14.39900735 91826
+FUSE 1
+1 25791U 99035A   01080.92150068 +.00000863 +00000-0 +21388-3 0 02333
+2 25791 024.9849 044.0329 0010784 357.8343 002.2118 14.39899989091763
+FUSE 1
+1 25791U 99035A   01080.22840542  .00000844  00000-0  20810-3 0  2247
+2 25791  24.9848  48.2669 0010801 350.7139   9.3171 14.39898909 91667
+FUSE 1
+1 25791U 99035A   01079.95116702 +.00000849 +00000-0 +20965-3 0 02537
+2 25791 024.9848 049.9618 0010808 347.8135 012.2110 14.39898588091624
+FUSE 1
+1 25791U 99035A   01078.98083194 +.00000863 +00000-0 +21409-3 0 02245
+2 25791 024.9850 055.8907 0010787 337.5934 022.4103 14.39897482091484
+FUSE 1
+1 25791U 99035A   01078.91152241  .00000863  00000-0  21400-3 0  2238
+2 25791  24.9849  56.3142 0010787 336.8603  23.1424 14.39897379 91472
+FUSE 1
+1 25791U 99035A   01077.94118795 +.00000865 +00000-0 +21466-3 0 02296
+2 25791 024.9846 062.2492 0010753 326.7694 033.2147 14.39896112091337
+FUSE 1
+1 25791U 99035A   01077.52532984  .00000862  00000-0  21353-3 0  2225
+2 25791  24.9844  64.7900 0010747 322.4604  37.5154 14.39895491 91270
+FUSE 1
+1 25791U 99035A   01076.48568446  .00000836  00000-0  20539-3 0  2216
+2 25791  24.9842  71.1417 0010785 311.0390  48.9185 14.39893786 91120
+FUSE 1
+1 25791U 99035A   01075.23810913  .00000832  00000-0  20428-3 0  2209
+2 25791  24.9846  78.7649 0010811 297.7413  62.1997 14.39892127 90946
+FUSE 1
+1 25791U 99035A   01073.99053383 +.00000816 +00000-0 +19913-3 0 02209
+2 25791 024.9845 086.3872 0010797 284.5974 075.3336 14.39890279090766
+FUSE 1
+1 25791U 99035A   01073.92122749  .00000816  00000-0  19910-3 0  2190
+2 25791  24.9845  86.8106 0010797 283.8732  76.0753 14.39890190 90757
+FUSE 1
+1 25791U 99035A   01072.88158105 +.00000784 +00000-0 +18923-3 0 02220
+2 25791 024.9830 093.1816 0010740 272.7044 087.2233 14.39888516090601
+FUSE 1
+1 25791U 99035A   01072.53503188  .00000787  00000-0  19030-3 0  2185
+2 25791  24.9830  95.2987 0010757 268.9911  90.9362 14.39888127 90557
+FUSE 1
+1 25791U 99035A   01071.98055429 +.00000763 +00000-0 +18258-3 0 02201
+2 25791 024.9833 098.6880 0010753 263.1759 096.7529 14.39887246090473
+FUSE 1
+1 25791U 99035A   01071.49538471  .00000791  00000-0  19130-3 0  2177
+2 25791  24.9831 101.6522 0010849 257.9268 102.0023 14.39886914 90405
+FUSE 1
+1 25791U 99035A   01070.94090658 +.00000785 +00000-0 +18959-3 0 02469
+2 25791 024.9831 105.0409 0010844 252.1036 107.8288 14.39886182090326
+FUSE 1
+1 25791U 99035A   01070.24780824  .00000809  00000-0  19709-3 0  2161
+2 25791  24.9831 109.2771 0010871 244.6528 115.2853 14.39885565 90220
+FUSE 1
+1 25791U 99035A   01069.20816158  .00000791  00000-0  19153-3 0  2157
+2 25791  24.9832 115.6328 0011054 233.9117 126.0367 14.39884078 90070
+FUSE 1
+1 25791U 99035A   01067.82196489  .00000809  00000-0  19705-3 0  2143
+2 25791  24.9830 124.1033 0011113 218.9869 140.9835 14.39882486 89871
+FUSE 1
+1 25791U 99035A   01066.64369761 +.00000799 +00000-0 +19374-3 0 02169
+2 25791 024.9830 131.3033 0011151 207.0123 152.9803 14.39880895089707
+FUSE 1
+1 25791U 99035A   01066.50507788  .00000796  00000-0  19291-3 0  2139
+2 25791  24.9830 132.1500 0011152 205.5911 154.4046 14.39880702 89684
+FUSE 1
+1 25791U 99035A   01065.88128936 +.00000790 +00000-0 +19103-3 0 02397
+2 25791 024.9831 135.9622 0011122 198.9598 161.0503 14.39879873089593
+FUSE 1
+1 25791U 99035A   01065.18819067  .00000783  00000-0  18885-3 0  2121
+2 25791  24.9834 140.1989 0011152 191.7198 168.3068 14.39878991 89495
+FUSE 1
+1 25791U 99035A   01064.91095089 +.00000771 +00000-0 +18518-3 0 02446
+2 25791 024.9835 141.8928 0011125 188.7032 171.3283 14.39878539089457
+FUSE 1
+1 25791U 99035A   01063.87130138  .00000765  00000-0  18340-3 0  2115
+2 25791  24.9836 148.2465 0011125 177.9406 182.1148 14.39877264 89308
+FUSE 1
+1 25791U 99035A   01063.87130137 +.00000767 +00000-0 +18406-3 0 02120
+2 25791 024.9835 148.2460 0011132 177.9393 182.1166 14.39877276089308
+FUSE 1
+1 25791U 99035A   01062.90096058 +.00000769 +00000-0 +18444-3 0 02210
+2 25791 024.9839 154.1757 0011132 167.8039 192.2735 14.39876200089166
+FUSE 1
+1 25791U 99035A   01062.55441017  .00000773  00000-0  18590-3 0  2105
+2 25791  24.9841 156.2936 0011137 164.3299 195.7558 14.39875851 89113
+FUSE 1
+1 25791U 99035A   01061.30682837  .00000772  00000-0  18556-3 0  2093
+2 25791  24.9841 163.9191 0011157 150.7881 209.3252 14.39874318 88938
+FUSE 1
+1 25791U 99035A   01060.82165726 +.00000760 +00000-0 +18192-3 0 02488
+2 25791 024.9843 166.8839 0011144 145.5272 214.5963 14.39873647088866
+FUSE 1
+1 25791U 99035A   01059.92062424 +.00000739 +00000-0 +17528-3 0 02194
+2 25791 024.9846 172.3899 0011179 135.9727 224.1680 14.39872415088734
+FUSE 1
+1 25791U 99035A   01059.57407284  .00000713  00000-0  16698-3 0  2089
+2 25791  24.9853 174.5090 0011130 132.3934 227.7515 14.39871839 88686
+FUSE 1
+1 25791U 99035A   01058.25717454  .00000711  00000-0  16656-3 0  2077
+2 25791  24.9850 182.5567 0011163 119.2623 240.9005 14.39870406 88495
+FUSE 1
+1 25791U 99035A   01057.91062171 +.00000714 +00000-0 +16747-3 0 02319
+2 25791 024.9852 184.6743 0011160 115.8000 244.3659 14.39870084088444
+FUSE 1
+1 25791U 99035A   01056.87096351  .00000689  00000-0  15951-3 0  2069
+2 25791  24.9851 191.0276 0011173 104.7434 255.4312 14.39868715 88298
+FUSE 1
+1 25791U 99035A   01055.90061376 +.00000679 +00000-0 +15637-3 0 02285
+2 25791 024.9850 196.9579 0011170 094.7617 265.4158 14.39867625088158
+FUSE 1
+1 25791U 99035A   01055.55406001  .00000689  00000-0  15968-3 0  2057
+2 25791  24.9853 199.0771 0011176  91.3496 268.8293 14.39867412 88109
+FUSE 1
+1 25791U 99035A   01054.23715345  .00000689  00000-0  15972-3 0  2049
+2 25791  24.9854 207.1235 0011152  77.7001 282.4754 14.39866067 87917
+FUSE 1
+1 25791U 99035A   01053.89059839 +.00000696 +00000-0 +16187-3 0 02158
+2 25791 024.9856 209.2409 0011136 074.1479 286.0253 14.39865797087864
+FUSE 1
+1 25791U 99035A   01052.92024384 +.00000702 +00000-0 +16372-3 0 02040
+2 25791 024.9854 215.1686 0011139 064.1094 296.0556 14.39864826087724
+FUSE 1
+1 25791U 99035A   01052.85093275  .00000705  00000-0  16455-3 0  2031
+2 25791  24.9853 215.5920 0011131  63.4459 296.7188 14.39864778 87710
+FUSE 1
+1 25791U 99035A   01051.88057587 +.00000742 +00000-0 +17626-3 0 02031
+2 25791 024.9846 221.5212 0010994 053.4019 306.7497 14.39864094087570
+FUSE 1
+1 25791U 99035A   01049.17743500  .00000805  00000-0  19598-3 0  2004
+2 25791  24.9852 238.0376 0010943  24.9759 335.1274 14.39861598 87181
+FUSE 1
+1 25791U 99035A   01048.13776370  .00000818  00000-0  20021-3 0  1994
+2 25791  24.9855 244.3897 0010946  14.2126 345.8687 14.39860443 87033
+FUSE 1
+1 25791U 99035A   01046.95946808 +.00000826 +00000-0 +20265-3 0 02009
+2 25791 024.9856 251.5883 0010925 001.7292 358.3251 14.39859035086862
+FUSE 1
+1 25791U 99035A   01046.89015657  .00000828  00000-0  20328-3 0  1989
+2 25791  24.9856 252.0117 0010921   1.0228 359.0304 14.39858972 86851
+FUSE 1
+1 25791U 99035A   01045.91979473 +.00000825 +00000-0 +20234-3 0 02104
+2 25791 024.9857 257.9395 0010895 350.7865 009.2444 14.39857693086718
+FUSE 1
+1 25791U 99035A   01045.57323730  .00000822  00000-0  20128-3 0  1978
+2 25791  24.9855 260.0575 0010891 347.1542  12.8705 14.39857185 86669
+FUSE 1
+1 25791U 99035A   01044.32563210  .00000852  00000-0  21070-3 0  1968
+2 25791  24.9845 267.6885 0010940 335.0275  24.9843 14.39855877 86482
+FUSE 1
+1 25791U 99035A   01043.90976161 +.00000818 +00000-0 +19993-3 0 02047
+2 25791 024.9856 270.2365 0010879 331.1039 028.8868 14.39855093086427
+FUSE 1
+1 25791U 99035A   01043.21664491  .00000820  00000-0  20056-3 0  1955
+2 25791  24.9857 274.4720 0010879 323.9471  36.0302 14.39854225 86327
+FUSE 1
+1 25791U 99035A   01042.93939835 +.00000809 +00000-0 +19728-3 0 02345
+2 25791 024.9860 276.1661 0010879 321.0294 038.9430 14.39853798086288
+FUSE 1
+1 25791U 99035A   01041.89972384  .00000762  00000-0  18265-3 0  1943
+2 25791  24.9864 282.5199 0010886 310.1836  49.7717 14.39852068 86139
+FUSE 1
+1 25791U 99035A   01040.86004627  .00000786  00000-0  18998-3 0  1933
+2 25791  24.9864 288.8712 0010909 298.1189  61.8216 14.39851115 85984
+FUSE 1
+1 25791U 99035A   01039.88968203 +.00000776 +00000-0 +18695-3 0 01946
+2 25791 024.9866 294.8003 0010918 287.8124 072.1191 14.39849851085846
+FUSE 1
+1 25791U 99035A   01039.54312320  .00000778  00000-0  18759-3 0  1923
+2 25791  24.9865 296.9171 0010912 284.1925  75.7371 14.39849453 85798
+FUSE 1
+1 25791U 99035A   01038.91931566 +.00000841 +00000-0 +20715-3 0 01973
+2 25791 024.9853 300.7300 0011058 276.2116 083.7128 14.39849226085707
+FUSE 1
+1 25791U 99035A   01038.36482175  .00000851  00000-0  21041-3 0  1917
+2 25791  24.9852 304.1176 0011034 270.4549  89.4688 14.39848568 85628
+FUSE 1
+1 25791U 99035A   01037.94895133 +.00000854 +00000-0 +21128-3 0 02024
+2 25791 024.9850 306.6578 0011082 266.4454 093.4786 14.39848015085566
+FUSE 1
+1 25791U 99035A   01037.18652191  .00000871  00000-0  21669-3 0  1900
+2 25791  24.9854 311.3163 0011114 258.2637 101.6623 14.39847183 85456
+FUSE 1
+1 25791U 99035A   01035.93891068 +.00000893 +00000-0 +22356-3 0 01974
+2 25791 024.9856 318.9409 0011155 245.1344 114.8003 14.39845662085277
+FUSE 1
+1 25791U 99035A   01035.86959892  .00000895  00000-0  22415-3 0  1895
+2 25791  24.9856 319.3643 0011153 244.4229 115.5125 14.39845576 85260
+FUSE 1
+1 25791U 99035A   01034.96854630 +.00000904 +00000-0 +22698-3 0 02030
+2 25791 024.9856 324.8713 0011214 234.8399 125.1056 14.39844383085139
+FUSE 1
+1 25791U 99035A   01034.48336452  .00000891  00000-0  22284-3 0  1882
+2 25791  24.9853 327.8353 0011183 229.6286 130.3245 14.39843518 85060
+FUSE 1
+1 25791U 99035A   01033.23575272  .00000882  00000-0  22011-3 0  1876
+2 25791  24.9856 335.4581 0011214 216.6240 143.3500 14.39841675 84881
+FUSE 1
+1 25791U 99035A   01031.91882870  .00000844  00000-0  20813-3 0  1869
+2 25791  24.9858 343.5045 0011276 203.2127 156.7872 14.39839469 84699
+FUSE 1
+1 25791U 99035A   01031.91882869 +.00000845 +00000-0 +20836-3 0 01874
+2 25791 024.9858 343.5045 0011276 203.2090 156.7909 14.39839478084699
+FUSE 1
+1 25791U 99035A   01030.94846209 +.00000841 +00000-0 +20712-3 0 01918
+2 25791 024.9858 349.4319 0011289 193.2674 166.7539 14.39838132084559
+FUSE 1
+1 25791U 99035A   01030.46327849  .00000841  00000-0  20740-3 0  1853
+2 25791  24.9859 352.3959 0011304 188.2132 171.8192 14.39837508 84484
+FUSE 1
+1 25791U 99035A   01029.97809487 +.00000835 +00000-0 +20546-3 0 01981
+2 25791 024.9857 355.3599 0011303 183.2284 176.8152 14.39836776084417
+FUSE 1
+1 25791U 99035A   01029.21566280  .00000836  00000-0  20576-3 0  1848
+2 25791  24.9858   0.0180 0011350 175.3074 184.7541 14.39835807 84301
+FUSE 1
+1 25791U 99035A   01028.93841499 +.00000830 +00000-0 +20392-3 0 02294
+2 25791 024.9857 001.7120 0011345 172.4854 187.5833 14.39835361084265
+FUSE 1
+1 25791U 99035A   01027.96804596 +.00000821 +00000-0 +20111-3 0 01864
+2 25791 024.9857 007.6404 0011373 162.4249 197.6654 14.39833987084123
+FUSE 1
+1 25791U 99035A   01026.85905350  .00000774  00000-0  18631-3 0  1828
+2 25791  24.9845  14.4272 0011225 151.2576 208.8553 14.39832070 83960
+FUSE 1
+1 25791U 99035A   01025.95799395 +.00000773 +00000-0 +18616-3 0 01909
+2 25791 024.9845 019.9320 0011218 141.9876 218.1434 14.39830995083837
+FUSE 1
+1 25791U 99035A   01025.47280699  .00000781  00000-0  18854-3 0  1811
+2 25791  24.9846  22.8964 0011235 137.2317 222.9063 14.39830514 83762
+FUSE 1
+1 25791U 99035A   01024.91830785 +.00000785 +00000-0 +18987-3 0 01952
+2 25791 024.9848 026.2846 0011214 131.5244 228.6226 14.39829899083683
+FUSE 1
+1 25791U 99035A   01024.22518426  .00000758  00000-0  18147-3 0  1803
+2 25791  24.9850  30.5196 0011218 123.7953 236.3624 14.39828802 83586
+FUSE 1
+1 25791U 99035A   01022.97755790 +.00000765 +00000-0 +18342-3 0 01805
+2 25791 024.9847 038.1420 0011197 110.9464 249.2242 14.39827391083409
+FUSE 1
+1 25791U 99035A   01022.90824523  .00000765  00000-0  18346-3 0  1791
+2 25791  24.9847  38.5654 0011197 110.2109 249.9602 14.39827310 83397
+FUSE 1
+1 25791U 99035A   01021.93786714 +.00000792 +00000-0 +19214-3 0 01821
+2 25791 024.9847 044.4944 0011176 100.2360 259.9412 14.39826436083253
+FUSE 1
+1 25791U 99035A   01021.52199043  .00000791  00000-0  19188-3 0  1783
+2 25791  24.9847  47.0345 0011184  95.8875 264.2905 14.39825918 83199
+FUSE 1
+1 25791U 99035A   01020.48229781  .00000782  00000-0  18904-3 0  1774
+2 25791  24.9841  53.3876 0011058  84.9507 275.2262 14.39824524 83047
+FUSE 1
+1 25791U 99035A   01019.23466394  .00000810  00000-0  19778-3 0  1769
+2 25791  24.9842  61.0115 0011055  71.9716 288.1993 14.39823278 82863
+FUSE 1
+1 25791U 99035A   01018.81878536 +.00000815 +00000-0 +19923-3 0 02046
+2 25791 024.9840 063.5519 0011051 067.5973 292.5699 14.39822788082809
+FUSE 1
+1 25791U 99035A   01017.84840102  .00000828  00000-0  20329-3 0  1759
+2 25791  24.9838  69.4799 0011044  57.4205 302.7356 14.39821674 82660
+FUSE 1
+1 25791U 99035A   01016.80870221 +.00000844 +00000-0 +20844-3 0 01759
+2 25791 024.9839 075.8311 0011035 046.6049 313.5376 14.39820510082512
+FUSE 1
+1 25791U 99035A   01012.85783892  .00000765  00000-0  18364-3 0  1719
+2 25791  24.9824  99.9904 0011095   5.3964 354.6663 14.39814661 81946
+FUSE 1
+1 25791U 99035A   01011.81813392  .00000754  00000-0  18014-3 0  1702
+2 25791  24.9823 106.3421 0011120 354.5641   5.4745 14.39813318 81795
+FUSE 1
+1 25791U 99035A   01010.84774202 +.00000728 +00000-0 +17200-3 0 01820
+2 25791 024.9826 112.2708 0011146 344.3870 015.6294 14.39811988081659
+FUSE 1
+1 25791U 99035A   01010.57048690  .00000725  00000-0  17100-3 0  1696
+2 25791  24.9825 113.9647 0011158 341.3954  18.6145 14.39811641 81611
+FUSE 1
+1 25791U 99035A   01009.87734870 +.00000732 +00000-0 +17321-3 0 02008
+2 25791 024.9824 118.1992 0011164 334.0178 025.9768 14.39810940081516
+FUSE 1
+1 25791U 99035A   01006.55028272  .00000853  00000-0  21119-3 0  1667
+2 25791  24.9829 138.5275 0011161 298.7980  61.1405 14.39808266 81030
+FUSE 1
+1 25791U 99035A   01005.23331831  .00000949  00000-0  24121-3 0  1650
+2 25791  24.9829 146.5736 0011130 284.7867  75.1402 14.39807380 80842
+FUSE 1
+1 25791U 99035A   01004.95606288 +.00000961 +00000-0 +24508-3 0 01933
+2 25791 024.9830 148.2673 0011129 281.7309 078.1948 14.39807093080804
+FUSE 1
+1 25791U 99035A   01004.12429643  .00001014  00000-0  26161-3 0  1645
+2 25791  24.9831 153.3490 0011081 272.9218  87.0015 14.39806304 80681
+FUSE 1
+1 25791U 99035A   01003.91635493 +.00001024 +00000-0 +26479-3 0 02041
+2 25791 024.9833 154.6194 0011082 270.5710 089.3526 14.39806079080658
+FUSE 1
+1 25791U 99035A   01002.94596086 +.00001080 +00000-0 +28217-3 0 01657
+2 25791 024.9835 160.5480 0011065 260.2028 099.7226 14.39805000080513
+FUSE 1
+1 25791U 99035A   01002.87664699  .00001085  00000-0  28401-3 0  1633
+2 25791  24.9835 160.9715 0011055 259.4691 100.4567 14.39804944 80506
+FUSE 1
+1 25791U 99035A   01001.90625279 +.00001148 +00000-0 +30354-3 0 01851
+2 25791 024.9836 166.9004 0011074 249.1527 110.7793 14.39803819080368
+FUSE 1
+1 25791U 99035A   01001.55968328  .00001172  00000-0  31103-3 0  1622
+2 25791  24.9835 169.0177 0011071 245.6535 114.2814 14.39803412 80316
+FUSE 1
+1 25791U 99035A   00366.24272051  .00001201  00000-0  32013-3 0  1615
+2 25791  24.9835 177.0632 0011054 231.9139 128.0369 14.39801117 80127
+FUSE 1
+1 25791U 99035A   00365.13370179  .00001276  00000-0  34372-3 0  1603
+2 25791  24.9782 183.8601 0011264 220.6704 139.2961 14.39798988 79968
+FUSE 1
+1 25791U 99035A   00363.88605187  .00001279  00000-0  34462-3 0  1594
+2 25791  24.9781 191.4825 0011236 207.4675 152.5240 14.39796242 79788
+FUSE 1
+1 25791U 99035A   00362.91565615 +.00001282 +00000-0 +34567-3 0 01880
+2 25791 024.9781 197.4116 0011250 197.2959 162.7167 14.39794117079649
+FUSE 1
+1 25791U 99035A   00361.52937650  .00001173  00000-0  31161-3 0  1570
+2 25791  24.9788 205.8833 0011253 183.0025 177.0420 14.39790123 79448
+FUSE 1
+1 25791U 99035A   00360.21240650  .00001095  00000-0  28697-3 0  1564
+2 25791  24.9795 213.9300 0011256 169.4207 190.6539 14.39786866 79258
+FUSE 1
+1 25791U 99035A   00358.89543401  .00000997  00000-0  25633-3 0  1551
+2 25791  24.9802 221.9784 0011166 156.0199 204.0842 14.39783673 79063
+FUSE 1
+1 25791U 99035A   00357.57846016  .00000809  00000-0  19747-3 0  1543
+2 25791  24.9811 230.0287 0011220 142.5559 217.5744 14.39779898 78875
+FUSE 1
+1 25791U 99035A   00356.33079409  .00000742  00000-0  17656-3 0  1532
+2 25791  24.9815 237.6510 0011207 129.3758 230.7742 14.39777765 78696
+FUSE 1
+1 25791U 99035A   00355.91490500 +.00000715 +00000-0 +16811-3 0 01738
+2 25791 024.9818 240.1930 0011125 125.1559 234.9994 14.39777043078634
+FUSE 1
+1 25791U 99035A   00355.22175552  .00000689  00000-0  15980-3 0  1522
+2 25791  24.9818 244.4279 0011116 117.9072 242.2571 14.39776049 78533
+FUSE 1
+1 25791U 99035A   00354.94449551 +.00000671 +00000-0 +15421-3 0 01715
+2 25791 024.9820 246.1228 0011092 115.1399 245.0262 14.39775609078498
+FUSE 1
+1 25791U 99035A   00354.18203097  .00000667  00000-0  15302-3 0  1515
+2 25791  24.9821 250.7805 0011090 107.2769 252.9059 14.39774846 78383
+FUSE 1
+1 25791U 99035A   00353.14230184  .00000588  00000-0  12827-3 0  1507
+2 25791  24.9841 257.1312 0011153  94.7945 265.3836 14.39773357 78236
+FUSE 1
+1 25791U 99035A   00351.89462457  .00000618  00000-0  13768-3 0  1494
+2 25791  24.9843 264.7546 0011143  81.4463 278.7305 14.39772637 78057
+FUSE 1
+1 25791U 99035A   00350.57762798  .00000713  00000-0  16757-3 0  1485
+2 25791  24.9838 272.8003 0011117  67.5108 292.6555 14.39772305 77863
+FUSE 1
+1 25791U 99035A   00349.95378601 +.00000801 +00000-0 +19521-3 0 01751
+2 25791 024.9839 276.6107 0011037 061.1524 299.0082 14.39772533077773
+FUSE 1
+1 25791U 99035A   00348.91404926 +.00000938 +00000-0 +23822-3 0 01543
+2 25791 024.9841 282.9613 0011060 050.5076 309.6402 14.39772572077629
+FUSE 1
+1 25791U 99035A   00348.22089271  .00000955  00000-0  24346-3 0  1472
+2 25791  24.9841 287.1948 0011058  43.2638 316.8736 14.39771669 77522
+FUSE 1
+1 25791U 99035A   00347.94362883 +.00001009 +00000-0 +26044-3 0 01831
+2 25791 024.9842 288.8885 0011102 040.6503 319.4819 14.39771783077486
+FUSE 1
+1 25791U 99035A   00344.20056550  .00001466  00000-0  40388-3 0  1450
+2 25791  24.9857 311.7525 0010921   1.7998 358.2548 14.39768887 76944
+FUSE 1
+1 25791U 99035A   00342.95287422 +.00001623 +00000-0 +45287-3 0 02453
+2 25791 024.9861 319.3741 0010868 348.9036 011.1207 14.39767344076766
+FUSE 1
+1 25791U 99035A   00341.91313263 +.00001697 +00000-0 +47635-3 0 02169
+2 25791 024.9862 325.7251 0010827 338.0727 021.9314 14.39765205076612
+FUSE 1
+1 25791U 99035A   00340.80407309 +.00001773 +00000-0 +50001-3 0 01795
+2 25791 024.9865 332.4995 0010780 326.3093 033.6722 14.39762765076452
+FUSE 1
+1 25791U 99035A   00339.97228129 +.00001440 +00000-0 +39551-3 0 01453
+2 25791 024.9788 337.5913 0010715 317.2047 042.7636 14.39758312076333
+FUSE 1
+1 25791U 99035A   00339.90296490  .00001431  00000-0  39277-3 0  1446
+2 25791  24.9788 338.0153 0010711 316.5102  43.4556 14.39758072 76326
+FUSE 1
+1 25791U 99035A   00338.93253567 +.00001650 +00000-0 +46156-3 0 01892
+2 25791 024.9780 343.9450 0010727 305.4403 054.5107 14.39756594076187
+FUSE 1
+1 25791U 99035A   00337.89278976 +.00002012 +00000-0 +57514-3 0 01474
+2 25791 024.9771 350.3001 0010560 294.2116 065.7285 14.39754923076031
+FUSE 1
+1 25791U 99035A   00337.54620726  .00002120  00000-0  60886-3 0  1432
+2 25791  24.9769 352.4170 0010591 290.1130  69.8236 14.39754084 75985
+FUSE 1
+1 25791U 99035A   00336.78372846 +.00002078 +00000-0 +59583-3 0 02103
+2 25791 024.9767 357.0797 0010598 283.2388 076.6938 14.39750755075878
+FUSE 1
+1 25791U 99035A   00335.81329748 +.00001963 +00000-0 +55983-3 0 01784
+2 25791 024.9768 003.0088 0010682 272.4500 087.4788 14.39746543075738
+FUSE 1
+1 25791U 99035A   00332.55541084  .00001441  00000-0  39598-3 0  1416
+2 25791  24.9789  22.9137 0010823 238.8335 121.1112 14.39732709 75269
+FUSE 1
+1 25791U 99035A   00329.50545449  .00001099  00000-0  28863-3 0  1407
+2 25791  24.9807  41.5484 0010919 206.6216 153.3741 14.39723397 74828
+FUSE 1
+1 25791U 99035A   00326.80207218  .00000755  00000-0  18065-3 0  1395
+2 25791  24.9826  58.0674 0010967 178.4838 181.5705 14.39716699 74439
+FUSE 1
+1 25791U 99035A   00325.90094187 +.00000678 +00000-0 +15666-3 0 02663
+2 25791 024.9830 063.5734 0010889 169.1263 190.9481 14.39715100074301
+FUSE 1
+1 25791U 99035A   00324.86117451 +.00000608 +00000-0 +13450-3 0 02311
+2 25791 024.9833 069.9269 0010882 158.3926 201.7040 14.39713575074155
+FUSE 1
+1 25791U 99035A   00323.96004177 +.00000488 +00000-0 +96967-4 0 01894
+2 25791 024.9842 075.4361 0010837 150.2956 209.8168 14.39712104074027
+FUSE 1
+1 25791U 99035A   00322.92027010 +.00000542 +00000-0 +11394-3 0 01510
+2 25791 024.9842 081.7899 0010800 140.3373 219.7924 14.39711850073875
+FUSE 1
+1 25791U 99035A   00322.57367987  .00000544  00000-0  11471-3 0  1384
+2 25791  24.9842  83.9087 0010770 137.0085 223.1269 14.39711602 73828
+FUSE 1
+1 25791U 99035A   00321.88049734 +.00000639 +00000-0 +14444-3 0 02068
+2 25791 024.9838 088.1431 0010747 130.4414 229.7025 14.39711664073729
+FUSE 1
+1 25791U 99035A   00319.45435949  .00001051  00000-0  27399-3 0  1370
+2 25791  24.9822 102.9641 0011109 102.6166 257.5577 14.39710812 73374
+FUSE 1
+1 25791U 99035A   00318.83049407 +.00001135 +00000-0 +30023-3 0 02126
+2 25791 024.9820 106.7751 0011100 096.2751 263.9015 14.39710072073281
+FUSE 1
+1 25791U 99035A   00317.92935383 +.00001328 +00000-0 +36094-3 0 01927
+2 25791 024.9815 112.2808 0011081 086.9676 273.2095 14.39708951073151
+FUSE 1
+1 25791U 99035A   00316.95889405 +.00001476 +00000-0 +40722-3 0 01547
+2 25791 024.9811 118.2117 0011162 076.8388 283.3367 14.39707302073012
+FUSE 1
+1 25791U 99035A   00316.54298192  .00001536  00000-0  42622-3 0  1367
+2 25791  24.9808 120.7548 0011167  72.5609 287.6119 14.39706598 72958
+FUSE 1
+1 25791U 99035A   00312.17588299  .00001526  00000-0  42309-3 0  1352
+2 25791  24.9810 147.4346 0011047  26.6311 333.4765 14.39694429 72327
+FUSE 1
+1 25791U 99035A   00311.89860506 +.00001531 +00000-0 +42464-3 0 02432
+2 25791 024.9811 149.1285 0011021 023.7582 336.3433 14.39693742072285
+FUSE 1
+1 25791U 99035A   00310.92813172 +.00001533 +00000-0 +42529-3 0 02234
+2 25791 024.9811 155.0570 0011011 013.6669 346.4135 14.39691108072141
+FUSE 1
+1 25791U 99035A   00309.95765612 +.00001545 +00000-0 +42918-3 0 01953
+2 25791 024.9811 160.9853 0010987 003.5007 356.5574 14.39688573072001
+FUSE 1
+1 25791U 99035A   00308.91785913 +.00001558 +00000-0 +43320-3 0 01631
+2 25791 024.9811 167.3377 0010936 352.6420 007.3927 14.39685825071856
+FUSE 1
+1 25791U 99035A   00307.94738084  .00001523  00000-0  42238-3 0  1347
+2 25791  24.9813 173.2666 0010902 342.2944  17.7187 14.39682876 71715
+FUSE 1
+1 25791U 99035A   00306.90758062 +.00001494 +00000-0 +41322-3 0 02161
+2 25791 024.9816 179.6189 0010843 331.2370 028.7545 14.39679852071566
+FUSE 1
+1 25791U 99035A   00305.93709941 +.00001422 +00000-0 +39070-3 0 01847
+2 25791 024.9820 185.5476 0010836 320.8016 039.1721 14.39676778071420
+FUSE 1
+1 25791U 99035A   00304.96661633 +.00001342 +00000-0 +36540-3 0 01518
+2 25791 024.9825 191.4771 0010878 310.3487 049.6069 14.39673761071285
+FUSE 1
+1 25791U 99035A   00304.48137472  .00001294  00000-0  35039-3 0  1332
+2 25791  24.9827 194.4415 0010840 305.2721  54.6774 14.39672228 71217
+FUSE 1
+1 25791U 99035A   00300.94603167 +.00001128 +00000-0 +29826-3 0 01487
+2 25791 024.9836 216.0428 0010846 267.5163 092.4104 14.39663463070709
+FUSE 1
+1 25791U 99035A   00300.32214586  .00001125  00000-0  29742-3 0  1329
+2 25791  24.9837 219.8536 0010864 260.8686  99.0595 14.39662271 70610
+FUSE 1
+1 25791U 99035A   00299.97554307 +.00001099 +00000-0 +28908-3 0 02622
+2 25791 024.9840 221.9723 0010883 257.3195 102.6096 14.39661414070562
+FUSE 1
+1 25791U 99035A   00298.93573357 +.00001095 +00000-0 +28804-3 0 02219
+2 25791 024.9842 228.3263 0010808 246.2256 113.7131 14.39659498070412
+FUSE 1
+1 25791U 99035A   00297.96524296 +.00001101 +00000-0 +28980-3 0 01840
+2 25791 024.9843 234.2549 0010819 235.8887 124.0592 14.39657800070277
+FUSE 1
+1 25791U 99035A   00296.92543051 +.00001198 +00000-0 +32020-3 0 01469
+2 25791 024.9839 240.6071 0010755 225.0055 134.9574 14.39656593070122
+FUSE 1
+1 25791U 99035A   00296.23222249  .00001231  00000-0  33056-3 0  1318
+2 25791  24.9837 244.8414 0010747 217.7619 142.2134 14.39655396 70025
+FUSE 1
+1 25791U 99035A   00295.95493830 +.00001341 +00000-0 +36537-3 0 02570
+2 25791 024.9831 246.5364 0010694 214.7072 145.2732 14.39655631069985
+FUSE 1
+1 25791U 99035A   00294.98444509 +.00001216 +00000-0 +32610-3 0 02121
+2 25791 024.9831 252.4518 0011171 205.6776 154.3176 14.39652293069842
+FUSE 1                    
+1 25791U 99035A   00292.97413670  .00001233  00000-0  33120-3 0  1465
+2 25791  24.9832 264.7305 0011154 184.3003 175.7409 14.39648196 69551
+FUSE 1
+1 25791U 99035A   00292.21160463  .00001227  00000-0  32957-3 0  1304
+2 25791  24.9833 269.3878 0011141 176.2888 183.7705 14.39646543 69445
+FUSE 1
+1 25791U 99035A   00290.96382404  .00001125  00000-0  29744-3 0  2033
+2 25791  24.9839 277.0093 0011248 162.9629 197.1281 14.39643362 69263
+FUSE 1
+1 25791U 99035A   00289.92400452  .00001005  00000-0  25962-3 0  1697
+2 25791  24.9842 283.3623 0011271 152.1446 207.9673 14.39640561 69117
+FUSE 1
+1 25791U 99035A   00288.88418235  .00000939  00000-0  23889-3 0  1296
+2 25791  24.9839 289.7161 0011345 141.9406 218.1903 14.39638291 68963
+FUSE 1
+1 25791U 99035A   00286.94317390  .00000937  00000-0  23849-3 0  2050
+2 25791  24.9842 301.5720 0011377 121.8967 238.2636 14.39635355 68688
+FUSE 1
+1 25791U 99035A   00284.93283722  .00000946  00000-0  24124-3 0  1290
+2 25791  24.9844 313.8517 0011349 101.4953 258.6830 14.39632282 68394
+FUSE 1
+1 25791U 99035A   00283.82368229  .00001113  00000-0  29370-3 0  2356
+2 25791  24.9845 320.6276 0011360  90.5778 269.6031 14.39631230 68239
+FUSE 1
+1 25791U 99035A   00281.18943126  .00001671  00000-0  46933-3 0  1271
+2 25791  24.9838 336.7203 0011242  63.6820 296.4846 14.39626315 67854
+FUSE 1
+1 25791U 99035A   00279.87230155  .00001498  00000-0  41495-3 0  1843
+2 25791  24.9836 344.7657 0011284  49.9927 310.1569 14.39621506 67667
+FUSE 1
+1 25791U 99035A   00278.13922732  .00001349  00000-0  36829-3 0  1266
+2 25791  24.9841 355.3497 0011217  31.6026 328.5162 14.39615977 67417
+FUSE 1
+1 25791U 99035A   00275.92088045 +.00001249 +00000-0 +33679-3 0 02260
+2 25791 024.9846 008.8984 0011149 008.1796 351.8898 14.39610187067097
+FUSE 1
+1 25791U 99035A   00274.88102724 +.00001183 +00000-0 +31605-3 0 01932
+2 25791 024.9847 015.2496 0011092 357.4607 002.5840 14.39607485066943
+FUSE 1
+1 25791U 99035A   00273.91049603 +.00001143 +00000-0 +30335-3 0 01587
+2 25791 024.9849 021.1778 0011061 347.4078 012.6154 14.39605252066806
+FUSE 1
+1 25791U 99035A   00272.87063947  .00001058  00000-0  27682-3 0  1258
+2 25791  24.9850  27.5285 0010951 336.1587  23.8412 14.39602697 66652
+FUSE 1
+1 25791U 99035A   00271.90010587 +.00000952 +00000-0 +24332-3 0 02019
+2 25791 024.9849 033.4553 0010904 326.2752 033.7061 14.39600291066519
+FUSE 1
+1 25791U 99035A   00270.86024700 +.00000806 +00000-0 +19727-3 0 01755
+2 25791 024.9848 039.8050 0010873 315.4400 044.5233 14.39597817066368
+FUSE 1
+1 25791U 99035A   00269.95903493 +.00000698 +00000-0 +16343-3 0 01422
+2 25791 024.9847 045.3098 0010847 305.7600 054.1897 14.39596109066238
+FUSE 1
+1 25791U 99035A   00269.19647060  .00000662  00000-0  15206-3 0  1241
+2 25791  24.9847  49.9681 0010790 297.8206  62.1208 14.39595085 66121
+FUSE 1
+1 25791U 99035A   00265.93823791 +.00000839 +00000-0 +20769-3 0 01602
+2 25791 024.9853 069.8642 0010925 262.8653 097.0612 14.39592139065654
+FUSE 1
+1 25791U 99035A   00264.89837713  .00000866  00000-0  21632-3 0  1234
+2 25791  24.9853  76.2157 0010914 251.7893 108.1424 14.39590766 65501
+FUSE 1
+1 25791U 99035A   00263.85851584 +.00000759 +00000-0 +18267-3 0 02468
+2 25791 024.9844 082.5656 0011036 240.7792 119.1611 14.39588783065356
+FUSE 1
+1 25791U 99035A   00262.95730211 +.00000987 +00000-0 +25418-3 0 02190
+2 25791 024.9843 088.0698 0011108 231.2492 128.7025 14.39588229065220
+FUSE 1
+1 25791U 99035A   00261.91744362 +.00000854 +00000-0 +21237-3 0 01903
+2 25791 024.9840 094.4417 0011199 219.5461 140.4230 14.39586929065079
+FUSE 1
+1 25791U 99035A   00260.94690555 +.00000874 +00000-0 +21887-3 0 01496
+2 25791 024.9839 100.3694 0011196 209.3232 150.6648 14.39585857064930
+FUSE 1
+1 25791U 99035A   00260.60028428  .00000895  00000-0  22526-3 0  1228
+2 25791  24.9838 102.4866 0011182 205.8154 154.1794 14.39585645 64882
+FUSE 1
+1 25791U 99035A   00257.89664249 +.00000980 +00000-0 +25207-3 0 01574
+2 25791 024.9797 119.0147 0011228 178.5341 181.5202 14.39582285064499
+FUSE 1
+1 25791U 99035A   00256.92610205 +.00001007 +00000-0 +26048-3 0 01317
+2 25791 024.9796 124.9428 0011260 168.6067 191.4699 14.39580956064354
+FUSE 1
+1 25791U 99035A   00256.57948045  .00001009  00000-0  26113-3 0  1218
+2 25791  24.9796 127.0600 0011258 164.9452 195.1394 14.39580392 64306
+FUSE 1
+1 25791U 99035A   00255.95556083 +.00001022 +00000-0 +26540-3 0 02272
+2 25791 024.9796 130.8705 0011304 158.5484 201.5503 14.39579482064212
+FUSE 1
+1 25791U 99035A   00254.91569423 +.00001012 +00000-0 +26236-3 0 01998
+2 25791 024.9795 137.2214 0011318 147.7697 212.3506 14.39577628064064
+FUSE 1
+1 25791U 99035A   00253.94515052 +.00000993 +00000-0 +25614-3 0 01704
+2 25791 024.9796 143.1491 0011353 137.8454 222.2931 14.39575858063927
+FUSE 1
+1 25791U 99035A   00252.90528132 +.00000931 +00000-0 +23692-3 0 01337
+2 25791 024.9802 149.5025 0011353 127.3223 232.8322 14.39573664063773
+FUSE 1
+1 25791U 99035A   00252.21203297  .00000929  00000-0  23624-3 0  1201
+2 25791  24.9802 153.7367 0011354 120.2792 239.8836 14.39572606 63674
+FUSE 1
+1 25791U 99035A   00250.96418540 +.00000820 +00000-0 +20171-3 0 02317
+2 25791 024.9813 161.3571 0011231 106.6703 253.5039 14.39569924063499
+FUSE 1
+1 25791U 99035A   00249.92430983 +.00000751 +00000-0 +18005-3 0 01973
+2 25791 024.9819 167.7098 0011202 095.9335 264.2451 14.39568010063344
+FUSE 1
+1 25791U 99035A   00248.95375648 +.00000728 +00000-0 +17305-3 0 01641
+2 25791 024.9822 173.6380 0011200 085.7277 274.4508 14.39566715063209
+FUSE 1
+1 25791U 99035A   00247.98320188 +.00000685 +00000-0 +15936-3 0 01204
+2 25791 024.9827 179.5664 0011177 075.4057 284.7689 14.39565289063062
+FUSE 1
+1 25791U 99035A   00247.91387641  .00000685  00000-0  15938-3 0  1194
+2 25791  24.9827 179.9897 0011176  74.6798 285.4945 14.39565219 63051
+FUSE 1
+1 25791U 99035A   00243.89298918 +.00000627 +00000-0 +14121-3 0 01217
+2 25791 024.9838 204.5495 0011279 032.6718 327.4493 14.39560964062474
+FUSE 1
+1 25791U 99035A   00243.54635985  .00000620  00000-0  13900-3 0  1181
+2 25791  24.9838 206.6661 0011299  29.0913 331.0222 14.39560578 62428
+FUSE 1
+1 25791U 99035A   00242.92242652 +.00000636 +00000-0 +14397-3 0 02524
+2 25791 024.9839 210.4766 0011308 022.5635 337.5375 14.39560193062331
+FUSE 1
+1 25791U 99035A   00241.95186248 +.00000663 +00000-0 +15237-3 0 02180
+2 25791 024.9839 216.4045 0011240 012.3907 347.6875 14.39559570062199
+FUSE 1
+1 25791U 99035A   00241.11995000 +.00000705 +00000-0 +16585-3 0 01905
+2 25791 024.9843 221.4849 0011230 004.1902 355.8697 14.39559225062072
+FUSE 1
+1 25791U 99035A   00240.14938556 +.00000715 +00000-0 +16878-3 0 01535
+2 25791 024.9843 227.4129 0011265 353.6646 006.3718 14.39558267061935
+FUSE 1
+1 25791U 99035A   00239.24814579  .00000768  00000-0  18562-3 0  1172
+2 25791  24.9851 232.9197 0011057 343.6898  16.3253 14.39557918 61800
+FUSE 1
+1 25791U 99035A   00237.16836108 +.00000937 +00000-0 +23867-3 0 01265
+2 25791 024.9852 245.6242 0010930 321.1150 038.8565 14.39556840061509
+FUSE 1
+1 25791U 99035A   00236.47509969  .00000981  00000-0  25253-3 0  1169
+2 25791  24.9852 249.8576 0010910 313.5211  46.4389 14.39556202 61406
+FUSE 1
+1 25791U 99035A   00236.12846894 +.00001006 +00000-0 +26041-3 0 02540
+2 25791 024.9853 251.9740 0010908 310.0331 049.9215 14.39555895061353
+FUSE 1
+1 25791U 99035A   00234.18733724 +.00001106 +00000-0 +29194-3 0 01914
+2 25791 024.9856 263.8291 0010929 289.3257 070.6065 14.39553537061071
+FUSE 1
+1 25791U 99035A   00233.97935917 +.00001108 +00000-0 +29254-3 0 01827
+2 25791 024.9855 265.0992 0010925 287.2111 072.7202 14.39553153061041
+FUSE 1
+1 25791U 99035A   00232.93946679 +.00001150 +00000-0 +30606-3 0 01414
+2 25791 024.9859 271.4505 0010949 275.8605 084.0653 14.39551685060899
+FUSE 1
+1 25791U 99035A   00232.24620540  .00001162  00000-0  30984-3 0  1157
+2 25791  24.9861 275.6842 0010947 268.2547  91.6703 14.39550498 60791
+FUSE 1
+1 25791U 99035A   00230.85968265 +.00001168 +00000-0 +31152-3 0 01841
+2 25791 024.9861 284.1498 0010908 253.3956 106.5351 14.39547810060596
+FUSE 1
+1 25791U 99035A   00229.88911656 +.00001173 +00000-0 +31324-3 0 01650
+2 25791 024.9862 290.0753 0010918 243.1432 116.7994 14.39545953060451
+FUSE 1
+1 25791U 99035A   00228.84922713 +.00001681 +00000-0 +47341-3 0 01392
+2 25791 024.9833 296.4467 0010541 233.3366 126.6176 14.39544754060304
+FUSE 1
+1 25791U 99035A   00228.22529183  .00001437  00000-0  39642-3 0  1145
+2 25791  24.9839 300.2597 0010660 226.7882 133.1742 14.39542247 60216
+FUSE 1
+1 25791U 99035A   00227.87866114 +.00001204 +00000-0 +32286-3 0 01748
+2 25791 024.9843 302.3743 0010672 222.4107 137.5583 14.39540549060161
+FUSE 1
+1 25791U 99035A   00226.90809209 +.00001066 +00000-0 +27935-3 0 01531
+2 25791 024.9844 308.3015 0010818 212.0864 147.8990 14.39538035060025
+FUSE 1
+1 25791U 99035A   00225.86819636 +.00000875 +00000-0 +21927-3 0 01240
+2 25791 024.9839 314.6498 0010966 200.7238 159.2827 14.39535222059879
+FUSE 1
+1 25791U 99035A   00225.59089041  .00000839  00000-0  20809-3 0  1135
+2 25791  24.9841 316.3434 0010990 198.0059 162.0059 14.39534638 59833
+FUSE 1
+1 25791U 99035A   00222.88715209 +.00000729 +00000-0 +17338-3 0 01575
+2 25791 024.9839 332.8560 0011113 170.5138 189.5580 14.39530485059440
+FUSE 1
+1 25791U 99035A   00221.91657699 +.00000732 +00000-0 +17430-3 0 01315
+2 25791 024.9840 338.7844 0011141 160.6691 199.4239 14.39529454059307
+FUSE 1
+1 25791U 99035A   00221.15398144  .00000741  00000-0  17714-3 0  1122
+2 25791  24.9839 343.4418 0011158 152.7937 207.3154 14.39528689 59199
+FUSE 1
+1 25791U 99035A   00219.90609556 +.00000787 +00000-0 +19148-3 0 01712
+2 25791 024.9839 351.0626 0011186 140.1583 219.9740 14.39527697059013
+FUSE 1
+1 25791U 99035A   00218.93551634 +.00000842 +00000-0 +20903-3 0 01383
+2 25791 024.9842 356.9905 0011221 130.2195 229.9294 14.39527076058879
+FUSE 1
+1 25791U 99035A   00218.24224392  .00000911  00000-0  23076-3 0  1117
+2 25791  24.9837   1.2239 0011126 122.7808 237.3779 14.39526803 58771
+FUSE 1
+1 25791U 99035A   00216.92502528 +.00000994 +00000-0 +25698-3 0 01359
+2 25791 024.9840 009.2668 0011090 109.2022 250.9670 14.39525666058583
+FUSE 1
+1 25791U 99035A   00215.95444232 +.00001073 +00000-0 +28173-3 0 01224
+2 25791 024.9846 015.1947 0011165 099.5630 260.6137 14.39524901058446
+FUSE 1
+1 25791U 99035A   00215.19184019  .00001121  00000-0  29713-3 0  1106
+2 25791  24.9845  19.8506 0011155  91.5631 268.6149 14.39524011 58330
+FUSE 1
+1 25791U 99035A   00213.87461582 +.00001234 +00000-0 +33255-3 0 01563
+2 25791 024.9851 027.8945 0011173 078.5475 281.6282 14.39522670058145
+FUSE 1
+1 25791U 99035A   00212.90402845 +.00001276 +00000-0 +34584-3 0 01363
+2 25791 024.9853 033.8211 0011136 068.8066 291.3628 14.39521095058004
+FUSE 1
+1 25791U 99035A   00212.14142266  .00001313  00000-0  35764-3 0  1090
+2 25791  24.9850  38.4778 0011130  60.7162 299.4447 14.39519790 57895
+FUSE 1
+1 25791U 99035A   00209.92292793 +.00001396 +00000-0 +38383-3 0 01533
+2 25791 024.9849 052.0258 0011073 037.5021 322.6251 14.39515598057579
+FUSE 1
+1 25791U 99035A   00208.95233548 +.00001473 +00000-0 +40802-3 0 01252
+2 25791 024.9837 057.9580 0011424 026.9665 333.1435 14.39514058057430
+FUSE 1
+1 25791U 99035A   00208.18972549  .00001576  00000-0  44071-3 0  1085
+2 25791  24.9833  62.6176 0011472  18.7210 341.3716 14.39512347 57328
+FUSE 1
+1 25791U 99035A   00206.94181514 +.00001511 +00000-0 +42008-3 0 01921
+2 25791 024.9854 070.2405 0011038 006.6126 353.4533 14.39509278057141
+FUSE 1
+1 25791U 99035A   00205.97121710 +.00001487 +00000-0 +41266-3 0 01685
+2 25791 024.9852 076.1701 0011017 356.2364 003.8067 14.39506509057005
+FUSE 1
+1 25791U 99035A   00204.93128816 +.00001476 +00000-0 +40903-3 0 01386
+2 25791 024.9852 082.5219 0010972 345.2641 014.7546 14.39503741056855
+FUSE 1
+1 25791U 99035A   00203.96068597 +.00001638 +00000-0 +46010-3 0 01113
+2 25791 024.9851 088.4485 0010910 335.3315 024.6669 14.39501677056711
+FUSE 1
+1 25791U 99035A   00203.89135786  .00001602  00000-0  44873-3 0  1071
+2 25791  24.9852  88.8720 0010897 334.6954  25.3042 14.39501366 56700
+FUSE 1
+1 25791U 99035A   00201.95014789 +.00001572 +00000-0 +43936-3 0 01799
+2 25791 024.9852 100.7256 0010918 312.2678 047.6911 14.39496898056421
+FUSE 1
+1 25791U 99035A   00200.97954187 +.00001738 +00000-0 +49182-3 0 01451
+2 25791 024.9852 106.6535 0010962 301.6227 058.3210 14.39494751056288
+FUSE 1
+1 25791U 99035A   00199.93960649 +.00001805 +00000-0 +51300-3 0 01117
+2 25791 024.9853 113.0050 0010969 290.2578 069.6750 14.39491667056133
+FUSE 1
+1 25791U 99035A   00199.87027750  .00001803  00000-0  51229-3 0  1069
+2 25791  24.9852 113.4283 0010971 289.5399  70.3926 14.39491421 56120
+FUSE 1
+1 25791U 99035A   00198.96900068 +.00001318 +00000-0 +35923-3 0 01266
+2 25791 024.9850 118.9330 0011332 279.9281 079.9947 14.39486512055993
+FUSE 1
+1 25791U 99035A   00198.20638092  .00001053  00000-0  27558-3 0  1056
+2 25791  24.9852 123.5922 0011255 271.8947  88.0275 14.39483842 55884
+FUSE 1
+1 25791U 99035A   00195.91851583  .00000689  00000-0  16100-3 0  1047
+2 25791  24.9847 137.5630 0011254 247.8427 112.0894 14.39478555 55558
+FUSE 1
+1 25791U 99035A   00194.94790513 +.00000622 +00000-0 +13965-3 0 02217
+2 25791 024.9845 143.4897 0011244 237.8927 122.0496 14.39476756055415
+FUSE 1
+1 25791U 99035A   00193.97729403 +.00000584 +00000-0 +12775-3 0 01820
+2 25791 024.9847 149.4236 0011293 228.1708 131.7837 14.39475391055278
+FUSE 1
+1 25791U 99035A   00192.93735201 +.00000550 +00000-0 +11684-3 0 01414
+2 25791 024.9846 155.7737 0011308 217.3578 142.6152 14.39474212055121
+FUSE 1
+1 25791U 99035A   00191.96673850 +.00000542 +00000-0 +11437-3 0 01065
+2 25791 024.9844 161.7002 0011295 207.2529 152.7388 14.39473399054981
+FUSE 1
+1 25791U 99035A   00191.89740911  .00000540  00000-0  11391-3 0  1034
+2 25791  24.9843 162.1235 0011294 206.5071 153.4866 14.39473330 54979
+FUSE 1
+1 25791U 99035A   00188.91623713 +.00000545 +00000-0 +11536-3 0 01387
+2 25791 024.9846 180.3280 0011401 175.5058 184.5555 14.39471262054549
+FUSE 1
+1 25791U 99035A   00187.94562172 +.00000562 +00000-0 +12095-3 0 01032
+2 25791 024.9848 186.2545 0011434 165.3569 194.7270 14.39470796054403
+FUSE 1
+1 25791U 99035A   00187.87629207  .00000562  00000-0  12095-3 0  1026
+2 25791  24.9848 186.6777 0011434 164.6313 195.4544 14.39470742 54394
+FUSE 1
+1 25791U 99035A   00183.57784536  .00000667  00000-0  15416-3 0  1011
+2 25791  24.9855 212.9320 0011413 120.5817 239.5821 14.39468389 53779
+FUSE 1
+1 25791U 99035A   00181.91392783 +.00000671 +00000-0 +15546-3 0 01789
+2 25791 024.9854 223.1058 0011337 102.1276 258.0499 14.39467140053535
+FUSE 1
+1 25791U 99035A   00180.87397553 +.00000700 +00000-0 +16442-3 0 01445
+2 25791 024.9852 229.4559 0011322 091.4012 268.7791 14.39466353053381
+FUSE 1
+1 25791U 99035A   00179.97268238 +.00000726 +00000-0 +17280-3 0 01057
+2 25791 024.9855 234.9604 0011315 082.3086 277.8702 14.39465677053255
+FUSE 1
+1 25791U 99035A   00179.55670036  .00000742  00000-0  17762-3 0  1002
+2 25791  24.9855 237.5004 0011277  78.2476 281.9296 14.39465389 53199
+FUSE 1
+1 25791U 99035A   00178.86339700 +.00000752 +00000-0 +18089-3 0 02381
+2 25791 024.9856 241.7337 0011290 070.9195 289.2531 14.39464704053090
+FUSE 1
+1 25791U 99035A   00177.89277115 +.00000766 +00000-0 +18548-3 0 02031
+2 25791 024.9859 247.6607 0011289 060.8540 299.3095 14.39463739052956
+FUSE 1
+1 25791U 99035A   00176.92214342 +.00000800 +00000-0 +19601-3 0 01665
+2 25791 024.9859 253.5881 0011190 051.0927 309.0575 14.39462915052810
+FUSE 1
+1 25791U 99035A   00175.88218431 +.00000816 +00000-0 +20117-3 0 01315
+2 25791 024.9862 259.9387 0011137 040.3293 319.8037 14.39461801052661
+FUSE 1
+1 25791U 99035A   00175.25820859  .00000821  00000-0  20275-3 0   993
+2 25791  24.9863 263.7490 0011148  33.8548 326.2678 14.39461054 52575
+FUSE 1
+1 25791U 99035A   00173.87159264 +.00000872 +00000-0 +21895-3 0 01978
+2 25791 024.9863 272.2156 0011038 020.3739 339.7205 14.39459774052379
+FUSE 1
+1 25791U 99035A   00172.90096122 +.00000862 +00000-0 +21562-3 0 01592
+2 25791 024.9869 278.1422 0011016 010.0480 350.0243 14.39458368052232
+FUSE 1
+1 25791U 99035A   00171.93032817 +.00000868 +00000-0 +21744-3 0 01290
+2 25791 024.9870 284.0679 0010950 359.6225 000.4272 14.39457116052091
+FUSE 1
+1 25791U 99035A   00170.95969467 +.00000873 +00000-0 +21901-3 0 01001
+2 25791 024.9872 289.9957 0010930 349.1807 010.8463 14.39455848051955
+FUSE 1
+1 25791U 99035A   00170.89036360  .00000875  00000-0  21983-3 0   989
+2 25791  24.9872 290.4190 0010916 348.4366  11.5890 14.39455786 51949
+FUSE 1
+1 25791U 99035A   00167.83979740 +.00000834 +00000-0 +20689-3 0 01244
+2 25791 024.9865 309.0441 0011049 315.9144 044.0481 14.39451106051509
+FUSE 1
+1 25791U 99035A   00166.93849291 +.00000817 +00000-0 +20146-3 0 00991
+2 25791 024.9866 314.5466 0011043 306.5008 053.4481 14.39449711051375
+FUSE 1
+1 25791U 99035A   00166.86916175  .00000816  00000-0  20127-3 0   975
+2 25791  24.9867 314.9701 0011045 305.7696  54.1782 14.39449617 51364
+FUSE 1
+1 25791U 99035A   00165.89852612 +.00001393 +00000-0 +38331-3 0 01420
+2 25791 024.9880 320.9003 0010529 293.0245 066.9309 14.39451820051226
+FUSE 1
+1 25791U 99035A   00164.92788963 +.00001058 +00000-0 +27751-3 0 01130
+2 25791 024.9900 326.8234 0010700 286.6900 073.2425 14.39448463051080
+FUSE 1
+1 25791U 99035A   00164.58123317  .00001414  00000-0  39006-3 0   960
+2 25791  24.9895 328.9405 0010608 283.0060  76.9260 14.39449353 51032
+FUSE 1
+1 25791U 99035A   00163.88792360 +.00001009 +00000-0 +26201-3 0 01988
+2 25791 024.9902 333.1737 0010422 276.0922 083.8398 14.39446429050938
+FUSE 1
+1 25791U 99035A   00162.91728936 +.00000838 +00000-0 +20810-3 0 01731
+2 25791 024.9924 339.1014 0009907 267.6684 092.2688 14.39444419050790
+FUSE                    
+1 25791U 99035A   00160.90668101  .00000585  00000-0  12820-3 0  1084
+2 25791  24.9857 351.3806 0010965 243.0464 116.8920 14.39441160 50501
+FUSE                    
+1 25791U 99035A   00159.93604429  .00000520  00000-0  10769-3 0  2088
+2 25791  24.9857 357.3078 0010932 232.6720 127.2791 14.39439999 50364
+FUSE                    
+1 25791U 99035A   00158.89607500  .00000535  00000-0  11232-3 0  1828
+2 25791  24.9859   3.6563 0011010 221.7464 138.2204 14.39439406 50216
+FUSE                    
+1 25791U 99035A   00157.92543755  .00000593  00000-0  13055-3 0  1551
+2 25791  24.9862   9.5835 0010973 212.1855 147.7986 14.39438945 50075
+FUSE                    
+1 25791U 99035A   00156.95479994  .00000684  00000-0  15953-3 0  1220
+2 25791  24.9855  15.5108 0010936 202.2301 157.7734 14.39438339 49934
+FUSE                    
+1 25791U 99035A   00153.90422121  .00000864  00000-0  21631-3 0  1165
+2 25791  24.9865  34.1388 0011133 170.3555 189.7168 14.39436079 49494
+FUSE                    
+1 25791U 99035A   00152.93358165  .00000892  00000-0  22526-3 0  1001
+2 25791  24.9870  40.0657 0011211 160.4686 199.6263 14.39435106 49358
+FUSE                    
+1 25791U 99035A   00151.96294208  .00000727  00000-0  17304-3 0  1612
+2 25791  24.9867  45.9944 0011211 149.4582 210.6578 14.39433226 49218
+FUSE 1
+1 25791U 99035A   00150.92296786 +.00000783 +00000-0 +19073-3 0 01460
+2 25791 024.9865 052.3453 0011336 140.3401 219.7938 14.39432403049060
+FUSE 1
+1 25791U 99035A   00149.95232539 +.00000829 +00000-0 +20521-3 0 01198
+2 25791 024.9864 058.2759 0011314 130.9449 229.2035 14.39431340048923
+FUSE 1
+1 25791U 99035A   00148.91235042  .00001108  00000-0  29356-3 0   921
+2 25791  24.9862  64.6309 0011392 119.2869 240.8777 14.39431427 48776
+FUSE 1
+1 25791U 99035A   00146.97105909 +.00001049 +00000-0 +27490-3 0 01217
+2 25791 024.9860 076.4928 0011034 100.1008 260.0730 14.39427312048499
+FUSE 1
+1 25791U 99035A   00145.93107729 +.00001195 +00000-0 +32101-3 0 01053
+2 25791 024.9858 082.8448 0010906 089.5878 270.5877 14.39425983048340
+FUSE 1
+1 25791U 99035A   00144.96042610 +.00001210 +00000-0 +32585-3 0 00943
+2 25791 024.9858 088.7713 0010797 079.6238 280.5487 14.39424047048201
+FUSE 1
+1 25791U 99035A   00144.89109336  .00001242  00000-0  33587-3 0   919
+2 25791  24.9856  89.1955 0010755  78.9603 281.2108 14.39424127 48199
+FUSE 1
+1 25791U 99035A   00143.92043990 +.00001286 +00000-0 +34981-3 0 01362
+2 25791 024.9853 095.1215 0010661 068.9516 291.2131 14.39422329048054
+FUSE 1
+1 25791U 99035A   00142.94978508 +.00001390 +00000-0 +38255-3 0 01224
+2 25791 024.9849 101.0495 0010673 058.3816 301.7746 14.39420789047916
+FUSE 1
+1 25791U 99035A   00141.97912863 +.00001410 +00000-0 +38914-3 0 01076
+2 25791 024.9848 106.9769 0010693 048.0107 312.1315 14.39418518047773
+FUSE 1
+1 25791U 99035A   00140.31514173  .00001395  00000-0  38437-3 0   908
+2 25791  24.9846 117.1387 0010720  30.1996 329.9129 14.39414225 47534
+FUSE 1
+1 25791U 99035A   00139.96847802 +.00001336 +00000-0 +36555-3 0 01225
+2 25791 024.9846 119.2585 0010753 026.5593 333.5472 14.39413031047485
+FUSE 1
+1 25791U 99035A   00138.30448417 +.00000986 +00000-0 +25496-3 0 01032
+2 25791 024.9849 129.4190 0010807 008.4590 351.6103 14.39408079047241
+FUSE 1
+1 25791U 99035A   00138.16581799 +.00000917 +00000-0 +23330-3 0 00989
+2 25791 024.9852 130.2683 0010800 006.3941 353.6704 14.39407532047222
+FUSE 1
+1 25791U 99035A   00137.33381884  .00000891  00000-0  22495-3 0   892
+2 25791  24.9849 135.3478 0010942 358.1038   1.9431 14.39406114 47100
+FUSE 1
+1 25791U 99035A   00137.12581947 +.00000782 +00000-0 +19067-3 0 01443
+2 25791 024.9853 136.6194 0010936 354.9891 005.0518 14.39405165047070
+FUSE 1
+1 25791U 99035A   00136.15515183 +.00000717 +00000-0 +17007-3 0 01309
+2 25791 024.9856 142.5472 0011025 344.6838 015.3341 14.39403617046937
+FUSE 1
+1 25791U 99035A   00135.11514942 +.00000688 +00000-0 +16101-3 0 01150
+2 25791 024.9856 148.8977 0011074 333.6712 026.3233 14.39402271046789
+FUSE 1
+1 25791U 99035A   00134.14447983 +.00000686 +00000-0 +16024-3 0 01019
+2 25791 024.9858 154.8255 0011141 323.3354 036.6390 14.39401238046645
+FUSE 1
+1 25791U 99035A   00133.24314397  .00000697  00000-0  16371-3 0   882
+2 25791  24.9859 160.3315 0011225 313.9280  46.0306 14.39400350 46513
+FUSE 1
+1 25791U 99035A   00132.13380598 +.00000799 +00000-0 +19602-3 0 01249
+2 25791 024.9855 167.1074 0011235 302.2916 057.6506 14.39399858046356
+FUSE 1
+1 25791U 99035A   00130.46979970 +.00000876 +00000-0 +22019-3 0 01108
+2 25791 024.9854 177.2667 0011205 284.7991 075.1274 14.39398379046117
+FUSE 1
+1 25791U 99035A   00129.42979604 +.00000935 +00000-0 +23904-3 0 00958
+2 25791 024.9855 183.6177 0011214 273.6439 086.2789 14.39397418045968
+FUSE 1
+1 25791U 99035A   00129.22179542  .00000943  00000-0  24155-3 0   878
+2 25791  24.9857 184.8897 0011260 271.3687  88.5531 14.39397203 45932
+FUSE 1
+1 25791U 99035A   00124.57644568  .00001168  00000-0  31255-3 0   864
+2 25791  24.9853 213.2548 0011424 222.2133 137.7495 14.39390992 45261
+FUSE 1
+1 25791U 99035A   00123.60577526 +.00001181 +00000-0 +31680-3 0 01291
+2 25791 024.9854 219.1824 0011455 212.1770 147.8041 14.39389176045129
+FUSE 1
+1 25791U 99035A   00122.63510361 +.00001231 +00000-0 +33248-3 0 01161
+2 25791 024.9854 225.1097 0011461 201.9716 158.0303 14.39387621044982
+FUSE 1
+1 25791U 99035A   00121.66443151 +.00001251 +00000-0 +33895-3 0 01031
+2 25791 024.9854 231.0388 0011524 192.1664 167.8570 14.39385753044847
+FUSE 1
+1 25791U 99035A   00120.69375881 +.00001261 +00000-0 +34204-3 0 00919
+2 25791 024.9855 236.9674 0011466 182.0966 177.9496 14.39383716044709
+FUSE 1
+1 25791U 99035A   00120.55509156  .00001252  00000-0  33924-3 0   859
+2 25791  24.9857 237.8165 0011446 180.8748 179.1742 14.39383343 44689
+FUSE 1
+1 25791U 99035A   00118.68307534 +.00001268 +00000-0 +34428-3 0 01247
+2 25791 024.9853 249.2479 0011337 161.2641 198.8291 14.39379290044418
+FUSE 1
+1 25791U 99035A   00117.71239774 +.00001285 +00000-0 +34957-3 0 01099
+2 25791 024.9854 255.1775 0011271 151.1573 208.9557 14.39377287044279
+FUSE 1
+1 25791U 99035A   00116.74171833 +.00001334 +00000-0 +36531-3 0 00984
+2 25791 024.9851 261.1035 0011286 140.4017 219.7326 14.39375466044138
+FUSE 1
+1 25791U 99035A   00115.77103748  .00001336  00000-0  36589-3 0   846
+2 25791  24.9850 267.0332 0011164 130.0444 230.1046 14.39373163 43997
+FUSE 1
+1 25791U 99035A   00114.80035556 +.00001323 +00000-0 +36184-3 0 01051
+2 25791 024.9850 272.9636 0011139 118.8594 241.3037 14.39370701043855
+FUSE 1
+1 25791U 99035A   00113.48299633 +.00001343 +00000-0 +36805-3 0 00918
+2 25791 024.9847 281.0129 0011026 104.5281 255.6449 14.39367716043665
+FUSE 1
+1 25791U 99035A   00112.58164220 +.00001325 +00000-0 +36244-3 0 00895
+2 25791 024.9847 286.5147 0010991 094.9470 265.2284 14.39365442043531
+FUSE 1
+1 25791U 99035A   00111.61095147  .00001385  00000-0  38153-3 0   830
+2 25791  24.9843 292.4418 0011151  84.3852 275.7943 14.39363622 43390
+FUSE 1
+1 25791U 99035A   00110.57092100 +.00001565 +00000-0 +43855-3 0 00880
+2 25791 024.9834 298.7936 0011325 073.8814 286.2937 14.39362514043241
+FUSE 1
+1 25791U 99035A   00108.62952641 +.00001728 +00000-0 +49007-3 0 00851
+2 25791 024.9828 310.6444 0011254 054.3518 305.8020 14.39358127042962
+FUSE 1
+1 25791U 99035A   00107.93616998 +.00001752 +00000-0 +49756-3 0 00843
+2 25791 024.9826 314.8766 0011241 047.0226 313.1227 14.39356131042867
+FUSE 1
+1 25791U 99035A   00107.86683435  .00001753  00000-0  49803-3 0   827
+2 25791  24.9827 315.3009 0011242  46.2771 313.8667 14.39355927 42857
+FUSE 1
+1 25791U 99035A   00105.85608578  .00002056  00000-0  59388-3 0   814
+2 25791  24.9817 327.5892 0010873  23.0273 337.0569 14.39351807 42560
+FUSE 1
+1 25791U 99035A   00104.67736936 +.00002243 +00000-0 +65292-3 0 00823
+2 25791 024.9813 334.7843 0010911 011.3549 348.7002 14.39348712042394
+FUSE 1
+1 25791U 99035A   00103.91467118 +.00002381 +00000-0 +69669-3 0 00816
+2 25791 024.9810 339.4400 0010675 002.0282 358.0252 14.39346695042287
+FUSE 1
+1 25791U 99035A   00103.01329876 +.00002405 +00000-0 +70441-3 0 01194
+2 25791 024.9809 344.9404 0010670 352.8750 007.1606 14.39342875042158
+FUSE 1
+1 25791U 99035A   00101.97324977 +.00002555 +00000-0 +75197-3 0 01137
+2 25791 024.9805 351.2909 0010643 342.0641 017.9481 14.39339226042005
+FUSE 1
+1 25791U 99035A   00101.07187295 +.00002583 +00000-0 +76093-3 0 01124
+2 25791 024.9805 356.7922 0010619 332.7422 027.2531 14.39335099041874
+FUSE 1
+1 25791U 99035A   00100.10115731 +.00002671 +00000-0 +78880-3 0 00968
+2 25791 024.9799 002.7214 0010593 322.7422 037.2356 14.39330819041734
+FUSE 1
+1 25791U 99035A   00099.13043908  .00002590  00000-0  76309-3 0   799
+2 25791  24.9798   8.6538 0010792 311.2745  48.6840 14.39325505 41593
+FUSE 1
+1 25791U 99035A   00098.09037990 +.00002445 +00000-0 +71735-3 0 00851
+2 25791 024.9802 015.0028 0010995 299.5824 060.3584 14.39319881041446
+FUSE 1
+1 25791U 99035A   00097.11965747 +.00002329 +00000-0 +68059-3 0 00815
+2 25791 024.9804 020.9278 0010970 289.9717 069.9613 14.39314724041301
+FUSE 1
+1 25791U 99035A   00096.14893064 +.00002270 +00000-0 +66193-3 0 00877
+2 25791 024.9807 026.8527 0011076 279.9873 079.9390 14.39310047041167
+FUSE 1
+1 25791U 99035A   00095.17820409 +.00002063 +00000-0 +59661-3 0 00795
+2 25791 024.9813 032.7786 0011255 270.8469 089.0777 14.39304208041025
+FUSE 1
+1 25791U 99035A   00094.20747091  .00001992  00000-0  57410-3 0   771
+2 25791  24.9816  38.7034 0011419 261.0932  98.8284 14.39299966 40887
+FUSE 1
+1 25791U 99035A   00092.19666424  .00001729  00000-0  49103-3 0   764
+2 25791  24.9822  50.9810 0011573 241.7849 118.1493 14.39290662 40595
+FUSE 1
+1 25791U 99035A   00090.18584768 +.00001549 +00000-0 +43389-3 0 00794
+2 25791 024.9830 063.2550 0011512 221.2878 138.6763 14.39283008040302
+FUSE 1
+1 25791U 99035A   00089.28444503  .00001459  00000-0  40539-3 0   755
+2 25791  24.9832  68.7566 0011380 211.8222 148.1602 14.39279719 40179
+FUSE 1
+1 25791U 99035A   00088.31370039 +.00001360 +00000-0 +37404-3 0 00961
+2 25791 024.9836 074.6816 0011423 202.4456 157.5555 14.39276438040031
+FUSE 1
+1 25791U 99035A   00088.03634565 +.00001304 +00000-0 +35643-3 0 00913
+2 25791 024.9839 076.3760 0011454 200.2734 159.7366 14.39275277039997
+FUSE 1
+1 25791U 99035A   00087.20427617 +.00001254 +00000-0 +34072-3 0 00840
+2 25791 024.9841 081.4558 0011382 191.8207 168.2033 14.39272923039870
+FUSE 1
+1 25791U 99035A   00086.23352802  .00001203  00000-0  32440-3 0   745
+2 25791  24.9842  87.3815 0011279 181.4280 178.6196 14.39270365 39731
+FUSE 1
+1 25791U 99035A   00084.22268757 +.00001077 +00000-0 +28473-3 0 00961
+2 25791 024.9845 099.6586 0011009 160.1136 199.9804 14.39265143039448
+FUSE 1
+1 25791U 99035A   00083.18259301 +.00001067 +00000-0 +28137-3 0 00832
+2 25791 024.9846 106.0081 0010977 149.2929 210.8223 14.39263170039292
+FUSE 1
+1 25791U 99035A   00082.21183569  .00001096  00000-0  29069-3 0   733
+2 25791  24.9846 111.9346 0010974 139.3047 220.8279 14.39261692 39153
+FUSE 1
+1 25791U 99035A   00081.17173683 +.00001160 +00000-0 +31097-3 0 01011
+2 25791 024.9843 118.2860 0010946 128.6797 231.4693 14.39260290039008
+FUSE 1
+1 25791U 99035A   00080.20097578 +.00001213 +00000-0 +32794-3 0 00880
+2 25791 024.9841 124.2128 0010923 118.8383 241.3214 14.39258856038864
+FUSE 1
+1 25791U 99035A   00079.23021298  .00001324  00000-0  36292-3 0   720
+2 25791  24.9837 130.1398 0010979 108.5196 251.6496 14.39257774 38722
+FUSE 1
+1 25791U 99035A   00077.21934109 +.00001513 +00000-0 +42309-3 0 00861
+2 25791 024.9829 142.4172 0010838 088.8266 271.3475 14.39254631038434
+FUSE 1
+1 25791U 99035A   00075.55516719  .00001577  00000-0  44314-3 0   711
+2 25791  24.9825 152.5756 0010789  71.5815 288.5864 14.39250628 38191
+FUSE 1
+1 25791U 99035A   00073.61362244 +.00001623 +00000-0 +45792-3 0 01149
+2 25791 024.9823 164.4274 0010664 051.3108 308.8354 14.39245491037910
+FUSE 1
+1 25791U 99035A   00072.64284711 +.00001597 +00000-0 +44979-3 0 01015
+2 25791 024.9825 170.3543 0010564 040.8844 319.2456 14.39242488037772
+FUSE 1
+1 25791U 99035A   00071.67206979 +.00001573 +00000-0 +44222-3 0 00864
+2 25791 024.9826 176.2815 0010546 030.4691 329.6435 14.39239518037632
+FUSE 1
+1 25791U 99035A   00070.56260671  .00001532  00000-0  42912-3 0   702
+2 25791  24.9828 183.0544 0010529  18.3343 341.7543 14.39236091 37479
+FUSE 1
+1 25791U 99035A   00068.69038219 +.00001413 +00000-0 +39162-3 0 00952
+2 25791 024.9834 194.4830 0010533 358.2154 001.8316 14.39230155037209
+FUSE 1
+1 25791U 99035A   00067.71959612 +.00001335 +00000-0 +36691-3 0 00815
+2 25791 024.9838 200.4095 0010552 347.4671 012.5574 14.39227138037065
+FUSE 1
+1 25791U 99035A   00066.74880810  .00001316  00000-0  36063-3 0   698
+2 25791  24.9838 206.3364 0010621 337.4200  22.5842 14.39224685 36920
+FUSE 1
+1 25791U 99035A   00065.77801832 +.00001263 +00000-0 +34378-3 0 00998
+2 25791 024.9841 212.2629 0010676 326.5841 033.3993 14.39222062036782
+FUSE 1
+1 25791U 99035A   00064.80722849 +.00001189 +00000-0 +32036-3 0 00830
+2 25791 024.9845 218.1911 0010778 316.3193 043.6474 14.39219324036645
+FUSE 1
+1 25791U 99035A   00063.76709448 +.00001101 +00000-0 +29240-3 0 00718
+2 25791 024.9849 224.5412 0010871 305.4534 054.4961 14.39216487036499
+FUSE 1
+1 25791U 99035A   00063.55906739  .00001088  00000-0  28832-3 0   683
+2 25791  24.9850 225.8120 0010913 303.1719  56.7740 14.39215991 36464
+FUSE 1
+1 25791U 99035A   00061.82550819 +.00000982 +00000-0 +25477-3 0 00960
+2 25791 024.9855 236.3933 0010864 286.6270 073.3045 14.39211998036219
+FUSE 1
+1 25791U 99035A   00060.85471378 +.00000901 +00000-0 +22923-3 0 00845
+2 25791 024.9863 242.3201 0010848 276.7178 083.2098 14.39209859036077
+FUSE 1
+1 25791U 99035A   00059.88391871  .00000826  00000-0  20540-3 0   675
+2 25791  24.9869 248.2490 0010930 267.1229  92.8030 14.39207865 35932
+FUSE 1
+1 25791U 99035A   00058.91312284 +.00000781 +00000-0 +19097-3 0 00977
+2 25791 024.9873 254.1768 0010925 257.3125 102.6165 14.39206249035799
+FUSE 1
+1 25791U 99035A   00057.94232639 +.00000728 +00000-0 +17411-3 0 00816
+2 25791 024.9875 260.1056 0011055 247.8021 112.1316 14.39204614035655
+FUSE 1
+1 25791U 99035A   00056.62481384 +.00000758 +00000-0 +18375-3 0 00670
+2 25791 024.9875 268.1502 0011129 234.2119 125.7313 14.39203424035463
+FUSE 1
+1 25791U 99035A   00055.86204329  .00000793  00000-0  19497-3 0   661
+2 25791  24.9873 272.8046 0011161 226.1863 133.7679 14.39202825 35354
+FUSE 1
+1 25791U 99035A   00054.68321769 +.00000848 +00000-0 +21235-3 0 01001
+2 25791 024.9871 279.9967 0011112 213.5611 146.4207 14.39201763035188
+FUSE 1
+1 25791U 99035A   00053.98979045 +.00000850 +00000-0 +21296-3 0 00974
+2 25791 024.9870 284.2284 0011076 206.2727 153.7221 14.39200822035085
+FUSE 1
+1 25791U 99035A   00053.01899083 +.00000935 +00000-0 +24004-3 0 00830
+2 25791 024.9867 290.1552 0011204 196.3192 163.6959 14.39200205034940
+FUSE 1
+1 25791U 99035A   00052.04819115 +.00000994 +00000-0 +25875-3 0 00719
+2 25791 024.9868 296.0811 0011283 186.4833 173.5531 14.39199236034805
+FUSE 1
+1 25791U 99035A   00051.90950592  .00000987  00000-0  25647-3 0   650
+2 25791  24.9870 296.9294 0011270 185.1807 174.8586 14.39198964 34783
+FUSE 1
+1 25791U 99035A   00048.85841520  .00001297  00000-0  35475-3 0   644
+2 25791  24.9866 315.5528 0011618 154.5181 205.5896 14.39195818 34340
+FUSE 1
+1 25791U 99035A   00048.09564157 +.00001343 +00000-0 +36946-3 0 01229
+2 25791 024.9864 320.2075 0011655 146.8674 213.2566 14.39194413034238
+FUSE 1
+1 25791U 99035A   00047.12483713 +.00001391 +00000-0 +38482-3 0 01095
+2 25791 024.9864 326.1324 0011683 137.2771 222.8642 14.39192494034095
+FUSE 1
+1 25791U 99035A   00046.15403192 +.00001360 +00000-0 +37483-3 0 00949
+2 25791 024.9866 332.0573 0011665 127.2938 232.8638 14.39189972033950
+FUSE 1
+1 25791U 99035A   00045.18322419 +.00001296 +00000-0 +35475-3 0 00793
+2 25791 024.9869 337.9835 0011586 117.6016 242.5669 14.39187410033812
+FUSE 1
+1 25791U 99035A   00044.21241546  .00001146  00000-0  30690-3 0   638
+2 25791  24.9869 343.9091 0011473 107.1762 253.0006 14.39184536 33672
+FUSE 1
+1 25791U 99035A   00042.20144618 +.00000911 +00000-0 +23237-3 0 00758
+2 25791 024.9867 356.1818 0011249 085.1954 274.9841 14.39179242033387
+FUSE 1
+1 25791U 99035A   00041.92407140  .00000833  00000-0  20764-3 0   629
+2 25791  24.9866 357.8759 0011123  81.8578 278.3201 14.39178018 33348
+FUSE 1
+1 25791U 99035A   00041.16128579 +.00000812 +00000-0 +20105-3 0 01066
+2 25791 024.9865 002.5305 0011143 073.4503 286.7237 14.39176773033231
+FUSE 1
+1 25791U 99035A   00040.19046659 +.00000730 +00000-0 +17515-3 0 00919
+2 25791 024.9864 008.4561 0011054 062.5359 297.6273 14.39174760033097
+FUSE 1
+1 25791U 99035A   00038.31816651  .00000622  00000-0  14075-3 0   612
+2 25791  24.9860  19.8837 0010946  41.9661 318.1684 14.39171741 32822
+FUSE 1
+1 25791U 99035A   00035.19765343 +.00000599 +00000-0 +13337-3 0 00754
+2 25791 024.9862 038.9297 0010966 008.7816 351.2878 14.39168833032372
+FUSE 1
+1 25791U 99035A   00034.22682512  .00000609  00000-0  13670-3 0   609
+2 25791  24.9863  44.8546 0010985 358.5324   1.5150 14.39168123 32232
+FUSE 1
+1 25791U 99035A   00033.18665576 +.00000568 +00000-0 +12356-3 0 01126
+2 25791 024.9855 051.2265 0011261 347.2812 012.7409 14.39167162032084
+FUSE 1
+1 25791U 99035A   00032.21582678 +.00000591 +00000-0 +13078-3 0 00970
+2 25791 024.9855 057.1532 0011294 337.1761 022.8245 14.39166555031942
+FUSE 1
+1 25791U 99035A   00031.17565214 +.00000642 +00000-0 +14694-3 0 00805
+2 25791 024.9852 063.5033 0011303 326.2800 033.6988 14.39166094031795
+FUSE 1
+1 25791U 99035A   00030.20482266 +.00000686 +00000-0 +16093-3 0 00659
+2 25791 024.9850 069.4311 0011343 315.6598 044.3015 14.39165560031659
+FUSE 1
+1 25791U 99035A   00029.44202816  .00000689  00000-0  16196-3 0   594
+2 25791  24.9849  74.0872 0011363 307.3743  52.5733 14.39164796 31549
+FUSE 1
+1 25791U 99035A   00027.43102888  .00000569  00000-0  18032-3 0   586
+2 25791  24.9851  86.3260 0010521 286.4177  73.5622 14.39162573 31251
+FUSE 1
+1 25791U 99035A   00025.55871179  .00000869  00000-0  21924-3 0   579
+2 25791  24.9844  97.7947 0011481 266.0116  93.9082 14.39161817 30989
+FUSE 1
+1 25791U 99035A   00023.61705451 +.00000924 +00000-0 +23647-3 0 00872
+2 25791 024.9842 109.6465 0011662 245.5194 114.4098 14.39159561030703
+FUSE 1
+1 25791U 99035A   00022.57688135 +.00000962 +00000-0 +24873-3 0 00723
+2 25791 024.9839 115.9974 0011736 234.7227 125.2184 14.39158302030554
+FUSE 1
+1 25791U 99035A   00022.29950177 +.00001003 +00000-0 +26163-3 0 00619
+2 25791 024.9838 117.6930 0011736 231.8231 128.1224 14.39158246030517
+FUSE 1
+1 25791U 99035A   00021.53670825  .00000998  00000-0  26013-3 0   564
+2 25791  24.9840 122.3487 0011792 223.8474 136.1104 14.39156968 30405
+FUSE 1
+1 25791U 99035A   00020.42719000 +.00000962 +00000-0 +24860-3 0 00907
+2 25791 024.9842 129.1211 0011913 212.6223 147.3555 14.39154882030249
+FUSE 1
+1 25791U 99035A   00019.66439581 +.00000966 +00000-0 +24995-3 0 00839
+2 25791 024.9840 133.7768 0011844 204.5957 155.3985 14.39153669030138
+FUSE 1
+1 25791U 99035A   00018.62422196 +.00000928 +00000-0 +23794-3 0 00696
+2 25791 024.9842 140.1276 0011782 194.0350 165.9832 14.39151690029988
+FUSE 1
+1 25791U 99035A   00017.44535596  .00000854  00000-0  21447-3 0   550
+2 25791  24.9848 147.3221 0011810 182.6957 177.3499 14.39149382 29814
+FUSE 1
+1 25791U 99035A   00014.53285856  .00000615  00000-0  13854-3 0   545
+2 25791  24.9856 165.1015 0011407 153.4049 206.7053 14.39143679 29391
+FUSE 1
+1 25791U 99035A   00013.56202232 +.00000571 +00000-0 +12445-3 0 00786
+2 25791 024.9857 171.0254 0011318 143.0152 217.1149 14.39142418029251
+FUSE 1
+1 25791U 99035A   00012.72987589 +.00000562 +00000-0 +12183-3 0 00732
+2 25791 024.9854 176.1050 0011284 133.7108 226.4334 14.39141611029137
+FUSE 1
+1 25791U 99035A   00011.62034564 +.00000527 +00000-0 +11055-3 0 00633
+2 25791 024.9855 182.8750 0011249 121.8036 238.3572 14.39140431028974
+FUSE 1
+1 25791U 99035A   00010.71885112 +.00000512 +00000-0 +10577-3 0 00569
+2 25791 024.9854 188.3761 0011274 111.8566 248.3147 14.39139621028845
+FUSE 1
+1 25791U 99035A   00009.88670072  .00000501  00000-0  10250-3 0   535
+2 25791  24.9854 193.4536 0011262 103.0112 257.1659 14.39138969 28726
+FUSE 1
+1 25791U 99035A   00006.83547797  .00000337  00000-0  10675-3 0   521
+2 25791  24.9869 212.0479 0011133  74.0467 286.1742 14.39136665 28280
+FUSE 1
+1 25791U 99035A   00005.93397487 +.00000522 +00000-0 +10899-3 0 00546
+2 25791 024.9856 217.5808 0011349 060.5895 299.5747 14.39136473028152
+FUSE 1
+1 25791U 99035A   00005.86462875  .00000520  00000-0  10857-3 0   511
+2 25791  24.9857 218.0047 0011344  59.7788 300.3845 14.39136413 28143
+FUSE 1
+1 25791U 99035A   00004.96312675 +.00000518 +00000-0 +10767-3 0 01139
+2 25791 024.9860 223.5077 0011297 050.2547 309.8954 14.39135812028010
+FUSE 1
+1 25791U 99035A   00003.99227761 +.00000520 +00000-0 +10842-3 0 00981
+2 25791 024.9861 229.4342 0011263 039.8658 320.2678 14.39135178027878
+FUSE 1
+1 25791U 99035A   00003.02142715 +.00000562 +00000-0 +12179-3 0 00835
+2 25791 024.9860 235.3606 0011286 029.7368 330.3779 14.39134850027732
+FUSE 1
+1 25791U 99035A   00001.98122961 +.00000601 +00000-0 +13433-3 0 00657
+2 25791 024.9860 241.7105 0011303 018.8712 341.2214 14.39134376027580
+FUSE 1
+1 25791U 99035A   00001.01037721  .00000666  00000-0  15478-3 0   506
+2 25791  24.9859 247.6366 0011281   8.7106 351.3596 14.39134101 27448
+FUSE 1
+1 25791U 99035A   99363.09781835  .00000899  00000-0  22901-3 0   490
+2 25791  24.9851 265.4129 0011197 338.4602  21.5436 14.39132626 27028
+FUSE 1
+1 25791U 99035A   99362.12696497 +.00000961 +00000-0 +24848-3 0 00922
+2 25791 024.9849 271.3386 0011184 327.9746 032.0084 14.39131724026881
+FUSE 1
+1 25791U 99035A   99361.15611130 +.00001034 +00000-0 +27194-3 0 00799
+2 25791 024.9846 277.2653 0011182 317.4471 042.5171 14.39130801026740
+FUSE 1
+1 25791U 99035A   99360.11591130 +.00001087 +00000-0 +28861-3 0 00623
+2 25791 024.9844 283.6152 0011205 306.4053 053.5421 14.39129438026590
+FUSE 1
+1 25791U 99035A   99359.14505772  .00001123  00000-0  30012-3 0   487
+2 25791  24.9844 289.5405 0011210 296.0081  63.9276 14.39127971 26455
+FUSE 1
+1 25791U 99035A   99357.20334989 +.00001185 +00000-0 +31974-3 0 00927
+2 25791 024.9845 301.3934 0011276 275.1736 084.7487 14.39124778026179
+FUSE 1
+1 25791U 99035A   99355.19229507 +.00001143 +00000-0 +30633-3 0 00589
+2 25791 024.9845 313.6688 0011427 254.6519 105.2727 14.39120370025887
+FUSE 1
+1 25791U 99035A   99354.91490853  .00001110  00000-0  29599-3 0   473
+2 25791  24.9845 315.3629 0011470 251.8385 108.0875 14.39119513 25847
+FUSE 1
+1 25791U 99035A   99354.15209340 +.00001101 +00000-0 +29307-3 0 01038
+2 25791 024.9845 320.0181 0011509 244.1536 115.7785 14.39117975025732
+FUSE 1
+1 25791U 99035A   99353.18123792 +.00001083 +00000-0 +28726-3 0 00881
+2 25791 024.9845 325.9428 0011452 234.1361 125.8092 14.39115978025590
+FUSE 1
+1 25791U 99035A   99352.21038154 +.00001042 +00000-0 +27447-3 0 00762
+2 25791 024.9843 331.8688 0011469 224.5539 135.4048 14.39113821025458
+FUSE 1
+1 25791U 99035A   99351.17017792 +.00000973 +00000-0 +25237-3 0 00577
+2 25791 024.9847 338.2189 0011485 214.2213 145.7558 14.39111421025300
+FUSE 1
+1 25791U 99035A   99350.33801333  .00000951  00000-0  24529-3 0   463
+2 25791  24.9846 343.2967 0011487 205.5729 154.4211 14.39109889 25180
+FUSE 1
+1 25791U 99035A   99350.19931958 +.00000933 +00000-0 +23956-3 0 00962
+2 25791 024.9848 344.1445 0011512 204.4239 155.5731 14.39109519025163
+FUSE 1
+1 25791U 99035A   99348.39629426 +.00000823 +00000-0 +20475-3 0 00865
+2 25791 024.9849 355.1452 0011441 185.7566 174.2811 14.39105974024908
+FUSE 1
+1 25791U 99035A   99348.18825288 +.00000798 +00000-0 +19683-3 0 00787
+2 25791 024.9851 356.4159 0011443 183.9954 176.0469 14.39105492024872
+FUSE 1
+1 25791U 99035A   99347.21739099 +.00000760 +00000-0 +18478-3 0 00593
+2 25791 024.9852 002.3410 0011413 174.2811 185.7832 14.39103915024736
+FUSE 1
+1 25791U 99035A   99346.24652782  .00000754  00000-0  18291-3 0   459
+2 25791  24.9852   8.2668 0011377 164.2548 195.8318 14.39102692 24597
+FUSE 1
+1 25791U 99035A   99344.23544964 +.00000756 +00000-0 +18345-3 0 00821
+2 25791 024.9851 020.5393 0011315 143.9081 216.2195 14.39100353024308
+FUSE 1
+1 25791U 99035A   99343.19523523 +.00000758 +00000-0 +18405-3 0 00642
+2 25791 024.9849 026.8884 0011251 133.1541 226.9914 14.39099103024150
+FUSE 1
+1 25791U 99035A   99342.15501899 +.00000788 +00000-0 +19383-3 0 00479
+2 25791 024.9847 033.2384 0011205 122.0799 238.0799 14.39098132024006
+FUSE 1
+1 25791U 99035A   99341.53088842  .00000788  00000-0  19382-3 0   444
+2 25791  24.9847  37.0461 0011204 115.5981 244.5688 14.39097368 23911
+FUSE 1
+1 25791U 99035A   99341.18414898 +.00000797 +00000-0 +19666-3 0 00927
+2 25791 024.9845 039.1646 0011110 111.9666 248.2014 14.39096976023865
+FUSE 1
+1 25791U 99035A   99340.21327751 +.00000821 +00000-0 +20422-3 0 00796
+2 25791 024.9844 045.0894 0011092 101.8687 258.3063 14.39095956023723
+FUSE 1
+1 25791U 99035A   99339.24240445 +.00000860 +00000-0 +21656-3 0 00626
+2 25791 024.9842 051.0146 0011088 091.5490 268.6286 14.39094994023586
+FUSE 1
+1 25791U 99035A   99337.57804728 +.00000910 +00000-0 +23264-3 0 00454
+2 25791 024.9838 061.1710 0011103 073.9223 286.2502 14.39093024023340
+FUSE 1
+1 25791U 99035A   99337.50869901  .00000916  00000-0  23465-3 0   438
+2 25791  24.9838  61.5940 0011123  73.3216 286.8513 14.39092988 23332
+FUSE 1
+1 25791U 99035A   99336.53782164 +.00000978 +00000-0 +25413-3 0 00775
+2 25791 024.9835 067.5184 0011185 063.0696 297.0953 14.39091962023198
+FUSE 1
+1 25791U 99035A   99335.91368480 +.00001057 +00000-0 +27938-3 0 00668
+2 25791 024.9832 071.3272 0011211 056.4491 303.7082 14.39091557023104
+FUSE 1
+1 25791U 99035A   99334.66541084 +.00001103 +00000-0 +29413-3 0 00563
+2 25791 024.9829 078.9441 0011175 043.3897 316.7490 14.39089668022921
+FUSE 1
+1 25791U 99035A   99333.55583168  .00001182  00000-0  31912-3 0   428
+2 25791  24.9828  85.7150 0011228  31.8546 328.2638 14.39088163 22768
+FUSE 1
+1 25791U 99035A   99332.72364624 +.00001252 +00000-0 +34147-3 0 00926
+2 25791 024.9822 090.7928 0011318 023.1121 336.9895 14.39086934022646
+FUSE 1
+1 25791U 99035A   99330.71252915 +.00001370 +00000-0 +37884-3 0 00621
+2 25791 024.9815 103.0720 0011456 002.2762 357.7803 14.39083149022351
+FUSE 1
+1 25791U 99035A   99330.01903979 +.00001341 +00000-0 +36977-3 0 00515
+2 25791 024.9813 107.3056 0011522 355.0936 004.9469 14.39081189022254
+FUSE 1
+1 25791U 99035A   99329.53359692  .00001309  00000-0  35954-3 0   414
+2 25791  24.9818 110.2720 0011533 349.7266  10.3016 14.39079811 22188
+FUSE 1
+1 25791U 99035A   99328.00791539 +.00001217 +00000-0 +33021-3 0 00742
+2 25791 024.9820 119.5846 0011565 334.1745 025.8190 14.39075614021963
+FUSE 1
+1 25791U 99035A   99326.82897714 +.00001154 +00000-0 +31024-3 0 00585
+2 25791 024.9826 126.7842 0011751 321.2678 038.6990 14.39072676021790
+FUSE 1
+1 25791U 99035A   99325.51133788  .00001054  00000-0  27855-3 0   401
+2 25791  24.9847 134.8467 0011912 304.6034  55.3277 14.39069633 21609
+FUSE 1
+1 25791U 99035A   99322.80670431 +.00001256 +00000-0 +34276-3 0 00411
+2 25791 024.9836 151.3552 0012041 275.3401 084.5737 14.39066077021213
+FUSE 1
+1 25791U 99035A   99321.62776187 +.00001252 +00000-0 +34139-3 0 00408
+2 25791 024.9837 158.5475 0012055 262.9443 096.9715 14.39063501021043
+FUSE 1
+1 25791U 99035A   99320.79556237  .00001252  00000-0  34144-3 0   391
+2 25791  24.9836 163.6246 0012002 254.4359 105.4616 14.39061664 20929
+FUSE 1
+1 25791U 99035A   99318.99247388 +.00001603 +00000-0 +45300-3 0 00424
+2 25791 024.9830 174.6225 0011785 234.5772 125.3639 14.39059706020668
+FUSE 1
+1 25791U 99035A   99318.85377493  .00001636  00000-0  46351-3 0   388
+2 25791  24.9833 175.4706 0011739 232.8226 127.1216 14.39059600 20640
+FUSE 1
+1 25791U 99035A   99316.98133499  .00000949  00000-0  24506-3 0   379
+2 25791  24.9842 186.9003 0011834 213.5350 146.4412 14.39050830 20375
+FUSE 1
+1 25791U 99035A   99316.77328072  .00000093  00000-0 -27298-4 0   361
+2 25791  24.9851 188.1733 0012103 214.4787 145.4516 14.39045117 20346
+FUSE 1
+1 25791U 99035A   99316.01043130  .00001289  00000-0  35317-3 0   353
+2 25791  24.9823 192.8263 0011574 206.8856 153.1047 14.39050776 20238
+FUSE 1
+1 25791U 99035A   99314.06863125 +.00000807 +00000-0 +19978-3 0 00675
+2 25791 024.9828 204.6728 0011620 187.0114 173.0230 14.39045484019952
+FUSE 1
+1 25791U 99035A   99313.09772812 +.00000806 +00000-0 +19960-3 0 00668
+2 25791 024.9828 210.5953 0011621 176.8561 183.2018 14.39044261019815
+FUSE 1
+1 25791U 99035A   99312.12682443 +.00000807 +00000-0 +20004-3 0 00607
+2 25791 024.9830 216.5187 0011630 166.7136 193.3684 14.39043064019674
+FUSE 1
+1 25791U 99035A   99311.08656905 +.00000824 +00000-0 +20537-3 0 00492
+2 25791 024.9827 222.8664 0011566 156.1383 203.9662 14.39041822019523
+FUSE 1
+1 25791U 99035A   99310.11566272  .00000873  00000-0  22108-3 0   346
+2 25791  24.9823 228.7931 0011439 146.3502 213.7733 14.39040863 19380
+FUSE 1
+1 25791U 99035A   99309.14475480 +.00000912 +00000-0 +23325-3 0 00624
+2 25791 024.9823 234.7169 0011382 136.4568 223.6834 14.39039788019240
+FUSE 1
+1 25791U 99035A   99308.17384628 +.00000917 +00000-0 +23509-3 0 00594
+2 25791 024.9823 240.6396 0011384 126.3110 233.8450 14.39038400019103
+FUSE 1
+1 25791U 99035A   99307.20293604 +.00000929 +00000-0 +23900-3 0 00509
+2 25791 024.9824 246.5634 0011348 116.2606 243.9068 14.39037064018967
+FUSE 1
+1 25791U 99035A   99306.16267374 +.00000901 +00000-0 +22981-3 0 00427
+2 25791 024.9827 252.9105 0011294 105.3472 254.8283 14.39035306018815
+FUSE 1
+1 25791U 99035A   99305.26111145  .00000880  00000-0  22322-3 0   336
+2 25791  24.9828 258.4108 0011278  95.9573 264.2230 14.39033878 18682
+FUSE 1
+1 25791U 99035A   99302.14030694 +.00000777 +00000-0 +19052-3 0 00420
+2 25791 024.9830 277.4546 0011155 063.6998 296.4659 14.39029030018237
+FUSE 1
+1 25791U 99035A   99301.23873747  .00000793  00000-0  19553-3 0   326
+2 25791  24.9829 282.9548 0011144  54.1449 306.0093 14.39027991 18102
+FUSE 1
+1 25791U 99035A   99300.19846426 +.00000688 +00000-0 +16220-3 0 00785
+2 25791 024.9829 289.3031 0011097 042.8698 317.2674 14.39026119017959
+FUSE 1
+1 25791U 99035A   99299.15818884 +.00000714 +00000-0 +17059-3 0 00607
+2 25791 024.9835 295.6560 0010854 031.9536 328.1631 14.39025229017802
+FUSE 1
+1 25791U 99035A   99298.11791199 +.00000847 +00000-0 +21277-3 0 00447
+2 25791 024.9832 302.0031 0010894 020.7345 339.3596 14.39024199017655
+FUSE 1
+1 25791U 99035A   99297.21633808  .00000871  00000-0  22050-3 0   312
+2 25791  24.9833 307.5043 0010887  10.9937 349.0810 14.39022966 17522
+FUSE 1
+1 25791U 99035A   99295.27448293 +.00000936 +00000-0 +24130-3 0 00647
+2 25791 024.9834 319.3563 0010756 350.0772 009.9521 14.39020654017243
+FUSE 1
+1 25791U 99035A   99294.16484983 +.00001000 +00000-0 +26157-3 0 00453
+2 25791 024.9829 326.1256 0010800 338.5647 021.4408 14.39019299017082
+FUSE 1
+1 25791U 99035A   99293.19392082  .00001020  00000-0  26791-3 0   303
+2 25791  24.9828 332.0506 0010781 328.4327  31.5533 14.39017852 16944
+FUSE 1
+1 25791U 99035A   99292.77780736 +.00001020 +00000-0 +26806-3 0 00883
+2 25791 024.9827 334.5890 0010781 324.0963 035.8778 14.39017148016883
+FUSE 1
+1 25791U 99035A   99292.15363794 +.00001076 +00000-0 +28568-3 0 00761
+2 25791 024.9826 338.3998 0010857 316.4441 043.5205 14.39016547016796
+FUSE 1
+1 25791U 99035A   99291.18270908 +.00001062 +00000-0 +28130-3 0 00587
+2 25791 024.9822 344.3280 0011053 306.1106 053.8378 14.39014543016650
+FUSE 1
+1 25791U 99035A   99289.51825652 +.00001008 +00000-0 +26405-3 0 00430
+2 25791 024.9823 354.4815 0011076 288.6058 071.3246 14.39011177016415
+FUSE 1
+1 25791U 99035A   99288.47797288  .00000951  00000-0  24613-3 0   296
+2 25791  24.9826   0.8275 0011076 277.4591  82.4657 14.39009052 16269
+FUSE 1
+1 25791U 99035A   99286.88287063 +.00000861 +00000-0 +21717-3 0 00634
+2 25791 024.9828 010.5602 0011200 260.5300 099.3940 14.39005892016038
+FUSE 1
+1 25791U 99035A   99285.49582403 +.00000795 +00000-0 +19630-3 0 00486
+2 25791 024.9830 019.0217 0011238 246.2842 113.6491 14.39003480015839
+FUSE 1
+1 25791U 99035A   99284.66359563 +.00000761 +00000-0 +18552-3 0 00398
+2 25791 024.9832 024.0989 0011221 237.5271 122.4154 14.39002187015718
+FUSE 1
+1 25791U 99035A   99283.97007305  .00000754  00000-0  18327-3 0   285
+2 25791  24.9830  28.3293 0011217 230.2490 129.7115 14.39001280 15618
+FUSE 1
+1 25791U 99035A   99280.71050717 +.00000608 +00000-0 +13659-3 0 00426
+2 25791 024.9832 048.2231 0011233 196.9935 163.0195 14.38996802015142
+FUSE 1
+1 25791U 99035A   99280.01698155 +.00000604 +00000-0 +13553-3 0 00286
+2 25791 024.9831 052.4539 0011244 189.6758 170.3528 14.38996155015044
+FUSE 1
+1 25791U 99035A   99279.73957122  .00000606  00000-0  13609-3 0   278
+2 25791  24.9833  54.1486 0011318 187.2744 172.7600 14.38995976 15000
+FUSE 1
+1 25791U 99035A   99278.76863587 +.00000623 +00000-0 +14143-3 0 00780
+2 25791 024.9828 060.0769 0011243 177.0793 182.9783 14.38995168014863
+FUSE 1
+1 25791U 99035A   99278.07510995 +.00000624 +00000-0 +14185-3 0 00637
+2 25791 024.9826 064.3088 0011169 169.6029 190.4711 14.38994496014765
+FUSE 1
+1 25791U 99035A   99276.75740903 +.00000633 +00000-0 +14460-3 0 00461
+2 25791 024.9823 072.3487 0011129 155.6892 204.4141 14.38993316014575
+FUSE 1
+1 25791U 99035A   99276.47999801 +.00000694 +00000-0 +16404-3 0 00358
+2 25791 024.9818 074.0450 0011207 153.0078 207.1024 14.38993598014531
+FUSE 1
+1 25791U 99035A   99275.57841241  .00000671  00000-0  15672-3 0   263
+2 25791  24.9819  79.5451 0011185 143.2379 216.8904 14.38992466 14406
+FUSE 1
+1 25791U 99035A   99272.59623714 +.00000619 +00000-0 +14032-3 0 00288
+2 25791 024.9821 097.7456 0010986 112.1476 248.0207 14.38989140013976
+FUSE 1
+1 25791U 99035A   99271.83335507 +.00000694 +00000-0 +16423-3 0 00261
+2 25791 024.9829 102.4180 0011115 105.0840 255.0961 14.38989289013860
+FUSE 1
+1 25791U 99035A   99270.93176357  .00000625  00000-0  14212-3 0   254
+2 25791  24.9833 107.9206 0010968  96.2277 263.9501 14.38987831 13739
+FUSE 1
+1 25791U 99035A   99269.82210754 +.00000624 +00000-0 +14194-3 0 00270
+2 25791 024.9836 114.6962 0010511 085.3632 274.8041 14.38987014013579
+FUSE 1
+1 25791U 99035A   99268.64310209 +.00000665 +00000-0 +15491-3 0 00260
+2 25791 024.9835 121.8881 0010538 073.0440 287.1349 14.38986259013408
+FUSE 1
+1 25791U 99035A   99267.88021393 +.00000624 +00000-0 +14182-3 0 00258
+2 25791 024.9836 126.5415 0010795 065.0791 295.0869 14.38985118013294
+FUSE 1
+1 25791U 99035A   99266.90926343  .00000583  00000-0  12888-3 0   243
+2 25791  24.9837 132.4642 0010750  54.8710 305.2813 14.38983972 13155
+FUSE 1
+1 25791U 99035A   99266.00766538 +.00000570 +00000-0 +12480-3 0 00561
+2 25791 024.9838 137.9635 0010739 045.4550 314.6838 14.38983153013021
+FUSE 1
+1 25791U 99035A   99265.03671293 +.00000579 +00000-0 +12751-3 0 00498
+2 25791 024.9838 143.8883 0010767 035.0894 325.0328 14.38982440012880
+FUSE 1
+1 25791U 99035A   99264.06575950 +.00000540 +00000-0 +11503-3 0 00439
+2 25791 024.9841 149.8130 0010718 024.5892 335.5124 14.38981393012743
+FUSE 1
+1 25791U 99035A   99263.09480512 +.00000542 +00000-0 +11581-3 0 00315
+2 25791 024.9841 155.7371 0010726 014.3641 345.7173 14.38980695012600
+FUSE 1
+1 25791U 99035A   99262.88674378  .00000509  00000-0  10546-3 0   230
+2 25791  24.9842 157.0081 0010731  11.7394 348.3365 14.38980270 12573
+FUSE 1
+1 25791U 99035A   99260.11258537 +.00000453 +00000-0 +87384-4 0 00502
+2 25791 024.9841 173.9362 0010893 342.6831 017.3307 14.38977970012170
+FUSE 1
+1 25791U 99035A   99259.07227521 +.00000447 +00000-0 +85573-4 0 00347
+2 25791 024.9841 180.2856 0010956 331.9610 028.0309 14.38977330012020
+FUSE 1
+1 25791U 99035A   99258.17067241  .00000427  00000-0  79225-4 0   220
+2 25791  24.9841 185.7874 0011007 322.1366  37.8369 14.38976734 11893
+FUSE 1
+1 25791U 99035A   99256.15940484 +.00000459 +00000-0 +89377-4 0 00465
+2 25791 024.9843 198.0620 0011104 300.6420 059.2997 14.38975981011608
+FUSE 1
+1 25791U 99035A   99255.18844792 +.00000499 +00000-0 +10205-3 0 00357
+2 25791 024.9841 203.9868 0011170 290.1305 069.8003 14.38975748011464
+FUSE 1
+1 25791U 99035A   99254.21749084  .00000578  00000-0  12715-3 0   219
+2 25791  24.9838 209.9117 0011276 279.5024  80.4212 14.38975778 11328
+FUSE 1
+1 25791U 99035A   99252.13687317 +.00000703 +00000-0 +16695-3 0 00422
+2 25791 024.9838 222.6085 0011253 257.6029 102.3226 14.38974995011027
+FUSE 1
+1 25791U 99035A   99251.16591877 +.00000740 +00000-0 +17891-3 0 00306
+2 25791 024.9838 228.5342 0011361 247.5654 112.3649 14.38974264010882
+FUSE 1
+1 25791U 99035A   99250.33367230  .00000790  00000-0  19473-3 0   200
+2 25791  24.9836 233.6120 0011410 238.7623 121.1773 14.38973707 10768
+FUSE 1
+1 25791U 99035A   99250.12561055 +.00000806 +00000-0 +20003-3 0 00780
+2 25791 024.9837 234.8822 0011380 236.5967 123.3441 14.38973616010736
+FUSE 1
+1 25791U 99035A   99249.22401093 +.00000850 +00000-0 +21378-3 0 00688
+2 25791 024.9836 240.3848 0011437 227.1228 132.8321 14.38972820010608
+FUSE 1
+1 25791U 99035A   99248.18370392 +.00000868 +00000-0 +21968-3 0 00504
+2 25791 024.9836 246.7339 0011442 216.3322 143.6406 14.38971553010453
+FUSE 1
+1 25791U 99035A   99247.14339628 +.00000893 +00000-0 +22765-3 0 00331
+2 25791 024.9835 253.0817 0011458 205.6866 154.3072 14.38970276010308
+FUSE 1
+1 25791U 99035A   99246.24179636  .00000875  00000-0  22203-3 0   193
+2 25791  24.9836 258.5836 0011512 196.4275 163.5862 14.38968832 10171
+FUSE 1
+1 25791U 99035A   99244.16117925 +.00000770 +00000-0 +18839-3 0 00526
+2 25791 024.9840 271.2810 0011478 175.5983 184.4632 14.38965078009876
+FUSE 1
+1 25791U 99035A   99243.25957613 +.00000746 +00000-0 +18082-3 0 00412
+2 25791 024.9841 276.7823 0011475 166.5838 193.4978 14.38963795009740
+FUSE 1
+1 25791U 99035A   99242.14991061 +.00000697 +00000-0 +16531-3 0 00214
+2 25791 024.9841 283.5545 0011425 155.0075 205.0993 14.38962068009589
+FUSE 1
+1 25791U 99035A   99241.45636787  .00000690  00000-0  16312-3 0   184
+2 25791  24.9841 287.7844 0011423 147.6480 212.4734 14.38961291  9483
+FUSE 1
+1 25791U 99035A   99238.54348289 +.00000555 +00000-0 +12005-3 0 00339
+2 25791 024.9851 305.5600 0011277 118.2109 241.9541 14.38957529009068
+FUSE 1
+1 25791U 99035A   99237.43380917  .00000519  00000-0  10841-3 0   178
+2 25791  24.9853 312.3322 0011217 106.6278 253.5464 14.38956402  8903
+FUSE 1
+1 25791U 99035A   99236.46284262 +.00000461 +00000-0 +90008-4 0 00705
+2 25791 024.9853 318.2560 0011086 096.8361 263.3410 14.38955295008762
+FUSE 1
+1 25791U 99035A   99236.25477872 +.00000452 +00000-0 +87040-4 0 00615
+2 25791 024.9853 319.5272 0011052 094.6665 265.5117 14.38955073008731
+FUSE 1
+1 25791U 99035A   99235.28381051 +.00000458 +00000-0 +89138-4 0 00470
+2 25791 024.9852 325.4528 0011033 084.2171 275.9597 14.38954552008598
+FUSE 1
+1 25791U 99035A   99233.61929130 +.00000451 +00000-0 +86895-4 0 00303
+2 25791 024.9853 335.6110 0010986 066.4129 293.7536 14.38953524008353
+FUSE 1
+1 25791U 99035A   99232.50961001  .00000368  00000-0  60512-4 0   162
+2 25791  24.9859 342.3821 0010848  54.6767 305.4755 14.38952340  8198
+FUSE 1
+1 25791U 99035A   99230.70637369 +.00000429 +00000-0 +79925-4 0 00424
+2 25791 024.9854 353.3830 0010964 035.3348 324.7888 14.38952031007934
+FUSE 1
+1 25791U 99035A   99229.59668927 +.00000395 +00000-0 +68969-4 0 00285
+2 25791 024.9857 000.1562 0010882 023.2043 336.8948 14.38951224007779
+FUSE 1
+1 25791U 99035A   99228.48700287 +.00000471 +00000-0 +93172-4 0 00221
+2 25791 024.9853 006.9252 0010851 011.6095 348.4667 14.38951260007619
+FUSE 1
+1 25791U 99035A   99227.72409421  .00000487  00000-0  98308-4 0   158
+2 25791  24.9851  11.5809 0010930   3.6815 356.3773 14.38950858  7502
+FUSE 1
+1 25791U 99035A   99223.56276789  .00000619  00000-0  14028-3 0   147
+2 25791  24.9842  36.9742 0011040 318.0438  41.9206 14.38948712  6903
+FUSE 1
+1 25791U 99035A   99218.63853449  .00000720  00000-0  17250-3 0   135
+2 25791  24.9828  67.0232 0011431 267.3032  92.6167 14.38944759  6193
+FUSE 1
+1 25791U 99035A   99216.97400544 +.00000683 +00000-0 +16063-3 0 00166
+2 25791 024.9829 077.1763 0011588 249.8240 110.1026 14.38942807005959
+FUSE 1
+1 25791U 99035A   99215.72561041  .00001104  00000-0  29513-3 0   127
+2 25791  24.9823  84.7905 0011295 237.0915 122.8597 14.38943232  5774
+FUSE 1
+1 25791U 99035A   99213.99172686 +.00000755 +00000-0 +18386-3 0 00281
+2 25791 024.9829 095.3690 0011291 219.0401 140.9295 14.38939332005520
+FUSE 1
+1 25791U 99035A   99213.02075147 +.00000641 +00000-0 +14744-3 0 00175
+2 25791 024.9830 101.2939 0011410 209.3286 150.6585 14.38937829005384
+FUSE 1
+1 25791U 99035A   99212.88204088  .00000581  00000-0  12826-3 0   112
+2 25791  24.9832 102.1415 0011463 208.2710 151.7177 14.38937383  5365
+FUSE 1
+1 25791U 99035A   99211.07879897 +.00000483 +00000-0 +96970-4 0 00493
+2 25791 024.9832 113.1440 0011683 189.9414 170.0864 14.38935491005102
+FUSE 1
+1 25791U 99035A   99210.10782220 +.00000457 +00000-0 +88695-4 0 00361
+2 25791 024.9830 119.0680 0011645 180.0206 180.0306 14.38934715004963
+FUSE 1
+1 25791U 99035A   99209.13684459 +.00000476 +00000-0 +94628-4 0 00215
+2 25791 024.9829 124.9914 0011669 170.0019 190.0732 14.38934254004820
+FUSE 1
+1 25791U 99035A   99208.85942248  .00000483  00000-0  96822-4 0   100
+2 25791  24.9830 126.6849 0011617 167.3014 192.7802 14.38934135  4785
+FUSE 1
+1 25791U 99035A   99208.16586648 +.00000509 +00000-0 +10534-3 0 00689
+2 25791 024.9829 130.9163 0011612 160.0034 200.0933 14.38933809004681
+FUSE 1
+1 25791U 99035A   99207.12553224 +.00000477 +00000-0 +95090-4 0 00537
+2 25791 024.9830 137.2648 0011506 149.5759 210.5420 14.38933010004534
+FUSE 1
+1 25791U 99035A   99206.15455295 +.00000436 +00000-0 +81952-4 0 00388
+2 25791 024.9831 143.1889 0011456 139.5200 220.6160 14.38932240004393
+FUSE 1
+1 25791U 99035A   99205.11421632 +.00000433 +00000-0 +81097-4 0 00221
+2 25791 024.9835 149.5359 0011411 129.0298 231.1227 14.38931694004248
+FUSE 1
+1 25791U 99035A   99204.21259024  .00000427  00000-0  79119-4 0    95
+2 25791  24.9835 155.0370 0011324 120.0292 240.1341 14.38931194  4119
+FUSE 1
+1 25791U 99035A   99203.17225182 +.00000414 +00000-0 +74992-4 0 00525
+2 25791 024.9835 161.3843 0011233 109.2556 250.9169 14.38930540003968
+FUSE 1
+1 25791U 99035A   99202.13191170 +.00000423 +00000-0 +77980-4 0 00383
+2 25791 024.9837 167.7323 0011168 098.4908 261.6865 14.38930164003818
+FUSE 1
+1 25791U 99035A   99201.16092631 +.00000440 +00000-0 +83410-4 0 00235
+2 25791 024.9837 173.6562 0011126 088.3941 271.7841 14.38929874003674
+FUSE 1
+1 25791U 99035A   99200.18994021  .00000454  00000-0  87696-4 0    88
+2 25791  24.9838 179.5806 0011119  78.2644 281.9107 14.38929532  3535
+FUSE 1
+1 25791U 99035A   99200.12059101 +.00000432 +00000-0 +80931-4 0 00725
+2 25791 024.9842 180.0407 0011095 075.8036 284.3701 14.38929430003528
+FUSE 1
+1 25791U 99035A   99199.21895964 +.00000465 +00000-0 +91252-4 0 00631
+2 25791 024.9840 185.5408 0011075 066.4980 293.6690 14.38929231003393
+FUSE 1
+1 25791U 99035A   99198.17861506 +.00000472 +00000-0 +93642-4 0 00475
+2 25791 024.9844 191.8880 0011017 055.5344 304.6202 14.38928745003245
+FUSE 1
+1 25791U 99035A   99197.20762573 +.00000483 +00000-0 +97242-4 0 00328
+2 25791 024.9845 197.8116 0010965 045.0350 315.1043 14.38928247003108
+FUSE 1
+1 25791U 99035A   99196.16727896 +.00000496 +00000-0 +10136-3 0 00130
+2 25791 024.9848 204.1584 0010927 033.8431 326.2770 14.38927757002952
+FUSE 1
+1 25791U 99035A   99195.40435724  .00000525  00000-0  11052-3 0    76
+2 25791  24.9845 208.8116 0010908  25.8212 334.2838 14.38927498  2842
+FUSE 1
+1 25791U 99035A   99195.26564445 +.00000515 +00000-0 +10744-3 0 00732
+2 25791 024.9847 209.6583 0010905 024.2058 335.8962 14.38927325002821
+FUSE 1
+1 25791U 99035A   99194.22529636 +.00000515 +00000-0 +10742-3 0 00547
+2 25791 024.9849 216.0045 0010895 012.9914 347.0873 14.38926634002672
+FUSE 1
+1 25791U 99035A   99193.18494715 +.00000545 +00000-0 +11704-3 0 00384
+2 25791 024.9850 222.3506 0010896 001.9128 358.1416 14.38926205002526
+FUSE 1
+1 25791U 99035A   99192.14459780 +.00000580 +00000-0 +12797-3 0 00193
+2 25791 024.9850 228.6966 0010908 350.8363 009.1951 14.38925741002370
+FUSE 1
+1 25791U 99035A   99191.24296126  .00000600  00000-0  13459-3 0    61
+2 25791  24.9852 234.1962 0010933 341.3306  18.6794 14.38925220  2248
+FUSE 1
+1 25791U 99035A   99189.57840234 +.00000688 +00000-0 +16244-3 0 00431
+2 25791 024.9847 244.3496 0011003 324.3520 035.6271 14.38924327002005
+FUSE 1
+1 25791U 99035A   99188.53805210 +.00000745 +00000-0 +18074-3 0 00304
+2 25791 024.9847 250.6956 0011082 313.4689 046.4896 14.38923665001857
+FUSE 1
+1 25791U 99035A   99187.56705911 +.00000776 +00000-0 +19053-3 0 00181
+2 25791 024.9847 256.6180 0011114 303.2228 056.7215 14.38922773001717
+FUSE 1
+1 25791U 99035A   99187.22027565  .00000809  00000-0  20103-3 0    57
+2 25791  24.9849 258.7334 0011145 299.6070  60.3328 14.38922625  1666
+FUSE 1
+1 25791U 99035A   99186.59606618 +.00000806 +00000-0 +20001-3 0 00658
+2 25791 024.9848 262.5402 0011144 293.0885 066.8449 14.38921812001577
+FUSE 1
+1 25791U 99035A   99185.55571694 +.00000781 +00000-0 +19209-3 0 00489
+2 25791 024.9850 268.8854 0011179 282.1384 077.7873 14.38920354001427
+FUSE 1
+1 25791U 99035A   99184.58472411 +.00000771 +00000-0 +18889-3 0 00356
+2 25791 024.9851 274.8074 0011210 272.0258 087.8967 14.38919111001282
+FUSE 1
+1 25791U 99035A   99183.61373101 +.00000806 +00000-0 +20014-3 0 00199
+2 25791 024.9851 280.7294 0011202 261.9284 097.9951 14.38918148001148
+FUSE
+1 25791U 99035A   99182.64273781  .00000831  00000-0  20827-3 0    48
+2 25791  24.9852 286.6514 0011228 251.8187 108.1089 14.38917064  1005
+FUSE
+1 25791U 99035A   99181.53303177 +.00000885 +00000-0 +22535-3 0 00326
+2 25791 024.9851 293.4193 0011207 240.2024 119.7372 14.38915842000848
+FUSE
+1 25791U 99035A   99180.42332586 +.00000769 +00000-0 +18844-3 0 00250
+2 25791 024.9851 300.1870 0011210 228.6224 131.3324 14.38913850000688
+FUSE
+1 25791U 99035A   99179.72975929 +.00000701 +00000-0 +16654-3 0 00225
+2 25791 024.9851 304.4168 0011211 221.3620 138.6046 14.38912818000589
+FUSE
+1 25791U 99035A   99178.68940879 +.00000540 +00000-0 +11515-3 0 00070
+2 25791 024.9851 310.7614 0011204 210.4757 149.5099 14.38911405000431
+FUSE
+1 25791U 99035A   99178.55069535  .00000518  00000-0  10814-3 0    39
+2 25791  24.9851 311.6073 0011204 209.0295 150.9590 14.38911233   410
+FUSE
+1 25791U 99035A   99177.92648488 +.00000082 +00000-0 -31136-4 0 00408
+2 25791 024.9853 315.4140 0011227 202.4549 157.5464 14.38909900000324
+FUSE
+1 25791U 99035A   99176.95549150 -.00001333 +00000-0 -48314-3 0 00075
+2 25791 024.9860 321.3361 0010962 190.9807 169.0438 14.38907601000185
diff --git a/src/cal/get_tle/tmp/FUSE.TLE.NEW b/src/cal/get_tle/tmp/FUSE.TLE.NEW
new file mode 100644
index 0000000..f70af2e
--- /dev/null
+++ b/src/cal/get_tle/tmp/FUSE.TLE.NEW
@@ -0,0 +1,15 @@
+FUSE 1
+1 25791U 99035A   03334.81529517  .00000629  00000-0  13611-3 0    73
+2 25791  24.9828 141.7372 0010396 237.2837 122.6662 14.41449325233814
+FUSE 1
+1 25791U 99035A   03332.32285756  .00000721  00000-0  16400-3 0    51
+2 25791  24.9827 157.0092 0010498 210.6638 149.3252 14.41447882233456
+FUSE 1
+1 25791U 99035A   03331.90745146 +.00000729 +00000-0 +16628-3 0 00081
+2 25791 024.9828 159.5554 0010553 206.5242 153.4727 14.41447542233393
+FUSE 1
+1 25791U 99035A   03331.14587356  .00000725  00000-0  16505-3 0    40
+2 25791  24.9828 164.2238 0010646 198.4715 161.5398 14.41446726233287
+FUSE 1
+1 25791U 99035A   03330.86893587 +.00000724 +00000-0 +16482-3 0 00069
+2 25791 024.9826 165.9208 0010698 195.8086 164.2086 14.41446474233249
diff --git a/src/cal/get_tle/tmp/FUSE.TLE.awf b/src/cal/get_tle/tmp/FUSE.TLE.awf
new file mode 100644
index 0000000..867ba5f
--- /dev/null
+++ b/src/cal/get_tle/tmp/FUSE.TLE.awf
@@ -0,0 +1,4419 @@
+FUSE 1
+1 25791U 99035A   03107.22964140  .00000487  00000-0  93318-4 0  8333
+2 25791  24.9837  95.9773 0010052  10.7357 349.3362 14.41316429200940
+FUSE 1
+1 25791U 99035A   03105.98329705 +.00000572 +00000-0 +11935-3 0 08346
+2 25791 024.9839 103.6091 0010055 357.5958 002.4500 14.41316519200765
+FUSE 1
+1 25791U 99035A   03105.42936709  .00000573  00000-0  11956-3 0  8325
+2 25791  24.9839 107.0005 0010053 351.7713   8.2628 14.41316090200681
+FUSE 1
+1 25791U 99035A   03104.39074737  .00000618  00000-0  13316-3 0  8315
+2 25791  24.9841 113.3600 0010076 341.0911  18.9221 14.41315709200539
+FUSE 1
+1 25791U 99035A   03103.83681675 +.00000642 +00000-0 +14053-3 0 08493
+2 25791 024.9841 116.7516 0010112 335.4399 024.5624 14.41315476200452
+FUSE 1
+1 25791U 99035A   03103.21364467  .00000672  00000-0  14956-3 0  8307
+2 25791  24.9843 120.5685 0010100 328.7321  31.2586 14.41315278200363
+FUSE 1
+1 25791U 99035A   03101.89805968  .00000719  00000-0  16399-3 0  8298
+2 25791  24.9841 128.6245 0010100 314.9047  45.0638 14.41314506200177
+FUSE 1
+1 25791U 99035A   03100.72095835  .00000735  00000-0  16862-3 0  8285
+2 25791  24.9823 135.8422 0010255 300.3804  59.5679 14.41313234200009
+FUSE 1
+1 25791U 99035A   03099.95930502 +.00000731 +00000-0 +16758-3 0 08321
+2 25791 024.9822 140.5054 0010257 292.8087 067.1336 14.41312329199895
+FUSE 1
+1 25791U 99035A   03099.54386033  .00000758  00000-0  17568-3 0  8273
+2 25791  24.9817 143.0635 0010123 287.3571  72.5830 14.41312013199834
+FUSE 1
+1 25791U 99035A   03098.92068851 +.00000723 +00000-0 +16491-3 0 08499
+2 25791 024.9816 146.8804 0010159 280.5747 079.3533 14.41310909199748
+FUSE 1
+1 25791U 99035A   03098.22827686  .00000751  00000-0  17368-3 0  8261
+2 25791  24.9821 151.1234 0010310 272.8590  87.0746 14.41310499199644
+FUSE 1
+1 25791U 99035A   03097.18965913  .00000710  00000-0  16100-3 0  8258
+2 25791  24.9822 157.4830 0010353 261.6244  98.3091 14.41308833199495
+FUSE 1
+1 25791U 99035A   03095.94331601  .00000705  00000-0  15943-3 0  8248
+2 25791  24.9828 165.1153 0010485 248.0340 111.9051 14.41307527199315
+FUSE 1
+1 25791U 99035A   03094.55849177  .00000687  00000-0  15400-3 0  8232
+2 25791  24.9837 173.5981 0010507 233.7648 126.1888 14.41305878199115
+FUSE 1
+1 25791U 99035A   03093.79684032 +.00000617 +00000-0 +13296-3 0 08340
+2 25791 024.9830 178.2689 0010658 225.6842 134.2806 14.41303892199000
+FUSE 1
+1 25791U 99035A   03093.45063419  .00000588  00000-0  12399-3 0  8220
+2 25791  24.9830 180.3890 0010661 222.1502 137.8185 14.41303261198959
+FUSE 1
+1 25791U 99035A   03092.06580825  .00000498  00000-0  96689-4 0  8215
+2 25791  24.9829 188.8687 0010595 207.4856 152.5026 14.41301203198758
+FUSE 1
+1 25791U 99035A   03090.88870503  .00000512  00000-0  10095-3 0  8200
+2 25791  24.9830 196.0770 0010689 195.3984 164.6200 14.41300573198583
+FUSE 1
+1 25791U 99035A   03089.91932625 +.00000473 +00000-0 +89013-4 0 08355
+2 25791 024.9831 202.0132 0010707 185.2549 174.7855 14.41299501198441
+FUSE 1
+1 25791U 99035A   03089.57311974  .00000447  00000-0  81025-4 0  8193
+2 25791  24.9832 204.1347 0010678 181.8480 178.1989 14.41298969198393
+FUSE 1
+1 25791U 99035A   03088.18829319  .00000422  00000-0  73584-4 0  8189
+2 25791  24.9836 212.6159 0010751 167.8506 192.2415 14.41297973198190
+FUSE 1
+1 25791U 99035A   03087.14967143  .00000439  00000-0  78641-4 0  8178
+2 25791  24.9834 218.9892 0010499 154.7731 205.3306 14.41297621198044
+FUSE 1
+1 25791U 99035A   03086.94194663 +.00000428 +00000-0 +75286-4 0 08488
+2 25791 024.9835 220.2611 0010504 152.4498 207.6568 14.41297416198016
+FUSE 1
+1 25791U 99035A   03085.90332252  .00000414  00000-0  71085-4 0  8164
+2 25791  24.9838 226.6261 0010293 142.1870 217.9362 14.41296881197868
+FUSE 1
+1 25791U 99035A   03085.90332251 +.00000414 +00000-0 +71084-4 0 08173
+2 25791 024.9838 226.6261 0010293 142.1870 217.9361 14.41296881197867
+FUSE 1
+1 25791U 99035A   03084.86469882  .00000343  00000-0  49516-4 0  8152
+2 25791  24.9847 232.9875 0010201 130.8102 229.3297 14.41295801197719
+FUSE 1
+1 25791U 99035A   03083.89531250 +.00000489 +00000-0 +93920-4 0 08321
+2 25791 024.9844 238.9268 0010672 122.1781 237.9761 14.41296727197570
+FUSE 1
+1 25791U 99035A   03083.54910375  .00000503  00000-0  98232-4 0  8140
+2 25791  24.9844 241.0479 0010701 118.5123 241.6462 14.41296648197528
+FUSE 1
+1 25791U 99035A   03082.92592724 +.00000523 +00000-0 +10446-3 0 08451
+2 25791 024.9843 244.8641 0010700 112.2904 247.8737 14.41296449197438
+FUSE 1
+1 25791U 99035A   03082.16426759  .00000526  00000-0  10521-3 0  8133
+2 25791  24.9841 249.5294 0010669 104.2866 255.8838 14.41295912197327
+FUSE 1
+1 25791U 99035A   03081.12563750  .00000612  00000-0  13128-3 0  8122
+2 25791  24.9842 255.8923 0010711  94.3078 265.8647 14.41296014197175
+FUSE 1
+1 25791U 99035A   03079.87928172  .00000670  00000-0  14898-3 0  8112
+2 25791  24.9845 263.5260 0010772  80.9467 279.2259 14.41295470196990
+FUSE 1
+1 25791U 99035A   03078.90989285 +.00000680 +00000-0 +15204-3 0 08356
+2 25791 024.9842 269.4617 0010753 070.0356 290.1308 14.41294541196854
+FUSE 1
+1 25791U 99035A   03078.56368187  .00000702  00000-0  15885-3 0  8103
+2 25791  24.9840 271.5817 0010757  66.2560 293.9075 14.41294387196801
+FUSE 1
+1 25791U 99035A   03077.17883857  .00000638  00000-0  13930-3 0  8090
+2 25791  24.9843 280.0617 0010654  50.7889 309.3564 14.41292379196607
+FUSE 1
+1 25791U 99035A   03076.14020216  .00000782  00000-0  18324-3 0  8089
+2 25791  24.9848 286.4255 0010468  43.0582 317.0743 14.41292815196451
+FUSE 1
+1 25791U 99035A   03074.89383969  .00000825  00000-0  19632-3 0  8076
+2 25791  24.9853 294.0604 0010385  30.7066 329.4048 14.41291731196279
+FUSE 1
+1 25791U 99035A   03073.43974802  .00000854  00000-0  20497-3 0  8069
+2 25791  24.9852 302.9660 0010367  15.2865 344.7954 14.41290069196060
+FUSE 1
+1 25791U 99035A   03072.19338203  .00000856  00000-0  20554-3 0  8055
+2 25791  24.9854 310.5981 0010287   2.1680 357.8866 14.41288422195880
+FUSE 1
+1 25791U 99035A   03071.08550087  .00000818  00000-0  19402-3 0  8045
+2 25791  24.9860 317.3842 0010263 349.9948  10.0353 14.41286657195721
+FUSE 1
+1 25791U 99035A   03069.97761880 +.00000763 +00000-0 +17745-3 0 08086
+2 25791 024.9860 324.1683 0010236 338.1839 021.8232 14.41284751195560
+FUSE 1
+1 25791U 99035A   03069.90837617  .00000758  00000-0  17585-3 0  8032
+2 25791  24.9860 324.5922 0010236 337.4031  22.6028 14.41284617195558
+FUSE 1
+1 25791U 99035A   03068.93897780 +.00000723 +00000-0 +16521-3 0 08098
+2 25791 024.9864 330.5285 0010290 326.4566 033.5291 14.41283191195416
+FUSE 1
+1 25791U 99035A   03068.86973524  .00000716  00000-0  16303-3 0  8024
+2 25791  24.9864 330.9527 0010287 325.7078  34.2768 14.41283044195408
+FUSE 1
+1 25791U 99035A   03067.55412264  .00000656  00000-0  14496-3 0  8011
+2 25791  24.9864 339.0080 0010311 311.6370  48.3251 14.41281081195210
+FUSE 1
+1 25791U 99035A   03066.44623884  .00000578  00000-0  12112-3 0  8005
+2 25791  24.9864 345.7927 0010333 299.7399  60.2082 14.41279280195050
+FUSE 1
+1 25791U 99035A   03065.40759665  .00000526  00000-0  10514-3 0  7991
+2 25791  24.9863 352.1521 0010350 288.8170  71.1215 14.41277936194904
+FUSE 1
+1 25791U 99035A   03064.23046813  .00000487  00000-0  93421-4 0  7989
+2 25791  24.9864 359.3605 0010411 275.9615  83.9706 14.41276773194731
+FUSE 1
+1 25791U 99035A   03062.98409806 +.00000428 +00000-0 +75413-4 0 08015
+2 25791 024.9863 006.9942 0010426 262.5976 097.3348 14.41275346194553
+FUSE 1
+1 25791U 99035A   03062.91485526  .00000425  00000-0  74460-4 0  7973
+2 25791  24.9862   7.4181 0010421 261.8604  98.0722 14.41275270194547
+FUSE 1
+1 25791U 99035A   03061.94545741 +.00000420 +00000-0 +73017-4 0 08008
+2 25791 024.9848 013.3688 0010509 252.6434 107.2924 14.41274844194403
+FUSE 1
+1 25791U 99035A   03061.66848589  .00000420  00000-0  73002-4 0  7961
+2 25791  24.9848  15.0645 0010505 249.7386 110.1988 14.41274707194360
+FUSE 1
+1 25791U 99035A   03060.49135828  .00000388  00000-0  63176-4 0  7959
+2 25791  24.9852  22.2747 0010610 237.5708 122.3771 14.41273890194196
+FUSE 1
+1 25791U 99035A   03059.24498747  .00000395  00000-0  65325-4 0  7947
+2 25791  24.9851  29.9090 0010713 224.4424 135.5221 14.41273446194018
+FUSE 1
+1 25791U 99035A   03058.96801613 +.00000410 +00000-0 +70039-4 0 08335
+2 25791 024.9848 031.6055 0010711 221.6605 138.3087 14.41273447193979
+FUSE 1
+1 25791U 99035A   03057.79088784  .00000466  00000-0  86878-4 0  7935
+2 25791  24.9852  38.8148 0010787 209.3160 150.6743 14.41273450193800
+FUSE 1
+1 25791U 99035A   03056.75224577  .00000511  00000-0  10064-3 0  7925
+2 25791  24.9849  45.1756 0010796 198.5017 161.5097 14.41273260193657
+FUSE 1
+1 25791U 99035A   03055.71360371  .00000543  00000-0  11053-3 0  7916
+2 25791  24.9851  51.5371 0010893 187.8825 172.1502 14.41272912193506
+FUSE 1
+1 25791U 99035A   03054.81344706 +.00000592 +00000-0 +12526-3 0 07943
+2 25791 024.9854 057.0504 0010975 178.3725 181.6813 14.41272772193372
+FUSE 1
+1 25791U 99035A   03054.53647601  .00000595  00000-0  12630-3 0  7907
+2 25791  24.9855  58.7463 0010996 175.5448 184.5158 14.41272591193338
+FUSE 1
+1 25791U 99035A   03053.22086164  .00000648  00000-0  14239-3 0  7897
+2 25791  24.9854  66.8027 0011082 162.1387 197.9511 14.41272079193145
+FUSE 1
+1 25791U 99035A   03052.18221916  .00000654  00000-0  14422-3 0  7887
+2 25791  24.9857  73.1612 0010974 150.9371 209.1749 14.41271157192993
+FUSE 1
+1 25791U 99035A   03051.69751897 +.00000653 +00000-0 +14404-3 0 08192
+2 25791 024.9857 076.1286 0010974 145.8259 214.2956 14.41270685192926
+FUSE 1
+1 25791U 99035A   03050.86660284  .00000682  00000-0  15278-3 0  7875
+2 25791  24.9852  81.2163 0010966 137.4487 222.6871 14.41270247192803
+FUSE 1
+1 25791U 99035A   03049.55098927  .00000679  00000-0  15178-3 0  7862
+2 25791  24.9830  89.2921 0010776 123.5065 236.6474 14.41268750192615
+FUSE 1
+1 25791U 99035A   03046.91974757  .00000708  00000-0  16072-3 0  7848
+2 25791  24.9828 105.4061 0010755  96.1405 264.0326 14.41266314192231
+FUSE 1
+1 25791U 99035A   03045.81185480  .00000675  00000-0  15076-3 0  7838
+2 25791  24.9829 112.1925 0010804  84.5002 275.6738 14.41264829192071
+FUSE 1
+1 25791U 99035A   03044.56547187  .00000671  00000-0  14933-3 0  7821
+2 25791  24.9825 119.8235 0010884  72.1647 288.0048 14.41263465191897
+FUSE 1
+1 25791U 99035A   03043.87303595 +.00000663 +00000-0 +14707-3 0 08086
+2 25791 024.9823 124.0647 0010837 064.8117 295.3515 14.41262691191797
+FUSE 1
+1 25791U 99035A   03043.24984329  .00000652  00000-0  14385-3 0  7817
+2 25791  24.9824 127.8828 0010807  58.4950 301.6614 14.41261995191709
+FUSE 1
+1 25791U 99035A   03042.07269992  .00000613  00000-0  13188-3 0  7805
+2 25791  24.9827 135.0921 0010730  46.2939 313.8459 14.41260560191534
+FUSE 1
+1 25791U 99035A   03040.82631031  .00000590  00000-0  12473-3 0  7791
+2 25791  24.9825 142.7255 0010676  33.4461 326.6705 14.41259243191356
+FUSE 1
+1 25791U 99035A   03039.57991945  .00000595  00000-0  12637-3 0  7780
+2 25791  24.9832 150.3613 0010568  20.6980 339.3959 14.41258343191173
+FUSE 1
+1 25791U 99035A   03038.54125940  .00000562  00000-0  11637-3 0  7772
+2 25791  24.9831 156.7218 0010533   9.4132 350.6584 14.41257190191022
+FUSE 1
+1 25791U 99035A   03037.01788880  .00000562  00000-0  11641-3 0  7765
+2 25791  24.9831 166.0494 0010450 353.4940   6.5445 14.41256054190805
+FUSE 1
+1 25791U 99035A   03035.90998290 +.00000529 +00000-0 +10615-3 0 07762
+2 25791 024.9834 172.8362 0010444 341.3662 018.6462 14.41254945190649
+FUSE 1
+1 25791U 99035A   03035.84073869  .00000529  00000-0  10615-3 0  7750
+2 25791  24.9834 173.2601 0010444 340.6394  19.3715 14.41254896190637
+FUSE 1
+1 25791U 99035A   03034.94056470 +.00000514 +00000-0 +10178-3 0 07937
+2 25791 024.9830 178.7729 0010445 331.0545 028.9383 14.41254106190504
+FUSE 1
+1 25791U 99035A   03034.59434384  .00000508  00000-0  99976-4 0  7748
+2 25791  24.9829 180.8929 0010469 327.4109  32.5752 14.41253798190450
+FUSE 1
+1 25791U 99035A   03033.55568063  .00000512  00000-0  10098-3 0  7736
+2 25791  24.9832 187.2531 0010490 316.1247  43.8429 14.41253174190304
+FUSE 1
+1 25791U 99035A   03032.24004087  .00000509  00000-0  10030-3 0  7723
+2 25791  24.9833 195.3101 0010479 301.8051  58.1431 14.41252308190118
+FUSE 1
+1 25791U 99035A   03031.13213438  .00000500  00000-0  97473-4 0  7719
+2 25791  24.9834 202.0943 0010489 289.8402  70.0976 14.41251485189957
+FUSE 1
+1 25791U 99035A   03029.95498370 +.00000507 +00000-0 +99455-4 0 07726
+2 25791 024.9833 209.3044 0010568 277.2138 082.7170 14.41250807189787
+FUSE 1
+1 25791U 99035A   03029.88573951  .00000506  00000-0  99284-4 0  7704
+2 25791  24.9834 209.7284 0010567 276.4676  83.4627 14.41250759189775
+FUSE 1
+1 25791U 99035A   03028.91632543 +.00000457 +00000-0 +84396-4 0 07714
+2 25791 024.9829 215.6872 0010688 267.6409 092.2873 14.41250112189637
+FUSE 1
+1 25791U 99035A   03028.84708138  .00000459  00000-0  84922-4 0  7694
+2 25791  24.9829 216.1111 0010685 266.8899  93.0390 14.41250090189627
+FUSE 1
+1 25791U 99035A   03027.94690786 +.00000485 +00000-0 +92887-4 0 07916
+2 25791 024.9829 221.6256 0010733 257.2339 102.6968 14.41249791189494
+FUSE 1
+1 25791U 99035A   03027.39295481  .00000522  00000-0  10395-3 0  7687
+2 25791  24.9825 225.0181 0010750 251.6346 108.2992 14.41249718189410
+FUSE 1
+1 25791U 99035A   03026.90824636 +.00000535 +00000-0 +10794-3 0 07938
+2 25791 024.9827 227.9872 0010755 246.4607 113.4770 14.41249533189346
+FUSE 1
+1 25791U 99035A   03026.21580544  .00000600  00000-0  12773-3 0  7672
+2 25791  24.9822 232.2291 0010751 239.2471 120.6976 14.41249537189241
+FUSE 1
+1 25791U 99035A   03024.90017016  .00000620  00000-0  13395-3 0  7667
+2 25791  24.9825 240.2875 0010606 224.5201 135.4454 14.41248661189059
+FUSE 1
+1 25791U 99035A   03023.86150943  .00000683  00000-0  15306-3 0  7650
+2 25791  24.9823 246.6490 0010698 213.6230 146.3601 14.41248266188901
+FUSE 1
+1 25791U 99035A   03022.96133739 +.00000720 +00000-0 +16435-3 0 07885
+2 25791 024.9822 252.1619 0010714 203.8994 156.1017 14.41247660188774
+FUSE 1
+1 25791U 99035A   03022.47662920  .00000753  00000-0  17422-3 0  7647
+2 25791  24.9818 255.1315 0010728 199.1571 160.8533 14.41247360188703
+FUSE 1
+1 25791U 99035A   03021.23023620  .00000814  00000-0  19309-3 0  7631
+2 25791  24.9818 262.7649 0010872 186.1483 173.8893 14.41246466188524
+FUSE 1
+1 25791U 99035A   03020.19157559  .00000839  00000-0  20070-3 0  7627
+2 25791  24.9818 269.1258 0010854 175.1951 184.8664 14.41245346188376
+FUSE 1
+1 25791U 99035A   03019.15291393  .00000874  00000-0  21118-3 0  7618
+2 25791  24.9818 275.4875 0010879 164.2609 195.8238 14.41244267188221
+FUSE 1
+1 25791U 99035A   03017.90651918  .00000882  00000-0  21358-3 0  7606
+2 25791  24.9820 283.1229 0010889 151.5092 208.6013 14.41242588188047
+FUSE 1
+1 25791U 99035A   03016.86785572  .00000849  00000-0  20352-3 0  7598
+2 25791  24.9821 289.4833 0010877 140.6893 219.4408 14.41240829187899
+FUSE 1
+1 25791U 99035A   03015.96767820 +.00000843 +00000-0 +20187-3 0 07628
+2 25791 024.9820 294.9922 0010992 131.6564 228.4886 14.41239598187768
+FUSE 1
+1 25791U 99035A   03015.41372249  .00000840  00000-0  20100-3 0  7582
+2 25791  24.9820 298.3836 0010997 125.8349 234.3181 14.41238834187688
+FUSE 1
+1 25791U 99035A   03014.23656622  .00000784  00000-0  18395-3 0  7570
+2 25791  24.9824 305.5944 0010955 113.8675 246.2990 14.41236827187518
+FUSE 1
+1 25791U 99035A   03013.19789667  .00000698  00000-0  15769-3 0  7565
+2 25791  24.9829 311.9557 0010860 103.1125 257.0596 14.41234894187368
+FUSE 1
+1 25791U 99035A   03012.92091841 +.00000651 +00000-0 +14337-3 0 07913
+2 25791 024.9830 313.6530 0010837 100.3922 259.7809 14.41234171187328
+FUSE 1
+1 25791U 99035A   03011.95149077 +.00000591 +00000-0 +12511-3 0 07599
+2 25791 024.9833 319.5894 0010774 090.1943 269.9802 14.41232741187189
+FUSE 1
+1 25791U 99035A   03011.88224586  .00000585  00000-0  12347-3 0  7556
+2 25791  24.9834 320.0134 0010776  89.4952 270.6791 14.41232635187174
+FUSE 1
+1 25791U 99035A   03010.49734521  .00000571  00000-0  11922-3 0  7549
+2 25791  24.9836 328.4940 0010755  75.1825 284.9873 14.41231417186974
+FUSE 1
+1 25791U 99035A   03009.38942288  .00000562  00000-0  11651-3 0  7534
+2 25791  24.9838 335.2793 0010726  63.5938 296.5669 14.41230504186813
+FUSE 1
+1 25791U 99035A   03008.21225405  .00000536  00000-0  10847-3 0  7526
+2 25791  24.9841 342.4893 0010658  51.4879 308.6589 14.41229428186642
+FUSE 1
+1 25791U 99035A   03007.17357430  .00000496  00000-0  96283-4 0  7517
+2 25791  24.9846 348.8510 0010606  40.2151 319.9146 14.41228391186490
+FUSE 1
+1 25791U 99035A   03005.71941978  .00000492  00000-0  95196-4 0  7508
+2 25791  24.9848 357.7568 0010489  25.1948 334.9069 14.41227497186283
+FUSE 1
+1 25791U 99035A   03004.54224559  .00000519  00000-0  10345-3 0  7497
+2 25791  24.9849   4.9669 0010381  12.5994 347.4773 14.41226999186118
+FUSE 1
+1 25791U 99035A   03003.22657791  .00000659  00000-0  14583-3 0  7481
+2 25791  24.9844  13.0234 0010171 358.9129   1.1355 14.41227192185920
+FUSE 1
+1 25791U 99035A   03001.70317381 +.00000783 +00000-0 +18366-3 0 07470
+2 25791 024.9836 022.3505 0010142 342.3951 017.6202 14.41226616185702
+FUSE 1
+1 25791U 99035A   02365.66448900  .00000905  00000-0  22093-3 0  7466
+2 25791  24.9828  28.7111 0010120 331.1925  28.8023 14.41226254185555
+FUSE 1
+1 25791U 99035A   02364.55655917  .00001003  00000-0  25056-3 0  7452
+2 25791  24.9823  35.4963 0010124 319.5885  40.3870 14.41225360185397
+FUSE 1
+1 25791U 99035A   02363.24089208  .00001123  00000-0  28737-3 0  7442
+2 25791  24.9817  43.5541 0010043 305.4795  54.4774 14.41224128185206
+FUSE 1
+1 25791U 99035A   02361.85597983  .00001182  00000-0  30525-3 0  7433
+2 25791  24.9811  52.0336 0010047 290.8057  69.1372 14.41221885185001
+FUSE 1
+1 25791U 99035A   02360.81729577  .00001190  00000-0  30775-3 0  7429
+2 25791  24.9811  58.3946 0010013 279.4423  80.4952 14.41219863184855
+FUSE 1
+1 25791U 99035A   02359.98634816 +.00001193 +00000-0 +30865-3 0 07531
+2 25791 024.9811 063.4834 0010006 270.4269 089.5092 14.41218193184736
+FUSE 1
+1 25791U 99035A   02359.57087417  .00001197  00000-0  30966-3 0  7418
+2 25791  24.9812  66.0284 0010007 265.9037  94.0326 14.41217390184670
+FUSE 1
+1 25791U 99035A   02356.87029074  .00001204  00000-0  31182-3 0  7390
+2 25791  24.9811  82.5668 0009938 236.3646 123.5914 14.41211956184287
+FUSE 1
+1 25791U 99035A   02355.55462023  .00001090  00000-0  27728-3 0  7382
+2 25791  24.9809  90.6214 0010165 222.2949 137.6776 14.41208399184093
+FUSE 1
+1 25791U 99035A   02354.51593217  .00001046  00000-0  26390-3 0  7371
+2 25791  24.9811  96.9840 0010179 211.0308 148.9598 14.41206118183947
+FUSE 1
+1 25791U 99035A   02353.13101277  .00001006  00000-0  25162-3 0  7360
+2 25791  24.9814 105.4674 0010149 196.0465 163.9721 14.41203384183749
+FUSE 1
+1 25791U 99035A   02351.95382922 +.00000934 +00000-0 +22963-3 0 07372
+2 25791 024.9817 112.6764 0010197 184.0228 176.0200 14.41200867183570
+FUSE 1
+1 25791U 99035A   02351.88458303  .00000934  00000-0  22971-3 0  7358
+2 25791  24.9817 113.1005 0010193 183.2930 176.7513 14.41200763183569
+FUSE 1
+1 25791U 99035A   02350.91513627 +.00000904 +00000-0 +22045-3 0 07519
+2 25791 024.9819 119.0445 0010562 174.0065 186.0569 14.41199099183420
+FUSE 1
+1 25791U 99035A   02350.56890542  .00000886  00000-0  21508-3 0  7347
+2 25791  24.9818 121.1673 0010554 170.6826 189.3879 14.41198405183378
+FUSE 1
+1 25791U 99035A   02349.11473244  .00000853  00000-0  20507-3 0  7333
+2 25791  24.9823 130.0779 0010595 156.0675 204.0329 14.41196121183160
+FUSE 1
+1 25791U 99035A   02347.86829613  .00000843  00000-0  20210-3 0  7327
+2 25791  24.9826 137.7176 0010579 143.6291 216.4936 14.41194381182982
+FUSE 1
+1 25791U 99035A   02346.96809054 +.00000846 +00000-0 +20310-3 0 07328
+2 25791 024.9827 143.2322 0010589 134.4622 225.6760 14.41193196182851
+FUSE 1
+1 25791U 99035A   02346.82959720  .00000840  00000-0  20129-3 0  7310
+2 25791  24.9828 144.0807 0010580 133.0588 227.0808 14.41192967182838
+FUSE 1
+1 25791U 99035A   02345.92939017 +.00000816 +00000-0 +19371-3 0 07418
+2 25791 024.9830 149.5942 0010509 123.9678 236.1843 14.41191589182705
+FUSE 1
+1 25791U 99035A   02345.58315657  .00000792  00000-0  18653-3 0  7301
+2 25791  24.9831 151.7183 0010408 120.6946 239.4591 14.41190929182655
+FUSE 1
+1 25791U 99035A   02344.89068773 +.00000785 +00000-0 +18451-3 0 07429
+2 25791 024.9831 155.9574 0010423 113.3541 246.8055 14.41190019182558
+FUSE 1
+1 25791U 99035A   02344.54445368  .00000789  00000-0  18568-3 0  7298
+2 25791  24.9831 158.0799 0010476 110.1229 250.0410 14.41189637182508
+FUSE 1
+1 25791U 99035A   02343.15951322  .00000783  00000-0  18396-3 0  7288
+2 25791  24.9834 166.5623 0010426  96.2869 263.8829 14.41187968182309
+FUSE 1
+1 25791U 99035A   02342.88252492 +.00000775 +00000-0 +18152-3 0 07460
+2 25791 024.9835 168.2588 0010398 093.2895 266.8803 14.41187559182269
+FUSE 1
+1 25791U 99035A   02341.98231177  .00000761  00000-0  17708-3 0  7277
+2 25791  24.9836 173.7711 0010366  83.7509 276.4178 14.41186369182136
+FUSE 1
+1 25791U 99035A   02340.87435475  .00000768  00000-0  17944-3 0  7269
+2 25791  24.9836 180.5545 0010319  72.0817 288.0815 14.41185129181979
+FUSE 1
+1 25791U 99035A   02339.90489123 +.00000743 +00000-0 +17159-3 0 07373
+2 25791 024.9838 186.4897 0010302 061.8181 298.3364 14.41183804181834
+FUSE 1
+1 25791U 99035A   02339.00467365  .00000760  00000-0  17694-3 0  7258
+2 25791  24.9837 192.0009 0010340  52.4233 307.7215 14.41182886181702
+FUSE 1
+1 25791U 99035A   02337.96595978 +.00000747 +00000-0 +17292-3 0 07274
+2 25791 024.9838 198.3601 0010349 041.4682 318.6611 14.41181581181550
+FUSE 1
+1 25791U 99035A   02337.89671225  .00000735  00000-0  16930-3 0  7248
+2 25791  24.9838 198.7841 0010344  40.6825 319.4454 14.41181406181544
+FUSE 1
+1 25791U 99035A   02336.92724431 +.00000730 +00000-0 +16784-3 0 07263
+2 25791 024.9839 204.7190 0010345 030.4753 329.6355 14.41180304181402
+FUSE 1
+1 25791U 99035A   02336.85799660  .00000726  00000-0  16666-3 0  7232
+2 25791  24.9840 205.1432 0010343  29.6910 330.4183 14.41180198181399
+FUSE 1
+1 25791U 99035A   02335.95777534 +.00000723 +00000-0 +16574-3 0 07378
+2 25791 024.9840 210.6541 0010353 020.2600 339.8318 14.41179182181265
+FUSE 1
+1 25791U 99035A   02335.12680126  .00000724  00000-0  16595-3 0  7225
+2 25791  24.9839 215.7423 0010346  11.4473 348.6270 14.41178242181148
+FUSE 1
+1 25791U 99035A   02333.88033836  .00000777  00000-0  18215-3 0  7214
+2 25791  24.9838 223.3729 0010367 358.4414   1.6064 14.41177194180964
+FUSE 1
+1 25791U 99035A   02332.21838680  .00000738  00000-0  17012-3 0  7200
+2 25791  24.9840 233.5483 0010369 340.4562  19.5551 14.41175004180725
+FUSE 1
+1 25791U 99035A   02330.97192266 +.00000736 +00000-0 +16945-3 0 07228
+2 25791 024.9841 241.1847 0010383 327.1955 032.7907 14.41173576180543
+FUSE 1
+1 25791U 99035A   02330.90267454  .00000744  00000-0  17204-3 0  7197
+2 25791  24.9842 241.6086 0010384 326.4698  33.5151 14.41173549180530
+FUSE 1
+1 25791U 99035A   02329.93320137 +.00000795 +00000-0 +18754-3 0 07238
+2 25791 024.9841 247.5450 0010325 316.0567 043.9119 14.41172687180399
+FUSE 1
+1 25791U 99035A   02329.86395339  .00000793  00000-0  18694-3 0  7181
+2 25791  24.9841 247.9690 0010320 315.3599  44.6079 14.41172585180380
+FUSE 1
+1 25791U 99035A   02328.96372831 +.00000874 +00000-0 +21177-3 0 07262
+2 25791 024.9839 253.4818 0010301 306.0731 053.8822 14.41171745180256
+FUSE 1
+1 25791U 99035A   02328.47899189  .00000852  00000-0  20479-3 0  7178
+2 25791  24.9839 256.4492 0010283 300.9882  58.9620 14.41170988180188
+FUSE 1
+1 25791U 99035A   02327.23252631  .00000997  00000-0  24907-3 0  7165
+2 25791  24.9837 264.0850 0010209 287.9702  71.9692 14.41169674180007
+FUSE 1
+1 25791U 99035A   02325.91681241  .00001075  00000-0  27280-3 0  7155
+2 25791  24.9835 272.1466 0010275 274.0090  85.9246 14.41167756179814
+FUSE 1
+1 25791U 99035A   02324.94733872 +.00001074 +00000-0 +27250-3 0 07151
+2 25791 024.9837 278.0849 0010343 263.9267 096.0064 14.41166020179673
+FUSE 1
+1 25791U 99035A   02324.67034596  .00001073  00000-0  27216-3 0  7148
+2 25791  24.9837 279.7804 0010340 261.0175  98.9158 14.41165514179634
+FUSE 1
+1 25791U 99035A   02323.97786359 +.00001085 +00000-0 +27593-3 0 07186
+2 25791 024.9834 284.0218 0010561 253.2107 106.7242 14.41164354179534
+FUSE 1
+1 25791U 99035A   02323.56237448  .00001085  00000-0  27595-3 0  7138
+2 25791  24.9834 286.5654 0010546 248.8875 111.0502 14.41163593179475
+FUSE 1
+1 25791U 99035A   02322.24665714  .00001162  00000-0  29927-3 0  7129
+2 25791  24.9833 294.6241 0010703 233.4813 126.4702 14.41161870179280
+FUSE 1
+1 25791U 99035A   02321.20793280  .00001220  00000-0  31720-3 0  7112
+2 25791  24.9829 300.9847 0010808 222.5858 137.3810 14.41160264179133
+FUSE 1
+1 25791U 99035A   02319.40747635  .00001263  00000-0  33024-3 0  7109
+2 25791  24.9825 312.0065 0010876 203.7169 156.2843 14.41156787178877
+FUSE 1
+1 25791U 99035A   02318.64574421 +.00001273 +00000-0 +33320-3 0 07183
+2 25791 024.9823 316.6719 0010904 195.8401 164.1766 14.41155172178760
+FUSE 1
+1 25791U 99035A   02317.81476349 +.00001220 +00000-0 +31728-3 0 07352
+2 25791 024.9826 321.7601 0010933 187.6105 172.4237 14.41152903178643
+FUSE 1
+1 25791U 99035A   02316.84528386  .00001225  00000-0  31884-3 0  7081
+2 25791  24.9827 327.6980 0010976 177.5120 182.5438 14.41150915178502
+FUSE 1
+1 25791U 99035A   02315.59880787  .00001242  00000-0  32394-3 0  7073
+2 25791  24.9825 335.3293 0011048 164.4233 195.6623 14.41148412178324
+FUSE 1
+1 25791U 99035A   02314.69857361 +.00001241 +00000-0 +32373-3 0 07071
+2 25791 024.9823 340.8415 0011033 155.1164 204.9876 14.41146449178190
+FUSE 1
+1 25791U 99035A   02314.56007609  .00001242  00000-0  32393-3 0  7061
+2 25791  24.9823 341.6892 0011038 153.6592 206.4489 14.41146160178176
+FUSE 1
+1 25791U 99035A   02313.24434699  .00001193  00000-0  30916-3 0  7051
+2 25791  24.9828 349.7471 0011087 140.1634 219.9694 14.41143010177981
+FUSE 1
+1 25791U 99035A   02312.20561116  .00001132  00000-0  29035-3 0  7043
+2 25791  24.9834 356.1079 0011110 129.7443 230.4048 14.41140389177833
+FUSE 1
+1 25791U 99035A   02311.92861422 +.00001126 +00000-0 +28868-3 0 07309
+2 25791 024.9835 357.8035 0011119 126.7910 233.3617 14.41139808177792
+FUSE 1
+1 25791U 99035A   02310.95912468 +.00001083 +00000-0 +27550-3 0 07048
+2 25791 024.9837 003.7403 0011086 116.7489 243.4157 14.41137566177658
+FUSE 1
+1 25791U 99035A   02310.82062580  .00001082  00000-0  27519-3 0  7038
+2 25791  24.9837   4.5881 0011089 115.2851 244.8806 14.41137305177632
+FUSE 1
+1 25791U 99035A   02309.78188408 +.00001035 +00000-0 +26086-3 0 07068
+2 25791 024.9840 010.9478 0011067 104.2526 255.9212 14.41135021177482
+FUSE 1
+1 25791U 99035A   02309.57413526  .00001031  00000-0  25964-3 0  7023
+2 25791  24.9841  12.2196 0011058 102.0689 258.1059 14.41134631177458
+FUSE 1
+1 25791U 99035A   02308.67388968 +.00001007 +00000-0 +25233-3 0 07048
+2 25791 024.9841 017.7307 0011071 092.5180 267.6595 14.41132871177326
+FUSE 1
+1 25791U 99035A   02308.53539014  .00001005  00000-0  25166-3 0  7013
+2 25791  24.9842  18.5786 0011066  91.0739 269.1037 14.41132629177302
+FUSE 1
+1 25791U 99035A   02307.08114362  .00000944  00000-0  23310-3 0  7006
+2 25791  24.9847  27.4838 0011100  76.0546 284.1186 14.41129780177094
+FUSE 1
+1 25791U 99035A   02306.04239290  .00000935  00000-0  23046-3 0  6992
+2 25791  24.9847  33.8456 0011062  65.0552 295.1089 14.41128082176944
+FUSE 1
+1 25791U 99035A   02304.86513927  .00000956  00000-0  23688-3 0  6986
+2 25791  24.9847  41.0556 0010946  52.9833 307.1674 14.41126496176775
+FUSE 1
+1 25791U 99035A   02303.89563460 +.00000960 +00000-0 +23806-3 0 06982
+2 25791 024.9849 046.9935 0010898 043.0452 317.0893 14.41125049176637
+FUSE 1
+1 25791U 99035A   02303.82638415  .00000966  00000-0  23984-3 0  6970
+2 25791  24.9849  47.4173 0010865  42.3451 317.7891 14.41125000176623
+FUSE 1
+1 25791U 99035A   02302.71837611 +.00001023 +00000-0 +25722-3 0 07019
+2 25791 024.9847 054.2005 0010813 031.1742 328.9406 14.41123746176466
+FUSE 1
+1 25791U 99035A   02302.57987459  .00001040  00000-0  26254-3 0  6962
+2 25791  24.9846  55.0483 0010830  29.7688 330.3422 14.41123680176445
+FUSE 1
+1 25791U 99035A   02300.98711079  .00001096  00000-0  27956-3 0  6958
+2 25791  24.9841  64.7981 0010843  13.0413 347.0373 14.41121314176213
+FUSE 1
+1 25791U 99035A   02299.87909991  .00001128  00000-0  28943-3 0  6947
+2 25791  24.9841  71.5856 0010786   1.4027 358.6513 14.41119575176050
+FUSE 1
+1 25791U 99035A   02298.84033835  .00001169  00000-0  30201-3 0  6932
+2 25791  24.9842  77.9480 0010811 350.6657   9.3651 14.41117963175906
+FUSE 1
+1 25791U 99035A   02297.94007642 +.00001182 +00000-0 +30577-3 0 06941
+2 25791 024.9844 083.4626 0010597 339.8645 020.1444 14.41116418175779
+FUSE 1
+1 25791U 99035A   02297.80157473  .00001180  00000-0  30538-3 0  6927
+2 25791  24.9845  84.3107 0010600 338.3923  21.6137 14.41116135175751
+FUSE 1
+1 25791U 99035A   02296.90131265 +.00001199 +00000-0 +31112-3 0 07052
+2 25791 024.9844 089.8231 0010565 328.5579 031.4298 14.41114507175620
+FUSE 1
+1 25791U 99035A   02296.55505701  .00001238  00000-0  32303-3 0  6914
+2 25791  24.9844  91.9448 0010517 324.3002  35.6802 14.41114238175578
+FUSE 1
+1 25791U 99035A   02295.93179849 +.00001243 +00000-0 +32465-3 0 07023
+2 25791 024.9845 095.7602 0010517 317.7975 042.1726 14.41112961175487
+FUSE 1
+1 25791U 99035A   02295.51629228  .00001254  00000-0  32781-3 0  6907
+2 25791  24.9843  98.3052 0010532 313.0139  46.9486 14.41112188175421
+FUSE 1
+1 25791U 99035A   02294.96228418 +.00001256 +00000-0 +32856-3 0 07075
+2 25791 024.9843 101.6963 0010529 307.2176 052.7370 14.41111015175348
+FUSE 1
+1 25791U 99035A   02294.13127216  .00001240  00000-0  32359-3 0  6898
+2 25791  24.9841 106.7843 0010541 298.5475  61.3971 14.41109044175226
+FUSE 1
+1 25791U 99035A   02293.92351906 +.00001239 +00000-0 +32344-3 0 07139
+2 25791 024.9843 108.0569 0010535 296.3424 063.6002 14.41108613175198
+FUSE 1
+1 25791U 99035A   02292.95400352 +.00001237 +00000-0 +32256-3 0 06905
+2 25791 024.9842 113.9928 0010572 285.9862 073.9481 14.41106520175057
+FUSE 1
+1 25791U 99035A   02292.88475244  .00001234  00000-0  32188-3 0  6887
+2 25791  24.9842 114.4167 0010574 285.2452  74.6888 14.41106349175045
+FUSE 1
+1 25791U 99035A   02291.56898052  .00001216  00000-0  31640-3 0  6878
+2 25791  24.9839 122.4724 0010637 271.2762  88.6530 14.41103373174859
+FUSE 1
+1 25791U 99035A   02290.94572017 +.00001195 +00000-0 +30991-3 0 07009
+2 25791 024.9844 126.2889 0010671 264.7560 095.1729 14.41101851174762
+FUSE 1
+1 25791U 99035A   02290.18395700  .00001174  00000-0  30345-3 0  6860
+2 25791  24.9843 130.9526 0010673 256.7111 103.2208 14.41100044174650
+FUSE 1
+1 25791U 99035A   02288.86818259  .00001140  00000-0  29323-3 0  6857
+2 25791  24.9845 139.0064 0010704 243.0013 116.9405 14.41097023174465
+FUSE 1
+1 25791U 99035A   02287.89866426 +.00001136 +00000-0 +29186-3 0 06894
+2 25791 024.9843 144.9409 0010684 232.7314 127.2281 14.41095095174326
+FUSE 1
+1 25791U 99035A   02287.20614986  .00001151  00000-0  29649-3 0  6847
+2 25791  24.9827 149.1875 0010669 225.6654 134.2979 14.41093836174225
+FUSE 1
+1 25791U 99035A   02285.89037225  .00001130  00000-0  29004-3 0  6836
+2 25791  24.9828 157.2454 0010692 211.9002 148.0860 14.41091133174039
+FUSE 1
+1 25791U 99035A   02284.85159928  .00001103  00000-0  28186-3 0  6825
+2 25791  24.9828 163.6064 0010728 200.9652 159.0419 14.41088960173884
+FUSE 1
+1 25791U 99035A   02283.32806291  .00001033  00000-0  26046-3 0  6812
+2 25791  24.9830 172.9322 0010689 184.6616 175.3793 14.41085821173666
+FUSE 1
+1 25791U 99035A   02282.98180447 +.00000996 +00000-0 +24906-3 0 06844
+2 25791 024.9832 175.0528 0010704 180.9650 179.0837 14.41085010173610
+FUSE 1
+1 25791U 99035A   02282.22003459  .00001026  00000-0  25852-3 0  6800
+2 25791  24.9831 179.7159 0010708 172.9134 187.1536 14.41083903173505
+FUSE 1
+1 25791U 99035A   02280.97350077 +.00000830 +00000-0 +19849-3 0 06802
+2 25791 024.9833 187.3563 0011025 161.6340 198.4554 14.41080808173324
+FUSE 1
+1 25791U 99035A   02280.90424885  .00000955  00000-0  23675-3 0  6792
+2 25791  24.9831 187.7802 0010991 160.8057 199.2869 14.41081211173315
+FUSE 1
+1 25791U 99035A   02279.93472079 +.00001010 +00000-0 +25355-3 0 06825
+2 25791 024.9829 193.7205 0011006 150.8784 209.2336 14.41079909173176
+FUSE 1
+1 25791U 99035A   02279.38070408  .00001043  00000-0  26359-3 0  6780
+2 25791  24.9829 197.1114 0011002 144.9425 215.1807 14.41079042173093
+FUSE 1
+1 25791U 99035A   02278.20341727  .00000963  00000-0  23930-3 0  6776
+2 25791  24.9832 204.3229 0011020 133.2028 226.9401 14.41076821172928
+FUSE 1
+1 25791U 99035A   02276.88762358  .00000955  00000-0  23667-3 0  6762
+2 25791  24.9828 212.3833 0011005 119.6564 240.5042 14.41074562172731
+FUSE 1
+1 25791U 99035A   02275.50257357  .00000810  00000-0  19257-3 0  6757
+2 25791  24.9832 220.8633 0010929 105.5890 254.5823 14.41071888172536
+FUSE 1
+1 25791U 99035A   02274.94855287 +.00000769 +00000-0 +18010-3 0 06782
+2 25791 024.9832 224.2597 0010747 099.8528 260.3191 14.41070889172458
+FUSE 1
+1 25791U 99035A   02274.39453091  .00000766  00000-0  17925-3 0  6745
+2 25791  24.9832 227.6504 0010741  94.0800 266.0941 14.41070217172379
+FUSE 1
+1 25791U 99035A   02273.97901442 +.00000752 +00000-0 +17475-3 0 06831
+2 25791 024.9833 230.1965 0010675 089.7969 270.3764 14.41069590172310
+FUSE 1
+1 25791U 99035A   02273.21723299  .00000755  00000-0  17576-3 0  6734
+2 25791  24.9834 234.8609 0010679  81.6884 278.4835 14.41068740172200
+FUSE 1
+1 25791U 99035A   02272.94022098 +.00000777 +00000-0 +18254-3 0 07023
+2 25791 024.9832 236.5583 0010621 078.7403 281.4295 14.41068586172166
+FUSE 1
+1 25791U 99035A   02271.97067853 +.00000808 +00000-0 +19195-3 0 06741
+2 25791 024.9832 242.4959 0010491 068.8195 291.3434 14.41067715172025
+FUSE 1
+1 25791U 99035A   02271.55516014  .00000808  00000-0  19212-3 0  6721
+2 25791  24.9832 245.0390 0010492  64.4543 295.7048 14.41067193171964
+FUSE 1
+1 25791U 99035A   02270.51636263  .00000857  00000-0  20706-3 0  6718
+2 25791  24.9832 251.3989 0010443  53.4959 306.6509 14.41066244171817
+FUSE 1
+1 25791U 99035A   02269.33905765  .00000893  00000-0  21807-3 0  6704
+2 25791  24.9833 258.6080 0010394  40.7861 319.3423 14.41064845171648
+FUSE 1
+1 25791U 99035A   02268.23100366  .00000992  00000-0  24815-3 0  6696
+2 25791  24.9827 265.3949 0010332  28.8061 331.3014 14.41063880171481
+FUSE 1
+1 25791U 99035A   02267.19220147  .00001098  00000-0  28063-3 0  6686
+2 25791  24.9823 271.7543 0010324  17.9281 342.1586 14.41062934171339
+FUSE 1
+1 25791U 99035A   02265.66862362  .00001232  00000-0  32165-3 0  6674
+2 25791  24.9816 281.0815 0010329   1.9220 358.1327 14.41060966171117
+FUSE 1
+1 25791U 99035A   02264.56056684  .00001222  00000-0  31866-3 0  6669
+2 25791  24.9817 287.8674 0010319 349.8851  10.1457 14.41058532170954
+FUSE 1
+1 25791U 99035A   02263.52176164  .00001227  00000-0  32006-3 0  6651
+2 25791  24.9817 294.2294 0010341 338.4888  21.5185 14.41056345170801
+FUSE 1
+1 25791U 99035A   02262.62146251 +.00001266 +00000-0 +33195-3 0 06726
+2 25791 024.9813 299.7417 0010331 328.9476 031.0420 14.41054666170677
+FUSE 1
+1 25791U 99035A   02262.41370124  .00001257  00000-0  32914-3 0  6640
+2 25791  24.9813 301.0139 0010341 326.6238  33.3618 14.41054137170641
+FUSE 1
+1 25791U 99035A   02261.23638509  .00001327  00000-0  35045-3 0  6638
+2 25791  24.9808 308.2225 0010336 313.5426  46.4225 14.41052008170473
+FUSE 1
+1 25791U 99035A   02260.19757547  .00001443  00000-0  38612-3 0  6627
+2 25791  24.9803 314.5833 0010346 302.4458  57.5047 14.41050420170321
+FUSE 1
+1 25791U 99035A   02259.71279796 +.00001450 +00000-0 +38808-3 0 06904
+2 25791 024.9803 317.5503 0010348 297.3449 062.6007 14.41049231170255
+FUSE 1
+1 25791U 99035A   02258.81249669  .00001457  00000-0  39044-3 0  6618
+2 25791  24.9801 323.0624 0010344 288.1227  71.8153 14.41046928170127
+FUSE 1
+1 25791U 99035A   02257.56592355  .00001607  00000-0  43604-3 0  6605
+2 25791  24.9798 330.6972 0010331 274.6720  85.2607 14.41044565169942
+FUSE 1
+1 25791U 99035A   02256.52711275  .00001599  00000-0  43384-3 0  6597
+2 25791  24.9793 337.0578 0010393 263.4699  96.4645 14.41041446169793
+FUSE 1
+1 25791U 99035A   02255.41904580  .00001584  00000-0  42933-3 0  6589
+2 25791  24.9787 343.8424 0010407 251.9278 108.0095 14.41038086169630
+FUSE 1
+1 25791U 99035A   02254.72650348 +.00001491 +00000-0 +40078-3 0 06835
+2 25791 024.9788 348.0813 0010411 244.6244 115.3195 14.41035736169537
+FUSE 1
+1 25791U 99035A   02253.89545131  .00001396  00000-0  37159-3 0  6576
+2 25791  24.9785 353.1698 0010435 235.7390 124.2119 14.41033155169416
+FUSE 1
+1 25791U 99035A   02252.92589091 +.00001057 +00000-0 +26812-3 0 06570
+2 25791 024.9789 359.1085 0010610 225.0767 134.8879 14.41029740169270
+FUSE 1
+1 25791U 99035A   02252.85663624  .00001059  00000-0  26870-3 0  6562
+2 25791  24.9790 359.5326 0010621 224.3210 135.6441 14.41029635169267
+FUSE 1
+1 25791U 99035A   02251.95632761 +.00001005 +00000-0 +25223-3 0 06562
+2 25791 024.9790 005.0443 0010707 214.4524 145.5288 14.41027801169131
+FUSE 1
+1 25791U 99035A   02251.81781883  .00001011  00000-0  25399-3 0  6557
+2 25791  24.9790   5.8921 0010710 212.9295 147.0567 14.41027608169112
+FUSE 1
+1 25791U 99035A   02250.70974565 +.00000905 +00000-0 +22152-3 0 06628
+2 25791 024.9792 012.6758 0010740 201.5396 158.4662 14.41025222168950
+FUSE 1
+1 25791U 99035A   02250.57123644  .00000892  00000-0  21766-3 0  6543
+2 25791  24.9793  13.5236 0010741 200.1557 159.8528 14.41024911168935
+FUSE 1
+1 25791U 99035A   02248.90912382  .00000783  00000-0  18435-3 0  6539
+2 25791  24.9796  23.6965 0010767 182.5930 177.4521 14.41021797168696
+FUSE 1
+1 25791U 99035A   02247.93955749 +.00000652 +00000-0 +14418-3 0 06762
+2 25791 024.9802 029.6342 0010910 173.0331 187.0327 14.41019680168553
+FUSE 1
+1 25791U 99035A   02247.24700867  .00000614  00000-0  13267-3 0  6528
+2 25791  24.9803  33.8749 0010996 165.8745 194.2065 14.41018736168453
+FUSE 1
+1 25791U 99035A   02246.13892944  .00000537  00000-0  10933-3 0  6513
+2 25791  24.9806  40.6587 0011018 154.5982 205.5064 14.41017206168294
+FUSE 1
+1 25791U 99035A   02244.89233811  .00000526  00000-0  10578-3 0  6508
+2 25791  24.9810  48.2931 0011178 142.1273 218.0023 14.41016304168112
+FUSE 1
+1 25791U 99035A   02243.57648803  .00000736  00000-0  16997-3 0  6495
+2 25791  24.9800  56.3527 0011307 128.8388 231.3126 14.41016815167921
+FUSE 1
+1 25791U 99035A   02242.12212513  .00001042  00000-0  26353-3 0  6487
+2 25791  24.9790  65.2545 0011385 113.4504 246.7186 14.41017164167715
+FUSE 1
+1 25791U 99035A   02241.15254607  .00001586  00000-0  42999-3 0  6475
+2 25791  24.9772  71.1895 0011244 103.6925 256.4821 14.41018933167574
+FUSE 1
+1 25791U 99035A   02240.87553062  .00000969  00000-0  24140-3 0  6461
+2 25791  24.9785  72.8895 0010796 101.1155 259.0566 14.41013762167531
+FUSE 1
+1 25791U 99035A   02239.90595273 +.00001112 +00000-0 +28499-3 0 06645
+2 25791 024.9781 078.8252 0010791 090.9038 269.2706 14.41013017167396
+FUSE 1
+1 25791U 99035A   02239.21339631  .00001213  00000-0  31602-3 0  6454
+2 25791  24.9777  83.0642 0010776  83.4859 276.6874 14.41012252167290
+FUSE 1
+1 25791U 99035A   02237.96679327 +.00001439 +00000-0 +38514-3 0 06496
+2 25791 024.9774 090.6979 0010768 071.0115 289.1558 14.41010739167110
+FUSE 1
+1 25791U 99035A   02237.89753765  .00001477  00000-0  39690-3 0  6440
+2 25791  24.9773  91.1232 0010788  70.3652 289.8019 14.41010744167101
+FUSE 1
+1 25791U 99035A   02236.44316461  .00001500  00000-0  40378-3 0  6439
+2 25791  24.9767 100.0287 0010670  55.6564 304.4950 14.41006864166893
+FUSE 1
+1 25791U 99035A   02235.19655478  .00001345  00000-0  35650-3 0  6427
+2 25791  24.9770 107.6610 0010486  43.1111 317.0209 14.41003175166715
+FUSE 1
+1 25791U 99035A   02233.94994384 +.00001071 +00000-0 +27257-3 0 06453
+2 25791 024.9778 115.2923 0010434 030.0321 330.0788 14.40999043166530
+FUSE 1
+1 25791U 99035A   02233.88068763  .00001046  00000-0  26501-3 0  6418
+2 25791  24.9780 115.7163 0010425  29.2338 330.8754 14.40998751166527
+FUSE 1
+1 25791U 99035A   02232.49555828  .00000919  00000-0  22621-3 0  6403
+2 25791  24.9786 124.1958 0010414  14.6083 345.4723 14.40995445166325
+FUSE 1
+1 25791U 99035A   02231.94150552 +.00000876 +00000-0 +21309-3 0 06546
+2 25791 024.9788 127.5880 0010407 008.4765 351.5919 14.40994234166249
+FUSE 1
+1 25791U 99035A   02231.38745204  .00000845  00000-0  20367-3 0  6390
+2 25791  24.9789 130.9790 0010378   2.6277 357.4296 14.40993213166169
+FUSE 1
+1 25791U 99035A   02230.97191224 +.00000798 +00000-0 +18928-3 0 06602
+2 25791 024.9793 133.5251 0010384 358.0335 002.0134 14.40992235166106
+FUSE 1
+1 25791U 99035A   02230.21008800  .00000719  00000-0  16493-3 0  6389
+2 25791  24.9799 138.1891 0010364 349.8416  10.1882 14.40990663165998
+FUSE 1
+1 25791U 99035A   02228.89420846  .00000570  00000-0  11957-3 0  6372
+2 25791  24.9808 146.2460 0010327 335.3789  24.6230 14.40988149165806
+FUSE 1
+1 25791U 99035A   02227.85535415  .00000520  00000-0  10422-3 0  6366
+2 25791  24.9812 152.6068 0010343 324.1332  35.8482 14.40986913165657
+FUSE 1
+1 25791U 99035A   02226.95501315 +.00000506 +00000-0 +99908-4 0 06426
+2 25791 024.9813 158.1197 0010337 314.4756 045.4908 14.40986180165529
+FUSE 1
+1 25791U 99035A   02226.47021386  .00000502  00000-0  98661-4 0  6351
+2 25791  24.9813 161.0865 0010330 309.4557  50.5037 14.40985822165454
+FUSE 1
+1 25791U 99035A   02225.98541513 +.00000476 +00000-0 +90569-4 0 06422
+2 25791 024.9815 164.0553 0010405 304.3474 055.6046 14.40985257165388
+FUSE 1
+1 25791U 99035A   02225.22358750  .00000482  00000-0  92578-4 0  6348
+2 25791  24.9816 168.7186 0010417 296.1218  63.8218 14.40984875165274
+FUSE 1
+1 25791U 99035A   02223.97696163 +.00000481 +00000-0 +92220-4 0 06412
+2 25791 024.9814 176.3517 0010455 283.1411 076.7930 14.40984067165095
+FUSE 1
+1 25791U 99035A   02223.49216218  .00000489  00000-0  94620-4 0  6333
+2 25791  24.9814 179.3194 0010476 277.8554  82.0754 14.40983850165026
+FUSE 1
+1 25791U 99035A   02222.93810641 +.00000509 +00000-0 +10073-3 0 06456
+2 25791 024.9812 182.7128 0010537 272.0359 087.8941 14.40983654164940
+FUSE 1
+1 25791U 99035A   02222.24553673  .00000508  00000-0  10033-3 0  6320
+2 25791  24.9814 186.9527 0010565 264.8001  95.1296 14.40983198164842
+FUSE 1
+1 25791U 99035A   02220.72188492  .00000514  00000-0  10213-3 0  6310
+2 25791  24.9811 196.2838 0010649 248.9270 111.0101 14.40982128164623
+FUSE 1
+1 25791U 99035A   02219.96005888 +.00000589 +00000-0 +12528-3 0 06358
+2 25791 024.9808 200.9504 0010520 240.1664 119.7798 14.40982235164515
+FUSE 1
+1 25791U 99035A   02219.54451761  .00000591  00000-0  12583-3 0  6306
+2 25791  24.9809 203.4950 0010565 235.7070 124.2439 14.40981930164456
+FUSE 1
+1 25791U 99035A   02218.50566444  .00000591  00000-0  12589-3 0  6290
+2 25791  24.9810 209.8564 0010671 225.0521 134.9121 14.40981088164304
+FUSE 1
+1 25791U 99035A   02217.67458222 +.00000586 +00000-0 +12427-3 0 06319
+2 25791 024.9810 214.9451 0010742 216.2683 143.7098 14.40980335164187
+FUSE 1
+1 25791U 99035A   02217.46681143  .00000587  00000-0  12450-3 0  6289
+2 25791  24.9811 216.2175 0010798 214.1027 145.8787 14.40980196164156
+FUSE 1
+1 25791U 99035A   02216.77424262 +.00000608 +00000-0 +13094-3 0 06446
+2 25791 024.9810 220.4589 0010860 206.6184 153.3766 14.40979799164058
+FUSE 1
+1 25791U 99035A   02216.22018763  .00000623  00000-0  13547-3 0  6272
+2 25791  24.9812 223.8548 0011013 200.8472 159.1590 14.40979503163971
+FUSE 1
+1 25791U 99035A   02215.18133380  .00000638  00000-0  14024-3 0  6265
+2 25791  24.9811 230.2141 0011063 190.3957 169.6323 14.40978710163820
+FUSE 1
+1 25791U 99035A   02213.72693828  .00000645  00000-0  14244-3 0  6252
+2 25791  24.9811 239.1154 0011038 174.9987 185.0630 14.40977412163613
+FUSE 1
+1 25791U 99035A   02212.54957017  .00000624  00000-0  13599-3 0  6242
+2 25791  24.9812 246.3230 0011021 162.5693 197.5196 14.40976134163444
+FUSE 1
+1 25791U 99035A   02211.71848578 +.00000610 +00000-0 +13168-3 0 06428
+2 25791 024.9811 251.4099 0011007 153.9347 206.1718 14.40975246163324
+FUSE 1
+1 25791U 99035A   02211.23368603  .00000608  00000-0  13095-3 0  6236
+2 25791  24.9811 254.3777 0010998 148.9909 211.1249 14.40974805163252
+FUSE 1
+1 25791U 99035A   02210.74888612 +.00000597 +00000-0 +12772-3 0 06506
+2 25791 024.9812 257.3445 0011002 143.8708 216.2543 14.40974298163187
+FUSE 1
+1 25791U 99035A   02209.98705743 +.00000587 +00000-0 +12459-3 0 06234
+2 25791 024.9812 262.0081 0011027 135.8366 224.3023 14.40973550163075
+FUSE 1
+1 25791U 99035A   02209.84854304  .00000587  00000-0  12459-3 0  6226
+2 25791  24.9812 262.8557 0011027 134.3832 225.7585 14.40973436163052
+FUSE 1
+1 25791U 99035A   02208.87894183 +.00000550 +00000-0 +11335-3 0 06274
+2 25791 024.9814 268.7902 0011057 124.1443 236.0120 14.40972331162918
+FUSE 1
+1 25791U 99035A   02208.53265521  .00000545  00000-0  11191-3 0  6213
+2 25791  24.9816 270.9107 0011057 120.4890 239.6710 14.40972045162867
+FUSE 1
+1 25791U 99035A   02207.21676421  .00000548  00000-0  11278-3 0  6200
+2 25791  24.9817 278.9666 0011052 107.3653 252.8065 14.40971121162675
+FUSE 1
+1 25791U 99035A   02206.87047673 +.00000547 +00000-0 +11238-3 0 06588
+2 25791 024.9817 281.0857 0011055 103.7292 256.4448 14.40970853162625
+FUSE 1
+1 25791U 99035A   02205.97012911 +.00000514 +00000-0 +10239-3 0 06208
+2 25791 024.9822 286.5981 0010989 094.6865 265.4898 14.40969946162493
+FUSE 1
+1 25791U 99035A   02205.83161386  .00000516  00000-0  10301-3 0  6194
+2 25791  24.9822 287.4462 0010983  93.2503 266.9261 14.40969873162472
+FUSE 1
+1 25791U 99035A   02204.86200730 +.00000468 +00000-0 +88363-4 0 06306
+2 25791 024.9826 293.3810 0010949 083.1743 277.0007 14.40968846162330
+FUSE 1
+1 25791U 99035A   02204.58497626  .00000484  00000-0  93112-4 0  6189
+2 25791  24.9826 295.0773 0010951  80.5497 279.6249 14.40968840162292
+FUSE 1
+1 25791U 99035A   02203.89239905 +.00000449 +00000-0 +82482-4 0 06488
+2 25791 024.9828 299.3172 0010890 073.2055 286.9638 14.40968123162191
+FUSE 1
+1 25791U 99035A   02203.13056333  .00000422  00000-0  74306-4 0  6170
+2 25791  24.9830 303.9805 0010839  65.4604 294.7027 14.40967491162089
+FUSE 1
+1 25791U 99035A   02201.88392126  .00000430  00000-0  76591-4 0  6169
+2 25791  24.9831 311.6129 0010788  52.8603 307.2893 14.40966950161907
+FUSE 1
+1 25791U 99035A   02200.84505139  .00000426  00000-0  75310-4 0  6156
+2 25791  24.9831 317.9723 0010726  42.0624 318.0702 14.40966400161754
+FUSE 1
+1 25791U 99035A   02199.94469674 +.00000428 +00000-0 +76045-4 0 06177
+2 25791 024.9831 323.4842 0010660 032.3527 327.7634 14.40965983161621
+FUSE 1
+1 25791U 99035A   02199.80618047  .00000429  00000-0  76448-4 0  6147
+2 25791  24.9831 324.3321 0010640  30.8653 329.2479 14.40965931161609
+FUSE 1
+1 25791U 99035A   02198.90582495 +.00000439 +00000-0 +79526-4 0 06303
+2 25791 024.9831 329.8436 0010600 021.3948 338.6994 14.40965565161478
+FUSE 1
+1 25791U 99035A   02198.55953443  .00000442  00000-0  80466-4 0  6139
+2 25791  24.9831 331.9633 0010574  17.8270 342.2607 14.40965414161429
+FUSE 1
+1 25791U 99035A   02197.93621100 +.00000444 +00000-0 +80937-4 0 06362
+2 25791 024.9831 335.7781 0010561 011.3039 348.7699 14.40965095161330
+FUSE 1
+1 25791U 99035A   02197.24362949  .00000444  00000-0  80988-4 0  6129
+2 25791  24.9831 340.0166 0010550   3.9600 356.0998 14.40964729161231
+FUSE 1
+1 25791U 99035A   02196.20475640  .00000449  00000-0  82478-4 0  6117
+2 25791  24.9832 346.3749 0010499 353.1602   6.8760 14.40964234161083
+FUSE 1
+1 25791U 99035A   02195.92772353 +.00000455 +00000-0 +84353-4 0 06533
+2 25791 024.9833 348.0711 0010484 350.1147 009.9154 14.40964150161041
+FUSE 1
+1 25791U 99035A   02194.95810905 +.00000446 +00000-0 +81482-4 0 06126
+2 25791 024.9834 354.0072 0010473 339.7777 020.2317 14.40963538160909
+FUSE 1
+1 25791U 99035A   02194.88885078  .00000448  00000-0  82042-4 0  6104
+2 25791  24.9834 354.4313 0010464 339.0255  20.9823 14.40963525160898
+FUSE 1
+1 25791U 99035A   02193.84997767  .00000458  00000-0  85132-4 0  6090
+2 25791  24.9833   0.7908 0010468 328.1332  31.8541 14.40963009160746
+FUSE 1
+1 25791U 99035A   02192.94962101 +.00000463 +00000-0 +86594-4 0 06116
+2 25791 024.9833 006.3022 0010480 318.4949 041.4767 14.40962539160615
+FUSE 1
+1 25791U 99035A   02192.81110453  .00000461  00000-0  86250-4 0  6080
+2 25791  24.9833   7.1500 0010464 316.9667  43.0024 14.40962462160593
+FUSE 1
+1 25791U 99035A   02191.91074766 +.00000486 +00000-0 +93771-4 0 06270
+2 25791 024.9834 012.6624 0010451 307.1503 052.8049 14.40962172160468
+FUSE 1
+1 25791U 99035A   02191.56445709  .00000480  00000-0  91884-4 0  6075
+2 25791  24.9832  14.7827 0010464 303.4798  56.4711 14.40961871160419
+FUSE 1
+1 25791U 99035A   02190.94113347 +.00000477 +00000-0 +90930-4 0 06343
+2 25791 024.9834 018.5979 0010445 296.7402 063.2037 14.40961502160324
+FUSE 1
+1 25791U 99035A   02190.17929374  .00000481  00000-0  92165-4 0  6069
+2 25791  24.9832  23.2616 0010481 288.6533  71.2835 14.40961043160211
+FUSE 1
+1 25791U 99035A   02189.14042204  .00000483  00000-0  92846-4 0  6059
+2 25791  24.9831  29.6230 0010511 277.8585  82.0723 14.40960393160069
+FUSE 1
+1 25791U 99035A   02187.89377604  .00000505  00000-0  99522-4 0  6046
+2 25791  24.9830  37.2551 0010534 264.3308  95.5998 14.40959812159883
+FUSE 1
+1 25791U 99035A   02186.43935654  .00000501  00000-0  98297-4 0  6033
+2 25791  24.9829  46.1591 0010579 249.0358 110.8998 14.40958795159675
+FUSE 1
+1 25791U 99035A   02185.19271205  .00000504  00000-0  99265-4 0  6028
+2 25791  24.9830  53.7902 0010629 236.0216 123.9281 14.40958001159492
+FUSE 1
+1 25791U 99035A   02184.15384184  .00000513  00000-0  10203-3 0  6017
+2 25791  24.9831  60.1514 0010674 224.8693 135.0951 14.40957412159345
+FUSE 1
+1 25791U 99035A   02182.97645554 +.00000516 +00000-0 +10283-3 0 06062
+2 25791 024.9830 067.3585 0010725 212.3891 147.5958 14.40956658159177
+FUSE 1
+1 25791U 99035A   02182.90719767  .00000519  00000-0  10371-3 0  6008
+2 25791  24.9829  67.7832 0010724 211.7115 148.2747 14.40956613159169
+FUSE 1
+1 25791U 99035A   02181.93758516 +.00000548 +00000-0 +11261-3 0 06062
+2 25791 024.9828 073.7191 0010818 201.1978 158.8084 14.40956221159028
+FUSE 1
+1 25791U 99035A   02181.86832717  .00000553  00000-0  11428-3 0  5992
+2 25791  24.9828  74.1435 0010825 200.5146 159.4931 14.40956212159019
+FUSE 1
+1 25791U 99035A   02180.96797324 +.00000532 +00000-0 +10787-3 0 06159
+2 25791 024.9829 079.6553 0010847 191.2420 168.7845 14.40955372158883
+FUSE 1
+1 25791U 99035A   02180.55242493  .00000529  00000-0  10681-3 0  5985
+2 25791  24.9829  82.1984 0010852 186.9486 173.0868 14.40955042158821
+FUSE 1
+1 25791U 99035A   02179.92910226 +.00000542 +00000-0 +11095-3 0 06155
+2 25791 024.9830 086.0152 0010926 180.7342 179.3149 14.40954738158730
+FUSE 1
+1 25791U 99035A   02179.23652162  .00000551  00000-0  11359-3 0  5973
+2 25791  24.9830  90.2545 0010946 173.5199 186.5457 14.40954304158635
+FUSE 1
+1 25791U 99035A   02177.98987603 +.00000542 +00000-0 +11095-3 0 06006
+2 25791 024.9832 097.8882 0011031 160.8337 199.2588 14.40953321158457
+FUSE 1
+1 25791U 99035A   02177.85135981  .00000538  00000-0  10963-3 0  5968
+2 25791  24.9832  98.7360 0011031 159.3474 200.7478 14.40953176158435
+FUSE 1
+1 25791U 99035A   02176.95100402 +.00000504 +00000-0 +99300-4 0 06022
+2 25791 024.9833 104.2472 0011004 150.1851 209.9284 14.40952226158308
+FUSE 1
+1 25791U 99035A   02176.46619641  .00000500  00000-0  98147-4 0  5953
+2 25791  24.9832 107.2138 0011008 145.0625 215.0606 14.40951875158232
+FUSE 1
+1 25791U 99035A   02175.21954740  .00000495  00000-0  96657-4 0  5943
+2 25791  24.9834 114.8444 0011052 132.0019 228.1431 14.40951047158052
+FUSE 1
+1 25791U 99035A   02173.90363925  .00000444  00000-0  81013-4 0  5939
+2 25791  24.9837 122.9038 0011028 119.1777 240.9836 14.40949793157868
+FUSE 1
+1 25791U 99035A   02172.51846935  .00000425  00000-0  75104-4 0  5924
+2 25791  24.9839 131.3835 0010980 104.9187 255.2530 14.40948920157661
+FUSE 1
+1 25791U 99035A   02171.41033186  .00000417  00000-0  72553-4 0  5913
+2 25791  24.9844 138.1686 0010902  93.6662 266.5092 14.40948370157502
+FUSE 1
+1 25791U 99035A   02170.50996877 +.00000436 +00000-0 +78639-4 0 05975
+2 25791 024.9843 143.6798 0010904 084.4115 275.7637 14.40948095157375
+FUSE 1
+1 25791U 99035A   02170.23293415  .00000423  00000-0  74576-4 0  5908
+2 25791  24.9845 145.3761 0010901  81.5059 278.6684 14.40947844157339
+FUSE 1
+1 25791U 99035A   02169.19405227  .00000425  00000-0  75062-4 0  5898
+2 25791  24.9846 151.7361 0010811  70.7002 289.4672 14.40947374157183
+FUSE 1
+1 25791U 99035A   02167.60109739  .00000492  00000-0  95589-4 0  5880
+2 25791  24.9842 161.4859 0010787  54.1241 306.0266 14.40947018156956
+FUSE 1
+1 25791U 99035A   02166.56221265  .00000534  00000-0  10864-3 0  5871
+2 25791  24.9839 167.8442 0010791  43.1206 317.0146 14.40946662156801
+FUSE 1
+1 25791U 99035A   02165.24629112  .00000568  00000-0  11909-3 0  5865
+2 25791  24.9843 175.9013 0010722  29.2251 330.8852 14.40946031156615
+FUSE 1
+1 25791U 99035A   02163.86110918  .00000595  00000-0  12719-3 0  5859
+2 25791  24.9845 184.3792 0010702  14.8284 345.2538 14.40945180156412
+FUSE 1
+1 25791U 99035A   02162.54518530  .00000658  00000-0  14664-3 0  5845
+2 25791  24.9846 192.4369 0010588   1.1350 358.9185 14.40944578156226
+FUSE 1
+1 25791U 99035A   02161.85259359 +.00000674 +00000-0 +15131-3 0 06107
+2 25791 024.9846 196.6771 0010590 353.7741 006.2633 14.40944011156124
+FUSE 1
+1 25791U 99035A   02161.22926069  .00000700  00000-0  15929-3 0  5831
+2 25791  24.9847 200.4935 0010585 347.0023  13.0212 14.40943608156034
+FUSE 1
+1 25791U 99035A   02159.84407613  .00000743  00000-0  17262-3 0  5823
+2 25791  24.9846 208.9724 0010588 332.2220  27.7726 14.40942460155834
+FUSE 1
+1 25791U 99035A   02158.80518770  .00000793  00000-0  18784-3 0  5819
+2 25791  24.9846 215.3341 0010581 321.3048  38.6704 14.40941632155681
+FUSE 1
+1 25791U 99035A   02157.97407665 +.00000825 +00000-0 +19757-3 0 05879
+2 25791 024.9847 220.4222 0010562 312.3796 047.5815 14.40940838155562
+FUSE 1
+1 25791U 99035A   02157.55852103  .00000870  00000-0  21141-3 0  5807
+2 25791  24.9847 222.9680 0010439 307.4635  52.4923 14.40940695155507
+FUSE 1
+1 25791U 99035A   02156.86592860 +.00000855 +00000-0 +20693-3 0 06042
+2 25791 024.9846 227.2073 0010554 299.6921 060.2540 14.40939609155402
+FUSE 1
+1 25791U 99035A   02156.24259499  .00000899  00000-0  22019-3 0  5795
+2 25791  24.9846 231.0244 0010551 292.5198  67.4193 14.40939088155314
+FUSE 1
+1 25791U 99035A   02155.06518757  .00000887  00000-0  21661-3 0  5787
+2 25791  24.9851 238.2318 0010502 278.6019  81.3297 14.40937436155140
+FUSE 1
+1 25791U 99035A   02154.92666911 +.00000889 +00000-0 +21739-3 0 06067
+2 25791 024.9851 239.0795 0010509 277.1250 082.8066 14.40937258155126
+FUSE 1
+1 25791U 99035A   02153.88777948  .00000883  00000-0  21546-3 0  5771
+2 25791  24.9856 245.4403 0010777 265.3681  94.5596 14.40935853154971
+FUSE 1
+1 25791U 99035A   02152.57185272  .00000902  00000-0  22117-3 0  5765
+2 25791  24.9868 253.4989 0011060 249.3519 110.5805 14.40934379154783
+FUSE 1
+1 25791U 99035A   02151.53296309  .00000970  00000-0  24192-3 0  5753
+2 25791  24.9869 259.8581 0011180 238.2453 121.6966 14.40933320154639
+FUSE 1
+1 25791U 99035A   02150.70185103 +.00001051 +00000-0 +26686-3 0 05975
+2 25791 024.9867 264.9433 0011243 229.4877 130.4651 14.40932501154518
+FUSE 1
+1 25791U 99035A   02149.93999876  .00001091  00000-0  27908-3 0  5745
+2 25791  24.9867 269.6053 0011249 221.4930 138.4719 14.40931407154401
+FUSE 1
+1 25791U 99035A   02148.90111038 +.00001229 +00000-0 +32134-3 0 05769
+2 25791 024.9863 275.9625 0011269 210.6845 149.3088 14.40930136154250
+FUSE 1
+1 25791U 99035A   02148.83185155  .00000938  00000-0  23221-3 0  5732
+2 25791  24.9851 276.3822 0010775 212.4019 147.5850 14.40927933154242
+FUSE 1
+1 25791U 99035A   02147.93147934 +.00000813 +00000-0 +19395-3 0 05958
+2 25791 024.9857 281.8960 0010898 202.6278 157.3749 14.40926137154113
+FUSE 1
+1 25791U 99035A   02147.58518187  .00001001  00000-0  25172-3 0  5726
+2 25791  24.9861 284.0183 0011012 197.6860 162.3263 14.40926704154060
+FUSE 1
+1 25791U 99035A   02146.54628978  .00000913  00000-0  22451-3 0  5718
+2 25791  24.9845 290.3753 0010754 189.6041 170.4268 14.40924183153916
+FUSE 1
+1 25791U 99035A   02145.16109886  .00000752  00000-0  17520-3 0  5708
+2 25791  24.9854 298.8585 0011057 175.5591 184.5015 14.40921808153718
+FUSE 1
+1 25791U 99035A   02144.12220258  .00000806  00000-0  19188-3 0  5690
+2 25791  24.9858 305.2220 0011313 166.0837 193.9972 14.40920971153563
+FUSE 1
+1 25791U 99035A   02143.91442346 +.00000815 +00000-0 +19451-3 0 06009
+2 25791 024.9859 306.4952 0011363 164.3048 195.7813 14.40920803153534
+FUSE 1
+1 25791U 99035A   02142.94478746 +.00000943 +00000-0 +23384-3 0 05690
+2 25791 024.9854 312.4312 0011411 153.9631 206.1530 14.40920479153398
+FUSE 1
+1 25791U 99035A   02142.87552765  .00000884  00000-0  21574-3 0  5688
+2 25791  24.9848 312.8512 0010954 151.9799 208.1299 14.40919629153389
+FUSE 1
+1 25791U 99035A   02141.90588955 +.00000926 +00000-0 +22857-3 0 05874
+2 25791 024.9841 318.7826 0010700 140.9341 219.1940 14.40918429153242
+FUSE 1
+1 25791U 99035A   02141.55958991  .00000963  00000-0  23993-3 0  5677
+2 25791  24.9839 320.9048 0010714 137.4073 222.7267 14.40918220153193
+FUSE 1
+1 25791U 99035A   02140.17438775  .00001057  00000-0  26889-3 0  5668
+2 25791  24.9835 329.3818 0010822 124.7440 235.4086 14.40916869152998
+FUSE 1
+1 25791U 99035A   02139.96660755 +.00001083 +00000-0 +27692-3 0 05884
+2 25791 024.9836 330.6540 0010888 122.4431 237.7130 14.40916754152968
+FUSE 1
+1 25791U 99035A   02139.06622508  .00001163  00000-0  30126-3 0  5659
+2 25791  24.9830 336.1650 0010863 113.3928 246.7719 14.40915711152839
+FUSE 1
+1 25791U 99035A   02137.88879990  .00001296  00000-0  34198-3 0  5645
+2 25791  24.9826 343.3712 0010907 101.0863 259.0871 14.40914401152666
+FUSE 1
+1 25791U 99035A   02136.91915471 +.00001350 +00000-0 +35875-3 0 05816
+2 25791 024.9827 349.3060 0010932 090.9446 269.2314 14.40912681152528
+FUSE 1
+1 25791U 99035A   02136.22654987  .00001376  00000-0  36654-3 0  5636
+2 25791  24.9826 353.5443 0010936  83.6416 276.5336 14.40911244152427
+FUSE 1
+1 25791U 99035A   02135.94950762 +.00001397 +00000-0 +37325-3 0 05723
+2 25791 024.9825 355.2400 0010966 080.7402 279.4344 14.40910769152381
+FUSE 1
+1 25791U 99035A   02135.18764091  .00001413  00000-0  37797-3 0  5628
+2 25791  24.9824 359.9024 0010965  72.6730 287.4977 14.40909002152273
+FUSE 1
+1 25791U 99035A   02134.91059834 +.00001415 +00000-0 +37857-3 0 05922
+2 25791 024.9825 001.5980 0010968 069.7349 290.4345 14.40908337152230
+FUSE 1
+1 25791U 99035A   02133.94094738 +.00001415 +00000-0 +37859-3 0 05636
+2 25791 024.9824 007.5352 0010877 059.9778 300.1809 14.40905944152093
+FUSE 1
+1 25791U 99035A   02133.87168652  .00001412  00000-0  37775-3 0  5617
+2 25791  24.9825   7.9592 0010873  59.2261 300.9315 14.40905750152084
+FUSE 1
+1 25791U 99035A   02132.48646600  .00001369  00000-0  36456-3 0  5602
+2 25791  24.9823  16.4325 0010684  45.9733 314.1653 14.40902098151888
+FUSE 1
+1 25791U 99035A   02131.30902586  .00001353  00000-0  35975-3 0  5596
+2 25791  24.9822  23.6391 0010610  33.6244 326.4935 14.40899142151716
+FUSE 1
+1 25791U 99035A   02130.20084454  .00001308  00000-0  34583-3 0  5582
+2 25791  24.9820  30.4208 0010580  22.0031 338.0932 14.40896173151558
+FUSE 1
+1 25791U 99035A   02129.16192230  .00001226  00000-0  32085-3 0  5570
+2 25791  24.9821  36.7788 0010481  11.1643 348.9097 14.40893274151404
+FUSE 1
+1 25791U 99035A   02128.95413775 +.00001211 +00000-0 +31627-3 0 05931
+2 25791 024.9821 038.0520 0010468 008.7737 351.2951 14.40892692151379
+FUSE 1
+1 25791U 99035A   02127.98447523 +.00001111 +00000-0 +28565-3 0 05601
+2 25791 024.9824 043.9896 0010296 357.7755 002.2712 14.40889924151236
+FUSE 1
+1 25791U 99035A   02127.91521357  .00001094  00000-0  28026-3 0  5569
+2 25791  24.9824  44.4136 0010284 357.0692   2.9753 14.40889652151228
+FUSE 1
+1 25791U 99035A   02126.94554859 +.00001060 +00000-0 +27008-3 0 05601
+2 25791 024.9824 050.3495 0010262 346.7330 013.2907 14.40887620151085
+FUSE 1
+1 25791U 99035A   02126.87628689  .00001055  00000-0  26832-3 0  5558
+2 25791  24.9824  50.7736 0010263 346.0680  13.9545 14.40887452151076
+FUSE 1
+1 25791U 99035A   02125.97588259 +.00001014 +00000-0 +25588-3 0 05671
+2 25791 024.9823 056.2855 0010259 336.2920 023.7116 14.40885529150942
+FUSE 1
+1 25791U 99035A   02125.42178682  .00001006  00000-0  25328-3 0  5545
+2 25791  24.9822  59.6761 0010255 330.4733  29.5196 14.40884531150863
+FUSE 1
+1 25791U 99035A   02124.38285672  .00001011  00000-0  25509-3 0  5533
+2 25791  24.9820  66.0352 0010273 319.4923  40.4821 14.40882801150716
+FUSE 1
+1 25791U 99035A   02123.20540156  .00000953  00000-0  23705-3 0  5523
+2 25791  24.9824  73.2432 0010279 305.7597  54.1955 14.40880460150540
+FUSE 1
+1 25791U 99035A   02121.95868326 +.00001002 +00000-0 +25225-3 0 05542
+2 25791 024.9819 080.8762 0010331 292.1373 067.8041 14.40878747150366
+FUSE 1
+1 25791U 99035A   02121.54311021  .00001003  00000-0  25248-3 0  5515
+2 25791  24.9819  83.4189 0010337 287.6956  72.2421 14.40878063150307
+FUSE 1
+1 25791U 99035A   02120.98901322 +.00001023 +00000-0 +25857-3 0 05632
+2 25791 024.9818 086.8098 0010306 282.1201 077.8157 14.40877264150221
+FUSE 1
+1 25791U 99035A   02120.22712923  .00001015  00000-0  25630-3 0  5502
+2 25791  24.9819  91.4718 0010318 274.0246  85.9082 14.40875930150118
+FUSE 1
+1 25791U 99035A   02119.95008070 +.00001028 +00000-0 +26024-3 0 05648
+2 25791 024.9817 093.1681 0010309 271.2034 088.7294 14.40875508150070
+FUSE 1
+1 25791U 99035A   02119.18819734  .00000984  00000-0  24661-3 0  5498
+2 25791  24.9821  97.8348 0010364 262.8749  97.0580 14.40873938149968
+FUSE 1
+1 25791U 99035A   02117.59516608  .00000965  00000-0  24087-3 0  5485
+2 25791  24.9822 107.5863 0010462 245.7519 114.1894 14.40871219149738
+FUSE 1
+1 25791U 99035A   02116.55623223  .00001014  00000-0  25598-3 0  5475
+2 25791  24.9819 113.9469 0010496 234.8360 125.1166 14.40869721149589
+FUSE 1
+1 25791U 99035A   02115.24024880  .00000904  00000-0  22221-3 0  5460
+2 25791  24.9822 122.0047 0010673 220.6675 139.3037 14.40867070149393
+FUSE 1
+1 25791U 99035A   02113.64721393  .00000997  00000-0  25068-3 0  5458
+2 25791  24.9820 131.7593 0010921 204.4419 155.5575 14.40864885149169
+FUSE 1
+1 25791U 99035A   02112.60827693  .00001229  00000-0  32167-3 0  5449
+2 25791  24.9818 138.1223 0011109 194.3356 165.6844 14.40863758149016
+FUSE 1
+1 25791U 99035A   02111.70786489 +.00001579 +00000-0 +42935-3 0 05459
+2 25791 024.9818 143.6347 0011005 184.3083 175.7332 14.40862715148885
+FUSE 1
+1 25791U 99035A   02111.56934007  .00001615  00000-0  44009-3 0  5437
+2 25791  24.9819 144.4840 0011022 182.6205 177.4245 14.40862480148868
+FUSE 1
+1 25791U 99035A   02110.53040188  .00001831  00000-0  50650-3 0  5429
+2 25791  24.9817 150.8474 0011038 171.9009 188.1678 14.40859918148715
+FUSE 1
+1 25791U 99035A   02109.21441033  .00001839  00000-0  50903-3 0  5414
+2 25791  24.9818 158.9076 0011058 159.5103 200.5858 14.40855347148522
+FUSE 1
+1 25791U 99035A   02107.75988762  .00001806  00000-0  49905-3 0  5409
+2 25791  24.9818 167.8101 0011016 144.5815 215.5425 14.40850340148319
+FUSE 1
+1 25791U 99035A   02106.72093909  .00001824  00000-0  50445-3 0  5394
+2 25791  24.9819 174.1696 0011038 134.1147 226.0286 14.40847102148164
+FUSE 1
+1 25791U 99035A   02105.61272498  .00001733  00000-0  47679-3 0  5386
+2 25791  24.9822 180.9533 0010987 122.6889 237.4679 14.40842753148002
+FUSE 1
+1 25791U 99035A   02104.85082480 +.00001713 +00000-0 +47068-3 0 05437
+2 25791 024.9823 185.6152 0010986 114.8415 245.3238 14.40840218147898
+FUSE 1
+1 25791U 99035A   02104.57377071  .00001648  00000-0  45060-3 0  5379
+2 25791  24.9828 187.3119 0010910 112.4216 247.7465 14.40838832147858
+FUSE 1
+1 25791U 99035A   02102.91143625  .00001546  00000-0  41945-3 0  5365
+2 25791  24.9833 197.4876 0010832  95.2901 264.8851 14.40833179147610
+FUSE 1
+1 25791U 99035A   02101.94173617 +.00001486 +00000-0 +40101-3 0 05367
+2 25791 024.9836 203.4219 0010768 085.1671 275.0035 14.40830065147475
+FUSE 1
+1 25791U 99035A   02101.87247187  .00001527  00000-0  41368-3 0  5354
+2 25791  24.9836 203.8460 0010860  84.9976 275.1776 14.40830297147464
+FUSE 1
+1 25791U 99035A   02100.90276910 +.00001525 +00000-0 +41312-3 0 05406
+2 25791 024.9836 209.7805 0010820 074.8575 285.3127 14.40827651147329
+FUSE 1
+1 25791U 99035A   02100.55644706  .00001466  00000-0  39504-3 0  5346
+2 25791  24.9839 211.9005 0010785  71.2224 288.9455 14.40826227147276
+FUSE 1
+1 25791U 99035A   02099.72527026 +.00001468 +00000-0 +39557-3 0 05369
+2 25791 024.9839 216.9860 0010792 062.4507 297.7098 14.40824076147152
+FUSE 1
+1 25791U 99035A   02099.51747561  .00001466  00000-0  39497-3 0  5332
+2 25791  24.9839 218.2573 0010790  60.2600 299.8974 14.40823521147123
+FUSE 1
+1 25791U 99035A   02098.96335660 +.00001461 +00000-0 +39351-3 0 05517
+2 25791 024.9839 221.6473 0010791 054.4596 305.6917 14.40822053147043
+FUSE 1
+1 25791U 99035A   02097.99364657  .00001460  00000-0  39305-3 0  5324
+2 25791  24.9840 227.5821 0010785  44.3275 315.8094 14.40819548146900
+FUSE 1
+1 25791U 99035A   02096.88540384  .00001474  00000-0  39764-3 0  5317
+2 25791  24.9839 234.3643 0010788  32.8173 327.3012 14.40816799146743
+FUSE 1
+1 25791U 99035A   02095.63862735  .00001487  00000-0  40141-3 0  5300
+2 25791  24.9840 241.9943 0010816  19.8188 340.2741 14.40813643146563
+FUSE 1
+1 25791U 99035A   02094.59964440  .00001479  00000-0  39900-3 0  5290
+2 25791  24.9841 248.3515 0010781   8.9830 351.0866 14.40810859146412
+FUSE 1
+1 25791U 99035A   02093.56066001  .00001449  00000-0  39004-3 0  5283
+2 25791  24.9842 254.7110 0010724 357.7982   2.2481 14.40807913146263
+FUSE 1
+1 25791U 99035A   02092.17534371  .00001416  00000-0  37974-3 0  5276
+2 25791  24.9846 263.1915 0010706 342.3947  17.6181 14.40804146146065
+FUSE 1
+1 25791U 99035A   02091.06708795  .00001473  00000-0  39722-3 0  5261
+2 25791  24.9844 269.9758 0010605 329.8586  30.1311 14.40801748145901
+FUSE 1
+1 25791U 99035A   02090.92855601 +.00001487 +00000-0 +40157-3 0 05410
+2 25791 024.9846 270.8250 0010580 328.4929 031.4942 14.40801529145887
+FUSE 1
+1 25791U 99035A   02089.95883174 +.00001422 +00000-0 +38169-3 0 05269
+2 25791 024.9848 276.7588 0010511 318.2311 041.7395 14.40798658145743
+FUSE 1
+1 25791U 99035A   02089.88956560  .00001421  00000-0  38139-3 0  5256
+2 25791  24.9849 277.1827 0010506 317.5131  42.4562 14.40798492145730
+FUSE 1
+1 25791U 99035A   02088.15791078  .00001515  00000-0  41010-3 0  5241
+2 25791  24.9847 287.7803 0010520 298.7755  61.1699 14.40794544145482
+FUSE 1
+1 25791U 99035A   02087.95011214 +.00001499 +00000-0 +40534-3 0 05370
+2 25791 024.9848 289.0527 0010533 296.5864 063.3562 14.40793924145453
+FUSE 1
+1 25791U 99035A   02086.91111703  .00001749  00000-0  48209-3 0  5239
+2 25791  24.9841 295.4106 0010495 285.4100  74.5251 14.40792142145301
+FUSE 1
+1 25791U 99035A   02085.94138844 +.00001800 +00000-0 +49790-3 0 05230
+2 25791 024.9840 301.3448 0010492 275.1890 084.7423 14.40789187145168
+FUSE 1
+1 25791U 99035A   02085.87212209  .00001800  00000-0  49784-3 0  5222
+2 25791  24.9839 301.7687 0010498 274.4524  85.4786 14.40788939145150
+FUSE 1
+1 25791U 99035A   02084.20972717  .00001789  00000-0  49461-3 0  5212
+2 25791  24.9837 311.9410 0010520 257.1269 102.8063 14.40783400144918
+FUSE 1
+1 25791U 99035A   02083.17072852  .00001737  00000-0  47850-3 0  5200
+2 25791  24.9841 318.3008 0010603 246.6391 113.2992 14.40779739144768
+FUSE 1
+1 25791U 99035A   02081.92392783  .00001713  00000-0  47112-3 0  5192
+2 25791  24.9843 325.9324 0010711 233.7134 126.2384 14.40775609144588
+FUSE 1
+1 25791U 99035A   02080.88492453  .00001724  00000-0  47457-3 0  5184
+2 25791  24.9839 332.2902 0010758 223.1027 136.8641 14.40772451144430
+FUSE 1
+1 25791U 99035A   02079.98445671 +.00001660 +00000-0 +45511-3 0 05248
+2 25791 024.9866 337.8089 0010640 212.3177 147.6681 14.40769396144307
+FUSE 1
+1 25791U 99035A   02079.36105289  .00001660  00000-0  45502-3 0  5170
+2 25791  24.9864 341.6231 0010625 205.7116 154.2858 14.40767508144212
+FUSE 1
+1 25791U 99035A   02078.94545013 +.00001663 +00000-0 +45593-3 0 05203
+2 25791 024.9866 344.1681 0010662 201.5314 158.4745 14.40766326144157
+FUSE 1
+1 25791U 99035A   02078.18351059  .00001670  00000-0  45823-3 0  5163
+2 25791  24.9867 348.8302 0010676 193.5096 166.5127 14.40764131144045
+FUSE 1
+1 25791U 99035A   02076.93669799 +.00001712 +00000-0 +47120-3 0 05188
+2 25791 024.9862 356.4616 0010674 180.4765 179.5730 14.40760708143868
+FUSE 1
+1 25791U 99035A   02076.86743038  .00001720  00000-0  47342-3 0  5151
+2 25791  24.9861 356.8853 0010677 179.8078 180.2432 14.40760558143856
+FUSE 1
+1 25791U 99035A   02075.34354341  .00001769  00000-0  48858-3 0  5143
+2 25791  24.9857   6.2089 0010689 164.1831 195.9013 14.40756227143637
+FUSE 1
+1 25791U 99035A   02074.23525935  .00001789  00000-0  49489-3 0  5131
+2 25791  24.9864  12.9917 0010652 152.3559 207.7514 14.40752965143470
+FUSE 1
+1 25791U 99035A   02073.95818794 +.00001809 +00000-0 +50096-3 0 05215
+2 25791 024.9863 014.6889 0010627 149.3903 210.7224 14.40752237143437
+FUSE 1
+1 25791U 99035A   02073.19624002  .00001826  00000-0  50609-3 0  5127
+2 25791  24.9865  19.3522 0010642 141.9145 218.2115 14.40749948143323
+FUSE 1
+1 25791U 99035A   02072.91916797 +.00001841 +00000-0 +51076-3 0 05363
+2 25791 024.9864 021.0498 0010609 139.0566 221.0741 14.40749171143282
+FUSE 1
+1 25791U 99035A   02071.53380359  .00001868  00000-0  51930-3 0  5110
+2 25791  24.9870  29.5310 0010560 125.3666 234.7831 14.40744898143080
+FUSE 1
+1 25791U 99035A   02070.97965627 +.00001883 +00000-0 +52391-3 0 05124
+2 25791 024.9873 032.9250 0010530 120.0536 240.1014 14.40743233143007
+FUSE 1
+1 25791U 99035A   02070.49477683  .00001888  00000-0  52553-3 0  5104
+2 25791  24.9873  35.8909 0010528 115.0412 245.1193 14.40741625142931
+FUSE 1
+1 25791U 99035A   02069.24793971  .00001911  00000-0  53253-3 0  5099
+2 25791  24.9880  43.5225 0010388 102.6935 257.4711 14.40737632142757
+FUSE 1
+1 25791U 99035A   02068.20890526  .00001963  00000-0  54852-3 0  5080
+2 25791  24.9877  49.8807 0010265  92.5971 267.5712 14.40734504142601
+FUSE 1
+1 25791U 99035A   02066.40790516  .00002019  00000-0  56597-3 0  5078
+2 25791  24.9882  60.8982 0010140  74.0227 286.1405 14.40728545142340
+FUSE 1
+1 25791U 99035A   02065.23032416  .00001976  00000-0  55274-3 0  5067
+2 25791  24.9890  68.1059 0009928  61.2977 298.8527 14.40723876142175
+FUSE 1
+1 25791U 99035A   02063.63711823 +.00001966 +00000-0 +54965-3 0 05060
+2 25791 024.9889 077.8519 0009855 044.5446 315.5856 14.40718057141946
+FUSE 1
+1 25791U 99035A   02063.56784827  .00001964  00000-0  54915-3 0  5058
+2 25791  24.9890  78.2758 0009853  43.7948 316.3342 14.40717794141939
+FUSE 1
+1 25791U 99035A   02062.25171546  .00001967  00000-0  55002-3 0  5041
+2 25791  24.9898  86.3315 0009720  29.5760 330.5288 14.40713207141744
+FUSE 1
+1 25791U 99035A   02060.72776629  .00001974  00000-0  55231-3 0  5035
+2 25791  24.9904  95.6541 0009691  13.5587 346.5178 14.40707846141526
+FUSE 1
+1 25791U 99035A   02059.68870443  .00002061  00000-0  57921-3 0  5022
+2 25791  24.9908 102.0122 0009670   2.3178 357.7366 14.40705063141372
+FUSE 1
+1 25791U 99035A   02058.58037276 +.00001937 +00000-0 +54089-3 0 05190
+2 25791 024.9855 108.7808 0010347 348.8163 011.2115 14.40699031141216
+FUSE 1
+1 25791U 99035A   02058.23401784  .00001930  00000-0  53890-3 0  5014
+2 25791  24.9854 110.8994 0010344 345.1099  14.9105 14.40697723141169
+FUSE 1
+1 25791U 99035A   02057.95693361 +.00001927 +00000-0 +53794-3 0 05295
+2 25791 024.9853 112.5943 0010342 342.2401 017.7744 14.40696709141123
+FUSE 1
+1 25791U 99035A   02056.98714049 +.00001855 +00000-0 +51590-3 0 05016
+2 25791 024.9848 118.5439 0010389 330.7846 029.2084 14.40692621140986
+FUSE 1
+1 25791U 99035A   02056.84859804  .00001856  00000-0  51612-3 0  5005
+2 25791  24.9848 119.3917 0010396 329.3558  30.6348 14.40692155140967
+FUSE 1
+1 25791U 99035A   02055.87879896 +.00001862 +00000-0 +51795-3 0 05009
+2 25791 024.9847 125.3251 0010386 318.7436 041.2281 14.40688909140821
+FUSE 1
+1 25791U 99035A   02055.80952754  .00001868  00000-0  51976-3 0  4991
+2 25791  24.9847 125.7494 0010379 317.8153  42.1555 14.40688735140812
+FUSE 1
+1 25791U 99035A   02054.56264168  .00001830  00000-0  50822-3 0  4985
+2 25791  24.9853 133.3826 0010404 303.6462  56.3056 14.40684284140636
+FUSE 1
+1 25791U 99035A   02051.93031607 +.00001939 +00000-0 +54187-3 0 04981
+2 25791 024.9846 149.4920 0010329 274.4706 085.4618 14.40676334140255
+FUSE 1
+1 25791U 99035A   02051.86104389  .00001949  00000-0  54496-3 0  4963
+2 25791  24.9847 149.9167 0010322 273.5085  86.4222 14.40676201140241
+FUSE 1
+1 25791U 99035A   02050.89124093 +.00001793 +00000-0 +49705-3 0 04963
+2 25791 024.9879 155.8456 0009888 267.6928 092.2444 14.40671793140105
+FUSE 1
+1 25791U 99035A   02050.82196891  .00001795  00000-0  49764-3 0  4957
+2 25791  24.9879 156.2699 0009920 266.9073  93.0299 14.40671596140095
+FUSE 1
+1 25791U 99035A   02049.85216173 +.00001762 +00000-0 +48738-3 0 05049
+2 25791 024.9881 162.2061 0009833 257.1871 102.7547 14.40668129139954
+FUSE 1
+1 25791U 99035A   02049.57507351  .00001745  00000-0  48221-3 0  4945
+2 25791  24.9884 163.9032 0009829 254.4578 105.4840 14.40667101139913
+FUSE 1
+1 25791U 99035A   02048.18962711  .00001789  00000-0  49573-3 0  4934
+2 25791  24.9865 172.3765 0010089 240.4382 119.5119 14.40662912139715
+FUSE 1
+1 25791U 99035A   02047.15054256  .00001796  00000-0  49804-3 0  4920
+2 25791  24.9866 178.7417 0010129 229.8799 130.0812 14.40659621139562
+FUSE 1
+1 25791U 99035A   02045.83436523  .00001840  00000-0  51150-3 0  4910
+2 25791  24.9866 186.7961 0010148 215.4593 144.5240 14.40655733139373
+FUSE 1
+1 25791U 99035A   02044.79527556 +.00001873 +00000-0 +52184-3 0 04971
+2 25791 024.9863 193.1524 0010137 204.2065 155.7965 14.40652516139223
+FUSE 1
+1 25791U 99035A   02044.51818359  .00001925  00000-0  53776-3 0  4904
+2 25791  24.9860 194.8476 0010191 201.0271 158.9809 14.40652078139188
+FUSE 1
+1 25791U 99035A   02043.82545578 +.00001946 +00000-0 +54433-3 0 04990
+2 25791 024.9858 199.0847 0010200 193.6793 166.3433 14.40649817139082
+FUSE 1
+1 25791U 99035A   02042.92490752  .00001992  00000-0  55840-3 0  4896
+2 25791  24.9856 204.5925 0010259 184.1947 175.8472 14.40647025138951
+FUSE 1
+1 25791U 99035A   02041.95508458 +.00002053 +00000-0 +57741-3 0 04892
+2 25791 024.9856 210.5265 0010300 173.9651 186.0980 14.40644069138818
+FUSE 1
+1 25791U 99035A   02041.88581150  .00002073  00000-0  58348-3 0  4889
+2 25791  24.9861 210.9521 0010311 172.9624 187.1028 14.40644058138806
+FUSE 1
+1 25791U 99035A   02040.56961753  .00002206  00000-0  62450-3 0  4870
+2 25791  24.9858 219.0013 0010484 159.5673 200.5249 14.40640287138618
+FUSE 1
+1 25791U 99035A   02039.53051625  .00002255  00000-0  63954-3 0  4866
+2 25791  24.9858 225.3571 0010553 148.4366 211.6776 14.40636535138462
+FUSE 1
+1 25791U 99035A   02038.14504167  .00002351  00000-0  66921-3 0  4859
+2 25791  24.9858 233.8326 0010636 134.1993 225.9382 14.40631676138264
+FUSE 1
+1 25791U 99035A   02037.93721974 +.00002397 +00000-0 +68340-3 0 04938
+2 25791 024.9861 235.1054 0010736 131.7488 228.3923 14.40631273138232
+FUSE 1
+1 25791U 99035A   02036.89810875  .00002492  00000-0  71274-3 0  4847
+2 25791  24.9862 241.4623 0010829 122.1317 238.0237 14.40627644138089
+FUSE 1
+1 25791U 99035A   02035.92826968 +.00002548 +00000-0 +73019-3 0 04841
+2 25791 024.9863 247.3934 0010862 112.4256 247.7399 14.40623688137945
+FUSE 1
+1 25791U 99035A   02035.85899543  .00002552  00000-0  73123-3 0  4832
+2 25791  24.9863 247.8171 0010864 111.6988 248.4676 14.40623397137930
+FUSE 1
+1 25791U 99035A   02034.95842869 +.00002563 +00000-0 +73476-3 0 04924
+2 25791 024.9867 253.3259 0010904 102.2272 257.9457 14.40619245137805
+FUSE 1
+1 25791U 99035A   02034.26568177  .00002587  00000-0  74211-3 0  4828
+2 25791  24.9865 257.5631 0010840  95.4477 264.7266 14.40616180137700
+FUSE 1
+1 25791U 99035A   02033.22656041  .00002588  00000-0  74253-3 0  4817
+2 25791  24.9868 263.9212 0010966  84.6163 275.5595 14.40611176137558
+FUSE 1
+1 25791U 99035A   02032.18743380  .00002587  00000-0  74231-3 0  4808
+2 25791  24.9869 270.2766 0010977  73.7493 286.4230 14.40606150137408
+FUSE 1
+1 25791U 99035A   02030.94047759 +.00002528 +00000-0 +72437-3 0 04808
+2 25791 024.9874 277.9037 0011018 060.9223 299.2389 14.40599492137222
+FUSE 1
+1 25791U 99035A   02030.87120198  .00002526  00000-0  72362-3 0  4792
+2 25791  24.9874 278.3273 0011014  60.1902 299.9702 14.40599135137210
+FUSE 1
+1 25791U 99035A   02029.34713303  .00002495  00000-0  71439-3 0  4786
+2 25791  24.9875 287.6482 0010997  44.3035 315.8351 14.40591646136997
+FUSE 1
+1 25791U 99035A   02028.93147652 +.00002479 +00000-0 +70929-3 0 04862
+2 25791 024.9876 290.1899 0010994 039.9697 320.1619 14.40589498136932
+FUSE 1
+1 25791U 99035A   02028.16943701  .00002474  00000-0  70791-3 0  4778
+2 25791  24.9876 294.8500 0011006  32.1353 327.9821 14.40585928136823
+FUSE 1
+1 25791U 99035A   02027.96161389 +.00002407 +00000-0 +68742-3 0 05050
+2 25791 024.9874 296.1287 0010582 028.3810 331.7529 14.40584028136795
+FUSE 1
+1 25791U 99035A   02026.92246706  .00002341  00000-0  66697-3 0  4763
+2 25791  24.9799 302.5272 0010059  16.0811 344.0013 14.40577732136644
+FUSE 1
+1 25791U 99035A   02025.39837504  .00002257  00000-0  64121-3 0  4750
+2 25791  24.9803 311.8488 0010138 359.9596   0.0915 14.40570421136423
+FUSE 1
+1 25791U 99035A   02024.22066220  .00002170  00000-0  61445-3 0  4749
+2 25791  24.9808 319.0539 0010178 346.9833  13.0414 14.40564803136255
+FUSE 1
+1 25791U 99035A   02023.94355340 +.00002127 +00000-0 +60118-3 0 04963
+2 25791 024.9808 320.7502 0010231 343.9239 016.0947 14.40563257136213
+FUSE 1
+1 25791U 99035A   02022.97366856 +.00002070 +00000-0 +58368-3 0 04746
+2 25791 024.9809 326.6854 0010289 333.5703 026.4279 14.40558911136071
+FUSE 1
+1 25791U 99035A   02022.90439095  .00002070  00000-0  58368-3 0  4734
+2 25791  24.9809 327.1090 0010289 332.8439  27.1535 14.40558648136066
+FUSE 1
+1 25791U 99035A   02021.93450374 +.00001972 +00000-0 +55342-3 0 04738
+2 25791 024.9815 333.0432 0010420 322.2211 037.7568 14.40554066135924
+FUSE 1
+1 25791U 99035A   02021.51883604  .00001971  00000-0  55294-3 0  4722
+2 25791  24.9815 335.5850 0010420 317.8920  42.0786 14.40552554135866
+FUSE 1
+1 25791U 99035A   02020.34111020  .00001902  00000-0  53176-3 0  4718
+2 25791  24.9819 342.7879 0010496 305.4885  54.4643 14.40547753135692
+FUSE 1
+1 25791U 99035A   02019.23265919  .00001870  00000-0  52196-3 0  4705
+2 25791  24.9819 349.5667 0010511 294.0221  65.9186 14.40543639135538
+FUSE 1
+1 25791U 99035A   02018.19348466  .00001814  00000-0  50458-3 0  4693
+2 25791  24.9822 355.9219 0010534 283.3551  76.5783 14.40539652135382
+FUSE 1
+1 25791U 99035A   02016.60007962  .00001743  00000-0  48297-3 0  4688
+2 25791  24.9823   5.6676 0010591 266.8378  93.0919 14.40533828135154
+FUSE 1
+1 25791U 99035A   02015.76873696 +.00001678 +00000-0 +46283-3 0 04713
+2 25791 024.9823 010.7535 0010644 258.3411 101.5912 14.40530615135034
+FUSE 1
+1 25791U 99035A   02015.56090099  .00001670  00000-0  46017-3 0  4671
+2 25791  24.9825  12.0258 0010623 256.2726 103.6602 14.40529913135001
+FUSE 1
+1 25791U 99035A   02014.59099802 +.00001637 +00000-0 +45017-3 0 04801
+2 25791 024.9827 017.9579 0010652 246.2520 113.6872 14.40526735134868
+FUSE 1
+1 25791U 99035A   02014.24460394  .00001618  00000-0  44436-3 0  4668
+2 25791  24.9826  20.0778 0010710 242.8070 117.1346 14.40525522134813
+FUSE 1
+1 25791U 99035A   02012.65118694  .00001644  00000-0  45243-3 0  4659
+2 25791  24.9821  29.8239 0010731 226.1513 133.8108 14.40521061134586
+FUSE 1
+1 25791U 99035A   02011.54272015  .00001715  00000-0  47438-3 0  4640
+2 25791  24.9815  36.6044 0010793 214.5223 145.4584 14.40518322134422
+FUSE 1
+1 25791U 99035A   02010.43425174  .00001799  00000-0  50019-3 0  4633
+2 25791  24.9809  43.3849 0010812 202.7174 157.2854 14.40515528134267
+FUSE 1
+1 25791U 99035A   02009.25649964  .00002024  00000-0  56982-3 0  4622
+2 25791  24.9789  50.5894 0010900 190.2577 169.7698 14.40513435134090
+FUSE 1
+1 25791U 99035A   02007.73234977  .00002144  00000-0  60706-3 0  4618
+2 25791  24.9780  59.9106 0010959 174.4447 185.6181 14.40508676133874
+FUSE 1
+1 25791U 99035A   02006.55459467  .00002207  00000-0  62629-3 0  4605
+2 25791  24.9776  67.1133 0010962 161.9239 198.1657 14.40504470133701
+FUSE 1
+1 25791U 99035A   02005.93107615 +.00002223 +00000-0 +63140-3 0 04899
+2 25791 024.9772 070.9268 0010959 155.3799 204.7234 14.40502008133612
+FUSE 1
+1 25791U 99035A   02005.23827537  .00002302  00000-0  65586-3 0  4595
+2 25791  24.9762  75.1663 0011117 148.7865 211.3305 14.40499774133511
+FUSE 1
+1 25791U 99035A   02003.92195234  .00002277  00000-0  64830-3 0  4582
+2 25791  24.9761  83.2157 0011128 134.9320 225.2086 14.40493934133324
+FUSE 1
+1 25791U 99035A   02002.88274676  .00002253  00000-0  64083-3 0  4577
+2 25791  24.9763  89.5747 0011378 124.3397 235.8189 14.40489372133179
+FUSE 1
+1 25791U 99035A   02001.91281822 +.00002146 +00000-0 +60789-3 0 04694
+2 25791 024.9768 095.5070 0011442 114.6843 245.4859 14.40484505133039
+FUSE 1
+1 25791U 99035A   02001.56641338  .00002152  00000-0  60976-3 0  4568
+2 25791  24.9764  97.6258 0011412 111.4641 248.7084 14.40483142132989
+FUSE 1
+1 25791U 99035A   01365.87360347 +.00002106 +00000-0 +59549-3 0 04723
+2 25791 024.9765 101.8629 0011436 104.3050 255.8720 14.40480024132882
+FUSE 1
+1 25791U 99035A   01365.52719815  .00002060  00000-0  58137-3 0  4555
+2 25791  24.9767 103.9819 0011371 101.3489 258.8298 14.40478294132833
+FUSE 1
+1 25791U 99035A   01364.14157199  .00001894  00000-0  53009-3 0  4549
+2 25791  24.9776 112.4568 0011372  87.4678 272.7139 14.40471893132639
+FUSE 1
+1 25791U 99035A   01362.89450064  .00001855  00000-0  51805-3 0  4534
+2 25791  24.9779 120.0847 0011421  75.1248 285.0524 14.40467329132453
+FUSE 1
+1 25791U 99035A   01361.92455302 +.00001831 +00000-0 +51089-3 0 04748
+2 25791 024.9778 126.0189 0011472 065.3088 294.8603 14.40463838132318
+FUSE 1
+1 25791U 99035A   01361.57814148  .00001900  00000-0  53207-3 0  4523
+2 25791  24.9772 128.1378 0011523  62.3118 297.8556 14.40463267132263
+FUSE 1
+1 25791U 99035A   01360.95460072 +.00001920 +00000-0 +53816-3 0 04716
+2 25791 024.9770 131.9515 0011492 055.8592 304.2995 14.40461264132179
+FUSE 1
+1 25791U 99035A   01360.53891054  .00002081  00000-0  58819-3 0  4513
+2 25791  24.9761 134.4940 0011549  52.3362 307.8493 14.40461175132116
+FUSE 1
+1 25791U 99035A   01360.19249807  .00001557  00000-0  42615-3 0  4501
+2 25791  24.9814 136.6178 0011030  44.8843 315.2554 14.40455881132069
+FUSE 1
+1 25791U 99035A   01358.87612700  .00001498  00000-0  40783-3 0  4495
+2 25791  24.9820 144.6693 0010973  30.9588 329.1578 14.40451843131876
+FUSE 1
+1 25791U 99035A   01357.55975188  .00001377  00000-0  37042-3 0  4480
+2 25791  24.9830 152.7226 0010843  16.8175 343.2692 14.40447508131686
+FUSE 1
+1 25791U 99035A   01356.24337185  .00001363  00000-0  36634-3 0  4474
+2 25791  24.9832 160.7748 0010783   3.1653 356.8921 14.40444244131497
+FUSE 1
+1 25791U 99035A   01355.13483804  .00001399  00000-0  37745-3 0  4463
+2 25791  24.9832 167.5556 0010791 351.3648   8.6665 14.40441877131339
+FUSE 1
+1 25791U 99035A   01353.88773524  .00001488  00000-0  40499-3 0  4452
+2 25791  24.9831 175.1848 0010716 338.1167  21.8882 14.40439533131157
+FUSE 1
+1 25791U 99035A   01352.91776521 +.00001536 +00000-0 +41984-3 0 04527
+2 25791 024.9828 181.1169 0010739 327.7733 032.2118 14.40437323131012
+FUSE 1
+1 25791U 99035A   01352.57134719  .00001547  00000-0  42314-3 0  4447
+2 25791  24.9827 183.2356 0010758 324.0828  35.8958 14.40436465130968
+FUSE 1
+1 25791U 99035A   01351.39352449  .00001601  00000-0  43981-3 0  4439
+2 25791  24.9825 190.4393 0010750 311.5670  48.3911 14.40433644130790
+FUSE 1
+1 25791U 99035A   01350.90853821 +.00001630 +00000-0 +44889-3 0 04570
+2 25791 024.9828 193.4057 0010738 306.2371 053.7148 14.40432555130723
+FUSE 1
+1 25791U 99035A   01350.21570001  .00001672  00000-0  46189-3 0  4425
+2 25791  24.9825 197.6430 0010796 298.8753  61.0671 14.40430851130624
+FUSE 1
+1 25791U 99035A   01349.17644244  .00001720  00000-0  47692-3 0  4412
+2 25791  24.9826 203.9992 0010810 288.0247  71.9089 14.40428119130475
+FUSE 1
+1 25791U 99035A   01348.13718358  .00001739  00000-0  48271-3 0  4408
+2 25791  24.9830 210.3552 0010817 277.4348  82.4917 14.40425082130322
+FUSE 1
+1 25791U 99035A   01346.95935558 +.00001792 +00000-0 +49923-3 0 04414
+2 25791 024.9832 217.5601 0010828 264.7976 095.1293 14.40421820130151
+FUSE 1
+1 25791U 99035A   01346.89007156  .00001798  00000-0  50103-3 0  4396
+2 25791  24.9831 217.9838 0010822 264.0722  95.8552 14.40421637130142
+FUSE 1
+1 25791U 99035A   01345.92009452 +.00001804 +00000-0 +50297-3 0 04561
+2 25791 024.9834 223.9163 0010848 253.7226 106.2093 14.40418551130008
+FUSE 1
+1 25791U 99035A   01345.50438976  .00001829  00000-0  51074-3 0  4383
+2 25791  24.9833 226.4598 0010750 249.3404 110.5947 14.40417367129949
+FUSE 1
+1 25791U 99035A   01344.95011669 +.00001830 +00000-0 +51089-3 0 04543
+2 25791 024.9832 229.8499 0010756 243.5301 116.4117 14.40415519129865
+FUSE 1
+1 25791U 99035A   01344.18799003  .00001792  00000-0  49923-3 0  4375
+2 25791  24.9834 234.5123 0010818 235.5423 124.4062 14.40412721129757
+FUSE 1
+1 25791U 99035A   01343.14872416  .00001816  00000-0  50671-3 0  4368
+2 25791  24.9837 240.8680 0010867 223.8806 136.0838 14.40409582129602
+FUSE 1
+1 25791U 99035A   01341.90160523  .00001680  00000-0  46452-3 0  4359
+2 25791  24.9841 248.4975 0010871 211.3142 148.6721 14.40404442129428
+FUSE 1
+1 25791U 99035A   01340.93162024 +.00001621 +00000-0 +44627-3 0 04479
+2 25791 024.9843 254.4284 0010863 200.7838 159.2234 14.40401129129285
+FUSE 1
+1 25791U 99035A   01340.37734226  .00001562  00000-0  42806-3 0  4343
+2 25791  24.9846 257.8173 0010861 194.8366 165.1825 14.40399138129209
+FUSE 1
+1 25791U 99035A   01339.19949999  .00001406  00000-0  37978-3 0  4336
+2 25791  24.9853 265.0213 0010893 182.8071 177.2377 14.40394882129036
+FUSE 1
+1 25791U 99035A   01337.95236873  .00001264  00000-0  33601-3 0  4328
+2 25791  24.9859 272.6472 0011030 169.6495 190.4242 14.40391020128858
+FUSE 1
+1 25791U 99035A   01336.98237488 +.00001205 +00000-0 +31765-3 0 04350
+2 25791 024.9862 278.5777 0011067 159.5220 200.5735 14.40388553128711
+FUSE 1
+1 25791U 99035A   01336.91308955  .00001199  00000-0  31585-3 0  4319
+2 25791  24.9862 279.0014 0011071 158.8008 201.2962 14.40388365128702
+FUSE 1
+1 25791U 99035A   01335.52738000  .00001234  00000-0  32682-3 0  4301
+2 25791  24.9862 287.4731 0011104 144.1718 215.9555 14.40385754128501
+FUSE 1
+1 25791U 99035A   01334.21095244  .00001172  00000-0  30740-3 0  4294
+2 25791  24.9865 295.5226 0011153 130.8481 229.2994 14.40382693128319
+FUSE 1
+1 25791U 99035A   01333.17166461  .00001237  00000-0  32780-3 0  4285
+2 25791  24.9866 301.8786 0011197 121.1081 239.0526 14.40380912128164
+FUSE 1
+1 25791U 99035A   01331.78594478  .00001365  00000-0  36732-3 0  4275
+2 25791  24.9865 310.3519 0011209 106.8472 253.3273 14.40378324127969
+FUSE 1
+1 25791U 99035A   01330.67736645 +.00001415 +00000-0 +38296-3 0 04303
+2 25791 024.9868 317.1335 0011064 094.8355 265.3420 14.40375646127802
+FUSE 1
+1 25791U 99035A   01330.53879352  .00001567  00000-0  43006-3 0  4269
+2 25791  24.9872 317.9818 0011229  93.6128 266.5666 14.40376029127787
+FUSE 1
+1 25791U 99035A   01329.70735725 +.00001621 +00000-0 +44667-3 0 04457
+2 25791 024.9872 323.0652 0011232 084.6461 275.5327 14.40373883127661
+FUSE 1
+1 25791U 99035A   01329.22235264  .00001585  00000-0  43552-3 0  4256
+2 25791  24.9876 326.0324 0011267  80.2956 279.8829 14.40372335127590
+FUSE 1
+1 25791U 99035A   01327.83661937  .00001684  00000-0  46626-3 0  4245
+2 25791  24.9875 334.5052 0011431  65.9356 294.2344 14.40369004127398
+FUSE 1
+1 25791U 99035A   01326.52016884  .00001740  00000-0  48380-3 0  4236
+2 25791  24.9874 342.5535 0011585  52.2073 307.9485 14.40365366127202
+FUSE 1
+1 25791U 99035A   01325.41157411  .00001880  00000-0  52699-3 0  4227
+2 25791  24.9858 349.3412 0010869  41.2944 318.8383 14.40362474127049
+FUSE 1
+1 25791U 99035A   01324.92656363 +.00001916 +00000-0 +53838-3 0 04486
+2 25791 024.9856 352.3075 0010879 036.2259 323.8984 14.40361028126978
+FUSE 1
+1 25791U 99035A   01324.23369056  .00001967  00000-0  55417-3 0  4212
+2 25791  24.9855 356.5485 0010758  28.8088 331.3014 14.40358919126873
+FUSE 1
+1 25791U 99035A   01323.67939132 +.00001961 +00000-0 +55223-3 0 04407
+2 25791 024.9854 359.9372 0010776 023.0532 337.0460 14.40356881126790
+FUSE 1
+1 25791U 99035A   01322.70936542  .00001987  00000-0  56035-3 0  4198
+2 25791  24.9853   5.8688 0010772  12.9432 347.1352 14.40353526126658
+FUSE 1
+1 25791U 99035A   01321.67005005  .00001934  00000-0  54405-3 0  4184
+2 25791  24.9852  12.2257 0010726   1.9216 358.1340 14.40349375126508
+FUSE 1
+1 25791U 99035A   01320.56144300  .00001920  00000-0  53980-3 0  4174
+2 25791  24.9852  19.0058 0010683 350.0478   9.9818 14.40345343126346
+FUSE 1
+1 25791U 99035A   01319.52212142  .00001855  00000-0  51954-3 0  4163
+2 25791  24.9851  25.3612 0010623 338.9778  21.0292 14.40341342126192
+FUSE 1
+1 25791U 99035A   01318.82923904 +.00001856 +00000-0 +52003-3 0 04314
+2 25791 024.9847 029.5994 0010595 331.5863 028.4066 14.40338911126095
+FUSE 1
+1 25791U 99035A   01318.41350910  .00001890  00000-0  53052-3 0  4155
+2 25791  24.9848  32.1452 0010575 326.5664  33.4173 14.40337609126038
+FUSE 1
+1 25791U 99035A   01316.88916357  .00001729  00000-0  48061-3 0  4141
+2 25791  24.9843  41.4680 0010423 310.4505  49.5094 14.40331762125816
+FUSE 1
+1 25791U 99035A   01315.78054605  .00002207  00000-0  62878-3 0  4131
+2 25791  24.9835  48.2543 0010468 297.9246  62.0232 14.40329121125652
+FUSE 1
+1 25791U 99035A   01314.67192519  .00002266  00000-0  64699-3 0  4122
+2 25791  24.9832  55.0359 0010699 286.0302  73.9029 14.40324776125496
+FUSE 1
+1 25791U 99035A   01313.56330279  .00002157  00000-0  61343-3 0  4117
+2 25791  24.9831  61.8147 0010834 274.3350  85.5922 14.40319729125335
+FUSE 1
+1 25791U 99035A   01312.52396703  .00002119  00000-0  60174-3 0  4104
+2 25791  24.9829  68.1695 0010860 263.6572  96.2701 14.40315363125183
+FUSE 1
+1 25791U 99035A   01311.76178660 +.00001972 +00000-0 +55623-3 0 04344
+2 25791 024.9830 072.8283 0010752 255.8544 104.0769 14.40311922125079
+FUSE 1
+1 25791U 99035A   01310.99960448  .00001931  00000-0  54345-3 0  4098
+2 25791  24.9829  77.4894 0010755 247.9477 111.9889 14.40308978124960
+FUSE 1
+1 25791U 99035A   01309.96026276 +.00001965 +00000-0 +55405-3 0 04090
+2 25791 024.9829 083.8473 0010851 237.1463 122.8002 14.40305487124811
+FUSE 1
+1 25791U 99035A   01309.89097339  .00001972  00000-0  55619-3 0  4084
+2 25791  24.9829  84.2713 0010836 236.3815 123.5665 14.40305298124800
+FUSE 1
+1 25791U 99035A   01308.57447006  .00002179  00000-0  62044-3 0  4077
+2 25791  24.9822  92.3254 0010825 222.6458 137.3208 14.40301956124614
+FUSE 1
+1 25791U 99035A   01307.53512328  .00002351  00000-0  67374-3 0  4064
+2 25791  24.9814  98.6808 0010806 211.6998 148.2862 14.40299019124461
+FUSE 1
+1 25791U 99035A   01305.94145638 +.00002419 +00000-0 +69493-3 0 04062
+2 25791 024.9809 108.4263 0010833 195.2773 164.7418 14.40292404124234
+FUSE 1
+1 25791U 99035A   01305.87216636  .00002410  00000-0  69213-3 0  4051
+2 25791  24.9811 108.8509 0010847 194.5526 165.4669 14.40292047124225
+FUSE 1
+1 25791U 99035A   01304.90210496 +.00002483 +00000-0 +71481-3 0 04210
+2 25791 024.9807 114.7853 0010812 184.6053 175.4356 14.40288074124088
+FUSE 1
+1 25791U 99035A   01304.55565381  .00002564  00000-0  73991-3 0  4046
+2 25791  24.9803 116.9068 0010808 180.8733 179.1763 14.40287007124037
+FUSE 1
+1 25791U 99035A   01303.93204085 +.00002548 +00000-0 +73522-3 0 04141
+2 25791 024.9803 120.7190 0010799 174.3529 185.7099 14.40283909123947
+FUSE 1
+1 25791U 99035A   01303.03126575  .00002520  00000-0  72659-3 0  4037
+2 25791  24.9800 126.2295 0010755 164.6304 195.4536 14.40279287123810
+FUSE 1
+1 25791U 99035A   01301.78402958  .00002608  00000-0  75393-3 0  4023
+2 25791  24.9799 133.8566 0011062 153.3348 206.7722 14.40274032123633
+FUSE 1
+1 25791U 99035A   01299.91316810  .00002915  00000-0  84930-3 0  4012
+2 25791  24.9792 145.2965 0011048 134.0555 226.0864 14.40265988123368
+FUSE 1
+1 25791U 99035A   01298.18087804  .00003212  00000-0  94181-3 0  4007
+2 25791  24.9785 155.8916 0011040 115.9737 244.1911 14.40256974123117
+FUSE 1
+1 25791U 99035A   01297.97300262 +.00003234 +00000-0 +94848-3 0 04115
+2 25791 024.9787 157.1643 0011055 113.7776 246.3895 14.40255785123086
+FUSE 1
+1 25791U 99035A   01297.07220791  .00002684  00000-0  77791-3 0  3995
+2 25791  24.9787 162.6747 0010929 104.4008 255.7717 14.40248557122957
+FUSE 1
+1 25791U 99035A   01295.96352986 +.00002126 +00000-0 +60489-3 0 04025
+2 25791 024.9793 169.4508 0010628 092.8140 267.3584 14.40240931122798
+FUSE 1
+1 25791U 99035A   01295.89423827  .00002043  00000-0  57915-3 0  3982
+2 25791  24.9794 169.8749 0010644  91.9762 268.1968 14.40240146122780
+FUSE 1
+1 25791U 99035A   01294.92413976 +.00001853 +00000-0 +51998-3 0 04152
+2 25791 024.9798 175.8066 0010633 081.1941 278.9772 14.40235323122649
+FUSE 1
+1 25791U 99035A   01294.30050214  .00001823  00000-0  51089-3 0  3973
+2 25791  24.9799 179.6196 0010702  74.5779 285.5911 14.40232995122559
+FUSE 1
+1 25791U 99035A   01293.26110316  .00001744  00000-0  48616-3 0  3960
+2 25791  24.9799 185.9754 0010658  63.5604 296.6004 14.40228963122404
+FUSE 1
+1 25791U 99035A   01292.22169993  .00001707  00000-0  47471-3 0  3956
+2 25791  24.9799 192.3301 0010648  52.4658 307.6827 14.40225399122258
+FUSE 1
+1 25791U 99035A   01290.97441176 +.00001672 +00000-0 +46391-3 0 03975
+2 25791 024.9797 199.9582 0010599 039.1258 321.0014 14.40221249122071
+FUSE 1
+1 25791U 99035A   01290.90511781  .00001674  00000-0  46472-3 0  3947
+2 25791  24.9797 200.3818 0010601  38.3799 321.7462 14.40221053122061
+FUSE 1
+1 25791U 99035A   01289.44994252  .00001682  00000-0  46703-3 0  3937
+2 25791  24.9794 209.2810 0010620  22.7711 337.3265 14.40216632121857
+FUSE 1
+1 25791U 99035A   01288.96488349 +.00001640 +00000-0 +45420-3 0 04039
+2 25791 024.9794 212.2491 0010567 017.4224 342.6645 14.40214807121781
+FUSE 1
+1 25791U 99035A   01288.41052915  .00001638  00000-0  45357-3 0  3928
+2 25791  24.9794 215.6384 0010635  11.8186 348.2573 14.40213128121709
+FUSE 1
+1 25791U 99035A   01287.23252352  .00001574  00000-0  43355-3 0  3918
+2 25791  24.9794 222.8447 0010562 358.4459   1.6013 14.40209149121539
+FUSE 1
+1 25791U 99035A   01285.91592729  .00001390  00000-0  37646-3 0  3907
+2 25791  24.9795 230.9044 0010544 342.9330  17.0829 14.40203938121344
+FUSE 1
+1 25791U 99035A   01284.39144118  .00001300  00000-0  34838-3 0  3892
+2 25791  24.9795 240.2335 0010739 326.2228  33.7597 14.40199484121121
+FUSE 1
+1 25791U 99035A   01283.97567245 +.00001223 +00000-0 +32457-3 0 03894
+2 25791 024.9792 242.7798 0010828 320.9649 039.0093 14.40197815121064
+FUSE 1
+1 25791U 99035A   01283.35201646  .00001212  00000-0  32118-3 0  3887
+2 25791  24.9792 246.5916 0010829 314.6054  45.3576 14.40196427120972
+FUSE 1
+1 25791U 99035A   01282.31258856 +.00001218 +00000-0 +32310-3 0 03876
+2 25791 024.9792 252.9458 0010895 303.3438 056.6026 14.40194305120820
+FUSE 1
+1 25791U 99035A   01281.96611121 +.00001476 +00000-0 +40318-3 0 03877
+2 25791 024.9786 255.0631 0010800 300.4688 059.4739 14.40195140120775
+FUSE 1
+1 25791U 99035A   01281.27315947  .00001503  00000-0  41154-3 0  3867
+2 25791  24.9785 259.2981 0010800 293.1387  66.7977 14.40193471120671
+FUSE 1
+1 25791U 99035A   01280.23373114  .00001657  00000-0  45958-3 0  3857
+2 25791  24.9781 265.6543 0010925 282.3330  77.5954 14.40191161120521
+FUSE 1
+1 25791U 99035A   01279.19430003  .00002067  00000-0  58705-3 0  3840
+2 25791  24.9775 272.0130 0011160 270.5332  89.3900 14.40189300120378
+FUSE 1
+1 25791U 99035A   01277.60050645  .00002136  00000-0  60847-3 0  3830
+2 25791  24.9771 281.7563 0011259 253.7403 106.1876 14.40183292120141
+FUSE 1
+1 25791U 99035A   01276.69966572 +.00002038 +00000-0 +57797-3 0 03834
+2 25791 024.9770 287.2658 0011436 244.9457 114.9868 14.40179081120019
+FUSE 1
+1 25791U 99035A   01276.56107445  .00002038  00000-0  57794-3 0  3822
+2 25791  24.9770 288.1132 0011429 243.5500 116.3834 14.40178557119993
+FUSE 1
+1 25791U 99035A   01275.59093557 +.00002005 +00000-0 +56772-3 0 03900
+2 25791 024.9769 294.0432 0011469 233.5602 126.3872 14.40174627119858
+FUSE 1
+1 25791U 99035A   01275.24445817  .00001894  00000-0  53340-3 0  3815
+2 25791  24.9772 296.1661 0011642 231.1207 128.8260 14.40172274119806
+FUSE 1
+1 25791U 99035A   01274.20502117  .00001837  00000-0  51559-3 0  3803
+2 25791  24.9774 302.5234 0011565 220.9357 139.0293 14.40168098119654
+FUSE 1
+1 25791U 99035A   01272.54191528  .00001742  00000-0  48618-3 0  3793
+2 25791  24.9776 312.6900 0011479 204.0234 155.9738 14.40161743119414
+FUSE 1
+1 25791U 99035A   01271.22528748  .00001537  00000-0  42239-3 0  3789
+2 25791  24.9783 320.7396 0011360 191.6142 168.4111 14.40155760119224
+FUSE 1
+1 25791U 99035A   01270.18584050  .00001414  00000-0  38420-3 0  3771
+2 25791  24.9786 327.0943 0011214 181.1674 178.8811 14.40151731119076
+FUSE 1
+1 25791U 99035A   01268.59201413  .00001316  00000-0  35376-3 0  3769
+2 25791  24.9790 336.8359 0011124 164.6593 195.4255 14.40146964118849
+FUSE 1
+1 25791U 99035A   01267.55255878  .00001264  00000-0  33768-3 0  3752
+2 25791  24.9791 343.1899 0011084 153.8979 206.2088 14.40144164118691
+FUSE 1
+1 25791U 99035A   01266.85958720 +.00001236 +00000-0 +32881-3 0 04003
+2 25791 024.9791 347.4254 0011062 146.6571 213.4636 14.40142395118599
+FUSE 1
+1 25791U 99035A   01266.23591181  .00001222  00000-0  32443-3 0  3748
+2 25791  24.9790 351.2395 0010997 140.3022 219.8292 14.40140919118504
+FUSE 1
+1 25791U 99035A   01264.84996263  .00001228  00000-0  32643-3 0  3730
+2 25791  24.9790 359.7127 0010966 126.1194 234.0331 14.40138072118306
+FUSE 1
+1 25791U 99035A   01263.81049784  .00001251  00000-0  33374-3 0  3720
+2 25791  24.9787   6.0658 0010961 115.2876 244.8774 14.40136053118154
+FUSE 1
+1 25791U 99035A   01262.90962669 +.00001258 +00000-0 +33575-3 0 03770
+2 25791 024.9786 011.5725 0010944 105.8616 254.3099 14.40134145118029
+FUSE 1
+1 25791U 99035A   01262.56313782  .00001225  00000-0  32562-3 0  3711
+2 25791  24.9789  13.6910 0010897 102.2762 257.8965 14.40133131117978
+FUSE 1
+1 25791U 99035A   01261.73156198 +.00001238 +00000-0 +32981-3 0 03916
+2 25791 024.9787 018.7732 0010906 093.5350 266.6406 14.40131469117857
+FUSE 1
+1 25791U 99035A   01260.76138915  .00001191  00000-0  31510-3 0  3707
+2 25791  24.9789  24.7033 0010879  83.2256 276.9490 14.40129023117715
+FUSE 1
+1 25791U 99035A   01259.92981039 +.00001175 +00000-0 +31013-3 0 03874
+2 25791 024.9786 029.7863 0010871 074.4468 285.7243 14.40127147117592
+FUSE 1
+1 25791U 99035A   01259.58331925  .00001147  00000-0  30130-3 0  3697
+2 25791  24.9787  31.9057 0010852  70.6480 289.5197 14.40126176117540
+FUSE 1
+1 25791U 99035A   01258.95963335 +.00001144 +00000-0 +30044-3 0 03874
+2 25791 024.9786 035.7176 0010865 064.0853 296.0773 14.40124921117457
+FUSE 1
+1 25791U 99035A   01258.54384331  .00001102  00000-0  28749-3 0  3684
+2 25791  24.9787  38.2594 0010849  59.6296 300.5294 14.40123716117396
+FUSE 1
+1 25791U 99035A   01256.88067564  .00001029  00000-0  26472-3 0  3673
+2 25791  24.9789  48.4246 0010881  42.1181 318.0162 14.40120076117159
+FUSE 1
+1 25791U 99035A   01255.84119312 +.00000982 +00000-0 +24994-3 0 03828
+2 25791 024.9791 054.7780 0010906 031.2706 328.8450 14.40117913117004
+FUSE 1
+1 25791U 99035A   01255.56399752  .00000973  00000-0  24725-3 0  3669
+2 25791  24.9790  56.4726 0010911  28.3803 331.7300 14.40117363116963
+FUSE 1
+1 25791U 99035A   01254.17801710  .00000928  00000-0  23335-3 0  3652
+2 25791  24.9790  64.9453 0010913  13.8647 346.2161 14.40114762116765
+FUSE 1
+1 25791U 99035A   01253.13853000  .00000871  00000-0  21540-3 0  3648
+2 25791  24.9793  71.2996 0010924   2.8497 357.2074 14.40112768116617
+FUSE 1
+1 25791U 99035A   01251.89114396  .00000824  00000-0  20070-3 0  3631
+2 25791  24.9796  78.9282 0010899 349.5744  10.4536 14.40110640116437
+FUSE 1
+1 25791U 99035A   01250.57445682  .00000789  00000-0  18992-3 0  3629
+2 25791  24.9798  86.9794 0010848 335.6563  24.3436 14.40108640116244
+FUSE 1
+1 25791U 99035A   01249.39636695  .00000757  00000-0  18011-3 0  3619
+2 25791  24.9802  94.1822 0010810 323.2224  36.7543 14.40106962116071
+FUSE 1
+1 25791U 99035A   01248.91127102 +.00000751 +00000-0 +17803-3 0 03830
+2 25791 024.9803 097.1479 0010787 318.2500 041.7192 14.40106349116005
+FUSE 1
+1 25791U 99035A   01248.21827703  .00000711  00000-0  16549-3 0  3604
+2 25791  24.9806 101.3869 0010851 311.0280  48.9290 14.40105201115909
+FUSE 1
+1 25791U 99035A   01247.94107926 +.00000692 +00000-0 +15961-3 0 03998
+2 25791 024.9808 103.0812 0010848 308.0548 051.8982 14.40104743115863
+FUSE 1
+1 25791U 99035A   01246.97088639 +.00000665 +00000-0 +15119-3 0 03624
+2 25791 024.9811 109.0135 0010822 297.4688 062.4719 14.40103568115724
+FUSE 1
+1 25791U 99035A   01246.90158683  .00000665  00000-0  15140-3 0  3594
+2 25791  24.9811 109.4371 0010823 296.7486  63.1913 14.40103507115715
+FUSE 1
+1 25791U 99035A   01245.86209396  .00000696  00000-0  16089-3 0  3582
+2 25791  24.9808 115.7946 0010841 285.1746  74.7568 14.40102728115561
+FUSE 1
+1 25791U 99035A   01244.47610489  .00000659  00000-0  14935-3 0  3573
+2 25791  24.9811 124.2700 0010831 270.7608  89.1659 14.40100949115366
+FUSE 1
+1 25791U 99035A   01243.36731275  .00000662  00000-0  15021-3 0  3567
+2 25791  24.9811 131.0482 0010866 258.9721 100.9574 14.40099892115206
+FUSE 1
+1 25791U 99035A   01242.25852056  .00000648  00000-0  14586-3 0  3553
+2 25791  24.9814 137.8264 0010894 247.3559 112.5794 14.40098711115047
+FUSE 1
+1 25791U 99035A   01241.98132292 +.00000630 +00000-0 +14046-3 0 03737
+2 25791 024.9816 139.5223 0010941 244.5808 115.3567 14.40098300115001
+FUSE 1
+1 25791U 99035A   01241.21902828  .00000629  00000-0  14009-3 0  3549
+2 25791  24.9817 144.1835 0011009 236.5844 123.3610 14.40097610114897
+FUSE 1
+1 25791U 99035A   01239.97163784 +.00000567 +00000-0 +12075-3 0 03541
+2 25791 024.9822 151.8119 0011137 224.0036 135.9578 14.40096009114714
+FUSE 1
+1 25791U 99035A   01239.90233840  .00000573  00000-0  12271-3 0  3539
+2 25791  24.9822 152.2355 0011140 223.3426 136.6211 14.40096007114709
+FUSE 1
+1 25791U 99035A   01238.93214506 +.00000578 +00000-0 +12417-3 0 03569
+2 25791 024.9822 158.1667 0011192 213.0996 146.8828 14.40095287114565
+FUSE 1
+1 25791U 99035A   01238.44704821  .00000558  00000-0  11791-3 0  3527
+2 25791  24.9823 161.1314 0011195 208.1454 151.8451 14.40094733114491
+FUSE 1
+1 25791U 99035A   01237.19965619  .00000543  00000-0  11309-3 0  3510
+2 25791  24.9826 168.7556 0011260 195.0033 165.0141 14.40093691114311
+FUSE 1
+1 25791U 99035A   01235.46716564  .00000559  00000-0  11830-3 0  3506
+2 25791  24.9826 179.3436 0011265 177.0928 182.9645 14.40092549114064
+FUSE 1
+1 25791U 99035A   01234.91276874 +.00000555 +00000-0 +11697-3 0 03518
+2 25791 024.9826 182.7322 0011267 171.3778 188.6930 14.40092091113980
+FUSE 1
+1 25791U 99035A   01234.21977186  .00000553  00000-0  11627-3 0  3493
+2 25791  24.9827 186.9667 0011270 164.0792 196.0070 14.40091557113881
+FUSE 1
+1 25791U 99035A   01233.18027640  .00000553  00000-0  11642-3 0  3485
+2 25791  24.9827 193.3193 0011293 153.2255 206.8853 14.40090779113734
+FUSE 1
+1 25791U 99035A   01231.72498050  .00000562  00000-0  11920-3 0  3478
+2 25791  24.9824 202.2156 0011301 138.1751 221.9616 14.40089739113529
+FUSE 1
+1 25791U 99035A   01230.54688298  .00000525  00000-0  10770-3 0  3462
+2 25791  24.9834 209.4179 0011313 126.3801 233.7753 14.40088665113353
+FUSE 1
+1 25791U 99035A   01229.23018362  .00000520  00000-0  10610-3 0  3452
+2 25791  24.9836 217.4680 0011315 112.6116 247.5590 14.40087703113163
+FUSE 1
+1 25791U 99035A   01228.81438323 +.00000515 +00000-0 +10467-3 0 03665
+2 25791 024.9835 220.0093 0011311 108.2127 251.9609 14.40087362113104
+FUSE 1
+1 25791U 99035A   01227.84418190  .00000497  00000-0  98977-4 0  3445
+2 25791  24.9840 225.9413 0011274  98.5742 261.6044 14.40086582112969
+FUSE 1
+1 25791U 99035A   01226.66607788 +.00000493 +00000-0 +97886-4 0 03463
+2 25791 024.9839 233.1408 0011275 086.3501 273.8298 14.40085796112794
+FUSE 1
+1 25791U 99035A   01226.52747722  .00000492  00000-0  97361-4 0  3435
+2 25791  24.9840 233.9884 0011272  84.8774 275.3014 14.40085704112774
+FUSE 1
+1 25791U 99035A   01225.21077022  .00000514  00000-0  10445-3 0  3420
+2 25791  24.9840 242.0362 0011245  71.4518 288.7213 14.40085082112581
+FUSE 1
+1 25791U 99035A   01223.89406193  .00000470  00000-0  90604-4 0  3413
+2 25791  24.9848 250.0849 0011117  57.6806 302.4776 14.40083898112392
+FUSE 1
+1 25791U 99035A   01222.78525341  .00000440  00000-0  81399-4 0  3404
+2 25791  24.9853 256.8629 0011047  46.0947 314.0477 14.40083059112237
+FUSE 1
+1 25791U 99035A   01221.95364609 +.00000421 +00000-0 +75317-4 0 03435
+2 25791 024.9857 261.9471 0011006 037.3315 322.7958 14.40082476112119
+FUSE 1
+1 25791U 99035A   01221.53784190  .00000421  00000-0  75510-4 0  3390
+2 25791  24.9858 264.4889 0010990  32.9399 327.1792 14.40082299112056
+FUSE 1
+1 25791U 99035A   01220.98343688 +.00000390 +00000-0 +65848-4 0 03579
+2 25791 024.9859 267.8782 0010962 026.9957 333.1120 14.40081738111977
+FUSE 1
+1 25791U 99035A   01220.22112886  .00000387  00000-0  64765-4 0  3382
+2 25791  24.9860 272.5393 0010909  18.8496 341.2417 14.40081380111869
+FUSE 1
+1 25791U 99035A   01218.97371408  .00000391  00000-0  65912-4 0  3377
+2 25791  24.9861 280.1628 0010876   5.5029 354.5594 14.40080902111686
+FUSE 1
+1 25791U 99035A   01217.86490136  .00000373  00000-0  60393-4 0  3361
+2 25791  24.9866 286.9411 0010853 353.7666   6.2707 14.40080339111529
+FUSE 1
+1 25791U 99035A   01216.82538872  .00000371  00000-0  59777-4 0  3357
+2 25791  24.9868 293.2962 0010793 342.5968  17.4161 14.40079940111374
+FUSE 1
+1 25791U 99035A   01215.57797329  .00000400  00000-0  68747-4 0  3341
+2 25791  24.9867 300.9214 0010734 329.1452  30.8424 14.40079711111190
+FUSE 1
+1 25791U 99035A   01214.88496511 +.00000411 +00000-0 +72102-4 0 03738
+2 25791 024.9865 305.1569 0010752 321.8056 038.1700 14.40079469111094
+FUSE 1
+1 25791U 99035A   01213.91475370 +.00000418 +00000-0 +74537-4 0 03349
+2 25791 024.9864 311.0878 0010770 311.6786 048.2800 14.40079073110957
+FUSE 1
+1 25791U 99035A   01213.84545284  .00000418  00000-0  74517-4 0  3330
+2 25791  24.9864 311.5114 0010770 310.9520  49.0052 14.40079040110944
+FUSE 1
+1 25791U 99035A   01212.94454257 +.00000434 +00000-0 +79248-4 0 03344
+2 25791 024.9864 317.0188 0010768 301.3288 058.6164 14.40078734110813
+FUSE 1
+1 25791U 99035A   01212.80594067  .00000444  00000-0  82373-4 0  3325
+2 25791  24.9863 317.8657 0010766 299.6889  60.2542 14.40078761110791
+FUSE 1
+1 25791U 99035A   01211.90503055 +.00000468 +00000-0 +90090-4 0 03446
+2 25791 024.9863 323.3726 0010776 290.0365 069.8977 14.40078499110666
+FUSE 1
+1 25791U 99035A   01211.55852704  .00000460  00000-0  87431-4 0  3318
+2 25791  24.9864 325.4904 0010823 286.2525  73.6791 14.40078234110615
+FUSE 1
+1 25791U 99035A   01210.93482022 +.00000472 +00000-0 +91278-4 0 03633
+2 25791 024.9864 329.3017 0010848 279.6419 080.2862 14.40077996110525
+FUSE 1
+1 25791U 99035A   01210.17251264  .00000478  00000-0  93199-4 0  3305
+2 25791  24.9863 333.9619 0010873 271.6318  88.2943 14.40077601110410
+FUSE 1
+1 25791U 99035A   01208.85579991  .00000490  00000-0  96802-4 0  3293
+2 25791  24.9866 342.0099 0010922 257.5431 102.3853 14.40076934110225
+FUSE 1
+1 25791U 99035A   01207.81629030  .00000501  00000-0  10023-3 0  3280
+2 25791  24.9867 348.3635 0010966 246.5884 113.3470 14.40076398110073
+FUSE 1
+1 25791U 99035A   01206.91538249 +.00000508 +00000-0 +10250-3 0 03415
+2 25791 024.9866 353.8713 0010987 237.1497 122.7945 14.40075887109946
+FUSE 1
+1 25791U 99035A   01206.56887963  .00000511  00000-0  10326-3 0  3278
+2 25791  24.9867 355.9893 0011012 233.5318 126.4174 14.40075691109893
+FUSE 1
+1 25791U 99035A   01205.87587337 +.00000527 +00000-0 +10839-3 0 03505
+2 25791 024.9868 000.2251 0011076 226.2868 133.6720 14.40075413109799
+FUSE 1
+1 25791U 99035A   01205.25216864  .00000510  00000-0  10313-3 0  3263
+2 25791  24.9867   4.0363 0011090 219.8115 140.1582 14.40074798109708
+FUSE 1
+1 25791U 99035A   01203.93545728 +.00000516 +00000-0 +10479-3 0 03269
+2 25791 024.9866 012.0811 0011114 206.0591 153.9357 14.40073969109517
+FUSE 1
+1 25791U 99035A   01203.86615663  .00000516  00000-0  10479-3 0  3256
+2 25791  24.9866  12.5045 0011114 205.3331 154.6628 14.40073923109503
+FUSE 1
+1 25791U 99035A   01202.96524958 +.00000508 +00000-0 +10233-3 0 03486
+2 25791 024.9865 018.0111 0011154 196.1382 163.8780 14.40073233109374
+FUSE 1
+1 25791U 99035A   01202.54944641  .00000493  00000-0  97826-4 0  3246
+2 25791  24.9863  20.5527 0011169 191.8050 168.2200 14.40072784109311
+FUSE 1
+1 25791U 99035A   01201.16343360  .00000507  00000-0  10206-3 0  3235
+2 25791  24.9866  29.0225 0011223 177.3906 182.6661 14.40072075109115
+FUSE 1
+1 25791U 99035A   01200.12393049  .00000384  00000-0  63784-4 0  3221
+2 25791  24.9826  35.4045 0011352 165.2759 194.8082 14.40070335108968
+FUSE 1
+1 25791U 99035A   01198.94581712 +.00000454 +00000-0 +85448-4 0 03255
+2 25791 024.9819 042.6054 0011509 153.7866 206.3225 14.40070361108793
+FUSE 1
+1 25791U 99035A   01198.87651654  .00000454  00000-0  85668-4 0  3210
+2 25791  24.9819  43.0290 0011506 153.0511 207.0603 14.40070330108780
+FUSE 1
+1 25791U 99035A   01197.90630513 +.00000543 +00000-0 +11321-3 0 03251
+2 25791 024.9814 048.9614 0011667 143.2067 216.9249 14.40070553108641
+FUSE 1
+1 25791U 99035A   01197.83700416  .00000546  00000-0  11423-3 0  3204
+2 25791  24.9813  49.3856 0011672 142.5933 217.5379 14.40070523108630
+FUSE 1
+1 25791U 99035A   01196.93609183 +.00000693 +00000-0 +16016-3 0 03423
+2 25791 024.9796 054.8902 0011793 132.6084 227.5393 14.40070954108505
+FUSE 1
+1 25791U 99035A   01196.45099063  .00000473  00000-0  91615-4 0  3199
+2 25791  24.9825  57.8656 0011228 128.4789 231.6720 14.40068671108430
+FUSE 1
+1 25791U 99035A   01195.20357322  .00000505  00000-0  10164-3 0  3180
+2 25791  24.9825  65.4916 0011215 116.0156 244.1500 14.40068220108256
+FUSE 1
+1 25791U 99035A   01194.02545613  .00000499  00000-0  99733-4 0  3172
+2 25791  24.9826  72.6920 0011188 103.4129 256.7628 14.40067381108089
+FUSE 1
+1 25791U 99035A   01193.95615541 +.00000494 +00000-0 +98068-4 0 03356
+2 25791 024.9827 073.1157 0011179 102.6649 257.5123 14.40067286108078
+FUSE 1
+1 25791U 99035A   01192.50083132  .00000493  00000-0  97812-4 0  3165
+2 25791  24.9831  82.0131 0011146  87.3221 272.8568 14.40066408107867
+FUSE 1
+1 25791U 99035A   01191.94642156 +.00000499 +00000-0 +99730-4 0 03267
+2 25791 024.9831 085.4021 0011170 081.6595 278.5190 14.40066125107781
+FUSE 1
+1 25791U 99035A   01191.18410683  .00000513  00000-0  10412-3 0  3155
+2 25791  24.9835  90.0635 0011114  74.2217 285.9515 14.40065843107672
+FUSE 1
+1 25791U 99035A   01190.14458616  .00000519  00000-0  10586-3 0  3145
+2 25791  24.9834  96.4153 0011128  63.2236 296.9407 14.40065179107528
+FUSE 1
+1 25791U 99035A   01188.89716000  .00000517  00000-0  10535-3 0  3139
+2 25791  24.9835 104.0390 0011105  50.1547 309.9937 14.40064329107342
+FUSE 1
+1 25791U 99035A   01187.85763598  .00000560  00000-0  11885-3 0  3124
+2 25791  24.9834 110.3927 0011027  39.7903 320.3413 14.40064059107198
+FUSE 1
+1 25791U 99035A   01186.26369845  .00000576  00000-0  12383-3 0  3115
+2 25791  24.9833 120.1320 0011040  23.1413 336.9590 14.40062964106967
+FUSE 1
+1 25791U 99035A   01185.22417234  .00000611  00000-0  13466-3 0  3108
+2 25791  24.9832 126.4851 0010938  12.2821 347.7952 14.40062479106818
+FUSE 1
+1 25791U 99035A   01183.90743981  .00000616  00000-0  13632-3 0  3090
+2 25791  24.9835 134.5338 0011000 358.4299   1.6173 14.40061396106623
+FUSE 1
+1 25791U 99035A   01182.72930922  .00000647  00000-0  14599-3 0  3088
+2 25791  24.9835 141.7349 0010932 346.1083  13.9122 14.40060663106450
+FUSE 1
+1 25791U 99035A   01181.55117807  .00000655  00000-0  14826-3 0  3078
+2 25791  24.9833 148.9349 0010989 333.0109  26.9827 14.40059608106287
+FUSE 1
+1 25791U 99035A   01180.23444311  .00000674  00000-0  15430-3 0  3067
+2 25791  24.9834 156.9835 0010915 318.5214  41.4471 14.40058589106094
+FUSE 1
+1 25791U 99035A   01179.95723625 +.00000660 +00000-0 +14998-3 0 03537
+2 25791 024.9835 158.6778 0010936 315.4784 044.4860 14.40058184106053
+FUSE 1
+1 25791U 99035A   01178.98701077 +.00000700 +00000-0 +16223-3 0 03095
+2 25791 024.9839 164.6103 0010804 304.5310 055.4225 14.40057715105914
+FUSE 1
+1 25791U 99035A   01178.91770917  .00000670  00000-0  15306-3 0  3050
+2 25791  24.9837 165.0340 0010775 303.9328  56.0166 14.40057316105906
+FUSE 1
+1 25791U 99035A   01177.94748394 +.00000667 +00000-0 +15215-3 0 03051
+2 25791 024.9839 170.9631 0010758 293.8032 066.1362 14.40056346105762
+FUSE 1
+1 25791U 99035A   01177.80888028  .00000659  00000-0  14952-3 0  3042
+2 25791  24.9838 171.8101 0010748 292.4036  67.5332 14.40056120105741
+FUSE 1
+1 25791U 99035A   01176.83865444 +.00000669 +00000-0 +15256-3 0 03062
+2 25791 024.9836 177.7390 0010771 281.9230 078.0068 14.40055269105600
+FUSE 1
+1 25791U 99035A   01176.56144703  .00000675  00000-0  15449-3 0  3038
+2 25791  24.9837 179.4333 0010795 278.8637  81.0649 14.40055073105566
+FUSE 1
+1 25791U 99035A   01175.86842919 +.00000678 +00000-0 +15546-3 0 03316
+2 25791 024.9837 183.6698 0010800 271.5427 088.3843 14.40054412105462
+FUSE 1
+1 25791U 99035A   01175.24471298  .00000688  00000-0  15855-3 0  3028
+2 25791  24.9839 187.4824 0010794 264.9104  95.0170 14.40053918105375
+FUSE 1
+1 25791U 99035A   01173.85867780  .00000677  00000-0  15522-3 0  3016
+2 25791  24.9839 195.9535 0010801 250.3967 109.5372 14.40052381105179
+FUSE 1
+1 25791U 99035A   01172.95775496 +.00000670 +00000-0 +15307-3 0 03067
+2 25791 024.9841 201.4598 0010826 240.8926 119.0499 14.40051405105048
+FUSE 1
+1 25791U 99035A   01172.54194415  .00000672  00000-0  15364-3 0  3007
+2 25791  24.9843 204.0010 0010840 236.4724 123.4748 14.40051033104986
+FUSE 1
+1 25791U 99035A   01171.98753138 +.00000679 +00000-0 +15575-3 0 03288
+2 25791 024.9843 207.3895 0010842 230.3514 129.6117 14.40050582104903
+FUSE 1
+1 25791U 99035A   01171.22521133  .00000677  00000-0  15522-3 0  2990
+2 25791  24.9854 212.0560 0010996 222.3356 137.6304 14.40049810104798
+FUSE 1
+1 25791U 99035A   01169.97777976 +.00000651 +00000-0 +14719-3 0 02996
+2 25791 024.9854 219.6805 0010993 209.2640 150.7249 14.40048323104613
+FUSE 1
+1 25791U 99035A   01169.83917607  .00000653  00000-0  14780-3 0  2987
+2 25791  24.9854 220.5274 0010997 207.8311 152.1606 14.40048213104595
+FUSE 1
+1 25791U 99035A   01168.93825267 +.00000639 +00000-0 +14331-3 0 02983
+2 25791 024.9853 226.0330 0011011 198.4101 161.6008 14.40047199104467
+FUSE 1
+1 25791U 99035A   01168.79964884  .00000639  00000-0  14331-3 0  2975
+2 25791  24.9853 226.8798 0011011 196.9581 163.0554 14.40047071104447
+FUSE 1
+1 25791U 99035A   01167.55221537  .00000637  00000-0  14282-3 0  2961
+2 25791  24.9855 234.5040 0011049 184.0993 175.9424 14.40045914104263
+FUSE 1
+1 25791U 99035A   01166.51268687  .00000629  00000-0  14035-3 0  2959
+2 25791  24.9856 240.8573 0011071 173.3506 186.7149 14.40044884104114
+FUSE 1
+1 25791U 99035A   01165.95827450 +.00000603 +00000-0 +13200-3 0 03120
+2 25791 024.9848 244.2600 0010963 166.9546 193.1247 14.40044112104031
+FUSE 1
+1 25791U 99035A   01165.40385861  .00000599  00000-0  13098-3 0  2943
+2 25791  24.9849 247.6487 0010973 161.1937 198.8977 14.40043624103953
+FUSE 1
+1 25791U 99035A   01164.22572358  .00000615  00000-0  13598-3 0  2934
+2 25791  24.9850 254.8490 0011010 149.2494 210.8676 14.40042799103781
+FUSE 1
+1 25791U 99035A   01163.87921276 +.00000615 +00000-0 +13599-3 0 03270
+2 25791 024.9849 256.9662 0011011 145.6235 214.4988 14.40042491103737
+FUSE 1
+1 25791U 99035A   01163.18619226  .00000575  00000-0  12336-3 0  2927
+2 25791  24.9852 261.2039 0011012 139.1112 221.0231 14.40041529103636
+FUSE 1
+1 25791U 99035A   01162.90898327 +.00000573 +00000-0 +12283-3 0 03321
+2 25791 024.9853 262.8977 0011009 136.1629 223.9749 14.40041298103594
+FUSE 1
+1 25791U 99035A   01161.86945008  .00000570  00000-0  12199-3 0  2911
+2 25791  24.9855 269.2523 0011028 125.4435 234.7103 14.40040463103442
+FUSE 1
+1 25791U 99035A   01160.55270529  .00000600  00000-0  13110-3 0  2902
+2 25791  24.9853 277.3011 0011033 112.2693 247.8985 14.40039697103257
+FUSE 1
+1 25791U 99035A   01159.51316909  .00000608  00000-0  13389-3 0  2893
+2 25791  24.9855 283.6566 0011020 101.4944 258.6799 14.40038905103107
+FUSE 1
+1 25791U 99035A   01158.95874900 +.00000619 +00000-0 +13726-3 0 03157
+2 25791 024.9854 287.0455 0011021 095.8528 264.3235 14.40038518103026
+FUSE 1
+1 25791U 99035A   01158.40432836  .00000637  00000-0  14284-3 0  2884
+2 25791  24.9854 290.4346 0011007  89.9818 270.1950 14.40038207102947
+FUSE 1
+1 25791U 99035A   01157.22618367  .00000647  00000-0  14588-3 0  2875
+2 25791  24.9857 297.6350 0011049  77.7985 282.3753 14.40037223102774
+FUSE 1
+1 25791U 99035A   01156.18664290  .00000642  00000-0  14440-3 0  2866
+2 25791  24.9861 303.9893 0011005  67.0287 293.1376 14.40036236102629
+FUSE 1
+1 25791U 99035A   01154.86988814  .00000664  00000-0  15129-3 0  2858
+2 25791  24.9862 312.0359 0010968  53.2775 306.8736 14.40035235102433
+FUSE 1
+1 25791U 99035A   01153.55313207  .00000654  00000-0  14823-3 0  2849
+2 25791  24.9862 320.0822 0010917  39.4182 320.7119 14.40033855102244
+FUSE 1
+1 25791U 99035A   01152.51358604  .00000656  00000-0  14876-3 0  2833
+2 25791  24.9862 326.4348 0010879  28.5266 331.5835 14.40032889102090
+FUSE 1
+1 25791U 99035A   01151.95916093 +.00000658 +00000-0 +14954-3 0 03067
+2 25791 024.9864 329.8227 0010858 022.6676 337.4309 14.40032401102015
+FUSE 1
+1 25791U 99035A   01151.33543277  .00000649  00000-0  14671-3 0  2828
+2 25791  24.9863 333.6343 0010866  15.9419 344.1429 14.40031685101925
+FUSE 1
+1 25791U 99035A   01150.15727791  .00000654  00000-0  14810-3 0  2812
+2 25791  24.9864 340.8337 0010840   3.4915 356.5667 14.40030638101753
+FUSE 1
+1 25791U 99035A   01149.88006493 +.00000653 +00000-0 +14785-3 0 03135
+2 25791 024.9866 342.5280 0010826 000.5019 359.5497 14.40030376101717
+FUSE 1
+1 25791U 99035A   01148.90982283  .00000634  00000-0  14209-3 0  2800
+2 25791  24.9866 348.4566 0010800 350.2840   9.7632 14.40029222101575
+FUSE 1
+1 25791U 99035A   01147.38515028  .00000579  00000-0  12480-3 0  2795
+2 25791  24.9837 357.7948 0010793 333.6467  26.3492 14.40027134101356
+FUSE 1
+1 25791U 99035A   01146.20699331  .00000565  00000-0  12045-3 0  2786
+2 25791  24.9838   4.9959 0010786 321.0840  38.8893 14.40026061101180
+FUSE 1
+1 25791U 99035A   01144.89022932  .00000533  00000-0  11042-3 0  2776
+2 25791  24.9841  13.0436 0010817 306.9215  53.0301 14.40024823100993
+FUSE 1
+1 25791U 99035A   01143.91998144 +.00000546 +00000-0 +11428-3 0 02924
+2 25791 024.9842 018.9724 0010816 296.5378 063.4019 14.40024274100857
+FUSE 1
+1 25791U 99035A   01143.36555441  .00000551  00000-0  11588-3 0  2767
+2 25791  24.9842  22.3601 0010810 290.7426  69.1925 14.40023904100773
+FUSE 1
+1 25791U 99035A   01142.94973432 +.00000553 +00000-0 +11652-3 0 02881
+2 25791 024.9843 024.9015 0010807 286.3744 073.5580 14.40023633100710
+FUSE 1
+1 25791U 99035A   01142.32600379  .00000567  00000-0  12088-3 0  2755
+2 25791  24.9842  28.7136 0010785 279.8487  80.0792 14.40023279100625
+FUSE 1
+1 25791U 99035A   01141.91018440 +.00000540 +00000-0 +11242-3 0 02900
+2 25791 024.9840 031.2547 0010893 276.2467 083.6799 14.40022637100563
+FUSE 1
+1 25791U 99035A   01141.21715079  .00000549  00000-0  11542-3 0  2749
+2 25791  24.9840  35.4898 0010896 268.8475  91.0785 14.40022229100461
+FUSE 1
+1 25791U 99035A   01139.90038775  .00000571  00000-0  12219-3 0  2739
+2 25791  24.9839  43.5397 0010931 255.0386 104.8911 14.40021439100277
+FUSE 1
+1 25791U 99035A   01138.58362425  .00000609  00000-0  13389-3 0  2724
+2 25791  24.9837  51.5882 0011072 241.1629 118.7758 14.40020744100086
+FUSE 1
+1 25791U 99035A   01137.33616481  .00000661  00000-0  15031-3 0  2713
+2 25791  24.9839  59.2112 0011101 227.8811 132.0752 14.40020162 99901
+FUSE 1
+1 25791U 99035A   01136.22731284  .00000674  00000-0  15435-3 0  2700
+2 25791  24.9841  65.9875 0011119 216.3279 143.6473 14.40019220 99747
+FUSE 1
+1 25791U 99035A   01134.97985363 +.00000712 +00000-0 +16613-3 0 02734
+2 25791 024.9840 073.6131 0011195 203.7721 156.2269 14.40018339099566
+FUSE 1
+1 25791U 99035A   01134.91055026  .00000715  00000-0  16725-3 0  2694
+2 25791  24.9839  74.0366 0011202 203.0881 156.9123 14.40018302 99553
+FUSE 1
+1 25791U 99035A   01133.94030404 +.00000743 +00000-0 +17573-3 0 02737
+2 25791 024.9839 079.9663 0011198 193.0427 166.9790 14.40017554099419
+FUSE 1
+1 25791U 99035A   01133.45518076  .00000746  00000-0  17689-3 0  2684
+2 25791  24.9839  82.9302 0011209 188.0450 171.9871 14.40017047 99341
+FUSE 1
+1 25791U 99035A   01132.20772024  .00000785  00000-0  18898-3 0  2676
+2 25791  24.9839  90.5544 0011269 175.2870 184.7740 14.40016047 99160
+FUSE 1
+1 25791U 99035A   01130.96025905 +.00000820 +00000-0 +19980-3 0 02691
+2 25791 024.9841 098.1782 0011296 162.1732 197.9172 14.40014946098983
+FUSE 1
+1 25791U 99035A   01130.89095562  .00000820  00000-0  20001-3 0  2662
+2 25791  24.9841  98.6016 0011296 161.4536 198.6384 14.40014866 98975
+FUSE 1
+1 25791U 99035A   01129.92071030 +.00000847 +00000-0 +20834-3 0 02661
+2 25791 024.9833 104.5520 0011085 151.6354 208.4757 14.40014053098835
+FUSE 1
+1 25791U 99035A   01129.85140680  .00000850  00000-0  20936-3 0  2657
+2 25791  24.9832 104.9757 0011084 150.9394 209.1729 14.40013984 98823
+FUSE 1
+1 25791U 99035A   01128.95046107 +.00000863 +00000-0 +21348-3 0 02704
+2 25791 024.9831 110.4816 0011082 141.5157 218.6142 14.40012890098695
+FUSE 1
+1 25791U 99035A   01128.53463956  .00000867  00000-0  21456-3 0  2640
+2 25791  24.9830 113.0225 0011082 137.1961 222.9409 14.40012343 98632
+FUSE 1
+1 25791U 99035A   01127.98021059 +.00000880 +00000-0 +21866-3 0 02822
+2 25791 024.9832 116.4114 0011088 131.3728 228.7736 14.40011719098555
+FUSE 1
+1 25791U 99035A   01127.21786998  .00000884  00000-0  22005-3 0  2637
+2 25791  24.9831 121.0699 0011080 123.3961 236.7608 14.40010685 98442
+FUSE 1
+1 25791U 99035A   01125.90109773  .00000892  00000-0  22255-3 0  2626
+2 25791  24.9833 129.1184 0011028 109.9749 250.1950 14.40008904 98258
+FUSE 1
+1 25791U 99035A   01124.86153846  .00000895  00000-0  22336-3 0  2612
+2 25791  24.9835 135.4720 0010976  99.2838 260.8908 14.40007464 98102
+FUSE 1
+1 25791U 99035A   01123.82197729  .00000903  00000-0  22598-3 0  2604
+2 25791  24.9836 141.8244 0010956  88.5472 271.6290 14.40006059 97953
+FUSE 1
+1 25791U 99035A   01122.78241421  .00000914  00000-0  22957-3 0  2596
+2 25791  24.9838 148.1778 0010906  77.7606 282.4122 14.40004664 97809
+FUSE 1
+1 25791U 99035A   01121.74284958  .00000909  00000-0  22797-3 0  2588
+2 25791  24.9840 154.5310 0010872  66.8417 293.3235 14.40003100 97659
+FUSE 1
+1 25791U 99035A   01120.98050140 +.00000892 +00000-0 +22245-3 0 02632
+2 25791 024.9840 159.1901 0010848 058.8234 301.3337 14.40001802097545
+FUSE 1
+1 25791U 99035A   01120.56467427  .00000893  00000-0  22276-3 0  2574
+2 25791  24.9840 161.7307 0010845  54.4415 305.7103 14.40001218 97487
+FUSE 1
+1 25791U 99035A   01119.24788803  .00000840  00000-0  20637-3 0  2561
+2 25791  24.9839 169.7779 0010778  40.3623 319.7683 14.39998784 97294
+FUSE 1
+1 25791U 99035A   01117.23804969  .00000814  00000-0  19817-3 0  2547
+2 25791  24.9840 182.0587 0010772  19.4486 340.6431 14.39995823 97003
+FUSE 1
+1 25791U 99035A   01116.96083039 +.00000802 +00000-0 +19449-3 0 02877
+2 25791 024.9843 183.7523 0010778 016.6787 343.4072 14.39995329096960
+FUSE 1
+1 25791U 99035A   01116.19847490  .00001304  00000-0  35116-3 0  2531
+2 25791  24.9827 188.4092 0011139   8.8375 351.2331 14.39996795 96854
+FUSE 1
+1 25791U 99035A   01114.88168133 +.00000626 +00000-0 +13955-3 0 02538
+2 25791 024.9832 196.4565 0011007 354.8618 005.1760 14.39992143096665
+FUSE 1
+1 25791U 99035A   01114.81237588  .00000730  00000-0  17192-3 0  2524
+2 25791  24.9832 196.8805 0010974 353.8797   6.1556 14.39992378 96658
+FUSE 1
+1 25791U 99035A   01113.91141013 +.00001105 +00000-0 +28900-3 0 02583
+2 25791 024.9832 202.3874 0010818 344.5129 015.5072 14.39992088096521
+FUSE 1
+1 25791U 99035A   01113.56488467  .00000804  00000-0  19509-3 0  2514
+2 25791  24.9836 204.5049 0010848 340.9754  19.0347 14.39990691 96476
+FUSE 1
+1 25791U 99035A   01112.87183381 +.00000588 +00000-0 +12770-3 0 02853
+2 25791 024.9838 208.7401 0010866 334.2845 025.7120 14.39989069096372
+FUSE 1
+1 25791U 99035A   01112.24808739  .00000697  00000-0  16161-3 0  2506
+2 25791  24.9837 212.5519 0010856 327.7806  32.2065 14.39988758 96282
+FUSE 1
+1 25791U 99035A   01110.86198210  .00000839  00000-0  20609-3 0  2496
+2 25791  24.9833 221.0217 0010828 312.9646  46.9953 14.39987824 96084
+FUSE 1
+1 25791U 99035A   01109.96101490 +.00000640 +00000-0 +14376-3 0 02662
+2 25791 024.9835 226.5270 0010746 303.7230 056.2253 14.39986069095953
+FUSE 1
+1 25791U 99035A   01109.54518505  .00000698  00000-0  16199-3 0  2483
+2 25791  24.9825 229.0749 0010853 299.3689  60.5757 14.39985563 95896
+FUSE 1
+1 25791U 99035A   01108.92143892 +.00000424 +00000-0 +76456-4 0 02689
+2 25791 024.9835 232.8933 0010773 292.5014 067.4341 14.39984084095805
+FUSE 1
+1 25791U 99035A   01108.43630231  .00000475  00000-0  92307-4 0  2479
+2 25791  24.9841 235.8622 0010842 287.1593  72.7725 14.39984197 95731
+FUSE 1
+1 25791U 99035A   01107.25811420  .00000342  00000-0  50688-4 0  2467
+2 25791  24.9840 243.0654 0010850 274.6194  85.3080 14.39982982 95568
+FUSE 1
+1 25791U 99035A   01106.91158787 +.00000319 +00000-0 +43545-4 0 02816
+2 25791 024.9842 245.1833 0010843 270.9361 088.9901 14.39982821095517
+FUSE 1
+1 25791U 99035A   01105.94131510 +.00000457 +00000-0 +86612-4 0 02469
+2 25791 024.9838 251.1154 0010905 261.3015 098.6260 14.39982811095373
+FUSE 1
+1 25791U 99035A   01105.87200985  .00000459  00000-0  87250-4 0  2454
+2 25791  24.9840 251.5393 0010901 260.6320  99.2952 14.39982811 95366
+FUSE 1
+1 25791U 99035A   01104.55520998  .00001008  00000-0  25888-3 0  2445
+2 25791  24.9829 259.5887 0011021 247.1818 112.7523 14.39983372 95172
+FUSE 1
+1 25791U 99035A   01103.51562954  .00001492  00000-0  40988-3 0  2432
+2 25791  24.9842 265.9425 0010869 234.0542 125.8931 14.39984015 95021
+FUSE 1
+1 25791U 99035A   01102.89188107 +.00001731 +00000-0 +48461-3 0 02649
+2 25791 024.9844 269.7554 0011059 227.9140 132.0419 14.39983703094938
+FUSE 1
+1 25791U 99035A   01102.54535407  .00001893  00000-0  53504-3 0  2429
+2 25791  24.9846 271.8734 0010921 223.7407 136.2232 14.39983757 94883
+FUSE 1
+1 25791U 99035A   01101.92160517 +.00002030 +00000-0 +57800-3 0 02647
+2 25791 024.9848 275.6854 0011217 217.6844 142.2874 14.39982801094794
+FUSE 1
+1 25791U 99035A   01101.57507715  .00002190  00000-0  62781-3 0  2419
+2 25791  24.9854 277.8031 0010956 213.3871 146.5941 14.39983161 94741
+FUSE 1
+1 25791U 99035A   01100.88202474 +.00002253 +00000-0 +64777-3 0 02660
+2 25791 024.9853 282.0379 0011053 206.6572 153.3357 14.39981020094643
+FUSE 1
+1 25791U 99035A   01100.18897006  .00002361  00000-0  68129-3 0  2401
+2 25791  24.9852 286.2722 0011029 198.9302 161.0725 14.39979226 94546
+FUSE 1
+1 25791U 99035A   01099.91174907 +.00002395 +00000-0 +69207-3 0 02750
+2 25791 024.9855 287.9660 0011230 196.5404 163.4735 14.39978461094502
+FUSE 1
+1 25791U 99035A   01098.94147224 +.00002530 +00000-0 +73411-3 0 02421
+2 25791 024.9854 293.8958 0011234 186.4584 173.5772 14.39975567094369
+FUSE 1
+1 25791U 99035A   01098.87216662  .00002543  00000-0  73810-3 0  2399
+2 25791  24.9855 294.3194 0011295 185.6074 174.4304 14.39975420 94358
+FUSE 1
+1 25791U 99035A   01097.55535820  .00002756  00000-0  80493-3 0  2383
+2 25791  24.9857 302.3671 0011209 171.5084 188.5605 14.39971661 94162
+FUSE 1
+1 25791U 99035A   01096.51577572  .00001819  00000-0  51232-3 0  2375
+2 25791  24.9851 308.7196 0011060 159.9502 200.1452 14.39962260 94018
+FUSE 1
+1 25791U 99035A   01095.19896006  .00002137  00000-0  61186-3 0  2366
+2 25791  24.9847 316.7677 0011044 146.2105 213.9107 14.39958939 93821
+FUSE 1
+1 25791U 99035A   01094.92173520 +.00002224 +00000-0 +63882-3 0 02749
+2 25791 024.9845 318.4612 0011055 143.4912 216.6355 14.39958128093784
+FUSE 1
+1 25791U 99035A   01093.95144716 +.00002409 +00000-0 +69674-3 0 02410
+2 25791 024.9843 324.3915 0011216 133.1891 226.9554 14.39954609093645
+FUSE 1
+1 25791U 99035A   01093.88214064  .00002499  00000-0  72482-3 0  2359
+2 25791  24.9842 324.8152 0011197 132.3778 227.7676 14.39954543 93635
+FUSE 1
+1 25791U 99035A   01092.91184954 +.00003251 +00000-0 +95975-3 0 02557
+2 25791 024.9837 330.7471 0011246 122.5955 237.5655 14.39950967093498
+FUSE 1
+1 25791U 99035A   01091.17917824  .00003186  00000-0  93968-3 0  2337
+2 25791  24.9835 341.3417 0011318 105.3746 254.8012 14.39939177 93243
+FUSE 1
+1 25791U 99035A   01090.13956723  .00002972  00000-0  87297-3 0  2322
+2 25791  24.9838 347.6958 0011329  94.7440 265.4361 14.39932401 93090
+FUSE 1
+1 25791U 99035A   01088.96133501 +.00002837 +00000-0 +83108-3 0 02339
+2 25791 024.9838 354.9011 0011327 083.2313 276.9488 14.39925595092925
+FUSE 1
+1 25791U 99035A   01088.89202703  .00002815  00000-0  82399-3 0  2317
+2 25791  24.9839 355.3247 0011337  82.5196 277.6602 14.39925159 92915
+FUSE 1
+1 25791U 99035A   01087.92171315 +.00001946 +00000-0 +55260-3 0 02360
+2 25791 024.9847 001.2552 0011205 072.8181 287.3553 14.39918251092772
+FUSE 1
+1 25791U 99035A   01087.85240649  .00001697  00000-0  47485-3 0  2306
+2 25791  24.9849   1.6791 0011193  72.3247 287.8536 14.39917141 92769
+FUSE 1
+1 25791U 99035A   01082.51561712  .00000996  00000-0  25569-3 0  2266
+2 25791  24.9850  34.2906 0010848  15.4515 344.6316 14.39903030 91997
+FUSE 1
+1 25791U 99035A   01081.96114279 +.00000895 +00000-0 +22411-3 0 02357
+2 25791 024.9850 037.6798 0010802 008.8785 351.1917 14.39901631091915
+FUSE 1
+1 25791U 99035A   01081.33735740  .00000887  00000-0  22159-3 0  2259
+2 25791  24.9850  41.4919 0010779   2.2856 357.7699 14.39900735 91826
+FUSE 1
+1 25791U 99035A   01080.92150068 +.00000863 +00000-0 +21388-3 0 02333
+2 25791 024.9849 044.0329 0010784 357.8343 002.2118 14.39899989091763
+FUSE 1
+1 25791U 99035A   01080.22840542  .00000844  00000-0  20810-3 0  2247
+2 25791  24.9848  48.2669 0010801 350.7139   9.3171 14.39898909 91667
+FUSE 1
+1 25791U 99035A   01079.95116702 +.00000849 +00000-0 +20965-3 0 02537
+2 25791 024.9848 049.9618 0010808 347.8135 012.2110 14.39898588091624
+FUSE 1
+1 25791U 99035A   01078.98083194 +.00000863 +00000-0 +21409-3 0 02245
+2 25791 024.9850 055.8907 0010787 337.5934 022.4103 14.39897482091484
+FUSE 1
+1 25791U 99035A   01078.91152241  .00000863  00000-0  21400-3 0  2238
+2 25791  24.9849  56.3142 0010787 336.8603  23.1424 14.39897379 91472
+FUSE 1
+1 25791U 99035A   01077.94118795 +.00000865 +00000-0 +21466-3 0 02296
+2 25791 024.9846 062.2492 0010753 326.7694 033.2147 14.39896112091337
+FUSE 1
+1 25791U 99035A   01077.52532984  .00000862  00000-0  21353-3 0  2225
+2 25791  24.9844  64.7900 0010747 322.4604  37.5154 14.39895491 91270
+FUSE 1
+1 25791U 99035A   01076.48568446  .00000836  00000-0  20539-3 0  2216
+2 25791  24.9842  71.1417 0010785 311.0390  48.9185 14.39893786 91120
+FUSE 1
+1 25791U 99035A   01075.23810913  .00000832  00000-0  20428-3 0  2209
+2 25791  24.9846  78.7649 0010811 297.7413  62.1997 14.39892127 90946
+FUSE 1
+1 25791U 99035A   01073.99053383 +.00000816 +00000-0 +19913-3 0 02209
+2 25791 024.9845 086.3872 0010797 284.5974 075.3336 14.39890279090766
+FUSE 1
+1 25791U 99035A   01073.92122749  .00000816  00000-0  19910-3 0  2190
+2 25791  24.9845  86.8106 0010797 283.8732  76.0753 14.39890190 90757
+FUSE 1
+1 25791U 99035A   01072.88158105 +.00000784 +00000-0 +18923-3 0 02220
+2 25791 024.9830 093.1816 0010740 272.7044 087.2233 14.39888516090601
+FUSE 1
+1 25791U 99035A   01072.53503188  .00000787  00000-0  19030-3 0  2185
+2 25791  24.9830  95.2987 0010757 268.9911  90.9362 14.39888127 90557
+FUSE 1
+1 25791U 99035A   01071.98055429 +.00000763 +00000-0 +18258-3 0 02201
+2 25791 024.9833 098.6880 0010753 263.1759 096.7529 14.39887246090473
+FUSE 1
+1 25791U 99035A   01071.49538471  .00000791  00000-0  19130-3 0  2177
+2 25791  24.9831 101.6522 0010849 257.9268 102.0023 14.39886914 90405
+FUSE 1
+1 25791U 99035A   01070.94090658 +.00000785 +00000-0 +18959-3 0 02469
+2 25791 024.9831 105.0409 0010844 252.1036 107.8288 14.39886182090326
+FUSE 1
+1 25791U 99035A   01070.24780824  .00000809  00000-0  19709-3 0  2161
+2 25791  24.9831 109.2771 0010871 244.6528 115.2853 14.39885565 90220
+FUSE 1
+1 25791U 99035A   01069.20816158  .00000791  00000-0  19153-3 0  2157
+2 25791  24.9832 115.6328 0011054 233.9117 126.0367 14.39884078 90070
+FUSE 1
+1 25791U 99035A   01067.82196489  .00000809  00000-0  19705-3 0  2143
+2 25791  24.9830 124.1033 0011113 218.9869 140.9835 14.39882486 89871
+FUSE 1
+1 25791U 99035A   01066.64369761 +.00000799 +00000-0 +19374-3 0 02169
+2 25791 024.9830 131.3033 0011151 207.0123 152.9803 14.39880895089707
+FUSE 1
+1 25791U 99035A   01066.50507788  .00000796  00000-0  19291-3 0  2139
+2 25791  24.9830 132.1500 0011152 205.5911 154.4046 14.39880702 89684
+FUSE 1
+1 25791U 99035A   01065.88128936 +.00000790 +00000-0 +19103-3 0 02397
+2 25791 024.9831 135.9622 0011122 198.9598 161.0503 14.39879873089593
+FUSE 1
+1 25791U 99035A   01065.18819067  .00000783  00000-0  18885-3 0  2121
+2 25791  24.9834 140.1989 0011152 191.7198 168.3068 14.39878991 89495
+FUSE 1
+1 25791U 99035A   01064.91095089 +.00000771 +00000-0 +18518-3 0 02446
+2 25791 024.9835 141.8928 0011125 188.7032 171.3283 14.39878539089457
+FUSE 1
+1 25791U 99035A   01063.87130138  .00000765  00000-0  18340-3 0  2115
+2 25791  24.9836 148.2465 0011125 177.9406 182.1148 14.39877264 89308
+FUSE 1
+1 25791U 99035A   01063.87130137 +.00000767 +00000-0 +18406-3 0 02120
+2 25791 024.9835 148.2460 0011132 177.9393 182.1166 14.39877276089308
+FUSE 1
+1 25791U 99035A   01062.90096058 +.00000769 +00000-0 +18444-3 0 02210
+2 25791 024.9839 154.1757 0011132 167.8039 192.2735 14.39876200089166
+FUSE 1
+1 25791U 99035A   01062.55441017  .00000773  00000-0  18590-3 0  2105
+2 25791  24.9841 156.2936 0011137 164.3299 195.7558 14.39875851 89113
+FUSE 1
+1 25791U 99035A   01061.30682837  .00000772  00000-0  18556-3 0  2093
+2 25791  24.9841 163.9191 0011157 150.7881 209.3252 14.39874318 88938
+FUSE 1
+1 25791U 99035A   01060.82165726 +.00000760 +00000-0 +18192-3 0 02488
+2 25791 024.9843 166.8839 0011144 145.5272 214.5963 14.39873647088866
+FUSE 1
+1 25791U 99035A   01059.92062424 +.00000739 +00000-0 +17528-3 0 02194
+2 25791 024.9846 172.3899 0011179 135.9727 224.1680 14.39872415088734
+FUSE 1
+1 25791U 99035A   01059.57407284  .00000713  00000-0  16698-3 0  2089
+2 25791  24.9853 174.5090 0011130 132.3934 227.7515 14.39871839 88686
+FUSE 1
+1 25791U 99035A   01058.25717454  .00000711  00000-0  16656-3 0  2077
+2 25791  24.9850 182.5567 0011163 119.2623 240.9005 14.39870406 88495
+FUSE 1
+1 25791U 99035A   01057.91062171 +.00000714 +00000-0 +16747-3 0 02319
+2 25791 024.9852 184.6743 0011160 115.8000 244.3659 14.39870084088444
+FUSE 1
+1 25791U 99035A   01056.87096351  .00000689  00000-0  15951-3 0  2069
+2 25791  24.9851 191.0276 0011173 104.7434 255.4312 14.39868715 88298
+FUSE 1
+1 25791U 99035A   01055.90061376 +.00000679 +00000-0 +15637-3 0 02285
+2 25791 024.9850 196.9579 0011170 094.7617 265.4158 14.39867625088158
+FUSE 1
+1 25791U 99035A   01055.55406001  .00000689  00000-0  15968-3 0  2057
+2 25791  24.9853 199.0771 0011176  91.3496 268.8293 14.39867412 88109
+FUSE 1
+1 25791U 99035A   01054.23715345  .00000689  00000-0  15972-3 0  2049
+2 25791  24.9854 207.1235 0011152  77.7001 282.4754 14.39866067 87917
+FUSE 1
+1 25791U 99035A   01053.89059839 +.00000696 +00000-0 +16187-3 0 02158
+2 25791 024.9856 209.2409 0011136 074.1479 286.0253 14.39865797087864
+FUSE 1
+1 25791U 99035A   01052.92024384 +.00000702 +00000-0 +16372-3 0 02040
+2 25791 024.9854 215.1686 0011139 064.1094 296.0556 14.39864826087724
+FUSE 1
+1 25791U 99035A   01052.85093275  .00000705  00000-0  16455-3 0  2031
+2 25791  24.9853 215.5920 0011131  63.4459 296.7188 14.39864778 87710
+FUSE 1
+1 25791U 99035A   01051.88057587 +.00000742 +00000-0 +17626-3 0 02031
+2 25791 024.9846 221.5212 0010994 053.4019 306.7497 14.39864094087570
+FUSE 1
+1 25791U 99035A   01049.17743500  .00000805  00000-0  19598-3 0  2004
+2 25791  24.9852 238.0376 0010943  24.9759 335.1274 14.39861598 87181
+FUSE 1
+1 25791U 99035A   01048.13776370  .00000818  00000-0  20021-3 0  1994
+2 25791  24.9855 244.3897 0010946  14.2126 345.8687 14.39860443 87033
+FUSE 1
+1 25791U 99035A   01046.95946808 +.00000826 +00000-0 +20265-3 0 02009
+2 25791 024.9856 251.5883 0010925 001.7292 358.3251 14.39859035086862
+FUSE 1
+1 25791U 99035A   01046.89015657  .00000828  00000-0  20328-3 0  1989
+2 25791  24.9856 252.0117 0010921   1.0228 359.0304 14.39858972 86851
+FUSE 1
+1 25791U 99035A   01045.91979473 +.00000825 +00000-0 +20234-3 0 02104
+2 25791 024.9857 257.9395 0010895 350.7865 009.2444 14.39857693086718
+FUSE 1
+1 25791U 99035A   01045.57323730  .00000822  00000-0  20128-3 0  1978
+2 25791  24.9855 260.0575 0010891 347.1542  12.8705 14.39857185 86669
+FUSE 1
+1 25791U 99035A   01044.32563210  .00000852  00000-0  21070-3 0  1968
+2 25791  24.9845 267.6885 0010940 335.0275  24.9843 14.39855877 86482
+FUSE 1
+1 25791U 99035A   01043.90976161 +.00000818 +00000-0 +19993-3 0 02047
+2 25791 024.9856 270.2365 0010879 331.1039 028.8868 14.39855093086427
+FUSE 1
+1 25791U 99035A   01043.21664491  .00000820  00000-0  20056-3 0  1955
+2 25791  24.9857 274.4720 0010879 323.9471  36.0302 14.39854225 86327
+FUSE 1
+1 25791U 99035A   01042.93939835 +.00000809 +00000-0 +19728-3 0 02345
+2 25791 024.9860 276.1661 0010879 321.0294 038.9430 14.39853798086288
+FUSE 1
+1 25791U 99035A   01041.89972384  .00000762  00000-0  18265-3 0  1943
+2 25791  24.9864 282.5199 0010886 310.1836  49.7717 14.39852068 86139
+FUSE 1
+1 25791U 99035A   01040.86004627  .00000786  00000-0  18998-3 0  1933
+2 25791  24.9864 288.8712 0010909 298.1189  61.8216 14.39851115 85984
+FUSE 1
+1 25791U 99035A   01039.88968203 +.00000776 +00000-0 +18695-3 0 01946
+2 25791 024.9866 294.8003 0010918 287.8124 072.1191 14.39849851085846
+FUSE 1
+1 25791U 99035A   01039.54312320  .00000778  00000-0  18759-3 0  1923
+2 25791  24.9865 296.9171 0010912 284.1925  75.7371 14.39849453 85798
+FUSE 1
+1 25791U 99035A   01038.91931566 +.00000841 +00000-0 +20715-3 0 01973
+2 25791 024.9853 300.7300 0011058 276.2116 083.7128 14.39849226085707
+FUSE 1
+1 25791U 99035A   01038.36482175  .00000851  00000-0  21041-3 0  1917
+2 25791  24.9852 304.1176 0011034 270.4549  89.4688 14.39848568 85628
+FUSE 1
+1 25791U 99035A   01037.94895133 +.00000854 +00000-0 +21128-3 0 02024
+2 25791 024.9850 306.6578 0011082 266.4454 093.4786 14.39848015085566
+FUSE 1
+1 25791U 99035A   01037.18652191  .00000871  00000-0  21669-3 0  1900
+2 25791  24.9854 311.3163 0011114 258.2637 101.6623 14.39847183 85456
+FUSE 1
+1 25791U 99035A   01035.93891068 +.00000893 +00000-0 +22356-3 0 01974
+2 25791 024.9856 318.9409 0011155 245.1344 114.8003 14.39845662085277
+FUSE 1
+1 25791U 99035A   01035.86959892  .00000895  00000-0  22415-3 0  1895
+2 25791  24.9856 319.3643 0011153 244.4229 115.5125 14.39845576 85260
+FUSE 1
+1 25791U 99035A   01034.96854630 +.00000904 +00000-0 +22698-3 0 02030
+2 25791 024.9856 324.8713 0011214 234.8399 125.1056 14.39844383085139
+FUSE 1
+1 25791U 99035A   01034.48336452  .00000891  00000-0  22284-3 0  1882
+2 25791  24.9853 327.8353 0011183 229.6286 130.3245 14.39843518 85060
+FUSE 1
+1 25791U 99035A   01033.23575272  .00000882  00000-0  22011-3 0  1876
+2 25791  24.9856 335.4581 0011214 216.6240 143.3500 14.39841675 84881
+FUSE 1
+1 25791U 99035A   01031.91882870  .00000844  00000-0  20813-3 0  1869
+2 25791  24.9858 343.5045 0011276 203.2127 156.7872 14.39839469 84699
+FUSE 1
+1 25791U 99035A   01031.91882869 +.00000845 +00000-0 +20836-3 0 01874
+2 25791 024.9858 343.5045 0011276 203.2090 156.7909 14.39839478084699
+FUSE 1
+1 25791U 99035A   01030.94846209 +.00000841 +00000-0 +20712-3 0 01918
+2 25791 024.9858 349.4319 0011289 193.2674 166.7539 14.39838132084559
+FUSE 1
+1 25791U 99035A   01030.46327849  .00000841  00000-0  20740-3 0  1853
+2 25791  24.9859 352.3959 0011304 188.2132 171.8192 14.39837508 84484
+FUSE 1
+1 25791U 99035A   01029.97809487 +.00000835 +00000-0 +20546-3 0 01981
+2 25791 024.9857 355.3599 0011303 183.2284 176.8152 14.39836776084417
+FUSE 1
+1 25791U 99035A   01029.21566280  .00000836  00000-0  20576-3 0  1848
+2 25791  24.9858   0.0180 0011350 175.3074 184.7541 14.39835807 84301
+FUSE 1
+1 25791U 99035A   01028.93841499 +.00000830 +00000-0 +20392-3 0 02294
+2 25791 024.9857 001.7120 0011345 172.4854 187.5833 14.39835361084265
+FUSE 1
+1 25791U 99035A   01027.96804596 +.00000821 +00000-0 +20111-3 0 01864
+2 25791 024.9857 007.6404 0011373 162.4249 197.6654 14.39833987084123
+FUSE 1
+1 25791U 99035A   01026.85905350  .00000774  00000-0  18631-3 0  1828
+2 25791  24.9845  14.4272 0011225 151.2576 208.8553 14.39832070 83960
+FUSE 1
+1 25791U 99035A   01025.95799395 +.00000773 +00000-0 +18616-3 0 01909
+2 25791 024.9845 019.9320 0011218 141.9876 218.1434 14.39830995083837
+FUSE 1
+1 25791U 99035A   01025.47280699  .00000781  00000-0  18854-3 0  1811
+2 25791  24.9846  22.8964 0011235 137.2317 222.9063 14.39830514 83762
+FUSE 1
+1 25791U 99035A   01024.91830785 +.00000785 +00000-0 +18987-3 0 01952
+2 25791 024.9848 026.2846 0011214 131.5244 228.6226 14.39829899083683
+FUSE 1
+1 25791U 99035A   01024.22518426  .00000758  00000-0  18147-3 0  1803
+2 25791  24.9850  30.5196 0011218 123.7953 236.3624 14.39828802 83586
+FUSE 1
+1 25791U 99035A   01022.97755790 +.00000765 +00000-0 +18342-3 0 01805
+2 25791 024.9847 038.1420 0011197 110.9464 249.2242 14.39827391083409
+FUSE 1
+1 25791U 99035A   01022.90824523  .00000765  00000-0  18346-3 0  1791
+2 25791  24.9847  38.5654 0011197 110.2109 249.9602 14.39827310 83397
+FUSE 1
+1 25791U 99035A   01021.93786714 +.00000792 +00000-0 +19214-3 0 01821
+2 25791 024.9847 044.4944 0011176 100.2360 259.9412 14.39826436083253
+FUSE 1
+1 25791U 99035A   01021.52199043  .00000791  00000-0  19188-3 0  1783
+2 25791  24.9847  47.0345 0011184  95.8875 264.2905 14.39825918 83199
+FUSE 1
+1 25791U 99035A   01020.48229781  .00000782  00000-0  18904-3 0  1774
+2 25791  24.9841  53.3876 0011058  84.9507 275.2262 14.39824524 83047
+FUSE 1
+1 25791U 99035A   01019.23466394  .00000810  00000-0  19778-3 0  1769
+2 25791  24.9842  61.0115 0011055  71.9716 288.1993 14.39823278 82863
+FUSE 1
+1 25791U 99035A   01018.81878536 +.00000815 +00000-0 +19923-3 0 02046
+2 25791 024.9840 063.5519 0011051 067.5973 292.5699 14.39822788082809
+FUSE 1
+1 25791U 99035A   01017.84840102  .00000828  00000-0  20329-3 0  1759
+2 25791  24.9838  69.4799 0011044  57.4205 302.7356 14.39821674 82660
+FUSE 1
+1 25791U 99035A   01016.80870221 +.00000844 +00000-0 +20844-3 0 01759
+2 25791 024.9839 075.8311 0011035 046.6049 313.5376 14.39820510082512
+FUSE 1
+1 25791U 99035A   01012.85783892  .00000765  00000-0  18364-3 0  1719
+2 25791  24.9824  99.9904 0011095   5.3964 354.6663 14.39814661 81946
+FUSE 1
+1 25791U 99035A   01011.81813392  .00000754  00000-0  18014-3 0  1702
+2 25791  24.9823 106.3421 0011120 354.5641   5.4745 14.39813318 81795
+FUSE 1
+1 25791U 99035A   01010.84774202 +.00000728 +00000-0 +17200-3 0 01820
+2 25791 024.9826 112.2708 0011146 344.3870 015.6294 14.39811988081659
+FUSE 1
+1 25791U 99035A   01010.57048690  .00000725  00000-0  17100-3 0  1696
+2 25791  24.9825 113.9647 0011158 341.3954  18.6145 14.39811641 81611
+FUSE 1
+1 25791U 99035A   01009.87734870 +.00000732 +00000-0 +17321-3 0 02008
+2 25791 024.9824 118.1992 0011164 334.0178 025.9768 14.39810940081516
+FUSE 1
+1 25791U 99035A   01006.55028272  .00000853  00000-0  21119-3 0  1667
+2 25791  24.9829 138.5275 0011161 298.7980  61.1405 14.39808266 81030
+FUSE 1
+1 25791U 99035A   01005.23331831  .00000949  00000-0  24121-3 0  1650
+2 25791  24.9829 146.5736 0011130 284.7867  75.1402 14.39807380 80842
+FUSE 1
+1 25791U 99035A   01004.95606288 +.00000961 +00000-0 +24508-3 0 01933
+2 25791 024.9830 148.2673 0011129 281.7309 078.1948 14.39807093080804
+FUSE 1
+1 25791U 99035A   01004.12429643  .00001014  00000-0  26161-3 0  1645
+2 25791  24.9831 153.3490 0011081 272.9218  87.0015 14.39806304 80681
+FUSE 1
+1 25791U 99035A   01003.91635493 +.00001024 +00000-0 +26479-3 0 02041
+2 25791 024.9833 154.6194 0011082 270.5710 089.3526 14.39806079080658
+FUSE 1
+1 25791U 99035A   01002.94596086 +.00001080 +00000-0 +28217-3 0 01657
+2 25791 024.9835 160.5480 0011065 260.2028 099.7226 14.39805000080513
+FUSE 1
+1 25791U 99035A   01002.87664699  .00001085  00000-0  28401-3 0  1633
+2 25791  24.9835 160.9715 0011055 259.4691 100.4567 14.39804944 80506
+FUSE 1
+1 25791U 99035A   01001.90625279 +.00001148 +00000-0 +30354-3 0 01851
+2 25791 024.9836 166.9004 0011074 249.1527 110.7793 14.39803819080368
+FUSE 1
+1 25791U 99035A   01001.55968328  .00001172  00000-0  31103-3 0  1622
+2 25791  24.9835 169.0177 0011071 245.6535 114.2814 14.39803412 80316
+FUSE 1
+1 25791U 99035A   00366.24272051  .00001201  00000-0  32013-3 0  1615
+2 25791  24.9835 177.0632 0011054 231.9139 128.0369 14.39801117 80127
+FUSE 1
+1 25791U 99035A   00365.13370179  .00001276  00000-0  34372-3 0  1603
+2 25791  24.9782 183.8601 0011264 220.6704 139.2961 14.39798988 79968
+FUSE 1
+1 25791U 99035A   00363.88605187  .00001279  00000-0  34462-3 0  1594
+2 25791  24.9781 191.4825 0011236 207.4675 152.5240 14.39796242 79788
+FUSE 1
+1 25791U 99035A   00362.91565615 +.00001282 +00000-0 +34567-3 0 01880
+2 25791 024.9781 197.4116 0011250 197.2959 162.7167 14.39794117079649
+FUSE 1
+1 25791U 99035A   00361.52937650  .00001173  00000-0  31161-3 0  1570
+2 25791  24.9788 205.8833 0011253 183.0025 177.0420 14.39790123 79448
+FUSE 1
+1 25791U 99035A   00360.21240650  .00001095  00000-0  28697-3 0  1564
+2 25791  24.9795 213.9300 0011256 169.4207 190.6539 14.39786866 79258
+FUSE 1
+1 25791U 99035A   00358.89543401  .00000997  00000-0  25633-3 0  1551
+2 25791  24.9802 221.9784 0011166 156.0199 204.0842 14.39783673 79063
+FUSE 1
+1 25791U 99035A   00357.57846016  .00000809  00000-0  19747-3 0  1543
+2 25791  24.9811 230.0287 0011220 142.5559 217.5744 14.39779898 78875
+FUSE 1
+1 25791U 99035A   00356.33079409  .00000742  00000-0  17656-3 0  1532
+2 25791  24.9815 237.6510 0011207 129.3758 230.7742 14.39777765 78696
+FUSE 1
+1 25791U 99035A   00355.91490500 +.00000715 +00000-0 +16811-3 0 01738
+2 25791 024.9818 240.1930 0011125 125.1559 234.9994 14.39777043078634
+FUSE 1
+1 25791U 99035A   00355.22175552  .00000689  00000-0  15980-3 0  1522
+2 25791  24.9818 244.4279 0011116 117.9072 242.2571 14.39776049 78533
+FUSE 1
+1 25791U 99035A   00354.94449551 +.00000671 +00000-0 +15421-3 0 01715
+2 25791 024.9820 246.1228 0011092 115.1399 245.0262 14.39775609078498
+FUSE 1
+1 25791U 99035A   00354.18203097  .00000667  00000-0  15302-3 0  1515
+2 25791  24.9821 250.7805 0011090 107.2769 252.9059 14.39774846 78383
+FUSE 1
+1 25791U 99035A   00353.14230184  .00000588  00000-0  12827-3 0  1507
+2 25791  24.9841 257.1312 0011153  94.7945 265.3836 14.39773357 78236
+FUSE 1
+1 25791U 99035A   00351.89462457  .00000618  00000-0  13768-3 0  1494
+2 25791  24.9843 264.7546 0011143  81.4463 278.7305 14.39772637 78057
+FUSE 1
+1 25791U 99035A   00350.57762798  .00000713  00000-0  16757-3 0  1485
+2 25791  24.9838 272.8003 0011117  67.5108 292.6555 14.39772305 77863
+FUSE 1
+1 25791U 99035A   00349.95378601 +.00000801 +00000-0 +19521-3 0 01751
+2 25791 024.9839 276.6107 0011037 061.1524 299.0082 14.39772533077773
+FUSE 1
+1 25791U 99035A   00348.91404926 +.00000938 +00000-0 +23822-3 0 01543
+2 25791 024.9841 282.9613 0011060 050.5076 309.6402 14.39772572077629
+FUSE 1
+1 25791U 99035A   00348.22089271  .00000955  00000-0  24346-3 0  1472
+2 25791  24.9841 287.1948 0011058  43.2638 316.8736 14.39771669 77522
+FUSE 1
+1 25791U 99035A   00347.94362883 +.00001009 +00000-0 +26044-3 0 01831
+2 25791 024.9842 288.8885 0011102 040.6503 319.4819 14.39771783077486
+FUSE 1
+1 25791U 99035A   00344.20056550  .00001466  00000-0  40388-3 0  1450
+2 25791  24.9857 311.7525 0010921   1.7998 358.2548 14.39768887 76944
+FUSE 1
+1 25791U 99035A   00342.95287422 +.00001623 +00000-0 +45287-3 0 02453
+2 25791 024.9861 319.3741 0010868 348.9036 011.1207 14.39767344076766
+FUSE 1
+1 25791U 99035A   00341.91313263 +.00001697 +00000-0 +47635-3 0 02169
+2 25791 024.9862 325.7251 0010827 338.0727 021.9314 14.39765205076612
+FUSE 1
+1 25791U 99035A   00340.80407309 +.00001773 +00000-0 +50001-3 0 01795
+2 25791 024.9865 332.4995 0010780 326.3093 033.6722 14.39762765076452
+FUSE 1
+1 25791U 99035A   00339.97228129 +.00001440 +00000-0 +39551-3 0 01453
+2 25791 024.9788 337.5913 0010715 317.2047 042.7636 14.39758312076333
+FUSE 1
+1 25791U 99035A   00339.90296490  .00001431  00000-0  39277-3 0  1446
+2 25791  24.9788 338.0153 0010711 316.5102  43.4556 14.39758072 76326
+FUSE 1
+1 25791U 99035A   00338.93253567 +.00001650 +00000-0 +46156-3 0 01892
+2 25791 024.9780 343.9450 0010727 305.4403 054.5107 14.39756594076187
+FUSE 1
+1 25791U 99035A   00337.89278976 +.00002012 +00000-0 +57514-3 0 01474
+2 25791 024.9771 350.3001 0010560 294.2116 065.7285 14.39754923076031
+FUSE 1
+1 25791U 99035A   00337.54620726  .00002120  00000-0  60886-3 0  1432
+2 25791  24.9769 352.4170 0010591 290.1130  69.8236 14.39754084 75985
+FUSE 1
+1 25791U 99035A   00336.78372846 +.00002078 +00000-0 +59583-3 0 02103
+2 25791 024.9767 357.0797 0010598 283.2388 076.6938 14.39750755075878
+FUSE 1
+1 25791U 99035A   00335.81329748 +.00001963 +00000-0 +55983-3 0 01784
+2 25791 024.9768 003.0088 0010682 272.4500 087.4788 14.39746543075738
+FUSE 1
+1 25791U 99035A   00332.55541084  .00001441  00000-0  39598-3 0  1416
+2 25791  24.9789  22.9137 0010823 238.8335 121.1112 14.39732709 75269
+FUSE 1
+1 25791U 99035A   00329.50545449  .00001099  00000-0  28863-3 0  1407
+2 25791  24.9807  41.5484 0010919 206.6216 153.3741 14.39723397 74828
+FUSE 1
+1 25791U 99035A   00326.80207218  .00000755  00000-0  18065-3 0  1395
+2 25791  24.9826  58.0674 0010967 178.4838 181.5705 14.39716699 74439
+FUSE 1
+1 25791U 99035A   00325.90094187 +.00000678 +00000-0 +15666-3 0 02663
+2 25791 024.9830 063.5734 0010889 169.1263 190.9481 14.39715100074301
+FUSE 1
+1 25791U 99035A   00324.86117451 +.00000608 +00000-0 +13450-3 0 02311
+2 25791 024.9833 069.9269 0010882 158.3926 201.7040 14.39713575074155
+FUSE 1
+1 25791U 99035A   00323.96004177 +.00000488 +00000-0 +96967-4 0 01894
+2 25791 024.9842 075.4361 0010837 150.2956 209.8168 14.39712104074027
+FUSE 1
+1 25791U 99035A   00322.92027010 +.00000542 +00000-0 +11394-3 0 01510
+2 25791 024.9842 081.7899 0010800 140.3373 219.7924 14.39711850073875
+FUSE 1
+1 25791U 99035A   00322.57367987  .00000544  00000-0  11471-3 0  1384
+2 25791  24.9842  83.9087 0010770 137.0085 223.1269 14.39711602 73828
+FUSE 1
+1 25791U 99035A   00321.88049734 +.00000639 +00000-0 +14444-3 0 02068
+2 25791 024.9838 088.1431 0010747 130.4414 229.7025 14.39711664073729
+FUSE 1
+1 25791U 99035A   00319.45435949  .00001051  00000-0  27399-3 0  1370
+2 25791  24.9822 102.9641 0011109 102.6166 257.5577 14.39710812 73374
+FUSE 1
+1 25791U 99035A   00318.83049407 +.00001135 +00000-0 +30023-3 0 02126
+2 25791 024.9820 106.7751 0011100 096.2751 263.9015 14.39710072073281
+FUSE 1
+1 25791U 99035A   00317.92935383 +.00001328 +00000-0 +36094-3 0 01927
+2 25791 024.9815 112.2808 0011081 086.9676 273.2095 14.39708951073151
+FUSE 1
+1 25791U 99035A   00316.95889405 +.00001476 +00000-0 +40722-3 0 01547
+2 25791 024.9811 118.2117 0011162 076.8388 283.3367 14.39707302073012
+FUSE 1
+1 25791U 99035A   00316.54298192  .00001536  00000-0  42622-3 0  1367
+2 25791  24.9808 120.7548 0011167  72.5609 287.6119 14.39706598 72958
+FUSE 1
+1 25791U 99035A   00312.17588299  .00001526  00000-0  42309-3 0  1352
+2 25791  24.9810 147.4346 0011047  26.6311 333.4765 14.39694429 72327
+FUSE 1
+1 25791U 99035A   00311.89860506 +.00001531 +00000-0 +42464-3 0 02432
+2 25791 024.9811 149.1285 0011021 023.7582 336.3433 14.39693742072285
+FUSE 1
+1 25791U 99035A   00310.92813172 +.00001533 +00000-0 +42529-3 0 02234
+2 25791 024.9811 155.0570 0011011 013.6669 346.4135 14.39691108072141
+FUSE 1
+1 25791U 99035A   00309.95765612 +.00001545 +00000-0 +42918-3 0 01953
+2 25791 024.9811 160.9853 0010987 003.5007 356.5574 14.39688573072001
+FUSE 1
+1 25791U 99035A   00308.91785913 +.00001558 +00000-0 +43320-3 0 01631
+2 25791 024.9811 167.3377 0010936 352.6420 007.3927 14.39685825071856
+FUSE 1
+1 25791U 99035A   00307.94738084  .00001523  00000-0  42238-3 0  1347
+2 25791  24.9813 173.2666 0010902 342.2944  17.7187 14.39682876 71715
+FUSE 1
+1 25791U 99035A   00306.90758062 +.00001494 +00000-0 +41322-3 0 02161
+2 25791 024.9816 179.6189 0010843 331.2370 028.7545 14.39679852071566
+FUSE 1
+1 25791U 99035A   00305.93709941 +.00001422 +00000-0 +39070-3 0 01847
+2 25791 024.9820 185.5476 0010836 320.8016 039.1721 14.39676778071420
+FUSE 1
+1 25791U 99035A   00304.96661633 +.00001342 +00000-0 +36540-3 0 01518
+2 25791 024.9825 191.4771 0010878 310.3487 049.6069 14.39673761071285
+FUSE 1
+1 25791U 99035A   00304.48137472  .00001294  00000-0  35039-3 0  1332
+2 25791  24.9827 194.4415 0010840 305.2721  54.6774 14.39672228 71217
+FUSE 1
+1 25791U 99035A   00300.94603167 +.00001128 +00000-0 +29826-3 0 01487
+2 25791 024.9836 216.0428 0010846 267.5163 092.4104 14.39663463070709
+FUSE 1
+1 25791U 99035A   00300.32214586  .00001125  00000-0  29742-3 0  1329
+2 25791  24.9837 219.8536 0010864 260.8686  99.0595 14.39662271 70610
+FUSE 1
+1 25791U 99035A   00299.97554307 +.00001099 +00000-0 +28908-3 0 02622
+2 25791 024.9840 221.9723 0010883 257.3195 102.6096 14.39661414070562
+FUSE 1
+1 25791U 99035A   00298.93573357 +.00001095 +00000-0 +28804-3 0 02219
+2 25791 024.9842 228.3263 0010808 246.2256 113.7131 14.39659498070412
+FUSE 1
+1 25791U 99035A   00297.96524296 +.00001101 +00000-0 +28980-3 0 01840
+2 25791 024.9843 234.2549 0010819 235.8887 124.0592 14.39657800070277
+FUSE 1
+1 25791U 99035A   00296.92543051 +.00001198 +00000-0 +32020-3 0 01469
+2 25791 024.9839 240.6071 0010755 225.0055 134.9574 14.39656593070122
+FUSE 1
+1 25791U 99035A   00296.23222249  .00001231  00000-0  33056-3 0  1318
+2 25791  24.9837 244.8414 0010747 217.7619 142.2134 14.39655396 70025
+FUSE 1
+1 25791U 99035A   00295.95493830 +.00001341 +00000-0 +36537-3 0 02570
+2 25791 024.9831 246.5364 0010694 214.7072 145.2732 14.39655631069985
+FUSE 1
+1 25791U 99035A   00294.98444509 +.00001216 +00000-0 +32610-3 0 02121
+2 25791 024.9831 252.4518 0011171 205.6776 154.3176 14.39652293069842
+FUSE 1                    
+1 25791U 99035A   00292.97413670  .00001233  00000-0  33120-3 0  1465
+2 25791  24.9832 264.7305 0011154 184.3003 175.7409 14.39648196 69551
+FUSE 1
+1 25791U 99035A   00292.21160463  .00001227  00000-0  32957-3 0  1304
+2 25791  24.9833 269.3878 0011141 176.2888 183.7705 14.39646543 69445
+FUSE 1
+1 25791U 99035A   00290.96382404  .00001125  00000-0  29744-3 0  2033
+2 25791  24.9839 277.0093 0011248 162.9629 197.1281 14.39643362 69263
+FUSE 1
+1 25791U 99035A   00289.92400452  .00001005  00000-0  25962-3 0  1697
+2 25791  24.9842 283.3623 0011271 152.1446 207.9673 14.39640561 69117
+FUSE 1
+1 25791U 99035A   00288.88418235  .00000939  00000-0  23889-3 0  1296
+2 25791  24.9839 289.7161 0011345 141.9406 218.1903 14.39638291 68963
+FUSE 1
+1 25791U 99035A   00286.94317390  .00000937  00000-0  23849-3 0  2050
+2 25791  24.9842 301.5720 0011377 121.8967 238.2636 14.39635355 68688
+FUSE 1
+1 25791U 99035A   00284.93283722  .00000946  00000-0  24124-3 0  1290
+2 25791  24.9844 313.8517 0011349 101.4953 258.6830 14.39632282 68394
+FUSE 1
+1 25791U 99035A   00283.82368229  .00001113  00000-0  29370-3 0  2356
+2 25791  24.9845 320.6276 0011360  90.5778 269.6031 14.39631230 68239
+FUSE 1
+1 25791U 99035A   00281.18943126  .00001671  00000-0  46933-3 0  1271
+2 25791  24.9838 336.7203 0011242  63.6820 296.4846 14.39626315 67854
+FUSE 1
+1 25791U 99035A   00279.87230155  .00001498  00000-0  41495-3 0  1843
+2 25791  24.9836 344.7657 0011284  49.9927 310.1569 14.39621506 67667
+FUSE 1
+1 25791U 99035A   00278.13922732  .00001349  00000-0  36829-3 0  1266
+2 25791  24.9841 355.3497 0011217  31.6026 328.5162 14.39615977 67417
+FUSE 1
+1 25791U 99035A   00275.92088045 +.00001249 +00000-0 +33679-3 0 02260
+2 25791 024.9846 008.8984 0011149 008.1796 351.8898 14.39610187067097
+FUSE 1
+1 25791U 99035A   00274.88102724 +.00001183 +00000-0 +31605-3 0 01932
+2 25791 024.9847 015.2496 0011092 357.4607 002.5840 14.39607485066943
+FUSE 1
+1 25791U 99035A   00273.91049603 +.00001143 +00000-0 +30335-3 0 01587
+2 25791 024.9849 021.1778 0011061 347.4078 012.6154 14.39605252066806
+FUSE 1
+1 25791U 99035A   00272.87063947  .00001058  00000-0  27682-3 0  1258
+2 25791  24.9850  27.5285 0010951 336.1587  23.8412 14.39602697 66652
+FUSE 1
+1 25791U 99035A   00271.90010587 +.00000952 +00000-0 +24332-3 0 02019
+2 25791 024.9849 033.4553 0010904 326.2752 033.7061 14.39600291066519
+FUSE 1
+1 25791U 99035A   00270.86024700 +.00000806 +00000-0 +19727-3 0 01755
+2 25791 024.9848 039.8050 0010873 315.4400 044.5233 14.39597817066368
+FUSE 1
+1 25791U 99035A   00269.95903493 +.00000698 +00000-0 +16343-3 0 01422
+2 25791 024.9847 045.3098 0010847 305.7600 054.1897 14.39596109066238
+FUSE 1
+1 25791U 99035A   00269.19647060  .00000662  00000-0  15206-3 0  1241
+2 25791  24.9847  49.9681 0010790 297.8206  62.1208 14.39595085 66121
+FUSE 1
+1 25791U 99035A   00265.93823791 +.00000839 +00000-0 +20769-3 0 01602
+2 25791 024.9853 069.8642 0010925 262.8653 097.0612 14.39592139065654
+FUSE 1
+1 25791U 99035A   00264.89837713  .00000866  00000-0  21632-3 0  1234
+2 25791  24.9853  76.2157 0010914 251.7893 108.1424 14.39590766 65501
+FUSE 1
+1 25791U 99035A   00263.85851584 +.00000759 +00000-0 +18267-3 0 02468
+2 25791 024.9844 082.5656 0011036 240.7792 119.1611 14.39588783065356
+FUSE 1
+1 25791U 99035A   00262.95730211 +.00000987 +00000-0 +25418-3 0 02190
+2 25791 024.9843 088.0698 0011108 231.2492 128.7025 14.39588229065220
+FUSE 1
+1 25791U 99035A   00261.91744362 +.00000854 +00000-0 +21237-3 0 01903
+2 25791 024.9840 094.4417 0011199 219.5461 140.4230 14.39586929065079
+FUSE 1
+1 25791U 99035A   00260.94690555 +.00000874 +00000-0 +21887-3 0 01496
+2 25791 024.9839 100.3694 0011196 209.3232 150.6648 14.39585857064930
+FUSE 1
+1 25791U 99035A   00260.60028428  .00000895  00000-0  22526-3 0  1228
+2 25791  24.9838 102.4866 0011182 205.8154 154.1794 14.39585645 64882
+FUSE 1
+1 25791U 99035A   00257.89664249 +.00000980 +00000-0 +25207-3 0 01574
+2 25791 024.9797 119.0147 0011228 178.5341 181.5202 14.39582285064499
+FUSE 1
+1 25791U 99035A   00256.92610205 +.00001007 +00000-0 +26048-3 0 01317
+2 25791 024.9796 124.9428 0011260 168.6067 191.4699 14.39580956064354
+FUSE 1
+1 25791U 99035A   00256.57948045  .00001009  00000-0  26113-3 0  1218
+2 25791  24.9796 127.0600 0011258 164.9452 195.1394 14.39580392 64306
+FUSE 1
+1 25791U 99035A   00255.95556083 +.00001022 +00000-0 +26540-3 0 02272
+2 25791 024.9796 130.8705 0011304 158.5484 201.5503 14.39579482064212
+FUSE 1
+1 25791U 99035A   00254.91569423 +.00001012 +00000-0 +26236-3 0 01998
+2 25791 024.9795 137.2214 0011318 147.7697 212.3506 14.39577628064064
+FUSE 1
+1 25791U 99035A   00253.94515052 +.00000993 +00000-0 +25614-3 0 01704
+2 25791 024.9796 143.1491 0011353 137.8454 222.2931 14.39575858063927
+FUSE 1
+1 25791U 99035A   00252.90528132 +.00000931 +00000-0 +23692-3 0 01337
+2 25791 024.9802 149.5025 0011353 127.3223 232.8322 14.39573664063773
+FUSE 1
+1 25791U 99035A   00252.21203297  .00000929  00000-0  23624-3 0  1201
+2 25791  24.9802 153.7367 0011354 120.2792 239.8836 14.39572606 63674
+FUSE 1
+1 25791U 99035A   00250.96418540 +.00000820 +00000-0 +20171-3 0 02317
+2 25791 024.9813 161.3571 0011231 106.6703 253.5039 14.39569924063499
+FUSE 1
+1 25791U 99035A   00249.92430983 +.00000751 +00000-0 +18005-3 0 01973
+2 25791 024.9819 167.7098 0011202 095.9335 264.2451 14.39568010063344
+FUSE 1
+1 25791U 99035A   00248.95375648 +.00000728 +00000-0 +17305-3 0 01641
+2 25791 024.9822 173.6380 0011200 085.7277 274.4508 14.39566715063209
+FUSE 1
+1 25791U 99035A   00247.98320188 +.00000685 +00000-0 +15936-3 0 01204
+2 25791 024.9827 179.5664 0011177 075.4057 284.7689 14.39565289063062
+FUSE 1
+1 25791U 99035A   00247.91387641  .00000685  00000-0  15938-3 0  1194
+2 25791  24.9827 179.9897 0011176  74.6798 285.4945 14.39565219 63051
+FUSE 1
+1 25791U 99035A   00243.89298918 +.00000627 +00000-0 +14121-3 0 01217
+2 25791 024.9838 204.5495 0011279 032.6718 327.4493 14.39560964062474
+FUSE 1
+1 25791U 99035A   00243.54635985  .00000620  00000-0  13900-3 0  1181
+2 25791  24.9838 206.6661 0011299  29.0913 331.0222 14.39560578 62428
+FUSE 1
+1 25791U 99035A   00242.92242652 +.00000636 +00000-0 +14397-3 0 02524
+2 25791 024.9839 210.4766 0011308 022.5635 337.5375 14.39560193062331
+FUSE 1
+1 25791U 99035A   00241.95186248 +.00000663 +00000-0 +15237-3 0 02180
+2 25791 024.9839 216.4045 0011240 012.3907 347.6875 14.39559570062199
+FUSE 1
+1 25791U 99035A   00241.11995000 +.00000705 +00000-0 +16585-3 0 01905
+2 25791 024.9843 221.4849 0011230 004.1902 355.8697 14.39559225062072
+FUSE 1
+1 25791U 99035A   00240.14938556 +.00000715 +00000-0 +16878-3 0 01535
+2 25791 024.9843 227.4129 0011265 353.6646 006.3718 14.39558267061935
+FUSE 1
+1 25791U 99035A   00239.24814579  .00000768  00000-0  18562-3 0  1172
+2 25791  24.9851 232.9197 0011057 343.6898  16.3253 14.39557918 61800
+FUSE 1
+1 25791U 99035A   00237.16836108 +.00000937 +00000-0 +23867-3 0 01265
+2 25791 024.9852 245.6242 0010930 321.1150 038.8565 14.39556840061509
+FUSE 1
+1 25791U 99035A   00236.47509969  .00000981  00000-0  25253-3 0  1169
+2 25791  24.9852 249.8576 0010910 313.5211  46.4389 14.39556202 61406
+FUSE 1
+1 25791U 99035A   00236.12846894 +.00001006 +00000-0 +26041-3 0 02540
+2 25791 024.9853 251.9740 0010908 310.0331 049.9215 14.39555895061353
+FUSE 1
+1 25791U 99035A   00234.18733724 +.00001106 +00000-0 +29194-3 0 01914
+2 25791 024.9856 263.8291 0010929 289.3257 070.6065 14.39553537061071
+FUSE 1
+1 25791U 99035A   00233.97935917 +.00001108 +00000-0 +29254-3 0 01827
+2 25791 024.9855 265.0992 0010925 287.2111 072.7202 14.39553153061041
+FUSE 1
+1 25791U 99035A   00232.93946679 +.00001150 +00000-0 +30606-3 0 01414
+2 25791 024.9859 271.4505 0010949 275.8605 084.0653 14.39551685060899
+FUSE 1
+1 25791U 99035A   00232.24620540  .00001162  00000-0  30984-3 0  1157
+2 25791  24.9861 275.6842 0010947 268.2547  91.6703 14.39550498 60791
+FUSE 1
+1 25791U 99035A   00230.85968265 +.00001168 +00000-0 +31152-3 0 01841
+2 25791 024.9861 284.1498 0010908 253.3956 106.5351 14.39547810060596
+FUSE 1
+1 25791U 99035A   00229.88911656 +.00001173 +00000-0 +31324-3 0 01650
+2 25791 024.9862 290.0753 0010918 243.1432 116.7994 14.39545953060451
+FUSE 1
+1 25791U 99035A   00228.84922713 +.00001681 +00000-0 +47341-3 0 01392
+2 25791 024.9833 296.4467 0010541 233.3366 126.6176 14.39544754060304
+FUSE 1
+1 25791U 99035A   00228.22529183  .00001437  00000-0  39642-3 0  1145
+2 25791  24.9839 300.2597 0010660 226.7882 133.1742 14.39542247 60216
+FUSE 1
+1 25791U 99035A   00227.87866114 +.00001204 +00000-0 +32286-3 0 01748
+2 25791 024.9843 302.3743 0010672 222.4107 137.5583 14.39540549060161
+FUSE 1
+1 25791U 99035A   00226.90809209 +.00001066 +00000-0 +27935-3 0 01531
+2 25791 024.9844 308.3015 0010818 212.0864 147.8990 14.39538035060025
+FUSE 1
+1 25791U 99035A   00225.86819636 +.00000875 +00000-0 +21927-3 0 01240
+2 25791 024.9839 314.6498 0010966 200.7238 159.2827 14.39535222059879
+FUSE 1
+1 25791U 99035A   00225.59089041  .00000839  00000-0  20809-3 0  1135
+2 25791  24.9841 316.3434 0010990 198.0059 162.0059 14.39534638 59833
+FUSE 1
+1 25791U 99035A   00222.88715209 +.00000729 +00000-0 +17338-3 0 01575
+2 25791 024.9839 332.8560 0011113 170.5138 189.5580 14.39530485059440
+FUSE 1
+1 25791U 99035A   00221.91657699 +.00000732 +00000-0 +17430-3 0 01315
+2 25791 024.9840 338.7844 0011141 160.6691 199.4239 14.39529454059307
+FUSE 1
+1 25791U 99035A   00221.15398144  .00000741  00000-0  17714-3 0  1122
+2 25791  24.9839 343.4418 0011158 152.7937 207.3154 14.39528689 59199
+FUSE 1
+1 25791U 99035A   00219.90609556 +.00000787 +00000-0 +19148-3 0 01712
+2 25791 024.9839 351.0626 0011186 140.1583 219.9740 14.39527697059013
+FUSE 1
+1 25791U 99035A   00218.93551634 +.00000842 +00000-0 +20903-3 0 01383
+2 25791 024.9842 356.9905 0011221 130.2195 229.9294 14.39527076058879
+FUSE 1
+1 25791U 99035A   00218.24224392  .00000911  00000-0  23076-3 0  1117
+2 25791  24.9837   1.2239 0011126 122.7808 237.3779 14.39526803 58771
+FUSE 1
+1 25791U 99035A   00216.92502528 +.00000994 +00000-0 +25698-3 0 01359
+2 25791 024.9840 009.2668 0011090 109.2022 250.9670 14.39525666058583
+FUSE 1
+1 25791U 99035A   00215.95444232 +.00001073 +00000-0 +28173-3 0 01224
+2 25791 024.9846 015.1947 0011165 099.5630 260.6137 14.39524901058446
+FUSE 1
+1 25791U 99035A   00215.19184019  .00001121  00000-0  29713-3 0  1106
+2 25791  24.9845  19.8506 0011155  91.5631 268.6149 14.39524011 58330
+FUSE 1
+1 25791U 99035A   00213.87461582 +.00001234 +00000-0 +33255-3 0 01563
+2 25791 024.9851 027.8945 0011173 078.5475 281.6282 14.39522670058145
+FUSE 1
+1 25791U 99035A   00212.90402845 +.00001276 +00000-0 +34584-3 0 01363
+2 25791 024.9853 033.8211 0011136 068.8066 291.3628 14.39521095058004
+FUSE 1
+1 25791U 99035A   00212.14142266  .00001313  00000-0  35764-3 0  1090
+2 25791  24.9850  38.4778 0011130  60.7162 299.4447 14.39519790 57895
+FUSE 1
+1 25791U 99035A   00209.92292793 +.00001396 +00000-0 +38383-3 0 01533
+2 25791 024.9849 052.0258 0011073 037.5021 322.6251 14.39515598057579
+FUSE 1
+1 25791U 99035A   00208.95233548 +.00001473 +00000-0 +40802-3 0 01252
+2 25791 024.9837 057.9580 0011424 026.9665 333.1435 14.39514058057430
+FUSE 1
+1 25791U 99035A   00208.18972549  .00001576  00000-0  44071-3 0  1085
+2 25791  24.9833  62.6176 0011472  18.7210 341.3716 14.39512347 57328
+FUSE 1
+1 25791U 99035A   00206.94181514 +.00001511 +00000-0 +42008-3 0 01921
+2 25791 024.9854 070.2405 0011038 006.6126 353.4533 14.39509278057141
+FUSE 1
+1 25791U 99035A   00205.97121710 +.00001487 +00000-0 +41266-3 0 01685
+2 25791 024.9852 076.1701 0011017 356.2364 003.8067 14.39506509057005
+FUSE 1
+1 25791U 99035A   00204.93128816 +.00001476 +00000-0 +40903-3 0 01386
+2 25791 024.9852 082.5219 0010972 345.2641 014.7546 14.39503741056855
+FUSE 1
+1 25791U 99035A   00203.96068597 +.00001638 +00000-0 +46010-3 0 01113
+2 25791 024.9851 088.4485 0010910 335.3315 024.6669 14.39501677056711
+FUSE 1
+1 25791U 99035A   00203.89135786  .00001602  00000-0  44873-3 0  1071
+2 25791  24.9852  88.8720 0010897 334.6954  25.3042 14.39501366 56700
+FUSE 1
+1 25791U 99035A   00201.95014789 +.00001572 +00000-0 +43936-3 0 01799
+2 25791 024.9852 100.7256 0010918 312.2678 047.6911 14.39496898056421
+FUSE 1
+1 25791U 99035A   00200.97954187 +.00001738 +00000-0 +49182-3 0 01451
+2 25791 024.9852 106.6535 0010962 301.6227 058.3210 14.39494751056288
+FUSE 1
+1 25791U 99035A   00199.93960649 +.00001805 +00000-0 +51300-3 0 01117
+2 25791 024.9853 113.0050 0010969 290.2578 069.6750 14.39491667056133
+FUSE 1
+1 25791U 99035A   00199.87027750  .00001803  00000-0  51229-3 0  1069
+2 25791  24.9852 113.4283 0010971 289.5399  70.3926 14.39491421 56120
+FUSE 1
+1 25791U 99035A   00198.96900068 +.00001318 +00000-0 +35923-3 0 01266
+2 25791 024.9850 118.9330 0011332 279.9281 079.9947 14.39486512055993
+FUSE 1
+1 25791U 99035A   00198.20638092  .00001053  00000-0  27558-3 0  1056
+2 25791  24.9852 123.5922 0011255 271.8947  88.0275 14.39483842 55884
+FUSE 1
+1 25791U 99035A   00195.91851583  .00000689  00000-0  16100-3 0  1047
+2 25791  24.9847 137.5630 0011254 247.8427 112.0894 14.39478555 55558
+FUSE 1
+1 25791U 99035A   00194.94790513 +.00000622 +00000-0 +13965-3 0 02217
+2 25791 024.9845 143.4897 0011244 237.8927 122.0496 14.39476756055415
+FUSE 1
+1 25791U 99035A   00193.97729403 +.00000584 +00000-0 +12775-3 0 01820
+2 25791 024.9847 149.4236 0011293 228.1708 131.7837 14.39475391055278
+FUSE 1
+1 25791U 99035A   00192.93735201 +.00000550 +00000-0 +11684-3 0 01414
+2 25791 024.9846 155.7737 0011308 217.3578 142.6152 14.39474212055121
+FUSE 1
+1 25791U 99035A   00191.96673850 +.00000542 +00000-0 +11437-3 0 01065
+2 25791 024.9844 161.7002 0011295 207.2529 152.7388 14.39473399054981
+FUSE 1
+1 25791U 99035A   00191.89740911  .00000540  00000-0  11391-3 0  1034
+2 25791  24.9843 162.1235 0011294 206.5071 153.4866 14.39473330 54979
+FUSE 1
+1 25791U 99035A   00188.91623713 +.00000545 +00000-0 +11536-3 0 01387
+2 25791 024.9846 180.3280 0011401 175.5058 184.5555 14.39471262054549
+FUSE 1
+1 25791U 99035A   00187.94562172 +.00000562 +00000-0 +12095-3 0 01032
+2 25791 024.9848 186.2545 0011434 165.3569 194.7270 14.39470796054403
+FUSE 1
+1 25791U 99035A   00187.87629207  .00000562  00000-0  12095-3 0  1026
+2 25791  24.9848 186.6777 0011434 164.6313 195.4544 14.39470742 54394
+FUSE 1
+1 25791U 99035A   00183.57784536  .00000667  00000-0  15416-3 0  1011
+2 25791  24.9855 212.9320 0011413 120.5817 239.5821 14.39468389 53779
+FUSE 1
+1 25791U 99035A   00181.91392783 +.00000671 +00000-0 +15546-3 0 01789
+2 25791 024.9854 223.1058 0011337 102.1276 258.0499 14.39467140053535
+FUSE 1
+1 25791U 99035A   00180.87397553 +.00000700 +00000-0 +16442-3 0 01445
+2 25791 024.9852 229.4559 0011322 091.4012 268.7791 14.39466353053381
+FUSE 1
+1 25791U 99035A   00179.97268238 +.00000726 +00000-0 +17280-3 0 01057
+2 25791 024.9855 234.9604 0011315 082.3086 277.8702 14.39465677053255
+FUSE 1
+1 25791U 99035A   00179.55670036  .00000742  00000-0  17762-3 0  1002
+2 25791  24.9855 237.5004 0011277  78.2476 281.9296 14.39465389 53199
+FUSE 1
+1 25791U 99035A   00178.86339700 +.00000752 +00000-0 +18089-3 0 02381
+2 25791 024.9856 241.7337 0011290 070.9195 289.2531 14.39464704053090
+FUSE 1
+1 25791U 99035A   00177.89277115 +.00000766 +00000-0 +18548-3 0 02031
+2 25791 024.9859 247.6607 0011289 060.8540 299.3095 14.39463739052956
+FUSE 1
+1 25791U 99035A   00176.92214342 +.00000800 +00000-0 +19601-3 0 01665
+2 25791 024.9859 253.5881 0011190 051.0927 309.0575 14.39462915052810
+FUSE 1
+1 25791U 99035A   00175.88218431 +.00000816 +00000-0 +20117-3 0 01315
+2 25791 024.9862 259.9387 0011137 040.3293 319.8037 14.39461801052661
+FUSE 1
+1 25791U 99035A   00175.25820859  .00000821  00000-0  20275-3 0   993
+2 25791  24.9863 263.7490 0011148  33.8548 326.2678 14.39461054 52575
+FUSE 1
+1 25791U 99035A   00173.87159264 +.00000872 +00000-0 +21895-3 0 01978
+2 25791 024.9863 272.2156 0011038 020.3739 339.7205 14.39459774052379
+FUSE 1
+1 25791U 99035A   00172.90096122 +.00000862 +00000-0 +21562-3 0 01592
+2 25791 024.9869 278.1422 0011016 010.0480 350.0243 14.39458368052232
+FUSE 1
+1 25791U 99035A   00171.93032817 +.00000868 +00000-0 +21744-3 0 01290
+2 25791 024.9870 284.0679 0010950 359.6225 000.4272 14.39457116052091
+FUSE 1
+1 25791U 99035A   00170.95969467 +.00000873 +00000-0 +21901-3 0 01001
+2 25791 024.9872 289.9957 0010930 349.1807 010.8463 14.39455848051955
+FUSE 1
+1 25791U 99035A   00170.89036360  .00000875  00000-0  21983-3 0   989
+2 25791  24.9872 290.4190 0010916 348.4366  11.5890 14.39455786 51949
+FUSE 1
+1 25791U 99035A   00167.83979740 +.00000834 +00000-0 +20689-3 0 01244
+2 25791 024.9865 309.0441 0011049 315.9144 044.0481 14.39451106051509
+FUSE 1
+1 25791U 99035A   00166.93849291 +.00000817 +00000-0 +20146-3 0 00991
+2 25791 024.9866 314.5466 0011043 306.5008 053.4481 14.39449711051375
+FUSE 1
+1 25791U 99035A   00166.86916175  .00000816  00000-0  20127-3 0   975
+2 25791  24.9867 314.9701 0011045 305.7696  54.1782 14.39449617 51364
+FUSE 1
+1 25791U 99035A   00165.89852612 +.00001393 +00000-0 +38331-3 0 01420
+2 25791 024.9880 320.9003 0010529 293.0245 066.9309 14.39451820051226
+FUSE 1
+1 25791U 99035A   00164.92788963 +.00001058 +00000-0 +27751-3 0 01130
+2 25791 024.9900 326.8234 0010700 286.6900 073.2425 14.39448463051080
+FUSE 1
+1 25791U 99035A   00164.58123317  .00001414  00000-0  39006-3 0   960
+2 25791  24.9895 328.9405 0010608 283.0060  76.9260 14.39449353 51032
+FUSE 1
+1 25791U 99035A   00163.88792360 +.00001009 +00000-0 +26201-3 0 01988
+2 25791 024.9902 333.1737 0010422 276.0922 083.8398 14.39446429050938
+FUSE 1
+1 25791U 99035A   00162.91728936 +.00000838 +00000-0 +20810-3 0 01731
+2 25791 024.9924 339.1014 0009907 267.6684 092.2688 14.39444419050790
+FUSE                    
+1 25791U 99035A   00160.90668101  .00000585  00000-0  12820-3 0  1084
+2 25791  24.9857 351.3806 0010965 243.0464 116.8920 14.39441160 50501
+FUSE                    
+1 25791U 99035A   00159.93604429  .00000520  00000-0  10769-3 0  2088
+2 25791  24.9857 357.3078 0010932 232.6720 127.2791 14.39439999 50364
+FUSE                    
+1 25791U 99035A   00158.89607500  .00000535  00000-0  11232-3 0  1828
+2 25791  24.9859   3.6563 0011010 221.7464 138.2204 14.39439406 50216
+FUSE                    
+1 25791U 99035A   00157.92543755  .00000593  00000-0  13055-3 0  1551
+2 25791  24.9862   9.5835 0010973 212.1855 147.7986 14.39438945 50075
+FUSE                    
+1 25791U 99035A   00156.95479994  .00000684  00000-0  15953-3 0  1220
+2 25791  24.9855  15.5108 0010936 202.2301 157.7734 14.39438339 49934
+FUSE                    
+1 25791U 99035A   00153.90422121  .00000864  00000-0  21631-3 0  1165
+2 25791  24.9865  34.1388 0011133 170.3555 189.7168 14.39436079 49494
+FUSE                    
+1 25791U 99035A   00152.93358165  .00000892  00000-0  22526-3 0  1001
+2 25791  24.9870  40.0657 0011211 160.4686 199.6263 14.39435106 49358
+FUSE                    
+1 25791U 99035A   00151.96294208  .00000727  00000-0  17304-3 0  1612
+2 25791  24.9867  45.9944 0011211 149.4582 210.6578 14.39433226 49218
+FUSE 1
+1 25791U 99035A   00150.92296786 +.00000783 +00000-0 +19073-3 0 01460
+2 25791 024.9865 052.3453 0011336 140.3401 219.7938 14.39432403049060
+FUSE 1
+1 25791U 99035A   00149.95232539 +.00000829 +00000-0 +20521-3 0 01198
+2 25791 024.9864 058.2759 0011314 130.9449 229.2035 14.39431340048923
+FUSE 1
+1 25791U 99035A   00148.91235042  .00001108  00000-0  29356-3 0   921
+2 25791  24.9862  64.6309 0011392 119.2869 240.8777 14.39431427 48776
+FUSE 1
+1 25791U 99035A   00146.97105909 +.00001049 +00000-0 +27490-3 0 01217
+2 25791 024.9860 076.4928 0011034 100.1008 260.0730 14.39427312048499
+FUSE 1
+1 25791U 99035A   00145.93107729 +.00001195 +00000-0 +32101-3 0 01053
+2 25791 024.9858 082.8448 0010906 089.5878 270.5877 14.39425983048340
+FUSE 1
+1 25791U 99035A   00144.96042610 +.00001210 +00000-0 +32585-3 0 00943
+2 25791 024.9858 088.7713 0010797 079.6238 280.5487 14.39424047048201
+FUSE 1
+1 25791U 99035A   00144.89109336  .00001242  00000-0  33587-3 0   919
+2 25791  24.9856  89.1955 0010755  78.9603 281.2108 14.39424127 48199
+FUSE 1
+1 25791U 99035A   00143.92043990 +.00001286 +00000-0 +34981-3 0 01362
+2 25791 024.9853 095.1215 0010661 068.9516 291.2131 14.39422329048054
+FUSE 1
+1 25791U 99035A   00142.94978508 +.00001390 +00000-0 +38255-3 0 01224
+2 25791 024.9849 101.0495 0010673 058.3816 301.7746 14.39420789047916
+FUSE 1
+1 25791U 99035A   00141.97912863 +.00001410 +00000-0 +38914-3 0 01076
+2 25791 024.9848 106.9769 0010693 048.0107 312.1315 14.39418518047773
+FUSE 1
+1 25791U 99035A   00140.31514173  .00001395  00000-0  38437-3 0   908
+2 25791  24.9846 117.1387 0010720  30.1996 329.9129 14.39414225 47534
+FUSE 1
+1 25791U 99035A   00139.96847802 +.00001336 +00000-0 +36555-3 0 01225
+2 25791 024.9846 119.2585 0010753 026.5593 333.5472 14.39413031047485
+FUSE 1
+1 25791U 99035A   00138.30448417 +.00000986 +00000-0 +25496-3 0 01032
+2 25791 024.9849 129.4190 0010807 008.4590 351.6103 14.39408079047241
+FUSE 1
+1 25791U 99035A   00138.16581799 +.00000917 +00000-0 +23330-3 0 00989
+2 25791 024.9852 130.2683 0010800 006.3941 353.6704 14.39407532047222
+FUSE 1
+1 25791U 99035A   00137.33381884  .00000891  00000-0  22495-3 0   892
+2 25791  24.9849 135.3478 0010942 358.1038   1.9431 14.39406114 47100
+FUSE 1
+1 25791U 99035A   00137.12581947 +.00000782 +00000-0 +19067-3 0 01443
+2 25791 024.9853 136.6194 0010936 354.9891 005.0518 14.39405165047070
+FUSE 1
+1 25791U 99035A   00136.15515183 +.00000717 +00000-0 +17007-3 0 01309
+2 25791 024.9856 142.5472 0011025 344.6838 015.3341 14.39403617046937
+FUSE 1
+1 25791U 99035A   00135.11514942 +.00000688 +00000-0 +16101-3 0 01150
+2 25791 024.9856 148.8977 0011074 333.6712 026.3233 14.39402271046789
+FUSE 1
+1 25791U 99035A   00134.14447983 +.00000686 +00000-0 +16024-3 0 01019
+2 25791 024.9858 154.8255 0011141 323.3354 036.6390 14.39401238046645
+FUSE 1
+1 25791U 99035A   00133.24314397  .00000697  00000-0  16371-3 0   882
+2 25791  24.9859 160.3315 0011225 313.9280  46.0306 14.39400350 46513
+FUSE 1
+1 25791U 99035A   00132.13380598 +.00000799 +00000-0 +19602-3 0 01249
+2 25791 024.9855 167.1074 0011235 302.2916 057.6506 14.39399858046356
+FUSE 1
+1 25791U 99035A   00130.46979970 +.00000876 +00000-0 +22019-3 0 01108
+2 25791 024.9854 177.2667 0011205 284.7991 075.1274 14.39398379046117
+FUSE 1
+1 25791U 99035A   00129.42979604 +.00000935 +00000-0 +23904-3 0 00958
+2 25791 024.9855 183.6177 0011214 273.6439 086.2789 14.39397418045968
+FUSE 1
+1 25791U 99035A   00129.22179542  .00000943  00000-0  24155-3 0   878
+2 25791  24.9857 184.8897 0011260 271.3687  88.5531 14.39397203 45932
+FUSE 1
+1 25791U 99035A   00124.57644568  .00001168  00000-0  31255-3 0   864
+2 25791  24.9853 213.2548 0011424 222.2133 137.7495 14.39390992 45261
+FUSE 1
+1 25791U 99035A   00123.60577526 +.00001181 +00000-0 +31680-3 0 01291
+2 25791 024.9854 219.1824 0011455 212.1770 147.8041 14.39389176045129
+FUSE 1
+1 25791U 99035A   00122.63510361 +.00001231 +00000-0 +33248-3 0 01161
+2 25791 024.9854 225.1097 0011461 201.9716 158.0303 14.39387621044982
+FUSE 1
+1 25791U 99035A   00121.66443151 +.00001251 +00000-0 +33895-3 0 01031
+2 25791 024.9854 231.0388 0011524 192.1664 167.8570 14.39385753044847
+FUSE 1
+1 25791U 99035A   00120.69375881 +.00001261 +00000-0 +34204-3 0 00919
+2 25791 024.9855 236.9674 0011466 182.0966 177.9496 14.39383716044709
+FUSE 1
+1 25791U 99035A   00120.55509156  .00001252  00000-0  33924-3 0   859
+2 25791  24.9857 237.8165 0011446 180.8748 179.1742 14.39383343 44689
+FUSE 1
+1 25791U 99035A   00118.68307534 +.00001268 +00000-0 +34428-3 0 01247
+2 25791 024.9853 249.2479 0011337 161.2641 198.8291 14.39379290044418
+FUSE 1
+1 25791U 99035A   00117.71239774 +.00001285 +00000-0 +34957-3 0 01099
+2 25791 024.9854 255.1775 0011271 151.1573 208.9557 14.39377287044279
+FUSE 1
+1 25791U 99035A   00116.74171833 +.00001334 +00000-0 +36531-3 0 00984
+2 25791 024.9851 261.1035 0011286 140.4017 219.7326 14.39375466044138
+FUSE 1
+1 25791U 99035A   00115.77103748  .00001336  00000-0  36589-3 0   846
+2 25791  24.9850 267.0332 0011164 130.0444 230.1046 14.39373163 43997
+FUSE 1
+1 25791U 99035A   00114.80035556 +.00001323 +00000-0 +36184-3 0 01051
+2 25791 024.9850 272.9636 0011139 118.8594 241.3037 14.39370701043855
+FUSE 1
+1 25791U 99035A   00113.48299633 +.00001343 +00000-0 +36805-3 0 00918
+2 25791 024.9847 281.0129 0011026 104.5281 255.6449 14.39367716043665
+FUSE 1
+1 25791U 99035A   00112.58164220 +.00001325 +00000-0 +36244-3 0 00895
+2 25791 024.9847 286.5147 0010991 094.9470 265.2284 14.39365442043531
+FUSE 1
+1 25791U 99035A   00111.61095147  .00001385  00000-0  38153-3 0   830
+2 25791  24.9843 292.4418 0011151  84.3852 275.7943 14.39363622 43390
+FUSE 1
+1 25791U 99035A   00110.57092100 +.00001565 +00000-0 +43855-3 0 00880
+2 25791 024.9834 298.7936 0011325 073.8814 286.2937 14.39362514043241
+FUSE 1
+1 25791U 99035A   00108.62952641 +.00001728 +00000-0 +49007-3 0 00851
+2 25791 024.9828 310.6444 0011254 054.3518 305.8020 14.39358127042962
+FUSE 1
+1 25791U 99035A   00107.93616998 +.00001752 +00000-0 +49756-3 0 00843
+2 25791 024.9826 314.8766 0011241 047.0226 313.1227 14.39356131042867
+FUSE 1
+1 25791U 99035A   00107.86683435  .00001753  00000-0  49803-3 0   827
+2 25791  24.9827 315.3009 0011242  46.2771 313.8667 14.39355927 42857
+FUSE 1
+1 25791U 99035A   00105.85608578  .00002056  00000-0  59388-3 0   814
+2 25791  24.9817 327.5892 0010873  23.0273 337.0569 14.39351807 42560
+FUSE 1
+1 25791U 99035A   00104.67736936 +.00002243 +00000-0 +65292-3 0 00823
+2 25791 024.9813 334.7843 0010911 011.3549 348.7002 14.39348712042394
+FUSE 1
+1 25791U 99035A   00103.91467118 +.00002381 +00000-0 +69669-3 0 00816
+2 25791 024.9810 339.4400 0010675 002.0282 358.0252 14.39346695042287
+FUSE 1
+1 25791U 99035A   00103.01329876 +.00002405 +00000-0 +70441-3 0 01194
+2 25791 024.9809 344.9404 0010670 352.8750 007.1606 14.39342875042158
+FUSE 1
+1 25791U 99035A   00101.97324977 +.00002555 +00000-0 +75197-3 0 01137
+2 25791 024.9805 351.2909 0010643 342.0641 017.9481 14.39339226042005
+FUSE 1
+1 25791U 99035A   00101.07187295 +.00002583 +00000-0 +76093-3 0 01124
+2 25791 024.9805 356.7922 0010619 332.7422 027.2531 14.39335099041874
+FUSE 1
+1 25791U 99035A   00100.10115731 +.00002671 +00000-0 +78880-3 0 00968
+2 25791 024.9799 002.7214 0010593 322.7422 037.2356 14.39330819041734
+FUSE 1
+1 25791U 99035A   00099.13043908  .00002590  00000-0  76309-3 0   799
+2 25791  24.9798   8.6538 0010792 311.2745  48.6840 14.39325505 41593
+FUSE 1
+1 25791U 99035A   00098.09037990 +.00002445 +00000-0 +71735-3 0 00851
+2 25791 024.9802 015.0028 0010995 299.5824 060.3584 14.39319881041446
+FUSE 1
+1 25791U 99035A   00097.11965747 +.00002329 +00000-0 +68059-3 0 00815
+2 25791 024.9804 020.9278 0010970 289.9717 069.9613 14.39314724041301
+FUSE 1
+1 25791U 99035A   00096.14893064 +.00002270 +00000-0 +66193-3 0 00877
+2 25791 024.9807 026.8527 0011076 279.9873 079.9390 14.39310047041167
+FUSE 1
+1 25791U 99035A   00095.17820409 +.00002063 +00000-0 +59661-3 0 00795
+2 25791 024.9813 032.7786 0011255 270.8469 089.0777 14.39304208041025
+FUSE 1
+1 25791U 99035A   00094.20747091  .00001992  00000-0  57410-3 0   771
+2 25791  24.9816  38.7034 0011419 261.0932  98.8284 14.39299966 40887
+FUSE 1
+1 25791U 99035A   00092.19666424  .00001729  00000-0  49103-3 0   764
+2 25791  24.9822  50.9810 0011573 241.7849 118.1493 14.39290662 40595
+FUSE 1
+1 25791U 99035A   00090.18584768 +.00001549 +00000-0 +43389-3 0 00794
+2 25791 024.9830 063.2550 0011512 221.2878 138.6763 14.39283008040302
+FUSE 1
+1 25791U 99035A   00089.28444503  .00001459  00000-0  40539-3 0   755
+2 25791  24.9832  68.7566 0011380 211.8222 148.1602 14.39279719 40179
+FUSE 1
+1 25791U 99035A   00088.31370039 +.00001360 +00000-0 +37404-3 0 00961
+2 25791 024.9836 074.6816 0011423 202.4456 157.5555 14.39276438040031
+FUSE 1
+1 25791U 99035A   00088.03634565 +.00001304 +00000-0 +35643-3 0 00913
+2 25791 024.9839 076.3760 0011454 200.2734 159.7366 14.39275277039997
+FUSE 1
+1 25791U 99035A   00087.20427617 +.00001254 +00000-0 +34072-3 0 00840
+2 25791 024.9841 081.4558 0011382 191.8207 168.2033 14.39272923039870
+FUSE 1
+1 25791U 99035A   00086.23352802  .00001203  00000-0  32440-3 0   745
+2 25791  24.9842  87.3815 0011279 181.4280 178.6196 14.39270365 39731
+FUSE 1
+1 25791U 99035A   00084.22268757 +.00001077 +00000-0 +28473-3 0 00961
+2 25791 024.9845 099.6586 0011009 160.1136 199.9804 14.39265143039448
+FUSE 1
+1 25791U 99035A   00083.18259301 +.00001067 +00000-0 +28137-3 0 00832
+2 25791 024.9846 106.0081 0010977 149.2929 210.8223 14.39263170039292
+FUSE 1
+1 25791U 99035A   00082.21183569  .00001096  00000-0  29069-3 0   733
+2 25791  24.9846 111.9346 0010974 139.3047 220.8279 14.39261692 39153
+FUSE 1
+1 25791U 99035A   00081.17173683 +.00001160 +00000-0 +31097-3 0 01011
+2 25791 024.9843 118.2860 0010946 128.6797 231.4693 14.39260290039008
+FUSE 1
+1 25791U 99035A   00080.20097578 +.00001213 +00000-0 +32794-3 0 00880
+2 25791 024.9841 124.2128 0010923 118.8383 241.3214 14.39258856038864
+FUSE 1
+1 25791U 99035A   00079.23021298  .00001324  00000-0  36292-3 0   720
+2 25791  24.9837 130.1398 0010979 108.5196 251.6496 14.39257774 38722
+FUSE 1
+1 25791U 99035A   00077.21934109 +.00001513 +00000-0 +42309-3 0 00861
+2 25791 024.9829 142.4172 0010838 088.8266 271.3475 14.39254631038434
+FUSE 1
+1 25791U 99035A   00075.55516719  .00001577  00000-0  44314-3 0   711
+2 25791  24.9825 152.5756 0010789  71.5815 288.5864 14.39250628 38191
+FUSE 1
+1 25791U 99035A   00073.61362244 +.00001623 +00000-0 +45792-3 0 01149
+2 25791 024.9823 164.4274 0010664 051.3108 308.8354 14.39245491037910
+FUSE 1
+1 25791U 99035A   00072.64284711 +.00001597 +00000-0 +44979-3 0 01015
+2 25791 024.9825 170.3543 0010564 040.8844 319.2456 14.39242488037772
+FUSE 1
+1 25791U 99035A   00071.67206979 +.00001573 +00000-0 +44222-3 0 00864
+2 25791 024.9826 176.2815 0010546 030.4691 329.6435 14.39239518037632
+FUSE 1
+1 25791U 99035A   00070.56260671  .00001532  00000-0  42912-3 0   702
+2 25791  24.9828 183.0544 0010529  18.3343 341.7543 14.39236091 37479
+FUSE 1
+1 25791U 99035A   00068.69038219 +.00001413 +00000-0 +39162-3 0 00952
+2 25791 024.9834 194.4830 0010533 358.2154 001.8316 14.39230155037209
+FUSE 1
+1 25791U 99035A   00067.71959612 +.00001335 +00000-0 +36691-3 0 00815
+2 25791 024.9838 200.4095 0010552 347.4671 012.5574 14.39227138037065
+FUSE 1
+1 25791U 99035A   00066.74880810  .00001316  00000-0  36063-3 0   698
+2 25791  24.9838 206.3364 0010621 337.4200  22.5842 14.39224685 36920
+FUSE 1
+1 25791U 99035A   00065.77801832 +.00001263 +00000-0 +34378-3 0 00998
+2 25791 024.9841 212.2629 0010676 326.5841 033.3993 14.39222062036782
+FUSE 1
+1 25791U 99035A   00064.80722849 +.00001189 +00000-0 +32036-3 0 00830
+2 25791 024.9845 218.1911 0010778 316.3193 043.6474 14.39219324036645
+FUSE 1
+1 25791U 99035A   00063.76709448 +.00001101 +00000-0 +29240-3 0 00718
+2 25791 024.9849 224.5412 0010871 305.4534 054.4961 14.39216487036499
+FUSE 1
+1 25791U 99035A   00063.55906739  .00001088  00000-0  28832-3 0   683
+2 25791  24.9850 225.8120 0010913 303.1719  56.7740 14.39215991 36464
+FUSE 1
+1 25791U 99035A   00061.82550819 +.00000982 +00000-0 +25477-3 0 00960
+2 25791 024.9855 236.3933 0010864 286.6270 073.3045 14.39211998036219
+FUSE 1
+1 25791U 99035A   00060.85471378 +.00000901 +00000-0 +22923-3 0 00845
+2 25791 024.9863 242.3201 0010848 276.7178 083.2098 14.39209859036077
+FUSE 1
+1 25791U 99035A   00059.88391871  .00000826  00000-0  20540-3 0   675
+2 25791  24.9869 248.2490 0010930 267.1229  92.8030 14.39207865 35932
+FUSE 1
+1 25791U 99035A   00058.91312284 +.00000781 +00000-0 +19097-3 0 00977
+2 25791 024.9873 254.1768 0010925 257.3125 102.6165 14.39206249035799
+FUSE 1
+1 25791U 99035A   00057.94232639 +.00000728 +00000-0 +17411-3 0 00816
+2 25791 024.9875 260.1056 0011055 247.8021 112.1316 14.39204614035655
+FUSE 1
+1 25791U 99035A   00056.62481384 +.00000758 +00000-0 +18375-3 0 00670
+2 25791 024.9875 268.1502 0011129 234.2119 125.7313 14.39203424035463
+FUSE 1
+1 25791U 99035A   00055.86204329  .00000793  00000-0  19497-3 0   661
+2 25791  24.9873 272.8046 0011161 226.1863 133.7679 14.39202825 35354
+FUSE 1
+1 25791U 99035A   00054.68321769 +.00000848 +00000-0 +21235-3 0 01001
+2 25791 024.9871 279.9967 0011112 213.5611 146.4207 14.39201763035188
+FUSE 1
+1 25791U 99035A   00053.98979045 +.00000850 +00000-0 +21296-3 0 00974
+2 25791 024.9870 284.2284 0011076 206.2727 153.7221 14.39200822035085
+FUSE 1
+1 25791U 99035A   00053.01899083 +.00000935 +00000-0 +24004-3 0 00830
+2 25791 024.9867 290.1552 0011204 196.3192 163.6959 14.39200205034940
+FUSE 1
+1 25791U 99035A   00052.04819115 +.00000994 +00000-0 +25875-3 0 00719
+2 25791 024.9868 296.0811 0011283 186.4833 173.5531 14.39199236034805
+FUSE 1
+1 25791U 99035A   00051.90950592  .00000987  00000-0  25647-3 0   650
+2 25791  24.9870 296.9294 0011270 185.1807 174.8586 14.39198964 34783
+FUSE 1
+1 25791U 99035A   00048.85841520  .00001297  00000-0  35475-3 0   644
+2 25791  24.9866 315.5528 0011618 154.5181 205.5896 14.39195818 34340
+FUSE 1
+1 25791U 99035A   00048.09564157 +.00001343 +00000-0 +36946-3 0 01229
+2 25791 024.9864 320.2075 0011655 146.8674 213.2566 14.39194413034238
+FUSE 1
+1 25791U 99035A   00047.12483713 +.00001391 +00000-0 +38482-3 0 01095
+2 25791 024.9864 326.1324 0011683 137.2771 222.8642 14.39192494034095
+FUSE 1
+1 25791U 99035A   00046.15403192 +.00001360 +00000-0 +37483-3 0 00949
+2 25791 024.9866 332.0573 0011665 127.2938 232.8638 14.39189972033950
+FUSE 1
+1 25791U 99035A   00045.18322419 +.00001296 +00000-0 +35475-3 0 00793
+2 25791 024.9869 337.9835 0011586 117.6016 242.5669 14.39187410033812
+FUSE 1
+1 25791U 99035A   00044.21241546  .00001146  00000-0  30690-3 0   638
+2 25791  24.9869 343.9091 0011473 107.1762 253.0006 14.39184536 33672
+FUSE 1
+1 25791U 99035A   00042.20144618 +.00000911 +00000-0 +23237-3 0 00758
+2 25791 024.9867 356.1818 0011249 085.1954 274.9841 14.39179242033387
+FUSE 1
+1 25791U 99035A   00041.92407140  .00000833  00000-0  20764-3 0   629
+2 25791  24.9866 357.8759 0011123  81.8578 278.3201 14.39178018 33348
+FUSE 1
+1 25791U 99035A   00041.16128579 +.00000812 +00000-0 +20105-3 0 01066
+2 25791 024.9865 002.5305 0011143 073.4503 286.7237 14.39176773033231
+FUSE 1
+1 25791U 99035A   00040.19046659 +.00000730 +00000-0 +17515-3 0 00919
+2 25791 024.9864 008.4561 0011054 062.5359 297.6273 14.39174760033097
+FUSE 1
+1 25791U 99035A   00038.31816651  .00000622  00000-0  14075-3 0   612
+2 25791  24.9860  19.8837 0010946  41.9661 318.1684 14.39171741 32822
+FUSE 1
+1 25791U 99035A   00035.19765343 +.00000599 +00000-0 +13337-3 0 00754
+2 25791 024.9862 038.9297 0010966 008.7816 351.2878 14.39168833032372
+FUSE 1
+1 25791U 99035A   00034.22682512  .00000609  00000-0  13670-3 0   609
+2 25791  24.9863  44.8546 0010985 358.5324   1.5150 14.39168123 32232
+FUSE 1
+1 25791U 99035A   00033.18665576 +.00000568 +00000-0 +12356-3 0 01126
+2 25791 024.9855 051.2265 0011261 347.2812 012.7409 14.39167162032084
+FUSE 1
+1 25791U 99035A   00032.21582678 +.00000591 +00000-0 +13078-3 0 00970
+2 25791 024.9855 057.1532 0011294 337.1761 022.8245 14.39166555031942
+FUSE 1
+1 25791U 99035A   00031.17565214 +.00000642 +00000-0 +14694-3 0 00805
+2 25791 024.9852 063.5033 0011303 326.2800 033.6988 14.39166094031795
+FUSE 1
+1 25791U 99035A   00030.20482266 +.00000686 +00000-0 +16093-3 0 00659
+2 25791 024.9850 069.4311 0011343 315.6598 044.3015 14.39165560031659
+FUSE 1
+1 25791U 99035A   00029.44202816  .00000689  00000-0  16196-3 0   594
+2 25791  24.9849  74.0872 0011363 307.3743  52.5733 14.39164796 31549
+FUSE 1
+1 25791U 99035A   00027.43102888  .00000569  00000-0  18032-3 0   586
+2 25791  24.9851  86.3260 0010521 286.4177  73.5622 14.39162573 31251
+FUSE 1
+1 25791U 99035A   00025.55871179  .00000869  00000-0  21924-3 0   579
+2 25791  24.9844  97.7947 0011481 266.0116  93.9082 14.39161817 30989
+FUSE 1
+1 25791U 99035A   00023.61705451 +.00000924 +00000-0 +23647-3 0 00872
+2 25791 024.9842 109.6465 0011662 245.5194 114.4098 14.39159561030703
+FUSE 1
+1 25791U 99035A   00022.57688135 +.00000962 +00000-0 +24873-3 0 00723
+2 25791 024.9839 115.9974 0011736 234.7227 125.2184 14.39158302030554
+FUSE 1
+1 25791U 99035A   00022.29950177 +.00001003 +00000-0 +26163-3 0 00619
+2 25791 024.9838 117.6930 0011736 231.8231 128.1224 14.39158246030517
+FUSE 1
+1 25791U 99035A   00021.53670825  .00000998  00000-0  26013-3 0   564
+2 25791  24.9840 122.3487 0011792 223.8474 136.1104 14.39156968 30405
+FUSE 1
+1 25791U 99035A   00020.42719000 +.00000962 +00000-0 +24860-3 0 00907
+2 25791 024.9842 129.1211 0011913 212.6223 147.3555 14.39154882030249
+FUSE 1
+1 25791U 99035A   00019.66439581 +.00000966 +00000-0 +24995-3 0 00839
+2 25791 024.9840 133.7768 0011844 204.5957 155.3985 14.39153669030138
+FUSE 1
+1 25791U 99035A   00018.62422196 +.00000928 +00000-0 +23794-3 0 00696
+2 25791 024.9842 140.1276 0011782 194.0350 165.9832 14.39151690029988
+FUSE 1
+1 25791U 99035A   00017.44535596  .00000854  00000-0  21447-3 0   550
+2 25791  24.9848 147.3221 0011810 182.6957 177.3499 14.39149382 29814
+FUSE 1
+1 25791U 99035A   00014.53285856  .00000615  00000-0  13854-3 0   545
+2 25791  24.9856 165.1015 0011407 153.4049 206.7053 14.39143679 29391
+FUSE 1
+1 25791U 99035A   00013.56202232 +.00000571 +00000-0 +12445-3 0 00786
+2 25791 024.9857 171.0254 0011318 143.0152 217.1149 14.39142418029251
+FUSE 1
+1 25791U 99035A   00012.72987589 +.00000562 +00000-0 +12183-3 0 00732
+2 25791 024.9854 176.1050 0011284 133.7108 226.4334 14.39141611029137
+FUSE 1
+1 25791U 99035A   00011.62034564 +.00000527 +00000-0 +11055-3 0 00633
+2 25791 024.9855 182.8750 0011249 121.8036 238.3572 14.39140431028974
+FUSE 1
+1 25791U 99035A   00010.71885112 +.00000512 +00000-0 +10577-3 0 00569
+2 25791 024.9854 188.3761 0011274 111.8566 248.3147 14.39139621028845
+FUSE 1
+1 25791U 99035A   00009.88670072  .00000501  00000-0  10250-3 0   535
+2 25791  24.9854 193.4536 0011262 103.0112 257.1659 14.39138969 28726
+FUSE 1
+1 25791U 99035A   00006.83547797  .00000337  00000-0  10675-3 0   521
+2 25791  24.9869 212.0479 0011133  74.0467 286.1742 14.39136665 28280
+FUSE 1
+1 25791U 99035A   00005.93397487 +.00000522 +00000-0 +10899-3 0 00546
+2 25791 024.9856 217.5808 0011349 060.5895 299.5747 14.39136473028152
+FUSE 1
+1 25791U 99035A   00005.86462875  .00000520  00000-0  10857-3 0   511
+2 25791  24.9857 218.0047 0011344  59.7788 300.3845 14.39136413 28143
+FUSE 1
+1 25791U 99035A   00004.96312675 +.00000518 +00000-0 +10767-3 0 01139
+2 25791 024.9860 223.5077 0011297 050.2547 309.8954 14.39135812028010
+FUSE 1
+1 25791U 99035A   00003.99227761 +.00000520 +00000-0 +10842-3 0 00981
+2 25791 024.9861 229.4342 0011263 039.8658 320.2678 14.39135178027878
+FUSE 1
+1 25791U 99035A   00003.02142715 +.00000562 +00000-0 +12179-3 0 00835
+2 25791 024.9860 235.3606 0011286 029.7368 330.3779 14.39134850027732
+FUSE 1
+1 25791U 99035A   00001.98122961 +.00000601 +00000-0 +13433-3 0 00657
+2 25791 024.9860 241.7105 0011303 018.8712 341.2214 14.39134376027580
+FUSE 1
+1 25791U 99035A   00001.01037721  .00000666  00000-0  15478-3 0   506
+2 25791  24.9859 247.6366 0011281   8.7106 351.3596 14.39134101 27448
+FUSE 1
+1 25791U 99035A   99363.09781835  .00000899  00000-0  22901-3 0   490
+2 25791  24.9851 265.4129 0011197 338.4602  21.5436 14.39132626 27028
+FUSE 1
+1 25791U 99035A   99362.12696497 +.00000961 +00000-0 +24848-3 0 00922
+2 25791 024.9849 271.3386 0011184 327.9746 032.0084 14.39131724026881
+FUSE 1
+1 25791U 99035A   99361.15611130 +.00001034 +00000-0 +27194-3 0 00799
+2 25791 024.9846 277.2653 0011182 317.4471 042.5171 14.39130801026740
+FUSE 1
+1 25791U 99035A   99360.11591130 +.00001087 +00000-0 +28861-3 0 00623
+2 25791 024.9844 283.6152 0011205 306.4053 053.5421 14.39129438026590
+FUSE 1
+1 25791U 99035A   99359.14505772  .00001123  00000-0  30012-3 0   487
+2 25791  24.9844 289.5405 0011210 296.0081  63.9276 14.39127971 26455
+FUSE 1
+1 25791U 99035A   99357.20334989 +.00001185 +00000-0 +31974-3 0 00927
+2 25791 024.9845 301.3934 0011276 275.1736 084.7487 14.39124778026179
+FUSE 1
+1 25791U 99035A   99355.19229507 +.00001143 +00000-0 +30633-3 0 00589
+2 25791 024.9845 313.6688 0011427 254.6519 105.2727 14.39120370025887
+FUSE 1
+1 25791U 99035A   99354.91490853  .00001110  00000-0  29599-3 0   473
+2 25791  24.9845 315.3629 0011470 251.8385 108.0875 14.39119513 25847
+FUSE 1
+1 25791U 99035A   99354.15209340 +.00001101 +00000-0 +29307-3 0 01038
+2 25791 024.9845 320.0181 0011509 244.1536 115.7785 14.39117975025732
+FUSE 1
+1 25791U 99035A   99353.18123792 +.00001083 +00000-0 +28726-3 0 00881
+2 25791 024.9845 325.9428 0011452 234.1361 125.8092 14.39115978025590
+FUSE 1
+1 25791U 99035A   99352.21038154 +.00001042 +00000-0 +27447-3 0 00762
+2 25791 024.9843 331.8688 0011469 224.5539 135.4048 14.39113821025458
+FUSE 1
+1 25791U 99035A   99351.17017792 +.00000973 +00000-0 +25237-3 0 00577
+2 25791 024.9847 338.2189 0011485 214.2213 145.7558 14.39111421025300
+FUSE 1
+1 25791U 99035A   99350.33801333  .00000951  00000-0  24529-3 0   463
+2 25791  24.9846 343.2967 0011487 205.5729 154.4211 14.39109889 25180
+FUSE 1
+1 25791U 99035A   99350.19931958 +.00000933 +00000-0 +23956-3 0 00962
+2 25791 024.9848 344.1445 0011512 204.4239 155.5731 14.39109519025163
+FUSE 1
+1 25791U 99035A   99348.39629426 +.00000823 +00000-0 +20475-3 0 00865
+2 25791 024.9849 355.1452 0011441 185.7566 174.2811 14.39105974024908
+FUSE 1
+1 25791U 99035A   99348.18825288 +.00000798 +00000-0 +19683-3 0 00787
+2 25791 024.9851 356.4159 0011443 183.9954 176.0469 14.39105492024872
+FUSE 1
+1 25791U 99035A   99347.21739099 +.00000760 +00000-0 +18478-3 0 00593
+2 25791 024.9852 002.3410 0011413 174.2811 185.7832 14.39103915024736
+FUSE 1
+1 25791U 99035A   99346.24652782  .00000754  00000-0  18291-3 0   459
+2 25791  24.9852   8.2668 0011377 164.2548 195.8318 14.39102692 24597
+FUSE 1
+1 25791U 99035A   99344.23544964 +.00000756 +00000-0 +18345-3 0 00821
+2 25791 024.9851 020.5393 0011315 143.9081 216.2195 14.39100353024308
+FUSE 1
+1 25791U 99035A   99343.19523523 +.00000758 +00000-0 +18405-3 0 00642
+2 25791 024.9849 026.8884 0011251 133.1541 226.9914 14.39099103024150
+FUSE 1
+1 25791U 99035A   99342.15501899 +.00000788 +00000-0 +19383-3 0 00479
+2 25791 024.9847 033.2384 0011205 122.0799 238.0799 14.39098132024006
+FUSE 1
+1 25791U 99035A   99341.53088842  .00000788  00000-0  19382-3 0   444
+2 25791  24.9847  37.0461 0011204 115.5981 244.5688 14.39097368 23911
+FUSE 1
+1 25791U 99035A   99341.18414898 +.00000797 +00000-0 +19666-3 0 00927
+2 25791 024.9845 039.1646 0011110 111.9666 248.2014 14.39096976023865
+FUSE 1
+1 25791U 99035A   99340.21327751 +.00000821 +00000-0 +20422-3 0 00796
+2 25791 024.9844 045.0894 0011092 101.8687 258.3063 14.39095956023723
+FUSE 1
+1 25791U 99035A   99339.24240445 +.00000860 +00000-0 +21656-3 0 00626
+2 25791 024.9842 051.0146 0011088 091.5490 268.6286 14.39094994023586
+FUSE 1
+1 25791U 99035A   99337.57804728 +.00000910 +00000-0 +23264-3 0 00454
+2 25791 024.9838 061.1710 0011103 073.9223 286.2502 14.39093024023340
+FUSE 1
+1 25791U 99035A   99337.50869901  .00000916  00000-0  23465-3 0   438
+2 25791  24.9838  61.5940 0011123  73.3216 286.8513 14.39092988 23332
+FUSE 1
+1 25791U 99035A   99336.53782164 +.00000978 +00000-0 +25413-3 0 00775
+2 25791 024.9835 067.5184 0011185 063.0696 297.0953 14.39091962023198
+FUSE 1
+1 25791U 99035A   99335.91368480 +.00001057 +00000-0 +27938-3 0 00668
+2 25791 024.9832 071.3272 0011211 056.4491 303.7082 14.39091557023104
+FUSE 1
+1 25791U 99035A   99334.66541084 +.00001103 +00000-0 +29413-3 0 00563
+2 25791 024.9829 078.9441 0011175 043.3897 316.7490 14.39089668022921
+FUSE 1
+1 25791U 99035A   99333.55583168  .00001182  00000-0  31912-3 0   428
+2 25791  24.9828  85.7150 0011228  31.8546 328.2638 14.39088163 22768
+FUSE 1
+1 25791U 99035A   99332.72364624 +.00001252 +00000-0 +34147-3 0 00926
+2 25791 024.9822 090.7928 0011318 023.1121 336.9895 14.39086934022646
+FUSE 1
+1 25791U 99035A   99330.71252915 +.00001370 +00000-0 +37884-3 0 00621
+2 25791 024.9815 103.0720 0011456 002.2762 357.7803 14.39083149022351
+FUSE 1
+1 25791U 99035A   99330.01903979 +.00001341 +00000-0 +36977-3 0 00515
+2 25791 024.9813 107.3056 0011522 355.0936 004.9469 14.39081189022254
+FUSE 1
+1 25791U 99035A   99329.53359692  .00001309  00000-0  35954-3 0   414
+2 25791  24.9818 110.2720 0011533 349.7266  10.3016 14.39079811 22188
+FUSE 1
+1 25791U 99035A   99328.00791539 +.00001217 +00000-0 +33021-3 0 00742
+2 25791 024.9820 119.5846 0011565 334.1745 025.8190 14.39075614021963
+FUSE 1
+1 25791U 99035A   99326.82897714 +.00001154 +00000-0 +31024-3 0 00585
+2 25791 024.9826 126.7842 0011751 321.2678 038.6990 14.39072676021790
+FUSE 1
+1 25791U 99035A   99325.51133788  .00001054  00000-0  27855-3 0   401
+2 25791  24.9847 134.8467 0011912 304.6034  55.3277 14.39069633 21609
+FUSE 1
+1 25791U 99035A   99322.80670431 +.00001256 +00000-0 +34276-3 0 00411
+2 25791 024.9836 151.3552 0012041 275.3401 084.5737 14.39066077021213
+FUSE 1
+1 25791U 99035A   99321.62776187 +.00001252 +00000-0 +34139-3 0 00408
+2 25791 024.9837 158.5475 0012055 262.9443 096.9715 14.39063501021043
+FUSE 1
+1 25791U 99035A   99320.79556237  .00001252  00000-0  34144-3 0   391
+2 25791  24.9836 163.6246 0012002 254.4359 105.4616 14.39061664 20929
+FUSE 1
+1 25791U 99035A   99318.99247388 +.00001603 +00000-0 +45300-3 0 00424
+2 25791 024.9830 174.6225 0011785 234.5772 125.3639 14.39059706020668
+FUSE 1
+1 25791U 99035A   99318.85377493  .00001636  00000-0  46351-3 0   388
+2 25791  24.9833 175.4706 0011739 232.8226 127.1216 14.39059600 20640
+FUSE 1
+1 25791U 99035A   99316.98133499  .00000949  00000-0  24506-3 0   379
+2 25791  24.9842 186.9003 0011834 213.5350 146.4412 14.39050830 20375
+FUSE 1
+1 25791U 99035A   99316.77328072  .00000093  00000-0 -27298-4 0   361
+2 25791  24.9851 188.1733 0012103 214.4787 145.4516 14.39045117 20346
+FUSE 1
+1 25791U 99035A   99316.01043130  .00001289  00000-0  35317-3 0   353
+2 25791  24.9823 192.8263 0011574 206.8856 153.1047 14.39050776 20238
+FUSE 1
+1 25791U 99035A   99314.06863125 +.00000807 +00000-0 +19978-3 0 00675
+2 25791 024.9828 204.6728 0011620 187.0114 173.0230 14.39045484019952
+FUSE 1
+1 25791U 99035A   99313.09772812 +.00000806 +00000-0 +19960-3 0 00668
+2 25791 024.9828 210.5953 0011621 176.8561 183.2018 14.39044261019815
+FUSE 1
+1 25791U 99035A   99312.12682443 +.00000807 +00000-0 +20004-3 0 00607
+2 25791 024.9830 216.5187 0011630 166.7136 193.3684 14.39043064019674
+FUSE 1
+1 25791U 99035A   99311.08656905 +.00000824 +00000-0 +20537-3 0 00492
+2 25791 024.9827 222.8664 0011566 156.1383 203.9662 14.39041822019523
+FUSE 1
+1 25791U 99035A   99310.11566272  .00000873  00000-0  22108-3 0   346
+2 25791  24.9823 228.7931 0011439 146.3502 213.7733 14.39040863 19380
+FUSE 1
+1 25791U 99035A   99309.14475480 +.00000912 +00000-0 +23325-3 0 00624
+2 25791 024.9823 234.7169 0011382 136.4568 223.6834 14.39039788019240
+FUSE 1
+1 25791U 99035A   99308.17384628 +.00000917 +00000-0 +23509-3 0 00594
+2 25791 024.9823 240.6396 0011384 126.3110 233.8450 14.39038400019103
+FUSE 1
+1 25791U 99035A   99307.20293604 +.00000929 +00000-0 +23900-3 0 00509
+2 25791 024.9824 246.5634 0011348 116.2606 243.9068 14.39037064018967
+FUSE 1
+1 25791U 99035A   99306.16267374 +.00000901 +00000-0 +22981-3 0 00427
+2 25791 024.9827 252.9105 0011294 105.3472 254.8283 14.39035306018815
+FUSE 1
+1 25791U 99035A   99305.26111145  .00000880  00000-0  22322-3 0   336
+2 25791  24.9828 258.4108 0011278  95.9573 264.2230 14.39033878 18682
+FUSE 1
+1 25791U 99035A   99302.14030694 +.00000777 +00000-0 +19052-3 0 00420
+2 25791 024.9830 277.4546 0011155 063.6998 296.4659 14.39029030018237
+FUSE 1
+1 25791U 99035A   99301.23873747  .00000793  00000-0  19553-3 0   326
+2 25791  24.9829 282.9548 0011144  54.1449 306.0093 14.39027991 18102
+FUSE 1
+1 25791U 99035A   99300.19846426 +.00000688 +00000-0 +16220-3 0 00785
+2 25791 024.9829 289.3031 0011097 042.8698 317.2674 14.39026119017959
+FUSE 1
+1 25791U 99035A   99299.15818884 +.00000714 +00000-0 +17059-3 0 00607
+2 25791 024.9835 295.6560 0010854 031.9536 328.1631 14.39025229017802
+FUSE 1
+1 25791U 99035A   99298.11791199 +.00000847 +00000-0 +21277-3 0 00447
+2 25791 024.9832 302.0031 0010894 020.7345 339.3596 14.39024199017655
+FUSE 1
+1 25791U 99035A   99297.21633808  .00000871  00000-0  22050-3 0   312
+2 25791  24.9833 307.5043 0010887  10.9937 349.0810 14.39022966 17522
+FUSE 1
+1 25791U 99035A   99295.27448293 +.00000936 +00000-0 +24130-3 0 00647
+2 25791 024.9834 319.3563 0010756 350.0772 009.9521 14.39020654017243
+FUSE 1
+1 25791U 99035A   99294.16484983 +.00001000 +00000-0 +26157-3 0 00453
+2 25791 024.9829 326.1256 0010800 338.5647 021.4408 14.39019299017082
+FUSE 1
+1 25791U 99035A   99293.19392082  .00001020  00000-0  26791-3 0   303
+2 25791  24.9828 332.0506 0010781 328.4327  31.5533 14.39017852 16944
+FUSE 1
+1 25791U 99035A   99292.77780736 +.00001020 +00000-0 +26806-3 0 00883
+2 25791 024.9827 334.5890 0010781 324.0963 035.8778 14.39017148016883
+FUSE 1
+1 25791U 99035A   99292.15363794 +.00001076 +00000-0 +28568-3 0 00761
+2 25791 024.9826 338.3998 0010857 316.4441 043.5205 14.39016547016796
+FUSE 1
+1 25791U 99035A   99291.18270908 +.00001062 +00000-0 +28130-3 0 00587
+2 25791 024.9822 344.3280 0011053 306.1106 053.8378 14.39014543016650
+FUSE 1
+1 25791U 99035A   99289.51825652 +.00001008 +00000-0 +26405-3 0 00430
+2 25791 024.9823 354.4815 0011076 288.6058 071.3246 14.39011177016415
+FUSE 1
+1 25791U 99035A   99288.47797288  .00000951  00000-0  24613-3 0   296
+2 25791  24.9826   0.8275 0011076 277.4591  82.4657 14.39009052 16269
+FUSE 1
+1 25791U 99035A   99286.88287063 +.00000861 +00000-0 +21717-3 0 00634
+2 25791 024.9828 010.5602 0011200 260.5300 099.3940 14.39005892016038
+FUSE 1
+1 25791U 99035A   99285.49582403 +.00000795 +00000-0 +19630-3 0 00486
+2 25791 024.9830 019.0217 0011238 246.2842 113.6491 14.39003480015839
+FUSE 1
+1 25791U 99035A   99284.66359563 +.00000761 +00000-0 +18552-3 0 00398
+2 25791 024.9832 024.0989 0011221 237.5271 122.4154 14.39002187015718
+FUSE 1
+1 25791U 99035A   99283.97007305  .00000754  00000-0  18327-3 0   285
+2 25791  24.9830  28.3293 0011217 230.2490 129.7115 14.39001280 15618
+FUSE 1
+1 25791U 99035A   99280.71050717 +.00000608 +00000-0 +13659-3 0 00426
+2 25791 024.9832 048.2231 0011233 196.9935 163.0195 14.38996802015142
+FUSE 1
+1 25791U 99035A   99280.01698155 +.00000604 +00000-0 +13553-3 0 00286
+2 25791 024.9831 052.4539 0011244 189.6758 170.3528 14.38996155015044
+FUSE 1
+1 25791U 99035A   99279.73957122  .00000606  00000-0  13609-3 0   278
+2 25791  24.9833  54.1486 0011318 187.2744 172.7600 14.38995976 15000
+FUSE 1
+1 25791U 99035A   99278.76863587 +.00000623 +00000-0 +14143-3 0 00780
+2 25791 024.9828 060.0769 0011243 177.0793 182.9783 14.38995168014863
+FUSE 1
+1 25791U 99035A   99278.07510995 +.00000624 +00000-0 +14185-3 0 00637
+2 25791 024.9826 064.3088 0011169 169.6029 190.4711 14.38994496014765
+FUSE 1
+1 25791U 99035A   99276.75740903 +.00000633 +00000-0 +14460-3 0 00461
+2 25791 024.9823 072.3487 0011129 155.6892 204.4141 14.38993316014575
+FUSE 1
+1 25791U 99035A   99276.47999801 +.00000694 +00000-0 +16404-3 0 00358
+2 25791 024.9818 074.0450 0011207 153.0078 207.1024 14.38993598014531
+FUSE 1
+1 25791U 99035A   99275.57841241  .00000671  00000-0  15672-3 0   263
+2 25791  24.9819  79.5451 0011185 143.2379 216.8904 14.38992466 14406
+FUSE 1
+1 25791U 99035A   99272.59623714 +.00000619 +00000-0 +14032-3 0 00288
+2 25791 024.9821 097.7456 0010986 112.1476 248.0207 14.38989140013976
+FUSE 1
+1 25791U 99035A   99271.83335507 +.00000694 +00000-0 +16423-3 0 00261
+2 25791 024.9829 102.4180 0011115 105.0840 255.0961 14.38989289013860
+FUSE 1
+1 25791U 99035A   99270.93176357  .00000625  00000-0  14212-3 0   254
+2 25791  24.9833 107.9206 0010968  96.2277 263.9501 14.38987831 13739
+FUSE 1
+1 25791U 99035A   99269.82210754 +.00000624 +00000-0 +14194-3 0 00270
+2 25791 024.9836 114.6962 0010511 085.3632 274.8041 14.38987014013579
+FUSE 1
+1 25791U 99035A   99268.64310209 +.00000665 +00000-0 +15491-3 0 00260
+2 25791 024.9835 121.8881 0010538 073.0440 287.1349 14.38986259013408
+FUSE 1
+1 25791U 99035A   99267.88021393 +.00000624 +00000-0 +14182-3 0 00258
+2 25791 024.9836 126.5415 0010795 065.0791 295.0869 14.38985118013294
+FUSE 1
+1 25791U 99035A   99266.90926343  .00000583  00000-0  12888-3 0   243
+2 25791  24.9837 132.4642 0010750  54.8710 305.2813 14.38983972 13155
+FUSE 1
+1 25791U 99035A   99266.00766538 +.00000570 +00000-0 +12480-3 0 00561
+2 25791 024.9838 137.9635 0010739 045.4550 314.6838 14.38983153013021
+FUSE 1
+1 25791U 99035A   99265.03671293 +.00000579 +00000-0 +12751-3 0 00498
+2 25791 024.9838 143.8883 0010767 035.0894 325.0328 14.38982440012880
+FUSE 1
+1 25791U 99035A   99264.06575950 +.00000540 +00000-0 +11503-3 0 00439
+2 25791 024.9841 149.8130 0010718 024.5892 335.5124 14.38981393012743
+FUSE 1
+1 25791U 99035A   99263.09480512 +.00000542 +00000-0 +11581-3 0 00315
+2 25791 024.9841 155.7371 0010726 014.3641 345.7173 14.38980695012600
+FUSE 1
+1 25791U 99035A   99262.88674378  .00000509  00000-0  10546-3 0   230
+2 25791  24.9842 157.0081 0010731  11.7394 348.3365 14.38980270 12573
+FUSE 1
+1 25791U 99035A   99260.11258537 +.00000453 +00000-0 +87384-4 0 00502
+2 25791 024.9841 173.9362 0010893 342.6831 017.3307 14.38977970012170
+FUSE 1
+1 25791U 99035A   99259.07227521 +.00000447 +00000-0 +85573-4 0 00347
+2 25791 024.9841 180.2856 0010956 331.9610 028.0309 14.38977330012020
+FUSE 1
+1 25791U 99035A   99258.17067241  .00000427  00000-0  79225-4 0   220
+2 25791  24.9841 185.7874 0011007 322.1366  37.8369 14.38976734 11893
+FUSE 1
+1 25791U 99035A   99256.15940484 +.00000459 +00000-0 +89377-4 0 00465
+2 25791 024.9843 198.0620 0011104 300.6420 059.2997 14.38975981011608
+FUSE 1
+1 25791U 99035A   99255.18844792 +.00000499 +00000-0 +10205-3 0 00357
+2 25791 024.9841 203.9868 0011170 290.1305 069.8003 14.38975748011464
+FUSE 1
+1 25791U 99035A   99254.21749084  .00000578  00000-0  12715-3 0   219
+2 25791  24.9838 209.9117 0011276 279.5024  80.4212 14.38975778 11328
+FUSE 1
+1 25791U 99035A   99252.13687317 +.00000703 +00000-0 +16695-3 0 00422
+2 25791 024.9838 222.6085 0011253 257.6029 102.3226 14.38974995011027
+FUSE 1
+1 25791U 99035A   99251.16591877 +.00000740 +00000-0 +17891-3 0 00306
+2 25791 024.9838 228.5342 0011361 247.5654 112.3649 14.38974264010882
+FUSE 1
+1 25791U 99035A   99250.33367230  .00000790  00000-0  19473-3 0   200
+2 25791  24.9836 233.6120 0011410 238.7623 121.1773 14.38973707 10768
+FUSE 1
+1 25791U 99035A   99250.12561055 +.00000806 +00000-0 +20003-3 0 00780
+2 25791 024.9837 234.8822 0011380 236.5967 123.3441 14.38973616010736
+FUSE 1
+1 25791U 99035A   99249.22401093 +.00000850 +00000-0 +21378-3 0 00688
+2 25791 024.9836 240.3848 0011437 227.1228 132.8321 14.38972820010608
+FUSE 1
+1 25791U 99035A   99248.18370392 +.00000868 +00000-0 +21968-3 0 00504
+2 25791 024.9836 246.7339 0011442 216.3322 143.6406 14.38971553010453
+FUSE 1
+1 25791U 99035A   99247.14339628 +.00000893 +00000-0 +22765-3 0 00331
+2 25791 024.9835 253.0817 0011458 205.6866 154.3072 14.38970276010308
+FUSE 1
+1 25791U 99035A   99246.24179636  .00000875  00000-0  22203-3 0   193
+2 25791  24.9836 258.5836 0011512 196.4275 163.5862 14.38968832 10171
+FUSE 1
+1 25791U 99035A   99244.16117925 +.00000770 +00000-0 +18839-3 0 00526
+2 25791 024.9840 271.2810 0011478 175.5983 184.4632 14.38965078009876
+FUSE 1
+1 25791U 99035A   99243.25957613 +.00000746 +00000-0 +18082-3 0 00412
+2 25791 024.9841 276.7823 0011475 166.5838 193.4978 14.38963795009740
+FUSE 1
+1 25791U 99035A   99242.14991061 +.00000697 +00000-0 +16531-3 0 00214
+2 25791 024.9841 283.5545 0011425 155.0075 205.0993 14.38962068009589
+FUSE 1
+1 25791U 99035A   99241.45636787  .00000690  00000-0  16312-3 0   184
+2 25791  24.9841 287.7844 0011423 147.6480 212.4734 14.38961291  9483
+FUSE 1
+1 25791U 99035A   99238.54348289 +.00000555 +00000-0 +12005-3 0 00339
+2 25791 024.9851 305.5600 0011277 118.2109 241.9541 14.38957529009068
+FUSE 1
+1 25791U 99035A   99237.43380917  .00000519  00000-0  10841-3 0   178
+2 25791  24.9853 312.3322 0011217 106.6278 253.5464 14.38956402  8903
+FUSE 1
+1 25791U 99035A   99236.46284262 +.00000461 +00000-0 +90008-4 0 00705
+2 25791 024.9853 318.2560 0011086 096.8361 263.3410 14.38955295008762
+FUSE 1
+1 25791U 99035A   99236.25477872 +.00000452 +00000-0 +87040-4 0 00615
+2 25791 024.9853 319.5272 0011052 094.6665 265.5117 14.38955073008731
+FUSE 1
+1 25791U 99035A   99235.28381051 +.00000458 +00000-0 +89138-4 0 00470
+2 25791 024.9852 325.4528 0011033 084.2171 275.9597 14.38954552008598
+FUSE 1
+1 25791U 99035A   99233.61929130 +.00000451 +00000-0 +86895-4 0 00303
+2 25791 024.9853 335.6110 0010986 066.4129 293.7536 14.38953524008353
+FUSE 1
+1 25791U 99035A   99232.50961001  .00000368  00000-0  60512-4 0   162
+2 25791  24.9859 342.3821 0010848  54.6767 305.4755 14.38952340  8198
+FUSE 1
+1 25791U 99035A   99230.70637369 +.00000429 +00000-0 +79925-4 0 00424
+2 25791 024.9854 353.3830 0010964 035.3348 324.7888 14.38952031007934
+FUSE 1
+1 25791U 99035A   99229.59668927 +.00000395 +00000-0 +68969-4 0 00285
+2 25791 024.9857 000.1562 0010882 023.2043 336.8948 14.38951224007779
+FUSE 1
+1 25791U 99035A   99228.48700287 +.00000471 +00000-0 +93172-4 0 00221
+2 25791 024.9853 006.9252 0010851 011.6095 348.4667 14.38951260007619
+FUSE 1
+1 25791U 99035A   99227.72409421  .00000487  00000-0  98308-4 0   158
+2 25791  24.9851  11.5809 0010930   3.6815 356.3773 14.38950858  7502
+FUSE 1
+1 25791U 99035A   99223.56276789  .00000619  00000-0  14028-3 0   147
+2 25791  24.9842  36.9742 0011040 318.0438  41.9206 14.38948712  6903
+FUSE 1
+1 25791U 99035A   99218.63853449  .00000720  00000-0  17250-3 0   135
+2 25791  24.9828  67.0232 0011431 267.3032  92.6167 14.38944759  6193
+FUSE 1
+1 25791U 99035A   99216.97400544 +.00000683 +00000-0 +16063-3 0 00166
+2 25791 024.9829 077.1763 0011588 249.8240 110.1026 14.38942807005959
+FUSE 1
+1 25791U 99035A   99215.72561041  .00001104  00000-0  29513-3 0   127
+2 25791  24.9823  84.7905 0011295 237.0915 122.8597 14.38943232  5774
+FUSE 1
+1 25791U 99035A   99213.99172686 +.00000755 +00000-0 +18386-3 0 00281
+2 25791 024.9829 095.3690 0011291 219.0401 140.9295 14.38939332005520
+FUSE 1
+1 25791U 99035A   99213.02075147 +.00000641 +00000-0 +14744-3 0 00175
+2 25791 024.9830 101.2939 0011410 209.3286 150.6585 14.38937829005384
+FUSE 1
+1 25791U 99035A   99212.88204088  .00000581  00000-0  12826-3 0   112
+2 25791  24.9832 102.1415 0011463 208.2710 151.7177 14.38937383  5365
+FUSE 1
+1 25791U 99035A   99211.07879897 +.00000483 +00000-0 +96970-4 0 00493
+2 25791 024.9832 113.1440 0011683 189.9414 170.0864 14.38935491005102
+FUSE 1
+1 25791U 99035A   99210.10782220 +.00000457 +00000-0 +88695-4 0 00361
+2 25791 024.9830 119.0680 0011645 180.0206 180.0306 14.38934715004963
+FUSE 1
+1 25791U 99035A   99209.13684459 +.00000476 +00000-0 +94628-4 0 00215
+2 25791 024.9829 124.9914 0011669 170.0019 190.0732 14.38934254004820
+FUSE 1
+1 25791U 99035A   99208.85942248  .00000483  00000-0  96822-4 0   100
+2 25791  24.9830 126.6849 0011617 167.3014 192.7802 14.38934135  4785
+FUSE 1
+1 25791U 99035A   99208.16586648 +.00000509 +00000-0 +10534-3 0 00689
+2 25791 024.9829 130.9163 0011612 160.0034 200.0933 14.38933809004681
+FUSE 1
+1 25791U 99035A   99207.12553224 +.00000477 +00000-0 +95090-4 0 00537
+2 25791 024.9830 137.2648 0011506 149.5759 210.5420 14.38933010004534
+FUSE 1
+1 25791U 99035A   99206.15455295 +.00000436 +00000-0 +81952-4 0 00388
+2 25791 024.9831 143.1889 0011456 139.5200 220.6160 14.38932240004393
+FUSE 1
+1 25791U 99035A   99205.11421632 +.00000433 +00000-0 +81097-4 0 00221
+2 25791 024.9835 149.5359 0011411 129.0298 231.1227 14.38931694004248
+FUSE 1
+1 25791U 99035A   99204.21259024  .00000427  00000-0  79119-4 0    95
+2 25791  24.9835 155.0370 0011324 120.0292 240.1341 14.38931194  4119
+FUSE 1
+1 25791U 99035A   99203.17225182 +.00000414 +00000-0 +74992-4 0 00525
+2 25791 024.9835 161.3843 0011233 109.2556 250.9169 14.38930540003968
+FUSE 1
+1 25791U 99035A   99202.13191170 +.00000423 +00000-0 +77980-4 0 00383
+2 25791 024.9837 167.7323 0011168 098.4908 261.6865 14.38930164003818
+FUSE 1
+1 25791U 99035A   99201.16092631 +.00000440 +00000-0 +83410-4 0 00235
+2 25791 024.9837 173.6562 0011126 088.3941 271.7841 14.38929874003674
+FUSE 1
+1 25791U 99035A   99200.18994021  .00000454  00000-0  87696-4 0    88
+2 25791  24.9838 179.5806 0011119  78.2644 281.9107 14.38929532  3535
+FUSE 1
+1 25791U 99035A   99200.12059101 +.00000432 +00000-0 +80931-4 0 00725
+2 25791 024.9842 180.0407 0011095 075.8036 284.3701 14.38929430003528
+FUSE 1
+1 25791U 99035A   99199.21895964 +.00000465 +00000-0 +91252-4 0 00631
+2 25791 024.9840 185.5408 0011075 066.4980 293.6690 14.38929231003393
+FUSE 1
+1 25791U 99035A   99198.17861506 +.00000472 +00000-0 +93642-4 0 00475
+2 25791 024.9844 191.8880 0011017 055.5344 304.6202 14.38928745003245
+FUSE 1
+1 25791U 99035A   99197.20762573 +.00000483 +00000-0 +97242-4 0 00328
+2 25791 024.9845 197.8116 0010965 045.0350 315.1043 14.38928247003108
+FUSE 1
+1 25791U 99035A   99196.16727896 +.00000496 +00000-0 +10136-3 0 00130
+2 25791 024.9848 204.1584 0010927 033.8431 326.2770 14.38927757002952
+FUSE 1
+1 25791U 99035A   99195.40435724  .00000525  00000-0  11052-3 0    76
+2 25791  24.9845 208.8116 0010908  25.8212 334.2838 14.38927498  2842
+FUSE 1
+1 25791U 99035A   99195.26564445 +.00000515 +00000-0 +10744-3 0 00732
+2 25791 024.9847 209.6583 0010905 024.2058 335.8962 14.38927325002821
+FUSE 1
+1 25791U 99035A   99194.22529636 +.00000515 +00000-0 +10742-3 0 00547
+2 25791 024.9849 216.0045 0010895 012.9914 347.0873 14.38926634002672
+FUSE 1
+1 25791U 99035A   99193.18494715 +.00000545 +00000-0 +11704-3 0 00384
+2 25791 024.9850 222.3506 0010896 001.9128 358.1416 14.38926205002526
+FUSE 1
+1 25791U 99035A   99192.14459780 +.00000580 +00000-0 +12797-3 0 00193
+2 25791 024.9850 228.6966 0010908 350.8363 009.1951 14.38925741002370
+FUSE 1
+1 25791U 99035A   99191.24296126  .00000600  00000-0  13459-3 0    61
+2 25791  24.9852 234.1962 0010933 341.3306  18.6794 14.38925220  2248
+FUSE 1
+1 25791U 99035A   99189.57840234 +.00000688 +00000-0 +16244-3 0 00431
+2 25791 024.9847 244.3496 0011003 324.3520 035.6271 14.38924327002005
+FUSE 1
+1 25791U 99035A   99188.53805210 +.00000745 +00000-0 +18074-3 0 00304
+2 25791 024.9847 250.6956 0011082 313.4689 046.4896 14.38923665001857
+FUSE 1
+1 25791U 99035A   99187.56705911 +.00000776 +00000-0 +19053-3 0 00181
+2 25791 024.9847 256.6180 0011114 303.2228 056.7215 14.38922773001717
+FUSE 1
+1 25791U 99035A   99187.22027565  .00000809  00000-0  20103-3 0    57
+2 25791  24.9849 258.7334 0011145 299.6070  60.3328 14.38922625  1666
+FUSE 1
+1 25791U 99035A   99186.59606618 +.00000806 +00000-0 +20001-3 0 00658
+2 25791 024.9848 262.5402 0011144 293.0885 066.8449 14.38921812001577
+FUSE 1
+1 25791U 99035A   99185.55571694 +.00000781 +00000-0 +19209-3 0 00489
+2 25791 024.9850 268.8854 0011179 282.1384 077.7873 14.38920354001427
+FUSE 1
+1 25791U 99035A   99184.58472411 +.00000771 +00000-0 +18889-3 0 00356
+2 25791 024.9851 274.8074 0011210 272.0258 087.8967 14.38919111001282
+FUSE 1
+1 25791U 99035A   99183.61373101 +.00000806 +00000-0 +20014-3 0 00199
+2 25791 024.9851 280.7294 0011202 261.9284 097.9951 14.38918148001148
+FUSE
+1 25791U 99035A   99182.64273781  .00000831  00000-0  20827-3 0    48
+2 25791  24.9852 286.6514 0011228 251.8187 108.1089 14.38917064  1005
+FUSE
+1 25791U 99035A   99181.53303177 +.00000885 +00000-0 +22535-3 0 00326
+2 25791 024.9851 293.4193 0011207 240.2024 119.7372 14.38915842000848
+FUSE
+1 25791U 99035A   99180.42332586 +.00000769 +00000-0 +18844-3 0 00250
+2 25791 024.9851 300.1870 0011210 228.6224 131.3324 14.38913850000688
+FUSE
+1 25791U 99035A   99179.72975929 +.00000701 +00000-0 +16654-3 0 00225
+2 25791 024.9851 304.4168 0011211 221.3620 138.6046 14.38912818000589
+FUSE
+1 25791U 99035A   99178.68940879 +.00000540 +00000-0 +11515-3 0 00070
+2 25791 024.9851 310.7614 0011204 210.4757 149.5099 14.38911405000431
+FUSE
+1 25791U 99035A   99178.55069535  .00000518  00000-0  10814-3 0    39
+2 25791  24.9851 311.6073 0011204 209.0295 150.9590 14.38911233   410
+FUSE
+1 25791U 99035A   99177.92648488 +.00000082 +00000-0 -31136-4 0 00408
+2 25791 024.9853 315.4140 0011227 202.4549 157.5464 14.38909900000324
+FUSE
+1 25791U 99035A   99176.95549150 -.00001333 +00000-0 -48314-3 0 00075
+2 25791 024.9860 321.3361 0010962 190.9807 169.0438 14.38907601000185
diff --git a/src/cal/get_tle/tmp/FUSE.TLE.kruk b/src/cal/get_tle/tmp/FUSE.TLE.kruk
new file mode 100644
index 0000000..a15222b
--- /dev/null
+++ b/src/cal/get_tle/tmp/FUSE.TLE.kruk
@@ -0,0 +1,4578 @@
+FUSE 1
+1 25791U 99035A   03150.22787149  .00000462  00000-0  85706-4 0  8664
+2 25791  24.9829 192.6106 0010589 103.2247 256.9442 14.41342447207158
+FUSE 1
+1 25791U 99035A   03148.56611937  .00000483  00000-0  92184-4 0  8659
+2 25791  24.9829 202.7908 0010554  85.9076 274.2645 14.41341656206911
+FUSE 1
+1 25791U 99035A   03147.52752265 +.00000485 +00000-0 +92660-4 0 08802
+2 25791 024.9829 209.1535 0010502 074.9181 285.2489 14.41341031206764
+FUSE 1
+1 25791U 99035A   03147.25056401  .00000444  00000-0  80285-4 0  8648
+2 25791  24.9832 210.8523 0010387  71.8386 288.3258 14.41340505206727
+FUSE 1
+1 25791U 99035A   03145.65804606  .00000436  00000-0  77914-4 0  8633
+2 25791  24.9834 220.6078 0010334  54.9657 305.1825 14.41339591206493
+FUSE 1
+1 25791U 99035A   03144.55020623  .00000437  00000-0  78023-4 0  8622
+2 25791  24.9834 227.3948 0010384  43.0456 317.0865 14.41338981206335
+FUSE 1
+1 25791U 99035A   03143.51160500  .00000421  00000-0  73254-4 0  8619
+2 25791  24.9837 233.7586 0010263  31.8445 328.2684 14.41338349206180
+FUSE 1
+1 25791U 99035A   03142.68072397 +.00000390 +00000-0 +63795-4 0 08751
+2 25791 024.9839 238.8486 0010272 023.0015 337.0956 14.41337687206064
+FUSE 1
+1 25791U 99035A   03142.33452356  .00000379  00000-0  60393-4 0  8602
+2 25791  24.9841 240.9721 0010255  19.1006 340.9888 14.41337442206011
+FUSE 1
+1 25791U 99035A   03141.71136164 +.00000379 +00000-0 +60626-4 0 08800
+2 25791 024.9840 244.7879 0010278 012.6009 347.4755 14.41337187205922
+FUSE 1
+1 25791U 99035A   03140.74199907  .00000370  00000-0  57735-4 0  8590
+2 25791  24.9841 250.7264 0010336   2.4159 357.6402 14.41336697205787
+FUSE 1
+1 25791U 99035A   03139.77263585 +.00000354 +00000-0 +52942-4 0 08660
+2 25791 024.9844 256.6661 0010354 351.8435 008.1907 14.41336219205647
+FUSE 1
+1 25791U 99035A   03139.56491547  .00000328  00000-0  45098-4 0  8584
+2 25791  24.9847 257.9406 0010399 349.2190  10.8094 14.41335926205617
+FUSE 1
+1 25791U 99035A   03138.73403226 +.00000337 +00000-0 +47751-4 0 08790
+2 25791 024.9846 263.0295 0010413 340.7827 019.2287 14.41335717205491
+FUSE 1
+1 25791U 99035A   03137.76466903  .00000347  00000-0  50863-4 0  8578
+2 25791  24.9846 268.9696 0010450 330.8995  29.0930 14.41335458205358
+FUSE 1
+1 25791U 99035A   03136.65682420  .00000390  00000-0  63870-4 0  8568
+2 25791  24.9845 275.7569 0010467 319.1949  40.7776 14.41335447205197
+FUSE 1
+1 25791U 99035A   03135.68746059 +.00000395 +00000-0 +65459-4 0 08569
+2 25791 024.9844 281.6931 0010472 309.0975 050.8590 14.41335072205053
+FUSE 1
+1 25791U 99035A   03135.54898003  .00000409  00000-0  69659-4 0  8552
+2 25791  24.9844 282.5416 0010458 307.6606  52.2948 14.41335149205036
+FUSE 1
+1 25791U 99035A   03134.51037701 +.00000418 +00000-0 +72356-4 0 08578
+2 25791 024.9842 288.9014 0010448 296.9961 062.9478 14.41334711204883
+FUSE 1
+1 25791U 99035A   03133.88721559  .00000426  00000-0  74642-4 0  8544
+2 25791  24.9841 292.7176 0010439 290.6823  69.2571 14.41334447204792
+FUSE 1
+1 25791U 99035A   03132.84861269 +.00000430 +00000-0 +75920-4 0 08592
+2 25791 024.9841 299.0779 0010500 279.5447 080.3876 14.41333984204649
+FUSE 1
+1 25791U 99035A   03132.57165180  .00000452  00000-0  82534-4 0  8538
+2 25791  24.9840 300.7743 0010474 276.5765  83.3548 14.41334042204600
+FUSE 1
+1 25791U 99035A   03131.87925065 +.00000453 +00000-0 +82898-4 0 08732
+2 25791 024.9839 305.0137 0010463 269.3387 090.5924 14.41333669204502
+FUSE 1
+1 25791U 99035A   03130.90988891  .00000490  00000-0  94080-4 0  8525
+2 25791  24.9837 310.9515 0010487 259.0381 100.8949 14.41333434204367
+FUSE 1
+1 25791U 99035A   03129.87128778  .00000523  00000-0  10424-3 0  8514
+2 25791  24.9835 317.3134 0010521 248.2159 111.7230 14.41333026204210
+FUSE 1
+1 25791U 99035A   03128.90192725 +.00000552 +00000-0 +11296-3 0 08532
+2 25791 024.9833 323.2517 0010552 238.0980 121.8502 14.41332579204072
+FUSE 1
+1 25791U 99035A   03128.83268738  .00000545  00000-0  11086-3 0  8508
+2 25791  24.9833 323.6764 0010568 237.4929 122.4559 14.41332467204067
+FUSE 1
+1 25791U 99035A   03127.93256604 +.00000601 +00000-0 +12794-3 0 08608
+2 25791 024.9830 329.1896 0010698 227.9538 132.0061 14.41332295203934
+FUSE 1
+1 25791U 99035A   03126.96320595  .00000625  00000-0  13528-3 0  8490
+2 25791  24.9830 335.1268 0010736 217.7754 142.2000 14.41331691203793
+FUSE 1
+1 25791U 99035A   03125.92460573  .00000669  00000-0  14867-3 0  8480
+2 25791  24.9827 341.4877 0010781 206.7283 153.2669 14.41331116203649
+FUSE 1
+1 25791U 99035A   03124.95524601 +.00000691 +00000-0 +15516-3 0 08505
+2 25791 024.9825 347.4243 0010785 196.3122 163.7039 14.41330332203501
+FUSE 1
+1 25791U 99035A   03124.88600610  .00000690  00000-0  15495-3 0  8473
+2 25791  24.9826 347.8485 0010786 195.5964 164.4215 14.41330260203492
+FUSE 1
+1 25791U 99035A   03123.91664594 +.00000696 +00000-0 +15682-3 0 08516
+2 25791 024.9825 353.7856 0010797 185.6495 174.3891 14.41329308203356
+FUSE 1
+1 25791U 99035A   03123.84740597  .00000693  00000-0  15596-3 0  8461
+2 25791  24.9825 354.2099 0010797 185.0043 175.0358 14.41329216203347
+FUSE 1
+1 25791U 99035A   03122.11640408  .00000703  00000-0  15884-3 0  8451
+2 25791  24.9822   4.8109 0010810 167.4774 192.6009 14.41327425203095
+FUSE 1
+1 25791U 99035A   03121.07780243  .00000667  00000-0  14783-3 0  8442
+2 25791  24.9822  11.1719 0010728 156.8103 203.2890 14.41325997202941
+FUSE 1
+1 25791U 99035A   03119.96995900 +.00000637 +00000-0 +13898-3 0 08471
+2 25791 024.9824 017.9568 0010660 145.4593 214.6611 14.41324655202780
+FUSE 1
+1 25791U 99035A   03119.90071904  .00000619  00000-0  13339-3 0  8430
+2 25791  24.9826  18.3811 0010636 144.7680 215.3531 14.41324414202771
+FUSE 1
+1 25791U 99035A   03118.86211447  .00000584  00000-0  12289-3 0  8425
+2 25791  24.9826  24.7417 0010559 134.0951 226.0434 14.41323141202622
+FUSE 1
+1 25791U 99035A   03117.96198940 +.00000540 +00000-0 +10940-3 0 08522
+2 25791 024.9829 030.2539 0010497 124.5628 235.5873 14.41321998202493
+FUSE 1
+1 25791U 99035A   03117.20034409  .00000515  00000-0  10194-3 0  8419
+2 25791  24.9829  34.9180 0010485 116.4587 243.7000 14.41321200202384
+FUSE 1
+1 25791U 99035A   03115.88477360  .00000443  00000-0  80015-4 0  8407
+2 25791  24.9830  42.9750 0010371 102.4463 257.7219 14.41319637202197
+FUSE 1
+1 25791U 99035A   03114.98464436 +.00000405 +00000-0 +68282-4 0 08441
+2 25791 024.9831 048.4873 0010313 092.7862 267.3832 14.41318779202065
+FUSE 1
+1 25791U 99035A   03114.84616281  .00000401  00000-0  67228-4 0  8392
+2 25791  24.9830  49.3353 0010321  91.2914 268.8779 14.41318665202046
+FUSE 1
+1 25791U 99035A   03113.94603175 +.00000392 +00000-0 +64358-4 0 08457
+2 25791 024.9830 054.8471 0010295 081.7820 278.3859 14.41318172201911
+FUSE 1
+1 25791U 99035A   03113.25362240  .00000391  00000-0  64235-4 0  8381
+2 25791  24.9829  59.0866 0010297  74.5006 285.6639 14.41317864201815
+FUSE 1
+1 25791U 99035A   03112.97665904 +.00000377 +00000-0 +60036-4 0 08459
+2 25791 024.9831 060.7830 0010270 071.4871 288.6765 14.41317625201778
+FUSE 1
+1 25791U 99035A   03112.21500808  .00000363  00000-0  55711-4 0  8377
+2 25791  24.9831  65.4465 0010279  63.4745 296.6818 14.41317184201660
+FUSE 1
+1 25791U 99035A   03111.17639208  .00000363  00000-0  55548-4 0  8365
+2 25791  24.9830  71.8062 0010279  52.4799 307.6644 14.41316776201510
+FUSE 1
+1 25791U 99035A   03110.96866852 +.00000365 +00000-0 +56405-4 0 08600
+2 25791 024.9830 073.0785 0010262 050.2094 309.9312 14.41316734201489
+FUSE 1
+1 25791U 99035A   03109.58384492 +.00000379 +00000-0 +60572-4 0 08369
+2 25791 024.9829 081.5576 0010264 035.5220 324.5953 14.41316327201288
+FUSE 1
+1 25791U 99035A   03109.37612134  .00000390  00000-0  63811-4 0  8354
+2 25791  24.9831  82.8309 0010191  33.2102 326.9042 14.41316389201252
+FUSE 1
+1 25791U 99035A   03108.33750280  .00000419  00000-0  72748-4 0  8344
+2 25791  24.9833  89.1917 0010176  22.3826 337.7123 14.41316238201101
+FUSE 1
+1 25791U 99035A   03107.22964140  .00000487  00000-0  93318-4 0  8333
+2 25791  24.9837  95.9773 0010052  10.7357 349.3362 14.41316429200940
+FUSE 1
+1 25791U 99035A   03105.98329705 +.00000572 +00000-0 +11935-3 0 08346
+2 25791 024.9839 103.6091 0010055 357.5958 002.4500 14.41316519200765
+FUSE 1
+1 25791U 99035A   03105.42936709  .00000573  00000-0  11956-3 0  8325
+2 25791  24.9839 107.0005 0010053 351.7713   8.2628 14.41316090200681
+FUSE 1
+1 25791U 99035A   03104.39074737  .00000618  00000-0  13316-3 0  8315
+2 25791  24.9841 113.3600 0010076 341.0911  18.9221 14.41315709200539
+FUSE 1
+1 25791U 99035A   03103.83681675 +.00000642 +00000-0 +14053-3 0 08493
+2 25791 024.9841 116.7516 0010112 335.4399 024.5624 14.41315476200452
+FUSE 1
+1 25791U 99035A   03103.21364467  .00000672  00000-0  14956-3 0  8307
+2 25791  24.9843 120.5685 0010100 328.7321  31.2586 14.41315278200363
+FUSE 1
+1 25791U 99035A   03101.89805968  .00000719  00000-0  16399-3 0  8298
+2 25791  24.9841 128.6245 0010100 314.9047  45.0638 14.41314506200177
+FUSE 1
+1 25791U 99035A   03100.72095835  .00000735  00000-0  16862-3 0  8285
+2 25791  24.9823 135.8422 0010255 300.3804  59.5679 14.41313234200009
+FUSE 1
+1 25791U 99035A   03099.95930502 +.00000731 +00000-0 +16758-3 0 08321
+2 25791 024.9822 140.5054 0010257 292.8087 067.1336 14.41312329199895
+FUSE 1
+1 25791U 99035A   03099.54386033  .00000758  00000-0  17568-3 0  8273
+2 25791  24.9817 143.0635 0010123 287.3571  72.5830 14.41312013199834
+FUSE 1
+1 25791U 99035A   03098.92068851 +.00000723 +00000-0 +16491-3 0 08499
+2 25791 024.9816 146.8804 0010159 280.5747 079.3533 14.41310909199748
+FUSE 1
+1 25791U 99035A   03098.22827686  .00000751  00000-0  17368-3 0  8261
+2 25791  24.9821 151.1234 0010310 272.8590  87.0746 14.41310499199644
+FUSE 1
+1 25791U 99035A   03097.18965913  .00000710  00000-0  16100-3 0  8258
+2 25791  24.9822 157.4830 0010353 261.6244  98.3091 14.41308833199495
+FUSE 1
+1 25791U 99035A   03095.94331601  .00000705  00000-0  15943-3 0  8248
+2 25791  24.9828 165.1153 0010485 248.0340 111.9051 14.41307527199315
+FUSE 1
+1 25791U 99035A   03094.55849177  .00000687  00000-0  15400-3 0  8232
+2 25791  24.9837 173.5981 0010507 233.7648 126.1888 14.41305878199115
+FUSE 1
+1 25791U 99035A   03093.79684032 +.00000617 +00000-0 +13296-3 0 08340
+2 25791 024.9830 178.2689 0010658 225.6842 134.2806 14.41303892199000
+FUSE 1
+1 25791U 99035A   03093.45063419  .00000588  00000-0  12399-3 0  8220
+2 25791  24.9830 180.3890 0010661 222.1502 137.8185 14.41303261198959
+FUSE 1
+1 25791U 99035A   03092.06580825  .00000498  00000-0  96689-4 0  8215
+2 25791  24.9829 188.8687 0010595 207.4856 152.5026 14.41301203198758
+FUSE 1
+1 25791U 99035A   03090.88870503  .00000512  00000-0  10095-3 0  8200
+2 25791  24.9830 196.0770 0010689 195.3984 164.6200 14.41300573198583
+FUSE 1
+1 25791U 99035A   03089.91932625 +.00000473 +00000-0 +89013-4 0 08355
+2 25791 024.9831 202.0132 0010707 185.2549 174.7855 14.41299501198441
+FUSE 1
+1 25791U 99035A   03089.57311974  .00000447  00000-0  81025-4 0  8193
+2 25791  24.9832 204.1347 0010678 181.8480 178.1989 14.41298969198393
+FUSE 1
+1 25791U 99035A   03088.18829319  .00000422  00000-0  73584-4 0  8189
+2 25791  24.9836 212.6159 0010751 167.8506 192.2415 14.41297973198190
+FUSE 1
+1 25791U 99035A   03087.14967143  .00000439  00000-0  78641-4 0  8178
+2 25791  24.9834 218.9892 0010499 154.7731 205.3306 14.41297621198044
+FUSE 1
+1 25791U 99035A   03086.94194663 +.00000428 +00000-0 +75286-4 0 08488
+2 25791 024.9835 220.2611 0010504 152.4498 207.6568 14.41297416198016
+FUSE 1
+1 25791U 99035A   03085.90332252  .00000414  00000-0  71085-4 0  8164
+2 25791  24.9838 226.6261 0010293 142.1870 217.9362 14.41296881197868
+FUSE 1
+1 25791U 99035A   03085.90332251 +.00000414 +00000-0 +71084-4 0 08173
+2 25791 024.9838 226.6261 0010293 142.1870 217.9361 14.41296881197867
+FUSE 1
+1 25791U 99035A   03084.86469882  .00000343  00000-0  49516-4 0  8152
+2 25791  24.9847 232.9875 0010201 130.8102 229.3297 14.41295801197719
+FUSE 1
+1 25791U 99035A   03083.89531250 +.00000489 +00000-0 +93920-4 0 08321
+2 25791 024.9844 238.9268 0010672 122.1781 237.9761 14.41296727197570
+FUSE 1
+1 25791U 99035A   03083.54910375  .00000503  00000-0  98232-4 0  8140
+2 25791  24.9844 241.0479 0010701 118.5123 241.6462 14.41296648197528
+FUSE 1
+1 25791U 99035A   03082.92592724 +.00000523 +00000-0 +10446-3 0 08451
+2 25791 024.9843 244.8641 0010700 112.2904 247.8737 14.41296449197438
+FUSE 1
+1 25791U 99035A   03082.16426759  .00000526  00000-0  10521-3 0  8133
+2 25791  24.9841 249.5294 0010669 104.2866 255.8838 14.41295912197327
+FUSE 1
+1 25791U 99035A   03081.12563750  .00000612  00000-0  13128-3 0  8122
+2 25791  24.9842 255.8923 0010711  94.3078 265.8647 14.41296014197175
+FUSE 1
+1 25791U 99035A   03079.87928172  .00000670  00000-0  14898-3 0  8112
+2 25791  24.9845 263.5260 0010772  80.9467 279.2259 14.41295470196990
+FUSE 1
+1 25791U 99035A   03078.90989285 +.00000680 +00000-0 +15204-3 0 08356
+2 25791 024.9842 269.4617 0010753 070.0356 290.1308 14.41294541196854
+FUSE 1
+1 25791U 99035A   03078.56368187  .00000702  00000-0  15885-3 0  8103
+2 25791  24.9840 271.5817 0010757  66.2560 293.9075 14.41294387196801
+FUSE 1
+1 25791U 99035A   03077.17883857  .00000638  00000-0  13930-3 0  8090
+2 25791  24.9843 280.0617 0010654  50.7889 309.3564 14.41292379196607
+FUSE 1
+1 25791U 99035A   03076.14020216  .00000782  00000-0  18324-3 0  8089
+2 25791  24.9848 286.4255 0010468  43.0582 317.0743 14.41292815196451
+FUSE 1
+1 25791U 99035A   03074.89383969  .00000825  00000-0  19632-3 0  8076
+2 25791  24.9853 294.0604 0010385  30.7066 329.4048 14.41291731196279
+FUSE 1
+1 25791U 99035A   03073.43974802  .00000854  00000-0  20497-3 0  8069
+2 25791  24.9852 302.9660 0010367  15.2865 344.7954 14.41290069196060
+FUSE 1
+1 25791U 99035A   03072.19338203  .00000856  00000-0  20554-3 0  8055
+2 25791  24.9854 310.5981 0010287   2.1680 357.8866 14.41288422195880
+FUSE 1
+1 25791U 99035A   03071.08550087  .00000818  00000-0  19402-3 0  8045
+2 25791  24.9860 317.3842 0010263 349.9948  10.0353 14.41286657195721
+FUSE 1
+1 25791U 99035A   03069.97761880 +.00000763 +00000-0 +17745-3 0 08086
+2 25791 024.9860 324.1683 0010236 338.1839 021.8232 14.41284751195560
+FUSE 1
+1 25791U 99035A   03069.90837617  .00000758  00000-0  17585-3 0  8032
+2 25791  24.9860 324.5922 0010236 337.4031  22.6028 14.41284617195558
+FUSE 1
+1 25791U 99035A   03068.93897780 +.00000723 +00000-0 +16521-3 0 08098
+2 25791 024.9864 330.5285 0010290 326.4566 033.5291 14.41283191195416
+FUSE 1
+1 25791U 99035A   03068.86973524  .00000716  00000-0  16303-3 0  8024
+2 25791  24.9864 330.9527 0010287 325.7078  34.2768 14.41283044195408
+FUSE 1
+1 25791U 99035A   03067.55412264  .00000656  00000-0  14496-3 0  8011
+2 25791  24.9864 339.0080 0010311 311.6370  48.3251 14.41281081195210
+FUSE 1
+1 25791U 99035A   03066.44623884  .00000578  00000-0  12112-3 0  8005
+2 25791  24.9864 345.7927 0010333 299.7399  60.2082 14.41279280195050
+FUSE 1
+1 25791U 99035A   03065.40759665  .00000526  00000-0  10514-3 0  7991
+2 25791  24.9863 352.1521 0010350 288.8170  71.1215 14.41277936194904
+FUSE 1
+1 25791U 99035A   03064.23046813  .00000487  00000-0  93421-4 0  7989
+2 25791  24.9864 359.3605 0010411 275.9615  83.9706 14.41276773194731
+FUSE 1
+1 25791U 99035A   03062.98409806 +.00000428 +00000-0 +75413-4 0 08015
+2 25791 024.9863 006.9942 0010426 262.5976 097.3348 14.41275346194553
+FUSE 1
+1 25791U 99035A   03062.91485526  .00000425  00000-0  74460-4 0  7973
+2 25791  24.9862   7.4181 0010421 261.8604  98.0722 14.41275270194547
+FUSE 1
+1 25791U 99035A   03061.94545741 +.00000420 +00000-0 +73017-4 0 08008
+2 25791 024.9848 013.3688 0010509 252.6434 107.2924 14.41274844194403
+FUSE 1
+1 25791U 99035A   03061.66848589  .00000420  00000-0  73002-4 0  7961
+2 25791  24.9848  15.0645 0010505 249.7386 110.1988 14.41274707194360
+FUSE 1
+1 25791U 99035A   03060.49135828  .00000388  00000-0  63176-4 0  7959
+2 25791  24.9852  22.2747 0010610 237.5708 122.3771 14.41273890194196
+FUSE 1
+1 25791U 99035A   03059.24498747  .00000395  00000-0  65325-4 0  7947
+2 25791  24.9851  29.9090 0010713 224.4424 135.5221 14.41273446194018
+FUSE 1
+1 25791U 99035A   03058.96801613 +.00000410 +00000-0 +70039-4 0 08335
+2 25791 024.9848 031.6055 0010711 221.6605 138.3087 14.41273447193979
+FUSE 1
+1 25791U 99035A   03057.79088784  .00000466  00000-0  86878-4 0  7935
+2 25791  24.9852  38.8148 0010787 209.3160 150.6743 14.41273450193800
+FUSE 1
+1 25791U 99035A   03056.75224577  .00000511  00000-0  10064-3 0  7925
+2 25791  24.9849  45.1756 0010796 198.5017 161.5097 14.41273260193657
+FUSE 1
+1 25791U 99035A   03055.71360371  .00000543  00000-0  11053-3 0  7916
+2 25791  24.9851  51.5371 0010893 187.8825 172.1502 14.41272912193506
+FUSE 1
+1 25791U 99035A   03054.81344706 +.00000592 +00000-0 +12526-3 0 07943
+2 25791 024.9854 057.0504 0010975 178.3725 181.6813 14.41272772193372
+FUSE 1
+1 25791U 99035A   03054.53647601  .00000595  00000-0  12630-3 0  7907
+2 25791  24.9855  58.7463 0010996 175.5448 184.5158 14.41272591193338
+FUSE 1
+1 25791U 99035A   03053.22086164  .00000648  00000-0  14239-3 0  7897
+2 25791  24.9854  66.8027 0011082 162.1387 197.9511 14.41272079193145
+FUSE 1
+1 25791U 99035A   03052.18221916  .00000654  00000-0  14422-3 0  7887
+2 25791  24.9857  73.1612 0010974 150.9371 209.1749 14.41271157192993
+FUSE 1
+1 25791U 99035A   03051.69751897 +.00000653 +00000-0 +14404-3 0 08192
+2 25791 024.9857 076.1286 0010974 145.8259 214.2956 14.41270685192926
+FUSE 1
+1 25791U 99035A   03050.86660284  .00000682  00000-0  15278-3 0  7875
+2 25791  24.9852  81.2163 0010966 137.4487 222.6871 14.41270247192803
+FUSE 1
+1 25791U 99035A   03049.55098927  .00000679  00000-0  15178-3 0  7862
+2 25791  24.9830  89.2921 0010776 123.5065 236.6474 14.41268750192615
+FUSE 1
+1 25791U 99035A   03046.91974757  .00000708  00000-0  16072-3 0  7848
+2 25791  24.9828 105.4061 0010755  96.1405 264.0326 14.41266314192231
+FUSE 1
+1 25791U 99035A   03045.81185480  .00000675  00000-0  15076-3 0  7838
+2 25791  24.9829 112.1925 0010804  84.5002 275.6738 14.41264829192071
+FUSE 1
+1 25791U 99035A   03044.56547187  .00000671  00000-0  14933-3 0  7821
+2 25791  24.9825 119.8235 0010884  72.1647 288.0048 14.41263465191897
+FUSE 1
+1 25791U 99035A   03043.87303595 +.00000663 +00000-0 +14707-3 0 08086
+2 25791 024.9823 124.0647 0010837 064.8117 295.3515 14.41262691191797
+FUSE 1
+1 25791U 99035A   03043.24984329  .00000652  00000-0  14385-3 0  7817
+2 25791  24.9824 127.8828 0010807  58.4950 301.6614 14.41261995191709
+FUSE 1
+1 25791U 99035A   03042.07269992  .00000613  00000-0  13188-3 0  7805
+2 25791  24.9827 135.0921 0010730  46.2939 313.8459 14.41260560191534
+FUSE 1
+1 25791U 99035A   03040.82631031  .00000590  00000-0  12473-3 0  7791
+2 25791  24.9825 142.7255 0010676  33.4461 326.6705 14.41259243191356
+FUSE 1
+1 25791U 99035A   03039.57991945  .00000595  00000-0  12637-3 0  7780
+2 25791  24.9832 150.3613 0010568  20.6980 339.3959 14.41258343191173
+FUSE 1
+1 25791U 99035A   03038.54125940  .00000562  00000-0  11637-3 0  7772
+2 25791  24.9831 156.7218 0010533   9.4132 350.6584 14.41257190191022
+FUSE 1
+1 25791U 99035A   03037.01788880  .00000562  00000-0  11641-3 0  7765
+2 25791  24.9831 166.0494 0010450 353.4940   6.5445 14.41256054190805
+FUSE 1
+1 25791U 99035A   03035.90998290 +.00000529 +00000-0 +10615-3 0 07762
+2 25791 024.9834 172.8362 0010444 341.3662 018.6462 14.41254945190649
+FUSE 1
+1 25791U 99035A   03035.84073869  .00000529  00000-0  10615-3 0  7750
+2 25791  24.9834 173.2601 0010444 340.6394  19.3715 14.41254896190637
+FUSE 1
+1 25791U 99035A   03034.94056470 +.00000514 +00000-0 +10178-3 0 07937
+2 25791 024.9830 178.7729 0010445 331.0545 028.9383 14.41254106190504
+FUSE 1
+1 25791U 99035A   03034.59434384  .00000508  00000-0  99976-4 0  7748
+2 25791  24.9829 180.8929 0010469 327.4109  32.5752 14.41253798190450
+FUSE 1
+1 25791U 99035A   03033.55568063  .00000512  00000-0  10098-3 0  7736
+2 25791  24.9832 187.2531 0010490 316.1247  43.8429 14.41253174190304
+FUSE 1
+1 25791U 99035A   03032.24004087  .00000509  00000-0  10030-3 0  7723
+2 25791  24.9833 195.3101 0010479 301.8051  58.1431 14.41252308190118
+FUSE 1
+1 25791U 99035A   03031.13213438  .00000500  00000-0  97473-4 0  7719
+2 25791  24.9834 202.0943 0010489 289.8402  70.0976 14.41251485189957
+FUSE 1
+1 25791U 99035A   03029.95498370 +.00000507 +00000-0 +99455-4 0 07726
+2 25791 024.9833 209.3044 0010568 277.2138 082.7170 14.41250807189787
+FUSE 1
+1 25791U 99035A   03029.88573951  .00000506  00000-0  99284-4 0  7704
+2 25791  24.9834 209.7284 0010567 276.4676  83.4627 14.41250759189775
+FUSE 1
+1 25791U 99035A   03028.91632543 +.00000457 +00000-0 +84396-4 0 07714
+2 25791 024.9829 215.6872 0010688 267.6409 092.2873 14.41250112189637
+FUSE 1
+1 25791U 99035A   03028.84708138  .00000459  00000-0  84922-4 0  7694
+2 25791  24.9829 216.1111 0010685 266.8899  93.0390 14.41250090189627
+FUSE 1
+1 25791U 99035A   03027.94690786 +.00000485 +00000-0 +92887-4 0 07916
+2 25791 024.9829 221.6256 0010733 257.2339 102.6968 14.41249791189494
+FUSE 1
+1 25791U 99035A   03027.39295481  .00000522  00000-0  10395-3 0  7687
+2 25791  24.9825 225.0181 0010750 251.6346 108.2992 14.41249718189410
+FUSE 1
+1 25791U 99035A   03026.90824636 +.00000535 +00000-0 +10794-3 0 07938
+2 25791 024.9827 227.9872 0010755 246.4607 113.4770 14.41249533189346
+FUSE 1
+1 25791U 99035A   03026.21580544  .00000600  00000-0  12773-3 0  7672
+2 25791  24.9822 232.2291 0010751 239.2471 120.6976 14.41249537189241
+FUSE 1
+1 25791U 99035A   03024.90017016  .00000620  00000-0  13395-3 0  7667
+2 25791  24.9825 240.2875 0010606 224.5201 135.4454 14.41248661189059
+FUSE 1
+1 25791U 99035A   03023.86150943  .00000683  00000-0  15306-3 0  7650
+2 25791  24.9823 246.6490 0010698 213.6230 146.3601 14.41248266188901
+FUSE 1
+1 25791U 99035A   03022.96133739 +.00000720 +00000-0 +16435-3 0 07885
+2 25791 024.9822 252.1619 0010714 203.8994 156.1017 14.41247660188774
+FUSE 1
+1 25791U 99035A   03022.47662920  .00000753  00000-0  17422-3 0  7647
+2 25791  24.9818 255.1315 0010728 199.1571 160.8533 14.41247360188703
+FUSE 1
+1 25791U 99035A   03021.23023620  .00000814  00000-0  19309-3 0  7631
+2 25791  24.9818 262.7649 0010872 186.1483 173.8893 14.41246466188524
+FUSE 1
+1 25791U 99035A   03020.19157559  .00000839  00000-0  20070-3 0  7627
+2 25791  24.9818 269.1258 0010854 175.1951 184.8664 14.41245346188376
+FUSE 1
+1 25791U 99035A   03019.15291393  .00000874  00000-0  21118-3 0  7618
+2 25791  24.9818 275.4875 0010879 164.2609 195.8238 14.41244267188221
+FUSE 1
+1 25791U 99035A   03017.90651918  .00000882  00000-0  21358-3 0  7606
+2 25791  24.9820 283.1229 0010889 151.5092 208.6013 14.41242588188047
+FUSE 1
+1 25791U 99035A   03016.86785572  .00000849  00000-0  20352-3 0  7598
+2 25791  24.9821 289.4833 0010877 140.6893 219.4408 14.41240829187899
+FUSE 1
+1 25791U 99035A   03015.96767820 +.00000843 +00000-0 +20187-3 0 07628
+2 25791 024.9820 294.9922 0010992 131.6564 228.4886 14.41239598187768
+FUSE 1
+1 25791U 99035A   03015.41372249  .00000840  00000-0  20100-3 0  7582
+2 25791  24.9820 298.3836 0010997 125.8349 234.3181 14.41238834187688
+FUSE 1
+1 25791U 99035A   03014.23656622  .00000784  00000-0  18395-3 0  7570
+2 25791  24.9824 305.5944 0010955 113.8675 246.2990 14.41236827187518
+FUSE 1
+1 25791U 99035A   03013.19789667  .00000698  00000-0  15769-3 0  7565
+2 25791  24.9829 311.9557 0010860 103.1125 257.0596 14.41234894187368
+FUSE 1
+1 25791U 99035A   03012.92091841 +.00000651 +00000-0 +14337-3 0 07913
+2 25791 024.9830 313.6530 0010837 100.3922 259.7809 14.41234171187328
+FUSE 1
+1 25791U 99035A   03011.95149077 +.00000591 +00000-0 +12511-3 0 07599
+2 25791 024.9833 319.5894 0010774 090.1943 269.9802 14.41232741187189
+FUSE 1
+1 25791U 99035A   03011.88224586  .00000585  00000-0  12347-3 0  7556
+2 25791  24.9834 320.0134 0010776  89.4952 270.6791 14.41232635187174
+FUSE 1
+1 25791U 99035A   03010.49734521  .00000571  00000-0  11922-3 0  7549
+2 25791  24.9836 328.4940 0010755  75.1825 284.9873 14.41231417186974
+FUSE 1
+1 25791U 99035A   03009.38942288  .00000562  00000-0  11651-3 0  7534
+2 25791  24.9838 335.2793 0010726  63.5938 296.5669 14.41230504186813
+FUSE 1
+1 25791U 99035A   03008.21225405  .00000536  00000-0  10847-3 0  7526
+2 25791  24.9841 342.4893 0010658  51.4879 308.6589 14.41229428186642
+FUSE 1
+1 25791U 99035A   03007.17357430  .00000496  00000-0  96283-4 0  7517
+2 25791  24.9846 348.8510 0010606  40.2151 319.9146 14.41228391186490
+FUSE 1
+1 25791U 99035A   03005.71941978  .00000492  00000-0  95196-4 0  7508
+2 25791  24.9848 357.7568 0010489  25.1948 334.9069 14.41227497186283
+FUSE 1
+1 25791U 99035A   03004.54224559  .00000519  00000-0  10345-3 0  7497
+2 25791  24.9849   4.9669 0010381  12.5994 347.4773 14.41226999186118
+FUSE 1
+1 25791U 99035A   03003.22657791  .00000659  00000-0  14583-3 0  7481
+2 25791  24.9844  13.0234 0010171 358.9129   1.1355 14.41227192185920
+FUSE 1
+1 25791U 99035A   03001.70317381 +.00000783 +00000-0 +18366-3 0 07470
+2 25791 024.9836 022.3505 0010142 342.3951 017.6202 14.41226616185702
+FUSE 1
+1 25791U 99035A   02365.66448900  .00000905  00000-0  22093-3 0  7466
+2 25791  24.9828  28.7111 0010120 331.1925  28.8023 14.41226254185555
+FUSE 1
+1 25791U 99035A   02364.55655917  .00001003  00000-0  25056-3 0  7452
+2 25791  24.9823  35.4963 0010124 319.5885  40.3870 14.41225360185397
+FUSE 1
+1 25791U 99035A   02363.24089208  .00001123  00000-0  28737-3 0  7442
+2 25791  24.9817  43.5541 0010043 305.4795  54.4774 14.41224128185206
+FUSE 1
+1 25791U 99035A   02361.85597983  .00001182  00000-0  30525-3 0  7433
+2 25791  24.9811  52.0336 0010047 290.8057  69.1372 14.41221885185001
+FUSE 1
+1 25791U 99035A   02360.81729577  .00001190  00000-0  30775-3 0  7429
+2 25791  24.9811  58.3946 0010013 279.4423  80.4952 14.41219863184855
+FUSE 1
+1 25791U 99035A   02359.98634816 +.00001193 +00000-0 +30865-3 0 07531
+2 25791 024.9811 063.4834 0010006 270.4269 089.5092 14.41218193184736
+FUSE 1
+1 25791U 99035A   02359.57087417  .00001197  00000-0  30966-3 0  7418
+2 25791  24.9812  66.0284 0010007 265.9037  94.0326 14.41217390184670
+FUSE 1
+1 25791U 99035A   02356.87029074  .00001204  00000-0  31182-3 0  7390
+2 25791  24.9811  82.5668 0009938 236.3646 123.5914 14.41211956184287
+FUSE 1
+1 25791U 99035A   02355.55462023  .00001090  00000-0  27728-3 0  7382
+2 25791  24.9809  90.6214 0010165 222.2949 137.6776 14.41208399184093
+FUSE 1
+1 25791U 99035A   02354.51593217  .00001046  00000-0  26390-3 0  7371
+2 25791  24.9811  96.9840 0010179 211.0308 148.9598 14.41206118183947
+FUSE 1
+1 25791U 99035A   02353.13101277  .00001006  00000-0  25162-3 0  7360
+2 25791  24.9814 105.4674 0010149 196.0465 163.9721 14.41203384183749
+FUSE 1
+1 25791U 99035A   02351.95382922 +.00000934 +00000-0 +22963-3 0 07372
+2 25791 024.9817 112.6764 0010197 184.0228 176.0200 14.41200867183570
+FUSE 1
+1 25791U 99035A   02351.88458303  .00000934  00000-0  22971-3 0  7358
+2 25791  24.9817 113.1005 0010193 183.2930 176.7513 14.41200763183569
+FUSE 1
+1 25791U 99035A   02350.91513627 +.00000904 +00000-0 +22045-3 0 07519
+2 25791 024.9819 119.0445 0010562 174.0065 186.0569 14.41199099183420
+FUSE 1
+1 25791U 99035A   02350.56890542  .00000886  00000-0  21508-3 0  7347
+2 25791  24.9818 121.1673 0010554 170.6826 189.3879 14.41198405183378
+FUSE 1
+1 25791U 99035A   02349.11473244  .00000853  00000-0  20507-3 0  7333
+2 25791  24.9823 130.0779 0010595 156.0675 204.0329 14.41196121183160
+FUSE 1
+1 25791U 99035A   02347.86829613  .00000843  00000-0  20210-3 0  7327
+2 25791  24.9826 137.7176 0010579 143.6291 216.4936 14.41194381182982
+FUSE 1
+1 25791U 99035A   02346.96809054 +.00000846 +00000-0 +20310-3 0 07328
+2 25791 024.9827 143.2322 0010589 134.4622 225.6760 14.41193196182851
+FUSE 1
+1 25791U 99035A   02346.82959720  .00000840  00000-0  20129-3 0  7310
+2 25791  24.9828 144.0807 0010580 133.0588 227.0808 14.41192967182838
+FUSE 1
+1 25791U 99035A   02345.92939017 +.00000816 +00000-0 +19371-3 0 07418
+2 25791 024.9830 149.5942 0010509 123.9678 236.1843 14.41191589182705
+FUSE 1
+1 25791U 99035A   02345.58315657  .00000792  00000-0  18653-3 0  7301
+2 25791  24.9831 151.7183 0010408 120.6946 239.4591 14.41190929182655
+FUSE 1
+1 25791U 99035A   02344.89068773 +.00000785 +00000-0 +18451-3 0 07429
+2 25791 024.9831 155.9574 0010423 113.3541 246.8055 14.41190019182558
+FUSE 1
+1 25791U 99035A   02344.54445368  .00000789  00000-0  18568-3 0  7298
+2 25791  24.9831 158.0799 0010476 110.1229 250.0410 14.41189637182508
+FUSE 1
+1 25791U 99035A   02343.15951322  .00000783  00000-0  18396-3 0  7288
+2 25791  24.9834 166.5623 0010426  96.2869 263.8829 14.41187968182309
+FUSE 1
+1 25791U 99035A   02342.88252492 +.00000775 +00000-0 +18152-3 0 07460
+2 25791 024.9835 168.2588 0010398 093.2895 266.8803 14.41187559182269
+FUSE 1
+1 25791U 99035A   02341.98231177  .00000761  00000-0  17708-3 0  7277
+2 25791  24.9836 173.7711 0010366  83.7509 276.4178 14.41186369182136
+FUSE 1
+1 25791U 99035A   02340.87435475  .00000768  00000-0  17944-3 0  7269
+2 25791  24.9836 180.5545 0010319  72.0817 288.0815 14.41185129181979
+FUSE 1
+1 25791U 99035A   02339.90489123 +.00000743 +00000-0 +17159-3 0 07373
+2 25791 024.9838 186.4897 0010302 061.8181 298.3364 14.41183804181834
+FUSE 1
+1 25791U 99035A   02339.00467365  .00000760  00000-0  17694-3 0  7258
+2 25791  24.9837 192.0009 0010340  52.4233 307.7215 14.41182886181702
+FUSE 1
+1 25791U 99035A   02337.96595978 +.00000747 +00000-0 +17292-3 0 07274
+2 25791 024.9838 198.3601 0010349 041.4682 318.6611 14.41181581181550
+FUSE 1
+1 25791U 99035A   02337.89671225  .00000735  00000-0  16930-3 0  7248
+2 25791  24.9838 198.7841 0010344  40.6825 319.4454 14.41181406181544
+FUSE 1
+1 25791U 99035A   02336.92724431 +.00000730 +00000-0 +16784-3 0 07263
+2 25791 024.9839 204.7190 0010345 030.4753 329.6355 14.41180304181402
+FUSE 1
+1 25791U 99035A   02336.85799660  .00000726  00000-0  16666-3 0  7232
+2 25791  24.9840 205.1432 0010343  29.6910 330.4183 14.41180198181399
+FUSE 1
+1 25791U 99035A   02335.95777534 +.00000723 +00000-0 +16574-3 0 07378
+2 25791 024.9840 210.6541 0010353 020.2600 339.8318 14.41179182181265
+FUSE 1
+1 25791U 99035A   02335.12680126  .00000724  00000-0  16595-3 0  7225
+2 25791  24.9839 215.7423 0010346  11.4473 348.6270 14.41178242181148
+FUSE 1
+1 25791U 99035A   02333.88033836  .00000777  00000-0  18215-3 0  7214
+2 25791  24.9838 223.3729 0010367 358.4414   1.6064 14.41177194180964
+FUSE 1
+1 25791U 99035A   02332.21838680  .00000738  00000-0  17012-3 0  7200
+2 25791  24.9840 233.5483 0010369 340.4562  19.5551 14.41175004180725
+FUSE 1
+1 25791U 99035A   02330.97192266 +.00000736 +00000-0 +16945-3 0 07228
+2 25791 024.9841 241.1847 0010383 327.1955 032.7907 14.41173576180543
+FUSE 1
+1 25791U 99035A   02330.90267454  .00000744  00000-0  17204-3 0  7197
+2 25791  24.9842 241.6086 0010384 326.4698  33.5151 14.41173549180530
+FUSE 1
+1 25791U 99035A   02329.93320137 +.00000795 +00000-0 +18754-3 0 07238
+2 25791 024.9841 247.5450 0010325 316.0567 043.9119 14.41172687180399
+FUSE 1
+1 25791U 99035A   02329.86395339  .00000793  00000-0  18694-3 0  7181
+2 25791  24.9841 247.9690 0010320 315.3599  44.6079 14.41172585180380
+FUSE 1
+1 25791U 99035A   02328.96372831 +.00000874 +00000-0 +21177-3 0 07262
+2 25791 024.9839 253.4818 0010301 306.0731 053.8822 14.41171745180256
+FUSE 1
+1 25791U 99035A   02328.47899189  .00000852  00000-0  20479-3 0  7178
+2 25791  24.9839 256.4492 0010283 300.9882  58.9620 14.41170988180188
+FUSE 1
+1 25791U 99035A   02327.23252631  .00000997  00000-0  24907-3 0  7165
+2 25791  24.9837 264.0850 0010209 287.9702  71.9692 14.41169674180007
+FUSE 1
+1 25791U 99035A   02325.91681241  .00001075  00000-0  27280-3 0  7155
+2 25791  24.9835 272.1466 0010275 274.0090  85.9246 14.41167756179814
+FUSE 1
+1 25791U 99035A   02324.94733872 +.00001074 +00000-0 +27250-3 0 07151
+2 25791 024.9837 278.0849 0010343 263.9267 096.0064 14.41166020179673
+FUSE 1
+1 25791U 99035A   02324.67034596  .00001073  00000-0  27216-3 0  7148
+2 25791  24.9837 279.7804 0010340 261.0175  98.9158 14.41165514179634
+FUSE 1
+1 25791U 99035A   02323.97786359 +.00001085 +00000-0 +27593-3 0 07186
+2 25791 024.9834 284.0218 0010561 253.2107 106.7242 14.41164354179534
+FUSE 1
+1 25791U 99035A   02323.56237448  .00001085  00000-0  27595-3 0  7138
+2 25791  24.9834 286.5654 0010546 248.8875 111.0502 14.41163593179475
+FUSE 1
+1 25791U 99035A   02322.24665714  .00001162  00000-0  29927-3 0  7129
+2 25791  24.9833 294.6241 0010703 233.4813 126.4702 14.41161870179280
+FUSE 1
+1 25791U 99035A   02321.20793280  .00001220  00000-0  31720-3 0  7112
+2 25791  24.9829 300.9847 0010808 222.5858 137.3810 14.41160264179133
+FUSE 1
+1 25791U 99035A   02319.40747635  .00001263  00000-0  33024-3 0  7109
+2 25791  24.9825 312.0065 0010876 203.7169 156.2843 14.41156787178877
+FUSE 1
+1 25791U 99035A   02318.64574421 +.00001273 +00000-0 +33320-3 0 07183
+2 25791 024.9823 316.6719 0010904 195.8401 164.1766 14.41155172178760
+FUSE 1
+1 25791U 99035A   02317.81476349 +.00001220 +00000-0 +31728-3 0 07352
+2 25791 024.9826 321.7601 0010933 187.6105 172.4237 14.41152903178643
+FUSE 1
+1 25791U 99035A   02316.84528386  .00001225  00000-0  31884-3 0  7081
+2 25791  24.9827 327.6980 0010976 177.5120 182.5438 14.41150915178502
+FUSE 1
+1 25791U 99035A   02315.59880787  .00001242  00000-0  32394-3 0  7073
+2 25791  24.9825 335.3293 0011048 164.4233 195.6623 14.41148412178324
+FUSE 1
+1 25791U 99035A   02314.69857361 +.00001241 +00000-0 +32373-3 0 07071
+2 25791 024.9823 340.8415 0011033 155.1164 204.9876 14.41146449178190
+FUSE 1
+1 25791U 99035A   02314.56007609  .00001242  00000-0  32393-3 0  7061
+2 25791  24.9823 341.6892 0011038 153.6592 206.4489 14.41146160178176
+FUSE 1
+1 25791U 99035A   02313.24434699  .00001193  00000-0  30916-3 0  7051
+2 25791  24.9828 349.7471 0011087 140.1634 219.9694 14.41143010177981
+FUSE 1
+1 25791U 99035A   02312.20561116  .00001132  00000-0  29035-3 0  7043
+2 25791  24.9834 356.1079 0011110 129.7443 230.4048 14.41140389177833
+FUSE 1
+1 25791U 99035A   02311.92861422 +.00001126 +00000-0 +28868-3 0 07309
+2 25791 024.9835 357.8035 0011119 126.7910 233.3617 14.41139808177792
+FUSE 1
+1 25791U 99035A   02310.95912468 +.00001083 +00000-0 +27550-3 0 07048
+2 25791 024.9837 003.7403 0011086 116.7489 243.4157 14.41137566177658
+FUSE 1
+1 25791U 99035A   02310.82062580  .00001082  00000-0  27519-3 0  7038
+2 25791  24.9837   4.5881 0011089 115.2851 244.8806 14.41137305177632
+FUSE 1
+1 25791U 99035A   02309.78188408 +.00001035 +00000-0 +26086-3 0 07068
+2 25791 024.9840 010.9478 0011067 104.2526 255.9212 14.41135021177482
+FUSE 1
+1 25791U 99035A   02309.57413526  .00001031  00000-0  25964-3 0  7023
+2 25791  24.9841  12.2196 0011058 102.0689 258.1059 14.41134631177458
+FUSE 1
+1 25791U 99035A   02308.67388968 +.00001007 +00000-0 +25233-3 0 07048
+2 25791 024.9841 017.7307 0011071 092.5180 267.6595 14.41132871177326
+FUSE 1
+1 25791U 99035A   02308.53539014  .00001005  00000-0  25166-3 0  7013
+2 25791  24.9842  18.5786 0011066  91.0739 269.1037 14.41132629177302
+FUSE 1
+1 25791U 99035A   02307.08114362  .00000944  00000-0  23310-3 0  7006
+2 25791  24.9847  27.4838 0011100  76.0546 284.1186 14.41129780177094
+FUSE 1
+1 25791U 99035A   02306.04239290  .00000935  00000-0  23046-3 0  6992
+2 25791  24.9847  33.8456 0011062  65.0552 295.1089 14.41128082176944
+FUSE 1
+1 25791U 99035A   02304.86513927  .00000956  00000-0  23688-3 0  6986
+2 25791  24.9847  41.0556 0010946  52.9833 307.1674 14.41126496176775
+FUSE 1
+1 25791U 99035A   02303.89563460 +.00000960 +00000-0 +23806-3 0 06982
+2 25791 024.9849 046.9935 0010898 043.0452 317.0893 14.41125049176637
+FUSE 1
+1 25791U 99035A   02303.82638415  .00000966  00000-0  23984-3 0  6970
+2 25791  24.9849  47.4173 0010865  42.3451 317.7891 14.41125000176623
+FUSE 1
+1 25791U 99035A   02302.71837611 +.00001023 +00000-0 +25722-3 0 07019
+2 25791 024.9847 054.2005 0010813 031.1742 328.9406 14.41123746176466
+FUSE 1
+1 25791U 99035A   02302.57987459  .00001040  00000-0  26254-3 0  6962
+2 25791  24.9846  55.0483 0010830  29.7688 330.3422 14.41123680176445
+FUSE 1
+1 25791U 99035A   02300.98711079  .00001096  00000-0  27956-3 0  6958
+2 25791  24.9841  64.7981 0010843  13.0413 347.0373 14.41121314176213
+FUSE 1
+1 25791U 99035A   02299.87909991  .00001128  00000-0  28943-3 0  6947
+2 25791  24.9841  71.5856 0010786   1.4027 358.6513 14.41119575176050
+FUSE 1
+1 25791U 99035A   02298.84033835  .00001169  00000-0  30201-3 0  6932
+2 25791  24.9842  77.9480 0010811 350.6657   9.3651 14.41117963175906
+FUSE 1
+1 25791U 99035A   02297.94007642 +.00001182 +00000-0 +30577-3 0 06941
+2 25791 024.9844 083.4626 0010597 339.8645 020.1444 14.41116418175779
+FUSE 1
+1 25791U 99035A   02297.80157473  .00001180  00000-0  30538-3 0  6927
+2 25791  24.9845  84.3107 0010600 338.3923  21.6137 14.41116135175751
+FUSE 1
+1 25791U 99035A   02296.90131265 +.00001199 +00000-0 +31112-3 0 07052
+2 25791 024.9844 089.8231 0010565 328.5579 031.4298 14.41114507175620
+FUSE 1
+1 25791U 99035A   02296.55505701  .00001238  00000-0  32303-3 0  6914
+2 25791  24.9844  91.9448 0010517 324.3002  35.6802 14.41114238175578
+FUSE 1
+1 25791U 99035A   02295.93179849 +.00001243 +00000-0 +32465-3 0 07023
+2 25791 024.9845 095.7602 0010517 317.7975 042.1726 14.41112961175487
+FUSE 1
+1 25791U 99035A   02295.51629228  .00001254  00000-0  32781-3 0  6907
+2 25791  24.9843  98.3052 0010532 313.0139  46.9486 14.41112188175421
+FUSE 1
+1 25791U 99035A   02294.96228418 +.00001256 +00000-0 +32856-3 0 07075
+2 25791 024.9843 101.6963 0010529 307.2176 052.7370 14.41111015175348
+FUSE 1
+1 25791U 99035A   02294.13127216  .00001240  00000-0  32359-3 0  6898
+2 25791  24.9841 106.7843 0010541 298.5475  61.3971 14.41109044175226
+FUSE 1
+1 25791U 99035A   02293.92351906 +.00001239 +00000-0 +32344-3 0 07139
+2 25791 024.9843 108.0569 0010535 296.3424 063.6002 14.41108613175198
+FUSE 1
+1 25791U 99035A   02292.95400352 +.00001237 +00000-0 +32256-3 0 06905
+2 25791 024.9842 113.9928 0010572 285.9862 073.9481 14.41106520175057
+FUSE 1
+1 25791U 99035A   02292.88475244  .00001234  00000-0  32188-3 0  6887
+2 25791  24.9842 114.4167 0010574 285.2452  74.6888 14.41106349175045
+FUSE 1
+1 25791U 99035A   02291.56898052  .00001216  00000-0  31640-3 0  6878
+2 25791  24.9839 122.4724 0010637 271.2762  88.6530 14.41103373174859
+FUSE 1
+1 25791U 99035A   02290.94572017 +.00001195 +00000-0 +30991-3 0 07009
+2 25791 024.9844 126.2889 0010671 264.7560 095.1729 14.41101851174762
+FUSE 1
+1 25791U 99035A   02290.18395700  .00001174  00000-0  30345-3 0  6860
+2 25791  24.9843 130.9526 0010673 256.7111 103.2208 14.41100044174650
+FUSE 1
+1 25791U 99035A   02288.86818259  .00001140  00000-0  29323-3 0  6857
+2 25791  24.9845 139.0064 0010704 243.0013 116.9405 14.41097023174465
+FUSE 1
+1 25791U 99035A   02287.89866426 +.00001136 +00000-0 +29186-3 0 06894
+2 25791 024.9843 144.9409 0010684 232.7314 127.2281 14.41095095174326
+FUSE 1
+1 25791U 99035A   02287.20614986  .00001151  00000-0  29649-3 0  6847
+2 25791  24.9827 149.1875 0010669 225.6654 134.2979 14.41093836174225
+FUSE 1
+1 25791U 99035A   02285.89037225  .00001130  00000-0  29004-3 0  6836
+2 25791  24.9828 157.2454 0010692 211.9002 148.0860 14.41091133174039
+FUSE 1
+1 25791U 99035A   02284.85159928  .00001103  00000-0  28186-3 0  6825
+2 25791  24.9828 163.6064 0010728 200.9652 159.0419 14.41088960173884
+FUSE 1
+1 25791U 99035A   02283.32806291  .00001033  00000-0  26046-3 0  6812
+2 25791  24.9830 172.9322 0010689 184.6616 175.3793 14.41085821173666
+FUSE 1
+1 25791U 99035A   02282.98180447 +.00000996 +00000-0 +24906-3 0 06844
+2 25791 024.9832 175.0528 0010704 180.9650 179.0837 14.41085010173610
+FUSE 1
+1 25791U 99035A   02282.22003459  .00001026  00000-0  25852-3 0  6800
+2 25791  24.9831 179.7159 0010708 172.9134 187.1536 14.41083903173505
+FUSE 1
+1 25791U 99035A   02280.97350077 +.00000830 +00000-0 +19849-3 0 06802
+2 25791 024.9833 187.3563 0011025 161.6340 198.4554 14.41080808173324
+FUSE 1
+1 25791U 99035A   02280.90424885  .00000955  00000-0  23675-3 0  6792
+2 25791  24.9831 187.7802 0010991 160.8057 199.2869 14.41081211173315
+FUSE 1
+1 25791U 99035A   02279.93472079 +.00001010 +00000-0 +25355-3 0 06825
+2 25791 024.9829 193.7205 0011006 150.8784 209.2336 14.41079909173176
+FUSE 1
+1 25791U 99035A   02279.38070408  .00001043  00000-0  26359-3 0  6780
+2 25791  24.9829 197.1114 0011002 144.9425 215.1807 14.41079042173093
+FUSE 1
+1 25791U 99035A   02278.20341727  .00000963  00000-0  23930-3 0  6776
+2 25791  24.9832 204.3229 0011020 133.2028 226.9401 14.41076821172928
+FUSE 1
+1 25791U 99035A   02276.88762358  .00000955  00000-0  23667-3 0  6762
+2 25791  24.9828 212.3833 0011005 119.6564 240.5042 14.41074562172731
+FUSE 1
+1 25791U 99035A   02275.50257357  .00000810  00000-0  19257-3 0  6757
+2 25791  24.9832 220.8633 0010929 105.5890 254.5823 14.41071888172536
+FUSE 1
+1 25791U 99035A   02274.94855287 +.00000769 +00000-0 +18010-3 0 06782
+2 25791 024.9832 224.2597 0010747 099.8528 260.3191 14.41070889172458
+FUSE 1
+1 25791U 99035A   02274.39453091  .00000766  00000-0  17925-3 0  6745
+2 25791  24.9832 227.6504 0010741  94.0800 266.0941 14.41070217172379
+FUSE 1
+1 25791U 99035A   02273.97901442 +.00000752 +00000-0 +17475-3 0 06831
+2 25791 024.9833 230.1965 0010675 089.7969 270.3764 14.41069590172310
+FUSE 1
+1 25791U 99035A   02273.21723299  .00000755  00000-0  17576-3 0  6734
+2 25791  24.9834 234.8609 0010679  81.6884 278.4835 14.41068740172200
+FUSE 1
+1 25791U 99035A   02272.94022098 +.00000777 +00000-0 +18254-3 0 07023
+2 25791 024.9832 236.5583 0010621 078.7403 281.4295 14.41068586172166
+FUSE 1
+1 25791U 99035A   02271.97067853 +.00000808 +00000-0 +19195-3 0 06741
+2 25791 024.9832 242.4959 0010491 068.8195 291.3434 14.41067715172025
+FUSE 1
+1 25791U 99035A   02271.55516014  .00000808  00000-0  19212-3 0  6721
+2 25791  24.9832 245.0390 0010492  64.4543 295.7048 14.41067193171964
+FUSE 1
+1 25791U 99035A   02270.51636263  .00000857  00000-0  20706-3 0  6718
+2 25791  24.9832 251.3989 0010443  53.4959 306.6509 14.41066244171817
+FUSE 1
+1 25791U 99035A   02269.33905765  .00000893  00000-0  21807-3 0  6704
+2 25791  24.9833 258.6080 0010394  40.7861 319.3423 14.41064845171648
+FUSE 1
+1 25791U 99035A   02268.23100366  .00000992  00000-0  24815-3 0  6696
+2 25791  24.9827 265.3949 0010332  28.8061 331.3014 14.41063880171481
+FUSE 1
+1 25791U 99035A   02267.19220147  .00001098  00000-0  28063-3 0  6686
+2 25791  24.9823 271.7543 0010324  17.9281 342.1586 14.41062934171339
+FUSE 1
+1 25791U 99035A   02265.66862362  .00001232  00000-0  32165-3 0  6674
+2 25791  24.9816 281.0815 0010329   1.9220 358.1327 14.41060966171117
+FUSE 1
+1 25791U 99035A   02264.56056684  .00001222  00000-0  31866-3 0  6669
+2 25791  24.9817 287.8674 0010319 349.8851  10.1457 14.41058532170954
+FUSE 1
+1 25791U 99035A   02263.52176164  .00001227  00000-0  32006-3 0  6651
+2 25791  24.9817 294.2294 0010341 338.4888  21.5185 14.41056345170801
+FUSE 1
+1 25791U 99035A   02262.62146251 +.00001266 +00000-0 +33195-3 0 06726
+2 25791 024.9813 299.7417 0010331 328.9476 031.0420 14.41054666170677
+FUSE 1
+1 25791U 99035A   02262.41370124  .00001257  00000-0  32914-3 0  6640
+2 25791  24.9813 301.0139 0010341 326.6238  33.3618 14.41054137170641
+FUSE 1
+1 25791U 99035A   02261.23638509  .00001327  00000-0  35045-3 0  6638
+2 25791  24.9808 308.2225 0010336 313.5426  46.4225 14.41052008170473
+FUSE 1
+1 25791U 99035A   02260.19757547  .00001443  00000-0  38612-3 0  6627
+2 25791  24.9803 314.5833 0010346 302.4458  57.5047 14.41050420170321
+FUSE 1
+1 25791U 99035A   02259.71279796 +.00001450 +00000-0 +38808-3 0 06904
+2 25791 024.9803 317.5503 0010348 297.3449 062.6007 14.41049231170255
+FUSE 1
+1 25791U 99035A   02258.81249669  .00001457  00000-0  39044-3 0  6618
+2 25791  24.9801 323.0624 0010344 288.1227  71.8153 14.41046928170127
+FUSE 1
+1 25791U 99035A   02257.56592355  .00001607  00000-0  43604-3 0  6605
+2 25791  24.9798 330.6972 0010331 274.6720  85.2607 14.41044565169942
+FUSE 1
+1 25791U 99035A   02256.52711275  .00001599  00000-0  43384-3 0  6597
+2 25791  24.9793 337.0578 0010393 263.4699  96.4645 14.41041446169793
+FUSE 1
+1 25791U 99035A   02255.41904580  .00001584  00000-0  42933-3 0  6589
+2 25791  24.9787 343.8424 0010407 251.9278 108.0095 14.41038086169630
+FUSE 1
+1 25791U 99035A   02254.72650348 +.00001491 +00000-0 +40078-3 0 06835
+2 25791 024.9788 348.0813 0010411 244.6244 115.3195 14.41035736169537
+FUSE 1
+1 25791U 99035A   02253.89545131  .00001396  00000-0  37159-3 0  6576
+2 25791  24.9785 353.1698 0010435 235.7390 124.2119 14.41033155169416
+FUSE 1
+1 25791U 99035A   02252.92589091 +.00001057 +00000-0 +26812-3 0 06570
+2 25791 024.9789 359.1085 0010610 225.0767 134.8879 14.41029740169270
+FUSE 1
+1 25791U 99035A   02252.85663624  .00001059  00000-0  26870-3 0  6562
+2 25791  24.9790 359.5326 0010621 224.3210 135.6441 14.41029635169267
+FUSE 1
+1 25791U 99035A   02251.95632761 +.00001005 +00000-0 +25223-3 0 06562
+2 25791 024.9790 005.0443 0010707 214.4524 145.5288 14.41027801169131
+FUSE 1
+1 25791U 99035A   02251.81781883  .00001011  00000-0  25399-3 0  6557
+2 25791  24.9790   5.8921 0010710 212.9295 147.0567 14.41027608169112
+FUSE 1
+1 25791U 99035A   02250.70974565 +.00000905 +00000-0 +22152-3 0 06628
+2 25791 024.9792 012.6758 0010740 201.5396 158.4662 14.41025222168950
+FUSE 1
+1 25791U 99035A   02250.57123644  .00000892  00000-0  21766-3 0  6543
+2 25791  24.9793  13.5236 0010741 200.1557 159.8528 14.41024911168935
+FUSE 1
+1 25791U 99035A   02248.90912382  .00000783  00000-0  18435-3 0  6539
+2 25791  24.9796  23.6965 0010767 182.5930 177.4521 14.41021797168696
+FUSE 1
+1 25791U 99035A   02247.93955749 +.00000652 +00000-0 +14418-3 0 06762
+2 25791 024.9802 029.6342 0010910 173.0331 187.0327 14.41019680168553
+FUSE 1
+1 25791U 99035A   02247.24700867  .00000614  00000-0  13267-3 0  6528
+2 25791  24.9803  33.8749 0010996 165.8745 194.2065 14.41018736168453
+FUSE 1
+1 25791U 99035A   02246.13892944  .00000537  00000-0  10933-3 0  6513
+2 25791  24.9806  40.6587 0011018 154.5982 205.5064 14.41017206168294
+FUSE 1
+1 25791U 99035A   02244.89233811  .00000526  00000-0  10578-3 0  6508
+2 25791  24.9810  48.2931 0011178 142.1273 218.0023 14.41016304168112
+FUSE 1
+1 25791U 99035A   02243.57648803  .00000736  00000-0  16997-3 0  6495
+2 25791  24.9800  56.3527 0011307 128.8388 231.3126 14.41016815167921
+FUSE 1
+1 25791U 99035A   02242.12212513  .00001042  00000-0  26353-3 0  6487
+2 25791  24.9790  65.2545 0011385 113.4504 246.7186 14.41017164167715
+FUSE 1
+1 25791U 99035A   02241.15254607  .00001586  00000-0  42999-3 0  6475
+2 25791  24.9772  71.1895 0011244 103.6925 256.4821 14.41018933167574
+FUSE 1
+1 25791U 99035A   02240.87553062  .00000969  00000-0  24140-3 0  6461
+2 25791  24.9785  72.8895 0010796 101.1155 259.0566 14.41013762167531
+FUSE 1
+1 25791U 99035A   02239.90595273 +.00001112 +00000-0 +28499-3 0 06645
+2 25791 024.9781 078.8252 0010791 090.9038 269.2706 14.41013017167396
+FUSE 1
+1 25791U 99035A   02239.21339631  .00001213  00000-0  31602-3 0  6454
+2 25791  24.9777  83.0642 0010776  83.4859 276.6874 14.41012252167290
+FUSE 1
+1 25791U 99035A   02237.96679327 +.00001439 +00000-0 +38514-3 0 06496
+2 25791 024.9774 090.6979 0010768 071.0115 289.1558 14.41010739167110
+FUSE 1
+1 25791U 99035A   02237.89753765  .00001477  00000-0  39690-3 0  6440
+2 25791  24.9773  91.1232 0010788  70.3652 289.8019 14.41010744167101
+FUSE 1
+1 25791U 99035A   02236.44316461  .00001500  00000-0  40378-3 0  6439
+2 25791  24.9767 100.0287 0010670  55.6564 304.4950 14.41006864166893
+FUSE 1
+1 25791U 99035A   02235.19655478  .00001345  00000-0  35650-3 0  6427
+2 25791  24.9770 107.6610 0010486  43.1111 317.0209 14.41003175166715
+FUSE 1
+1 25791U 99035A   02233.94994384 +.00001071 +00000-0 +27257-3 0 06453
+2 25791 024.9778 115.2923 0010434 030.0321 330.0788 14.40999043166530
+FUSE 1
+1 25791U 99035A   02233.88068763  .00001046  00000-0  26501-3 0  6418
+2 25791  24.9780 115.7163 0010425  29.2338 330.8754 14.40998751166527
+FUSE 1
+1 25791U 99035A   02232.49555828  .00000919  00000-0  22621-3 0  6403
+2 25791  24.9786 124.1958 0010414  14.6083 345.4723 14.40995445166325
+FUSE 1
+1 25791U 99035A   02231.94150552 +.00000876 +00000-0 +21309-3 0 06546
+2 25791 024.9788 127.5880 0010407 008.4765 351.5919 14.40994234166249
+FUSE 1
+1 25791U 99035A   02231.38745204  .00000845  00000-0  20367-3 0  6390
+2 25791  24.9789 130.9790 0010378   2.6277 357.4296 14.40993213166169
+FUSE 1
+1 25791U 99035A   02230.97191224 +.00000798 +00000-0 +18928-3 0 06602
+2 25791 024.9793 133.5251 0010384 358.0335 002.0134 14.40992235166106
+FUSE 1
+1 25791U 99035A   02230.21008800  .00000719  00000-0  16493-3 0  6389
+2 25791  24.9799 138.1891 0010364 349.8416  10.1882 14.40990663165998
+FUSE 1
+1 25791U 99035A   02228.89420846  .00000570  00000-0  11957-3 0  6372
+2 25791  24.9808 146.2460 0010327 335.3789  24.6230 14.40988149165806
+FUSE 1
+1 25791U 99035A   02227.85535415  .00000520  00000-0  10422-3 0  6366
+2 25791  24.9812 152.6068 0010343 324.1332  35.8482 14.40986913165657
+FUSE 1
+1 25791U 99035A   02226.95501315 +.00000506 +00000-0 +99908-4 0 06426
+2 25791 024.9813 158.1197 0010337 314.4756 045.4908 14.40986180165529
+FUSE 1
+1 25791U 99035A   02226.47021386  .00000502  00000-0  98661-4 0  6351
+2 25791  24.9813 161.0865 0010330 309.4557  50.5037 14.40985822165454
+FUSE 1
+1 25791U 99035A   02225.98541513 +.00000476 +00000-0 +90569-4 0 06422
+2 25791 024.9815 164.0553 0010405 304.3474 055.6046 14.40985257165388
+FUSE 1
+1 25791U 99035A   02225.22358750  .00000482  00000-0  92578-4 0  6348
+2 25791  24.9816 168.7186 0010417 296.1218  63.8218 14.40984875165274
+FUSE 1
+1 25791U 99035A   02223.97696163 +.00000481 +00000-0 +92220-4 0 06412
+2 25791 024.9814 176.3517 0010455 283.1411 076.7930 14.40984067165095
+FUSE 1
+1 25791U 99035A   02223.49216218  .00000489  00000-0  94620-4 0  6333
+2 25791  24.9814 179.3194 0010476 277.8554  82.0754 14.40983850165026
+FUSE 1
+1 25791U 99035A   02222.93810641 +.00000509 +00000-0 +10073-3 0 06456
+2 25791 024.9812 182.7128 0010537 272.0359 087.8941 14.40983654164940
+FUSE 1
+1 25791U 99035A   02222.24553673  .00000508  00000-0  10033-3 0  6320
+2 25791  24.9814 186.9527 0010565 264.8001  95.1296 14.40983198164842
+FUSE 1
+1 25791U 99035A   02220.72188492  .00000514  00000-0  10213-3 0  6310
+2 25791  24.9811 196.2838 0010649 248.9270 111.0101 14.40982128164623
+FUSE 1
+1 25791U 99035A   02219.96005888 +.00000589 +00000-0 +12528-3 0 06358
+2 25791 024.9808 200.9504 0010520 240.1664 119.7798 14.40982235164515
+FUSE 1
+1 25791U 99035A   02219.54451761  .00000591  00000-0  12583-3 0  6306
+2 25791  24.9809 203.4950 0010565 235.7070 124.2439 14.40981930164456
+FUSE 1
+1 25791U 99035A   02218.50566444  .00000591  00000-0  12589-3 0  6290
+2 25791  24.9810 209.8564 0010671 225.0521 134.9121 14.40981088164304
+FUSE 1
+1 25791U 99035A   02217.67458222 +.00000586 +00000-0 +12427-3 0 06319
+2 25791 024.9810 214.9451 0010742 216.2683 143.7098 14.40980335164187
+FUSE 1
+1 25791U 99035A   02217.46681143  .00000587  00000-0  12450-3 0  6289
+2 25791  24.9811 216.2175 0010798 214.1027 145.8787 14.40980196164156
+FUSE 1
+1 25791U 99035A   02216.77424262 +.00000608 +00000-0 +13094-3 0 06446
+2 25791 024.9810 220.4589 0010860 206.6184 153.3766 14.40979799164058
+FUSE 1
+1 25791U 99035A   02216.22018763  .00000623  00000-0  13547-3 0  6272
+2 25791  24.9812 223.8548 0011013 200.8472 159.1590 14.40979503163971
+FUSE 1
+1 25791U 99035A   02215.18133380  .00000638  00000-0  14024-3 0  6265
+2 25791  24.9811 230.2141 0011063 190.3957 169.6323 14.40978710163820
+FUSE 1
+1 25791U 99035A   02213.72693828  .00000645  00000-0  14244-3 0  6252
+2 25791  24.9811 239.1154 0011038 174.9987 185.0630 14.40977412163613
+FUSE 1
+1 25791U 99035A   02212.54957017  .00000624  00000-0  13599-3 0  6242
+2 25791  24.9812 246.3230 0011021 162.5693 197.5196 14.40976134163444
+FUSE 1
+1 25791U 99035A   02211.71848578 +.00000610 +00000-0 +13168-3 0 06428
+2 25791 024.9811 251.4099 0011007 153.9347 206.1718 14.40975246163324
+FUSE 1
+1 25791U 99035A   02211.23368603  .00000608  00000-0  13095-3 0  6236
+2 25791  24.9811 254.3777 0010998 148.9909 211.1249 14.40974805163252
+FUSE 1
+1 25791U 99035A   02210.74888612 +.00000597 +00000-0 +12772-3 0 06506
+2 25791 024.9812 257.3445 0011002 143.8708 216.2543 14.40974298163187
+FUSE 1
+1 25791U 99035A   02209.98705743 +.00000587 +00000-0 +12459-3 0 06234
+2 25791 024.9812 262.0081 0011027 135.8366 224.3023 14.40973550163075
+FUSE 1
+1 25791U 99035A   02209.84854304  .00000587  00000-0  12459-3 0  6226
+2 25791  24.9812 262.8557 0011027 134.3832 225.7585 14.40973436163052
+FUSE 1
+1 25791U 99035A   02208.87894183 +.00000550 +00000-0 +11335-3 0 06274
+2 25791 024.9814 268.7902 0011057 124.1443 236.0120 14.40972331162918
+FUSE 1
+1 25791U 99035A   02208.53265521  .00000545  00000-0  11191-3 0  6213
+2 25791  24.9816 270.9107 0011057 120.4890 239.6710 14.40972045162867
+FUSE 1
+1 25791U 99035A   02207.21676421  .00000548  00000-0  11278-3 0  6200
+2 25791  24.9817 278.9666 0011052 107.3653 252.8065 14.40971121162675
+FUSE 1
+1 25791U 99035A   02206.87047673 +.00000547 +00000-0 +11238-3 0 06588
+2 25791 024.9817 281.0857 0011055 103.7292 256.4448 14.40970853162625
+FUSE 1
+1 25791U 99035A   02205.97012911 +.00000514 +00000-0 +10239-3 0 06208
+2 25791 024.9822 286.5981 0010989 094.6865 265.4898 14.40969946162493
+FUSE 1
+1 25791U 99035A   02205.83161386  .00000516  00000-0  10301-3 0  6194
+2 25791  24.9822 287.4462 0010983  93.2503 266.9261 14.40969873162472
+FUSE 1
+1 25791U 99035A   02204.86200730 +.00000468 +00000-0 +88363-4 0 06306
+2 25791 024.9826 293.3810 0010949 083.1743 277.0007 14.40968846162330
+FUSE 1
+1 25791U 99035A   02204.58497626  .00000484  00000-0  93112-4 0  6189
+2 25791  24.9826 295.0773 0010951  80.5497 279.6249 14.40968840162292
+FUSE 1
+1 25791U 99035A   02203.89239905 +.00000449 +00000-0 +82482-4 0 06488
+2 25791 024.9828 299.3172 0010890 073.2055 286.9638 14.40968123162191
+FUSE 1
+1 25791U 99035A   02203.13056333  .00000422  00000-0  74306-4 0  6170
+2 25791  24.9830 303.9805 0010839  65.4604 294.7027 14.40967491162089
+FUSE 1
+1 25791U 99035A   02201.88392126  .00000430  00000-0  76591-4 0  6169
+2 25791  24.9831 311.6129 0010788  52.8603 307.2893 14.40966950161907
+FUSE 1
+1 25791U 99035A   02200.84505139  .00000426  00000-0  75310-4 0  6156
+2 25791  24.9831 317.9723 0010726  42.0624 318.0702 14.40966400161754
+FUSE 1
+1 25791U 99035A   02199.94469674 +.00000428 +00000-0 +76045-4 0 06177
+2 25791 024.9831 323.4842 0010660 032.3527 327.7634 14.40965983161621
+FUSE 1
+1 25791U 99035A   02199.80618047  .00000429  00000-0  76448-4 0  6147
+2 25791  24.9831 324.3321 0010640  30.8653 329.2479 14.40965931161609
+FUSE 1
+1 25791U 99035A   02198.90582495 +.00000439 +00000-0 +79526-4 0 06303
+2 25791 024.9831 329.8436 0010600 021.3948 338.6994 14.40965565161478
+FUSE 1
+1 25791U 99035A   02198.55953443  .00000442  00000-0  80466-4 0  6139
+2 25791  24.9831 331.9633 0010574  17.8270 342.2607 14.40965414161429
+FUSE 1
+1 25791U 99035A   02197.93621100 +.00000444 +00000-0 +80937-4 0 06362
+2 25791 024.9831 335.7781 0010561 011.3039 348.7699 14.40965095161330
+FUSE 1
+1 25791U 99035A   02197.24362949  .00000444  00000-0  80988-4 0  6129
+2 25791  24.9831 340.0166 0010550   3.9600 356.0998 14.40964729161231
+FUSE 1
+1 25791U 99035A   02196.20475640  .00000449  00000-0  82478-4 0  6117
+2 25791  24.9832 346.3749 0010499 353.1602   6.8760 14.40964234161083
+FUSE 1
+1 25791U 99035A   02195.92772353 +.00000455 +00000-0 +84353-4 0 06533
+2 25791 024.9833 348.0711 0010484 350.1147 009.9154 14.40964150161041
+FUSE 1
+1 25791U 99035A   02194.95810905 +.00000446 +00000-0 +81482-4 0 06126
+2 25791 024.9834 354.0072 0010473 339.7777 020.2317 14.40963538160909
+FUSE 1
+1 25791U 99035A   02194.88885078  .00000448  00000-0  82042-4 0  6104
+2 25791  24.9834 354.4313 0010464 339.0255  20.9823 14.40963525160898
+FUSE 1
+1 25791U 99035A   02193.84997767  .00000458  00000-0  85132-4 0  6090
+2 25791  24.9833   0.7908 0010468 328.1332  31.8541 14.40963009160746
+FUSE 1
+1 25791U 99035A   02192.94962101 +.00000463 +00000-0 +86594-4 0 06116
+2 25791 024.9833 006.3022 0010480 318.4949 041.4767 14.40962539160615
+FUSE 1
+1 25791U 99035A   02192.81110453  .00000461  00000-0  86250-4 0  6080
+2 25791  24.9833   7.1500 0010464 316.9667  43.0024 14.40962462160593
+FUSE 1
+1 25791U 99035A   02191.91074766 +.00000486 +00000-0 +93771-4 0 06270
+2 25791 024.9834 012.6624 0010451 307.1503 052.8049 14.40962172160468
+FUSE 1
+1 25791U 99035A   02191.56445709  .00000480  00000-0  91884-4 0  6075
+2 25791  24.9832  14.7827 0010464 303.4798  56.4711 14.40961871160419
+FUSE 1
+1 25791U 99035A   02190.94113347 +.00000477 +00000-0 +90930-4 0 06343
+2 25791 024.9834 018.5979 0010445 296.7402 063.2037 14.40961502160324
+FUSE 1
+1 25791U 99035A   02190.17929374  .00000481  00000-0  92165-4 0  6069
+2 25791  24.9832  23.2616 0010481 288.6533  71.2835 14.40961043160211
+FUSE 1
+1 25791U 99035A   02189.14042204  .00000483  00000-0  92846-4 0  6059
+2 25791  24.9831  29.6230 0010511 277.8585  82.0723 14.40960393160069
+FUSE 1
+1 25791U 99035A   02187.89377604  .00000505  00000-0  99522-4 0  6046
+2 25791  24.9830  37.2551 0010534 264.3308  95.5998 14.40959812159883
+FUSE 1
+1 25791U 99035A   02186.43935654  .00000501  00000-0  98297-4 0  6033
+2 25791  24.9829  46.1591 0010579 249.0358 110.8998 14.40958795159675
+FUSE 1
+1 25791U 99035A   02185.19271205  .00000504  00000-0  99265-4 0  6028
+2 25791  24.9830  53.7902 0010629 236.0216 123.9281 14.40958001159492
+FUSE 1
+1 25791U 99035A   02184.15384184  .00000513  00000-0  10203-3 0  6017
+2 25791  24.9831  60.1514 0010674 224.8693 135.0951 14.40957412159345
+FUSE 1
+1 25791U 99035A   02182.97645554 +.00000516 +00000-0 +10283-3 0 06062
+2 25791 024.9830 067.3585 0010725 212.3891 147.5958 14.40956658159177
+FUSE 1
+1 25791U 99035A   02182.90719767  .00000519  00000-0  10371-3 0  6008
+2 25791  24.9829  67.7832 0010724 211.7115 148.2747 14.40956613159169
+FUSE 1
+1 25791U 99035A   02181.93758516 +.00000548 +00000-0 +11261-3 0 06062
+2 25791 024.9828 073.7191 0010818 201.1978 158.8084 14.40956221159028
+FUSE 1
+1 25791U 99035A   02181.86832717  .00000553  00000-0  11428-3 0  5992
+2 25791  24.9828  74.1435 0010825 200.5146 159.4931 14.40956212159019
+FUSE 1
+1 25791U 99035A   02180.96797324 +.00000532 +00000-0 +10787-3 0 06159
+2 25791 024.9829 079.6553 0010847 191.2420 168.7845 14.40955372158883
+FUSE 1
+1 25791U 99035A   02180.55242493  .00000529  00000-0  10681-3 0  5985
+2 25791  24.9829  82.1984 0010852 186.9486 173.0868 14.40955042158821
+FUSE 1
+1 25791U 99035A   02179.92910226 +.00000542 +00000-0 +11095-3 0 06155
+2 25791 024.9830 086.0152 0010926 180.7342 179.3149 14.40954738158730
+FUSE 1
+1 25791U 99035A   02179.23652162  .00000551  00000-0  11359-3 0  5973
+2 25791  24.9830  90.2545 0010946 173.5199 186.5457 14.40954304158635
+FUSE 1
+1 25791U 99035A   02177.98987603 +.00000542 +00000-0 +11095-3 0 06006
+2 25791 024.9832 097.8882 0011031 160.8337 199.2588 14.40953321158457
+FUSE 1
+1 25791U 99035A   02177.85135981  .00000538  00000-0  10963-3 0  5968
+2 25791  24.9832  98.7360 0011031 159.3474 200.7478 14.40953176158435
+FUSE 1
+1 25791U 99035A   02176.95100402 +.00000504 +00000-0 +99300-4 0 06022
+2 25791 024.9833 104.2472 0011004 150.1851 209.9284 14.40952226158308
+FUSE 1
+1 25791U 99035A   02176.46619641  .00000500  00000-0  98147-4 0  5953
+2 25791  24.9832 107.2138 0011008 145.0625 215.0606 14.40951875158232
+FUSE 1
+1 25791U 99035A   02175.21954740  .00000495  00000-0  96657-4 0  5943
+2 25791  24.9834 114.8444 0011052 132.0019 228.1431 14.40951047158052
+FUSE 1
+1 25791U 99035A   02173.90363925  .00000444  00000-0  81013-4 0  5939
+2 25791  24.9837 122.9038 0011028 119.1777 240.9836 14.40949793157868
+FUSE 1
+1 25791U 99035A   02172.51846935  .00000425  00000-0  75104-4 0  5924
+2 25791  24.9839 131.3835 0010980 104.9187 255.2530 14.40948920157661
+FUSE 1
+1 25791U 99035A   02171.41033186  .00000417  00000-0  72553-4 0  5913
+2 25791  24.9844 138.1686 0010902  93.6662 266.5092 14.40948370157502
+FUSE 1
+1 25791U 99035A   02170.50996877 +.00000436 +00000-0 +78639-4 0 05975
+2 25791 024.9843 143.6798 0010904 084.4115 275.7637 14.40948095157375
+FUSE 1
+1 25791U 99035A   02170.23293415  .00000423  00000-0  74576-4 0  5908
+2 25791  24.9845 145.3761 0010901  81.5059 278.6684 14.40947844157339
+FUSE 1
+1 25791U 99035A   02169.19405227  .00000425  00000-0  75062-4 0  5898
+2 25791  24.9846 151.7361 0010811  70.7002 289.4672 14.40947374157183
+FUSE 1
+1 25791U 99035A   02167.60109739  .00000492  00000-0  95589-4 0  5880
+2 25791  24.9842 161.4859 0010787  54.1241 306.0266 14.40947018156956
+FUSE 1
+1 25791U 99035A   02166.56221265  .00000534  00000-0  10864-3 0  5871
+2 25791  24.9839 167.8442 0010791  43.1206 317.0146 14.40946662156801
+FUSE 1
+1 25791U 99035A   02165.24629112  .00000568  00000-0  11909-3 0  5865
+2 25791  24.9843 175.9013 0010722  29.2251 330.8852 14.40946031156615
+FUSE 1
+1 25791U 99035A   02163.86110918  .00000595  00000-0  12719-3 0  5859
+2 25791  24.9845 184.3792 0010702  14.8284 345.2538 14.40945180156412
+FUSE 1
+1 25791U 99035A   02162.54518530  .00000658  00000-0  14664-3 0  5845
+2 25791  24.9846 192.4369 0010588   1.1350 358.9185 14.40944578156226
+FUSE 1
+1 25791U 99035A   02161.85259359 +.00000674 +00000-0 +15131-3 0 06107
+2 25791 024.9846 196.6771 0010590 353.7741 006.2633 14.40944011156124
+FUSE 1
+1 25791U 99035A   02161.22926069  .00000700  00000-0  15929-3 0  5831
+2 25791  24.9847 200.4935 0010585 347.0023  13.0212 14.40943608156034
+FUSE 1
+1 25791U 99035A   02159.84407613  .00000743  00000-0  17262-3 0  5823
+2 25791  24.9846 208.9724 0010588 332.2220  27.7726 14.40942460155834
+FUSE 1
+1 25791U 99035A   02158.80518770  .00000793  00000-0  18784-3 0  5819
+2 25791  24.9846 215.3341 0010581 321.3048  38.6704 14.40941632155681
+FUSE 1
+1 25791U 99035A   02157.97407665 +.00000825 +00000-0 +19757-3 0 05879
+2 25791 024.9847 220.4222 0010562 312.3796 047.5815 14.40940838155562
+FUSE 1
+1 25791U 99035A   02157.55852103  .00000870  00000-0  21141-3 0  5807
+2 25791  24.9847 222.9680 0010439 307.4635  52.4923 14.40940695155507
+FUSE 1
+1 25791U 99035A   02156.86592860 +.00000855 +00000-0 +20693-3 0 06042
+2 25791 024.9846 227.2073 0010554 299.6921 060.2540 14.40939609155402
+FUSE 1
+1 25791U 99035A   02156.24259499  .00000899  00000-0  22019-3 0  5795
+2 25791  24.9846 231.0244 0010551 292.5198  67.4193 14.40939088155314
+FUSE 1
+1 25791U 99035A   02155.06518757  .00000887  00000-0  21661-3 0  5787
+2 25791  24.9851 238.2318 0010502 278.6019  81.3297 14.40937436155140
+FUSE 1
+1 25791U 99035A   02154.92666911 +.00000889 +00000-0 +21739-3 0 06067
+2 25791 024.9851 239.0795 0010509 277.1250 082.8066 14.40937258155126
+FUSE 1
+1 25791U 99035A   02153.88777948  .00000883  00000-0  21546-3 0  5771
+2 25791  24.9856 245.4403 0010777 265.3681  94.5596 14.40935853154971
+FUSE 1
+1 25791U 99035A   02152.57185272  .00000902  00000-0  22117-3 0  5765
+2 25791  24.9868 253.4989 0011060 249.3519 110.5805 14.40934379154783
+FUSE 1
+1 25791U 99035A   02151.53296309  .00000970  00000-0  24192-3 0  5753
+2 25791  24.9869 259.8581 0011180 238.2453 121.6966 14.40933320154639
+FUSE 1
+1 25791U 99035A   02150.70185103 +.00001051 +00000-0 +26686-3 0 05975
+2 25791 024.9867 264.9433 0011243 229.4877 130.4651 14.40932501154518
+FUSE 1
+1 25791U 99035A   02149.93999876  .00001091  00000-0  27908-3 0  5745
+2 25791  24.9867 269.6053 0011249 221.4930 138.4719 14.40931407154401
+FUSE 1
+1 25791U 99035A   02148.90111038 +.00001229 +00000-0 +32134-3 0 05769
+2 25791 024.9863 275.9625 0011269 210.6845 149.3088 14.40930136154250
+FUSE 1
+1 25791U 99035A   02148.83185155  .00000938  00000-0  23221-3 0  5732
+2 25791  24.9851 276.3822 0010775 212.4019 147.5850 14.40927933154242
+FUSE 1
+1 25791U 99035A   02147.93147934 +.00000813 +00000-0 +19395-3 0 05958
+2 25791 024.9857 281.8960 0010898 202.6278 157.3749 14.40926137154113
+FUSE 1
+1 25791U 99035A   02147.58518187  .00001001  00000-0  25172-3 0  5726
+2 25791  24.9861 284.0183 0011012 197.6860 162.3263 14.40926704154060
+FUSE 1
+1 25791U 99035A   02146.54628978  .00000913  00000-0  22451-3 0  5718
+2 25791  24.9845 290.3753 0010754 189.6041 170.4268 14.40924183153916
+FUSE 1
+1 25791U 99035A   02145.16109886  .00000752  00000-0  17520-3 0  5708
+2 25791  24.9854 298.8585 0011057 175.5591 184.5015 14.40921808153718
+FUSE 1
+1 25791U 99035A   02144.12220258  .00000806  00000-0  19188-3 0  5690
+2 25791  24.9858 305.2220 0011313 166.0837 193.9972 14.40920971153563
+FUSE 1
+1 25791U 99035A   02143.91442346 +.00000815 +00000-0 +19451-3 0 06009
+2 25791 024.9859 306.4952 0011363 164.3048 195.7813 14.40920803153534
+FUSE 1
+1 25791U 99035A   02142.94478746 +.00000943 +00000-0 +23384-3 0 05690
+2 25791 024.9854 312.4312 0011411 153.9631 206.1530 14.40920479153398
+FUSE 1
+1 25791U 99035A   02142.87552765  .00000884  00000-0  21574-3 0  5688
+2 25791  24.9848 312.8512 0010954 151.9799 208.1299 14.40919629153389
+FUSE 1
+1 25791U 99035A   02141.90588955 +.00000926 +00000-0 +22857-3 0 05874
+2 25791 024.9841 318.7826 0010700 140.9341 219.1940 14.40918429153242
+FUSE 1
+1 25791U 99035A   02141.55958991  .00000963  00000-0  23993-3 0  5677
+2 25791  24.9839 320.9048 0010714 137.4073 222.7267 14.40918220153193
+FUSE 1
+1 25791U 99035A   02140.17438775  .00001057  00000-0  26889-3 0  5668
+2 25791  24.9835 329.3818 0010822 124.7440 235.4086 14.40916869152998
+FUSE 1
+1 25791U 99035A   02139.96660755 +.00001083 +00000-0 +27692-3 0 05884
+2 25791 024.9836 330.6540 0010888 122.4431 237.7130 14.40916754152968
+FUSE 1
+1 25791U 99035A   02139.06622508  .00001163  00000-0  30126-3 0  5659
+2 25791  24.9830 336.1650 0010863 113.3928 246.7719 14.40915711152839
+FUSE 1
+1 25791U 99035A   02137.88879990  .00001296  00000-0  34198-3 0  5645
+2 25791  24.9826 343.3712 0010907 101.0863 259.0871 14.40914401152666
+FUSE 1
+1 25791U 99035A   02136.91915471 +.00001350 +00000-0 +35875-3 0 05816
+2 25791 024.9827 349.3060 0010932 090.9446 269.2314 14.40912681152528
+FUSE 1
+1 25791U 99035A   02136.22654987  .00001376  00000-0  36654-3 0  5636
+2 25791  24.9826 353.5443 0010936  83.6416 276.5336 14.40911244152427
+FUSE 1
+1 25791U 99035A   02135.94950762 +.00001397 +00000-0 +37325-3 0 05723
+2 25791 024.9825 355.2400 0010966 080.7402 279.4344 14.40910769152381
+FUSE 1
+1 25791U 99035A   02135.18764091  .00001413  00000-0  37797-3 0  5628
+2 25791  24.9824 359.9024 0010965  72.6730 287.4977 14.40909002152273
+FUSE 1
+1 25791U 99035A   02134.91059834 +.00001415 +00000-0 +37857-3 0 05922
+2 25791 024.9825 001.5980 0010968 069.7349 290.4345 14.40908337152230
+FUSE 1
+1 25791U 99035A   02133.94094738 +.00001415 +00000-0 +37859-3 0 05636
+2 25791 024.9824 007.5352 0010877 059.9778 300.1809 14.40905944152093
+FUSE 1
+1 25791U 99035A   02133.87168652  .00001412  00000-0  37775-3 0  5617
+2 25791  24.9825   7.9592 0010873  59.2261 300.9315 14.40905750152084
+FUSE 1
+1 25791U 99035A   02132.48646600  .00001369  00000-0  36456-3 0  5602
+2 25791  24.9823  16.4325 0010684  45.9733 314.1653 14.40902098151888
+FUSE 1
+1 25791U 99035A   02131.30902586  .00001353  00000-0  35975-3 0  5596
+2 25791  24.9822  23.6391 0010610  33.6244 326.4935 14.40899142151716
+FUSE 1
+1 25791U 99035A   02130.20084454  .00001308  00000-0  34583-3 0  5582
+2 25791  24.9820  30.4208 0010580  22.0031 338.0932 14.40896173151558
+FUSE 1
+1 25791U 99035A   02129.16192230  .00001226  00000-0  32085-3 0  5570
+2 25791  24.9821  36.7788 0010481  11.1643 348.9097 14.40893274151404
+FUSE 1
+1 25791U 99035A   02128.95413775 +.00001211 +00000-0 +31627-3 0 05931
+2 25791 024.9821 038.0520 0010468 008.7737 351.2951 14.40892692151379
+FUSE 1
+1 25791U 99035A   02127.98447523 +.00001111 +00000-0 +28565-3 0 05601
+2 25791 024.9824 043.9896 0010296 357.7755 002.2712 14.40889924151236
+FUSE 1
+1 25791U 99035A   02127.91521357  .00001094  00000-0  28026-3 0  5569
+2 25791  24.9824  44.4136 0010284 357.0692   2.9753 14.40889652151228
+FUSE 1
+1 25791U 99035A   02126.94554859 +.00001060 +00000-0 +27008-3 0 05601
+2 25791 024.9824 050.3495 0010262 346.7330 013.2907 14.40887620151085
+FUSE 1
+1 25791U 99035A   02126.87628689  .00001055  00000-0  26832-3 0  5558
+2 25791  24.9824  50.7736 0010263 346.0680  13.9545 14.40887452151076
+FUSE 1
+1 25791U 99035A   02125.97588259 +.00001014 +00000-0 +25588-3 0 05671
+2 25791 024.9823 056.2855 0010259 336.2920 023.7116 14.40885529150942
+FUSE 1
+1 25791U 99035A   02125.42178682  .00001006  00000-0  25328-3 0  5545
+2 25791  24.9822  59.6761 0010255 330.4733  29.5196 14.40884531150863
+FUSE 1
+1 25791U 99035A   02124.38285672  .00001011  00000-0  25509-3 0  5533
+2 25791  24.9820  66.0352 0010273 319.4923  40.4821 14.40882801150716
+FUSE 1
+1 25791U 99035A   02123.20540156  .00000953  00000-0  23705-3 0  5523
+2 25791  24.9824  73.2432 0010279 305.7597  54.1955 14.40880460150540
+FUSE 1
+1 25791U 99035A   02121.95868326 +.00001002 +00000-0 +25225-3 0 05542
+2 25791 024.9819 080.8762 0010331 292.1373 067.8041 14.40878747150366
+FUSE 1
+1 25791U 99035A   02121.54311021  .00001003  00000-0  25248-3 0  5515
+2 25791  24.9819  83.4189 0010337 287.6956  72.2421 14.40878063150307
+FUSE 1
+1 25791U 99035A   02120.98901322 +.00001023 +00000-0 +25857-3 0 05632
+2 25791 024.9818 086.8098 0010306 282.1201 077.8157 14.40877264150221
+FUSE 1
+1 25791U 99035A   02120.22712923  .00001015  00000-0  25630-3 0  5502
+2 25791  24.9819  91.4718 0010318 274.0246  85.9082 14.40875930150118
+FUSE 1
+1 25791U 99035A   02119.95008070 +.00001028 +00000-0 +26024-3 0 05648
+2 25791 024.9817 093.1681 0010309 271.2034 088.7294 14.40875508150070
+FUSE 1
+1 25791U 99035A   02119.18819734  .00000984  00000-0  24661-3 0  5498
+2 25791  24.9821  97.8348 0010364 262.8749  97.0580 14.40873938149968
+FUSE 1
+1 25791U 99035A   02117.59516608  .00000965  00000-0  24087-3 0  5485
+2 25791  24.9822 107.5863 0010462 245.7519 114.1894 14.40871219149738
+FUSE 1
+1 25791U 99035A   02116.55623223  .00001014  00000-0  25598-3 0  5475
+2 25791  24.9819 113.9469 0010496 234.8360 125.1166 14.40869721149589
+FUSE 1
+1 25791U 99035A   02115.24024880  .00000904  00000-0  22221-3 0  5460
+2 25791  24.9822 122.0047 0010673 220.6675 139.3037 14.40867070149393
+FUSE 1
+1 25791U 99035A   02113.64721393  .00000997  00000-0  25068-3 0  5458
+2 25791  24.9820 131.7593 0010921 204.4419 155.5575 14.40864885149169
+FUSE 1
+1 25791U 99035A   02112.60827693  .00001229  00000-0  32167-3 0  5449
+2 25791  24.9818 138.1223 0011109 194.3356 165.6844 14.40863758149016
+FUSE 1
+1 25791U 99035A   02111.70786489 +.00001579 +00000-0 +42935-3 0 05459
+2 25791 024.9818 143.6347 0011005 184.3083 175.7332 14.40862715148885
+FUSE 1
+1 25791U 99035A   02111.56934007  .00001615  00000-0  44009-3 0  5437
+2 25791  24.9819 144.4840 0011022 182.6205 177.4245 14.40862480148868
+FUSE 1
+1 25791U 99035A   02110.53040188  .00001831  00000-0  50650-3 0  5429
+2 25791  24.9817 150.8474 0011038 171.9009 188.1678 14.40859918148715
+FUSE 1
+1 25791U 99035A   02109.21441033  .00001839  00000-0  50903-3 0  5414
+2 25791  24.9818 158.9076 0011058 159.5103 200.5858 14.40855347148522
+FUSE 1
+1 25791U 99035A   02107.75988762  .00001806  00000-0  49905-3 0  5409
+2 25791  24.9818 167.8101 0011016 144.5815 215.5425 14.40850340148319
+FUSE 1
+1 25791U 99035A   02106.72093909  .00001824  00000-0  50445-3 0  5394
+2 25791  24.9819 174.1696 0011038 134.1147 226.0286 14.40847102148164
+FUSE 1
+1 25791U 99035A   02105.61272498  .00001733  00000-0  47679-3 0  5386
+2 25791  24.9822 180.9533 0010987 122.6889 237.4679 14.40842753148002
+FUSE 1
+1 25791U 99035A   02104.85082480 +.00001713 +00000-0 +47068-3 0 05437
+2 25791 024.9823 185.6152 0010986 114.8415 245.3238 14.40840218147898
+FUSE 1
+1 25791U 99035A   02104.57377071  .00001648  00000-0  45060-3 0  5379
+2 25791  24.9828 187.3119 0010910 112.4216 247.7465 14.40838832147858
+FUSE 1
+1 25791U 99035A   02102.91143625  .00001546  00000-0  41945-3 0  5365
+2 25791  24.9833 197.4876 0010832  95.2901 264.8851 14.40833179147610
+FUSE 1
+1 25791U 99035A   02101.94173617 +.00001486 +00000-0 +40101-3 0 05367
+2 25791 024.9836 203.4219 0010768 085.1671 275.0035 14.40830065147475
+FUSE 1
+1 25791U 99035A   02101.87247187  .00001527  00000-0  41368-3 0  5354
+2 25791  24.9836 203.8460 0010860  84.9976 275.1776 14.40830297147464
+FUSE 1
+1 25791U 99035A   02100.90276910 +.00001525 +00000-0 +41312-3 0 05406
+2 25791 024.9836 209.7805 0010820 074.8575 285.3127 14.40827651147329
+FUSE 1
+1 25791U 99035A   02100.55644706  .00001466  00000-0  39504-3 0  5346
+2 25791  24.9839 211.9005 0010785  71.2224 288.9455 14.40826227147276
+FUSE 1
+1 25791U 99035A   02099.72527026 +.00001468 +00000-0 +39557-3 0 05369
+2 25791 024.9839 216.9860 0010792 062.4507 297.7098 14.40824076147152
+FUSE 1
+1 25791U 99035A   02099.51747561  .00001466  00000-0  39497-3 0  5332
+2 25791  24.9839 218.2573 0010790  60.2600 299.8974 14.40823521147123
+FUSE 1
+1 25791U 99035A   02098.96335660 +.00001461 +00000-0 +39351-3 0 05517
+2 25791 024.9839 221.6473 0010791 054.4596 305.6917 14.40822053147043
+FUSE 1
+1 25791U 99035A   02097.99364657  .00001460  00000-0  39305-3 0  5324
+2 25791  24.9840 227.5821 0010785  44.3275 315.8094 14.40819548146900
+FUSE 1
+1 25791U 99035A   02096.88540384  .00001474  00000-0  39764-3 0  5317
+2 25791  24.9839 234.3643 0010788  32.8173 327.3012 14.40816799146743
+FUSE 1
+1 25791U 99035A   02095.63862735  .00001487  00000-0  40141-3 0  5300
+2 25791  24.9840 241.9943 0010816  19.8188 340.2741 14.40813643146563
+FUSE 1
+1 25791U 99035A   02094.59964440  .00001479  00000-0  39900-3 0  5290
+2 25791  24.9841 248.3515 0010781   8.9830 351.0866 14.40810859146412
+FUSE 1
+1 25791U 99035A   02093.56066001  .00001449  00000-0  39004-3 0  5283
+2 25791  24.9842 254.7110 0010724 357.7982   2.2481 14.40807913146263
+FUSE 1
+1 25791U 99035A   02092.17534371  .00001416  00000-0  37974-3 0  5276
+2 25791  24.9846 263.1915 0010706 342.3947  17.6181 14.40804146146065
+FUSE 1
+1 25791U 99035A   02091.06708795  .00001473  00000-0  39722-3 0  5261
+2 25791  24.9844 269.9758 0010605 329.8586  30.1311 14.40801748145901
+FUSE 1
+1 25791U 99035A   02090.92855601 +.00001487 +00000-0 +40157-3 0 05410
+2 25791 024.9846 270.8250 0010580 328.4929 031.4942 14.40801529145887
+FUSE 1
+1 25791U 99035A   02089.95883174 +.00001422 +00000-0 +38169-3 0 05269
+2 25791 024.9848 276.7588 0010511 318.2311 041.7395 14.40798658145743
+FUSE 1
+1 25791U 99035A   02089.88956560  .00001421  00000-0  38139-3 0  5256
+2 25791  24.9849 277.1827 0010506 317.5131  42.4562 14.40798492145730
+FUSE 1
+1 25791U 99035A   02088.15791078  .00001515  00000-0  41010-3 0  5241
+2 25791  24.9847 287.7803 0010520 298.7755  61.1699 14.40794544145482
+FUSE 1
+1 25791U 99035A   02087.95011214 +.00001499 +00000-0 +40534-3 0 05370
+2 25791 024.9848 289.0527 0010533 296.5864 063.3562 14.40793924145453
+FUSE 1
+1 25791U 99035A   02086.91111703  .00001749  00000-0  48209-3 0  5239
+2 25791  24.9841 295.4106 0010495 285.4100  74.5251 14.40792142145301
+FUSE 1
+1 25791U 99035A   02085.94138844 +.00001800 +00000-0 +49790-3 0 05230
+2 25791 024.9840 301.3448 0010492 275.1890 084.7423 14.40789187145168
+FUSE 1
+1 25791U 99035A   02085.87212209  .00001800  00000-0  49784-3 0  5222
+2 25791  24.9839 301.7687 0010498 274.4524  85.4786 14.40788939145150
+FUSE 1
+1 25791U 99035A   02084.20972717  .00001789  00000-0  49461-3 0  5212
+2 25791  24.9837 311.9410 0010520 257.1269 102.8063 14.40783400144918
+FUSE 1
+1 25791U 99035A   02083.17072852  .00001737  00000-0  47850-3 0  5200
+2 25791  24.9841 318.3008 0010603 246.6391 113.2992 14.40779739144768
+FUSE 1
+1 25791U 99035A   02081.92392783  .00001713  00000-0  47112-3 0  5192
+2 25791  24.9843 325.9324 0010711 233.7134 126.2384 14.40775609144588
+FUSE 1
+1 25791U 99035A   02080.88492453  .00001724  00000-0  47457-3 0  5184
+2 25791  24.9839 332.2902 0010758 223.1027 136.8641 14.40772451144430
+FUSE 1
+1 25791U 99035A   02079.98445671 +.00001660 +00000-0 +45511-3 0 05248
+2 25791 024.9866 337.8089 0010640 212.3177 147.6681 14.40769396144307
+FUSE 1
+1 25791U 99035A   02079.36105289  .00001660  00000-0  45502-3 0  5170
+2 25791  24.9864 341.6231 0010625 205.7116 154.2858 14.40767508144212
+FUSE 1
+1 25791U 99035A   02078.94545013 +.00001663 +00000-0 +45593-3 0 05203
+2 25791 024.9866 344.1681 0010662 201.5314 158.4745 14.40766326144157
+FUSE 1
+1 25791U 99035A   02078.18351059  .00001670  00000-0  45823-3 0  5163
+2 25791  24.9867 348.8302 0010676 193.5096 166.5127 14.40764131144045
+FUSE 1
+1 25791U 99035A   02076.93669799 +.00001712 +00000-0 +47120-3 0 05188
+2 25791 024.9862 356.4616 0010674 180.4765 179.5730 14.40760708143868
+FUSE 1
+1 25791U 99035A   02076.86743038  .00001720  00000-0  47342-3 0  5151
+2 25791  24.9861 356.8853 0010677 179.8078 180.2432 14.40760558143856
+FUSE 1
+1 25791U 99035A   02075.34354341  .00001769  00000-0  48858-3 0  5143
+2 25791  24.9857   6.2089 0010689 164.1831 195.9013 14.40756227143637
+FUSE 1
+1 25791U 99035A   02074.23525935  .00001789  00000-0  49489-3 0  5131
+2 25791  24.9864  12.9917 0010652 152.3559 207.7514 14.40752965143470
+FUSE 1
+1 25791U 99035A   02073.95818794 +.00001809 +00000-0 +50096-3 0 05215
+2 25791 024.9863 014.6889 0010627 149.3903 210.7224 14.40752237143437
+FUSE 1
+1 25791U 99035A   02073.19624002  .00001826  00000-0  50609-3 0  5127
+2 25791  24.9865  19.3522 0010642 141.9145 218.2115 14.40749948143323
+FUSE 1
+1 25791U 99035A   02072.91916797 +.00001841 +00000-0 +51076-3 0 05363
+2 25791 024.9864 021.0498 0010609 139.0566 221.0741 14.40749171143282
+FUSE 1
+1 25791U 99035A   02071.53380359  .00001868  00000-0  51930-3 0  5110
+2 25791  24.9870  29.5310 0010560 125.3666 234.7831 14.40744898143080
+FUSE 1
+1 25791U 99035A   02070.97965627 +.00001883 +00000-0 +52391-3 0 05124
+2 25791 024.9873 032.9250 0010530 120.0536 240.1014 14.40743233143007
+FUSE 1
+1 25791U 99035A   02070.49477683  .00001888  00000-0  52553-3 0  5104
+2 25791  24.9873  35.8909 0010528 115.0412 245.1193 14.40741625142931
+FUSE 1
+1 25791U 99035A   02069.24793971  .00001911  00000-0  53253-3 0  5099
+2 25791  24.9880  43.5225 0010388 102.6935 257.4711 14.40737632142757
+FUSE 1
+1 25791U 99035A   02068.20890526  .00001963  00000-0  54852-3 0  5080
+2 25791  24.9877  49.8807 0010265  92.5971 267.5712 14.40734504142601
+FUSE 1
+1 25791U 99035A   02066.40790516  .00002019  00000-0  56597-3 0  5078
+2 25791  24.9882  60.8982 0010140  74.0227 286.1405 14.40728545142340
+FUSE 1
+1 25791U 99035A   02065.23032416  .00001976  00000-0  55274-3 0  5067
+2 25791  24.9890  68.1059 0009928  61.2977 298.8527 14.40723876142175
+FUSE 1
+1 25791U 99035A   02063.63711823 +.00001966 +00000-0 +54965-3 0 05060
+2 25791 024.9889 077.8519 0009855 044.5446 315.5856 14.40718057141946
+FUSE 1
+1 25791U 99035A   02063.56784827  .00001964  00000-0  54915-3 0  5058
+2 25791  24.9890  78.2758 0009853  43.7948 316.3342 14.40717794141939
+FUSE 1
+1 25791U 99035A   02062.25171546  .00001967  00000-0  55002-3 0  5041
+2 25791  24.9898  86.3315 0009720  29.5760 330.5288 14.40713207141744
+FUSE 1
+1 25791U 99035A   02060.72776629  .00001974  00000-0  55231-3 0  5035
+2 25791  24.9904  95.6541 0009691  13.5587 346.5178 14.40707846141526
+FUSE 1
+1 25791U 99035A   02059.68870443  .00002061  00000-0  57921-3 0  5022
+2 25791  24.9908 102.0122 0009670   2.3178 357.7366 14.40705063141372
+FUSE 1
+1 25791U 99035A   02058.58037276 +.00001937 +00000-0 +54089-3 0 05190
+2 25791 024.9855 108.7808 0010347 348.8163 011.2115 14.40699031141216
+FUSE 1
+1 25791U 99035A   02058.23401784  .00001930  00000-0  53890-3 0  5014
+2 25791  24.9854 110.8994 0010344 345.1099  14.9105 14.40697723141169
+FUSE 1
+1 25791U 99035A   02057.95693361 +.00001927 +00000-0 +53794-3 0 05295
+2 25791 024.9853 112.5943 0010342 342.2401 017.7744 14.40696709141123
+FUSE 1
+1 25791U 99035A   02056.98714049 +.00001855 +00000-0 +51590-3 0 05016
+2 25791 024.9848 118.5439 0010389 330.7846 029.2084 14.40692621140986
+FUSE 1
+1 25791U 99035A   02056.84859804  .00001856  00000-0  51612-3 0  5005
+2 25791  24.9848 119.3917 0010396 329.3558  30.6348 14.40692155140967
+FUSE 1
+1 25791U 99035A   02055.87879896 +.00001862 +00000-0 +51795-3 0 05009
+2 25791 024.9847 125.3251 0010386 318.7436 041.2281 14.40688909140821
+FUSE 1
+1 25791U 99035A   02055.80952754  .00001868  00000-0  51976-3 0  4991
+2 25791  24.9847 125.7494 0010379 317.8153  42.1555 14.40688735140812
+FUSE 1
+1 25791U 99035A   02054.56264168  .00001830  00000-0  50822-3 0  4985
+2 25791  24.9853 133.3826 0010404 303.6462  56.3056 14.40684284140636
+FUSE 1
+1 25791U 99035A   02051.93031607 +.00001939 +00000-0 +54187-3 0 04981
+2 25791 024.9846 149.4920 0010329 274.4706 085.4618 14.40676334140255
+FUSE 1
+1 25791U 99035A   02051.86104389  .00001949  00000-0  54496-3 0  4963
+2 25791  24.9847 149.9167 0010322 273.5085  86.4222 14.40676201140241
+FUSE 1
+1 25791U 99035A   02050.89124093 +.00001793 +00000-0 +49705-3 0 04963
+2 25791 024.9879 155.8456 0009888 267.6928 092.2444 14.40671793140105
+FUSE 1
+1 25791U 99035A   02050.82196891  .00001795  00000-0  49764-3 0  4957
+2 25791  24.9879 156.2699 0009920 266.9073  93.0299 14.40671596140095
+FUSE 1
+1 25791U 99035A   02049.85216173 +.00001762 +00000-0 +48738-3 0 05049
+2 25791 024.9881 162.2061 0009833 257.1871 102.7547 14.40668129139954
+FUSE 1
+1 25791U 99035A   02049.57507351  .00001745  00000-0  48221-3 0  4945
+2 25791  24.9884 163.9032 0009829 254.4578 105.4840 14.40667101139913
+FUSE 1
+1 25791U 99035A   02048.18962711  .00001789  00000-0  49573-3 0  4934
+2 25791  24.9865 172.3765 0010089 240.4382 119.5119 14.40662912139715
+FUSE 1
+1 25791U 99035A   02047.15054256  .00001796  00000-0  49804-3 0  4920
+2 25791  24.9866 178.7417 0010129 229.8799 130.0812 14.40659621139562
+FUSE 1
+1 25791U 99035A   02045.83436523  .00001840  00000-0  51150-3 0  4910
+2 25791  24.9866 186.7961 0010148 215.4593 144.5240 14.40655733139373
+FUSE 1
+1 25791U 99035A   02044.79527556 +.00001873 +00000-0 +52184-3 0 04971
+2 25791 024.9863 193.1524 0010137 204.2065 155.7965 14.40652516139223
+FUSE 1
+1 25791U 99035A   02044.51818359  .00001925  00000-0  53776-3 0  4904
+2 25791  24.9860 194.8476 0010191 201.0271 158.9809 14.40652078139188
+FUSE 1
+1 25791U 99035A   02043.82545578 +.00001946 +00000-0 +54433-3 0 04990
+2 25791 024.9858 199.0847 0010200 193.6793 166.3433 14.40649817139082
+FUSE 1
+1 25791U 99035A   02042.92490752  .00001992  00000-0  55840-3 0  4896
+2 25791  24.9856 204.5925 0010259 184.1947 175.8472 14.40647025138951
+FUSE 1
+1 25791U 99035A   02041.95508458 +.00002053 +00000-0 +57741-3 0 04892
+2 25791 024.9856 210.5265 0010300 173.9651 186.0980 14.40644069138818
+FUSE 1
+1 25791U 99035A   02041.88581150  .00002073  00000-0  58348-3 0  4889
+2 25791  24.9861 210.9521 0010311 172.9624 187.1028 14.40644058138806
+FUSE 1
+1 25791U 99035A   02040.56961753  .00002206  00000-0  62450-3 0  4870
+2 25791  24.9858 219.0013 0010484 159.5673 200.5249 14.40640287138618
+FUSE 1
+1 25791U 99035A   02039.53051625  .00002255  00000-0  63954-3 0  4866
+2 25791  24.9858 225.3571 0010553 148.4366 211.6776 14.40636535138462
+FUSE 1
+1 25791U 99035A   02038.14504167  .00002351  00000-0  66921-3 0  4859
+2 25791  24.9858 233.8326 0010636 134.1993 225.9382 14.40631676138264
+FUSE 1
+1 25791U 99035A   02037.93721974 +.00002397 +00000-0 +68340-3 0 04938
+2 25791 024.9861 235.1054 0010736 131.7488 228.3923 14.40631273138232
+FUSE 1
+1 25791U 99035A   02036.89810875  .00002492  00000-0  71274-3 0  4847
+2 25791  24.9862 241.4623 0010829 122.1317 238.0237 14.40627644138089
+FUSE 1
+1 25791U 99035A   02035.92826968 +.00002548 +00000-0 +73019-3 0 04841
+2 25791 024.9863 247.3934 0010862 112.4256 247.7399 14.40623688137945
+FUSE 1
+1 25791U 99035A   02035.85899543  .00002552  00000-0  73123-3 0  4832
+2 25791  24.9863 247.8171 0010864 111.6988 248.4676 14.40623397137930
+FUSE 1
+1 25791U 99035A   02034.95842869 +.00002563 +00000-0 +73476-3 0 04924
+2 25791 024.9867 253.3259 0010904 102.2272 257.9457 14.40619245137805
+FUSE 1
+1 25791U 99035A   02034.26568177  .00002587  00000-0  74211-3 0  4828
+2 25791  24.9865 257.5631 0010840  95.4477 264.7266 14.40616180137700
+FUSE 1
+1 25791U 99035A   02033.22656041  .00002588  00000-0  74253-3 0  4817
+2 25791  24.9868 263.9212 0010966  84.6163 275.5595 14.40611176137558
+FUSE 1
+1 25791U 99035A   02032.18743380  .00002587  00000-0  74231-3 0  4808
+2 25791  24.9869 270.2766 0010977  73.7493 286.4230 14.40606150137408
+FUSE 1
+1 25791U 99035A   02030.94047759 +.00002528 +00000-0 +72437-3 0 04808
+2 25791 024.9874 277.9037 0011018 060.9223 299.2389 14.40599492137222
+FUSE 1
+1 25791U 99035A   02030.87120198  .00002526  00000-0  72362-3 0  4792
+2 25791  24.9874 278.3273 0011014  60.1902 299.9702 14.40599135137210
+FUSE 1
+1 25791U 99035A   02029.34713303  .00002495  00000-0  71439-3 0  4786
+2 25791  24.9875 287.6482 0010997  44.3035 315.8351 14.40591646136997
+FUSE 1
+1 25791U 99035A   02028.93147652 +.00002479 +00000-0 +70929-3 0 04862
+2 25791 024.9876 290.1899 0010994 039.9697 320.1619 14.40589498136932
+FUSE 1
+1 25791U 99035A   02028.16943701  .00002474  00000-0  70791-3 0  4778
+2 25791  24.9876 294.8500 0011006  32.1353 327.9821 14.40585928136823
+FUSE 1
+1 25791U 99035A   02027.96161389 +.00002407 +00000-0 +68742-3 0 05050
+2 25791 024.9874 296.1287 0010582 028.3810 331.7529 14.40584028136795
+FUSE 1
+1 25791U 99035A   02026.92246706  .00002341  00000-0  66697-3 0  4763
+2 25791  24.9799 302.5272 0010059  16.0811 344.0013 14.40577732136644
+FUSE 1
+1 25791U 99035A   02025.39837504  .00002257  00000-0  64121-3 0  4750
+2 25791  24.9803 311.8488 0010138 359.9596   0.0915 14.40570421136423
+FUSE 1
+1 25791U 99035A   02024.22066220  .00002170  00000-0  61445-3 0  4749
+2 25791  24.9808 319.0539 0010178 346.9833  13.0414 14.40564803136255
+FUSE 1
+1 25791U 99035A   02023.94355340 +.00002127 +00000-0 +60118-3 0 04963
+2 25791 024.9808 320.7502 0010231 343.9239 016.0947 14.40563257136213
+FUSE 1
+1 25791U 99035A   02022.97366856 +.00002070 +00000-0 +58368-3 0 04746
+2 25791 024.9809 326.6854 0010289 333.5703 026.4279 14.40558911136071
+FUSE 1
+1 25791U 99035A   02022.90439095  .00002070  00000-0  58368-3 0  4734
+2 25791  24.9809 327.1090 0010289 332.8439  27.1535 14.40558648136066
+FUSE 1
+1 25791U 99035A   02021.93450374 +.00001972 +00000-0 +55342-3 0 04738
+2 25791 024.9815 333.0432 0010420 322.2211 037.7568 14.40554066135924
+FUSE 1
+1 25791U 99035A   02021.51883604  .00001971  00000-0  55294-3 0  4722
+2 25791  24.9815 335.5850 0010420 317.8920  42.0786 14.40552554135866
+FUSE 1
+1 25791U 99035A   02020.34111020  .00001902  00000-0  53176-3 0  4718
+2 25791  24.9819 342.7879 0010496 305.4885  54.4643 14.40547753135692
+FUSE 1
+1 25791U 99035A   02019.23265919  .00001870  00000-0  52196-3 0  4705
+2 25791  24.9819 349.5667 0010511 294.0221  65.9186 14.40543639135538
+FUSE 1
+1 25791U 99035A   02018.19348466  .00001814  00000-0  50458-3 0  4693
+2 25791  24.9822 355.9219 0010534 283.3551  76.5783 14.40539652135382
+FUSE 1
+1 25791U 99035A   02016.60007962  .00001743  00000-0  48297-3 0  4688
+2 25791  24.9823   5.6676 0010591 266.8378  93.0919 14.40533828135154
+FUSE 1
+1 25791U 99035A   02015.76873696 +.00001678 +00000-0 +46283-3 0 04713
+2 25791 024.9823 010.7535 0010644 258.3411 101.5912 14.40530615135034
+FUSE 1
+1 25791U 99035A   02015.56090099  .00001670  00000-0  46017-3 0  4671
+2 25791  24.9825  12.0258 0010623 256.2726 103.6602 14.40529913135001
+FUSE 1
+1 25791U 99035A   02014.59099802 +.00001637 +00000-0 +45017-3 0 04801
+2 25791 024.9827 017.9579 0010652 246.2520 113.6872 14.40526735134868
+FUSE 1
+1 25791U 99035A   02014.24460394  .00001618  00000-0  44436-3 0  4668
+2 25791  24.9826  20.0778 0010710 242.8070 117.1346 14.40525522134813
+FUSE 1
+1 25791U 99035A   02012.65118694  .00001644  00000-0  45243-3 0  4659
+2 25791  24.9821  29.8239 0010731 226.1513 133.8108 14.40521061134586
+FUSE 1
+1 25791U 99035A   02011.54272015  .00001715  00000-0  47438-3 0  4640
+2 25791  24.9815  36.6044 0010793 214.5223 145.4584 14.40518322134422
+FUSE 1
+1 25791U 99035A   02010.43425174  .00001799  00000-0  50019-3 0  4633
+2 25791  24.9809  43.3849 0010812 202.7174 157.2854 14.40515528134267
+FUSE 1
+1 25791U 99035A   02009.25649964  .00002024  00000-0  56982-3 0  4622
+2 25791  24.9789  50.5894 0010900 190.2577 169.7698 14.40513435134090
+FUSE 1
+1 25791U 99035A   02007.73234977  .00002144  00000-0  60706-3 0  4618
+2 25791  24.9780  59.9106 0010959 174.4447 185.6181 14.40508676133874
+FUSE 1
+1 25791U 99035A   02006.55459467  .00002207  00000-0  62629-3 0  4605
+2 25791  24.9776  67.1133 0010962 161.9239 198.1657 14.40504470133701
+FUSE 1
+1 25791U 99035A   02005.93107615 +.00002223 +00000-0 +63140-3 0 04899
+2 25791 024.9772 070.9268 0010959 155.3799 204.7234 14.40502008133612
+FUSE 1
+1 25791U 99035A   02005.23827537  .00002302  00000-0  65586-3 0  4595
+2 25791  24.9762  75.1663 0011117 148.7865 211.3305 14.40499774133511
+FUSE 1
+1 25791U 99035A   02003.92195234  .00002277  00000-0  64830-3 0  4582
+2 25791  24.9761  83.2157 0011128 134.9320 225.2086 14.40493934133324
+FUSE 1
+1 25791U 99035A   02002.88274676  .00002253  00000-0  64083-3 0  4577
+2 25791  24.9763  89.5747 0011378 124.3397 235.8189 14.40489372133179
+FUSE 1
+1 25791U 99035A   02001.91281822 +.00002146 +00000-0 +60789-3 0 04694
+2 25791 024.9768 095.5070 0011442 114.6843 245.4859 14.40484505133039
+FUSE 1
+1 25791U 99035A   02001.56641338  .00002152  00000-0  60976-3 0  4568
+2 25791  24.9764  97.6258 0011412 111.4641 248.7084 14.40483142132989
+FUSE 1
+1 25791U 99035A   01365.87360347 +.00002106 +00000-0 +59549-3 0 04723
+2 25791 024.9765 101.8629 0011436 104.3050 255.8720 14.40480024132882
+FUSE 1
+1 25791U 99035A   01365.52719815  .00002060  00000-0  58137-3 0  4555
+2 25791  24.9767 103.9819 0011371 101.3489 258.8298 14.40478294132833
+FUSE 1
+1 25791U 99035A   01364.14157199  .00001894  00000-0  53009-3 0  4549
+2 25791  24.9776 112.4568 0011372  87.4678 272.7139 14.40471893132639
+FUSE 1
+1 25791U 99035A   01362.89450064  .00001855  00000-0  51805-3 0  4534
+2 25791  24.9779 120.0847 0011421  75.1248 285.0524 14.40467329132453
+FUSE 1
+1 25791U 99035A   01361.92455302 +.00001831 +00000-0 +51089-3 0 04748
+2 25791 024.9778 126.0189 0011472 065.3088 294.8603 14.40463838132318
+FUSE 1
+1 25791U 99035A   01361.57814148  .00001900  00000-0  53207-3 0  4523
+2 25791  24.9772 128.1378 0011523  62.3118 297.8556 14.40463267132263
+FUSE 1
+1 25791U 99035A   01360.95460072 +.00001920 +00000-0 +53816-3 0 04716
+2 25791 024.9770 131.9515 0011492 055.8592 304.2995 14.40461264132179
+FUSE 1
+1 25791U 99035A   01360.53891054  .00002081  00000-0  58819-3 0  4513
+2 25791  24.9761 134.4940 0011549  52.3362 307.8493 14.40461175132116
+FUSE 1
+1 25791U 99035A   01360.19249807  .00001557  00000-0  42615-3 0  4501
+2 25791  24.9814 136.6178 0011030  44.8843 315.2554 14.40455881132069
+FUSE 1
+1 25791U 99035A   01358.87612700  .00001498  00000-0  40783-3 0  4495
+2 25791  24.9820 144.6693 0010973  30.9588 329.1578 14.40451843131876
+FUSE 1
+1 25791U 99035A   01357.55975188  .00001377  00000-0  37042-3 0  4480
+2 25791  24.9830 152.7226 0010843  16.8175 343.2692 14.40447508131686
+FUSE 1
+1 25791U 99035A   01356.24337185  .00001363  00000-0  36634-3 0  4474
+2 25791  24.9832 160.7748 0010783   3.1653 356.8921 14.40444244131497
+FUSE 1
+1 25791U 99035A   01355.13483804  .00001399  00000-0  37745-3 0  4463
+2 25791  24.9832 167.5556 0010791 351.3648   8.6665 14.40441877131339
+FUSE 1
+1 25791U 99035A   01353.88773524  .00001488  00000-0  40499-3 0  4452
+2 25791  24.9831 175.1848 0010716 338.1167  21.8882 14.40439533131157
+FUSE 1
+1 25791U 99035A   01352.91776521 +.00001536 +00000-0 +41984-3 0 04527
+2 25791 024.9828 181.1169 0010739 327.7733 032.2118 14.40437323131012
+FUSE 1
+1 25791U 99035A   01352.57134719  .00001547  00000-0  42314-3 0  4447
+2 25791  24.9827 183.2356 0010758 324.0828  35.8958 14.40436465130968
+FUSE 1
+1 25791U 99035A   01351.39352449  .00001601  00000-0  43981-3 0  4439
+2 25791  24.9825 190.4393 0010750 311.5670  48.3911 14.40433644130790
+FUSE 1
+1 25791U 99035A   01350.90853821 +.00001630 +00000-0 +44889-3 0 04570
+2 25791 024.9828 193.4057 0010738 306.2371 053.7148 14.40432555130723
+FUSE 1
+1 25791U 99035A   01350.21570001  .00001672  00000-0  46189-3 0  4425
+2 25791  24.9825 197.6430 0010796 298.8753  61.0671 14.40430851130624
+FUSE 1
+1 25791U 99035A   01349.17644244  .00001720  00000-0  47692-3 0  4412
+2 25791  24.9826 203.9992 0010810 288.0247  71.9089 14.40428119130475
+FUSE 1
+1 25791U 99035A   01348.13718358  .00001739  00000-0  48271-3 0  4408
+2 25791  24.9830 210.3552 0010817 277.4348  82.4917 14.40425082130322
+FUSE 1
+1 25791U 99035A   01346.95935558 +.00001792 +00000-0 +49923-3 0 04414
+2 25791 024.9832 217.5601 0010828 264.7976 095.1293 14.40421820130151
+FUSE 1
+1 25791U 99035A   01346.89007156  .00001798  00000-0  50103-3 0  4396
+2 25791  24.9831 217.9838 0010822 264.0722  95.8552 14.40421637130142
+FUSE 1
+1 25791U 99035A   01345.92009452 +.00001804 +00000-0 +50297-3 0 04561
+2 25791 024.9834 223.9163 0010848 253.7226 106.2093 14.40418551130008
+FUSE 1
+1 25791U 99035A   01345.50438976  .00001829  00000-0  51074-3 0  4383
+2 25791  24.9833 226.4598 0010750 249.3404 110.5947 14.40417367129949
+FUSE 1
+1 25791U 99035A   01344.95011669 +.00001830 +00000-0 +51089-3 0 04543
+2 25791 024.9832 229.8499 0010756 243.5301 116.4117 14.40415519129865
+FUSE 1
+1 25791U 99035A   01344.18799003  .00001792  00000-0  49923-3 0  4375
+2 25791  24.9834 234.5123 0010818 235.5423 124.4062 14.40412721129757
+FUSE 1
+1 25791U 99035A   01343.14872416  .00001816  00000-0  50671-3 0  4368
+2 25791  24.9837 240.8680 0010867 223.8806 136.0838 14.40409582129602
+FUSE 1
+1 25791U 99035A   01341.90160523  .00001680  00000-0  46452-3 0  4359
+2 25791  24.9841 248.4975 0010871 211.3142 148.6721 14.40404442129428
+FUSE 1
+1 25791U 99035A   01340.93162024 +.00001621 +00000-0 +44627-3 0 04479
+2 25791 024.9843 254.4284 0010863 200.7838 159.2234 14.40401129129285
+FUSE 1
+1 25791U 99035A   01340.37734226  .00001562  00000-0  42806-3 0  4343
+2 25791  24.9846 257.8173 0010861 194.8366 165.1825 14.40399138129209
+FUSE 1
+1 25791U 99035A   01339.19949999  .00001406  00000-0  37978-3 0  4336
+2 25791  24.9853 265.0213 0010893 182.8071 177.2377 14.40394882129036
+FUSE 1
+1 25791U 99035A   01337.95236873  .00001264  00000-0  33601-3 0  4328
+2 25791  24.9859 272.6472 0011030 169.6495 190.4242 14.40391020128858
+FUSE 1
+1 25791U 99035A   01336.98237488 +.00001205 +00000-0 +31765-3 0 04350
+2 25791 024.9862 278.5777 0011067 159.5220 200.5735 14.40388553128711
+FUSE 1
+1 25791U 99035A   01336.91308955  .00001199  00000-0  31585-3 0  4319
+2 25791  24.9862 279.0014 0011071 158.8008 201.2962 14.40388365128702
+FUSE 1
+1 25791U 99035A   01335.52738000  .00001234  00000-0  32682-3 0  4301
+2 25791  24.9862 287.4731 0011104 144.1718 215.9555 14.40385754128501
+FUSE 1
+1 25791U 99035A   01334.21095244  .00001172  00000-0  30740-3 0  4294
+2 25791  24.9865 295.5226 0011153 130.8481 229.2994 14.40382693128319
+FUSE 1
+1 25791U 99035A   01333.17166461  .00001237  00000-0  32780-3 0  4285
+2 25791  24.9866 301.8786 0011197 121.1081 239.0526 14.40380912128164
+FUSE 1
+1 25791U 99035A   01331.78594478  .00001365  00000-0  36732-3 0  4275
+2 25791  24.9865 310.3519 0011209 106.8472 253.3273 14.40378324127969
+FUSE 1
+1 25791U 99035A   01330.67736645 +.00001415 +00000-0 +38296-3 0 04303
+2 25791 024.9868 317.1335 0011064 094.8355 265.3420 14.40375646127802
+FUSE 1
+1 25791U 99035A   01330.53879352  .00001567  00000-0  43006-3 0  4269
+2 25791  24.9872 317.9818 0011229  93.6128 266.5666 14.40376029127787
+FUSE 1
+1 25791U 99035A   01329.70735725 +.00001621 +00000-0 +44667-3 0 04457
+2 25791 024.9872 323.0652 0011232 084.6461 275.5327 14.40373883127661
+FUSE 1
+1 25791U 99035A   01329.22235264  .00001585  00000-0  43552-3 0  4256
+2 25791  24.9876 326.0324 0011267  80.2956 279.8829 14.40372335127590
+FUSE 1
+1 25791U 99035A   01327.83661937  .00001684  00000-0  46626-3 0  4245
+2 25791  24.9875 334.5052 0011431  65.9356 294.2344 14.40369004127398
+FUSE 1
+1 25791U 99035A   01326.52016884  .00001740  00000-0  48380-3 0  4236
+2 25791  24.9874 342.5535 0011585  52.2073 307.9485 14.40365366127202
+FUSE 1
+1 25791U 99035A   01325.41157411  .00001880  00000-0  52699-3 0  4227
+2 25791  24.9858 349.3412 0010869  41.2944 318.8383 14.40362474127049
+FUSE 1
+1 25791U 99035A   01324.92656363 +.00001916 +00000-0 +53838-3 0 04486
+2 25791 024.9856 352.3075 0010879 036.2259 323.8984 14.40361028126978
+FUSE 1
+1 25791U 99035A   01324.23369056  .00001967  00000-0  55417-3 0  4212
+2 25791  24.9855 356.5485 0010758  28.8088 331.3014 14.40358919126873
+FUSE 1
+1 25791U 99035A   01323.67939132 +.00001961 +00000-0 +55223-3 0 04407
+2 25791 024.9854 359.9372 0010776 023.0532 337.0460 14.40356881126790
+FUSE 1
+1 25791U 99035A   01322.70936542  .00001987  00000-0  56035-3 0  4198
+2 25791  24.9853   5.8688 0010772  12.9432 347.1352 14.40353526126658
+FUSE 1
+1 25791U 99035A   01321.67005005  .00001934  00000-0  54405-3 0  4184
+2 25791  24.9852  12.2257 0010726   1.9216 358.1340 14.40349375126508
+FUSE 1
+1 25791U 99035A   01320.56144300  .00001920  00000-0  53980-3 0  4174
+2 25791  24.9852  19.0058 0010683 350.0478   9.9818 14.40345343126346
+FUSE 1
+1 25791U 99035A   01319.52212142  .00001855  00000-0  51954-3 0  4163
+2 25791  24.9851  25.3612 0010623 338.9778  21.0292 14.40341342126192
+FUSE 1
+1 25791U 99035A   01318.82923904 +.00001856 +00000-0 +52003-3 0 04314
+2 25791 024.9847 029.5994 0010595 331.5863 028.4066 14.40338911126095
+FUSE 1
+1 25791U 99035A   01318.41350910  .00001890  00000-0  53052-3 0  4155
+2 25791  24.9848  32.1452 0010575 326.5664  33.4173 14.40337609126038
+FUSE 1
+1 25791U 99035A   01316.88916357  .00001729  00000-0  48061-3 0  4141
+2 25791  24.9843  41.4680 0010423 310.4505  49.5094 14.40331762125816
+FUSE 1
+1 25791U 99035A   01315.78054605  .00002207  00000-0  62878-3 0  4131
+2 25791  24.9835  48.2543 0010468 297.9246  62.0232 14.40329121125652
+FUSE 1
+1 25791U 99035A   01314.67192519  .00002266  00000-0  64699-3 0  4122
+2 25791  24.9832  55.0359 0010699 286.0302  73.9029 14.40324776125496
+FUSE 1
+1 25791U 99035A   01313.56330279  .00002157  00000-0  61343-3 0  4117
+2 25791  24.9831  61.8147 0010834 274.3350  85.5922 14.40319729125335
+FUSE 1
+1 25791U 99035A   01312.52396703  .00002119  00000-0  60174-3 0  4104
+2 25791  24.9829  68.1695 0010860 263.6572  96.2701 14.40315363125183
+FUSE 1
+1 25791U 99035A   01311.76178660 +.00001972 +00000-0 +55623-3 0 04344
+2 25791 024.9830 072.8283 0010752 255.8544 104.0769 14.40311922125079
+FUSE 1
+1 25791U 99035A   01310.99960448  .00001931  00000-0  54345-3 0  4098
+2 25791  24.9829  77.4894 0010755 247.9477 111.9889 14.40308978124960
+FUSE 1
+1 25791U 99035A   01309.96026276 +.00001965 +00000-0 +55405-3 0 04090
+2 25791 024.9829 083.8473 0010851 237.1463 122.8002 14.40305487124811
+FUSE 1
+1 25791U 99035A   01309.89097339  .00001972  00000-0  55619-3 0  4084
+2 25791  24.9829  84.2713 0010836 236.3815 123.5665 14.40305298124800
+FUSE 1
+1 25791U 99035A   01308.57447006  .00002179  00000-0  62044-3 0  4077
+2 25791  24.9822  92.3254 0010825 222.6458 137.3208 14.40301956124614
+FUSE 1
+1 25791U 99035A   01307.53512328  .00002351  00000-0  67374-3 0  4064
+2 25791  24.9814  98.6808 0010806 211.6998 148.2862 14.40299019124461
+FUSE 1
+1 25791U 99035A   01305.94145638 +.00002419 +00000-0 +69493-3 0 04062
+2 25791 024.9809 108.4263 0010833 195.2773 164.7418 14.40292404124234
+FUSE 1
+1 25791U 99035A   01305.87216636  .00002410  00000-0  69213-3 0  4051
+2 25791  24.9811 108.8509 0010847 194.5526 165.4669 14.40292047124225
+FUSE 1
+1 25791U 99035A   01304.90210496 +.00002483 +00000-0 +71481-3 0 04210
+2 25791 024.9807 114.7853 0010812 184.6053 175.4356 14.40288074124088
+FUSE 1
+1 25791U 99035A   01304.55565381  .00002564  00000-0  73991-3 0  4046
+2 25791  24.9803 116.9068 0010808 180.8733 179.1763 14.40287007124037
+FUSE 1
+1 25791U 99035A   01303.93204085 +.00002548 +00000-0 +73522-3 0 04141
+2 25791 024.9803 120.7190 0010799 174.3529 185.7099 14.40283909123947
+FUSE 1
+1 25791U 99035A   01303.03126575  .00002520  00000-0  72659-3 0  4037
+2 25791  24.9800 126.2295 0010755 164.6304 195.4536 14.40279287123810
+FUSE 1
+1 25791U 99035A   01301.78402958  .00002608  00000-0  75393-3 0  4023
+2 25791  24.9799 133.8566 0011062 153.3348 206.7722 14.40274032123633
+FUSE 1
+1 25791U 99035A   01299.91316810  .00002915  00000-0  84930-3 0  4012
+2 25791  24.9792 145.2965 0011048 134.0555 226.0864 14.40265988123368
+FUSE 1
+1 25791U 99035A   01298.18087804  .00003212  00000-0  94181-3 0  4007
+2 25791  24.9785 155.8916 0011040 115.9737 244.1911 14.40256974123117
+FUSE 1
+1 25791U 99035A   01297.97300262 +.00003234 +00000-0 +94848-3 0 04115
+2 25791 024.9787 157.1643 0011055 113.7776 246.3895 14.40255785123086
+FUSE 1
+1 25791U 99035A   01297.07220791  .00002684  00000-0  77791-3 0  3995
+2 25791  24.9787 162.6747 0010929 104.4008 255.7717 14.40248557122957
+FUSE 1
+1 25791U 99035A   01295.96352986 +.00002126 +00000-0 +60489-3 0 04025
+2 25791 024.9793 169.4508 0010628 092.8140 267.3584 14.40240931122798
+FUSE 1
+1 25791U 99035A   01295.89423827  .00002043  00000-0  57915-3 0  3982
+2 25791  24.9794 169.8749 0010644  91.9762 268.1968 14.40240146122780
+FUSE 1
+1 25791U 99035A   01294.92413976 +.00001853 +00000-0 +51998-3 0 04152
+2 25791 024.9798 175.8066 0010633 081.1941 278.9772 14.40235323122649
+FUSE 1
+1 25791U 99035A   01294.30050214  .00001823  00000-0  51089-3 0  3973
+2 25791  24.9799 179.6196 0010702  74.5779 285.5911 14.40232995122559
+FUSE 1
+1 25791U 99035A   01293.26110316  .00001744  00000-0  48616-3 0  3960
+2 25791  24.9799 185.9754 0010658  63.5604 296.6004 14.40228963122404
+FUSE 1
+1 25791U 99035A   01292.22169993  .00001707  00000-0  47471-3 0  3956
+2 25791  24.9799 192.3301 0010648  52.4658 307.6827 14.40225399122258
+FUSE 1
+1 25791U 99035A   01290.97441176 +.00001672 +00000-0 +46391-3 0 03975
+2 25791 024.9797 199.9582 0010599 039.1258 321.0014 14.40221249122071
+FUSE 1
+1 25791U 99035A   01290.90511781  .00001674  00000-0  46472-3 0  3947
+2 25791  24.9797 200.3818 0010601  38.3799 321.7462 14.40221053122061
+FUSE 1
+1 25791U 99035A   01289.44994252  .00001682  00000-0  46703-3 0  3937
+2 25791  24.9794 209.2810 0010620  22.7711 337.3265 14.40216632121857
+FUSE 1
+1 25791U 99035A   01288.96488349 +.00001640 +00000-0 +45420-3 0 04039
+2 25791 024.9794 212.2491 0010567 017.4224 342.6645 14.40214807121781
+FUSE 1
+1 25791U 99035A   01288.41052915  .00001638  00000-0  45357-3 0  3928
+2 25791  24.9794 215.6384 0010635  11.8186 348.2573 14.40213128121709
+FUSE 1
+1 25791U 99035A   01287.23252352  .00001574  00000-0  43355-3 0  3918
+2 25791  24.9794 222.8447 0010562 358.4459   1.6013 14.40209149121539
+FUSE 1
+1 25791U 99035A   01285.91592729  .00001390  00000-0  37646-3 0  3907
+2 25791  24.9795 230.9044 0010544 342.9330  17.0829 14.40203938121344
+FUSE 1
+1 25791U 99035A   01284.39144118  .00001300  00000-0  34838-3 0  3892
+2 25791  24.9795 240.2335 0010739 326.2228  33.7597 14.40199484121121
+FUSE 1
+1 25791U 99035A   01283.97567245 +.00001223 +00000-0 +32457-3 0 03894
+2 25791 024.9792 242.7798 0010828 320.9649 039.0093 14.40197815121064
+FUSE 1
+1 25791U 99035A   01283.35201646  .00001212  00000-0  32118-3 0  3887
+2 25791  24.9792 246.5916 0010829 314.6054  45.3576 14.40196427120972
+FUSE 1
+1 25791U 99035A   01282.31258856 +.00001218 +00000-0 +32310-3 0 03876
+2 25791 024.9792 252.9458 0010895 303.3438 056.6026 14.40194305120820
+FUSE 1
+1 25791U 99035A   01281.96611121 +.00001476 +00000-0 +40318-3 0 03877
+2 25791 024.9786 255.0631 0010800 300.4688 059.4739 14.40195140120775
+FUSE 1
+1 25791U 99035A   01281.27315947  .00001503  00000-0  41154-3 0  3867
+2 25791  24.9785 259.2981 0010800 293.1387  66.7977 14.40193471120671
+FUSE 1
+1 25791U 99035A   01280.23373114  .00001657  00000-0  45958-3 0  3857
+2 25791  24.9781 265.6543 0010925 282.3330  77.5954 14.40191161120521
+FUSE 1
+1 25791U 99035A   01279.19430003  .00002067  00000-0  58705-3 0  3840
+2 25791  24.9775 272.0130 0011160 270.5332  89.3900 14.40189300120378
+FUSE 1
+1 25791U 99035A   01277.60050645  .00002136  00000-0  60847-3 0  3830
+2 25791  24.9771 281.7563 0011259 253.7403 106.1876 14.40183292120141
+FUSE 1
+1 25791U 99035A   01276.69966572 +.00002038 +00000-0 +57797-3 0 03834
+2 25791 024.9770 287.2658 0011436 244.9457 114.9868 14.40179081120019
+FUSE 1
+1 25791U 99035A   01276.56107445  .00002038  00000-0  57794-3 0  3822
+2 25791  24.9770 288.1132 0011429 243.5500 116.3834 14.40178557119993
+FUSE 1
+1 25791U 99035A   01275.59093557 +.00002005 +00000-0 +56772-3 0 03900
+2 25791 024.9769 294.0432 0011469 233.5602 126.3872 14.40174627119858
+FUSE 1
+1 25791U 99035A   01275.24445817  .00001894  00000-0  53340-3 0  3815
+2 25791  24.9772 296.1661 0011642 231.1207 128.8260 14.40172274119806
+FUSE 1
+1 25791U 99035A   01274.20502117  .00001837  00000-0  51559-3 0  3803
+2 25791  24.9774 302.5234 0011565 220.9357 139.0293 14.40168098119654
+FUSE 1
+1 25791U 99035A   01272.54191528  .00001742  00000-0  48618-3 0  3793
+2 25791  24.9776 312.6900 0011479 204.0234 155.9738 14.40161743119414
+FUSE 1
+1 25791U 99035A   01271.22528748  .00001537  00000-0  42239-3 0  3789
+2 25791  24.9783 320.7396 0011360 191.6142 168.4111 14.40155760119224
+FUSE 1
+1 25791U 99035A   01270.18584050  .00001414  00000-0  38420-3 0  3771
+2 25791  24.9786 327.0943 0011214 181.1674 178.8811 14.40151731119076
+FUSE 1
+1 25791U 99035A   01268.59201413  .00001316  00000-0  35376-3 0  3769
+2 25791  24.9790 336.8359 0011124 164.6593 195.4255 14.40146964118849
+FUSE 1
+1 25791U 99035A   01267.55255878  .00001264  00000-0  33768-3 0  3752
+2 25791  24.9791 343.1899 0011084 153.8979 206.2088 14.40144164118691
+FUSE 1
+1 25791U 99035A   01266.85958720 +.00001236 +00000-0 +32881-3 0 04003
+2 25791 024.9791 347.4254 0011062 146.6571 213.4636 14.40142395118599
+FUSE 1
+1 25791U 99035A   01266.23591181  .00001222  00000-0  32443-3 0  3748
+2 25791  24.9790 351.2395 0010997 140.3022 219.8292 14.40140919118504
+FUSE 1
+1 25791U 99035A   01264.84996263  .00001228  00000-0  32643-3 0  3730
+2 25791  24.9790 359.7127 0010966 126.1194 234.0331 14.40138072118306
+FUSE 1
+1 25791U 99035A   01263.81049784  .00001251  00000-0  33374-3 0  3720
+2 25791  24.9787   6.0658 0010961 115.2876 244.8774 14.40136053118154
+FUSE 1
+1 25791U 99035A   01262.90962669 +.00001258 +00000-0 +33575-3 0 03770
+2 25791 024.9786 011.5725 0010944 105.8616 254.3099 14.40134145118029
+FUSE 1
+1 25791U 99035A   01262.56313782  .00001225  00000-0  32562-3 0  3711
+2 25791  24.9789  13.6910 0010897 102.2762 257.8965 14.40133131117978
+FUSE 1
+1 25791U 99035A   01261.73156198 +.00001238 +00000-0 +32981-3 0 03916
+2 25791 024.9787 018.7732 0010906 093.5350 266.6406 14.40131469117857
+FUSE 1
+1 25791U 99035A   01260.76138915  .00001191  00000-0  31510-3 0  3707
+2 25791  24.9789  24.7033 0010879  83.2256 276.9490 14.40129023117715
+FUSE 1
+1 25791U 99035A   01259.92981039 +.00001175 +00000-0 +31013-3 0 03874
+2 25791 024.9786 029.7863 0010871 074.4468 285.7243 14.40127147117592
+FUSE 1
+1 25791U 99035A   01259.58331925  .00001147  00000-0  30130-3 0  3697
+2 25791  24.9787  31.9057 0010852  70.6480 289.5197 14.40126176117540
+FUSE 1
+1 25791U 99035A   01258.95963335 +.00001144 +00000-0 +30044-3 0 03874
+2 25791 024.9786 035.7176 0010865 064.0853 296.0773 14.40124921117457
+FUSE 1
+1 25791U 99035A   01258.54384331  .00001102  00000-0  28749-3 0  3684
+2 25791  24.9787  38.2594 0010849  59.6296 300.5294 14.40123716117396
+FUSE 1
+1 25791U 99035A   01256.88067564  .00001029  00000-0  26472-3 0  3673
+2 25791  24.9789  48.4246 0010881  42.1181 318.0162 14.40120076117159
+FUSE 1
+1 25791U 99035A   01255.84119312 +.00000982 +00000-0 +24994-3 0 03828
+2 25791 024.9791 054.7780 0010906 031.2706 328.8450 14.40117913117004
+FUSE 1
+1 25791U 99035A   01255.56399752  .00000973  00000-0  24725-3 0  3669
+2 25791  24.9790  56.4726 0010911  28.3803 331.7300 14.40117363116963
+FUSE 1
+1 25791U 99035A   01254.17801710  .00000928  00000-0  23335-3 0  3652
+2 25791  24.9790  64.9453 0010913  13.8647 346.2161 14.40114762116765
+FUSE 1
+1 25791U 99035A   01253.13853000  .00000871  00000-0  21540-3 0  3648
+2 25791  24.9793  71.2996 0010924   2.8497 357.2074 14.40112768116617
+FUSE 1
+1 25791U 99035A   01251.89114396  .00000824  00000-0  20070-3 0  3631
+2 25791  24.9796  78.9282 0010899 349.5744  10.4536 14.40110640116437
+FUSE 1
+1 25791U 99035A   01250.57445682  .00000789  00000-0  18992-3 0  3629
+2 25791  24.9798  86.9794 0010848 335.6563  24.3436 14.40108640116244
+FUSE 1
+1 25791U 99035A   01249.39636695  .00000757  00000-0  18011-3 0  3619
+2 25791  24.9802  94.1822 0010810 323.2224  36.7543 14.40106962116071
+FUSE 1
+1 25791U 99035A   01248.91127102 +.00000751 +00000-0 +17803-3 0 03830
+2 25791 024.9803 097.1479 0010787 318.2500 041.7192 14.40106349116005
+FUSE 1
+1 25791U 99035A   01248.21827703  .00000711  00000-0  16549-3 0  3604
+2 25791  24.9806 101.3869 0010851 311.0280  48.9290 14.40105201115909
+FUSE 1
+1 25791U 99035A   01247.94107926 +.00000692 +00000-0 +15961-3 0 03998
+2 25791 024.9808 103.0812 0010848 308.0548 051.8982 14.40104743115863
+FUSE 1
+1 25791U 99035A   01246.97088639 +.00000665 +00000-0 +15119-3 0 03624
+2 25791 024.9811 109.0135 0010822 297.4688 062.4719 14.40103568115724
+FUSE 1
+1 25791U 99035A   01246.90158683  .00000665  00000-0  15140-3 0  3594
+2 25791  24.9811 109.4371 0010823 296.7486  63.1913 14.40103507115715
+FUSE 1
+1 25791U 99035A   01245.86209396  .00000696  00000-0  16089-3 0  3582
+2 25791  24.9808 115.7946 0010841 285.1746  74.7568 14.40102728115561
+FUSE 1
+1 25791U 99035A   01244.47610489  .00000659  00000-0  14935-3 0  3573
+2 25791  24.9811 124.2700 0010831 270.7608  89.1659 14.40100949115366
+FUSE 1
+1 25791U 99035A   01243.36731275  .00000662  00000-0  15021-3 0  3567
+2 25791  24.9811 131.0482 0010866 258.9721 100.9574 14.40099892115206
+FUSE 1
+1 25791U 99035A   01242.25852056  .00000648  00000-0  14586-3 0  3553
+2 25791  24.9814 137.8264 0010894 247.3559 112.5794 14.40098711115047
+FUSE 1
+1 25791U 99035A   01241.98132292 +.00000630 +00000-0 +14046-3 0 03737
+2 25791 024.9816 139.5223 0010941 244.5808 115.3567 14.40098300115001
+FUSE 1
+1 25791U 99035A   01241.21902828  .00000629  00000-0  14009-3 0  3549
+2 25791  24.9817 144.1835 0011009 236.5844 123.3610 14.40097610114897
+FUSE 1
+1 25791U 99035A   01239.97163784 +.00000567 +00000-0 +12075-3 0 03541
+2 25791 024.9822 151.8119 0011137 224.0036 135.9578 14.40096009114714
+FUSE 1
+1 25791U 99035A   01239.90233840  .00000573  00000-0  12271-3 0  3539
+2 25791  24.9822 152.2355 0011140 223.3426 136.6211 14.40096007114709
+FUSE 1
+1 25791U 99035A   01238.93214506 +.00000578 +00000-0 +12417-3 0 03569
+2 25791 024.9822 158.1667 0011192 213.0996 146.8828 14.40095287114565
+FUSE 1
+1 25791U 99035A   01238.44704821  .00000558  00000-0  11791-3 0  3527
+2 25791  24.9823 161.1314 0011195 208.1454 151.8451 14.40094733114491
+FUSE 1
+1 25791U 99035A   01237.19965619  .00000543  00000-0  11309-3 0  3510
+2 25791  24.9826 168.7556 0011260 195.0033 165.0141 14.40093691114311
+FUSE 1
+1 25791U 99035A   01235.46716564  .00000559  00000-0  11830-3 0  3506
+2 25791  24.9826 179.3436 0011265 177.0928 182.9645 14.40092549114064
+FUSE 1
+1 25791U 99035A   01234.91276874 +.00000555 +00000-0 +11697-3 0 03518
+2 25791 024.9826 182.7322 0011267 171.3778 188.6930 14.40092091113980
+FUSE 1
+1 25791U 99035A   01234.21977186  .00000553  00000-0  11627-3 0  3493
+2 25791  24.9827 186.9667 0011270 164.0792 196.0070 14.40091557113881
+FUSE 1
+1 25791U 99035A   01233.18027640  .00000553  00000-0  11642-3 0  3485
+2 25791  24.9827 193.3193 0011293 153.2255 206.8853 14.40090779113734
+FUSE 1
+1 25791U 99035A   01231.72498050  .00000562  00000-0  11920-3 0  3478
+2 25791  24.9824 202.2156 0011301 138.1751 221.9616 14.40089739113529
+FUSE 1
+1 25791U 99035A   01230.54688298  .00000525  00000-0  10770-3 0  3462
+2 25791  24.9834 209.4179 0011313 126.3801 233.7753 14.40088665113353
+FUSE 1
+1 25791U 99035A   01229.23018362  .00000520  00000-0  10610-3 0  3452
+2 25791  24.9836 217.4680 0011315 112.6116 247.5590 14.40087703113163
+FUSE 1
+1 25791U 99035A   01228.81438323 +.00000515 +00000-0 +10467-3 0 03665
+2 25791 024.9835 220.0093 0011311 108.2127 251.9609 14.40087362113104
+FUSE 1
+1 25791U 99035A   01227.84418190  .00000497  00000-0  98977-4 0  3445
+2 25791  24.9840 225.9413 0011274  98.5742 261.6044 14.40086582112969
+FUSE 1
+1 25791U 99035A   01226.66607788 +.00000493 +00000-0 +97886-4 0 03463
+2 25791 024.9839 233.1408 0011275 086.3501 273.8298 14.40085796112794
+FUSE 1
+1 25791U 99035A   01226.52747722  .00000492  00000-0  97361-4 0  3435
+2 25791  24.9840 233.9884 0011272  84.8774 275.3014 14.40085704112774
+FUSE 1
+1 25791U 99035A   01225.21077022  .00000514  00000-0  10445-3 0  3420
+2 25791  24.9840 242.0362 0011245  71.4518 288.7213 14.40085082112581
+FUSE 1
+1 25791U 99035A   01223.89406193  .00000470  00000-0  90604-4 0  3413
+2 25791  24.9848 250.0849 0011117  57.6806 302.4776 14.40083898112392
+FUSE 1
+1 25791U 99035A   01222.78525341  .00000440  00000-0  81399-4 0  3404
+2 25791  24.9853 256.8629 0011047  46.0947 314.0477 14.40083059112237
+FUSE 1
+1 25791U 99035A   01221.95364609 +.00000421 +00000-0 +75317-4 0 03435
+2 25791 024.9857 261.9471 0011006 037.3315 322.7958 14.40082476112119
+FUSE 1
+1 25791U 99035A   01221.53784190  .00000421  00000-0  75510-4 0  3390
+2 25791  24.9858 264.4889 0010990  32.9399 327.1792 14.40082299112056
+FUSE 1
+1 25791U 99035A   01220.98343688 +.00000390 +00000-0 +65848-4 0 03579
+2 25791 024.9859 267.8782 0010962 026.9957 333.1120 14.40081738111977
+FUSE 1
+1 25791U 99035A   01220.22112886  .00000387  00000-0  64765-4 0  3382
+2 25791  24.9860 272.5393 0010909  18.8496 341.2417 14.40081380111869
+FUSE 1
+1 25791U 99035A   01218.97371408  .00000391  00000-0  65912-4 0  3377
+2 25791  24.9861 280.1628 0010876   5.5029 354.5594 14.40080902111686
+FUSE 1
+1 25791U 99035A   01217.86490136  .00000373  00000-0  60393-4 0  3361
+2 25791  24.9866 286.9411 0010853 353.7666   6.2707 14.40080339111529
+FUSE 1
+1 25791U 99035A   01216.82538872  .00000371  00000-0  59777-4 0  3357
+2 25791  24.9868 293.2962 0010793 342.5968  17.4161 14.40079940111374
+FUSE 1
+1 25791U 99035A   01215.57797329  .00000400  00000-0  68747-4 0  3341
+2 25791  24.9867 300.9214 0010734 329.1452  30.8424 14.40079711111190
+FUSE 1
+1 25791U 99035A   01214.88496511 +.00000411 +00000-0 +72102-4 0 03738
+2 25791 024.9865 305.1569 0010752 321.8056 038.1700 14.40079469111094
+FUSE 1
+1 25791U 99035A   01213.91475370 +.00000418 +00000-0 +74537-4 0 03349
+2 25791 024.9864 311.0878 0010770 311.6786 048.2800 14.40079073110957
+FUSE 1
+1 25791U 99035A   01213.84545284  .00000418  00000-0  74517-4 0  3330
+2 25791  24.9864 311.5114 0010770 310.9520  49.0052 14.40079040110944
+FUSE 1
+1 25791U 99035A   01212.94454257 +.00000434 +00000-0 +79248-4 0 03344
+2 25791 024.9864 317.0188 0010768 301.3288 058.6164 14.40078734110813
+FUSE 1
+1 25791U 99035A   01212.80594067  .00000444  00000-0  82373-4 0  3325
+2 25791  24.9863 317.8657 0010766 299.6889  60.2542 14.40078761110791
+FUSE 1
+1 25791U 99035A   01211.90503055 +.00000468 +00000-0 +90090-4 0 03446
+2 25791 024.9863 323.3726 0010776 290.0365 069.8977 14.40078499110666
+FUSE 1
+1 25791U 99035A   01211.55852704  .00000460  00000-0  87431-4 0  3318
+2 25791  24.9864 325.4904 0010823 286.2525  73.6791 14.40078234110615
+FUSE 1
+1 25791U 99035A   01210.93482022 +.00000472 +00000-0 +91278-4 0 03633
+2 25791 024.9864 329.3017 0010848 279.6419 080.2862 14.40077996110525
+FUSE 1
+1 25791U 99035A   01210.17251264  .00000478  00000-0  93199-4 0  3305
+2 25791  24.9863 333.9619 0010873 271.6318  88.2943 14.40077601110410
+FUSE 1
+1 25791U 99035A   01208.85579991  .00000490  00000-0  96802-4 0  3293
+2 25791  24.9866 342.0099 0010922 257.5431 102.3853 14.40076934110225
+FUSE 1
+1 25791U 99035A   01207.81629030  .00000501  00000-0  10023-3 0  3280
+2 25791  24.9867 348.3635 0010966 246.5884 113.3470 14.40076398110073
+FUSE 1
+1 25791U 99035A   01206.91538249 +.00000508 +00000-0 +10250-3 0 03415
+2 25791 024.9866 353.8713 0010987 237.1497 122.7945 14.40075887109946
+FUSE 1
+1 25791U 99035A   01206.56887963  .00000511  00000-0  10326-3 0  3278
+2 25791  24.9867 355.9893 0011012 233.5318 126.4174 14.40075691109893
+FUSE 1
+1 25791U 99035A   01205.87587337 +.00000527 +00000-0 +10839-3 0 03505
+2 25791 024.9868 000.2251 0011076 226.2868 133.6720 14.40075413109799
+FUSE 1
+1 25791U 99035A   01205.25216864  .00000510  00000-0  10313-3 0  3263
+2 25791  24.9867   4.0363 0011090 219.8115 140.1582 14.40074798109708
+FUSE 1
+1 25791U 99035A   01203.93545728 +.00000516 +00000-0 +10479-3 0 03269
+2 25791 024.9866 012.0811 0011114 206.0591 153.9357 14.40073969109517
+FUSE 1
+1 25791U 99035A   01203.86615663  .00000516  00000-0  10479-3 0  3256
+2 25791  24.9866  12.5045 0011114 205.3331 154.6628 14.40073923109503
+FUSE 1
+1 25791U 99035A   01202.96524958 +.00000508 +00000-0 +10233-3 0 03486
+2 25791 024.9865 018.0111 0011154 196.1382 163.8780 14.40073233109374
+FUSE 1
+1 25791U 99035A   01202.54944641  .00000493  00000-0  97826-4 0  3246
+2 25791  24.9863  20.5527 0011169 191.8050 168.2200 14.40072784109311
+FUSE 1
+1 25791U 99035A   01201.16343360  .00000507  00000-0  10206-3 0  3235
+2 25791  24.9866  29.0225 0011223 177.3906 182.6661 14.40072075109115
+FUSE 1
+1 25791U 99035A   01200.12393049  .00000384  00000-0  63784-4 0  3221
+2 25791  24.9826  35.4045 0011352 165.2759 194.8082 14.40070335108968
+FUSE 1
+1 25791U 99035A   01198.94581712 +.00000454 +00000-0 +85448-4 0 03255
+2 25791 024.9819 042.6054 0011509 153.7866 206.3225 14.40070361108793
+FUSE 1
+1 25791U 99035A   01198.87651654  .00000454  00000-0  85668-4 0  3210
+2 25791  24.9819  43.0290 0011506 153.0511 207.0603 14.40070330108780
+FUSE 1
+1 25791U 99035A   01197.90630513 +.00000543 +00000-0 +11321-3 0 03251
+2 25791 024.9814 048.9614 0011667 143.2067 216.9249 14.40070553108641
+FUSE 1
+1 25791U 99035A   01197.83700416  .00000546  00000-0  11423-3 0  3204
+2 25791  24.9813  49.3856 0011672 142.5933 217.5379 14.40070523108630
+FUSE 1
+1 25791U 99035A   01196.93609183 +.00000693 +00000-0 +16016-3 0 03423
+2 25791 024.9796 054.8902 0011793 132.6084 227.5393 14.40070954108505
+FUSE 1
+1 25791U 99035A   01196.45099063  .00000473  00000-0  91615-4 0  3199
+2 25791  24.9825  57.8656 0011228 128.4789 231.6720 14.40068671108430
+FUSE 1
+1 25791U 99035A   01195.20357322  .00000505  00000-0  10164-3 0  3180
+2 25791  24.9825  65.4916 0011215 116.0156 244.1500 14.40068220108256
+FUSE 1
+1 25791U 99035A   01194.02545613  .00000499  00000-0  99733-4 0  3172
+2 25791  24.9826  72.6920 0011188 103.4129 256.7628 14.40067381108089
+FUSE 1
+1 25791U 99035A   01193.95615541 +.00000494 +00000-0 +98068-4 0 03356
+2 25791 024.9827 073.1157 0011179 102.6649 257.5123 14.40067286108078
+FUSE 1
+1 25791U 99035A   01192.50083132  .00000493  00000-0  97812-4 0  3165
+2 25791  24.9831  82.0131 0011146  87.3221 272.8568 14.40066408107867
+FUSE 1
+1 25791U 99035A   01191.94642156 +.00000499 +00000-0 +99730-4 0 03267
+2 25791 024.9831 085.4021 0011170 081.6595 278.5190 14.40066125107781
+FUSE 1
+1 25791U 99035A   01191.18410683  .00000513  00000-0  10412-3 0  3155
+2 25791  24.9835  90.0635 0011114  74.2217 285.9515 14.40065843107672
+FUSE 1
+1 25791U 99035A   01190.14458616  .00000519  00000-0  10586-3 0  3145
+2 25791  24.9834  96.4153 0011128  63.2236 296.9407 14.40065179107528
+FUSE 1
+1 25791U 99035A   01188.89716000  .00000517  00000-0  10535-3 0  3139
+2 25791  24.9835 104.0390 0011105  50.1547 309.9937 14.40064329107342
+FUSE 1
+1 25791U 99035A   01187.85763598  .00000560  00000-0  11885-3 0  3124
+2 25791  24.9834 110.3927 0011027  39.7903 320.3413 14.40064059107198
+FUSE 1
+1 25791U 99035A   01186.26369845  .00000576  00000-0  12383-3 0  3115
+2 25791  24.9833 120.1320 0011040  23.1413 336.9590 14.40062964106967
+FUSE 1
+1 25791U 99035A   01185.22417234  .00000611  00000-0  13466-3 0  3108
+2 25791  24.9832 126.4851 0010938  12.2821 347.7952 14.40062479106818
+FUSE 1
+1 25791U 99035A   01183.90743981  .00000616  00000-0  13632-3 0  3090
+2 25791  24.9835 134.5338 0011000 358.4299   1.6173 14.40061396106623
+FUSE 1
+1 25791U 99035A   01182.72930922  .00000647  00000-0  14599-3 0  3088
+2 25791  24.9835 141.7349 0010932 346.1083  13.9122 14.40060663106450
+FUSE 1
+1 25791U 99035A   01181.55117807  .00000655  00000-0  14826-3 0  3078
+2 25791  24.9833 148.9349 0010989 333.0109  26.9827 14.40059608106287
+FUSE 1
+1 25791U 99035A   01180.23444311  .00000674  00000-0  15430-3 0  3067
+2 25791  24.9834 156.9835 0010915 318.5214  41.4471 14.40058589106094
+FUSE 1
+1 25791U 99035A   01179.95723625 +.00000660 +00000-0 +14998-3 0 03537
+2 25791 024.9835 158.6778 0010936 315.4784 044.4860 14.40058184106053
+FUSE 1
+1 25791U 99035A   01178.98701077 +.00000700 +00000-0 +16223-3 0 03095
+2 25791 024.9839 164.6103 0010804 304.5310 055.4225 14.40057715105914
+FUSE 1
+1 25791U 99035A   01178.91770917  .00000670  00000-0  15306-3 0  3050
+2 25791  24.9837 165.0340 0010775 303.9328  56.0166 14.40057316105906
+FUSE 1
+1 25791U 99035A   01177.94748394 +.00000667 +00000-0 +15215-3 0 03051
+2 25791 024.9839 170.9631 0010758 293.8032 066.1362 14.40056346105762
+FUSE 1
+1 25791U 99035A   01177.80888028  .00000659  00000-0  14952-3 0  3042
+2 25791  24.9838 171.8101 0010748 292.4036  67.5332 14.40056120105741
+FUSE 1
+1 25791U 99035A   01176.83865444 +.00000669 +00000-0 +15256-3 0 03062
+2 25791 024.9836 177.7390 0010771 281.9230 078.0068 14.40055269105600
+FUSE 1
+1 25791U 99035A   01176.56144703  .00000675  00000-0  15449-3 0  3038
+2 25791  24.9837 179.4333 0010795 278.8637  81.0649 14.40055073105566
+FUSE 1
+1 25791U 99035A   01175.86842919 +.00000678 +00000-0 +15546-3 0 03316
+2 25791 024.9837 183.6698 0010800 271.5427 088.3843 14.40054412105462
+FUSE 1
+1 25791U 99035A   01175.24471298  .00000688  00000-0  15855-3 0  3028
+2 25791  24.9839 187.4824 0010794 264.9104  95.0170 14.40053918105375
+FUSE 1
+1 25791U 99035A   01173.85867780  .00000677  00000-0  15522-3 0  3016
+2 25791  24.9839 195.9535 0010801 250.3967 109.5372 14.40052381105179
+FUSE 1
+1 25791U 99035A   01172.95775496 +.00000670 +00000-0 +15307-3 0 03067
+2 25791 024.9841 201.4598 0010826 240.8926 119.0499 14.40051405105048
+FUSE 1
+1 25791U 99035A   01172.54194415  .00000672  00000-0  15364-3 0  3007
+2 25791  24.9843 204.0010 0010840 236.4724 123.4748 14.40051033104986
+FUSE 1
+1 25791U 99035A   01171.98753138 +.00000679 +00000-0 +15575-3 0 03288
+2 25791 024.9843 207.3895 0010842 230.3514 129.6117 14.40050582104903
+FUSE 1
+1 25791U 99035A   01171.22521133  .00000677  00000-0  15522-3 0  2990
+2 25791  24.9854 212.0560 0010996 222.3356 137.6304 14.40049810104798
+FUSE 1
+1 25791U 99035A   01169.97777976 +.00000651 +00000-0 +14719-3 0 02996
+2 25791 024.9854 219.6805 0010993 209.2640 150.7249 14.40048323104613
+FUSE 1
+1 25791U 99035A   01169.83917607  .00000653  00000-0  14780-3 0  2987
+2 25791  24.9854 220.5274 0010997 207.8311 152.1606 14.40048213104595
+FUSE 1
+1 25791U 99035A   01168.93825267 +.00000639 +00000-0 +14331-3 0 02983
+2 25791 024.9853 226.0330 0011011 198.4101 161.6008 14.40047199104467
+FUSE 1
+1 25791U 99035A   01168.79964884  .00000639  00000-0  14331-3 0  2975
+2 25791  24.9853 226.8798 0011011 196.9581 163.0554 14.40047071104447
+FUSE 1
+1 25791U 99035A   01167.55221537  .00000637  00000-0  14282-3 0  2961
+2 25791  24.9855 234.5040 0011049 184.0993 175.9424 14.40045914104263
+FUSE 1
+1 25791U 99035A   01166.51268687  .00000629  00000-0  14035-3 0  2959
+2 25791  24.9856 240.8573 0011071 173.3506 186.7149 14.40044884104114
+FUSE 1
+1 25791U 99035A   01165.95827450 +.00000603 +00000-0 +13200-3 0 03120
+2 25791 024.9848 244.2600 0010963 166.9546 193.1247 14.40044112104031
+FUSE 1
+1 25791U 99035A   01165.40385861  .00000599  00000-0  13098-3 0  2943
+2 25791  24.9849 247.6487 0010973 161.1937 198.8977 14.40043624103953
+FUSE 1
+1 25791U 99035A   01164.22572358  .00000615  00000-0  13598-3 0  2934
+2 25791  24.9850 254.8490 0011010 149.2494 210.8676 14.40042799103781
+FUSE 1
+1 25791U 99035A   01163.87921276 +.00000615 +00000-0 +13599-3 0 03270
+2 25791 024.9849 256.9662 0011011 145.6235 214.4988 14.40042491103737
+FUSE 1
+1 25791U 99035A   01163.18619226  .00000575  00000-0  12336-3 0  2927
+2 25791  24.9852 261.2039 0011012 139.1112 221.0231 14.40041529103636
+FUSE 1
+1 25791U 99035A   01162.90898327 +.00000573 +00000-0 +12283-3 0 03321
+2 25791 024.9853 262.8977 0011009 136.1629 223.9749 14.40041298103594
+FUSE 1
+1 25791U 99035A   01161.86945008  .00000570  00000-0  12199-3 0  2911
+2 25791  24.9855 269.2523 0011028 125.4435 234.7103 14.40040463103442
+FUSE 1
+1 25791U 99035A   01160.55270529  .00000600  00000-0  13110-3 0  2902
+2 25791  24.9853 277.3011 0011033 112.2693 247.8985 14.40039697103257
+FUSE 1
+1 25791U 99035A   01159.51316909  .00000608  00000-0  13389-3 0  2893
+2 25791  24.9855 283.6566 0011020 101.4944 258.6799 14.40038905103107
+FUSE 1
+1 25791U 99035A   01158.95874900 +.00000619 +00000-0 +13726-3 0 03157
+2 25791 024.9854 287.0455 0011021 095.8528 264.3235 14.40038518103026
+FUSE 1
+1 25791U 99035A   01158.40432836  .00000637  00000-0  14284-3 0  2884
+2 25791  24.9854 290.4346 0011007  89.9818 270.1950 14.40038207102947
+FUSE 1
+1 25791U 99035A   01157.22618367  .00000647  00000-0  14588-3 0  2875
+2 25791  24.9857 297.6350 0011049  77.7985 282.3753 14.40037223102774
+FUSE 1
+1 25791U 99035A   01156.18664290  .00000642  00000-0  14440-3 0  2866
+2 25791  24.9861 303.9893 0011005  67.0287 293.1376 14.40036236102629
+FUSE 1
+1 25791U 99035A   01154.86988814  .00000664  00000-0  15129-3 0  2858
+2 25791  24.9862 312.0359 0010968  53.2775 306.8736 14.40035235102433
+FUSE 1
+1 25791U 99035A   01153.55313207  .00000654  00000-0  14823-3 0  2849
+2 25791  24.9862 320.0822 0010917  39.4182 320.7119 14.40033855102244
+FUSE 1
+1 25791U 99035A   01152.51358604  .00000656  00000-0  14876-3 0  2833
+2 25791  24.9862 326.4348 0010879  28.5266 331.5835 14.40032889102090
+FUSE 1
+1 25791U 99035A   01151.95916093 +.00000658 +00000-0 +14954-3 0 03067
+2 25791 024.9864 329.8227 0010858 022.6676 337.4309 14.40032401102015
+FUSE 1
+1 25791U 99035A   01151.33543277  .00000649  00000-0  14671-3 0  2828
+2 25791  24.9863 333.6343 0010866  15.9419 344.1429 14.40031685101925
+FUSE 1
+1 25791U 99035A   01150.15727791  .00000654  00000-0  14810-3 0  2812
+2 25791  24.9864 340.8337 0010840   3.4915 356.5667 14.40030638101753
+FUSE 1
+1 25791U 99035A   01149.88006493 +.00000653 +00000-0 +14785-3 0 03135
+2 25791 024.9866 342.5280 0010826 000.5019 359.5497 14.40030376101717
+FUSE 1
+1 25791U 99035A   01148.90982283  .00000634  00000-0  14209-3 0  2800
+2 25791  24.9866 348.4566 0010800 350.2840   9.7632 14.40029222101575
+FUSE 1
+1 25791U 99035A   01147.38515028  .00000579  00000-0  12480-3 0  2795
+2 25791  24.9837 357.7948 0010793 333.6467  26.3492 14.40027134101356
+FUSE 1
+1 25791U 99035A   01146.20699331  .00000565  00000-0  12045-3 0  2786
+2 25791  24.9838   4.9959 0010786 321.0840  38.8893 14.40026061101180
+FUSE 1
+1 25791U 99035A   01144.89022932  .00000533  00000-0  11042-3 0  2776
+2 25791  24.9841  13.0436 0010817 306.9215  53.0301 14.40024823100993
+FUSE 1
+1 25791U 99035A   01143.91998144 +.00000546 +00000-0 +11428-3 0 02924
+2 25791 024.9842 018.9724 0010816 296.5378 063.4019 14.40024274100857
+FUSE 1
+1 25791U 99035A   01143.36555441  .00000551  00000-0  11588-3 0  2767
+2 25791  24.9842  22.3601 0010810 290.7426  69.1925 14.40023904100773
+FUSE 1
+1 25791U 99035A   01142.94973432 +.00000553 +00000-0 +11652-3 0 02881
+2 25791 024.9843 024.9015 0010807 286.3744 073.5580 14.40023633100710
+FUSE 1
+1 25791U 99035A   01142.32600379  .00000567  00000-0  12088-3 0  2755
+2 25791  24.9842  28.7136 0010785 279.8487  80.0792 14.40023279100625
+FUSE 1
+1 25791U 99035A   01141.91018440 +.00000540 +00000-0 +11242-3 0 02900
+2 25791 024.9840 031.2547 0010893 276.2467 083.6799 14.40022637100563
+FUSE 1
+1 25791U 99035A   01141.21715079  .00000549  00000-0  11542-3 0  2749
+2 25791  24.9840  35.4898 0010896 268.8475  91.0785 14.40022229100461
+FUSE 1
+1 25791U 99035A   01139.90038775  .00000571  00000-0  12219-3 0  2739
+2 25791  24.9839  43.5397 0010931 255.0386 104.8911 14.40021439100277
+FUSE 1
+1 25791U 99035A   01138.58362425  .00000609  00000-0  13389-3 0  2724
+2 25791  24.9837  51.5882 0011072 241.1629 118.7758 14.40020744100086
+FUSE 1
+1 25791U 99035A   01137.33616481  .00000661  00000-0  15031-3 0  2713
+2 25791  24.9839  59.2112 0011101 227.8811 132.0752 14.40020162 99901
+FUSE 1
+1 25791U 99035A   01136.22731284  .00000674  00000-0  15435-3 0  2700
+2 25791  24.9841  65.9875 0011119 216.3279 143.6473 14.40019220 99747
+FUSE 1
+1 25791U 99035A   01134.97985363 +.00000712 +00000-0 +16613-3 0 02734
+2 25791 024.9840 073.6131 0011195 203.7721 156.2269 14.40018339099566
+FUSE 1
+1 25791U 99035A   01134.91055026  .00000715  00000-0  16725-3 0  2694
+2 25791  24.9839  74.0366 0011202 203.0881 156.9123 14.40018302 99553
+FUSE 1
+1 25791U 99035A   01133.94030404 +.00000743 +00000-0 +17573-3 0 02737
+2 25791 024.9839 079.9663 0011198 193.0427 166.9790 14.40017554099419
+FUSE 1
+1 25791U 99035A   01133.45518076  .00000746  00000-0  17689-3 0  2684
+2 25791  24.9839  82.9302 0011209 188.0450 171.9871 14.40017047 99341
+FUSE 1
+1 25791U 99035A   01132.20772024  .00000785  00000-0  18898-3 0  2676
+2 25791  24.9839  90.5544 0011269 175.2870 184.7740 14.40016047 99160
+FUSE 1
+1 25791U 99035A   01130.96025905 +.00000820 +00000-0 +19980-3 0 02691
+2 25791 024.9841 098.1782 0011296 162.1732 197.9172 14.40014946098983
+FUSE 1
+1 25791U 99035A   01130.89095562  .00000820  00000-0  20001-3 0  2662
+2 25791  24.9841  98.6016 0011296 161.4536 198.6384 14.40014866 98975
+FUSE 1
+1 25791U 99035A   01129.92071030 +.00000847 +00000-0 +20834-3 0 02661
+2 25791 024.9833 104.5520 0011085 151.6354 208.4757 14.40014053098835
+FUSE 1
+1 25791U 99035A   01129.85140680  .00000850  00000-0  20936-3 0  2657
+2 25791  24.9832 104.9757 0011084 150.9394 209.1729 14.40013984 98823
+FUSE 1
+1 25791U 99035A   01128.95046107 +.00000863 +00000-0 +21348-3 0 02704
+2 25791 024.9831 110.4816 0011082 141.5157 218.6142 14.40012890098695
+FUSE 1
+1 25791U 99035A   01128.53463956  .00000867  00000-0  21456-3 0  2640
+2 25791  24.9830 113.0225 0011082 137.1961 222.9409 14.40012343 98632
+FUSE 1
+1 25791U 99035A   01127.98021059 +.00000880 +00000-0 +21866-3 0 02822
+2 25791 024.9832 116.4114 0011088 131.3728 228.7736 14.40011719098555
+FUSE 1
+1 25791U 99035A   01127.21786998  .00000884  00000-0  22005-3 0  2637
+2 25791  24.9831 121.0699 0011080 123.3961 236.7608 14.40010685 98442
+FUSE 1
+1 25791U 99035A   01125.90109773  .00000892  00000-0  22255-3 0  2626
+2 25791  24.9833 129.1184 0011028 109.9749 250.1950 14.40008904 98258
+FUSE 1
+1 25791U 99035A   01124.86153846  .00000895  00000-0  22336-3 0  2612
+2 25791  24.9835 135.4720 0010976  99.2838 260.8908 14.40007464 98102
+FUSE 1
+1 25791U 99035A   01123.82197729  .00000903  00000-0  22598-3 0  2604
+2 25791  24.9836 141.8244 0010956  88.5472 271.6290 14.40006059 97953
+FUSE 1
+1 25791U 99035A   01122.78241421  .00000914  00000-0  22957-3 0  2596
+2 25791  24.9838 148.1778 0010906  77.7606 282.4122 14.40004664 97809
+FUSE 1
+1 25791U 99035A   01121.74284958  .00000909  00000-0  22797-3 0  2588
+2 25791  24.9840 154.5310 0010872  66.8417 293.3235 14.40003100 97659
+FUSE 1
+1 25791U 99035A   01120.98050140 +.00000892 +00000-0 +22245-3 0 02632
+2 25791 024.9840 159.1901 0010848 058.8234 301.3337 14.40001802097545
+FUSE 1
+1 25791U 99035A   01120.56467427  .00000893  00000-0  22276-3 0  2574
+2 25791  24.9840 161.7307 0010845  54.4415 305.7103 14.40001218 97487
+FUSE 1
+1 25791U 99035A   01119.24788803  .00000840  00000-0  20637-3 0  2561
+2 25791  24.9839 169.7779 0010778  40.3623 319.7683 14.39998784 97294
+FUSE 1
+1 25791U 99035A   01117.23804969  .00000814  00000-0  19817-3 0  2547
+2 25791  24.9840 182.0587 0010772  19.4486 340.6431 14.39995823 97003
+FUSE 1
+1 25791U 99035A   01116.96083039 +.00000802 +00000-0 +19449-3 0 02877
+2 25791 024.9843 183.7523 0010778 016.6787 343.4072 14.39995329096960
+FUSE 1
+1 25791U 99035A   01116.19847490  .00001304  00000-0  35116-3 0  2531
+2 25791  24.9827 188.4092 0011139   8.8375 351.2331 14.39996795 96854
+FUSE 1
+1 25791U 99035A   01114.88168133 +.00000626 +00000-0 +13955-3 0 02538
+2 25791 024.9832 196.4565 0011007 354.8618 005.1760 14.39992143096665
+FUSE 1
+1 25791U 99035A   01114.81237588  .00000730  00000-0  17192-3 0  2524
+2 25791  24.9832 196.8805 0010974 353.8797   6.1556 14.39992378 96658
+FUSE 1
+1 25791U 99035A   01113.91141013 +.00001105 +00000-0 +28900-3 0 02583
+2 25791 024.9832 202.3874 0010818 344.5129 015.5072 14.39992088096521
+FUSE 1
+1 25791U 99035A   01113.56488467  .00000804  00000-0  19509-3 0  2514
+2 25791  24.9836 204.5049 0010848 340.9754  19.0347 14.39990691 96476
+FUSE 1
+1 25791U 99035A   01112.87183381 +.00000588 +00000-0 +12770-3 0 02853
+2 25791 024.9838 208.7401 0010866 334.2845 025.7120 14.39989069096372
+FUSE 1
+1 25791U 99035A   01112.24808739  .00000697  00000-0  16161-3 0  2506
+2 25791  24.9837 212.5519 0010856 327.7806  32.2065 14.39988758 96282
+FUSE 1
+1 25791U 99035A   01110.86198210  .00000839  00000-0  20609-3 0  2496
+2 25791  24.9833 221.0217 0010828 312.9646  46.9953 14.39987824 96084
+FUSE 1
+1 25791U 99035A   01109.96101490 +.00000640 +00000-0 +14376-3 0 02662
+2 25791 024.9835 226.5270 0010746 303.7230 056.2253 14.39986069095953
+FUSE 1
+1 25791U 99035A   01109.54518505  .00000698  00000-0  16199-3 0  2483
+2 25791  24.9825 229.0749 0010853 299.3689  60.5757 14.39985563 95896
+FUSE 1
+1 25791U 99035A   01108.92143892 +.00000424 +00000-0 +76456-4 0 02689
+2 25791 024.9835 232.8933 0010773 292.5014 067.4341 14.39984084095805
+FUSE 1
+1 25791U 99035A   01108.43630231  .00000475  00000-0  92307-4 0  2479
+2 25791  24.9841 235.8622 0010842 287.1593  72.7725 14.39984197 95731
+FUSE 1
+1 25791U 99035A   01107.25811420  .00000342  00000-0  50688-4 0  2467
+2 25791  24.9840 243.0654 0010850 274.6194  85.3080 14.39982982 95568
+FUSE 1
+1 25791U 99035A   01106.91158787 +.00000319 +00000-0 +43545-4 0 02816
+2 25791 024.9842 245.1833 0010843 270.9361 088.9901 14.39982821095517
+FUSE 1
+1 25791U 99035A   01105.94131510 +.00000457 +00000-0 +86612-4 0 02469
+2 25791 024.9838 251.1154 0010905 261.3015 098.6260 14.39982811095373
+FUSE 1
+1 25791U 99035A   01105.87200985  .00000459  00000-0  87250-4 0  2454
+2 25791  24.9840 251.5393 0010901 260.6320  99.2952 14.39982811 95366
+FUSE 1
+1 25791U 99035A   01104.55520998  .00001008  00000-0  25888-3 0  2445
+2 25791  24.9829 259.5887 0011021 247.1818 112.7523 14.39983372 95172
+FUSE 1
+1 25791U 99035A   01103.51562954  .00001492  00000-0  40988-3 0  2432
+2 25791  24.9842 265.9425 0010869 234.0542 125.8931 14.39984015 95021
+FUSE 1
+1 25791U 99035A   01102.89188107 +.00001731 +00000-0 +48461-3 0 02649
+2 25791 024.9844 269.7554 0011059 227.9140 132.0419 14.39983703094938
+FUSE 1
+1 25791U 99035A   01102.54535407  .00001893  00000-0  53504-3 0  2429
+2 25791  24.9846 271.8734 0010921 223.7407 136.2232 14.39983757 94883
+FUSE 1
+1 25791U 99035A   01101.92160517 +.00002030 +00000-0 +57800-3 0 02647
+2 25791 024.9848 275.6854 0011217 217.6844 142.2874 14.39982801094794
+FUSE 1
+1 25791U 99035A   01101.57507715  .00002190  00000-0  62781-3 0  2419
+2 25791  24.9854 277.8031 0010956 213.3871 146.5941 14.39983161 94741
+FUSE 1
+1 25791U 99035A   01100.88202474 +.00002253 +00000-0 +64777-3 0 02660
+2 25791 024.9853 282.0379 0011053 206.6572 153.3357 14.39981020094643
+FUSE 1
+1 25791U 99035A   01100.18897006  .00002361  00000-0  68129-3 0  2401
+2 25791  24.9852 286.2722 0011029 198.9302 161.0725 14.39979226 94546
+FUSE 1
+1 25791U 99035A   01099.91174907 +.00002395 +00000-0 +69207-3 0 02750
+2 25791 024.9855 287.9660 0011230 196.5404 163.4735 14.39978461094502
+FUSE 1
+1 25791U 99035A   01098.94147224 +.00002530 +00000-0 +73411-3 0 02421
+2 25791 024.9854 293.8958 0011234 186.4584 173.5772 14.39975567094369
+FUSE 1
+1 25791U 99035A   01098.87216662  .00002543  00000-0  73810-3 0  2399
+2 25791  24.9855 294.3194 0011295 185.6074 174.4304 14.39975420 94358
+FUSE 1
+1 25791U 99035A   01097.55535820  .00002756  00000-0  80493-3 0  2383
+2 25791  24.9857 302.3671 0011209 171.5084 188.5605 14.39971661 94162
+FUSE 1
+1 25791U 99035A   01096.51577572  .00001819  00000-0  51232-3 0  2375
+2 25791  24.9851 308.7196 0011060 159.9502 200.1452 14.39962260 94018
+FUSE 1
+1 25791U 99035A   01095.19896006  .00002137  00000-0  61186-3 0  2366
+2 25791  24.9847 316.7677 0011044 146.2105 213.9107 14.39958939 93821
+FUSE 1
+1 25791U 99035A   01094.92173520 +.00002224 +00000-0 +63882-3 0 02749
+2 25791 024.9845 318.4612 0011055 143.4912 216.6355 14.39958128093784
+FUSE 1
+1 25791U 99035A   01093.95144716 +.00002409 +00000-0 +69674-3 0 02410
+2 25791 024.9843 324.3915 0011216 133.1891 226.9554 14.39954609093645
+FUSE 1
+1 25791U 99035A   01093.88214064  .00002499  00000-0  72482-3 0  2359
+2 25791  24.9842 324.8152 0011197 132.3778 227.7676 14.39954543 93635
+FUSE 1
+1 25791U 99035A   01092.91184954 +.00003251 +00000-0 +95975-3 0 02557
+2 25791 024.9837 330.7471 0011246 122.5955 237.5655 14.39950967093498
+FUSE 1
+1 25791U 99035A   01091.17917824  .00003186  00000-0  93968-3 0  2337
+2 25791  24.9835 341.3417 0011318 105.3746 254.8012 14.39939177 93243
+FUSE 1
+1 25791U 99035A   01090.13956723  .00002972  00000-0  87297-3 0  2322
+2 25791  24.9838 347.6958 0011329  94.7440 265.4361 14.39932401 93090
+FUSE 1
+1 25791U 99035A   01088.96133501 +.00002837 +00000-0 +83108-3 0 02339
+2 25791 024.9838 354.9011 0011327 083.2313 276.9488 14.39925595092925
+FUSE 1
+1 25791U 99035A   01088.89202703  .00002815  00000-0  82399-3 0  2317
+2 25791  24.9839 355.3247 0011337  82.5196 277.6602 14.39925159 92915
+FUSE 1
+1 25791U 99035A   01087.92171315 +.00001946 +00000-0 +55260-3 0 02360
+2 25791 024.9847 001.2552 0011205 072.8181 287.3553 14.39918251092772
+FUSE 1
+1 25791U 99035A   01087.85240649  .00001697  00000-0  47485-3 0  2306
+2 25791  24.9849   1.6791 0011193  72.3247 287.8536 14.39917141 92769
+FUSE 1
+1 25791U 99035A   01082.51561712  .00000996  00000-0  25569-3 0  2266
+2 25791  24.9850  34.2906 0010848  15.4515 344.6316 14.39903030 91997
+FUSE 1
+1 25791U 99035A   01081.96114279 +.00000895 +00000-0 +22411-3 0 02357
+2 25791 024.9850 037.6798 0010802 008.8785 351.1917 14.39901631091915
+FUSE 1
+1 25791U 99035A   01081.33735740  .00000887  00000-0  22159-3 0  2259
+2 25791  24.9850  41.4919 0010779   2.2856 357.7699 14.39900735 91826
+FUSE 1
+1 25791U 99035A   01080.92150068 +.00000863 +00000-0 +21388-3 0 02333
+2 25791 024.9849 044.0329 0010784 357.8343 002.2118 14.39899989091763
+FUSE 1
+1 25791U 99035A   01080.22840542  .00000844  00000-0  20810-3 0  2247
+2 25791  24.9848  48.2669 0010801 350.7139   9.3171 14.39898909 91667
+FUSE 1
+1 25791U 99035A   01079.95116702 +.00000849 +00000-0 +20965-3 0 02537
+2 25791 024.9848 049.9618 0010808 347.8135 012.2110 14.39898588091624
+FUSE 1
+1 25791U 99035A   01078.98083194 +.00000863 +00000-0 +21409-3 0 02245
+2 25791 024.9850 055.8907 0010787 337.5934 022.4103 14.39897482091484
+FUSE 1
+1 25791U 99035A   01078.91152241  .00000863  00000-0  21400-3 0  2238
+2 25791  24.9849  56.3142 0010787 336.8603  23.1424 14.39897379 91472
+FUSE 1
+1 25791U 99035A   01077.94118795 +.00000865 +00000-0 +21466-3 0 02296
+2 25791 024.9846 062.2492 0010753 326.7694 033.2147 14.39896112091337
+FUSE 1
+1 25791U 99035A   01077.52532984  .00000862  00000-0  21353-3 0  2225
+2 25791  24.9844  64.7900 0010747 322.4604  37.5154 14.39895491 91270
+FUSE 1
+1 25791U 99035A   01076.48568446  .00000836  00000-0  20539-3 0  2216
+2 25791  24.9842  71.1417 0010785 311.0390  48.9185 14.39893786 91120
+FUSE 1
+1 25791U 99035A   01075.23810913  .00000832  00000-0  20428-3 0  2209
+2 25791  24.9846  78.7649 0010811 297.7413  62.1997 14.39892127 90946
+FUSE 1
+1 25791U 99035A   01073.99053383 +.00000816 +00000-0 +19913-3 0 02209
+2 25791 024.9845 086.3872 0010797 284.5974 075.3336 14.39890279090766
+FUSE 1
+1 25791U 99035A   01073.92122749  .00000816  00000-0  19910-3 0  2190
+2 25791  24.9845  86.8106 0010797 283.8732  76.0753 14.39890190 90757
+FUSE 1
+1 25791U 99035A   01072.88158105 +.00000784 +00000-0 +18923-3 0 02220
+2 25791 024.9830 093.1816 0010740 272.7044 087.2233 14.39888516090601
+FUSE 1
+1 25791U 99035A   01072.53503188  .00000787  00000-0  19030-3 0  2185
+2 25791  24.9830  95.2987 0010757 268.9911  90.9362 14.39888127 90557
+FUSE 1
+1 25791U 99035A   01071.98055429 +.00000763 +00000-0 +18258-3 0 02201
+2 25791 024.9833 098.6880 0010753 263.1759 096.7529 14.39887246090473
+FUSE 1
+1 25791U 99035A   01071.49538471  .00000791  00000-0  19130-3 0  2177
+2 25791  24.9831 101.6522 0010849 257.9268 102.0023 14.39886914 90405
+FUSE 1
+1 25791U 99035A   01070.94090658 +.00000785 +00000-0 +18959-3 0 02469
+2 25791 024.9831 105.0409 0010844 252.1036 107.8288 14.39886182090326
+FUSE 1
+1 25791U 99035A   01070.24780824  .00000809  00000-0  19709-3 0  2161
+2 25791  24.9831 109.2771 0010871 244.6528 115.2853 14.39885565 90220
+FUSE 1
+1 25791U 99035A   01069.20816158  .00000791  00000-0  19153-3 0  2157
+2 25791  24.9832 115.6328 0011054 233.9117 126.0367 14.39884078 90070
+FUSE 1
+1 25791U 99035A   01067.82196489  .00000809  00000-0  19705-3 0  2143
+2 25791  24.9830 124.1033 0011113 218.9869 140.9835 14.39882486 89871
+FUSE 1
+1 25791U 99035A   01066.64369761 +.00000799 +00000-0 +19374-3 0 02169
+2 25791 024.9830 131.3033 0011151 207.0123 152.9803 14.39880895089707
+FUSE 1
+1 25791U 99035A   01066.50507788  .00000796  00000-0  19291-3 0  2139
+2 25791  24.9830 132.1500 0011152 205.5911 154.4046 14.39880702 89684
+FUSE 1
+1 25791U 99035A   01065.88128936 +.00000790 +00000-0 +19103-3 0 02397
+2 25791 024.9831 135.9622 0011122 198.9598 161.0503 14.39879873089593
+FUSE 1
+1 25791U 99035A   01065.18819067  .00000783  00000-0  18885-3 0  2121
+2 25791  24.9834 140.1989 0011152 191.7198 168.3068 14.39878991 89495
+FUSE 1
+1 25791U 99035A   01064.91095089 +.00000771 +00000-0 +18518-3 0 02446
+2 25791 024.9835 141.8928 0011125 188.7032 171.3283 14.39878539089457
+FUSE 1
+1 25791U 99035A   01063.87130138  .00000765  00000-0  18340-3 0  2115
+2 25791  24.9836 148.2465 0011125 177.9406 182.1148 14.39877264 89308
+FUSE 1
+1 25791U 99035A   01063.87130137 +.00000767 +00000-0 +18406-3 0 02120
+2 25791 024.9835 148.2460 0011132 177.9393 182.1166 14.39877276089308
+FUSE 1
+1 25791U 99035A   01062.90096058 +.00000769 +00000-0 +18444-3 0 02210
+2 25791 024.9839 154.1757 0011132 167.8039 192.2735 14.39876200089166
+FUSE 1
+1 25791U 99035A   01062.55441017  .00000773  00000-0  18590-3 0  2105
+2 25791  24.9841 156.2936 0011137 164.3299 195.7558 14.39875851 89113
+FUSE 1
+1 25791U 99035A   01061.30682837  .00000772  00000-0  18556-3 0  2093
+2 25791  24.9841 163.9191 0011157 150.7881 209.3252 14.39874318 88938
+FUSE 1
+1 25791U 99035A   01060.82165726 +.00000760 +00000-0 +18192-3 0 02488
+2 25791 024.9843 166.8839 0011144 145.5272 214.5963 14.39873647088866
+FUSE 1
+1 25791U 99035A   01059.92062424 +.00000739 +00000-0 +17528-3 0 02194
+2 25791 024.9846 172.3899 0011179 135.9727 224.1680 14.39872415088734
+FUSE 1
+1 25791U 99035A   01059.57407284  .00000713  00000-0  16698-3 0  2089
+2 25791  24.9853 174.5090 0011130 132.3934 227.7515 14.39871839 88686
+FUSE 1
+1 25791U 99035A   01058.25717454  .00000711  00000-0  16656-3 0  2077
+2 25791  24.9850 182.5567 0011163 119.2623 240.9005 14.39870406 88495
+FUSE 1
+1 25791U 99035A   01057.91062171 +.00000714 +00000-0 +16747-3 0 02319
+2 25791 024.9852 184.6743 0011160 115.8000 244.3659 14.39870084088444
+FUSE 1
+1 25791U 99035A   01056.87096351  .00000689  00000-0  15951-3 0  2069
+2 25791  24.9851 191.0276 0011173 104.7434 255.4312 14.39868715 88298
+FUSE 1
+1 25791U 99035A   01055.90061376 +.00000679 +00000-0 +15637-3 0 02285
+2 25791 024.9850 196.9579 0011170 094.7617 265.4158 14.39867625088158
+FUSE 1
+1 25791U 99035A   01055.55406001  .00000689  00000-0  15968-3 0  2057
+2 25791  24.9853 199.0771 0011176  91.3496 268.8293 14.39867412 88109
+FUSE 1
+1 25791U 99035A   01054.23715345  .00000689  00000-0  15972-3 0  2049
+2 25791  24.9854 207.1235 0011152  77.7001 282.4754 14.39866067 87917
+FUSE 1
+1 25791U 99035A   01053.89059839 +.00000696 +00000-0 +16187-3 0 02158
+2 25791 024.9856 209.2409 0011136 074.1479 286.0253 14.39865797087864
+FUSE 1
+1 25791U 99035A   01052.92024384 +.00000702 +00000-0 +16372-3 0 02040
+2 25791 024.9854 215.1686 0011139 064.1094 296.0556 14.39864826087724
+FUSE 1
+1 25791U 99035A   01052.85093275  .00000705  00000-0  16455-3 0  2031
+2 25791  24.9853 215.5920 0011131  63.4459 296.7188 14.39864778 87710
+FUSE 1
+1 25791U 99035A   01051.88057587 +.00000742 +00000-0 +17626-3 0 02031
+2 25791 024.9846 221.5212 0010994 053.4019 306.7497 14.39864094087570
+FUSE 1
+1 25791U 99035A   01049.17743500  .00000805  00000-0  19598-3 0  2004
+2 25791  24.9852 238.0376 0010943  24.9759 335.1274 14.39861598 87181
+FUSE 1
+1 25791U 99035A   01048.13776370  .00000818  00000-0  20021-3 0  1994
+2 25791  24.9855 244.3897 0010946  14.2126 345.8687 14.39860443 87033
+FUSE 1
+1 25791U 99035A   01046.95946808 +.00000826 +00000-0 +20265-3 0 02009
+2 25791 024.9856 251.5883 0010925 001.7292 358.3251 14.39859035086862
+FUSE 1
+1 25791U 99035A   01046.89015657  .00000828  00000-0  20328-3 0  1989
+2 25791  24.9856 252.0117 0010921   1.0228 359.0304 14.39858972 86851
+FUSE 1
+1 25791U 99035A   01045.91979473 +.00000825 +00000-0 +20234-3 0 02104
+2 25791 024.9857 257.9395 0010895 350.7865 009.2444 14.39857693086718
+FUSE 1
+1 25791U 99035A   01045.57323730  .00000822  00000-0  20128-3 0  1978
+2 25791  24.9855 260.0575 0010891 347.1542  12.8705 14.39857185 86669
+FUSE 1
+1 25791U 99035A   01044.32563210  .00000852  00000-0  21070-3 0  1968
+2 25791  24.9845 267.6885 0010940 335.0275  24.9843 14.39855877 86482
+FUSE 1
+1 25791U 99035A   01043.90976161 +.00000818 +00000-0 +19993-3 0 02047
+2 25791 024.9856 270.2365 0010879 331.1039 028.8868 14.39855093086427
+FUSE 1
+1 25791U 99035A   01043.21664491  .00000820  00000-0  20056-3 0  1955
+2 25791  24.9857 274.4720 0010879 323.9471  36.0302 14.39854225 86327
+FUSE 1
+1 25791U 99035A   01042.93939835 +.00000809 +00000-0 +19728-3 0 02345
+2 25791 024.9860 276.1661 0010879 321.0294 038.9430 14.39853798086288
+FUSE 1
+1 25791U 99035A   01041.89972384  .00000762  00000-0  18265-3 0  1943
+2 25791  24.9864 282.5199 0010886 310.1836  49.7717 14.39852068 86139
+FUSE 1
+1 25791U 99035A   01040.86004627  .00000786  00000-0  18998-3 0  1933
+2 25791  24.9864 288.8712 0010909 298.1189  61.8216 14.39851115 85984
+FUSE 1
+1 25791U 99035A   01039.88968203 +.00000776 +00000-0 +18695-3 0 01946
+2 25791 024.9866 294.8003 0010918 287.8124 072.1191 14.39849851085846
+FUSE 1
+1 25791U 99035A   01039.54312320  .00000778  00000-0  18759-3 0  1923
+2 25791  24.9865 296.9171 0010912 284.1925  75.7371 14.39849453 85798
+FUSE 1
+1 25791U 99035A   01038.91931566 +.00000841 +00000-0 +20715-3 0 01973
+2 25791 024.9853 300.7300 0011058 276.2116 083.7128 14.39849226085707
+FUSE 1
+1 25791U 99035A   01038.36482175  .00000851  00000-0  21041-3 0  1917
+2 25791  24.9852 304.1176 0011034 270.4549  89.4688 14.39848568 85628
+FUSE 1
+1 25791U 99035A   01037.94895133 +.00000854 +00000-0 +21128-3 0 02024
+2 25791 024.9850 306.6578 0011082 266.4454 093.4786 14.39848015085566
+FUSE 1
+1 25791U 99035A   01037.18652191  .00000871  00000-0  21669-3 0  1900
+2 25791  24.9854 311.3163 0011114 258.2637 101.6623 14.39847183 85456
+FUSE 1
+1 25791U 99035A   01035.93891068 +.00000893 +00000-0 +22356-3 0 01974
+2 25791 024.9856 318.9409 0011155 245.1344 114.8003 14.39845662085277
+FUSE 1
+1 25791U 99035A   01035.86959892  .00000895  00000-0  22415-3 0  1895
+2 25791  24.9856 319.3643 0011153 244.4229 115.5125 14.39845576 85260
+FUSE 1
+1 25791U 99035A   01034.96854630 +.00000904 +00000-0 +22698-3 0 02030
+2 25791 024.9856 324.8713 0011214 234.8399 125.1056 14.39844383085139
+FUSE 1
+1 25791U 99035A   01034.48336452  .00000891  00000-0  22284-3 0  1882
+2 25791  24.9853 327.8353 0011183 229.6286 130.3245 14.39843518 85060
+FUSE 1
+1 25791U 99035A   01033.23575272  .00000882  00000-0  22011-3 0  1876
+2 25791  24.9856 335.4581 0011214 216.6240 143.3500 14.39841675 84881
+FUSE 1
+1 25791U 99035A   01031.91882870  .00000844  00000-0  20813-3 0  1869
+2 25791  24.9858 343.5045 0011276 203.2127 156.7872 14.39839469 84699
+FUSE 1
+1 25791U 99035A   01031.91882869 +.00000845 +00000-0 +20836-3 0 01874
+2 25791 024.9858 343.5045 0011276 203.2090 156.7909 14.39839478084699
+FUSE 1
+1 25791U 99035A   01030.94846209 +.00000841 +00000-0 +20712-3 0 01918
+2 25791 024.9858 349.4319 0011289 193.2674 166.7539 14.39838132084559
+FUSE 1
+1 25791U 99035A   01030.46327849  .00000841  00000-0  20740-3 0  1853
+2 25791  24.9859 352.3959 0011304 188.2132 171.8192 14.39837508 84484
+FUSE 1
+1 25791U 99035A   01029.97809487 +.00000835 +00000-0 +20546-3 0 01981
+2 25791 024.9857 355.3599 0011303 183.2284 176.8152 14.39836776084417
+FUSE 1
+1 25791U 99035A   01029.21566280  .00000836  00000-0  20576-3 0  1848
+2 25791  24.9858   0.0180 0011350 175.3074 184.7541 14.39835807 84301
+FUSE 1
+1 25791U 99035A   01028.93841499 +.00000830 +00000-0 +20392-3 0 02294
+2 25791 024.9857 001.7120 0011345 172.4854 187.5833 14.39835361084265
+FUSE 1
+1 25791U 99035A   01027.96804596 +.00000821 +00000-0 +20111-3 0 01864
+2 25791 024.9857 007.6404 0011373 162.4249 197.6654 14.39833987084123
+FUSE 1
+1 25791U 99035A   01026.85905350  .00000774  00000-0  18631-3 0  1828
+2 25791  24.9845  14.4272 0011225 151.2576 208.8553 14.39832070 83960
+FUSE 1
+1 25791U 99035A   01025.95799395 +.00000773 +00000-0 +18616-3 0 01909
+2 25791 024.9845 019.9320 0011218 141.9876 218.1434 14.39830995083837
+FUSE 1
+1 25791U 99035A   01025.47280699  .00000781  00000-0  18854-3 0  1811
+2 25791  24.9846  22.8964 0011235 137.2317 222.9063 14.39830514 83762
+FUSE 1
+1 25791U 99035A   01024.91830785 +.00000785 +00000-0 +18987-3 0 01952
+2 25791 024.9848 026.2846 0011214 131.5244 228.6226 14.39829899083683
+FUSE 1
+1 25791U 99035A   01024.22518426  .00000758  00000-0  18147-3 0  1803
+2 25791  24.9850  30.5196 0011218 123.7953 236.3624 14.39828802 83586
+FUSE 1
+1 25791U 99035A   01022.97755790 +.00000765 +00000-0 +18342-3 0 01805
+2 25791 024.9847 038.1420 0011197 110.9464 249.2242 14.39827391083409
+FUSE 1
+1 25791U 99035A   01022.90824523  .00000765  00000-0  18346-3 0  1791
+2 25791  24.9847  38.5654 0011197 110.2109 249.9602 14.39827310 83397
+FUSE 1
+1 25791U 99035A   01021.93786714 +.00000792 +00000-0 +19214-3 0 01821
+2 25791 024.9847 044.4944 0011176 100.2360 259.9412 14.39826436083253
+FUSE 1
+1 25791U 99035A   01021.52199043  .00000791  00000-0  19188-3 0  1783
+2 25791  24.9847  47.0345 0011184  95.8875 264.2905 14.39825918 83199
+FUSE 1
+1 25791U 99035A   01020.48229781  .00000782  00000-0  18904-3 0  1774
+2 25791  24.9841  53.3876 0011058  84.9507 275.2262 14.39824524 83047
+FUSE 1
+1 25791U 99035A   01019.23466394  .00000810  00000-0  19778-3 0  1769
+2 25791  24.9842  61.0115 0011055  71.9716 288.1993 14.39823278 82863
+FUSE 1
+1 25791U 99035A   01018.81878536 +.00000815 +00000-0 +19923-3 0 02046
+2 25791 024.9840 063.5519 0011051 067.5973 292.5699 14.39822788082809
+FUSE 1
+1 25791U 99035A   01017.84840102  .00000828  00000-0  20329-3 0  1759
+2 25791  24.9838  69.4799 0011044  57.4205 302.7356 14.39821674 82660
+FUSE 1
+1 25791U 99035A   01016.80870221 +.00000844 +00000-0 +20844-3 0 01759
+2 25791 024.9839 075.8311 0011035 046.6049 313.5376 14.39820510082512
+FUSE 1
+1 25791U 99035A   01012.85783892  .00000765  00000-0  18364-3 0  1719
+2 25791  24.9824  99.9904 0011095   5.3964 354.6663 14.39814661 81946
+FUSE 1
+1 25791U 99035A   01011.81813392  .00000754  00000-0  18014-3 0  1702
+2 25791  24.9823 106.3421 0011120 354.5641   5.4745 14.39813318 81795
+FUSE 1
+1 25791U 99035A   01010.84774202 +.00000728 +00000-0 +17200-3 0 01820
+2 25791 024.9826 112.2708 0011146 344.3870 015.6294 14.39811988081659
+FUSE 1
+1 25791U 99035A   01010.57048690  .00000725  00000-0  17100-3 0  1696
+2 25791  24.9825 113.9647 0011158 341.3954  18.6145 14.39811641 81611
+FUSE 1
+1 25791U 99035A   01009.87734870 +.00000732 +00000-0 +17321-3 0 02008
+2 25791 024.9824 118.1992 0011164 334.0178 025.9768 14.39810940081516
+FUSE 1
+1 25791U 99035A   01006.55028272  .00000853  00000-0  21119-3 0  1667
+2 25791  24.9829 138.5275 0011161 298.7980  61.1405 14.39808266 81030
+FUSE 1
+1 25791U 99035A   01005.23331831  .00000949  00000-0  24121-3 0  1650
+2 25791  24.9829 146.5736 0011130 284.7867  75.1402 14.39807380 80842
+FUSE 1
+1 25791U 99035A   01004.95606288 +.00000961 +00000-0 +24508-3 0 01933
+2 25791 024.9830 148.2673 0011129 281.7309 078.1948 14.39807093080804
+FUSE 1
+1 25791U 99035A   01004.12429643  .00001014  00000-0  26161-3 0  1645
+2 25791  24.9831 153.3490 0011081 272.9218  87.0015 14.39806304 80681
+FUSE 1
+1 25791U 99035A   01003.91635493 +.00001024 +00000-0 +26479-3 0 02041
+2 25791 024.9833 154.6194 0011082 270.5710 089.3526 14.39806079080658
+FUSE 1
+1 25791U 99035A   01002.94596086 +.00001080 +00000-0 +28217-3 0 01657
+2 25791 024.9835 160.5480 0011065 260.2028 099.7226 14.39805000080513
+FUSE 1
+1 25791U 99035A   01002.87664699  .00001085  00000-0  28401-3 0  1633
+2 25791  24.9835 160.9715 0011055 259.4691 100.4567 14.39804944 80506
+FUSE 1
+1 25791U 99035A   01001.90625279 +.00001148 +00000-0 +30354-3 0 01851
+2 25791 024.9836 166.9004 0011074 249.1527 110.7793 14.39803819080368
+FUSE 1
+1 25791U 99035A   01001.55968328  .00001172  00000-0  31103-3 0  1622
+2 25791  24.9835 169.0177 0011071 245.6535 114.2814 14.39803412 80316
+FUSE 1
+1 25791U 99035A   00366.24272051  .00001201  00000-0  32013-3 0  1615
+2 25791  24.9835 177.0632 0011054 231.9139 128.0369 14.39801117 80127
+FUSE 1
+1 25791U 99035A   00365.13370179  .00001276  00000-0  34372-3 0  1603
+2 25791  24.9782 183.8601 0011264 220.6704 139.2961 14.39798988 79968
+FUSE 1
+1 25791U 99035A   00363.88605187  .00001279  00000-0  34462-3 0  1594
+2 25791  24.9781 191.4825 0011236 207.4675 152.5240 14.39796242 79788
+FUSE 1
+1 25791U 99035A   00362.91565615 +.00001282 +00000-0 +34567-3 0 01880
+2 25791 024.9781 197.4116 0011250 197.2959 162.7167 14.39794117079649
+FUSE 1
+1 25791U 99035A   00361.52937650  .00001173  00000-0  31161-3 0  1570
+2 25791  24.9788 205.8833 0011253 183.0025 177.0420 14.39790123 79448
+FUSE 1
+1 25791U 99035A   00360.21240650  .00001095  00000-0  28697-3 0  1564
+2 25791  24.9795 213.9300 0011256 169.4207 190.6539 14.39786866 79258
+FUSE 1
+1 25791U 99035A   00358.89543401  .00000997  00000-0  25633-3 0  1551
+2 25791  24.9802 221.9784 0011166 156.0199 204.0842 14.39783673 79063
+FUSE 1
+1 25791U 99035A   00357.57846016  .00000809  00000-0  19747-3 0  1543
+2 25791  24.9811 230.0287 0011220 142.5559 217.5744 14.39779898 78875
+FUSE 1
+1 25791U 99035A   00356.33079409  .00000742  00000-0  17656-3 0  1532
+2 25791  24.9815 237.6510 0011207 129.3758 230.7742 14.39777765 78696
+FUSE 1
+1 25791U 99035A   00355.91490500 +.00000715 +00000-0 +16811-3 0 01738
+2 25791 024.9818 240.1930 0011125 125.1559 234.9994 14.39777043078634
+FUSE 1
+1 25791U 99035A   00355.22175552  .00000689  00000-0  15980-3 0  1522
+2 25791  24.9818 244.4279 0011116 117.9072 242.2571 14.39776049 78533
+FUSE 1
+1 25791U 99035A   00354.94449551 +.00000671 +00000-0 +15421-3 0 01715
+2 25791 024.9820 246.1228 0011092 115.1399 245.0262 14.39775609078498
+FUSE 1
+1 25791U 99035A   00354.18203097  .00000667  00000-0  15302-3 0  1515
+2 25791  24.9821 250.7805 0011090 107.2769 252.9059 14.39774846 78383
+FUSE 1
+1 25791U 99035A   00353.14230184  .00000588  00000-0  12827-3 0  1507
+2 25791  24.9841 257.1312 0011153  94.7945 265.3836 14.39773357 78236
+FUSE 1
+1 25791U 99035A   00351.89462457  .00000618  00000-0  13768-3 0  1494
+2 25791  24.9843 264.7546 0011143  81.4463 278.7305 14.39772637 78057
+FUSE 1
+1 25791U 99035A   00350.57762798  .00000713  00000-0  16757-3 0  1485
+2 25791  24.9838 272.8003 0011117  67.5108 292.6555 14.39772305 77863
+FUSE 1
+1 25791U 99035A   00349.95378601 +.00000801 +00000-0 +19521-3 0 01751
+2 25791 024.9839 276.6107 0011037 061.1524 299.0082 14.39772533077773
+FUSE 1
+1 25791U 99035A   00348.91404926 +.00000938 +00000-0 +23822-3 0 01543
+2 25791 024.9841 282.9613 0011060 050.5076 309.6402 14.39772572077629
+FUSE 1
+1 25791U 99035A   00348.22089271  .00000955  00000-0  24346-3 0  1472
+2 25791  24.9841 287.1948 0011058  43.2638 316.8736 14.39771669 77522
+FUSE 1
+1 25791U 99035A   00347.94362883 +.00001009 +00000-0 +26044-3 0 01831
+2 25791 024.9842 288.8885 0011102 040.6503 319.4819 14.39771783077486
+FUSE 1
+1 25791U 99035A   00344.20056550  .00001466  00000-0  40388-3 0  1450
+2 25791  24.9857 311.7525 0010921   1.7998 358.2548 14.39768887 76944
+FUSE 1
+1 25791U 99035A   00342.95287422 +.00001623 +00000-0 +45287-3 0 02453
+2 25791 024.9861 319.3741 0010868 348.9036 011.1207 14.39767344076766
+FUSE 1
+1 25791U 99035A   00341.91313263 +.00001697 +00000-0 +47635-3 0 02169
+2 25791 024.9862 325.7251 0010827 338.0727 021.9314 14.39765205076612
+FUSE 1
+1 25791U 99035A   00340.80407309 +.00001773 +00000-0 +50001-3 0 01795
+2 25791 024.9865 332.4995 0010780 326.3093 033.6722 14.39762765076452
+FUSE 1
+1 25791U 99035A   00339.97228129 +.00001440 +00000-0 +39551-3 0 01453
+2 25791 024.9788 337.5913 0010715 317.2047 042.7636 14.39758312076333
+FUSE 1
+1 25791U 99035A   00339.90296490  .00001431  00000-0  39277-3 0  1446
+2 25791  24.9788 338.0153 0010711 316.5102  43.4556 14.39758072 76326
+FUSE 1
+1 25791U 99035A   00338.93253567 +.00001650 +00000-0 +46156-3 0 01892
+2 25791 024.9780 343.9450 0010727 305.4403 054.5107 14.39756594076187
+FUSE 1
+1 25791U 99035A   00337.89278976 +.00002012 +00000-0 +57514-3 0 01474
+2 25791 024.9771 350.3001 0010560 294.2116 065.7285 14.39754923076031
+FUSE 1
+1 25791U 99035A   00337.54620726  .00002120  00000-0  60886-3 0  1432
+2 25791  24.9769 352.4170 0010591 290.1130  69.8236 14.39754084 75985
+FUSE 1
+1 25791U 99035A   00336.78372846 +.00002078 +00000-0 +59583-3 0 02103
+2 25791 024.9767 357.0797 0010598 283.2388 076.6938 14.39750755075878
+FUSE 1
+1 25791U 99035A   00335.81329748 +.00001963 +00000-0 +55983-3 0 01784
+2 25791 024.9768 003.0088 0010682 272.4500 087.4788 14.39746543075738
+FUSE 1
+1 25791U 99035A   00332.55541084  .00001441  00000-0  39598-3 0  1416
+2 25791  24.9789  22.9137 0010823 238.8335 121.1112 14.39732709 75269
+FUSE 1
+1 25791U 99035A   00329.50545449  .00001099  00000-0  28863-3 0  1407
+2 25791  24.9807  41.5484 0010919 206.6216 153.3741 14.39723397 74828
+FUSE 1
+1 25791U 99035A   00326.80207218  .00000755  00000-0  18065-3 0  1395
+2 25791  24.9826  58.0674 0010967 178.4838 181.5705 14.39716699 74439
+FUSE 1
+1 25791U 99035A   00325.90094187 +.00000678 +00000-0 +15666-3 0 02663
+2 25791 024.9830 063.5734 0010889 169.1263 190.9481 14.39715100074301
+FUSE 1
+1 25791U 99035A   00324.86117451 +.00000608 +00000-0 +13450-3 0 02311
+2 25791 024.9833 069.9269 0010882 158.3926 201.7040 14.39713575074155
+FUSE 1
+1 25791U 99035A   00323.96004177 +.00000488 +00000-0 +96967-4 0 01894
+2 25791 024.9842 075.4361 0010837 150.2956 209.8168 14.39712104074027
+FUSE 1
+1 25791U 99035A   00322.92027010 +.00000542 +00000-0 +11394-3 0 01510
+2 25791 024.9842 081.7899 0010800 140.3373 219.7924 14.39711850073875
+FUSE 1
+1 25791U 99035A   00322.57367987  .00000544  00000-0  11471-3 0  1384
+2 25791  24.9842  83.9087 0010770 137.0085 223.1269 14.39711602 73828
+FUSE 1
+1 25791U 99035A   00321.88049734 +.00000639 +00000-0 +14444-3 0 02068
+2 25791 024.9838 088.1431 0010747 130.4414 229.7025 14.39711664073729
+FUSE 1
+1 25791U 99035A   00319.45435949  .00001051  00000-0  27399-3 0  1370
+2 25791  24.9822 102.9641 0011109 102.6166 257.5577 14.39710812 73374
+FUSE 1
+1 25791U 99035A   00318.83049407 +.00001135 +00000-0 +30023-3 0 02126
+2 25791 024.9820 106.7751 0011100 096.2751 263.9015 14.39710072073281
+FUSE 1
+1 25791U 99035A   00317.92935383 +.00001328 +00000-0 +36094-3 0 01927
+2 25791 024.9815 112.2808 0011081 086.9676 273.2095 14.39708951073151
+FUSE 1
+1 25791U 99035A   00316.95889405 +.00001476 +00000-0 +40722-3 0 01547
+2 25791 024.9811 118.2117 0011162 076.8388 283.3367 14.39707302073012
+FUSE 1
+1 25791U 99035A   00316.54298192  .00001536  00000-0  42622-3 0  1367
+2 25791  24.9808 120.7548 0011167  72.5609 287.6119 14.39706598 72958
+FUSE 1
+1 25791U 99035A   00312.17588299  .00001526  00000-0  42309-3 0  1352
+2 25791  24.9810 147.4346 0011047  26.6311 333.4765 14.39694429 72327
+FUSE 1
+1 25791U 99035A   00311.89860506 +.00001531 +00000-0 +42464-3 0 02432
+2 25791 024.9811 149.1285 0011021 023.7582 336.3433 14.39693742072285
+FUSE 1
+1 25791U 99035A   00310.92813172 +.00001533 +00000-0 +42529-3 0 02234
+2 25791 024.9811 155.0570 0011011 013.6669 346.4135 14.39691108072141
+FUSE 1
+1 25791U 99035A   00309.95765612 +.00001545 +00000-0 +42918-3 0 01953
+2 25791 024.9811 160.9853 0010987 003.5007 356.5574 14.39688573072001
+FUSE 1
+1 25791U 99035A   00308.91785913 +.00001558 +00000-0 +43320-3 0 01631
+2 25791 024.9811 167.3377 0010936 352.6420 007.3927 14.39685825071856
+FUSE 1
+1 25791U 99035A   00307.94738084  .00001523  00000-0  42238-3 0  1347
+2 25791  24.9813 173.2666 0010902 342.2944  17.7187 14.39682876 71715
+FUSE 1
+1 25791U 99035A   00306.90758062 +.00001494 +00000-0 +41322-3 0 02161
+2 25791 024.9816 179.6189 0010843 331.2370 028.7545 14.39679852071566
+FUSE 1
+1 25791U 99035A   00305.93709941 +.00001422 +00000-0 +39070-3 0 01847
+2 25791 024.9820 185.5476 0010836 320.8016 039.1721 14.39676778071420
+FUSE 1
+1 25791U 99035A   00304.96661633 +.00001342 +00000-0 +36540-3 0 01518
+2 25791 024.9825 191.4771 0010878 310.3487 049.6069 14.39673761071285
+FUSE 1
+1 25791U 99035A   00304.48137472  .00001294  00000-0  35039-3 0  1332
+2 25791  24.9827 194.4415 0010840 305.2721  54.6774 14.39672228 71217
+FUSE 1
+1 25791U 99035A   00300.94603167 +.00001128 +00000-0 +29826-3 0 01487
+2 25791 024.9836 216.0428 0010846 267.5163 092.4104 14.39663463070709
+FUSE 1
+1 25791U 99035A   00300.32214586  .00001125  00000-0  29742-3 0  1329
+2 25791  24.9837 219.8536 0010864 260.8686  99.0595 14.39662271 70610
+FUSE 1
+1 25791U 99035A   00299.97554307 +.00001099 +00000-0 +28908-3 0 02622
+2 25791 024.9840 221.9723 0010883 257.3195 102.6096 14.39661414070562
+FUSE 1
+1 25791U 99035A   00298.93573357 +.00001095 +00000-0 +28804-3 0 02219
+2 25791 024.9842 228.3263 0010808 246.2256 113.7131 14.39659498070412
+FUSE 1
+1 25791U 99035A   00297.96524296 +.00001101 +00000-0 +28980-3 0 01840
+2 25791 024.9843 234.2549 0010819 235.8887 124.0592 14.39657800070277
+FUSE 1
+1 25791U 99035A   00296.92543051 +.00001198 +00000-0 +32020-3 0 01469
+2 25791 024.9839 240.6071 0010755 225.0055 134.9574 14.39656593070122
+FUSE 1
+1 25791U 99035A   00296.23222249  .00001231  00000-0  33056-3 0  1318
+2 25791  24.9837 244.8414 0010747 217.7619 142.2134 14.39655396 70025
+FUSE 1
+1 25791U 99035A   00295.95493830 +.00001341 +00000-0 +36537-3 0 02570
+2 25791 024.9831 246.5364 0010694 214.7072 145.2732 14.39655631069985
+FUSE 1
+1 25791U 99035A   00294.98444509 +.00001216 +00000-0 +32610-3 0 02121
+2 25791 024.9831 252.4518 0011171 205.6776 154.3176 14.39652293069842
+FUSE 1                    
+1 25791U 99035A   00292.97413670  .00001233  00000-0  33120-3 0  1465
+2 25791  24.9832 264.7305 0011154 184.3003 175.7409 14.39648196 69551
+FUSE 1
+1 25791U 99035A   00292.21160463  .00001227  00000-0  32957-3 0  1304
+2 25791  24.9833 269.3878 0011141 176.2888 183.7705 14.39646543 69445
+FUSE 1
+1 25791U 99035A   00290.96382404  .00001125  00000-0  29744-3 0  2033
+2 25791  24.9839 277.0093 0011248 162.9629 197.1281 14.39643362 69263
+FUSE 1
+1 25791U 99035A   00289.92400452  .00001005  00000-0  25962-3 0  1697
+2 25791  24.9842 283.3623 0011271 152.1446 207.9673 14.39640561 69117
+FUSE 1
+1 25791U 99035A   00288.88418235  .00000939  00000-0  23889-3 0  1296
+2 25791  24.9839 289.7161 0011345 141.9406 218.1903 14.39638291 68963
+FUSE 1
+1 25791U 99035A   00286.94317390  .00000937  00000-0  23849-3 0  2050
+2 25791  24.9842 301.5720 0011377 121.8967 238.2636 14.39635355 68688
+FUSE 1
+1 25791U 99035A   00284.93283722  .00000946  00000-0  24124-3 0  1290
+2 25791  24.9844 313.8517 0011349 101.4953 258.6830 14.39632282 68394
+FUSE 1
+1 25791U 99035A   00283.82368229  .00001113  00000-0  29370-3 0  2356
+2 25791  24.9845 320.6276 0011360  90.5778 269.6031 14.39631230 68239
+FUSE 1
+1 25791U 99035A   00281.18943126  .00001671  00000-0  46933-3 0  1271
+2 25791  24.9838 336.7203 0011242  63.6820 296.4846 14.39626315 67854
+FUSE 1
+1 25791U 99035A   00279.87230155  .00001498  00000-0  41495-3 0  1843
+2 25791  24.9836 344.7657 0011284  49.9927 310.1569 14.39621506 67667
+FUSE 1
+1 25791U 99035A   00278.13922732  .00001349  00000-0  36829-3 0  1266
+2 25791  24.9841 355.3497 0011217  31.6026 328.5162 14.39615977 67417
+FUSE 1
+1 25791U 99035A   00275.92088045 +.00001249 +00000-0 +33679-3 0 02260
+2 25791 024.9846 008.8984 0011149 008.1796 351.8898 14.39610187067097
+FUSE 1
+1 25791U 99035A   00274.88102724 +.00001183 +00000-0 +31605-3 0 01932
+2 25791 024.9847 015.2496 0011092 357.4607 002.5840 14.39607485066943
+FUSE 1
+1 25791U 99035A   00273.91049603 +.00001143 +00000-0 +30335-3 0 01587
+2 25791 024.9849 021.1778 0011061 347.4078 012.6154 14.39605252066806
+FUSE 1
+1 25791U 99035A   00272.87063947  .00001058  00000-0  27682-3 0  1258
+2 25791  24.9850  27.5285 0010951 336.1587  23.8412 14.39602697 66652
+FUSE 1
+1 25791U 99035A   00271.90010587 +.00000952 +00000-0 +24332-3 0 02019
+2 25791 024.9849 033.4553 0010904 326.2752 033.7061 14.39600291066519
+FUSE 1
+1 25791U 99035A   00270.86024700 +.00000806 +00000-0 +19727-3 0 01755
+2 25791 024.9848 039.8050 0010873 315.4400 044.5233 14.39597817066368
+FUSE 1
+1 25791U 99035A   00269.95903493 +.00000698 +00000-0 +16343-3 0 01422
+2 25791 024.9847 045.3098 0010847 305.7600 054.1897 14.39596109066238
+FUSE 1
+1 25791U 99035A   00269.19647060  .00000662  00000-0  15206-3 0  1241
+2 25791  24.9847  49.9681 0010790 297.8206  62.1208 14.39595085 66121
+FUSE 1
+1 25791U 99035A   00265.93823791 +.00000839 +00000-0 +20769-3 0 01602
+2 25791 024.9853 069.8642 0010925 262.8653 097.0612 14.39592139065654
+FUSE 1
+1 25791U 99035A   00264.89837713  .00000866  00000-0  21632-3 0  1234
+2 25791  24.9853  76.2157 0010914 251.7893 108.1424 14.39590766 65501
+FUSE 1
+1 25791U 99035A   00263.85851584 +.00000759 +00000-0 +18267-3 0 02468
+2 25791 024.9844 082.5656 0011036 240.7792 119.1611 14.39588783065356
+FUSE 1
+1 25791U 99035A   00262.95730211 +.00000987 +00000-0 +25418-3 0 02190
+2 25791 024.9843 088.0698 0011108 231.2492 128.7025 14.39588229065220
+FUSE 1
+1 25791U 99035A   00261.91744362 +.00000854 +00000-0 +21237-3 0 01903
+2 25791 024.9840 094.4417 0011199 219.5461 140.4230 14.39586929065079
+FUSE 1
+1 25791U 99035A   00260.94690555 +.00000874 +00000-0 +21887-3 0 01496
+2 25791 024.9839 100.3694 0011196 209.3232 150.6648 14.39585857064930
+FUSE 1
+1 25791U 99035A   00260.60028428  .00000895  00000-0  22526-3 0  1228
+2 25791  24.9838 102.4866 0011182 205.8154 154.1794 14.39585645 64882
+FUSE 1
+1 25791U 99035A   00257.89664249 +.00000980 +00000-0 +25207-3 0 01574
+2 25791 024.9797 119.0147 0011228 178.5341 181.5202 14.39582285064499
+FUSE 1
+1 25791U 99035A   00256.92610205 +.00001007 +00000-0 +26048-3 0 01317
+2 25791 024.9796 124.9428 0011260 168.6067 191.4699 14.39580956064354
+FUSE 1
+1 25791U 99035A   00256.57948045  .00001009  00000-0  26113-3 0  1218
+2 25791  24.9796 127.0600 0011258 164.9452 195.1394 14.39580392 64306
+FUSE 1
+1 25791U 99035A   00255.95556083 +.00001022 +00000-0 +26540-3 0 02272
+2 25791 024.9796 130.8705 0011304 158.5484 201.5503 14.39579482064212
+FUSE 1
+1 25791U 99035A   00254.91569423 +.00001012 +00000-0 +26236-3 0 01998
+2 25791 024.9795 137.2214 0011318 147.7697 212.3506 14.39577628064064
+FUSE 1
+1 25791U 99035A   00253.94515052 +.00000993 +00000-0 +25614-3 0 01704
+2 25791 024.9796 143.1491 0011353 137.8454 222.2931 14.39575858063927
+FUSE 1
+1 25791U 99035A   00252.90528132 +.00000931 +00000-0 +23692-3 0 01337
+2 25791 024.9802 149.5025 0011353 127.3223 232.8322 14.39573664063773
+FUSE 1
+1 25791U 99035A   00252.21203297  .00000929  00000-0  23624-3 0  1201
+2 25791  24.9802 153.7367 0011354 120.2792 239.8836 14.39572606 63674
+FUSE 1
+1 25791U 99035A   00250.96418540 +.00000820 +00000-0 +20171-3 0 02317
+2 25791 024.9813 161.3571 0011231 106.6703 253.5039 14.39569924063499
+FUSE 1
+1 25791U 99035A   00249.92430983 +.00000751 +00000-0 +18005-3 0 01973
+2 25791 024.9819 167.7098 0011202 095.9335 264.2451 14.39568010063344
+FUSE 1
+1 25791U 99035A   00248.95375648 +.00000728 +00000-0 +17305-3 0 01641
+2 25791 024.9822 173.6380 0011200 085.7277 274.4508 14.39566715063209
+FUSE 1
+1 25791U 99035A   00247.98320188 +.00000685 +00000-0 +15936-3 0 01204
+2 25791 024.9827 179.5664 0011177 075.4057 284.7689 14.39565289063062
+FUSE 1
+1 25791U 99035A   00247.91387641  .00000685  00000-0  15938-3 0  1194
+2 25791  24.9827 179.9897 0011176  74.6798 285.4945 14.39565219 63051
+FUSE 1
+1 25791U 99035A   00243.89298918 +.00000627 +00000-0 +14121-3 0 01217
+2 25791 024.9838 204.5495 0011279 032.6718 327.4493 14.39560964062474
+FUSE 1
+1 25791U 99035A   00243.54635985  .00000620  00000-0  13900-3 0  1181
+2 25791  24.9838 206.6661 0011299  29.0913 331.0222 14.39560578 62428
+FUSE 1
+1 25791U 99035A   00242.92242652 +.00000636 +00000-0 +14397-3 0 02524
+2 25791 024.9839 210.4766 0011308 022.5635 337.5375 14.39560193062331
+FUSE 1
+1 25791U 99035A   00241.95186248 +.00000663 +00000-0 +15237-3 0 02180
+2 25791 024.9839 216.4045 0011240 012.3907 347.6875 14.39559570062199
+FUSE 1
+1 25791U 99035A   00241.11995000 +.00000705 +00000-0 +16585-3 0 01905
+2 25791 024.9843 221.4849 0011230 004.1902 355.8697 14.39559225062072
+FUSE 1
+1 25791U 99035A   00240.14938556 +.00000715 +00000-0 +16878-3 0 01535
+2 25791 024.9843 227.4129 0011265 353.6646 006.3718 14.39558267061935
+FUSE 1
+1 25791U 99035A   00239.24814579  .00000768  00000-0  18562-3 0  1172
+2 25791  24.9851 232.9197 0011057 343.6898  16.3253 14.39557918 61800
+FUSE 1
+1 25791U 99035A   00237.16836108 +.00000937 +00000-0 +23867-3 0 01265
+2 25791 024.9852 245.6242 0010930 321.1150 038.8565 14.39556840061509
+FUSE 1
+1 25791U 99035A   00236.47509969  .00000981  00000-0  25253-3 0  1169
+2 25791  24.9852 249.8576 0010910 313.5211  46.4389 14.39556202 61406
+FUSE 1
+1 25791U 99035A   00236.12846894 +.00001006 +00000-0 +26041-3 0 02540
+2 25791 024.9853 251.9740 0010908 310.0331 049.9215 14.39555895061353
+FUSE 1
+1 25791U 99035A   00234.18733724 +.00001106 +00000-0 +29194-3 0 01914
+2 25791 024.9856 263.8291 0010929 289.3257 070.6065 14.39553537061071
+FUSE 1
+1 25791U 99035A   00233.97935917 +.00001108 +00000-0 +29254-3 0 01827
+2 25791 024.9855 265.0992 0010925 287.2111 072.7202 14.39553153061041
+FUSE 1
+1 25791U 99035A   00232.93946679 +.00001150 +00000-0 +30606-3 0 01414
+2 25791 024.9859 271.4505 0010949 275.8605 084.0653 14.39551685060899
+FUSE 1
+1 25791U 99035A   00232.24620540  .00001162  00000-0  30984-3 0  1157
+2 25791  24.9861 275.6842 0010947 268.2547  91.6703 14.39550498 60791
+FUSE 1
+1 25791U 99035A   00230.85968265 +.00001168 +00000-0 +31152-3 0 01841
+2 25791 024.9861 284.1498 0010908 253.3956 106.5351 14.39547810060596
+FUSE 1
+1 25791U 99035A   00229.88911656 +.00001173 +00000-0 +31324-3 0 01650
+2 25791 024.9862 290.0753 0010918 243.1432 116.7994 14.39545953060451
+FUSE 1
+1 25791U 99035A   00228.84922713 +.00001681 +00000-0 +47341-3 0 01392
+2 25791 024.9833 296.4467 0010541 233.3366 126.6176 14.39544754060304
+FUSE 1
+1 25791U 99035A   00228.22529183  .00001437  00000-0  39642-3 0  1145
+2 25791  24.9839 300.2597 0010660 226.7882 133.1742 14.39542247 60216
+FUSE 1
+1 25791U 99035A   00227.87866114 +.00001204 +00000-0 +32286-3 0 01748
+2 25791 024.9843 302.3743 0010672 222.4107 137.5583 14.39540549060161
+FUSE 1
+1 25791U 99035A   00226.90809209 +.00001066 +00000-0 +27935-3 0 01531
+2 25791 024.9844 308.3015 0010818 212.0864 147.8990 14.39538035060025
+FUSE 1
+1 25791U 99035A   00225.86819636 +.00000875 +00000-0 +21927-3 0 01240
+2 25791 024.9839 314.6498 0010966 200.7238 159.2827 14.39535222059879
+FUSE 1
+1 25791U 99035A   00225.59089041  .00000839  00000-0  20809-3 0  1135
+2 25791  24.9841 316.3434 0010990 198.0059 162.0059 14.39534638 59833
+FUSE 1
+1 25791U 99035A   00222.88715209 +.00000729 +00000-0 +17338-3 0 01575
+2 25791 024.9839 332.8560 0011113 170.5138 189.5580 14.39530485059440
+FUSE 1
+1 25791U 99035A   00221.91657699 +.00000732 +00000-0 +17430-3 0 01315
+2 25791 024.9840 338.7844 0011141 160.6691 199.4239 14.39529454059307
+FUSE 1
+1 25791U 99035A   00221.15398144  .00000741  00000-0  17714-3 0  1122
+2 25791  24.9839 343.4418 0011158 152.7937 207.3154 14.39528689 59199
+FUSE 1
+1 25791U 99035A   00219.90609556 +.00000787 +00000-0 +19148-3 0 01712
+2 25791 024.9839 351.0626 0011186 140.1583 219.9740 14.39527697059013
+FUSE 1
+1 25791U 99035A   00218.93551634 +.00000842 +00000-0 +20903-3 0 01383
+2 25791 024.9842 356.9905 0011221 130.2195 229.9294 14.39527076058879
+FUSE 1
+1 25791U 99035A   00218.24224392  .00000911  00000-0  23076-3 0  1117
+2 25791  24.9837   1.2239 0011126 122.7808 237.3779 14.39526803 58771
+FUSE 1
+1 25791U 99035A   00216.92502528 +.00000994 +00000-0 +25698-3 0 01359
+2 25791 024.9840 009.2668 0011090 109.2022 250.9670 14.39525666058583
+FUSE 1
+1 25791U 99035A   00215.95444232 +.00001073 +00000-0 +28173-3 0 01224
+2 25791 024.9846 015.1947 0011165 099.5630 260.6137 14.39524901058446
+FUSE 1
+1 25791U 99035A   00215.19184019  .00001121  00000-0  29713-3 0  1106
+2 25791  24.9845  19.8506 0011155  91.5631 268.6149 14.39524011 58330
+FUSE 1
+1 25791U 99035A   00213.87461582 +.00001234 +00000-0 +33255-3 0 01563
+2 25791 024.9851 027.8945 0011173 078.5475 281.6282 14.39522670058145
+FUSE 1
+1 25791U 99035A   00212.90402845 +.00001276 +00000-0 +34584-3 0 01363
+2 25791 024.9853 033.8211 0011136 068.8066 291.3628 14.39521095058004
+FUSE 1
+1 25791U 99035A   00212.14142266  .00001313  00000-0  35764-3 0  1090
+2 25791  24.9850  38.4778 0011130  60.7162 299.4447 14.39519790 57895
+FUSE 1
+1 25791U 99035A   00209.92292793 +.00001396 +00000-0 +38383-3 0 01533
+2 25791 024.9849 052.0258 0011073 037.5021 322.6251 14.39515598057579
+FUSE 1
+1 25791U 99035A   00208.95233548 +.00001473 +00000-0 +40802-3 0 01252
+2 25791 024.9837 057.9580 0011424 026.9665 333.1435 14.39514058057430
+FUSE 1
+1 25791U 99035A   00208.18972549  .00001576  00000-0  44071-3 0  1085
+2 25791  24.9833  62.6176 0011472  18.7210 341.3716 14.39512347 57328
+FUSE 1
+1 25791U 99035A   00206.94181514 +.00001511 +00000-0 +42008-3 0 01921
+2 25791 024.9854 070.2405 0011038 006.6126 353.4533 14.39509278057141
+FUSE 1
+1 25791U 99035A   00205.97121710 +.00001487 +00000-0 +41266-3 0 01685
+2 25791 024.9852 076.1701 0011017 356.2364 003.8067 14.39506509057005
+FUSE 1
+1 25791U 99035A   00204.93128816 +.00001476 +00000-0 +40903-3 0 01386
+2 25791 024.9852 082.5219 0010972 345.2641 014.7546 14.39503741056855
+FUSE 1
+1 25791U 99035A   00203.96068597 +.00001638 +00000-0 +46010-3 0 01113
+2 25791 024.9851 088.4485 0010910 335.3315 024.6669 14.39501677056711
+FUSE 1
+1 25791U 99035A   00203.89135786  .00001602  00000-0  44873-3 0  1071
+2 25791  24.9852  88.8720 0010897 334.6954  25.3042 14.39501366 56700
+FUSE 1
+1 25791U 99035A   00201.95014789 +.00001572 +00000-0 +43936-3 0 01799
+2 25791 024.9852 100.7256 0010918 312.2678 047.6911 14.39496898056421
+FUSE 1
+1 25791U 99035A   00200.97954187 +.00001738 +00000-0 +49182-3 0 01451
+2 25791 024.9852 106.6535 0010962 301.6227 058.3210 14.39494751056288
+FUSE 1
+1 25791U 99035A   00199.93960649 +.00001805 +00000-0 +51300-3 0 01117
+2 25791 024.9853 113.0050 0010969 290.2578 069.6750 14.39491667056133
+FUSE 1
+1 25791U 99035A   00199.87027750  .00001803  00000-0  51229-3 0  1069
+2 25791  24.9852 113.4283 0010971 289.5399  70.3926 14.39491421 56120
+FUSE 1
+1 25791U 99035A   00198.96900068 +.00001318 +00000-0 +35923-3 0 01266
+2 25791 024.9850 118.9330 0011332 279.9281 079.9947 14.39486512055993
+FUSE 1
+1 25791U 99035A   00198.20638092  .00001053  00000-0  27558-3 0  1056
+2 25791  24.9852 123.5922 0011255 271.8947  88.0275 14.39483842 55884
+FUSE 1
+1 25791U 99035A   00195.91851583  .00000689  00000-0  16100-3 0  1047
+2 25791  24.9847 137.5630 0011254 247.8427 112.0894 14.39478555 55558
+FUSE 1
+1 25791U 99035A   00194.94790513 +.00000622 +00000-0 +13965-3 0 02217
+2 25791 024.9845 143.4897 0011244 237.8927 122.0496 14.39476756055415
+FUSE 1
+1 25791U 99035A   00193.97729403 +.00000584 +00000-0 +12775-3 0 01820
+2 25791 024.9847 149.4236 0011293 228.1708 131.7837 14.39475391055278
+FUSE 1
+1 25791U 99035A   00192.93735201 +.00000550 +00000-0 +11684-3 0 01414
+2 25791 024.9846 155.7737 0011308 217.3578 142.6152 14.39474212055121
+FUSE 1
+1 25791U 99035A   00191.96673850 +.00000542 +00000-0 +11437-3 0 01065
+2 25791 024.9844 161.7002 0011295 207.2529 152.7388 14.39473399054981
+FUSE 1
+1 25791U 99035A   00191.89740911  .00000540  00000-0  11391-3 0  1034
+2 25791  24.9843 162.1235 0011294 206.5071 153.4866 14.39473330 54979
+FUSE 1
+1 25791U 99035A   00188.91623713 +.00000545 +00000-0 +11536-3 0 01387
+2 25791 024.9846 180.3280 0011401 175.5058 184.5555 14.39471262054549
+FUSE 1
+1 25791U 99035A   00187.94562172 +.00000562 +00000-0 +12095-3 0 01032
+2 25791 024.9848 186.2545 0011434 165.3569 194.7270 14.39470796054403
+FUSE 1
+1 25791U 99035A   00187.87629207  .00000562  00000-0  12095-3 0  1026
+2 25791  24.9848 186.6777 0011434 164.6313 195.4544 14.39470742 54394
+FUSE 1
+1 25791U 99035A   00183.57784536  .00000667  00000-0  15416-3 0  1011
+2 25791  24.9855 212.9320 0011413 120.5817 239.5821 14.39468389 53779
+FUSE 1
+1 25791U 99035A   00181.91392783 +.00000671 +00000-0 +15546-3 0 01789
+2 25791 024.9854 223.1058 0011337 102.1276 258.0499 14.39467140053535
+FUSE 1
+1 25791U 99035A   00180.87397553 +.00000700 +00000-0 +16442-3 0 01445
+2 25791 024.9852 229.4559 0011322 091.4012 268.7791 14.39466353053381
+FUSE 1
+1 25791U 99035A   00179.97268238 +.00000726 +00000-0 +17280-3 0 01057
+2 25791 024.9855 234.9604 0011315 082.3086 277.8702 14.39465677053255
+FUSE 1
+1 25791U 99035A   00179.55670036  .00000742  00000-0  17762-3 0  1002
+2 25791  24.9855 237.5004 0011277  78.2476 281.9296 14.39465389 53199
+FUSE 1
+1 25791U 99035A   00178.86339700 +.00000752 +00000-0 +18089-3 0 02381
+2 25791 024.9856 241.7337 0011290 070.9195 289.2531 14.39464704053090
+FUSE 1
+1 25791U 99035A   00177.89277115 +.00000766 +00000-0 +18548-3 0 02031
+2 25791 024.9859 247.6607 0011289 060.8540 299.3095 14.39463739052956
+FUSE 1
+1 25791U 99035A   00176.92214342 +.00000800 +00000-0 +19601-3 0 01665
+2 25791 024.9859 253.5881 0011190 051.0927 309.0575 14.39462915052810
+FUSE 1
+1 25791U 99035A   00175.88218431 +.00000816 +00000-0 +20117-3 0 01315
+2 25791 024.9862 259.9387 0011137 040.3293 319.8037 14.39461801052661
+FUSE 1
+1 25791U 99035A   00175.25820859  .00000821  00000-0  20275-3 0   993
+2 25791  24.9863 263.7490 0011148  33.8548 326.2678 14.39461054 52575
+FUSE 1
+1 25791U 99035A   00173.87159264 +.00000872 +00000-0 +21895-3 0 01978
+2 25791 024.9863 272.2156 0011038 020.3739 339.7205 14.39459774052379
+FUSE 1
+1 25791U 99035A   00172.90096122 +.00000862 +00000-0 +21562-3 0 01592
+2 25791 024.9869 278.1422 0011016 010.0480 350.0243 14.39458368052232
+FUSE 1
+1 25791U 99035A   00171.93032817 +.00000868 +00000-0 +21744-3 0 01290
+2 25791 024.9870 284.0679 0010950 359.6225 000.4272 14.39457116052091
+FUSE 1
+1 25791U 99035A   00170.95969467 +.00000873 +00000-0 +21901-3 0 01001
+2 25791 024.9872 289.9957 0010930 349.1807 010.8463 14.39455848051955
+FUSE 1
+1 25791U 99035A   00170.89036360  .00000875  00000-0  21983-3 0   989
+2 25791  24.9872 290.4190 0010916 348.4366  11.5890 14.39455786 51949
+FUSE 1
+1 25791U 99035A   00167.83979740 +.00000834 +00000-0 +20689-3 0 01244
+2 25791 024.9865 309.0441 0011049 315.9144 044.0481 14.39451106051509
+FUSE 1
+1 25791U 99035A   00166.93849291 +.00000817 +00000-0 +20146-3 0 00991
+2 25791 024.9866 314.5466 0011043 306.5008 053.4481 14.39449711051375
+FUSE 1
+1 25791U 99035A   00166.86916175  .00000816  00000-0  20127-3 0   975
+2 25791  24.9867 314.9701 0011045 305.7696  54.1782 14.39449617 51364
+FUSE 1
+1 25791U 99035A   00165.89852612 +.00001393 +00000-0 +38331-3 0 01420
+2 25791 024.9880 320.9003 0010529 293.0245 066.9309 14.39451820051226
+FUSE 1
+1 25791U 99035A   00164.92788963 +.00001058 +00000-0 +27751-3 0 01130
+2 25791 024.9900 326.8234 0010700 286.6900 073.2425 14.39448463051080
+FUSE 1
+1 25791U 99035A   00164.58123317  .00001414  00000-0  39006-3 0   960
+2 25791  24.9895 328.9405 0010608 283.0060  76.9260 14.39449353 51032
+FUSE 1
+1 25791U 99035A   00163.88792360 +.00001009 +00000-0 +26201-3 0 01988
+2 25791 024.9902 333.1737 0010422 276.0922 083.8398 14.39446429050938
+FUSE 1
+1 25791U 99035A   00162.91728936 +.00000838 +00000-0 +20810-3 0 01731
+2 25791 024.9924 339.1014 0009907 267.6684 092.2688 14.39444419050790
+FUSE                    
+1 25791U 99035A   00160.90668101  .00000585  00000-0  12820-3 0  1084
+2 25791  24.9857 351.3806 0010965 243.0464 116.8920 14.39441160 50501
+FUSE                    
+1 25791U 99035A   00159.93604429  .00000520  00000-0  10769-3 0  2088
+2 25791  24.9857 357.3078 0010932 232.6720 127.2791 14.39439999 50364
+FUSE                    
+1 25791U 99035A   00158.89607500  .00000535  00000-0  11232-3 0  1828
+2 25791  24.9859   3.6563 0011010 221.7464 138.2204 14.39439406 50216
+FUSE                    
+1 25791U 99035A   00157.92543755  .00000593  00000-0  13055-3 0  1551
+2 25791  24.9862   9.5835 0010973 212.1855 147.7986 14.39438945 50075
+FUSE                    
+1 25791U 99035A   00156.95479994  .00000684  00000-0  15953-3 0  1220
+2 25791  24.9855  15.5108 0010936 202.2301 157.7734 14.39438339 49934
+FUSE                    
+1 25791U 99035A   00153.90422121  .00000864  00000-0  21631-3 0  1165
+2 25791  24.9865  34.1388 0011133 170.3555 189.7168 14.39436079 49494
+FUSE                    
+1 25791U 99035A   00152.93358165  .00000892  00000-0  22526-3 0  1001
+2 25791  24.9870  40.0657 0011211 160.4686 199.6263 14.39435106 49358
+FUSE                    
+1 25791U 99035A   00151.96294208  .00000727  00000-0  17304-3 0  1612
+2 25791  24.9867  45.9944 0011211 149.4582 210.6578 14.39433226 49218
+FUSE 1
+1 25791U 99035A   00150.92296786 +.00000783 +00000-0 +19073-3 0 01460
+2 25791 024.9865 052.3453 0011336 140.3401 219.7938 14.39432403049060
+FUSE 1
+1 25791U 99035A   00149.95232539 +.00000829 +00000-0 +20521-3 0 01198
+2 25791 024.9864 058.2759 0011314 130.9449 229.2035 14.39431340048923
+FUSE 1
+1 25791U 99035A   00148.91235042  .00001108  00000-0  29356-3 0   921
+2 25791  24.9862  64.6309 0011392 119.2869 240.8777 14.39431427 48776
+FUSE 1
+1 25791U 99035A   00146.97105909 +.00001049 +00000-0 +27490-3 0 01217
+2 25791 024.9860 076.4928 0011034 100.1008 260.0730 14.39427312048499
+FUSE 1
+1 25791U 99035A   00145.93107729 +.00001195 +00000-0 +32101-3 0 01053
+2 25791 024.9858 082.8448 0010906 089.5878 270.5877 14.39425983048340
+FUSE 1
+1 25791U 99035A   00144.96042610 +.00001210 +00000-0 +32585-3 0 00943
+2 25791 024.9858 088.7713 0010797 079.6238 280.5487 14.39424047048201
+FUSE 1
+1 25791U 99035A   00144.89109336  .00001242  00000-0  33587-3 0   919
+2 25791  24.9856  89.1955 0010755  78.9603 281.2108 14.39424127 48199
+FUSE 1
+1 25791U 99035A   00143.92043990 +.00001286 +00000-0 +34981-3 0 01362
+2 25791 024.9853 095.1215 0010661 068.9516 291.2131 14.39422329048054
+FUSE 1
+1 25791U 99035A   00142.94978508 +.00001390 +00000-0 +38255-3 0 01224
+2 25791 024.9849 101.0495 0010673 058.3816 301.7746 14.39420789047916
+FUSE 1
+1 25791U 99035A   00141.97912863 +.00001410 +00000-0 +38914-3 0 01076
+2 25791 024.9848 106.9769 0010693 048.0107 312.1315 14.39418518047773
+FUSE 1
+1 25791U 99035A   00140.31514173  .00001395  00000-0  38437-3 0   908
+2 25791  24.9846 117.1387 0010720  30.1996 329.9129 14.39414225 47534
+FUSE 1
+1 25791U 99035A   00139.96847802 +.00001336 +00000-0 +36555-3 0 01225
+2 25791 024.9846 119.2585 0010753 026.5593 333.5472 14.39413031047485
+FUSE 1
+1 25791U 99035A   00138.30448417 +.00000986 +00000-0 +25496-3 0 01032
+2 25791 024.9849 129.4190 0010807 008.4590 351.6103 14.39408079047241
+FUSE 1
+1 25791U 99035A   00138.16581799 +.00000917 +00000-0 +23330-3 0 00989
+2 25791 024.9852 130.2683 0010800 006.3941 353.6704 14.39407532047222
+FUSE 1
+1 25791U 99035A   00137.33381884  .00000891  00000-0  22495-3 0   892
+2 25791  24.9849 135.3478 0010942 358.1038   1.9431 14.39406114 47100
+FUSE 1
+1 25791U 99035A   00137.12581947 +.00000782 +00000-0 +19067-3 0 01443
+2 25791 024.9853 136.6194 0010936 354.9891 005.0518 14.39405165047070
+FUSE 1
+1 25791U 99035A   00136.15515183 +.00000717 +00000-0 +17007-3 0 01309
+2 25791 024.9856 142.5472 0011025 344.6838 015.3341 14.39403617046937
+FUSE 1
+1 25791U 99035A   00135.11514942 +.00000688 +00000-0 +16101-3 0 01150
+2 25791 024.9856 148.8977 0011074 333.6712 026.3233 14.39402271046789
+FUSE 1
+1 25791U 99035A   00134.14447983 +.00000686 +00000-0 +16024-3 0 01019
+2 25791 024.9858 154.8255 0011141 323.3354 036.6390 14.39401238046645
+FUSE 1
+1 25791U 99035A   00133.24314397  .00000697  00000-0  16371-3 0   882
+2 25791  24.9859 160.3315 0011225 313.9280  46.0306 14.39400350 46513
+FUSE 1
+1 25791U 99035A   00132.13380598 +.00000799 +00000-0 +19602-3 0 01249
+2 25791 024.9855 167.1074 0011235 302.2916 057.6506 14.39399858046356
+FUSE 1
+1 25791U 99035A   00130.46979970 +.00000876 +00000-0 +22019-3 0 01108
+2 25791 024.9854 177.2667 0011205 284.7991 075.1274 14.39398379046117
+FUSE 1
+1 25791U 99035A   00129.42979604 +.00000935 +00000-0 +23904-3 0 00958
+2 25791 024.9855 183.6177 0011214 273.6439 086.2789 14.39397418045968
+FUSE 1
+1 25791U 99035A   00129.22179542  .00000943  00000-0  24155-3 0   878
+2 25791  24.9857 184.8897 0011260 271.3687  88.5531 14.39397203 45932
+FUSE 1
+1 25791U 99035A   00124.57644568  .00001168  00000-0  31255-3 0   864
+2 25791  24.9853 213.2548 0011424 222.2133 137.7495 14.39390992 45261
+FUSE 1
+1 25791U 99035A   00123.60577526 +.00001181 +00000-0 +31680-3 0 01291
+2 25791 024.9854 219.1824 0011455 212.1770 147.8041 14.39389176045129
+FUSE 1
+1 25791U 99035A   00122.63510361 +.00001231 +00000-0 +33248-3 0 01161
+2 25791 024.9854 225.1097 0011461 201.9716 158.0303 14.39387621044982
+FUSE 1
+1 25791U 99035A   00121.66443151 +.00001251 +00000-0 +33895-3 0 01031
+2 25791 024.9854 231.0388 0011524 192.1664 167.8570 14.39385753044847
+FUSE 1
+1 25791U 99035A   00120.69375881 +.00001261 +00000-0 +34204-3 0 00919
+2 25791 024.9855 236.9674 0011466 182.0966 177.9496 14.39383716044709
+FUSE 1
+1 25791U 99035A   00120.55509156  .00001252  00000-0  33924-3 0   859
+2 25791  24.9857 237.8165 0011446 180.8748 179.1742 14.39383343 44689
+FUSE 1
+1 25791U 99035A   00118.68307534 +.00001268 +00000-0 +34428-3 0 01247
+2 25791 024.9853 249.2479 0011337 161.2641 198.8291 14.39379290044418
+FUSE 1
+1 25791U 99035A   00117.71239774 +.00001285 +00000-0 +34957-3 0 01099
+2 25791 024.9854 255.1775 0011271 151.1573 208.9557 14.39377287044279
+FUSE 1
+1 25791U 99035A   00116.74171833 +.00001334 +00000-0 +36531-3 0 00984
+2 25791 024.9851 261.1035 0011286 140.4017 219.7326 14.39375466044138
+FUSE 1
+1 25791U 99035A   00115.77103748  .00001336  00000-0  36589-3 0   846
+2 25791  24.9850 267.0332 0011164 130.0444 230.1046 14.39373163 43997
+FUSE 1
+1 25791U 99035A   00114.80035556 +.00001323 +00000-0 +36184-3 0 01051
+2 25791 024.9850 272.9636 0011139 118.8594 241.3037 14.39370701043855
+FUSE 1
+1 25791U 99035A   00113.48299633 +.00001343 +00000-0 +36805-3 0 00918
+2 25791 024.9847 281.0129 0011026 104.5281 255.6449 14.39367716043665
+FUSE 1
+1 25791U 99035A   00112.58164220 +.00001325 +00000-0 +36244-3 0 00895
+2 25791 024.9847 286.5147 0010991 094.9470 265.2284 14.39365442043531
+FUSE 1
+1 25791U 99035A   00111.61095147  .00001385  00000-0  38153-3 0   830
+2 25791  24.9843 292.4418 0011151  84.3852 275.7943 14.39363622 43390
+FUSE 1
+1 25791U 99035A   00110.57092100 +.00001565 +00000-0 +43855-3 0 00880
+2 25791 024.9834 298.7936 0011325 073.8814 286.2937 14.39362514043241
+FUSE 1
+1 25791U 99035A   00108.62952641 +.00001728 +00000-0 +49007-3 0 00851
+2 25791 024.9828 310.6444 0011254 054.3518 305.8020 14.39358127042962
+FUSE 1
+1 25791U 99035A   00107.93616998 +.00001752 +00000-0 +49756-3 0 00843
+2 25791 024.9826 314.8766 0011241 047.0226 313.1227 14.39356131042867
+FUSE 1
+1 25791U 99035A   00107.86683435  .00001753  00000-0  49803-3 0   827
+2 25791  24.9827 315.3009 0011242  46.2771 313.8667 14.39355927 42857
+FUSE 1
+1 25791U 99035A   00105.85608578  .00002056  00000-0  59388-3 0   814
+2 25791  24.9817 327.5892 0010873  23.0273 337.0569 14.39351807 42560
+FUSE 1
+1 25791U 99035A   00104.67736936 +.00002243 +00000-0 +65292-3 0 00823
+2 25791 024.9813 334.7843 0010911 011.3549 348.7002 14.39348712042394
+FUSE 1
+1 25791U 99035A   00103.91467118 +.00002381 +00000-0 +69669-3 0 00816
+2 25791 024.9810 339.4400 0010675 002.0282 358.0252 14.39346695042287
+FUSE 1
+1 25791U 99035A   00103.01329876 +.00002405 +00000-0 +70441-3 0 01194
+2 25791 024.9809 344.9404 0010670 352.8750 007.1606 14.39342875042158
+FUSE 1
+1 25791U 99035A   00101.97324977 +.00002555 +00000-0 +75197-3 0 01137
+2 25791 024.9805 351.2909 0010643 342.0641 017.9481 14.39339226042005
+FUSE 1
+1 25791U 99035A   00101.07187295 +.00002583 +00000-0 +76093-3 0 01124
+2 25791 024.9805 356.7922 0010619 332.7422 027.2531 14.39335099041874
+FUSE 1
+1 25791U 99035A   00100.10115731 +.00002671 +00000-0 +78880-3 0 00968
+2 25791 024.9799 002.7214 0010593 322.7422 037.2356 14.39330819041734
+FUSE 1
+1 25791U 99035A   00099.13043908  .00002590  00000-0  76309-3 0   799
+2 25791  24.9798   8.6538 0010792 311.2745  48.6840 14.39325505 41593
+FUSE 1
+1 25791U 99035A   00098.09037990 +.00002445 +00000-0 +71735-3 0 00851
+2 25791 024.9802 015.0028 0010995 299.5824 060.3584 14.39319881041446
+FUSE 1
+1 25791U 99035A   00097.11965747 +.00002329 +00000-0 +68059-3 0 00815
+2 25791 024.9804 020.9278 0010970 289.9717 069.9613 14.39314724041301
+FUSE 1
+1 25791U 99035A   00096.14893064 +.00002270 +00000-0 +66193-3 0 00877
+2 25791 024.9807 026.8527 0011076 279.9873 079.9390 14.39310047041167
+FUSE 1
+1 25791U 99035A   00095.17820409 +.00002063 +00000-0 +59661-3 0 00795
+2 25791 024.9813 032.7786 0011255 270.8469 089.0777 14.39304208041025
+FUSE 1
+1 25791U 99035A   00094.20747091  .00001992  00000-0  57410-3 0   771
+2 25791  24.9816  38.7034 0011419 261.0932  98.8284 14.39299966 40887
+FUSE 1
+1 25791U 99035A   00092.19666424  .00001729  00000-0  49103-3 0   764
+2 25791  24.9822  50.9810 0011573 241.7849 118.1493 14.39290662 40595
+FUSE 1
+1 25791U 99035A   00090.18584768 +.00001549 +00000-0 +43389-3 0 00794
+2 25791 024.9830 063.2550 0011512 221.2878 138.6763 14.39283008040302
+FUSE 1
+1 25791U 99035A   00089.28444503  .00001459  00000-0  40539-3 0   755
+2 25791  24.9832  68.7566 0011380 211.8222 148.1602 14.39279719 40179
+FUSE 1
+1 25791U 99035A   00088.31370039 +.00001360 +00000-0 +37404-3 0 00961
+2 25791 024.9836 074.6816 0011423 202.4456 157.5555 14.39276438040031
+FUSE 1
+1 25791U 99035A   00088.03634565 +.00001304 +00000-0 +35643-3 0 00913
+2 25791 024.9839 076.3760 0011454 200.2734 159.7366 14.39275277039997
+FUSE 1
+1 25791U 99035A   00087.20427617 +.00001254 +00000-0 +34072-3 0 00840
+2 25791 024.9841 081.4558 0011382 191.8207 168.2033 14.39272923039870
+FUSE 1
+1 25791U 99035A   00086.23352802  .00001203  00000-0  32440-3 0   745
+2 25791  24.9842  87.3815 0011279 181.4280 178.6196 14.39270365 39731
+FUSE 1
+1 25791U 99035A   00084.22268757 +.00001077 +00000-0 +28473-3 0 00961
+2 25791 024.9845 099.6586 0011009 160.1136 199.9804 14.39265143039448
+FUSE 1
+1 25791U 99035A   00083.18259301 +.00001067 +00000-0 +28137-3 0 00832
+2 25791 024.9846 106.0081 0010977 149.2929 210.8223 14.39263170039292
+FUSE 1
+1 25791U 99035A   00082.21183569  .00001096  00000-0  29069-3 0   733
+2 25791  24.9846 111.9346 0010974 139.3047 220.8279 14.39261692 39153
+FUSE 1
+1 25791U 99035A   00081.17173683 +.00001160 +00000-0 +31097-3 0 01011
+2 25791 024.9843 118.2860 0010946 128.6797 231.4693 14.39260290039008
+FUSE 1
+1 25791U 99035A   00080.20097578 +.00001213 +00000-0 +32794-3 0 00880
+2 25791 024.9841 124.2128 0010923 118.8383 241.3214 14.39258856038864
+FUSE 1
+1 25791U 99035A   00079.23021298  .00001324  00000-0  36292-3 0   720
+2 25791  24.9837 130.1398 0010979 108.5196 251.6496 14.39257774 38722
+FUSE 1
+1 25791U 99035A   00077.21934109 +.00001513 +00000-0 +42309-3 0 00861
+2 25791 024.9829 142.4172 0010838 088.8266 271.3475 14.39254631038434
+FUSE 1
+1 25791U 99035A   00075.55516719  .00001577  00000-0  44314-3 0   711
+2 25791  24.9825 152.5756 0010789  71.5815 288.5864 14.39250628 38191
+FUSE 1
+1 25791U 99035A   00073.61362244 +.00001623 +00000-0 +45792-3 0 01149
+2 25791 024.9823 164.4274 0010664 051.3108 308.8354 14.39245491037910
+FUSE 1
+1 25791U 99035A   00072.64284711 +.00001597 +00000-0 +44979-3 0 01015
+2 25791 024.9825 170.3543 0010564 040.8844 319.2456 14.39242488037772
+FUSE 1
+1 25791U 99035A   00071.67206979 +.00001573 +00000-0 +44222-3 0 00864
+2 25791 024.9826 176.2815 0010546 030.4691 329.6435 14.39239518037632
+FUSE 1
+1 25791U 99035A   00070.56260671  .00001532  00000-0  42912-3 0   702
+2 25791  24.9828 183.0544 0010529  18.3343 341.7543 14.39236091 37479
+FUSE 1
+1 25791U 99035A   00068.69038219 +.00001413 +00000-0 +39162-3 0 00952
+2 25791 024.9834 194.4830 0010533 358.2154 001.8316 14.39230155037209
+FUSE 1
+1 25791U 99035A   00067.71959612 +.00001335 +00000-0 +36691-3 0 00815
+2 25791 024.9838 200.4095 0010552 347.4671 012.5574 14.39227138037065
+FUSE 1
+1 25791U 99035A   00066.74880810  .00001316  00000-0  36063-3 0   698
+2 25791  24.9838 206.3364 0010621 337.4200  22.5842 14.39224685 36920
+FUSE 1
+1 25791U 99035A   00065.77801832 +.00001263 +00000-0 +34378-3 0 00998
+2 25791 024.9841 212.2629 0010676 326.5841 033.3993 14.39222062036782
+FUSE 1
+1 25791U 99035A   00064.80722849 +.00001189 +00000-0 +32036-3 0 00830
+2 25791 024.9845 218.1911 0010778 316.3193 043.6474 14.39219324036645
+FUSE 1
+1 25791U 99035A   00063.76709448 +.00001101 +00000-0 +29240-3 0 00718
+2 25791 024.9849 224.5412 0010871 305.4534 054.4961 14.39216487036499
+FUSE 1
+1 25791U 99035A   00063.55906739  .00001088  00000-0  28832-3 0   683
+2 25791  24.9850 225.8120 0010913 303.1719  56.7740 14.39215991 36464
+FUSE 1
+1 25791U 99035A   00061.82550819 +.00000982 +00000-0 +25477-3 0 00960
+2 25791 024.9855 236.3933 0010864 286.6270 073.3045 14.39211998036219
+FUSE 1
+1 25791U 99035A   00060.85471378 +.00000901 +00000-0 +22923-3 0 00845
+2 25791 024.9863 242.3201 0010848 276.7178 083.2098 14.39209859036077
+FUSE 1
+1 25791U 99035A   00059.88391871  .00000826  00000-0  20540-3 0   675
+2 25791  24.9869 248.2490 0010930 267.1229  92.8030 14.39207865 35932
+FUSE 1
+1 25791U 99035A   00058.91312284 +.00000781 +00000-0 +19097-3 0 00977
+2 25791 024.9873 254.1768 0010925 257.3125 102.6165 14.39206249035799
+FUSE 1
+1 25791U 99035A   00057.94232639 +.00000728 +00000-0 +17411-3 0 00816
+2 25791 024.9875 260.1056 0011055 247.8021 112.1316 14.39204614035655
+FUSE 1
+1 25791U 99035A   00056.62481384 +.00000758 +00000-0 +18375-3 0 00670
+2 25791 024.9875 268.1502 0011129 234.2119 125.7313 14.39203424035463
+FUSE 1
+1 25791U 99035A   00055.86204329  .00000793  00000-0  19497-3 0   661
+2 25791  24.9873 272.8046 0011161 226.1863 133.7679 14.39202825 35354
+FUSE 1
+1 25791U 99035A   00054.68321769 +.00000848 +00000-0 +21235-3 0 01001
+2 25791 024.9871 279.9967 0011112 213.5611 146.4207 14.39201763035188
+FUSE 1
+1 25791U 99035A   00053.98979045 +.00000850 +00000-0 +21296-3 0 00974
+2 25791 024.9870 284.2284 0011076 206.2727 153.7221 14.39200822035085
+FUSE 1
+1 25791U 99035A   00053.01899083 +.00000935 +00000-0 +24004-3 0 00830
+2 25791 024.9867 290.1552 0011204 196.3192 163.6959 14.39200205034940
+FUSE 1
+1 25791U 99035A   00052.04819115 +.00000994 +00000-0 +25875-3 0 00719
+2 25791 024.9868 296.0811 0011283 186.4833 173.5531 14.39199236034805
+FUSE 1
+1 25791U 99035A   00051.90950592  .00000987  00000-0  25647-3 0   650
+2 25791  24.9870 296.9294 0011270 185.1807 174.8586 14.39198964 34783
+FUSE 1
+1 25791U 99035A   00048.85841520  .00001297  00000-0  35475-3 0   644
+2 25791  24.9866 315.5528 0011618 154.5181 205.5896 14.39195818 34340
+FUSE 1
+1 25791U 99035A   00048.09564157 +.00001343 +00000-0 +36946-3 0 01229
+2 25791 024.9864 320.2075 0011655 146.8674 213.2566 14.39194413034238
+FUSE 1
+1 25791U 99035A   00047.12483713 +.00001391 +00000-0 +38482-3 0 01095
+2 25791 024.9864 326.1324 0011683 137.2771 222.8642 14.39192494034095
+FUSE 1
+1 25791U 99035A   00046.15403192 +.00001360 +00000-0 +37483-3 0 00949
+2 25791 024.9866 332.0573 0011665 127.2938 232.8638 14.39189972033950
+FUSE 1
+1 25791U 99035A   00045.18322419 +.00001296 +00000-0 +35475-3 0 00793
+2 25791 024.9869 337.9835 0011586 117.6016 242.5669 14.39187410033812
+FUSE 1
+1 25791U 99035A   00044.21241546  .00001146  00000-0  30690-3 0   638
+2 25791  24.9869 343.9091 0011473 107.1762 253.0006 14.39184536 33672
+FUSE 1
+1 25791U 99035A   00042.20144618 +.00000911 +00000-0 +23237-3 0 00758
+2 25791 024.9867 356.1818 0011249 085.1954 274.9841 14.39179242033387
+FUSE 1
+1 25791U 99035A   00041.92407140  .00000833  00000-0  20764-3 0   629
+2 25791  24.9866 357.8759 0011123  81.8578 278.3201 14.39178018 33348
+FUSE 1
+1 25791U 99035A   00041.16128579 +.00000812 +00000-0 +20105-3 0 01066
+2 25791 024.9865 002.5305 0011143 073.4503 286.7237 14.39176773033231
+FUSE 1
+1 25791U 99035A   00040.19046659 +.00000730 +00000-0 +17515-3 0 00919
+2 25791 024.9864 008.4561 0011054 062.5359 297.6273 14.39174760033097
+FUSE 1
+1 25791U 99035A   00038.31816651  .00000622  00000-0  14075-3 0   612
+2 25791  24.9860  19.8837 0010946  41.9661 318.1684 14.39171741 32822
+FUSE 1
+1 25791U 99035A   00035.19765343 +.00000599 +00000-0 +13337-3 0 00754
+2 25791 024.9862 038.9297 0010966 008.7816 351.2878 14.39168833032372
+FUSE 1
+1 25791U 99035A   00034.22682512  .00000609  00000-0  13670-3 0   609
+2 25791  24.9863  44.8546 0010985 358.5324   1.5150 14.39168123 32232
+FUSE 1
+1 25791U 99035A   00033.18665576 +.00000568 +00000-0 +12356-3 0 01126
+2 25791 024.9855 051.2265 0011261 347.2812 012.7409 14.39167162032084
+FUSE 1
+1 25791U 99035A   00032.21582678 +.00000591 +00000-0 +13078-3 0 00970
+2 25791 024.9855 057.1532 0011294 337.1761 022.8245 14.39166555031942
+FUSE 1
+1 25791U 99035A   00031.17565214 +.00000642 +00000-0 +14694-3 0 00805
+2 25791 024.9852 063.5033 0011303 326.2800 033.6988 14.39166094031795
+FUSE 1
+1 25791U 99035A   00030.20482266 +.00000686 +00000-0 +16093-3 0 00659
+2 25791 024.9850 069.4311 0011343 315.6598 044.3015 14.39165560031659
+FUSE 1
+1 25791U 99035A   00029.44202816  .00000689  00000-0  16196-3 0   594
+2 25791  24.9849  74.0872 0011363 307.3743  52.5733 14.39164796 31549
+FUSE 1
+1 25791U 99035A   00027.43102888  .00000569  00000-0  18032-3 0   586
+2 25791  24.9851  86.3260 0010521 286.4177  73.5622 14.39162573 31251
+FUSE 1
+1 25791U 99035A   00025.55871179  .00000869  00000-0  21924-3 0   579
+2 25791  24.9844  97.7947 0011481 266.0116  93.9082 14.39161817 30989
+FUSE 1
+1 25791U 99035A   00023.61705451 +.00000924 +00000-0 +23647-3 0 00872
+2 25791 024.9842 109.6465 0011662 245.5194 114.4098 14.39159561030703
+FUSE 1
+1 25791U 99035A   00022.57688135 +.00000962 +00000-0 +24873-3 0 00723
+2 25791 024.9839 115.9974 0011736 234.7227 125.2184 14.39158302030554
+FUSE 1
+1 25791U 99035A   00022.29950177 +.00001003 +00000-0 +26163-3 0 00619
+2 25791 024.9838 117.6930 0011736 231.8231 128.1224 14.39158246030517
+FUSE 1
+1 25791U 99035A   00021.53670825  .00000998  00000-0  26013-3 0   564
+2 25791  24.9840 122.3487 0011792 223.8474 136.1104 14.39156968 30405
+FUSE 1
+1 25791U 99035A   00020.42719000 +.00000962 +00000-0 +24860-3 0 00907
+2 25791 024.9842 129.1211 0011913 212.6223 147.3555 14.39154882030249
+FUSE 1
+1 25791U 99035A   00019.66439581 +.00000966 +00000-0 +24995-3 0 00839
+2 25791 024.9840 133.7768 0011844 204.5957 155.3985 14.39153669030138
+FUSE 1
+1 25791U 99035A   00018.62422196 +.00000928 +00000-0 +23794-3 0 00696
+2 25791 024.9842 140.1276 0011782 194.0350 165.9832 14.39151690029988
+FUSE 1
+1 25791U 99035A   00017.44535596  .00000854  00000-0  21447-3 0   550
+2 25791  24.9848 147.3221 0011810 182.6957 177.3499 14.39149382 29814
+FUSE 1
+1 25791U 99035A   00014.53285856  .00000615  00000-0  13854-3 0   545
+2 25791  24.9856 165.1015 0011407 153.4049 206.7053 14.39143679 29391
+FUSE 1
+1 25791U 99035A   00013.56202232 +.00000571 +00000-0 +12445-3 0 00786
+2 25791 024.9857 171.0254 0011318 143.0152 217.1149 14.39142418029251
+FUSE 1
+1 25791U 99035A   00012.72987589 +.00000562 +00000-0 +12183-3 0 00732
+2 25791 024.9854 176.1050 0011284 133.7108 226.4334 14.39141611029137
+FUSE 1
+1 25791U 99035A   00011.62034564 +.00000527 +00000-0 +11055-3 0 00633
+2 25791 024.9855 182.8750 0011249 121.8036 238.3572 14.39140431028974
+FUSE 1
+1 25791U 99035A   00010.71885112 +.00000512 +00000-0 +10577-3 0 00569
+2 25791 024.9854 188.3761 0011274 111.8566 248.3147 14.39139621028845
+FUSE 1
+1 25791U 99035A   00009.88670072  .00000501  00000-0  10250-3 0   535
+2 25791  24.9854 193.4536 0011262 103.0112 257.1659 14.39138969 28726
+FUSE 1
+1 25791U 99035A   00006.83547797  .00000337  00000-0  10675-3 0   521
+2 25791  24.9869 212.0479 0011133  74.0467 286.1742 14.39136665 28280
+FUSE 1
+1 25791U 99035A   00005.93397487 +.00000522 +00000-0 +10899-3 0 00546
+2 25791 024.9856 217.5808 0011349 060.5895 299.5747 14.39136473028152
+FUSE 1
+1 25791U 99035A   00005.86462875  .00000520  00000-0  10857-3 0   511
+2 25791  24.9857 218.0047 0011344  59.7788 300.3845 14.39136413 28143
+FUSE 1
+1 25791U 99035A   00004.96312675 +.00000518 +00000-0 +10767-3 0 01139
+2 25791 024.9860 223.5077 0011297 050.2547 309.8954 14.39135812028010
+FUSE 1
+1 25791U 99035A   00003.99227761 +.00000520 +00000-0 +10842-3 0 00981
+2 25791 024.9861 229.4342 0011263 039.8658 320.2678 14.39135178027878
+FUSE 1
+1 25791U 99035A   00003.02142715 +.00000562 +00000-0 +12179-3 0 00835
+2 25791 024.9860 235.3606 0011286 029.7368 330.3779 14.39134850027732
+FUSE 1
+1 25791U 99035A   00001.98122961 +.00000601 +00000-0 +13433-3 0 00657
+2 25791 024.9860 241.7105 0011303 018.8712 341.2214 14.39134376027580
+FUSE 1
+1 25791U 99035A   00001.01037721  .00000666  00000-0  15478-3 0   506
+2 25791  24.9859 247.6366 0011281   8.7106 351.3596 14.39134101 27448
+FUSE 1
+1 25791U 99035A   99363.09781835  .00000899  00000-0  22901-3 0   490
+2 25791  24.9851 265.4129 0011197 338.4602  21.5436 14.39132626 27028
+FUSE 1
+1 25791U 99035A   99362.12696497 +.00000961 +00000-0 +24848-3 0 00922
+2 25791 024.9849 271.3386 0011184 327.9746 032.0084 14.39131724026881
+FUSE 1
+1 25791U 99035A   99361.15611130 +.00001034 +00000-0 +27194-3 0 00799
+2 25791 024.9846 277.2653 0011182 317.4471 042.5171 14.39130801026740
+FUSE 1
+1 25791U 99035A   99360.11591130 +.00001087 +00000-0 +28861-3 0 00623
+2 25791 024.9844 283.6152 0011205 306.4053 053.5421 14.39129438026590
+FUSE 1
+1 25791U 99035A   99359.14505772  .00001123  00000-0  30012-3 0   487
+2 25791  24.9844 289.5405 0011210 296.0081  63.9276 14.39127971 26455
+FUSE 1
+1 25791U 99035A   99357.20334989 +.00001185 +00000-0 +31974-3 0 00927
+2 25791 024.9845 301.3934 0011276 275.1736 084.7487 14.39124778026179
+FUSE 1
+1 25791U 99035A   99355.19229507 +.00001143 +00000-0 +30633-3 0 00589
+2 25791 024.9845 313.6688 0011427 254.6519 105.2727 14.39120370025887
+FUSE 1
+1 25791U 99035A   99354.91490853  .00001110  00000-0  29599-3 0   473
+2 25791  24.9845 315.3629 0011470 251.8385 108.0875 14.39119513 25847
+FUSE 1
+1 25791U 99035A   99354.15209340 +.00001101 +00000-0 +29307-3 0 01038
+2 25791 024.9845 320.0181 0011509 244.1536 115.7785 14.39117975025732
+FUSE 1
+1 25791U 99035A   99353.18123792 +.00001083 +00000-0 +28726-3 0 00881
+2 25791 024.9845 325.9428 0011452 234.1361 125.8092 14.39115978025590
+FUSE 1
+1 25791U 99035A   99352.21038154 +.00001042 +00000-0 +27447-3 0 00762
+2 25791 024.9843 331.8688 0011469 224.5539 135.4048 14.39113821025458
+FUSE 1
+1 25791U 99035A   99351.17017792 +.00000973 +00000-0 +25237-3 0 00577
+2 25791 024.9847 338.2189 0011485 214.2213 145.7558 14.39111421025300
+FUSE 1
+1 25791U 99035A   99350.33801333  .00000951  00000-0  24529-3 0   463
+2 25791  24.9846 343.2967 0011487 205.5729 154.4211 14.39109889 25180
+FUSE 1
+1 25791U 99035A   99350.19931958 +.00000933 +00000-0 +23956-3 0 00962
+2 25791 024.9848 344.1445 0011512 204.4239 155.5731 14.39109519025163
+FUSE 1
+1 25791U 99035A   99348.39629426 +.00000823 +00000-0 +20475-3 0 00865
+2 25791 024.9849 355.1452 0011441 185.7566 174.2811 14.39105974024908
+FUSE 1
+1 25791U 99035A   99348.18825288 +.00000798 +00000-0 +19683-3 0 00787
+2 25791 024.9851 356.4159 0011443 183.9954 176.0469 14.39105492024872
+FUSE 1
+1 25791U 99035A   99347.21739099 +.00000760 +00000-0 +18478-3 0 00593
+2 25791 024.9852 002.3410 0011413 174.2811 185.7832 14.39103915024736
+FUSE 1
+1 25791U 99035A   99346.24652782  .00000754  00000-0  18291-3 0   459
+2 25791  24.9852   8.2668 0011377 164.2548 195.8318 14.39102692 24597
+FUSE 1
+1 25791U 99035A   99344.23544964 +.00000756 +00000-0 +18345-3 0 00821
+2 25791 024.9851 020.5393 0011315 143.9081 216.2195 14.39100353024308
+FUSE 1
+1 25791U 99035A   99343.19523523 +.00000758 +00000-0 +18405-3 0 00642
+2 25791 024.9849 026.8884 0011251 133.1541 226.9914 14.39099103024150
+FUSE 1
+1 25791U 99035A   99342.15501899 +.00000788 +00000-0 +19383-3 0 00479
+2 25791 024.9847 033.2384 0011205 122.0799 238.0799 14.39098132024006
+FUSE 1
+1 25791U 99035A   99341.53088842  .00000788  00000-0  19382-3 0   444
+2 25791  24.9847  37.0461 0011204 115.5981 244.5688 14.39097368 23911
+FUSE 1
+1 25791U 99035A   99341.18414898 +.00000797 +00000-0 +19666-3 0 00927
+2 25791 024.9845 039.1646 0011110 111.9666 248.2014 14.39096976023865
+FUSE 1
+1 25791U 99035A   99340.21327751 +.00000821 +00000-0 +20422-3 0 00796
+2 25791 024.9844 045.0894 0011092 101.8687 258.3063 14.39095956023723
+FUSE 1
+1 25791U 99035A   99339.24240445 +.00000860 +00000-0 +21656-3 0 00626
+2 25791 024.9842 051.0146 0011088 091.5490 268.6286 14.39094994023586
+FUSE 1
+1 25791U 99035A   99337.57804728 +.00000910 +00000-0 +23264-3 0 00454
+2 25791 024.9838 061.1710 0011103 073.9223 286.2502 14.39093024023340
+FUSE 1
+1 25791U 99035A   99337.50869901  .00000916  00000-0  23465-3 0   438
+2 25791  24.9838  61.5940 0011123  73.3216 286.8513 14.39092988 23332
+FUSE 1
+1 25791U 99035A   99336.53782164 +.00000978 +00000-0 +25413-3 0 00775
+2 25791 024.9835 067.5184 0011185 063.0696 297.0953 14.39091962023198
+FUSE 1
+1 25791U 99035A   99335.91368480 +.00001057 +00000-0 +27938-3 0 00668
+2 25791 024.9832 071.3272 0011211 056.4491 303.7082 14.39091557023104
+FUSE 1
+1 25791U 99035A   99334.66541084 +.00001103 +00000-0 +29413-3 0 00563
+2 25791 024.9829 078.9441 0011175 043.3897 316.7490 14.39089668022921
+FUSE 1
+1 25791U 99035A   99333.55583168  .00001182  00000-0  31912-3 0   428
+2 25791  24.9828  85.7150 0011228  31.8546 328.2638 14.39088163 22768
+FUSE 1
+1 25791U 99035A   99332.72364624 +.00001252 +00000-0 +34147-3 0 00926
+2 25791 024.9822 090.7928 0011318 023.1121 336.9895 14.39086934022646
+FUSE 1
+1 25791U 99035A   99330.71252915 +.00001370 +00000-0 +37884-3 0 00621
+2 25791 024.9815 103.0720 0011456 002.2762 357.7803 14.39083149022351
+FUSE 1
+1 25791U 99035A   99330.01903979 +.00001341 +00000-0 +36977-3 0 00515
+2 25791 024.9813 107.3056 0011522 355.0936 004.9469 14.39081189022254
+FUSE 1
+1 25791U 99035A   99329.53359692  .00001309  00000-0  35954-3 0   414
+2 25791  24.9818 110.2720 0011533 349.7266  10.3016 14.39079811 22188
+FUSE 1
+1 25791U 99035A   99328.00791539 +.00001217 +00000-0 +33021-3 0 00742
+2 25791 024.9820 119.5846 0011565 334.1745 025.8190 14.39075614021963
+FUSE 1
+1 25791U 99035A   99326.82897714 +.00001154 +00000-0 +31024-3 0 00585
+2 25791 024.9826 126.7842 0011751 321.2678 038.6990 14.39072676021790
+FUSE 1
+1 25791U 99035A   99325.51133788  .00001054  00000-0  27855-3 0   401
+2 25791  24.9847 134.8467 0011912 304.6034  55.3277 14.39069633 21609
+FUSE 1
+1 25791U 99035A   99322.80670431 +.00001256 +00000-0 +34276-3 0 00411
+2 25791 024.9836 151.3552 0012041 275.3401 084.5737 14.39066077021213
+FUSE 1
+1 25791U 99035A   99321.62776187 +.00001252 +00000-0 +34139-3 0 00408
+2 25791 024.9837 158.5475 0012055 262.9443 096.9715 14.39063501021043
+FUSE 1
+1 25791U 99035A   99320.79556237  .00001252  00000-0  34144-3 0   391
+2 25791  24.9836 163.6246 0012002 254.4359 105.4616 14.39061664 20929
+FUSE 1
+1 25791U 99035A   99318.99247388 +.00001603 +00000-0 +45300-3 0 00424
+2 25791 024.9830 174.6225 0011785 234.5772 125.3639 14.39059706020668
+FUSE 1
+1 25791U 99035A   99318.85377493  .00001636  00000-0  46351-3 0   388
+2 25791  24.9833 175.4706 0011739 232.8226 127.1216 14.39059600 20640
+FUSE 1
+1 25791U 99035A   99316.98133499  .00000949  00000-0  24506-3 0   379
+2 25791  24.9842 186.9003 0011834 213.5350 146.4412 14.39050830 20375
+FUSE 1
+1 25791U 99035A   99316.77328072  .00000093  00000-0 -27298-4 0   361
+2 25791  24.9851 188.1733 0012103 214.4787 145.4516 14.39045117 20346
+FUSE 1
+1 25791U 99035A   99316.01043130  .00001289  00000-0  35317-3 0   353
+2 25791  24.9823 192.8263 0011574 206.8856 153.1047 14.39050776 20238
+FUSE 1
+1 25791U 99035A   99314.06863125 +.00000807 +00000-0 +19978-3 0 00675
+2 25791 024.9828 204.6728 0011620 187.0114 173.0230 14.39045484019952
+FUSE 1
+1 25791U 99035A   99313.09772812 +.00000806 +00000-0 +19960-3 0 00668
+2 25791 024.9828 210.5953 0011621 176.8561 183.2018 14.39044261019815
+FUSE 1
+1 25791U 99035A   99312.12682443 +.00000807 +00000-0 +20004-3 0 00607
+2 25791 024.9830 216.5187 0011630 166.7136 193.3684 14.39043064019674
+FUSE 1
+1 25791U 99035A   99311.08656905 +.00000824 +00000-0 +20537-3 0 00492
+2 25791 024.9827 222.8664 0011566 156.1383 203.9662 14.39041822019523
+FUSE 1
+1 25791U 99035A   99310.11566272  .00000873  00000-0  22108-3 0   346
+2 25791  24.9823 228.7931 0011439 146.3502 213.7733 14.39040863 19380
+FUSE 1
+1 25791U 99035A   99309.14475480 +.00000912 +00000-0 +23325-3 0 00624
+2 25791 024.9823 234.7169 0011382 136.4568 223.6834 14.39039788019240
+FUSE 1
+1 25791U 99035A   99308.17384628 +.00000917 +00000-0 +23509-3 0 00594
+2 25791 024.9823 240.6396 0011384 126.3110 233.8450 14.39038400019103
+FUSE 1
+1 25791U 99035A   99307.20293604 +.00000929 +00000-0 +23900-3 0 00509
+2 25791 024.9824 246.5634 0011348 116.2606 243.9068 14.39037064018967
+FUSE 1
+1 25791U 99035A   99306.16267374 +.00000901 +00000-0 +22981-3 0 00427
+2 25791 024.9827 252.9105 0011294 105.3472 254.8283 14.39035306018815
+FUSE 1
+1 25791U 99035A   99305.26111145  .00000880  00000-0  22322-3 0   336
+2 25791  24.9828 258.4108 0011278  95.9573 264.2230 14.39033878 18682
+FUSE 1
+1 25791U 99035A   99302.14030694 +.00000777 +00000-0 +19052-3 0 00420
+2 25791 024.9830 277.4546 0011155 063.6998 296.4659 14.39029030018237
+FUSE 1
+1 25791U 99035A   99301.23873747  .00000793  00000-0  19553-3 0   326
+2 25791  24.9829 282.9548 0011144  54.1449 306.0093 14.39027991 18102
+FUSE 1
+1 25791U 99035A   99300.19846426 +.00000688 +00000-0 +16220-3 0 00785
+2 25791 024.9829 289.3031 0011097 042.8698 317.2674 14.39026119017959
+FUSE 1
+1 25791U 99035A   99299.15818884 +.00000714 +00000-0 +17059-3 0 00607
+2 25791 024.9835 295.6560 0010854 031.9536 328.1631 14.39025229017802
+FUSE 1
+1 25791U 99035A   99298.11791199 +.00000847 +00000-0 +21277-3 0 00447
+2 25791 024.9832 302.0031 0010894 020.7345 339.3596 14.39024199017655
+FUSE 1
+1 25791U 99035A   99297.21633808  .00000871  00000-0  22050-3 0   312
+2 25791  24.9833 307.5043 0010887  10.9937 349.0810 14.39022966 17522
+FUSE 1
+1 25791U 99035A   99295.27448293 +.00000936 +00000-0 +24130-3 0 00647
+2 25791 024.9834 319.3563 0010756 350.0772 009.9521 14.39020654017243
+FUSE 1
+1 25791U 99035A   99294.16484983 +.00001000 +00000-0 +26157-3 0 00453
+2 25791 024.9829 326.1256 0010800 338.5647 021.4408 14.39019299017082
+FUSE 1
+1 25791U 99035A   99293.19392082  .00001020  00000-0  26791-3 0   303
+2 25791  24.9828 332.0506 0010781 328.4327  31.5533 14.39017852 16944
+FUSE 1
+1 25791U 99035A   99292.77780736 +.00001020 +00000-0 +26806-3 0 00883
+2 25791 024.9827 334.5890 0010781 324.0963 035.8778 14.39017148016883
+FUSE 1
+1 25791U 99035A   99292.15363794 +.00001076 +00000-0 +28568-3 0 00761
+2 25791 024.9826 338.3998 0010857 316.4441 043.5205 14.39016547016796
+FUSE 1
+1 25791U 99035A   99291.18270908 +.00001062 +00000-0 +28130-3 0 00587
+2 25791 024.9822 344.3280 0011053 306.1106 053.8378 14.39014543016650
+FUSE 1
+1 25791U 99035A   99289.51825652 +.00001008 +00000-0 +26405-3 0 00430
+2 25791 024.9823 354.4815 0011076 288.6058 071.3246 14.39011177016415
+FUSE 1
+1 25791U 99035A   99288.47797288  .00000951  00000-0  24613-3 0   296
+2 25791  24.9826   0.8275 0011076 277.4591  82.4657 14.39009052 16269
+FUSE 1
+1 25791U 99035A   99286.88287063 +.00000861 +00000-0 +21717-3 0 00634
+2 25791 024.9828 010.5602 0011200 260.5300 099.3940 14.39005892016038
+FUSE 1
+1 25791U 99035A   99285.49582403 +.00000795 +00000-0 +19630-3 0 00486
+2 25791 024.9830 019.0217 0011238 246.2842 113.6491 14.39003480015839
+FUSE 1
+1 25791U 99035A   99284.66359563 +.00000761 +00000-0 +18552-3 0 00398
+2 25791 024.9832 024.0989 0011221 237.5271 122.4154 14.39002187015718
+FUSE 1
+1 25791U 99035A   99283.97007305  .00000754  00000-0  18327-3 0   285
+2 25791  24.9830  28.3293 0011217 230.2490 129.7115 14.39001280 15618
+FUSE 1
+1 25791U 99035A   99280.71050717 +.00000608 +00000-0 +13659-3 0 00426
+2 25791 024.9832 048.2231 0011233 196.9935 163.0195 14.38996802015142
+FUSE 1
+1 25791U 99035A   99280.01698155 +.00000604 +00000-0 +13553-3 0 00286
+2 25791 024.9831 052.4539 0011244 189.6758 170.3528 14.38996155015044
+FUSE 1
+1 25791U 99035A   99279.73957122  .00000606  00000-0  13609-3 0   278
+2 25791  24.9833  54.1486 0011318 187.2744 172.7600 14.38995976 15000
+FUSE 1
+1 25791U 99035A   99278.76863587 +.00000623 +00000-0 +14143-3 0 00780
+2 25791 024.9828 060.0769 0011243 177.0793 182.9783 14.38995168014863
+FUSE 1
+1 25791U 99035A   99278.07510995 +.00000624 +00000-0 +14185-3 0 00637
+2 25791 024.9826 064.3088 0011169 169.6029 190.4711 14.38994496014765
+FUSE 1
+1 25791U 99035A   99276.75740903 +.00000633 +00000-0 +14460-3 0 00461
+2 25791 024.9823 072.3487 0011129 155.6892 204.4141 14.38993316014575
+FUSE 1
+1 25791U 99035A   99276.47999801 +.00000694 +00000-0 +16404-3 0 00358
+2 25791 024.9818 074.0450 0011207 153.0078 207.1024 14.38993598014531
+FUSE 1
+1 25791U 99035A   99275.57841241  .00000671  00000-0  15672-3 0   263
+2 25791  24.9819  79.5451 0011185 143.2379 216.8904 14.38992466 14406
+FUSE 1
+1 25791U 99035A   99272.59623714 +.00000619 +00000-0 +14032-3 0 00288
+2 25791 024.9821 097.7456 0010986 112.1476 248.0207 14.38989140013976
+FUSE 1
+1 25791U 99035A   99271.83335507 +.00000694 +00000-0 +16423-3 0 00261
+2 25791 024.9829 102.4180 0011115 105.0840 255.0961 14.38989289013860
+FUSE 1
+1 25791U 99035A   99270.93176357  .00000625  00000-0  14212-3 0   254
+2 25791  24.9833 107.9206 0010968  96.2277 263.9501 14.38987831 13739
+FUSE 1
+1 25791U 99035A   99269.82210754 +.00000624 +00000-0 +14194-3 0 00270
+2 25791 024.9836 114.6962 0010511 085.3632 274.8041 14.38987014013579
+FUSE 1
+1 25791U 99035A   99268.64310209 +.00000665 +00000-0 +15491-3 0 00260
+2 25791 024.9835 121.8881 0010538 073.0440 287.1349 14.38986259013408
+FUSE 1
+1 25791U 99035A   99267.88021393 +.00000624 +00000-0 +14182-3 0 00258
+2 25791 024.9836 126.5415 0010795 065.0791 295.0869 14.38985118013294
+FUSE 1
+1 25791U 99035A   99266.90926343  .00000583  00000-0  12888-3 0   243
+2 25791  24.9837 132.4642 0010750  54.8710 305.2813 14.38983972 13155
+FUSE 1
+1 25791U 99035A   99266.00766538 +.00000570 +00000-0 +12480-3 0 00561
+2 25791 024.9838 137.9635 0010739 045.4550 314.6838 14.38983153013021
+FUSE 1
+1 25791U 99035A   99265.03671293 +.00000579 +00000-0 +12751-3 0 00498
+2 25791 024.9838 143.8883 0010767 035.0894 325.0328 14.38982440012880
+FUSE 1
+1 25791U 99035A   99264.06575950 +.00000540 +00000-0 +11503-3 0 00439
+2 25791 024.9841 149.8130 0010718 024.5892 335.5124 14.38981393012743
+FUSE 1
+1 25791U 99035A   99263.09480512 +.00000542 +00000-0 +11581-3 0 00315
+2 25791 024.9841 155.7371 0010726 014.3641 345.7173 14.38980695012600
+FUSE 1
+1 25791U 99035A   99262.88674378  .00000509  00000-0  10546-3 0   230
+2 25791  24.9842 157.0081 0010731  11.7394 348.3365 14.38980270 12573
+FUSE 1
+1 25791U 99035A   99260.11258537 +.00000453 +00000-0 +87384-4 0 00502
+2 25791 024.9841 173.9362 0010893 342.6831 017.3307 14.38977970012170
+FUSE 1
+1 25791U 99035A   99259.07227521 +.00000447 +00000-0 +85573-4 0 00347
+2 25791 024.9841 180.2856 0010956 331.9610 028.0309 14.38977330012020
+FUSE 1
+1 25791U 99035A   99258.17067241  .00000427  00000-0  79225-4 0   220
+2 25791  24.9841 185.7874 0011007 322.1366  37.8369 14.38976734 11893
+FUSE 1
+1 25791U 99035A   99256.15940484 +.00000459 +00000-0 +89377-4 0 00465
+2 25791 024.9843 198.0620 0011104 300.6420 059.2997 14.38975981011608
+FUSE 1
+1 25791U 99035A   99255.18844792 +.00000499 +00000-0 +10205-3 0 00357
+2 25791 024.9841 203.9868 0011170 290.1305 069.8003 14.38975748011464
+FUSE 1
+1 25791U 99035A   99254.21749084  .00000578  00000-0  12715-3 0   219
+2 25791  24.9838 209.9117 0011276 279.5024  80.4212 14.38975778 11328
+FUSE 1
+1 25791U 99035A   99252.13687317 +.00000703 +00000-0 +16695-3 0 00422
+2 25791 024.9838 222.6085 0011253 257.6029 102.3226 14.38974995011027
+FUSE 1
+1 25791U 99035A   99251.16591877 +.00000740 +00000-0 +17891-3 0 00306
+2 25791 024.9838 228.5342 0011361 247.5654 112.3649 14.38974264010882
+FUSE 1
+1 25791U 99035A   99250.33367230  .00000790  00000-0  19473-3 0   200
+2 25791  24.9836 233.6120 0011410 238.7623 121.1773 14.38973707 10768
+FUSE 1
+1 25791U 99035A   99250.12561055 +.00000806 +00000-0 +20003-3 0 00780
+2 25791 024.9837 234.8822 0011380 236.5967 123.3441 14.38973616010736
+FUSE 1
+1 25791U 99035A   99249.22401093 +.00000850 +00000-0 +21378-3 0 00688
+2 25791 024.9836 240.3848 0011437 227.1228 132.8321 14.38972820010608
+FUSE 1
+1 25791U 99035A   99248.18370392 +.00000868 +00000-0 +21968-3 0 00504
+2 25791 024.9836 246.7339 0011442 216.3322 143.6406 14.38971553010453
+FUSE 1
+1 25791U 99035A   99247.14339628 +.00000893 +00000-0 +22765-3 0 00331
+2 25791 024.9835 253.0817 0011458 205.6866 154.3072 14.38970276010308
+FUSE 1
+1 25791U 99035A   99246.24179636  .00000875  00000-0  22203-3 0   193
+2 25791  24.9836 258.5836 0011512 196.4275 163.5862 14.38968832 10171
+FUSE 1
+1 25791U 99035A   99244.16117925 +.00000770 +00000-0 +18839-3 0 00526
+2 25791 024.9840 271.2810 0011478 175.5983 184.4632 14.38965078009876
+FUSE 1
+1 25791U 99035A   99243.25957613 +.00000746 +00000-0 +18082-3 0 00412
+2 25791 024.9841 276.7823 0011475 166.5838 193.4978 14.38963795009740
+FUSE 1
+1 25791U 99035A   99242.14991061 +.00000697 +00000-0 +16531-3 0 00214
+2 25791 024.9841 283.5545 0011425 155.0075 205.0993 14.38962068009589
+FUSE 1
+1 25791U 99035A   99241.45636787  .00000690  00000-0  16312-3 0   184
+2 25791  24.9841 287.7844 0011423 147.6480 212.4734 14.38961291  9483
+FUSE 1
+1 25791U 99035A   99238.54348289 +.00000555 +00000-0 +12005-3 0 00339
+2 25791 024.9851 305.5600 0011277 118.2109 241.9541 14.38957529009068
+FUSE 1
+1 25791U 99035A   99237.43380917  .00000519  00000-0  10841-3 0   178
+2 25791  24.9853 312.3322 0011217 106.6278 253.5464 14.38956402  8903
+FUSE 1
+1 25791U 99035A   99236.46284262 +.00000461 +00000-0 +90008-4 0 00705
+2 25791 024.9853 318.2560 0011086 096.8361 263.3410 14.38955295008762
+FUSE 1
+1 25791U 99035A   99236.25477872 +.00000452 +00000-0 +87040-4 0 00615
+2 25791 024.9853 319.5272 0011052 094.6665 265.5117 14.38955073008731
+FUSE 1
+1 25791U 99035A   99235.28381051 +.00000458 +00000-0 +89138-4 0 00470
+2 25791 024.9852 325.4528 0011033 084.2171 275.9597 14.38954552008598
+FUSE 1
+1 25791U 99035A   99233.61929130 +.00000451 +00000-0 +86895-4 0 00303
+2 25791 024.9853 335.6110 0010986 066.4129 293.7536 14.38953524008353
+FUSE 1
+1 25791U 99035A   99232.50961001  .00000368  00000-0  60512-4 0   162
+2 25791  24.9859 342.3821 0010848  54.6767 305.4755 14.38952340  8198
+FUSE 1
+1 25791U 99035A   99230.70637369 +.00000429 +00000-0 +79925-4 0 00424
+2 25791 024.9854 353.3830 0010964 035.3348 324.7888 14.38952031007934
+FUSE 1
+1 25791U 99035A   99229.59668927 +.00000395 +00000-0 +68969-4 0 00285
+2 25791 024.9857 000.1562 0010882 023.2043 336.8948 14.38951224007779
+FUSE 1
+1 25791U 99035A   99228.48700287 +.00000471 +00000-0 +93172-4 0 00221
+2 25791 024.9853 006.9252 0010851 011.6095 348.4667 14.38951260007619
+FUSE 1
+1 25791U 99035A   99227.72409421  .00000487  00000-0  98308-4 0   158
+2 25791  24.9851  11.5809 0010930   3.6815 356.3773 14.38950858  7502
+FUSE 1
+1 25791U 99035A   99223.56276789  .00000619  00000-0  14028-3 0   147
+2 25791  24.9842  36.9742 0011040 318.0438  41.9206 14.38948712  6903
+FUSE 1
+1 25791U 99035A   99218.63853449  .00000720  00000-0  17250-3 0   135
+2 25791  24.9828  67.0232 0011431 267.3032  92.6167 14.38944759  6193
+FUSE 1
+1 25791U 99035A   99216.97400544 +.00000683 +00000-0 +16063-3 0 00166
+2 25791 024.9829 077.1763 0011588 249.8240 110.1026 14.38942807005959
+FUSE 1
+1 25791U 99035A   99215.72561041  .00001104  00000-0  29513-3 0   127
+2 25791  24.9823  84.7905 0011295 237.0915 122.8597 14.38943232  5774
+FUSE 1
+1 25791U 99035A   99213.99172686 +.00000755 +00000-0 +18386-3 0 00281
+2 25791 024.9829 095.3690 0011291 219.0401 140.9295 14.38939332005520
+FUSE 1
+1 25791U 99035A   99213.02075147 +.00000641 +00000-0 +14744-3 0 00175
+2 25791 024.9830 101.2939 0011410 209.3286 150.6585 14.38937829005384
+FUSE 1
+1 25791U 99035A   99212.88204088  .00000581  00000-0  12826-3 0   112
+2 25791  24.9832 102.1415 0011463 208.2710 151.7177 14.38937383  5365
+FUSE 1
+1 25791U 99035A   99211.07879897 +.00000483 +00000-0 +96970-4 0 00493
+2 25791 024.9832 113.1440 0011683 189.9414 170.0864 14.38935491005102
+FUSE 1
+1 25791U 99035A   99210.10782220 +.00000457 +00000-0 +88695-4 0 00361
+2 25791 024.9830 119.0680 0011645 180.0206 180.0306 14.38934715004963
+FUSE 1
+1 25791U 99035A   99209.13684459 +.00000476 +00000-0 +94628-4 0 00215
+2 25791 024.9829 124.9914 0011669 170.0019 190.0732 14.38934254004820
+FUSE 1
+1 25791U 99035A   99208.85942248  .00000483  00000-0  96822-4 0   100
+2 25791  24.9830 126.6849 0011617 167.3014 192.7802 14.38934135  4785
+FUSE 1
+1 25791U 99035A   99208.16586648 +.00000509 +00000-0 +10534-3 0 00689
+2 25791 024.9829 130.9163 0011612 160.0034 200.0933 14.38933809004681
+FUSE 1
+1 25791U 99035A   99207.12553224 +.00000477 +00000-0 +95090-4 0 00537
+2 25791 024.9830 137.2648 0011506 149.5759 210.5420 14.38933010004534
+FUSE 1
+1 25791U 99035A   99206.15455295 +.00000436 +00000-0 +81952-4 0 00388
+2 25791 024.9831 143.1889 0011456 139.5200 220.6160 14.38932240004393
+FUSE 1
+1 25791U 99035A   99205.11421632 +.00000433 +00000-0 +81097-4 0 00221
+2 25791 024.9835 149.5359 0011411 129.0298 231.1227 14.38931694004248
+FUSE 1
+1 25791U 99035A   99204.21259024  .00000427  00000-0  79119-4 0    95
+2 25791  24.9835 155.0370 0011324 120.0292 240.1341 14.38931194  4119
+FUSE 1
+1 25791U 99035A   99203.17225182 +.00000414 +00000-0 +74992-4 0 00525
+2 25791 024.9835 161.3843 0011233 109.2556 250.9169 14.38930540003968
+FUSE 1
+1 25791U 99035A   99202.13191170 +.00000423 +00000-0 +77980-4 0 00383
+2 25791 024.9837 167.7323 0011168 098.4908 261.6865 14.38930164003818
+FUSE 1
+1 25791U 99035A   99201.16092631 +.00000440 +00000-0 +83410-4 0 00235
+2 25791 024.9837 173.6562 0011126 088.3941 271.7841 14.38929874003674
+FUSE 1
+1 25791U 99035A   99200.18994021  .00000454  00000-0  87696-4 0    88
+2 25791  24.9838 179.5806 0011119  78.2644 281.9107 14.38929532  3535
+FUSE 1
+1 25791U 99035A   99200.12059101 +.00000432 +00000-0 +80931-4 0 00725
+2 25791 024.9842 180.0407 0011095 075.8036 284.3701 14.38929430003528
+FUSE 1
+1 25791U 99035A   99199.21895964 +.00000465 +00000-0 +91252-4 0 00631
+2 25791 024.9840 185.5408 0011075 066.4980 293.6690 14.38929231003393
+FUSE 1
+1 25791U 99035A   99198.17861506 +.00000472 +00000-0 +93642-4 0 00475
+2 25791 024.9844 191.8880 0011017 055.5344 304.6202 14.38928745003245
+FUSE 1
+1 25791U 99035A   99197.20762573 +.00000483 +00000-0 +97242-4 0 00328
+2 25791 024.9845 197.8116 0010965 045.0350 315.1043 14.38928247003108
+FUSE 1
+1 25791U 99035A   99196.16727896 +.00000496 +00000-0 +10136-3 0 00130
+2 25791 024.9848 204.1584 0010927 033.8431 326.2770 14.38927757002952
+FUSE 1
+1 25791U 99035A   99195.40435724  .00000525  00000-0  11052-3 0    76
+2 25791  24.9845 208.8116 0010908  25.8212 334.2838 14.38927498  2842
+FUSE 1
+1 25791U 99035A   99195.26564445 +.00000515 +00000-0 +10744-3 0 00732
+2 25791 024.9847 209.6583 0010905 024.2058 335.8962 14.38927325002821
+FUSE 1
+1 25791U 99035A   99194.22529636 +.00000515 +00000-0 +10742-3 0 00547
+2 25791 024.9849 216.0045 0010895 012.9914 347.0873 14.38926634002672
+FUSE 1
+1 25791U 99035A   99193.18494715 +.00000545 +00000-0 +11704-3 0 00384
+2 25791 024.9850 222.3506 0010896 001.9128 358.1416 14.38926205002526
+FUSE 1
+1 25791U 99035A   99192.14459780 +.00000580 +00000-0 +12797-3 0 00193
+2 25791 024.9850 228.6966 0010908 350.8363 009.1951 14.38925741002370
+FUSE 1
+1 25791U 99035A   99191.24296126  .00000600  00000-0  13459-3 0    61
+2 25791  24.9852 234.1962 0010933 341.3306  18.6794 14.38925220  2248
+FUSE 1
+1 25791U 99035A   99189.57840234 +.00000688 +00000-0 +16244-3 0 00431
+2 25791 024.9847 244.3496 0011003 324.3520 035.6271 14.38924327002005
+FUSE 1
+1 25791U 99035A   99188.53805210 +.00000745 +00000-0 +18074-3 0 00304
+2 25791 024.9847 250.6956 0011082 313.4689 046.4896 14.38923665001857
+FUSE 1
+1 25791U 99035A   99187.56705911 +.00000776 +00000-0 +19053-3 0 00181
+2 25791 024.9847 256.6180 0011114 303.2228 056.7215 14.38922773001717
+FUSE 1
+1 25791U 99035A   99187.22027565  .00000809  00000-0  20103-3 0    57
+2 25791  24.9849 258.7334 0011145 299.6070  60.3328 14.38922625  1666
+FUSE 1
+1 25791U 99035A   99186.59606618 +.00000806 +00000-0 +20001-3 0 00658
+2 25791 024.9848 262.5402 0011144 293.0885 066.8449 14.38921812001577
+FUSE 1
+1 25791U 99035A   99185.55571694 +.00000781 +00000-0 +19209-3 0 00489
+2 25791 024.9850 268.8854 0011179 282.1384 077.7873 14.38920354001427
+FUSE 1
+1 25791U 99035A   99184.58472411 +.00000771 +00000-0 +18889-3 0 00356
+2 25791 024.9851 274.8074 0011210 272.0258 087.8967 14.38919111001282
+FUSE 1
+1 25791U 99035A   99183.61373101 +.00000806 +00000-0 +20014-3 0 00199
+2 25791 024.9851 280.7294 0011202 261.9284 097.9951 14.38918148001148
+FUSE
+1 25791U 99035A   99182.64273781  .00000831  00000-0  20827-3 0    48
+2 25791  24.9852 286.6514 0011228 251.8187 108.1089 14.38917064  1005
+FUSE
+1 25791U 99035A   99181.53303177 +.00000885 +00000-0 +22535-3 0 00326
+2 25791 024.9851 293.4193 0011207 240.2024 119.7372 14.38915842000848
+FUSE
+1 25791U 99035A   99180.42332586 +.00000769 +00000-0 +18844-3 0 00250
+2 25791 024.9851 300.1870 0011210 228.6224 131.3324 14.38913850000688
+FUSE
+1 25791U 99035A   99179.72975929 +.00000701 +00000-0 +16654-3 0 00225
+2 25791 024.9851 304.4168 0011211 221.3620 138.6046 14.38912818000589
+FUSE
+1 25791U 99035A   99178.68940879 +.00000540 +00000-0 +11515-3 0 00070
+2 25791 024.9851 310.7614 0011204 210.4757 149.5099 14.38911405000431
+FUSE
+1 25791U 99035A   99178.55069535  .00000518  00000-0  10814-3 0    39
+2 25791  24.9851 311.6073 0011204 209.0295 150.9590 14.38911233   410
+FUSE
+1 25791U 99035A   99177.92648488 +.00000082 +00000-0 -31136-4 0 00408
+2 25791 024.9853 315.4140 0011227 202.4549 157.5464 14.38909900000324
+FUSE
+1 25791U 99035A   99176.95549150 -.00001333 +00000-0 -48314-3 0 00075
+2 25791 024.9860 321.3361 0010962 190.9807 169.0438 14.38907601000185
diff --git a/src/cal/get_tle/tmp/add_tle.pl b/src/cal/get_tle/tmp/add_tle.pl
new file mode 100755
index 0000000..4bdda9e
--- /dev/null
+++ b/src/cal/get_tle/tmp/add_tle.pl
@@ -0,0 +1,182 @@
+#!/usr/local/bin/perl
+use FileHandle;
+
+# ***************************************************
+# add_tle.pl
+# 
+# This Perl module will read in the latest five orbital elements
+# from the file five.tle (which was created by get_tle.pl) and
+# add any new orbital elements to the file FUSE.TLE.  The file
+# FUSE.TLE is in descending order (i.e. the most recent elements
+# are first).  In order to prepend the new TLE onto the old list
+# I found it was easiest to store everything in a temporary file
+# TEMP.TLE and rewrite FUSE.TLE.
+#
+# Author: Ed Murphy
+#
+# History:  Written  July 27, 1999
+#
+# ***************************************************
+
+# Define the file names.  old_maintle_filename is not actually opened,
+# but is used in a system call at the end of the program. 
+
+$input_filename = "five.tle";
+$maintle_filename = "FUSE.TLE";
+$old_maintle_filename = "FUSE.OLD";
+$temp_filename = "TEMP.TLE";
+
+# Open the files.
+open (TLE_INFILE, "<$input_filename") || die "Cannot open $input_filename";
+open (TLE_TEMPFILE, ">$temp_filename") || die "Cannot open $temp_filename";
+open (TLE_MAINFILE, "<$maintle_filename") || die "Cannot open $maintle_filename";
+
+# Read the first two lines from the maintle file to get the date of the
+# most recent set of TLEs.  Save these lines for later output.
+    $lineout1 = ;
+    $lineout2 = ;
+    $last_date = substr($lineout2,18,14);
+
+# get rid of the blank line at the beginning of five.tle file
+    $line = ;  
+
+# Cycle through the five.tle file and look for files more recent than
+# last_date.  
+    while ($line1 = ) {
+        $sat_name = substr($line1,0,4);
+        $line2 = ;
+        $line3 = ;
+        $tle_date = substr($line2,18,14);
+        $id2 = substr($line2, 2, 5);
+        $id3 = substr($line3, 2, 5);
+        # if the TLE is more recent, print it out to the TEMP file.
+        if (($tle_date > $last_date+0.05) && ($sat_name eq "FUSE") && ($id2 == 25791) && ($id3 == 25791)) {
+            &check_tle;
+            print TLE_TEMPFILE $line1;
+            print TLE_TEMPFILE $line2;
+            print TLE_TEMPFILE $line3;
+            # Send this output to screen to make sure TLEs look OK
+            if ($tle_flag != 0) {
+		print STDOUT "ERROR: Possible error in TLE:\n";
+            }
+            print STDOUT "The new TLEs are:\n";
+            print STDOUT $line1;
+            print STDOUT $line2;
+            print STDOUT $line3;
+	}
+
+    }
+
+# Now add the MAINTLE file to the end of the TEMPFILE
+    print TLE_TEMPFILE $lineout1;
+    print TLE_TEMPFILE $lineout2;
+    while ($line1 = ) {
+            print TLE_TEMPFILE $line1;
+    }
+ 
+    close (TLE_INFILE);
+    close (TLE_MAINFILE);
+    close (TLE_TEMPFILE);
+
+# Move the MAINFILE into the old_maintle filename
+# Move the TEMPFILE to be the MAINFILE
+# Remove the five.tle file.
+    system("mv $maintle_filename $old_maintle_filename");
+    system("mv $temp_filename $maintle_filename");
+    system("chmod ug+rw $maintle_filename");
+    system("chgrp sdp $maintle_filename");
+    system("rm -f $input_filename");
+
+### end of Perl script
+
+sub check_tle {
+
+    $tle_flag = 0;
+
+    &parse_lines;
+
+    &calculate_a0;
+
+    &calculate_orbs;
+
+    if (($mean_mot > 14.391) || ($mean_mot < 14.389)) {
+	$tle_flag = 1;
+        print STDOUT "Possible error in mean motion $mean_mot \n";
+    }
+    if (($incl > 24.990) || ($incl < 24.975)) {
+	$tle_flag = 1;
+        print STDOUT "Possible error in inclination $incl \n";
+    }
+    if (($eccen > 0.00120) || ($eccen < 0.00108)) {
+	$tle_flag = 1;
+        print STDOUT "Possible error in eccentricity $eccen \n";
+    }
+    if (($semiax > 7145.0) || ($semiax < 7143.0)) {
+	$tle_flag = 1;
+        print STDOUT "Possible error in semi-major axis $semia \n";
+    }
+    if (($apogee > 777.0) || ($apogee < 773.0)) {
+	$tle_flag = 1;
+        print STDOUT "Possible error in apogee $apogee \n";
+    }
+    if (($perigee > 760.0) || ($perigee < 756.0)) {
+	$tle_flag = 1;
+        print STDOUT "Possible error in perigee $perigee \n";
+    }
+
+}
+
+sub parse_lines {
+$year = substr($line2, 18, 2);
+$doy = substr($line2, 20, 3);
+$dayfrac = substr($line2, 23, 9);
+$epoch = $year.$doy.$dayfrac;
+$incl = substr($line3, 9, 8);
+$raan = substr($line3, 17,8);
+$eccen = substr($line3, 26, 7);
+$eccen = "0." . $eccen;
+$mean_mot = substr($line3, 52, 11);
+$mean_anom = substr($line3, 43, 8);
+$arg_perig = substr($line3, 34, 8);
+
+
+if ($year > 50) {
+    $year += 1900;
+} else {
+    $year += 2000;
+}
+
+$dayfrac = "0".$dayfrac;
+
+}
+
+sub calculate_a0 {
+
+$mu = 3.986005E5;
+$pi = 3.14159265358979;
+$radian = 0.0174532925200;
+
+$mm=2.0*$pi*$mean_mot/(24.0*60.0);
+$ke=0.74366916E-1;
+$k2=5.413080E-4;
+$a1=($ke/$mm)**(2.0/3.0);
+$inrad = $incl * $radian;
+
+$d1=3.0/2.0*$k2/($a1*$a1)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen)
+**(3.0/2.0));
+$a0=$a1*(1.0-$d1/3.0-$d1*$d1-134.0/81.0*$d1*$d1*$d1);
+$d0=3.0/2.0*$k2/($a0*$a0)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen)
+**(3.0/2.0));
+$semiax=$a0/(1-$d0)*6378.135;
+
+}
+
+sub calculate_orbs {
+
+$period = 60.0*24.0/($mean_mot/(1+$d0));
+$cax=$eccen*$semiax;
+$perigee=$semiax-$cax-6378.1;
+$apogee=$semiax+$cax-6378.1;
+
+}
+
diff --git a/src/cal/get_tle/tmp/check_tle.pl b/src/cal/get_tle/tmp/check_tle.pl
new file mode 100755
index 0000000..483692e
--- /dev/null
+++ b/src/cal/get_tle/tmp/check_tle.pl
@@ -0,0 +1,100 @@
+#!/usr/local/bin/perl
+use FileHandle;
+
+# ***************************************************
+# add_tle.pl
+# 
+# This Perl module will read in the latest five orbital elements
+# from the file five.tle (which was created by get_tle.pl) and
+# add any new orbital elements to the file FUSE.TLE.
+#
+# Author: Ed Murphy
+#
+# History:  Written  July 27, 1999
+#
+# ***************************************************
+
+# Define the file names.  old_maintle_filename is not actually opened,
+# but is used in a system call at the end of the program. 
+
+$maintle_filename = "/data1/fuse/calfuse/calfiles/FUSE.TLE";
+$outtle_filename = "check_tle.dat";
+
+# Open the files.
+open (TLE_MAINFILE, "<$maintle_filename") || die "Cannot open $maintle_filename";
+open (TLE_OUT, ">$outtle_filename") || die "Cannot open $outtle_filename";
+
+# Read the first two lines from the maintle file to get the date of the
+# most recent set of TLEs.  Save these lines for later output.
+while ($line1 = ) {
+    $line2 = ;
+    $line3 = ;
+
+    &parse_lines;
+
+    &calculate_a0;
+    &calculate_orbs;
+
+    printf TLE_OUT "%7.3f %6.2f %6.2f %7.2f %6.2f %7.4f %6.2f %6.2f %8.6f\n",$day, $apogee, $perigee, $semiax, $raan, $incl, $mean_anom, $arg_perig, $eccen;
+
+}
+
+    close (TLE_MAINFILE);
+    close (TLE_OUT);
+
+### end of Perl script
+
+
+sub parse_lines {
+$year = substr($line2, 18, 2);
+$doy = substr($line2, 20, 3);
+$dayfrac = substr($line2, 23, 9);
+$day=$doy.$dayfrac;
+$epoch = $year.$doy.$dayfrac;
+$incl = substr($line3, 9, 8);
+$raan = substr($line3, 17,8);
+$eccen = substr($line3, 26, 7);
+$eccen = "0." . $eccen;
+$mean_mot = substr($line3, 52, 11);
+$mean_anom = substr($line3, 43, 8);
+$arg_perig = substr($line3, 34, 8);
+
+
+if ($year > 50) {
+    $year += 1900;
+} else {
+    $year += 2000;
+}
+
+$dayfrac = "0".$dayfrac;
+
+}
+
+sub calculate_a0 {
+
+$mu = 3.986005E5;
+$pi = 3.14159265358979;
+$radian = 0.0174532925200;
+
+$mm=2.0*$pi*$mean_mot/(24.0*60.0);
+$ke=0.74366916E-1;
+$k2=5.413080E-4;
+$a1=($ke/$mm)**(2.0/3.0);
+$inrad = $incl * $radian;
+
+$d1=3.0/2.0*$k2/($a1*$a1)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen)**(3.0/2.0));
+$a0=$a1*(1.0-$d1/3.0-$d1*$d1-134.0/81.0*$d1*$d1*$d1);
+$d0=3.0/2.0*$k2/($a0*$a0)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen)**(3.0/2.0));
+$semiax=$a0/(1-$d0)*6378.135;
+
+}
+
+sub calculate_orbs {
+
+$period = 60.0*24.0/($mean_mot/(1+$d0));
+$cax=$eccen*$semiax;
+$perigee=$semiax-$cax-6378.1;
+$apogee=$semiax+$cax-6378.1;
+
+}
+
diff --git a/src/cal/get_tle/tmp/five.tle.orig b/src/cal/get_tle/tmp/five.tle.orig
new file mode 100644
index 0000000..6949976
--- /dev/null
+++ b/src/cal/get_tle/tmp/five.tle.orig
@@ -0,0 +1,17 @@
+
+FUSE 1
+1 25791U 99035A   03334.81529517  .00000629  00000-0  13611-3 0    73
+2 25791  24.9828 141.7372 0010396 237.2837 122.6662 14.41449325233814
+FUSE 1
+1 25791U 99035A   03332.32285756  .00000721  00000-0  16400-3 0    51
+2 25791  24.9827 157.0092 0010498 210.6638 149.3252 14.41447882233456
+FUSE 1
+1 25791U 99035A   03331.90745146 +.00000729 +00000-0 +16628-3 0 00081
+2 25791 024.9828 159.5554 0010553 206.5242 153.4727 14.41447542233393
+FUSE 1
+1 25791U 99035A   03331.14587356  .00000725  00000-0  16505-3 0    40
+2 25791  24.9828 164.2238 0010646 198.4715 161.5398 14.41446726233287
+FUSE 1
+1 25791U 99035A   03330.86893587 +.00000724 +00000-0 +16482-3 0 00069
+2 25791 024.9826 165.9208 0010698 195.8086 164.2086 14.41446474233249
+
diff --git a/src/cal/get_tle/tmp/get_tle.logfile b/src/cal/get_tle/tmp/get_tle.logfile
new file mode 100644
index 0000000..570d7e1
--- /dev/null
+++ b/src/cal/get_tle/tmp/get_tle.logfile
@@ -0,0 +1,122 @@
+Trying 128.183.234.87...
+Connected to oig1.gsfc.nasa.gov.
+Escape character is '^]'.
+HTTP/1.0 200 OK
+Server: Microsoft-IIS/3.0
+Date: Mon, 01 Dec 2003 16:18:01 GMT
+Content-type: text/html
+
+
+
+OIG Registered user login ok
+
+
Registered User Login OK

+
2003/12/01 16:18:01 Session time remaining: 02:00:00

+

+
+
+
+This account will expire if not accessed at least once every 90 days.
+
+You have sucessfully logged in as registered user: 
+  Mary L. Romelfanger
+
+Please select => [Continue]
+

+

+© 2003  National Aeronautics and Space Administration (NASA). All rights reserved.
+
+*** 
+ Starting User's Home Page output page 
+***
+
+Trying 128.183.234.87...
+Connected to oig1.gsfc.nasa.gov.
+Escape character is '^]'.
+HTTP/1.0 200 OK
+Server: Microsoft-IIS/3.0
+Date: Mon, 01 Dec 2003 16:18:02 GMT
+Content-type: text/html
+
+
+
+OIG User home page
+
+
User Home Page

+
2003/12/01 16:18:01 Session time remaining: 02:00:00

+
+
Due to the existing National Security Restrictions all users must be
+an approved registered user to access data on this site. 10/01/2001
+

+
+
+

+
+
  • TLE Query
+     One time query for TLE's
    • 
+
  • TLE Historical Request Form
    • 
+
  • TLE Format (Standard and Obsolete)
+     Break-out of a Two Line Element.
    • 
+
  • Favorite TLE Query
+     (the query limit is for any continuous 24 hour period)
    • 
+
  • Favorite TLE Query Configuration
    • 
+
  • User Home Page Configuration
+     Select to modify what links will appear on this page.
    • 
+
  • Super-User Application
+     Application to access all daily TLE(s)
    • 
+
    +This is your home page configured links area!
+
+No user home page configured links.
+
+You must select "User Home Page Configuration" to
+access other links on this site.
    +
  • General Information
+     Formerly Main Home Page.
    • 
+
  • Messages
+     Messages to and from System Administrator
    • 
+
  • Change Password
    • © 2003  National Aeronautics and Space Administration (NASA). All rights reserved.
+Trying 128.183.234.87...
+Connected to oig1.gsfc.nasa.gov.
+Escape character is '^]'.
+HTTP/1.0 200 OK
+Server: Microsoft-IIS/3.0
+Date: Mon, 01 Dec 2003 16:18:02 GMT
+Content-type: text/html
+
+
+
+OIG TLE Query
+
+
    TLE Query
    
+
    2003/12/01 16:18:02 Session time remaining: 01:59:59
    
+
    +In this section you should select up to a maximum of 100 satellite catalog
+numbers, for which you can download the latest set of Two-Line elements.  Enter
+the satellite catalog numbers that you would like to query on, and click on
+submit.
+
+
+Enter the object numbers in the area below separated by spaces.
+Select the desired options.
+Select "Submit".
+(the query limit is for any continuous 24 hour period)
    
+
+
    Enter satellite object numbers:
+
+Format: 
+  Standard
+  Obsolete
    
+Sort on: 
+  Catalog number
+  Internationl designator
    
+Number of TLE(s): 
+  Latest One (1)
+  Latest Five (5)
    
+
     
    
+
+[ User home page ]
+
+
    © 2003  National Aeronautics and Space Administration (NASA). All rights reserved.
+
\ No newline at end of file
diff --git a/src/cal/get_tle/tmp/get_tle.pl b/src/cal/get_tle/tmp/get_tle.pl
new file mode 100755
index 0000000..0693156
--- /dev/null
+++ b/src/cal/get_tle/tmp/get_tle.pl
@@ -0,0 +1,148 @@
+#!/usr/local/bin/perl
+use FileHandle;
+use IPC::Open2;
+
+###
+# OIG TLE retrieval program
+# DJG - 6/14/98
+#
+# Uses a file called "one" which has sat numbers to get
+#
+# Places all output in a single file called "five.tle".
+#
+###
+
+### Configure:
+##$login = "emurphy";
+##$passwd = "bdr529";
+
+$login = "mromelfanger";
+$passwd = "fusejhu";
+$output_filename = "five.tle";
+$log_filename = "get_tle.logfile";
+
+### (end of configure section)
+
+# system("fixlist one tempone");
+# chop($satstoget = `cat tempone`);
+# system("rm -f tempone");
+
+$satstoget = "25791";
+
+# The "output" file collects debugging copies of everything that comes back.
+open(OUT,">$log_filename") || die "Could not open output file";
+
+# The following logs in to OIG and gets the first "continue" code
+
+$host = "oig1.gsfc.nasa.gov";
+#$url = "scripts/foxweb.dll/loginok\@app01?tdac=&ffv01=$login&ffv02=$passwd";
+$url = "scripts/foxweb.exe/loginok\@app01?tdac=&ffv01=$login&ffv02=$passwd";
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+while () {
+  print OUT "$_";  # copy each login screen line to the output file
+  if (/tdac=(\w+)\"/) {
+    $continuecode = $1;  # This code is the "continue" code
+  }
+}
+close(Reader);
+close(Writer);
+
+# $continuecode contains the very first "continue" code after login.
+
+print OUT "*** \n Starting User's Home Page output page \n***\n\n";
+
+# This url accesses the next screen (user home page)
+#$url = "scripts/foxweb.dll/favorhome\@app01?tdac=" . $continuecode;
+$url = "scripts/foxweb.exe/favorhome\@app01?tdac=" . $continuecode;
+# print $url; # debug print
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  print OUT "$_";      # copy each line to the output file
+
+  if(/tdac=(\w+)\"/) {
+
+#   Look for the "tle ad hoc query" code and save it
+    chop($word = "$_");
+    if ($word =~ /ftleadhoc.+tdac=(\w+)\"/) {
+      $tlequerycode = "$1";
+    }
+  }
+}
+# close(HOMEPAGE);
+# This access is to the "TLE ad hoc query" web page.
+#$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $tlequerycode;
+$url = "scripts/foxweb.exe/ftleadhoc\@app01?tdac=" . $tlequerycode;
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  print OUT "$_";  # copy each login screen line to the output file
+
+  # Look for the TLE "submit" code
+  chop($word = "$_");
+  if ($word =~ /tdac\" VALUE=\"(\w+)\"/) {
+    $gotcode2 = "$1";
+  }
+}
+close(Reader);
+close(Writer);
+
+# Compose the TLE query and submit it
+#$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $gotcode2;
+$url = "scripts/foxweb.exe/ftleadhoc\@app01?tdac=" . $gotcode2;
+$url .= "&ffv01=" . $satstoget . "&ffv02=standard&ffv03=catno&ffv04=five";
+
+# print "$url\n";  # debug print
+
+# Read the reply and copy the relevant lines to output_filename
+
+$copy = "no";
+open(TLEOUT,">$output_filename") || die "Error opening $output_filename";
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  if ($_ =~ /
    /) {  # End copy operation
+    print "$_";       # write remaining limit to output file
+    $copy = "no";
+  }
+  if ($copy eq "yes") {
+    print TLEOUT "$_";   # copy every line to five.tle
+    # print "$_";          # and to the terminal
+  }
+  if (substr($_,0,5) eq "
    ") {  # Begin copy operation
+    $copy = "yes";
+  }
+}
+close(Reader);
+close(Writer);
+close(TLEOUT);
+
+# The following will remove all session files. You can comment it
+# out for debugging.
+# system("rm -f output");
+
+# The following script "fixes up" the output
+# system("fix/do.fix.one");
+
+### end of Perl script
+
diff --git a/src/cal/get_tle/tmp/make_cvzramtool.pl b/src/cal/get_tle/tmp/make_cvzramtool.pl
new file mode 100755
index 0000000..4cb2e01
--- /dev/null
+++ b/src/cal/get_tle/tmp/make_cvzramtool.pl
@@ -0,0 +1,215 @@
+#!/usr/local/bin/perl
+use FileHandle;
+
+# This program will read in the latest FUSE TLE and recreate the 
+# cvz_ram_tool.html web page.
+
+$output_filename = "/data2/violet/htdocs/support/tools/cvz_ram_tool.html";
+open (OUTF, ">$output_filename") || die "Cannot open cvz_ram_tool.html file";
+
+system("chmod ug+rw $output_filename");
+system("chgrp www $output_filename");
+
+$input_filename = "/data1/fuse/calfuse/calfiles/FUSE.TLE";
+open (INP_TLE, "<$input_filename") || die "Cannot open FUSE.TLE file";
+
+$line1 = ;
+$line2 = ;
+$line3 = ;
+
+$id2 = substr($line2, 2, 5);
+$id3 = substr($line3, 2, 5);
+
+if (($id2 != 25791) || ($id3 != 25791)) {
+    print STDOUT "Error in TLE:\n";
+    print STDOUT $line1;
+    print STDOUT $line2;
+    print STDOUT $line3;
+    die "Error in TLE";
+}
+
+close (INP_TLE);
+
+$year = substr($line2, 18, 2);
+$doy = substr($line2, 20, 3);
+$dayfrac = substr($line2, 23, 9);
+$incl = substr($line3, 9, 8);
+$raan = substr($line3, 17,8);
+$eccen = substr($line3, 26, 7);
+$eccen = "0." . $eccen;
+$mean_mot = substr($line3, 52, 11);
+
+if ($year > 50) {
+    $year += 1900;
+} else {
+    $year += 2000;
+}
+
+$dayfrac = "0".$dayfrac;
+
+&convert_doy;
+&convert_dayfrac;
+&calculate_a0;
+
+$now=`date`;
+$datest = substr($now,4,3)." ".substr($now,8,2).", ".substr($now,24,4);
+
+print OUTF "FUSE CVZ/Ram Calculator\n";
+print OUTF "
    FUSE Continuous Viewing Zone and Orbit Ram Calculator V1.3
    \n";
+print OUTF "
    June 12, 1999 
    \n";
+
+print OUTF "The FUSE Continuous Viewing Zone and Orbit Ram \n";
+print OUTF "Calculator can determine when a given target \n";
+print OUTF "direction is in the continuous viewing zone. \n";
+print OUTF "It also calculates when a given target lies \n";
+print OUTF "within 20 degrees of the orbital plane and \n";
+print OUTF "cannot be observed due to ram avoidance\n";
+print OUTF "constraints. The default orbital elements \n";
+print OUTF "were last updated on $month $day, $year. \n";
+
+print OUTF "
    \n";
+print OUTF "
    \n";
+print OUTF "
    \n";
+
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "
    \n";
+  
+print OUTF "
    \n";
+print OUTF "Target Parameters:\n";
+print OUTF "
    \n";
+print OUTF "
    \n";
+print OUTF "Right Ascension (format HH:MM:SS.SS):\n";
+print OUTF " (J2000.0)\n";
+print OUTF "
    \n";
+print OUTF "Declination (format -DD:MM:SS.S):\n";
+print OUTF " (J2000.0)\n";
+print OUTF "
    \n";
+print OUTF "
    \n";
+print OUTF "
    \n";
+print OUTF "Output table parameters:\n";
+print OUTF "
    \n";
+print OUTF " Minimum Earth limb angle:  \n";
+print OUTF "(deg)\n";
+print OUTF "
    \n";
+print OUTF "Start Date:\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "
    \n";
+print OUTF "Time step:days
    \n";
+print OUTF "Number of steps:
    \n";
+print OUTF "
    \n";
+print OUTF "
    \n";
+print OUTF "FUSE classical Keplarian orbital elements:\n";
+print OUTF "
    \n";
+print OUTF "Epoch date of elements:\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "
    \n";
+print OUTF "Epoch UT time of elements (format HH:MM:SS.SS):\n";
+printf OUTF "\n",$hour,$minute,$second;
+print OUTF "
    \n";
+print OUTF "Semi-major axis (km):\n";
+printf OUTF " \n",$semiax;
+print OUTF "
    \n";
+print OUTF "Right ascension of the ascending node (degrees):\n";
+print OUTF "\n";
+print OUTF "
    \n";
+print OUTF "Orbit inclination (degrees):\n";
+print OUTF "\n";
+print OUTF "
    \n";
+print OUTF "Eccentricity:\n";
+print OUTF " \n";
+print OUTF "
    \n";
+print OUTF "
    \n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "
    \n";
+
+print OUTF "
    \n";
+print OUTF "This page uses the  STARLINK \n";
+print OUTF "set of astronomical subroutines.\n";
+print OUTF "
    \n";
+print OUTF "This page was automatically generated on $now";
+print OUTF "
    \n";
+print OUTF "
    emurphy\@pha.jhu.edu
    \n";
+
+close (OUTF);
+
+### end of Perl script
+
+
+sub convert_doy {
+    @daytab1 = (0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
+    @daytab2 = (0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
+    @monthstr = ("", "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");
+
+    if ((($year%4 == 0) && ($year%100 != 0)) || ($year%400 == 0)) {
+        # $year is a leap year use daytab1
+        for ($i = 1; $doy > $daytab1[$i]; $i++) {
+	    $doy -= $daytab1[$i];
+	}
+    } else {
+        # $year is not a leap year, use daytab2
+        for ($i = 1; $doy > $daytab2[$i]; $i++) {
+	    $doy -= $daytab2[$i];
+	}
+    }
+    $month = $monthstr[$i];
+    $day = $doy;
+}
+
+sub convert_dayfrac {
+    $dayfrac *= 24.0;
+    $hour = int($dayfrac);
+    $minute = int(($dayfrac-$hour)*60.0);
+    $second = ((($dayfrac-$hour)*60.0)-$minute)*60.0;
+}
+
+sub calculate_a0 {
+
+$mu = 3.986005E5;
+$pi = 3.14159265358979;
+$radian = 0.0174532925200;
+
+$mm=2.0*$pi*$mean_mot/(24.0*60.0);
+$ke=0.74366916E-1;
+$k2=5.413080E-4;
+$a1=($ke/$mm)**(2.0/3.0);
+$inrad = $incl * $radian;
+
+$d1=3.0/2.0*$k2/($a1*$a1)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen)**(3.0/2.0));
+$a0=$a1*(1.0-$d1/3.0-$d1*$d1-134.0/81.0*$d1*$d1*$d1);
+$d0=3.0/2.0*$k2/($a0*$a0)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen)**(3.0/2.0));
+$semiax=$a0/(1-$d0)*6378.135;
+}
diff --git a/src/cal/get_tle/tmp/make_orbit.pl b/src/cal/get_tle/tmp/make_orbit.pl
new file mode 100755
index 0000000..a8f00ff
--- /dev/null
+++ b/src/cal/get_tle/tmp/make_orbit.pl
@@ -0,0 +1,233 @@
+#!/usr/local/bin/perl
+use FileHandle;
+
+# Ed Murphy's program to rewrite the orbit page
+# Updated 03/27/00  Changed GSOC to Heavens Above
+
+$output_filename = "/data2/violet/htdocs/users/orbit.html";
+open (OUTF, ">$output_filename") || die "Cannot open $output_filename file";
+
+system("chmod ug+rw $output_filename");
+system("chgrp www $output_filename");
+
+$input_filename = "/data1/fuse/calfuse/calfiles/FUSE.TLE";
+open (INP_TLE, "<$input_filename") || die "Cannot open $input_filename file";
+
+$satid = 25791;
+
+&input_lines;
+
+close (INP_TLE);
+
+&parse_lines;
+
+&convert_doy;
+&convert_dayfrac;
+&calculate_a0;
+&calculate_orbs;
+
+$now=`date`;
+$datest = substr($now,4,3)." ".substr($now,8,2).", ".substr($now,24,4);
+
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "FUSE Orbital Elements page\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "
    \n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "
    \n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "
    \n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "\n";
+print OUTF "FUSE
    \n";
+print OUTF "Orbital Elements\n";
+print OUTF "
    \n";
+print OUTF "\n";
+print OUTF "
    \n";
+print OUTF "
    \n";
+print OUTF "\n";
+print OUTF "Where is FUSE now?
    \n";
+print OUTF "Check out the\n";
+print OUTF "\n";
+print OUTF "Heavens-Above Satellite Predictions page .\n";
+print OUTF "
    \n";
+print OUTF "
    \n";
+print OUTF "
    \n";
+print OUTF "
    \n";
+print OUTF " \n";
+print OUTF  "FUSE orbital elements:\n";
+print OUTF  "     NORAD number       25791\n";
+print OUTF  "     International ID  99035A\n";
+print OUTF  " \n";
+
+&print_orb;
+
+print OUTF "
    \n";
+
+&print_tail;
+
+close (OUTF);
+
+### end of Perl script
+
+
+sub convert_doy {
+    @daytab1 = (0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
+    @daytab2 = (0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
+    @monthstr = ("", "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");
+
+    if ((($year%4 == 0) && ($year%100 != 0)) || ($year%400 == 0)) {
+        # $year is a leap year use daytab1
+        for ($i = 1; $doy > $daytab1[$i]; $i++) {
+	    $doy -= $daytab1[$i];
+	}
+    } else {
+        # $year is not a leap year, use daytab2
+        for ($i = 1; $doy > $daytab2[$i]; $i++) {
+	    $doy -= $daytab2[$i];
+	}
+    }
+    $month = $monthstr[$i];
+    $day = $doy;
+}
+
+sub convert_dayfrac {
+    $dayfrac *= 24.0;
+    $hour = int($dayfrac);
+    $minute = int(($dayfrac-$hour)*60.0);
+    $second = ((($dayfrac-$hour)*60.0)-$minute)*60.0;
+}
+
+sub input_lines {
+$line1 = ;
+$line2 = ;
+$line3 = ;
+
+$id2 = substr($line2, 2, 5);
+$id3 = substr($line3, 2, 5);
+
+if (($id2 != $satid) || ($id3 != $satid)) {
+    print STDOUT "Error in TLE:\n";
+    print STDOUT $line1;
+    print STDOUT $line2;
+    print STDOUT $line3;
+#    die "Error in TLE";
+}
+
+}
+
+sub parse_lines {
+$year = substr($line2, 18, 2);
+$doy = substr($line2, 20, 3);
+$dayfrac = substr($line2, 23, 9);
+$epoch = $year.$doy.$dayfrac;
+$incl = substr($line3, 9, 8);
+$raan = substr($line3, 17,8);
+$eccen = substr($line3, 26, 7);
+$eccen = "0." . $eccen;
+$mean_mot = substr($line3, 52, 11);
+$mean_anom = substr($line3, 43, 8);
+$arg_perig = substr($line3, 34, 8);
+
+
+if ($year > 50) {
+    $year += 1900;
+} else {
+    $year += 2000;
+}
+
+$dayfrac = "0".$dayfrac;
+
+}
+
+sub calculate_a0 {
+
+$mu = 3.986005E5;
+$pi = 3.14159265358979;
+$radian = 0.0174532925200;
+
+$mm=2.0*$pi*$mean_mot/(24.0*60.0);
+$ke=0.74366916E-1;
+$k2=5.413080E-4;
+$a1=($ke/$mm)**(2.0/3.0);
+$inrad = $incl * $radian;
+
+$d1=3.0/2.0*$k2/($a1*$a1)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen)**(3.0/2.0));
+$a0=$a1*(1.0-$d1/3.0-$d1*$d1-134.0/81.0*$d1*$d1*$d1);
+$d0=3.0/2.0*$k2/($a0*$a0)*(3.0*cos($inrad)*cos($inrad)-1.0)/((1.0-$eccen*$eccen)**(3.0/2.0));
+$semiax=$a0/(1-$d0)*6378.135;
+
+}
+
+sub calculate_orbs {
+
+$period = 60.0*24.0/($mean_mot/(1+$d0));
+$cax=$eccen*$semiax;
+$perigee=$semiax-$cax-6378.1;
+$apogee=$semiax+$cax-6378.1;
+
+}
+
+sub print_orb {
+print OUTF  "     Epoch           $epoch\n";
+printf OUTF "     Semimajor axis   %7.2f km\n",$semiax;
+printf OUTF "     Apogee            %5.2f km\n",$apogee;
+printf OUTF "     Perigee           %5.2f km\n",$perigee;
+print OUTF  "     Eccentricity   $eccen\n";
+printf OUTF  "     Inclination       %6.2f degrees\n",$incl;
+printf OUTF "     Period            %6.2f minutes\n",$period;
+printf OUTF "     RA of asc. node   %6.2f degrees\n",$raan;
+printf OUTF "     Arg. of perigee   %6.2f degrees\n",$arg_perig;
+printf OUTF "     Mean anomaly      %6.2f degrees\n",$mean_anom;
+print OUTF  " \n";
+
+}
+
+sub print_tail {
+print OUTF "
    ";
+
+print OUTF "The FUSE Delta II second stage (NORAD #25792) reentered on \n";
+print OUTF "the morning of August 4, 1999 during orbit number 708.  \n";
+print OUTF "According to predictions by Alan Pickup, reentry \n";
+print OUTF "occured within 90 minutes of 5:31 UT, probably over the \n";
+print OUTF "Arabian Sea or India.  The final orbit was 119 x 103 km (74 x 64 mi).\n";
+print OUTF "
    ";
+print OUTF "
    ";
+print OUTF "\n";
+print OUTF " Could anything have survived reentry?
    \n";
+print OUTF "
    ";
+print OUTF "\n";
+print OUTF "
    These numbers assume a Keplerian orbit; the actual apogee and perigee \n";
+print OUTF "will differ by a few km on an orbit-to-orbit basis.\n";
+print OUTF "
    ";
+print OUTF "
    The NORAD Two-Line Elements (TLEs) for FUSE can be found in the file \n";
+print OUTF " FUSE.TLE .\n";
+print OUTF "
     \n";
+print OUTF "This page is automatically updated daily.  I wish to thank \n";
+print OUTF "Doyle Groves \n";
+print OUTF "for providing a Perl script to access the NASA\n";
+print OUTF "Orbital Information Group web page.\n";
+print OUTF "
     Ed Murphy, \n";
+print OUTF "
    emurphy\@pha.jhu.edu
    \n";
+print OUTF "
    \n";
+print OUTF "\n";
+print OUTF "
    \n";
+print OUTF "Last changed: $datest.\n";
+print OUTF "
    \n";
+print OUTF "Return to the FUSE home page.
    \n";
+print OUTF "
    \n";
+print OUTF "
    \n";
+print OUTF "
    \n";
+print OUTF "\n";
+print OUTF "\n";
+
+}
diff --git a/src/cal/get_tle/tmp/test_get_tle.pl b/src/cal/get_tle/tmp/test_get_tle.pl
new file mode 100755
index 0000000..33b72e5
--- /dev/null
+++ b/src/cal/get_tle/tmp/test_get_tle.pl
@@ -0,0 +1,148 @@
+#!/usr/local/bin/perl
+use FileHandle;
+use IPC::Open2;
+
+###
+# OIG TLE retrieval program
+# DJG - 6/14/98
+#
+# Uses a file called "one" which has sat numbers to get
+#
+# Places all output in a single file called "five.tle".
+#
+###
+
+### Configure:
+##$login = "emurphy";
+##$passwd = "bdr529";
+
+$login = "mromelfanger";
+$passwd = "fusejhu";
+$output_filename = "/data1/fuse/calfuse/caltemp/five.tle";
+$log_filename = "/data1/fuse/calfuse/caltemp/get_tle.logfile";
+
+### (end of configure section)
+
+# system("fixlist one tempone");
+# chop($satstoget = `cat tempone`);
+# system("rm -f tempone");
+
+$satstoget = "25791";
+
+# The "output" file collects debugging copies of everything that comes back.
+open(OUT,">$log_filename") || die "Could not open output file";
+
+# The following logs in to OIG and gets the first "continue" code
+
+$host = "oig1.gsfc.nasa.gov";
+#$url = "scripts/foxweb.dll/loginok\@app01?tdac=&ffv01=$login&ffv02=$passwd";
+$url = "scripts/foxweb.exe/loginok\@app01?tdac=&ffv01=$login&ffv02=$passwd";
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+while () {
+  print OUT "$_";  # copy each login screen line to the output file
+  if (/tdac=(\w+)\"/) {
+    $continuecode = $1;  # This code is the "continue" code
+  }
+}
+close(Reader);
+close(Writer);
+
+# $continuecode contains the very first "continue" code after login.
+
+print OUT "*** \n Starting User's Home Page output page \n***\n\n";
+
+# This url accesses the next screen (user home page)
+#$url = "scripts/foxweb.dll/favorhome\@app01?tdac=" . $continuecode;
+$url = "scripts/foxweb.exe/favorhome\@app01?tdac=" . $continuecode;
+# print $url; # debug print
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  print OUT "$_";      # copy each line to the output file
+
+  if(/tdac=(\w+)\"/) {
+
+#   Look for the "tle ad hoc query" code and save it
+    chop($word = "$_");
+    if ($word =~ /ftleadhoc.+tdac=(\w+)\"/) {
+      $tlequerycode = "$1";
+    }
+  }
+}
+# close(HOMEPAGE);
+# This access is to the "TLE ad hoc query" web page.
+#$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $tlequerycode;
+$url = "scripts/foxweb.exe/ftleadhoc\@app01?tdac=" . $tlequerycode;
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  print OUT "$_";  # copy each login screen line to the output file
+
+  # Look for the TLE "submit" code
+  chop($word = "$_");
+  if ($word =~ /tdac\" VALUE=\"(\w+)\"/) {
+    $gotcode2 = "$1";
+  }
+}
+close(Reader);
+close(Writer);
+
+# Compose the TLE query and submit it
+#$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $gotcode2;
+$url = "scripts/foxweb.exe/ftleadhoc\@app01?tdac=" . $gotcode2;
+$url .= "&ffv01=" . $satstoget . "&ffv02=standard&ffv03=catno&ffv04=five";
+
+# print "$url\n";  # debug print
+
+# Read the reply and copy the relevant lines to output_filename
+
+$copy = "no";
+open(TLEOUT,">$output_filename") || die "Error opening $output_filename";
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while () {
+  if ($_ =~ /
    /) {  # End copy operation
+    print "$_";       # write remaining limit to output file
+    $copy = "no";
+  }
+  if ($copy eq "yes") {
+    print TLEOUT "$_";   # copy every line to five.tle
+    # print "$_";          # and to the terminal
+  }
+  if (substr($_,0,5) eq "
    ") {  # Begin copy operation
+    $copy = "yes";
+  }
+}
+close(Reader);
+close(Writer);
+close(TLEOUT);
+
+# The following will remove all session files. You can comment it
+# out for debugging.
+# system("rm -f output");
+
+# The following script "fixes up" the output
+# system("fix/do.fix.one");
+
+### end of Perl script
+
diff --git a/src/cal/get_tle/tmp/test_tle.csh b/src/cal/get_tle/tmp/test_tle.csh
new file mode 100755
index 0000000..5431552
--- /dev/null
+++ b/src/cal/get_tle/tmp/test_tle.csh
@@ -0,0 +1,50 @@
+#!/bin/csh -f
+#******************************************************************************
+#*              Johns Hopkins University
+#*              Center For Astrophysical Sciences
+#*              FUSE
+#*****************************************************************************
+#*
+#* Synopsis:    update_tle
+#*
+#* Description: Shell script for automatically downloading the latest
+#*              orbital elements from the GSFC OIG, and placing these
+#*              elements in the FUSE.TLE file.  It will also update 
+#*              the cvz_ram_tool.html calculator.
+#*		
+#*		All messages are to stdout or stderr.
+#*
+#* Arguments:   None
+#*
+#* Returns:     Exit codes:
+#*			0		successful execution
+#* 
+#* History:     07/27/99        emm     Begin work.
+#******************************************************************************/
+
+set tlestat=0
+
+# Step 1
+/usr/local/fusesw/calfuse/current/src/cal/get_tle/get_tle.pl
+set cfstat=$status
+
+# Step 2
+if !({$cfstat}) then
+    /usr/local/fusesw/calfuse/current/src/cal/get_tle/add_tle.pl
+    set cfstat=$status
+endif
+
+# Step 3
+if !({$cfstat}) then
+    /usr/local/fusesw/calfuse/current/src/cal/get_tle/make_cvzramtool.pl
+    set cfstat=$status
+endif
+
+# Step 4
+if !({$cfstat}) then
+    /usr/local/fusesw/calfuse/current/src/cal/get_tle/make_orbit.pl
+    set cfstat=$status
+endif
+
+exit($cfstat)
+
diff --git a/src/cal/get_tle/tmp/update_tle.csh b/src/cal/get_tle/tmp/update_tle.csh
new file mode 100755
index 0000000..5c076bd
--- /dev/null
+++ b/src/cal/get_tle/tmp/update_tle.csh
@@ -0,0 +1,55 @@
+#!/bin/csh -f
+#******************************************************************************
+#*              Johns Hopkins University
+#*              Center For Astrophysical Sciences
+#*              FUSE
+#*****************************************************************************
+#*
+#* Synopsis:    update_tle
+#*
+#* Description: Shell script for automatically downloading the latest
+#*              orbital elements from the GSFC OIG, and placing these
+#*              elements in the FUSE.TLE file.  It will also update 
+#*              the cvz_ram_tool.html calculator.
+#*		
+#*		All messages are to stdout or stderr.
+#*
+#* Arguments:   None
+#*
+#* Returns:     Exit codes:
+#*			0		successful execution
+#* 
+#* History:     07/27/99        emm     Begin work.
+#*              10/23/00        mlr     changed path from v1.4 to current
+#******************************************************************************/
+
+set tlestat=0
+
+# Step 1
+#/usr/local/fusesw/calfuse/v1.4/src/cal/get_tle/get_tle.pl
+/usr/local/fusesw/calfuse/current/src/cal/get_tle/get_tle.pl
+set cfstat=$status
+
+# Step 2
+if !({$cfstat}) then
+#    /usr/local/fusesw/calfuse/v1.4/src/cal/get_tle/add_tle.pl
+    /usr/local/fusesw/calfuse/current/src/cal/get_tle/add_tle.pl
+    set cfstat=$status
+endif
+
+# Step 3
+if !({$cfstat}) then
+#    /usr/local/fusesw/calfuse/v1.4/src/cal/get_tle/make_cvzramtool.pl
+    /usr/local/fusesw/calfuse/current/src/cal/get_tle/make_cvzramtool.pl
+    set cfstat=$status
+endif
+
+# Step 4
+if !({$cfstat}) then
+#    /usr/local/fusesw/calfuse/v1.4/src/cal/get_tle/make_orbit.pl
+    /usr/local/fusesw/calfuse/current/src/cal/get_tle/make_orbit.pl
+    set cfstat=$status
+endif
+
+exit($cfstat)
+
diff --git a/src/cal/get_tle/update_tle.csh b/src/cal/get_tle/update_tle.csh
new file mode 100755
index 0000000..bc9ae34
--- /dev/null
+++ b/src/cal/get_tle/update_tle.csh
@@ -0,0 +1,57 @@
+#!/bin/csh -f
+#******************************************************************************
+#*              Johns Hopkins University
+#*              Center For Astrophysical Sciences
+#*              FUSE
+#*****************************************************************************
+#*
+#* Synopsis:    update_tle
+#*
+#* Description: Shell script for automatically downloading the latest
+#*              orbital elements from the GSFC OIG, and placing these
+#*              elements in the FUSE.TLE file.  It will also update 
+#*              the cvz_ram_tool.html calculator.
+#*		
+#*		All messages are to stdout or stderr.
+#*
+#* Arguments:   None
+#*
+#* Returns:     Exit codes:
+#*			0		successful execution
+#* 
+#* History:     07/27/99        emm     Begin work.
+#*              10/23/00        mlr     changed path from v1.4 to current
+#******************************************************************************/
+
+set tlestat=0
+
+# Step 1
+#/usr/local/fusesw/calfuse/v1.4/src/cal/get_tle/get_tle.pl
+#/usr/local/fusesw/calfuse/current/src/cal/get_tle/get_tle.pl
+#/usr/local/j2sdk1.4.2_06/bin/java -classpath /usr/local/fusesw/calfuse/current/src/cal/get_tle GetTLE
+/usr/local/java/bin/java -classpath /usr/local/fusesw/calfuse/current/src/cal/get_tle GetTLE
+set cfstat=$status
+
+# Step 2
+if !({$cfstat}) then
+#    /usr/local/fusesw/calfuse/v1.4/src/cal/get_tle/add_tle.pl
+    /usr/local/fusesw/calfuse/current/src/cal/get_tle/add_tle.pl
+    set cfstat=$status
+endif
+
+# Step 3
+if !({$cfstat}) then
+#    /usr/local/fusesw/calfuse/v1.4/src/cal/get_tle/make_cvzramtool.pl
+    /usr/local/fusesw/calfuse/current/src/cal/get_tle/make_cvzramtool.pl
+    set cfstat=$status
+endif
+
+# Step 4
+if !({$cfstat}) then
+#    /usr/local/fusesw/calfuse/v1.4/src/cal/get_tle/make_orbit.pl
+    /usr/local/fusesw/calfuse/current/src/cal/get_tle/make_orbit.pl
+    set cfstat=$status
+endif
+
+exit($cfstat)
+
diff --git a/src/cal/jitter/Makefile.Linux.orig b/src/cal/jitter/Makefile.Linux.orig
new file mode 100644
index 0000000..aafa61d
--- /dev/null
+++ b/src/cal/jitter/Makefile.Linux.orig
@@ -0,0 +1,43 @@
+
+FITSVER=	2.470
+CALFUSEDIR=	${PWD}/../../..
+
+# Symbols for include directories
+FUSEINCLDIR=	-I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=		cc
+OPT=		-g -Wall -DCFORTRAN -Dg77Fortran -Df2cFortran
+CFLAGS=		${OPT} ${FUSEINCLDIR}
+
+# Symbols used for creating shared binaries
+FUSEBINDIR=	${CALFUSEDIR}/bin
+FUSELIBDIR=	-L${CALFUSEDIR}/lib
+FUSELIBS=	-lsla -lcfitsio-${FITSVER} -lcf
+LIBS=		-lc -lm -lnsl -ldl -lgfortran
+LDFLAGS=	-Wl,-R${CALFUSEDIR}/lib
+
+# binaries to be made
+
+BINS=		cf_jitter_diag cf_jitter
+
+all:		${BINS}
+		chmod g+rw ${BINS}
+
+install:	all
+		/bin/cp ${BINS} ${FUSEBINDIR}
+
+clean:
+		/bin/rm -f *.o ${BINS}
+
+distclean:
+		/bin/rm -f *.o ${BINS}
+		cd ../../../bin; /bin/rm -f ${BINS}
+
+cf_jitter_diag:	cf_jitter_diag.c
+		${CC} ${CFLAGS} -o cf_jitter_diag cf_jitter_diag.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+cf_jitter:	cf_jitter.c
+		${CC} ${CFLAGS} -o cf_jitter cf_jitter.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
diff --git a/src/cal/jitter/Makefile.Linux64.orig b/src/cal/jitter/Makefile.Linux64.orig
new file mode 100644
index 0000000..f6cf992
--- /dev/null
+++ b/src/cal/jitter/Makefile.Linux64.orig
@@ -0,0 +1,42 @@
+
+CALFUSEDIR=	${PWD}/../../..
+
+# Symbols for include directories
+FUSEINCLDIR=	-I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=		cc
+OPT=		-g -Wall -DCFORTRAN -Dg77Fortran -Df2cFortran
+CFLAGS=		${OPT} ${FUSEINCLDIR}
+
+# Symbols used for creating shared binaries
+FUSEBINDIR=	${CALFUSEDIR}/bin
+FUSELIBDIR=	-L${CALFUSEDIR}/lib
+FUSELIBS=	-lsla -lcf
+LIBS=		-lc -lm -lnsl -ldl -lgfortran -lcfitsio
+LDFLAGS=	-Wl,-R${CALFUSEDIR}/lib
+
+# binaries to be made
+
+BINS=		cf_jitter_diag cf_jitter
+
+all:		${BINS}
+		chmod g+rw ${BINS}
+
+install:	all
+		/bin/cp ${BINS} ${FUSEBINDIR}
+
+clean:
+		/bin/rm -f *.o ${BINS}
+
+distclean:
+		/bin/rm -f *.o ${BINS}
+		cd ../../../bin; /bin/rm -f ${BINS}
+
+cf_jitter_diag:	cf_jitter_diag.c
+		${CC} ${CFLAGS} -o cf_jitter_diag cf_jitter_diag.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+cf_jitter:	cf_jitter.c
+		${CC} ${CFLAGS} -o cf_jitter cf_jitter.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
diff --git a/src/cal/jitter/Makefile.MacOSX.orig b/src/cal/jitter/Makefile.MacOSX.orig
new file mode 100644
index 0000000..fc408c9
--- /dev/null
+++ b/src/cal/jitter/Makefile.MacOSX.orig
@@ -0,0 +1,46 @@
+
+FITSVER=	2.470
+CALFUSEDIR=	${PWD}/../../..
+MACOSX_DEPLOYMENT_TARGET=       10.2
+
+# Symbols for include directories
+FUSEINCLDIR=	-I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=		cc
+OPT=            -O3 -Wall -DCFORTRAN -Dg77Fortran -Df2cFortran
+CFLAGS=		${OPT} ${FUSEINCLDIR}
+
+# Symbols used for creating shared binaries
+FUSEBINDIR=	${CALFUSEDIR}/bin
+FUSELIBDIR=	-L${CALFUSEDIR}/lib
+FUSELIBS=	-lsla -lcfitsio -lcf
+LIBS=           -lc -lm -ldl -L/sw/lib/ -lgfortran
+
+# Binaries to be made
+
+BINS=		cf_jitter_diag cf_jitter
+
+all:		${BINS}
+		chmod g+rw ${BINS}
+
+install:
+		MACOSX_DEPLOYMENT_TARGET="${MACOSX_DEPLOYMENT_TARGET}"; \
+		export MACOSX_DEPLOYMENT_TARGET; \
+		make all
+		/bin/cp ${BINS} ${FUSEBINDIR}
+
+clean:
+		/bin/rm -f *.o ${BINS}
+
+distclean:
+		/bin/rm -f *.o ${BINS}
+		cd ../../../bin; /bin/rm -f ${BINS}
+
+cf_jitter_diag:	cf_jitter_diag.c
+		${CC} ${CFLAGS} -o cf_jitter_diag cf_jitter_diag.c \
+		${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+cf_jitter:	cf_jitter.c
+		${CC} ${CFLAGS} -o cf_jitter cf_jitter.c \
+		${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
diff --git a/src/cal/jitter/Makefile.Solaris.orig b/src/cal/jitter/Makefile.Solaris.orig
new file mode 100644
index 0000000..f182b16
--- /dev/null
+++ b/src/cal/jitter/Makefile.Solaris.orig
@@ -0,0 +1,50 @@
+
+FITSVER=	2.470
+CALFUSEDIR=	${PWD}/../../..
+
+# Symbols for include directories
+FUSEINCLDIR=	-I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=		cc
+#  Romelfanger's optimizations
+# OPT=		-fast -xO5 -xtarget=ultra2 -xarch=v8plusa
+#
+#  SunWorld's optimizations
+# OPT=		-p -v -xO2 -xdepend -xchip=ultra -xarch=generic
+OPT=		-O -DCFORTRAN -KPIC -DSOLARIS
+CFLAGS=		${OPT} ${FUSEINCLDIR}
+
+# Symbols used for creating shared binaries
+FUSEBINDIR=	${CALFUSEDIR}/bin
+FUSELIBDIR=	-L${CALFUSEDIR}/lib
+LIBDIR=		-L/opt/SUNWspro/lib
+FUSELIBS=	-lsla -lcfitsio-${FITSVER} -lcf
+LIBS=		-lc -lm -lnsl -ldl -lsocket -lsunmath -lM77 -lF77
+LDFLAGS=	-Wl,-R${CALFUSEDIR}/lib
+
+# binaries to be made
+
+BINS=		cf_jitter_diag cf_jitter
+
+all:		${BINS}
+		chmod g+rw ${BINS}
+
+install:	all
+		/bin/cp ${BINS} ${FUSEBINDIR}
+
+clean:
+		/bin/rm -f *.o ${BINS}
+
+distclean:
+		/bin/rm -f *.o ${BINS}
+		cd ../../../bin; /bin/rm -f ${BINS}
+
+cf_jitter_diag:	cf_jitter_diag.c
+		${CC} ${CFLAGS} -o cf_jitter_diag cf_jitter_diag.c \
+		${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+cf_jitter:	cf_jitter.c
+		${CC} ${CFLAGS} -o cf_jitter cf_jitter.c \
+		${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
diff --git a/src/cal/jitter/Makefile.orig.orig b/src/cal/jitter/Makefile.orig.orig
new file mode 100644
index 0000000..f182b16
--- /dev/null
+++ b/src/cal/jitter/Makefile.orig.orig
@@ -0,0 +1,50 @@
+
+FITSVER=	2.470
+CALFUSEDIR=	${PWD}/../../..
+
+# Symbols for include directories
+FUSEINCLDIR=	-I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=		cc
+#  Romelfanger's optimizations
+# OPT=		-fast -xO5 -xtarget=ultra2 -xarch=v8plusa
+#
+#  SunWorld's optimizations
+# OPT=		-p -v -xO2 -xdepend -xchip=ultra -xarch=generic
+OPT=		-O -DCFORTRAN -KPIC -DSOLARIS
+CFLAGS=		${OPT} ${FUSEINCLDIR}
+
+# Symbols used for creating shared binaries
+FUSEBINDIR=	${CALFUSEDIR}/bin
+FUSELIBDIR=	-L${CALFUSEDIR}/lib
+LIBDIR=		-L/opt/SUNWspro/lib
+FUSELIBS=	-lsla -lcfitsio-${FITSVER} -lcf
+LIBS=		-lc -lm -lnsl -ldl -lsocket -lsunmath -lM77 -lF77
+LDFLAGS=	-Wl,-R${CALFUSEDIR}/lib
+
+# binaries to be made
+
+BINS=		cf_jitter_diag cf_jitter
+
+all:		${BINS}
+		chmod g+rw ${BINS}
+
+install:	all
+		/bin/cp ${BINS} ${FUSEBINDIR}
+
+clean:
+		/bin/rm -f *.o ${BINS}
+
+distclean:
+		/bin/rm -f *.o ${BINS}
+		cd ../../../bin; /bin/rm -f ${BINS}
+
+cf_jitter_diag:	cf_jitter_diag.c
+		${CC} ${CFLAGS} -o cf_jitter_diag cf_jitter_diag.c \
+		${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+cf_jitter:	cf_jitter.c
+		${CC} ${CFLAGS} -o cf_jitter cf_jitter.c \
+		${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
diff --git a/src/cal/jitter/cf_jitter.c b/src/cal/jitter/cf_jitter.c
new file mode 100644
index 0000000..c1035a6
--- /dev/null
+++ b/src/cal/jitter/cf_jitter.c
@@ -0,0 +1,1239 @@
+/**************************************************************************
+ *           Johns Hopkins University  
+ *          Center for Astrophysical Sciences     
+ *           FUSE
+ *************************************************************************
+ *
+ * synopsis:    cf_jitter input_file output_file     
+ *
+ * Description: Reads a FITS file containing housekeeping data and
+ *              generates a FITS file containing the jitter information 
+ *              for the exposure.
+ *
+ * Arguments: input_file    Input raw FITS housekeeping file for an exposure
+ *                          The header of this file is used as a template
+ *                          for the output file
+ *            output_file   FITS table containing the jitter information 
+ *     
+ * 
+ * Contents of output file: 
+ *   1. Time of sample (in seconds from start)
+ *   2. Shifts dx and dy (in arcsec) of the pointing from a reference position
+ *   3. Tracking quality flag
+ *	5 = dx, dy from known FPDs and q_cmd from telemetry
+ *	4 = good dx, dy from ACS q_est and q_cmd from telemetry
+ *	3 = maybe good dx, dy from ACS q_est
+ *	2 = dx, dy from known FPDs, but q_cmd from FITS header coordinates
+ *	1 = dx, dy from ACS q_est, but q_cmd from FITS header coordinates
+ *	0 = no pointing information (missing telemetry)
+ *     -1 = Pointing is assumed to be bad (never achieved known track)
+ *
+ * Codes to JIT_STAT keyword:
+ *	0	All OK
+ *	1	Problems with jitter data
+ *	2	AT_CMD_ATT flag never set
+ *	3	Commanded ACS quaternions not available
+ *	4	No star field information
+ *	5	Problems with tabulated start time
+ *
+ *                                 
+ * HISTORY:
+ *       01/22/02   v1.0     Robinson  Begin work
+ *       08/14/02   v1.1     Robinson  Populate JIT_STATUS keyword
+ *       09/20/02   v1.11    Robinson  - update FILENAME, FILETYPE keywords
+ *                                     - change EXP_DUR keyword to reflect
+ *                                       total time duration of jitter data
+ *       11/04/02   v1.2     Robinson  Change method in which gaps are filled.
+ *                                     We no longer assume that the data is 
+ *                                     tabulated at regular intervals. Also 
+ *                                     check that tabulated times start BEFORE
+ *                                     the exposure start time
+ *       12/17/02   v1.3     Robinson  Slight change in definitions of TRAKFLG
+ *                                     values.
+ *       01/17/03   v1.4     Robinson  Slight change in calculating summary of
+ *                                     jitter properties
+ *       05/22/03   v1.5     rdr       Change initialization of arrays
+ *       06/10/03   v1.6     rdr       Correct problem in determining ref 
+ *                                     quaternion
+ *       06/23/03   v1.7     rdr       Adjust calculation on some of the
+ *                                     keywords
+ *       06/25/03   v1.8     rdr       Correct fault in setting the SLEWFLG
+ *                                     keyword
+ *       06/27/03   v1.9     rdr       Corrected error in selecting the 
+ *					reference quaternion
+ *       04/05/05   v2.0     wvd       Modify logic for setting TRAKFLG.
+ *					Use only FPD quaternions for dx & dy.
+ *       06/24/05   v2.1     wvd       De-bug code for use in Linux boxes.
+ *       07/06/05   v2.2     wvd       Add JIT_VERS keyword to jitter file.
+ *       11/30/05   v2.3     wvd       Don't add 0.5 to tval and time[i] 
+ *					before converting to type long.
+ *       06/28/06   v2.4     wvd       Add "JITTER KEYWORDS" to file header.
+ *       08/21/06   v2.5     wvd       Always calculate dx and dy.
+ *					For data taken in one-wheel mode,
+ *					jitter is bad if sfknown < 1.
+ *       08/25/06   v2.6     wvd       Three-wheel mode was BEFORE DEC2001,
+ *					not after.  Use qvalid flag to check
+ *					validity of FPD quaternions.
+ *       08/25/06   v2.7     wvd       New tracking flag values:
+ *					5 = FPD, 4 = ACS, 0 = no info
+ *       11/30/06   v3.0     wvd       New code from Tom Ake:
+ *					If telemetry unavailable, use
+ *					target coordinates to generate
+ *					commanded quaternion.
+ *					Modify logic of tracking flags.
+ *       12/19/06   v3.1     wvd       Add flag to force use of target
+ *					coordinates.
+ *       03/29/07   v3.2     wvd       Modify to handle time period when
+ *					ACS telemetry rate was cut in half. 
+ *					Make code generally more robust.
+ *       03/30/07   v3.2.1   wvd       Correct typos in last change.
+ *       04/07/07   v3.3     wvd       Add #include 
+ *       04/13/07   v3.4     wvd       If program fails, set NEXTEND = 0
+ *					in jitter file header.
+ *       05/04/07   v3.5     wvd       Force fourth component of q_meas
+ *					to be positive.
+ *	 08/24/07   v3.6     bot       changed TINT to TLONG for time l.1191.
+ *	 05/30/08   v3.7     wvd       If computing coordinates from file
+ *					header and aperture = RFPT, do not
+ *					add an aperture offset.
+ *
+ **************************************************************************/
+
+#include 
+#include 
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+#define HSKPVERS_MIN    3.1
+
+static char CF_PRGM_ID[] = "cf_jitter";    
+static char CF_VER_NUM[] = "3.7";  
+
+
+/* Subroutine to normalize a quaternion */
+
+void qnorm(double *quat) {
+
+  double quat3_sq;
+
+  quat3_sq = 1. - quat[0]*quat[0] - quat[1]*quat[1] - quat[2]*quat[2];
+  if (quat3_sq > 0) quat[3] = sqrt(quat3_sq);
+  else quat[3] = 0.;
+
+}
+
+
+/* Subroutine to perform matrix multiplication of two quaternions */
+
+void quatprod(double *tquat, double *quat_ref, double *dquat) {
+
+  int i, j ;
+  double multmat[4][4] ; 
+
+  /* fill in the array with values from the tquat vector */
+  multmat[0][0] =  tquat[3] ;
+  multmat[0][1] = -tquat[2] ;
+  multmat[0][2] =  tquat[1] ;
+  multmat[0][3] = -tquat[0] ;
+  multmat[1][0] =  tquat[2] ;
+  multmat[1][1] =  tquat[3] ;
+  multmat[1][2] = -tquat[0] ;
+  multmat[1][3] = -tquat[1] ;
+  multmat[2][0] = -tquat[1] ; 
+  multmat[2][1] =  tquat[0] ;
+  multmat[2][2] =  tquat[3] ;
+  multmat[2][3] = -tquat[2] ;
+  multmat[3][0] =  tquat[0] ;
+  multmat[3][1] =  tquat[1] ;
+  multmat[3][2] =  tquat[2] ;
+  multmat[3][3] =  tquat[3] ;
+  
+  /* do the matrix multiplication */
+  for (i=0 ; i<4 ; i++) {
+     dquat[i] = 0. ;
+     for (j=0; j<4 ; j++) dquat[i] = dquat[i] + multmat[j][i] * quat_ref[j] ; 
+  }
+
+  if (dquat[3] < 0) for (i=0; i<4 ; i++) dquat[i] = -dquat[i];
+
+}
+
+
+int main(int argc, char *argv[])  
+{
+  fitsfile *infits, *outfits ;
+  int hdutype, tfields, dstatus ;
+  int nvalid, nvalid5, rtime ;
+  int pflg=0 ;
+  int tflg, qvalidt ;
+  int tcolnum, fpdquat1_colnum,  fpdquat2_colnum,  fpdquat3_colnum ;
+  int aquat1_colnum, aquat2_colnum, aquat3_colnum, slew_colnum ;
+  int status, tcol, nextend=0;
+  int dxcol, dycol, trkcol, anynull, intnull=0 ;
+  int qvalid_colnum, cents1_colnum, cents2_colnum, cents3_colnum;
+  int cents4_colnum, cents5_colnum, cents6_colnum, acaflg_colnum ;
+  int acscmd1_colnum, acscmd2_colnum, acscmd3_colnum, sfknown_colnum ;
+  int frow, felem, slewflg, ngs_used, jitlgx, jitlgy ;
+  int *cents1, *cents2, *cents3, *cents4, *cents5, *cents6 , *qvalid ;
+  int *sfknown, *slew;
+  int cents1t=0, cents2t=0, cents3t=0, cents4t=0, cents5t=0, cents6t=0 ;
+  int sfknownt=0 , slewt=0, slewtime=0 ;
+  long i, numq5, numq4, numq3, numq2, numq1, numq0, numqa ; 
+  long  npts, tval, n_invert=0;
+  long *time, qtime=0 ;
+  float tfine, tcoarse, tnull, knowntrk, acstrk, fjitlgx, fjitlgy ;
+  float targtrk ;
+  float ngs1, ngs2, ngs3, ngs4, ngs5, ngs6, gs_used, expdur, exptime ;
+  float dxrms, dyrms, dxave, dyave, dxrms5, dyrms5 ;
+  float *acaflg ;
+  float *dx , *dy ;
+  double *fq1, *fq2,*fq3, *mjd ;
+  double *acscmd1, *acscmd2, *acscmd3, fq1t, fq2t, fq3t  ;
+  double tstrt ;
+  double tquat[4], dquat[4], quat_ref[4] ;
+  double *aq1, *aq2, *aq3, aq1t, aq2t, aq3t ;
+  short *trakflg ;
+  char buffer[FLEN_CARD];
+  char *ttype[] = { "TIME", "DX", "DY", "TRKFLG" } ;
+  char *tform[] = { "1J", "1E", "1E", "1I" } ;
+  char *tunit[] = { "seconds", "arcsec", "arcsec", " "} ;
+  char textname[7]="jitter" ;
+  char blank[]="                                                                                ";
+  char jitter_keywords[]="              JITTER KEYWORDS                                                   ";
+
+  /* New variables (11/30/06) */
+  int maxi, qcmd_prob, trakflg_init, *aqsok, aq_fill ;
+  float targ_ra, targ_dec, targ_roll, x_off, y_off, fpalif1x, fpalif2x ;
+  double cra, sra, cdc, sdc, crl, srl, rad2deg ;
+  double dq_sid[4], aq_old[4], rot[9] ;
+  char aper_id[FLEN_VALUE], fescent[FLEN_VALUE], hskpvers[FLEN_VALUE];
+
+  /* New variables (12/19/06) */
+  int optc;
+  int force_target_coords = FALSE;
+
+  char opts[] = "hfv:";
+  char usage[] =
+    "Usage:\n"
+    "  cf_jitter [-hf] [-v level] housekeeping_file jitter_file\n";
+  char option[] =
+    "Options:\n"
+    "  -h:  this help message\n"
+    "  -f:  force use of target coordinates \n"
+    "  -v:  verbosity level (=1; 0 is silent)\n";
+
+  verbose_level = 1;
+
+  /* Check number of options and arguments */
+  while ((optc = getopt(argc, argv, opts)) != -1) {
+    switch(optc) {
+    case 'h':
+      printf("%s\n%s", usage, option);
+      return 0;
+    case 'f':
+      force_target_coords=TRUE;
+      break;
+    case 'v':
+      verbose_level = atoi(optarg);
+      break;
+    }
+  }
+
+  cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+  if (argc < optind+2) {
+    printf("%s", usage);
+    return 1;
+  }
+
+
+  cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution.");
+
+
+  /* initialize necessary variables */
+     hdutype=0 ;
+     status=0 ;
+     frow=1 ;
+     felem=1 ;
+     anynull=0 ;
+
+  /* Open the input FITS file */
+     cf_verbose(3, "opening the file %s for input",argv[optind]);
+     FITS_open_file(&infits, argv[optind], READONLY, &status); 
+
+  /* Read the starting time and duration from the FITS header */
+     FITS_read_key(infits, TDOUBLE, "EXPSTART", &tstrt, buffer, &status) ;
+     cf_verbose(2, "start time (MJD) = %15.9f",tstrt) ;
+     FITS_read_key(infits, TFLOAT, "EXPTIME", &exptime, buffer, &status) ;
+     cf_verbose(2, "expected exposure duration (sec) = %.0f",exptime) ;
+ 
+  /* Create the output file */
+     FITS_create_file(&outfits, argv[optind+1], &status); 
+
+  /* Copy the header and empty primary image of the input file to 
+     the output */
+     FITS_copy_hdu(infits, outfits, 0, &status) ;
+
+  /* Add "JITTER KEYWORDS" string to header. */
+     FITS_write_record(outfits, blank, &status);
+     FITS_write_record(outfits, jitter_keywords, &status);
+     FITS_write_record(outfits, blank, &status);
+
+  /* Populate the STATUS keyword with 1.
+     Reset keyword if everything goes well. */
+     dstatus = 1 ;
+     FITS_update_key(outfits, TINT, "JIT_STAT", &dstatus, 
+         "Problems with jitter data", &status) ;
+
+  /* Update FILENAME and FILETYPE keywords */
+     FITS_update_key(outfits, TSTRING, "FILENAME",argv[2], NULL, &status) ;
+     FITS_update_key(outfits, TSTRING, "FILETYPE","JITTER", NULL, &status) ;
+
+  /* Insert JIT_VERS keyword */
+     FITS_update_key(outfits, TSTRING, "JIT_VERS", CF_VER_NUM,
+	"cf_jitter version number", &status) ;
+
+  /* Read coordinate information in case we can't determine quat_ref from telemetry */
+     /* Don't bother reading these keywords if the HSKPVERS is too low. */
+     fits_read_key(infits, TSTRING, "HSKPVERS", hskpvers, NULL, &status);
+     if (status != 0 || atof(hskpvers) < HSKPVERS_MIN) {
+        status = 0;
+        cf_verbose(1, "Housekeeping file format is out of date.");
+     }
+     else {
+	FITS_read_key(infits, TFLOAT, "RA_TARG", &targ_ra, buffer, &status) ;
+	FITS_read_key(infits, TFLOAT, "DEC_TARG", &targ_dec, buffer, &status) ;
+	FITS_read_key(infits, TFLOAT, "APER_PA", &targ_roll, buffer, &status) ;
+	FITS_read_key(infits, TSTRING, "APERTURE", &aper_id, buffer, &status) ;
+	FITS_read_key(infits, TFLOAT, "FPALIF1X", &fpalif1x, buffer, &status) ;
+	FITS_read_key(infits, TFLOAT, "FPALIF2X", &fpalif2x, buffer, &status) ;
+	FITS_read_key(infits, TSTRING, "FESCENT", &fescent, buffer, &status) ;
+     }
+
+  /* move to the first extension, which contains the table */
+     FITS_movabs_hdu(infits, 2, &hdutype, &status) ;
+
+  /* determine the number of times which have been tabulated */
+     FITS_read_key(infits, TLONG, "NAXIS2", &npts, NULL, &status) ;
+     cf_verbose(2, "number of samples in the table = %ld", npts) ;
+
+  /*   set up arrays to contain the data to be read from the table  */
+           mjd = (double *) cf_calloc(npts, sizeof(double)) ;
+           qvalid = (int *) cf_calloc(npts, sizeof(int)) ;
+           fq1 = (double *) cf_calloc(npts, sizeof(double) ) ;
+           fq2 = (double *) cf_calloc(npts, sizeof(double) ) ;
+           fq3 = (double *) cf_calloc(npts, sizeof(double) ) ;
+           aq1 = (double *) cf_calloc(npts, sizeof(double) ) ;
+           aq2 = (double *) cf_calloc(npts, sizeof(double) ) ;
+           aq3 = (double *) cf_calloc(npts, sizeof(double)) ; 
+           acaflg = (float *) cf_calloc(npts, sizeof(float)) ;
+           acscmd1 = (double *) cf_calloc(npts, sizeof(double)) ; 
+           acscmd2 = (double *) cf_calloc(npts, sizeof(double) ) ; 
+           acscmd3 = (double *) cf_calloc(npts, sizeof(double) ) ; 
+           cents1 = (int *) cf_calloc(npts, sizeof(int)) ;
+           cents2 = (int *) cf_calloc(npts, sizeof(int) ) ;
+           cents3 = (int *) cf_calloc(npts, sizeof(int) ) ;
+           cents4 = (int *) cf_calloc(npts, sizeof(int) ) ;
+           cents5 = (int *) cf_calloc(npts, sizeof(int) ) ;
+           cents6 = (int *) cf_calloc(npts, sizeof(int) ) ;
+           sfknown = (int *) cf_calloc(npts, sizeof(int) ) ;
+           slew = (int *) cf_calloc(npts, sizeof(int) ) ;
+
+  /* read the data */
+	   FITS_get_colnum(infits, CASEINSEN, "MJD", &tcolnum, &status) ;
+	   FITS_read_col(infits, TDOUBLE, tcolnum, frow, felem, npts, &intnull,
+			   mjd, &anynull, &status) ;
+
+	   FITS_get_colnum(infits, CASEINSEN, "I_FPD_MEAS_Q_VALID",
+		&qvalid_colnum, &status) ;
+	   FITS_read_col(infits, TINT, qvalid_colnum, frow, felem, npts,
+		&intnull, qvalid, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "I_FPD_Q_ECI2BDY_1",
+		&fpdquat1_colnum, &status) ;
+	   FITS_read_col(infits, TDOUBLE, fpdquat1_colnum , frow, felem, npts,
+		&intnull, fq1, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "I_FPD_Q_ECI2BDY_2",
+		&fpdquat2_colnum, &status) ;
+	   FITS_read_col(infits, TDOUBLE, fpdquat2_colnum , frow, felem, npts,
+		&intnull, fq2, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "I_FPD_Q_ECI2BDY_3",
+		&fpdquat3_colnum, &status) ;
+	   FITS_read_col(infits, TDOUBLE, fpdquat3_colnum , frow, felem, npts,
+		&intnull, fq3, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "AATTQECI2BDY_1",
+		&aquat1_colnum, &status) ;
+	   FITS_read_col(infits, TDOUBLE, aquat1_colnum , frow, felem, npts,
+		&intnull, aq1, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "AATTQECI2BDY_2",
+		&aquat2_colnum, &status) ;
+	   FITS_read_col(infits, TDOUBLE, aquat2_colnum, frow, felem, npts,
+		&intnull, aq2, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "AATTQECI2BDY_3",
+		&aquat3_colnum, &status) ;
+	   FITS_read_col(infits, TDOUBLE, aquat3_colnum, frow, felem, npts,
+		&intnull, aq3, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "I_AT_CMD_ATT", &acaflg_colnum,
+		&status) ;
+	   FITS_read_col(infits, TFLOAT, acaflg_colnum, frow, felem, npts,
+		&intnull, acaflg, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "AQECI2BDYCMD_1",
+		&acscmd1_colnum, &status) ;
+	   FITS_read_col(infits, TDOUBLE, acscmd1_colnum, frow, felem, npts,
+		&intnull, acscmd1, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "AQECI2BDYCMD_2",
+		&acscmd2_colnum, &status) ;
+	   FITS_read_col(infits, TDOUBLE, acscmd2_colnum, frow, felem, npts,
+		&intnull, acscmd2, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "AQECI2BDYCMD_3",
+		&acscmd3_colnum, &status) ;
+	   FITS_read_col(infits, TDOUBLE, acscmd3_colnum, frow, felem, npts,
+		&intnull, acscmd3, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "CENTROID1_STATUS",
+		¢s1_colnum, &status) ;
+	   FITS_read_col(infits, TINT, cents1_colnum, frow, felem, npts,
+		&intnull, cents1, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "CENTROID2_STATUS",
+		¢s2_colnum, &status) ;
+	   FITS_read_col(infits, TINT, cents2_colnum, frow, felem, npts,
+		&intnull, cents2, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "CENTROID3_STATUS",
+		¢s3_colnum, &status) ;
+	   FITS_read_col(infits, TINT, cents3_colnum, frow, felem, npts,
+		&intnull, cents3, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "CENTROID4_STATUS",
+		¢s4_colnum, &status) ;
+	   FITS_read_col(infits, TINT, cents4_colnum, frow, felem, npts,
+		&intnull, cents4, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "CENTROID5_STATUS",
+		¢s5_colnum, &status) ;
+	   FITS_read_col(infits, TINT, cents5_colnum, frow, felem, npts,
+		&intnull, cents5, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "CENTROID6_STATUS",
+		¢s6_colnum, &status) ;
+	   FITS_read_col(infits, TINT, cents6_colnum, frow, felem, npts,
+		&intnull, cents6, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "I_FPD_STARFLD_KNWN",
+		&sfknown_colnum, &status) ;
+	   FITS_read_col(infits, TINT, sfknown_colnum, frow, felem, npts,
+		&intnull, sfknown, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "I_FPD_NEW_CMD_Q", &slew_colnum,
+                &status) ;
+	   FITS_read_col(infits, TINT, slew_colnum, frow, felem, npts,
+		&intnull, slew, &anynull, &status) ;
+
+  /* close the input file */
+      FITS_close_file(infits, &status) ;
+
+  /* Check that the tabulated times start BEFORE the start of the
+	exposure.  Otherwise there may be missing data or an error
+	in the tabulated start time. */
+     tval=cf_nlong(floor((mjd[0]-tstrt) * 86400.));
+     if (tval > 0) {
+        cf_if_warning("Possible missing data or error in the start time.  "
+        "The first tabulated time is %ld seconds from obs start.", tval) ;
+	/* update JIT_STAT keyword */
+        dstatus = 5 ;
+        FITS_update_key(outfits, TINT, "JIT_STAT", &dstatus, 
+            "Problems with tab start time", &status) ;
+     }      
+
+  /* fill in the gaps in the data set 
+
+     - ACS quaternions are generally tabulated every other second
+     - FPD quaternions can be every second or every other second
+     - ACS flags (acaflg) - tabulated every 16 seconds
+
+     NOTE:  there can be irregularities in the spacing.  Thus, save the last
+     tabulated value and use this to fill in missing data for a given time. */
+
+  /* Array to track whether we can trust ACS q_meas for dx,dy computation */
+     aqsok = (int *) cf_calloc(npts, sizeof(int) ) ;
+
+  /* ACS quaternions. Fill up to aq_fill missing values with the last good one.
+     Set aqsok[i] to -1 if we leave a missing value missing.*/
+
+     /* aq_fill = 2 ; replace up to 2 consecutive missing values */
+
+     /* Fix for 2007:072:18:02 - 085:13:38, when ACS telemetry rate
+	was cut in half (MOCR 1902). */
+     aq_fill = 4;
+     aq1t = 0. ;
+     aq2t = 0. ;
+     aq3t = 0. ;
+     tflg = -1 ;
+
+     /* If the first ACS aq_fill values are missing,
+	use the one aq_fill steps later. */
+     for (i = aq_fill; i > 0; i--) if (aq1[i] > -1 && aq2[i] > -1) {
+	aq1t = aq1[i];
+	aq2t = aq2[i];
+	aq3t = aq3[i];
+	tflg = aq_fill;
+     }
+
+     for (i=0 ; i -1 && aq2[i] > -1 ) {
+         aqsok[i] = 0 ;
+         aq1t = aq1[i] ;
+         aq2t = aq2[i] ;
+         aq3t = aq3[i] ;
+         tflg = aq_fill ; /* fill factor */
+       } 
+       else if (tflg > 0) {
+         aqsok[i] = 0 ;
+         aq1[i] = aq1t ;
+         aq2[i] = aq2t ;
+         aq3[i] = aq3t ;
+         tflg-- ;
+       }
+     }    
+
+      /* FPD quaternions and qvalid flags 
+         Only update the one following a good quaternion. If there is
+	 another one with no quaternion after that, do not update it. */
+
+     fq1t = 0. ;
+     fq2t = 0. ;
+     fq3t = 0. ;
+     qvalidt = 0 ;
+     tflg = -1 ;
+      for (i=0 ; i 0.) && (fabs(fq2[i]) > 0.) ){
+
+   /* The ACS has a strict convention that the 4th component of the
+   quaternion be positive. But if it is close to zero, the IDS FPD
+   component may be negative. The housekeeping file only has components
+   1-3. As a best estimate, we will choose the sign of the FPD 4th
+   component so that the quaternion is closest in pointing to the ACS
+   quaternion. Only known tracking FPDs need to be corrected. */
+
+
+if (aq1[i] > -1 && aq2[i] > -1 && sfknown[i] == 1) {
+  quat_ref[0] = -aq1[i] ;
+  quat_ref[1] = -aq2[i] ;
+  quat_ref[2] = -aq3[i] ;
+  qnorm(quat_ref) ;
+  if (quat_ref[3] < 0.03) {
+    tquat[0] = fq1[i] ;
+    tquat[1] = fq2[i] ;
+    tquat[2] = fq3[i] ;
+    qnorm(tquat) ;
+    quatprod(tquat,quat_ref,dquat) ;
+    fq1t = dquat[0]*dquat[0] + dquat[1]*dquat[1] ;
+    tquat[3] = -tquat[3] ;
+    quatprod(tquat,quat_ref,dquat) ;
+    if (dquat[0]*dquat[0]+dquat[1]*dquat[1] < fq1t) {
+      fq1[i] = -fq1[i] ;
+      fq2[i] = -fq2[i] ;
+      fq3[i] = -fq3[i] ; 
+      n_invert++;
+    }
+  }
+}
+
+	  fq1t=fq1[i] ;
+	  fq2t=fq2[i] ;
+	  fq3t=fq3[i] ; 
+          qvalidt = qvalid[i] ;
+          cents1t = cents1[i] ;
+          cents2t = cents2[i] ;
+          cents3t = cents3[i] ;
+          cents4t = cents4[i] ;
+          cents5t = cents5[i] ;
+          cents6t = cents6[i] ;
+          sfknownt = sfknown[i] ;
+          slewt = slew[i] ;
+          tflg = 1 ; }
+        else if (tflg > 0) {
+          fq1[i] = fq1t ;
+          fq2[i] = fq2t ;
+          fq3[i] = fq3t ;
+          qvalid[i] = qvalidt ;
+          cents1[i] = cents1t ; 
+          cents2[i] = cents2t ; 
+          cents3[i] = cents3t ; 
+          cents4[i] = cents4t ; 
+          cents5[i] = cents5t ; 
+          cents6[i] = cents6t ; 
+          sfknown[i] = sfknownt ;
+          slew[i] = slewt ;
+          tflg = -1 ; }
+	}
+if (n_invert > 0) cf_verbose(1, "Number of known FPD quaternions inverted: %ld", n_invert);
+
+
+       /* ACAFLG flag */
+
+       tflg = -10 ;          
+
+       /* Assume that the first real ACA value is the one to start with. */
+	for (i = 0; i < npts-1; i++) if (acaflg[i] > -1) {
+	    tflg = acaflg[i];
+	    break;
+	}
+
+       for (i=0 ; i -1) tflg = acaflg[i] ;
+         else acaflg[i] = tflg ;
+        } 
+		       
+
+ /********** derive the final quats arrays and the tracking flags *******/
+
+  /*    set up arrays to contain the data */
+         time = (long *) cf_calloc(npts, sizeof(long) ) ;
+	 trakflg = (short *) cf_calloc(npts, sizeof(short) ) ; 
+         dx = (float *) cf_calloc(npts, sizeof(float) ) ;
+         dy = (float *) cf_calloc(npts, sizeof(float) ) ;
+
+ /* fill in the time array with times (in seconds) from the start
+	of the exposure */
+	 for (i=0 ; i 0 && sfknown[i] == 1) {
+	    rtime++ ;
+	    if (rtime == 1) qtime=time[i] ;
+	    if (rtime > 30 && acscmd1[i] > -1 &&
+	    	acscmd2[i] > -1 && acscmd3[i] > -1 ) {
+		quat_ref[0]=acscmd1[i] ;
+		quat_ref[1]=acscmd2[i] ;
+		quat_ref[2]=acscmd3[i] ;
+		qnorm(quat_ref);
+		qcmd_prob = 0;
+		break;
+	    }
+	}
+	else rtime=0 ; 
+    }
+
+     /* If rtime <= 30, then the flag was never set
+	and the reference quaternion not determined */
+    if (rtime <= 30 || force_target_coords) {
+
+	/* If user has requested target coordinates... */
+	if (force_target_coords) {
+	    cf_verbose(1, "Computing reference quaternion from target coordinates.");
+            dstatus = 2 ;
+            FITS_update_key(outfits, TINT, "JIT_STAT", &dstatus, 
+               "User requests use of target coordinates", &status) ;
+	}
+	/* If something is wrong... */
+	else {
+	 cf_verbose(1, "Problem determining the reference quaternions") ;
+         pflg = 0 ;
+	 for (i=0 ; i -1 &&
+                acscmd2[i] > -1 && acscmd3[i] > -1) pflg++ ;
+	 if (pflg <= 30) {
+               cf_verbose(1, " Commanded ACS quaternions not available.") ;
+         	/* update JIT_STAT keyword */
+               dstatus = 3 ;
+               FITS_update_key(outfits, TINT, "JIT_STAT", &dstatus, 
+               "Commanded ACS quaternions not available", &status) ;
+	 }
+
+         pflg = 0 ;
+	 for (i=0 ; i quat_ref[maxi]) maxi=i;
+     switch (maxi) {
+       case 0:  quat_ref[3] = quat_ref[0] ;
+                quat_ref[0] = (rot[7] - rot[5])/quat_ref[3]/4. ;
+                quat_ref[1] = (rot[2] - rot[6])/quat_ref[3]/4. ;
+                quat_ref[2] = (rot[3] - rot[1])/quat_ref[3]/4. ;
+                break ;
+       case 1:  quat_ref[0] = quat_ref[1] ;
+                quat_ref[3] = (rot[7] - rot[5])/quat_ref[0]/4. ;
+                if (quat_ref[3] < 0) {
+                  quat_ref[0] = -quat_ref[0] ;
+                  quat_ref[3] = -quat_ref[3] ;
+                } 
+                quat_ref[1] = (rot[1] + rot[3])/quat_ref[0]/4. ;
+                quat_ref[2] = (rot[2] + rot[6])/quat_ref[0]/4. ;
+                 break ; 
+       case 2:  quat_ref[1] = quat_ref[2] ;
+                quat_ref[3] = (rot[2] - rot[6])/quat_ref[1]/4. ;
+                if (quat_ref[3] < 0) {
+                  quat_ref[1] = -quat_ref[1] ; 
+                  quat_ref[3] = -quat_ref[3] ;
+                }
+                quat_ref[0] = (rot[1] + rot[3])/quat_ref[1]/4. ;
+                quat_ref[2] = (rot[5] + rot[7])/quat_ref[1]/4. ;
+                break ;
+       default: quat_ref[2] = quat_ref[3] ;
+                quat_ref[3]=(rot[3] - rot[1])/quat_ref[2]/4. ;
+                if (quat_ref[3] < 0) {
+                  quat_ref[2] = -quat_ref[2] ;
+                  quat_ref[3] = -quat_ref[3] ;
+                }
+                quat_ref[0] = (rot[6] + rot[2])/quat_ref[2]/4. ;
+                quat_ref[1] = (rot[5] + rot[7])/quat_ref[2]/4. ;
+     } 
+     
+     /* Compute x_offset due to FPA shift, first in microns, then in arcsec */
+     if (!strncmp(fescent, "FES A", 5)) x_off = 117. - fpalif1x;
+     else x_off = 175. - fpalif2x ;
+     x_off = x_off/10.88*cos(30.5/rad2deg) ;
+     y_off = 0. ;
+     
+     /* Now add in the aperture offset (in arcsec) */
+     if (strncmp(aper_id, "RFPT", 4)) {		/* If not RFPT, assume LWRS. */
+        x_off = x_off + 55.18 ;
+        y_off = 118.07 ;
+        if (!strncmp(aper_id, "MDRS", 4)) y_off = -90.18;
+        else if (!strncmp(aper_id, "HIRS", 4)) y_off = 10.27;
+        if (tstrt < 51708.9167) {
+          y_off = 112.07 ;
+          if (!strncmp(aper_id, "MDRS", 4)) y_off = -97.18;
+          else if (!strncmp(aper_id, "HIRS", 4)) y_off = 2.27;
+        } else if (tstrt < 51796.3000) {
+          y_off = 116.07 ;
+          if (!strncmp(aper_id, "MDRS", 4)) y_off = -93.18;
+          else if (!strncmp(aper_id, "HIRS", 4)) y_off = 6.27;
+        }
+     }
+     
+     /* Set up a slew for the offsets and update quat_ref to be the expected q_cmd */
+     dquat[0] = -y_off/2./206264.81; 
+     dquat[1] =  x_off/2./206264.81; 
+     dquat[2] = 0.; 
+     qnorm(dquat) ;
+     quatprod(dquat,quat_ref,tquat); 
+     for (i=0 ; i<4 ; i++) quat_ref[i] = tquat[i]; 
+
+    }
+
+    if (qcmd_prob < 0) {
+       FITS_update_key(outfits,TSTRING,"QREF_SRC","COORDINATES","Source of reference quaternion", &status) ;
+       cf_verbose(1, "Reference quat values derived from FITS header coordinates.");
+       cf_verbose(1, "Used x_off = %7.2f, y_off = %7.2f arcseconds.", x_off, y_off);
+    }
+    else {
+       FITS_update_key(outfits,TSTRING,"QREF_SRC","TELEMETRY","Source of reference quaternion", &status) ;
+       cf_verbose(1, "Reference quat values represent ACS commanded position.");
+    }
+
+    for (i=0; i<4 ; i++) cf_verbose(2, "for i=%ld, quat=%18.15f",i,quat_ref[i]) ;              
+    FITS_update_key(outfits,TDOUBLE,"QREF_0",quat_ref,"Reference quaternion", &status) ;
+    FITS_update_key(outfits,TDOUBLE,"QREF_1",quat_ref+1, NULL, &status) ;
+    FITS_update_key(outfits,TDOUBLE,"QREF_2",quat_ref+2, NULL, &status) ;
+    FITS_update_key(outfits,TDOUBLE,"QREF_3",quat_ref+3, NULL, &status) ;
+
+      /* Determine the shift in the quaternions and derive the changes
+	 in x and y that they represent:
+         DX (from q2 values : q2=dx/2) and DY (from q1 values : q1=-dy/2)
+         in arcseconds - the conversion factor used is the number of arcsec
+         per radian * 2 */
+
+/* Determine initial trakflg. If we had IDS telemetry but never reached known
+track, we want to start with trakflg_init=-1. If telemetry missing, temporarily
+set trakflg_init to -2. */
+
+trakflg_init=0 ; tflg=0 ;
+for (i=0 ; i -1) {  /* use ACA flag to say if IDS tlm missing */
+      tflg = 1 ;
+      break ;
+    }
+  }  
+  if (tflg == 0) trakflg_init = -2;   /* ktrk flag never=1 because IDS tlm missing */
+}
+
+/* set up aqsok array to flag whether ACS q_meas is a good estimate of pointing
+ -1 = ACS q_meas missing (from filling in the gaps earlier)
+  0 = don't trust it (e.g., in unknown track)
+  1 = trust it (had been in known track, so good for a while)
+  2 = maybe ok (started expo with IDS idled (or missing FPDs) and ACA=1)
+  3 = we corrected ACS q_meas during unknown track period from the 1st known q 
+*/
+
+/* First, if we got to known track at some point, correct ACS q's during unknown
+track that eventually got to known track (aqsok=3) by going backward in time.
+Look for transition from known to unknown and use the delta in ACS q's as an
+estimate of the dq from starID (dq_sid). Apply this to ACS q's while in unknown
+track. Because we filled missing ACS q's with previous ones, we have to skip by
+aq_fill values to make sure we have new q's when calculating dq_sid. */
+
+if (trakflg_init > -1) {
+  tflg = 0  ; /* used to indicate we have a dq_sid to apply */
+  for (i=npts-1 ; i>aq_fill ; i--) {
+    if (sfknown[i] == 1 && sfknown[i-aq_fill-1] == 1) {
+      tflg = 0 ; /* don't use previous dq_sid anymore */
+    }
+    else if (sfknown[i] == 1 && 	/* Now in known track */
+	(sfknown[i-aq_fill-1] == 0 && qvalid[i-aq_fill-1] == 1) &&  /* Were in unknown track */
+	tflg == 0 &&		/* We need to compute a quaternion. */
+        aqsok[i] > -1 && aqsok[i-aq_fill-1] > -1) {    /* calculate dq_sid */
+      tquat[0] = fq1[i] ;
+      tquat[1] = fq2[i] ;
+      tquat[2] = fq3[i] ;
+      qnorm(tquat) ;
+      aq_old[0] = -aq1[i-aq_fill-1] ;
+      aq_old[1] = -aq2[i-aq_fill-1] ;
+      aq_old[2] = -aq3[i-aq_fill-1] ;
+      qnorm(aq_old) ;
+      quatprod(tquat,aq_old,dq_sid) ;
+      tflg=1 ;
+    }
+    else if (sfknown[i] == 0 && tflg == 1 && aqsok[i] > -1) { /* correct ACS q_meas */
+      aq_old[0]=aq1[i] ;
+      aq_old[1]=aq2[i] ;
+      aq_old[2]=aq3[i] ;
+      qnorm(aq_old) ;
+      quatprod(dq_sid,aq_old,tquat) ;
+      aq1[i]=tquat[0] ;
+      aq2[i]=tquat[1] ;
+      aq3[i]=tquat[2] ;
+      aqsok[i]=3 ; /* ACS q_meas now believable */
+    }
+    else if (sfknown[i] == -1) {
+        tflg = 0 ; /* IDS idled or missing tlm */
+    }
+  }
+}               /* end trakflg > -1 */
+
+/* If IDS telemetry missing, start with trakflg=0, else don't trust ACS q's yet (trkflg = -1). */
+if (trakflg_init == -2) trakflg_init = 0; 
+else trakflg_init = -1;
+
+/* If we start in corrected unknown track, initialize trakflg to 4 or 1, else trakflg_init = -1. */
+if (aqsok[0] == 3) trakflg_init = 4 + qcmd_prob;
+
+/* If we're already in known track at the start, trakflg_init = 5 or 2. */
+if (sfknown[0] == 1) trakflg_init = 5 + qcmd_prob;
+
+/* Now assign aqsok 1-2 cases, trakflg, and compute dqs. First we need to 
+make quat_ref its inverse */
+quat_ref[3] = -quat_ref[3] ;
+
+/* if start with no FPDs and ACA=1, there may have been a previous exposure
+that lost track at the end. Set first aqsok to maybe ok. */
+if (sfknown[0] == -1 && acaflg[0] == 1 && aqsok[0] > -1) {
+	aqsok[0] = 2;
+	trakflg_init = 3;
+}
+
+trakflg[0] = trakflg_init ;
+for (i=1 ; i 0 || aqsok[i] > 0) { /* 1,2,3 = already had been trusting the ACS q's */
+     /* continue to trust them under the following conditions:
+        - we haven't done a slew and we started with q's maybe ok or corrected 
+        - IDS is idled or we have missing FPDs
+     */
+     if ( (aqsok[i-1] == 2 && acaflg[i] == 1) || (qvalid[i] < 1) || (aqsok[i] == 3) ) {
+	/* continue to trust them */
+      if (aqsok[i] != 3) aqsok[i] = aqsok[i-1]; 
+      if (aq1[i] == -1 && aq2[i] == -1) trakflg[i] = 0;
+      else if (aqsok[i] == 2) trakflg[i] = 3 ;
+      else trakflg[i] = 4 + qcmd_prob ;		/* aqsok=1,3 */
+
+      tquat[0]=aq1[i] ;
+      tquat[1]=aq2[i] ;
+      tquat[2]=aq3[i] ;
+      qnorm(tquat) ;
+      trakflg_init = 0 ;
+    } 
+    else if (qvalid[i] == 1) {
+	trakflg[i] = -1 ;
+	trakflg_init = -1;
+    }
+  }
+
+  if (trakflg[i] > 0 && tquat[0] > -1 && tquat[1] > -1) { 
+    quatprod(tquat,quat_ref,dquat) ;
+    dx[i] = (float) dquat[1]*206264.81*2. ;
+    dy[i] = (float) -dquat[0]*206264.81*2. ;
+  } 
+  else {
+    dx[i] = 0. ; dy[i] = 0. ;
+  }
+}
+
+
+/*Provide keywords in the top-level header which describe the exposure */
+
+   /* determine the time span in the jitter file (in seconds) and set EXP_DUR to
+        this value  */
+       expdur = (float) (time[npts-1] - time[0]) + 1. ;
+       FITS_update_key(outfits, TFLOAT, "EXP_DUR", &expdur, 
+         "[s] duration of jitter data", &status) ;
+
+       /* check for a short exposure and reset exptime if necessary */
+       if (time[npts-1] < exptime) {
+	 exptime = time[npts-1] ;
+         cf_verbose(1, "Short exposure. Reset exptime to %.0f",exptime) ;
+       }
+
+	 /* determine the statistics of the guiding */
+         numq5=0 ;
+         numq4=0 ;
+         numq3=0 ;
+         numq2=0 ;
+         numq1=0 ;
+         numq0=0 ;
+         numqa=0 ;
+
+	 for (i=0; i 0 && time[i] > 0 &&
+		time[i] <= exptime) 
+                   numq5++ ;
+           if(trakflg[i] == 4 && time[i] > 0 && time[i] <= exptime) numq4++ ;
+           if(trakflg[i] == 3 && time[i] > 0 && time[i] <= exptime) numq3++ ;
+           if(trakflg[i] == 2 && time[i] > 0 && time[i] <= exptime) numq2++ ;
+           if(trakflg[i] == 1 && time[i] > 0 && time[i] <= exptime) numq1++ ;
+           if(trakflg[i] == 0 && time[i] > 0 && time[i] <= exptime) numq0++ ;
+           if(trakflg[i] ==-1 && time[i] > 0 && time[i] <= exptime) numqa++ ; }
+
+         cf_verbose(2, "duration of jitter data = %.0f, exposure time = %.0f",
+		expdur, exptime) ;
+	 cf_verbose(2, "number of samples with trkflg =  5: %ld", numq5);
+	 cf_verbose(2, "number of samples with trkflg =  4: %ld", numq4);
+	 cf_verbose(2, "number of samples with trkflg =  3: %ld", numq3);
+	 cf_verbose(2, "number of samples with trkflg =  2: %ld", numq2);
+	 cf_verbose(2, "number of samples with trkflg =  1: %ld", numq1);
+	 cf_verbose(2, "number of samples with trkflg =  0: %ld", numq0);
+	 cf_verbose(2, "number of samples with trkflg = -1: %ld", numqa);
+
+
+       /* tfine, tcoarse and tnull are the fraction of the total exposure
+          when the exposure is in fine track, coarse track and no track */
+       tfine = (float) (numq2+numq5) /  exptime ;
+       tcoarse = (float) (numq1+numq3+numq4) /  exptime ;
+       tnull = (float) (numqa+numq0) /  exptime ;
+       FITS_update_key(outfits, TFLOAT, "KNOWNTRK", &tfine, 
+           "fraction of exp in known track", &status) ;
+       FITS_update_key(outfits, TFLOAT, "ACSTRK", &tcoarse, 
+           "fraction of exp in ACS track", &status) ;
+       FITS_update_key(outfits, TFLOAT, "NOGDEINF", &tnull, 
+           "fraction of exp with no guiding info", &status) ;
+
+       /* determine the properties of the guide stars */
+       ngs1=0. ;
+       ngs2=0. ;
+       ngs3=0. ;
+       ngs4=0. ;
+       ngs5=0. ;
+       ngs6=0. ;
+       for (i=0; i 0 && time[i] <= exptime) ngs1+=1. ;
+         if (cents2[i] == 2 && sfknown[i] == 1 && time[i] > 0 && time[i] <= exptime) ngs2+=1. ;
+         if (cents3[i] == 2 && sfknown[i] == 1 && time[i] > 0 && time[i] <= exptime) ngs3+=1. ;
+         if (cents4[i] == 2 && sfknown[i] == 1 && time[i] > 0 && time[i] <= exptime) ngs4+=1. ;
+         if (cents5[i] == 2 && sfknown[i] == 1 && time[i] > 0 && time[i] <= exptime) ngs5+=1. ;
+         if (cents6[i] == 2 && sfknown[i] == 1 && time[i] > 0 && time[i] <= exptime) ngs6+=1. ; }
+
+       /* convert to fraction of observing time */
+       ngs1 = ngs1 / exptime ;
+       ngs2 = ngs2 / exptime ;
+       ngs3 = ngs3 / exptime ;
+       ngs4 = ngs4 / exptime ;
+       ngs5 = ngs5 / exptime ;
+       ngs6 = ngs6 / exptime ;
+
+	/* determine the number of guide stars used during the exposure */
+	ngs_used = 0 ;
+	if (ngs1 > 0) ngs_used += 1 ; 
+	if (ngs2 > 0) ngs_used += 1 ; 
+	if (ngs3 > 0) ngs_used += 1 ; 
+	if (ngs4 > 0) ngs_used += 1 ; 
+	if (ngs5 > 0) ngs_used += 1 ; 
+	if (ngs6 > 0) ngs_used += 1 ; 
+	cf_verbose(2, "maximum number of guide stars used: %d",ngs_used) ;
+
+       /* Populate header keywords */
+        FITS_update_key(outfits, TINT, "NGS_USED", &ngs_used, 
+           "number of guide stars used", &status) ;
+        FITS_update_key(outfits, TFLOAT, "GS1_USED", &ngs1, 
+           "fraction of exp using known guide star 1", &status) ;
+        FITS_update_key(outfits, TFLOAT, "GS2_USED", &ngs2, 
+           "fraction of exp using known guide star 2", &status) ;
+        FITS_update_key(outfits, TFLOAT, "GS3_USED", &ngs3, 
+           "fraction of exp using known guide star 3", &status) ;
+        FITS_update_key(outfits, TFLOAT, "GS4_USED", &ngs4, 
+           "fraction of exp using known guide star 4", &status) ;
+        FITS_update_key(outfits, TFLOAT, "GS5_USED", &ngs5, 
+           "fraction of exp using known guide star 5", &status) ;
+        FITS_update_key(outfits, TFLOAT, "GS6_USED", &ngs6, 
+           "fraction of exp using known guide star 6", &status) ;
+
+	/* Determine times of known and unknown tracking and
+		tracking on the target */ 
+	knowntrk = 0. ;
+        acstrk = 0. ;
+        targtrk = 0. ;
+        gs_used = 0. ;
+	for (i=0 ; i< npts ; i++) {
+          if (qvalid[i] == 1 && time[i] > 0 && time[i] <= exptime) gs_used+=1.;
+          if ((trakflg[i] == 5 || trakflg[i] == 2) &&
+		fabs(dx[i]) < 15 && fabs(dy[i]) < 15 && time[i] > 0 && time[i] <= exptime) 
+                knowntrk += 1. ;
+          if ((trakflg[i] == 4 || trakflg[i] == 3 || trakflg[i] == 1) &&
+		fabs(dx[i]) < 15 && fabs(dy[i]) < 15 && time[i] > 0 && time[i] <= exptime) 
+                acstrk += 1. ; 
+          if (trakflg[i] > 0 &&
+                fabs(dx[i]) < 15 && fabs(dy[i]) < 15 && time[i] > 0 && time[i] <= exptime)
+	        targtrk += 1. ;
+     }
+        cf_verbose(2, "seconds when guide stars are used: %.0f",gs_used ) ;
+        cf_verbose(2, "seconds tracking on known stars with error < 15 arcsec: %.0f",knowntrk) ;
+        cf_verbose(2, "seconds tracking on ACS with error < 15 arcsec: %.0f", acstrk) ;
+        cf_verbose(2, "seconds tracking on target with error < 15 arcsec: %.0f",targtrk ) ;
+	knowntrk = knowntrk /  exptime ;
+	acstrk = acstrk / exptime ;
+        targtrk = targtrk / exptime ;
+        gs_used = gs_used / exptime ;
+         FITS_update_key(outfits, TFLOAT, "KTRKFINE", &knowntrk, 
+            "exp fraction, err < 15 arcsec, known stars", &status) ;
+         FITS_update_key(outfits, TFLOAT, "ATRKFINE", &acstrk, 
+            "exp fraction, err < 15 arcsec, ACS", &status) ;
+        FITS_update_key(outfits, TFLOAT, "TOTLFINE", &targtrk, 
+            "exp fraction, err < 15 arcsec, total", &status) ;
+        FITS_update_key(outfits, TFLOAT, "GS_INUSE", &gs_used, 
+            "fraction of exp tracking on guide stars", &status) ;
+
+
+	/* determine whether a new attitude is commanded during the exposure */
+        slewflg = -1 ;
+	for (i=0; i 0 && time[i] > 0 && time[i] <= exptime) {
+		slewflg = 1 ;
+		break;
+	}
+        FITS_update_key(outfits, TINT, "SLEWFLG", &slewflg, 
+            "Slew commanded during obs (if > 0)", &status) ;
+        if (slewflg > 0) cf_verbose(1, "SLEW COMMANDED DURING EXPOSURE!!!") ; 
+
+	/* determine the slewing time - note that there is a 16s time
+           resolution on the sampling of acaflg. Thus, slews of less than 16s
+           are not real */
+        slewtime=0 ;
+        FITS_update_key(outfits, TINT, "SLEWTIME", &slewtime, 
+            "time spent slewing (sec)", &status) ;
+
+        for (i=0; i 0 && time[i] <= exptime ) slewtime++ ;
+        if (slewtime > 16) {
+             FITS_update_key(outfits, TINT, "SLEWTIME", &slewtime, 
+                "time spent slewing (sec)", &status) ;
+             slewflg=1 ;
+             FITS_update_key(outfits, TINT, "SLEWFLG", &slewflg, 
+                "slew commanded during obs (if > 0)", &status) ;
+             cf_verbose(1, "SLEW OCCURRED DURING EXPOSURE!!!") ;
+             cf_verbose(2, "Time (sec) spent slewing = %d",slewtime) ;
+	} 
+
+	/* determine basic properties of the jitter */
+	dxrms = 0. ;
+        dxrms5 = 0. ;
+        dyrms = 0. ;
+        dyrms5 = 0. ;
+        dxave = 0. ;
+        dyave = 0. ;
+        nvalid = 0 ;
+        nvalid5 = 0 ;
+	for (i=0 ; i< npts ; i++) 
+	  if(sfknown[i] == 1 && acaflg[i] == 1 && time[i] > qtime && time[i] <= exptime) {
+	    cf_verbose(4, "i = %ld, dx = %f, dy = %f", i, dx[i], dy[i]);
+            nvalid += 1 ;
+            dxrms += dx[i]*dx[i]  ;
+            dxave += dx[i] ;
+            dyrms += dy[i] * dy[i] ;
+            dyave += dy[i] ;
+            if (fabs(dx[i]) < 15 && fabs(dy[i]) < 15) {
+              dxrms5 += dx[i] * dx[i] ;
+              dyrms5 += dy[i] * dy[i] ;
+              nvalid5 += 1 ; }
+	  }
+        cf_verbose(2, "number of points used to determine rms jitter = %d", nvalid) ;
+  
+	if (nvalid > 0) dxrms = sqrt( dxrms / (float) nvalid) ;
+	if (nvalid > 0) dyrms = sqrt( dyrms / (float) nvalid) ;
+	if (nvalid5 > 0) dxrms5 = sqrt( dxrms5 / (float) nvalid5) ;
+	if (nvalid5 > 0) dyrms5 = sqrt( dyrms5 / (float) nvalid5) ;
+        if (nvalid > 0) dxave = dxave / (float) nvalid ;
+        if (nvalid > 0) dyave = dyave / (float) nvalid ;
+        cf_verbose(2, "jitter properties:") ;
+	cf_verbose(2, "dxave = %f, dxrms=%f, dxrms5 = %f", dxave, dxrms, dxrms5) ;
+	cf_verbose(2, "dyave = %f, dyrms=%f, dyrms5 = %f", dyave, dyrms, dyrms5) ;
+          FITS_update_key(outfits, TFLOAT, "POSAVG_X", &dxave, 
+            "[arcsec] mean DX during known track", &status) ;
+          FITS_update_key(outfits, TFLOAT, "POSAVG_Y", &dyave, 
+            "[arcsec] mean DY during known track", &status) ;
+
+          FITS_update_key(outfits, TFLOAT, "X_JITTER", &dxrms, 
+            "[arcsec] sigma of DX during known track", &status) ;
+          FITS_update_key(outfits, TFLOAT, "Y_JITTER", &dyrms, 
+            "[arcsec] sigma of DY during known track", &status) ;
+
+          FITS_update_key(outfits, TFLOAT, "XJIT_15", &dxrms5, 
+            "[arcsec] sigma of DX for err < 15 arcsec", &status) ;
+          FITS_update_key(outfits, TFLOAT, "YJIT_15", &dyrms5, 
+            "[arcsec] sigma of DY for err < 15 arcsec", &status) ;
+
+  /* determine fraction of exposure where the dy and dx values exceed 2 
+     sigma from the mean */
+          jitlgx=0 ;
+          jitlgy=0 ;
+	  for (i=0 ; i 2.*dxrms) jitlgx++ ;
+            if ( fabs(dy[i]) > 2.*dyrms) jitlgy++ ;
+		}
+
+	  fjitlgx= (float) jitlgx / (float) npts ;
+	  fjitlgy = (float) jitlgy / (float) npts ;
+
+          FITS_update_key(outfits, TFLOAT, "X_JITLRG", &fjitlgx, 
+            "frac of DX more than 2-sigma from POSAVE_X", &status) ;
+          FITS_update_key(outfits, TFLOAT, "Y_JITLRG", &fjitlgy, 
+            "frac of DY more than 2-sigma from POSAVE_Y", &status) ;
+
+
+
+  /******* Generate the table and put in guiding info *****/
+  
+      tfields = 4 ; 
+  	 FITS_create_tbl(outfits, BINARY_TBL, 0, tfields, ttype,
+		  tform, tunit, textname, &status) ;
+
+      fits_get_colnum(outfits, TRUE, "TIME", &tcol, &status) ;
+      FITS_write_col(outfits, TLONG, tcol, 1, 1, npts, time, &status) ;
+      fits_get_colnum(outfits, TRUE, "DX", &dxcol, &status) ;
+      FITS_write_col(outfits, TFLOAT, dxcol, 1, 1, npts, dx, &status) ;
+      fits_get_colnum(outfits, TRUE, "DY", &dycol, &status) ;
+      FITS_write_col(outfits, TFLOAT, dycol, 1, 1, npts, dy, &status) ;
+      fits_get_colnum(outfits, TRUE, "TRKFLG", &trkcol, &status) ;
+      FITS_write_col(outfits, TSHORT, trkcol, 1, 1, npts, trakflg, &status) ;
+
+ /**********************************************************************/
+
+    /* Set the status flag to 0 -- unless it has already been changed. */
+    if (dstatus == 1) {
+       FITS_movabs_hdu(outfits, 1, &hdutype, &status) ;
+       dstatus = 0 ;
+       FITS_update_key(outfits, TINT, "JIT_STAT", &dstatus, 
+            "Status of jitter data is good", &status) ;
+    }
+
+    /* close the output file */
+    FITS_close_file(outfits, &status) ; 
+
+    /* free up storage space */
+    free(mjd) ;
+    free(qvalid) ;
+    free(fq1) ;
+    free(fq2) ;
+    free(fq3) ;
+    free(aq1) ;
+    free(aq2) ;
+    free(aq3) ;
+    free(aqsok) ;
+    free(acscmd1) ;
+    free(acscmd2) ;
+    free(acscmd3) ;
+    free(time) ;
+    free(trakflg) ;
+    free(dx) ;
+    free(dy) ;
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished execution.");
+
+    return 0 ;
+} 
diff --git a/src/cal/jitter/cf_jitter_diag.c b/src/cal/jitter/cf_jitter_diag.c
new file mode 100644
index 0000000..1908458
--- /dev/null
+++ b/src/cal/jitter/cf_jitter_diag.c
@@ -0,0 +1,916 @@
+/**************************************************************************
+ *           Johns Hopkins University  
+ *          Center for Astrophysical Sciences    
+ *           FUSE
+ *************************************************************************
+ *
+ * synopsis:    cf_jitter_diag input_file raw_file output_file      
+ *
+ * Description: Reads a FITS file containing housekeeping data and
+ *              generates a FITS file containing the jitter information 
+ *              for the observation. This program is used to generate 
+ *              diagnostics of the jitter performance during an observation
+ *
+ * Arguments: input_file    Input raw FITS housekeeping file for an observation
+ *                            The header of this is used as a template
+ *                            for the output file
+ *            raw_file      Raw data file - used to get the start time and the 
+ *                            exposure time
+ *            output_file   FITS table containing the jitter information 
+ *     
+ * 
+ *Contents of output file: 
+ *   1. Time of sample (in seconds from start)
+ *   2. shifts dx and dy (in arcsec) of the pointing from a reference position
+ *   3. tracking quality flag (best=5, worst=0)
+ *
+ *                                 
+ * HISTORY:       01/22/02   v1.0     Robinson  Begin work
+ *                08/14/02   v1.1     Robinson  populate JIT_STATUS keyword
+ *                09/20/02   v1.11    Robinson  - update FILENAME, FILETYPE keywords
+ *                                              - change EXP_DUR keyword to reflect
+ *                                                total time duration of jitter data
+ *                11/04/02   v1.2     Robinson  change method in which gaps are filled
+ *                                              we no longer assume that the data is 
+ *                                              tabulated at regular intervals. Also 
+ *                                              checks that tabulated times start BEFORE
+ *                                              the observation start time
+ *                12/17/02   v1.3     Robinson  Slight change in definitions of TRAKFLG
+ *                                              values.
+ *                01/17/03   v1.4     Robinson  slight change in calculating summary of
+ *                                              jitter properties
+ *                05/22/03   v1.5     rdr       changed initialization of arrays
+ *                06/10/03   v1.6     rdr       Correct problem in determining ref 
+ *                                              quaternian
+ *                06/23/03   v1.7     rdr       Adjust calculation on some of the 
+ *                                               keywords
+ *                06/25/03   v1.8     rdr       Added call to raw data file to determine
+ *                                               actual start and exposure times
+ *                06/27/03   v1.9     rdr       Corrected procedure for determining 
+ *                                               reference quaternian
+ *                03/03/04   v1.10    bjg       include unistd.h
+ *		  06/24/05   v1.11    wvd       Delete unused variables.
+ *		  08/24/07   v1.12    bot       changed TINT to TLONG for time l.826.
+ *
+ **************************************************************************/
+#include 
+#include    
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+static char CF_PRGM_ID[] = "cf_jitter_diag";   
+static char CF_VER_NUM[] = "1.12";  
+
+int quatprod(double *, double *, double *) ;    
+
+int main(int argc, char *argv[])  
+{
+  FILE *output, *ftest ;
+  fitsfile *infits, *outfits ;
+  int hdutype, tfields, dstatus ;
+  int nvalid, nvalid5, optc, rtime ;
+  int aattmode_colnum, pflg=0 ;
+  int *aattflg, tflg, qvalidt ;
+  int tcolnum, fpdquat1_colnum,  fpdquat2_colnum,  fpdquat3_colnum ;
+  int aquat1_colnum, aquat2_colnum, aquat3_colnum, slew_colnum ;
+  int status, tcol;
+  int dxcol, dycol, trkcol, anynull, intnull=0 ;
+  int fpdexp_colnum, qvalid_colnum, cents1_colnum, cents2_colnum, cents3_colnum ;
+  int cents4_colnum, cents5_colnum, cents6_colnum, acsflg_colnum ;
+  int acscmd1_colnum, acscmd2_colnum, acscmd3_colnum, sfknwn_colnum ;
+  int frow, felem, slewflg, ngs_used, jitlgx, jitlgy ;
+  int *cents1, *cents2, *cents3, *cents4, *cents5, *cents6 , *qvalid ;
+  int *sfknwn, *slew ;
+  int cents1t=0, cents2t=0, cents3t=0, cents4t=0, cents5t=0, cents6t=0 ;
+  int sfknwnt=0 , slewt=0, slewtime=0 ;
+  long i, j, numq4, numq5, numq3, numq2, numqa, numq0 ; 
+  long  npts, tval ;
+  long *time, qtime=0;
+  float tfine, tcoarse, tnull, knowntrk, unknowntrk, fjitlgx, fjitlgy ;
+  float targtrk ;
+  float ngs1, ngs2, ngs3, ngs4, ngs5, ngs6, gs_used, expdur, exptime ;
+  float dxrms, dyrms, dxave, dyave, dxrms5, dyrms5 ;
+  float *fpdexp, *acsflg ;
+  float *dx , *dy ;
+  double *fq1, *fq2,*fq3, *dq1, *dq2, *dq3, *mjd ;
+  double *acscmd1, *acscmd2, *acscmd3, fq1t, fq2t, fq3t  ;
+  double tstrt ;
+  double tquat[4], dquat[4], quat_ref[4] ;
+  double *aq1, *aq2, *aq3, aq1t, aq2t, aq3t ;
+  short *trakflg ;
+  char buffer[FLEN_CARD];
+  char *ttype[] = { "TIME", "DX", "DY", "TRKFLG" } ;
+  char *tform[] = { "1J", "1E", "1E", "1I" } ;
+  char *tunit[] = { "seconds", "arcsec", "arcsec", " "} ;
+  char textname[7]="jitter" ;
+
+char opts[] = "hv:";
+    char usage[] =
+	"Usage:\n"
+	"  cf_jitr_diag [-h] [-v level] hskpfile rawfile outfile\n";
+    char option[] = 
+	"Options:\n"
+	"  -h:  this help message\n"
+	"  -v:  verbosity level (=1; 0 is silent)\n";
+
+    verbose_level = 1;
+
+    while ((optc = getopt(argc, argv, opts)) != -1) {
+	switch(optc) {
+
+	case 'h':
+	    printf("%s\n%s", usage, option);
+	    return 0;
+	case 'v':
+	    verbose_level = atoi(optarg);
+	    break;
+	}
+    }
+
+  cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    if (argc != optind+3) {
+        printf("%s", usage);
+        cf_if_error("Incorrect number of arguments");
+    }
+
+  cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin execution");
+
+  /* initialize necessary variables */
+  hdutype=0 ;
+  status=0 ;
+  frow=1 ;
+  felem=1 ;
+  anynull=0 ;
+
+
+  /* check that the housekeeping and raw data files are available */
+  cf_verbose(3,"checking for housekeeping file : %s ",argv[optind]) ;
+  ftest=fopen(argv[optind],"r") ;
+   if (ftest == NULL) {
+      cf_verbose(1,"No input housekeeping file available - returning ") ;
+      return 0; }
+   fclose( ftest ) ;
+  ftest=fopen(argv[optind+1],"r") ;
+   if (ftest == NULL) {
+      cf_verbose(1,"No input raw data file available - returning ") ;
+      return 0; }
+   fclose( ftest ) ;
+
+ /* Open the input raw data FITS file and read the start and exposure times */
+  cf_verbose(3,"opening the file %s for input ",argv[optind+1]);
+  FITS_open_file(&infits, argv[optind+1], READONLY, &status); 
+ 
+  /* read the starting time and duration  from the FITS header */
+  FITS_read_key(infits, TDOUBLE, "EXPSTART", &tstrt, buffer, &status) ;
+  cf_verbose(3,"start time (MJD) = %15.9f ",tstrt) ;
+  FITS_read_key(infits, TFLOAT, "EXPTIME", &exptime, buffer, &status) ;
+  exptime=(int) exptime ;
+   cf_verbose(3,"exposure duration (sec) = %f ",exptime) ;
+
+   /* close the raw data file and open the housekeeping file */
+      FITS_close_file(infits, &status) ;
+      FITS_open_file(&infits, argv[optind], READONLY, &status); 
+ 
+      /* check for the existance of the output file */      
+      output = fopen(argv[optind+2], "r") ; 
+      if (output != NULL) {
+        cf_verbose(1,"output file already exists - returning ") ;
+        return 1 ; } 
+      else fclose(output) ;  
+
+  /* Create the output file */
+     FITS_create_file(&outfits, argv[optind+2], &status); 
+
+  /* Copy the header and empty primary image of the input file to 
+     the output */
+     FITS_copy_hdu(infits, outfits, 0, &status) ;
+
+     /* populate the STATUS keyword with 1 - 
+        will reset keyword if everyhing goes well */
+     dstatus = 1 ;
+       FITS_update_key(outfits, TINT, "JIT_STAT", &dstatus, 
+            "problems with jitter data", &status) ;
+
+   /* update FILENAME, FILETYPE, EXPTIME and EXPSTART keywords */
+     FITS_update_key(outfits, TSTRING, "FILENAME",argv[optind+2], NULL, &status) ;
+     FITS_update_key(outfits, TSTRING, "FILETYPE","JITTER", NULL, &status) ;
+     FITS_update_key(outfits, TFLOAT, "EXPTIME",&exptime, NULL, &status) ;
+     FITS_update_key(outfits, TDOUBLE, "EXPSTART",&tstrt, NULL, &status) ;
+
+  /* move to the first extension, which contains the table */
+     FITS_movabs_hdu(infits, 2, &hdutype, &status) ;
+
+  /* determine the number of times which have been tabulated */
+     FITS_read_key(infits, TLONG, "NAXIS2", &npts, NULL, &status) ;
+     cf_verbose(3,"number of samples in the table = %d ",npts) ;
+
+  /*   set up arrays to contain the data to be read from the table  */
+           mjd = (double *) cf_calloc(npts, sizeof(double)) ;
+           fpdexp = (float *) cf_calloc(npts, sizeof(float) ) ;
+           qvalid = (int *) cf_calloc(npts, sizeof(int)) ;
+           fq1 = (double *) cf_calloc(npts, sizeof(double) ) ;
+           fq2 = (double *) cf_calloc(npts, sizeof(double) ) ;
+           fq3 = (double *) cf_calloc(npts, sizeof(double) ) ;
+           aq1 = (double *) cf_calloc(npts, sizeof(double) ) ;
+           aq2 = (double *) cf_calloc(npts, sizeof(double) ) ;
+           aq3 = (double *) cf_calloc(npts, sizeof(double)) ; 
+	   aattflg = (int *) cf_calloc(npts, sizeof(int)) ;
+           acsflg = (float *) cf_calloc(npts, sizeof(float)) ;
+           acscmd1 = (double *) cf_calloc(npts, sizeof(double)) ; 
+           acscmd2 = (double *) cf_calloc(npts, sizeof(double) ) ; 
+           acscmd3 = (double *) cf_calloc(npts, sizeof(double) ) ; 
+           cents1 = (int *) cf_calloc(npts, sizeof(int)) ;
+           cents2 = (int *) cf_calloc(npts, sizeof(int) ) ;
+           cents3 = (int *) cf_calloc(npts, sizeof(int) ) ;
+           cents4 = (int *) cf_calloc(npts, sizeof(int) ) ;
+           cents5 = (int *) cf_calloc(npts, sizeof(int) ) ;
+           cents6 = (int *) cf_calloc(npts, sizeof(int) ) ;
+           sfknwn = (int *) cf_calloc(npts, sizeof(int) ) ;
+           slew = (int *) cf_calloc(npts, sizeof(int) ) ;
+
+  /* read the data */
+	   FITS_get_colnum(infits, CASEINSEN, "MJD", &tcolnum, &status) ;
+	   cf_verbose(5,"column number for time = %d ",tcolnum) ; 
+	     FITS_read_col(infits, TDOUBLE, tcolnum, frow, felem, npts, &intnull,
+			   mjd, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "I_FPD_EXP_DURATION", &fpdexp_colnum, 
+                   &status) ;
+	   /*printf("column number for fdpexp = %d \n",fpdexp_colnum) ;*/
+	     FITS_read_col(infits, TFLOAT, fpdexp_colnum, frow, felem, npts, &intnull,
+		     fpdexp, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "I_FPD_MEAS_Q_VALID", &qvalid_colnum, 
+                  &status) ;
+	   /*printf("column number for qvalid = %d \n",qvalid_colnum) ;*/
+	     FITS_read_col(infits, TINT, qvalid_colnum, frow, felem, npts, &intnull,
+			   qvalid, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "I_FPD_Q_ECI2BDY_1", &fpdquat1_colnum, 
+                  &status) ;
+	   /*printf("column number for fq1 = %d \n",fpdquat1_colnum) ;*/
+	     FITS_read_col(infits, TDOUBLE, fpdquat1_colnum , frow, felem, npts, &intnull,
+			  fq1, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "I_FPD_Q_ECI2BDY_2", &fpdquat2_colnum, 
+                  &status) ;
+	   /*printf("column number for fq2 = %d \n",fpdquat2_colnum) ;*/
+	     FITS_read_col(infits, TDOUBLE, fpdquat2_colnum , frow, felem, npts, &intnull,
+			   fq2, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "I_FPD_Q_ECI2BDY_3", &fpdquat3_colnum, 
+                  &status) ;
+	   /*printf("column number for fq3 = %d \n",fpdquat3_colnum) ;*/
+	     FITS_read_col(infits, TDOUBLE, fpdquat3_colnum , frow, felem, npts, &intnull,
+			   fq3, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "AATTQECI2BDY_1", &aquat1_colnum, &status) ;
+	   /*printf("column number for aq1 = %d \n",aquat1_colnum) ;*/
+	     FITS_read_col(infits, TDOUBLE, aquat1_colnum , frow, felem, npts, &intnull,
+			   aq1, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "AATTQECI2BDY_2", &aquat2_colnum, &status) ;
+	   /*printf("column number for aq2 = %d \n",aquat2_colnum) ;*/
+	     FITS_read_col(infits, TDOUBLE, aquat2_colnum, frow, felem, npts, &intnull,
+			   aq2, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "AATTQECI2BDY_3", &aquat3_colnum, &status) ;
+	   /*printf("column number for aq3 = %d \n",aquat3_colnum) ;*/
+	     FITS_read_col(infits, TDOUBLE, aquat3_colnum, frow, felem, npts, &intnull,
+			   aq3, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "AATTMODE", &aattmode_colnum, &status) ;
+	   /*printf("column number for aattmode = %d \n",aattmode_colnum) ;*/
+	     FITS_read_col(infits, TINT, aattmode_colnum, frow, felem, npts, &intnull,
+			   aattflg, &anynull, &status) ;
+
+	   FITS_get_colnum(infits, CASEINSEN, "I_AT_CMD_ATT", &acsflg_colnum, &status) ;
+	   /*printf("column number for acsflg = %d \n",acsflg_colnum) ;*/
+	     FITS_read_col(infits, TFLOAT, acsflg_colnum, frow, felem, npts, &intnull,
+			   acsflg, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "AQECI2BDYCMD_1", &acscmd1_colnum, &status) ;
+	   /*printf("column number for acscmd1 = %d \n",acscmd1_colnum) ;*/
+	     FITS_read_col(infits, TDOUBLE, acscmd1_colnum, frow, felem, npts, &intnull,
+			   acscmd1, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "AQECI2BDYCMD_2", &acscmd2_colnum, &status) ;
+	   /*printf("column number for acscmd2 = %d \n",acscmd2_colnum) ;*/
+	     FITS_read_col(infits, TDOUBLE, acscmd2_colnum, frow, felem, npts, &intnull,
+			   acscmd2, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "AQECI2BDYCMD_3", &acscmd3_colnum, &status) ;
+	   /* printf("column number for acscmd3 = %d \n",acscmd3_colnum) ;*/
+	     FITS_read_col(infits, TDOUBLE, acscmd3_colnum, frow, felem, npts, &intnull,
+			   acscmd3, &anynull, &status) ;
+
+	   FITS_get_colnum(infits, CASEINSEN, "CENTROID1_STATUS", ¢s1_colnum,
+                &status) ;
+	   /* printf("column number for guide star 1 status = %d \n",cents1_colnum) ; */
+	     FITS_read_col(infits, TINT, cents1_colnum, frow, felem, npts, &intnull,
+			   cents1, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "CENTROID2_STATUS", ¢s2_colnum,
+                &status) ;
+	   /* printf("column number for guide star 2 status = %d \n",cents2_colnum) ; */
+	     FITS_read_col(infits, TINT, cents2_colnum, frow, felem, npts, &intnull,
+			   cents2, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "CENTROID3_STATUS", ¢s3_colnum,
+                &status) ;
+	   /* printf("column number for guide star 3 status = %d \n",cents3_colnum) ; */
+	     FITS_read_col(infits, TINT, cents3_colnum, frow, felem, npts, &intnull,
+			   cents3, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "CENTROID4_STATUS", ¢s4_colnum,
+                &status) ;
+	   /* printf("column number for guide star 4 status = %d \n",cents4_colnum) ; */
+	     FITS_read_col(infits, TINT, cents4_colnum, frow, felem, npts, &intnull,
+			   cents4, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "CENTROID5_STATUS", ¢s5_colnum,
+                &status) ;
+	   /* printf("column number for guide star 5 status = %d \n",cents5_colnum) ; */
+	     FITS_read_col(infits, TINT, cents5_colnum, frow, felem, npts, &intnull,
+			   cents5, &anynull, &status) ;
+	   FITS_get_colnum(infits, CASEINSEN, "CENTROID6_STATUS", ¢s6_colnum,
+                &status) ;
+	   /* printf("column number for guide star 6 status = %d \n",cents6_colnum) ; */
+	     FITS_read_col(infits, TINT, cents6_colnum, frow, felem, npts, &intnull,
+			   cents6, &anynull, &status) ;
+
+	   FITS_get_colnum(infits, CASEINSEN, "I_FPD_STARFLD_KNWN", &sfknwn_colnum,
+                &status) ;
+	   /* printf("column number for starfield known status = %d \n",sfknwn_colnum) ; */
+	     FITS_read_col(infits, TINT, sfknwn_colnum, frow, felem, npts, &intnull,
+			   sfknwn, &anynull, &status) ;
+
+	   FITS_get_colnum(infits, CASEINSEN, "I_FPD_NEW_CMD_Q", &slew_colnum,
+                &status) ;
+	   /* printf("column number for slew status = %d \n",slew_colnum) ; */
+	     FITS_read_col(infits, TINT, slew_colnum, frow, felem, npts, &intnull,
+			   slew, &anynull, &status) ;
+
+
+  /* close the input file */
+      FITS_close_file(infits, &status) ;
+
+  /* check for problems with the tabulated start time */
+      if (fabs(mjd[0]-tstrt) > 1) {
+	cf_verbose(1,"Problems with tabulated start time ") ;
+        cf_verbose(1,"  Value of tabulated start time = %15.7f ",tstrt) ;
+        cf_verbose(1,"  First tabulated MJD = %15.7f ",mjd[0]) ;
+	/* update JIT_STAT keyword */
+          dstatus = 1 ;
+          FITS_update_key(outfits, TINT, "JIT_STAT", &dstatus, 
+            "problems with tab start time", &status) ;
+        FITS_close_file(outfits, &status) ;
+	return 1; }
+
+  /* make sure that the tabulates times start BEFORE the start of the observation,
+     Otherwise there may be missing data or an error in the tabulated start time */
+       tval=(long) (0.5 + (mjd[0]-tstrt) * 86400.) ;
+      if (tval > 0) {
+       cf_verbose(1,"WARNING: There may be missing data or an error in the start time \n") ;
+       cf_verbose(1,"         The first tabulated time is %d seconds from obs start ", tval) ;
+	/* update JIT_STAT keyword */
+          dstatus = 1 ;
+          FITS_update_key(outfits, TINT, "JIT_STAT", &dstatus, 
+            "problems with tab start time", &status) ;
+        FITS_close_file(outfits, &status) ;
+        return 1 ;
+ }      
+
+
+  /* fill in the gaps in the data set 
+
+     - ACS quaternians are generally tabulated every other second
+     - FPD quaternians can be every second or every other second
+     - AATTMODE flags tabulates every 5 seconds
+     - ACS flags (acsflg) - tabulated every 16 seconds
+
+NOTE:  there can be irregularities in the spacing. Thus, save the last
+tabulated value and use this in filling in missing data for a given time */
+
+      /* ACS quaternians */
+      aq1t = 0. ;
+      aq2t = 0. ;
+      aq3t = 0. ;
+      for (i=0 ; i -1 && aq2[i] > -1){
+	  aq1t=aq1[i] ;
+	  aq2t=aq2[i] ;
+	  aq3t=aq3[i] ; }
+        else {
+          aq1[i] = aq1t ;
+          aq2[i] = aq2t ;
+          aq3[i] = aq3t ; }
+	}
+
+      /* FPD quaternians and qvalid flags 
+         only update the one following a good quaternian. if there is another one
+         with no quaternian after that, do not update it */
+
+     fq1t = 0. ;
+     fq2t = 0. ;
+     fq3t = 0. ;
+     qvalidt = 0 ;
+     tflg = -1 ;
+      for (i=0 ; i 0.) && (fabs(fq2[i]) > 0.) ){
+	  fq1t=fq1[i] ;
+	  fq2t=fq2[i] ;
+	  fq3t=fq3[i] ; 
+          qvalidt = qvalid[i] ;
+          cents1t = cents1[i] ;
+          cents2t = cents2[i] ;
+          cents3t = cents3[i] ;
+          cents4t = cents4[i] ;
+          cents5t = cents5[i] ;
+          cents6t = cents6[i] ;
+          sfknwnt = sfknwn[i] ;
+          slewt = slew[i] ;
+          tflg = 1 ; }
+        else if (tflg > 0) {
+          fq1[i] = fq1t ;
+          fq2[i] = fq2t ;
+          fq3[i] = fq3t ;
+          qvalid[i] = qvalidt ;
+          cents1[i] = cents1t ; 
+          cents2[i] = cents2t ; 
+          cents3[i] = cents3t ; 
+          cents4[i] = cents4t ; 
+          cents5[i] = cents5t ; 
+          cents6[i] = cents6t ; 
+          sfknwn[i] = sfknwnt ;
+          slew[i] = slewt ;
+          tflg = -1 ; }
+	}
+
+
+       /* AATTMODE flag - update as long as quaternians are
+          present */
+ 
+       tflg = -1 ;          
+       for (i=0 ; i -1) tflg = aattflg[i] ;
+         else {
+	     aattflg[i] = -10 ;
+             if (aq1[i] > -1) aattflg[i]=3 ;
+      	     if ((fabs(fq1[i]) > 0.) && ( fabs(fq2[i]) > 0. ) ) aattflg[i]=tflg ; }
+        } 
+
+
+       /* ACSFLG flag */
+
+       tflg = -10 ;          
+       for (i=0 ; i -1) tflg = acsflg[i] ;
+         else acsflg[i] = tflg ;
+        } 
+		       
+
+ /********** derive the final quats arrays and the tracking flags *******/
+
+  /*    set up arrays to contain the data */
+         time = (long *) cf_calloc(npts, sizeof(long) ) ;
+	 trakflg = (short *) cf_calloc(npts, sizeof(short) ) ; 
+         dq1 = (double *) cf_calloc(npts, sizeof(double) ) ;
+         dq2 = (double *) cf_calloc(npts, sizeof(double)) ;
+         dq3 = (double *) cf_calloc(npts, sizeof(double) ) ;
+         dx = (float *) cf_calloc(npts, sizeof(float) ) ;
+         dy = (float *) cf_calloc(npts, sizeof(float) ) ;
+
+ /* fill in the time array with times (in seconds) from the start of the observation */
+	 for (i=0 ; i 0 && sfknwn[i] == 1) {
+             rtime += 1 ;
+             cf_verbose(4,"quat ref cond exists at time=%d, rtime=%d ",time[i],rtime) ;
+	     if(rtime == 1) qtime=time[i] ;
+             if (rtime > 30 && acscmd1[i] > -1 && acscmd2[i] > -1 && acscmd3[i] > -1 ) {
+  	       quat_ref[0]=acscmd1[i] ;
+               quat_ref[1]=acscmd2[i] ;
+               quat_ref[2]=acscmd3[i] ;
+               quat_ref[3]=sqrt( 1. - quat_ref[0]*quat_ref[0] - quat_ref[1]*quat_ref[1] - quat_ref[2]*quat_ref[2] ) ;
+	       goto skip ; }
+	   }
+           else rtime=0 ; 
+	 }
+
+     /* if we are here, then the flag was never set and the reference quat not determined */
+	 cf_verbose(1," Problem determining the reference quaternians ") ;
+	 /* determine cause of failure */
+         pflg = 0 ;
+	 for (i=0 ; i -1 && fq2[i] > -1 && qvalid[i] > 0) {
+             dq1[i] = fq1[i] ; 
+             dq2[i] = fq2[i] ;
+             dq3[i] = fq3[i] ;
+             if (sfknwn[i] == 1 && aattflg[i] == 5) trakflg[i] = (short) 5 ;
+             if (sfknwn[i] == 0 && aattflg[i] == 5) trakflg[i] = (short) 4 ; 
+             if (aattflg[i] == 4) trakflg[i] = (short) 3 ; }
+	   else if (aq1[i] > -1 && aq2[i] > -1 ) {
+             dq1[i] = aq1[i] ;
+             dq2[i] = aq2[i] ;
+             dq3[i] = aq3[i] ;
+             if(aattflg[i] == 4) trakflg[i] = (short) 2 ;
+             if(aattflg[i] == 3) trakflg[i] = (short) 1 ;}
+           else {
+             dq1[i] = -10. ;
+             dq2[i] = -10. ;
+             dq3[i] = -10. ; 
+             trakflg[i]= (short) 0 ; }
+       	   }
+
+
+      /* determine the shift in the quaturnians and derive the changes
+	 in x and y which they represent :
+           DX (from q2 values : dq2=dx/2) and DY (from q1 values : dq1=-dy/2)
+           in arcseconds - the conversion factor used is the number of arcsec
+            per radian * 2 */
+       for (i=0l ; i 0) {
+            tquat[0] = dq1[i] ;
+            tquat[1] = dq2[i] ;
+            tquat[2] = dq3[i] ;
+            tquat[3] = sqrt(1. - dq1[i]*dq1[i] - dq2[i]*dq2[i] - dq3[i]*dq3[i] ) ;
+
+	  /* initialize dquat */
+	    for (j=0; j<4 ; j++) dquat[j]=0. ;
+
+ 	  /* now determine the change in quat */
+	     quatprod(tquat, quat_ref, dquat) ;
+
+ 	  /* convert of arcsec in x and y */
+ 	    dy[i] = (float) -dquat[0] * 412541. ;
+	    dx[i] = (float) dquat[1] * 412541. ; } 
+	 else {
+	    dx[i] = -999. ;
+            dy[i] = -999. ; }
+    }
+
+/****** provide keywords in the top level header which describe the observations ****/
+
+    /* determine the time span in the jitter file (in seconds) and set EXP_DUR to
+        this value  */
+       expdur = (float) (time[npts-1] - time[0]) + 1. ;
+       FITS_update_key(outfits, TFLOAT, "EXP_DUR", &expdur, 
+         "duration of jitter data (sec)", &status) ;
+
+       /* check for a short exposure and reset exptime if necessary */
+       if (time[npts-1] < exptime) {
+	 exptime = time[npts-1] ;
+         cf_verbose(2,"short exposure- reset exptime to %f ",exptime) ;
+       }
+
+	 /* determine the statistics of the guiding */
+         numq4=0 ;
+         numq5=0 ;
+         numq3=0 ;
+         numq2=0 ;
+         numqa=0 ;
+         numq0=0 ;
+	 cf_verbose(3,"exposure duration = %f ",expdur) ;
+
+	 for (i=0; i 0 && time[i] > 0 && time[i] <= exptime) 
+                   numq5+=1 ;
+           if(trakflg[i] == 4 && time[i] > 0 && time[i] <= exptime) numq4+=1 ;
+           if(trakflg[i] == 3 && time[i] > 0 && time[i] <= exptime) numq3+=1 ;
+           if(trakflg[i] == 2 && time[i] > 0 && time[i] <= exptime) numq2+=1 ;
+           if(trakflg[i] == 1 && time[i] > 0 && time[i] <= exptime) numqa+=1 ;
+           if(trakflg[i] == 0 && time[i] > 0 && time[i] <= exptime) numq0+=1 ; }
+
+         cf_verbose(3," ") ;
+         cf_verbose(3,"duration of jitter data =%f, exposure time = %f ",expdur,exptime) ;
+	 cf_verbose(3,"number of samples in fine track with known GS = %d ",numq5) ;
+	 cf_verbose(3,"number of samples in fine track with unknown GS = %d ",numq4) ;
+         cf_verbose(3,"number of samples in coarse track = %d ",numq3) ;
+         cf_verbose(3,"number of samples using ACS quaternians = %d ",numq2) ;
+         cf_verbose(3,"number of samples with no quaternians = %d ",numq0) ;
+
+
+       /* tfine, tcoarse and tnull are the fraction of the total exposure
+          when the observation is in fine track, coarse track and no track */
+       tfine = (float) (numq5+numq4) /  exptime ;
+       tcoarse = (float) (numq3+numq2+numqa) /  exptime ;
+       tnull = (float) numq0 /  exptime ;
+       FITS_update_key(outfits, TFLOAT, "FINE_GDE", &tfine, 
+           "fraction of exp in fine guide", &status) ;
+       FITS_update_key(outfits, TFLOAT, "COARSGDE", &tcoarse, 
+           "fraction of exp in coarse guide", &status) ;
+       FITS_update_key(outfits, TFLOAT, "NOGDEINF", &tnull, 
+           "fraction of exp with no guiding info", &status) ;
+
+       /* determine the properties of the guide stars */
+       ngs1=0. ;
+       ngs2=0. ;
+       ngs3=0. ;
+       ngs4=0. ;
+       ngs5=0. ;
+       ngs6=0. ;
+       for (i=0; i 0 && time[i] <= exptime) ngs1+=1. ;
+         if (cents2[i] == 2 && time[i] > 0 && time[i] <= exptime) ngs2+=1. ;
+         if (cents3[i] == 2 && time[i] > 0 && time[i] <= exptime) ngs3+=1. ;
+         if (cents4[i] == 2 && time[i] > 0 && time[i] <= exptime) ngs4+=1. ;
+         if (cents5[i] == 2 && time[i] > 0 && time[i] <= exptime) ngs5+=1. ;
+         if (cents6[i] == 2 && time[i] > 0 && time[i] <= exptime) ngs6+=1. ; }
+       /* convet to fraction of observing time and put into keywords */
+       ngs1 = ngs1 / exptime ;
+        FITS_update_key(outfits, TFLOAT, "GS1_USED", &ngs1, 
+           "fraction of exp using guide star 1", &status) ;
+       ngs2 = ngs2 / exptime ;
+        FITS_update_key(outfits, TFLOAT, "GS2_USED", &ngs2, 
+           "fraction of exp using guide star 2", &status) ;
+       ngs3 = ngs3 / exptime ;
+        FITS_update_key(outfits, TFLOAT, "GS3_USED", &ngs3, 
+           "fraction of exp using guide star 3", &status) ;
+       ngs4 = ngs4 / exptime ;
+        FITS_update_key(outfits, TFLOAT, "GS4_USED", &ngs4, 
+           "fraction of exp using guide star 4", &status) ;
+       ngs5 = ngs5 / exptime ;
+        FITS_update_key(outfits, TFLOAT, "GS5_USED", &ngs5, 
+           "fraction of exp using guide star 5", &status) ;
+       ngs6 = ngs6 / exptime ;
+        FITS_update_key(outfits, TFLOAT, "GS6_USED", &ngs6, 
+           "fraction of exp using guide star 6", &status) ;
+
+	/* determine the number of guide stars used during the observation */
+	ngs_used = 0 ;
+	if (ngs1 > 0) ngs_used += 1 ; 
+	if (ngs2 > 0) ngs_used += 1 ; 
+	if (ngs3 > 0) ngs_used += 1 ; 
+	if (ngs4 > 0) ngs_used += 1 ; 
+	if (ngs5 > 0) ngs_used += 1 ; 
+	if (ngs6 > 0) ngs_used += 1 ; 
+        FITS_update_key(outfits, TINT, "NGS_USED", &ngs_used, 
+           "number of guide stars used", &status) ;
+        cf_verbose(3," ") ;
+	cf_verbose(3,"number of guide stars used = %d \n",ngs_used) ;
+
+
+	/* determine times of known and unknown tracking and tracking on the target*/ 
+	knowntrk = 0. ;
+        unknowntrk = 0. ;
+        targtrk = 0. ;
+        gs_used = 0. ;
+	for (i=0 ; i< npts ; i++) {
+          if (qvalid[i] == 1 && time[i] > 0 && time[i] <= exptime) gs_used+=1. ;
+          if (sfknwn[i] == 1 && qvalid[i] ==1 && time[i] > 0 && time[i] <= exptime) 
+                knowntrk+=1. ;
+          if (sfknwn[i] == 0 && qvalid[i] ==1 && time[i] > 0 && time[i] <= exptime) 
+                unknowntrk+=1. ; 
+          if (sfknwn[i] == 1 && acsflg[i] == 1 && time[i] > 0 && time[i] <= exptime)
+	    targtrk += 1. ;
+     }
+
+	/* check for digitization errors in targtrk (caused by the 16s cadence of acsflg) */
+	if (targtrk+16 > exptime) targtrk = exptime ;
+
+        cf_verbose(3,"seconds when guide stars are used = %f",gs_used ) ;
+        cf_verbose(3,"seconds tracking on known stars = %f ",knowntrk) ;
+        cf_verbose(3,"seconds tracking on unknown stars = %f ",unknowntrk) ;
+        cf_verbose(3,"seconds tracking on the target = %f ",targtrk ) ;
+	knowntrk = knowntrk /  exptime ;
+	unknowntrk = unknowntrk / exptime ;
+        targtrk = targtrk / exptime ;
+        gs_used = gs_used / exptime ;
+         FITS_update_key(outfits, TFLOAT, "KNOWNTRK", &knowntrk, 
+            "fraction of exp tracking on known stars", &status) ;
+         FITS_update_key(outfits, TFLOAT, "UNKWNTRK", &unknowntrk, 
+            "fraction of exp tracking on unknown stars", &status) ;
+        FITS_update_key(outfits, TFLOAT, "TARGTRK", &targtrk, 
+            "fraction of exp tracking on target", &status) ;
+        FITS_update_key(outfits, TFLOAT, "GS_INUSE", &gs_used, 
+            "fraction of exp tracking on guide stars", &status) ;
+
+
+	/* determine whether a new attitude is commanded during the exposure */
+        slewflg = -1 ;
+	for (i=0; i 0 && slew[i] > 0 && time[i] <= exptime) slewflg = 1 ;
+        FITS_update_key(outfits, TINT, "SLEWFLG", &slewflg, 
+            "slew commanded during obs (if > 0)", &status) ;
+        if (slewflg > 0) {
+	  cf_verbose(1," ") ;
+          cf_verbose(1,"SLEW COMMANDED DURING OBSERVATION!!! ") ; }
+
+	/* determine the slewing time - note that there is a 16s time
+           resolution on the sampling of acsflg. Thus, slews of less than 16s
+           are not real */
+        slewtime=0 ;
+        FITS_update_key(outfits, TINT, "SLEWTIME", &slewtime, 
+            "time spent slewing (sec)", &status) ;
+
+        for (i=0; i 0 && time[i] <= exptime ) slewtime+=1 ;
+        if (slewtime > 16) {
+             FITS_update_key(outfits, TINT, "SLEWTIME", &slewtime, 
+                "time spent slewing (sec)", &status) ;
+             slewflg=1 ;
+             FITS_update_key(outfits, TINT, "SLEWFLG", &slewflg, 
+                "slew commanded during obs (if > 0)", &status) ;
+             cf_verbose(3,"SLEW OCCURRED DURING OBSERVATION!!! ") ;
+             cf_verbose(3,"Time (sec) spent slewing = %d \n",slewtime) ;
+	} 
+
+	/* determine basic properties of the jitter 
+            - these properties are only determined during the time of the exposure where the 
+              spacecraft is guiding on the target */
+	dxrms = 0. ;
+        dxrms5 = 0. ;
+        dyrms = 0. ;
+        dyrms5 = 0. ;
+        dxave = 0. ;
+        dyave = 0. ;
+        nvalid = 0 ;
+        nvalid5 = 0 ;
+	for (i=0 ; i< npts ; i++) 
+	  if(sfknwn[i] == 1 && acsflg[i] == 1 && time[i] > qtime  && time[i] <= exptime) {
+            nvalid += 1 ;
+            dxrms = dxrms + dx[i]*dx[i]  ;
+            dxave = dxave + dx[i] ;
+            dyrms = dyrms + dy[i] * dy[i] ;
+            dyave = dyave + dy[i] ;
+            if (time[i] > exptime -  300) {
+              dxrms5 = dxrms5 + dx[i] * dx[i] ;
+              dyrms5 =dyrms5 + dy[i] * dy[i] ;
+              nvalid5 += 1 ; }
+	  }
+        cf_verbose(3,"number of points used to determine rms jitter = %d ",nvalid) ;
+  
+	if (nvalid > 0) dxrms = sqrt( dxrms / (float) nvalid) ;
+	if (nvalid > 0) dyrms = sqrt( dyrms / (float) nvalid) ;
+	if (nvalid5 > 0) dxrms5 = sqrt( dxrms5 / (float) nvalid5) ;
+	if (nvalid5 > 0) dyrms5 = sqrt( dyrms5 / (float) nvalid5) ;
+        if (nvalid > 0) dxave = dxave / (float) nvalid ;
+        if (nvalid > 0) dyave = dyave / (float) nvalid ;
+        cf_verbose(3," ") ;
+        cf_verbose(3,"jitter properties ") ;
+	cf_verbose(3,"dxave = %f, dxrms=%f, dxrms5 = %f ", dxave, dxrms, dxrms5) ;
+	cf_verbose(3,"dyave = %f, dyrms=%f, dyrms5 = %f ", dyave, dyrms, dyrms5) ;
+          FITS_update_key(outfits, TFLOAT, "POSAVG_X", &dxave, 
+            "[arcsec] mean DX during exposure", &status) ;
+          FITS_update_key(outfits, TFLOAT, "POSAVG_Y", &dyave, 
+            "[arcsec] mean DY during exposure", &status) ;
+
+          FITS_update_key(outfits, TFLOAT, "X_JITTER", &dxrms, 
+            "[arcsec] sigma of DX during exposure", &status) ;
+          FITS_update_key(outfits, TFLOAT, "Y_JITTER", &dyrms, 
+            "[arcsec] sigma of DY during exposure", &status) ;
+
+          FITS_update_key(outfits, TFLOAT, "X_JIT_5M", &dxrms5, 
+            "[arcsec] sigma of DX during last 5 min of exp", &status) ;
+          FITS_update_key(outfits, TFLOAT, "Y_JIT_5M", &dyrms5, 
+            "[arcsec] sigma of DY during last 5 min of exp", &status) ;
+
+  /* determine fraction of exposure where the dy and dx values exceed 2 
+     sigma from the mean */
+          jitlgx=0 ;
+          jitlgy=0 ;
+	  for (i=0 ; i 2.*dxrms) jitlgx++ ;
+            if ( fabs(dy[i]) > 2.*dyrms) jitlgy++ ;
+		}
+
+	  fjitlgx= (float) jitlgx / (float) npts ;
+	  fjitlgy = (float) jitlgy / (float) npts ;
+
+          FITS_update_key(outfits, TFLOAT, "X_JITLRG", &fjitlgx, 
+            "frac of DX more than 2-sigma from POSAVE_X", &status) ;
+          FITS_update_key(outfits, TFLOAT, "Y_JITLRG", &fjitlgy, 
+            "frac of DY more than 2-sigma from POSAVE_Y", &status) ;
+
+
+
+  /******* Generate the table and put in guiding info *****/
+  
+      tfields = 4 ; 
+  	 FITS_create_tbl(outfits, BINARY_TBL, 0, tfields, ttype,
+		  tform, tunit, textname, &status) ;
+
+      fits_get_colnum(outfits, TRUE, "TIME", &tcol, &status) ;
+      FITS_write_col(outfits, TLONG, tcol, 1, 1, npts, time, &status) ;
+      fits_get_colnum(outfits, TRUE, "DX", &dxcol, &status) ;
+      FITS_write_col(outfits, TFLOAT, dxcol, 1, 1, npts, dx, &status) ;
+      fits_get_colnum(outfits, TRUE, "DY", &dycol, &status) ;
+      FITS_write_col(outfits, TFLOAT, dycol, 1, 1, npts, dy, &status) ;
+      fits_get_colnum(outfits, TRUE, "TRKFLG", &trkcol, &status) ;
+      FITS_write_col(outfits, TSHORT, trkcol, 1, 1, npts, trakflg, &status) ;
+
+
+ /**********************************************************************/
+
+      /* set the status flag as good */
+       FITS_movabs_hdu(outfits, 1, &hdutype, &status) ;
+       dstatus = 0 ;
+       FITS_update_key(outfits, TINT, "JIT_STAT", &dstatus, 
+            "status of jitter data is good", &status) ;
+
+      /* close the output file */
+    FITS_close_file(outfits, &status) ; 
+
+    /* free up storage space */
+    free(mjd) ;
+    free(fpdexp) ;
+    free(qvalid) ;
+    free(fq1) ;
+    free(fq2) ;
+    free(fq3) ;
+    free(aq1) ;
+    free(aq2) ;
+    free(aq3) ;
+    free(aattflg) ;
+    free(acscmd1) ;
+    free(acscmd2) ;
+    free(acscmd3) ;
+    free(time) ;
+    free(trakflg) ;
+    free(dq1) ;
+    free(dq2) ;
+    free(dq3) ;
+    free(dx) ;
+    free(dy) ;
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished execution.");
+
+    return 0 ;
+
+} 
+
+
+/* procedure to do a matrix multiplication of two quaturnians to determine
+   the displacement of a measured value from a reference */
+ 
+int quatprod(double *tquat, double *quat_ref, double *dquat) {
+
+  int i, j ;
+  double multmat[4][4], qinv[4] ; 
+
+  /* fill in the array with values from the tquat vector */
+  multmat[0][0] =  tquat[3] ;
+  multmat[0][1] = -tquat[2] ;
+  multmat[0][2] =  tquat[1] ;
+  multmat[0][3] = -tquat[0] ;
+  multmat[1][0] =  tquat[2] ;
+  multmat[1][1] =  tquat[3] ;
+  multmat[1][2] = -tquat[0] ;
+  multmat[1][3] = -tquat[1] ;
+  multmat[2][0] = -tquat[1] ; 
+  multmat[2][1] =  tquat[0] ;
+  multmat[2][2] =  tquat[3] ;
+  multmat[2][3] = -tquat[2] ;
+  multmat[3][0] =  tquat[0] ;
+  multmat[3][1] =  tquat[1] ;
+  multmat[3][2] =  tquat[2] ;
+  multmat[3][3] =  tquat[3] ;
+  
+
+  /* specify the inverse of quat_ref */
+  qinv[0] = -quat_ref[0] ;
+  qinv[1] = -quat_ref[1] ;
+  qinv[2] = -quat_ref[2] ;
+  qinv[3] =  quat_ref[3] ;
+ 
+  /* do the matrix multiplication */
+  for (i=0 ; i<4 ; i++) {
+    dquat[i] = 0. ;
+     for (j=0; j<4 ; j++) dquat[i] = dquat[i] + multmat[j][i]*qinv[j] ; 
+}
+
+  return 0 ;
+
+}
diff --git a/src/cal/parm/Makefile.orig.orig b/src/cal/parm/Makefile.orig.orig
new file mode 100644
index 0000000..c0d69c1
--- /dev/null
+++ b/src/cal/parm/Makefile.orig.orig
@@ -0,0 +1,52 @@
+VERSION=	v1.8
+
+CALFUSEDIR=	$(PWD)/../../..
+
+# Symbols for include directories
+FUSEINCLDIR=	$(CALFUSEDIR)/include
+
+# Symbols used for creating shared libraries
+O=		.a
+LDSTATIC=	ld
+
+# Symbols used for creating shared libraries
+SO=		.so
+LDSHARED=	ld
+CCSHARED=	-G
+
+# Symbols used for compiling
+CC=		cc
+#  Romelfanger's optimizations
+# OPT=		-fast -xO5 -xtarget=ultra2 -xarch=v8plusa
+#
+#  SunWorld's optimizations
+# OPT=		-p -v -xO2 -xdepend -xchip=ultra -xarch=generic
+OPT=		-O -KPIC -DSOLARIS -DCFORTRAN
+CFLAGS=		$(OPT) -I$(FUSEINCLDIR)
+
+# Symbols used for creating shared binaries
+FUSELIBDIR=	$(CALFUSEDIR)/lib
+FUSEBINDIR=	$(CALFUSEDIR)/bin
+LIBDIR=		/opt/SUNWspro/lib
+#FUSELIBS=	-lcf -lsla -lcalfits -lcfitsio
+FUSELIBS=	-lsla -lcfitsio -lcf
+LIBS=		-lsocket -lnsl -ldl -lsunmath -lm -lc -lM77 -lF77
+LDFLAGS=	
+
+# binaries to be made
+
+BINS=		make_parm_file
+
+all:		$(BINS)
+		chmod g+rw $(BINS)
+
+install:	all
+		/bin/cp $(BINS) $(FUSEBINDIR)
+
+clean:		
+		/bin/rm -f $(BINS)
+
+make_parm_file:
+		$(CC) $(CFLAGS) -o make_parm_file make_parm_file.c \
+		-L$(FUSELIBDIR) -L$(LIBDIR) $(FUSELIBS) $(LIBS) $(LDFLAGS)
+
diff --git a/src/cal/parm/make_parm_file.c b/src/cal/parm/make_parm_file.c
new file mode 100644
index 0000000..9b224da
--- /dev/null
+++ b/src/cal/parm/make_parm_file.c
@@ -0,0 +1,109 @@
+/*******************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *******************************************************************************
+ *
+ * Synopsis:    make_screen_file
+ *
+ * Description: Make the screening parameters file.
+ *
+ * History:     07/14/98        emm     Begin work.
+ *              07/08/99        peb     Added PHAMIN and PHAMAX keywords.
+ *              07/29/99        emm     Added SAA_SCR and LIMB_SCR keywords
+ ******************************************************************************/
+
+#include 
+#include "calfuse.h"
+#define VERSION 3
+#define EFFMJD 50000.0
+
+int main()
+{
+char *channel[]={"LiF","SiC"};
+char *segment[]={"1A","1B","2A","2B"};
+char *segments[]={"1a","1b","2a","2b"};
+char *aperture[]={"HIRS","MDRS","LWRS","PINH"};
+char dummy[30];
+char extname[]="PARAMETER FILE";
+char filename[80];
+
+
+    int   i, status=0, vers;
+    long  numbl, dumar[2]={0, 0};
+    float numb, effmjd;
+    fitsfile *parmfits;
+
+for (i=0; i<4; i++) {  /* 1A,1B,2A,2B */
+
+    sprintf(filename,"parm%2.2s%03d.fit", segments[i],VERSION);
+    printf("%20.20s\n",filename); 
+
+    FITS_create_file(&parmfits,filename,&status);
+    FITS_create_img(parmfits, SHORT_IMG, 0, dumar, &status);
+
+    FITS_write_key(parmfits, TSTRING, "CALFTYPE", "PARM", 
+		   "Calibration file type", &status);
+
+    vers=VERSION;
+    FITS_write_key(parmfits,TINT,"CALFVERS",&vers,
+		   "Calibration file version", &status);
+
+    FITS_write_key(parmfits,TSTRING,"DETECTOR",segment[i],
+                   "detector (1A, 1B, 2A, 2B", &status);
+
+    effmjd=EFFMJD;
+    FITS_write_key(parmfits,TFLOAT,"EFFMJD",&effmjd,
+		   "Date on which file should be applied (MJD)", &status);
+
+    FITS_write_date(parmfits, &status);
+
+    FITS_write_key(parmfits,TSTRING,"AUTHOR","EDWARD MURPHY",
+		   "Author of file", &status);
+
+    FITS_write_comment(parmfits, "  ", &status);
+    FITS_write_comment(parmfits, "The SPEX_SIC and SPEX_LIF keywords allow "
+        "the user to center the extraction windows along a given row rather "
+        "than having the pipeline try to centroid the spectrum.  A number "
+        "less than 0 or greater than 1023 will default to pipeline "
+        "centroiding.  A value between 0 and 1023 will define the center "
+        "of the extraction window.  Since the pipeline expands histogram "
+        "images out to 1023 pixels in Y, the number must be given for a "
+        "full 1023 image height.  That is, if the center is determined "
+        "from binned images, the center must be multiplied by the binning "
+        "factor before entering it in this file.", &status);
+    FITS_write_comment(parmfits, "  ", &status);
+
+    numbl = -1;
+    FITS_write_key(parmfits, TLONG, "SPEX_SIC",&numbl,
+		   "SiC extraction window Y center (0-1023)", &status);
+
+    numbl = -1;
+    FITS_write_key(parmfits, TLONG, "SPEX_LIF",&numbl,
+		   "LiF extraction window Y center (0-1023)", &status);
+
+    FITS_write_comment(parmfits, "  ", &status);
+    FITS_write_comment(parmfits, "The EMAX_SIC and EMAX_LIF keywords allow "
+        "the user to limit the amount that the pipeline can shift the "
+        "extraction windows based on the centroid of the spectrum.  In "
+        "cases where the source is very faint, the centroid routine "
+        "may find bright detector artifacts or other apertures instead "
+        "of the desired aperture.  If the calculated centroid differs from "
+        "the predicted centroid by more than EMAX_SIC or EMAX_LIF, the "
+        "pipeline uses the default extraction window location.", &status);
+    FITS_write_comment(parmfits, "  ", &status);
+
+    numbl = 20;
+    FITS_write_key(parmfits, TLONG, "EMAX_SIC",&numbl,
+		   "SiC extraction window maximum Y movement", &status);
+
+    numbl = 20;
+    FITS_write_key(parmfits, TLONG, "EMAX_LIF",&numbl,
+		   "LiF extraction window maximum Y movement", &status);
+
+    FITS_close_file(parmfits, &status);
+
+}
+
+    return 0;
+}
diff --git a/src/cal/saa/Makefile.orig.orig b/src/cal/saa/Makefile.orig.orig
new file mode 100644
index 0000000..09b0736
--- /dev/null
+++ b/src/cal/saa/Makefile.orig.orig
@@ -0,0 +1,19 @@
+CFDIR = /usr/local/fusesw/calfuse/v1.2
+BIN = ${CFDIR}/bin
+CC = cc
+CFLAGS = -v -xO2 -I${CFDIR}/include -I/usr/local/include 
+LIBS = -L${CFDIR}/lib -lcf -L/usr/local/lib -lcfitsio -lm -lsocket -lnsl
+
+#       -  <<-- ignore error code
+
+all: make_saa_file
+
+make_saa_file:   make_saa_file.o
+	${CC} $(CFLAGS) -o make_saa_file make_saa_file.o \
+	$(LIBS)
+
+clean:
+	-	/bin/rm -f *.o make_saa_file
+
+install:	all
+	-	/bin/cp make_saa_file 	${BIN}/make_saa_file
diff --git a/src/cal/saa/make_saa_file.c b/src/cal/saa/make_saa_file.c
new file mode 100644
index 0000000..2f0df04
--- /dev/null
+++ b/src/cal/saa/make_saa_file.c
@@ -0,0 +1,81 @@
+/*******************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *******************************************************************************
+ *
+ * Synopsis:    saa output_file
+ *
+ * Description: Writes a FITS ASCII table with the SAA contours.
+ *              
+ *
+ * History:     07/21/98  E. Murphy   Begin work.
+ *
+ * References:  SAA contours from Scott Friedman 07/16/98, same contours as
+ *              used in SPIKE.  Note that the contours do not extend below
+ *              a latitude of 30 degrees.
+ *
+ ******************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+ 
+#define VERSION 2
+#define EFFMJD 50000.0
+
+int main(int argc, char *argv[])
+
+{
+
+/* Define variables. */
+int i, retcode, status=0, anynull, hdutype;
+int numlimits=10;
+double maxlat, maxlon, minlon, delta;
+int nrows=10;
+int tfields=3;
+float saa_lat[10]=   {-30.0,-25.0, -20.0, -15.0,-10.0,  0.0,  5.0,  10.0, 12.0, 13.0};
+float saa_minlon[10]={-91.0,-98.0,-102.0,-100.0,-93.0,-68.3,-56.0, -42.0,-32.0,-27.0};
+float saa_maxlon[10]={ 24.1, 47.0,  41.0,  33.0, 25.0,  8.0, -3.0, -14.0,-20.0,-27.0};
+float floatnull;
+fitsfile *outfits, *infits;
+long dumar[2]={0,0};
+char extname[]="SAA_CONTOURS";
+char *ttype[]={"LATITUDE","MIN_LONGITUDE","MAX_LONGITUDE"};
+char *tform[]={"F8.3","F8.3","F8.3"};
+char *tunit[]={"deg","deg","deg"};
+int  vers;
+float effmjd;
+
+FITS_create_file(&outfits, "saac002.fit", &status);
+
+FITS_create_img(outfits, SHORT_IMG, 0, dumar, &status);
+
+     FITS_write_key(outfits, TSTRING, "CALFTYPE", "SAAC", 
+                    "Calibration file type", &status);
+
+     vers=VERSION;
+     FITS_write_key(outfits,TINT,"CALFVERS",&vers,
+                    "Calibration file version", &status);
+
+     effmjd=EFFMJD;
+     FITS_write_key(outfits,TFLOAT,"EFFMJD",&effmjd,
+                    "Date on which file should be applied (MJD)", &status);
+
+     FITS_write_date(outfits, &status);
+
+     FITS_write_key(outfits,TSTRING,"AUTHOR","EDWARD MURPHY",
+                    "Author of file", &status);
+
+FITS_create_tbl(outfits, ASCII_TBL, nrows, tfields, ttype, tform, tunit, 
+extname, &status);
+
+FITS_write_col(outfits, TFLOAT, 1, 1, 1, nrows, saa_lat, &status);
+FITS_write_col(outfits, TFLOAT, 2, 1, 1, nrows, saa_minlon, &status);
+FITS_write_col(outfits, TFLOAT, 3, 1, 1, nrows, saa_maxlon, &status);
+
+FITS_close_file(outfits, &status);
+
+return 0;
+
+}
diff --git a/src/cal/screen/Makefile.orig.orig b/src/cal/screen/Makefile.orig.orig
new file mode 100644
index 0000000..7579595
--- /dev/null
+++ b/src/cal/screen/Makefile.orig.orig
@@ -0,0 +1,28 @@
+VERSION=	v1.7
+
+CFDIR=		/usr/local/fusesw/calfuse/$(VERSION)
+BIN=		${CFDIR}/bin
+FITSINCLDIR=	/usr/local/include
+FUSEINCLDIR=	$(CFDIR)/include
+CC=		cc
+OPT=		-O -KPIC
+CFLAGS=		$(OPT) -I${FUSEINCLDIR} -I$(FITSINCLDIR)
+
+LDSHARED=	ld
+FUSELIBDIR=	$(CFDIR)/lib
+FUSELIBS=	-lcf -lsla -lcalfits -lcfitsio
+LIBS=		-lm -lsocket -lnsl -ldl
+
+#       -  <<-- ignore error code
+
+all:		make_screen_file
+
+make_screen_file:
+		${CC} $(CFLAGS) -o make_screen_file make_screen_file.c \
+		-L$(FUSELIBDIR) $(FUSELIBS) $(LIBS) $(LDFLAGS)
+
+clean:
+	-	/bin/rm -f *.o make_screen_file
+
+install:	all
+	-	/bin/cp make_screen_file 	${BIN}/make_screen_file
diff --git a/src/cal/screen/make_screen_file b/src/cal/screen/make_screen_file
new file mode 100755
index 0000000..ae0f83b
Binary files /dev/null and b/src/cal/screen/make_screen_file differ
diff --git a/src/cal/screen/make_screen_file.c b/src/cal/screen/make_screen_file.c
new file mode 100644
index 0000000..01b41da
--- /dev/null
+++ b/src/cal/screen/make_screen_file.c
@@ -0,0 +1,122 @@
+/*******************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *******************************************************************************
+ *
+ * Synopsis:    make_screen_file
+ *
+ * Description: Make the screening parameters file.
+ *
+ * History:     07/14/98        emm     Begin work.
+ *              07/08/99        peb     Added PHAMIN and PHAMAX keywords.
+ *              07/29/99        emm     Added SAA_SCR and LIMB_SCR keywords
+ ******************************************************************************/
+
+#include 
+#include "calfuse.h"
+#define VERSION 3
+#define EFFMJD 50000.0
+
+int main()
+{
+char *channel[]={"LiF","SiC"};
+char *segment[]={"1A","1B","2A","2B"};
+char *segments[]={"1a","1b","2a","2b"};
+char *aperture[]={"HIRS","MDRS","LWRS","PINH"};
+char dummy[30];
+char extname[]="SCREENING PARAMETERS";
+char filename[80];
+
+
+    int   i, status=0, vers;
+    long  numbl, dumar[2]={0, 0};
+    float numb, effmjd;
+    fitsfile *parmfits;
+
+for (i=0; i<4; i++) {  /* 1A,1B,2A,2B */
+
+    sprintf(filename,"scrn%2.2s%03d.fit", segments[i],VERSION);
+    printf("%20.20s\n",filename); 
+
+    FITS_create_file(&parmfits,filename,&status);
+    FITS_create_img(parmfits, SHORT_IMG, 0, dumar, &status);
+
+    FITS_write_key(parmfits, TSTRING, "CALFTYPE", "SCRN", 
+		   "Calibration file type", &status);
+
+    vers=VERSION;
+    FITS_write_key(parmfits,TINT,"CALFVERS",&vers,
+		   "Calibration file version", &status);
+
+    FITS_write_key(parmfits,TSTRING,"DETECTOR",segment[i],
+                   "detector (1A, 1B, 2A, 2B", &status);
+
+    effmjd=EFFMJD;
+    FITS_write_key(parmfits,TFLOAT,"EFFMJD",&effmjd,
+		   "Date on which file should be applied (MJD)", &status);
+
+    FITS_write_date(parmfits, &status);
+
+    FITS_write_key(parmfits,TSTRING,"AUTHOR","EDWARD MURPHY",
+		   "Author of file", &status);
+
+    numb=10.0;
+    FITS_write_key(parmfits,TFLOAT,"TIMESTEP",&numb,
+		   "[sec] Screening time step", &status);
+
+    FITS_write_key(parmfits,TSTRING,"SAA_SCR","ON",
+		   "SAA screening ON/OFF", &status);
+
+    FITS_write_key(parmfits,TSTRING,"LIMB_SCR","ON",
+		   "Limb angle screening ON/OFF", &status);
+
+    FITS_write_key(parmfits,TSTRING,"DAYNIGHT","BOTH",
+		   "Use only DAY, NIGHT or BOTH", &status);
+
+    numbl = 0;
+    FITS_write_key(parmfits, TLONG, "PHALOW",&numbl,
+		   "Minimum acceptable PHA value", &status);
+
+    numbl = 31;
+    FITS_write_key(parmfits, TLONG, "PHAHIGH",&numbl,
+		   "Maximum acceptable PHA value", &status);
+
+    numb = 1.0;
+    FITS_write_key(parmfits, TFLOAT, "PHA_BKGD",&numb,
+		   "Background scaling factor for PHA screening", &status);
+
+    numb=15.0;
+    FITS_write_key(parmfits,TFLOAT,"BRITLIMB",&numb,
+		   "[deg] Bright limb avoidance angle", &status);
+
+    numb=10.0;
+    FITS_write_key(parmfits,TFLOAT,"DARKLIMB",&numb,
+		   "[deg] Dark limb avoidance angle", &status);
+
+    numbl=0;
+    FITS_write_key(parmfits,TLONG,"NUSERGTI",&numbl,
+		   "Number of user defined good time intervals",&status);
+
+    numb=0.0;
+    FITS_write_key(parmfits,TFLOAT,"GTIBEG01",&numb,
+		   "[sec] Beginning good time interval", &status);
+
+    numb=0.0;
+    FITS_write_key(parmfits,TFLOAT,"GTIEND01",&numb,
+		   "[sec] Ending good time interval", &status);
+
+    numb=0.0;
+    FITS_write_key(parmfits,TFLOAT,"GTIBEG02",&numb,
+		   "[sec] Beginning good time interval", &status);
+
+    numb=0.0;
+    FITS_write_key(parmfits,TFLOAT,"GTIEND02",&numb,
+		   "[sec] Ending good time interval", &status);
+
+    FITS_close_file(parmfits, &status);
+
+}
+
+    return 0;
+}
diff --git a/src/configure.linux.orig b/src/configure.linux.orig
new file mode 100755
index 0000000..c8cf8ef
--- /dev/null
+++ b/src/configure.linux.orig
@@ -0,0 +1,68 @@
+#!/bin/sh
+
+echo "***********************************"
+echo "***** Preparing Makefiles *********"
+echo "******** for Linux ****************"
+echo "***********************************"
+
+cp Makefile.Linux Makefile
+cp fuv/Makefile.Linux fuv/Makefile
+cp fes/Makefile.Linux fes/Makefile
+cp analysis/Makefile.Linux analysis/Makefile
+cp libcf/Makefile.Linux libcf/Makefile
+cp cal/jitter/Makefile.Linux cal/jitter/Makefile
+cp slalib/mk.sv slalib/mk
+
+echo "***********************************"
+echo "***** Configuring cfitsio *********"
+echo "***********************************"
+
+
+cd cfitsio
+./configure
+cd ..
+
+echo "***********************************"
+echo "***** Done configuring cfitsio ****"
+echo "***********************************"
+
+FC=""
+for ac_prog in gfortran g77
+do
+# Extract the first word of "$ac_prog", so it can be a program name with args.
+  set dummy $ac_prog; ac_word=$2
+  echo "checking for $ac_word..."  
+  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
+  ac_dummy="$PATH"
+  for ac_dir in $ac_dummy; do
+    test -z "$ac_dir" && ac_dir=.
+    if test -f $ac_dir/$ac_word; then
+      FC="$ac_prog"
+      break
+    fi
+  done
+  IFS="$ac_save_ifs"
+  if test -n "$FC"; then
+    echo "     yes"
+  else
+    echo "     no"
+  fi
+  test -n "$FC" && break
+done
+test -n "$FC" || FC="nope"
+
+if test $FC = 'nope' ; then
+  echo "Warning: No acceptable fortran compiler was found. Please install one from the GNU compilers."
+  echo "Read INSTALLING_CalFUSEv3.2.1 for details."
+else
+  if test $FC = 'g77' ; then
+    for mk in Makefile fuv/Makefile analysis/Makefile libcf/Makefile cal/jitter/Makefile
+    do
+      mv $mk ${mk}.sv
+      sed -e "s/-lgfortran/-lg2c/g" ${mk}.sv > $mk
+    done  
+    sed -e "s/gfortran/g77/g" slalib/mk.sv > slalib/mk
+  fi 
+  echo
+  echo "Type 'make clean' then 'make -e install'"
+fi
diff --git a/src/configure.linux64.orig b/src/configure.linux64.orig
new file mode 100755
index 0000000..e0c989b
--- /dev/null
+++ b/src/configure.linux64.orig
@@ -0,0 +1,74 @@
+#!/bin/sh
+
+echo "***********************************"
+echo "***** Preparing Makefiles *********"
+echo "******** for Linux 64 *************"
+echo "***********************************"
+
+cp Makefile.Linux64 Makefile
+cp fuv/Makefile.Linux64 fuv/Makefile
+cp fes/Makefile.Linux64 fes/Makefile
+cp analysis/Makefile.Linux64 analysis/Makefile
+cp libcf/Makefile.Linux64 libcf/Makefile
+cp cal/jitter/Makefile.Linux64 cal/jitter/Makefile
+cp slalib/mk.sv slalib/mk
+
+FC=""
+for ac_prog in gfortran g77 
+do
+# Extract the first word of "$ac_prog", so it can be a program name with args.
+  set dummy $ac_prog; ac_word=$2
+  echo "checking for $ac_word..."  
+  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
+  ac_dummy="$PATH"
+  for ac_dir in $ac_dummy; do
+    test -z "$ac_dir" && ac_dir=.
+    if test -f $ac_dir/$ac_word; then
+      FC="$ac_prog"
+      break
+    fi
+  done
+  IFS="$ac_save_ifs"
+  if test -n "$FC"; then
+    echo "     yes"
+  else
+    echo "     no"
+  fi
+  test -n "$FC" && break
+done
+test -n "$FC" || FC="nope"
+
+if test $FC = 'nope' ; then
+  echo "Warning: No acceptable fortran compiler was found. Please install one from the GNU compilers."
+  echo " Read INSTALLING_CalFUSEv3.2.1 for details."
+else
+  echo "checking for cfitsio..."
+  if ! test -d /usr/include/cfitsio ; then
+    echo "     no"
+    echo ""
+    echo "Warning: CFITSIO was not found in /usr/include"
+    echo " Please install CFITSIO for Linux 64 as explained in the installation notes"
+    echo " If you already did so and still get this message, please copy the cfitsio"
+    echo " repertory in '/usr/include'"
+    echo " If you don't have permission to do so, follow the instructions in the"
+    echo " Installation notes."
+    echo ""
+  else
+    echo "     yes"
+    cp /usr/include/cfitsio/* ../include/
+    cp /usr/include/cfitsio/* ../include/cfitsio/
+
+    if test $FC = 'g77' ; then
+      for mk in Makefile fuv/Makefile analysis/Makefile libcf/Makefile cal/jitter/Makefile
+      do
+        mv $mk ${mk}.sv
+        sed -e "s/-lgfortran/-lg2c/g" ${mk}.sv > $mk
+#cfit	mv $mk ${mk}.sv2
+#cfit	sed -e "s#-lcfitsio#-lcfitsio -L/usr/include/cfitsio/lib#g" ${mk}.sv2 > $mk
+      done  
+      sed -e "s/gfortran/g77/g" slalib/mk.sv > slalib/mk
+    fi 
+    echo
+    echo "Type 'make clean' then 'make -e install'"
+  fi
+fi
diff --git a/src/configure.macosx.orig b/src/configure.macosx.orig
new file mode 100755
index 0000000..e391b24
--- /dev/null
+++ b/src/configure.macosx.orig
@@ -0,0 +1,78 @@
+#!/bin/sh
+
+echo "***********************************"
+echo "***** Preparing Makefiles *********"
+echo "******** for Mac OS X *************"
+echo "***********************************"
+
+cp Makefile.MacOSX Makefile
+cp fuv/Makefile.MacOSX fuv/Makefile
+# cp fes/Makefile.MacOSX fes/Makefile
+cp analysis/Makefile.MacOSX analysis/Makefile
+cp libcf/Makefile.MacOSX libcf/Makefile
+cp cal/jitter/Makefile.MacOSX cal/jitter/Makefile
+cp slalib/mk.sv slalib/mk
+
+echo "***********************************"
+echo "***** Configuring cfitsio *********"
+echo "***********************************"
+
+
+cd cfitsio
+./configure
+cd ..
+
+echo "***********************************"
+echo "***** Done configuring cfitsio ****"
+echo "***********************************"
+echo
+
+FC=""
+for ac_prog in gfortran g77 
+do
+# Extract the first word of "$ac_prog", so it can be a program name with args.
+  set dummy $ac_prog; ac_word=$2
+  echo "checking for $ac_word..."  
+  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
+  ac_dummy="$PATH"
+  for ac_dir in $ac_dummy; do
+    test -z "$ac_dir" && ac_dir=.
+    if test -f $ac_dir/$ac_word; then
+      FC="$ac_prog"
+      break
+    fi
+  done
+  IFS="$ac_save_ifs"
+  if test -n "$FC"; then
+    echo "     yes"
+  else
+    echo "     no"
+  fi
+  test -n "$FC" && break
+done
+test -n "$FC" || FC="nope"
+
+if test $FC = 'nope' ; then
+  echo "Warning: No acceptable fortran compiler was found. Please install one from the GNU compilers."
+  echo "Read INSTALLING_CalFUSEv3.2.1 for details."
+else
+  if test $FC = 'g77' ; then
+    for mk in Makefile fuv/Makefile analysis/Makefile libcf/Makefile cal/jitter/Makefile
+    do
+      mv $mk ${mk}.sv
+      sed -e "s/-lgfortran/-lg2c/g" ${mk}.sv > $mk
+    done  
+    sed -e "s/gfortran/g77/g" slalib/mk.sv > slalib/mk
+  fi
+  if ! test -d /sw/lib ; then
+    libfort=""
+    test -d /usr/local/lib && libfort="-L\/usr\/local\/lib\/ "
+    for mk in Makefile fuv/Makefile analysis/Makefile libcf/Makefile cal/jitter/Makefile
+    do
+      mv $mk ${mk}.sv2
+      sed -e "s/-L\/sw\/lib\/ /${libfort}/g" ${mk}.sv2 > ${mk}
+    done
+  fi
+  echo
+  echo "Type 'make clean' then 'make -e install'"
+fi
diff --git a/src/configure.solaris.orig b/src/configure.solaris.orig
new file mode 100755
index 0000000..5818ee9
--- /dev/null
+++ b/src/configure.solaris.orig
@@ -0,0 +1,98 @@
+#!/bin/sh
+
+echo "***********************************"
+echo "***** Preparing Makefiles *********"
+echo "******** for Solaris **************"
+echo "***********************************"
+
+cp Makefile.Solaris Makefile
+cp fuv/Makefile.Solaris fuv/Makefile
+cp fes/Makefile.Solaris fes/Makefile
+cp analysis/Makefile.Solaris analysis/Makefile
+cp libcf/Makefile.Solaris libcf/Makefile
+cp cal/jitter/Makefile.Solaris cal/jitter/Makefile
+cp slalib/mk.sv slalib/mk
+
+echo "***********************************"
+echo "***** Configuring cfitsio *********"
+echo "***********************************"
+
+cd cfitsio
+./configure
+cd ..
+
+echo "***********************************"
+echo "***** Done configuring cfitsio ****"
+echo "***********************************"
+
+FC=""
+for ac_prog in f77 g77 gfortran f90 
+do
+# Extract the first word of "$ac_prog", so it can be a program name with args.
+  set dummy $ac_prog; ac_word=$2
+  echo "checking for $ac_word..."  
+  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
+  ac_dummy="$PATH"
+  for ac_dir in $ac_dummy; do
+    test -z "$ac_dir" && ac_dir=.
+    if test -f $ac_dir/$ac_word; then
+      FC="$ac_prog"
+      break
+    fi
+  done
+  IFS="$ac_save_ifs"
+  if test -n "$FC"; then
+    echo "     yes"
+  else
+    echo "     no"
+  fi
+  test -n "$FC" && break
+done
+test -n "$FC" || FC="nope"
+
+if test $FC = 'nope' ; then
+  echo "Warning: No acceptable fortran 77 compiler was found."
+  echo "Please install one either from the GNU compilers GCC, either from Sun Studio."
+  echo "Read INSTALLING_CalFUSEv3.2.1 for details."
+else
+  FFLAGS="-fno-second-underscore -O -fPIC"
+  if test $FC = 'f90' ; then
+    for mk in Makefile analysis/Makefile cal/jitter/Makefile fes/Makefile
+    do
+      mv $mk ${mk}.sv
+      sed -e "s/-lM77 -lF77/-lfui -lfsu/g" ${mk}.sv > $mk
+    done 
+    FFLAGS="-f77 -ftrap=%none -O -PIC"
+  fi
+  if test $FC = 'gfortran' ; then
+    for mk in Makefile analysis/Makefile cal/jitter/Makefile fes/Makefile
+    do
+      mv $mk ${mk}.sv
+      sed -e "s/-lM77 -lF77/-lgfortran/g" ${mk}.sv > $mk
+    done  
+  fi
+  if test $FC = 'g77' ; then
+    for mk in Makefile analysis/Makefile cal/jitter/Makefile fes/Makefile
+    do
+      mv $mk ${mk}.sv
+      sed -e "s/-lM77 -lF77/-lg2c/g" ${mk}.sv > $mk
+    done  
+  fi
+  if test $FC = 'f77' ; then
+    if f77 2> /dev/null | grep -c f90 ; then
+      for mk in Makefile analysis/Makefile cal/jitter/Makefile fes/Makefile
+      do
+        mv $mk ${mk}.sv
+        sed -e "s/-lM77 -lF77/-lfui -lfsu/g" ${mk}.sv > $mk
+      done  
+    fi
+  else
+    sed -e "s/f77/${FC}/g" slalib/mk.sv > slalib/mk.sv2
+    sed -e "s/FFLAGS='-O -PIC'/FFLAGS='${FFLAGS}'/g" slalib/mk.sv2 > slalib/mk
+    rm -f slalib/mk.sv2
+  fi
+  echo
+  echo "Type 'make clean' then 'make -e install'"
+fi
+
+
diff --git a/src/fes/Makefile.Linux.orig b/src/fes/Makefile.Linux.orig
new file mode 100644
index 0000000..af548ac
--- /dev/null
+++ b/src/fes/Makefile.Linux.orig
@@ -0,0 +1,44 @@
+
+SHARED=		-shared
+FITSVER=	2.470
+CALFUSEDIR=	${PWD}/../..
+
+# Symbols for include directories
+FUSEINCLDIR=    -I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=             cc
+OPT=            -g -Wall -DCFORTRAN -Dg77Fortran -Df2cFortran
+CFLAGS =	${OPT} ${FUSEINCLDIR}
+
+# Symbols used for creating shared binaries
+FUSEBINDIR=     ${CALFUSEDIR}/bin
+FUSELIBDIR=     -L${CALFUSEDIR}/lib
+LIBDIR=         
+FUSELIBS=       -lsla -lcfitsio-${FITSVER} -lcf
+LIBS=           -lc -lm -lnsl -ldl -lgfortran
+LDFLAGS=        -Wl,-R${CALFUSEDIR}/lib
+
+OBJECTS=	cf_calfes.o cf_fes_init.o cf_fes_read.o cf_fes_write.o \
+		cf_fes_cal.o cf_fes_get_cal_image.o cf_limbang.o \
+		cf_fes_apply_bias.o cf_fes_apply_flat.o cf_fes_apply_mask.o 
+
+all:		cf_calfes
+
+cf_calfes:	${OBJECTS}
+		${CC} ${CFLAGS} -o cf_calfes ${OBJECTS} \
+		${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+		chmod g+rw cf_calfes
+
+install:	cf_calfes
+		/bin/cp cf_calfes ${FUSEBINDIR}
+
+clean:
+		/bin/rm -f ${OBJECTS} cf_calfes
+
+distclean:
+		/bin/rm -f ${OBJECTS} cf_calfes
+		cd ../../bin; /bin/rm -f cf_calfes
+
+lint:		${SOURCES}
+		lint ${SOURCES}
diff --git a/src/fes/Makefile.Linux64.orig b/src/fes/Makefile.Linux64.orig
new file mode 100644
index 0000000..87e47c2
--- /dev/null
+++ b/src/fes/Makefile.Linux64.orig
@@ -0,0 +1,43 @@
+
+SHARED=		-shared
+CALFUSEDIR=	${PWD}/../..
+
+# Symbols for include directories
+FUSEINCLDIR=    -I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=             cc
+OPT=            -g -Wall -DCFORTRAN -Dg77Fortran -Df2cFortran
+CFLAGS =	${OPT} ${FUSEINCLDIR}
+
+# Symbols used for creating shared binaries
+FUSEBINDIR=     ${CALFUSEDIR}/bin
+FUSELIBDIR=     -L${CALFUSEDIR}/lib
+LIBDIR=         
+FUSELIBS=       -lsla -lcf
+LIBS=           -lc -lm -lnsl -ldl -lgfortran -lcfitsio
+LDFLAGS=        -Wl,-R${CALFUSEDIR}/lib
+
+OBJECTS=	cf_calfes.o cf_fes_init.o cf_fes_read.o cf_fes_write.o \
+		cf_fes_cal.o cf_fes_get_cal_image.o cf_limbang.o \
+		cf_fes_apply_bias.o cf_fes_apply_flat.o cf_fes_apply_mask.o 
+
+all:		cf_calfes
+
+cf_calfes:	${OBJECTS}
+		${CC} ${CFLAGS} -o cf_calfes ${OBJECTS} \
+		${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+		chmod g+rw cf_calfes
+
+install:	cf_calfes
+		/bin/cp cf_calfes ${FUSEBINDIR}
+
+clean:
+		/bin/rm -f ${OBJECTS} cf_calfes
+
+distclean:
+		/bin/rm -f ${OBJECTS} cf_calfes
+		cd ../../bin; /bin/rm -f cf_calfes
+
+lint:		${SOURCES}
+		lint ${SOURCES}
diff --git a/src/fes/Makefile.Solaris.orig b/src/fes/Makefile.Solaris.orig
new file mode 100644
index 0000000..23f189b
--- /dev/null
+++ b/src/fes/Makefile.Solaris.orig
@@ -0,0 +1,44 @@
+
+SHARED=		-shared
+FITSVER=	2.470
+CALFUSEDIR=	${PWD}/../..
+
+# Symbols for include directories
+FUSEINCLDIR=    -I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=             cc
+OPT=            -O -DCFORTRAN -KPIC -DSOLARIS
+CFLAGS =	${OPT} ${FUSEINCLDIR}
+
+# Symbols used for creating shared binaries
+FUSEBINDIR=     ${CALFUSEDIR}/bin
+FUSELIBDIR=     -L${CALFUSEDIR}/lib
+LIBDIR=         -L/opt/SUNWspro/lib
+FUSELIBS=       -lsla -lcfitsio-${FITSVER} -lcf
+LIBS=           -lc -lm -lnsl -ldl -lsocket -lsunmath -lM77 -lF77
+LDFLAGS=        -Wl,-R${CALFUSEDIR}/lib
+
+OBJECTS=	cf_calfes.o cf_fes_init.o cf_fes_read.o cf_fes_write.o \
+		cf_fes_cal.o cf_fes_get_cal_image.o cf_limbang.o \
+		cf_fes_apply_bias.o cf_fes_apply_flat.o cf_fes_apply_mask.o 
+
+all:		cf_calfes
+
+cf_calfes:	${OBJECTS}
+		${CC} ${CFLAGS} -o cf_calfes ${OBJECTS} \
+		${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+		chmod g+rw cf_calfes
+
+install:	cf_calfes
+		/bin/cp cf_calfes ${FUSEBINDIR}
+
+clean:
+		/bin/rm -f ${OBJECTS} cf_calfes
+
+distclean:
+		/bin/rm -f ${OBJECTS} cf_calfes
+		cd ../../bin; /bin/rm -f cf_calfes
+
+lint:		${SOURCES}
+		lint ${SOURCES}
diff --git a/src/fes/Makefile.orig.orig b/src/fes/Makefile.orig.orig
new file mode 100644
index 0000000..23f189b
--- /dev/null
+++ b/src/fes/Makefile.orig.orig
@@ -0,0 +1,44 @@
+
+SHARED=		-shared
+FITSVER=	2.470
+CALFUSEDIR=	${PWD}/../..
+
+# Symbols for include directories
+FUSEINCLDIR=    -I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=             cc
+OPT=            -O -DCFORTRAN -KPIC -DSOLARIS
+CFLAGS =	${OPT} ${FUSEINCLDIR}
+
+# Symbols used for creating shared binaries
+FUSEBINDIR=     ${CALFUSEDIR}/bin
+FUSELIBDIR=     -L${CALFUSEDIR}/lib
+LIBDIR=         -L/opt/SUNWspro/lib
+FUSELIBS=       -lsla -lcfitsio-${FITSVER} -lcf
+LIBS=           -lc -lm -lnsl -ldl -lsocket -lsunmath -lM77 -lF77
+LDFLAGS=        -Wl,-R${CALFUSEDIR}/lib
+
+OBJECTS=	cf_calfes.o cf_fes_init.o cf_fes_read.o cf_fes_write.o \
+		cf_fes_cal.o cf_fes_get_cal_image.o cf_limbang.o \
+		cf_fes_apply_bias.o cf_fes_apply_flat.o cf_fes_apply_mask.o 
+
+all:		cf_calfes
+
+cf_calfes:	${OBJECTS}
+		${CC} ${CFLAGS} -o cf_calfes ${OBJECTS} \
+		${FUSELIBDIR} ${LIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+		chmod g+rw cf_calfes
+
+install:	cf_calfes
+		/bin/cp cf_calfes ${FUSEBINDIR}
+
+clean:
+		/bin/rm -f ${OBJECTS} cf_calfes
+
+distclean:
+		/bin/rm -f ${OBJECTS} cf_calfes
+		cd ../../bin; /bin/rm -f cf_calfes
+
+lint:		${SOURCES}
+		lint ${SOURCES}
diff --git a/src/fes/cf_calfes.c b/src/fes/cf_calfes.c
new file mode 100644
index 0000000..43e913c
--- /dev/null
+++ b/src/fes/cf_calfes.c
@@ -0,0 +1,151 @@
+/*******************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *******************************************************************************
+ *
+ * Synopsis:    cf_calfes rootname
+ *                   where rootname is the exposure root name
+ *
+ * Description: 
+ *      This main program calls all the routines below to apply 
+ *      FES processing steps.  It
+ *         1) Opens the input and output FES FITS files;
+ *         2) Loops through all images present:
+ *              a) Calls the procedures listed below to process all the images;
+ *              b) Writes the current processed image out to the 
+ *                    current output HDU.
+ *         3) Closes the input and output files.
+ *
+ * Arguments:  rootname exposure_root_name
+ *
+ * Returns:    0 upon successful completion
+ *
+ * History:    07/08/98    gak    calfes_design.070898 design documented
+ *             07/15/98    mlr    begin work
+ *             04/12/99    mlr    modified to only write each image only
+ *                                once - now passing the image in addition
+ *                                to the fits hdu to each subroutine.
+ *             04/19/99    mlr    finished modifications to utilize
+ *                                libcf and FITSIO.h(error handling).
+ *	       08/23/04	   wvd    Change cf_velang_calc to cf_velang.
+ *
+ ******************************************************************************/
+
+#include 
+#include "calfuse.h"
+#include "cf_calfes.h"
+
+#define CF_PRGM_ID      "cf_calfes"
+#define CF_VER_NUM	"1.4"
+#define RAW_FES "RAW FES           "
+#define CAL_FES "CALIBRATED FES    "
+
+int main(int argc, char *argv[])
+{
+    fitsfile   *infits, *outfits;
+    int        i, status;
+    int        hdu, hdutype, num_of_hdus;
+    int        naxes1, naxes2;
+    long       bitpix;
+    float      bscale, bzero;
+    double     mjd_start, mjd_end;
+
+    char       infilename[30], outfilename[30];
+    char       file_type[20];
+    float      *image;
+
+        /* Enter a timestamp into the log. */
+    	cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+        cf_error_init(CF_PRGM_ID,CF_VER_NUM, stdout);
+
+        if (argc != 2)
+           cf_if_error("Usage: cf_calfes filerootname ");
+
+        /* determine file names of the input file and the output file */
+	strcpy(infilename, argv[1]);
+        strcat(infilename, "raw.fit");
+
+        strcpy(outfilename, argv[1]);
+        strcat(outfilename, "cal.fit");
+
+        status=0;
+
+        /* open the input FES FITS file  and verify that it is a RAW FES file*/
+	FITS_open_file(&infits, infilename, READONLY, &status);
+
+        FITS_read_key(infits, TSTRING, "FILETYPE", &file_type, NULL, &status);
+
+        if (strncmp(file_type, RAW_FES, 7) != 0)
+                cf_if_error("The input file is not a RAW FES file.");
+
+        /* open the output file for calibrated FES data, copy the primary
+           header from the input FES file to the output FES file, then 
+           modify keywords as needed. 
+        */
+	FITS_create_file(&outfits, outfilename, &status);
+        FITS_copy_header(infits, outfits, &status);
+
+        bitpix = FLOAT_IMG;
+        FITS_update_key(outfits, TLONG,   "BITPIX",   &bitpix, NULL, &status);
+        FITS_update_key(outfits, TSTRING, "FILETYPE", CAL_FES, NULL, &status);
+
+        read_tle(outfits);
+
+        /* Determine how many extensions there are in this file.
+           There is 1 FES image in each extension.  So this tells us how
+           many images there are in this file and controls the loop that
+           processes each one.
+        */
+
+        FITS_read_key(infits, TINT, "NEXTEND ", &num_of_hdus, NULL, &status);
+
+        printf("This file %s has %d FES image(s).\n", infilename, num_of_hdus);
+        hdutype = -1;
+
+        for (i=1 ; i <= num_of_hdus; i++)
+        {
+            hdu = i + 1;
+
+	    FITS_create_hdu(outfits, &status);
+	    FITS_movabs_hdu(infits, hdu, &hdutype, &status);
+            FITS_copy_header(infits, outfits, &status);
+
+            bitpix = FLOAT_IMG;
+            bzero = 0.0; 
+            bscale = 1.0;
+            FITS_update_key(outfits, TLONG,  "BITPIX", &bitpix, NULL, &status);
+            FITS_update_key(outfits, TFLOAT, "BZERO",  &bzero,  NULL, &status);
+            FITS_update_key(outfits, TFLOAT, "BSCALE", &bscale, NULL, &status);
+
+            FITS_read_key(outfits,TDOUBLE,"EXPSTART",&mjd_start,NULL, &status);
+            FITS_read_key(outfits,TDOUBLE,"EXPEND",  &mjd_end,  NULL, &status);
+            cf_velang(outfits, (mjd_start+mjd_end)/2.0 );
+            cf_min_limbang(outfits, mjd_start, mjd_end);
+ 
+             status =+ cf_fes_read(infits, &image, &naxes1, &naxes2);
+             status =+ cf_fes_init(outfits);
+             status =+ cf_fes_write(outfits, hdu, image); 
+
+             status =+ cf_fes_cal(FES_MASK, outfits, &image, naxes1, naxes2);
+             status =+ cf_fes_cal(FES_BIAS, outfits, &image, naxes1, naxes2);
+             status =+ cf_fes_cal(FES_FLAT, outfits, &image, naxes1, naxes2);
+             status =+ cf_fes_write(outfits, hdu, image); 
+
+
+             free(image);
+
+             if (status != 0)
+        	cf_if_error("cf_calfes failed.");
+	}
+
+        /* close the FES FITS files */
+	FITS_close_file(infits, &status);
+	FITS_close_file(outfits, &status);
+
+
+        /* Enter a timestamp into the log. */
+        cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done Processing");
+
+	return(status);
+}
diff --git a/src/fes/cf_calfes.h b/src/fes/cf_calfes.h
new file mode 100644
index 0000000..d4944fa
--- /dev/null
+++ b/src/fes/cf_calfes.h
@@ -0,0 +1,10 @@
+#define FES_GOOD_PIX    0.0
+#define FES_BAD_PIX   -20.0
+#define FES_FLAT          1
+#define FES_MASK          2
+#define FES_BIAS          3
+
+int cf_fes_apply_flat(fitsfile *, float **, float *, int, int);
+int cf_fes_apply_mask(fitsfile *, float **, float *, int, int);
+int cf_fes_apply_bias(fitsfile *, float **, float *, int, int);
+
diff --git a/src/fes/cf_cp_hdr.c b/src/fes/cf_cp_hdr.c
new file mode 100644
index 0000000..7642f05
--- /dev/null
+++ b/src/fes/cf_cp_hdr.c
@@ -0,0 +1,71 @@
+/*******************************************************************************
+ *	      Johns Hopkins University
+ *	      Center For Astrophysical Sciences
+ *	      FUSE
+ *******************************************************************************
+ *
+ * Synopsis:	cf_cp_hdr(fitsfile *infits, int inhdu, fitsfile *outfits,
+ *			int outhdu)
+ *
+ * Description: Copies the header, with no changes, from HDU inhdu of the
+ *	 	input FITS file infits to HDU outhdu of the output FITS file
+ *		outfits.
+ *
+ * Arguments:	fitsfile	*infits		Input FITS file pointer
+ *		int		inhdu		HDU to be copied from
+ *		fitsfile	*outfits	Output FITS file pointer
+ *		int		outhdu		HDU to be copied to
+ *
+ * Returns:	none
+ *
+ * History:	04/02/98	gak	Begin work
+ *		08/27/98	gak	Initialized status, hdutype;
+ *					return status
+ *
+ ******************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+#define CF_PRGM_ID      "cf_cp_hdr"
+#define CF_VER_NUM      "1.1"
+
+int cf_cp_hdr(fitsfile *infits, int inhdu, fitsfile *outfits, int outhdu)
+{
+	char		buffer[FLEN_CARD];
+	int 		status, hdutype; 
+	int		nkeys, keynum;
+	int		i;
+
+	status = 0;
+	hdutype = 0;
+
+	if ( fits_movabs_hdu(infits, inhdu, &hdutype, &status) ) {
+		cf_if_error(status);
+		exit(status);
+	}
+	if ( fits_movabs_hdu(outfits, outhdu, &hdutype, &status) ) {
+		cf_if_error(status);
+		exit(status);
+	}
+
+	/* Get number of keywords in the input header, loop & copy. */
+	if ( fits_get_hdrpos(infits, &nkeys, &keynum, &status) ) {
+		cf_if_error(status);
+		exit(status);
+	}
+	for ( i = 1; i <= nkeys; i++) {
+		if ( fits_read_record(infits, i, buffer, &status) ) {
+			cf_if_error(status);
+			exit(status);
+		}
+		if ( fits_write_record(outfits, buffer, &status) ) {
+			cf_if_error(status);
+			exit(status);
+		}
+	}
+
+	return status;
+}
diff --git a/src/fes/cf_fes_apply_bias.c b/src/fes/cf_fes_apply_bias.c
new file mode 100644
index 0000000..7591757
--- /dev/null
+++ b/src/fes/cf_fes_apply_bias.c
@@ -0,0 +1,98 @@
+/*******************************************************************************
+ *	      Johns Hopkins University
+ *	      Center For Astrophysical Sciences
+ *	      FUSE
+ *******************************************************************************
+ *
+ * Synopsis: cf_apply_fes_bias(fitsfile *fesfits, float **image, 
+ *                                       float *bias, int axis1, int axis2)
+ *
+ * Description: Apply FES bias in *bias to the raw FES image in **image
+ *     To apply the bias, I simply loop through the 
+ *     bias image pixel by pixel and subtract that 
+ *     value from the given FES image.
+ *
+ * Arguments:	fitsfile *fesfits       fits file for image so that we can add
+ *                                      history/comment lines to the HDU
+ *              float   **image 	FES image
+ *              float   *bias	 	FES bias image
+ *              int     axis1, axis2    size of each axis of the images.
+ *                                      This presumes that both images are 
+ *                                      the same size when they get here.
+ *
+ * Returns:	0 upon successful completion
+ *
+ * History:	07/08/98	gak     calfes_design.070898 design documented
+ *              07/22/98        mlr     started work
+ *              04/06/99        mlr     Broke this actual subroutine out
+ *                                      from cf_fes_bias.c
+ *              08/10/99        mlr     added fesfits to the argument list
+ *              04/25/02        wvd	initialize status to zero
+ *
+ ******************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+#include "cf_calfes.h"
+
+#define CF_PRGM_ID      "cf_fes_apply_bias"
+#define CF_VER_NUM      "1.4"
+
+int cf_fes_apply_bias(fitsfile *fesfits, float **image,  
+                               float *bias, int naxis1, int naxis2)
+{
+        int i, j;  /*loop counters */
+        int status=0;
+        float os_bias, os_data;
+        float factor;
+        char buffer[80];
+
+        cf_timestamp(CF_PRGM_ID,CF_VER_NUM, "Applying FES bias");
+        
+        os_bias=0.;
+        os_data=0.;
+
+	if (naxis1 == 520)  /* 1x1 binning */
+   	{
+           for (j=0; j<520; j++)
+	      for (i=512; i<520; i++)
+              {
+	         os_bias += bias[j*naxis1+i];
+	         os_data += (*image)[j*naxis1+1];
+              }
+        }
+        else if (naxis1 == 260)  /* 2x2 binning */
+        {
+           for (j=0; j<260; j++)
+               for (i=256; i<260; i++)
+               {
+	         os_bias += bias[j*naxis1+i];
+	         os_data += (*image)[j*naxis1+1];
+               }
+        }
+        else   /*bail out -- unsupported image size or binning */
+            exit(-1);
+
+      factor = os_data / os_bias;
+      sprintf(buffer, "FES BIAS FACTOR = %lf",factor);
+      cf_timestamp(CF_PRGM_ID, CF_VER_NUM, buffer);
+
+/*      FITS_write_history(fesfits, buffer, &status); */
+
+      for (j=0; j
+#include 
+#include 
+#include "calfuse.h"
+#include "cf_calfes.h"
+
+#define CF_PRGM_ID      "cf_fes_apply_flat"
+#define CF_VER_NUM      "1.4"
+
+int cf_fes_apply_flat(fitsfile *fesfits, float **image,  
+                            float *flat, int naxis1, int naxis2)
+{
+        int i, j;  /*loop counters */
+        int pixel;
+
+        cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Applying FES flatfield");
+        for (j=0; j < naxis2; j++)
+             for (i=0; i < naxis1; i++)
+             {
+               pixel = j* naxis1+ i;            
+               if ((*image)[pixel] != FES_BAD_PIX)
+                   if (flat[pixel] != 0.0 )
+                        (*image)[pixel] /= flat[pixel];
+                   else 
+                      (*image)[pixel] = FES_BAD_PIX;
+             }
+       cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done applying FES flat");
+
+       return(0);
+}
diff --git a/src/fes/cf_fes_apply_mask.c b/src/fes/cf_fes_apply_mask.c
new file mode 100644
index 0000000..c083121
--- /dev/null
+++ b/src/fes/cf_fes_apply_mask.c
@@ -0,0 +1,56 @@
+/*******************************************************************************
+ *	      Johns Hopkins University
+ *	      Center For Astrophysical Sciences
+ *	      FUSE
+ *******************************************************************************
+ *
+ * Synopsis: cf_apply_fes_mask(fitsfile *fesfits, float **image, 
+ *                                       float *mask, int axis1, int axis2)
+ *
+ * Description: Apply FES mask in *mask to the raw FES image in **image
+ *     To apply the mask I simply loop through the 
+ *     mask image pixel by pixel and 
+ *    If the mask pixel value != 0.0
+ *    then fes image pixel value = mask pixel value.
+ *
+ * Arguments:	fitsfile *fesfits       fits file for image, so that we can add
+ *                                      history/comment lines to the HDU
+ *              float   **image 	FES image
+ *              float   *mask	 	FES mask
+ *              int     axis1, axis2    size of each axis of the images.
+ *                                      This presumes that both images are 
+ *                                      the same size when they get here.
+ *
+ * Returns:	0 upon successful completion
+ *
+ * History:	07/08/98	gak     calfes_design.070898 design documented
+ *              07/22/98        mlr     started work
+ *              04/06/99        mlr     Broke subroutine out from cf_fes_mask.c
+ *              08/10/99        mlr     added fesfits to the argument list
+ *
+ *
+ ******************************************************************************/
+
+#include "calfuse.h"
+#include "cf_calfes.h"
+
+#define CF_PRGM_ID      "cf_fes_apply_mask"
+#define CF_VER_NUM      "1.4"
+
+int cf_fes_apply_mask(fitsfile *fesfits, float **image,  
+                               float *mask, int naxis1, int naxis2)
+{
+        int i, j;  /*loop counters */
+
+        cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Applying FES pixel mask");
+
+        for (j=0; j < naxis2; j++)
+             for (i=0; i < naxis1; i++)
+               if (mask[j*naxis1+i] != FES_GOOD_PIX )
+                     (*image)[j*naxis1+i] = mask[j*naxis1+i];
+
+
+       cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done applying FES  mask");
+
+       return(0);
+}
diff --git a/src/fes/cf_fes_cal.c b/src/fes/cf_fes_cal.c
new file mode 100644
index 0000000..0f08bbd
--- /dev/null
+++ b/src/fes/cf_fes_cal.c
@@ -0,0 +1,115 @@
+/*******************************************************************************
+ *	      Johns Hopkins University
+ *	      Center For Astrophysical Sciences
+ *	      FUSE
+ *******************************************************************************
+ *
+ * Synopsis:	int cf_fes_cal(int cal_type, fitsfile *fesfits, float **image, 
+ *                                    int inaxis1, int inaxis2)
+ *
+ * Description: Get bias calibration filename for the raw FES image in
+ *                  the current hdu pointed at by *infits.
+ *              Call cf_fes_get_cal_image() to open the cal file and get
+ *                                          the calibration image.
+ *              Call cf_fes_apply_flat();
+ *              return the modified image to the calling routine.
+ *              4/10/99  MLR removed int inhdu as an argument and removed
+ *                       the call to fits_movabs_hdu.  This requires any
+ *                       user of this subroutine to do these steps before
+ *                       calling cf_fes_flat.
+ *              4/10/99  MLR removed (fitsfile *outfits, int outhdu) from 
+ *                       the argument list.  We will leave writing the image
+ *                       out to the calling routine.
+ *   
+ *
+ * Arguments:	fitsfile   *infits	Input FITS file pointer
+ *              float **image           already read in FES image
+ *              int inaxis1             image size  of the input image
+ *              int inaxis2
+ *
+ * Returns:	none
+ *
+ * History:	07/08/98	gak     calfes_design.070898 design documented
+ *              07/22/98        mlr     started work
+ *              04/10/99        mlt     pulled the actual work out of this
+ *                                      routine and into cf_fes_apply_flat
+ *              04/12/99        mlr     modified the input arguments(see above)
+ *                                      use the now generic cf_fes_read to
+ *                                      get the calibration image.
+ *              04/14/99        mlr     pulled the reading out and put it 
+ *                                      into cf_fes_get_cal_image.c
+ *              04/16/99        mlr     finished modifications to utilize
+ *                                      libcf and FITSIO.h(error handling).
+ *
+ * ToDo:  4/12/99 I have added the naxis1 and naxis2 parameters to the 
+ *                argument list.  I need to use them to compare binning
+ *                factors in the two images.
+ *                I should combine cf_fes_mask, cf_fes_bias, cf_fes_flat
+ *                into one generic cf_fes_do_cal("cf_fes_mask", *fesfits,...etc)
+ *
+ ******************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+#include "cf_calfes.h"
+
+#define CF_VER_NUM  "1.4"
+
+int cf_fes_cal(int cal_type, fitsfile *fesfits, float **image, 
+                              int inaxis1, int inaxis2)
+{
+	char	buffer[FLEN_CARD];
+        char    calfilename[30];
+        fitsfile *calfile;
+	int 	status; 
+        float   *calimage;
+	char *prog_id, *msg, *keyword, *msg2;
+
+	int (*func)(fitsfile *, float **, float *, int, int);
+
+        status = 0;
+
+        switch (cal_type) {
+           case FES_FLAT:
+		prog_id = "cf_fes_flat";
+		msg = "Begin FES flatfield";
+		msg2 = "Done  FES flatfield";
+		keyword = "FFLT1FCL";
+		func =  cf_fes_apply_flat;
+		break;
+           case FES_MASK:
+		prog_id = "cf_fes_mask";
+		msg = "Begin FES mask";
+		msg2 = "Done  FES mask";
+		keyword = "MASK_FCL";
+		func =  cf_fes_apply_mask;
+		break;
+           case FES_BIAS:
+		prog_id = "cf_fes_bias";
+		msg = "Begin FES bias";
+		msg2 = "Done  FES bias";
+		keyword = "BIAS1FCL";
+		func =  cf_fes_apply_bias;
+		break;
+	}
+
+
+	cf_timestamp(prog_id, CF_VER_NUM, msg);
+
+        FITS_read_key(fesfits, TSTRING, keyword, calfilename, buffer, &status);
+
+        if (cf_fes_get_cal_image(calfilename, &calimage, inaxis1, inaxis2) == -1)
+           return (-1);
+       
+        (*func)(fesfits, image, calimage, inaxis1, inaxis2);
+
+        cf_fes_proc_update(fesfits, prog_id, "COMPLETE");
+
+        free(calimage);
+
+        cf_timestamp(prog_id, CF_VER_NUM, msg2);
+
+        return(status);
+}
diff --git a/src/fes/cf_fes_get_cal_image.c b/src/fes/cf_fes_get_cal_image.c
new file mode 100644
index 0000000..2e5e8f0
--- /dev/null
+++ b/src/fes/cf_fes_get_cal_image.c
@@ -0,0 +1,71 @@
+ /*******************************************************************************
+ *	      Johns Hopkins University
+ *	      Center For Astrophysical Sciences
+ *	      FUSE
+ *******************************************************************************
+ *
+ * Synopsis:int cf_fes_get_cal_image(char cal_file_name[], float **cal_image, 
+ *                                                  int naxis1, int naxis2)
+ *
+ * Description: open the specified calibration file for an FES image
+ *              loop through each extension in the calibration file
+ *             until you find the one that has the same size naxis1 and
+ *              naxis2 as the input image.
+ *              read the image in that extention into *cal_image
+ *              close the calibration file
+ *
+ * Arguments:	char cal_file_name[], 
+ *              float **cal_image, 
+ *              int naxis1, int naxis2
+ *
+ * Returns:	none
+ *
+ * History:	04/14/99        mlr     started work
+ *              04/16/99        mlr     modified to use libcf and FITSIO.h
+ *
+ ******************************************************************************/
+
+#include "calfuse.h"
+
+#define CF_PRGM_ID      "cf_fes_get_cal_image"
+#define CF_VER_NUM      "1.4"
+
+int cf_fes_get_cal_image(char cal_file_name[], float **cal_image, 
+                                  int naxis1, int naxis2)
+{
+      fitsfile *fes_cal_file;
+      int status;
+      int i, hdu, hdutype, num_exts;
+      int cal_axis1, cal_axis2;
+      char buffer[FLEN_CARD];
+ 
+      cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin getting Cal image");
+
+      status = 0;
+
+      /* open the input FES CALIBRATION file */
+
+      FITS_open_file(&fes_cal_file,cf_cal_file(cal_file_name),READONLY,&status);
+
+      FITS_read_key(fes_cal_file, TINT, "NEXTEND", &num_exts, buffer, &status);
+
+      for (i = 1; i<= num_exts; i++)
+      {
+ 	  hdu = i + 1;
+          FITS_movabs_hdu(fes_cal_file, hdu, &hdutype, &status);
+          cf_fes_read(fes_cal_file, cal_image, &cal_axis1, &cal_axis2);
+          if ((cal_axis1 == naxis1) && (cal_axis2 == naxis2))
+                   break;
+      }
+      FITS_close_file(fes_cal_file, &status);
+
+      if (i>num_exts) 
+      { 
+          *cal_image=NULL;
+          cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "No Cal image of requested size");
+          return(-1);
+      }
+       
+      cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done getting Cal image");
+      return(status);
+}
diff --git a/src/fes/cf_fes_init.c b/src/fes/cf_fes_init.c
new file mode 100644
index 0000000..fcbb34c
--- /dev/null
+++ b/src/fes/cf_fes_init.c
@@ -0,0 +1,294 @@
+
+/*******************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *******************************************************************************
+ *
+ * Synopsis:    cf_fes_init(fitsfile *fptr)
+ *
+ * Description: cf_fes_init performs two functions.  First, populates the 
+ *              data processing step keywords based upon the type of 
+ *              data (FESA or FESB).  Second, it populates the calibration
+ *              file keywords based on the time and date of observation,
+ *              the detector segment, and the interpolation status of the
+ *              calibration file.
+ *
+ * Arguments:   fitsfile    *fptr	Pointer to input file
+ *
+ * History:     05/21/98        emm     Begin work.
+ *              06/17/98        emm     Modified keywords to reflect updated
+ *                                      calfuse design
+ *              07/15/98        mlr     copied from emm
+ *		08/23/04	wvd	Change from fits_modify_key_str to
+ *					FITS_update_key throughout.
+ ******************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+#define  MAXCHARS 120
+#define  MASTER_CAL_FILE "master_fes_calib_file.dat"
+#define  CF_PRGM_ID      "cf_fes_init"
+#define  CF_VER_NUM      "1.4"
+
+int cf_fes_init(fitsfile *fptr) 
+{
+int   i,j,k,l,flg;
+char  comment[FLEN_CARD], instmode[FLEN_CARD], detector[FLEN_CARD];
+char  fes[2];
+char  keyword_in[9], segment_in[3];
+char  filename_in[19]="                  \0";
+char  keyword_out1[9], keyword_out2[9];
+char  complete[19], error[19], blank[19];
+char  linin[120];
+int   status, interp_in;
+float expstart, aftermjd_in;
+
+struct fes_keyword_tab keytab[NUM_FES_PROC_STEPS]=FES_CALIBRATION_STEP_KEYS;
+struct cal_file_tab calkey[NUM_FES_CAL_KEYS]=FES_CALIBRATION_FILE_KEYS;
+FILE  *fpin;
+
+cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin initializing header");
+cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+status=0;
+
+   strncpy(complete,"COMPLETE          \0",19);
+   strncpy(error,   "ERROR             \0",19);
+   strncpy(blank,   "                  \0",19);
+
+/*  Populate data processing keywords. */
+
+   for (i=0; i second cal file preceeding observation
+    *     calkey[i].filenames[1] => cal file immediately preceeding observation
+    *     calkey[i].filenames[2] => cal file immediately after observation
+    *
+    *  Here is the plan.  Cycle through the master cal file, reading each
+    *  line.  Determine the keyword for each line, and use that to determine
+    *  the appropriate index [i] for calkey.  Then, if the detector segment 
+    *  is correct, determine where the new file fits into the structure above.
+    *  If it is more recent than one or both of the preceeding cal files, 
+    *  but is older than the observation (expstart) replace either 
+    *  filenames[0] or filenames[1].  If filenames[1] is replaced, shift
+    *  the old value down into filenames[0].  If the file is more recent 
+    *  than the observation, and closer to the observation than the file 
+    *  in filenames[2], replace filenames[2].  The values 
+    *  calkey[i].aftermjd[] and calkey[i].interp[] store the date and 
+    *  interpolation status of the best files.  This organization allows
+    *  the master calibration database file to be written in any order.
+    */
+
+   while (fgets(linin, MAXCHARS, fpin) != NULL) {
+
+        /* Check for comment lines */
+
+       if ((linin[0] != '#') && (linin[0] != '\n')) {
+              sscanf(linin, "%4c %1c %12c %9f %1d",keyword_in,
+                           segment_in,filename_in,&aftermjd_in,&interp_in);
+
+	      /* Determine which keyword we just read in. */
+              i=0;
+              while ((strncmp(calkey[i].name,keyword_in,4) != 0) && 
+                                      (i < NUM_FES_CAL_KEYS)) i++;
+
+              if (i >= NUM_FES_CAL_KEYS) {
+                   cf_if_warning("Unrecognized keyword in master calibration file");
+              } else {
+                   if ((strncmp(segment_in,"  ",1) == 0) || 
+                       (strncmp(segment_in,fes,1) == 0)) {
+                        j=0;
+                        if ((aftermjd_in < expstart) && 
+                            (aftermjd_in > calkey[i].aftermjd[0]) &&
+                            (aftermjd_in > calkey[i].aftermjd[1])) {
+                                  strncpy(calkey[i].filenames[0],
+                                          calkey[i].filenames[1],18);
+                                  calkey[i].aftermjd[0]=calkey[i].aftermjd[1];
+                                  calkey[i].interp[0]=calkey[i].interp[1];
+                                  strncpy(calkey[i].filenames[1],
+                                          filename_in,18);
+                                  calkey[i].aftermjd[1]=aftermjd_in;
+                                  calkey[i].interp[1]=interp_in;
+                         } else if ((aftermjd_in < expstart) && 
+                            (aftermjd_in > calkey[i].aftermjd[0])) {
+                                  strncpy(calkey[i].filenames[0],
+                                          filename_in,18);
+                                  calkey[i].aftermjd[0]=aftermjd_in;
+                                  calkey[i].interp[0]=interp_in;
+			 }
+     
+                        if ((aftermjd_in > expstart) && 
+                            (aftermjd_in < calkey[i].aftermjd[2])) {
+                                  strncpy(calkey[i].filenames[2],
+                                          filename_in,18);
+                                  calkey[i].aftermjd[2]=aftermjd_in;
+                                  calkey[i].interp[2]=interp_in;
+			}
+		   } /* Endif segment match */
+	      } /* end else unrecognized keyword */		   
+	}  /* end while linin not comment */
+   } /* end while(linin != NULL) */
+
+   fclose(fpin);
+
+   /*  OK, now that we have identified the closest two files before
+    *  the observation, and the file after the observation, we can
+    *  decide what to do with them.  First, the easy part:  if 
+    *  calkey[i].numfiles=1, no interpolation is possible, so we
+    *  write out calkey[i].filenames[1], which is the file immediately
+    *  preceeding the observation.  If calkey[i].numfiles=2, interpolation
+    *  is possible, and we will have to write two keywords into the header.
+    *  The decision as to which two keywords to write follows these rules:
+    *  Rule 1: If an observation occurs between two files which can be 
+    *          interpolated, then an interpolation must be done. 
+    *  Rule 2: If the calibration file immediately preceeding an 
+    *          observation is to be used in a stepwise manner, then said
+    *          file shall be used in stepwise manner. 
+    *  Rule 3: If the two calibration files immediately preceeding an 
+    *          observation can be interpolated, but the following file 
+    *          cannot, then the two previous files will be extrapolated 
+    *          forward in time. 
+    *  Rule 4: If the closest preceeding calibration file has an interpolation
+    *          flag, but the file preceeding it has a stepwise flag, the the 
+    *          closest preceeding file will be used in a sterpwise manner.
+    *  Rule 5: Never interpolate backward in time.
+    *
+    *  In fact, there are only 8 possible cases:
+    *
+    *  Remember, the files were sorted such that the observation 
+    *  always occurs between [1] and [2].  Also remember that 
+    *  interp[i]=0 => stepwise):
+    *
+    *    Case               Action
+    *
+    *  interp[0] = 0
+    *  interp[1] = 0    filenames[1] will be used in a stepwise manner
+    *  interp[2] = 0
+    *
+    *  interp[0] = 0
+    *  interp[1] = 0    filenames[1] will be used in a stepwise manner
+    *  interp[2] = 1
+    *
+    *  interp[0] = 0
+    *  interp[1] = 1    filenames[1] will be used in a stepwise manner
+    *  interp[2] = 0
+    *
+    *  interp[0] = 1
+    *  interp[1] = 0    filenames[1] will be used in a stepwise manner
+    *  interp[2] = 0
+    *
+    *  interp[0] = 1
+    *  interp[1] = 0    filenames[1] will be used in a stepwise manner
+    *  interp[2] = 1
+    *
+    *  interp[0] = 0
+    *  interp[1] = 1    filenames[1] and filenames[2] will be interpolated
+    *  interp[2] = 1
+    *
+    *  interp[0] = 1
+    *  interp[1] = 1    filenames[0] and filenames[1] will be extrapolated
+    *  interp[2] = 0
+    *
+    *  interp[0] = 1
+    *  interp[1] = 1    filenames[1] and filenames[2] will be interpolated
+    *  interp[2] = 1
+    *
+    */
+
+   /*  Write the calibration files into the header keywords. */
+   /*  Cycle through the keywords. */
+   for (i=0; i
+#include "calfuse.h"
+#include "sgp4.h"
+static char CF_PRGM_ID[] = "cf_limbang";
+ 
+SGP4   set_orbit_parms(fitsfile *);
+
+double cf_limbang_calc(fitsfile *outfits, double mjd)
+{
+    int    status=0, isday_dummy;
+    char   comment[FLEN_CARD];
+    double ra, dec, pos[3], vel[3];
+    double lim_ang, zdist_dummy;
+    SGP4   sgp4;
+
+    sgp4 = set_orbit_parms(outfits);
+
+    /* get the state vector at time mjd */
+    SGP4_getStateVector(sgp4, mjd, pos, vel);
+    SGP4_precess(pos, mjd, MJD2000); SGP4_precess(vel, mjd, MJD2000);
+
+    FITS_read_key(outfits, TDOUBLE, "RA_TARG", &ra, comment, &status);
+    FITS_read_key(outfits, TDOUBLE, "DEC_TARG", &dec, comment, &status);
+
+    lim_ang = state_limb(pos, mjd, ra, dec, &zdist_dummy, &isday_dummy);
+
+    return(lim_ang);
+}
+
+void cf_min_limbang(fitsfile *outfits, double mjd_start, double mjd_end)
+{
+     
+     int status = 0;
+     double lim_ang, min_lim;
+     double mjd;     
+
+    mjd = mjd_start;
+    min_lim = cf_limbang_calc(outfits, mjd);
+
+#ifdef DEBUG
+    printf("mjd: %lf mjd_end = %lf minlim = %lf\n", mjd, mjd_end, min_lim);
+#endif
+    /* .0001 = 8.6 seconds */
+    while ( (mjd_end - mjd) > .0001 )
+    {
+          mjd = mjd + .0001;
+          lim_ang = cf_limbang_calc(outfits, mjd);
+#ifdef DEBUG
+          printf("mjd: %lf mjd_end = %lf minlim = %lf, limang = %lf\n", 
+                    mjd, mjd_end, min_lim, lim_ang);
+#endif
+          if (lim_ang < min_lim) min_lim = lim_ang;
+    }
+
+    mjd = mjd_end;
+    lim_ang = cf_limbang_calc(outfits, mjd);
+
+#ifdef DEBUG
+    printf("mjd: %lf mjd_end = %lf minlim = %lf, limang = %lf\n", 
+                 mjd, mjd_end, min_lim, lim_ang);
+#endif
+
+    if (lim_ang < min_lim)  min_lim = lim_ang;
+
+#ifdef DEBUG
+    printf("mjd: %lf mjd_end = %lf minlim = %lf\n", mjd, mjd_end, min_lim);    
+#endif
+
+    FITS_update_key(outfits, TDOUBLE, "MIN_LIMB", &min_lim, NULL, &status);
+
+}
diff --git a/src/fuv/Makefile.Linux.orig b/src/fuv/Makefile.Linux.orig
new file mode 100644
index 0000000..da60b24
--- /dev/null
+++ b/src/fuv/Makefile.Linux.orig
@@ -0,0 +1,75 @@
+
+CALFUSEDIR=	${PWD}/../..
+SHARED=		-shared
+FITSVER=	2.470
+
+# Symbols for include directories
+FUSEINCLDIR=	-I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=		cc
+OPT=		-g -Wall -DCFORTRAN -Dg77Fortran -Df2cFortran
+CFLAGS=		${OPT} ${FUSEINCLDIR}
+
+FUSEBINDIR=	${CALFUSEDIR}/bin
+FUSELIBDIR=	-L${CALFUSEDIR}/lib 
+FUSELIBS=	-lcfitsio-${FITSVER} -lsla -lcf
+LIBS=		-lc -lm -lnsl -ldl -lgfortran
+LDFLAGS=	-Wl,-R${CALFUSEDIR}/lib,-R${CALFUSEDIR}/src/libcf
+
+# Symbols used for creating shared libraries
+
+BINS=		cf_hist_init cf_ttag_init cf_convert_to_farf cf_remove_motions \
+                cf_assign_wavelength cf_screen_photons cf_flux_calibrate \
+		cf_extract_spectra cf_countmap cf_gainmap cf_bad_pixels
+
+all:		${BINS}
+		chmod g+w ${BINS}
+
+install:	all
+		/bin/cp -p ${BINS} ${FUSEBINDIR}
+
+clean: 
+	-	/bin/rm -f ${BINS}
+
+distclean: 
+	-	/bin/rm -f ${BINS}
+		cd ../../bin; /bin/rm -f ${BINS} calfuse
+
+cf_hist_init:
+		${CC} ${CFLAGS} -o cf_hist_init cf_hist_init.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_ttag_init:
+		${CC} ${CFLAGS} -o cf_ttag_init cf_ttag_init.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_convert_to_farf:
+		${CC} ${CFLAGS} -o cf_convert_to_farf cf_convert_to_farf.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_remove_motions:
+		${CC} ${CFLAGS} -o cf_remove_motions cf_remove_motions.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_assign_wavelength:
+		${CC} ${CFLAGS} -o cf_assign_wavelength \
+		cf_assign_wavelength.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_screen_photons:
+		${CC} ${CFLAGS} -o cf_screen_photons cf_screen_photons.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_flux_calibrate:
+		${CC} ${CFLAGS} -o cf_flux_calibrate cf_flux_calibrate.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_extract_spectra:
+		${CC} ${CFLAGS} -o cf_extract_spectra cf_extract_spectra.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_countmap:
+		${CC} ${CFLAGS} -o cf_countmap cf_countmap.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+cf_gainmap:
+		${CC} ${CFLAGS} -o cf_gainmap cf_gainmap.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+cf_bad_pixels:
+		${CC} ${CFLAGS} -o cf_bad_pixels cf_bad_pixels.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
diff --git a/src/fuv/Makefile.Linux64.orig b/src/fuv/Makefile.Linux64.orig
new file mode 100644
index 0000000..6fbead0
--- /dev/null
+++ b/src/fuv/Makefile.Linux64.orig
@@ -0,0 +1,74 @@
+
+CALFUSEDIR=	${PWD}/../..
+SHARED=		-shared
+
+# Symbols for include directories
+FUSEINCLDIR=	-I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=		cc
+OPT=		-g -Wall -DCFORTRAN -Dg77Fortran -Df2cFortran
+CFLAGS=		${OPT} ${FUSEINCLDIR}
+
+FUSEBINDIR=	${CALFUSEDIR}/bin
+FUSELIBDIR=	-L${CALFUSEDIR}/lib 
+FUSELIBS=	-lsla -lcf
+LIBS=		-lc -lm -lnsl -ldl -lgfortran -lcfitsio
+LDFLAGS=	-Wl,-R${CALFUSEDIR}/lib,-R${CALFUSEDIR}/src/libcf
+
+# Symbols used for creating shared libraries
+
+BINS=		cf_hist_init cf_ttag_init cf_convert_to_farf cf_remove_motions \
+                cf_assign_wavelength cf_screen_photons cf_flux_calibrate \
+		cf_extract_spectra cf_countmap cf_gainmap cf_bad_pixels
+
+all:		${BINS}
+		chmod g+w ${BINS}
+
+install:	all
+		/bin/cp -p ${BINS} ${FUSEBINDIR}
+
+clean: 
+	-	/bin/rm -f ${BINS}
+
+distclean: 
+	-	/bin/rm -f ${BINS}
+		cd ../../bin; /bin/rm -f ${BINS} calfuse
+
+cf_hist_init:
+		${CC} ${CFLAGS} -o cf_hist_init cf_hist_init.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_ttag_init:
+		${CC} ${CFLAGS} -o cf_ttag_init cf_ttag_init.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_convert_to_farf:
+		${CC} ${CFLAGS} -o cf_convert_to_farf cf_convert_to_farf.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_remove_motions:
+		${CC} ${CFLAGS} -o cf_remove_motions cf_remove_motions.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_assign_wavelength:
+		${CC} ${CFLAGS} -o cf_assign_wavelength \
+		cf_assign_wavelength.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_screen_photons:
+		${CC} ${CFLAGS} -o cf_screen_photons cf_screen_photons.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_flux_calibrate:
+		${CC} ${CFLAGS} -o cf_flux_calibrate cf_flux_calibrate.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_extract_spectra:
+		${CC} ${CFLAGS} -o cf_extract_spectra cf_extract_spectra.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_countmap:
+		${CC} ${CFLAGS} -o cf_countmap cf_countmap.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+cf_gainmap:
+		${CC} ${CFLAGS} -o cf_gainmap cf_gainmap.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+cf_bad_pixels:
+		${CC} ${CFLAGS} -o cf_bad_pixels cf_bad_pixels.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
diff --git a/src/fuv/Makefile.MacOSX.orig b/src/fuv/Makefile.MacOSX.orig
new file mode 100644
index 0000000..acbfaf7
--- /dev/null
+++ b/src/fuv/Makefile.MacOSX.orig
@@ -0,0 +1,76 @@
+
+CALFUSEDIR=	${PWD}/../..
+FITSVER=	2.470
+MACOSX_DEPLOYMENT_TARGET=	10.2
+
+# Symbols for include directories
+FUSEINCLDIR=	-I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=		cc
+OPT=		-O3 -Wall -DCFORTRAN -Dg77Fortran -Df2cFortran
+CFLAGS=		${OPT} ${FUSEINCLDIR}
+
+FUSEBINDIR=	${CALFUSEDIR}/bin
+FUSELIBDIR=	-L${CALFUSEDIR}/lib 
+# FUSELIBS=	-lcfitsio-${FITSVER} -lsla -lcf
+FUSELIBS=	-lcfitsio -lsla -lcf
+LIBS=		-lc -lm -ldl -L/sw/lib/ -lgfortran
+
+BINS=		cf_hist_init cf_ttag_init cf_convert_to_farf cf_remove_motions \
+                cf_assign_wavelength cf_screen_photons cf_flux_calibrate \
+		cf_extract_spectra cf_countmap cf_gainmap cf_bad_pixels
+
+all:		${BINS}
+		chmod g+w ${BINS}
+
+install:	
+		MACOSX_DEPLOYMENT_TARGET="${MACOSX_DEPLOYMENT_TARGET}"; \
+		export MACOSX_DEPLOYMENT_TARGET; \
+		make all
+		/bin/cp -p ${BINS} ${FUSEBINDIR}
+
+clean: 
+	-	/bin/rm -f ${BINS}
+
+distclean: 
+	-	/bin/rm -f ${BINS}
+		cd ../../bin; /bin/rm -f ${BINS} calfuse
+
+cf_hist_init:
+		${CC} ${CFLAGS} -o cf_hist_init cf_hist_init.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS}
+cf_ttag_init:
+		${CC} ${CFLAGS} -o cf_ttag_init cf_ttag_init.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS}
+cf_convert_to_farf:
+		${CC} ${CFLAGS} -o cf_convert_to_farf cf_convert_to_farf.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS}
+cf_remove_motions:
+		${CC} ${CFLAGS} -o cf_remove_motions cf_remove_motions.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS}
+cf_assign_wavelength:
+		${CC} ${CFLAGS} -o cf_assign_wavelength \
+		cf_assign_wavelength.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS}
+cf_screen_photons:
+		${CC} ${CFLAGS} -o cf_screen_photons cf_screen_photons.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS}
+cf_flux_calibrate:
+		${CC} ${CFLAGS} -o cf_flux_calibrate cf_flux_calibrate.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS}
+cf_extract_spectra:
+		${CC} ${CFLAGS} -o cf_extract_spectra cf_extract_spectra.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS}
+cf_countmap:
+		${CC} ${CFLAGS} -o cf_countmap cf_countmap.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS}
+
+cf_gainmap:
+		${CC} ${CFLAGS} -o cf_gainmap cf_gainmap.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS}
+
+cf_bad_pixels:
+		${CC} ${CFLAGS} -o cf_bad_pixels cf_bad_pixels.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS}
+
diff --git a/src/fuv/Makefile.Solaris.orig b/src/fuv/Makefile.Solaris.orig
new file mode 100644
index 0000000..528e6bc
--- /dev/null
+++ b/src/fuv/Makefile.Solaris.orig
@@ -0,0 +1,75 @@
+
+CALFUSEDIR=	${PWD}/../..
+SHARED=		-G
+FITSVER=	2.470
+
+# Symbols for include directories
+FUSEINCLDIR=	-I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=		cc
+OPT=		-O -DCFORTRAN -KPIC
+CFLAGS=		${OPT} ${FUSEINCLDIR}
+
+FUSEBINDIR=	${CALFUSEDIR}/bin
+FUSELIBDIR=	-L${CALFUSEDIR}/lib 
+FUSELIBS=	-lcfitsio-${FITSVER} -lsla -lcf
+LIBS=		-lc -lm -lnsl -ldl -lsocket -lsunmath
+LDFLAGS=	-Wl,-R${CALFUSEDIR}/lib,-R${CALFUSEDIR}/src/libcf
+
+# Symbols used for creating shared libraries
+
+BINS=		cf_hist_init cf_ttag_init cf_convert_to_farf cf_remove_motions \
+                cf_assign_wavelength cf_screen_photons cf_flux_calibrate \
+		cf_extract_spectra cf_countmap cf_gainmap cf_bad_pixels
+
+all:		${BINS}
+		chmod g+w ${BINS}
+
+install:	all
+		/bin/cp -p ${BINS} ${FUSEBINDIR}
+
+clean: 
+	-	/bin/rm -f ${BINS}
+
+distclean: 
+	-	/bin/rm -f ${BINS}
+		cd ../../bin; /bin/rm -f ${BINS} calfuse
+
+cf_hist_init:
+		${CC} ${CFLAGS} -o cf_hist_init cf_hist_init.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_ttag_init:
+		${CC} ${CFLAGS} -o cf_ttag_init cf_ttag_init.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_convert_to_farf:
+		${CC} ${CFLAGS} -o cf_convert_to_farf cf_convert_to_farf.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_remove_motions:
+		${CC} ${CFLAGS} -o cf_remove_motions cf_remove_motions.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_assign_wavelength:
+		${CC} ${CFLAGS} -o cf_assign_wavelength \
+		cf_assign_wavelength.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_screen_photons:
+		${CC} ${CFLAGS} -o cf_screen_photons cf_screen_photons.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_flux_calibrate:
+		${CC} ${CFLAGS} -o cf_flux_calibrate cf_flux_calibrate.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_extract_spectra:
+		${CC} ${CFLAGS} -o cf_extract_spectra cf_extract_spectra.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_countmap:
+		${CC} ${CFLAGS} -o cf_countmap cf_countmap.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+cf_gainmap:
+		${CC} ${CFLAGS} -o cf_gainmap cf_gainmap.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+cf_bad_pixels:
+		${CC} ${CFLAGS} -o cf_bad_pixels cf_bad_pixels.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
diff --git a/src/fuv/Makefile.orig.orig b/src/fuv/Makefile.orig.orig
new file mode 100644
index 0000000..528e6bc
--- /dev/null
+++ b/src/fuv/Makefile.orig.orig
@@ -0,0 +1,75 @@
+
+CALFUSEDIR=	${PWD}/../..
+SHARED=		-G
+FITSVER=	2.470
+
+# Symbols for include directories
+FUSEINCLDIR=	-I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=		cc
+OPT=		-O -DCFORTRAN -KPIC
+CFLAGS=		${OPT} ${FUSEINCLDIR}
+
+FUSEBINDIR=	${CALFUSEDIR}/bin
+FUSELIBDIR=	-L${CALFUSEDIR}/lib 
+FUSELIBS=	-lcfitsio-${FITSVER} -lsla -lcf
+LIBS=		-lc -lm -lnsl -ldl -lsocket -lsunmath
+LDFLAGS=	-Wl,-R${CALFUSEDIR}/lib,-R${CALFUSEDIR}/src/libcf
+
+# Symbols used for creating shared libraries
+
+BINS=		cf_hist_init cf_ttag_init cf_convert_to_farf cf_remove_motions \
+                cf_assign_wavelength cf_screen_photons cf_flux_calibrate \
+		cf_extract_spectra cf_countmap cf_gainmap cf_bad_pixels
+
+all:		${BINS}
+		chmod g+w ${BINS}
+
+install:	all
+		/bin/cp -p ${BINS} ${FUSEBINDIR}
+
+clean: 
+	-	/bin/rm -f ${BINS}
+
+distclean: 
+	-	/bin/rm -f ${BINS}
+		cd ../../bin; /bin/rm -f ${BINS} calfuse
+
+cf_hist_init:
+		${CC} ${CFLAGS} -o cf_hist_init cf_hist_init.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_ttag_init:
+		${CC} ${CFLAGS} -o cf_ttag_init cf_ttag_init.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_convert_to_farf:
+		${CC} ${CFLAGS} -o cf_convert_to_farf cf_convert_to_farf.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_remove_motions:
+		${CC} ${CFLAGS} -o cf_remove_motions cf_remove_motions.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_assign_wavelength:
+		${CC} ${CFLAGS} -o cf_assign_wavelength \
+		cf_assign_wavelength.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_screen_photons:
+		${CC} ${CFLAGS} -o cf_screen_photons cf_screen_photons.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_flux_calibrate:
+		${CC} ${CFLAGS} -o cf_flux_calibrate cf_flux_calibrate.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_extract_spectra:
+		${CC} ${CFLAGS} -o cf_extract_spectra cf_extract_spectra.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+cf_countmap:
+		${CC} ${CFLAGS} -o cf_countmap cf_countmap.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+cf_gainmap:
+		${CC} ${CFLAGS} -o cf_gainmap cf_gainmap.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+cf_bad_pixels:
+		${CC} ${CFLAGS} -o cf_bad_pixels cf_bad_pixels.c \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
diff --git a/src/fuv/cf_assign_wavelength.c b/src/fuv/cf_assign_wavelength.c
new file mode 100644
index 0000000..d84c7a0
--- /dev/null
+++ b/src/fuv/cf_assign_wavelength.c
@@ -0,0 +1,178 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_assign_wavelength options intermediate_data_file
+ *
+ * Description: Assign a wavelength to each photon, correcting for
+ *              spacecraft motion and instrumental astigmatism.  
+ *		The final wavelength scale is heliocentric.
+ *
+ *              By default all corrections are performed.  Command-line
+ *              options allow one or more corrections to be omitted.
+ *
+ * Arguments:   input_file              FARF-corrected intermediate data file
+ *
+ * Calibration files:                   ASTG_CAL, WAVE_CAL
+ *
+ * Returns:     0 on successful completion
+ *
+ * Calls:       cf_astigmatism, cf_dispersion, cf_doppler_and_heliocentric
+ *
+ * History:     11/05/02   1.1   peb    Begin work
+ *		12/16/02   1.2   wvd    Install subroutines.
+ *		02/12/03   1.3   wvd    Change ORBITAL_VELOCITY to ORBITAL_VEL
+ *              03/10/03   1.4   peb    Added verbose_level, changed channel to
+ *                                      char *, and added unistd.h for getopt
+ *                                      portability
+ *		03/12/03   1.5   wvd    If lambda[k] is undefined,
+ *					set channel[k] = 0 in IDF
+ *		03/23/03   1.6   wvd    If -w option is set, write astigmatism-
+ *					corrected X values to IDF.
+ *		06/11/03   1.7   wvd    Pass datatype to cf_read_col and
+ *					cf_write_col.
+ *		08/25/03   1.8   wvd	Change coltype from string to int in
+ *					cf_read_col and cf_write_col.
+ *		09/16/03   1.9   wvd	Write comment lines to IDF header if
+ *					-w option is requested.
+ *		10/31/03   1.10  wvd	Change channel to unsigned char.
+ *		12/03/03   1.11  wvd	Initialize astig_return to 1.
+ *              04/06/04   1.12  bjg    Function returns EXIT_SUCCESS
+ *                                      Fix option[]
+ *		06/21/04   1.13  wvd	If -w flag is set, run the program
+ *					even if it's been run before.
+ *		05/20/05   1.14  wvd	Clean up i/o.
+ *		05/15/06   1.15  wvd	Divide cf_astigmatism_and_dispersion
+ *					into two routines.  Note that wave-
+ *					length calibration is performed even
+ *					if astigmatism correction is not.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+int
+main(int argc,  char *argv[])
+{
+    char CF_PRGM_ID[] = "cf_assign_wavelength";
+    char CF_VER_NUM[] = "1.15";
+
+    char comment[FLEN_CARD], datestr[FLEN_CARD];
+    unsigned char *channel=NULL;
+    int  astig_corr=1, doppler_corr=1, status=0, optc, timeref;
+    int  astig_return=1, wavecal = FALSE;
+    long nevents, nseconds;
+    float *time=NULL, *x=NULL, *y=NULL, *lambda=NULL, *timeline=NULL;
+    float *velocity=NULL;
+    fitsfile *header;
+    
+    char opts[]  = "hadwv:";
+    char usage[] = 
+	"Usage:\n"
+	"  cf_assign_wavelength [-hadw] [-v level] idf_file\n";
+    char option[] =
+	"Options:\n"
+	"  -h:  this help message\n"
+	"  -v:  verbose mode (default is 1; 0 is silent)\n"
+	"  -a:  no astigmatism correction\n"
+	"  -d:  no doppler correction\n"
+	"  -w:  write astigmatism-corrected X values to IDF\n";
+
+    verbose_level = 1;
+
+    while ((optc = getopt(argc, argv, opts)) != -1) {
+	switch(optc) {
+
+	case 'h':
+	    printf("%s\n%s", usage, option);
+	    return 0;
+	case 'v':
+	    verbose_level = atoi(optarg);
+	    break;
+	case 'a':
+	    astig_corr = 0;
+	    break;
+	case 'd':
+	    doppler_corr = 0;
+	    break;
+	case 'w':
+	    wavecal = TRUE;
+	    break;
+	}
+    }
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    if (argc <= optind) {
+        printf("%s", usage);
+        cf_if_error("Incorrect number of program arguments");
+    }
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    FITS_open_file(&header, argv[optind], READWRITE, &status);
+
+    FITS_movabs_hdu(header, 2, NULL, &status);
+    nevents = cf_read_col(header, TFLOAT, "TIME",   (void **) &time);
+    nevents = cf_read_col(header, TFLOAT, "X",      (void **) &x);
+    nevents = cf_read_col(header, TFLOAT, "Y",      (void **) &y);
+    nevents = cf_read_col(header, TBYTE,  "CHANNEL",(void **) &channel);
+    nevents = cf_read_col(header, TFLOAT, "LAMBDA", (void **) &lambda);
+
+    FITS_movabs_hdu(header, 4, NULL, &status);
+    nseconds = cf_read_col(header, TFLOAT, "TIME",        (void **) &timeline);
+    nseconds = cf_read_col(header, TFLOAT, "ORBITAL_VEL", (void **) &velocity);
+    FITS_movabs_hdu(header, 1, NULL, &status);
+
+    if (wavecal) {
+        FITS_update_key(header, TSTRING, "WAVE_COR", "PERFORM", NULL, &status);
+        FITS_update_key(header, TSTRING, "DOPP_COR", "PERFORM", NULL, &status);
+    }
+
+    /* Correct X coordinate for 2-D astigmatism. */
+    if (astig_corr)
+	astig_return = cf_astigmatism(header, nevents, x, y, channel);
+
+    /* Assign wavelength to each photon event according to channel and X */
+    cf_dispersion(header, nevents, x, channel, lambda);
+
+    /* Correct for spacecraft motion and shift to heliocentric wavelength scale. */
+    if (doppler_corr)
+	cf_doppler_and_heliocentric(header, nevents, time, channel,
+	    lambda, nseconds, timeline, velocity);
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    FITS_movabs_hdu(header, 2, NULL, &status);
+    cf_write_col(header, TBYTE,  "CHANNEL", (void *) channel, nevents);
+    cf_write_col(header, TFLOAT, "LAMBDA",  (void *) lambda, nevents);
+
+    /* If -w option is requested and astigmatism correction was applied,
+	write astigmatism-corrected X array to IDF. */
+    if (wavecal && !astig_return) {
+	cf_write_col(header, TFLOAT, "X", (void *) x, nevents);
+        FITS_movabs_hdu(header, 1, NULL, &status);
+	sprintf(comment, "Writing astigmatism-corrected X array to IDF.");
+        cf_if_warning(comment);
+        FITS_write_comment(header, "  ", &status);
+        FITS_write_comment(header, comment, &status);
+        fits_get_system_time(datestr, &timeref, &status);
+        sprintf(comment, "CalFUSE v%s   %.10s", CALFUSE_VERSION, datestr);
+        FITS_write_comment(header, comment, &status);
+        FITS_write_comment(header, "  ", &status);
+    }
+
+    FITS_close_file(header, &status);
+
+    free(velocity);
+    free(timeline);
+    free(lambda);
+    free(channel);
+    free(y);
+    free(x);
+    free(time);
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return EXIT_SUCCESS;
+}
diff --git a/src/fuv/cf_bad_pixels.c b/src/fuv/cf_bad_pixels.c
new file mode 100644
index 0000000..a10ed20
--- /dev/null
+++ b/src/fuv/cf_bad_pixels.c
@@ -0,0 +1,1001 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_bad_pixels options input_file
+ *
+ * Description: Determines a map of the bad pixels on the detector, after
+ *		correction for image motions during the observation. The
+ *		procedure works by generating a series of pseudo photons
+ *		corresponding to bad pixels within the area of the detector
+ *		seen by the target aperture. This list of pseudo photons is
+ *		repeated for each second of the observation where the data
+ *		is expected to be acceptable (i.e., it excludes times of
+ *		bursts, SAA passages, etc). The list is then run through
+ *		various routines in the pipeline which correct for photon
+ *		motions. A map is then generated from the final photon
+ *		list.  
+ *
+ * Arguments:   input_file              FARF-corrected intermediate data
+ *                                      file
+ * Calibration files:  QUAL_CAL                 
+ *
+ * Returns:     file containing the bad pixel map 
+ *
+ *
+ * History:     04/08/03   1.0   rdr   Begin work
+ *		04/30/03   1.1   wvd   Install
+ *		05/22/03   1.2   wvd   Modify call to cf_set_photon_flags
+ *              05/28/03   1.3   rdr   Made adjustments for HIST data and 
+ *                                      correct some bugs
+ *		05/04/03   1.4   wvd   Reset JITR_COR and FLAG_COR to PERFORM.
+ *				 	Pass weights to cf_set_photon_flags.
+ *              09/06/03   1.5   rdr   Incorporate tscreen flag.
+ *		06/11/03   1.6   wvd   Pass datatype to cf_read_col and
+ *					cf_write_col.
+ *		08/22/03   1.7   wvd   Change channel array to unsigned char.
+ *					Delete GTI from call to
+ *					cf_satellite_jitter.
+ *		08/25/03   1.8   wvd   Change coltype from string to int in
+ *					cf_read_col.
+ *              10/17/03   1.9   wvd   If EXPTIME = 0, exit without
+ *                                      generating a bad-pixel file.
+ *              11/05/03   1.10  wvd   Change chan_pix to unsigned char
+ *              11/05/03   1.11  wvd   Use fits_create_tbl alone to make
+ *					binary table extension.
+ *              12/01/03   1.12  bjg   Update FILENAME, FILETYPE and IDF_FILE
+ *                                      keywords.
+ *              12/01/03   1.13  bjg   Minor changes.
+ *              12/21/03   1.14  wvd   Remove underscore from idf and bpm
+ *					filenames.
+ *              02/24/04   1.15  rdr   change maximum size of the output
+ *                                     arrays in cf_combine_pothole_data
+ *              03/03/04   1.16  rdr   make sure that lif_cnt and sic_cnt arrays 
+ *                                     are non-zero
+ *              04/06/04   1.19  bjg   Include ctype.h and strings.h
+ *                                     Change formats to match arg types in 
+ *                                     printf
+ *                                     Change ( ac ) to ((ac)) 
+ *                                     in cf_combine_pothole_data
+ *                                     Create potholes from HIST FILL_DATA
+ *              06/07/04   1.20  wvd   Add exp_jitr to cf_satellite_jitter(),
+ *				   	delete timeline from cf_apply_filters.
+ *              07/21/04   1.21  wvd   Delete unused variable nmax in
+ *					cf_generate_pseudo_photons
+ *              10/29/04   1.22  bjg   Added check for selected potholes that
+ *                                     fall out the extraction window
+ *              12/02/04   1.23  wvd   If a processing step was skipped for
+ *                                      the data file, skip it also for the
+ *                                      bpm file.
+ *              01/27/05   1.24  wvd   Ignore LIMB, SAA, and BRST when 
+ *					determining good times for HIST data.
+ *		02/01/05   1.25  wvd   In cf_generate_pseudo_photons, pad
+ *					extraction windows by ten pixels
+ *					when making pothole list.  
+ *				       In cf_combine_pothole_data, toss any
+ *					potholes that drift out of extraction
+ *					window.  Call cf_get_extraction_limits
+ *					only when the aperture changes.
+ *		02/17/05   1.26  wvd   Increase estimated size of output 
+ *					pixel arrays (nmax) by 20%.
+ *					Add additional diagnostic output.
+ *		03/15/05   1.27  wvd   Replace cf_get_extraction_limits with
+ *					cf_extraction_limits
+ *		03/16/05   1.28  wvd   Pass srctype to cf_extraction_limits.
+ *              03/22/05   1.29  wvd   Change TIME_SUNRISE and TIME_SUNSET
+ *                                      from floats to shorts.
+ *              03/22/05   1.30  wvd   In cf_combine_pothole_data, use fabs()
+ *					when looking for changes in the time
+ *					array.
+ *              04/12/05   1.31  wvd   Add -n flag, which forces creation
+ *                                      of night-only BPM file.  Its argument
+ *                                      is the name of the output BPM file.
+ *					This file name is NOT written to the
+ *					IDF file header.
+ *              06/03/05   1.32  wvd   Include math.h
+ *              11/25/05   1.33  wvd   Use cf_x2lambda and cf_get_potholes
+ *					rather than writing new routines here.
+ *					Don't add random numbers to output
+ *					pixel coordinates.
+ *              05/15/06   1.34  wvd    Divide cf_astigmatism_and_dispersion
+ *                                      into two routines.  Note that wave-
+ *                                      length calibration is performed even
+ *                                      if astigmatism correction is not.
+ *					Add ASTG_COR to list of updated
+ *					keywords.
+ *              06/13/06   1.35  wvd    In cf_combine_pothole_data,
+ *					initialize nfill to 0 before each
+ *					iteration and ignore bad pixels that
+ *					lie outside of the extraction window.
+ *              03/20/07   1.36  wvd    In cf_combine_pothole_data, if the
+ *					entire dead spot falls outside of the
+ *					aperture, stop and move on to the
+ *					next one.
+ *              03/21/07   1.37  wvd    Replace "break" with "continue" in
+ *					cf_combine_pothole_data.
+ *		04/03/07   1.38  wvd	Scale nmax by 1.5.  Call cf_error_init
+ *					after each call to cf_extraction_limits.
+ *					Make CF_PRGM_ID and CF_VER_NUM static
+ *					variables.
+ *		04/03/07   1.39  bot	In cf_generate_pseduo_photons, l.198
+ *					and l.219 added a test on LOCATION_SHLD
+ * 					for FILL DATA.
+ *		07/18/08   1.40  wvd	If EXP_STAT = 2, target is bright
+ *					earth/airglow. Mask out limb-angle flag.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include 
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+static char CF_PRGM_ID[] = "cf_bad_pixels"; 
+static char CF_VER_NUM[] = "1.40";
+
+
+/****************************************************************************
+ *
+ *              CF_GENERATE_PSEUDO_PHOTONS
+ *
+ *   Procedure to generate an array of pseudo photons to represent the
+ *   locations of the detector potholes
+ *
+ ****************************************************************************/
+
+int cf_generate_pseudo_photons(fitsfile *header, long ngood, long *good_index, 
+        float *timeline, unsigned char *statflag, float *lif_cnt,
+	float *sic_cnt, long *nevents, float **time, float **weight,
+	float **x, float **y, unsigned char **channel, float **rx,
+	float **ry, unsigned char **timeflag, unsigned char **loc_flag) {
+
+  char instmode[FLEN_CARD] ;
+  long nevts, npot, nfill=0, npot_sel; 
+  int *bpndx, npot2, status=0, hdutype ;
+  int srctype, ap[2], bymax, bymin, pad=10 ;
+  short *ylow, *yhigh; 
+  long npts, i, j, k, xndx, num, num_tot, ndx, tndx ;
+  float *xpot, *ypot, *rxpot, *rypot ;
+  float *xpot2, *ypot2, *rxpot2, *rypot2 ;
+  float *xval, *yval, *rxval, *ryval, *xout, *yout, *rxout, *ryout ;
+  float *time_out, *weight_out, tval, ctot_lif, ctot_sic ;
+  float wval_lif, wval_sic ;
+  short binx, biny, xmin, xmax;
+  unsigned char *chan, *chan_out;
+  unsigned char *tflag_out, tflag_val ;
+  char * hdu2_loc_flgs;
+  float * hdu2_xfarf, * hdu2_yfarf;
+
+
+  cf_verbose(3, "Generating pseudo-photons") ;
+
+  /* read the instrument mode for the data */
+    FITS_movabs_hdu(header, 1, &hdutype, &status);
+    FITS_read_key(header, TSTRING, "INSTMODE", instmode, NULL, &status) ;
+    FITS_read_key(header, TSHORT, "SPECBINX", &binx, NULL, &status) ;
+    FITS_read_key(header, TSHORT, "SPECBINY", &biny, NULL, &status) ;
+
+  /* read the header and determine the target apertures for the exposure */
+  srctype = cf_source_aper(header, ap) ;
+  cf_verbose(3,"Target apertures = %d and %d ",ap[0],ap[1]) ;
+
+  /* read in the pothole positions */
+  npot2 = cf_get_potholes(header, &xpot2, &ypot2, &rxpot2, &rypot2) ; 
+  cf_verbose(3, "number of potholes found = %d ",npot2) ;
+
+  if (!(strncasecmp(instmode,"HIST",4))) {
+    FITS_movabs_hdu(header, 2, &hdutype, &status);
+    nevts=cf_read_col(header,TBYTE,"LOC_FLGS",(void **) &hdu2_loc_flgs);
+    nevts=cf_read_col(header,TFLOAT,"XFARF",(void **) &hdu2_xfarf);
+    nevts=cf_read_col(header,TFLOAT,"YFARF",(void **) &hdu2_yfarf);
+    for (j=0;j= ylow[xndx] - pad  && bymin <= yhigh[xndx] + pad ) {
+        npot_sel += 1 ;
+        bpndx[npot_sel] = i ;
+	cf_verbose(3, "pothole %d selected: x=%d, y=%d, rx=%d, ry=%d ", i,
+	cf_nint(xpot[i]),cf_nint(ypot[i]),cf_nint(rxpot[i]),cf_nint(rypot[i]));
+      }
+    }
+
+    /* convert npot_sel from an array index to a number of potholes selected */
+    npot_sel++ ;
+    cf_verbose(3, "number of potholes selected for ap %d = %d ",
+	ap[j], npot_sel) ;
+
+    /* put the locations into the output arrays */
+    for (i=0; i num_tot -1) {
+          cf_verbose(2, "overflow tndx while filling pothole array ") ;
+          tndx= num_tot-1 ; }
+      time_out[tndx] = tval ;
+        if (chan[i] < 4) weight_out[tndx] = wval_lif ;
+        else weight_out[tndx] = wval_sic ;
+      xout[tndx] = xval[i] ;
+      yout[tndx] = yval[i] ;
+      rxout[tndx] = rxval[i] ;
+      ryout[tndx] = ryval[i] ;
+      chan_out[tndx] = chan[i] ;
+      tflag_out[tndx] = tflag_val ;
+    }
+  }
+
+  /* normalize the weights for TTAG data and set to 1 for HIST data*/
+  if (!strncmp(instmode,"T",1)) 
+    for (i=0; i= timeline[ndx] )	ndx++ ; 
+	      if (ndx > nseconds-1 ) ndx=nseconds-1 ;
+	        ii = (int) (x[k] + 0.5);
+		if (ii >= 1 && ii < NXMAX) {
+	            lam = wavelength[ii];
+                    vel = velocity[ndx] + v_helio ;
+	            dlam = vel * lam / C ;
+                    dx = dlam / ( wavelength[ii] - wavelength[ii-1]) ;
+		    x[k] += dx ;
+		    if (vel > 100 || vel < -100 ) 
+                         cf_if_warning ("at k=%ld, time=%f, lam=%f, vel=%f, "
+				"dlam=%f, dx=%f \n",
+				 k, time[k], lam, vel, dlam, dx) ;
+		}
+	    }
+
+    }
+    free(wavelength);
+    FITS_close_file(wavefits, &status);
+
+    return status;
+}
+
+
+/*******************************************************************************
+ *
+ *                     CF_COMBINE_POTHOLE_DATA
+ *
+ *    procedure to combine the centroid data as a function of time with the 
+ *    pothole size information to generate a list of affected pixels on the
+ *    detector
+ *
+ ******************************************************************************/
+
+ long cf_combine_pothole_data(fitsfile *header, long nevents, float *time, 
+        float *weight, float *x, float *rx, float *y, float *ry,
+	unsigned char *channel, unsigned char *timeflag, float **xpix,
+	float **ypix, unsigned char **chan_pix, float **wt_pix) {
+
+   int srctype, expstat, aperture[2];
+   int  npot, xndx, yndx, ap, nfill ;
+   short sxmin, sxmax, *ylow, *yhigh ;
+   int  xdim1, ydim1, xmin1, xmax1, ymin1, ymax1 ;
+   int xminp, xmaxp, yminp, ymaxp ;
+   long i, j, k, l, m, num, numt ;
+   long nout, nmax, npts1, npts2, xdim, ydim, ndx, ndxp ;
+   float *xpixt, *ypixt, *wt_pixt, xmin, xmax, ymin, ymax ;
+   float *array1, *array2, wtot, wval, wmax ;
+   float xv2, yv2, rx2, ry2, pos, xval, yval ;
+   float rxp, ryp, xv, yv, time0 ;  
+   unsigned char *chan_pixt;
+
+   int status=0;
+   char instmode[FLEN_VALUE];
+   unsigned char TEMPORAL_MASK;
+
+   cf_verbose(3, "Combining pothole data") ;
+
+    /* 
+     *  Read INSTMODE keyword.  If in HIST mode, mask out
+     *  LIMB, SAA, and BRST flags.  TEMPORAL_DAY is the default.
+     */
+    TEMPORAL_MASK = TEMPORAL_DAY;
+    FITS_read_key(header, TSTRING, "INSTMODE", instmode, NULL, &status);
+    if (!strncmp(instmode, "HIST", 4)) {
+	TEMPORAL_MASK |= TEMPORAL_LIMB;
+	TEMPORAL_MASK |= TEMPORAL_SAA;
+	TEMPORAL_MASK |= TEMPORAL_BRST;
+    }
+    /*
+     * If EXP_STAT = 2, target is bright earth/airglow.  Mast out limb-angle flag.
+     */
+    FITS_read_key(header, TINT, "EXP_STAT", &expstat, NULL, &status);
+    if (expstat == 2) TEMPORAL_MASK |= TEMPORAL_LIMB;
+
+   /* Read source type from header. */
+   srctype = cf_source_aper(header, aperture) ;
+
+   /* determine the number of potholes by looking at the number
+	of entries for time=time[0] */
+
+   time0 = time[0] ;
+   i = 1 ;
+   while (fabs((time[i] - time0)) < 0.5) i++ ;
+   cf_verbose(3, "Number of potholes found = %d ", npot = i) ;
+
+   nmax = 0;
+   /* estimate size of the array needed to store the data and open
+      arrays to contain it */   
+    for (i=0; i xmax) && (x[j] < 16383)) xmax = x[j] ;
+             if ((x[j] < xmin) && (x[j] > 0)) xmin = x[j] ;
+             if ((y[j] > ymax) && (y[j] < 1023)) ymax = y[j] ;
+             if ((y[j] < ymin) && (y[j] > 0)) ymin = y[j] ;
+	}
+      cf_verbose(3,"For pothole %.1d, xmin=%.1d, "
+	"xmax=%.1d, ymin=%.1d, ymax=%.1d",
+	i, cf_nint(xmin), cf_nint(xmax), cf_nint(ymin), cf_nint(ymax)) ;
+
+      /* set up a 2D array which contains all of the movement in the pothole */
+      xdim = (long) (xmax - xmin + 1.5) ;
+      ydim = (long) (ymax - ymin + 1.5) ;
+      npts1 = xdim * ydim  ;
+      cf_verbose(3, "Setting up array1: xdim=%d, ydim=%d, npts=%d ",
+		xdim, ydim, npts1) ;
+      array1 = (float *) cf_calloc(npts1, sizeof(float)) ;
+
+      /* Determine the 2D distribution of positions for the pothole */
+      num = 0 ;
+      for (j=i ; j xdim-1) xndx = xdim-1 ;
+        yndx = cf_nint(y[j] - ymin) ;
+    	  if (yndx < 0 ) yndx = 0 ;
+          if (yndx > ydim-1) yndx = ydim-1 ;
+        ndx = xndx + yndx*xdim ;
+	  if (ndx > npts1-1) ndx=npts1-1 ;
+        array1[ndx] += weight[j] ;
+      }
+
+      if (i == 0 ) cf_verbose(3, "%d good seconds out of a total of %d  ",
+		num, numt) ;
+
+      wtot=0. ;
+      for(j=0; j yhigh[xndx]) ymax1 = yhigh[xndx];
+        ydim1 = (int) (ymax1 - ymin1 + 1.5) ;
+
+	/* If no pixels overlap the extraction window, skip to the next one. */
+	if (ydim1 <= 0) {
+	   cf_verbose(3, "This pothole does not overlap the extraction window.  We'll skip it.");
+	   continue;
+	}
+
+      npts2 = xdim1 * ydim1 ;
+      cf_verbose(3, "setting up array2: xdim = %d, ydim = %d, npts2 = %d ", 
+         xdim1, ydim1, npts2) ;
+      array2 = (float *) cf_calloc(npts2, sizeof(float)) ;
+
+      /* fill in array2
+         - scan all of the positions specified in array1  */
+      for (j=0 ; j npts1-1) ndx=npts1-1 ;
+            wval = array1[ndx] ;
+
+	if (wval > 0) {
+	  /* set limits to the region of array2 affected by the pothole */
+	  xminp = (int) (xval - rxp - xmin1 + 0.5)  ;
+          xmaxp = (int) (xval + rxp - xmin1 + 0.5)  ;
+          yminp = (int) (yval - ryp - ymin1 + 0.5) ;
+          ymaxp = (int) (yval + ryp - ymin1 + 0.5)  ;
+	    if (yminp < 0) yminp = 0 ;
+            if (ymaxp > ydim1-1) ymaxp = ydim1-1 ;
+            if (xminp < 0) xminp = 0 ;
+            if (xmaxp > xdim1-1) xmaxp = xdim1-1 ;
+
+	/* fill in the array for this pothole location */
+	  for (l=yminp; l<=ymaxp; l++) 
+            for (m=xminp; m <= xmaxp ; m++) {
+              ndxp = l * xdim1 + m ;
+	         if (ndxp > npts2-1) ndxp = npts2 -1 ;
+	      xv = m + xmin1 - xval ;
+              yv = l + ymin1 - yval ;
+              xv2= xv * xv ;
+              yv2 = yv * yv ;
+              pos = (xv2/rx2) + (yv2/ry2)  ; 
+	      if ( pos <= 1)  array2[ndxp] += wval ; 
+	      nfill++;
+	    }
+	 } 
+      }
+
+	cf_verbose(3,"number of pixels affected by this pothole = %d ",nfill);
+
+      /* determine the maximum weights across the pothole map */
+      wmax=0. ;
+      for(j=0; j wmax) wmax = array2[ndx] ;
+	}
+      cf_verbose(3, "wmax for array2 = %d ", cf_nint(wmax)) ;
+
+      /* normalize the values of the affected pixels to the maximum and put 
+         their locations into the output array */
+      for(j=0; j 0) {
+	    if (nout < nmax-1) {
+              nout ++ ;
+	      xpixt[nout] = k + xmin1;
+              ypixt[nout] = j + ymin1;
+              wt_pixt[nout] = array2[ndx]/wmax ;
+              chan_pixt[nout] = channel[i] ;
+            }
+	    else {
+	      cf_if_warning("Array overflow.  Truncating pseudo-photon list.");
+	      break;
+	    }
+          }
+	}
+
+
+      cf_verbose(3, "%d points tabulated after processing pothole %d\n",nout,i);
+
+      free(array1) ;
+      free(array2) ;
+      }
+
+      /* assign output pointers */
+      *xpix = xpixt ;
+      *ypix = ypixt ;
+      *wt_pix = wt_pixt ;
+      *chan_pix = chan_pixt ;
+
+      cf_verbose(3, "Total number of pixels tabulated = %d ", nout) ;
+
+      return nout ;
+}
+
+
+/****************************************************************************/
+
+int
+main(int argc,  char *argv[])
+{
+    unsigned char  *timeflag=NULL, *statflag=NULL, *locflag=NULL;
+    unsigned char *loc_flag=NULL, *channel=NULL ;
+    int  grating_motion=1, mirror_motion=1, fpa_pos=1;
+    int  jitter=1, doppler_motion=1, astig=1, tscreen=1, night_only=FALSE;
+    int  status=0, hdutype, optc;
+    long nevents, nseconds, i, nrows=1, npixels ;
+    long ngood, *good_index, dtime, ntime ;
+    float exptime, *time=NULL, *x=NULL, *y=NULL, *velocity=NULL;
+    float *rx=NULL, *ry=NULL, *xpix, *ypix, *wt_pix ;
+    float *lif_cnt=NULL, *sic_cnt=NULL, *lambda=NULL ;
+    float *timeline=NULL, *weight=NULL;
+    short *tsunrise=NULL, *tsunset=NULL ;
+    fitsfile *header, *bpmfits, *memp;
+    char rootname[FLEN_VALUE]={'\0'}, bpm_file[FLEN_FILENAME]={'\0'};
+    char idf_file[FLEN_FILENAME]={'\0'}, det[FLEN_VALUE]={'\0'}; 
+    char *keywords[] = {"GRAT_COR","FPA__COR","MIRR_COR","ASTG_COR","WAVE_COR"};
+    char keyval[FLEN_VALUE];
+    unsigned char *chan_pix ;
+
+    char extname[]="POTHOLE_DATA", fmt_float[FLEN_VALUE], fmt_byte[FLEN_VALUE] ;
+    char instmode[FLEN_VALUE] ;
+    int tfields=5 ;
+    char *ttype[]={ "X", "Y", "CHANNEL", "WEIGHT", "LAMBDA"} ;
+    char *tform[5] ;  /* we will define the tform once the number of 
+                         array elements is known */
+    char *tunit[]={ "pixels", "pixels",  "unitless", "unitless", "Angstroms"} ;
+    
+    char opts[]  = "hgmfjdasn:v:";
+    char usage[] = 
+	"Usage:\n"
+	"  cf_bad_pixels [-hvgmfjdas] [-n bpm_filename] [-v level] idffile\n";
+    char option[] =
+	"Options:\n"
+	"  -h:  this help message\n"
+        "  -v:  verbosity level (=1; 0 is silent)\n" 
+        "  -g:  no grating motion correction \n"
+        "  -m:  no mirror motion correction \n" 
+        "  -n:  Create BPM file for nighttime fraction of exposure.\n" 
+	"       Argument is the name of the output BPM file.\n"
+        "  -f:  no fpa motion correction \n" 
+        "  -j:  no jitter correction \n" 
+        "  -d:  no doppler correction \n" 
+        "  -a:  no astigmatism correction \n"
+        "  -s:  no screening on time flags (if 0)" ;
+
+    verbose_level = 1;
+
+    while ((optc = getopt(argc, argv, opts)) != -1) {
+	switch(optc) {
+
+	case 'h':
+	    printf("%s\n%s", usage, option);
+	    return 0;
+	case 'v':
+	   verbose_level = atoi(optarg);
+	    break;
+        case 'g':
+	    grating_motion = 0 ;
+            break;
+        case 'm':
+	  mirror_motion = 0 ;
+          break ;
+        case 'n':
+            sprintf(bpm_file,"%s", optarg) ;
+            night_only = TRUE;
+            break;
+        case 'f':
+          fpa_pos = 0 ;
+          break ;
+        case 'j':
+          jitter = 0 ;
+          break ;
+        case 'a':
+          astig = 0 ;
+          break;
+        case 'd':
+          doppler_motion = 0 ;
+          break ;
+        case 's':
+          tscreen = 0 ;
+          break ;
+
+	}
+    }
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    if (argc <= optind) {
+        printf("%s", usage);
+	return -1;
+    }
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    /* Open the input IDF file. */
+    FITS_open_file(&header, argv[optind], READWRITE, &status);
+    FITS_read_key(header, TSTRING, "INSTMODE", instmode, NULL, &status) ;
+
+    /* If EXPTIME < 1, exit without generating a bad-pixel file. */
+    FITS_read_key(header, TFLOAT, "EXPTIME", &exptime, NULL, &status);
+    if (night_only)
+	FITS_read_key(header, TFLOAT, "EXPNIGHT", &exptime, NULL, &status);
+    if (exptime < 1.) {
+        cf_verbose(1, "EXPTIME = %g.  "
+	    "Will not attempt to generate bad-pixel map.", exptime);
+	cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+        return 0;
+    }
+
+    /* Read timeline data from the input file */
+    FITS_movabs_hdu(header, 4, &hdutype, &status);
+    nseconds = cf_read_col(header, TFLOAT, "TIME",         (void **) &timeline);
+    nseconds = cf_read_col(header, TBYTE,  "STATUS_FLAGS", (void **) &statflag);
+    nseconds = cf_read_col(header, TSHORT, "TIME_SUNRISE", (void **) &tsunrise);
+    nseconds = cf_read_col(header, TSHORT, "TIME_SUNSET",  (void **) &tsunset) ;
+    nseconds = cf_read_col(header, TFLOAT, "ORBITAL_VEL",  (void **) &velocity);
+    nseconds = cf_read_col(header, TFLOAT, "LIF_CNT_RATE", (void **) &lif_cnt) ;
+    nseconds = cf_read_col(header, TFLOAT, "SIC_CNT_RATE", (void **) &sic_cnt) ;
+    FITS_movabs_hdu(header, 1, NULL, &status);
+
+   /*  
+    *  If night-only spectrum is requested from the command line, copy 
+    *  IDF header into memory, close the IDF, modify copy, and pass it
+    *  to subsequent routines.
+    */
+    if (night_only) {
+        cf_verbose(3, "Night-only spectrum requested from command line.");
+	FITS_create_file(&memp, "mem://", &status);
+	FITS_copy_hdu(header, memp, 0, &status);
+	if (!strncmp(instmode, "H",1)) {
+	    FITS_movabs_hdu(header, 2, NULL, &status);
+	    FITS_copy_hdu(header, memp, 0, &status);
+	}
+	FITS_close_file(header, &status);
+	header = memp;
+
+	FITS_movabs_hdu(header, 1, NULL, &status);
+        FITS_update_key(header, TFLOAT, "EXPTIME",  &exptime, NULL, &status);
+        FITS_update_key(header, TSTRING, "DAYNIGHT", "NIGHT", NULL, &status);
+    }
+    else { 		/* Generate name of output file */
+	FITS_read_key(header, TSTRING, "ROOTNAME", rootname, NULL, &status) ;
+	FITS_read_key(header, TSTRING, "DETECTOR", det, NULL, &status) ;
+	det[1]=tolower(det[1]) ;
+	if (!strncmp(instmode, "T",1)) 
+	    sprintf(bpm_file,"%11s%2sttagfbpm.fit",rootname,det) ;
+	else
+	    sprintf(bpm_file,"%11s%2shistfbpm.fit",rootname,det) ;
+    }
+
+    /* Write name of BPM file to header of IDF. */
+    cf_verbose(3,"Output bad pixel map to file %s", bpm_file) ;
+    FITS_update_key(header, TSTRING, "BPM_CAL", bpm_file, NULL, &status);
+
+    /* Create the output file and copy header from the input */
+    FITS_create_file(&bpmfits, bpm_file, &status) ;
+    FITS_copy_hdu(header, bpmfits, 0, &status) ;
+
+    FITS_update_key(bpmfits, TSTRING, "FILENAME", bpm_file, 
+		    NULL, &status) ;
+    FITS_update_key(bpmfits, TSTRING, "FILETYPE", "BAD PIXEL MAP", 
+		    NULL, &status) ; 
+
+    FITS_read_key(header, TSTRING, "FILENAME", idf_file, NULL, &status) ;
+    FITS_update_key(bpmfits, TSTRING, "IDF_FILE", idf_file, 
+		    NULL, &status) ;
+     
+    /* Reset analysis keywords in the top level of the output file */
+    FITS_movabs_hdu(bpmfits, 1, &hdutype, &status);
+    for (i = 0; i < 5; i++) {
+        FITS_read_key(bpmfits, TSTRING, keywords[i], keyval, NULL, &status);
+        if (!strncmp(keyval, "COMPLETE", 8))
+            FITS_update_key(bpmfits, TSTRING, keywords[i], "PERFORM", NULL,
+		&status) ;
+        else
+            FITS_update_key(bpmfits, TSTRING, keywords[i], "OMIT", NULL,
+		&status) ;
+    }
+
+    /* Make sure that the count rates are non-zero */
+    for (i=0; i
+#include 
+#include 
+#include "calfuse.h"
+
+int
+main(int argc,  char *argv[])
+{
+    char CF_PRGM_ID[] = "cf_convert_to_farf";
+    char CF_VER_NUM[] = "1.22";
+
+    unsigned char *pha=NULL, *locflags=NULL;
+    char instmode[FLEN_VALUE], aperture[FLEN_VALUE];
+    int  check_digitizer=1, ids_deadtime=1, elec_deadtime=1, fifo_deadtime=1;
+    int  thermal_corr=1;
+    int  countrate_corr=1, geometric_corr=1, pha_corr=1, active_flag=1;
+    int  temporal_corr=1, status=0, hdutype, last_call, optc, pad;
+    long i, nevents, nseconds;
+    float *elec_dtc=NULL, *ids_dtc=NULL, unity = 1.0;
+    float *time=NULL, *xfarf=NULL, *yfarf=NULL, *weight=NULL;
+    float *timeline=NULL; 
+    float *aic_rate=NULL, *fec_rate=NULL;
+    fitsfile *header;
+    
+    char opts[]  = "hceiftrsgpav:";
+    char usage[] = 
+	"Usage:\n"
+	"  cf_convert_to_farf [-hceiftrsgpa] [-v level] idf_file\n";
+    char option[] =
+	"Options:\n"
+	"  -h:  this help message\n"
+        "  -v:  verbosity level (default is 1; 0 is silent)\n"
+	"  -c:  no check of digitizer values\n"
+	"  -e:  no electronics deadtime correction\n"
+	"  -i:  no IDS deadtime correction\n"
+	"  -f:  no FIFO deadtime correction\n"
+	"  -t:  no thermal distortion correction\n"
+	"  -r:  no count-rate distortion correction\n"
+	"  -s:  no time-dependent distortion correction\n"
+	"  -g:  no geometric distortion correction\n"
+	"  -p:  no PHA distortion correction\n"
+	"  -a:  do not flag events beyond active region\n";
+
+    verbose_level=1;
+
+    while ((optc = getopt(argc, argv, opts)) != -1) {
+	switch(optc) {
+
+	case 'h':
+	    printf("%s\n%s", usage, option);
+	    return 0;
+	case 'v':
+	    verbose_level = atoi(optarg);
+	    break;
+	case 'c':
+	    check_digitizer = 0;
+	    break;
+	case 'i':
+	    ids_deadtime = 0;
+	    break;
+	case 'e':
+	    elec_deadtime = 0;
+	    break;
+	case 'f':
+	    fifo_deadtime = 0;
+	    break;
+	case 't':
+	    thermal_corr = 0;
+	    break;
+	case 'r':
+	    countrate_corr = 0;
+	    break;
+	case 's':
+	    temporal_corr = 0;
+	    break;
+	case 'g':
+	    geometric_corr = 0;
+	    break;
+	case 'p':
+	    pha_corr = 0;
+	    break;
+	case 'a':
+	    active_flag = 0;
+	    break;
+	}
+    }
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    if (argc <= optind) {
+        printf("%s", usage);
+        cf_if_error("Incorrect number of program arguments");
+    }
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    FITS_open_file(&header, argv[optind], READWRITE, &status);
+
+    /* Read a couple of keywords from the file header. */
+    FITS_read_key(header, TSTRING, "INSTMODE", instmode, NULL, &status);
+    FITS_read_key(header, TSTRING, "APERTURE", aperture, NULL, &status);
+
+    FITS_movabs_hdu(header, 2, &hdutype, &status);
+    nevents = cf_read_col(header, TFLOAT, "TIME",   (void **) &time);
+    nevents = cf_read_col(header, TBYTE,  "PHA",    (void **) &pha);
+    nevents = cf_read_col(header, TFLOAT, "XRAW",   (void **) &xfarf);
+    nevents = cf_read_col(header, TFLOAT, "YRAW",   (void **) &yfarf);
+    nevents = cf_read_col(header, TFLOAT, "WEIGHT", (void **) &weight);
+    nevents = cf_read_col(header, TBYTE,  "LOC_FLGS", (void **) &locflags);
+
+    FITS_movabs_hdu(header, 4, &hdutype, &status);
+    nseconds = cf_read_col(header, TFLOAT, "TIME",  (void **) &timeline);
+    nseconds = cf_read_col(header, TFLOAT, "FEC_CNT_RATE", (void **) &fec_rate);
+    nseconds = cf_read_col(header, TFLOAT, "AIC_CNT_RATE", (void **) &aic_rate);
+    FITS_movabs_hdu(header, 1, &hdutype, &status);
+
+    /* Initialize dead-time correction arrays and header keywords. */
+    FITS_update_key (header, TFLOAT, "DET_DEAD", &unity, NULL, &status);
+    FITS_update_key (header, TFLOAT, "IDS_DEAD", &unity, NULL, &status);
+    FITS_update_key (header, TFLOAT, "TOT_DEAD", &unity, NULL, &status);
+    elec_dtc = (float *) cf_malloc(sizeof(float) * nseconds);
+    ids_dtc  = (float *) cf_malloc(sizeof(float) * nseconds);
+    for (i = 0; i < nseconds; i++) elec_dtc[i] = ids_dtc[i] = 1.0;
+
+    if (check_digitizer)
+	cf_check_digitizer(header);
+
+    if (elec_deadtime)
+	cf_electronics_dead_time(header, nseconds, fec_rate, elec_dtc);
+
+    if (ids_deadtime)
+	cf_ids_dead_time(header, nseconds, aic_rate, ids_dtc);
+
+    if (fifo_deadtime)
+        cf_fifo_dead_time(header, nevents, time,
+                nseconds, timeline, aic_rate, ids_dtc);
+
+    if (ids_deadtime || elec_deadtime || fifo_deadtime)
+	cf_apply_dead_time(header, nevents, time, weight,
+			 nseconds, timeline, ids_dtc, elec_dtc);
+
+    if (thermal_corr)
+	cf_thermal_distort(header, nevents, xfarf, yfarf, weight, locflags);
+
+    if (countrate_corr)
+	cf_count_rate_y_distort(header, nevents, time, yfarf, locflags,
+				nseconds, timeline, fec_rate);
+    if (temporal_corr)
+	cf_time_xy_distort(header, nevents, xfarf, yfarf, locflags);
+
+    if (geometric_corr)
+	cf_geometric_distort(header, nevents, xfarf, yfarf, locflags);
+
+    /* Must assign PHA values to HIST data before applying walk correction. */
+    if (pha_corr && !strncmp(instmode, "HIST", 4)) {
+	unsigned char *channel;
+	channel = cf_calloc(nevents, sizeof(unsigned char));
+	if (!strncmp(aperture, "RFPT", 4)) pad = 10;
+	else pad = 100;
+	cf_identify_channel(header, nevents, xfarf, yfarf, channel, locflags,
+	    pad, last_call=FALSE);
+	cf_modify_hist_pha(header, nevents, pha, channel);
+	free(channel);
+    }
+
+    if (pha_corr)
+	cf_pha_x_distort(header, nevents, pha, xfarf, locflags);
+
+    if (active_flag)
+	cf_active_region(header, nevents, xfarf, yfarf, locflags);
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    FITS_movabs_hdu(header, 2, &hdutype, &status);
+    if (pha_corr && !strncmp(instmode, "HIST", 4))
+	cf_write_col(header, TBYTE,  "PHA", (void *) pha, nevents);
+    cf_write_col(header, TFLOAT, "WEIGHT", (void *) weight, nevents);
+    cf_write_col(header, TFLOAT, "XFARF",  (void *) xfarf,  nevents);
+    cf_write_col(header, TFLOAT, "YFARF",  (void *) yfarf,  nevents);
+    cf_write_col(header, TBYTE,  "LOC_FLGS", (void *) locflags, nevents);
+
+    FITS_close_file(header, &status);
+
+    free(fec_rate);
+    free(aic_rate);
+    free(timeline);
+    free(locflags);
+    free(weight);
+    free(yfarf);
+    free(xfarf);
+    free(pha);
+    free(time);
+    free(elec_dtc);
+    free(ids_dtc);
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return 0;
+}
diff --git a/src/fuv/cf_countmap.c b/src/fuv/cf_countmap.c
new file mode 100644
index 0000000..2d62b14
--- /dev/null
+++ b/src/fuv/cf_countmap.c
@@ -0,0 +1,541 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_countmap input_files
+ *
+ * Description: Adds the counts from a list of input idf files into
+ *              the count map. The accumulated count map cube is
+ *              determined by reading the COUNT_CAL keyword in the
+ *              input file's header. To prevent multiple copies
+ *              of reprocessed input files from being added to
+ *              the total exposure map, if the input file has been
+ *              previously added, it is skipped over and a message is
+ *              printed out.
+ *
+ * 
+ * Arguments:   input_files     Input initialized ttag FITS file names
+ *
+ * Calibration files required:  None
+ *
+ * Returns:     int  0 = successful completion
+ *
+ * Note:  This routine requires significantly more memory than your
+ *        average routine.  Its design has not been optimized to 
+ *        reduce memory usage.
+ *
+ * History:     03/25/03    1.1  peb  Begin and finish work. Based on
+ *                                    cf_ttag_to_image
+ *              03/31/03    1.2  peb  Removed filtering of photons and fixed
+ *                                    exposure time bug when subtracting data
+ *		06/11/03    1.3  wvd  Pass datatype to cf_read_col
+ *		08/25/03    1.4  wvd  Change coltype from string to int in
+ *					cf_read_col.
+ *		08/25/03    1.5  wvd  Change CHIDCOR1 to CHID_COR
+ *              02/17/04    1.6  bjg  Added scaling option
+ *                                    Routine name changed from 
+ *                                    cf_ttag_countmap to cf_countmap.
+ *              02/26/04    1.7  bjg  Added option to select coordinates
+ *                                    to use: RAW, FARF (default), final
+ *              04/08/04    1.8  bjg  Remove unused function get_xy_columns
+ *              04/27/04    1.9  bjg  Change author name of countfile
+ *              08/25/04    1.10 bjg  Added lower and upper limits option
+ *                                    for PHA. In force mode, issue a warning 
+ *                                    if file already included. 
+ *              03/02/05    1.11 wvd  Don't write AUTHOR keyword to header.
+ *              08/24/07    1.12 bot  Changed nx and ny to long and called
+ *				      as TLONG ; changed binx and biny to int
+ *				      and called as TINT.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include   
+#include "calfuse.h"
+
+#define ROOT_LENGTH 13
+#define MAXCHARS 120
+#define MASTER_CAL_FILE "master_calib_file.dat"
+#define IMAGE_EXT 1
+#define INDEX_EXT 2
+
+static char CF_PRGM_ID[] = "cf_countmap";
+static char CF_VER_NUM[] = "1.12";
+
+
+static int
+new_imagfile(char *newfile, char *detector, float effmjd, int binx, int biny)
+{
+    char  date[FLEN_CARD]={'\0'};
+    char  *ttype[] = {"ROOTNAME", "OBSDATE", "COUNTS", "EXPTIME", "ADDDATE", "SCALE", "PHAMIN", "PHAMAX"};
+    char  *tform[] = {"13A"     , "19A"    , "1J"    , "1E"     , "19A"    , "1E"   , "1I"    , "1I"    };
+    char  *tunit[] = {" "       , " "      , "counts", "seconds", " "      , " "    , " "     , " "     };
+    int   status=0, version=1, tref = 0, tfields = 8;
+    long  axis[2];
+    float exptime=0.;
+    double nevents=0.;
+    fitsfile *imagfits;
+
+    FITS_create_file(&imagfits, newfile, &status);
+    
+    axis[0] = NXMAX/binx;
+    axis[1] = NYMAX/biny;
+    
+    FITS_create_img(imagfits, FLOAT_IMG, 2, axis, &status);
+    FITS_write_key(imagfits, TINT,    "SPECBINX",    &binx,
+		   "Binsize in detector X coordinate", &status);
+    FITS_write_key(imagfits, TINT,    "SPECBINY",    &biny,
+		   "Binsize in detector Y coordinate", &status);
+    FITS_write_key(imagfits, TSTRING, "CALFTYPE", "COUNT",
+		   "Calibration file type", &status);
+    FITS_write_key(imagfits, TINT,    "CALFVERS", &version,
+		   "Calibration file version", &status);
+    FITS_write_key(imagfits, TSTRING, "DETECTOR", detector,
+		   "detector (1A, 1B, 2A, 2B)", &status);
+    FITS_write_key(imagfits, TFLOAT,  "EFFMJD",   &effmjd,
+		   "Date on which file should be applied (MJD)", &status);
+    fits_get_system_time(date, &tref, &status);
+    FITS_write_key(imagfits, TSTRING, "DATE",     date,
+		   "file creation date (YYYY-MM-DDThh:mm:ss UTC)", &status);
+    FITS_write_key(imagfits, TDOUBLE,   "NEVENTS",  &nevents,
+		   "Accumulated events", &status);
+    FITS_write_key(imagfits, TFLOAT,  "EXPTIME",  &exptime,
+		   "Accumulated exposure time", &status);
+
+    FITS_create_tbl(imagfits, BINARY_TBL, 0, tfields, ttype, tform, tunit,
+		    "PROCESSED FILES", &status);
+
+    FITS_close_file(imagfits, &status);
+    return status;
+}
+
+static int
+_check_index(fitsfile *imagfits, char *rootname, float *scale, int *phamin, int *phamax)
+{
+    int   status=0, anynull=0, hdutype;
+    float *scal;
+    int *phami, *phama;
+    long  j, nrows, frow=1, felem=1;
+    char  **filename, strnull[] = "          ";
+
+    FITS_movabs_hdu(imagfits, INDEX_EXT, &hdutype, &status);
+    FITS_read_key(imagfits, TLONG, "NAXIS2", &nrows, NULL, &status);
+
+    filename = (char **) cf_malloc(nrows * sizeof(char *));
+    filename[0] = (char *) cf_malloc(nrows*(ROOT_LENGTH+1)*sizeof(char));
+    scal = (float *) cf_malloc(nrows * sizeof(float));
+    phami = (int *) cf_malloc(nrows * sizeof(int));
+    phama = (int *) cf_malloc(nrows * sizeof(int));
+    for (j=1; j=phamin) && (pha[j]<=phamax)){
+	int x, y;
+	x = xpos[j];
+	y = ypos[j];
+	if ((x >= 0) && (x < nx*binx)  &&  (y >= 0) && (y < ny*biny)) {
+	  image[(y/biny)*nx + (x/binx)] += weight[j]*scale;
+	  ncounts += weight[j]*scale;
+	}
+      }
+    }
+    FITS_write_img(imagfits, TFLOAT, 1, nx*ny, image, &status);
+
+    free(image);
+    free(weight);
+    free(ypos);
+    free(xpos);
+    return ncounts;
+}
+
+static double
+subtract_events(fitsfile *infits, char *xcolumn, char *ycolumn,
+		float scale, int phamin, int phamax, fitsfile *imagfits)
+{
+    int    binx, biny, status=0, hdutype, anynull=0;
+    long   nx, ny, nevents, j;
+    float  *xpos, *ypos, *weight, *image;
+    double ncounts=0.;
+    char    *pha;
+    
+    FITS_movabs_hdu(infits, 2, &hdutype, &status);
+    nevents = cf_read_col(infits, TFLOAT, xcolumn,  (void **) &xpos);
+    nevents = cf_read_col(infits, TFLOAT, ycolumn,  (void **) &ypos);
+    nevents = cf_read_col(infits, TFLOAT, "WEIGHT", (void **) &weight);
+    nevents = cf_read_col(infits, TBYTE, "PHA",    (void **) &pha);
+
+    FITS_movabs_hdu(imagfits, IMAGE_EXT, &hdutype, &status);
+    FITS_read_key(imagfits, TLONG, "NAXIS1",   &nx,   NULL, &status);
+    FITS_read_key(imagfits, TLONG, "NAXIS2",   &ny,   NULL, &status);
+    FITS_read_key(imagfits, TINT, "SPECBINX", &binx, NULL, &status);
+    FITS_read_key(imagfits, TINT, "SPECBINY", &biny, NULL, &status);
+    
+    image = (float *) cf_malloc(sizeof(float)*nx*ny);
+    FITS_read_img(imagfits, TFLOAT, 1, nx*ny, NULL, image, &anynull, &status);
+
+    for (j=0; j=phamin) && (pha[j]<=phamax)){
+	int x, y;
+	x = xpos[j];
+	y = ypos[j];
+	if ((x >= 0) && (x < nx*binx)  &&  (y >= 0) && (y < ny*biny)) {
+	  image[(y/biny)*nx + (x/binx)] -= weight[j]*scale;
+	  ncounts += weight[j]*scale;
+	}
+      }
+    }
+    FITS_write_img(imagfits, TFLOAT, 1, nx*ny, image, &status);
+
+    free(image);
+    free(weight);
+    free(ypos);
+    free(xpos);
+    return ncounts;
+}
+
+
+int main(int argc, char *argv[])
+{
+    char  *newfile = NULL, *detector = NULL, buffer[FLEN_CARD]={'\0'};
+    int   subtract=0, force=0, newbinx=1, newbiny=1, status=0, optc;
+    float effmjd = 0.,scale=1.,old_scale;
+    int phamin=0, phamax=31;
+    int old_phamin, old_phamax;
+    
+    char   xcolumn[FLEN_CARD]={'\0'}, ycolumn[FLEN_CARD]={'\0'};
+
+    char opts[] = "hv:fsrcn:d:j:w:x:y:l:u:";
+    char usage[] =
+        "Usage:\n"
+	"  cf_countmap [-hfsrc] [-v level] [-n filename] [-d segment]\n"
+        "    [-w scale] [-j effmjd] [-x xbin] [-y ybin] \n"
+        "    [-l phamin] [-u phamax] idffiles\n";
+    char option[] =
+	"Options:\n"
+	"  -h:  this help message\n"
+        "  -v:  verbosity level (=1; 0 is silent)\n"
+	"  -f:  force processing\n"
+	"  -s:  subtract files\n"
+	"  -n:  image map file\n"
+	"  -d:  image map segment (no default for new file)\n"
+	"  -j:  effective MJD (=0.0)\n"
+	"  -w:  weighting factor for image (=1.0)\n"
+	"  -x:  X-bin size (=1)\n"
+	"  -y:  Y-bin size (=1)\n"
+        "  -r:  use raw XY coordinates instead of farf\n"
+        "  -c:  use final XY coordinates instead of farf\n"
+        "  -l:  lower limit for pha (=0) \n"
+        "  -u:  upper limit for pha (=31) \n";
+
+    verbose_level = 1;
+
+    strcpy(xcolumn, "XFARF");
+    strcpy(ycolumn, "YFARF");
+
+    /* Check number of options and arguments */
+    while ((optc = getopt(argc, argv, opts)) != -1) {
+	switch(optc) {
+	    
+	case 'h':
+	    printf("%s\n%s", usage, option);
+	    return 0;
+	case 'v':
+	    verbose_level = atoi(optarg);
+	    break;
+	case 'f':
+	    force = 1;
+	    break;
+	case 's':
+	    subtract = 1;
+	    break;
+	case 'n':
+	    newfile = optarg;
+	    break;
+	case 'd':
+	    detector = optarg;
+	    break;
+	case 'j':
+	    effmjd = atof(optarg);
+	    break;
+	case 'w':
+	    scale = atof(optarg);
+	    break;
+	case 'x':
+	    newbinx = atoi(optarg);
+	    break;
+	case 'y':
+	    newbiny = atoi(optarg);
+	    break;
+	case 'r':
+	    strcpy(xcolumn, "XRAW");
+	    strcpy(ycolumn, "YRAW");
+	    break;
+	case 'c':
+	    strcpy(xcolumn, "X");
+	    strcpy(ycolumn, "Y");
+	    break;
+	case 'l':
+	    phamin = atoi(optarg);
+	    break;
+	case 'u':
+	    phamax = atoi(optarg);
+	    break;
+	}
+    }
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    if (argc <= optind) {
+        cf_if_error("%s\nIncorrect number of program arguments", usage);
+    }
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin processing");
+    
+    while (optind < argc) {
+
+	char   imagfile[FLEN_CARD], rootname[FLEN_CARD]={'\0'};
+	char   segment[FLEN_CARD] = {'\0'};
+	int    hdutype;
+	FILE   *fptr;
+	fitsfile *infits, *imagfits;
+
+	FITS_open_file(&infits, argv[optind], READONLY, &status);
+	FITS_movabs_hdu(infits, 1, &hdutype, &status);
+
+	if (newfile) {
+	    strcpy(imagfile, newfile);
+
+	    if ((fptr = fopen(imagfile, "r")))
+		fclose(fptr);
+	    else {
+		if (!detector)
+		    cf_if_error("No detector segment specified: "
+				"1A, 1B, 2A, 2B");
+		status = new_imagfile(imagfile, detector, effmjd,
+				       newbinx, newbiny);
+	    }
+	    FITS_open_file(&imagfits, imagfile, READWRITE, &status);
+	    FITS_movabs_hdu(imagfits, IMAGE_EXT, &hdutype, &status);
+	    detector = buffer;
+	    FITS_read_key(imagfits, TSTRING, "DETECTOR", detector, NULL,
+			  &status);
+	}
+	else {
+	    FITS_read_key(infits, TSTRING, "TCNT_MAP", imagfile, NULL,
+			  &status);
+	    detector = buffer;
+	    FITS_read_key(infits, TSTRING, "DETECTOR", detector, NULL,
+			  &status);
+
+	    if ((fptr = fopen(cf_hist_file(imagfile), "r"))) {
+		fclose(fptr);
+	    } else {
+		char  keyword[FLEN_CARD]={'\0'}, segment[FLEN_CARD]={'\n'};
+		char  linin[MAXCHARS]={'\0'}, filename[FLEN_CARD]={'\0'};
+		int   interp;
+		float aftermjd;
+		FILE  *master;
+		/*
+		 * Get the effective MJD from the master calibration file
+		 */
+		master = fopen(cf_parm_file(MASTER_CAL_FILE), "r");
+		if (master == NULL)
+		    cf_if_error("Master calibration database file not found");
+		while (fgets(linin, MAXCHARS, master) != NULL) {
+		    /*
+		     * Check for comment lines
+		     */
+		    if ((linin[0] != '#') && (linin[0] != '\n')) {
+			sscanf(linin, "%4c%*2c%2c%*2c%13c%*2c%9f%*2c%1d",
+			       keyword, segment, filename, &aftermjd, &interp);
+			if (strcmp(filename, imagfile) == 0) {
+			    effmjd = aftermjd;
+			    break;
+			}
+		    }
+		}
+		fclose(master);
+
+		status = new_imagfile(cf_hist_file(imagfile), detector,
+				      effmjd, newbinx, newbiny);
+	    }
+	    FITS_open_file(&imagfits, cf_hist_file(imagfile), READWRITE,
+			   &status);
+	}
+
+	strncpy(rootname, argv[optind], ROOT_LENGTH);
+	FITS_read_key(infits, TSTRING,  "DETECTOR", segment, NULL,
+			  &status);
+	if (strcmp(detector, segment) != 0) {
+	    cf_if_warning("%s segment is not the same as %s.",
+			  argv[optind], imagfile);
+	}
+	else if (subtract) {
+	    int  index;
+	    if ((index = _check_index(imagfits, rootname, &scale, &phamin, &phamax))) {
+		
+		int    hdutype;
+		float  exptime=0., acctime=0.;
+		double nevents, accevnt=0.;
+
+		FITS_read_key(infits, TFLOAT,  "EXPTIME", &exptime, NULL,
+			      &status);
+
+		
+		nevents = subtract_events(infits, xcolumn, ycolumn, scale, phamin, phamax, imagfits);
+
+		FITS_movabs_hdu(imagfits, IMAGE_EXT, &hdutype, &status);
+		FITS_read_key(imagfits, TDOUBLE, "NEVENTS",  &accevnt,
+			      NULL, &status);
+		FITS_read_key(imagfits, TFLOAT, "EXPTIME", &acctime,
+			      NULL, &status);
+		accevnt -= nevents;
+		acctime -= exptime;
+		FITS_update_key(imagfits, TDOUBLE,  "NEVENTS", &accevnt,
+				NULL, &status);
+		FITS_update_key(imagfits, TFLOAT, "EXPTIME", &acctime,
+				NULL, &status);
+
+		FITS_movabs_hdu(imagfits, INDEX_EXT, &hdutype, &status);
+		FITS_delete_rows(imagfits, index, 1, &status);
+		cf_verbose(1, "%s is subtracted from %s",
+			   argv[optind], imagfile);
+	    } else {
+	      cf_if_warning("%s is not in %s.", argv[optind], imagfile);
+	    }
+	} else {
+	    if (!force && _check_index(imagfits, rootname, &old_scale, &old_phamin, &old_phamax)) {
+	      cf_if_warning("%s is already in %s with scale = %f, phamin = %d, phamax=%d.",
+			    argv[optind], imagfile, old_scale, old_phamin, old_phamax);
+	    } else {
+		char   obsdate[FLEN_CARD]={'\0'}, dateobs[FLEN_CARD]={'\0'};
+		char   timeobs[FLEN_CARD]={'\0'};
+		
+		float  exptime=0., acctime=0.;
+		double nevents, accevnt=0;
+
+		FITS_movabs_hdu(imagfits, IMAGE_EXT, &hdutype, &status);
+		FITS_read_key(infits, TSTRING, "DATEOBS", dateobs, NULL,
+			      &status);
+		FITS_read_key(infits, TSTRING, "TIMEOBS", timeobs, NULL,
+			      &status);
+		obsdate[0] = '\0';
+		sprintf(obsdate, "%s%s%s", dateobs, "T", timeobs);
+		FITS_read_key(infits, TFLOAT,  "EXPTIME", &exptime, NULL,
+			      &status);
+
+		if ((force) && _check_index(imagfits, rootname, &old_scale, &old_phamin, &old_phamax)) 
+		  cf_if_warning("FORCE MODE - %s is already in %s with scale = %f, phamin = %d, phamax=%d.",
+				argv[optind], imagfile, old_scale, old_phamin, old_phamax);
+
+		nevents = add_events(infits, xcolumn, ycolumn, scale, phamin, phamax, imagfits);
+
+		FITS_movabs_hdu(imagfits, IMAGE_EXT, &hdutype, &status);
+		FITS_read_key(imagfits, TDOUBLE, "NEVENTS",  &accevnt,
+			      NULL, &status);
+		FITS_read_key(imagfits, TFLOAT, "EXPTIME", &acctime,
+			      NULL, &status);
+		accevnt += nevents;
+		acctime += exptime;
+		FITS_update_key(imagfits, TDOUBLE, "NEVENTS", &accevnt,
+				NULL, &status);
+		FITS_update_key(imagfits, TFLOAT, "EXPTIME", &acctime,
+				NULL, &status);
+
+		status = _update_index(imagfits, rootname, obsdate, nevents,
+				       exptime, scale, phamin, phamax);
+		cf_verbose(1, "%s is added to %s", argv[optind], imagfile);
+	    }
+	}
+	FITS_close_file(imagfits, &status);
+	FITS_close_file(infits, &status);
+	optind ++;
+    }
+    
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing");
+    return 0;
+}
diff --git a/src/fuv/cf_extract_spectra.c b/src/fuv/cf_extract_spectra.c
new file mode 100644
index 0000000..6e06119
--- /dev/null
+++ b/src/fuv/cf_extract_spectra.c
@@ -0,0 +1,336 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences 
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_extract_spectra options intermediate_file  
+ *
+ * Description: This module computes a background model, reads the various
+ *		calibration files, and performs either a standard or optimal
+ *		extraction for the target spectrum in each of the LiF and
+ *		SiC channels.
+ *
+ *		Note: some of the routines called by this module modify values
+ *		in the IDF file header.  We want those changes to appear in
+ *		the final, extracted spectral files, but not in the archived
+ *		IDF, so we make a copy in memory of the IDF header and pass it
+ *		to the various routines.  We delete it at the end.
+ *
+ * Arguments:   input_file              Intermediate data file
+ *
+ * Calibration files:                   
+ *
+ * Returns:     0 on successful completion
+ *
+ * Calls:       cf_apply_filters, cf_scale_bkgd, cf_make_wave_array,
+ *		cf_rebin_and_flux_calibrate, cf_rebin_probability_array,
+ *              cf_standard_or_optimal_extraction, cf_optimal_extraction
+ *              cf_write_extracted_spectrum
+ *
+ * History:     02/13/03   peb    1.1   Begin work
+ *		03/02/03   wvd    1.3	Add cf_standard_or_optimal_extraction()
+ *              03/10/03   peb    1.4   Added verbose_level, unistd.h for
+ *                                      getopt portability, and remove debug
+ *                                      print statements
+ *		04/08/03   wvd    1.6	Copy header of IDF into memory
+ *					so that subsequent routines can
+ *					modify it without changing IDF.
+ *					Delete this virtual header when done.
+ *					Read arrays from timeline table and
+ *					pass to cf_apply_filters.
+ *              05/06/03   rdr    1.7   Read from column ERGCM2 rather than
+ *                                      ERGCM2S
+ *              05/07/03   wvd    1.8   Change ergcm2 to ergcm2 throughout
+ *              05/28/03   rdr    1.9   Read pothole mask
+ *              06/09/03   rdr    1.10  Incorporate the tscreen flag
+ *		06/11/03   wvd    1.11  Pass datatype to cf_read_col
+ *		08/25/03   wvd    1.12 	Change coltype from string to int in
+ *					cf_read_col.
+ *		09/29/03   wvd    1.13 	Move standard_or_optimal so that it
+ *					runs just once.  Don't check return
+ *					values from subroutines.
+ *		10/08/03   wvd    1.14 	Change counts_out array to type long.
+ *		10/16/03   wvd    1.15 	If EXPTIME = 0, generate a pair of
+ *					null-valued spectra and exit.
+ *		10/31/03   wvd    1.16 	Change channel to unsigned char.
+ *		12/12/03   wvd    1.18 	Clean up i/o.
+ *		03/16/04   wvd    1.19 	Don't pass wave_out to optimal
+ *					extraction subroutine.
+ *					Change pycent from int to float.
+ *		03/24/04   wvd    1.20 	Eliminate got_no_data(); fold into
+ *					main routine.  If either EXPTIME = 0
+ *					or NEVENTS = 0, write null spectrum.
+ *		04/26/04   wvd    1.21 	Replace cf_rebin_and_flux_calibrate
+ *					background with cf_rebin_background.
+ *					cf_optimal_extraction now returns
+ *					flux_out and sigma_out in units of
+ *					counts; must flux-calibrate each.
+ *		06/10/04   wvd    1.22 	Don't pass time array from timeline
+ *					table to cf_apply_filters.
+ *              06/11/04   peb    1.23  Add the -r option to override the
+ *                                      default rootname.
+ *		01/28/05   wvd    1.24	If EXP_STAT < 0, generate a pair of
+ *                                      null-valued spectra and exit.
+ *		03/09/05   wvd    1.25	Change cf_ttag_bkgd to cf_scale_bkgd,
+ *					pass weights array to it.
+ *		04/12/05   wvd    1.27	Add -n flag, which forces extraction
+ *					of night-only spectrum.  Its argument
+ *					is the name of a night-only BPM file.
+ *		06/15/05   wvd    1.28  BUG FIX: program always read the
+ *					point-source probability arrays from
+ *					the WGTS_CAL file.  Now uses value
+ *					of extended to determine which HDU
+ *					to read.
+ *		11/23/05   wvd    1.29  Add flag to disable optimal 
+ *					extraction from the command line.
+ *		01/27/06   wvd    1.30  Add flag to force use of optimal 
+ *					extraction from the command line.
+ *		05/19/06   wvd    1.31	Don't discard spectra with non-zero
+ *					values of EXP_STAT.
+ *		06/12/06   wvd    1.32	Change cf_if_warning to cf_verbose.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+static char CF_PRGM_ID[] = "cf_extract_spectra";
+static char CF_VER_NUM[] = "1.32";
+
+int
+main(int argc, char *argv[])
+{
+    char  *bpm_file=NULL, *outrootname = NULL;
+    unsigned char *channel=NULL, *timeflags=NULL, *loc_flags=NULL;
+    unsigned char *time_status=NULL;
+    int   extended, status=0, optc, j, tscreen=1;
+    int   binx, biny, bnx[2], bny[2], bymin[2], aper[2];
+    int   night_only=FALSE, optimal=FALSE;
+    int   force_optimal=FALSE, override_optimal=FALSE;
+    long  nevents=0, ntimes=0, ngood=0, dtime=0, ntime=0, *good_index=NULL;
+    float *weight=NULL, *x=NULL, *y=NULL, *lambda=NULL;
+    float exptime, *bpmask=NULL ;
+    float *bimage[2]={NULL, NULL};
+
+    fitsfile *memp, *header;
+    
+    char opts[]  = "hn:ofr:sv:";
+    char usage[] = 
+	"Usage:\n"
+	"  cf_extract_spectra [-hsof] [-n bpm_filename] [-r rootname] [-v level]"
+		" idf_file\n";
+    char option[] =
+	"Options:\n"
+	"  -h:  this help message\n"
+	"  -n:  extract night-only spectrum using given bad-pixel map\n"
+	"  -o:  disable optimal extraction\n"
+	"  -f:  force optimal extraction\n"
+        "  -r:  override the default rootname\n"
+        "  -s:  do not perform screening on time flags\n" 
+        "  -v:  verbosity level (=1; 0 is silent)\n" ;
+
+    verbose_level = 1;
+
+    while ((optc = getopt(argc, argv, opts)) != -1) {
+	switch(optc) {
+
+	case 'h':
+	    printf("%s\n%s", usage, option);
+	    return 0;
+        case 'n':
+            bpm_file = optarg;
+	    night_only = TRUE;
+            break;
+        case 'o':
+	    override_optimal = TRUE;
+            break;
+        case 'f':
+	    force_optimal = TRUE;
+            break;
+        case 'r':
+            outrootname = optarg;
+            break;
+	case 'v':
+	    verbose_level = atoi(optarg);
+	    break;
+        case 's':
+	  tscreen = 0 ;
+          break;
+	}
+    }
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    if (argc <= optind) {
+        printf("%s", usage);
+	return -1;
+    }
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    /* Open input data file. */
+    FITS_open_file(&header, argv[optind], READONLY, &status);
+    FITS_read_key(header, TFLOAT, "EXPTIME", &exptime, NULL, &status);
+
+    FITS_movabs_hdu(header, 2, NULL, &status);
+    nevents = cf_read_col(header, TFLOAT, "WEIGHT",  (void **) &weight);
+    nevents = cf_read_col(header, TFLOAT, "X",       (void **) &x);
+    nevents = cf_read_col(header, TFLOAT, "Y",       (void **) &y);
+    nevents = cf_read_col(header, TBYTE,  "CHANNEL", (void **) &channel);
+    nevents = cf_read_col(header, TBYTE,  "TIMEFLGS", (void **) &timeflags);
+    nevents = cf_read_col(header, TBYTE,  "LOC_FLGS", (void **) &loc_flags);
+    nevents = cf_read_col(header, TFLOAT, "LAMBDA",  (void **) &lambda);
+
+    FITS_movabs_hdu(header, 4, NULL, &status);
+    ntimes = cf_read_col(header, TBYTE, "STATUS_FLAGS", (void **) &time_status);
+
+   /* 
+    *  Copy header of IDF into memory, close IDF,
+    *  and pass copy of header to subsequent routines.
+    */
+    FITS_movabs_hdu(header, 1, NULL, &status);
+    FITS_create_file(&memp, "mem://", &status);
+    FITS_copy_hdu(header, memp, 0, &status);
+    FITS_close_file(header, &status);
+    header = memp;
+
+    /* If night-only spectrum is requested, modify header accordingly. */
+    if (night_only) {
+	cf_verbose(3, "Night-only spectrum requested from command line.");
+	FITS_read_key(header,  TFLOAT, "EXPNIGHT", &exptime, NULL, &status);
+	FITS_update_key(header, TFLOAT, "EXPTIME",  &exptime, NULL, &status);
+	FITS_update_key(header, TSTRING, "DAYNIGHT", "NIGHT", NULL, &status);
+	FITS_update_key(header, TSTRING, "BPM_CAL", bpm_file, NULL, &status);
+    }
+
+    extended = cf_source_aper(header, aper);
+
+    /* Determine whether to attempt optimal extraction. */
+    if (override_optimal) {
+	cf_verbose (1, "User set -o flag.  No optimal extraction.");
+	optimal=FALSE;
+    }
+    else if (force_optimal) {
+	cf_verbose (1, "User set -f flag.  Forcing use of optimal extraction.");
+	optimal=TRUE;
+    }
+    else cf_standard_or_optimal_extraction(header, &optimal);
+
+    /* Make list of all photons that satisfy requested screenings. */
+    cf_apply_filters(header, tscreen, nevents, timeflags, loc_flags,
+	ntimes, time_status, &dtime, &ntime, &ngood, &good_index);
+
+    /* Generate model backgrounds for LiF and SiC channels. */
+    cf_scale_bkgd(header, nevents, x, y, weight, channel, timeflags,
+	loc_flags, ngood, good_index, dtime, ntime, &binx, &biny,
+	&bnx[0], &bny[0], &bymin[0], &bimage[0],
+	&bnx[1], &bny[1], &bymin[1], &bimage[1]);
+
+    /* Run once for each of LiF and SiC target channels. */
+    for (j=0; j<2; j++) {
+	int   pny, valid_spectrum=TRUE;
+	float pycent, wpc;
+        long *counts_out=NULL, i, nout=0, nphotons=0;
+	float *wave_out=NULL, *bkgd_out=NULL, *flux_out=NULL, *sigma_out=NULL;
+	float *weights_out=NULL, *barray=NULL, *parray=NULL;
+        short *bpix_out=NULL;
+	unsigned char *channel_temp=NULL;
+
+	/* Generate output wavelength array. */
+	cf_make_wave_array(header, aper[j], &nout, &wave_out);
+
+	/* If no data, generate null-valued output arrays. */
+	for (i = 0; i < ngood; i++) {
+	    if (channel[good_index[i]] == aper[j]) {
+		nphotons++;
+		break;
+	    }
+	}
+	if (exptime < 1. || nphotons < 1) {
+            bkgd_out = (float *) cf_calloc(nout, sizeof(float));
+            bpix_out = (short *) cf_calloc(nout, sizeof(short));
+            counts_out = (long *) cf_calloc(nout, sizeof(long));
+            flux_out = (float *) cf_calloc(nout, sizeof(float));
+            sigma_out = (float *) cf_calloc(nout, sizeof(float));
+            weights_out = (float *) cf_calloc(nout, sizeof(float));
+	    valid_spectrum=FALSE;	
+	    cf_verbose(1, "No data for aperture %d.  Generating "
+		"null-valued output spectrum.", aper[j]);
+	}
+	else {			/* Extract target spectrum. */
+
+	/* Bin background model to match output wavelength array. */
+	    cf_rebin_background(header, aper[j], nout, wave_out,
+		binx, biny, bnx[j], bny[j], bimage[j], &barray);
+
+	/* Use QUAL_CAL files to create a bad-pixel mask for this exposure. */
+            cf_make_mask(header, aper[j], nout, wave_out, bny[j], bymin[j],
+		&bpmask);
+
+	/* Bin the weights/probability array to match output wave array. */
+	    cf_rebin_probability_array(header, extended, aper[j], nout,
+		wave_out, &pny, &pycent, &parray);
+
+	/* Use optimal extraction if possible, standard extraction otherwise. */
+	    cf_optimal_extraction(header, optimal, aper[j],
+		weight, y, channel, lambda, ngood, good_index,
+		barray, bpmask, pny, pycent, parray, nout, wave_out, &flux_out,
+		&sigma_out, &counts_out, &weights_out, &bkgd_out, &bpix_out);
+
+	/* Optimal-extraction routine returns flux_out and sigma_out in units
+	   of counts.  Must flux-calibrate both arrays. */
+	    channel_temp =
+		(unsigned char *) cf_malloc(sizeof(unsigned char) * nout);
+	    memset (channel_temp, aper[j], sizeof(unsigned char) * nout);
+	    FITS_read_key(header, TFLOAT, "WPC", &wpc, NULL, &status);
+	    FITS_update_key(header, TSTRING, "FLUX_COR", "PERFORM", NULL,
+		&status) ;
+	    cf_convert_to_ergs(header, nout, flux_out, flux_out, channel_temp,
+		wave_out);
+	    FITS_update_key(header, TSTRING, "FLUX_COR", "PERFORM", NULL,
+		&status) ;
+	    cf_convert_to_ergs(header, nout, sigma_out, sigma_out, channel_temp,
+		wave_out);
+	    free(channel_temp);
+
+	/* Divide flux and errors by EXPTIME * WPC to get units of erg/cm2/s/A. */
+	    for (i = 0; i < nout; i++) {
+		flux_out[i]  /= exptime * wpc;
+		sigma_out[i] /= exptime * wpc;
+	    }
+	}
+
+	/* Write extracted spectrum to output file. */
+	cf_write_extracted_spectrum(header, aper[j], valid_spectrum,
+		nout, wave_out, flux_out, sigma_out, counts_out,
+		weights_out, bkgd_out, bpix_out, outrootname);
+
+	free(counts_out);
+	free(bkgd_out);
+	free(weights_out);
+	free(sigma_out);
+	free(flux_out);
+	free(wave_out);
+        free(bpix_out) ;
+	free(parray);
+	free(barray);
+    }
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    FITS_delete_file(header, &status);
+
+    free(bimage[1]);
+    free(bimage[0]);
+    free(lambda);
+    free(loc_flags);
+    free(timeflags);
+    free(channel);
+    free(y);
+    free(x);
+    free(weight);
+    free(time_status);
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return 0;
+}
diff --git a/src/fuv/cf_flux_calibrate.c b/src/fuv/cf_flux_calibrate.c
new file mode 100644
index 0000000..2ad92e6
--- /dev/null
+++ b/src/fuv/cf_flux_calibrate.c
@@ -0,0 +1,173 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_flux_calibrate options intermediate_file
+ *
+ * Description: Flux calibrate each photon assigned to a channel.
+ *
+ *		** NEXT STEPS COMMENTED OUT FOR NOW **
+ *		For each photon in the target aperture,
+ *		apply astigmatism correction to XFARF array and use the
+ *		resulting coordinate system to apply flat-field and
+ *		worm corrections to photon weights.
+ *
+ *              By default all corrections are performed.  Command line
+ *              options allow one or more corrections to be omitted.
+ *
+ * Arguments:   input_file              Intermediate data file
+ *
+ * Calibration files:                   AEFF_CAL
+ *
+ * Returns:     0 on successful completion
+ *
+ * Calls:       cf_effective_area, cf_astig_farf, cf_flat_field,
+ *		cf_worm_correction
+ *
+ * History:     12/06/02   wvd    1.1   Begin work
+ *		02/12/03   wvd    1.2   Read ERGCM2S from IDF
+ *					Move cf_convert_to_ergs to end of
+ *                                      module
+ *		03/11/03   wvd    1.3   Change channel to type char
+ *		03/12/03   wvd    1.4   If ERGCM2S[i] is undefined,
+ *					set channel[i] = 0
+ *              03/19/03   peb    1.5   Added verbose_level option.
+ *              05/06/03   rdr    1.6   Read from column ERGCM2 rather
+ *                                      than ERGCM2S
+ *              05/07/03   wvd    1.7   Change ergcm2s to ergcm2
+ *		06/11/03   wvd    1.8   Pass datatype to cf_read_col and
+ *					cf_write_col.
+ *					Comment out call to cf_astig_farf().
+ *		08/25/03   wvd    1.9   Change coltype from string to int in
+ *					cf_read_col and cf_write_col.
+ *		09/17/03   wvd    1.10  Add some documentation.
+ *		09/17/03   wvd    1.11  Change channel to unsigned char.
+ *		05/20/05   wvd    1.12  Clean up i/o.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+static char CF_PRGM_ID[] = "cf_flux_calibrate";
+static char CF_VER_NUM[] = "1.12";
+
+int
+main(int argc,  char *argv[])
+{
+    unsigned char *channel=NULL;
+    int  effective_area=1, astig_farf=1, flat_field=1, worm_correction=1;
+    int  status=0, hdutype, optc;
+    long nevents, nseconds;
+    float *time=NULL, *ttime=NULL, *xfarf=NULL, *yfarf=NULL, *weight=NULL;
+    float *lambda=NULL, *ycentl=NULL, *ycents=NULL, *ergcm2=NULL;
+    fitsfile *header;
+    
+    char opts[]  = "heafwv:";
+    char usage[] = 
+	"Usage:\n"
+	"  cf_flux_calibrate [-heafw] [-v level] idf_file\n";
+    char option[] =
+	"Options:\n"
+	"  -h:  this help message\n"
+	"  -v:  verbosity level (default is 1; 0 is silent)\n"
+	"  -e:  no effective-area calibration\n"
+	"  -a:  no astigmatism correction of XFARF array\n"
+	"  -f:  no flat-field correction\n"
+	"  -w:  no worm correction\n";
+
+    verbose_level = 1;
+ 
+    while ((optc = getopt(argc, argv, opts)) != -1) {
+	switch(optc) {
+
+	case 'h':
+	    printf("%s\n%s", usage, option);
+	    return 0;
+	case 'v':
+	    verbose_level = atoi(optarg);
+	    break;
+	case 'e':
+	    effective_area = 0;
+	    break;
+	case 'a':
+	    astig_farf = 0;
+	    break;
+	case 'f':
+	    flat_field = 0;
+	    break;
+	case 'w':
+	    worm_correction = 0;
+	    break;
+	}
+    }
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    if (argc != optind+1) {
+        printf("%s", usage);
+        cf_if_error("Incorrect number of command-line arguments");
+    }
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    FITS_open_file(&header, argv[optind], READWRITE, &status);
+
+    FITS_movabs_hdu(header, 2, &hdutype, &status);
+    nevents = cf_read_col(header, TFLOAT, "TIME",   (void **) &time);
+    nevents = cf_read_col(header, TFLOAT, "WEIGHT",  (void **) &weight);
+    nevents = cf_read_col(header, TFLOAT, "XFARF",  (void **) &xfarf);
+    nevents = cf_read_col(header, TFLOAT, "YFARF",  (void **) &yfarf);
+    nevents = cf_read_col(header, TBYTE,  "CHANNEL", (void **) &channel);
+    nevents = cf_read_col(header, TFLOAT, "LAMBDA",  (void **) &lambda);
+    nevents = cf_read_col(header, TFLOAT, "ERGCM2",  (void **) &ergcm2);
+
+    FITS_movabs_hdu(header, 4, &hdutype, &status) ;
+    nseconds = cf_read_col(header, TFLOAT, "TIME", (void **) &ttime) ;
+    nseconds = cf_read_col(header, TFLOAT, "YCENT_LIF", (void **) &ycentl) ;
+    nseconds = cf_read_col(header, TFLOAT, "YCENT_SIC", (void **) &ycents) ;
+
+    FITS_movabs_hdu(header, 1, &hdutype, &status);
+
+   /***************************************************************************
+    * Since we currently have no flat-field or worm correction,
+    * these subroutines are commented out.
+    *
+    if (astig_farf)
+	cf_astig_farf(header, nevents, xfarf, yfarf, channel, time,
+		nseconds, ttime, ycentl, ycents);
+    if (flat_field)
+	cf_flat_field(header, nevents, time, weight, xfarf, yfarf, channel,
+		nseconds, ttime, ycentl, ycents);
+
+    if (worm_correction)
+	cf_worm_correction(header, nevents, time, weight, xfarf, yfarf, channel,
+		nseconds, ttime, ycentl, ycents);
+    ***************************************************************************/
+
+    if (effective_area)
+	cf_convert_to_ergs(header, nevents, weight, ergcm2, channel, lambda);
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    FITS_movabs_hdu(header, 2, &hdutype, &status);
+    cf_write_col(header, TFLOAT, "WEIGHT",  (void *) weight, nevents);
+    cf_write_col(header, TBYTE,  "CHANNEL", (void *) channel, nevents);
+    cf_write_col(header, TFLOAT, "ERGCM2",  (void *) ergcm2, nevents);
+
+    FITS_close_file(header, &status);
+
+    free(time);
+    free(weight);
+    free(xfarf);
+    free(yfarf);
+    free(channel);
+    free(lambda);
+    free(ergcm2);
+    free(ttime);
+    free(ycentl);
+    free(ycents);
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return 0;
+}
diff --git a/src/fuv/cf_gainmap.c b/src/fuv/cf_gainmap.c
new file mode 100644
index 0000000..63ed3f7
--- /dev/null
+++ b/src/fuv/cf_gainmap.c
@@ -0,0 +1,610 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_gainmap input_files
+ *
+ * Description: Adds the counts from a list of input ttag idf files into
+ *              the gain map.  The accumulated gain map cube is
+ *              determined by reading the GAIN_CAL keyword in the
+ *              input file's header.  To prevent multiple copies
+ *              of reprocessed input files from being added to
+ *              the total exposure map, the gain map contains an
+ *              index list of the files which have been added.
+ *              The new file is skipped if it is in the list.
+ * 
+ * 
+ * Arguments:   input_files     Input ttag IDF FITS file name
+ *
+ * Calibration files required:  None
+ *
+ * Returns:     int  0 = successful completion
+ *
+ * Note:  This routine requires significantly more memory than your
+ *        average routine.  Its design has not been optimized to 
+ *        reduce memory usage.
+ *
+ * History:     03/31/03    1.1  peb  Finished work.
+ *                                    Based on cf_ttag_countmap.
+ *		06/11/03    1.2  wvd  Pass datatype to cf_read_col
+ *		08/25/03    1.3  wvd  Change coltype from string to int in
+ *					cf_read_col.
+ *              01/09/04    1.4  bjg  Change CHIDCOR1 to CHID_COR
+ *              02/17/04    1.5  bjg  Added scaling option 
+ *                                    histogram files given in the argument 
+ *                                    list are ignored
+ *              02/26/04    1.6  bjg  Bug Fix. Routine name changed from 
+ *                                    cf_ttag_gainmap to cf_gainmap.
+ *                                    Added option to select coordinates
+ *                                    to use: RAW, FARF (default), final
+ *                                    Print ignored HIST files
+ *              04/08/04    1.7  bjg  Remove unused function get_xy_columns
+ *                                    Use cf_verbose instead of printf
+ *              04/27/04    1.8  bjg  Added lower and upper limits option
+ *                                    for PHA 
+ *                                    Change author name of gainfile
+ *              08/26/04    1.9  bjg  In force mode, issue a warning 
+ *                                    if file already included. 
+ *              03/02/05    1.10 wvd  Use FLOAT_IMG to insure that output
+ *					images are written as floats.
+ *              03/02/05    1.11 wvd  Don't write AUTHOR keyword to header.
+ *              04/11/05    1.12 wvd  Force detector string to be upper case.
+ *					Add -t option, which prevents creation
+ *					of detector image for PHA=31.  It's
+ *					required if you don't bin the data.
+ *              06/03/05    1.13 wvd  Include ctype.h
+ *              09/09/05    1.14 wvd  Update list of allowed options.
+ *              08/24/07    1.15 bot  Changed nx and ny to long and called
+ *				      as TLONG ; changed binx and biny to int
+ *				      and called as TINT.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+#define ROOT_LENGTH 13
+#define MAXCHARS 120
+#define MASTER_CAL_FILE "master_calib_file.dat"
+#define IMAGE_EXT 1
+#define INDEX_EXT 34
+
+static char CF_PRGM_ID[] = "cf_gainmap";
+static char CF_VER_NUM[] = "1.15";
+
+
+static int
+new_gainfile(char *newfile, char *detector, float effmjd, int binx, int biny, int truncate)
+{
+    char  date[FLEN_CARD]={'\0'};
+    char  *ttype[] = {"ROOTNAME", "OBSDATE", "COUNTS", "EXPTIME", "ADDDATE", "SCALE", "PHAMIN", "PHAMAX"};
+    char  *tform[] = {"13A",      "19A",     "1D",     "1E",      "19A",     "1E",     "1I",    "1I"};
+    char  *tunit[] = {" ",        " ",       "counts", "seconds", " ",       " ",      " ",     " "};
+    int   naxis=2, status=0, version=1, tref=0, tfields=8, phaext;
+    long  axis[2], naxis2=0;
+    float exptime=0.;
+    double ncounts=0.;
+    fitsfile *gainfits;
+
+    cf_verbose(3, "Entering subroutine new_gainfile");
+    cf_verbose(3, "Creating file %s", newfile);
+
+    FITS_create_file(&gainfits, newfile, &status);
+
+    FITS_create_img(gainfits, 8, 0, NULL, &status);
+    FITS_write_key(gainfits, TSTRING, "CALFTYPE", "GAIN",
+		   "Calibration file type", &status);
+    FITS_write_key(gainfits, TINT,    "CALFVERS", &version,
+		   "Calibration file version", &status);
+    FITS_write_key(gainfits, TSTRING, "DETECTOR", detector,
+		   "detector (1A, 1B, 2A, 2B)", &status);
+    FITS_write_key(gainfits, TFLOAT,  "EFFMJD",   &effmjd,
+		   "Date on which file should be applied (MJD)", &status);
+    fits_get_system_time(date, &tref, &status);
+    FITS_write_key(gainfits, TSTRING, "DATE",     date,
+		   "file creation date (YYYY-MM-DDThh:mm:ss UTC)", &status);
+    FITS_write_key(gainfits, TDOUBLE, "NEVENTS",  &ncounts,
+		   "Accumulated weighted events", &status);
+    FITS_write_key(gainfits, TFLOAT,  "EXPTIME",  &exptime,
+		   "Accumulated exposure time", &status);
+
+    axis[0] = NXMAX/binx;
+    axis[1] = NYMAX/biny;
+    for (phaext=0; phaext<32-truncate; phaext++) {
+	
+	cf_verbose(3, "Creating extension %d", phaext);
+	FITS_create_img(gainfits, FLOAT_IMG, naxis, axis, &status);
+	FITS_write_key(gainfits, TINT,    "PHA",         &phaext,
+		       "PHA value of image", &status);
+	FITS_write_key(gainfits, TINT,    "SPECBINX",    &binx,
+		       "Binsize in detector X coordinate", &status);
+	FITS_write_key(gainfits, TINT,    "SPECBINY",    &biny,
+		       "Binsize in detector Y coordinate", &status);
+
+    }
+
+    cf_verbose(3, "Creating binary table extension");
+    FITS_create_tbl(gainfits, BINARY_TBL, naxis2, tfields, ttype, tform, tunit,
+		    "PROCESSED FILES", &status);
+
+    cf_verbose(3, "Closing file %s", newfile);
+    FITS_close_file(gainfits, &status);
+    cf_verbose(3, "Exiting new_gainfile");
+    return status;
+}
+
+static int
+_check_index(fitsfile *gainfits, char *rootname, float *scale, int *phamin,
+	int *phamax, int truncate)
+{
+    int   status=0, anynull=0, hdutype;
+    float *scal; 
+    int *phami, *phama;
+    long  j, nrows, frow=1, felem=1;
+    char  **filename, strnull[] = "          ";
+
+    FITS_movabs_hdu(gainfits, INDEX_EXT-truncate, &hdutype, &status);
+    FITS_read_key(gainfits, TLONG, "NAXIS2", &nrows, NULL, &status);
+
+    filename = (char **) cf_malloc(nrows * sizeof(char *));
+    filename[0] = (char *) cf_malloc(nrows*(ROOT_LENGTH+1)*sizeof(char));
+    scal = (float *) cf_malloc(nrows * sizeof(float));
+    phami = (int *) cf_malloc(nrows * sizeof(int));
+    phama = (int *) cf_malloc(nrows * sizeof(int));
+    for (j=1; j= 0) && (x < nx*binx) && (y >= 0) && (y < ny*biny)) {
+		    image[(y/biny)*nx + (x/binx)] += weight[j]*scale;
+		    ncounts += weight[j]*scale;
+		}
+	    }
+	}
+	FITS_write_img(gainfits, TFLOAT, 1, nx*ny, image, &status);
+	free(image);
+    }
+
+    free(weight);
+    free(pha);
+    free(ypos);
+    free(xpos);
+    return ncounts;
+}
+
+static double
+subtract_events(fitsfile *infits, char *xcolumn, char *ycolumn, 
+		float scale, int phamin, int phamax, fitsfile *gainfits)
+{
+    char   *pha;
+    long   nx, ny;
+    int    phaext, status=0, hdutype, anynull=0, binx, biny;
+    long   nevents, j;
+    float  *xpos, *ypos, *weight, *image;
+    double ncounts=0.;
+
+    FITS_movabs_hdu(infits, 2, &hdutype, &status);
+    nevents = cf_read_col(infits, TFLOAT, xcolumn,  (void **) &xpos);
+    nevents = cf_read_col(infits, TFLOAT, ycolumn,  (void **) &ypos);
+    nevents = cf_read_col(infits, TBYTE, "PHA",    (void **) &pha);
+    nevents = cf_read_col(infits, TFLOAT, "WEIGHT", (void **) &weight);
+
+    for (phaext=phamin; phaext<=phamax; phaext++) {
+	FITS_movabs_hdu(gainfits, phaext+2, &hdutype, &status);
+	FITS_read_key(gainfits, TLONG, "NAXIS1", &nx, NULL, &status);
+	FITS_read_key(gainfits, TLONG, "NAXIS2", &ny, NULL, &status);
+	FITS_read_key(gainfits, TINT, "SPECBINX", &binx, NULL, &status);
+	FITS_read_key(gainfits, TINT, "SPECBINY", &biny, NULL, &status);
+
+	image = (float *) cf_malloc(sizeof(float) * nx*ny);
+	FITS_read_img(gainfits, TFLOAT, 1, nx*ny, NULL, image,
+		      &anynull, &status);
+
+	for (j=0; j=0) && (x < nx*binx) && (y >= 0) && (y < ny*biny)) {
+		    image[(y/biny)*nx + (x/binx)] -= weight[j]*scale;
+		    ncounts += weight[j]*scale;
+		}
+	    }
+	}
+	FITS_write_img(gainfits, TFLOAT, 1, nx*ny, image, &status);
+	free(image);
+    }
+
+    free(weight);
+    free(pha);
+    free(ypos);
+    free(xpos);
+    return ncounts;
+}
+
+
+int main(int argc, char *argv[])
+{
+    char  *newfile = NULL, *detector = NULL, buffer[FLEN_CARD]={'\0'}, instmode[FLEN_CARD]={'\0'};
+    int   subtract=0, force=0, newbinx=8, newbiny=4, status=0, optc;
+    int   truncate=0;
+    float effmjd = 0.,scale=1., old_scale;
+    int phamin=0, phamax=31; 
+    int old_phamin, old_phamax;
+
+    char   xcolumn[FLEN_CARD]={'\0'}, ycolumn[FLEN_CARD]={'\0'};
+
+    char opts[] = "hv:fsrtcn:d:j:w:x:y:l:u:";
+    char usage[] = 
+	"Usage:\n"
+	"  cf_gainmap [-hfsrtc] [-v level] [-n filename] [-d segment]\n"
+	"    [-w scale] [-j effmjd] [-x xbin] [-y ybin] \n"
+        "    [-l phamin] [-u phamax] idffiles\n";
+    char option[] =
+	"Options:\n"
+	"  -h:  this help message\n"
+        "  -v:  verbosity level (=1; 0 is silent)\n"
+	"  -f:  force the files\n"
+	"  -s:  subtract files\n"
+	"  -n:  gain map file\n"
+	"  -d:  gain map segment (no default for new file)\n"
+        "  -j:  effective MJD (=0.0)\n"
+        "  -w:  weighting factor for image (=1.0)\n"
+	"  -x:  X-bin size (=8)\n"
+	"  -y:  Y-bin size (=4)\n"
+        "  -r:  use raw XY coordinates instead of farf\n"
+        "  -t:  truncate map at PHA = 30\n"
+        "  -c:  use final XY coordinates instead of farf\n"
+        "  -l:  lower limit for pha (=0) \n"
+        "  -u:  upper limit for pha (=31) \n";
+
+    verbose_level = 1;
+
+    strcpy(xcolumn, "XFARF");
+    strcpy(ycolumn, "YFARF");
+
+   
+
+    /* Check number of options and arguments */
+    while ((optc = getopt(argc, argv, opts)) != -1) {
+	switch(optc) {
+	    
+	case 'h':
+	    printf("%s\n%s", usage, option);
+	    return 0;
+	case 'v':
+	    verbose_level = atoi(optarg);
+	    break;
+	case 'f':
+	    force = 1;
+	    break;
+	case 's':
+	    subtract = 1;
+	    break;
+	case 'n':
+	    newfile = optarg;
+	    break;
+	case 'd':
+	    detector = optarg;
+	    break;
+	case 'j':
+	    effmjd = atof(optarg);
+	    break;
+	case 'w':
+	    scale = atof(optarg);
+	    break;
+	case 'x':
+	    newbinx = atoi(optarg);
+	    break;
+	case 'y':
+	    newbiny = atoi(optarg);
+	    break;
+	case 'r':
+	    strcpy(xcolumn, "XRAW");
+	    strcpy(ycolumn, "YRAW");
+	    break;
+	case 't':
+	    truncate = 1;
+	    break;
+	case 'c':
+	    strcpy(xcolumn, "X");
+	    strcpy(ycolumn, "Y");
+	    break;
+	case 'l':
+	    phamin = atoi(optarg);
+	    break;
+	case 'u':
+	    phamax = atoi(optarg);
+	    break;
+	}
+    }
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    if (argc <= optind)
+        cf_if_error("%s\nIncorrect number of program arguments", usage);
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin processing");
+    
+    while (optind < argc) {
+
+	char   gainfile[FLEN_CARD], rootname[FLEN_CARD]={'\0'};
+	char   segment[FLEN_CARD] = {'\0'};
+	int    hdutype;
+	FILE   *fptr;
+	fitsfile *infits, *gainfits;
+
+	FITS_open_file(&infits, argv[optind], READONLY, &status);
+	FITS_movabs_hdu(infits, 1, &hdutype, &status);
+
+	FITS_read_key(infits, TSTRING, "INSTMODE", instmode, NULL,
+			  &status);
+
+	if (strncmp(instmode,"TTAG",4)){
+	  FITS_close_file(infits, &status);
+	  cf_verbose(1,"Skipped HIST file: %s\n",argv[optind]);
+	  optind ++;
+	  continue;
+	}
+
+	if (newfile) {
+	    cf_verbose(3, "newfile is TRUE");
+	    strcpy(gainfile, newfile);
+
+	    if ((fptr = fopen(gainfile, "r")))
+		fclose(fptr);
+	    else {
+		if (!detector)
+		    cf_if_error("No detector segment specified: "
+				"1A, 1B, 2A, 2B");
+		detector[1] = toupper(detector[1]);
+		status = new_gainfile(gainfile, detector, effmjd,
+				      newbinx, newbiny, truncate);
+	    }
+	    FITS_open_file(&gainfits, gainfile, READWRITE, &status);
+	    FITS_movabs_hdu(gainfits, 1, &hdutype, &status);
+	    detector = buffer;
+	    FITS_read_key(gainfits, TSTRING, "DETECTOR", detector, NULL,
+			  &status);
+	} else {
+	    cf_verbose(3, "newfile is FALSE");
+	    FITS_read_key(infits, TSTRING, "GAIN_MAP", gainfile, NULL,
+			  &status);
+	    detector = buffer;
+	    FITS_read_key(infits, TSTRING, "DETECTOR", detector, NULL,
+			  &status);
+
+	    if ((fptr = fopen(cf_hist_file(gainfile), "r"))) {
+		fclose(fptr);
+	    } else {
+		char  keyword[FLEN_CARD]={'\0'}, segment[FLEN_CARD]={'\n'};
+		char  linin[MAXCHARS]={'\0'}, filename[FLEN_CARD]={'\0'};
+		int   interp;
+		float aftermjd;
+		FILE  *master;
+		/*
+		 * Get the effective MJD from the master calibration file
+		 */
+		master = fopen(cf_parm_file(MASTER_CAL_FILE), "r");
+		if (master == NULL)
+		    cf_if_error("Master calibration database file not found");
+		while (fgets(linin, MAXCHARS, master) != NULL) {
+		    /*
+		     * Check for comment lines
+		     */
+		    if ((linin[0] != '#') && (linin[0] != '\n')) {
+			sscanf(linin, "%4c%*2c%2c%*2c%13c%*2c%9f%*2c%1d",
+			       keyword, segment, filename, &aftermjd, &interp);
+			if (strcmp(filename, gainfile) == 0) {
+			    effmjd = aftermjd;
+			    break;
+			}
+		    }
+		}
+		fclose(master);
+
+		status = new_gainfile(cf_hist_file(gainfile), detector,
+				      effmjd, newbinx, newbiny, truncate);
+	    }
+	    FITS_open_file(&gainfits, cf_hist_file(gainfile), READWRITE,
+			   &status);
+	}
+
+	strncpy(rootname, argv[optind], ROOT_LENGTH);
+	FITS_read_key(infits, TSTRING,  "DETECTOR", segment, NULL, &status);
+	if (strcmp(detector, segment) != 0) {
+	    cf_if_warning("%s segment is not the same as %s",
+			  argv[optind], gainfile);
+	}
+	else if (subtract) {
+	    int  index;
+	    if ((index = _check_index(gainfits, rootname, &scale, &phamin,
+		&phamax, truncate))) {
+		
+		int    hdutype;
+		float  exptime=0., acctime=0.;
+		double ncounts=0, accevnt=0;
+
+		FITS_read_key(infits, TFLOAT,  "EXPTIME", &exptime, NULL,
+			      &status);
+
+		
+		ncounts = subtract_events(infits, xcolumn, ycolumn, scale, phamin,
+			phamax-truncate, gainfits);
+
+		FITS_movabs_hdu(gainfits, IMAGE_EXT, &hdutype, &status);
+		FITS_read_key(gainfits, TDOUBLE, "NEVENTS",  &accevnt,
+			      NULL, &status);
+		FITS_read_key(gainfits, TFLOAT, "EXPTIME", &acctime,
+			      NULL, &status);
+		accevnt -= ncounts;
+		acctime -= exptime;
+		FITS_update_key(gainfits, TDOUBLE,  "NEVENTS", &accevnt,
+				NULL, &status);
+		FITS_update_key(gainfits, TFLOAT, "EXPTIME", &acctime,
+				NULL, &status);
+
+		FITS_movabs_hdu(gainfits, INDEX_EXT-truncate, &hdutype, &status);
+		FITS_delete_rows(gainfits, index, 1, &status);
+		cf_verbose(1, "%s is subtracted from %s",
+			   argv[optind], gainfile);
+	    } else {
+		cf_if_warning("%s is not in %s.", argv[optind], gainfile);
+	    }
+	} else {
+	    cf_verbose(3, "Adding new data file.");
+	    if (!force && _check_index(gainfits, rootname, &old_scale, 
+		&old_phamin, &old_phamax, truncate)) {
+		cf_if_warning("%s is already in %s with scale = %f, "
+		"phamin = %d, phamax=%d.",
+		argv[optind], gainfile, old_scale, old_phamin, old_phamax);
+	    } else {
+		char   obsdate[FLEN_CARD]={'\0'}, dateobs[FLEN_CARD]={'\0'};
+		char   timeobs[FLEN_CARD]={'\0'};
+		
+		float  exptime=0., acctime=0.;
+		double ncounts=0, accevnt=0;
+
+		FITS_read_key(infits, TSTRING, "DATEOBS", dateobs, NULL,
+			      &status);
+		FITS_read_key(infits, TSTRING, "TIMEOBS", timeobs, NULL,
+			      &status);
+		obsdate[0] = '\0';
+		sprintf(obsdate, "%s%s%s", dateobs, "T", timeobs);
+		FITS_read_key(infits, TFLOAT,  "EXPTIME", &exptime, NULL,
+			      &status);
+
+		if ((force) && _check_index(gainfits, rootname, &old_scale,
+		   &old_phamin, &old_phamax, truncate)) 
+		   cf_if_warning("FORCE MODE - %s is already in %s with scale = %f, "
+			"phamin = %d, phamax=%d.",
+			argv[optind], gainfile, old_scale, old_phamin, old_phamax);
+		
+		ncounts = add_events(infits, xcolumn, ycolumn, scale, phamin,
+			phamax-truncate, gainfits);
+
+		FITS_movabs_hdu(gainfits, IMAGE_EXT, &hdutype, &status);
+		FITS_read_key(gainfits, TDOUBLE, "NEVENTS",  &accevnt,
+			      NULL, &status);
+		FITS_read_key(gainfits, TFLOAT, "EXPTIME", &acctime,
+			      NULL, &status);
+		accevnt += ncounts;
+		acctime += exptime;
+		FITS_update_key(gainfits, TDOUBLE,  "NEVENTS", &accevnt,
+				NULL, &status);
+		FITS_update_key(gainfits, TFLOAT, "EXPTIME", &acctime,
+				NULL, &status);
+
+		status = _update_index(gainfits, rootname, obsdate, ncounts,
+				       exptime, scale, phamin, phamax, truncate);
+		cf_verbose(1, "%s is added to %s", argv[optind], gainfile);
+	    }
+	}
+	FITS_close_file(gainfits, &status);
+	FITS_close_file(infits, &status);
+	optind ++;
+    }
+    
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing");
+    return 0;
+}
diff --git a/src/fuv/cf_hist_init.c b/src/fuv/cf_hist_init.c
new file mode 100644
index 0000000..5829707
--- /dev/null
+++ b/src/fuv/cf_hist_init.c
@@ -0,0 +1,653 @@
+/*****************************************************************************
+ *	        Johns Hopkins University
+ *	        Center For Astrophysical Sciences 
+ *	        FUSE
+ *****************************************************************************
+ *
+ * Synopsis:	cf_hist_init input_file output_file 
+ *
+ * Description: Reads a raw hist file and generates a list of the pixels
+ *              that contain counts. This list has the same format 
+ *              as a TTAG list, so analysis can be carried out using
+ *		many of the modules in the TTAG pipeline.
+ *
+ *              The output file will have the same format as a TTAG 
+ *              file, with the following definitions:
+ *
+ *              TIME            FLOAT   all equal to the midpoint of the exp.
+ *              XRAW            INT     raw x position 
+ *              YRAW            INT     raw y position (midpoint of 8 pixel bin)
+ *              PHA             BYTE    all 20 - indicating a good point
+ *              WEIGHT          FLOAT   number of photons falling in that bin
+ *              XFARF           FLOAT   x position in geometrically
+ *                                      corrected frame
+ *              YFARF           FLOAT   y position in geometrically
+ *                                      corrected frame
+ *              X               FLOAT   final x position (after correcting
+ *                                      for motions)
+ *              Y               FLOAT   final y position (after correcting
+ *                                      for motions)
+ *              CHANNEL         CHAR    aperture ID for the photon
+ *              TIMEFLGS        CHAR    temporal flags - various bits set 
+ *              LOC_FLGS        CHAR    location flags - various bits set 
+ *              LAMBDA          FLOAT   wavelength for each photon
+ *		ERGCM2		FLOAT	flux calibration for each photon
+ *
+ *              This routine calls cf_fuv_init to populate the calibration
+ *              entries in the header.
+ *
+ *              In addition, the routine creates a timeline table containing
+ *              the orbital information, count rates, and high-voltage
+ *              information to be used by later pipeline modules.
+ * 
+ *
+ * Returns:	Zero upon successful completion.
+ *
+ * History:	05/09/03   v1.1   rdr	Adapted from cf_ttag_init
+ *		06/04/03   v1.4   wvd	Add call to cf_proc_check
+ *              06/10/03   v1.5   rdr   Scan for hot pixels and remove 
+ *		06/11/03   v1.6   wvd	Compress data with TSCALE and TZERO
+ *		06/11/03   v1.7   wvd	Changed calfusettag.h to calfuse.h
+ *		07/17/03   v1.8   wvd   Move various subroutines to libcf.
+ *		07/22/03   v1.9   wvd   Read all extensions of raw hist file.
+ *					Test for hot pixels only in active
+ *					region and only if img[j]>15.
+ *		07/28/03   v1.10  wvd   Close ELEC_CAL.
+ *		10/26/03   v1.11  wvd   Increase morekeys to 38.
+ *		11/05/03   v1.12  wvd   Added stdlib.h and unistd.h.
+ *              12/05/03          bjg   Modified cf_make_pixel_list
+ *                                      to unbin data in y.
+ *              12/10/03   v1.13  bjg   Unbin is now optional 
+ *                                      Update keyword SPECBINY
+ *              03/03/04   v1.14  rdr   Exit if no photons found
+ *              03/05/04   v1.15  rdr   Warning if data is missing
+ *              03/09/04   v1.16  rdr   Fix error in correcting hot pixels
+ *              03/26/04   v1.17  rdr   Continue when there is no data
+ *              03/30/04   v1.20  wvd   Clean up i/o.
+ *              03/31/04   v1.21  bjg   functions return EXIT_SUCCESS instead
+ *                                      of zero. 
+ *                                      >>>Include math.h for fmod<<<
+ *                                      Type conversion for
+ *                                      double fmod(double, double)
+ *              04/06/04   v1.22  bjg   Remove unused variables
+ *                                      Change format to match arg type
+ *                                      in printf
+ *                                      Remove static keyword in struct key 
+ *                                      definition
+ *                                      Add braces in TSCAL and TZERO
+ *                                      definitions
+ *                                      Test for fill data
+ *              10/15/04   v1.23  bjg   Fill Data Photon gets flag
+ *                                      LOCATION_FILL only if it is
+ *                                      in Active Aperture
+ *              12/24/2004 v1.24  bjg   npix_max now takes binx and biny into
+ *                                      account
+ *		01/24/2005 v1.25  wvd   Modify cf_make_pixel_list to ignore
+ *					duplicate data, which can sneak in
+ *					with the stim pulses.
+ *		02/11/2005 v1.26  wvd   Hot pixels and fill data cause the
+ *					header keyword NEVENTS to be too 
+ *					large, so we correct/exclude these
+ *					points and update NEVENTS.
+ *		03/10/2005 v1.27  wvd   Move flagging of airglow photons to
+ *					cf_screen_airglow.
+ *					Initialize XFARF and YFARF with zero.
+ *		05/20/2005 v1.28  wvd   Clean up i/o.
+ *		05/31/2006 v1.29  wvd   OPUS has been updated, so we can set
+ *					morekeys to 0.
+ *		06/12/2006 v1.30  wvd   Call cf_verbose rather than 
+ *					cf_if_warning when an extension 
+ *					contains no photons.
+ *		02/23/2007 v1.31  wvd   If a raw hist file contains no 
+ *					extensions, set EXP_STAT to -1.
+ *					Make active-area limits inclusive.
+ *		11/07/2008 v1.32  wvd   Clean up i/o. 
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include 
+
+#include "calfuse.h" 
+
+struct key {
+        char keyword[FLEN_KEYWORD];
+        float value;
+        };
+
+
+/*****************************************************************************/
+
+static int
+cf_make_pixel_list(fitsfile *infits, fitsfile *outfits, char unbin) {
+
+/*****************************************************************************
+ *
+ * Description: procedure to take input data from the raw HIST data file and 
+ *              generate a table with 14 columns. This table lists
+ *              all pixels that contain counts. The
+ *              table is designed to mimic a TTAG list, so that it can be used
+ *              with various modules in the TTAG pipeline
+ *
+ ****************************************************************************/
+
+    fitsfile *elecfits; 
+    char  fmt_byte[FLEN_CARD], fmt_float[FLEN_CARD], fmt_short[FLEN_CARD];
+    char  *inpha, *dumarrb;
+    char  elecfile[FLEN_CARD];
+    char  keyword[FLEN_CARD], card[FLEN_CARD];
+    unsigned char *dumarrbu ;
+    int   status=0, anynull=0, hdutype;
+    int	  colval;
+    int   tfields = 14;      /*  output table will have 14 columns */
+    int   active_l, active_r ;
+    long  i, j, k, nevents, nfdp;
+    long  frow=1, felem=1, nrows=1; /* output table will have 1 row */
+    float sum_weights;
+    float *intime, *dumarrf;
+
+    int   sia_index[512], sia_temp[512];  /* Indices of SIA rectangles */
+    int   sia_width = 2048, sia_height = 16;  /* Dimensions of SIA recs */
+    int   xx, yy;		/* Pixel coordinates (unbinned) */
+
+    int x0, y0, xstart, ystart ;
+    int nx, ny, yndx, binx, biny ;
+    int nhot, nhot_total=0;
+    short *xpix, *ypix, *img, *fill_data_pix, nmask, nullval;
+    long npix, npix_max, npts ;
+    float *wtpix, exptime, mtime, nave;
+    
+
+    char extname[]="TTAG DATA";   /* name of the extension containing 
+                                        the binary table holding the data */
+
+    char *ttype[]={"TIME", "XRAW", "YRAW", "PHA", "WEIGHT", "XFARF", 
+		   "YFARF",  "X", "Y", "CHANNEL", "TIMEFLGS",
+		   "LOC_FLGS", "LAMBDA", "ERGCM2" };
+
+    char *tform[14];  /* will asign values when we find out 
+                         the number of elements in the data set */
+
+
+    char *tunit[]={"SECONDS", "PIXELS", "PIXELS", " ", " ", "PIXELS",
+		   "PIXELS", "PIXELS", "PIXELS", "UNITLESS",
+		   "UNITLESS", "UNITLESS", "ANGSTROMS","ERG CM^-2"};
+
+    struct key tscal[] = {{"TSCAL6", 0.25},  {"TSCAL7", 0.1},
+                          {"TSCAL8", 0.25},  {"TSCAL9", 0.1}};
+    struct key tzero[] = {{"TZERO6", 8192.}, {"TZERO7", 0.},
+                          {"TZERO8", 8192.}, {"TZERO9", 0.}};
+
+    /* Initialize the sia_index array. */
+    (void) memset((void *)sia_index, 0, sizeof(int)*512);
+ 
+    /*********************************************************************
+             Read information to be used in the screening analysis.
+    **********************************************************************/
+
+    /* Read the limits to the active area of the detector */
+    FITS_read_key(outfits, TSTRING, "ELEC_CAL", elecfile, NULL, &status);
+    FITS_open_file(&elecfits, cf_cal_file(elecfile), READONLY, &status);
+    FITS_read_key(elecfits, TINT, "ACTIVE_L", &active_l, NULL,
+		  &status);
+    FITS_read_key(elecfits, TINT, "ACTIVE_R", &active_r, NULL,
+		  &status);
+    FITS_close_file(elecfits, &status);
+    cf_verbose(3, "Limits to the active area: left=%d, right=%d",
+	   active_l, active_r);
+
+    /* Determine the exposure time */
+    FITS_movabs_hdu(infits, 1, &hdutype, &status);
+    FITS_read_key(infits, TFLOAT, "EXPTIME", &exptime, NULL, &status);
+    cf_verbose(3, "exptime = %d ", cf_nint(exptime)) ;
+
+    /* Determine the binning factors in x and y */
+    FITS_read_key(infits, TINT, "SPECBINX", &binx, NULL, &status);
+    FITS_read_key(infits, TINT, "SPECBINY", &biny, NULL, &status);
+    cf_verbose(3, "binx=%d, biny=%d \n", binx, biny) ;
+
+
+   /***********************************************************************
+              Get information from the raw data file.
+   ************************************************************************/
+
+    /* Set up arrays to contain the positions of each pixel with counts 
+        (xpix and ypix) and the number of counts in that pixel (wtpix) */
+	if (unbin) npix_max = (NXMAX * NYMAX) / binx ;
+	else npix_max = (NXMAX * NYMAX) / (binx * biny) ;
+        npix = -1 ;
+        xpix =  (short *) cf_calloc(npix_max, sizeof(short)) ;
+        ypix =  (short *) cf_calloc(npix_max, sizeof(short)) ;
+        wtpix = (float *) cf_calloc(npix_max, sizeof(float)) ;
+	fill_data_pix = (short *) cf_calloc(npix_max, sizeof(short)) ;
+         
+    /*
+     *  Loop over all extensions in the input file, and place contents
+     *  of each extension into outbuff.  Keep trying to read a new HDU
+     *  in the input file until we hit the EOF.
+     *
+     *  Note that the next line cannot use FITS_movrel_hdu because
+     *  that routine automatically exits upon error.
+     */
+    for (i = 1; !(fits_movrel_hdu(infits, 1, &hdutype, &status)); i++) {
+        FITS_read_key(infits, TINT, "NAXIS1",  &nx, NULL, &status);
+        FITS_read_key(infits, TINT, "NAXIS2",  &ny, NULL, &status);
+        FITS_read_key(infits, TINT, "XORIGIN", &x0, NULL, &status);
+        FITS_read_key(infits, TINT, "YORIGIN", &y0, NULL, &status);
+
+	npts = nx * ny ;
+        cf_verbose(3, "Reading extension %d ", i) ;
+        cf_verbose(3, "nx=%d, ny=%d, npts=%d ", nx, ny, npts) ;
+
+	/* Initialize the sia_temp array */
+	(void) memset((void *)sia_temp, 0, sizeof(int)*512);
+ 
+        /*
+         *  Allocate space for and read the input image
+         */
+        img = cf_malloc(sizeof(short) * npts);
+        FITS_read_img(infits, TSHORT, 1L, npts, &nullval,
+                      img, &anynull, &status);
+
+	/* Specify the starting positions in x and y.
+	    Place the point in the middle of the bin */
+	xstart = x0 * binx + binx / 2;
+        ystart = y0 * biny + biny / 2;
+	cf_verbose(3, "x0=%d, y0=%d, xstart=%d, ystart=%d",
+		x0, y0, xstart, ystart) ;
+      
+	/* Go through the image and tabulate the pixels with counts. */
+	nhot=0 ;
+        for (j=0; j 0) {
+
+	    /* If this pixel falls in an SIA rectangle that has already
+		been written to the output data list, skip it and move to
+		the next SIA rectangle. */
+
+		xx = (x0 + (j % nx)) * binx;
+		yy = (y0 + (j / nx)) * biny;
+		k = xx / sia_width + yy / sia_height * 8;
+		if (k < 0 || k >= 512) continue;
+		if (sia_index[k] == 1) {
+			j += sia_width / binx - 1;
+			continue;
+		}
+		sia_temp[k] = 1;
+
+	    /* Check for a hot pixel by comparing the value in the pixel with
+               those on either side.  Ignore pixels outside of detector active
+               area or with fewer than 16 counts. */
+
+            if ((img[j] > 15) && (img[j] != FILL_DATA) && 
+		(xx >= active_l) && (xx <= active_r)) {
+                nave = (img[j-2] + img[j-1] + img[j+1] + img[j+2]) / 4. ;
+		  if (nave > 32000.) nave=32000. ;
+                  if (nave < 1.) nave=1. ;
+	        if (img[j] > 8*nave) {
+		  nhot++ ;
+		  cf_verbose(3,"hot pixel at point %d: val=%d, ave=%f", 
+                       j, img[j], nave) ;
+		  /* Repair hot pixel */
+                  nmask=1 ;
+		  while(nmask < 8*nave && nmask < 16000) nmask*=2 ; 
+		  nmask-=1 ;
+		  img[j] = (img[j] & nmask) ;
+                  cf_verbose(3,"corrected value = %d ",img[j]) ;
+		}
+	    }
+
+	    yndx = (int) ( j / nx ) ;
+
+            if (unbin){
+	      for (k=0;k 10) cf_if_warning("More than 10 hot pixels found.") ;
+
+        free(img) ;
+
+	/* Copy new SIA indices to sia_index array. */
+	for (k = 0; k < 512; k++)
+		if (sia_temp[k]) sia_index[k] = 1;
+
+    }  /* Finished loop over all extensions in infits */
+    /*
+     *  Status upon completion of loop through extensions should be
+     *  "end of file."
+     *  If it is, reset value of status.  If not, there was an
+     *  unexpected error.  Print and exit.
+     */
+    if( status == END_OF_FILE ) {  /* !!! This might cause a problem */
+        status = 0;
+    } else  {
+        cf_if_fits_error(status);
+    }
+
+    cf_verbose(3, "Finished reading data ") ;
+
+    if (npix < 0) {
+	npix = 1 ;
+        xpix[0]=0 ;
+        ypix[0]=0 ;
+        wtpix[0]=1. ;
+	fill_data_pix[0]=0;
+    }
+
+   /*************************************************************************
+           Output the analysis to a table
+   ***************************************************************************/  
+
+    /* Generate the tform array */
+    sprintf(fmt_byte,  "%ldB", npix);
+    sprintf(fmt_float, "%ldE", npix);
+    sprintf(fmt_short, "%ldI", npix);
+
+    tform[0] = fmt_float;
+    tform[1] = fmt_short;
+    tform[2] = fmt_short;
+    tform[3] = fmt_byte;
+    tform[4] = fmt_float;
+    for (i=5; i<9; i++)
+        tform[i] = fmt_short;
+    for ( ; i<12; i++)
+        tform[i] = fmt_byte;
+    tform[12] = fmt_float;
+    tform[13] = fmt_float;
+
+   /* Append a new empty binary table to the output file */
+
+    cf_verbose(3, "Creating table") ;
+    FITS_movabs_hdu(outfits, 1, &hdutype, &status);
+    FITS_create_tbl(outfits, BINARY_TBL, nrows, tfields, ttype, tform,
+                        tunit, extname, &status);
+
+    /* Write TSCALE and TZERO entries to header */
+    for (i=0; i<4; i++) {
+        sprintf(keyword, "TUNIT%ld", i+6);
+        if (fits_read_keyword(outfits, keyword, card, NULL, &status))
+		cf_if_fits_error(status);
+        FITS_insert_key_flt(outfits, tscal[i].keyword, tscal[i].value, -2,
+		NULL, &status);
+        FITS_insert_key_flt(outfits, tzero[i].keyword, tzero[i].value, -4,
+		NULL, &status);
+    }
+   
+    /*   Allocate space for the new output columns */
+  
+    cf_verbose(3, "Allocating space for arrays ") ;
+    dumarrf  = (float *) cf_malloc(sizeof(float) * npix);
+    dumarrb  = (char *) cf_malloc(sizeof(char) * npix);
+    dumarrbu  = (unsigned char *) cf_malloc(sizeof(unsigned char) * npix);
+ 
+    cf_verbose(3, "Filling columns") ;  
+    /* Specify a time array - assign the same time to all pixels */
+    intime = (float *) cf_calloc(npix, sizeof(float) ) ;
+    mtime = exptime/2. ;
+    for (i=0; i active_r) 
+	    dumarrbu[i] = dumarrbu[i] | LOCATION_SHLD ;
+
+	/* If inside, is it fill data? */
+	else if (fill_data_pix[i])
+	    dumarrbu[i] = dumarrbu[i] | LOCATION_FILL ; 
+    }
+
+    FITS_movabs_hdu(outfits, 2, &hdutype, &status);
+    FITS_write_col(outfits, TBYTE, 12, frow, felem, npix,
+		       dumarrbu, &status);
+
+    /* Fill lambda and energy arrays with 0 */
+    FITS_write_col(outfits, TFLOAT, 13, frow, felem, npix, dumarrf, &status);
+    FITS_write_col(outfits, TFLOAT, 14, frow, felem, npix, dumarrf, &status);
+
+    /* If file contains hot pixels or fill data, recalculate NEVENTS. */
+    nfdp = 0;
+    sum_weights = 0.;
+    for (i=0; i 0 || nhot_total > 0) {
+	nevents = cf_nlong(sum_weights);
+	FITS_movabs_hdu(outfits, 1, &hdutype, &status);
+	FITS_update_key(outfits, TLONG, "NEVENTS", &nevents, NULL, &status);
+	cf_verbose(1, "Image contains bad pixels.  Updating NEVENTS = %ld",
+	nevents);
+    }
+
+    free(intime);
+    free(xpix);
+    free(ypix);
+    free(wtpix) ;
+    free(inpha);
+    free(dumarrf);
+    free(dumarrb);
+
+    cf_verbose(3, "Leaving cf_make_pixel_list") ;
+
+    return EXIT_SUCCESS ;
+}
+
+
+/******************************************************************************
+ *
+ *                   CF_MAKE_GTI_TABLE
+ *
+ *      Procedure to generate a table of GTI values and put it into the second
+ *      extension of the output file. There is assumed to be only one GTI, 
+ *      starting at 0 and ending at the exposure time.
+ *
+ ******************************************************************************/
+
+int cf_make_gti_table (fitsfile *outfits) {
+
+    int status=0, nrows=1, hdutype, frow=1, felem=1  ;
+    float exptime ;
+    double start[1]={0.}, stop[1] ;
+
+    char extname[]="GTI";
+    int tfields=2;	/* output table will have 2 columns */
+    char *ttype[]={"START", "STOP"};
+
+    char *tform[]={"1D","1D"}; 
+    char *tunit[]={"seconds", "seconds"};
+
+    cf_verbose(3, "Entering cf_make_gti_table ") ;
+
+    /* read the exposure time from the output file */
+    FITS_movabs_hdu(outfits, 1, &hdutype, &status);
+    FITS_read_key(outfits, TFLOAT, "EXPTIME", &exptime, NULL, &status);
+    stop[0] = (double) exptime ;
+
+
+    /* Append a new empty binary table to the output file */
+    FITS_movabs_hdu(outfits, 2, &hdutype, &status);
+    FITS_create_tbl(outfits, BINARY_TBL, nrows, tfields, ttype, tform,
+			tunit, extname, &status);
+
+    /* Write the data to the table */
+    FITS_write_col(outfits, TDOUBLE, 1, frow, felem, nrows, start, &status);
+    FITS_write_col(outfits, TDOUBLE, 2, frow, felem, nrows, stop, &status);
+
+    return EXIT_SUCCESS ;
+}
+
+/*****************************************************************************/
+
+
+int main(int argc, char *argv[])
+{
+    char CF_PRGM_ID[] = "cf_hist_init"; 
+    char CF_VER_NUM[] = "1.32";
+
+    fitsfile *infits, *outfits;
+   
+    int   morekeys=0;		/* Change to zero when OPUS is updated. */
+    int   status=0, optc;
+   
+    int one=1, nextn=0;
+    long nphot ;
+    char unbin=0;
+
+    char opts[] = "hsv:";
+    char usage[] =
+	"Usage:\n"
+	"  cf_hist_init [-h] [-s] [-v level] rawhistfile idf_file\n";
+    char option[] = 
+	"Options:\n"
+	"  -h:  this help message\n"
+        "  -s:  to unbin the data in Y\n"
+        "  -v:  verbosity level (default is 1; 0 is silent)\n";
+      
+
+    verbose_level = 1;
+
+    while ((optc = getopt(argc, argv, opts)) != -1) {
+	switch(optc) {
+
+	case 'h':
+	    printf("%s\n%s", usage, option);
+	    return 0;
+	case 's':
+	    unbin=1;
+	    break;
+	case 'v':
+	    verbose_level = atoi(optarg);
+	    break;
+	}
+    }
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    if (argc != optind+2) {
+        printf("%s", usage);
+        cf_if_error("Incorrect number of arguments");
+    }
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin execution");
+
+    FITS_open_file(&infits, argv[optind++], READONLY, &status);
+
+    /*  Exit if data are not in HIST mode. */
+    if ( cf_proc_check(infits, CF_PRGM_ID) ) {
+        FITS_close_file(infits, &status);
+        return (-1);
+    }
+
+    /* Issue warning message if data are missing. */
+    FITS_read_key(infits, TLONG, "NEVENTS", &nphot, NULL, &status); 
+    FITS_read_key(infits, TINT, "NEXTEND", &nextn, NULL, &status); 
+    cf_verbose(3,"Number of extensions to the file = %d ", nextn) ;
+    if (nphot < 1) cf_verbose(1, "%s contains no photons.", argv[optind-1]);
+    if (nextn < 1) cf_if_warning("%s contains no extensions.", argv[optind-1]); 
+    else if (nextn < 4) cf_verbose(1, "%s contains only %d extensions.",
+	argv[optind-1], nextn) ; 
+
+    /*  Create output file. */
+    FITS_create_file(&outfits, argv[optind], &status);
+    /*  Copy primary image header from the input file. */
+    FITS_copy_hdu(infits, outfits, morekeys, &status);
+
+    /* Update header keywords. */
+    FITS_update_key(outfits, TSTRING, "FILENAME", argv[optind], NULL, &status);
+    FITS_update_key(outfits, TSTRING, "FILETYPE",
+                 "INTERMEDIATE DATA FILE", NULL, &status);
+
+    if (unbin) FITS_update_key(outfits, TINT, "SPECBINY", &one, NULL, &status);
+
+    /* If input file contains no extensions, set EXP_STAT to -1. */
+    if (nextn < 1) {
+	char comment[] = "Raw file contains no data.";
+	int eflag = -1; 
+	FITS_update_key(outfits, TINT, "EXP_STAT", &eflag, comment, &status);
+    }
+
+    /* Populate the calibration keywords in the primary header. */
+    cf_fuv_init(outfits);
+
+    /* Fill in the first extension with the photon information */
+    cf_make_pixel_list(infits, outfits, unbin) ;
+
+    /* Generate a good-times table and put it in the second extension. */
+    cf_make_gti_table(outfits);
+  
+    /*  Append a table containing the orbital timeline */
+    cf_timeline(outfits);
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    /*  Update processing flags. */
+    cf_proc_update(outfits, CF_PRGM_ID, "COMPLETE");
+
+    FITS_close_file(infits, &status);
+    FITS_close_file(outfits, &status);
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished execution.");
+
+    return EXIT_SUCCESS ;
+}
diff --git a/src/fuv/cf_remove_motions.c b/src/fuv/cf_remove_motions.c
new file mode 100644
index 0000000..ec2b332
--- /dev/null
+++ b/src/fuv/cf_remove_motions.c
@@ -0,0 +1,316 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences 
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_remove_motions options intermediate_file     
+ *
+ * Description: Associates a photon with an aperture and corrects for grating,
+ *              mirror, spacecraft (jitter) and focal plane assembly (FPA)
+ *              motion.  The position of the Y centroid is also determined
+ *		both as a function of time (before correction for s/c motion)
+ *		and for the entire exposure (after motion correction).
+ *              The resulting coordinates represent the data obtained by a
+ *		motionless instrument. 
+ *
+ *              By default, all corrections are performed.  Command line
+ *              options allow one or more corrections to be omitted.
+ *
+ * Arguments:   input_file              Intermediate data file
+ *
+ * Calibration files:                   
+ *
+ * Returns:     0 on successful completion
+ *
+ * Calls:       cf_find_spectra, cf_calculate_ycent_motion,
+ *              cf_grating_motion, cf_fpa_position, cf_mirror_motion,
+ *              cf_satellite_jitter, cf_calculate_y_centroid
+ *
+ * History:     09/30/02   peb    1.1   Begin work
+ *		12/04/02   wvd    1.5   Install Y centroid routines.
+ *                                      Modify call to cf_satellite_jitter
+ *		12/12/02   wvd    1.6   Change infits -> header throughout
+ *              03/04/03   peb    1.10  Minor code changes to remove gcc -Wall
+ *                                      messages: unused j in main.
+ *                                      Added unistd.h, so getopt is portable
+ *		03/05/03   wvd    1.11  Added cf_target_count_rate
+ *              03/10/03   peb    1.12  Added verbose_level, unistd.h for
+ *                                      getopt portability, and changed
+ *                                      locflags to unsigned char *.
+ *              03/13/03   rdr    1.13  corrected small error in tabulating
+ *                                      count rate_sic
+ *              04/17/03   wvd	  1.17  Add cf_find_spectra for initial
+ *					assignment of photons to
+ *					target apertures.  Add last_call to
+ *					cf_identify_channel, last_call and
+ *					weight to cf_calculate_y_centroid
+ *		04/21/03   wvd    1.18  Pass tsunrise to cf_grating_motion,
+ *					tsunset to cf_mirror_motion,
+ *					channel to cf_satellite_jitter.
+ *		06/02/03   wvd    1.20  Don't modify count-rate arrays
+ *					for HIST data.
+ *		06/11/03   wvd    1.21  Pass datatype to cf_read_col and
+ *					cf_write_col.
+ *		08/01/03   wvd    1.23  Add cf_error_init after calls to
+ *					subroutines.
+ *		08/06/03   wvd    1.24  Change channel to unsigned char.
+ *					Remove GTI's from cf_satellite_jitter.
+ *		08/25/03   wvd    1.25  Change coltype from string to int in
+ *					cf_read_col and cf_write_col.
+ *		09/18/03   wvd    1.26  Pass locflags to cf_identify_channel
+ *		10/21/03   wvd    1.27  For HIST data, don't write blank
+ *					LiF and SiC count-rate arrays to IDF.
+ *		10/27/03   wvd    1.28  Pass pha array to cf_find_spectra.
+ *					Delete last_call from argument list
+ *					of cf_calculate_y_centroid.
+ *		10/31/03   wvd    1.29  Treat channel as unsigned char
+ *					throughout.
+ *              04/06/04   bjg    1.30  Remove unused variables
+ *		05/03/04   wvd    1.31  Improve documentation.
+ *					Move first call of cf_identify_channel
+ *					from cf_find_spectra to this routine.
+ *		06/02/04   wvd    1.32  Copy/move cf_set_photon_flags(),
+ *					cf_set_good_time_intervals(), and
+ *					cf_modify_hist_times() from 
+ *					cf_screen_photons.  Run them only if
+ *					cf_satellite_jitter rejects some time
+ *					AND if they were already run before.
+ *					Pass timeflags to cf_find_spectra()
+ *					and cf_calculate_y_centroid().
+ *					Get exp_jitr from cf_satellite_jitter.
+ *		07/21/04   wvd    1.33  Add include file 
+ *		03/10/05   wvd    1.34  Change use of variable pad.  Now add
+ *					10 to user_pad on first call to 
+ *					cf_identify_channel, 0 on second call.
+ *		03/22/05   wvd    1.35  Change TIME_SUNRISE and TIME_SUNSET
+ *					from floats to shorts.
+ *		05/20/05   wvd    1.36  Clean up i/o.
+ *		09/09/05   wvd    1.37  Add -j to list of allowed options.
+ *		11/29/05   wvd    1.38  Separate cf_satellite_jitter into two
+ *					routines.  Screening is performed 
+ *					earlier, so we need not copy flags.
+ *		08/30/06   wvd    1.39  Add -a to list of allowed options.
+ *		12/29/06   wvd    1.40  Pass weights array and initial LiF
+ *					and SiC counts arrays to 
+ *					cf_target_count_rate.  Make arrays
+ *					rate_lif and rate_sic floats.  If 
+ *					they are too large to store as shorts, 
+ *					store as unsigned shorts.
+ *		02/02/07   wvd    1.41  If LiF or SiC count rate is too large
+ *					for an unsigned int, set to zero.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+static char CF_PRGM_ID[] = "cf_remove_motions";
+static char CF_VER_NUM[] = "1.41";
+
+int
+main(int argc,  char *argv[])
+{
+    unsigned char *channel=NULL, *timeflags=NULL, *locflags=NULL,
+	*statflag=NULL;
+    int  grating_motion=1, fpa_position=1, mirror_motion=1, sat_jitter=1;
+    int  last_call, set_times=FALSE, set_gtis=FALSE, airglow_centroid=FALSE;
+    int  user_pad=0, status=0, set_rate=FALSE, optc;
+    long i, nevents, ntimes;
+    float *time=NULL, *ttime=NULL, *xfarf=NULL, *yfarf=NULL, *x, *y;
+    float *weight=NULL, *ycent_lif, *ycent_sic;
+    float max_rate_lif=0, max_rate_sic=0, *rate_lif=NULL, *rate_sic=NULL;
+    float tscale=1, tzero=32768; 
+    short *tsunrise=NULL, *tsunset=NULL;
+    GTI  gti;
+    fitsfile *header;
+    
+    char opts[]  = "hagfmjp:v:";
+    char usage[] = 
+	"Usage:\n"
+	"  cf_remove_motions [-hagfmj] [-p pad] [-v level] idf_file\n";
+    char option[] =
+	"Options:\n"
+	"  -h:  this help message\n"
+	"  -v:  verbose level (default is 1; 0 is silent)\n"
+	"  -a:  use airglow lines to determine spectral centroid\n"
+	"  -p:  aperture padding in pixels (default is 10)\n"
+	"  -g:  no grating motion correction\n"
+	"  -f:  no fpa position correction\n"
+	"  -m:  no mirror motion correction\n"
+	"  -j:  no satellite jitter correction\n";
+
+    verbose_level = 1;
+
+    while ((optc = getopt(argc, argv, opts)) != -1) {
+	switch(optc) {
+
+	case 'h':
+	    printf("%s\n%s", usage, option);
+	    return 0;
+	case 'v':
+	    verbose_level = atoi(optarg);
+	    break;
+	case 'p':
+	    user_pad = atoi(optarg);
+	    break;
+	case 'g':
+	    grating_motion = 0;
+	    break;
+	case 'f':
+	    fpa_position = 0;
+	    break;
+	case 'a':
+	    airglow_centroid = TRUE;
+	    break;
+	case 'm':
+	    mirror_motion = 0;
+	    break;
+	case 'j':
+	    sat_jitter = 0;
+	    break;
+	}
+    }
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    if (argc <= optind) {
+        printf("%s", usage);
+        cf_if_error("Incorrect number of command-line arguments");
+    }
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    FITS_open_file(&header, argv[optind], READWRITE, &status);
+ 
+    FITS_movabs_hdu(header, 2, NULL, &status);
+    nevents = cf_read_col(header, TFLOAT, "TIME",   (void **) &time);
+    nevents = cf_read_col(header, TFLOAT, "WEIGHT", (void **) &weight);
+    nevents = cf_read_col(header, TFLOAT, "XFARF",  (void **) &xfarf);
+    nevents = cf_read_col(header, TFLOAT, "YFARF",  (void **) &yfarf);
+    nevents = cf_read_col(header, TBYTE,  "TIMEFLGS", (void **) &timeflags);
+    nevents = cf_read_col(header, TBYTE,  "LOC_FLGS", (void **) &locflags);
+    channel = cf_calloc(nevents, sizeof(unsigned char));
+
+    FITS_movabs_hdu(header, 4, NULL, &status) ;
+    ntimes = cf_read_col(header, TFLOAT, "TIME", (void **) &ttime) ;
+    ntimes = cf_read_col(header, TBYTE,  "STATUS_FLAGS", (void **) &statflag);
+    ntimes = cf_read_col(header, TSHORT, "TIME_SUNRISE", (void **) &tsunrise) ;
+    ntimes = cf_read_col(header, TSHORT, "TIME_SUNSET",  (void **) &tsunset) ;
+    ntimes = cf_read_col(header, TFLOAT, "LIF_CNT_RATE",  (void **) &rate_lif) ;
+    ntimes = cf_read_col(header, TFLOAT, "SIC_CNT_RATE",  (void **) &rate_sic) ;
+    ycent_lif=(float *) cf_calloc(ntimes, sizeof(float)) ;
+    ycent_sic=(float *) cf_calloc(ntimes, sizeof(float)) ;
+
+    FITS_movabs_hdu(header, 1, NULL, &status);
+    x = xfarf;
+    y = yfarf;
+
+    /* Find all six spectra and compute centroids. */
+    cf_find_spectra(header, nevents, weight, x, y, channel, timeflags,
+        locflags, airglow_centroid);
+
+    /* Initial assignment of channel numbers to photons */
+    cf_identify_channel(header, nevents, xfarf, yfarf, channel, locflags,
+	user_pad+10, last_call=FALSE);
+
+    /* Track Y centroids of moving spectra. */
+    cf_calculate_ycent_motion(header, nevents, time, y, channel, locflags,
+	ntimes, ttime, ycent_lif, ycent_sic);
+
+    /* Correct for detector motion during exposure. */
+    if (grating_motion)
+	cf_grating_motion(header, nevents, time, x, y, channel,
+		ntimes, ttime, tsunrise);
+
+    /* Shift spectra in X to account for position of the FPA. */
+    if (fpa_position)
+	cf_fpa_position(header, nevents, x, channel);
+
+    /* Correct for mirror motion during exposure. */
+    if (mirror_motion)
+	cf_mirror_motion(header, nevents, time, x, y, channel,
+		ntimes, ttime, tsunset);
+
+    /* Correct for spacecraft motion during exposure. */
+    if (sat_jitter)
+	cf_satellite_jitter(header, nevents, time, x, y, channel,
+		ntimes, ttime, statflag);
+ 
+    /* Compute centroids of motion-corrected spectra. */
+    cf_calculate_y_centroid(header, nevents, weight, x, y, channel, 
+	timeflags, locflags);
+
+    /* Final assignment of channel numbers to photons */
+    cf_identify_channel(header, nevents, x, y, channel, locflags,
+	user_pad, last_call=TRUE); 
+
+    /* Compute count rates for TTAG target spectra. */
+    set_rate = !(cf_target_count_rate(header, nevents, time, weight,
+	channel, locflags, ntimes, ttime, rate_lif, rate_sic)); 
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    cf_verbose(3, "Writing X, Y, CHANNEL to IDF");
+    FITS_movabs_hdu(header, 2, NULL, &status);
+    if (set_times)
+        cf_write_col(header, TFLOAT, "TIME", (void *) time, nevents);
+    cf_write_col(header, TFLOAT, "X",      (void *) x,   nevents);
+    cf_write_col(header, TFLOAT, "Y",      (void *) y,   nevents);
+    cf_write_col(header, TBYTE, "CHANNEL", (void *) channel, nevents);
+
+    if (set_gtis) {
+	cf_verbose(3, "Writing good-time intervals to IDF");
+	FITS_movabs_hdu(header, 3, NULL, &status);
+	cf_write_col(header, TDOUBLE, "START", (void *) gti.start, gti.ntimes);
+	cf_write_col(header, TDOUBLE, "STOP", (void *) gti.stop, gti.ntimes);
+	free(gti.stop);
+	free(gti.start);
+    }
+
+    FITS_movabs_hdu(header, 4, NULL, &status);
+    cf_verbose(3, "Writing timeline information to IDF");
+    if (set_rate) {
+	for (i = 0; i < ntimes; i++) {
+	    if (rate_lif[i] > 65535) rate_lif[i] = 0;
+	    if (rate_sic[i] > 65535) rate_sic[i] = 0;
+	    if (max_rate_lif < rate_lif[i]) max_rate_lif = rate_lif[i];
+	    if (max_rate_sic < rate_sic[i]) max_rate_sic = rate_sic[i];
+	}
+	cf_verbose(2, "max_rate_lif = %.0f", max_rate_lif);
+	cf_verbose(2, "max_rate_sic = %.0f", max_rate_sic);
+	if (max_rate_lif > 32767) {
+	    FITS_update_key(header, TFLOAT, "TSCAL10", &tscale, NULL, &status);
+	    FITS_update_key(header, TFLOAT, "TZERO10", &tzero, NULL, &status);
+	    fits_set_tscale(header, 10, (double)tscale, (double)tzero, &status);
+	}
+	if (max_rate_sic > 32767) {
+	    FITS_update_key(header, TFLOAT, "TSCAL11", &tscale, NULL, &status);
+	    FITS_update_key(header, TFLOAT, "TZERO11", &tzero, NULL, &status);
+	    fits_set_tscale(header, 11, (double)tscale, (double)tzero, &status);
+	}
+	FITS_write_col(header, TFLOAT, 10, 1, 1, ntimes, rate_lif, &status);
+	FITS_write_col(header, TFLOAT, 11, 1, 1, ntimes, rate_sic, &status);
+    }
+    cf_write_col(header, TFLOAT, "YCENT_LIF", (void *) ycent_lif, ntimes);
+    cf_write_col(header, TFLOAT, "YCENT_SIC", (void *) ycent_sic, ntimes);
+    cf_verbose(3, "IDF updates complete");
+
+    FITS_close_file(header, &status);
+
+    free(time);
+    free(weight);
+    free(xfarf);
+    free(yfarf);
+    free(locflags);
+    free(timeflags);
+    free(channel);
+    free(ttime);
+    free(rate_lif);
+    free(rate_sic);
+    free(ycent_lif);
+    free(ycent_sic);
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return status;
+}
diff --git a/src/fuv/cf_screen_photons.c b/src/fuv/cf_screen_photons.c
new file mode 100644
index 0000000..bd82bba
--- /dev/null
+++ b/src/fuv/cf_screen_photons.c
@@ -0,0 +1,298 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_screen_photons options intermediate_file
+ *
+ * Description: Filters events in the intermediate data file (IDF) for limb
+ *              angle, SAA crossing, high voltage changes, bursts, and PHA.
+ *              Sets the event flags and GTIs.  Data are modified in place.
+ *
+ *              By default all corrections are performed.  Command line
+ *              options allow one or more corrections to be omitted.
+ *
+ * Arguments:   input_file              FARF-corrected intermediate data file
+ *
+ * Calibration files:                   
+ *
+ * Returns:     0 on successful completion
+ *
+ * Calls:       cf_screen_limb_angle, cf_screen_saa, cf_screen_high_voltage,
+ *              cf_screen_burst, cf_screen_jitter,
+ *		cf_set_user_gtis, cf_set_photon_flags, cf_modify_hist_times, 
+ *		cf_screen_pulse_height, cf_screen_airglow, cf_screen_bad_pixels
+ *
+ * History:     11/05/02   1.1   peb    Begin work
+ *              11/13/02   1.2   peb    Added screening functions to program
+ *              11/14/02   1.3   peb    Added burst-screening function
+ *              11/18/02   1.4   peb    Corrected logic dealing with reading,
+ *                                      writing, and freeing of GTI struct.
+ *                                      Corrected some grammatical errors.
+ *              12/10/02   1.5   rdr    changed call to cf_screen_bursts
+ *              12/18/02   1.6   rdr    updated names of some columns in
+ *                                      the calls to the timeline extension
+ *              12/20/02   1.7   wvd    Change flags to unsigned char
+ *              03/10/03   1.9   peb    Added verbose_level and added unistd.h
+ *                                      for getopt portability
+ *              05/10/03   1.10  wvd    Pass locflag to cf_set_photon_flags
+ *              05/30/03   1.11  wvd    Pass weight to cf_set_photon_flags
+ *              06/11/03   1.12  wvd    Treat HV as array of shorts.
+ *		                        Pass datatype to cf_read_col and
+ *					cf_write_col.
+ *		08/25/03   1.13  wvd	Change coltype from string to int in
+ *					cf_read_col and cf_write_col.
+ *		09/10/03   1.14  wvd	Change background array to type short.
+ *					Add cf_set_user_gtis().
+ *		10/02/03   1.15  wvd	Pass locflag array to
+ *					cf_screen_pulse_height; write to IDF
+ *		02/10/04   1.16  wvd	Add cf_screen_fifo_overflow()
+ *		06/02/04   1.17  wvd	Add cf_modify_hist_times()
+ *		06/03/04   1.18  wvd	Read XFARF and YFARF, not X and Y.
+ *					If INSTMODE = TTAG, don't bother to
+ *					call cf_modify_hist_times().
+ *		02/02/05   1.19  wvd	Pass rate_aic to cf_screen_burst
+ *		03/10/05   1.20  wvd	Add cf_screen_airglow()
+ *		03/30/05   1.21  wvd	Don't change TIME_COR to SKIPPED
+ *					for TTAG data.  Leave as OMIT.
+ *		05/20/05   1.22  wvd	Clean up i/o.
+ *		06/03/05   1.23  wvd	Fix typo in CF_VER_NUM.
+ *		09/09/05   1.24  wvd	Update list of allowed options.
+ *		11/09/05   1.25  wvd	Change argument list for
+ *					cf_screen_fifo_overflow.
+ *		11/22/05   1.26  wvd	Add cf_screen_jitter and
+ *					cf_screen_bad_pixels.
+ *		01/24/06   1.27  wvd	Move cf_screen_airglow before
+ *					cf_screen_burst
+ *              12/29/06   1.28  wvd    Move cf_screen_fifo_overflow to
+ *                                      cf_convert_to_farf.
+ *              07/18/08   1.29  wvd    Write STATUS_FLAGS to IDF before
+ *					calling cf_set_photon_flags, which
+ *					may change the array.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+int
+main(int argc, char *argv[])
+{
+    char CF_PRGM_ID[] = "cf_screen_photons";
+    char CF_VER_NUM[] = "1.29";
+
+    char instmode[FLEN_VALUE];
+    unsigned char *pha=NULL, *timeflag=NULL, *statflag=NULL, *locflag=NULL;
+    int  limb_screening=1, saa_screening=1, voltage_screening=1;
+    int  burst_screening=1, set_flags=1, airglow_screening=1, pha_screening=1;
+    int  modify_times=1, set_gtis=1, set_user_gtis=1;
+    int  bad_pixel_screening=1, set_times=FALSE, jitter_screening=1;
+    int  status=0, optc;
+    long nevents, nseconds;
+    short *background=NULL, *rate_lif=NULL, *rate_sic=NULL, *voltage=NULL;
+    float *time=NULL, *x=NULL, *y=NULL, *weight=NULL;
+    float *timeline=NULL, *limb=NULL, *longitude=NULL, *latitude=NULL;
+    float *rate_aic=NULL;
+    GTI  gti;
+    fitsfile *header;
+    
+    char opts[]  = "halstbjufimdpv:";
+    char usage[] = 
+	"Usage:\n"
+	"  cf_screen_photons [-halstbjufimdp] [-v level] idf_file\n";
+    char option[] =
+	"Options:\n"
+	"  -h:  this help message\n"
+	"  -v:  verbosity level (default is 1; 0 is silent)\n"
+	"  -a:  no airglow screening\n"
+	"  -l:  no limb screening\n"
+	"  -s:  no SAA screening\n"
+	"  -t:  no high voltage screening\n"
+	"  -b:  no burst screening\n"
+	"  -j:  no jitter screening\n"
+	"  -u:  no user-defined good-time intervals\n"
+	"  -f:  do not set photon event flags\n"
+        "  -i:  do not update GTI arrays\n"
+	"  -m:  do not modify HIST photon times\n"
+	"  -d:  no bad-pixel screening\n"
+	"  -p:  no PHA screening\n";
+
+    verbose_level = 1;
+
+    while ((optc = getopt(argc, argv, opts)) != -1) {
+	switch(optc) {
+
+	case 'h':
+	    printf("%s\n%s", usage, option);
+	    return 0;
+	case 'v':
+	    verbose_level = atoi(optarg);
+	    break;
+	case 'l':
+	    limb_screening = 0;
+	    break;
+	case 't':
+	    voltage_screening = 0;
+	    break;
+	case 's':
+	    saa_screening = 0;
+	    break;
+	case 'b':
+	    burst_screening = 0;
+	    break;
+	case 'j':
+	    jitter_screening = 0;
+	    break;
+	case 'u':
+	    set_user_gtis = 0;
+	    break;
+	case 'f':
+	    set_flags = 0;
+	    break;
+        case 'i':
+            set_gtis = 0;
+            break;
+	case 'm':
+	    modify_times = 0;
+	    break;
+	case 'a':
+	    airglow_screening = 0;
+	    break;
+	case 'd':
+	    bad_pixel_screening = 0;
+	    break;
+	case 'p':
+	    pha_screening = 0;
+	    break;
+	}
+    }
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    if (argc <= optind) {
+        printf("%s", usage);
+        cf_if_error("Incorrect number of program arguments");
+    }
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    FITS_open_file(&header, argv[optind], READWRITE, &status);
+
+    FITS_movabs_hdu(header, 2, NULL, &status);
+    nevents = cf_read_col(header, TFLOAT, "TIME",   (void **) &time);
+    nevents = cf_read_col(header, TBYTE,  "PHA",    (void **) &pha);
+    nevents = cf_read_col(header, TFLOAT, "WEIGHT", (void **) &weight);
+    nevents = cf_read_col(header, TFLOAT, "XFARF",  (void **) &x);
+    nevents = cf_read_col(header, TFLOAT, "YFARF",  (void **) &y);
+    nevents = cf_read_col(header, TBYTE,  "TIMEFLGS", (void **) &timeflag);
+    nevents = cf_read_col(header, TBYTE,  "LOC_FLGS", (void **) &locflag);
+
+    if (burst_screening) {
+	FITS_movabs_hdu(header, 3, NULL, &status);
+	gti.ntimes = cf_read_col(header, TDOUBLE, "START",(void **) >i.start);
+	gti.ntimes = cf_read_col(header, TDOUBLE, "STOP", (void **) >i.stop);
+    }
+    FITS_movabs_hdu(header, 4, NULL, &status);
+    nseconds = cf_read_col(header, TFLOAT, "TIME",         (void **) &timeline);
+    nseconds = cf_read_col(header, TBYTE,  "STATUS_FLAGS", (void **) &statflag);
+    nseconds = cf_read_col(header, TFLOAT, "LIMB_ANGLE",   (void **) &limb);
+    nseconds = cf_read_col(header, TFLOAT, "LONGITUDE",   (void **) &longitude);
+    nseconds = cf_read_col(header, TFLOAT, "LATITUDE",     (void **) &latitude);
+    nseconds = cf_read_col(header, TSHORT, "HIGH_VOLTAGE", (void **) &voltage);
+    nseconds = cf_read_col(header, TSHORT, "LIF_CNT_RATE", (void **) &rate_lif);
+    nseconds = cf_read_col(header, TSHORT, "SIC_CNT_RATE", (void **) &rate_sic);
+    nseconds = cf_read_col(header, TFLOAT, "AIC_CNT_RATE", (void **) &rate_aic);
+    background = (short *) cf_calloc(nseconds, sizeof(short)) ;
+
+    /* If INSTMODE = TTAG, don't bother to call cf_modify_hist_times. */
+    FITS_movabs_hdu(header, 1, NULL, &status);
+    FITS_read_key(header, TSTRING, "INSTMODE", instmode, NULL, &status);
+    if (!strncmp(instmode, "TTAG", 4)) modify_times = FALSE;
+
+    if (airglow_screening)
+	cf_screen_airglow(header, nevents, x, y, locflag);
+
+    if (limb_screening)
+	cf_screen_limb_angle(header, nseconds, statflag, limb);
+
+    if (saa_screening)
+	cf_screen_saa(header, nseconds, statflag, longitude, latitude);
+
+    if (voltage_screening)
+	cf_screen_high_voltage(header, nseconds, statflag, voltage);
+
+    if (burst_screening) {
+	cf_screen_burst(header, nevents, time, x, y, locflag, >i,
+			nseconds, timeline, statflag, rate_aic, background);
+	free(gti.stop);
+	free(gti.start);
+    }
+
+    if (jitter_screening)
+	cf_screen_jitter(header, nseconds, timeline, statflag);
+
+    if (set_user_gtis)
+	cf_set_user_gtis(header, nseconds, timeline, statflag);
+
+    /* Write STATUS_FLAGS array to IDF before calling cf_set_photon_flags. */
+    FITS_movabs_hdu(header, 4, NULL, &status);
+    cf_write_col(header, TBYTE, "STATUS_FLAGS", (void *) statflag, nseconds);
+    FITS_movabs_hdu(header, 1, NULL, &status);
+
+    if (set_flags)
+	cf_set_photon_flags(header, nevents, time, weight, timeflag,
+		locflag, nseconds, timeline, statflag);
+
+    if (set_gtis)
+        cf_set_good_time_intervals(header, nseconds, timeline,
+                statflag, >i);
+
+    if (modify_times)
+	set_times = !(cf_modify_hist_times(header, nevents, time, >i));
+
+    if (bad_pixel_screening)
+	cf_screen_bad_pixels(header, nevents, x, y, locflag);
+
+    if (pha_screening)
+	cf_screen_pulse_height(header, nevents, pha, locflag);
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    FITS_movabs_hdu(header, 2, NULL, &status);
+    if (set_times)
+	cf_write_col(header, TFLOAT, "TIME", (void *) time, nevents);
+    cf_write_col(header, TBYTE, "TIMEFLGS", (void *) timeflag, nevents);
+    cf_write_col(header, TBYTE, "LOC_FLGS", (void *) locflag, nevents);
+
+    if (set_gtis) {
+        FITS_movabs_hdu(header, 3, NULL, &status);
+        cf_write_col(header, TDOUBLE, "START", (void *) gti.start, gti.ntimes);
+        cf_write_col(header, TDOUBLE, "STOP", (void *) gti.stop, gti.ntimes);
+        free(gti.stop);
+        free(gti.start);
+    }
+
+    if (burst_screening) {
+	FITS_movabs_hdu(header, 4, NULL, &status);
+        cf_write_col(header, TSHORT, "BKGD_CNT_RATE", (void *) background,
+	nseconds);
+    }
+
+    FITS_close_file(header, &status);
+
+    free(background);
+    free(voltage);
+    free(latitude);
+    free(longitude);
+    free(limb);
+    free(statflag);
+    free(timeline);
+    free(timeflag);
+    free(pha);
+    free(y);
+    free(x);
+    free(time);
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return 0;
+}
diff --git a/src/fuv/cf_ttag_init.c b/src/fuv/cf_ttag_init.c
new file mode 100644
index 0000000..ec11f19
--- /dev/null
+++ b/src/fuv/cf_ttag_init.c
@@ -0,0 +1,594 @@
+/*****************************************************************************
+ *	        Johns Hopkins University
+ *	        Center For Astrophysical Sciences 
+ *	        FUSE
+ *****************************************************************************
+ *
+ * Synopsis:	cf_ttag_init input_file output_file 
+ *
+ * Description: Reads a raw ttag file, which is a FITS binary table
+ *              consisting of four columns:
+ *
+ *              TIME            FLOAT 
+ *              X               INT
+ *              Y               INT
+ *              PHA             BYTE
+ *
+ *              This routine will convert the raw ttag file to another binary
+ *              table with 13 columns the values for most of these columns
+ *              will be added by various modules of the pipeline:
+ *
+ *              TIME            FLOAT   time of arrival for photon
+ *              XRAW            INT     raw x position
+ *              YRAW            INT     raw y position
+ *              PHA             BYTE    pha value
+ *              WEIGHT          FLOAT   effective area and flux calibration
+ *              XFARF           FLOAT   x position in geometrically
+ *                                      corrected frame
+ *              YFARF           FLOAT   y position in geometrically
+ *                                      corrected frame
+ *              X               FLOAT   final x position (after correcting
+ *                                      for motions)
+ *              Y               FLOAT   final y position (after correcting
+ *                                      for motions)
+ *              CHANNEL         CHAR    aperture ID for the photon
+ *              TIMEFLGS        CHAR    temporal flags - various bits set 
+ *              LOC_FLGS        CHAR    location flags - various bits set 
+ *              LAMBDA          FLOAT   wavelength for each photon
+ *		ERGCM2		FLOAT	flux calibration for each photon
+ *
+ *              This routine calls cf_fuv_init to set up the calibration
+ *              entries in the header.
+ *
+ *              In addition, the routine creates a timeline containing
+ *              orbital information, count rates, and high-voltage
+ *              information which is used in later pipeline modules.
+ *
+ *		Turns out that OPUS good-time intervals may exclude SAA
+ *		passes that remain in the photon-event list.  This means
+ *		that there may be photons in the photon-event list whose
+ *		times are not listed in the timeline table.  To catch
+ *		them, we set all photon status flags to TEMPORAL_HV.
+ * 
+ *
+ * Returns:	Zero upon successful completion
+ *
+ * History:	03/30/98	gak	Begin work
+ *              03/18/99        emm     Modified header.
+ *              04/06/99        emm     Added check on nrows to be no
+ *                                        larger than nevents.
+ *              04/15/99    barrett     Deleted FF and DY columns,
+ *                                        added FITS wrapper functions,
+ *                                        tidied code.
+ *              04/22/99    emm         Program now returns int.
+ *              04/23/99    emm         Fixed two bugs causing segmentation
+ *                                      faults (pha was being written as
+ *                                      long, at definition of outdx was
+ *                                      given as 1B instead of 1E.) Added
+ *                                      check on number of arguments.
+ *              04/29/99    emm         Added check on nrows to make sure
+ *                                      it is smaller than nevents.
+ *              04/30/99    peb         Added cf_malloc functions.
+ *              06/07/99    peb         Added reporting of version number.
+ *              18/07/99 1.12    jm     Populate APER_ACT keyword
+ *              10/28/99 1.14   emm     Added DY column.
+ *              12/02/99 1.15   emm     Added corrections to some keywords
+ *                                      removed APER_ACT keyword update
+ *              12/21/00 1.16   peb     Fixed type mismatches in cfitsio
+ *                                      calls
+ *              05/16/01 1.17   rdr     added night/day flag column (dnflg)
+ *              08/20/01 1.18   wvd	Check keywords SPECBINX and SPECBINY;
+ *					if 0, set to 1
+ *              10/19/01 1.19   wvd	Move correction of SPECBINX, etc.
+ *					from cf_ttag_image.
+ *              04/03/02 1.20   wvd	Clean up keywords in photon-event list.
+ *              08/02/02 1.21   rdr     - changed the format of the binary
+ *                                        tables to improve speed
+ *                                      - added new columns to the table
+ *              09/15/02 1.22   rdr     added extension containing timeline
+ *              11/07/02 1.23   peb     Modified columns for event and
+ *                                      timeline flags.  Removed temporary
+ *                                      keywords.  Changed include files to
+ *                                      use calfusettag.h
+ *              11/13/02 1.24   rdr     Added ycentl and ycents columns to
+ *					timeline.
+ *                                      Added section to flag geocoronal photons
+ *                                      and photons in the inactive part of the 
+ *                                      detector. Moved processing of the 
+ *                                      photon list into a separate subroutine.
+ *                                      Fixed problem of program crashing when
+ *                                      needed columns are not in the hskp file
+ *              12/06/02 1.25   rdr     removed variables which were not being 
+ *					used
+ *		12/12/02 1.5	wvd	Installed program.
+ *              12/18/02 1.6    rdr     use AIRG calibration file for airglow
+ *                                      locations
+ *              12/20/02 1.7    rdr     - check for negative count rates and
+ *                                        correct
+ *                                      - convert status flags to unsigned char
+ *                                      - flag photons near start and end of
+ *                                        GTI
+ *              01/24/03 1.8    rdr     - correct situation where hskp file
+ *                                        has blank columns
+ *              02/11/03 1.9    rdr     Added ERGCM2S column to photon table
+ *              03/04/03 1.10   rdr     removed YFARFC column and deleted some
+ *                                      unused variables
+ *              03/19/03 1.12   peb     Added command-line options and
+ *                                      verbose_level parameter
+ *                                      Changed all printf calls to cf_verbose
+ *                                      calls with verbose level == 1
+ *              03/25/03 1.13   peb     Changed a cf_verbose to cf_timestamp.
+ *              04/01/03 1.15   wvd     Call cf_error_init after cf_timeline.
+ *              04/04/03 1.16   wvd     Update FILETYPE keyword. Set verbose
+ *					level of each call to cf_verbose.
+ *              04/07/03 1.17   wvd     Update FILENAME keyword.
+ *              04/07/03 1.18   wvd     Add FPADXLIF and FPADXSIC to header.
+ *              04/09/03 1.19   rdr     Correct error in determining the name
+ *                                      of the housekeeping file
+ *              04/29/03 1.21   wvd	Allow possiblity that housekeeping
+ *                                      filename is in lower-case letters.
+ *              05/06/03 1.22   rdr     Add daynight keyword, bkg_max and
+ *                                      bkg_min keywords, and changed the 
+ *                                      column ergcm2s to ergcm2
+ *              05/10/03 1.23   wvd	Modify internal copy of GTI's.
+ *					Make number of timeline entries more
+ *				 	nearly equal to EXPTIME.  Discard
+ *					photons with bad time markers.
+ *              06/03/03 1.24   wvd	Add call to cf_proc_check.
+ *					Keep trying to get GTI's right.
+ *              06/09/03 1.25   wvd	Compress data with TSCALE and TZERO.
+ *		06/11/03 1.26   wvd     Change calfusettag.h to calfuse.h
+ *              07/07/03 1.27   rdr     Correct initialization of dn_flag_last
+ *                                      when searching for time_sunrise and
+ *                                      time_sunset 
+ *		07/17/03 1.28   wvd     Move various subroutines to library.
+ *		07/23/03 1.29   wvd     Close ELEC_CAL file.
+ *					Delete goto statement.
+ *		09/15/03 1.31   wvd     Set temporal flags to TEMPORAL_HV.
+ *		10/02/03 1.32   wvd     Delete reference to LOCATION_GTI flag
+ *		10/26/03 1.33   wvd     Increase to morekeys to 38.
+ *		11/05/03 1.34   wvd     Added stdlib.h and unistd.h
+ *              03/03/04 1.35   rdr     Exit if no photons found.
+ *              04/06/04 1.37   bjg     Change formats to match arg types 
+ *                                      in printf
+ *                                      Functions return EXIT_SUCCESS
+ *                                      Remove static keyword in struct key 
+ *                                      definition
+ *                                      Add braces in TSCAL and TZERO
+ *                                      definitions
+ *                                      When no events are present in
+ *                                      the raw file, create a photon list
+ *                                      with a dummy event.
+ *		03/10/05 1.38   wvd	Move airglow screening to 
+ *					cf_screen_airglow.
+ *					Initialize XFARF and YFARF to zero.
+ *		05/20/05 1.39   wvd	Clean up i/o.
+ *		05/31/06 1.40   wvd     OPUS has been updated, so we can set
+ *					morekeys to 0.
+ *		06/12/06 1.41   wvd     Change cf_if_warning to cf_verbose.
+ *		08/21/07 1.42   wvd     Add -e flag to set HKEXISTS to YES.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h" 
+
+struct key {
+	char keyword[FLEN_KEYWORD];
+	float value;
+	};
+
+static int
+cf_init_null_photon_list(fitsfile *outfits) {
+       
+    int   status=0;
+
+    long i;
+
+    char  keyword[FLEN_CARD], card[FLEN_CARD];
+      
+    char extname[]="TTAG DATA";   /* Name of this extension */
+
+    char *ttype[]={"TIME", "XRAW", "YRAW", "PHA", "WEIGHT", "XFARF", 
+		   "YFARF",  "X", "Y", "CHANNEL", "TIMEFLGS",
+		   "LOC_FLGS", "LAMBDA", "ERGCM2" };
+
+    char *tform[14]={"1E","1I","1I","1B","1E","1I","1I",
+		     "1I","1I","1B","1B","1B","1E","1E"};  
+
+    char *tunit[]={"SECONDS", "PIXELS", "PIXELS", "UNITLESS", "UNITLESS",
+		   "PIXELS", "PIXELS", "PIXELS", "PIXELS", "UNITLESS",
+		   "UNITLESS", "UNITLESS", "ANGSTROMS", "ERG CM^-2"};
+
+    struct key tscal[] = {{"TSCAL6", 0.25},  {"TSCAL7", 0.1}, 
+                          {"TSCAL8", 0.25},  {"TSCAL9", 0.1}};
+    struct key tzero[] = {{"TZERO6", 8192.}, {"TZERO7", 0.}, 
+                          {"TZERO8", 8192.}, {"TZERO9", 0.}};
+
+    float   hdu2_time[1]      =  {0.0};
+    short   hdu2_xraw[1]      =  {0};
+    short   hdu2_yraw[1]      =  {0};
+    char    hdu2_pha[1]       =  {0};
+    float   hdu2_weight[1]    =  {0.0};
+    float   hdu2_xfarf[1]     =  {0.0};
+    float   hdu2_yfarf[1]     =  {0.0}; 
+    float   hdu2_x[1]         =  {0.0};
+    float   hdu2_y[1]         =  {0.0};
+    char    hdu2_channel[1]   =  {0};
+    char    hdu2_timeflgs[1]  =  {TEMPORAL_HV};
+    char    hdu2_loc_flgs[1]  =  {LOCATION_SHLD};
+    float   hdu2_lambda[1]    =  {0.0};
+    float   hdu2_ergcm2s[1]   =  {0.0};
+
+    cf_verbose(3, "Entering cf_init_null_photon_list.");
+
+    /* Append a new empty binary table to the output file */
+    FITS_create_tbl(outfits, BINARY_TBL, 1, 14, ttype, tform,
+			tunit, extname, &status);
+
+    /* Write TSCALE and TZERO entries to header */
+    for (i=0; i<4; i++) {
+	sprintf(keyword, "TUNIT%ld", i+6);
+	if (fits_read_keyword(outfits, keyword, card, NULL, &status))
+		cf_if_fits_error(status);
+	FITS_insert_key_flt(outfits, tscal[i].keyword, tscal[i].value,
+		-2, NULL, &status);
+	FITS_insert_key_flt(outfits, tzero[i].keyword, tzero[i].value,
+		-4, NULL, &status);
+    }
+
+
+
+  
+    FITS_write_col(outfits, TFLOAT,  1, 1, 1, 1, hdu2_time     , &status);
+    FITS_write_col(outfits, TSHORT,  2, 1, 1, 1, hdu2_xraw     , &status);
+    FITS_write_col(outfits, TSHORT,  3, 1, 1, 1, hdu2_yraw     , &status);
+    FITS_write_col(outfits, TBYTE ,  4, 1, 1, 1, hdu2_pha      , &status);
+    FITS_write_col(outfits, TFLOAT,  5, 1, 1, 1, hdu2_weight   , &status);
+    FITS_write_col(outfits, TFLOAT,  6, 1, 1, 1, hdu2_xfarf    , &status);
+    FITS_write_col(outfits, TFLOAT,  7, 1, 1, 1, hdu2_yfarf    , &status);
+    FITS_write_col(outfits, TFLOAT,  8, 1, 1, 1, hdu2_x        , &status);
+    FITS_write_col(outfits, TFLOAT,  9, 1, 1, 1, hdu2_y        , &status);
+    FITS_write_col(outfits, TBYTE , 10, 1, 1, 1, hdu2_channel  , &status);
+    FITS_write_col(outfits, TBYTE , 11, 1, 1, 1, hdu2_timeflgs , &status);
+    FITS_write_col(outfits, TBYTE , 12, 1, 1, 1, hdu2_loc_flgs , &status);
+    FITS_write_col(outfits, TFLOAT, 13, 1, 1, 1, hdu2_lambda   , &status);
+    FITS_write_col(outfits, TFLOAT, 14, 1, 1, 1, hdu2_ergcm2s  , &status);
+
+    cf_verbose(3, "Exiting cf_init_null_photon_list.");
+    return EXIT_SUCCESS;
+}
+
+/*****************************************************************************/
+
+static int
+cf_init_photon_list(fitsfile *infits, fitsfile *outfits) {
+
+/*****************************************************************************
+ *
+ * Description: procedure to take input data from the raw data file and 
+ *              generate a table with 14 columns. These columns
+ *              will be modified by later pipeline modules.
+ *
+ * ARGUMENTS:
+ *              infits        fitsfile  name of the input raw data file
+ *              outfits       fitsfile  name of the output intermediate data
+ *                                      file
+ * INPUT DATA: 
+ *              TIME            FLOAT   time of arrival for each photon
+ *              XRAW            INT     x position of photon
+ *              YRAW            INT     y position of photon
+ *              PHA             BYTE    pha value of the photon
+ *
+ * OUTPUT DATA: 
+ *              TIME            FLOAT   time of arrival for photon
+ *              XRAW            INT     raw x position
+ *              YRAW            INT     raw y position
+ *              PHA             BYTE    pha value
+ *              WEIGHT          FLOAT   effective area and flux calibration
+ *              XFARF           FLOAT   x position in geometrically
+ *                                      corrected frame
+ *              YFARF           FLOAT   y position in geometrically
+ *                                      corrected frame
+ *              X               FLOAT   final x position (after correcting
+ *                                      for motions)
+ *              Y               FLOAT   final y position (after correcting
+ *                                      for motions)
+ *              CHANNEL         CHAR    aperture ID for the photon
+ *              TIMEFLGS        CHAR    temporal flags - various bits set 
+ *              LOC_FLGS        CHAR    location flags - various bits set 
+ *              LAMBDA          FLOAT   wavelength for each photon
+ *		ERGCM2		FLOAT	flux cal for each photon
+ *
+ ****************************************************************************/
+
+    fitsfile *elecfits; 
+    char  fmt_byte[FLEN_CARD], fmt_float[FLEN_CARD], fmt_short[FLEN_CARD];
+    char  *inpha;
+    char  elecfile[FLEN_FILENAME];
+    char  keyword[FLEN_CARD], card[FLEN_CARD];
+    unsigned char *channel, *location, *temporal;
+    short *inx, *iny ;
+    int   status=0, intnull=0, anynull, hdutype;
+    int	  tcol, xcol, ycol, phacol, colval;
+    int   tfields = 14;      /*  output table will have 14 columns */
+    int   active_l, active_r;
+    long  i;
+    long  frow=1, felem=1, nevents, nrows=1; /* output table will have 1 row */
+    float *intime, *dumarrf;
+
+    char extname[]="TTAG DATA";   /* Name of this extension */
+
+    char *ttype[]={"TIME", "XRAW", "YRAW", "PHA", "WEIGHT", "XFARF", 
+		   "YFARF",  "X", "Y", "CHANNEL", "TIMEFLGS",
+		   "LOC_FLGS", "LAMBDA", "ERGCM2" };
+
+    char *tform[14];  /* We'll assign values when we know 
+                         the number of elements in the data set. */
+
+
+    char *tunit[]={"SECONDS", "PIXELS", "PIXELS", "UNITLESS", "UNITLESS",
+		   "PIXELS", "PIXELS", "PIXELS", "PIXELS", "UNITLESS",
+		   "UNITLESS", "UNITLESS", "ANGSTROMS", "ERG CM^-2"};
+
+    struct key tscal[] = {{"TSCAL6", 0.25},  {"TSCAL7", 0.1}, 
+                          {"TSCAL8", 0.25},  {"TSCAL9", 0.1}};
+    struct key tzero[] = {{"TZERO6", 8192.}, {"TZERO7", 0.}, 
+                          {"TZERO8", 8192.}, {"TZERO9", 0.}};
+
+    cf_verbose(3, "Entering cf_init_photon_list.");
+
+    /*  Move to the extension of the input file containing the data. */
+    FITS_movabs_hdu(infits, 2, &hdutype, &status);
+
+    /* Read the limits to the active area of the detector. */
+    FITS_read_key(outfits, TSTRING, "ELEC_CAL", elecfile, NULL, &status);
+    FITS_open_file(&elecfits, cf_cal_file(elecfile), READONLY, &status);
+    FITS_read_key(elecfits, TINT, "ACTIVE_L", &active_l, NULL, &status);
+    FITS_read_key(elecfits, TINT, "ACTIVE_R", &active_r, NULL, &status);
+    FITS_close_file(elecfits, &status);
+    cf_verbose(3, "Limits to the active area: left=%d, right=%d",
+	   active_l, active_r);
+
+    /*
+     *  Get the number of events in the input file.
+     */
+    FITS_read_key(infits, TLONG, "NAXIS2", &nevents, NULL, &status);
+    cf_verbose(3, "Raw data file contains %ld entries", nevents);
+
+    /* Generate the tform array */
+    sprintf(fmt_byte,  "%ldB", nevents);
+    sprintf(fmt_float, "%ldE", nevents);
+    sprintf(fmt_short, "%ldI", nevents);
+
+    tform[0] = fmt_float;
+    tform[1] = fmt_short;
+    tform[2] = fmt_short;
+    tform[3] = fmt_byte;
+    tform[4] = fmt_float;
+    for (i=5; i<9; i++)
+	tform[i] = fmt_short;
+    for ( ; i<12; i++)
+	tform[i] = fmt_byte;
+    tform[12] = fmt_float;
+    tform[13] = fmt_float;
+
+    /* Append a new empty binary table to the output file */
+    FITS_create_tbl(outfits, BINARY_TBL, nrows, tfields, ttype, tform,
+			tunit, extname, &status);
+
+    /* Write TSCALE and TZERO entries to header */
+    for (i=0; i<4; i++) {
+	sprintf(keyword, "TUNIT%ld", i+6);
+	if (fits_read_keyword(outfits, keyword, card, NULL, &status))
+		cf_if_fits_error(status);
+	FITS_insert_key_flt(outfits, tscal[i].keyword, tscal[i].value,
+		-2, NULL, &status);
+	FITS_insert_key_flt(outfits, tzero[i].keyword, tzero[i].value,
+		-4, NULL, &status);
+    }
+
+    /*
+     *  Allocate space for the input times, coords, and pha.
+     */
+    intime = (float *) cf_malloc(sizeof(float) * nevents);
+    inx    = (short *) cf_malloc(sizeof(short) * nevents);
+    iny    = (short *) cf_malloc(sizeof(short) * nevents);
+    inpha  = (char *)  cf_malloc(sizeof(char)  * nevents);
+    /*
+     *  Allocate space for the new output columns.
+     */
+    dumarrf  = (float *) cf_malloc(sizeof(float) * nevents);
+    channel  = (unsigned char *) cf_calloc(nevents, sizeof(unsigned char));
+    location = (unsigned char *) cf_calloc(nevents, sizeof(unsigned char));
+    temporal = (unsigned char *) cf_calloc(nevents, sizeof(unsigned char));
+
+    /*
+     *  Read the data from the input file and write to the output
+     *  file in a new format
+     *
+     *  read the times
+     */
+    FITS_get_colnum(infits, TRUE, "TIME", &tcol, &status);
+    FITS_read_col(infits, TFLOAT, tcol, frow, felem, nevents, &intnull,
+		  intime, &anynull, &status);
+    FITS_write_col(outfits, TFLOAT, 1, frow, felem, nevents, intime, &status);
+
+    /* process X and Y positions  */
+    FITS_get_colnum(infits, TRUE, "X", &xcol, &status);
+    FITS_read_col(infits, TSHORT, xcol, frow, felem, nevents, &intnull,
+		  inx, &anynull, &status);
+    FITS_write_col(outfits, TSHORT, 2, frow, felem, nevents, inx, &status);
+  
+    FITS_get_colnum(infits, TRUE, "Y", &ycol, &status);
+    FITS_read_col(infits, TSHORT, ycol, frow, felem, nevents, &intnull,
+		  iny, &anynull, &status);
+    FITS_write_col(outfits, TSHORT, 3, frow, felem, nevents, iny, &status);
+
+    /* now do the PHA column */
+    FITS_get_colnum(infits, TRUE, "PHA", &phacol, &status);
+    FITS_read_col(infits, TBYTE, phacol, frow, felem, nevents, &intnull,
+		  inpha, &anynull, &status);
+    FITS_write_col(outfits, TBYTE, 4, frow, felem, nevents, inpha, &status);
+
+    /* fill weights with a dummy float - all equal to 1. */ 
+    for (i=0; i active_r) 
+	    location[i] = location[i] | LOCATION_SHLD;
+
+    /* Write location flags to output file. */
+    FITS_movabs_hdu(outfits, 2, &hdutype, &status);
+    FITS_write_col(outfits, TBYTE, 12, frow, felem, nevents,
+		       location, &status);
+
+    /* Fill lambda and energy arrays with 0. */
+    FITS_write_col(outfits, TFLOAT, 13, frow, felem, nevents, dumarrf,
+	   &status);
+    FITS_write_col(outfits, TFLOAT, 14, frow, felem, nevents, dumarrf,
+	   &status);
+
+    free(intime);
+    free(inx);
+    free(iny);
+    free(inpha);
+    free(dumarrf);
+    free(channel);
+    free(location);
+    free(temporal);
+
+    cf_verbose(3, "Exiting cf_init_photon_list.");
+    return EXIT_SUCCESS;
+}
+
+
+/*****************************************************************************/
+
+int main(int argc, char *argv[])
+
+/*****************************************************************************/
+{
+    char CF_PRGM_ID[] = "cf_ttag_init"; 
+    char CF_VER_NUM[] = "1.42";
+
+    fitsfile *infits, *outfits;
+    int   morekeys=0;
+    int   modify_hkexists=FALSE;
+    int	  status=0, hdutype, optc;
+    long  nphot ;
+
+    char opts[] = "ehv:";
+    char usage[] =
+	"Usage:\n"
+	"  cf_ttag_init [-he] [-v level] rawttagfile idf_file\n";
+    char option[] = 
+	"Options:\n"
+	"  -h:  this help message\n"
+	"  -e:  set header keyword HKEXISTS to YES in IDF file\n"
+	"  -v:  verbosity level (default is 1; 0 is silent)\n";
+ 
+    verbose_level = 1;
+
+    while ((optc = getopt(argc, argv, opts)) != -1) {
+	switch(optc) {
+
+	case 'h':
+	    printf("%s\n%s", usage, option);
+	    return 0;
+        case 'e':
+            modify_hkexists = TRUE;
+            break;
+	case 'v':
+	    verbose_level = atoi(optarg);
+	    break;
+	}
+    }
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    if (argc != optind+2) {
+        printf("%s", usage);
+        cf_if_error("Incorrect number of arguments");
+    }
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin execution");
+
+    FITS_open_file(&infits, argv[optind++], READONLY, &status);
+
+    /*  Exit if data are not in TTAG mode. */
+    if ( cf_proc_check(infits, CF_PRGM_ID) ) {
+	FITS_close_file(infits, &status);
+	return (-1);
+    }
+
+    /* Issue warning if there are no events in the data set. */
+    FITS_read_key(infits, TLONG, "NEVENTS", &nphot, NULL, &status); 
+    cf_verbose(3,"Number of events = %d ",nphot) ;
+    if (nphot < 1) {
+       cf_verbose(1, "No photons found in the data.") ;
+    } 
+
+
+    /*  Create output file. */
+    FITS_create_file(&outfits, argv[optind], &status);
+    /*  Copy primary image header from the input file. */
+    FITS_copy_hdu(infits, outfits, morekeys, &status);
+
+    /* Update header keywords. */
+    FITS_update_key(outfits, TSTRING, "FILENAME", argv[optind], NULL, &status);
+    FITS_update_key(outfits, TSTRING, "FILETYPE",
+    		             "INTERMEDIATE DATA FILE", NULL, &status);
+    if (modify_hkexists)
+	FITS_update_key(outfits, TSTRING, "HKEXISTS", "YES", NULL, &status);
+
+    /* Populate the calibration keywords in the primary header. */
+    cf_fuv_init(outfits);
+
+    /* Write background limits to file header */
+     cf_set_background_limits(outfits); 
+
+    /* Fill in the first extension with the photon information */
+     if (nphot<1) {
+       cf_init_null_photon_list(outfits);
+     }
+     else {
+       cf_init_photon_list(infits, outfits);
+     }
+
+    /* Copy good-time intervals from input to output. */
+    cf_verbose(3, "Copying good-time intervals from input to output.");
+    FITS_movabs_hdu(infits, 3, &hdutype, &status);
+    FITS_create_hdu(outfits, &status);
+    FITS_copy_hdu(infits, outfits, 0, &status);
+
+    /*  Append a table containing the orbital timeline */
+    cf_timeline(outfits);
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    /*  Update processing flags. */
+    cf_proc_update(outfits, CF_PRGM_ID, "COMPLETE");
+
+    FITS_close_file(infits, &status);
+    FITS_close_file(outfits, &status);
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished execution.");
+    return EXIT_SUCCESS;
+}
diff --git a/src/libcf/Makefile.Linux.orig b/src/libcf/Makefile.Linux.orig
new file mode 100644
index 0000000..43b2e31
--- /dev/null
+++ b/src/libcf/Makefile.Linux.orig
@@ -0,0 +1,152 @@
+LIBRARY=	libcf
+
+CALFUSEDIR=	${PWD}/../..
+SHARED=		-shared
+FITSVER=	2.470
+
+# Symbols for include directories
+FUSEINCLDIR=	-I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=		cc
+OPT=		-g -Wall -DCFORTRAN -Dg77Fortran -Df2cFortran
+CFLAGS=		${OPT} ${FUSEINCLDIR}
+
+FUSELIBDIR=	-L${CALFUSEDIR}/lib
+FUSELIBS=	-lcfitsio-${FITSVER} -lsla
+LIBS=		-lc -lm -lnsl -ldl -lgfortran
+LDFLAGS=	
+
+# Symbols used for creating shared libraries
+
+SO=		.so
+
+OBJS=		calfits.o sgp4.o eclipse.o saa.o \
+		state_limb.o state_geod.o space_vel.o helio_vel.o \
+		geod_mag.o pole_ang.o solar_ang.o lsrd_vel.o lsrk_vel.o \
+		month_day.o read_tle.o cf_velang.o \
+		set_orbit_parms.o cf_error_msg.o \
+		cf_cal_file.o cf_proc_check.o cf_proc_update.o \
+		cf_timestamp.o cf_fuv_init.o cf_header_io.o \
+		cf_check_digitizer.o cf_nint.o \
+		cf_idf_io.o cf_ids_dead_time.o cf_electronics_dead_time.o \
+		cf_fifo_dead_time.o cf_apply_dead_time.o \
+		cf_thermal_distort.o cf_count_rate_y_distort.o cf_time_xy_distort.o \
+		cf_geometric_distort.o cf_pha_x_distort.o \
+		cf_active_region.o cf_find_spectra.o cf_identify_channel.o \
+		cf_calculate_ycent_motion.o cf_source_aper.o\
+		cf_grating_motion.o cf_fpa_position.o cf_read_fpa_pos.o \
+		cf_make_mask.o cf_mirror_motion.o \
+		cf_satellite_jitter.o cf_calculate_y_centroid.o \
+		cf_target_count_rate.o \
+		cf_screen_jitter.o cf_screen_limb_angle.o cf_screen_saa.o \
+		cf_screen_high_voltage.o cf_screen_burst.o cf_screen_airglow.o \
+		cf_screen_bad_pixels.o cf_set_user_gtis.o \
+		cf_set_photon_flags.o cf_set_good_time_intervals.o \
+		cf_modify_hist_times.o cf_screen_pulse_height.o \
+		cf_convert_to_ergs.o cf_extraction_limits.o \
+		cf_astigmatism.o cf_dispersion.o cf_doppler_and_heliocentric.o \
+		cf_apply_filters.o cf_scale_bkgd.o \
+		cf_make_wave_array.o cf_rebin_background.o \
+		cf_rebin_probability_array.o cf_optimal_extraction.o \
+		cf_write_extracted_spectrum.o cf_standard_or_optimal_extraction.o \
+		cf_init_support.o cf_modify_hist_pha.o \
+		cf_fes_proc_check.o cf_fes_proc_update.o
+
+all:		${OBJS}
+		${CC} ${SHARED} -o ${LIBRARY}${SO} ${OBJS} \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+install:	all
+		chmod g+w ${OBJS} ${LIBRARY}${SO}
+		/bin/cp -p ${LIBRARY}${SO} ${CALFUSEDIR}/lib/${LIBRARY}${SO}
+
+clean: 
+	-	/bin/rm -f *.o ${LIBRARY}${SO} ${LIBRARY}${O}
+
+distclean: 
+	-	/bin/rm -f *.o ${LIBRARY}${SO} ${LIBRARY}${O}
+		cd ../../lib; /bin/rm -f ${LIBRARY}${SO}
+
+calfits.o: calfits.c
+sgp4.o: sgp4.c
+eclipse.o: eclipse.c
+set_orbit_parms.o: set_orbit_parms.c
+saa.o: saa.c
+state_limb.o: state_limb.c
+state_geod.o: state_geod.c
+space_vel.o: space_vel.c
+helio_vel.o: helio_vel.c
+geod_mag.o: geod_mag.c
+pole_ang.o: pole_ang.c
+solar_ang.o: solar_ang.c
+lsrd_vel.o: lsrd_vel.c
+lsrk_vel.o: lsrk_vel.c
+month_day.o: month_day.c
+read_tle.o: read_tle.c
+
+cf_error_msg.o: cf_error_msg.c
+cf_cal_file.o: cf_cal_file.c
+cf_fes_proc_check.o: cf_fes_proc_check.c
+cf_fes_proc_update.o: cf_fes_proc_update.c
+cf_proc_check.o: cf_proc_check.c
+cf_proc_update.o: cf_proc_update.c
+cf_fuv_init.o: cf_fuv_init.c
+cf_velang.o: cf_velang.c
+cf_timestamp.o: cf_timestamp.c
+
+cf_header_io.o: cf_header_io.c
+cf_check_digitizer.o: cf_check_digitizer.c
+cf_nint.o: cf_nint.c
+cf_idf_io.o: cf_idf_io.c
+cf_ids_dead_time.o: cf_ids_dead_time.c
+cf_electronics_dead_time.o: cf_electronics_dead_time.c
+cf_fifo_dead_time.o: cf_fifo_dead_time.c
+cf_apply_dead_time.o: cf_apply_dead_time.c
+cf_thermal_distort.o: cf_thermal_distort.c
+cf_count_rate_y_distort.o: cf_count_rate_y_distort.c
+cf_time_xy_distort.o : cf_time_xy_distort.c
+cf_geometric_distort: cf_geometric_distort.c
+cf_pha_x_distort.o: cf_pha_x_distort.c
+cf_active_region.o: cf_active_region.c
+cf_find_spectra.o: cf_find_spectra.c
+cf_identify_channel.o: cf_identify_channel.c
+cf_init_support.o: cf_init_support.c
+cf_target_count_rate.o: cf_target_count_rate.c
+cf_calculate_ycent_motion.o: cf_calculate_ycent_motion.c
+cf_source_aper.o: cf_source_aper.c
+cf_grating_motion.o: cf_grating_motion.c
+cf_fpa_position.o: cf_fpa_position.c
+cf_read_fpa_pos.o: cf_read_fpa_pos.c
+cf_make_mask.o: cf_make_mask.c
+cf_mirror_motion.o: cf_mirror_motion.c
+cf_satellite_jitter.o: cf_satellite_jitter.c
+cf_calculate_y_centroid.o: cf_calculate_y_centroid.c
+cf_screen_airglow.o: cf_screen_airglow.c
+cf_screen_bad_pixels.o: cf_screen_bad_pixels.c
+cf_screen_jitter.o: cf_screen_jitter.c
+cf_screen_limb_angle.o: cf_screen_limb_angle.c
+cf_screen_saa.o: cf_screen_saa.c
+cf_screen_high_voltage.o: cf_screen_high_voltage.c
+cf_screen_burst.o: cf_screen_burst.c
+cf_set_user_gtis.o: cf_set_user_gtis.c 
+cf_set_photon_flags.o: cf_set_photon_flags.c
+cf_set_good_time_intervals.o: cf_set_good_time_intervals.c
+cf_modify_hist_pha.o: cf_modify_hist_pha.c
+cf_modify_hist_times.o: cf_modify_hist_times.c
+cf_screen_pulse_height.o: cf_screen_pulse_height.c
+cf_convert_to_ergs.o: cf_convert_to_ergs.c
+cf_extraction_limits.o: cf_extraction_limits.c
+cf_astigmatism.o: cf_astigmatism.c
+cf_dispersion.o: cf_dispersion.c
+cf_doppler_and_heliocentric.o: cf_doppler_and_heliocentric.c
+cf_apply_filters.o: cf_apply_filters.c
+cf_scale_bkgd.o: cf_scale_bkgd.c
+cf_make_mask.o: cf_make_mask.c
+cf_make_wave_array.o: cf_make_wave_array.c
+cf_rebin_background.o: cf_rebin_background.c
+cf_rebin_probability_array.o: cf_rebin_probability_array.c
+cf_standard_or_optimal_extraction.o: cf_standard_or_optimal_extraction.c
+cf_optimal_extraction.o: cf_optimal_extraction.c
+cf_write_extracted_spectrum.o: cf_write_extracted_spectrum.c
+
diff --git a/src/libcf/Makefile.Linux64.orig b/src/libcf/Makefile.Linux64.orig
new file mode 100644
index 0000000..3b00b44
--- /dev/null
+++ b/src/libcf/Makefile.Linux64.orig
@@ -0,0 +1,151 @@
+LIBRARY=	libcf
+
+CALFUSEDIR=	${PWD}/../..
+SHARED=		-shared -fPIC
+
+# Symbols for include directories
+FUSEINCLDIR=	-I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=		cc
+OPT=		-g -Wall -DCFORTRAN -Dg77Fortran -Df2cFortran
+CFLAGS=		${OPT} ${FUSEINCLDIR}
+
+FUSELIBDIR=	-L${CALFUSEDIR}/lib
+FUSELIBS=	-lsla
+LIBS=		-lc -lm -lnsl -ldl -lgfortran -lcfitsio
+LDFLAGS=	
+
+# Symbols used for creating shared libraries
+
+SO=		.so
+
+OBJS=		calfits.o sgp4.o eclipse.o saa.o \
+		state_limb.o state_geod.o space_vel.o helio_vel.o \
+		geod_mag.o pole_ang.o solar_ang.o lsrd_vel.o lsrk_vel.o \
+		month_day.o read_tle.o cf_velang.o \
+		set_orbit_parms.o cf_error_msg.o \
+		cf_cal_file.o cf_proc_check.o cf_proc_update.o \
+		cf_timestamp.o cf_fuv_init.o cf_header_io.o \
+		cf_check_digitizer.o cf_nint.o \
+		cf_idf_io.o cf_ids_dead_time.o cf_electronics_dead_time.o \
+		cf_fifo_dead_time.o cf_apply_dead_time.o \
+		cf_thermal_distort.o cf_count_rate_y_distort.o cf_time_xy_distort.o \
+		cf_geometric_distort.o cf_pha_x_distort.o \
+		cf_active_region.o cf_find_spectra.o cf_identify_channel.o \
+		cf_calculate_ycent_motion.o cf_source_aper.o\
+		cf_grating_motion.o cf_fpa_position.o cf_read_fpa_pos.o \
+		cf_make_mask.o cf_mirror_motion.o \
+		cf_satellite_jitter.o cf_calculate_y_centroid.o \
+		cf_target_count_rate.o \
+		cf_screen_jitter.o cf_screen_limb_angle.o cf_screen_saa.o \
+		cf_screen_high_voltage.o cf_screen_burst.o cf_screen_airglow.o \
+		cf_screen_bad_pixels.o cf_set_user_gtis.o \
+		cf_set_photon_flags.o cf_set_good_time_intervals.o \
+		cf_modify_hist_times.o cf_screen_pulse_height.o \
+		cf_convert_to_ergs.o cf_extraction_limits.o \
+		cf_astigmatism.o cf_dispersion.o cf_doppler_and_heliocentric.o \
+		cf_apply_filters.o cf_scale_bkgd.o \
+		cf_make_wave_array.o cf_rebin_background.o \
+		cf_rebin_probability_array.o cf_optimal_extraction.o \
+		cf_write_extracted_spectrum.o cf_standard_or_optimal_extraction.o \
+		cf_init_support.o cf_modify_hist_pha.o \
+		cf_fes_proc_check.o cf_fes_proc_update.o
+
+all:		${OBJS}
+		${CC} ${SHARED} -o ${LIBRARY}${SO} ${OBJS} \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+install:	all
+		chmod g+w ${OBJS} ${LIBRARY}${SO}
+		/bin/cp -p ${LIBRARY}${SO} ${CALFUSEDIR}/lib/${LIBRARY}${SO}
+
+clean: 
+	-	/bin/rm -f *.o ${LIBRARY}${SO} ${LIBRARY}${O}
+
+distclean: 
+	-	/bin/rm -f *.o ${LIBRARY}${SO} ${LIBRARY}${O}
+		cd ../../lib; /bin/rm -f ${LIBRARY}${SO}
+
+calfits.o: calfits.c
+sgp4.o: sgp4.c
+eclipse.o: eclipse.c
+set_orbit_parms.o: set_orbit_parms.c
+saa.o: saa.c
+state_limb.o: state_limb.c
+state_geod.o: state_geod.c
+space_vel.o: space_vel.c
+helio_vel.o: helio_vel.c
+geod_mag.o: geod_mag.c
+pole_ang.o: pole_ang.c
+solar_ang.o: solar_ang.c
+lsrd_vel.o: lsrd_vel.c
+lsrk_vel.o: lsrk_vel.c
+month_day.o: month_day.c
+read_tle.o: read_tle.c
+
+cf_error_msg.o: cf_error_msg.c
+cf_cal_file.o: cf_cal_file.c
+cf_fes_proc_check.o: cf_fes_proc_check.c
+cf_fes_proc_update.o: cf_fes_proc_update.c
+cf_proc_check.o: cf_proc_check.c
+cf_proc_update.o: cf_proc_update.c
+cf_fuv_init.o: cf_fuv_init.c
+cf_velang.o: cf_velang.c
+cf_timestamp.o: cf_timestamp.c
+
+cf_header_io.o: cf_header_io.c
+cf_check_digitizer.o: cf_check_digitizer.c
+cf_nint.o: cf_nint.c
+cf_idf_io.o: cf_idf_io.c
+cf_ids_dead_time.o: cf_ids_dead_time.c
+cf_electronics_dead_time.o: cf_electronics_dead_time.c
+cf_fifo_dead_time.o: cf_fifo_dead_time.c
+cf_apply_dead_time.o: cf_apply_dead_time.c
+cf_thermal_distort.o: cf_thermal_distort.c
+cf_count_rate_y_distort.o: cf_count_rate_y_distort.c
+cf_time_xy_distort.o : cf_time_xy_distort.c
+cf_geometric_distort: cf_geometric_distort.c
+cf_pha_x_distort.o: cf_pha_x_distort.c
+cf_active_region.o: cf_active_region.c
+cf_find_spectra.o: cf_find_spectra.c
+cf_identify_channel.o: cf_identify_channel.c
+cf_init_support.o: cf_init_support.c
+cf_target_count_rate.o: cf_target_count_rate.c
+cf_calculate_ycent_motion.o: cf_calculate_ycent_motion.c
+cf_source_aper.o: cf_source_aper.c
+cf_grating_motion.o: cf_grating_motion.c
+cf_fpa_position.o: cf_fpa_position.c
+cf_read_fpa_pos.o: cf_read_fpa_pos.c
+cf_make_mask.o: cf_make_mask.c
+cf_mirror_motion.o: cf_mirror_motion.c
+cf_satellite_jitter.o: cf_satellite_jitter.c
+cf_calculate_y_centroid.o: cf_calculate_y_centroid.c
+cf_screen_airglow.o: cf_screen_airglow.c
+cf_screen_bad_pixels.o: cf_screen_bad_pixels.c
+cf_screen_jitter.o: cf_screen_jitter.c
+cf_screen_limb_angle.o: cf_screen_limb_angle.c
+cf_screen_saa.o: cf_screen_saa.c
+cf_screen_high_voltage.o: cf_screen_high_voltage.c
+cf_screen_burst.o: cf_screen_burst.c
+cf_set_user_gtis.o: cf_set_user_gtis.c 
+cf_set_photon_flags.o: cf_set_photon_flags.c
+cf_set_good_time_intervals.o: cf_set_good_time_intervals.c
+cf_modify_hist_pha.o: cf_modify_hist_pha.c
+cf_modify_hist_times.o: cf_modify_hist_times.c
+cf_screen_pulse_height.o: cf_screen_pulse_height.c
+cf_convert_to_ergs.o: cf_convert_to_ergs.c
+cf_extraction_limits.o: cf_extraction_limits.c
+cf_astigmatism.o: cf_astigmatism.c
+cf_dispersion.o: cf_dispersion.c
+cf_doppler_and_heliocentric.o: cf_doppler_and_heliocentric.c
+cf_apply_filters.o: cf_apply_filters.c
+cf_scale_bkgd.o: cf_scale_bkgd.c
+cf_make_mask.o: cf_make_mask.c
+cf_make_wave_array.o: cf_make_wave_array.c
+cf_rebin_background.o: cf_rebin_background.c
+cf_rebin_probability_array.o: cf_rebin_probability_array.c
+cf_standard_or_optimal_extraction.o: cf_standard_or_optimal_extraction.c
+cf_optimal_extraction.o: cf_optimal_extraction.c
+cf_write_extracted_spectrum.o: cf_write_extracted_spectrum.c
+
diff --git a/src/libcf/Makefile.MacOSX.orig b/src/libcf/Makefile.MacOSX.orig
new file mode 100644
index 0000000..eade1ea
--- /dev/null
+++ b/src/libcf/Makefile.MacOSX.orig
@@ -0,0 +1,152 @@
+LIBRARY=	libcf
+
+CALFUSEDIR=	${PWD}/../..
+SHARED=		-dynamiclib
+FITSVER=	2.470
+
+# Symbols for include directories
+FUSEINCLDIR=	-I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=		cc
+OPT=		-O3 -Wall -DCFORTRAN -Dg77Fortran -Df2cFortran
+CFLAGS=		${OPT} ${FUSEINCLDIR}
+
+FUSELIBDIR=	-L${CALFUSEDIR}/lib
+# FUSELIBS=	-lcfitsio-${FITSVER} -lsla
+FUSELIBS=	-lcfitsio -lsla
+LIBS=		-lc -lm -ldl -L/sw/lib/ -lgfortran
+
+# Symbols used for creating shared libraries
+
+SO=		.dylib
+
+OBJS=		calfits.o sgp4.o eclipse.o saa.o \
+		state_limb.o state_geod.o space_vel.o helio_vel.o \
+		geod_mag.o pole_ang.o solar_ang.o lsrd_vel.o lsrk_vel.o \
+		month_day.o read_tle.o cf_velang.o \
+		set_orbit_parms.o cf_error_msg.o \
+		cf_cal_file.o cf_proc_check.o cf_proc_update.o \
+		cf_timestamp.o cf_fuv_init.o cf_header_io.o \
+		cf_check_digitizer.o cf_nint.o \
+		cf_idf_io.o cf_ids_dead_time.o cf_electronics_dead_time.o \
+		cf_fifo_dead_time.o cf_apply_dead_time.o \
+		cf_thermal_distort.o cf_count_rate_y_distort.o cf_time_xy_distort.o \
+		cf_geometric_distort.o cf_pha_x_distort.o \
+		cf_active_region.o cf_find_spectra.o cf_identify_channel.o \
+		cf_calculate_ycent_motion.o cf_source_aper.o\
+		cf_grating_motion.o cf_fpa_position.o cf_read_fpa_pos.o \
+		cf_make_mask.o cf_mirror_motion.o \
+		cf_satellite_jitter.o cf_calculate_y_centroid.o \
+		cf_target_count_rate.o \
+		cf_screen_jitter.o cf_screen_limb_angle.o cf_screen_saa.o \
+		cf_screen_high_voltage.o cf_screen_burst.o cf_screen_airglow.o \
+		cf_screen_bad_pixels.o cf_set_user_gtis.o \
+		cf_set_photon_flags.o cf_set_good_time_intervals.o \
+		cf_modify_hist_times.o cf_screen_pulse_height.o \
+		cf_convert_to_ergs.o cf_extraction_limits.o \
+		cf_astigmatism.o cf_dispersion.o cf_doppler_and_heliocentric.o \
+		cf_apply_filters.o cf_scale_bkgd.o \
+		cf_make_wave_array.o cf_rebin_background.o \
+		cf_rebin_probability_array.o cf_optimal_extraction.o \
+		cf_write_extracted_spectrum.o cf_standard_or_optimal_extraction.o \
+		cf_init_support.o cf_modify_hist_pha.o \
+		cf_fes_proc_check.o cf_fes_proc_update.o
+
+all:		${OBJS}
+		${CC} ${SHARED} -o ${LIBRARY}${SO} ${OBJS} \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS}
+
+install:	all
+		chmod g+w ${OBJS} ${LIBRARY}${SO}
+		/bin/cp -p ${LIBRARY}${SO} ${CALFUSEDIR}/lib/${LIBRARY}${SO}
+
+clean: 
+	-	/bin/rm -f *.o ${LIBRARY}${SO} ${LIBRARY}${O}
+
+distclean: 
+	-	/bin/rm -f *.o ${LIBRARY}${SO} ${LIBRARY}${O}
+		cd ../../lib; /bin/rm -f ${LIBRARY}${SO}
+
+calfits.o: calfits.c
+sgp4.o: sgp4.c
+eclipse.o: eclipse.c
+set_orbit_parms.o: set_orbit_parms.c
+saa.o: saa.c
+state_limb.o: state_limb.c
+state_geod.o: state_geod.c
+space_vel.o: space_vel.c
+helio_vel.o: helio_vel.c
+geod_mag.o: geod_mag.c
+pole_ang.o: pole_ang.c
+solar_ang.o: solar_ang.c
+lsrd_vel.o: lsrd_vel.c
+lsrk_vel.o: lsrk_vel.c
+month_day.o: month_day.c
+read_tle.o: read_tle.c
+
+cf_error_msg.o: cf_error_msg.c
+cf_cal_file.o: cf_cal_file.c
+cf_fes_proc_check.o: cf_fes_proc_check.c
+cf_fes_proc_update.o: cf_fes_proc_update.c
+cf_proc_check.o: cf_proc_check.c
+cf_proc_update.o: cf_proc_update.c
+cf_fuv_init.o: cf_fuv_init.c
+cf_velang.o: cf_velang.c
+cf_timestamp.o: cf_timestamp.c
+
+cf_header_io.o: cf_header_io.c
+cf_check_digitizer.o: cf_check_digitizer.c
+cf_nint.o: cf_nint.c
+cf_idf_io.o: cf_idf_io.c
+cf_ids_dead_time.o: cf_ids_dead_time.c
+cf_electronics_dead_time.o: cf_electronics_dead_time.c
+cf_apply_dead_time.o: cf_apply_dead_time.c
+cf_fifo_dead_time.o: cf_fifo_dead_time.c
+cf_thermal_distort.o: cf_thermal_distort.c
+cf_count_rate_y_distort.o: cf_count_rate_y_distort.c
+cf_time_xy_distort.o : cf_time_xy_distort.c
+cf_geometric_distort: cf_geometric_distort.c
+cf_pha_x_distort.o: cf_pha_x_distort.c
+cf_active_region.o: cf_active_region.c
+cf_find_spectra.o: cf_find_spectra.c
+cf_identify_channel.o: cf_identify_channel.c
+cf_init_support.o: cf_init_support.c
+cf_target_count_rate.o: cf_target_count_rate.c
+cf_calculate_ycent_motion.o: cf_calculate_ycent_motion.c
+cf_source_aper.o: cf_source_aper.c
+cf_grating_motion.o: cf_grating_motion.c
+cf_fpa_position.o: cf_fpa_position.c
+cf_read_fpa_pos.o: cf_read_fpa_pos.c
+cf_make_mask.o: cf_make_mask.c
+cf_mirror_motion.o: cf_mirror_motion.c
+cf_satellite_jitter.o: cf_satellite_jitter.c
+cf_calculate_y_centroid.o: cf_calculate_y_centroid.c
+cf_screen_airglow.o: cf_screen_airglow.c
+cf_screen_bad_pixels.o: cf_screen_bad_pixels.c
+cf_screen_jitter.o: cf_screen_jitter.c
+cf_screen_limb_angle.o: cf_screen_limb_angle.c
+cf_screen_saa.o: cf_screen_saa.c
+cf_screen_high_voltage.o: cf_screen_high_voltage.c
+cf_screen_burst.o: cf_screen_burst.c
+cf_set_user_gtis.o: cf_set_user_gtis.c 
+cf_set_photon_flags.o: cf_set_photon_flags.c
+cf_set_good_time_intervals.o: cf_set_good_time_intervals.c
+cf_modify_hist_pha.o: cf_modify_hist_pha.c
+cf_modify_hist_times.o: cf_modify_hist_times.c
+cf_screen_pulse_height.o: cf_screen_pulse_height.c
+cf_convert_to_ergs.o: cf_convert_to_ergs.c
+cf_extraction_limits.o: cf_extraction_limits.c
+cf_astigmatism.o: cf_astigmatism.c
+cf_dispersion.o: cf_dispersion.c
+cf_doppler_and_heliocentric.o: cf_doppler_and_heliocentric.c
+cf_apply_filters.o: cf_apply_filters.c
+cf_scale_bkgd.o: cf_scale_bkgd.c
+cf_make_mask.o: cf_make_mask.c
+cf_make_wave_array.o: cf_make_wave_array.c
+cf_rebin_background.o: cf_rebin_background.c
+cf_rebin_probability_array.o: cf_rebin_probability_array.c
+cf_standard_or_optimal_extraction.o: cf_standard_or_optimal_extraction.c
+cf_optimal_extraction.o: cf_optimal_extraction.c
+cf_write_extracted_spectrum.o: cf_write_extracted_spectrum.c
+
diff --git a/src/libcf/Makefile.Solaris.orig b/src/libcf/Makefile.Solaris.orig
new file mode 100644
index 0000000..f817dfe
--- /dev/null
+++ b/src/libcf/Makefile.Solaris.orig
@@ -0,0 +1,152 @@
+LIBRARY=	libcf
+
+CALFUSEDIR=	${PWD}/../..
+SHARED=		-G
+FITSVER=	2.470
+
+# Symbols for include directories
+FUSEINCLDIR=	-I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=		cc
+# OPT=		-p -v -xO2 -xdepend -xchip=ultra -xarch=generic
+OPT=		-O -DCFORTRAN -KPIC
+CFLAGS=		${OPT} ${FUSEINCLDIR}
+
+FUSELIBDIR=	-L${CALFUSEDIR}/lib
+FUSELIBS=	-lcfitsio-${FITSVER} -lsla
+LIBS=		-lc -lm -lnsl -ldl -lsocket
+LDFLAGS=	
+
+# Symbols used for creating shared libraries
+
+SO=		.so
+
+OBJS=		calfits.o sgp4.o eclipse.o saa.o \
+		state_limb.o state_geod.o space_vel.o helio_vel.o \
+		geod_mag.o pole_ang.o solar_ang.o lsrd_vel.o lsrk_vel.o \
+		month_day.o read_tle.o cf_velang.o \
+		set_orbit_parms.o cf_error_msg.o \
+		cf_cal_file.o cf_proc_check.o cf_proc_update.o \
+		cf_timestamp.o cf_fuv_init.o cf_header_io.o \
+		cf_check_digitizer.o cf_nint.o \
+		cf_idf_io.o cf_ids_dead_time.o cf_electronics_dead_time.o \
+		cf_fifo_dead_time.o cf_apply_dead_time.o \
+		cf_thermal_distort.o cf_count_rate_y_distort.o cf_time_xy_distort.o \
+		cf_geometric_distort.o cf_pha_x_distort.o \
+		cf_active_region.o cf_find_spectra.o cf_identify_channel.o \
+		cf_calculate_ycent_motion.o cf_source_aper.o\
+		cf_grating_motion.o cf_fpa_position.o cf_read_fpa_pos.o \
+		cf_make_mask.o cf_mirror_motion.o \
+		cf_satellite_jitter.o cf_calculate_y_centroid.o \
+		cf_target_count_rate.o \
+		cf_screen_jitter.o cf_screen_limb_angle.o cf_screen_saa.o \
+		cf_screen_high_voltage.o cf_screen_burst.o cf_screen_airglow.o \
+		cf_screen_bad_pixels.o cf_set_user_gtis.o \
+		cf_set_photon_flags.o cf_set_good_time_intervals.o \
+		cf_modify_hist_times.o cf_screen_pulse_height.o \
+		cf_convert_to_ergs.o cf_extraction_limits.o \
+		cf_astigmatism.o cf_dispersion.o cf_doppler_and_heliocentric.o \
+		cf_apply_filters.o cf_scale_bkgd.o \
+		cf_make_wave_array.o cf_rebin_background.o \
+		cf_rebin_probability_array.o cf_optimal_extraction.o \
+		cf_write_extracted_spectrum.o cf_standard_or_optimal_extraction.o \
+		cf_init_support.o cf_modify_hist_pha.o \
+		cf_fes_proc_check.o cf_fes_proc_update.o
+
+all:		${OBJS}
+		${CC} ${SHARED} -o ${LIBRARY}${SO} ${OBJS} \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+install:	all
+		chmod g+w ${OBJS} ${LIBRARY}${SO}
+		/bin/cp -p ${LIBRARY}${SO} ${CALFUSEDIR}/lib/${LIBRARY}${SO}
+
+clean: 
+	-	/bin/rm -f *.o ${LIBRARY}${SO} ${LIBRARY}${O}
+
+distclean: 
+	-	/bin/rm -f *.o ${LIBRARY}${SO} ${LIBRARY}${O}
+		cd ../../lib; /bin/rm -f ${LIBRARY}${SO}
+
+calfits.o: calfits.c
+sgp4.o: sgp4.c
+eclipse.o: eclipse.c
+set_orbit_parms.o: set_orbit_parms.c
+saa.o: saa.c
+state_limb.o: state_limb.c
+state_geod.o: state_geod.c
+space_vel.o: space_vel.c
+helio_vel.o: helio_vel.c
+geod_mag.o: geod_mag.c
+pole_ang.o: pole_ang.c
+solar_ang.o: solar_ang.c
+lsrd_vel.o: lsrd_vel.c
+lsrk_vel.o: lsrk_vel.c
+month_day.o: month_day.c
+read_tle.o: read_tle.c
+
+cf_error_msg.o: cf_error_msg.c
+cf_cal_file.o: cf_cal_file.c
+cf_fes_proc_check.o: cf_fes_proc_check.c
+cf_fes_proc_update.o: cf_fes_proc_update.c
+cf_proc_check.o: cf_proc_check.c
+cf_proc_update.o: cf_proc_update.c
+cf_fuv_init.o: cf_fuv_init.c
+cf_velang.o: cf_velang.c
+cf_timestamp.o: cf_timestamp.c
+
+cf_header_io.o: cf_header_io.c
+cf_check_digitizer.o: cf_check_digitizer.c
+cf_nint.o: cf_nint.c
+cf_idf_io.o: cf_idf_io.c
+cf_ids_dead_time.o: cf_ids_dead_time.c
+cf_electronics_dead_time.o: cf_electronics_dead_time.c
+cf_apply_dead_time.o: cf_apply_dead_time.c
+cf_fifo_dead_time.o: cf_fifo_dead_time.c
+cf_thermal_distort.o: cf_thermal_distort.c
+cf_count_rate_y_distort.o: cf_count_rate_y_distort.c
+cf_time_xy_distort.o : cf_time_xy_distort.c
+cf_geometric_distort: cf_geometric_distort.c
+cf_pha_x_distort.o: cf_pha_x_distort.c
+cf_active_region.o: cf_active_region.c
+cf_find_spectra.o: cf_find_spectra.c
+cf_identify_channel.o: cf_identify_channel.c
+cf_init_support.o: cf_init_support.c
+cf_target_count_rate.o: cf_target_count_rate.c
+cf_calculate_ycent_motion.o: cf_calculate_ycent_motion.c
+cf_source_aper.o: cf_source_aper.c
+cf_grating_motion.o: cf_grating_motion.c
+cf_fpa_position.o: cf_fpa_position.c
+cf_read_fpa_pos.o: cf_read_fpa_pos.c
+cf_make_mask.o: cf_make_mask.c
+cf_mirror_motion.o: cf_mirror_motion.c
+cf_satellite_jitter.o: cf_satellite_jitter.c
+cf_calculate_y_centroid.o: cf_calculate_y_centroid.c
+cf_screen_airglow.o: cf_screen_airglow.c
+cf_screen_bad_pixels.o: cf_screen_bad_pixels.c
+cf_screen_jitter.o: cf_screen_jitter.c
+cf_screen_limb_angle.o: cf_screen_limb_angle.c
+cf_screen_saa.o: cf_screen_saa.c
+cf_screen_high_voltage.o: cf_screen_high_voltage.c
+cf_screen_burst.o: cf_screen_burst.c
+cf_set_user_gtis.o: cf_set_user_gtis.c 
+cf_set_photon_flags.o: cf_set_photon_flags.c
+cf_set_good_time_intervals.o: cf_set_good_time_intervals.c
+cf_modify_hist_pha.o: cf_modify_hist_pha.c
+cf_modify_hist_times.o: cf_modify_hist_times.c
+cf_screen_pulse_height.o: cf_screen_pulse_height.c
+cf_convert_to_ergs.o: cf_convert_to_ergs.c
+cf_extraction_limits.o: cf_extraction_limits.c
+cf_astigmatism.o: cf_astigmatism.c
+cf_dispersion.o: cf_dispersion.c
+cf_doppler_and_heliocentric.o: cf_doppler_and_heliocentric.c
+cf_apply_filters.o: cf_apply_filters.c
+cf_scale_bkgd.o: cf_scale_bkgd.c
+cf_make_mask.o: cf_make_mask.c
+cf_make_wave_array.o: cf_make_wave_array.c
+cf_rebin_background.o: cf_rebin_background.c
+cf_rebin_probability_array.o: cf_rebin_probability_array.c
+cf_standard_or_optimal_extraction.o: cf_standard_or_optimal_extraction.c
+cf_optimal_extraction.o: cf_optimal_extraction.c
+cf_write_extracted_spectrum.o: cf_write_extracted_spectrum.c
diff --git a/src/libcf/Makefile.orig.orig b/src/libcf/Makefile.orig.orig
new file mode 100644
index 0000000..f817dfe
--- /dev/null
+++ b/src/libcf/Makefile.orig.orig
@@ -0,0 +1,152 @@
+LIBRARY=	libcf
+
+CALFUSEDIR=	${PWD}/../..
+SHARED=		-G
+FITSVER=	2.470
+
+# Symbols for include directories
+FUSEINCLDIR=	-I${CALFUSEDIR}/include
+
+# Symbols used for compiling
+CC=		cc
+# OPT=		-p -v -xO2 -xdepend -xchip=ultra -xarch=generic
+OPT=		-O -DCFORTRAN -KPIC
+CFLAGS=		${OPT} ${FUSEINCLDIR}
+
+FUSELIBDIR=	-L${CALFUSEDIR}/lib
+FUSELIBS=	-lcfitsio-${FITSVER} -lsla
+LIBS=		-lc -lm -lnsl -ldl -lsocket
+LDFLAGS=	
+
+# Symbols used for creating shared libraries
+
+SO=		.so
+
+OBJS=		calfits.o sgp4.o eclipse.o saa.o \
+		state_limb.o state_geod.o space_vel.o helio_vel.o \
+		geod_mag.o pole_ang.o solar_ang.o lsrd_vel.o lsrk_vel.o \
+		month_day.o read_tle.o cf_velang.o \
+		set_orbit_parms.o cf_error_msg.o \
+		cf_cal_file.o cf_proc_check.o cf_proc_update.o \
+		cf_timestamp.o cf_fuv_init.o cf_header_io.o \
+		cf_check_digitizer.o cf_nint.o \
+		cf_idf_io.o cf_ids_dead_time.o cf_electronics_dead_time.o \
+		cf_fifo_dead_time.o cf_apply_dead_time.o \
+		cf_thermal_distort.o cf_count_rate_y_distort.o cf_time_xy_distort.o \
+		cf_geometric_distort.o cf_pha_x_distort.o \
+		cf_active_region.o cf_find_spectra.o cf_identify_channel.o \
+		cf_calculate_ycent_motion.o cf_source_aper.o\
+		cf_grating_motion.o cf_fpa_position.o cf_read_fpa_pos.o \
+		cf_make_mask.o cf_mirror_motion.o \
+		cf_satellite_jitter.o cf_calculate_y_centroid.o \
+		cf_target_count_rate.o \
+		cf_screen_jitter.o cf_screen_limb_angle.o cf_screen_saa.o \
+		cf_screen_high_voltage.o cf_screen_burst.o cf_screen_airglow.o \
+		cf_screen_bad_pixels.o cf_set_user_gtis.o \
+		cf_set_photon_flags.o cf_set_good_time_intervals.o \
+		cf_modify_hist_times.o cf_screen_pulse_height.o \
+		cf_convert_to_ergs.o cf_extraction_limits.o \
+		cf_astigmatism.o cf_dispersion.o cf_doppler_and_heliocentric.o \
+		cf_apply_filters.o cf_scale_bkgd.o \
+		cf_make_wave_array.o cf_rebin_background.o \
+		cf_rebin_probability_array.o cf_optimal_extraction.o \
+		cf_write_extracted_spectrum.o cf_standard_or_optimal_extraction.o \
+		cf_init_support.o cf_modify_hist_pha.o \
+		cf_fes_proc_check.o cf_fes_proc_update.o
+
+all:		${OBJS}
+		${CC} ${SHARED} -o ${LIBRARY}${SO} ${OBJS} \
+		${FUSELIBDIR} ${FUSELIBS} ${LIBS} ${LDFLAGS}
+
+install:	all
+		chmod g+w ${OBJS} ${LIBRARY}${SO}
+		/bin/cp -p ${LIBRARY}${SO} ${CALFUSEDIR}/lib/${LIBRARY}${SO}
+
+clean: 
+	-	/bin/rm -f *.o ${LIBRARY}${SO} ${LIBRARY}${O}
+
+distclean: 
+	-	/bin/rm -f *.o ${LIBRARY}${SO} ${LIBRARY}${O}
+		cd ../../lib; /bin/rm -f ${LIBRARY}${SO}
+
+calfits.o: calfits.c
+sgp4.o: sgp4.c
+eclipse.o: eclipse.c
+set_orbit_parms.o: set_orbit_parms.c
+saa.o: saa.c
+state_limb.o: state_limb.c
+state_geod.o: state_geod.c
+space_vel.o: space_vel.c
+helio_vel.o: helio_vel.c
+geod_mag.o: geod_mag.c
+pole_ang.o: pole_ang.c
+solar_ang.o: solar_ang.c
+lsrd_vel.o: lsrd_vel.c
+lsrk_vel.o: lsrk_vel.c
+month_day.o: month_day.c
+read_tle.o: read_tle.c
+
+cf_error_msg.o: cf_error_msg.c
+cf_cal_file.o: cf_cal_file.c
+cf_fes_proc_check.o: cf_fes_proc_check.c
+cf_fes_proc_update.o: cf_fes_proc_update.c
+cf_proc_check.o: cf_proc_check.c
+cf_proc_update.o: cf_proc_update.c
+cf_fuv_init.o: cf_fuv_init.c
+cf_velang.o: cf_velang.c
+cf_timestamp.o: cf_timestamp.c
+
+cf_header_io.o: cf_header_io.c
+cf_check_digitizer.o: cf_check_digitizer.c
+cf_nint.o: cf_nint.c
+cf_idf_io.o: cf_idf_io.c
+cf_ids_dead_time.o: cf_ids_dead_time.c
+cf_electronics_dead_time.o: cf_electronics_dead_time.c
+cf_apply_dead_time.o: cf_apply_dead_time.c
+cf_fifo_dead_time.o: cf_fifo_dead_time.c
+cf_thermal_distort.o: cf_thermal_distort.c
+cf_count_rate_y_distort.o: cf_count_rate_y_distort.c
+cf_time_xy_distort.o : cf_time_xy_distort.c
+cf_geometric_distort: cf_geometric_distort.c
+cf_pha_x_distort.o: cf_pha_x_distort.c
+cf_active_region.o: cf_active_region.c
+cf_find_spectra.o: cf_find_spectra.c
+cf_identify_channel.o: cf_identify_channel.c
+cf_init_support.o: cf_init_support.c
+cf_target_count_rate.o: cf_target_count_rate.c
+cf_calculate_ycent_motion.o: cf_calculate_ycent_motion.c
+cf_source_aper.o: cf_source_aper.c
+cf_grating_motion.o: cf_grating_motion.c
+cf_fpa_position.o: cf_fpa_position.c
+cf_read_fpa_pos.o: cf_read_fpa_pos.c
+cf_make_mask.o: cf_make_mask.c
+cf_mirror_motion.o: cf_mirror_motion.c
+cf_satellite_jitter.o: cf_satellite_jitter.c
+cf_calculate_y_centroid.o: cf_calculate_y_centroid.c
+cf_screen_airglow.o: cf_screen_airglow.c
+cf_screen_bad_pixels.o: cf_screen_bad_pixels.c
+cf_screen_jitter.o: cf_screen_jitter.c
+cf_screen_limb_angle.o: cf_screen_limb_angle.c
+cf_screen_saa.o: cf_screen_saa.c
+cf_screen_high_voltage.o: cf_screen_high_voltage.c
+cf_screen_burst.o: cf_screen_burst.c
+cf_set_user_gtis.o: cf_set_user_gtis.c 
+cf_set_photon_flags.o: cf_set_photon_flags.c
+cf_set_good_time_intervals.o: cf_set_good_time_intervals.c
+cf_modify_hist_pha.o: cf_modify_hist_pha.c
+cf_modify_hist_times.o: cf_modify_hist_times.c
+cf_screen_pulse_height.o: cf_screen_pulse_height.c
+cf_convert_to_ergs.o: cf_convert_to_ergs.c
+cf_extraction_limits.o: cf_extraction_limits.c
+cf_astigmatism.o: cf_astigmatism.c
+cf_dispersion.o: cf_dispersion.c
+cf_doppler_and_heliocentric.o: cf_doppler_and_heliocentric.c
+cf_apply_filters.o: cf_apply_filters.c
+cf_scale_bkgd.o: cf_scale_bkgd.c
+cf_make_mask.o: cf_make_mask.c
+cf_make_wave_array.o: cf_make_wave_array.c
+cf_rebin_background.o: cf_rebin_background.c
+cf_rebin_probability_array.o: cf_rebin_probability_array.c
+cf_standard_or_optimal_extraction.o: cf_standard_or_optimal_extraction.c
+cf_optimal_extraction.o: cf_optimal_extraction.c
+cf_write_extracted_spectrum.o: cf_write_extracted_spectrum.c
diff --git a/src/libcf/calfits.c b/src/libcf/calfits.c
new file mode 100644
index 0000000..29b3a08
--- /dev/null
+++ b/src/libcf/calfits.c
@@ -0,0 +1,658 @@
+/*****************************************************************************
+ *            Johns Hopkins University
+ *            Center For Astrophysical Sciences
+ *            FUSE
+ *****************************************************************************
+ *
+ * Description: Wrappers for cfitsio routines which includes error checking.
+ *
+ * History:     04/14/99        peb   Finished work on subset of routines
+ *                                    from cfitsio v2.031.  
+ *              04/15/99        emm   Replaced #include FITSIO.h with 
+ *                                    #include calfuse.h
+ *              04/15/99    barrett   Added FITS_get_rowsize.
+ *              04/16/99    barrett   Added FITS_get_hdu_num.
+ *              04/20/99    barrett   Added FITS_insert_key_[str, log, lng,
+ *                                      fixflt, flt, fixdbl, dbl, fixcmp,
+ *                                      cmp, fixdblcmp, dblcmp]
+ *              04/23/99    emurphy   Deleted error checking from
+ *                                    cf_get_hdu_num
+ *		04/04/01    kruk      Force casesen to FALSE in FITS_get_colnum
+ *              12/18/03    bjg       Change calfusettag.h to calfuse.h
+ *
+ ****************************************************************************/
+
+#include "fitsio.h"
+#include "calfuse.h"
+
+int FITS_open_file(fitsfile **fptr, const char *filename, int iomode,
+                   int *status)
+{
+    ffopen(fptr, filename, iomode, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_reopen_file(fitsfile *openfptr, fitsfile **newfptr, int *status)
+{
+    ffreopen(openfptr, newfptr, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_create_file(fitsfile **fptr, const char *filename, int *status)
+{
+    ffinit(fptr, filename, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_flush_file(fitsfile *fptr, int *status)
+{
+    ffflus(fptr, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_close_file(fitsfile *fptr, int *status)
+{
+    ffclos(fptr, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_delete_file(fitsfile *fptr, int *status)
+{
+    ffdelt(fptr, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_file_name(fitsfile *fptr, char *filename, int *status)
+{
+    ffflnm(fptr, filename, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_file_mode(fitsfile *fptr, int *filemode, int *status)
+{
+    ffflmd(fptr, filemode, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_write_record(fitsfile *fptr, const char *card, int *status)
+{
+    ffprec(fptr, card, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_write_key(fitsfile *fptr, int datatype, char *keyname, void *value,
+                   char *comm, int *status)
+{
+    ffpky(fptr, datatype, keyname, value,
+          comm, status);
+    if (*status) fprintf(stderr, "Error writing keyword %16.16s\n",keyname);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_write_comment(fitsfile *fptr, const char *comm, int *status)
+{
+    ffpcom(fptr, comm, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_write_history(fitsfile *fptr, const char *history, int *status)
+{
+    ffphis(fptr, history, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_write_date(fitsfile *fptr, int *status)
+{
+    ffpdat(fptr, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_copy_key(fitsfile *infptr,fitsfile *outfptr,int incol,int outcol,
+                  char *rootname, int *status)
+{
+    ffcpky(infptr,outfptr,incol,outcol,
+           rootname, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_write_imghdr(fitsfile *fptr, int bitpix, int naxis, long naxes[],
+                      int *status)
+{
+    ffphps( fptr, bitpix, naxis, naxes, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_write_grphdr(fitsfile *fptr, int simple, int bitpix, int naxis,
+                      long naxes[], long pcount, long gcount, int extend,
+                      int *status)
+{
+    ffphpr( fptr, simple, bitpix, naxis, naxes,
+            pcount, gcount, extend, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_write_btblhdr(fitsfile *fptr, long naxis2, int tfields, char **ttype,
+                       char **tform, char **tunit, char *extname, long pcount,
+                       int *status)
+{
+    ffphbn(fptr, naxis2, tfields, ttype,
+          tform, tunit, extname, pcount, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_get_hdrpos(fitsfile *fptr, int *nexist, int *position, int *status)
+{
+    ffghps(fptr, nexist, position, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_read_record(fitsfile *fptr, int nrec, char *card, int *status)
+{
+    ffgrec(fptr, nrec, card, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_read_card(fitsfile *fptr, char *keyname, char *card, int *status)
+{
+    ffgcrd(fptr, keyname, card, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_read_key(fitsfile *fptr, int datatype, char *keyname, void *value,
+                  char *comm, int *status)
+{
+    ffgky( fptr, datatype, keyname, value,
+           comm, status);
+    if (*status) fprintf(stderr, "Error reading keyword %16.16s\n",keyname);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_read_imghdr(fitsfile *fptr, int maxdim, int *simple, int *bitpix,
+                     int *naxis, long naxes[], long *pcount, long *gcount,
+                     int *extend, int *status)
+{
+    ffghpr(fptr, maxdim, simple, bitpix, naxis,
+          naxes, pcount, gcount, extend, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_read_btblhdr(fitsfile *fptr, int maxfield, long *naxis2, int *tfields,
+                      char **ttype, char **tform, char **tunit, char *extname,
+                      long *pcount, int *status)
+{
+    ffghbn(fptr, maxfield, naxis2, tfields,
+           ttype, tform, tunit, extname,
+           pcount, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_update_card(fitsfile *fptr, char *keyname, char *card, int *status)
+{
+    ffucrd(fptr, keyname, card, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_update_key(fitsfile *fptr, int datatype, char *keyname, void *value,
+                    char *comm, int *status)
+{
+    ffuky(fptr, datatype, keyname, value,
+          comm, status);
+    if (*status) fprintf(stderr, "Error updating keyword %16.16s\n",keyname);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_modify_record(fitsfile *fptr, int nkey, char *card, int *status)
+{
+    ffmrec(fptr, nkey, card, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_modify_card(fitsfile *fptr, char *keyname, char *card, int *status)
+{
+    ffmcrd(fptr, keyname, card, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_modify_comment(fitsfile *fptr, char *keyname, char *comm, int *status)
+{
+    ffmcom(fptr, keyname, comm, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_record(fitsfile *fptr, int nkey, char *card, int *status)
+{
+    ffirec(fptr, nkey, card, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_key_str(fitsfile *fptr, char *keyname, char *value,
+			char *comment, int *status)
+{
+    ffikys(fptr, keyname, value, comment, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_key_log(fitsfile *fptr, char *keyname, int value,
+			char *comment, int *status)
+{
+    ffikyl(fptr, keyname, value, comment, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_key_lng(fitsfile *fptr, char *keyname, long value,
+			char *comment, int *status)
+{
+    ffikyj(fptr, keyname, value, comment, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_key_flt(fitsfile *fptr, char *keyname, float value,
+			int decimals, char *comment, int *status)
+{
+    ffikye(fptr, keyname, value, decimals, comment, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_key_fixflt(fitsfile *fptr, char *keyname, float value,
+			   int decimals, char *comment, int *status)
+{
+    ffikyf(fptr, keyname, value, decimals, comment, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_key_dbl(fitsfile *fptr, char *keyname, double value,
+			int decimals, char *comment, int *status)
+{
+    ffikyd(fptr, keyname, value, decimals, comment, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_key_fixdbl(fitsfile *fptr, char *keyname, double value,
+			   int decimals, char *comment, int *status)
+{
+    ffikyg(fptr, keyname, value, decimals, comment, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_key_cmp(fitsfile *fptr, char *keyname, float *value,
+			int decimals, char *comment, int *status)
+{
+    ffikyc(fptr, keyname, value, decimals, comment, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_key_dblcmp(fitsfile *fptr, char *keyname, double *value,
+			   int decimals, char *comment, int *status)
+{
+    ffikym(fptr, keyname, value, decimals, comment, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_key_fixcmp(fitsfile *fptr, char *keyname, float *value,
+			   int decimals, char *comment, int *status)
+{
+    ffikfc(fptr, keyname, value, decimals, comment, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_key_fixdblcmp(fitsfile *fptr, char *keyname, double *value,
+			      int decimals, char *comment, int *status)
+{
+    ffikfm(fptr, keyname, value, decimals, comment, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_key_null(fitsfile *fptr, char *keyname, char *comment,
+			 int *status)
+{
+    ffikyu(fptr, keyname, comment, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_delete_key(fitsfile *fptr, char *keyname, int *status)
+{
+    ffdkey(fptr, keyname, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_delete_record(fitsfile *fptr, int keypos, int *status)
+{
+    ffdrec(fptr, keypos, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_get_hdu_num(fitsfile *fptr, int *hdunum)
+{
+    /* This routine returns the HDU number instead of status.  Therefore,
+     * it should not use any error checking. */
+    int status;
+    status = ffghdn(fptr, hdunum);
+    return status;
+}
+
+int FITS_get_hdu_type(fitsfile *fptr, int *exttype, int *status)
+{
+    ffghdt(fptr, exttype, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_movabs_hdu(fitsfile *fptr, int hdunum, int *exttype, int *status)
+{
+    ffmahd(fptr, hdunum, exttype, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_movrel_hdu(fitsfile *fptr, int hdumov, int *exttype, int *status)
+{
+    ffmrhd(fptr, hdumov, exttype, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_movnam_hdu(fitsfile *fptr, int exttype, char *hduname, int hduvers,
+                    int *status)
+{
+    ffmnhd(fptr, exttype, hduname, hduvers,
+           status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_get_num_hdus(fitsfile *fptr, int *nhdu, int *status)
+{
+    ffthdu(fptr, nhdu, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_create_img(fitsfile *fptr, int bitpix, int naxis, long *naxes,
+                    int *status)
+{
+    ffcrim(fptr, bitpix, naxis, naxes, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_create_tbl(fitsfile *fptr, int tbltype, long naxis2, int tfields,
+                    char **ttype, char **tform, char **tunit, char *extname,
+                    int *status)
+{
+    ffcrtb(fptr, tbltype, naxis2, tfields, ttype,
+           tform, tunit, extname, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_create_hdu(fitsfile *fptr, int *status)
+{
+    ffcrhd(fptr, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_img(fitsfile *fptr, int bitpix, int naxis, long *naxes,
+                    int *status)
+{
+    ffiimg(fptr, bitpix, naxis, naxes, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_atbl(fitsfile *fptr, long naxis1, long naxis2, int tfields,
+                     char **ttype, long *tbcol, char **tform, char **tunit,
+                     char *extname, int *status)
+{
+    ffitab(fptr, naxis1, naxis2, tfields, ttype,
+           tbcol, tform, tunit, extname, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_btbl(fitsfile *fptr,long naxis2, int tfields, char **ttype,
+                     char **tform, char **tunit, char *extname, long pcount,
+                     int *status)
+{
+    ffibin(fptr,naxis2, tfields, ttype, tform,
+           tunit, extname, pcount, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_delete_hdu(fitsfile *fptr, int *hdutype, int *status)
+{
+    ffdhdu(fptr, hdutype, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_copy_hdu(fitsfile *infptr, fitsfile *outfptr, int morekeys,
+                  int *status)
+{
+    ffcopy(infptr, outfptr, morekeys, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_copy_header(fitsfile *infptr, fitsfile *outfptr, int *status)
+{
+    ffcphd(infptr, outfptr, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_copy_data(fitsfile *infptr, fitsfile *outfptr, int *status)
+{
+    ffcpdt(infptr, outfptr, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_get_colnum(fitsfile *fptr, int casesen, char *templt, int  *colnum,
+                    int *status)
+{
+    /* force casesen to FALSE, in accordance with the FITS standard */
+    casesen = FALSE;
+    ffgcno(fptr, casesen, templt, colnum,
+           status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_get_colname(fitsfile *fptr, int casesen, char *templt, char *colname,
+                     int *colnum, int *status)
+{
+    ffgcnn(fptr, casesen, templt, colname,
+           colnum, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_get_coltype(fitsfile *fptr, int colnum, int *typecode, long *repeat,
+                     long *width, int *status)
+{
+    ffgtcl(fptr, colnum, typecode, repeat,
+           width, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_get_num_rows(fitsfile *fptr, long *nrows, int *status)
+{
+    ffgnrw(fptr, nrows, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_get_rowsize(fitsfile *fptr, long *nrows, int *status)
+{
+    ffgrsz(fptr, nrows, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_get_num_cols(fitsfile *fptr, int  *ncols, int *status)
+{
+    ffgncl(fptr, ncols, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_get_acolparms(fitsfile *fptr, int colnum, char *ttype, long *tbcol,
+                       char *tunit, char *tform, double *tscal, double *tzero,
+                       char *tnull, char *tdisp, int *status)
+{
+    ffgacl(fptr, colnum, ttype, tbcol,
+           tunit, tform, tscal, tzero,
+           tnull, tdisp, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_get_bcolparms(fitsfile *fptr, int colnum, char *ttype, char *tunit,
+                       char *dtype, long *repeat, double *tscal, double *tzero,
+                       long *tnull, char *tdisp, int  *status)
+{
+    ffgbcl(fptr, colnum, ttype, tunit,
+           dtype, repeat, tscal, tzero,
+           tnull, tdisp, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_read_img(fitsfile *fptr, int  datatype, long firstelem, long nelem,
+                  void *nulval, void *array, int *anynul, int  *status)
+{
+    ffgpv(fptr,  datatype, firstelem, nelem,
+          nulval, array, anynul, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_read_col( fitsfile *fptr, int datatype, int colnum, long firstrow,
+                   long firstelem, long nelem, void *nulval, void *array,
+                   int *anynul, int  *status)
+{
+    ffgcv( fptr, datatype, colnum, firstrow,
+           firstelem, nelem, nulval, array, anynul,
+           status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_write_img(fitsfile *fptr, int datatype, long  firstelem, long  nelem,
+                   void  *array, int  *status)
+{
+    ffppr(fptr, datatype,  firstelem,  nelem,
+          array, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_write_col(fitsfile *fptr, int datatype, int colnum, long firstrow,
+                   long firstelem, long nelem, void *array, int *status)
+{
+    ffpcl(fptr, datatype, colnum, firstrow,
+          firstelem, nelem, array, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_rows(fitsfile *fptr, long firstrow, long nrows, int *status)
+{
+    ffirow(fptr, firstrow, nrows, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_delete_rows(fitsfile *fptr, long firstrow, long nrows, int *status)
+{
+    ffdrow(fptr, firstrow, nrows, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_delete_rowlist(fitsfile *fptr, long *rownum,  long nrows, int *status)
+{
+    ffdrws(fptr, rownum,  nrows, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_col(fitsfile *fptr, int numcol, char *ttype, char *tform,
+                    int *status)
+{
+    fficol(fptr, numcol, ttype, tform, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_insert_cols(fitsfile *fptr, int firstcol, int ncols, char **ttype,
+                     char **tform, int *status)
+{
+    fficls(fptr, firstcol, ncols, ttype,
+           tform, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_delete_col(fitsfile *fptr, int numcol, int *status)
+{
+    ffdcol(fptr, numcol, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
+int FITS_copy_col(fitsfile *infptr, fitsfile *outfptr, int incol, int outcol, 
+                  int create_col, int *status)
+{
+    ffcpcl(infptr, outfptr, incol, outcol, 
+           create_col, status);
+    cf_if_fits_error(*status);
+    return *status;
+}
+
diff --git a/src/libcf/cf_active_region.c b/src/libcf/cf_active_region.c
new file mode 100644
index 0000000..8a3fd6e
--- /dev/null
+++ b/src/libcf/cf_active_region.c
@@ -0,0 +1,90 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_active_region(fitsfile *header, long nevents, float *xfarf,
+ *			float *yfarf, unsigned char *locflags)
+ *
+ * Description: Flags events outside of detector active area.
+ *
+ *		Note: Both cf_ttag_init and cf_hist_init set LOCATION_SHLD
+ *		when initializing IDF, but they look only at XRAW and use
+ *		limits that are less restrictive than those used here.
+ *
+ * Arguments:   fitsfile  *header       Pointer to FITS file containing the
+ *                                      header of the intermediate data file
+ *              long      nevents       The number of events
+ *              float     *xfarf        An array of event X positions
+ *              float     *yfarf        An array of event Y positions
+ *              unsigned char *locflags Location flags of each event
+ *
+ * Calls:
+ *
+ * Return:      0  on success
+ *
+ * History:     11/12/02   1.1    peb   Begin and finish work
+ *		03/11/03   1.2    wvd   Changed locflags to unsigned char
+ *              05/20/03   1.3    rdr   Added call to cf_proc_check 
+ *		07/29/03   1.4    wvd   If cf_proc_check fails, return errflg.
+ *              04/07/07   1.5    wvd	Clean up compiler warnings.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_active_region(fitsfile *header, long nevents, float *xfarf, float *yfarf,
+		 unsigned char *locflags)
+{
+    char CF_PRGM_ID[] = "cf_active_region";
+    char CF_VER_NUM[] = "1.5";
+
+    char  elecfile[FLEN_VALUE]={'\0'};
+    char  keyword[FLEN_KEYWORD]={'\0'}, detector[FLEN_VALUE]={'\0'};
+    int   errflg=0, status=0, active_l, active_r, active_b, active_t;
+    long  j;
+    fitsfile *elecfits=NULL;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    FITS_read_key(header, TSTRING, "DETECTOR", detector, NULL, &status);
+    /*
+     *  Read keywords from ELEC_CAL file
+     */
+    FITS_read_key(header, TSTRING, "ELEC_CAL", elecfile, NULL, &status);
+    FITS_open_file(&elecfits, cf_cal_file(elecfile), READONLY, &status);
+    sprintf(keyword, "ACTVL_%s", detector);
+    FITS_read_key(elecfits, TINT, keyword, &active_l, NULL, &status);
+    sprintf(keyword, "ACTVR_%s", detector);
+    FITS_read_key(elecfits, TINT, keyword, &active_r, NULL, &status);
+    sprintf(keyword, "ACTVB_%s", detector);
+    FITS_read_key(elecfits, TINT, keyword, &active_b, NULL, &status);
+    sprintf(keyword, "ACTVT_%s", detector);
+    FITS_read_key(elecfits, TINT, keyword, &active_t, NULL, &status);
+    FITS_close_file(elecfits, &status);
+    cf_verbose(3, "Active area limits: X from %d to %d, Y from %d to %d",
+	active_l, active_r, active_b, active_t);
+    /*
+     *  Apply active region flags to each event.
+     */
+    for(j=0; j active_r ||
+	    yfarf[j] < active_b || yfarf[j] > active_t) {
+	    locflags[j] |= LOCATION_SHLD;
+	}
+    }
+
+    cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return 0;
+}
diff --git a/src/libcf/cf_apply_dead_time.c b/src/libcf/cf_apply_dead_time.c
new file mode 100644
index 0000000..a714a28
--- /dev/null
+++ b/src/libcf/cf_apply_dead_time.c
@@ -0,0 +1,142 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_apply_dead_time(fitsfile *header, long nevents, float *time,
+ *                      float *weight, long nseconds, float *timeline, 
+ *			float *ids_dtc, float *elec_dtc)
+ *
+ * Description: Applies dead-time correction to all photons.  For HIST data,
+ *		uses mean of dead-time arrays.  Writes mean dead-time
+ *		values to file header.  Issue warning if DET_DEAD > 1.5.
+ *
+ * Arguments:   fitsfile  *header       Pointer to FITS file containing the
+ *                                      header of the intermediate data file
+ *              long      nevents       The number of events
+ *              float     *time         An array of event times
+ *              float     *weight       An array of event weights
+ *              long      nseconds      The number of timeline values
+ *              float     *timeline     An array of timeline times
+ *              float     *aic_rate     Active Image Counter rate
+ *              float     *ids_dtc      Output of cf_ids_dead_time
+ *              float     *elec_dtc     Output of cf_elec_dead_time
+ *
+ * Calls:
+ *
+ * Return:      0  on success
+ *
+ * History:     08/01/03   1.1    wvd   Begin work
+ *		08/04/03   1.2    wvd	Convert aic_rate to type short.
+ *		11/25/03   1.3    wvd	For HIST data, require that
+ *					mean_tot_dtc be >= 1.
+ *		11/26/03   1.4    wvd	Change aic_rate to type float.
+ *		02/09/04   1.5    wvd	Re-write with new logic.
+ *              04/09/04   1.6    bjg   Include stdlib.h
+ *		11/07/05   1.7    wvd	Add a test to catch bad DTC values.
+ *		03/10/06   1.8    wvd	Clean up i/o.
+ *		12/29/06   1.9    wvd	Check DET_DEAD rather than TOT_DEAD.
+ *		04/07/07   1.10   wvd	Clean up compiler errors.
+ *
+ ****************************************************************************/
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_apply_dead_time(fitsfile *header, long nevents, float *time, float *weight,
+	long nseconds, float *timeline, float *ids_dtc, float *elec_dtc)
+{
+    char CF_PRGM_ID[] = "cf_apply_dead_time";
+    char CF_VER_NUM[] = "1.10";
+
+    char comment[FLEN_CARD], datestr[FLEN_CARD], instmode[FLEN_VALUE];
+    char hkexists[FLEN_VALUE];
+    double ctimeb, ctimee, eng_time;
+    int  errflg=0, status=0, timeref;
+    int  det_flag=FALSE, ids_flag=FALSE;
+    long j, k;
+    float *tot_dtc, det_dead, ids_dead, mean_tot_dtc=0.;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    /* Read header keywords.  Set flag if DET_DEAD > 1.5 */
+    FITS_read_key(header, TSTRING, "INSTMODE", instmode, NULL, &status);
+    FITS_read_key(header, TSTRING, "HKEXISTS", hkexists, NULL, &status);
+    FITS_read_key(header, TFLOAT, "DET_DEAD", &det_dead, NULL, &status);
+    if (det_dead > 1.5) det_flag = TRUE;
+
+    /*
+     *  If there is no housekeeping file, AND the engineering snapshot times
+     *  are bad, AND the mean value of any DTC array is > 1.5, set the 
+     *  combined DTC array to unity and issue a warning.
+     */
+    if(!strncasecmp(hkexists, "N", 1)) {
+	FITS_read_key(header, TDOUBLE, "CTIME_B", &ctimeb, NULL, &status);
+        FITS_read_key(header, TDOUBLE, "CTIME_E", &ctimee, NULL, &status);
+        if ((eng_time = (ctimee-ctimeb) * 86400.) < 1.) {
+            FITS_read_key(header, TFLOAT, "IDS_DEAD", &ids_dead, NULL, &status);
+	    if (ids_dead > 1.5) ids_flag = TRUE;
+	}
+    }
+
+    /*
+     *  Compute total dead-time correction and its mean.
+     */
+    tot_dtc = (float *) cf_malloc(sizeof(float) * nseconds);
+    if (det_flag || ids_flag) {
+	for (k = 0; k < nseconds; k++) tot_dtc[k] = 1.0;
+	mean_tot_dtc = 1.0;
+    }
+    else {
+	for (k = 0; k < nseconds; k++) {
+	    tot_dtc[k] = elec_dtc[k] * ids_dtc[k];
+            mean_tot_dtc += tot_dtc[k];
+	}
+        mean_tot_dtc /= nseconds;
+    }
+
+    /* In TTAG mode, scale weights by tot_dtc as a function of time. */
+    if (!strncmp(instmode, "TTAG", 4)) for (j=k=0; j 1.)
+	for (j = 0; j < nevents; j++) 
+            weight[j] *= mean_tot_dtc;
+    else mean_tot_dtc = 1.;
+
+    cf_verbose(2, "Mean total dead-time correction: %f", mean_tot_dtc);
+    FITS_update_key(header, TFLOAT, "TOT_DEAD", &mean_tot_dtc, NULL, &status);
+
+    if (det_flag || ids_flag) {
+        FITS_write_comment(header, "  ", &status);
+	if (ids_flag) {
+	    sprintf(comment,
+		"IDS_DEAD > 1.5.  Setting dead-time correction to unity.");
+            cf_if_warning(comment);
+            FITS_write_comment(header, comment, &status);
+	}
+	if (det_flag) {
+	    sprintf(comment,
+		"DET_DEAD > 1.5.  Setting dead-time correction to unity.");
+            cf_if_warning(comment);
+            FITS_write_comment(header, comment, &status);
+	}
+        fits_get_system_time(datestr, &timeref, &status);
+        sprintf(comment, "CalFUSE v%s   %.10s", CALFUSE_VERSION, datestr);
+        FITS_write_comment(header, comment, &status);
+        FITS_write_comment(header, "  ", &status);
+    }
+
+    free (tot_dtc);
+    cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return 0;
+}
diff --git a/src/libcf/cf_apply_filters.c b/src/libcf/cf_apply_filters.c
new file mode 100644
index 0000000..ff47f21
--- /dev/null
+++ b/src/libcf/cf_apply_filters.c
@@ -0,0 +1,177 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_apply_filters(fitsfile *header, int tscreen, long nevents,
+ *                      unsigned char *timeflags, unsigned char *loc_flags,
+ *			long ntimes, unsigned char *gtiflags,
+ *			float *dtime, float *ntime, long *ngood, long **index)
+ *
+ * Description: Select photons that satisfy filter criteria
+ *
+ * Arguments:   fitsfile  *header       Pointer to FITS file containing the
+ *                                      header of the intermediate data file
+ *              int       tscreen       Flag indicating whether to screen on
+ *                                       time flags (yes if > 0)
+ *              long      nevents       The number of events
+ *              unsigned char *timeflags Photon event time flags
+ *              unsigned char *loc_flags Photon event location flags
+ *              long      ntimes        Number of entries in timeline table
+ *              unsigned char *gtiflags Status flags from timeline table
+ *              float     *dtime        Day time exposure length
+ *              float     *ntime        Night time exposure length
+ *              long      *ngood        Number of good photons
+ *              long      **index       List of good photon indexes
+ *
+ * Return:      status
+ *
+ * History:     02/19/03   1.1    peb   Begin work
+ *              03/20/03   1.2    peb   Fixed daytime and nighttime
+ *                                      calculation and fill header with
+ *                                      correct EXPTIME and EXPNIGHT value.
+ *              04/08/03   1.3    wvd   Get timeline-table arrays from 
+ *					calling routine.
+ *		05/10/03   1.4    wvd	Read DAYNIGHT from file header;
+ *					test only first character.
+ *              05/20/03   1.5    rdr   Move to top level HDU before reading
+ *                                      header keywords
+ *              06/09/03   1.6    rdr   Ignore timing flags in the screening
+ *                                      if tscreen is 0.
+ *              10/06/03   1.8    wvd	Properly deal with new format of
+ *					timeline table.
+ *              12/08/03   1.9    wvd	If tscreen is 0, ignore temporal
+ *					flags when calculating dtime & ntime.
+ *              02/11/04   1.10   wvd	Correct error in calculation of
+ *					dtime and ntime.
+ *              06/02/04   1.11   wvd	Mask BRST, SAA, and LIMB flags
+ *					when calculating exposure time
+ *					for HIST data.
+ *              06/10/04   1.12   wvd	Delete timeline times array from 
+ *					argument list.
+ *		01/27/05   1.13   wvd	Use TEMPORAL_MASK rather than
+ *					TEMPORAL_DAY to screen photon status
+ *					flags.  They differ only in HIST mode.
+ *		07/18/08   1.14   wvd	If EXP_STAT = 2, target is bright
+ *					earth or airglow.  Mask limb-angle flag.
+ *		08/22/08   1.15   wvd	Compare EXP_STAT with TEMPORAL_LIMB, 
+ *					rather than a particular value.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_apply_filters(fitsfile *header, int tscreen, long nevents, 
+	unsigned char *timeflags, unsigned char *loc_flags,
+	long ntimes, unsigned char *gtiflags,
+	long *dtime, long *ntime, long *ngood, long **index)
+{
+    char CF_PRGM_ID[] = "cf_apply_filters";
+    char CF_VER_NUM[] = "1.15";
+
+    char daynight[FLEN_VALUE], instmode[FLEN_VALUE];
+    int  day=0, expstat, night=0, status=0;
+    long j;
+    float exptime;
+    unsigned char TEMPORAL_MASK;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    /* 
+     *  Read INSTMODE keyword.  If in HIST mode, mask out
+     *  LIMB, SAA, and BRST flags.  TEMPORAL_DAY is the default.
+     */
+    TEMPORAL_MASK = TEMPORAL_DAY;
+    FITS_read_key(header, TSTRING, "INSTMODE", instmode, NULL, &status);
+    if (!strncmp(instmode, "HIST", 4)) {
+	TEMPORAL_MASK |= TEMPORAL_LIMB;
+	TEMPORAL_MASK |= TEMPORAL_SAA;
+	TEMPORAL_MASK |= TEMPORAL_BRST;
+    }
+    /*
+     * If EXP_STAT = TEMPORAL_LIMB, target is bright earth or airglow.  
+     * Mask limb-angle flag.
+     */
+    FITS_read_key(header, TINT, "EXP_STAT", &expstat, NULL, &status);
+    if (expstat == (int) TEMPORAL_LIMB) TEMPORAL_MASK |= TEMPORAL_LIMB;
+
+    /*
+     *  Calculate day/night exposure time.
+     *  If tscreen is 0, ignore the temporal flags (other than day/night).
+     */
+    *dtime = *ntime = 0.;
+    for (j=0; j exptime/10.)
+	cf_if_warning("Sum of day and night time differs from EXPTIME by > 10%%");
+
+    /*
+     *  Apply screening to each photon event.
+     *  First mask out airglow and day flags and test for zero
+     *  (good) values.  Next, see if the user wants daytime,
+     *  night time, or both and confirm that appropriate flag is set.
+     */
+
+    *index = (long *) cf_calloc(nevents, sizeof(long));
+
+    if (tscreen) {
+        for(*ngood=j=0; j
+#include 
+#include 
+#include "calfuse.h"
+
+static char CF_PRGM_ID[] = "cf_astig_farf";
+static char CF_VER_NUM[] = "1.9";
+
+
+/* 
+ * Add astigmatism correction to XFARF for each photon within target
+ * aperture.  Note that spectrum centroid moves with time.
+ */
+static int
+farf_astig_shifts(fitsfile *header, long nevents, float *xfarf, 
+	float *yfarf, unsigned char *channel, float *photon_time, 
+	long nseconds, float *timeline_time, float *ycentl, float *ycents)
+{
+    char        astig_file[FLEN_VALUE];
+    int   	status=0;
+    int   	active_ap[2], ap, ast_cen, extno, overflow=0;
+    long	i, j, k;
+    long  	npix, nx, ny, ii, jj, kk;
+    float 	yoff;
+    float       *astig=NULL, *centroid=NULL;
+    fitsfile    *astigfits;
+
+    /* Read target apertures from the file header */
+    (void) cf_source_aper (header, active_ap);
+
+    /* Open the astigmatism file */
+    FITS_read_key(header, TSTRING, "ASTG_CAL", astig_file, NULL, &status);
+    FITS_open_file(&astigfits, cf_cal_file(astig_file), READONLY, &status);
+
+    /*   Since we presently have no astig correction for extended
+     *   sources, we apply correction only to target aperture.
+     */
+    for (i = 0; i < 2; i++) {
+
+        ap = active_ap[i];
+	if (i == 0) 
+	    centroid = ycentl;
+	else
+	    centroid = ycents;
+
+        /* Read astigmatism correction for this aperture */
+        extno = ap+1;
+        cf_verbose(3, "Reading extension %d of %s", extno, astig_file);
+        FITS_movabs_hdu(astigfits, extno, NULL, &status);
+        FITS_read_key(astigfits, TINT, "SLIT_CEN", &ast_cen, NULL, &status);
+        FITS_read_key(astigfits, TLONG, "NAXIS1", &nx, NULL, &status);
+        FITS_read_key(astigfits, TLONG, "NAXIS2", &ny, NULL, &status);
+
+        npix = nx * ny;
+        astig = (float *) cf_malloc(sizeof(float) * npix);
+        FITS_read_img(astigfits, TFLOAT, 1L, npix, 0, astig, NULL, &status);
+
+	/* Go through the photon list, find the astigmatism (delta(X)) 
+         * corresponding to the (xfarf, yfarf) position and channel,
+	 * and add it to xfarf[k].
+	 */
+	k = 0;
+        for (j = 0; j < nevents; j++) {
+            if (channel[j] == ap) {
+                while ((photon_time[j] > timeline_time[k+1] - FRAME_TOLERANCE)
+		    && (k < nseconds-1)) {
+                    k++;
+                }
+
+        	/* Determine offset between spectrum and astig correction file. */
+        	yoff = centroid[k] - ast_cen;
+
+		/* Find the astigmatism correction appropriate 
+		   to the photon's (xfarf, yfarf) position. */
+                if ((ii = (xfarf[j] + 0.5)) >= nx) {overflow = 1; continue;};
+                if ((jj = (yfarf[j] - yoff + 0.5)) >= ny) {overflow = 1; continue;}
+                if ((kk = jj * nx + ii) >= npix) {overflow = 1; continue;}
+                xfarf[j] += astig[kk];
+            }
+        }
+
+        /* If overflow flag is set, there is a problem with the ASTG_CAL file. */
+	if (overflow)
+    	    cf_if_warning("Overflow of ASTG_CAL file in aperture %d", ap);
+
+        /* Space for astig array is allocated in each loop. */
+        free(astig);
+    }
+
+    FITS_close_file(astigfits, &status);
+    return status;
+}
+
+int cf_astig_farf(fitsfile *header, long nevents, float *xfarf, float *yfarf, 
+		  unsigned char *channel, float *photon_time, long nseconds, 
+		  float *timeline_time, float *ycentl, float *ycents)
+{
+    int 	errflg=0, status=0;
+
+    /* Enter a timestamp into the log. */
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    /* Check that astigmatism correction is appropriate for input image */
+    if (astig_check_input_image(header) == 1) {
+
+        /* Read astigmatism corrections for each aperture, add to XFARF */
+        farf_astig_shifts(header, nevents, xfarf, yfarf, channel,
+		photon_time, nseconds, timeline_time, ycentl, ycents);
+    }
+
+    /* Update processing flags. */
+    cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done Processing");
+    return (status);
+}
diff --git a/src/libcf/cf_astigmatism.c b/src/libcf/cf_astigmatism.c
new file mode 100644
index 0000000..e02f361
--- /dev/null
+++ b/src/libcf/cf_astigmatism.c
@@ -0,0 +1,198 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Description: Modifies X array to correct for instrumental astigmatism.
+ *
+ *		Since we have no astigmatism correction for extended 
+ *		sources, this program does not attempt to apply one.
+ *
+ *              In keeping with the CalFUSE standard, the astigmatism 
+ *		correction is added to the measured X position of each photon.
+ *		Versions of the ASTG_CAL file prior to v009 have the opposite 
+ *		sign and are incompatible with this version of the program.
+ *                    
+ * Returns:     0 upon successful completion.
+ *
+ * History:     12/02/02   1.1   jch	Adapt from cf_astig.c
+ *		12/20/02   1.2   wvd	Install
+ *		02/11/03   1.3   wvd	Apply astig correction only if 
+ *					YCENT# > O for target aperture.
+ *					Add ASTG_KEY keyword.  Comment field:
+ *					Performed? 1=LiF, 2=SiC, 3=Both
+ *		02/13/03   1.4   wvd	Change all indices to type long.
+ *              02/24/03   1.5   peb    Changed include file to calfusettag.h
+ *              03/04/03   1.6   peb    Removed unused variables and math.h.
+ *                                      Corrected sprintf:185 argument error.
+ *		03/11/03   1.7   wvd	Change channel to type char
+ *		03/12/03   1.8   wvd	If wavelength undefined, set
+ *					channel[k] = 0
+ *		04/04/03   1.9   wvd	Test for overflow of astig array.
+ *		04/07/03   1.10  wvd	Delete test for quality of YCENT.
+ *					Delete ASTG_KEY keyword.
+ *					Don't round yoff to nearest integer.
+ *		04/09/03   1.11  wvd	Write name of ASTG_CAL file to trailer.
+ *              05/20/03   1.12  rdr    Added call to cf_proc_check
+ *              09/16/03   1.13  wvd    Change sign of ASTG_CAL file so that
+ *					correction is additive.
+ *              09/22/03   1.14  wvd    Initialize overflow counter.
+ *					Print out number of overflows.
+ *              10/17/03   1.15  wvd    Discard photons that fall outside of 
+ *					the astigmatism-correction window.
+ *              10/31/03   1.16  wvd    Change channel to unsigned char.
+ *              11/11/03   1.17  wvd    Interpolate between tabulated
+ *					wavelength values.  Use cf_read_col
+ *					to read wavecal files.
+ *              02/17/04   1.18  wvd    Replace cf_nint() with cf_nlong()
+ *              03/02/04   1.19  wvd    Change name of assign_wavelengths
+ *					to cf_x2lambda and make it
+ *					generally accessible.
+ *              07/16/04   1.20  wvd    Must change ASTG_COR to COMPLETE or
+ *					SKIPPED by hand.
+ *              02/18/05   1.21  wvd    Add some diagnostic output.
+ *              11/30/05   1.22  wvd    Don't complain when photon events
+ *					fall outside of astig images.
+ *              05/15/06   1.23  wvd    Divide cf_astigmatism_and_dispersion
+ *					into two separate routines.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+static char CF_PRGM_ID[] = "cf_astigmatism";
+static char CF_VER_NUM[] = "1.23";
+
+
+/* 
+ * Loop over the apertures, read appropriate astigmatism correction,
+ * and add to the input X shifts of pixels within extraction window.
+ */
+static int
+add_astig_shifts(fitsfile *infits, long nevents, float *x, float *y,
+	unsigned char *channel)
+{
+    char  	astig_file[FLEN_VALUE], keyword[FLEN_VALUE];
+    int   	status=0;
+    int   	ap, active_ap[2], ast_cen, extno, i, overflow;
+    long  	k, ii, jj, kk, npix, nx, ny;
+    float 	centroid, yoff;
+    float 	*astig=NULL;
+    fitsfile 	*astigfits;
+
+    /* Read target apertures from the file header */
+    (void) cf_source_aper (infits, active_ap);
+
+    /* Open the astigmatism file */
+    FITS_read_key(infits, TSTRING, "ASTG_CAL", astig_file, NULL, &status);
+    FITS_open_file(&astigfits, cf_cal_file(astig_file), READONLY, &status);
+
+    /*   Since we presently have no astig correction for extended
+     *   sources, we apply correction only to target aperture.
+     */
+    for (i = 0; i < 2; i++) {
+	ap = active_ap[i];
+
+	/* Read the centroid of the aperture from the input file. */
+	sprintf(keyword, "YCENT%1d", ap); 
+    	FITS_read_key(infits, TFLOAT, keyword, ¢roid, NULL, &status);
+        cf_verbose(3, "Target aperture: %d\t Y centroid: %f", ap, centroid);
+
+	/* Read astigmatism correction for this aperture */
+	extno = ap+1;
+	cf_verbose(3, "Reading extension %d of %s", extno, astig_file);
+	FITS_movabs_hdu(astigfits, extno, NULL, &status);
+	FITS_read_key(astigfits, TINT, "SLIT_CEN", &ast_cen, NULL, &status);
+	FITS_read_key(astigfits, TLONG, "NAXIS1", &nx, NULL, &status);
+	FITS_read_key(astigfits, TLONG, "NAXIS2", &ny, NULL, &status);
+
+	npix = nx * ny;
+	astig = (float *) cf_malloc(sizeof(float) * npix);
+	FITS_read_img(astigfits, TFLOAT, 1L, npix, 0, astig, NULL, &status);
+
+	/* Determine offset between spectrum and astig correction file */
+	yoff = centroid - ast_cen;
+	cf_verbose(3, "Offset between spectrum and astig correction: %f", yoff);
+
+	/*  Go through the event list and find the astigmatism correction
+	 *  appropriate for the photon's (x, y) position.
+	 */
+	overflow = 0;
+	for (k = 0; k < nevents; k++) {
+	    if (channel[k] == ap) {
+		if (((ii = cf_nlong(x[k])) < 0 || ii >= nx) ||
+		    ((jj = cf_nlong(y[k] - yoff)) < 0 || jj >= ny) ||
+		    ((kk = jj * nx + ii) >= npix)) {
+			channel[k] = 0;
+			overflow++;
+			cf_verbose(3, "Cannot correct pixel %05ld (%f, %f)",
+				k, x[k], y[k]);
+		}
+		else x[k] += astig[kk]; 
+	    } 
+	}
+	/* If overflow flag is set, there is a problem either with
+		the ASTG_CAL file or the input photon list.
+	if (overflow)
+    	    cf_if_warning("%d events fell outside of aperture %d ASTG_CAL window",
+		overflow, ap);
+	Comment this out, as it is always triggered by cf_bad_pixels. - wvd (11/30/05) */
+
+        /* Space for astig array is allocated in each loop. */
+	free(astig);
+    	cf_verbose(3, "End of loop for aperture %d", ap);
+    }
+
+    FITS_close_file(astigfits, &status);
+    return status;
+}
+
+
+/*
+ *  If APERTURE = RFPT or target is not a point source, exit without
+ *  applying an astigmatism correction.
+ */
+int cf_astigmatism(fitsfile *infits, long nevents, float *x,
+	float *y, unsigned char *channel)
+{
+    char 	aperture[FLEN_VALUE];
+    char	source_type[FLEN_VALUE];
+    int 	errflg=0, fileok=TRUE, status=0;
+
+    /* Enter a timestamp into the log. */
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    if ((errflg = cf_proc_check(infits, CF_PRGM_ID))) return errflg;
+
+    FITS_read_key(infits, TSTRING, "APERTURE", aperture, NULL, &status);
+    if (!strncmp(aperture, "RFPT", 4)) {
+        cf_verbose(1, "Aperture is RFPT. No astig correction applied.");
+	fileok = FALSE;
+    }
+
+    /* Check source type */
+    FITS_read_key(infits, TSTRING, "SRC_TYPE", source_type, NULL, &status);
+    if (strncmp(source_type, "P", 1)) {
+	cf_verbose(1, "Source type is %s. No astig correction applied.",
+	    source_type);
+	fileok = FALSE;
+    }
+
+    if (fileok) {
+        add_astig_shifts(infits, nevents, x, y, channel);
+	cf_proc_update(infits, CF_PRGM_ID, "COMPLETE");
+    }
+    else
+	cf_proc_update(infits, CF_PRGM_ID, "SKIPPED");
+
+    /* Update processing flags. */
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done Processing");
+
+    return fileok;
+}
diff --git a/src/libcf/cf_cal_file.c b/src/libcf/cf_cal_file.c
new file mode 100644
index 0000000..59c873d
--- /dev/null
+++ b/src/libcf/cf_cal_file.c
@@ -0,0 +1,84 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_cal_file(char *calfile)
+ *
+ * Description: Returns a pointer to a string with the full calibration 
+ *              path (from the CF_CALDIR environment variable) prepended 
+ *              to the given file name.
+ *
+ * Arguments:   char    *calfile        Name of the calibration file.
+ *
+ * Returns:     A pointer to a string which contains the full path filename.
+ *
+ * History:     02/26/99       emurphy  Begin and finish work.
+ *              03/01/99       emurphy  Added some error checking
+ *              03/02/99       emurphy  Added use of cf_if_warning
+ *              04/04/99       emurphy  removed cf_error_init
+ *              04/08/99       barrett  replaced fitsio.h with calfuse.h
+ *              05/18/99       emurphy  Added checks on strlen and ending "/"
+ *              06/04/99          peb   Removed 160 character string limit
+ *                                      Added cf_malloc function.
+ *              08/05/99       emurphy  Created cf_populate_file, to support
+ *                                      cf_cal_file and cf_hist_file.c
+ *              08/25/99       emurphy  Added cf_parm_file for parameter files.
+ *              12/18/03       bjg      Change calfusettag.h to calfuse.h
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+static char
+*cf_populate_file(char *calfile, char *enviro_name)
+{
+    char *enviro, *filen;
+    int strl, strt;
+
+    enviro = getenv(enviro_name);
+
+    if (enviro) {
+        strl = strlen(enviro);
+	strt = strl + strlen(calfile) + 16;
+
+	filen = cf_malloc(strt);
+        strcpy(filen, enviro);
+
+        /* Check to see if last character is a "/" */
+        if (strncmp(filen+strl-1, "/", 1)!=0)
+             strcat(filen, "/");
+
+        strcat(filen, calfile);
+        return filen;
+    }
+    else {
+        printf("Environment variable %-20.20s undefined.",enviro_name);
+        cf_if_warning("Environment variable undefined");
+        return calfile;
+    }
+}
+
+char *cf_cal_file(char *calfile)
+{
+
+     return cf_populate_file(calfile, "CF_CALDIR");
+
+}
+
+char *cf_hist_file(char *calfile)
+{
+
+     return cf_populate_file(calfile, "CF_HISTDIR");
+
+}
+
+char *cf_parm_file(char *calfile)
+{
+
+     return cf_populate_file(calfile, "CF_PARMDIR");
+
+}
diff --git a/src/libcf/cf_calculate_y_centroid.c b/src/libcf/cf_calculate_y_centroid.c
new file mode 100644
index 0000000..ebcd264
--- /dev/null
+++ b/src/libcf/cf_calculate_y_centroid.c
@@ -0,0 +1,289 @@
+/**************************************************************************
+ *           Johns Hopkins University
+ *           Center for Astrophysical Sciences
+ *           FUSE
+ **************************************************************************
+ *
+ * Synopsis:    cf_calculate_y_centroid(infits, nevents, weight, x, y,
+ *			channel, timeflags, locflags)
+ *
+ * Description: Determines the y centroid of the target and airglow spectra
+ *              in each aperture.  The value written to the header depends
+ *		on the quality flag for each channel in the IDF header.
+ *		If QUALITY = HIGH, the target centroid is used; if MEDIUM,
+ *		the airglow centroid is used; if LOW, the default centroid
+ *		(from the CHID_CAL file) is used.
+ *
+ * Arguments:   fitsfile infits   Pointer to the input Intermediate Data File
+ *              long     nevents  Number of photon events in the file
+ *		float	 weight   Scale factor for each photon
+ *              float    *x, *y   X and Y positions of the photon
+ *       unsigned char  *channel  Aperture associated with each photon
+ *       unsigned char *timeflags Time flags - used to identify photons
+ *                                  arriving during bursts, etc.
+ *       unsigned char *locflags  Location flags - used to identify photons
+ *                                  in geocoronal line regions
+ *
+ * Calibration files required: 
+ *
+ * Returns: 0 on success
+ *                                
+ * HISTORY:     10/16/02    v1.1   RDR  started work
+ *              12/02/02    v1.2   RDR  cleaned up variables
+ *		12/12/02    v1.3   wvd	added include files
+ *              12/26/02    v1.4   RDR  corrected error in calculating centroid
+ *              02/24/03    v1.5   peb  changed include file to calfitsio.h
+ *		03/11/03    v1.6   wvd  Changed screen to unsigned char
+ *              03/25/03    v1.7   rdr  ignore pinhole aperture
+ *		04/03/03    v1.9   wvd  Simplify calculation of centroid.
+ *					Include airglow in centroid
+ *					calculation of non-target apertures.
+ *					Replace printf() with cf_verbose().
+ *		04/17/03    v1.10  wvd  Fix bug in calculation of non-target
+ *					centroids.
+ *		04/18/03    v1.11  wvd  Call cf_proc_update only if final_call
+ *					is TRUE.  Scale YCENT by photon weight
+ *					for use with HIST data.  Changed
+ *					screen to locflags.
+ *              05/20/03    v1.12  rdr  Added call to cf_proc_check
+ *              05/22/03    v1.14  wvd	cf_error_init to stderr
+ *              08/21/03    v1.16  wvd	Change channel to unsigned char
+ *              09/02/03    v1.17  bjg  Now read user-specified centroid 
+ *                                      information from PARM_CAL and
+ *                                      expected centroids from CHID_CAL.
+ *              09/02/03    v1.18  wvd	Tidy up code.
+ *              09/17/03    v1.19  wvd	Return -1 if a target centroid
+ *					is too far from expected value.
+ *              10/28/03    v1.20  wvd	Rewrite program with new logic.
+ *					Delete use of final_call.
+ *              11/12/03    v1.21  wvd	If no photons in channel, don't
+ *					crash, just use default centroid.
+ *					If quality = LOW, ygeo = ycent.
+ *              04/09/04    v1.22  bjg  Include string.h and stdio.h
+ *              06/04/04    v1.23  wvd	Use photon time flags to exclude
+ *					bursts, etc. from calculation.
+ *              08/18/04    v1.24  wvd	Test all spectra to see whether
+ *					centroid is out of bounds.
+ *		03/11/05    v1.25  wvd  Tabulate centroids as doubles,
+ *					then convert to floats.
+ *					Write target centroid values
+ *					to trailer file if verbose >= 2.
+ *		04/15/05    v1.26  wvd  Clean up i/o.
+ *		04/26/05    v1.27  wvd  Don't populate YGEO keywords, as
+ *					they are wrong for point sources.
+ *					Consider only events with good
+ *					LOCATION flags.
+ *					Use the largest aperture with a valid
+ *					YGEO to determine offset from tabulated
+ *					position.  Use this shift to calculate 
+ *					ygeo for the smaller apertures. 
+ *		05/18/05    v1.28  wvd  Test both SPEX_LIF and SPEX_SIC.
+ *					Don't override user-specified centroid,
+ *					even if it's far from expected value.
+ *					Fix bug in tabulation of expected
+ *					Y centroids.
+ *		02/01/06    v1.29  wvd  If ycent is too far from default value,
+ *					use default value, not airglow centroid.
+ *					Allow computation of yshift from
+ *					airglow photons in target aperture.
+ *		11/25/08    1.30 wvd	In HIST mode, there are no spectra in
+ *					other apertures to cause confusion,
+ *					so we need not require that the target
+ *					centroid lie within X pixels of either
+ *					the airglow or tabulated centroid.
+ *
+ **************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+int cf_calculate_y_centroid(fitsfile *infits, long nevents, float *weight,
+     float *x, float *y, unsigned char *channel, unsigned char *timeflags,
+     unsigned char *locflags)
+{
+
+     char CF_PRGM_ID[] = "cf_calculate_y_centroid";
+     char CF_VER_NUM[] = "1.30";
+ 
+     char aperture[FLEN_VALUE], instmode[FLEN_VALUE];
+     char ycentname[FLEN_KEYWORD], file_name[FLEN_VALUE];
+     char key[FLEN_KEYWORD], quality[8][FLEN_VALUE];
+     double dncent, dngeo, dycent, dygeo;
+     float ycent, ygeo, yshift, ycent_tab[8];
+     int chan_num, errflg=0, status=0, active_ap[2];
+     int got_shift, i, hdu, target_ap, user;
+     int spex_sic, spex_lif, emax_sic, emax_lif, emax, extended;
+     long n;
+     fitsfile *parm_cal, *chid_cal;
+
+  /* Initialize error checking */ 
+     cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+  /* Enter a time stamp into the log */
+     cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+  /* Check whether routine is appropriate for this data file. */
+     if ( (errflg = cf_proc_check(infits, CF_PRGM_ID)) ) return errflg;
+
+  /* Read the source aperture from the file header. */
+     FITS_read_key(infits, TSTRING, "APERTURE", aperture, NULL, &status);
+     extended=cf_source_aper(infits, active_ap) ;
+
+  /* Were data taken in HIST or TTAG mode? */
+     FITS_read_key(infits, TSTRING, "INSTMODE", instmode, NULL, &status);
+     
+  /* Read centroid quality keywords from file header. */
+     for (i = 1; i < 8; i++) {
+	if (i == 4) continue;
+	sprintf(key, "YQUAL%1d", i);
+	FITS_read_key(infits, TSTRING, key, &quality[i][0], NULL, &status);
+     }
+     
+  /* Read extraction parameters from PARM_CAL file. */
+     FITS_read_key(infits, TSTRING, "PARM_CAL", file_name, NULL, &status);
+     FITS_open_file(&parm_cal, cf_parm_file(file_name), READONLY, &status);
+     FITS_read_key(parm_cal,TINT,"SPEX_SIC",&spex_sic,NULL,&status);
+     FITS_read_key(parm_cal,TINT,"SPEX_LIF",&spex_lif,NULL,&status);
+     FITS_read_key(parm_cal,TINT,"EMAX_SIC",&emax_sic,NULL,&status);
+     FITS_read_key(parm_cal,TINT,"EMAX_LIF",&emax_lif,NULL,&status);
+     FITS_close_file(parm_cal,&status);
+     
+  /* Read expected centroids from CHID_CAL file.  Use extended-aperture
+     values except for apertures containing point-source targets.  */
+     FITS_read_key(infits, TSTRING, "CHID_CAL", file_name, NULL, &status);
+     FITS_open_file(&chid_cal, cf_cal_file(file_name), READONLY, &status);
+     for (i = 1; i < 8; i++) {
+     	if (i==4) continue;
+        if ((i == active_ap[0] || i == active_ap[1]) && !extended) hdu=i+1;
+	else hdu=i+9;
+     	FITS_movabs_hdu(chid_cal, hdu, NULL, &status);
+     	FITS_read_key(chid_cal,TFLOAT,"CENTROID",ycent_tab+i,NULL,&status);
+     }
+     FITS_close_file(chid_cal,&status);
+
+  /* Determine the centroids for each channel */
+     yshift = 0;
+     got_shift = FALSE;
+     for (chan_num = 7; chan_num > 0; chan_num--) {
+	if (chan_num == 4) {
+	    yshift = 0;
+	    got_shift = FALSE;
+	    continue;
+	}
+        dngeo = dncent = 0.;
+	dygeo = dycent = 0.;
+	sprintf (ycentname, "YCENT%d", chan_num);
+
+        /* Is this a target aperture? */
+        if (chan_num == active_ap[0] || chan_num == active_ap[1])
+            target_ap = TRUE;
+        else
+            target_ap = FALSE;
+
+	/* If not, and we're in histogram mode, skip to the next channel. */
+	if (!target_ap && !strncmp(instmode, "HIST", 4)) continue;
+
+	/* Calculate separate target and geocoronal centroids. */
+        for (n = 0; n < nevents; n++) {
+	    if (channel[n] == chan_num && !(timeflags[n] & ~TEMPORAL_DAY) &&
+		!(locflags[n] & ~LOCATION_AIR)) { 
+
+		if(locflags[n] & LOCATION_AIR) {  /* Airglow photon */
+		    dygeo += y[n] * weight[n];
+		    dngeo += weight[n];
+		}
+		else {				  /* Target photon */
+		    dycent += y[n] * weight[n];
+		    dncent += weight[n];
+		}
+	    }
+        }
+
+	/* If we can't find any photons but expect to, set quality to LOW. */
+	if ((quality[chan_num][0] == 'H' && dncent < 1) ||
+	    (quality[chan_num][0] == 'M' && dngeo  < 1)) {
+	    quality[chan_num][0] = 'L';
+	    sprintf(key, "YQUAL%1d", chan_num);
+	    FITS_update_key(infits, TSTRING, key, "LOW", NULL, &status) ;
+	    cf_verbose(1, "No photon events in channel %d", chan_num);
+	}
+
+        /* Compute centroids of target and airglow spectra */
+	ycent = ygeo = 0; 
+	if (dncent > 0) ycent = dycent / dncent; 
+	if (dngeo  > 0) ygeo  = dygeo / dngeo; 
+
+	/* If yshift is already known, use it to calculate ygeo.
+	 * If not, and ygeo is valid for this aperture, compute yshift.
+	 */
+	if (got_shift)
+	    ygeo = yshift + ycent_tab[chan_num];
+	else if (dngeo > 0) {
+	    yshift = ygeo - ycent_tab[chan_num];
+	    got_shift = TRUE;
+	}
+
+	/* Now decide which values to write to the header. */
+	  
+	/* If we are in the target aperture and the user has specified
+         * YCENT for this channel, use it.
+	 */
+        if (target_ap && ((chan_num<5 && spex_lif>=0 && spex_lif<1024) ||
+            (chan_num>4 && spex_sic>=0 && spex_sic<1024))) {
+            if (chan_num<5) ycent=spex_lif;
+            else ycent=spex_sic;
+	    cf_verbose(1, "Channel %d: User-specified Y centroid = %g",
+		chan_num, ycent);
+	    user = TRUE;
+	}
+	else
+	    user = FALSE;
+
+	/* If the centroid quality is HIGH, use the calculated target
+	 * value, regardless of whether we are in a target aperture.
+	 * (This happens by default, so we don't have to do anything.)
+	 */
+
+	/* If the centroid quality is MED, use the airglow centroid. */
+	if (quality[chan_num][0] == 'M')
+	    ycent = ygeo;
+
+	/* If the quality is LOW, use the default value. */
+	else if (quality[chan_num][0] == 'L')
+	    ycent = ycent_tab[chan_num];
+
+        /* 
+	 *  Test whether YCENT is too far from the expected value.
+	 *  If so, use the tabulated value and set the quality to LOW.
+	 *  Don't test HIST data. (wvd, 11/25/2008)
+	 */
+	if (chan_num<5) emax=emax_lif; else emax=emax_sic;
+	if (fabs(ycent-ycent_tab[chan_num]) > emax && !user && !strncmp(instmode, "TTAG", 4)) {
+	    if(target_ap) {
+        	cf_verbose(1, "Channel %d: computed centroid (%.1f) is too far "
+		    "from expected value.", chan_num, ycent);
+		cf_verbose(1, "Channel %d: using default centroid of %.1f",
+		    chan_num, ycent_tab[chan_num]);
+	    }
+	    else {
+		cf_verbose(2, "Channel %d: using default centroid of %.1f",
+		    chan_num, ycent_tab[chan_num]);
+	    }
+	    ycent = ycent_tab[chan_num];
+	    sprintf(key, "YQUAL%1d", chan_num);
+	    FITS_update_key(infits, TSTRING, key, "LOW", NULL, &status) ;
+	}
+	    
+        /* Write centroid of target spectrum to the header */
+        FITS_update_key(infits, TFLOAT, ycentname, &ycent, NULL, &status) ;
+        cf_verbose(2, "For channel %d, Y centroid = %.1f", chan_num, ycent) ;
+
+     }			/* End of loop over channels. */
+
+     cf_proc_update(infits, CF_PRGM_ID, "COMPLETE");
+     cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing"); 
+
+     return status;
+}
diff --git a/src/libcf/cf_calculate_ycent_motion.c b/src/libcf/cf_calculate_ycent_motion.c
new file mode 100644
index 0000000..8879213
--- /dev/null
+++ b/src/libcf/cf_calculate_ycent_motion.c
@@ -0,0 +1,152 @@
+/**************************************************************************
+ *           Johns Hopkins University
+ *          Center for Astrophysical Sciences
+ *           FUSE
+ *************************************************************************
+ *
+ * synopsis:    cf_calculate_ycent_motion(header, nevents, ptime, y, channel,
+ *              locflags, nsec, ttime, ycentl, ycents)
+ *
+ * Description: Determines the Y centroid of the emission as a function
+ *              of time within the target apertures
+ *
+ * Arguments:   fitsfile  *header :   pointer to Intermediate Data File
+ *              long      nevents :   number of photon events in the file
+ *              float     *ptime  :   detection time for each photon
+ *              float     *y      :   y position of each photon
+ *       unsigned char    *channel:   aperture associated with each photon
+ *       unsigned char   *locflags:   location flag array
+ *              long      nsec    :   number of seconds tabulated in timeline
+ *              float     *ttime  :   tabulated times in the timeline
+ *                                    geocoronal photons
+ *              float     *ycentl, *ycents : 
+ *                                    y centroids of the Lif and SiC apertures,
+ *                                    tabulated once per second throughout
+ *                                    the observation
+ *             
+ *
+ * Calibration files required:     None
+ *
+ * Returns:	0 on success
+ *
+ *                                
+ * HISTORY:     11/05/02   v1.1   RDR   started work
+ *              11/27/07   v1.2   RDR   corrected a bug in determining ycent
+ *                                        cleaned up variables
+ *              12/04/02   v1.3   RDR   locflags out geocoronal emission
+ *                                        before determining centroids
+ *              12/12/02   v1.4   wvd   change order of subroutine arguments
+ *		01/17/03   v1.5   wvd   call cf_update_proc()
+ *              01/20/03   v1.6   rdr   correct error in calculating ycent
+ *                                        during the last time interval
+ *              02/24/03   v1.7   peb   Changed include file to calfitsio.h
+ *		03/11/03   v1.8   wvd   Changed locflags to unsigned char
+ *              05/20/03   v1.9   rdr   Added call to cf_proc_check
+ *		05/22/03   v1.10  wvd   cf_error_init to stderr
+ *		06/04/03   v1.11  wvd   Implement cf_verbose throughout.
+ *		08/21/03   v1.12  wvd   Change channel to unsigned char.
+ *		10/06/03   v1.13  wvd   Change screen to locflags throughout.
+ *              10/21/04   v1.14  bjg   Corrected several bugs
+ *              04/07/07   v1.15  wvd	Clean up compiler warnings.
+ *              04/07/07   v1.16  wvd	Clean up compiler warnings.
+ *
+ **************************************************************************/
+
+#include "calfuse.h"
+
+
+int
+cf_calculate_ycent_motion(fitsfile *header, long nevents, float *ptime, 
+			  float *y, unsigned char *channel, unsigned char *locflags,
+			  long nsec, float *ttime, float *ycentl, float *ycents)
+{
+    char CF_PRGM_ID[] = "cf_calculate_ycent_motion";
+    char CF_VER_NUM[] = "1.16";
+ 
+    char ycentname[FLEN_CARD];
+    int chan_num, status=0, j, src_type, active_ap[2], nave=500;
+    int errflg=0;
+    long i, ndx, ndxs, nsam;
+    float ycent, ptst, dt, dt1;
+    float ycentdef[2];
+    float *ycentptr[2];
+
+    ycentptr[0]=ycentl;
+    ycentptr[1]=ycents;
+
+    /* Initialize error checking */ 
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    /* Enter a time stamp into the log */
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    /* Check whether routine is appropriate for this data file. */
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    /* nave = number of photons to average in determining the centroid.
+       Should eventually be read from a parameter file. */
+    nave = 500;
+
+    /* Determine the source aperture and type from the header data.
+       src_type = 0 for a point source and 1 for an extended source. */
+
+    src_type = cf_source_aper(header, active_ap);
+    cf_verbose(3, "active_ap = %d and %d,   src_type = %d",
+	   active_ap[0], active_ap[1], src_type);
+
+
+    /* Determine the centroids.  Do LiF and SiC apertures separately. */
+
+    for (j=0; j<2; j++) {
+
+ 
+      /* Select the channel number of the appropriate active aperture */
+      chan_num = active_ap[j];
+      sprintf(ycentname, "YCENT%1d", chan_num);
+      FITS_read_key(header, TFLOAT, ycentname, &ycentdef[j], NULL, &status);
+
+      nsam = 0;
+      ycent = 0.;
+      ptst = ptime[0];
+      ndxs = 0;
+
+      /* Go through all of the photons, determine the y centroids,
+	 and fill in the arrays.  Avoid airglow lines. */ 
+      for (i=1; i nave && dt > 1.) || i == nevents-1 || dt1 > 10)  {
+	  
+	  if (nsam==0) ycent = ycentdef[j];
+	  else ycent = ycent / nsam;
+	  
+	  ndx = ndxs;
+	  
+	  while ( ndx < nsec && (ndx==0 || ttime[ndx-1] < ptime[i])) {
+	    
+	    if (nsam > nave) ycentptr[j][ndx] = ycent;
+	    else {
+	      if (ndx==0) ycentptr[j][ndx] = ycentdef[j];
+	      else ycentptr[j][ndx] = ycentptr[j][ndx-1]; 
+	    }
+	    
+	    
+	    ndx += 1; 
+	  }
+	  
+	  ndxs=ndx;
+	  if (ndxs > nsec-1) ndxs = nsec-1; 
+	  nsam = 0;
+	  ycent=0.;
+	  ptst=ptime[i];
+	}
+      }
+    }
+    cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing"); 
+    return (status);
+}
diff --git a/src/libcf/cf_check_digitizer.c b/src/libcf/cf_check_digitizer.c
new file mode 100644
index 0000000..81e9702
--- /dev/null
+++ b/src/libcf/cf_check_digitizer.c
@@ -0,0 +1,101 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_check_digitizer(fitsfile *infits);
+ *
+ * Description: Check the digitizer values against a reference file.
+ *
+ * Arguments:   fitsfile  *infits       Input FITS file pointer
+ *
+ * Calls:       
+ *
+ * Returns:     0 on success
+ *
+ * History:     01/16/03   1.1   jch    Initial coding
+ *		01/28/03   1.2   wvd    Check only values for this detector.
+ *		02/29/03   1.3   rch    Correct error in making comparisons.
+ *              01/29/03   1.4   rdr    Include math.h
+ *              03/04/03   1.5   peb    Remove unused variables and header
+ *              05/20/03   1.6   rdr    Add call to cf_proc_check
+ *		07/29/03   1.8   wvd	If cf_proc_check fails, return errflg.
+ *		01/28/05   1.9   wvd	On error, set EXP_STAT flag to -999 and
+ *					issue a warning rather than an error.
+ *		03/11/05   1.10  wvd	On error, write a warning to the file
+ *					header using our standard format.
+ *		03/30/07   1.11  wvd	On error, set EXP_STAT flag to -2,
+ *					rather than -999.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+#define N 32
+
+int
+cf_check_digitizer(fitsfile *infits)
+{
+    char 	CF_PRGM_ID[] = "cf_check_digitizer";
+    char 	CF_VER_NUM[] = "1.11";
+
+    char  	comment[FLEN_COMMENT], datestr[FLEN_CARD], 
+		file_name[FLEN_VALUE], detector[FLEN_VALUE];
+    fitsfile	*digifits;
+    int   	errflg=0, status=0, i, first, last, exp_stat = -2;
+    int		timeref;
+    float	val, ref_val;
+
+    char    	key[N][9] = {"DET1ASCL", "DET1BSCL", "DET1AXOF", "DET1BXOF", "DET1AUCT", "DET1BUCT", "DET1ABWK", "DET1BBWK", "DET1AEWK", "DET1BEWK", "DET1ABSL", "DET1BBSL", "DET1ALCT", "DET1BLCT", "DET1ALTT", "DET1BLTT", "DET2ASCL", "DET2BSCL", "DET2AXOF", "DET2BXOF", "DET2AUCT", "DET2BUCT", "DET2ABWK", "DET2BBWK", "DET2AEWK", "DET2BEWK", "DET2ABSL", "DET2BBSL", "DET2ALCT", "DET2BLCT", "DET2ALTT", "DET2BLTT"};
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    if ((errflg = cf_proc_check(infits, CF_PRGM_ID))) return errflg;
+
+    /*
+     *  Determine which detector produced our data file.
+     */
+    FITS_read_key(infits, TSTRING, "DETECTOR", detector, 0, &status);
+    if (detector[0] == '1')
+	first = 0, last = N/2;
+    else
+	first = N/2, last = N;
+
+    /*
+     *  Read the digitizer reference file name and open it.
+     */
+    FITS_read_key(infits, TSTRING, "DIGI_CAL", file_name, 0, &status);
+    FITS_open_file(&digifits, cf_cal_file(file_name), READONLY, &status);
+
+    /*
+     *  Read keywords.  Compare with reference values.
+     */
+    for (i = first; i < last; i++) {
+        FITS_read_key(infits, TFLOAT, key[i], &val, NULL, &status);
+        FITS_read_key(digifits, TFLOAT, key[i], &ref_val, NULL, &status);
+
+        if (fabs(val - ref_val) > 2.0) {
+            cf_if_warning("Digitizer keyword %s is out of bounds.", key[i]);
+	    sprintf(comment, "Data suspect: keyword %s out of bounds", key[i]);
+	    FITS_update_key(infits, TINT, "EXP_STAT", &exp_stat, comment,
+		&status);    
+            FITS_write_comment(infits, " ", &status);
+	    sprintf(comment, "Data are suspect.  Keyword %s is out of bounds.",
+		key[i]);
+            FITS_write_comment(infits, comment, &status);
+            fits_get_system_time(datestr, &timeref, &status);
+            sprintf(comment, "CalFUSE v%s   %.10s", CALFUSE_VERSION, datestr);
+            FITS_write_comment(infits, comment, &status);
+            FITS_write_comment(infits, " ", &status);
+	}
+    }
+
+    FITS_close_file(digifits, &status);
+    cf_proc_update(infits, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return 0;
+}
diff --git a/src/libcf/cf_convert_to_ergs.c b/src/libcf/cf_convert_to_ergs.c
new file mode 100644
index 0000000..2eaaeef
--- /dev/null
+++ b/src/libcf/cf_convert_to_ergs.c
@@ -0,0 +1,182 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_convert_to_ergs(fitsfile *header, long nevents,
+ *              float *weight, float *ergcm2, unsigned char *channel,
+ *		float *lambda);
+ *
+ * Description: Convert counts to ergs.
+ *
+ * Arguments:   *header                 Input FITS file pointer
+ *              nevents                 number of points in the photon list
+ *              *weight			weight of each event
+ * 		*ergcm2			flux (returned)
+ *              *channel                channel number in the photon list
+ *              *lambda                 wavelength in the photon list
+ *
+ * Returns:    	0 (int) upon successful completion.
+ *
+ * History:    	01/02/03   1.0   jch    Initial coding
+ *		02/10/03   1.1   wvd    Install
+ *		02/10/03   1.2   wvd    Replace FLUX_CAL with AEFF_CAL
+ *                                      Define HC in calfusettag.h
+ *                                      Don't sort photons by wavelength
+ *              03/04/03   1.3   peb    Fixed sprintf argument formating,
+ *                                      deleted unused variable, localized
+ *                                      scope of some variables, made sure
+ *                                      that memory is allocated for aeff,
+ *                                      and fixed memory leak with aeff,
+ *                                      aeff1, and aeff2.
+ *		03/11/03   1.4   wvd    Changed channel to type char
+ *		03/12/03   1.5   wvd    Fixed bug in calculation of dl.
+ *					If unable to calculate flux,
+ *					set channel[k] = 0.
+ *					Made aeff, aeff1, aeff2 doubles
+ *					to match aeff*fit files.
+ *		05/07/03   1.6   wvd	Change ERGCM2S to ERGCM2 throughout.
+ *					Don't divide by EXPTIME.
+ *					Use cf_verbose throughout.
+ *		05/16/03   1.7   wvd	Update version number.
+ *              05/20/03   1.8   rdr    Add call to cf_proc_check
+ *              06/11/03   1.9   wvd    Pass datatype to cf_read_col.
+ *					Change calfusettag.h to calfuse.h
+ *              08/25/03   1.10  wvd    Change coltype from string to int
+ *					in cf_read_col.
+ *              09/17/03   1.11  wvd    Change aeff arrays to type float
+ *					to match AEFF_CAL files.
+ *              11/05/03   1.12  wvd    Change channel to unsigned char
+ *              04/27/04   1.13  wvd    Print out relative weighting of
+ *					the two effective-area files.
+ *              11/18/05   1.14  wvd    Change aeff arrays to type double
+ *					to match AEFF_CAL files.
+ *              04/07/07   1.15  wvd	Clean up compiler warnings.
+ *              04/07/07   1.16  wvd	Clean up compiler warnings.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+static char CF_PRGM_ID[] = "cf_convert_to_ergs";
+static char CF_VER_NUM[] = "1.16";
+
+
+int
+cf_convert_to_ergs(fitsfile *header, long nevents, float *weight, 
+		   float *ergcm2, unsigned char *channel, float *lambda)
+{
+    char        aeff1file[FLEN_VALUE], aeff2file[FLEN_VALUE];
+    int		ap, errflg=0, interp=0, status=0;
+    float 	sig1=0, sig2=0;
+    fitsfile    *aeff1fits, *aeff2fits;
+
+    /* Enter a timestamp into the log. */
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    /* Read the AEFF1CAL and AEFF2CAL keywords. */
+    FITS_read_key(header, TSTRING, "AEFF1CAL", aeff1file, NULL, &status);
+    FITS_read_key(header, TSTRING, "AEFF2CAL", aeff2file, NULL, &status);
+
+    /* Open the calibration files. */
+    FITS_open_file(&aeff1fits, cf_cal_file(aeff1file), READONLY, &status);
+
+    /* Determine whether we need to interpolate getween AEFF_CAL files. */
+    if (strcmp(aeff1file, aeff2file)) {
+	float dt1, dt2, dt3, a1date, a2date, expstart, expend, expmjd;
+        interp = 1;
+        FITS_open_file(&aeff2fits, cf_cal_file(aeff2file), READONLY, &status);
+        FITS_read_key(aeff1fits, TFLOAT, "EFFMJD", &a1date, NULL, &status);
+        FITS_read_key(aeff2fits, TFLOAT, "EFFMJD", &a2date, NULL, &status);
+
+	/* Linearly interpolate the aeff according to exposure time */
+        FITS_read_key(header, TFLOAT, "EXPSTART", &expstart, NULL, &status);
+        FITS_read_key(header, TFLOAT, "EXPEND", &expend, NULL, &status);
+	expmjd = (expstart + expend) / 2.;
+        dt1=a2date-a1date;
+        dt2=a2date-expmjd;
+        dt3=expmjd-a1date;
+        if (dt1 < 0.01) {
+            cf_if_error("Calibration file dates are identical: "
+	    "cal1=%10.5f obs=%10.5f cal2=%10.5f", a1date, expmjd, a2date);
+        }
+        sig1=dt2/dt1;
+        sig2=dt3/dt1;
+	cf_verbose(3, "Interpolation: %0.2f x %s, %0.2f x %s", 
+		sig1, aeff1file, sig2, aeff2file);
+    }
+    else
+	cf_verbose(3, "No interpolation.  Using Aeff file %s", aeff1file);
+	
+    /* Step through the apertures, skipping aperture 4 (pinhole) */
+    for (ap = 1; ap < 8; ap++) {
+	long jmax=0,	/* size of wave and aeff arrays */
+    	    j,		/* index through wave and aeff */
+	    k;		/* index through photon array */
+
+	double *aeff;
+	float *wavelength, dl, w0;
+	
+        if (ap == 4)
+	    continue;
+
+	if (interp == 1) {
+	    /* Interpolate the calibrated aeff. */
+	    double *aeff1, *aeff2;
+
+            FITS_movabs_hdu(aeff1fits, ap+1, NULL, &status);
+	    jmax = cf_read_col(aeff1fits, TDOUBLE, "AREA", (void **) &aeff1);
+
+            FITS_movabs_hdu(aeff2fits, ap+1, NULL, &status);
+	    jmax = cf_read_col(aeff2fits, TDOUBLE, "AREA", (void **) &aeff2);
+
+	    aeff = (double *) cf_calloc(jmax, sizeof(double));
+
+	    for (j = 0; j < jmax; j++) {
+                aeff[j] = sig1 * aeff1[j] + sig2 * aeff2[j];
+	    }
+	    free(aeff1);
+	    free(aeff2);
+	} else {
+            FITS_movabs_hdu(aeff1fits, ap+1, NULL, &status);
+	    jmax = cf_read_col(aeff1fits, TDOUBLE, "AREA", (void **) &aeff);
+	}
+
+	/* Read wavelength array in AEFF_CAL file */
+	jmax = cf_read_col(aeff1fits, TFLOAT, "WAVE", (void **) &wavelength);
+
+	/* Compute translation from wavelength to pixel within AEFF_CAL file. */
+	w0 = wavelength[0];
+	dl = (wavelength[jmax-1] - wavelength[0]) / (jmax - 1);
+
+	/* Go through the photon list */
+        for (k = 0; k < nevents; k++) {
+            if (channel[k] == ap) {
+		long j = (lambda[k] - w0) / dl + 0.5;
+		if (j >= 0L && j < jmax)
+		    ergcm2[k] = weight[k]*HC/lambda[k]/aeff[j];
+		else
+		    channel[k] = 0;
+            }
+        }
+	free(wavelength);
+	free(aeff);
+    }
+
+    /* Clean up. */
+    FITS_close_file(aeff1fits, &status);
+    if (interp == 1)
+        FITS_close_file(aeff2fits, &status);
+
+    /* Update processing flags. */
+    cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done Processing");
+    return (status);
+}
diff --git a/src/libcf/cf_count_rate_y_distort.c b/src/libcf/cf_count_rate_y_distort.c
new file mode 100644
index 0000000..a42a4ac
--- /dev/null
+++ b/src/libcf/cf_count_rate_y_distort.c
@@ -0,0 +1,157 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_count_rate_y_distort(fitsfile *header, long nevents,
+ *                                      float *time, float *yfarf,
+ *                                      unsigned char *locflags, long nseconds,
+ *                                      float *timeline, float *fec_rate)
+ *
+ * Description: Corrects the Y position of each event based on the
+ *              instantaneous count rate.
+ *
+ * Arguments:   fitsfile  *header       Pointer to FITS file containing the
+ *                                      header of the intermediate data file
+ *              long      nevents       The number of events
+ *              float     *time         An array of event times
+ *              float     *yfarf        An array of event Y positions
+ *              unsigned char *locflags Location flags for each event
+ *              long      nseconds      The number of seconds in the timeline
+ *              float     *timeline     The timeline in seconds
+ *              float     *fec_rate     Front End Counter rate
+ *
+ * Calls:
+ *
+ * Return:      0  on success
+ *
+ * History:     08/06/02   1.1   peb    Begin work
+ *              10/27/02   1.2   peb    Added a time-dependent correction
+ *                                      which uses the Front End Counter
+ *                                      (FEC) rates.
+ *              11/11/02   1.3   peb    Removed non-time-dependent correction.
+ *                                      (Code now expects timeline extension
+ *                                      data.)
+ *              11/11/02   1.4   peb    Fixed compile error - added buffer
+ *                                      variable.
+ *              11/12/02   1.5   peb    Added check to move only events in
+ *                                      active region.
+ *		03/11/03   1.6   wvd    Changed locflags to unsigned char
+ *              05/20/03   1.7   rdr    Added call to cf_proc_check
+ *		07/29/03   1.8   wvd    If cf_proc_check fails, return errflg.
+ *		08/04/03   1.9   wvd    Convert fec_rate to type short.
+ *		11/26/03   1.10  wvd    Convert fec_rate to type float.
+ *		08/18/04   1.11  wvd    Interpolate stretch correction among
+ *					tabulated Y values.
+ *		10/06/05   1.12  wvd    For HIST data, set each element of
+ *					fec_rate to weighted mean of array.
+ *		04/07/07   1.13  wvd    Clean up compiler warnings.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_count_rate_y_distort(fitsfile *header, long nevents, float *time,
+			float *yfarf, unsigned char *locflags, long nseconds,
+			float *timeline, float *fec_rate)
+{
+    char CF_PRGM_ID[] = "cf_count_rate_y_distort";
+    char CF_VER_NUM[] = "1.13";
+    
+    char  instmode[FLEN_VALUE], ystrfile[FLEN_VALUE];
+    short xlen, ylen;
+    int   errflg=0, hdutype, status=0, anynull=0;
+    int   i, ii, i_max, rndx, yndx;
+    long  j, k;
+    float *ystretch, ystr_1d[NYMAX], flt=0.;
+    fitsfile *ystrfits;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    /*
+     *  For HIST data, replace fec_rate with weighted mean value.
+     */
+    FITS_read_key(header, TSTRING, "INSTMODE", instmode, NULL, &status);
+    if (!strncmp(instmode, "HIST", 4)) {
+	float *mean_rate, ratio, numerator=0, denominator=0;
+	mean_rate = (float *) cf_malloc(sizeof(float) * nseconds);
+	for (i = 0; i < nseconds; i++) {
+	    numerator += fec_rate[i] * fec_rate[i];
+	    denominator += fec_rate[i];
+	}
+	ratio = numerator / denominator;
+	for (i = 0; i < nseconds; i++) mean_rate[i] = ratio;
+	fec_rate = mean_rate;
+	cf_verbose(2, "Weighted mean count rate = %f", ratio);
+    }
+
+    /*
+     *  Read the rate calibration file.
+     */
+    FITS_read_key(header, TSTRING, "RATE_CAL", ystrfile, NULL, &status);
+    FITS_open_file(&ystrfits, cf_cal_file(ystrfile), READONLY, &status);
+    FITS_movabs_hdu(ystrfits, 2, &hdutype, &status);
+    FITS_read_key(ystrfits, TSHORT, "NAXIS1", &xlen, 0, &status);
+    FITS_read_key(ystrfits, TSHORT, "NAXIS2", &ylen, 0, &status);
+    ystretch = (float *) cf_malloc(sizeof(float)*xlen*ylen);
+    FITS_read_img(ystrfits, TFLOAT, 1L, xlen*ylen, &flt, ystretch, &anynull,
+		  &status);
+    FITS_close_file(ystrfits, &status);
+
+    i_max = (xlen-1) * 10;
+    for(j=k=0; j= ylen)
+		    rndx = ylen-1;
+
+		/* 
+		 *  This index reflects Y position on the detector.
+		 *  Shift information is provided for every 10 Y pixels.
+		 *  We interpolate to the nearest Y pixel.  Otherwise,
+		 *  counts pile up at the 10-pixel boundaries.
+		 */
+		for (i = 0; i < i_max; i++) {
+		    ii = (i/10) * 10;
+		    ystr_1d[i] = ((ii+10-i) * (ystretch+rndx*xlen)[i/10] +
+				  (i - ii)  * (ystretch+rndx*xlen)[i/10+1]) / 10.;
+		}
+		for ( ; i < NYMAX; i++) 
+		    ystr_1d[i] = (ystretch+rndx*xlen)[xlen-1];
+	    }
+
+	    /* Now apply the shift. */
+	    yndx = (int) yfarf[j];
+	    if (yndx < 0)
+		yndx = 0;
+	    else if (yndx >= NYMAX)
+		yndx = NYMAX-1;
+	    yfarf[j] -= ystr_1d[yndx];
+	}
+    }
+    free(ystretch);
+    if (!strncmp(instmode, "HIST", 4)) free(fec_rate);
+
+    cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return 0;
+}
diff --git a/src/libcf/cf_dispersion.c b/src/libcf/cf_dispersion.c
new file mode 100644
index 0000000..19a47c1
--- /dev/null
+++ b/src/libcf/cf_dispersion.c
@@ -0,0 +1,85 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Description: Assigns wavelength to each photon in data stream.  
+ *                    
+ * Returns:     0 upon successful completion.
+ *
+ * History:     05/15/06   1.1   wvd	Adapt from cf_astigmatism_and_dispersion.c
+ *					Program incorporates cf_x2lambda.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+static char CF_PRGM_ID[] = "cf_dispersion";
+static char CF_VER_NUM[] = "1.1";
+
+
+int
+cf_dispersion(fitsfile *infits, long nevents, float *x,
+		   unsigned char *channel, float *lambda)
+{
+    char  	wave_file[FLEN_VALUE];
+    float	*wavelength=NULL;
+    float	x_lower, x_upper, weight_l, weight_u, wave_l, wave_u;
+    int	  	ap, errflg=0, nwave, xl_int, xu_int, status=0;
+    long	k;
+    fitsfile 	*wavefits;
+
+    /* Enter a timestamp into the log. */
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    if ((errflg = cf_proc_check(infits, CF_PRGM_ID))) return errflg;
+
+    FITS_read_key(infits, TSTRING, "WAVE_CAL", wave_file, NULL, &status);
+    FITS_open_file(&wavefits, cf_cal_file(wave_file), READONLY, &status);
+
+    /* Cycle through channels, skipping #4 (pinhole) */
+    for (ap = 1; ap < 8; ap++) {
+	if (ap == 4) continue;
+
+    	FITS_movabs_hdu(wavefits, ap+1, NULL, &status);
+	nwave = cf_read_col(wavefits, TFLOAT, "WAVELENGTH", (void **) &wavelength);
+
+	/* Compute wavelength for each event by interpolation. */
+        for (k = 0; k < nevents; k++) {
+	    if (channel[k] == ap) {
+		x_lower = floor(x[k]);
+		x_upper = ceil(x[k]);
+		xl_int	= (int) (x_lower + 0.5);
+		xu_int	= (int) (x_upper + 0.5);
+		if (xl_int >= 0 && xu_int < nwave) {
+		    if (xl_int == xu_int)
+			lambda[k] = wavelength[xl_int];
+		    else {
+		        weight_l = x_upper - x[k];
+		        weight_u = x[k] - x_lower;
+		        wave_l = wavelength[xl_int];
+		        wave_u = wavelength[xu_int];
+		        lambda[k] = wave_l * weight_l + wave_u * weight_u;
+		    }
+		}
+		else
+		    channel[k] = 0;
+	    }
+	}
+        /* Space for wavelength array is allocated in each loop. */
+	free(wavelength);
+    }
+    FITS_close_file(wavefits, &status);
+
+    /* Update processing flags. */
+    cf_proc_update(infits, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done Processing");
+
+    return status;
+}
diff --git a/src/libcf/cf_doppler_and_heliocentric.c b/src/libcf/cf_doppler_and_heliocentric.c
new file mode 100644
index 0000000..f95672d
--- /dev/null
+++ b/src/libcf/cf_doppler_and_heliocentric.c
@@ -0,0 +1,87 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:	cf_doppler_and_heliocentric(*infits, nevents, *photon_time, 
+ *		  	*channel, *lambda, nseconds, *timeline_time, 
+ *			*timeline_velocity);
+ *
+ * Description: Doppler-correct each photon for both heliocentric and orbital
+ *		motions.  Resulting wavelength scale is heliocentric.
+ *
+ * Arguments:	*infits			Input FITS file pointer
+ * 		nevents			number of points in the photon list
+ * 		*photon_time		time array of photon events
+ * 		*channel		channel number in the photon list
+ * 		*lambda			wavelength in the photon list
+ * 		nseconds		number of points in the timeline table
+ * 		*timeline_time		time array of timeline list
+ * 		*timeline_velocity	orbital velocity in km/s
+ *
+ * Returns:	O upon successful completion
+ *
+ * History:     12/09/2002   jch   1.1	Initial coding
+ *	        12/11/2002   wvd   1.2	Move Doppler calculation to separate
+ *					  loop.
+ *              12/11/2002   wvd   1.3  Change nevents and nseconds to long.
+ *              12/20/2002   wvd   1.4  Change channel to unsigned char.
+ *              02/24/03     peb   1.5  Change include file to calfusettag.h
+ *                                      and calfitsio.h
+ *              03/11/2003   wvd   1.6  Change channel to char.
+ *              05/20/2003   rdr   1.7  Added call to cf_proc_check
+ *              09/17/2003   wvd   1.8  Return errflg from cf_prock_check
+ *              10/21/2003   wvd   1.9  Change channel to unsigned char.
+ *              04/21/2004   bjg   1.10 Cosmetic change to prevent warning
+ *                                      with gcc -Wall
+ *              11/17/2005   wvd   1.11 Change velocity and doppler to doubles.
+ *
+ ****************************************************************************/
+
+#include 
+#include "calfuse.h"
+
+char CF_PRGM_ID[] = "cf_doppler_and_heliocentric";
+char CF_VER_NUM[] = "1.11";
+
+
+int cf_doppler_and_heliocentric(fitsfile *infits, long nevents,
+	float *photon_time, unsigned char *channel, float *lambda,
+	long nseconds, float *timeline_time, float *timeline_velocity)
+{
+	int	errflg=0, status=0;
+	long	i, k;
+	float	v_helio;	/* heliocentric velocity in km/sec */
+	double	velocity, *doppler;
+
+	/* Enter a timestamp into the log. */
+    	cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+    	cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+        if ((errflg = cf_proc_check(infits, CF_PRGM_ID) )) return errflg;
+
+	FITS_read_key(infits, TFLOAT, "V_HELIO", &v_helio, NULL, &status);
+
+	/* Compute array of Doppler corrections. */
+	doppler = (double *) cf_malloc(sizeof(double) * nseconds);
+	for (k = 0; k < nseconds; k++) {
+		velocity = timeline_velocity[k] + v_helio;
+		doppler[k] = 1. + velocity / C;
+	}
+
+	/* Apply Doppler correction to each photon assigned to an aperture. */
+	k = 0;
+	for (i = 0; i < nevents; i++)
+	    if (channel[i] > 0) {
+	        while (photon_time[i] > timeline_time[k+1] - FRAME_TOLERANCE
+		    && k < nseconds-1) k++;
+	        lambda[i] *= doppler[k];
+	    }
+	free (doppler);
+
+	/* Update processing flags. */
+    	cf_proc_update(infits, CF_PRGM_ID, "COMPLETE");
+    	cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done Processing");
+    	return (status);
+}
diff --git a/src/libcf/cf_electronics_dead_time.c b/src/libcf/cf_electronics_dead_time.c
new file mode 100644
index 0000000..38c2219
--- /dev/null
+++ b/src/libcf/cf_electronics_dead_time.c
@@ -0,0 +1,104 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_electronics_dead_time(fitsfile *header, long nseconds,
+ *                                      float *fec_rate, float *elec_dtc)
+ *
+ * Description: Scales the weighting factor to correct for the electronics
+ *              dead time.
+ *
+ * Arguments:   fitsfile  *header       Pointer to FITS file containing the
+ *                                      header of the intermediate data file
+ *              long      nseconds      The number of timeline values
+ *              float     *fec_rate     An array of Front End Counter (FEC)
+ *                                      rates
+ *              float     *elec_dtc     Dead-time correction array (returned)
+ * Calls:
+ *
+ * Return:      0  on success
+ *
+ * History:     10/27/02   1.1    peb   Begin work
+ *              11/11/02   1.2    peb   Corrected function description and
+ *                                      added cf_timestamp after ELEC_COR
+ *                                      check.
+ *		12/06/02   1.4    wvd   Calculate DT correction for each time
+ *					step, then apply to photons.
+ *					Set keyword DET_DEAD.
+ *              05/20/03   1.5    rdr   Added proc_check call
+ *              08/01/03   1.7    wvd   Just calculate correction; don't
+ *                                      apply it.  Return elec_dtc array.
+ *              08/04/03   1.8    wvd   Convert fec_rate to type short.
+ *              11/26/03   1.9    wvd   Change fec_rate to type float.
+ *              02/12/04   1.10   wvd   In verbose mode, write mean DTC.
+ *              04/07/07   1.11   wvd   Clean up compiler warnings.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_electronics_dead_time(fitsfile *header, long nseconds, 
+			 float *fec_rate, float *elec_dtc)
+{
+    char CF_PRGM_ID[] = "cf_electronics_dead_time";
+    char CF_VER_NUM[] = "1.11";
+
+    char  elecfile[FLEN_VALUE]={"\0"}, detector[FLEN_VALUE]={"\0"};
+    char  keyword[FLEN_KEYWORD]={"\0"};
+    int   errflg=0, status=0;
+    long  k;
+    float abort, clock, state;
+    float mean_elec_dtc = 0.;
+    fitsfile *elecfits;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    FITS_read_key(header, TSTRING, "DETECTOR", detector, NULL, &status);
+    /*
+     *  Get the electronics dead-time constants.
+     */
+    FITS_read_key(header, TSTRING, "ELEC_CAL", elecfile, NULL, &status);
+    FITS_open_file(&elecfits, cf_cal_file(elecfile), READONLY, &status);
+    sprintf(keyword, "ABORT_%s", detector);
+    FITS_read_key(elecfits, TFLOAT, keyword, &abort, NULL, &status);
+    sprintf(keyword, "CLOCK_%s", detector);
+    FITS_read_key(elecfits, TFLOAT, keyword, &clock, NULL, &status);
+    sprintf(keyword, "STATE_%s", detector);
+    FITS_read_key(elecfits, TFLOAT, keyword, &state, NULL, &status);
+    FITS_close_file(elecfits, &status);
+    /*
+     *  Calculate dead-time correction.
+     */
+    for (k=0; k=2 prints only message.
+ *              10/30/03  1.5   peb     Replaced cftime function with strftime
+ *                                      for UNIX compatibility.
+ *                                      Removed unnecessary header files,
+ *                                      malloc.h and unistd.h
+ *              04/07/04  1.6   bjg     fflush stdout and error_file
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include 
+#include 
+#include 
+#include "fitsio.h"
+
+#define  N_STYM  40
+
+int   verbose_level=0;
+
+static char *program_name=NULL;
+static char *version_no=NULL;
+static FILE *error_file=NULL;
+
+void cf_error_init(const char *progid, const char *vernum, FILE *errfile)
+{
+    static char unknown[] = "unknown file";
+    static char version[] = "1.6";
+    if (progid) {
+        program_name = malloc(strlen(progid)+1);
+        strcpy(program_name, progid);
+    }
+    else {
+        program_name = malloc(strlen(unknown)+1);
+        strcpy(program_name, unknown);
+    }
+    if (vernum) {
+        version_no = malloc(strlen(vernum)+1);
+	strcpy(version_no, vernum);
+    }
+    else {
+        version_no = malloc(strlen(version)+1);
+	strcpy(version_no, version);
+    }
+    if (errfile)
+        error_file = errfile;
+    else
+        error_file = stderr;
+}
+
+void cf_verbose(int level, const char *format, ...)
+{
+    va_list args;
+    va_start(args, format);
+
+    if (verbose_level >= level) {
+	if (level == 1)
+	    printf("   %s-%s: ", program_name, version_no);
+	else if (level >= 2)
+	    printf("\t");
+	vprintf(format, args);
+	printf("\n");
+	fflush(stdout);
+    }
+
+    va_end(args);
+}
+
+void cf_if_warning(char *format, ...)
+{
+    char stym[N_STYM]={'\0'};
+    time_t tym;
+    va_list args;
+
+    va_start(args, format);
+    time(&tym);
+    strftime(stym, N_STYM, "%Y %b %e %T", localtime(&tym));
+
+    fprintf(error_file, "%s %s-%s: WARNING - ",
+	    stym, program_name, version_no);
+    vfprintf(error_file, format, args);
+    fprintf(error_file, "\n");
+    fflush(error_file);
+    va_end(args);
+}
+
+void cf_if_error(char *format, ...)
+{
+    char stym[N_STYM]={'\0'};
+    time_t tym;
+    va_list args;
+
+    va_start(args, format);
+    time(&tym);
+    strftime(stym, N_STYM, "%Y %b %e %T", localtime(&tym));
+
+    fprintf(error_file, "%s %s-%s: ERROR - ",
+	    stym, program_name, version_no);
+    vfprintf(error_file, format, args);
+    fprintf(error_file, "\n");
+
+    fflush(error_file);
+    va_end(args);
+    exit(1);
+}
+
+void cf_if_fits_warning(int status)
+{
+    if (status) {
+	char stym[N_STYM]={'\0'};
+	time_t tym;
+
+	time(&tym);
+	strftime(stym, N_STYM, "%Y %b %e %T", localtime(&tym));
+
+	fprintf(error_file, "%s %s-%s: FITS WARNING - ",
+		stym, program_name, version_no);
+        fits_report_error(error_file, status);
+        fflush(error_file);
+    }
+}
+
+void cf_if_fits_error(int status)
+{
+    if (status) {
+	char stym[N_STYM]={'\0'};
+	time_t tym;
+
+	time(&tym);
+	strftime(stym, N_STYM, "%Y %b %e %T", localtime(&tym));
+
+	fprintf(error_file, "%s %s-%s: FITS ERROR - ",
+		stym, program_name, version_no);
+        fits_report_error(error_file, status);
+        fflush(error_file);
+        exit(1);
+    }
+}
+
+void *cf_malloc(size_t size)
+{
+    void *ptr;
+
+    if (!(ptr = malloc(size))) {
+	char stym[N_STYM]={'\0'};
+	time_t tym;
+
+	time(&tym);
+	strftime(stym, N_STYM, "%Y %b %e %T", localtime(&tym));
+
+	fprintf(error_file, "%s %s-%s: ERROR - %s\n",
+		stym, "cf_malloc", "1.0", strerror(errno));
+
+        fflush(error_file);
+	exit(1);
+	/*
+	fprintf(error_file,
+		"     \n     malloc: Attemping to allocate %d bytes", size);
+	*/
+    }
+    return ptr;
+}
+
+void *cf_calloc(size_t nelem, size_t elsize)
+{
+    void *ptr;
+
+    if (!(ptr = calloc(nelem, elsize))) {
+	char stym[N_STYM]={'\0'};
+	time_t tym;
+
+	time(&tym);
+	strftime(stym, N_STYM, "%Y %b %e %T", localtime(&tym));
+
+	fprintf(error_file, "%s %s-%s: ERROR - %s\n",
+		stym, "cf_calloc", "1.0", strerror(errno));
+
+        fflush(error_file);
+	exit(1);
+	/*
+	fprintf(error_file,
+		"     \n     calloc: Attemping to allocate %d bytes",
+				nelem * elsize);
+	*/
+    }
+    return ptr;
+}
+
+void cf_if_memory_error(int status)
+{
+    time_t tym;
+
+    if (!status) {
+        time(&tym);
+        fprintf(error_file, "Memory allocation error in %s-%s: %s",
+                program_name, version_no, ctime(&tym));
+
+        /* Print out cfitsio error messages and continue */
+
+        fits_report_error(error_file, status);
+	fflush(error_file);
+    }
+}
+
+/*
+int main()
+{
+    int i;
+    cf_error_init("test program", "1.0", stdout);
+    cf_if_warning("Non-fatal error occurred");
+
+    for (i=0; i < 10; i++)
+        cf_if_fits_warning(i);
+    exit(0);
+}
+*/
diff --git a/src/libcf/cf_extraction_limits.c b/src/libcf/cf_extraction_limits.c
new file mode 100644
index 0000000..5567d14
--- /dev/null
+++ b/src/libcf/cf_extraction_limits.c
@@ -0,0 +1,137 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE 
+ *****************************************************************************
+ *
+ * Synopsis:    cf_extraction_limits(fitsfile *infits, int aperture,
+ *		int srctype, short **ylow, short **yhigh, short *xmin,
+ *		short *xmax)
+ *
+ * Description: Read the extraction limits for a given aperture and source
+ *		type (point or extended) from the CHID_CAL file.  Shift these
+ *		limits to match the centroid of the observed spectrum, if
+ *		that measurement has been performed.  For point sources
+ *		observed in HIST mode, pad YLOW and YHIGH by SPECBINY pixels.
+ *
+ * Arguments:   fitsfile  *infits       Pointer to the location of the FITS
+ *                                      header of the Intermediate Data File
+ *              int       aperture	aperture designation (1 through 8)
+ *		int	  srctype	0 = point source, 1 = extended
+ *              short     **ylow	lower Y bound for the extraction window
+ *              short     **yhigh	upper Y bound for the extraction window
+ *              short     *xmin 	lower X bound for the extraction window
+ *              short     *xmax  	upper X bound for the extraction window
+ *
+ * Calls:       None
+ *
+ * Return:      npts = length of arrays ylow and yhigh
+ *
+ * History:     08/22/03    1.1  BJG    Based on subroutine from v1.6 of
+ *					cf_bad_pixels.c by RDR.
+ *					Change coltype from char to int in
+ *					cf_read_col.
+ *		03/15/05    1.2  wvd	Read HIST_PAD from appropriate HDU
+ *					of CHID_CAL file and pad apertures
+ *					if data are in HIST mode.
+ *		03/16/05    1.3  wvd	For extended sources, return large
+ *					apertures.
+ *		10/06/05    1.4  wvd	Always pad apertures by 8 pixels
+ *					in HIST mode.
+ *		05/03/06    1.5  wvd	Always pad apertures by SPECBINY
+ *					pixels in HIST mode.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+long cf_extraction_limits(fitsfile *infits, int aperture, int srctype,
+	short **ylow, short **yhigh, short *xmin, short *xmax) { 
+
+    char CF_PRGM_ID[] = "cf_extraction_limits"; 
+    char CF_VER_NUM[] = "1.5";
+
+    fitsfile *chidfits ;
+    int status=0, hdutype;
+    int dcent, hdu ; 
+    short histpad=0, specbiny;
+    short xmint, xmaxt, *ylowt=NULL, *yhight=NULL;
+    float ycent_data, ycent_tab ;
+    long j, npts ;
+    char ycentname[FLEN_VALUE]={'\0'}, chidfile[FLEN_VALUE] ;
+    char instmode[FLEN_VALUE];
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    /* Read the measured centroid from the input file header. */
+    FITS_movabs_hdu(infits, 1, &hdutype, &status) ;
+    sprintf(ycentname,"YCENT%1d",aperture) ;
+    FITS_read_key(infits, TFLOAT, ycentname, &ycent_data, NULL, &status);
+    cf_verbose(3, "Reading extraction limits for aperture %d ", aperture) ;
+    cf_verbose(3, "ycent keyword = %s, value=%5.1f ", ycentname, ycent_data) ;
+
+    /* Read instrument mode and binning factor from file header. */
+    FITS_read_key(infits, TSTRING, "INSTMODE", instmode, NULL, &status);
+    FITS_read_key(infits, TSHORT, "SPECBINY", &specbiny, NULL, &status);
+
+    /* Which HDU to read depends on both channel and source type. */
+    hdu = aperture + 1;
+    if (srctype) hdu += 8;
+
+    /* Open the CHID_CAL file. */
+    FITS_read_key(infits, TSTRING, "CHID_CAL", chidfile, NULL, &status);
+    cf_verbose(3, "spectral extraction file = %s, HDU = %d", chidfile, hdu);
+    FITS_open_file(&chidfits, cf_cal_file(chidfile), READONLY, &status);
+    FITS_movabs_hdu(chidfits, hdu, &hdutype, &status);
+
+    /* Read X limits of extraction window. */
+    FITS_read_key(chidfits, TSHORT, "XMIN", &xmint, NULL, &status);
+    FITS_read_key(chidfits, TSHORT, "XMAX", &xmaxt, NULL, &status);
+
+    /* Read centroid of tabulated extraction window. */
+    FITS_read_key(chidfits,TFLOAT,"CENTROID",&ycent_tab,NULL,&status);
+
+    /* For point-source data taken in HIST mode, pad window. */
+    if ((!strncmp(instmode, "HIST", 4)) && !srctype) histpad = specbiny;
+	/* FITS_read_key(chidfits,TSHORT,"HIST_PAD",&histpad,NULL,&status); */
+
+    /* Read the upper and lower boundaries of the extraction slit. */
+    npts=cf_read_col(chidfits, TSHORT, "YLOW",  (void **) &ylowt);
+    npts=cf_read_col(chidfits, TSHORT, "YHIGH", (void **) &yhight);
+    FITS_close_file(chidfits, &status) ;
+
+    /* If the spectral centroid has been measured, shift the aperture
+       limits so that the tabulated centroid equals the measured value. */
+    if (ycent_data > 1 && ycent_data < NYMAX) {
+	dcent = (short) cf_nint(ycent_data - ycent_tab) ;
+        cf_verbose(3, "shifting extraction window: ycent_tab=%5.1f, delta=%d",
+            ycent_tab, dcent) ;
+        for (j = xmint; j <= xmaxt; j++) {
+	    ylowt[j]  += dcent ;
+            yhight[j] += dcent ; 
+	}
+    }
+
+    /* If HIST_PAD > 0, pad the extraction window, top and bottom. */
+    if (histpad > 0) {
+        cf_verbose(3, "HIST point source.  "
+	    "Padding extraction window by +/- %d pixels", histpad);
+        for (j = xmint; j <= xmaxt; j++) {
+	    ylowt[j]  -= histpad ;
+	    yhight[j] += histpad ; 
+	}
+    }
+
+    /* Return the extraction limits. */
+    *xmin = xmint;
+    *xmax = xmaxt;
+    *ylow = ylowt ;
+    *yhigh = yhight ;
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return npts ;
+}
diff --git a/src/libcf/cf_fes_proc_check.c b/src/libcf/cf_fes_proc_check.c
new file mode 100644
index 0000000..74a41b4
--- /dev/null
+++ b/src/libcf/cf_fes_proc_check.c
@@ -0,0 +1,94 @@
+/******************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ ******************************************************************************
+ *
+ * Synopsis:    cf_fes_proc_check(fitsfile *fptr, char *prog_id)
+ *
+ * Description: cf_fes_proc_check will determine if a given calibration
+ *              step is to be performed on the data.  It will also
+ *              determine whether all previous steps have been
+ *              completed successfully.
+ *
+ * Arguments:   fitsfile    *fptr	Pointer to input file
+ *              char        *prog_id 	Procedure name
+ *
+ * History:     06/21/98        emm     Begin work.
+ *		08/19/2004 1.1	wvd	Move to v3.0, add CF_VER_NUM,
+ *					change cf_errmsg to cf_if_error.
+ *		09/07/2007 1.2	bot	Removed unused CF_VER_NUM and CF_PRGM_ID
+ *
+ *****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+#define  MAXCHARS 120
+
+int cf_fes_proc_check(fitsfile *fptr, char *prog_id) 
+{
+    int   i,j, status=0;
+    char  comment[FLEN_CARD], key_value[FLEN_CARD];
+    char  complete[19], skipped[19], perform[19];
+
+    /*
+     *  The calfuse.h file contains the definitions of fes_keyword_tab
+     *  NUM_PROC_STEPS, and CALIBRATION_STEP_KEYS.
+     */
+    struct fes_keyword_tab keytab[NUM_FES_PROC_STEPS]=FES_CALIBRATION_STEP_KEYS;
+    status=0;
+
+    strncpy(complete,"COMPLETE          ",19);
+    strncpy(skipped, "SKIPPED           ",19);
+    strncpy(perform, "PERFORM           ",19);
+
+    j=0;
+    /*
+     *  First, determine if this procedure is even supposed to be
+     *  run on this data.
+     */
+    while ((strncmp(keytab[j].proc,prog_id, strlen(keytab[j].proc)) != 0) &&
+	   (j < NUM_FES_PROC_STEPS)) j++;
+    if ((j >= NUM_FES_PROC_STEPS) || 
+	(strncmp(keytab[j].value,perform,7))) {
+	cf_if_error("Processing step does not "
+		  "need to be run on this type of data.");
+	fprintf(stderr,"     Step %18.18s does not need "
+		"to be run.\n",prog_id);
+	return 1;
+    }
+
+    status=0;
+    fits_read_key_str(fptr, keytab[j].name, key_value, comment, 
+		      &status);
+
+    /* Now check to see if the step has already been completed. */
+    if (strncmp(key_value,complete,7)==0) {
+	cf_if_error("Processing step has already been completed.\n");
+	fprintf(stderr,"     Step %18.18s does not need to be run.\n",
+		prog_id);
+	return 1;
+    }
+
+    /*  Now determine if the previous programs are all complete. */
+    for (i=0; i
+#include 
+#include "calfuse.h"
+
+int cf_fes_proc_update(fitsfile *fptr, char *prgm_id, char *key_value) 
+{
+    int i=0, status=0;
+    /*
+     *  The calfuse.h file contains the definitions of fes_keyword_tab
+     *  NUM_FES_PROC_STEPS, and FES_CALIBRATION_STEP_KEYS.
+     */
+    struct fes_keyword_tab keytab[NUM_FES_PROC_STEPS]=FES_CALIBRATION_STEP_KEYS;
+    /*
+     *  Find the keyword associated with prgm_id by looping 
+     *  through keytab[i].proc
+     */
+    while ((strncmp(keytab[i].proc,prgm_id, strlen(keytab[i].proc)) != 0) &&
+	   (i < NUM_FES_PROC_STEPS)) i++;
+    if (i < NUM_FES_PROC_STEPS) {
+	/*
+	 *  We found a match to prgm_id, so change the associated
+	 *  keyword in the header.
+	 */
+	fits_modify_key_str(fptr,keytab[i].name,key_value,
+			    "&",&status);
+	if (status) {
+	    cf_if_error("Error updating keyword");
+	    return status;
+	}
+    }
+    else {
+	/*
+	 *  The given prgm_id did not match any of the known
+	 *  keytab[i].hist_proc, so return 1.
+	 */
+	cf_if_error("Program ID does not apply to this"
+		  "type of file, could not update");
+	fprintf(stderr,"Failed to update program id:%20.20s\n",
+		    prgm_id);
+	return 1;
+    }
+    return status;
+}
diff --git a/src/libcf/cf_fifo_dead_time.c b/src/libcf/cf_fifo_dead_time.c
new file mode 100644
index 0000000..67ac065
--- /dev/null
+++ b/src/libcf/cf_fifo_dead_time.c
@@ -0,0 +1,164 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_fifo_dead_time(fitsfile *header, long nevents,
+ *		float *ptime, long nseconds, float *ttime, float *aic_rate,
+ *		float *ids_dtc)
+ *
+ * Description: Searches high-count-rate observations for data drop-outs
+ *		due to FIFO overflows.  If found, calculates time-dependent
+ *		scale factor to correct for lost photon events.
+ *
+ * Arguments:   fitsfile  *header       Pointer to FITS file containing the
+ *                                      header of the intermediate data file
+ *              long      nevents       Number of photon events in the file
+ *              float     *ptime        Detection time for each photon
+ *              long      nseconds      The number of timeline values
+ *              float     *ttime        Tabulated times in the timeline
+ *              float     *aic_rate     Active Image Counter array
+ *              float     *ids_dtc      IDS dead-time correction array
+ *					(modified)
+ *
+ * Calls:
+ *
+ * Return:      0  on success
+ *
+ * History of cf_screen_fifo_overflow:
+ *
+ *		02/10/04   1.1    wvd   Begin work
+ *              02/17/05   1.2    wvd   Place parentheses around assignment
+ *                                      used as truth value.
+ *              11/09/05   1.3    wvd   In the current scheme, the rate_lif
+ *					and rate_sic arrays contain values
+ *					from the housekeeping file and do
+ *					not reflect data loss due to FIFO
+ *					overflows.  Now we calculate the
+ *					count-rate array directly from the
+ *					photon time array.
+ *              02/23/06   1.4    wvd   Change length of data_rate array
+ *					from nevents to nseconds.
+ *
+ * History:	12/29/06   1.1    wvd	Derived from cf_screen_fifo_overflow.
+ *              01/15/07   1.2    wvd   When count rate is zero, correct one
+ *					second before to two seconds after.
+ *              02/08/07   1.3    wvd   If TTPERIOD = 0, set it to 1.
+ *              04/07/07   1.4    wvd   Clean up compiler warnings.
+ *
+ ****************************************************************************/
+
+#include 
+#include "calfuse.h"
+
+int
+compute_count_rate(long nevents, float *ptime, long nseconds,
+    float *ttime, long **data_rate)
+{
+    float delta_max = 1.0 + FRAME_TOLERANCE;
+    long j,k;
+
+    *data_rate = (long *) cf_calloc(nseconds, sizeof(long));
+    for (j=k=0; j 3200, look for data drop-outs. */
+    if (mean_ids_rate > 3200 && nseconds > 4) {
+	compute_count_rate(nevents, ptime, nseconds, ttime, &data_rate);
+	flag_array = (int *) cf_calloc(nseconds, sizeof(int));
+
+        /* If count rate goes to zero, set flag_array.  Where possible,
+	   set flags from one second before to two seconds after. */
+	for (k=0; k<1; k++) if (data_rate[k] == 0) 
+	    flag_array[k] = flag_array[k+1] = flag_array[k+2] = TRUE;
+
+	for ( ; k
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+#define YLENGTH		NYMAX/16
+
+int
+cf_find_spectra(fitsfile *header, long nevents,
+	float *weight, float *xfarf, float *yfarf, unsigned char *channel,
+	unsigned char *timeflags, unsigned char *locflags, int airglow_centroid)
+{
+    char aper[FLEN_VALUE], instmode[FLEN_VALUE], quality[FLEN_VALUE];
+    char key[FLEN_KEYWORD], filename[FLEN_VALUE], detector[FLEN_VALUE];
+    double norm, ysum;
+    float bkgd, peak, ycent, yshift=0;
+    float yairg[NYMAX], ydist[NYMAX], ysigma[NYMAX];
+    float ybin[YLENGTH], sbin[YLENGTH], ycent_tab[8];
+    float dy, sigma, xmin, xmax, ycent_air;
+    int  active_ap[2], airglow=FALSE, target_ap, status=0;
+    int  bkgd_num, bkgd_min[8], bkgd_max[8];
+    int  chan_num, errflg = 0, lwrs;
+    int  chan_order[] = { 3, 2, 1, 7, 6, 5 };
+    int  center, high, low, npeak, hdu;
+    int  spex_sic, spex_lif, emax, emax_sic, emax_lif, extended;
+    long i, j, k;
+    fitsfile  *chidfits, *parmfits;
+
+    char CF_PRGM_ID[] = "cf_find_spectra";
+    char CF_VER_NUM[] = "1.20";
+
+    /* Initialize error checking */
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    /* Enter a time stamp into the log */
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    /* Check whether routine is appropriate for this data file. */
+    if ( (errflg = cf_proc_check(header, CF_PRGM_ID)) ) return errflg;
+
+    /* Initialize Y-distribution arrays. */
+    for (i = 0; i < NYMAX; i++)
+	yairg[i] = ydist[i] = ysigma[i] = 0.;
+    for (i = 0; i < YLENGTH; i++)
+	ybin[i] = sbin[i] = 0.;
+
+    /* Read header keywords from IDF. */
+    FITS_read_key(header, TSTRING, "INSTMODE", instmode, NULL, &status);
+    FITS_read_key(header, TSTRING, "DETECTOR", detector, NULL, &status);
+    FITS_read_key(header, TSTRING, "APERTURE", aper, NULL, &status);
+    extended = cf_source_aper(header, active_ap);
+
+    FITS_read_key(header, TINT, "BKGD_NUM", &bkgd_num, NULL, &status);
+    for (i = 0; i < bkgd_num; i++) {
+	sprintf(key, "BKG_MIN%ld", i);
+        FITS_read_key(header, TINT, key, bkgd_min+i, NULL, &status);
+	sprintf(key, "BKG_MAX%ld", i);
+        FITS_read_key(header, TINT, key, bkgd_max+i, NULL, &status);
+    }
+
+    /* Read expected channel centroids from CHID_CAL file. */
+    FITS_read_key(header, TSTRING, "CHID_CAL", filename, NULL, &status);
+    FITS_open_file(&chidfits, cf_cal_file(filename), READONLY, &status);
+    for (i = 1; i < 8; i++) {
+	if (i==4) continue;
+        if ((i == active_ap[0] || i == active_ap[1]) && !extended) hdu=i+1;
+	else hdu=i+9;
+	FITS_movabs_hdu(chidfits, hdu, NULL, &status);
+	FITS_read_key(chidfits, TFLOAT, "CENTROID", ycent_tab+i, NULL, &status);
+    }
+    FITS_read_key(chidfits, TFLOAT, "XMIN", &xmin, NULL, &status);
+    FITS_read_key(chidfits, TFLOAT, "XMAX", &xmax, NULL, &status);
+    FITS_close_file(chidfits, &status);
+
+    /* 
+     * Generate photon and airglow arrays as a function of YFARF.
+     * Ignore events near the detector edge.
+     */
+    xmin += 250;
+    xmax -= 250;
+    for (i = 0; i < nevents; i++) {
+	if (!(timeflags[i] & ~TEMPORAL_DAY) &&
+	    (xfarf[i] > xmin) && (xfarf[i] < xmax)) {
+	    if (!locflags[i])
+	        ydist[cf_nint(yfarf[i])] += weight[i];
+	    else if (locflags[i] == LOCATION_AIR)
+	        yairg[cf_nint(yfarf[i])] += weight[i];
+	}
+    }
+    /* Set error array equal to photon counts (= variance). */
+    for (i = 0; i < NYMAX; i++)
+	ysigma[i] = ydist[i];
+
+    /* If exposure was taken in TTAG mode, estimate BKGD level */
+    bkgd = 0.;
+    if (!strcmp(instmode, "TTAG")) {
+	k = 0;
+	for (i = 0; i < bkgd_num; i++) {
+	    for (j = bkgd_min[i]; j <= bkgd_max[i]; j++) {
+		bkgd += ydist[j];
+		k++;
+	    }
+	}
+	bkgd /= k;
+	cf_verbose(3, "Mean background level: %.1f", bkgd);
+    }
+
+    /* Subtract mean background and bin data by 16 pixels. */
+    for (i = 0; i < NYMAX; i++) {
+	j = i / 16;
+	ybin[j] += ydist[i] - bkgd;
+	sbin[j] += ysigma[i];
+    }
+    for (i = 0; i < YLENGTH; i++) sbin[i] = sqrt(sbin[i]);
+
+    /* Read extraction parameters from PARM_CAL file. */
+    FITS_read_key(header, TSTRING, "PARM_CAL", filename, NULL, &status);
+    FITS_open_file(&parmfits, cf_parm_file(filename), READONLY, &status);
+    FITS_read_key(parmfits,TINT,"SPEX_SIC",&spex_sic,NULL,&status);
+    FITS_read_key(parmfits,TINT,"SPEX_LIF",&spex_lif,NULL,&status);
+    FITS_read_key(parmfits,TINT,"EMAX_SIC",&emax_sic,NULL,&status);
+    FITS_read_key(parmfits,TINT,"EMAX_LIF",&emax_lif,NULL,&status);
+    FITS_close_file(parmfits,&status);
+
+    /* Determine centroid for each channel. */
+    for (k = 0; k < 6; k++) {
+	chan_num = chan_order[k];
+
+	/* Is this the LWRS aperture? */
+	if (chan_num == 3 || chan_num == 7)
+	    lwrs = TRUE;
+	else 
+	    lwrs = FALSE;
+
+	/* Is it the target aperture? */
+	if (chan_num == active_ap[0] || chan_num == active_ap[1])
+	    target_ap = TRUE;
+	else
+	    target_ap = FALSE;
+
+        /* If we're in histogram mode, and this is not the target aperture,
+	   move to next aperture. */
+        if (!strncmp(instmode, "HIST", 4) && !target_ap) {
+	    if (lwrs) yshift = 0;
+	    continue;
+	}
+
+	/* First, we compute a centroid from the airglow lines.
+	   For the LWRS aperture, search within 70 pixels of
+	   the expected centroid.  Compute the offset between the
+	   measured and tabulated centroids.  For the MDRS and HIRS
+	   apertures, apply the offset computed from the LWRS aperture
+	   to the tabulated centroid.
+	   Disregard regions near the bottom and top of the detector. */
+
+	if (lwrs) {
+	    center = cf_nint(ycent_tab[chan_num]);
+	    dy = 70;
+            if ((low  = center-dy) < 16) low = 16;
+            if ((high = center+dy) > NYMAX-50) high = NYMAX-50;
+	    norm = ysum = 0.;
+	    for (i = low; i <= high; i++) {
+		ysum += i * yairg[i];
+		norm += yairg[i];
+	    }
+
+	    /* If the airglow lines contain at least 33 events, use their
+	       centroid.  If not, use the tabulated centroid. */
+	    if (norm > 33.) {
+		ycent = ysum / norm;
+		yshift = ycent - ycent_tab[chan_num];
+		airglow = TRUE;
+	    }
+	    else {
+		ycent = ycent_tab[chan_num];
+		yshift = 0;
+		airglow = FALSE;
+	    }
+	}
+ 		/* For MDRS and HIRS apertures */
+	else
+	    ycent = yshift + ycent_tab[chan_num];
+
+	/* Remember airglow centroid */
+	ycent_air = ycent;
+
+	/* Now we find the centroid for the target spectrum.  If we are
+	   in a target aperture and user has specified YCENT, use it. */
+
+	if (target_ap && ((chan_num<5 && spex_lif>=0 && spex_lif<1024) ||
+	    (chan_num>4 && spex_sic>=0 && spex_sic<1024))) {
+            if (chan_num<5) ycent=spex_lif;
+            else ycent=spex_sic;
+            sprintf(key, "YCENT%1d", chan_num);
+            FITS_update_key(header, TFLOAT, key, &ycent, NULL, &status);
+	    sprintf(quality, "HIGH");
+            sprintf(key, "YQUAL%1d", chan_num);
+            FITS_update_key(header, TSTRING, key, quality, NULL, &status);
+            cf_verbose(1, "Channel %d: User-specified Y centroid = %.2f",
+                chan_num, ycent);
+	    continue;
+        }
+
+	/* If we must find the target spectrum ourselves, use the binned
+	   data array to improve the S/N.  Search within 2 binned pixels
+	   of ycent, however it was computed. */
+
+	center = cf_nint(ycent / 16.);
+	dy = 2;
+	if ((low = center - dy) < 3) low = 3;
+	if ((high = center + dy) > YLENGTH-4) high = YLENGTH-4;
+
+	npeak = 0;
+	peak = -1.0E5;
+	for (i = low; i <= high; i++) {
+	    if (ybin[i] > peak) {
+		peak = ybin[i];
+		npeak = i;
+	    }
+	}
+
+	/* If peak is significant, compute Y centroid for events falling
+	   within 40 pixels of peak.  If this number is within 30 pixels
+	   of airglow centroid, use it.  If not, use airglow centroid.
+	   Note that we require a higher significance for the SiC LWRS
+	   channel on side 1, because it sits on an elevated background. */
+
+	if (!strncmp(detector, "1", 1) && chan_num == 7) sigma = 9.;
+	else sigma = 5.;
+
+	sprintf(quality, "UNKNOWN");
+
+	if (peak > sigma * sbin[npeak] && !airglow_centroid) {
+	    center = npeak * 16 + 8;
+	    dy = 40;
+	    if ((low = center - dy) < 32) low = 32;
+	    if ((high = center + dy) > NYMAX-50) high = NYMAX-50;
+	    norm = ysum = 0.;
+	    for (i = low; i <= high; i++) {
+		ysum += i * ydist[i];
+		norm += ydist[i];
+	    }
+	    ycent = ysum / norm;
+
+	    /* Don't test offset for HIST data. (wvd, 03/14/2008) */
+	    if (fabs(ycent - ycent_air) < 30 || !strncmp(instmode, "HIST", 4)) {
+	    	sprintf(quality, "HIGH");
+	    	cf_verbose(3, "Channel %d: default centroid: %.2f",
+			chan_num, ycent_tab[chan_num]);
+	    	if (airglow) cf_verbose(3, "Channel %d: airglow centroid: %.2f",
+			chan_num, ycent_air);
+	    	cf_verbose(3,"Channel %d: counts in peak = %.0f, limit = %.0f",
+			chan_num, peak, sigma * sbin[npeak]);
+	    	cf_verbose(2, "Channel %d: using target centroid = %.2lf",
+			chan_num, ycent);
+	    }
+	}
+	/* If peak is not significant or ycent differs too much from
+	   the airglow centroid, use the airglow centroid. */
+	if (!strncmp(quality, "UNKNOWN", 1)) {
+	    if (airglow) {
+		sprintf(quality, "MEDIUM");
+	        cf_verbose(3, "Channel %d: default centroid: %.2f",
+		    chan_num, ycent_tab[chan_num]);
+		cf_verbose(3,"Channel %d: peak = %.0f, limit = %.0f",
+		    chan_num, peak, sigma * sbin[npeak]);
+		cf_verbose(2, "Channel %d: using airglow centroid = %.2lf",
+		    chan_num, ycent);
+	    }
+	    else {
+	        sprintf(quality, "LOW");
+		cf_verbose(3,"Channel %d: peak = %f, limit = %f",
+		    chan_num, peak, sigma * sbin[npeak]);
+		cf_verbose(2, "Channel %d: using default centroid = %.2lf",
+		    chan_num, ycent);
+	    }
+	}
+
+	/* If centroid lies too far from the default value, use default. */
+        if (chan_num<5) emax=emax_lif; else emax=emax_sic;
+	    /* Don't test offset for HIST data. (wvd, 11/25/2008) */
+        if (fabs(ycent - ycent_tab[chan_num]) > emax && !strncmp(instmode, "TTAG", 4)) {
+	    if (target_ap) {
+        	cf_verbose(1, "Computed centroid (%.1lf) is too far from "
+		    "expected value.", ycent);
+	        cf_verbose(1, "Channel %d: using default centroid of %.1f",
+		    chan_num, ycent_tab[chan_num]);
+	    }
+	    else {
+	        cf_verbose(2, "Channel %d: using default centroid of %.1f",
+		    chan_num, ycent_tab[chan_num]);
+	    }
+            ycent = ycent_tab[chan_num];
+	    sprintf(quality, "LOW");
+        }
+
+	/* Write results to file header */
+        sprintf(key, "YCENT%1d", chan_num);
+        FITS_update_key(header, TFLOAT, key, &ycent, NULL, &status);
+        sprintf(key, "YQUAL%1d", chan_num);
+        FITS_update_key(header, TSTRING, key, quality, NULL, &status);
+    }
+
+    cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done Processing");
+
+    return status;
+}
diff --git a/src/libcf/cf_fpa_position.c b/src/libcf/cf_fpa_position.c
new file mode 100644
index 0000000..fd7229c
--- /dev/null
+++ b/src/libcf/cf_fpa_position.c
@@ -0,0 +1,231 @@
+/****************************************************************************
+ *
+ * Synopsis:    cf_fpa_position(fitsfile *header, long nevents, float *x,
+ *                       unsigned char *channel)
+ *
+ * Description: Modify X position of photon events to account for an offset
+ *              of the focal plane assembly (FPA)
+ *
+ * Arguments:   fitsfile *header        Pointer to the FITS header
+ *                                      of the Intermediate Data File
+ *              long     npts           Number of photons in the file
+ *              float    *x             X positions for each photon event
+ *     unsigned char     *channel       Assigned channel of each photon
+ *
+ * Calls:       None
+ *
+ * Return:      0 on success 
+ *
+ * History:	09/04/02 v1.1	wvd	Based on cf_dpix by HSU
+ * 		01/14/03 v1.3	wvd	Rename cf_fpa_pos to cf_read_fpa_pos
+ *					Move spectrograph optical parameters
+ *					 to separate calibration file.
+ *					Abandon linear wavelength scale.
+ * 		02/13/03 v1.4	wvd	Write FPA shifts to file header.
+ * 		04/07/03 v1.5	wvd	Change keywords to FPADXLIF and
+ *					FPADXSIC.  Implement cf_verbose.
+ *					Comment out cf_proc_check.
+ *					Test channel[i] as int, not char.
+ *              05/20/03 v1.6   rdr     Added call to cf_proc_check.
+ * 		08/21/03 v1.7	wvd	Change channel to unsigned char.
+ * 		08/23/05 v1.8	wvd	If either FPA position is out of 
+ *					bounds, issue a warning and set
+ *					that FPA correction to zero.
+ * 		08/01/05 v1.9	wvd	Broaden FPA limits by +/- 1.
+ * 		09/06/05 v1.10  wvd	Correct for both X and Z motions
+ *					of FPA.
+ *					Delete call to cf_read_fpa_pos.c
+ * 		12/02/05 v1.11  wvd	Delete unused variables.
+ *              04/07/07 v1.12  wvd	Clean up compiler warnings.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+#define PIX1 2500		/* PIX1,2 are just inside the non-linear */
+#define PIX2 13500		/*  regions of the detector 		 */
+
+int cf_fpa_position(fitsfile *header, long nevents, float *x,
+	unsigned char *channel)
+{
+    char CF_PRGM_ID[] = "cf_fpa_position";
+    char CF_VER_NUM[] = "1.12";
+
+    int   errflg=0, status=0, hdutype, hdunum;
+    int   nwave;     /* number of pixels in calibration file */
+    char  aperture[FLEN_VALUE];  /* aperture keyword from FITS header */
+    char  detector[FLEN_VALUE];  /* detector keyword from FITS header */
+    char  wave_file[FLEN_FILENAME]; /* name of wavelength calibration file */
+    char  spec_file[FLEN_FILENAME]; /* name of spectrograph calibration file */
+    long  i;
+			/* Spectrograph optical parameters */
+    float alpha, alpha_lif, alpha_sic, sigma_lif, sigma_sic, diam;
+    float *wavelength;  /* wavelengths read from calibration file */
+    float fpaxlifdata;	/* LiF FPA X position in microns for spectrum */
+    float fpaxsicdata;	/* SiC FPA X position in microns for spectrum */
+    float fpaxcal;	/* FPA X position in microns for calibration file */
+    float dxfpa;	/* fpax_data - fpaxcal */
+    float fpazlifdata;	/* LiF FPA Z position in microns for spectrum */
+    float fpazsicdata;	/* SiC FPA Z position in microns for spectrum */
+    float fpazcal;	/* FPA Z position in microns for calibration file */
+    float dzfpa;	/* fpaz_data - fpazcal */
+    float dpix, dpix_LiF, dpix_SiC; /* Spectral shift (in pixels)*/
+
+    double w1, w2;	/* wavelengths at which to sample calibration */
+    double beta1,beta2;	/* grating exit angle for w1, w2 */
+    double sinalpha;	/* sin (spectrograph entrance angle) */
+    double cosalpha;	/* cos (spectrograph entrance angle) */
+    double sigma;	/* grating groove spacing in Angstroms */
+    double cosbeta;	/* cos (mean grating exit angle) */
+    double pixscale;	/* mean effective microns/pixel for det segment */
+    fitsfile *specfits, *wavefits;
+
+    /* Initialize error checking */
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    /* Enter a timestamp into the log. */
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    /* Check whether routine is appropriate for this data file. */
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    /* Read keywords from data file header. */
+    FITS_read_key(header, TSTRING, "DETECTOR", detector, NULL, &status);
+    FITS_read_key(header, TSTRING, "APERTURE", aperture, NULL, &status);
+    FITS_read_key(header, TFLOAT,  "FPASXPOS", &fpaxsicdata, NULL, &status);
+    FITS_read_key(header, TFLOAT,  "FPALXPOS", &fpaxlifdata, NULL, &status);
+    FITS_read_key(header, TFLOAT,  "FPASZPOS", &fpazsicdata, NULL, &status);
+    FITS_read_key(header, TFLOAT,  "FPALZPOS", &fpazlifdata, NULL, &status);
+    FITS_read_key(header, TSTRING, "SPEC_CAL", spec_file, NULL, &status);
+    FITS_read_key(header, TSTRING, "WAVE_CAL", wave_file, NULL, &status);
+
+    /* Read spectrograph optical parameters from SPEC_CAL file. */
+    FITS_open_file(&specfits, cf_cal_file(spec_file), READONLY, &status);
+    FITS_read_key(specfits, TFLOAT, "ALPHALIF", &alpha_lif, NULL, &status);
+    FITS_read_key(specfits, TFLOAT, "ALPHASIC", &alpha_sic, NULL, &status);
+    FITS_read_key(specfits, TFLOAT, "SIGMALIF", &sigma_lif, NULL, &status);
+    FITS_read_key(specfits, TFLOAT, "SIGMASIC", &sigma_sic, NULL, &status);
+    FITS_read_key(specfits, TFLOAT, "DIAM", &diam, NULL, &status);
+    FITS_close_file(specfits, &status);
+
+    /* Determine the extension number (LiF) from aperture */
+    hdunum = 4;					/* Default is LWRS */
+    if (!strcmp(aperture, "HIRS")) hdunum = 2;
+    if (!strcmp(aperture, "MDRS")) hdunum = 3;
+
+    /* Open wavelength calibration file */
+    FITS_open_file(&wavefits, cf_cal_file(wave_file), READONLY, &status);
+
+    /* Loop over the two apertures; first (i==0) LiF, then SiC. */
+    /* Determine shifts for LiF and SiC channels.		*/
+    for(i=0; i<2; i++) {
+
+	/* Move to appropriate HDU in WAVECAL file. */
+	hdunum += i*4;
+	FITS_movabs_hdu(wavefits, hdunum, &hdutype, &status);
+
+	/* Get FPA position for which WAVECAL was derived */
+	FITS_read_key(wavefits, TFLOAT, "FPACXPOS", &fpaxcal, NULL, &status);
+	FITS_read_key(wavefits, TFLOAT, "FPACZPOS", &fpazcal, NULL, &status);
+
+        /* Read the wavelength array from the WAVECAL file. */
+	nwave=cf_read_col(wavefits, TFLOAT,"WAVELENGTH", (void **) &wavelength);
+
+	/* Set LiF/SIC-dependent quantities */
+	if (i == 1) { 			/* SiC data */
+	    dxfpa = fpaxsicdata - fpaxcal;
+	    dzfpa = fpazsicdata - fpazcal;
+	    sigma = sigma_sic;
+	    alpha = alpha_sic;
+	} else { 			/* LiF data */
+	    dxfpa = fpaxlifdata - fpaxcal;
+	    dzfpa = fpazlifdata - fpazcal;
+	    sigma = sigma_lif;
+	    alpha = alpha_lif;
+	}
+	/*
+	 * Compute mean pixel scale from points just inside the
+	 * highly-nonlinear regions at edges of detectors */
+        w1 = wavelength[PIX1];
+        w2 = wavelength[PIX2];
+	sinalpha = sin (alpha * RADIAN);
+	cosalpha = cos (alpha * RADIAN);
+	beta1 = asin (w1/sigma - sinalpha);
+	beta2 = asin (w2/sigma - sinalpha);
+	cosbeta = cos ((beta1 + beta2)/2.);  /* mean cosbeta for segment */
+	pixscale = diam * fabs(beta1 - beta2) * 1000. / (double)(PIX2-PIX1);
+
+	/* Compute shift of spectrum in pixels due to the FPA offset. */
+	if (i == 1)			/* SiC data */
+	    dpix = (dxfpa * cosalpha + dzfpa * sinalpha) / cosbeta / pixscale;
+
+	else				/* LiF data */
+	    dpix = (dxfpa * cosalpha - dzfpa * sinalpha) / cosbeta / pixscale;
+
+	/* For side 2, multiply the above expressions by -1. */
+	if (!strncmp(detector, "2", 1))
+	    dpix *= -1;
+
+	/* Write info to log file */
+	if (i == 1) {
+	   dpix_SiC = dpix;
+	   cf_verbose(3, "FPAX data: %8.3f   FPAX calib: %8.3f",
+		   fpaxsicdata, fpaxcal);
+	   cf_verbose(3, "FPAZ data: %8.3f   FPAZ calib: %8.3f",
+		   fpazsicdata, fpazcal);
+	   cf_verbose(2, "SiC spectra to be shifted by %8.3f pixels", dpix_SiC);
+	}
+	else {
+	   dpix_LiF = dpix;
+	   cf_verbose(3, "FPAX data: %8.3f   FPAX calib: %8.3f",
+		   fpaxlifdata, fpaxcal);
+	   cf_verbose(3, "FPAZ data: %8.3f   FPAZ calib: %8.3f",
+		   fpazlifdata, fpazcal);
+	   cf_verbose(2, "LiF spectra to be shifted by %8.3f pixels", dpix_LiF);
+	}
+  
+    } /* End of i loop */
+
+    /* Close the WAVECAL file */
+    FITS_close_file(wavefits, &status);
+
+    /* If tabulated FPA position is out of range, set the corresponding
+	dpix value to zero and issue a warning. */
+    if (fpaxlifdata < -1 || fpaxlifdata > 401) {
+	dpix_LiF = 0;
+	cf_if_warning("Keyword FPALXPOS is out of bounds.  Setting FPADXLIF = 0.");
+    }
+    if (fpaxsicdata < -1 || fpaxsicdata > 401) {
+	dpix_SiC = 0;
+	cf_if_warning("Keyword FPASXPOS is out of bounds.  Setting FPADXSIC = 0.");
+    }
+
+    /* Shift only photons with assigned apertures. */
+    for(i = 0; i < nevents; i++) {
+	switch(channel[i]) {
+	case 1: case 2: case 3: case 4:
+	    x[i] += dpix_LiF;
+	    break;
+	case 5: case 6: case 7: case 8:
+	    x[i] += dpix_SiC;
+	    break;
+	default:
+	    break;
+	}
+    }
+
+    /* Write shifts to IDF file header */
+    FITS_update_key(header, TFLOAT, "FPADXLIF", &dpix_LiF, NULL, &status);
+    FITS_update_key(header, TFLOAT, "FPADXSIC", &dpix_SiC, NULL, &status);
+
+    /* Update processing flags. */
+    cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+
+    /* Enter a timestamp into the log. */
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+
+    return status;
+}
diff --git a/src/libcf/cf_fuv_init.c b/src/libcf/cf_fuv_init.c
new file mode 100644
index 0000000..a2bb181
--- /dev/null
+++ b/src/libcf/cf_fuv_init.c
@@ -0,0 +1,592 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_fuv_init(fitsfile *fptr)
+ *
+ * Description: cf_fuv_init performs the following functions:
+ *              1.  Populates the data processing step keywords based upon
+ *                  the type of data (TTAG or HIST).  The processing steps
+ *                  and the associated keywords are defined in the 
+ *                  structure CALIBRATION_STEP_KEYS in calfuse.h.
+ *              2.  Populates the orbital parameters in the header by
+ *                  calling read_tle.  The orbital elements come from
+ *                  the file FUSE.TLE, which is in standard NORAD two-line
+ *                  element format.
+ *              3.  Populates the calibration file keywords based on the 
+ *                  time and date of observation, the detector segment, 
+ *                  and the interpolation status of the calibration file.
+ *                  The relation between processing steps and associated
+ *                  calibration file keywords is defined in the structure
+ *                  CALIBRATION_FILE_KEYS in calfuse.h.  The names and
+ *                  effective dates of the calibration files are found in
+ *                  the ASCII-format file master_calib_file.dat in the 
+ *                  CF_PARMDIR directory.
+ *
+ * Input:   fitsfile    *fptr	Pointer to input file
+ *
+ * History:     05/11/98        emm     Begin work.
+ *              05/15/98        emm     finished
+ *              06/04/98        emm     Modified keywords to reflect updated
+ *                                      calfuse design
+ *              11/12/98        emm     Added ability to read orbital elements
+ *                                      from file FUSE.TLE.
+ *              03/18/99        emm     Added call to cf_cal_file.  master_
+ *                                      calib_file.dat must now be in the
+ *                                      CF_CALDIR directory.  (on 08/25/99
+ *                                      this became CF_PARMDIR).
+ *              03/18/99        emm     Edited header only.
+ *              04/14/99        peb     Increased strings sizes to prevent
+ *                                        character overflow.
+ *                                      Implemented FITS wrapper functions.
+ *              05/19/99        peb     Implemented cf_error_msg functions.
+ *              06/07/99        peb     Added reporting of version number.
+ *              07/29/99        emm     Added CF_VERS keyword update.
+ *              08/25/99        emm     master_calib_file.dat now in CF_PARMDIR
+ *              12/06/99 v1.8   emm     Removed cf_if_error call when master
+ *                                      calib file keyword not found.
+ *		10/13/00 v1.9	jwk	change CF_VER_NUM from "1.5"
+ *		08/23/01 v1.10  wvd     Read PARM file; if requested, set
+ *					BRST_COR, ASTG_COR, PHAX_COR, 
+ *					MKBK_COR, or BKGD_COR to "OMIT"
+ *		10/23/01 v1.11  hsu     Check OPUS version
+ *		10/26/01 v1.12  wvd     Install subroutine.
+ *		02/11/02 v1.13  wvd     Check detector bias levels.
+ *		02/13/02 v1.14  wvd     Modified bias logic; write warning
+ *					to data header as COMMENT lines.
+ *		02/13/02 v1.15  wvd     Don't crash if bias keywords missing.
+ *		02/19/02 v1.16  wvd     Check whether voltage too high
+ *		02/20/02 v1.17  wvd     If keyword RAWTIME does not exist,
+ *					create with value of EXPTIME
+ *              10/30/02  1.18  peb     Converted header to calfusettag.h
+ *		03/26/03  1.4   wvd	Removed "Warning" from warnings.
+ *              04/16/03 v1.5   wvd     Test for corrupted bias values.
+ *                                      Update comment field for HV_FLAG.
+ *		04/28/03 v1.6   wvd	Change logic of assigning cal files
+ *                                      never to extrapolate forward in time.
+ *		07/23/03 v1.7   wvd	Write HSKP_CAL to file header.
+ *		07/23/03 v1.8   wvd	Change calfusettag.h to calfuse.h
+ *		09/09/03 v1.9   wvd	Read SAA_SCR and LIMB_SCR from
+ *					SCRN_CAL and set RUN_SAA and RUN_LIMB.
+ *		04/27/04 v1.10  wvd	Keywords MKBK_COR and BKGD_COR are
+ *					gone, so we don't populate them.
+ *		06/04/04 v1.11  wvd	Allow for the possibility that the
+ *					time associated with a calibration
+ *					file exactly equals EXPSTART.
+ *		06/14/04 v1.12  wvd	Check value of BRIT_OBJ keyword and
+ *					modify header accordingly.
+ *					Write CF_VERS to trailer file.
+ *		07/16/04 v1.13  wvd	Must set ASTG_COR to PERFORM, as
+ *					pipeline doesn't do it automatically.
+ *		11/26/04 v1.14  wvd	Check whether SAA_SCR and LIMB_SCR
+ *					are ON or OFF, not YES or NO.
+ *		12/02/04 v1.15  wvd	Read value of RUN_JITR from PARM file.
+ *		03/24/05 v1.16  wvd	Use HVGOODLM to determine whether
+ *					detector voltage is low.
+ *		06/12/06 v1.17  wvd	Call cf_verbose rather than
+ *					cf_if_warning for non-optimal voltage.
+ *              07/18/08 v1.18  wvd     For bright-earth and airglow exposures, 
+ *					change EXP_STAT to 2, 
+ *					change SRC_TYPE to EE, and
+ *					write warning to file header.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+#define  MAXCHARS 120
+#define  MASTER_CAL_FILE "master_calib_file.dat"
+
+int cf_fuv_init(fitsfile *fptr)
+{
+    char CF_PRGM_ID[] = "cf_fuv_init";
+    char CF_VER_NUM[] = "1.18";
+
+    int   i, status=0, expstat, interp_in, timeref;
+    int   n, hv_flag, lowv, highv, saav, fullv;
+    char  comment[FLEN_CARD], instmode[FLEN_CARD], detector[FLEN_CARD];
+    char  opus_str[FLEN_CARD], keyword_in[FLEN_CARD], segment_in[FLEN_CARD];
+    char  datestr[FLEN_CARD];
+    char  filename_in[]="                    ", rootname[FLEN_CARD];
+    char  hkexists[FLEN_CARD];
+    char  keyword_out1[FLEN_CARD], keyword_out2[FLEN_CARD];
+    char  linin[MAXCHARS];
+    char  run_limb[FLEN_VALUE], run_saa[FLEN_VALUE], src_type[FLEN_VALUE];
+    char  run_brst[FLEN_VALUE], run_walk[FLEN_VALUE], run_astg[FLEN_VALUE];
+    /* char  run_mkbk[FLEN_VALUE], run_bkgd[FLEN_VALUE], brit_obj[FLEN_VALUE]; */
+    char  run_jitr[FLEN_VALUE], brit_obj[FLEN_VALUE];
+    char  hv_str[FLEN_CARD], lv_str[FLEN_CARD], mjd_str[FLEN_CARD];
+    char  saa_str[FLEN_CARD], full_str[FLEN_CARD];
+    float hvgood, mjdv, expstart, aftermjd_in;
+    fitsfile *parmfits, *scrnfits;
+
+    struct keyword_tab  keytab[NUM_PROC_STEPS]=CALIBRATION_STEP_KEYS;
+    struct cal_file_tab calkey[NUMCALKEYS]=CALIBRATION_FILE_KEYS;
+    FILE  *fpin;
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin initializing headers");
+
+    /* Check the OPUS version number */
+    fits_read_key(fptr, TSTRING, "OPUSVERS", opus_str, NULL, &status);
+    if (status) {
+        status = 0;
+	cf_add_header_keywords(fptr);
+	cf_verbose(2, "Data file generated by old version of OPUS.");
+    }
+    else if (atof(opus_str) < OPUS_VERSION) {
+	cf_add_header_keywords(fptr);
+	cf_verbose(2, "Data file generated by old version (%s) of OPUS.", opus_str);
+    }
+    FITS_update_key(fptr, TSTRING, "CF_VERS", CALFUSE_VERSION, NULL, &status);
+    cf_verbose (1, "This is CalFUSE v%s", CALFUSE_VERSION);
+
+    /*
+     *  Populate data processing keywords based on observing mode found
+     *  in the INSTMODE keyword.  NOTE:  We check only the first 
+     *  letter of the INSTMODE keyword.
+     */
+    FITS_read_key(fptr, TSTRING, "INSTMODE", instmode, NULL, &status);
+
+    switch (instmode[0]) {
+    case 'H':
+	/*  Histogram mode */
+	for (i=0; i second cal file preceeding observation
+     *     calkey[i].filenames[1] => cal file immediately preceeding observa-
+     *                                 tion
+     *     calkey[i].filenames[2] => cal file immediately after observation
+     *
+     *  Here is the plan.  Cycle through the master cal file, reading each
+     *  line.  Determine the keyword for each line, and use that to determine
+     *  the appropriate index [i] for calkey.  Then, if the detector segment 
+     *  is correct, determine where the new file fits into the structure above.
+     *  If it is more recent than one or both of the preceeding cal files, 
+     *  but is older than the observation (expstart) replace either 
+     *  filenames[0] or filenames[1].  If filenames[1] is replaced, shift
+     *  the old value down into filenames[0].  If the file is more recent 
+     *  than the observation, and closer to the observation than the file 
+     *  in filenames[2], replace filenames[2].  The values 
+     *  calkey[i].aftermjd[] and calkey[i].interp[] store the date and 
+     *  interpolation status of the best files.  This organization allows
+     *  the master calibration database file to be written in any order.
+     */
+
+    while (fgets(linin, MAXCHARS, fpin) != NULL) {
+        /* Check for comment lines */
+
+	if ((linin[0] != '#') && (linin[0] != '\n')) {
+	    sscanf(linin, "%4c%*2c%2c%*2c%13c%*2c%9f%*2c%1d",keyword_in,
+		   segment_in,filename_in,&aftermjd_in,&interp_in);
+	    /*
+	     *  Determine which keyword we just read in.
+	     */
+	    i=0;
+	    while ((strncmp(calkey[i].name,keyword_in,4) != 0) &&
+		   (i < NUMCALKEYS)) i++;
+	    if (i >= NUMCALKEYS) {
+		cf_if_warning("Keyword %s in %s is unknown", keyword_in, MASTER_CAL_FILE);
+	    } else {
+		if ((strncmp(segment_in,"  ",2) == 0) ||
+		    (strncmp(segment_in,detector,2) == 0)) {
+		    if ((aftermjd_in <= expstart) &&
+			(aftermjd_in > calkey[i].aftermjd[0]) &&
+			(aftermjd_in > calkey[i].aftermjd[1])) {
+			strncpy(calkey[i].filenames[0],
+				calkey[i].filenames[1],18);
+			calkey[i].aftermjd[0]=calkey[i].aftermjd[1];
+			calkey[i].interp[0]=calkey[i].interp[1];
+			strncpy(calkey[i].filenames[1],
+				filename_in,18);
+			calkey[i].aftermjd[1]=aftermjd_in;
+			calkey[i].interp[1]=interp_in;
+		    } else if ((aftermjd_in < expstart) &&
+			       (aftermjd_in > calkey[i].aftermjd[0])) {
+			strncpy(calkey[i].filenames[0],
+				filename_in,18);
+			calkey[i].aftermjd[0]=aftermjd_in;
+			calkey[i].interp[0]=interp_in;
+		    }
+		    if ((aftermjd_in > expstart) &&
+			(aftermjd_in < calkey[i].aftermjd[2])) {
+			strncpy(calkey[i].filenames[2],
+				filename_in,18);
+			calkey[i].aftermjd[2]=aftermjd_in;
+			calkey[i].interp[2]=interp_in;
+		    }
+		} /* Endif segment match */
+	    } /* end else unrecognized keyword */		   
+	}  /* end while linin not comment */
+    } /* end while(linin != NULL) */
+
+    fclose(fpin);
+
+/*************************************************************************
+        I have changed Rule 3 so that we NEVER extrapolate calibration
+        files forward in time.  Instead, we just use the most recent file.
+        This reduces from 8 to 4 the number of possible cases, since we
+        no longer care about the value of interp[0].
+        This section and the previous one ought to be re-written,
+        but I will simply change 0 to 1 for Case 110 below.
+        WVD - 04/28/03
+*************************************************************************/
+
+    /*  OK, now that we have identified the closest two files before
+     *  the observation, and the file after the observation, we can
+     *  decide what to do with them.  First, the easy part:  if 
+     *  calkey[i].numfiles=1, no interpolation is possible, so we
+     *  write out calkey[i].filenames[1], which is the file immediately
+     *  preceeding the observation.  If calkey[i].numfiles=2, interpolation
+     *  is possible, and we will have to write two keywords into the header.
+     *  The decision as to which two keywords to write follows these rules:
+     *  Rule 1: If an observation occurs between two files which can be 
+     *          interpolated, then an interpolation must be done. 
+     *  Rule 2: If the calibration file immediately preceeding an 
+     *          observation is to be used in a stepwise manner, then said
+     *          file shall be used in stepwise manner. 
+     *  Rule 3: If the two calibration files immediately preceeding an 
+     *          observation can be interpolated, but the following file 
+     *          cannot, then the two previous files will be extrapolated 
+     *          forward in time. 
+     *  Rule 4: If the closest preceeding calibration file has an interpolation
+     *          flag, but the file preceeding it has a stepwise flag, the the 
+     *          closest preceeding file will be used in a sterpwise manner.
+     *  Rule 5: Never interpolate backward in time.
+     *
+     *  In fact, there are only 8 possible cases:
+     *
+     *  Remember, the files were sorted such that the observation 
+     *  always occurs between [1] and [2].  Also remember that 
+     *  interp[i]=0 => stepwise):
+     *
+     *    Case               Action
+     *
+     *  interp[0] = 0
+     *  interp[1] = 0    filenames[1] will be used in a stepwise manner
+     *  interp[2] = 0
+     *
+     *  interp[0] = 0
+     *  interp[1] = 0    filenames[1] will be used in a stepwise manner
+     *  interp[2] = 1
+     *
+     *  interp[0] = 0
+     *  interp[1] = 1    filenames[1] will be used in a stepwise manner
+     *  interp[2] = 0
+     *
+     *  interp[0] = 1
+     *  interp[1] = 0    filenames[1] will be used in a stepwise manner
+     *  interp[2] = 0
+     *
+     *  interp[0] = 1
+     *  interp[1] = 0    filenames[1] will be used in a stepwise manner
+     *  interp[2] = 1
+     *
+     *  interp[0] = 0
+     *  interp[1] = 1    filenames[1] and filenames[2] will be interpolated
+     *  interp[2] = 1
+     *
+     *  interp[0] = 1
+     *  interp[1] = 1    filenames[0] and filenames[1] will be extrapolated
+     *  interp[2] = 0
+     *
+     *  interp[0] = 1
+     *  interp[1] = 1    filenames[1] and filenames[2] will be interpolated
+     *  interp[2] = 1
+     *
+     */
+
+    /*  Write the calibration files into the header keywords. */
+    /*  Cycle through the keywords. */
+    for (i=0; i mjdv);
+        n--;
+
+        sprintf(saa_str, "SAA%d", n);
+        sprintf(full_str, "FULL%d", n);
+        FITS_read_key(parmfits, TINT, saa_str, &saav, NULL, &status);
+        FITS_read_key(parmfits, TINT, full_str, &fullv, NULL, &status);
+        FITS_close_file(parmfits, &status);
+
+             if (lowv > fullv + 3) {
+                hv_flag = 5;
+                sprintf(comment, "Detector voltage high throughout exposure");
+            }
+        else if ((float) lowv / fullv > hvgood) {
+                hv_flag = 4;
+                sprintf(comment, "Detector voltage full throughout exposure");
+            }
+        else if (lowv > saav  + 3) {
+                hv_flag = 3;
+                sprintf(comment, "Detector voltage low throughout exposure");
+            }
+        else if (lowv > saav  - 3) {
+                hv_flag = 2;   
+                sprintf(comment, "Detector at SAA voltage throughout exposure");
+            }
+        else {
+                hv_flag = 1;
+                sprintf(comment, "Detector below SAA voltage throughout exposure");
+            }
+
+             if (highv - lowv > 3) {
+                hv_flag = 0;
+                sprintf (comment, "Detector voltage changed during exposure");
+            }
+        else if (lowv > highv) {
+                hv_flag = -1;
+                sprintf(comment, "Detector bias keywords are corrupted");
+            }
+
+        FITS_update_key(fptr, TINT, "HV_FLAG", &hv_flag, comment, &status);
+
+        if (hv_flag != 4) {
+            if (hv_flag == -1) cf_if_warning(comment);
+            else cf_verbose(1, comment);
+            FITS_write_comment(fptr, "  ", &status);
+            FITS_write_comment(fptr, comment, &status);
+	    fits_get_system_time(datestr, &timeref, &status);
+	    sprintf(comment, "CalFUSE v%s   %.10s", CALFUSE_VERSION, datestr);
+            FITS_write_comment(fptr, comment, &status);
+            FITS_write_comment(fptr, "  ", &status);
+        }
+    }
+
+    /*  Read BRIT_OBS keyword and modify header accordingly. */
+
+    FITS_read_key(fptr, TSTRING, "SRC_TYPE", src_type, NULL, &status);
+    FITS_read_key(fptr, TSTRING, "BRIT_OBJ", brit_obj, NULL, &status);
+    if (!strcmp(brit_obj, "DEFOCUS") && !strncmp(src_type, "P", 1)) {
+	*src_type = 'E';
+	FITS_update_key(fptr, TSTRING, "SRC_TYPE", src_type,
+		"DEFOCUS OBS ==> Treat as extended source", &status);
+    }
+
+    /* Flag bright-earth and airglow (M106, S100, and 900+) exposures. */
+
+    FITS_read_key(fptr, TSTRING, "ROOTNAME", rootname, NULL, &status);
+    if (!strncmp(rootname, "M106", 4) || !strncmp(rootname, "S100", 4)) {
+
+        cf_verbose(1, "Bright-earth exposure.");
+
+	/* Set EXP_STAT to TEMPORAL_LIMB. */
+	expstat = (int) TEMPORAL_LIMB;
+	FITS_update_key(fptr, TINT, "EXP_STAT", &expstat, 
+		"Bright-earth exposure", &status);
+    }
+
+   if (!strncmp(rootname+8, "9", 1)) {
+
+        cf_verbose(1, "Airglow exposure.  Will treat as extended source.");
+
+	/* Set EXP_STAT to TEMPORAL_LIMB. */
+	expstat = (int) TEMPORAL_LIMB;
+	FITS_update_key(fptr, TINT, "EXP_STAT", &expstat, 
+		"Airglow exposure", &status);
+
+	/* Change SRC_TYPE to EE. */
+	(void) strcpy(src_type, "EE");
+	FITS_update_key(fptr, TSTRING, "SRC_TYPE", src_type,
+		"Airglow exposure ==> Treat as extended source", &status);
+
+        /* Write warning to trailer file and IDF header. */
+	FITS_write_comment(fptr, " ", &status);
+	sprintf(comment, "Airglow exposure. Not an astrophysical target.");
+	FITS_write_comment(fptr, comment, &status);
+	fits_get_system_time(datestr, &timeref, &status);
+	sprintf(comment, "CalFUSE v%s   %.10s", CALFUSE_VERSION, datestr);
+	FITS_write_comment(fptr, comment, &status);
+	FITS_write_comment(fptr, " ", &status);
+    }
+
+    /*  Read the SCRN file and see if user wants to skip any steps. */
+
+    FITS_read_key(fptr, TSTRING, "SCRN_CAL", filename_in, NULL, &status);
+    FITS_open_file(&scrnfits, cf_parm_file(filename_in), READONLY, &status);
+    FITS_read_key(scrnfits, TSTRING, "SAA_SCR", run_saa, NULL, &status);
+    FITS_read_key(scrnfits, TSTRING, "LIMB_SCR", run_limb, NULL, &status);
+    FITS_close_file(scrnfits, &status);
+
+    /*  Now read the PARM file and see if user wants to skip any steps. */
+
+    FITS_read_key(fptr, TSTRING, "PARM_CAL", filename_in, NULL, &status);
+    FITS_open_file(&parmfits, cf_parm_file(filename_in), READONLY, &status);
+    FITS_read_key(parmfits, TSTRING, "RUN_BRST", run_brst, NULL, &status);
+    FITS_read_key(parmfits, TSTRING, "RUN_PHAX", run_walk, NULL, &status);
+    /* FITS_read_key(parmfits, TSTRING, "RUN_MKBK", run_mkbk, NULL, &status); */
+    /* FITS_read_key(parmfits, TSTRING, "RUN_BKGD", run_bkgd, NULL, &status); */
+    FITS_read_key(parmfits, TSTRING, "RUN_ASTG", run_astg, NULL, &status);
+    FITS_read_key(parmfits, TSTRING, "RUN_JITR", run_jitr, NULL, &status);
+    FITS_close_file(parmfits, &status);
+
+    if (!strncmp(run_limb, "OFF", 3) || !strncmp(run_limb, "off", 3))
+	FITS_update_key(fptr, TSTRING, "LIMB_COR", "OMIT", NULL, &status);
+
+    if (!strncmp(run_saa, "OFF", 3) || !strncmp(run_saa, "off", 3))
+	FITS_update_key(fptr, TSTRING, "SAA__COR", "OMIT", NULL, &status);
+
+    if (!strncmp(run_brst, "N", 1) || !strncmp(run_brst, "n", 1))
+	FITS_update_key(fptr, TSTRING, "BRST_COR", "OMIT", NULL, &status);
+
+    if (!strncmp(run_walk, "N", 1) || !strncmp(run_walk, "n", 1))
+	FITS_update_key(fptr, TSTRING, "PHAX_COR", "OMIT", NULL, &status);
+
+    /*
+    if (!strncmp(run_mkbk, "N", 1) || !strncmp(run_mkbk, "n", 1)) 
+	FITS_update_key(fptr, TSTRING, "MKBK_COR", "OMIT", NULL, &status);
+
+    if (!strncmp(run_bkgd, "N", 1) || !strncmp(run_bkgd, "n", 1)) 
+	FITS_update_key(fptr, TSTRING, "BKGD_COR", "OMIT", NULL, &status);
+    */
+
+    if (!strncmp(run_astg, "N", 1) || !strncmp(run_astg, "n", 1))
+	FITS_update_key(fptr, TSTRING, "ASTG_COR", "OMIT", NULL, &status);
+    else
+	FITS_update_key(fptr, TSTRING, "ASTG_COR", "PERFORM", NULL, &status);
+
+    if (!strncmp(run_jitr, "N", 1) || !strncmp(run_jitr, "n", 1))
+	FITS_update_key(fptr, TSTRING, "JITR_COR", "OMIT", NULL, &status);
+    else
+	FITS_update_key(fptr, TSTRING, "JITR_COR", "PERFORM", NULL, &status);
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done initializing headers");
+    return status;
+}
diff --git a/src/libcf/cf_geometric_distort.c b/src/libcf/cf_geometric_distort.c
new file mode 100644
index 0000000..1164b5c
--- /dev/null
+++ b/src/libcf/cf_geometric_distort.c
@@ -0,0 +1,145 @@
+/****************************************************************************
+ *
+ * Synopsis:    cf_geometric_distort(fitsfile *header, long nevents,
+ *                                   float *xfarf, float *yfarf,
+ *                                   unsigned char *locflags)
+ *
+ * Description: Corrects the X and Y positions of the event for geometric
+ *              distortion.
+ *
+ * Arguments:   fitsfile  *header       Pointer to the location of the FITS
+ *                                      header of the Intermediate Data File
+ *              long      nevents       number of photons in the file
+ *              float     *xfarf        X positions for each photon event
+ *              float     *yfarf        Y positions for each photon event
+ *              unsigned char *locflags Location flags for each event
+ *
+ * Calls :      None
+ *
+ * Return:      0  on success
+ *
+ * History:     08/09/02   1.1   rdr    Begin work 
+ *              11/12/02   1.2   peb    Added check to move only events in
+ *                                      active region.  Added locflags to
+ *                                      function cal.
+ *		03/11/03   1.3   wvd    Changed locflags to unsigned char.
+ *              05/20/03   1.4   rdr    Added call to cf_proc_check
+ *              07/29/03   1.5   wvd    If cf_proc_check fails, return errflg.
+ *              03/26/04   1.6   rdr    Modify specbiny
+ *              04/05/04   1.7   wvd	Modify specbiny only if specbiny > 1.
+ *              04/07/07   1.8   wvd	Clean up compiler warnings.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_geometric_distort(fitsfile *header, long nevents, float *xfarf,
+		     float *yfarf, unsigned char *locflags)
+{
+    char CF_PRGM_ID[] = "cf_geometric_distort";
+    char CF_VER_NUM[] = "1.8";
+
+    char geomfile[FLEN_VALUE]={'\0'};
+    short *geomx_img, *geomy_img;
+    int   errflg=0, status=0, hdutype, anynull, nullval;
+    int   specbiny ;
+    long  fpixel=1, j;
+    long  xdim_gx, ydim_gx, xdim_gy, ydim_gy, npix_gx, npix_gy;
+    float scale_gx=1., zero_gx=0., scale_gy=1., zero_gy=0.;
+    float yexp ;
+    fitsfile *geomfits=NULL;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    /*
+     *  Get the name of the calibration file and open it
+     */
+    FITS_read_key(header, TINT, "SPECBINY", &specbiny, NULL, &status);
+    cf_verbose(5,"Initial value of specbiny=%d",specbiny) ;
+    FITS_read_key(header, TSTRING, "GEOM_CAL", geomfile, NULL, &status);
+    cf_verbose(4, "Geometric correction file = %s", geomfile);
+    FITS_open_file(&geomfits, cf_cal_file(geomfile), READONLY, &status);
+
+    /* Read the y expansion factor from the calibration header */
+    FITS_movabs_hdu(geomfits, 1, &hdutype, &status);
+    FITS_read_key(geomfits, TFLOAT,  "YEXPAND", &yexp,  NULL, &status);
+    cf_verbose(3,"Y scale expansion factor = %f",yexp) ;
+
+    /* If SPECBINY > 1, scale by Y expansion factor */
+    if (specbiny > 1) {
+       specbiny = (int) (0.5 + (float) specbiny * yexp) ;
+       FITS_update_key(header, TINT, "SPECBINY", &specbiny, NULL, &status) ;
+       cf_verbose(5,"Corrected value of specbiny = %d",specbiny) ;
+    }
+
+    /*
+     *  Read in the X distortion calibration image
+     */
+    FITS_movabs_hdu(geomfits, 2, &hdutype, &status);
+    FITS_read_key(geomfits, TLONG,  "NAXIS1", &xdim_gx,  NULL, &status);
+    FITS_read_key(geomfits, TLONG,  "NAXIS2", &ydim_gx,  NULL, &status);
+    npix_gx = xdim_gx * ydim_gx;
+
+    FITS_read_key(geomfits, TFLOAT, "BSCALE", &scale_gx, NULL, &status);
+    FITS_read_key(geomfits, TFLOAT, "BZERO",  &zero_gx,  NULL, &status);
+    geomx_img = (short *) cf_malloc(sizeof(short) * npix_gx);
+    fits_set_bscale(geomfits, 1., 0., &status);
+    FITS_read_img(geomfits, TSHORT, fpixel, npix_gx, &nullval, geomx_img,
+		  &anynull, &status);
+    /*
+     *  Read the Y distortion calibration image
+     */
+    FITS_movabs_hdu(geomfits, 3, &hdutype, &status);
+    FITS_read_key(geomfits, TLONG,  "NAXIS1", &xdim_gy,  NULL, &status);
+    FITS_read_key(geomfits, TLONG,  "NAXIS2", &ydim_gy,  NULL, &status);
+    npix_gy = xdim_gy * ydim_gy;
+
+    FITS_read_key(geomfits, TFLOAT, "BSCALE", &scale_gy, NULL, &status);
+    FITS_read_key(geomfits, TFLOAT, "BZERO",  &zero_gy,  NULL, &status);
+    geomy_img = (short *) cf_malloc(sizeof(short) * npix_gy);
+    fits_set_bscale(geomfits, 1., 0., &status);
+    FITS_read_img(geomfits, TSHORT, fpixel, npix_gy, &nullval, geomy_img,
+		  &anynull, &status);
+    FITS_close_file(geomfits, &status);
+    /*
+     *  Make sure that the X and Y distortion images are the same size
+     */
+    if (xdim_gx != xdim_gy || ydim_gx != ydim_gy) 
+	cf_if_warning("X and Y distortion images not the same size.");
+    /*
+     *  Use the data in the geometric distortion calibration images to
+     *  correct XFARF and YFARF
+     */
+    for (j=0; j ydim_gy-1)
+		yndx = ydim_gy-1;
+
+	    ndx = yndx*xdim_gx + xndx;
+	    xfarf[j] += geomx_img[ndx]*scale_gx + zero_gx;
+	    yfarf[j] += geomy_img[ndx]*scale_gy + zero_gy;
+	}
+    }
+    free(geomx_img);
+    free(geomy_img);
+
+    cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done Processing");
+
+    return 0;
+}
diff --git a/src/libcf/cf_grating_motion.c b/src/libcf/cf_grating_motion.c
new file mode 100644
index 0000000..fe50d63
--- /dev/null
+++ b/src/libcf/cf_grating_motion.c
@@ -0,0 +1,432 @@
+/****************************************************************************
+ *	        Johns Hopkins University
+ *	        Center For Astrophysical Sciences
+ *	        FUSE
+ *****************************************************************************
+ *
+ * Synopsis:	cf_grating_motion(header, nevents, time, x, y, channel,
+ *			ntimes, ttime, tsunrise)
+ *
+ * Description: Reads spectral shift caused by thermal grating motions
+ *              and corrects the X and Y locations of each photon event.
+ *
+ *              fitsfile  *header       Pointer to the FITS header of the
+ *                                      Intermediate Data File
+ *              long      nevents       Number of photons in the file
+ *              int       *time         Time (in seconds) since exposure start
+ *              float     *x            Position of the photon (in pixels)
+ *              float     *y            Position of the photon (in pixels)
+ *     unsigned char      channel       Channel ID of each photon
+ *		long	  ntimes	Number of entries in timeline table
+ *		float	  ttime		Time array of timeline table
+ *		short	  tsunrise	Time since last sunrise
+ *
+ * Returns:     0 on success
+ *
+ * History:	09/05/02    1.0  RDR    Begin work; adapted from cf_make_shift
+ *		04/21/03    1.3  wvd	Use tsunrise array from timeline table.
+ *					Do not assume that ttime is continuous.
+ *              05/20/03    1.4  rdr    Added call to cf_proc_check
+ *              08/21/03    1.5  wvd    Change channel to unsigned char.
+ *              06/25/04    1.6  wvd    Estimate time between sunrises using
+ *                                      orbit period in file header.
+ *              03/22/05    1.7  wvd    Change tsunrise from float to short.
+ *                                      Read orbital period from file header.
+ *              04/15/05    1.8  wvd    Close GRAT_CAL file before exiting.
+ *					If ORBPERID keyword is not found,
+ *					assume that orbit period is 6000 s.
+ *		12/30/05    1.9  wvd	Current algorithm corrects for orbital
+ *					drift of spectrum, but wavelength zero
+ *					point still varies with beta angle and
+ *					observation date.  New subroutine
+ *					corrects LiF 1 data for these effects.
+ *		07/06/06    2.0  wvd	Rewrite to use Dave Sahnow's new
+ *					grating-correction file (version 003).
+ *		07/12/06    2.1  wvd	Modify to read an arbitrary number of
+ *					extensions, each with phase information
+ *					in file header keywords.
+ *		10/20/06    2.2  wvd	Grating motion also depends on APER_PA.
+ *					Now we read it from the file header
+ *					and select appropriate coefficients.
+ *					If no correction is defined for a 
+ *					particular set of parameters, set
+ *		11/28/06    2.3  wvd	Grating motion includes a long-term,
+ *					non-periodic drift.  Read it from the
+ *					first four extensions of GRAT_CAL file.
+ *              04/07/07    2.4  wvd	Clean up compiler warnings.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+static int
+read_nonperiodic_shifts(fitsfile *header, fitsfile *shiftfits, 
+    long ntimes, float *dxlif, float *dylif, float *dxsic, float *dysic)
+{
+    char  channel[FLEN_VALUE], comment[FLEN_CARD], detector[FLEN_VALUE];
+    int   nrows, tndx;
+    int   status=0, hdutype=0, hdunum=0;
+    long  i;
+    float *mjd, *xshift, *yshift;
+    double expstart;
+    
+    /* Read header keywords from data file. */
+    fits_read_key(header, TDOUBLE, "EXPSTART", &expstart, NULL, &status);
+    FITS_read_key(header, TSTRING, "DETECTOR", detector, NULL, &status);
+
+    /* First do the LiF channels */
+    if (!strncmp(detector,"1",1)) {
+         hdunum=2;
+    } else if (!strncmp(detector,"2",1)) {
+         hdunum=4;
+    } else {
+         cf_if_error("Cannot parse DETECTOR keyword in data file.");
+    }
+    cf_verbose(3, "Reading HDU %d of GRAT_CAL file.", hdunum);
+
+    FITS_movabs_hdu(shiftfits, hdunum, &hdutype, &status);
+    FITS_read_key(shiftfits, TSTRING, "CHANNEL", channel, NULL, &status);
+    sprintf(comment, "LiF%c", detector[0]);
+    if (strncmp(channel, comment, 4))
+        cf_if_error("Cannot find %s correction info in extension %d",
+	comment, hdunum);
+
+    /* Read X and Y corrections as a function of time. */
+    nrows = cf_read_col(shiftfits, TFLOAT, "MJD", (void *) &mjd);
+    nrows = cf_read_col(shiftfits, TFLOAT, "XSHIFT", (void *) &xshift);
+    nrows = cf_read_col(shiftfits, TFLOAT, "YSHIFT", (void *) &yshift);
+
+    /* Select appropriate MJD for this exposure. */
+    i = 0;
+    while (expstart > mjd[i] && i < nrows) i++;
+    tndx = i-1;
+    if (tndx < 0) tndx = 0;
+    cf_verbose(3,"EXPSTART = %g", expstart);
+    cf_verbose(3,"Using LiF corrections for MJD >= %g", mjd[tndx]);
+    if (tndx < nrows-1)
+        cf_verbose(3,"                      and MJD <  %g", mjd[tndx+1]);
+    cf_verbose(3,"xshift = %f, yshift = %f", xshift[tndx], yshift[tndx]);
+
+    /* Copy X and Y corrections to output arrays. */
+    for (i = 0; i < ntimes; i++) {
+	dxlif[i] = xshift[tndx];
+	dylif[i] = yshift[tndx];
+    }
+
+    /* Now do the SiC channels */
+    hdunum += 1;
+    cf_verbose(3, "Reading HDU %d of GRAT_CAL file.", hdunum);
+    FITS_movabs_hdu(shiftfits, hdunum, &hdutype, &status);
+    FITS_read_key(shiftfits, TSTRING, "CHANNEL", channel, NULL, &status);
+    sprintf(comment, "SiC%c", detector[0]);
+    if (strncmp(channel, comment, 4))
+        cf_if_error("Cannot find %s correction info in extension %d",
+	comment, hdunum);
+
+    /* Read X and Y corrections as a function of time. */
+    nrows = cf_read_col(shiftfits, TFLOAT, "MJD", (void *) &mjd);
+    nrows = cf_read_col(shiftfits, TFLOAT, "XSHIFT", (void *) &xshift);
+    nrows = cf_read_col(shiftfits, TFLOAT, "YSHIFT", (void *) &yshift);
+
+    /* Select appropriate MJD for this exposure. */
+    i = 0;
+    while (expstart > mjd[i] && i < nrows) i++;
+    tndx = i-1;
+    if (tndx < 0) tndx = 0;
+    cf_verbose(3,"Using SiC corrections for MJD >= %g", mjd[tndx]);
+    if (tndx < nrows-1)
+        cf_verbose(3,"                      and MJD <  %g", mjd[tndx+1]);
+    cf_verbose(3,"xshift = %f, yshift = %f", xshift[tndx], yshift[tndx]);
+
+    /* Copy X and Y corrections to output arrays. */
+    for (i = 0; i < ntimes; i++) {
+	dxsic[i] = xshift[tndx];
+	dysic[i] = yshift[tndx];
+    }
+
+    return 0;
+}
+
+
+static int
+read_periodic_shifts(fitsfile *header, fitsfile *shiftfits, int ncorrection,
+    double *lif_mjd0, double *lif_period, double *sic_mjd0, double *sic_period,
+    double *lif_x_coef, double *lif_y_coef, double *sic_x_coef, double *sic_y_coef)
+{
+    char  detector[FLEN_CARD], channel[FLEN_CARD], comment[FLEN_CARD];
+    int   status=0, hdutype=0, hdunum=0, anynul=0;
+    int   i, nregions, region, typecode;
+    long  max_coeff, ncoeff, width;
+    float aper_pa, *aperpalo, *aperpahi;
+    float *betalo, *betahi, *polelo, *polehi;
+    double beta, pole, sunang;
+    
+    /* Initialize variables. */
+    *lif_mjd0 = *lif_period = *sic_mjd0 = *sic_period = 0.;
+    for (i = 0; i < 11; i++) {
+	lif_x_coef[i] = 0.;
+	lif_y_coef[i] = 0.;
+	sic_x_coef[i] = 0.;
+	sic_y_coef[i] = 0.;
+    }
+
+    FITS_read_key(header, TFLOAT,  "APER_PA", &aper_pa, NULL, &status);
+    FITS_read_key(header, TDOUBLE, "SUNANGLE", &sunang, NULL, &status);
+    FITS_read_key(header, TDOUBLE, "POLEANGL", &pole, NULL, &status);
+    FITS_read_key(header, TSTRING, "DETECTOR", detector, NULL, &status);
+    while (999.9 > aper_pa && aper_pa > 360.) aper_pa -= 360.;
+    while (aper_pa < 0.) aper_pa += 360.;
+    beta = 180.0 - sunang;
+
+    cf_verbose(3, "S/C orientation: beta = %5.1f, pole = %5.1f, aper_pa = %5.1f",
+	beta, pole, aper_pa);
+
+    /* First do the LiF channels */
+    if (!strncmp(detector,"1",1)) {
+         hdunum=2;
+    } else if (!strncmp(detector,"2",1)) {
+         hdunum=4;
+    } else {
+         cf_if_error("Cannot parse DETECTOR keyword in read_shift_file");
+    }
+    hdunum += ncorrection * 4;
+    cf_verbose(3, "Reading HDU %d of GRAT_CAL file.", hdunum);
+
+    FITS_movabs_hdu(shiftfits, hdunum, &hdutype, &status);
+    FITS_read_key(shiftfits, TSTRING, "CHANNEL", channel, NULL, &status);
+    sprintf(comment, "LiF%c", detector[0]);
+    if (strncmp(channel, comment, 4))
+        cf_if_error("Cannot find %s correction info in extension %d",
+	comment, hdunum);
+
+    if (ncorrection > 1) {
+	FITS_read_key(shiftfits, TDOUBLE, "PERIOD", lif_period, NULL, &status);
+	FITS_read_key(shiftfits, TDOUBLE, "MJD_ZERO", lif_mjd0, NULL, &status);
+	cf_verbose(3, "%s: period = %g, mjd_zero = %g",
+		channel, *lif_period, *lif_mjd0);
+    }
+    
+    nregions = cf_read_col(shiftfits, TFLOAT, "BETALO", (void *) &betalo);
+    nregions = cf_read_col(shiftfits, TFLOAT, "BETAHI", (void *) &betahi);
+    nregions = cf_read_col(shiftfits, TFLOAT, "POLELO", (void *) &polelo);
+    nregions = cf_read_col(shiftfits, TFLOAT, "POLEHI", (void *) &polehi);
+    nregions = cf_read_col(shiftfits, TFLOAT, "APERPALO", (void *) &aperpalo);
+    nregions = cf_read_col(shiftfits, TFLOAT, "APERPAHI", (void *) &aperpahi);
+    FITS_get_coltype(shiftfits, 7, &typecode, &ncoeff, &width, &status);
+    max_coeff = ncoeff;
+
+    for (i = 0; i < nregions; i++) 
+	if (betalo[i] <= beta && beta < betahi[i] &&
+	    polelo[i] <= pole && pole < polehi[i] &&
+	    aperpalo[i] <= aper_pa && aper_pa < aperpahi[i]) break;
+
+    if (i == nregions) 
+	cf_verbose(3, "LiF correction not defined for beta = %g, pole = %g, "
+	"aper_pa = %g", beta, pole, aper_pa);
+    else {
+	cf_verbose(3, "LIF REGION %2d: beta = %g - %g, pole = %g - %g,", 
+	i, betalo[i], betahi[i], polelo[i], polehi[i]);
+	cf_verbose(3, "                aper_pa = %g - %g, %d coefficients",
+	aperpalo[i], aperpahi[i], ncoeff);
+
+	region = i+1; 		/* CFITSIO counts from 1, not 0. */
+	FITS_read_col(shiftfits, TDOUBLE, 7, region, 1, ncoeff, NULL, lif_x_coef,
+	&anynul, &status);
+	FITS_read_col(shiftfits, TDOUBLE, 8, region, 1, ncoeff, NULL, lif_y_coef,
+	&anynul, &status);
+    }
+
+    /* Now the SiC channels */
+    hdunum += 1;
+    cf_verbose(3, "Reading HDU %d of GRAT_CAL file.", hdunum);
+    FITS_movabs_hdu(shiftfits, hdunum, &hdutype, &status);
+    FITS_read_key(shiftfits, TSTRING, "CHANNEL", channel, NULL, &status);
+    sprintf(comment, "SiC%c", detector[0]);
+    if (strncmp(channel, comment, 4))
+        cf_if_error("Cannot find %s correction info in extension %d", 
+	comment, hdunum);
+
+    if (ncorrection > 1) {
+	FITS_read_key(shiftfits, TDOUBLE, "PERIOD", sic_period, NULL, &status);
+	FITS_read_key(shiftfits, TDOUBLE, "MJD_ZERO", sic_mjd0, NULL, &status);
+	cf_verbose(3, "%s: period = %g, mjd_zero = %g",
+		channel, *sic_period, *sic_mjd0);
+    }
+    
+    nregions = cf_read_col(shiftfits, TFLOAT, "BETALO", (void *) &betalo);
+    nregions = cf_read_col(shiftfits, TFLOAT, "BETAHI", (void *) &betahi);
+    nregions = cf_read_col(shiftfits, TFLOAT, "POLELO", (void *) &polelo);
+    nregions = cf_read_col(shiftfits, TFLOAT, "POLEHI", (void *) &polehi);
+    nregions = cf_read_col(shiftfits, TFLOAT, "APERPALO", (void *) &aperpalo);
+    nregions = cf_read_col(shiftfits, TFLOAT, "APERPAHI", (void *) &aperpahi);
+    FITS_get_coltype(shiftfits, 7, &typecode, &ncoeff, &width, &status);
+    if (max_coeff < ncoeff) max_coeff = ncoeff;
+
+    for (i = 0; i < nregions; i++)
+        if (betalo[i] <= beta && beta < betahi[i] &&
+            polelo[i] <= pole && pole < polehi[i] &&
+	    aperpalo[i] <= aper_pa && aper_pa < aperpahi[i]) break;
+
+    if (i == nregions) 
+	cf_verbose(3, "SiC correction not defined for beta = %g, pole = %g, "
+	"aper_pa = %g", beta, pole, aper_pa);
+    else {
+	cf_verbose(3, "SIC REGION %2d: beta = %g - %g, pole = %g - %g,",
+	i, betalo[i], betahi[i], polelo[i], polehi[i]);
+	cf_verbose(3, "                aper_pa = %g - %g, %d coefficients",
+	aperpalo[i], aperpahi[i], ncoeff);
+
+	region = i+1; 		/* CFITSIO counts from 1, not 0. */
+	FITS_read_col(shiftfits, TDOUBLE, 7, region, 1, ncoeff, NULL, sic_x_coef,
+	    &anynul, &status);
+	FITS_read_col(shiftfits, TDOUBLE, 8, region, 1, ncoeff, NULL, sic_y_coef,
+	    &anynul, &status);
+    }
+
+    cf_verbose(2, "Fourier coefficients of grating-motion correction:");
+    cf_verbose(2,"    LiF X      LiF Y      SiC X      SiC Y");
+    for (i=0; i 0 && channel[j] < 4) {
+	    x[j] += dxlif[k];
+	    y[j] += dylif[k];
+	}
+	else if (channel[j] > 4) {
+	    x[j] += dxsic[k];
+	    y[j] += dysic[k];
+	} 
+    }
+    
+    /* Release memory. */
+    free(dxlif);
+    free(dylif);
+    free(dxsic);
+    free(dysic);
+
+    cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished execution.");
+
+    return status;
+}
diff --git a/src/libcf/cf_header_io.c b/src/libcf/cf_header_io.c
new file mode 100644
index 0000000..d534ac2
--- /dev/null
+++ b/src/libcf/cf_header_io.c
@@ -0,0 +1,110 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_copy_to_memory(*infile, **memp);
+ *
+ * Description: Returns an in-memory FITS file pointer
+ *
+ *
+ * Arguments:   char     *infile        Input data file name
+ *	        fitsfile **memp         In memory FITS file pointer
+ *
+ * Returns:     None
+ *
+ * History:     08/15/2002  1.0   jch   Initial coding
+ *              12/18/03          bjg   Change calfusettag.h to calfuse.h
+ *
+ ****************************************************************************/
+
+
+#include 
+#include 
+#include "calfitsio.h"
+#include "calfuse.h"
+
+void
+cf_read_header(char *infile, fitsfile **memp)
+{
+    fitsfile *ip;       /* input file pointer */
+    int	status=0;       /* status used in CFITSIO */
+
+    /* open the input file */
+    FITS_open_file(&ip, infile, READONLY, &status);
+
+    /* create the temp file in memory */
+    FITS_create_file(memp, "mem://", &status);
+
+    /* copy the input primary HDU to the temp file */
+    FITS_copy_hdu(ip, *memp, 0, &status);
+
+    /* close the input file */
+    FITS_close_file(ip, &status);
+}
+
+
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_copy_to_file(*memp, *outfile);
+ *
+ * Description: Copy the header in the in-memory FITS file to an output FITS
+ *              file's primary HDU.
+ *
+ *
+ * Arguments:   fitsfile *memp          In memory FITS file pointer
+ *              char     *outfile       Output data file name
+ *
+ * Returns:     None
+ *
+ * History:     08/15/2002  jch   1.0   Initial coding
+ *
+ ****************************************************************************/
+
+void
+cf_write_header(fitsfile *memp, char *outfile)
+{
+    fitsfile *op;       /* output file pointer */
+    int	status=0;       /* status used in CFITSIO */
+
+    int	ncards_memp, ncards_op, morekeys=0;
+    char card[FLEN_CARD];
+
+    /* Open the output FITS file. */
+    FITS_open_file(&op, outfile, READWRITE, &status);
+
+    fits_get_hdrspace(memp, &ncards_memp, &morekeys, &status);
+    fits_get_hdrspace(op,   &ncards_op,   &morekeys, &status);
+	
+    /* overwrite output file's primary HDU card by card */
+    if (ncards_op >= ncards_memp) {
+	int i;
+	for (i=1; i<=ncards_memp; i++) {
+	    FITS_read_record(memp, i, card, &status);
+	    FITS_modify_record(op, i, card, &status);
+	}
+	/* delete from the bottom */
+	for (i=ncards_op; i>=ncards_memp+1; i--) {
+	    FITS_delete_record(op, i, &status);
+	}
+    }
+    else {
+	int i;
+	for (i=1; i<=ncards_op; i++) {
+	    FITS_read_record(memp, i, card, &status);
+	    FITS_modify_record(op, i, card, &status);
+	}
+	for (i=ncards_op+1; i<=ncards_memp; i++) {
+	    FITS_read_record(memp, i, card, &status);
+	    FITS_write_record(op, card, &status);
+	}
+    }
+
+    /* close output file. */
+    FITS_close_file(op, &status);
+}
diff --git a/src/libcf/cf_identify_channel.c b/src/libcf/cf_identify_channel.c
new file mode 100644
index 0000000..7d6a8e3
--- /dev/null
+++ b/src/libcf/cf_identify_channel.c
@@ -0,0 +1,201 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE 
+ *****************************************************************************
+ *
+ * Synopsis:    cf_identify_channel(fitsfile *header, long nevents,
+ *              float *xfarf, float *yfarf, unsigned char *chan, 
+ *		unsigned char *locflags, int pad, int final_call)
+ *
+ * Description: Assigns an aperture to each photon in the IDF.
+ *
+ *		Change of logic in v1.11: This routine may be called
+ *		multiple times.  All photons are examined and assigned to
+ *		a channel unless final_call = TRUE.  On the final call, only
+ *		photons with channel > 0 are considered.  Because only photons
+ *		assigned to a channel are motion corrected, the spectrum can
+ *		move on top of previously-rejected photons.  We don't want
+ *		to include them in the final spectrum, so leave their channel
+ *		values unchanged.
+ *
+ *		Change of logic in v1.16: We've decided to use extended-
+ *		source apertures for the non-target channels.  These
+ *		apertures can overlap, so we assign disputed photons to
+ *		their most likely source.  In decreasing order, these are
+ *		the target aperture, the larger non-target aperture, and
+ *		the smaller non-target aperture.
+ *		
+ * Arguments:   fitsfile  *header       Pointer to the location of the FITS
+ *                                      header of the Intermediate Data File
+ *              long      nevents       Number of photons in the file
+ *              float     *xfarf        X positions for each photon event
+ *              float     *yfarf        Y positions for each photon event
+ *     unsigned char      *chan         Pointer to pointer to the array 
+ *                                      containing the channel information
+ *     unsigned char      *locflags     Location flags for each photon 
+ *              int       pad           Switch saying whether to expand the
+ *                                      width of the tabulated extraction
+ *                                      window (yes if > 0). The number refers
+ *                                      to the amount of padding (e.g. pad=5
+ *                                      will add 5 pixels to each side of the
+ *                                      extraction window.
+ *		int	  final_call	This subroutine may be called
+ *					many times.  The last time, set
+ *					final_call = TRUE.
+ *
+ * Return:      0 on success
+ *
+ * History:     08/09/02    1.0  RDR    Begin work 
+ *              09/04/02    1.1  rdr    Change program so that it just fills
+ *                                      the channel array rather than creating
+ *                                      and filling it.  Decreased the size of
+ *                                      the mask.  Use the value of pad to
+ *                                      specify degree of window padding.
+ *                                      Check for extended source.
+ *              12/11/02    1.2  RDR    Adjust aperture limits by measured
+ *                                      y centroid (if available)
+ *              02/11/03    1.3  rdr    changed test for ycent values
+ *              02/12/03    1.6  wvd    Don't crash if YCENT# is undefined
+ *              03/25/03    1.7  rdr    Ignore pinhole aperture 
+ *		03/31/03    1.10 wvd    Ignore regions where YMAX = YMIN + 1.
+ *					They are not valid channel regions.
+ *		04/07/03    1.11 wvd    Shift channel boundaries to match FPA
+ *					positions.  Implement use of cf_verbose.
+ *					Update CHID_COR if final_call = TRUE.
+ *              05/20/03    1.12 rdr    Added call to cf_proc_check
+ *              07/23/03    1.14 rdr    Correct procedure which reads CHID
+ *                                      calibration file
+ *		08/21/03    1.15 wvd    Change channel to unsigned char.
+ *		08/25/03    1.16 wvd    Use extended windows for non-target
+ *					apertures.  Replace aperture mask
+ *					with a grid of aperture limits.
+ *					Use cf_nint() to round floats.
+ *              08/25/03    1.17 wvd    Change coltype from string to int
+ *					in cf_read_col.
+ *              09/08/03    1.18 wvd    Default value is channel[i] = 0.
+ *					Identify low and high values of x 
+ *					by setting y limits to -NYMAX.
+ *              09/18/03    1.19 wvd    Consider only photons falling on the
+ *					active area of the detector.
+ *              11/12/03    1.20 wvd    Don't bother with non-target channels
+ *					in HIST mode.
+ *              06/14/04    1.21 wvd    Don't bother shifting extraction
+ *					windows to correct for FPA position.
+ *					If known, shift is not needed.
+ *              06/17/04    1.22 wvd    Because the extraction windows don't
+ *					quite match the WGTS arrays, we pad
+ *					windows by XPAD pixels in X.
+ *              07/21/04    1.23 wvd    Change i from long to int.
+ *              03/15/05    1.24 wvd    Call cf_extraction_limits to get limits
+ *					of extraction windows, rather than
+ *					reading CHID_CAL file directly.
+ *					Do not pad windows in X.
+ *              03/16/05    1.25 wvd    Pass srctype to cf_extraction_limits.
+ *
+ ****************************************************************************/
+
+#include 
+#include "calfuse.h"
+
+int
+cf_identify_channel(fitsfile* header, long npts, float* x, float* y,
+	unsigned char* channel, unsigned char* locflags, int pad,
+	int final_call)
+{
+    char CF_PRGM_ID[] = "cf_identify_channel";
+    char CF_VER_NUM[] = "1.25";
+
+    char  instmode[FLEN_VALUE], zero=0;
+    int   errflg=0, extended, n_chan=6, status=0;
+    int   active_ap[2], chan, srctype[8];
+    int   i;	/* Always steps through targ_ap */
+    int   *targ_ap,
+	  lwrs[]={3,7,2,6,1,5},	/* LWRS, MDRS, HIRS (LiF & SiC) */
+	  mdrs[]={2,6,3,7,1,5},	/* MDRS, LWRS, HIRS (LiF & SiC) */
+	  hirs[]={1,5,3,7,2,6};	/* HIRS, LWRS, MDRS (LiF & SiC) */
+    long  j,	/* Always steps through extraction window arrays */
+	  k;	/* Always steps through photon list */
+    short xint, yint, xmin, xmax, *ymin[6], *ymax[6];
+
+    /* Initialize error checking */ 
+     cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    /* Enter a time stamp into the log */
+     cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    /* Check whether routine is appropriate for this data file. */
+     if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    /* If data were taken in HIST mode, ignore non-target channels. */
+     FITS_read_key(header, TSTRING, "INSTMODE", instmode, NULL, &status);
+     if (!strncmp(instmode, "HIST", 4)) n_chan = 2;
+
+    /* Determine source type and active apertures */
+     extended = cf_source_aper(header, active_ap);
+
+    /* Set the order in which we will assign photons to channels. */
+     switch (active_ap[0]) {
+	case 1: targ_ap = hirs;
+		break;
+	case 2: targ_ap = mdrs;
+		break;
+	default: targ_ap = lwrs;
+		break;
+     }
+
+    /* For target apertures, srctype reflects target.
+	Use extended apertures for the rest. */
+     for (i = 0; i < 2;  i++) srctype[i] = extended;
+     for ( ; i < n_chan; i++) srctype[i] = 1;
+
+    /* While we're at it, here's one more bit of i/o. */
+     if (pad > 0)
+        cf_verbose(3, "Padding extraction windows by %d Y pixels", pad);
+ 
+    /* 
+     * Loop through all channels, read extraction limits,
+     * and apply any requested padding.
+     */
+     for (i = 0; i < n_chan; i++) {
+	chan = targ_ap[i];
+
+       /* Read the extraction limits for this aperture. */
+	(void) cf_extraction_limits(header, chan, srctype[i],
+	    (ymin+i), (ymax+i), &xmin, &xmax);
+ 
+	/* Add any padding requested by the user.  */
+	if (pad > 0) {
+	    for (j = xmin; j <= xmax; j++) {
+		ymin[i][j] -= pad;
+		ymax[i][j] += pad;
+	    }
+	}
+    }
+
+    /* Loop through photon list.  Assign a channel ID to each. */
+    cf_verbose(3, "Entering loop to assign channel ID's.");
+    for (k = 0; k < npts; k++) {
+	if (final_call && channel[k] == zero) continue;
+	channel[k] = zero;
+	if (!(locflags[k] & LOCATION_SHLD)) {
+	    xint = (short) cf_nint(x[k]);
+	    yint = (short) cf_nint(y[k]);
+	    if (xint < xmin || xint > xmax) continue;
+	    for (i = 0; i < n_chan; i++) {
+	        if (yint >= ymin[i][xint] && yint <= ymax[i][xint]) {
+		    channel[k] = (char) targ_ap[i];
+		    break;
+		}
+	    }
+	}
+    } 
+
+  /* If final_call = TRUE, update IDF header keyword for this subroutine. */
+     if (final_call) 
+	cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done Processing");
+
+    return status;
+}
diff --git a/src/libcf/cf_idf_io.c b/src/libcf/cf_idf_io.c
new file mode 100644
index 0000000..8d8d43a
--- /dev/null
+++ b/src/libcf/cf_idf_io.c
@@ -0,0 +1,161 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    npts = cf_read_col(fitsfile, coltype, colname, colval) 
+ *
+ * Description: Procedure to read the values from a column in a FUSE
+ *              Intermediate Data File (IDF).
+ *		Because floating-point data may be stored as shorts,
+ *		must convert data to type expected by calling routine.
+ *
+ * Variables:   fitsfile  *fileptr      Pointer to the input file
+ *              int       coltype       Data type of the column
+ *					  (TBYTE, TDOUBLE, TSHORT, or TFLOAT)
+ *              char      *colname      Name of the column to re read
+ *                                        (e.g. TIME or XFARF)
+ *              void      **colval      Address of the array containing
+ *                                      the data (must be cast to void)
+ *
+ * Return:      long      npts          Number of points in the array
+ *
+ * Example:
+ *              fitsfile *infits ;
+ *              long npts ;
+ *              float *xfarf ;
+ *       
+ *              FITS_open_file(&infits, argv[1], READWRITE, &status); 
+ *              npts = cf_read_col(infits, TFLOAT, "XFARF", (void **) &xfarf); 
+ *
+ * History:     08/08/02    rdr		Begin work
+ *		06/11/03    wvd  v1.4  	Pass coltype from calling routine.
+ *		08/25/03    wvd  v1.5  	Change coltype from string to int.
+ *		08/28/03    wvd  v1.6  	Use CASEINSEN in calls to
+ *					fits_get_colnum
+ *              12/18/03    bjg  v1.7   Change calfusettag.h to calfuse.h
+ *              04/28/05    wvd  v1.8   Allow arrays to be read as doubles.
+ *              08/24/07    wvd  v1.9   Read nrows as type TLONG.
+ *
+ *************************************************************************/
+
+#include 
+#include "calfuse.h"
+
+long
+cf_read_col(fitsfile *infits, int coltype, char *colname, void **colval)
+{
+    int  colnum, tcode, intnull=0, anynull, status=0;
+    long nrows, width, repeat, nentries;
+
+    /* Get the column number of the column to be extracted. */
+    FITS_get_colnum(infits, CASEINSEN, colname, &colnum, &status);
+
+    /* Determine the properties of the column. */
+    fits_get_coltype(infits, colnum, &tcode, &repeat, &width, &status);
+
+    /* Read the number of rows in the table. */
+    FITS_read_key(infits, TLONG, "NAXIS2", &nrows, NULL, &status);
+
+    /* Calculate the number of entries in the table. */
+    nentries = nrows * repeat;
+
+    /* Set tcode and width to values expected by calling routine. */
+    if (coltype == TFLOAT) {
+        tcode = TFLOAT;        
+        width = (long) sizeof (float);
+    }
+    if (coltype == TDOUBLE) {
+        tcode = TDOUBLE;        
+        width = (long) sizeof (double);
+    }
+
+    /* Allocate space for the file. */
+    *colval = (void *) cf_malloc(nentries * width);
+    
+    /* Read the data from the file. */
+    FITS_read_col(infits, tcode, colnum, 1, 1, nentries, &intnull, *colval,
+		  &anynull, &status); 
+
+    return nentries;
+}
+
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_write_col(fitsfile, colname, colval, npts) 
+ *
+ * Description: Procedure to write an array into a specified column of a
+ *              FUSE Intermediate Data File (IDF).
+ *		Because floating-point data may be stored as shorts,
+ *		data type of array may not match that of output file header.
+ *
+ * Variables:   fitsfile  *fileptr      Pointer to the input file
+ *              int       coltype       Data type of the column
+ *					  (TBYTE, TDOUBLE, TSHORT, or TFLOAT)
+ *              char      *colname      Name of the column to re read
+ *                                        (e.g. TIME or XFARF)
+ *              void      **colval      Address of the array containing
+ *                                      the data (must be cast to void)
+ *              long      npts          Number of points in the array
+ *
+ * Reture:	status
+ *
+ * Example:
+ *              fitsfile *infits ;
+ *              long npts=100 ;
+ *              float *xfarf ;
+ *       
+ *              FITS_open_file(&infits, argv[1], READWRITE, &status);
+ *              npts = cf_read_col(infits, TFLOAT, "XFARF", (void **) &xfarf);
+ *
+ * History:     08/08/02    rdr         Begin work
+ *		06/11/03    wvd  v1.4  	Pass coltype from calling routine.
+ *					Check for overflow in X arrays.
+ *		08/25/03    wvd  v1.5  	Change coltype from string to int.
+ *		08/28/03    wvd  v1.6  	Use CASEINSEN in calls to
+ *					fits_get_colnum
+ *
+ *************************************************************************/
+
+int
+cf_write_col(fitsfile *infits, int coltype, char *colname, void *colval,
+	long npts)
+{
+    int  colnum, tcode, status=0;
+    long i, width, nevents;
+
+    /* Get the column number of the column to be written. */
+    FITS_get_colnum(infits, CASEINSEN, colname, &colnum, &status);
+
+    /* Determine the properties of the column. */
+    fits_get_coltype(infits, colnum, &tcode, &nevents, &width, &status);
+
+    /* 
+     * If the calling routine and the IDF differ on the data type of this
+     * array, use the data type from the calling routine.
+     */
+    if (coltype == TFLOAT) {
+        tcode = TFLOAT;        
+        width = (long) sizeof (float);
+    }
+
+    /* Check for overflow in X arrays. */
+    if (!strncmp(colname, "X", 1)) {
+	float *x;
+	x = (float *) colval;
+	for (i = 0; i < nevents; i++) {
+            if (x[i] < 0) x[i] = 0.;
+            if (x[i] > NXMAX - 1) x[i] = NXMAX - 1;
+	}
+    }
+
+    /* Write the data to the relevant column. */
+    FITS_write_col(infits, tcode, colnum, 1, 1, npts, colval, &status);
+
+    return status;
+}
diff --git a/src/libcf/cf_ids_dead_time.c b/src/libcf/cf_ids_dead_time.c
new file mode 100644
index 0000000..656222e
--- /dev/null
+++ b/src/libcf/cf_ids_dead_time.c
@@ -0,0 +1,109 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_ids_dead_time(fitsfile *header, long nseconds,
+ *                               float *aic_rate, float *ids_dtc)
+ *
+ * Description: Computes the weighting factor needed to correct
+ *		for the IDS dead time.
+ *
+ * Arguments:   fitsfile  *header       Pointer to FITS file containing the
+ *                                      header of the intermediate data file
+ *              long      nseconds      The number of timeline values
+ *              float     *aic_rate     An array of Active Image Counter
+ *                                      values
+ *              float     *ids_dtc      Dead-time correction array (returned)
+ *
+ * Calls:
+ *
+ * Return:      0  on success
+ *
+ * History:     10/27/02   1.1    peb   Begin work
+ *              11/11/02   1.2    peb   Correct function description and add
+ *                                      cf_timestamp after IDS__COR check.
+ *              12/09/02   1.4    wvd   Calculate DT correction for each time
+ *                                      step, then apply to photons.
+ *                                      Set keyword IDS_DEAD.
+ *              05/20/03   1.5    rdr   Add proc_check call.
+ *		08/01/03   1.8    wvd   Just calculate correction; don't
+ *					apply it.  Return ids_dtc array.
+ *		08/04/03   1.9    wvd   Convert aic_rate to type short.
+ *		11/26/03   1.10   wvd   Convert aic_rate to type float.
+ *		02/09/04   1.11   wvd   max_ids_rate depends on instrument
+ *					mode. For TTAG data, include time
+ *					stamps in aic_rate.
+ *		04/07/07   1.12   wvd   Clean up compiler warnings.
+ *
+ ****************************************************************************/
+
+#include 
+#include "calfuse.h"
+
+int
+cf_ids_dead_time(fitsfile *header, long nseconds, float *aic_rate,
+	float *ids_dtc)
+{
+    char CF_PRGM_ID[] = "cf_ids_dead_time";
+    char CF_VER_NUM[] = "1.12";
+
+    char elecfile[FLEN_VALUE], instmode[FLEN_VALUE];
+    int  errflg=0, status=0;
+    long  k;
+    float ids_rate, tstamps, ttperiod;
+    float mean_ids_dtc = 0.;
+    float max_ids_rate = 1.;
+    fitsfile *elecfits;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+    /*
+     *  Read observing mode and interval between time stamps.
+     */
+    FITS_read_key(header, TSTRING, "INSTMODE", instmode, NULL, &status);
+    FITS_read_key(header, TFLOAT, "TTPERIOD", &ttperiod, NULL, &status);
+    /*
+     *  Compute number of time stamps per second (0 for HIST data).
+     */
+    if (!strncmp(instmode, "TTAG", 4)) 		/* TTAG MODE */
+	if (ttperiod > 1e-8) tstamps = 1./ttperiod;
+	else tstamps = 1.;
+    else					/* HIST MODE */
+	tstamps = 0.;
+    /*
+     *  Maximum IDS rate depends on instrument mode.
+     */
+    FITS_read_key(header, TSTRING, "ELEC_CAL", elecfile, NULL, &status);
+    FITS_open_file(&elecfits, cf_cal_file(elecfile), READONLY, &status);
+    if (!strncmp(instmode, "TTAG", 4)) 
+        FITS_read_key(elecfits, TFLOAT, "TTAG_BUS", &max_ids_rate, NULL, &status);
+    else
+        FITS_read_key(elecfits, TFLOAT, "HIST_BUS", &max_ids_rate, NULL, &status);
+    FITS_close_file(elecfits, &status);
+    cf_verbose(4, "max_ids_rate = %f", max_ids_rate);
+    /*
+     *  Calculate the IDS dead-time correction.
+     */
+    for (k=0; k max_ids_rate)
+	    ids_dtc[k] = ids_rate/max_ids_rate;
+	else
+	    ids_dtc[k] = 1.0;
+        mean_ids_dtc += ids_dtc[k];
+    }
+    /*
+     *  Write mean IDS dead-time correction to file header.
+     */
+    mean_ids_dtc /= nseconds;
+    cf_verbose(2, "Mean IDS dead-time correction: %f", mean_ids_dtc);
+    FITS_update_key(header, TFLOAT, "IDS_DEAD", &mean_ids_dtc, NULL, &status);
+
+    cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return 0;
+}
diff --git a/src/libcf/cf_init_support.c b/src/libcf/cf_init_support.c
new file mode 100644
index 0000000..68db0f6
--- /dev/null
+++ b/src/libcf/cf_init_support.c
@@ -0,0 +1,1344 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Description: Routines used by cf_ttag_init and cf_hist_init.
+ *              
+ * History:     07/15/03  v1.1	wvd   Move routines from cf_ttag_init
+ *		07/24/03   1.2  wvd   If tsunrise and tsunset get huge, 
+ *					store them as floats, not integers.
+ *		07/30/03   1.5  wvd   Omit TZERO and TSCALE for these 
+ *					timeline table entries:
+ *					HIGH_VOLTAGE
+ *					LIF_CNT_RATE
+ *					SIC_CNT_RATE
+ *					FEC_CNT_RATE
+ *					AIC_CNT_RATE
+ *					BKGD_CNT_RATE
+ *					This will effectively convert them
+ *					to arrays of shorts.
+ *					Add 0.5 to all count rates in 
+ *					anticipation of truncation.
+ *		08/22/03   1.7  wvd   Populate MIN_LIMB keyword.
+ *		09/03/03   1.8  wvd   Implement cf_verbose throughout.
+ *				      Add EXP_JITR and EXPNIGHT to IDF header.
+ *		09/22/03   1.9  wvd   Correct comment field for YCENT1
+ *		10/02/03   1.10 wvd   Modify timeline table:
+ *				      - no time gaps
+ *				      - set TEMPORAL_OPUS for times outside
+ *					of OPUS good-time intervals.
+ *				      Delete cf_get_times.
+ *				      Use cf_read_col in cf_get_gti
+ *					and cf_get_geocorona.
+ *				      Don't modify gtis[0] for HIST data.
+ *		10/13/03   1.11 wvd   Add 1s to end of timeline table for
+ *					TTAG data.
+ *		10/15/03   1.12 wvd   Swap voltages for detectors 2A and 2B
+ *					if housekeeping file was written
+ *					before April of 2003.
+ *		10/22/03   1.13 wvd   Compute EXPNIGHT for raw data file
+ *					and write to output file header.
+ *					Add YQUALLIF & YQUALSIC keywords.
+ *		11/25/03   1.14 wvd   Raise upper limits on LIF_CNT_RATE and
+ *					SIC_CNT_RATE to 32000.  Raise limits
+ *					on FEC_CNT_RATE and AIC_CNT_RATE
+ *					to 64000.  Use TZERO = 32768 for
+ *					FEC_CNT_RATE and AIC_CNT_RATE. 
+ *					They must be read as floats.
+ *              01/15/04   1.15 bjg   Now performs cnt0 -= 16777216 when
+ *                                      cnt0 < cnt before computing 
+ *                                      cnt_rate for the first cnt and 
+ *                                      cnt0 in function 
+ *                                      fill_cntrate_array
+ *                                    cf_timeline 1.6 -> 1.7
+ *                                      free the arrays only at the end
+ *                                      version 1.6 tries to read tflag
+ *                                      array after it has been freed
+ *		02/06/04   1.16 wvd   Modify fill_cntrate_array() so
+ *					that the output array no longer runs
+ *					16 seconds behind the HSKP data.
+ *		02/18/04   1.17 wvd   Voltages for detectors 2A and 2B
+ *					are still swapped.  Set HKERR_ENDS
+ *					to 20100000.
+ *              03/04/04   1.18 bjg   Read begin and end counters as float
+ *                                    Set countrate to zero when cntb is more
+ *                                    than 16777216.
+ *              03/19/04        bjg   FITS data types (TFLOAT, TSTRING, TBYTE)
+ *                                    now match type of C containers (float, 
+ *                                    char *, char) when reading and writing 
+ *                                    in FITS header.
+ *              04/06/04   1.19 bjg   Include ctype.h
+ *                                    Functions now return EXIT_SUCCESS
+ *                                    Remove unused variables
+ *                                    Remove static keyword in struct key 
+ *                                    definition
+ *                                    If cnt_rate>32000 set cnt_rate=0
+ *		05/07/04   1.20 wvd   Delete HKERR_ENDS.  If HSKPVERS keyword
+ *				      is not present in HSKP file, test to
+ *				      determine whether high-voltage arrays
+ *				      for 2A and 2B are swapped.
+ *		05/27/04   1.21 bjg   Test counter keywords. If bad, use
+ *				      cnt_rate=NEVENTS/exptime or 0
+ *		06/14/04   1.22 wvd   Add BRIT_OBJ keyword to header.
+ *				      Rewrite fill_hv_array() to make it more
+ *					robust.
+ *				      If HV values in header are good, use
+ *					them to determine whether HV 
+ *                                    	arrays for 2A and 2B are swapped.
+ *              10/17/04        bjg   Replaced lots of
+ *                                    "while (val
+#include 
+#include 
+#include 
+#include 
+#include 
+#include "calfuse.h" 
+#include "sgp4.h"
+
+
+struct key {
+        char keyword[FLEN_KEYWORD];
+        float value;
+        };
+
+
+/***********************************************************************
+ *
+ *  procedure to get the GTI values from the input file
+ *
+ **********************************************************************/
+
+int cf_get_gti(fitsfile *infits, double **gtis, double **gtie) {
+
+    char	instmode[FLEN_VALUE];
+    int		ngti, status=0;
+    float	ttperiod;
+
+    cf_verbose(3, "Entering cf_get_gti.");
+
+   /* Read header keywords. */
+    FITS_movabs_hdu(infits, 1, NULL, &status);
+    FITS_read_key(infits, TSTRING, "INSTMODE", instmode, NULL, &status);
+    FITS_read_key(infits, TFLOAT, "TTPERIOD", &ttperiod, NULL, &status);
+    if (ttperiod < 1E-6) ttperiod = 1.0;
+
+   /* Move to the second extension and read the GTI's */
+    FITS_movabs_hdu(infits, 3, NULL, &status);
+    ngti = cf_read_col(infits, TDOUBLE, "START", (void **) gtis);
+    ngti = cf_read_col(infits, TDOUBLE, "STOP",  (void **) gtie);
+
+   /* 
+    *  If gtis[0] = 0.000, then it is probably wrong.
+    *  Set it equal to the fractional part of gtie[0].
+    *  In HIST mode, gtis[0] is always 0., so don't change it.
+    *  This trick only works if TTPERIOD = 1.0.
+    */
+    if (**gtis < FRAME_TOLERANCE && !strncmp(instmode, "TTAG", 4)
+	&& fabs(ttperiod - 1.0) < FRAME_TOLERANCE)
+	**gtis = fmod(*gtie[0], 1.);
+
+    cf_verbose(3, "Exiting cf_get_gti.");
+    return ngti;
+}
+
+/***********************************************************************
+ *
+ * procedure to get a list of geocoronal line locations from the AIRG 
+ *   calibration file
+ *
+ ***********************************************************************/
+
+int
+cf_get_geocorona(fitsfile *outfits, short **gxmin, short **gxmax,
+	short **gymin, short **gymax)
+{
+   char airgfile[FLEN_VALUE]; 
+   int nrow, status=0; 
+   fitsfile *airgfits;
+
+   cf_verbose(3, "Entering cf_get_geocorona.");
+
+  /* Read the name of the AIRG calibration file to use and open it */
+   FITS_movabs_hdu(outfits, 1, NULL, &status);
+   FITS_read_key(outfits, TSTRING, "AIRG_CAL", airgfile, NULL, &status);
+   FITS_open_file(&airgfits, cf_cal_file(airgfile), READONLY, &status); 
+   cf_verbose(3, "AIRG_CAL = %s", airgfile);
+
+  /* 
+   *  Move to the first extension and read the positions of the
+   *  geocoronal lines.
+   */  
+   FITS_movabs_hdu(airgfits, 2, NULL, &status);
+   nrow = cf_read_col(airgfits, TSHORT, "XMIN", (void **) gxmin); 
+   nrow = cf_read_col(airgfits, TSHORT, "XMAX", (void **) gxmax);
+   nrow = cf_read_col(airgfits, TSHORT, "YMIN", (void **) gymin);
+   nrow = cf_read_col(airgfits, TSHORT, "YMAX", (void **) gymax);
+
+   FITS_close_file(airgfits, &status);
+   cf_verbose(3, "Exiting cf_get_geocorona.");
+   return nrow;
+}
+
+
+/***********************************************************************
+ *
+ * Procedures to compute times of most recent sunrise and sunset
+ *
+ ***********************************************************************/
+
+SGP4   set_orbit_parms(fitsfile *);
+
+static double
+sunrise(double mjd_start, SGP4 sgp4)
+{
+    double ang_sep, mjd, ptime, pos[3], vel[3];
+    int    i, dn_flag, dn_flag_last;
+
+    dn_flag_last = 1; /* Assume that we begin in night. */
+
+    for (i=1; i>-8000; i--) {
+        ptime = (double) i;
+        mjd = mjd_start + ptime/86400.0;
+
+        /* Get the state vector at time mjd */
+        SGP4_getStateVector(sgp4, mjd, pos, vel);
+        SGP4_precess(pos, mjd, MJD2000);
+
+        dn_flag = eclipse(pos, mjd, &ang_sep); /* 0=day, 1=night */
+
+	/* We're going backward in time, so sunrise is day into night. */
+        if ((dn_flag == 1) && (dn_flag_last == 0)) break;
+
+        dn_flag_last=dn_flag;
+    }
+    /* Historically, we've defined sunrise as the time increment after
+	the change, so add 1 to the number we've just calculated. */
+    return (ptime + 1.);
+}
+
+
+static double
+sunset(double mjd_start, SGP4 sgp4)
+{
+    double ang_sep, mjd, ptime, pos[3], vel[3];
+    int    i, dn_flag, dn_flag_last;
+
+    dn_flag_last = 0; /* Assume that we begin in day. */
+
+    for (i=1; i>-8000; i--) {
+	ptime = (double) i;
+	mjd = mjd_start + ptime/86400.0;
+
+	/* Get the state vector at time mjd */
+	SGP4_getStateVector(sgp4, mjd, pos, vel);
+	SGP4_precess(pos, mjd, MJD2000);
+
+	dn_flag = eclipse(pos, mjd, &ang_sep);  /* 0=day, 1=night */
+
+	/* We're going backward in time, so sunset is night into day. */
+	if ((dn_flag == 0) && (dn_flag_last == 1)) break;
+
+	dn_flag_last = dn_flag;
+    }
+    /* Historically, we've defined sunset as the time increment after
+	the change, so add 1 to the number we've just calculated. */
+    return (ptime + 1.);
+}
+
+/****************************************************************************/
+
+static void
+fill_cntrate_array(long nsam_hk, long *hk_colval, double *time_hk,
+		   long ntime, double *ttime, float *tarray)
+{
+    /*
+     *  Procedure to fill an array with count rate housekeeping (HK)
+     *  information, which is tabulated on an approx 16s time interval.
+     *
+     *  nsam_hk   = number of time samples in the housekeeping file
+     *  hk_colval = array containing the housekeeping data
+     *  time_hk   = time from the exposure start for each second in the
+     *              houskeeping file
+     *  ntime     = number of tabulated rows in the timeline array
+     *  ttime     = tabulated times in the timeline array
+     *  tarray    = timeline array to be filled, one sample per second
+     *              starting at the start of the exposure
+     */
+
+    double hk_time, hk_time0;
+    long hk_cnt, hk_cnt0;
+    long i;	/* index through timeline table */
+    long k;	/* index through housekeeping array */
+    float cnt_rate = 0.;
+
+    i = k = 0;	/* Initialize indices */
+
+    /*
+     *  Find the first non-negative value in the HK array
+     */
+    while(k < nsam_hk && hk_colval[k] < 0) k++;
+    hk_cnt0  = hk_colval[k];
+    hk_time0 = time_hk[k];
+
+    /*
+     *  Begin big loop through the timeline table
+     */
+    while (i < ntime) {
+
+	/* Find the next non-negative value in the HK array. */
+	k++;
+	while(k < nsam_hk && hk_colval[k] < 0) k++;
+
+	/* If we've run out of HK entries,
+		fill in the rest of the timeline and quit. */
+	if (k == nsam_hk) {
+	    for ( ; i < ntime; i++)
+		tarray[i] = cnt_rate;
+	    break;
+	}
+
+	/* Otherwise, calculate the count rate between
+		times hk_time0 and hk_time. */
+	hk_cnt = hk_colval[k];
+	hk_time = time_hk[k];
+	if (hk_cnt < hk_cnt0)
+	    hk_cnt0 -= 16777216;
+	cnt_rate = (hk_cnt - hk_cnt0) / (hk_time - hk_time0);
+
+	/* Populate the timeline table for times less than hk_time */
+	while (i < ntime && cf_nlong(ttime[i]) < hk_time) 
+	    tarray[i++] = cnt_rate;
+
+	/* Save latest HK time and count values. */
+	hk_cnt0  = hk_cnt;
+	hk_time0 = hk_time;
+    }
+}
+
+
+/****************************************************************************/
+
+static void
+hv_from_header(fitsfile *outfits, char *det, char *side, long ntime, short *hv)
+{
+
+	char  hv_key[FLEN_CARD];
+	int   det_hv, hv_flag, status=0;
+	long  i;
+
+        fits_read_key(outfits, TINT, "HV_FLAG", &hv_flag, NULL, &status);
+	if (hv_flag == -1) {
+           det_hv = -999;
+           cf_verbose(1, "Bad HV keywords: setting HV to -999 in timeline table.");
+	}
+	else {
+           sprintf(hv_key, "DET%.1sHV%.1sH", det, side);
+           FITS_read_key(outfits, TINT, hv_key, &det_hv, NULL, &status);
+	}
+	if (hv_flag == 0)
+	   cf_verbose(1, "Applying max voltage value to whole exposure.");
+
+        cf_verbose(2, "High voltage = %d", det_hv);
+	for (i=0; i MAX_EXPTIME) {
+	TIMES_TOO_BIG = TRUE;
+	cf_if_warning("Exposure appears to span %0.0f ks.  Truncating "
+		"timeline table.", (gtie[ngti-1] - gtis[0])/1000.);
+    }
+
+    /* For HIST data, use the good-time intervals
+	to set the times in the timeline table. */ 
+    if (!strncmp(instmode, "HIST", 4)) {
+        if (TIMES_TOO_BIG) {
+	    ntime = 0;
+	    for (i = 0; i < ngti; i++) 
+		ntime += (long) (gtie[i] - gtis[i] + 1.5);
+	    ptime = (double *) cf_malloc(sizeof(double) * ntime);
+	    k = 0;
+	    for (i = 0; i < ngti; i++) {
+		ntime = (long) (gtie[i] - gtis[i] + 1.5);
+		for (j = 0; j < ntime; j++)
+		    ptime[k++] = gtis[i] + j;
+	    }
+	    ntime = k;
+	}
+	else {
+	    ntime = (long) (gtie[ngti-1] - gtis[0] + 1.5);
+	    ptime = (double *) cf_malloc(sizeof(double) * ntime);
+	    for (i = 0; i < ntime; i++)
+		ptime[i] = gtis[0] + i;
+	}
+    }
+
+    /* For TTAG data, use the photon times themselves. */
+    else {
+	FITS_movabs_hdu(outfits, 2, NULL, &status);
+	nevents = cf_read_col(outfits, TFLOAT, "TIME", (void **) &time);
+	FITS_movabs_hdu(outfits, 1, NULL, &status);
+	n_bad_times = 0;
+        if (TIMES_TOO_BIG) {
+	    last_time = 0;
+	    i = nevents - 1;
+	    while (time[i] > MAX_EXPTIME && i > 0) {
+		if (fabs(time[i] - last_time) > FRAME_TOLERANCE && n_bad_times < 1024) {
+		    bad_times[n_bad_times++] = time[i];
+		    last_time = time[i];
+		}
+		i--;
+	    }
+	    last_time = time[i] + 1.;
+	}
+	else
+	    last_time = time[nevents-1] + 1.;
+	first_time = time[0];
+	if (first_time < fmod(last_time, 1.))
+		first_time = fmod(last_time, 1.) - 1.;
+	ntime = (long) (last_time - first_time + 1.5) + n_bad_times;
+	ptime = (double *) cf_malloc(sizeof(double) * ntime);
+	for (i = 0; i < ntime - n_bad_times; i++)
+	    ptime[i] = first_time + i;
+	for (j = n_bad_times-1; i < ntime; i++, j--)
+	    ptime[i] = bad_times[j];
+	free(time);
+    }
+    cf_verbose(2, "Timeline table will contain %ld entries", ntime);
+
+    /* Now generate all of the other arrays in the timeline table. */
+
+    lon   = (double *) cf_calloc(ntime, sizeof(double));
+    lat   = (double *) cf_calloc(ntime, sizeof(double));
+    limbang  = (double *) cf_calloc(ntime, sizeof(double));
+    vorb  = (double *) cf_calloc(ntime, sizeof(double));
+    tsunrise = (double *) cf_calloc(ntime, sizeof(double));
+    tsunset = (double *) cf_calloc(ntime, sizeof(double));
+    hv    = (short *) cf_calloc(ntime, sizeof(short));
+    lifcr = (float *) cf_calloc(ntime, sizeof(float));
+    siccr = (float *) cf_calloc(ntime, sizeof(float));
+    feccr = (float *) cf_calloc(ntime, sizeof(float));
+    aiccr = (float *) cf_calloc(ntime, sizeof(float));  
+    bkgdcr = (float *) cf_calloc(ntime, sizeof(float));
+    tflag = (unsigned char *) cf_calloc(ntime, sizeof(unsigned char));
+    ycentl = (float *)cf_calloc(ntime, sizeof(float));
+    ycents = (float *)cf_calloc(ntime, sizeof(float));
+
+    for (i=0; i limbang[i]) min_limb = limbang[i];
+
+	dn_flag = eclipse(pos, mjd, &ang_sep);  /* 0=day, 1=night */
+
+	/* The first time through, and after any breaks in the timeline,
+	 * compute times of most recent sunrise and sunset. */
+	if ((i == 0) || (ptime[i] - ptime[i-1] - 1. > FRAME_TOLERANCE)) {
+	    lastsunrise = ptime[i] + sunrise(mjd, sgp4);
+	    lastsunset  = ptime[i] + sunset(mjd, sgp4);
+	    if (lastsunset > lastsunrise) dn_flag_last = 1 ;
+	    else dn_flag_last = 0 ;
+            /*  The first time through, compute the orbital period and
+	     *	write it to file header.  */
+	    if (i == 0) {
+		mjd += (lastsunset - ptime[i] + 7000.)/86400.0;
+		period = 7000. + sunset(mjd, sgp4);
+		FITS_movabs_hdu(outfits, 1, NULL, &status);
+		FITS_update_key(outfits, TDOUBLE, "ORBPERID", &period,
+		"[s] Estimate of orbital period", &status);
+	    }
+	}
+	/* If we've moved from day into night (or night into day), update
+	   last sunrise/sunset times. */
+	else if ((dn_flag == 0) && (dn_flag_last == 1))
+	    lastsunrise = ptime[i];
+	else if ((dn_flag == 1) && (dn_flag_last == 0)) 
+      	    lastsunset = ptime[i]; 
+
+	/* If this is daytime, set the day bit in TFLAG array. */
+	if (dn_flag == 0)
+	    tflag[i] |= TEMPORAL_DAY;
+
+	lon[i] = geo_lon;
+	lat[i] = geo_lat;
+	vorb[i] = dx;
+	tsunrise[i] = ptime[i] - lastsunrise;
+	tsunset[i]  = ptime[i] - lastsunset;
+	dn_flag_last = dn_flag;
+    }
+
+
+    /* 
+     * Set the OPUS flag for times outside of the OPUS good-time
+     * intervals.  Since there are no photons associated with the
+     * last second of a GTI, we make sure that it is flagged as
+     * bad.  The first second of a good-time interval is good.
+     */
+    j = 0;
+    for (i = 0; i < ntime; i++) {
+	while (j < ngti-1 && ptime[i] > gtie[j] - 0.5)
+	    j++;
+	if (ptime[i] < gtis[j] - FRAME_TOLERANCE ||
+	    ptime[i] > gtie[j] + FRAME_TOLERANCE)
+	    tflag[i] |= TEMPORAL_OPUS;
+    }
+    tflag[ntime-1] |= TEMPORAL_OPUS;
+
+    /*
+     * No exposure should be longer than 55 ks.  For HIST data, we'll just
+     * put up with it, but for TTAG data, we'll flag as bad any timeline
+     * table entries with absurd arrival times.  We use the OPUS flag for
+     * this.  What we're really saying is that we don't believe that the 
+     * times associated with these photons are correct.
+     */
+    for (i = 0; i < ntime; i++)
+	if (ptime[i] > MAX_EXPTIME)
+	    tflag[i] |= TEMPORAL_OPUS;
+
+    /* Fill housekeeping columns (count rates and high voltage). */
+    FITS_movabs_hdu(outfits, 1, NULL, &status);
+    FITS_read_key(outfits, TSTRING, "HKEXISTS", hkexists, NULL, &status);
+    FITS_read_key(outfits, TSTRING, "DETECTOR", det, NULL, &status);
+    strncpy(side, det+1, 1);
+
+    /* Populate MIN_LIMB keyword. */
+    FITS_update_key(outfits, TDOUBLE, "MIN_LIMB", &min_limb, NULL, &status);
+
+    /* If no housekeeping file exists, use header info to fill timeline. */
+ loop:
+    if(!strncasecmp(hkexists, "N", 1)) {
+	char  cntb_key[FLEN_CARD], cnte_key[FLEN_CARD];
+	float  cntb, cnte;
+	float cnt_rate, cnt_rate2, eng_time, exp_time;
+	double ctimeb, ctimee;
+
+        cf_verbose(1, "No housekeeping file: filling timeline with header info.");
+
+	/* move to the top level header to read the relevant keywords */ 
+        FITS_movabs_hdu(outfits, 1, NULL, &status);
+	FITS_read_key(outfits, TFLOAT, "EXPTIME", &exp_time, NULL, &status);
+	FITS_read_key(outfits, TLONG, "NEVENTS", &nevts, NULL, &status);
+
+	/* calculate engineering count rates */ 
+	FITS_read_key(outfits, TDOUBLE, "CTIME_B", &ctimeb, NULL, &status);
+	FITS_read_key(outfits, TDOUBLE, "CTIME_E", &ctimee, NULL, &status);
+	eng_time = (ctimee-ctimeb) * 86400.;
+
+        /* If eng_time is unreasonable, use the EXPTIME keyword */
+	if (eng_time < 1) {
+	  cf_if_warning("Engineering snapshot time less than or equal to zero.");
+	  if ((eng_time = (mjd_end-mjd_start) * 86400.) < MAX_EXPTIME)
+	     cf_if_warning("Estimating LiF, SiC, FEC and AIC count rates from EXPSTART and EXPEND.");
+	  else {
+	     eng_time = exp_time;
+	     cf_if_warning("Estimating LiF, SiC, FEC and AIC count rates from EXPTIME.");
+	  }
+	}
+
+	/* SiC count rate timeline */
+        sprintf(cntb_key, "C%.2sSIC_B", det);
+        FITS_read_key(outfits, TFLOAT, cntb_key, &cntb, NULL, &status);
+        sprintf(cnte_key, "C%.2sSIC_E", det);
+        FITS_read_key(outfits, TFLOAT, cnte_key, &cnte, NULL, &status); 
+				
+	if ((cnte<0) || (cntb<0) || (cntb>cnte) || eng_time < 1. ||
+	    (cnte==0xEB90EB90) || (cnte==0xDEADDEAD) ||
+	    (cntb==0xEB90EB90) || (cntb==0xDEADDEAD) ||
+	    ((cnt_rate = (cnte - cntb) / eng_time) > 32000)) {
+	    cf_if_warning("Bad SiC counter.  SiC count rate will be set to zero.");
+	    cnt_rate=0;
+	}
+	
+	cf_verbose(2, "SiC count rate = %d", (int) cnt_rate);
+	for (i=0; icnte) || eng_time < 1. ||
+            (cnte==0xEB90EB90) || (cnte==0xDEADDEAD) ||
+            (cntb==0xEB90EB90) || (cntb==0xDEADDEAD) ||
+            ((cnt_rate = (cnte - cntb) / eng_time) > 32000)) {
+            cf_if_warning("Bad LiF counter.  LiF count rate will be set to zero.");
+            cnt_rate=0;
+        }
+
+	cf_verbose(2, "LiF count rate = %d", (int) cnt_rate);
+	for (i=0; icnte) || eng_time<1 ||
+	    (cnte==0xEB90EB90) || (cnte==0xDEADDEAD) ||
+	    (cntb==0xEB90EB90) || (cntb==0xDEADDEAD) ||
+	    ((cnt_rate = (cnte - cntb) / eng_time) > 64000) ||
+	    (cnt_rate < 0.8*nevts/exp_time)) {
+	    cf_if_warning("Bad FEC counter"); 
+	    cf_if_warning("-- FEC count rate will be computed from NEVENTS and EXPTIME.");
+	    cf_if_warning("-- Electronic deadtime correction will be underestimated.");
+	    cf_if_warning("-- Y stretch will be underestimated.");
+	    cnt_rate=nevts/exp_time;
+	}			
+				
+	cf_verbose(2, "FEC count rate = %d", (int) cnt_rate);
+	for (i=0; icnte) || (eng_time<1) ||
+	    (cnte==0xEB90EB90) || (cnte==0xDEADDEAD) ||
+	    (cntb==0xEB90EB90) || (cntb==0xDEADDEAD) ||
+	    ((cnt_rate2 = (cnte - cntb)/ eng_time) > 64000)) ||
+	    ((!(strncasecmp(dets[i],det,2))) && (cnt_rate2<0.8*nevts/exp_time))) {
+	      cf_if_warning("Bad AIC counter %s",dets[i]); 
+	      cf_if_warning("-- AIC count rate will be computed from NEVENTS and EXPTIME.");
+	      cf_if_warning("-- IDS deadtime correction will be underestimated.");
+	      cnt_rate=nevts/exp_time;
+	      break;
+	  }	
+	  cnt_rate+=cnt_rate2;
+	}
+       
+	cf_verbose(2, "AIC count rate = %d", (int) cnt_rate);
+	for (i=0; i vmax)
+		   vmax = hk_colval[j];
+	   if (vmax <= 0) {
+              cf_if_warning("Data missing from housekeeping column.  "
+		"Will treat file as missing.");
+              strncpy(hkexists, "N", 1);
+              status=0;
+              goto loop; }
+            else fill_cntrate_array(nsam_hk, hk_colval, time_hk, ntime,
+				    ptime, siccr);}
+	 else {
+	      cf_if_warning("Data column missing from housekeeping file.  "
+		"Will treat file as missing.");
+              strncpy(hkexists, "N", 1);
+              status=0;
+              goto loop;
+	    }
+	cf_verbose(3,"SiC count-rate info read from housekeeping file.");
+
+	/* LiF count rate timeline */
+        sprintf(cntb_key, "I_DET%.1sCLIF%.1s", det, side);
+	FITS_get_colnum(hskpfits, TRUE, cntb_key, &hk_colnum, &status);
+        FITS_read_col(hskpfits, TLONG, hk_colnum, 1L, 1L, nsam_hk, &intnull,
+		      hk_colval, &anynull, &status);
+        fill_cntrate_array(nsam_hk, hk_colval, time_hk, ntime, ptime, lifcr);
+	cf_verbose(3,"LiF count-rate info read from housekeeping file.");
+
+	/* FEC count rate timeline */
+	sprintf(cntb_key, "I_DET%.1sCFE%.1s", det, side);
+	FITS_get_colnum(hskpfits, TRUE, cntb_key, &hk_colnum, &status);
+	FITS_read_col(hskpfits, TLONG, hk_colnum, 1L, 1L, nsam_hk, &intnull,
+		      hk_colval, &anynull, &status);
+        fill_cntrate_array(nsam_hk, hk_colval, time_hk, ntime, ptime, feccr);
+	cf_verbose(3,"FEC count-rate info read from housekeeping file.");
+
+ 	/* AIC count rate timeline */ 
+	aiccr2 = (float *) cf_calloc(ntime, sizeof(float));
+	for (j=0;j -1) {
+		FITS_read_key(outfits, TINT, "DET2HVAH", &hdr_max2a, NULL, &status);
+		cf_verbose(3, "   Max for 2A: header says %d, housekeeping file says %d.",
+		    hdr_max2a, max2a);
+		if (abs(max2a - hdr_max2a) < 5)
+		    cf_verbose(3, "   HV arrays are OK.  No need to swap.");
+		else
+		    swap_HV = TRUE;
+	    }
+
+	    /*
+	     *  If HV values in file header are bad, compare with expected
+	     *  values from VOLT_CAL file.
+	     */
+	    else {
+		FITS_open_file(&voltfits, cf_cal_file(volt_cal), READONLY, &status);
+	        n = 0L;
+	        do {
+	            n++;
+	            sprintf(mjd_str, "MJD%ld", n);
+	            FITS_read_key(voltfits, TDOUBLE, mjd_str, &mjd_volt, NULL, &status);
+	        } while (mjd_start > mjd_volt);
+	        n--;
+
+	        sprintf(full_str, "FULL%ld", n);
+	        sprintf(saa_str, "SAA%ld", n);
+	        FITS_read_key(voltfits, TINT, full_str, &full, NULL, &status);
+	        FITS_read_key(voltfits, TINT, saa_str, &saa, NULL, &status);
+	        FITS_close_file(voltfits, &status);
+
+	        /* If max for 2A matches expected full or SAA voltage -- and
+		    we're on side 2A -- then we're OK.  Otherwise, must swap. */
+	        cf_verbose(3, "   2A max = %d; Expected values for %s: full = %d, SAA = %d",
+		    max2a, det, full, saa);
+	        if ((abs(max2a - full) < 10 || abs(max2a - saa) < 5) &&
+		    (*side == 'A'))
+		    cf_verbose(3, "   HV arrays are OK.  No need to swap.");
+	        else swap_HV = TRUE;
+	    }
+	}
+
+ 	/* High voltage timeline */
+	if (swap_HV) {
+	    if (*side == 'A') sprintf(cntb_key, "I_DET2HVBIASBST");
+	    else              sprintf(cntb_key, "I_DET2HVBIASAST");
+	    cf_verbose(3, "   Swapping HV values for detectors 2A and 2B");
+	}
+        else sprintf(cntb_key, "I_DET%.1sHVBIAS%.1sST", det, side);
+	FITS_get_colnum(hskpfits, TRUE, cntb_key, &hk_colnum, &status);
+        FITS_read_col(hskpfits, TLONG, hk_colnum, 1L, 1L, nsam_hk, &intnull,
+		      hk_colval, &anynull, &status);
+        if (!hv_from_hskp(nsam_hk, hk_colval, time_hk, ntime, ptime, hv))
+	    cf_verbose(3,"HV info read from housekeeping file.");
+        else {
+	    cf_verbose(1,"Housekeeping file corrupted: reading HV info from file header.");
+	    hv_from_header(outfits, det, side, ntime, hv);
+	}
+
+	free(time_hk);
+	free(hk_mjd);
+	free(hk_colval);
+	FITS_close_file(hskpfits, &status);
+    }
+
+    /*
+     * Set TFORM, TSCALE, and TZERO values for output table.
+     */
+    sprintf(fmt_byte,  "%ldB", ntime);
+    sprintf(fmt_float, "%ldE", ntime);
+    sprintf(fmt_short, "%ldI", ntime);
+
+    /* First set default values. */
+    tform[0] = fmt_float;
+    tform[1] = fmt_byte;
+    for (i=2; i max_lif) {
+		lifcr[i] = 0.;
+		biglif = TRUE;
+	}
+	if (siccr[i] > max_sic) {
+		siccr[i] = 0.;
+		bigsic = TRUE;
+	}
+	if (feccr[i] > max_fec) {
+		feccr[i] = 0.;
+		bigfec = TRUE;
+	}
+	if (aiccr[i] > max_aic) {
+		aiccr[i] = 0.;
+		bigaic = TRUE;
+	}
+    }
+
+	if (biglif) cf_if_warning("LIF_CNT_RATE out of bounds.  Setting bad values to zero.");
+	if (bigsic) cf_if_warning("SIC_CNT_RATE out of bounds.  Setting bad values to zero.");
+	if (bigfec) cf_if_warning("FEC_CNT_RATE out of bounds.  Setting bad values to zero.");
+	if (bigaic) cf_if_warning("AIC_CNT_RATE out of bounds.  Setting bad values to zero.");
+
+    /*
+     * Write the timeline table to the output file.
+     */
+    FITS_movabs_hdu(outfits, 3, NULL, &status);
+    FITS_create_hdu(outfits, &status);
+
+    FITS_create_tbl(outfits, BINARY_TBL, 1L, tfields, ttype, 
+                    tform, tunit, extname, &status);
+
+    /* Write TSCALE and TZERO entries to header */
+    for (i=2; i 0 && ndx < npix) bpmaskt[ndx] += wt[i] ;
+	    }
+	}
+    }
+    cf_verbose(3, "Channel %d contains %d bad pixels.", ap, nsam) ;
+
+    /* If any potholes are present, generate the pothole map. */
+    if(nsam > 0) {
+
+	/* Determine a normalization for the potholes. This is done by
+	creating a histogram of the weights between 0 and the maximum
+	and then selecting the 95% level as the normalization factor.
+	We use 95%, rather than the maximum, to avoid the possibility
+	of having a few spurious points define the normalization. */
+
+	/* Determine the maximum value. */
+	bpmax = 0.;
+	for (i=0; i bpmax) bpmax = bpmaskt[i] ;
+
+	/* Generate the histogram. */
+	nhist = (int) (bpmax * 10.) + 1 ;
+	bphist = (int *) cf_calloc(nhist, sizeof(int)) ;
+	bpsum = 0;
+	for (i=0; i < npix; i++) {
+	    ndx = (int) (bpmaskt[i] * 10.) ;
+	    if (ndx > 0 && ndx < nhist) {
+		bphist[ndx]++;
+		bpsum++;
+	    }
+	}
+
+	/* Now select the 95% level. */
+	nsam = 0;
+	i = nhist-1 ;
+	while (nsam < bpsum/20 && i >= 0) {
+	    nsam += bphist[i] ;
+	    pnorm = bpmax - (nhist-1-i) / 10. ;
+	    i--;
+	}
+
+	cf_verbose(3, "bpmax = %.1f, normalizing factor = %.2f", bpmax, pnorm) ;      
+
+	/* Normalize and invert the mask so that the center of the
+	pothole is zero and the region outside is 1. */
+
+	for (i=0; i bpmaskt[ndx+1])
+			bpmaskt[ndx] = (bpmaskt[ndx-1] + bpmaskt[ndx+1]) / 2.;
+	    }
+	}
+    }
+
+    /* If there are no potholes, generate an array with all ones. */
+    else 
+	for (i=0; i
+#include "calfuse.h"
+
+static char CF_PRGM_ID[] = "cf_make_wave_array";
+static char CF_VER_NUM[] = "1.5";
+
+int
+cf_make_wave_array(fitsfile *header, int aperture, long *nout,
+	float **wave_out)
+{
+    char  parm_file[FLEN_VALUE];	/* Name of parameter file */
+    char  wave_file[FLEN_VALUE]; 	/* Name of WAVE_CAL file */
+    char  w0_key[FLEN_KEYWORD];		/* Depends on aperture */
+    char  wmax_key[FLEN_KEYWORD];	/* Depends on aperture */
+    char  wpc_key[FLEN_KEYWORD];	/* Depends on aperture */
+
+    int   status=0, hdunum;
+    long  i;
+
+    float default_w0, default_wmax, default_wpc; /* Default values */
+    float w0, wmax, wpc;			 /* Requested values */
+
+    fitsfile *parmfits, *wavefits;
+
+    /* Initialize error checking */
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin processing");
+
+    /* 
+     *  Set keywords to read either LIF or SIC parameters, depending on
+     *	the aperture number.
+     */
+    if (aperture < 5) {
+	sprintf(w0_key,   "LIF_W0");
+	sprintf(wmax_key, "LIF_WMAX");
+	sprintf(wpc_key,  "LIF_WPC");
+    } else {
+	sprintf(w0_key,   "SIC_W0");
+	sprintf(wmax_key, "SIC_WMAX");
+	sprintf(wpc_key,  "SIC_WPC");
+    }
+
+    /* Read recommended values of W0, WMAX, and WPC from WAVE_CAL header */
+    hdunum = aperture + 1;
+    FITS_read_key(header, TSTRING, "WAVE_CAL", wave_file, NULL, &status);
+    FITS_open_file(&wavefits, cf_cal_file(wave_file), READONLY, &status);
+    FITS_movabs_hdu(wavefits, hdunum, NULL, &status);
+    FITS_read_key(wavefits, TFLOAT, "W0", &default_w0, NULL, &status);
+    FITS_read_key(wavefits, TFLOAT, "WMAX", &default_wmax, NULL, &status);
+    FITS_read_key(wavefits, TFLOAT, "WPC", &default_wpc, NULL, &status);
+    FITS_close_file(wavefits, &status);
+    cf_verbose(3, "Recommended wavelength parameters:");
+    cf_verbose(3, "\tW0 = %g, WMAX = %g, WPC = %g",
+	default_w0, default_wmax, default_wpc);
+
+    /* 
+     * Read requested values of W0, WMAX, and WPC from PARM_CAL.
+     * If no value requested, use default values.
+     * Compare requested values with default; complain if weird.
+     */
+    FITS_read_key(header, TSTRING, "PARM_CAL", parm_file, NULL, &status);
+    FITS_open_file(&parmfits, cf_parm_file(parm_file), READONLY, &status);
+    if (fits_read_key(parmfits, TFLOAT, w0_key, &w0, NULL, &status)) {
+	w0 = default_w0;
+	status = 0;
+    }
+    else if (w0 < default_w0)
+	cf_if_warning("Requested value of W0 is less than recommended value.");
+
+    if (fits_read_key(parmfits, TFLOAT, wmax_key, &wmax, NULL, &status)) {
+        wmax = default_wmax;
+        status = 0;
+    }   
+    else if (wmax > default_wmax)
+        cf_if_warning("Requested value of WMAX is greater than "
+		      "recommended value.");
+
+    if (fits_read_key(parmfits, TFLOAT, wpc_key, &wpc, NULL, &status)) {
+        wpc = default_wpc;
+        status = 0;
+    }   
+    else if (wpc < default_wpc)
+        cf_if_warning("Requested value of WPC is less than "
+		      "recommended value.");
+    FITS_close_file(parmfits, &status);
+    cf_verbose(3, "Using these wavelength parameters:");
+    cf_verbose(3, "\tW0 = %g, WMAX = %g, WPC = %g", w0, wmax, wpc);
+
+    /*  Compute length of output wavelength array, allocate memory,
+     *  and fill array.
+     */
+    *nout = (long) ((wmax - w0)/wpc + 0.5) + 1L;
+    *wave_out  = (float *) cf_calloc(*nout, sizeof(float));
+    for (i = 0; i < *nout; i++)
+	(*wave_out)[i] = w0 + wpc * (float) i;
+
+    /*
+     *  Write WO and WPC to output file header.
+     */
+    FITS_update_key(header, TFLOAT, "WPC", &wpc, NULL, &status);
+    FITS_update_key(header, TFLOAT, "W0", &w0, NULL, &status);
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return status;
+}
diff --git a/src/libcf/cf_mirror_motion.c b/src/libcf/cf_mirror_motion.c
new file mode 100644
index 0000000..d5dd3b3
--- /dev/null
+++ b/src/libcf/cf_mirror_motion.c
@@ -0,0 +1,189 @@
+/*****************************************************************************
+ *	        Johns Hopkins University
+ *	        Center For Astrophysical Sciences
+ *	        FUSE
+ *****************************************************************************
+ *
+ * Synopsis:	cf_mirror_motion(header, nevents, time, x, y, channel,
+ *			ntimes, ttime, tsunset)
+ *
+ * Description: Calculates the shift of the spectrum in both X and Y caused
+ *              by thermal changes in the mirror position and corrects
+ *              the X and Y coordinates of each photon event. 
+ *
+ *              fitsfile  *header       Pointer to the location of the FITS
+ *                                      header of the Intermediate data File
+ *              long      nevents       Number of photons in the file
+ *              int       *time         Time stamp (in seconds) since the
+ *                                      start of the exposure
+ *              float     *x            Position of the photon (in pixels)
+ *              float     *y            Position of the photon (in pixels)
+ *     unsigned char      channel       Channel id of each photon
+ *              long      ntimes        Number of entries in timeline table
+ *              float     ttime         Time array of timeline table
+ *              short     tsunset       Time since last sunset
+ *
+ * Returns:     0 on success
+ *
+ * History:	09/06/02   1.1  RDR     Begin work, adapted from cf_make_shift
+ *		03/01/03   1.3  wvd	Correct use of pointer in FITS_read_key()
+ *              04/21/03   1.4  wvd	Use tsunset array from timeline table.
+ *					Do not assume that ttime is continuous.
+ *					Interpolate between tabulated shifts.
+ *              05/20/03   1.5  rdr     Added call to cf_proc_check
+ *              08/21/03   1.6  wvd     Change channel to unsigned char.
+ *              06/22/04   1.7  wvd     Estimate time between sunsets using
+ *					orbit period in file header.
+ *              07/14/04   1.8  rdr     Correct line which selects calibration
+ *              03/22/05   1.9  wvd     Change tsunset from float to short.
+ *					Read orbital period from file header.
+ *              04/15/05   1.10 wvd     If ORBPERID keyword is not present,
+ *					assume that it is 6000 s.
+ *              12/20/05   1.11 wvd     Omit correction for an extended
+ *					source.
+ *              04/07/07   1.12 wvd	Clean up compiler warnings.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_mirror_motion(fitsfile *header, long nevents, float *time, float *x,
+		 float *y, unsigned char *channel, long ntimes, float *ttime,
+                 short *tsunset) {
+
+    char CF_PRGM_ID[] = "cf_mirror_motion";
+    char CF_VER_NUM[] = "1.12";
+
+    fitsfile *mmfits;
+    int    errflg=0, status=0, anynull=0, hdutype, nullval=0;
+    int    active_ap[2], extended;
+    long   j, k, ndx;
+    char   det[FLEN_VALUE], mmcal[FLEN_VALUE];
+    float  *tdxlif, *tdxsic, *dxlif, *dylif, *dxsic, *dysic;
+    float  frac, period, w0, w1, w99;
+
+    /* Initialize error checking. */
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    /* Enter a time stamp into the log */
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    /* Check whether routine is appropriate for this data file. */
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    /* Read detector keyword from header. */
+    FITS_read_key(header, TSTRING, "DETECTOR", det, NULL, &status);
+
+    /* Determine the channel numbers of the active apertures */
+    extended = cf_source_aper(header, active_ap);
+    
+    /* If source is extended, exit now. */
+    if (extended) {
+	cf_verbose(1, "Extended source.  Omitting photon shift.");
+        cf_proc_update(header, CF_PRGM_ID, "SKIPPED");
+	return (status);
+    }
+
+    /* 
+     *  Read orbital period from file header.
+     */
+    fits_read_key(header, TFLOAT, "ORBPERID", &period, NULL, &status);
+    if (status) {
+	status = 0;
+	period = 6000;
+        cf_verbose(1, "Keyword ORBPERID not found; assuming 6000 seconds");
+    }
+    else
+	cf_verbose(2, "Estimated orbital period is %.2f seconds", period);
+
+    /* Allocate space for shift arrays. */
+    dxlif = (float *) cf_calloc(ntimes, sizeof(float));
+    dylif = (float *) cf_calloc(ntimes, sizeof(float));
+    dxsic = (float *) cf_calloc(ntimes, sizeof(float));
+    dysic = (float *) cf_calloc(ntimes, sizeof(float));
+
+    /* Read the name of the mirror-motion calibration file */
+    FITS_read_key(header, TSTRING, "MIRR_CAL", mmcal, NULL, &status); 
+    cf_verbose(3, "Mirror motion calibration file = %s", mmcal);
+
+    /*  Open the calibration file and read in the information relating 
+     *  x shifts as a function of time (in minutes) from sunset for one orbit
+     *  (100 minutes)
+     */
+    FITS_open_file(&mmfits, cf_cal_file(mmcal), READONLY, &status);
+    tdxsic = (float *) cf_calloc(100, sizeof(float)); 
+    tdxlif = (float *) cf_calloc(100, sizeof(float)); 
+    cf_verbose(3,"detector= %s",det) ;
+    if (!strncmp(det, "1", 1) ) {
+      cf_verbose(3,"Correcting detector 1") ;
+	/*
+	 *  NOTE: LiF 1 is used as reference and so, by definition, has no
+	 *  mirror motions. Thus, on side 1 only the SiC spectrum will move.
+	 */
+	FITS_movabs_hdu(mmfits,2, &hdutype, &status);
+	FITS_read_img(mmfits, TFLOAT, 1,100, &nullval, tdxsic, &anynull,
+		      &status);
+    }
+    else {
+      cf_verbose(3,"Correcting detector 2") ;
+	FITS_movabs_hdu(mmfits,3, &hdutype, &status);
+	FITS_read_img(mmfits, TFLOAT, 1,100, &nullval, tdxlif, &anynull,
+		      &status);
+	FITS_movabs_hdu(mmfits,4, &hdutype, &status);
+	FITS_read_img(mmfits, TFLOAT, 1,100, &nullval, tdxsic, &anynull,
+		      &status);
+    }
+    FITS_close_file(mmfits, &status);
+    /* Determine the shifts for each second of the observation. */
+    for (k=0; k= 99) {
+	    w99 = 100. - frac;
+	    w0 = frac - 99.;
+	    dxlif[k] = w0 * tdxlif[0] + w99 * tdxlif[99];
+	    dxsic[k] = w0 * tdxsic[0] + w99 * tdxsic[99];
+	}
+	else {
+	    w0 = (float) (ndx + 1) - frac;
+	    w1 = frac - (float) (ndx);
+	    dxlif[k] = w0 * tdxlif[ndx] + w1 * tdxlif[ndx + 1];
+	    dxsic[k] = w0 * tdxsic[ndx] + w1 * tdxsic[ndx + 1];
+	}
+    }
+    
+    /* Apply the calculated shifts to the data. */
+    for (j=k=0; j
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_modify_hist_pha (fitsfile *header, long nevents, unsigned char *pha,
+	unsigned char *channel)
+{
+    char CF_PRGM_ID[] = "cf_modify_hist_pha";
+    char CF_VER_NUM[] = "1.3";
+
+    char		phahfile[FLEN_FILENAME];
+    unsigned char	pha_chan[8], *pha_mjd=NULL;
+    int			errflg=0, status=0;
+    long		i, j, jmax;
+    double		expstart, *mjd=NULL;
+    fitsfile		*phahfits;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    /* If data were not taken in HIST mode, exit now. */
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    /* Read header keywords. */
+    FITS_read_key(header, TDOUBLE, "EXPSTART", &expstart, NULL, &status);
+
+    /* Open the pulse-height calibration file. */
+    FITS_read_key(header, TSTRING, "PHAH_CAL", phahfile, NULL, &status);
+    cf_verbose(3, "Pulse-height calibration file = %s", phahfile);
+    FITS_open_file(&phahfits, cf_cal_file(phahfile), READONLY, &status);
+
+    /*
+     * Loop through all channels, reading expected pulse heights from PHAH_CAL.
+     * Use the values appropriate for the date of this exposure.
+     */
+    pha_chan[0] = 20;		/* Default for events not in a channel */
+    for (i = 1; i < 8; i++) {
+	if (i == 4) continue;
+        FITS_movabs_hdu(phahfits, i+1, NULL, &status);
+        jmax = cf_read_col(phahfits, TDOUBLE, "MJD", (void *) &mjd);
+        jmax = cf_read_col(phahfits, TBYTE,   "PHA", (void *) &pha_mjd);
+	j = 0;
+	while (j < jmax-1 && mjd[j+1] < expstart) j++;
+	pha_chan[i] = pha_mjd[j];
+	cf_verbose(3, "channel = %d, j = %d, pha = %d", i, j, pha_chan[i]);
+    }
+
+    /* Close the pulse-height calibration file. */
+    FITS_close_file(phahfits, &status);
+
+    /* Set pulse height for each photon according to its channel number. */
+    for (j = 0; j < nevents; j++)
+	pha[j] = pha_chan[(int) channel[j]];
+
+    free(mjd);
+    free(pha_mjd);
+
+    cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+
+    return status;
+}
diff --git a/src/libcf/cf_modify_hist_times.c b/src/libcf/cf_modify_hist_times.c
new file mode 100644
index 0000000..ba1b5d0
--- /dev/null
+++ b/src/libcf/cf_modify_hist_times.c
@@ -0,0 +1,83 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_modify_hist_times (fitsfile *infits, long nevents,
+ *                          float *time, GTI *gti);
+ *
+ * Description: For histogram data, set photon-arrival times to the midpoint
+ *              of the longest good-time interval.
+ *
+ * Arguments:   fitsfile   *infits        	Input FITS file pointer
+ *              long       nevents       	Number of photon events
+ *              float      *time 		Time array for photon list
+ *              GIT        *gti           	Good time interval(s)
+ *
+ * Calls:
+ *
+ * Returns:     TRUE if time array is changed.
+ *              FALSE if time array is not changed.
+ *
+ * History:     06/02/04   1.1   wvd    Initial coding
+ *		06/07/04   1.2   wvd	Use standard return values.
+ *		02/17/05   1.3   wvd	Initalize jmax to 0.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_modify_hist_times (fitsfile *infits, long nevents, float *time, GTI *gti)
+{
+    char CF_PRGM_ID[] = "cf_modify_hist_times";
+    char CF_VER_NUM[] = "1.3";
+
+    int    errflg=0, status=0;
+    long   j, jmax=0;
+    float  exptime, gti_time, max_time, photon_time, rawtime;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    /* If data were not taken in HIST mode, exit now. */
+    if ((errflg = cf_proc_check(infits, CF_PRGM_ID))) return errflg;
+
+    /* Read header keywords. */
+    FITS_read_key(infits, TFLOAT, "EXPTIME", &exptime, NULL, &status);
+    FITS_read_key(infits, TFLOAT, "RAWTIME", &rawtime, NULL, &status);
+
+    /* 
+     *  If the entire exposure was rejected by the screening routines,
+     *	we don't bother changing photon-arrival times.  If no time was
+     *	lost to screening, the default arrival times are OK.  Exit now.
+     */
+    if (exptime < 1. || exptime > rawtime - 1.) {
+	cf_proc_update(infits, CF_PRGM_ID, "COMPLETE");
+	cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+	return -1;
+    }
+
+    /* Determine which is the longest good-time interval. */
+    max_time = 0.;
+    for (j = 0; j < gti->ntimes; j++) {
+	if ((gti_time = gti->stop[j] - gti->start[j]) > max_time) {
+	    max_time = gti_time;
+	    jmax = j;
+	}
+    }
+
+    /* Set all photon-arrival times to midpoint of longest GTI. */
+    photon_time = (gti->start[jmax] + gti->stop[jmax]) / 2.;
+    for (j = 0; j < nevents; j++)
+	time[j] = photon_time;
+    cf_verbose(1, "Setting photon-arrival times to %.1f", photon_time);
+
+    cf_proc_update(infits, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return status;
+}
diff --git a/src/libcf/cf_nint.c b/src/libcf/cf_nint.c
new file mode 100644
index 0000000..8488911
--- /dev/null
+++ b/src/libcf/cf_nint.c
@@ -0,0 +1,47 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    n = cf_nint(x)
+ *
+ * Description: Converts double to nearest integer.
+ *
+ * Variables:   double    x	A double
+ *
+ * Return:      int       n	Nearest integer
+ *
+ * History:     08/25/03    wvd  v1.1   Begin work
+ *              02/09/04    wvd  v1.2   Add cf_nlong()
+ *              02/17/04    wvd  v1.3   Test for overflow of int, long
+ *              02/18/04    wvd  v1.4   Change format of error message.
+ *					Change from values.h to limits.h
+ *
+ *************************************************************************/
+
+#include 
+#include "calfuse.h"
+
+int
+cf_nint(double x)
+
+{
+	if (x > INT_MAX || x < INT_MIN)
+	    cf_if_error("Cannot convert %10.4e to an integer", x);
+
+	if (x < 0.)	return (int) (x - 0.5);
+	else		return (int) (x + 0.5);
+}
+
+
+long
+cf_nlong(double x)
+
+{
+	if (x > LONG_MAX || x < LONG_MIN)
+	    cf_if_error("Cannot convert %10.4e to a long", x);
+
+        if (x < 0.)     return (long) (x - 0.5);
+        else            return (long) (x + 0.5);
+}
diff --git a/src/libcf/cf_optimal_extraction.c b/src/libcf/cf_optimal_extraction.c
new file mode 100644
index 0000000..4bbca9f
--- /dev/null
+++ b/src/libcf/cf_optimal_extraction.c
@@ -0,0 +1,551 @@
+/*****************************************************************************
+ *              Johns Hopkins University 
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_optimal_extraction(fitsfile *header, int optimal, 
+ *              int aperture, float *weight, float *y, unsigned char *channel,
+ *              float *lambda, long ngood, long *good_index,
+ *		float *barray, float *bpmask, int pny, float pycent,
+ *		float *parray, long nout, float *wave_out, float **flux_out,
+ *		float **sigma_out, long **counts_out, float **weights_out, 
+ *		float **bkgd_out, short **bpix_out)
+ *
+ * Description: Perform standard or optimal extraction of target spectrum.
+ *
+ * Note:	We use a modified version of the optimal-extraction
+ *		algorithm described by Keith Horne (PASP, 98, 609, 1986).
+ *
+ * Arguments:   fitsfile  *header       Pointer to IDF FITS file header
+ *		int	  optimal	TRUE if optimal extraction requested.
+ *		int	  aperture	Target aperture (values 1-8)
+ *		float	  *weight       Scale factor for each photon
+ *		float	  *y            Final y position of each photon
+ *		unsigned char *channel	Channel ID of each photon
+ *		float 	  *lambda       Wavelength for each photon
+ *		long	  ngood		Length of array good_index 
+ *		long	  *good_index	Indices of screened photon events
+ *		float     *barray       2-D background array
+ *                                       (flux-calibrated and binned)
+ *              float     *bpmask       2-D array containing bad pixel locations
+ *                                      Same size and location as the background array
+ *	        int       pny           Size in Y of weights array
+ *	        float     pycent        Y centroid of weights array
+ *	        float     parray        2-D weights array (binned)
+ *	        long      nout          Length of output arrays
+ *	        float     *wave_out	Output wavelength array
+ *	        float     **flux_out    Output flux array
+ *	        float     **sigma_out   Output error array
+ *	        long      **counts_out  Output counts array
+ *	        float     **weights_out Output weights array
+ *	        float     **bkgd_out 	Output background array
+ *              short     **bpix_out    Output bad pixel spectrum
+ *
+ * Returns:     0 on success
+ *
+ * History:     01/28/03   1.1   wvd    Initial coding
+ *              02/28/03   1.2   peb    Changed flux_out, var_out, counts_out
+ *                                      and weight_out argument variables to
+ *                                      pointer-to-pointers, so the arrays can
+ *                                      be returned to the calling routine.
+ *                                      Also tidied the code using lint.
+ *		03/11/03   1.3   wvd    Update documentation regarding use of
+ *					unsigned char
+ *		03/12/03   1.4   wvd    Change weights_out to sum of weights
+ *		03/19/03   1.5   wvd    Divide flux_out and var_out by WPC
+ *              04/04/03   1.6   rdr    - correct bugs in optimum extraction
+ *                                      - adjust criterion for redetermining
+ *                                        y centroid
+ *		05/07/03   1.7   wvd	Change ergcm2s to ergcm2 throughout. 
+ *					Divide by EXPTIME.  Use cf_verbose.
+ *		05/22/03   1.8   wvd	If EXPTIME = 0, set flux and error to 0.
+ *              05/28/03   1.9   rdr    - For HIST data, spread counts
+ *					  along the y dimension of
+ *                                        the data and variance arrays
+ *                                      - Incorporate the bad pixel mask into
+ *                                        optimal extraction algorithm
+ *                                      - Return bad-pixel spectrum
+ *              09/30/03   1.10  wvd    Negative values of YCENT are 
+ *					meaningless.  Use S/N of data to 
+ *					determine significance of YCENT.
+ *					Exclude airglow lines from S/N.
+ *              10/08/03   1.11  wvd    Change counts_out array to type long.
+ *					Add 0.5 to it before rounding.
+ *					Limit Y coordinates of probability
+ *					array before comparing with bkgd.
+ *              10/31/03   1.12  wvd    Read centroid quality flags from IDF
+ *					header.  Do not attempt to calculate
+ *					spectral centroid.
+ *              11/03/03   1.13  wvd    Modify calculation of variance estimate.
+ *					Modify scheme for smoothing HIST data.
+ *					Iterate only to 20% accuracy.
+ *              12/05/03   1.14  wvd    Check value of SPECBINY before
+ *					smoothing HIST data in the Y dimension.
+ *              03/16/04   1.15  wvd    In HIST mode, assume counts are
+ *					distributed across one X pixel.
+ *					Delete wave_out -- not used.
+ *					After 50 iterations, abandon optimal
+ *					extraction and use boxcar extraction
+ *					instead.
+ *					Don't test size of barray,
+ *					as it is now the same as parray.
+ *					Change pycent from int to float.
+ *              04/06/04   1.16  bjg    Include string.h
+ *                                      Remove unused variables
+ *              04/21/04   1.17  wvd	Set dispapix = fabs(dispapix).
+ *					Iterate to 5% accuracy.
+ *					In boxcar extraction, use parray to
+ *					set extraction limits.
+ *					For TTAG data, compute counts_out
+ *					directly from photon list.
+ *              04/26/04   1.18  wvd	Perform all calculations with
+ *					weights array, rather than ergcm2.
+ *					Return counts spectrum.
+ *					Convert from variance to sigma here,
+ *					rather than in cf_write_spectra.
+ *					Iterate to 10% accuracy.
+ *              05/17/04   1.19  wvd	If weights_out[j] = 0, set variance
+ *					= bkgd.  Iterate optimal extraction
+ *					to accuracy of 0.01 counts. In boxcar
+ *					extraction, reduce parray limit to
+ *					1E-4 to better match fluxes from 
+ *					optimal extraction for bright stars.
+ *              08/13/04   1.20  wvd	Use QUALITY array to set X limits 
+ *					of extraction region.  Insure that
+ *					sigma_out array is non-zero.
+ *              11/22/05   1.21  wvd	Scale variance estimate by bad-pixel
+ *					mask to better approximate observed
+ *					counts.
+ *              06/12/06   1.22  wvd	Call cf_verbose rather than
+ *					cf_if_warning.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include 
+#include 
+
+#include "calfuse.h"
+
+static char 	CF_PRGM_ID[] = "cf_optimal_extraction";
+static char 	CF_VER_NUM[] = "1.22";
+
+int
+cf_optimal_extraction(fitsfile *header, int optimal, int aperture, 
+	float *weight, float *y, unsigned char *channel,
+	float *lambda, long ngood, long *good_index,
+	float *barray, float *bpmask, 
+	int pny, float pycent, float *parray, long nout, float *wave_out,
+	float **flux_out, float **sigma_out, long **counts_out,
+	float **weights_out, float **bkgd_out, short **bpix_out)
+
+{
+    char	instmode[FLEN_VALUE], yquality_str[FLEN_KEYWORD], 
+		ycent_str[FLEN_KEYWORD], yquality[FLEN_VALUE];
+    int   	status=0;
+    int		nloop;			/* Iterations of optimal
+						extraction loop */
+    int		ycent_uncertain = FALSE;/* TRUE if centroid quality
+						less than HIGH */
+
+    long	i, 			/* index through photon list */
+		ii,			/* ii = good_index[i] */
+		j, 			/* X index through 2-D arrays */
+		jmin, jmax,		/* limits of output spectrum */
+		k; 			/* Y index through 2-D arrays */
+    
+		 
+    float	exptime,		/* exposure time */
+		tdead,			/* mean dead-time correction */
+		w0,			/* minimum value of output wave array */
+		wpc,			/* wavelength increment per output bin */
+		*flux_old,		/* flux values from previous iteration */
+		*flux_box,		/* flux values from boxcar extraction */
+		*var_out,		/* 1-D variance array */
+		*var_box,		/* variance values from boxcar extraction */
+
+		ycent;			/* Y centroid of target spectrum */
+
+    double      numerator, denominator, /* Used in optimal-extraction calculations */
+		var_num, weights_num,
+		bkgd_num,
+		*data,			/* 2-D data array */
+		*variance,		/* 2-D variance array */
+		*w;			/* weights array for variance calculation */
+
+    int		l, lmin, lmax,		/* These variables are	*/
+    		specbiny, specbiny2;	/* are used to smooth	*/
+    float 	psum, pval;		/* HIST data in the	*/
+    double	vval;			/* Y dimension.		*/
+
+    long	jj, jjj, m, m_min, n;	/* These variables are used to smooth */
+    double	edge[2], frac[2], x; 	/* HIST data in the X dimension.      */
+    double	dispapix;		/* Mean dispersion per pixel */
+    char	wave_file[FLEN_VALUE];  /* Name of WAVE_CAL file */
+    int		hdunum;			/* HDU number of WAVE_CAL file */
+    fitsfile	*wavefits;		/* Pointer to WAVE_CAL file */
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    cf_verbose(3, "Entering cf_optimal_extraction");
+
+    /* 
+     *  Check type of observation (HIST or TTAG) and binning factor.
+     */
+    FITS_movabs_hdu(header, 1, NULL, &status) ;
+    FITS_read_key(header, TSTRING, "INSTMODE", instmode, NULL, &status);
+    FITS_read_key(header, TINT, "SPECBINY", &specbiny, NULL, &status);
+    specbiny2 = specbiny/2 ;
+    if (specbiny2 < 1) specbiny2 = 1 ;
+    cf_verbose(3, "Aperture = %d, instrument mode = %s, binning in Y = %d",
+	aperture, instmode, specbiny) ;
+
+    /*
+     *  Read EXPTIME and TOT_DEAD from file header.
+     */
+    FITS_read_key(header, TFLOAT, "EXPTIME", &exptime, NULL, &status);
+    FITS_read_key(header, TFLOAT, "TOT_DEAD", &tdead, NULL, &status);
+    if (tdead < 1.0) tdead = 1.0;
+    cf_verbose (3, "EXPTIME = %.0f, TOT_DEAD=%g", exptime, tdead);
+
+    /*
+     *  Read wavelength parameters W0 and WPC from file header.
+     */
+    FITS_read_key(header, TFLOAT, "WPC", &wpc, NULL, &status);
+    FITS_read_key(header, TFLOAT, "W0", &w0, NULL, &status);
+    cf_verbose (3, "Wavelength info: w0=%g, dw=%g", w0, wpc) ;
+
+    /*
+     *  Read spectral centroid YCENT and YQUAL from file header.
+     */
+    sprintf(ycent_str, "YCENT%1d", aperture);
+    FITS_read_key(header, TFLOAT, ycent_str, &ycent, NULL, &status);
+    sprintf(yquality_str, "YQUAL%1d", aperture);
+    FITS_read_key(header, TSTRING, yquality_str, yquality, NULL, &status);
+    if (*yquality != 'H') ycent_uncertain = TRUE;
+    cf_verbose (3, "%s = %g, quality = %s", ycent_str, ycent, yquality);
+
+    /*
+     * If HIST data, read DISPAPIX from header of WAVE_CAL file.
+     */
+    if (!strncmp(instmode,"H",1)) {
+	hdunum = aperture + 1;
+	FITS_read_key(header, TSTRING, "WAVE_CAL", wave_file, NULL, &status);
+	FITS_open_file(&wavefits, cf_cal_file(wave_file), READONLY, &status);
+	FITS_movabs_hdu(wavefits, hdunum, NULL, &status);
+	FITS_read_key(wavefits, TDOUBLE, "DISPAPIX", &dispapix, NULL, &status);
+	dispapix = fabs(dispapix);
+	FITS_close_file(wavefits, &status);
+    }
+
+    /*
+     *  Allocate space for all arrays.
+     */
+     data = (double *) cf_calloc(pny*nout, sizeof(double));
+     variance = (double *) cf_calloc(pny*nout, sizeof(double));
+     w = (double *) cf_calloc(nout, sizeof(double));
+
+     flux_old = (float *) cf_calloc(nout, sizeof(float));
+     flux_box = (float *) cf_calloc(nout, sizeof(float));
+     var_box  = (float *) cf_calloc(nout, sizeof(float));
+
+     *flux_out = (float *) cf_calloc(nout, sizeof(float));
+     var_out = (float *) cf_calloc(nout, sizeof(float));
+     *counts_out = (long *) cf_calloc(nout, sizeof(long));
+     *weights_out = (float *) cf_calloc(nout, sizeof(float));
+     *bkgd_out = (float *) cf_calloc(nout, sizeof(float));
+     *bpix_out = (short *) cf_calloc(nout, sizeof(short)) ;
+
+    /* 
+     *  The quality array (bpix_out) is the product of the probability
+     *  array and the bad-pixel mask.  We use it to set the limits of
+     *  the extraction region.
+     */
+     cf_verbose(3, "Generating bad-pixel spectrum.") ;
+     for (j=0; j 0) {
+	    jmin = j;
+	    break;
+	}
+     }
+     for (j = nout-1; j >= 0; j--) {
+	if ((*bpix_out)[j] > 0) {
+	    jmax = j+1;
+	    break;
+	}
+     }
+
+    /*
+     *  Construct data and variance arrays from photon lists.
+     *  Arrays are pny pixels in Y (to match probability array) 
+     *  and nout pixels in X (to match output wavelength array).  
+     *  We must thus shift individual photons by PYCENT - YCENT
+     *  pixels in Y.
+     */
+
+     cf_verbose(3, "Filling the data array") ;
+     for (i = 0; i < ngood; i++) {
+	ii = good_index[i];
+
+	if (channel[ii] != aperture) continue;
+
+	j = (long) ((lambda[ii] - w0)/wpc + 0.5);
+	if (j < jmin || j >= jmax) continue;
+
+	k = (long) (y[ii] - ycent + pycent + 0.5);
+	if (k < 0 || k >= pny) continue;
+
+        if (!strncmp(instmode,"T",1)) {
+	   /* TTAG data */
+	    (*counts_out)[j]++;
+	    data[k*nout + j] += weight[ii];
+	    variance[k*nout + j] += weight[ii] * weight[ii];
+	}
+	else { 
+	   /* If HIST data are already smoothed in Y, it's easy: */
+	   if (specbiny == 1) {
+	       data[k*nout + j] += weight[ii];
+	       variance[k*nout + j] += weight[ii] * tdead;
+	   }
+	   /* If HIST data are binned, smooth in both X and Y dimensions. */
+	    else {
+		m_min = 0;
+		edge[0] = ((double) j - 0.5) * wpc + w0;
+		edge[1] = ((double) j + 0.5) * wpc + w0;
+		if ((x = (lambda[ii] - edge[0]) / dispapix) < 0.5) {
+		   frac[0] = 0.5 - x;
+		   frac[1] = 0.5 + x;
+		   jj = j - 1;
+		   n = 2;
+		   if (jj == -1) m_min = 1;
+		}
+		else if ((x = (edge[1] - lambda[ii]) / dispapix) < 0.5) {
+		   frac[0] = 0.5 + x;
+		   frac[1] = 0.5 - x;
+		   jj = j;
+		   n = 2;
+		   if (jj + 1 == nout) n = 1;
+		}
+		else {
+		   frac[0] = 1.0;
+		   jj = j;
+		   n = 1;
+		}
+
+		psum = 0.;
+		vval = weight[ii] * tdead;
+		lmin = k - specbiny2;
+		lmax = lmin + specbiny;
+		if (lmin < 0) lmin = 0;
+		if (lmax > pny) lmax = pny;
+		pval = 1. / (lmax - lmin);
+		for (l = lmin; l < lmax; l++)
+		    psum += parray[l*nout + j];
+		for (l = lmin; l < lmax; l++) {
+		    if (psum > 0) pval = parray[l*nout + j] / psum;
+		    for (m = m_min; m < n; m++) {
+			jjj = jj + m;
+			data[l*nout + jjj] += pval * frac[m] * weight[ii];
+			variance[l*nout + jjj] += pval * frac[m] * vval;
+		    }
+		}
+	    }
+	}
+     }
+
+    /*
+     *  Boxcar extraction.  Use parray to set extraction limits in Y.
+     */
+     cf_verbose(3, "Doing the boxcar extraction.") ;
+     nloop = 0;
+     for (j = jmin; j < jmax; j++) {
+	for (k = 0; k < pny; k++) {
+	   if (parray[k*nout + j] > 1E-4) {
+	         (*bkgd_out)[j] += barray[k*nout + j];
+	             var_out[j] += variance[k*nout + j];
+	      (*weights_out)[j] += data[k*nout + j];
+	   }
+	}
+	(*flux_out)[j] = (*weights_out)[j] - (*bkgd_out)[j];
+     }
+
+    /*
+     *  Has the user requested optimal extraction?
+     */
+     cf_verbose(3,"Optimal keyword = %d ", optimal) ;
+     if (optimal) {
+
+       /*
+	*  If Y centroid is uncertain, abandon optimal extraction.
+	*/
+	if (ycent_uncertain)
+	   cf_verbose(1, "%s uncertain.  Cannot perform optimal extraction.",
+		ycent_str);
+
+	else {		/* Proceed with optimal extraction */
+
+ 	    cf_verbose(3, "Attempting optimal extraction");
+
+	/*
+	 *  Save boxcar versions of flux and variance arrays.
+	 */
+	for (j = jmin; j < jmax; j++) {
+	    flux_box[j] = (*flux_out)[j];
+	    var_box[j] = var_out[j];
+	}
+
+	/*
+	 *  Need array w[j] to scale the variance estimate.
+	 *  w[j] is mean scale factor from counts to weights at each wavelength.
+	 *  Must calculate for TTAG data; can use TOT_DEAD for HIST data.
+	 */
+	if (!strncmp(instmode,"T",1)) for (j = jmin; j < jmax; j++) {
+	    if ((*counts_out)[j] > 0) {
+		for (k = 0; k < pny; k++) w[j] += data[k*nout + j];
+		w[j] /= (*counts_out)[j];
+	    }
+	    else w[j] = tdead;
+	}
+	else for (j = jmin; j < jmax; j++) w[j] = tdead;
+
+	/*
+	 *  Begin big loop.
+	 */
+	do {
+	    /*
+	     *  Revise variance estimate
+	     *  We can omit w[j] here, as it appears in both the numerator
+	     *  and denominator of the flux estimate (below).
+	     *  05/17/02 wvd:  If weights_out[j] = 0, set variance = bkgd.
+	     *  11/22/05 wvd:  Scale variance estimate by bpmask.
+	     */
+	     for (j = jmin; j < jmax; j++) {
+		if ((*weights_out)[j] > 0)
+		   for (k = 0; k < pny; k++)
+			variance[k*nout + j] = bpmask[k*nout + j] *
+			fabs(parray[k*nout + j] * (*flux_out)[j] + barray[k*nout + j]);
+		else
+		   for (k = 0; k < pny; k++)
+			variance[k*nout + j] = bpmask[k*nout + j] * barray[k*nout + j];
+	     }
+
+	    /*
+	     *  Optimal extraction
+	     */
+	     nloop++;
+	     for (j = jmin; j < jmax; j++) {
+		numerator = denominator = 0.;
+		for (k = 0; k < pny; k++) if (variance[k*nout+j] > 0) {
+		    numerator += bpmask[k*nout+j] * parray[k*nout + j] * 
+                      (data[k*nout + j] - barray[k*nout + j]) / variance[k*nout + j];
+		    denominator += bpmask[k*nout+j] * parray[k*nout + j] * 
+                       parray[k*nout + j] / variance[k*nout + j];
+		}
+		flux_old[j] = (*flux_out)[j];
+		if (denominator > 0) (*flux_out)[j] = numerator / denominator;
+                else (*flux_out)[j] = flux_old[j] = 0. ;
+	     }
+
+	    /*
+	     *  Repeat loop if any element of flux_out has changed by > 0.01 counts.
+	     */
+	     for (j = jmin; j < jmax; j++) {
+		if (fabs((*flux_out)[j]-flux_old[j]) > 0.01) {
+		    cf_verbose(3, "%d\t%d\t%g", nloop, j, (*flux_out)[j]);
+		    break;
+		}
+	     }
+
+	} while (j < jmax && nloop < 50);	/* End of do loop */
+
+	/*
+	 *  If nloop < 50, calculate var_out, weights_out, and bkgd_out.
+	 *  Note that we must scale var_out by w[j] here.
+	 */
+	if (nloop < 50) {
+
+	    memset (*bkgd_out, 0, nout*sizeof(float));
+	    memset (*weights_out, 0, nout*sizeof(float));
+	    memset (var_out, 0, nout*sizeof(float));
+
+	    for (j = jmin; j < jmax; j++) {
+		bkgd_num = weights_num = var_num = denominator = 0.;
+		for (k = 0; k < pny; k++) if (variance[k*nout+j] > 0) {
+		   bkgd_num += bpmask[k*nout+j] * parray[k*nout + j] *
+                      barray[k*nout + j] / variance[k*nout + j];
+		   weights_num += bpmask[k*nout+j] * parray[k*nout + j] *
+                      data[k*nout + j] / variance[k*nout + j];
+		   var_num += bpmask[k*nout+j] * parray[k*nout + j];
+		   denominator += bpmask[k*nout+j] * parray[k*nout + j] * 
+                        parray[k*nout + j] / variance[k*nout + j];
+		}
+		if (denominator > 0) {
+		    (*bkgd_out)[j] = bkgd_num / denominator;
+		    (*weights_out)[j] = weights_num / denominator;
+		    var_out[j] = var_num / denominator * w[j];
+		}
+		else {
+		    (*bkgd_out)[j] = (*weights_out)[j] = var_out[j] = 0.;
+		}
+	    }
+	}
+	/*
+	 *  If nloop = 50, use boxcar extraction instead.
+	 */
+	else {
+	    cf_verbose(1, "Optimal extraction failed to converge for aperture %d."
+		"  Using boxcar extraction.", aperture);
+	    nloop = 0;
+	    for (j = jmin; j < jmax; j++) {
+		(*flux_out)[j] = flux_box[j];
+		var_out[j] = var_box[j];
+            }
+	}
+
+	}			/* End of if/else test of YCENT */
+     }				/* End of optimal extraction block */
+
+    /*
+     *  Write number of iterations to file header.
+     */
+     FITS_update_key(header, TINT, "OPT_EXTR", &nloop, NULL, &status);
+     cf_verbose(2, "Number of iterations in optimal extraction = %d", nloop) ;
+
+    /* Convert error array from variance to sigma. */
+    for (j = jmin; j < jmax; j ++) {
+	if (var_out[j] > 0.) var_out[j] = sqrt(var_out[j]);
+	else if ((*bkgd_out)[j] > 0.) var_out[j] = sqrt((*bkgd_out)[j]);
+	else var_out[j] = 0.;
+    }
+    *sigma_out = var_out;
+
+    /*
+     *  For HIST data, counts array = weights "uncorrected" for dead time.
+     */
+     if (!strncmp(instmode,"H",1)) for (j = jmin; j < jmax; j++)
+	(*counts_out)[j] = (long) ((*weights_out)[j] / tdead + 0.5);
+
+    /*
+     *  Clean up
+     */
+    free(data);
+    free(flux_old);
+    free(flux_box);
+    free(var_box);
+    free(variance);
+    free(w);
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return status;
+}
diff --git a/src/libcf/cf_pha_x_distort.c b/src/libcf/cf_pha_x_distort.c
new file mode 100644
index 0000000..5f58824
--- /dev/null
+++ b/src/libcf/cf_pha_x_distort.c
@@ -0,0 +1,107 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_pha_x_distort(fitsfile *header, long nevents, 
+ *			unsigned char *pha, float *xfarf,
+ *			unsigned char *locflags)
+ *
+ * Description: Corrects the X position of low-pulse-height events.
+ *
+ *		Note: To conform with the CalFUSE standard, the PHAX
+ *		correction is now ADDED to the input photon X coordinate.
+ *		This change from previous versions of the code requires
+ *		a new set of calibration files.  The program now checks the
+ *		version number of the PHAX_CAL file and returns an error if
+ *		it is less than 4.
+ *
+ * Arguments:   fitsfile  *header       Pointer to FITS file containing the
+ *                                      header of the intermediate data file
+ *              long      nevents       The number of events
+ *              unsigned  char *pha     An array of PHA values
+ *              float     *xfarf        An array of event X positions
+ *              unsigned char *locflags Location flags of each event
+ *
+ * Calls:
+ *
+ * Return:      0  on success
+ *
+ * History:     11/11/02   1.1    peb   Begin work
+ *              11/12/02   1.3    peb   Added check to move only events in
+ *                                      active region.
+ *		03/11/03   1.4    wvd   Changed pha and locflags to unsigned
+ *					char
+ *              05/20/03   1.5    rdr   Added call to cf_proc_check
+ *		07/29/03   1.6    wvd	If cf_proc_check fails, return errflg.
+ *		10/14/03   1.7    wvd	Add, rather than subtract, PHAX
+ *					correction.  Check cal file version.
+ *		10/17/03   1.8    wvd	Don't crash if CALFVERS keyword 
+ *					is missing.
+ *              04/07/07   1.9   wvd	Clean up compiler warnings.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_pha_x_distort(fitsfile *header, long nevents, unsigned char *pha,
+		float *xfarf, unsigned char *locflags)
+{
+    char CF_PRGM_ID[] = "cf_pha_x_distort";
+    char CF_VER_NUM[] = "1.9";
+
+    char  phaxfile[FLEN_VALUE]={'\0'};
+    int   anynull=0, calfvers, errflg=0, status=0, xlen, ylen;
+    long  j;
+    float *phax, flt=0.;
+    fitsfile *phaxfits=NULL;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    /*
+     *  Read PHA correction (Walk) file
+     */
+    FITS_read_key(header, TSTRING, "PHAX_CAL", phaxfile, NULL, &status);
+    FITS_open_file(&phaxfits, cf_cal_file(phaxfile), READONLY, &status);
+    FITS_read_key(phaxfits, TINT, "NAXIS1", &xlen, NULL, &status);
+    FITS_read_key(phaxfits, TINT, "NAXIS2", &ylen, NULL, &status);
+
+    /* If CALFVERS keyword missing or less than 4, abort pipeline. */
+    fits_read_key(phaxfits, TINT, "CALFVERS", &calfvers, NULL, &status);
+    if (status || calfvers < 4) {
+	status = 0;
+	FITS_close_file(phaxfits, &status);
+	cf_if_error("Old versions of PHAX_CAL have wrong sign.  Aborting.");
+    }
+
+    /* Otherwise, read walk correction as an image. */
+    phax = (float *) cf_malloc(sizeof(float)*xlen*ylen);
+    FITS_read_img(phaxfits, TFLOAT, 1L, xlen*ylen, &flt, phax, &anynull, &status);
+    FITS_close_file(phaxfits, &status);
+
+    if (xlen != NXMAX)
+	cf_if_warning("NAXIS1 of %s != 16384", phaxfile);
+    /*
+     *  Apply PHA X correction to each event.
+     */
+    for(j=0; j
+#include 
+#include "calfuse.h"
+
+
+int cf_proc_check(fitsfile *fptr, char *prog_id) 
+{
+    char  comment[FLEN_CARD], instmode[FLEN_CARD];
+    char  key_value[FLEN_CARD];
+    int   j=0, errflg=0, status=0;
+
+    /*  The calfuse.h file contains the definitions of keyword_tab,
+     *  NUM_PROC_STEPS, and CALIBRATION_STEP_KEYS.
+     */
+    struct keyword_tab keytab[NUM_PROC_STEPS]=CALIBRATION_STEP_KEYS;
+
+    FITS_read_key(fptr, TSTRING, "INSTMODE", instmode, comment, &status);
+   
+    switch (instmode[0]) {
+    case 'H':
+	/*  Histogram mode */
+	/*  First, determine if this procedure is even supposed to be
+	 *  run on this data. */
+
+	while ((strncmp(keytab[j].hist_proc,prog_id,
+			strlen(keytab[j].hist_proc)) != 0) &&
+	       (j < NUM_PROC_STEPS)) j++;
+	if (j < NUM_PROC_STEPS) 
+	    cf_verbose(3, "cf_proc_check: prog_id=%s, key=%s, j=%d, value=%s",
+               prog_id, keytab[j].hist_proc, j, keytab[j].hist_value) ;
+	if ((j >= NUM_PROC_STEPS) || 
+	    (strncmp(keytab[j].hist_value, "PERFORM", 7))) {
+	    cf_verbose(1, "Not appropriate for HIST data.  Exiting.");
+	    errflg=1;
+	}
+
+	break;
+
+    case 'T':
+	/*  Time-tag mode */
+	/*  First, determine if this procedure is even supposed to be
+	 *  run on this data. */
+	while ((strncmp(keytab[j].ttag_proc,prog_id,
+			strlen(keytab[j].ttag_proc)) != 0) &&
+	       (j < NUM_PROC_STEPS)) j++;
+	if (j < NUM_PROC_STEPS) 
+	    cf_verbose(3, "cf_proc_check: prog_id=%s, key=%s, j=%d, value=%s",
+               prog_id, keytab[j].ttag_proc, j, keytab[j].ttag_value) ;
+	if ((j >= NUM_PROC_STEPS) || 
+	    (strncmp(keytab[j].ttag_value, "PERFORM", 7))) {
+	    cf_verbose(1, "Not appropriate for TTAG data.  Exiting.");
+	    errflg=1;
+	}
+
+	break;
+
+    default:
+	errflg = 1;
+    }
+
+    if (!errflg) {
+	/* Check to see whether user wants to skip this step. */
+	FITS_read_key(fptr, TSTRING, keytab[j].name, key_value, comment,
+		&status);
+	if (!strncmp(key_value, "OMIT", 4) || !strncmp(key_value, "SKIPPED", 7)) {
+	    cf_verbose(1, "Header keyword %s = %s.  Exiting.",
+		keytab[j].name, key_value);
+	    FITS_update_key(fptr, TSTRING, keytab[j].name, "SKIPPED", NULL,
+		&status);
+	    errflg=1;
+	}
+
+	/* Now check to see if the step has already been completed. */
+	if (!strncmp(key_value, "COMPLETE", 7)) {
+	    cf_if_warning("Exiting.\n\t%s has already been run on this file.", 
+		prog_id);
+	    errflg=1;
+	}
+    }
+    return errflg;
+}
diff --git a/src/libcf/cf_proc_update.c b/src/libcf/cf_proc_update.c
new file mode 100644
index 0000000..2e15d29
--- /dev/null
+++ b/src/libcf/cf_proc_update.c
@@ -0,0 +1,97 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_proc_update(fitsfile *fptr, char *prgm_id, char *key_value)
+ *
+ * Description: cf_proc_update will update the FITS header keyword 
+ *              which corresponds to the given prgm_id in the file 
+ *              fptr to the value given in key_value.
+ *
+ * Arguments:   fitsfile    *fptr	Pointer to input file
+ *              char        *prgm_id 	Procedure name
+ *              char        *key_value 	Updated procedure status
+ *
+ * History:     05/21/98        emm     Begin work.
+ *              05/21/98        emm     finished
+ *              06/17/98        emm     Modified so that the keyword_tab
+ *                                      structure is read from ed_calfuse.h
+ *                                      file, which simplifies revisions in
+ *                                      the order of processing.
+ *              09/08/99        peb     Added lines to update NEXTEND keyword
+ *              01/31/00        emm     Added update to DATE keyword.
+ *		04/01/03	wvd	Changed cf_errmsg to cf_if_warning,
+ *					fits_modify_key_str to FITS_update_key,
+ *					fits_read_key_str to FITS_read_key
+ *              12/18/03        bjg     Change calfusettag.h to calfuse.h
+ *              04/07/07  1.5   wvd     Delete CF_PRGM_ID, as it is not used.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+int cf_proc_update(fitsfile *fptr, char *prgm_id, char *key_value) 
+{
+
+    char  comment[FLEN_CARD], instmode[FLEN_CARD];
+    int i, status=0, hdutype=0, nextend;
+    /*
+     *  The calfuse.h file contains the definitions of keyword_tab
+     *  NUM_PROC_STEPS, and CALIBRATION_STEP_KEYS.
+     */
+    struct keyword_tab keytab[NUM_PROC_STEPS]=CALIBRATION_STEP_KEYS;
+
+    FITS_movabs_hdu(fptr, 1, &hdutype, &status);
+    FITS_get_num_hdus(fptr, &nextend, &status);
+    nextend -= 1;
+    FITS_update_key(fptr, TINT, "NEXTEND", &nextend, NULL, &status);
+    
+    FITS_read_key(fptr, TSTRING, "INSTMODE", instmode, comment, &status);
+
+    FITS_write_date(fptr, &status);
+
+    switch (instmode[0]) {
+    case 'H':
+	/*  Find the keyword associated with prgm_id by looping 
+	 *  through keytab[i].hist_proc */
+	i=0;
+	while ((strncmp(keytab[i].hist_proc,prgm_id,
+			strlen(keytab[i].hist_proc)) != 0) &&
+	       (i < NUM_PROC_STEPS)) i++;
+	if (i < NUM_PROC_STEPS) {
+	    /* We found a match to prgm_id, so change the associated
+	     * keyword in the header. */
+	    FITS_update_key(fptr, TSTRING,keytab[i].name,key_value, NULL, &status);
+	} else {
+	    /* The given prgm_id did not match any of the known
+	     * keytab[i].hist_proc, so return 1. */
+	    cf_if_warning("No PROCESSING STEP keyword is defined for %s", prgm_id);
+	    return 1;
+	}
+	break;
+    case 'T':
+	/*  Timetag mode */
+	/*  Find the keyword associated with prgm_id by looping 
+	 *  through keytab[i].ttag_proc */
+	i=0;
+	while ((strncmp(keytab[i].ttag_proc,prgm_id,
+			strlen(keytab[i].ttag_proc)) != 0) &&
+	       (i < NUM_PROC_STEPS)) i++;
+	if (i < NUM_PROC_STEPS) {
+	    /* We found a match to prgm_id, so change the associated
+	     * keyword in the header. */
+	    FITS_update_key(fptr, TSTRING,keytab[i].name,key_value, NULL, &status);
+	} else {
+	    /* The given prgm_id did not match any of the known
+	     * keytab[i].ttag_proc, so return 1. */
+	    cf_if_warning("No PROCESSING STEP keyword is defined for %s", prgm_id);
+	    return 1;
+	}
+	break;
+    }
+    return status;
+}
diff --git a/src/libcf/cf_read_fpa_pos.c b/src/libcf/cf_read_fpa_pos.c
new file mode 100644
index 0000000..87e8099
--- /dev/null
+++ b/src/libcf/cf_read_fpa_pos.c
@@ -0,0 +1,82 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_read_fpa_pos (fitsfile *infits, float *fpaxsic, float *fpaxlif)
+ *
+ * Description: Returns SiC and LiF FPA positions in microns.  Can read both
+ *              old and new FPA position keywords.
+ *
+ * Arguments:   fitsfile    *infile       Input data file name
+ *              float       *fpaxsic      FPA SiC position (returned)
+ *              float       *fpaxlif      FPA LiF position (returned)
+ *
+ * Returns:     int	     status	  CFITSIO status value
+ *
+ * History:     08/21/01   v1.1   wvd     Subroutine taken from cf_wfits.c
+ * 		01/14/03   v1.3   wvd     Change name to cf_read_fpa_pos.
+ *              12/18/03   v1.4   bjg     Change calfusettag.h to calfuse.h
+ *
+ ****************************************************************************/
+
+#include 
+#include "calfuse.h"
+
+/* for all FPA's an increase in "data number" moves the FPA towards +Xipcs */
+#define FPALIF1DN2X0 -69.949	/* DN to microns conversion, zero-point */
+#define FPALIF1DN2X1 .14144	/* DN to microns conversion, linear term  */
+#define FPALIF2DN2X0 -73.189	/* DN to microns conversion, zero-point */
+#define FPALIF2DN2X1 .14487	/* DN to microns conversion, linear term  */
+#define FPASIC1DN2X0 -132.507	/* DN to microns conversion, zero-point */
+#define FPASIC1DN2X1 .14156	/* DN to microns conversion, linear term  */
+#define FPASIC2DN2X0 -89.116	/* DN to microns conversion, zero-point */
+#define FPASIC2DN2X1 .14206	/* DN to microns conversion, linear term  */
+
+int cf_read_fpa_pos (fitsfile *infits, float *fpaxsic, float *fpaxlif)
+{
+    char  detector[FLEN_VALUE]; /* detector keyword from FITS header */
+    int	status=0;
+    float tmpxsic, tmpxlif;
+
+    FITS_read_key(infits, TSTRING, "DETECTOR", detector, NULL, &status);
+
+    /* Get FPA positions */
+    /* Use ffgky instead of FITS_read_key so we can read either the old
+     * or new FPA position keywords */
+    ffgky (infits, TFLOAT, "FPASXPOS", fpaxsic, NULL, &status);
+    if (status != 0) {
+	/* New keywords are not present; must be the old ones.
+	 * Determine which detector provided current spectrum
+	 * and convert raw FPA position to microns.
+	 */
+	status = 0;
+	if (strncmp(detector,"1", 1)==0) {
+	    FITS_read_key (infits, TFLOAT, "FP1SXPOS", &tmpxsic, NULL, 
+			   &status);
+	    FITS_read_key (infits, TFLOAT, "FP1LXPOS", &tmpxlif, NULL, 
+			   &status);
+	    *fpaxsic = FPASIC1DN2X0 + FPASIC1DN2X1 * tmpxsic;
+	    *fpaxlif = FPALIF1DN2X0 + FPALIF1DN2X1 * tmpxlif;
+	}
+	else if (strncmp(detector,"2", 1)==0) {
+	    FITS_read_key (infits, TFLOAT, "FP2SXPOS", &tmpxsic, NULL, 
+			   &status);
+	    FITS_read_key (infits, TFLOAT, "FP2LXPOS", &tmpxlif, NULL, 
+			   &status);
+	    *fpaxsic = FPASIC2DN2X0 + FPASIC2DN2X1 * tmpxsic;
+	    *fpaxlif = FPALIF2DN2X0 + FPALIF2DN2X1 * tmpxlif;
+	}
+	else {
+	    cf_if_error("Could not parse DETECTOR keyword, cannot "
+			"convert raw FPA positions.");
+	}
+    }
+    else {
+	/* New SiC FPA keyword present. Assume new LiF FPA keyword
+	 * is also present */
+	FITS_read_key(infits, TFLOAT, "FPALXPOS", fpaxlif, NULL, &status);
+    }
+    return status;
+}
diff --git a/src/libcf/cf_rebin_background.c b/src/libcf/cf_rebin_background.c
new file mode 100644
index 0000000..23e15f3
--- /dev/null
+++ b/src/libcf/cf_rebin_background.c
@@ -0,0 +1,211 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences 
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:   cf_rebin_background(infits, aperture, nout, wave_out,
+ *		  binx, biny, bnx, bny, bimage, barray) 
+ *
+ * Arguments:   *fitsfile  infits     :  Input IDF file
+ *              int       aperture    :  Aperture ID for the analysis
+ *              long      nout        :  Length of wave_out array
+ *              float     wave_out    :  Wavelength vector
+ *              int       binx, biny  :  Binning factors of the background array
+ *              int       bnx, bny    :  X and Y dimension of the background array
+ *              float     bimage      :  2-D background image (original) 
+ *              float     barray      :  (OUTPUT) Binned background image.
+ *
+ * Description:
+ *
+ *	The input background image is binned in X.
+ *	We need an image binned in wavelength.   
+ *	To get it, we use the WAVE_CAL file (shifted to account
+ *	for the FPA position) to derive a wavelength array for the
+ *	background image.  For each row in the background image (bimage),
+ *	we build a second image (barray) scaled to the size of the output 
+ *	wavelength bins.
+ *
+ *  History     02/21/03   v1.1   rdr   Started work
+ *              04/01/03   v1.2   rdr   Made aeff arrays double precision in 
+ *                                      the cf_read_fluxcal routine to be 
+ *                                      compatible with data in calfiles
+ *		05/07/03   v1.4   wvd	Don't divide by EXPTIME.
+ *					Read WPC from file header.
+ *					Use cf_verbose.
+ *              06/02/03   v1.5   rdr   Correct bug in filling output arrays
+ *              06/11/03   v1.7   wvd	Pass datatype to cf_read_col.
+ *					Change calfusettag.h to calfuse.h
+ *              08/22/03   v1.8   bjg	Move get_extraction_limits to external
+ *					subroutine.  Free orphan arrays.
+ *					Change coltype from char to int in
+ *					cf_read_col.
+ *              08/28/03   v1.9   wvd	Debug
+ *              09/29/03   v1.10  wvd	Shift background model to match
+ *					position of FPA.
+ *              03/16/04   v1.11  wvd	Correct error in calculation of dw_ave
+ *					and dweff.
+ *              04/05/04   v1.12  wvd	Modify i/o.
+ *              04/26/04   v1.13  wvd	Do not flux-calibrate 2-D background
+ *					model.  Do not extract 1-D background
+ *					spectrum.
+ *              05/13/04   v1.14  wvd	Correct value of CF_PRGM_ID.
+ *              07/21/04   v1.16  wvd	Delete unused variables.
+ *
+ *****************************************************************************/
+
+#include 
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+
+int cf_rebin_background(fitsfile *infits, int aperture, long nout,
+	float *wave_out, int binx, int biny, int bnx, int bny,
+	float *bimage, float **barray) {
+
+    char CF_PRGM_ID[] = "cf_rebin_background";
+    char CF_VER_NUM[] = "1.16";
+
+    fitsfile  *wavefits ;
+    int       status=0;
+    int       dndx, dpix, nyout;
+    long      npix, npix_out, nwave, ndx, ndx1, ndx2;
+    long      i, j, k;
+    float     dwb, dw_out, mf, ctot, dw_ave;
+    float     dpix_fpa;
+    float     *wave, *wavet, *outarr;
+    char      wavefile[FLEN_VALUE], det[FLEN_VALUE] ;
+
+    /* Initialize error checking */
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution.");
+
+    /* Read wavelength spacing of the output array */
+    FITS_read_key(infits, TFLOAT, "WPC", &dw_out, NULL, &status) ;
+    cf_verbose(3, "Bin size of the output wavelength array = %5.3f A",
+	dw_out) ;
+    FITS_read_key(infits, TSTRING, "DETECTOR", det, NULL, &status) ;
+    cf_verbose(3,"Detector = %s, aperture = %d", det, aperture) ;
+
+    /* Read wavelength-calibration file */
+    FITS_read_key(infits, TSTRING, "WAVE_CAL", wavefile, NULL, &status) ;
+    cf_verbose(3, "Wavelength calibration file = %s",wavefile) ;
+    FITS_open_file(&wavefits, cf_cal_file(wavefile), READONLY, &status) ;
+    cf_verbose(3, "HDU to read = %d",aperture+1) ;
+    FITS_movabs_hdu(wavefits, aperture +1, NULL, &status) ;
+    nwave=cf_read_col(wavefits,TFLOAT,"WAVELENGTH",(void **) &wave);
+    cf_verbose(3, "Points read = %d, min & max: %4.2f, %4.2f",
+	nwave, wave[0], wave[nwave-1]);
+
+    /* Read pixel shifts due to FPA positions */
+    if (aperture < 5) 
+	FITS_read_key(infits, TFLOAT, "FPADXLIF", &dpix_fpa, NULL, &status);
+    else 
+	FITS_read_key(infits, TFLOAT, "FPADXSIC", &dpix_fpa, NULL, &status);
+    dpix = cf_nint(dpix_fpa);
+
+    /* To correct for the position of the FPA, each photon has been shifted
+	in X by dpix pixels.  Rather than shifting the background to match,
+	we modify the wavelength array that maps the background onto the
+	output spectrum. */
+    cf_verbose(2, "Shifting aperture %d background by %d X pixels "
+	"to match the FPA shift.", aperture, cf_nint(dpix_fpa));
+
+    /*  Generate a new wavelength array binned to match the background array */
+    cf_verbose(3, "X and Y binning factors for background array = %d, %d",
+	binx, biny) ;
+
+        wavet = (float *) cf_calloc(bnx, sizeof(float));
+	for (i = 0; i < bnx; i++) {
+          ndx=i * binx + (binx/2) + dpix;
+	  if (ndx > nwave-1) ndx = nwave-1 ;
+	  if (ndx < 0) ndx = 0;
+	  wavet[i] = wave[ndx];
+	 }
+
+      /* Error check: average wavelength spacing */
+      dw_ave = fabs(wavet[bnx-1]-wavet[0])/(bnx-1);
+      cf_verbose(3,"Average wavelength spacing of background array = %f", dw_ave) ;
+
+      if ((aperture < 4 && strncmp(det,"1",1) == 0) ||
+	  (aperture > 4 && strncmp(det,"2",1) == 0)) {
+           cf_verbose(3, "Maximum tabulated wavelength = %.2f", wavet[bnx-1]);
+           cf_verbose(3, "Maximum of wave_out = %.2f", wave_out[nout-1] );
+      }
+      else {
+           cf_verbose(3, "Maximum tabulated wavelength = %.2f", wave_out[nout-1] );
+           cf_verbose(3, "Maximum of wave_out = %.2f", wave_out[nout-1] );
+      }
+
+  /* Define some sizes and allocate space for the output arrays */
+  nyout = bny * biny ;		/* Y dimension of output 2-D bkgd array */
+  npix_out = nout * nyout ;	/* Size of output 2-D bkgd array */
+  npix = bnx * bny ;		/* Size of input 2-D bkgd array */
+  outarr = (float *) cf_calloc(npix_out, sizeof(float) ); /* 2-D output array */
+
+    /* Error check: total counts in the background image */
+    ctot=0.;
+    for (i=0; i 4 && strncmp(det,"1",1) == 0 ) ) {
+    ndx = bnx - 1 ;
+    dndx = -1 ;
+  }
+
+  cf_verbose(3,"Filling output: starting ndx=%d, increment =%d ", ndx, dndx) ;
+
+  dwb = dw_ave;
+  for (i=0; i= 0) ndx += dndx ;
+
+	/* compute the relative
+           wavelength coverage of the background and output arrays */
+        if (ndx < bnx-2) dwb = fabs((double) (wavet[ndx+1]-wavet[ndx])) ;
+	   mf = dw_out/dwb ;
+	/* correct the scale factor for binning in y */
+           mf /= biny ;
+	/* populate the column of the array */
+	for (j=0; j< nyout ; j++) {
+          k = j/biny ;
+          ndx1 = j*nout + i ;
+	  if (ndx1 > npix_out-1) ndx1 = npix_out-1 ;
+	  ndx2 = k*bnx + ndx ;
+	    if (ndx2 > npix-1) ndx2=npix-1 ;
+	  outarr[ndx1] = mf * bimage[ndx2] ; 
+	}
+  }
+
+
+    /* Error checking: total counts in the background image */
+    ctot=0.;
+    for (i=0; i
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+int cf_rebin_probability_array(fitsfile *infits, int extended, int aperture,
+	long nout, float *wave_out, int *pny, float *pycent, float **parray)
+{
+
+  char CF_PRGM_ID[] = "cf_rebin_probability_array";
+  char CF_VER_NUM[] = "1.10";
+
+  fitsfile *wgtsfits, *wavefits ;
+  int status=0, fpixel=1, nullval=0, anynull=0 ;
+  int hdu, nxwt, nywt, dndx, wtbin;
+  long npix, npix_out, nwave, ndx, ndx1, ndx2, i, j ; 
+  float *wave, *wavet, *wgts_arr, *ynorm, *outarr ;
+  float total, wgt_cent ;
+  char wgtsfile[FLEN_VALUE]={'\0'}, wavefile[FLEN_VALUE]={'\0'} ;
+  char buffer[FLEN_CARD], det[FLEN_CARD] ;
+
+    /* Initialize error checking */
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution.");
+
+  /* Read calibration file names from the IDF file header. */
+  FITS_movabs_hdu(infits, 1, NULL, &status) ;
+  FITS_read_key(infits, TSTRING, "WGTS_CAL", wgtsfile, NULL, &status) ;
+    cf_verbose(3,"weights cal file = %s ",wgtsfile) ;
+  FITS_read_key(infits, TSTRING, "WAVE_CAL", wavefile, NULL, &status) ;
+    cf_verbose(3, "wavelength cal file = %s ",wavefile) ;
+  FITS_read_key(infits, TSTRING, "DETECTOR", det, NULL, &status) ;
+    cf_verbose(3,"Detector = %s ",det) ;
+
+  /* Open the weights file and read the array */
+  FITS_open_file(&wgtsfits, cf_cal_file(wgtsfile), READONLY, &status) ;
+  hdu = extended * 8 + aperture + 1;
+  cf_verbose(3, "WGTS_CAL: extended = %d, aperture = %d, hdu = %d",
+	extended, aperture, hdu);
+  FITS_movabs_hdu(wgtsfits, hdu, NULL, &status) ;
+  FITS_read_key(wgtsfits, TINT, "NAXIS1", &nxwt, buffer, &status) ;
+  FITS_read_key(wgtsfits, TINT, "NAXIS2", &nywt, buffer, &status) ;
+  FITS_read_key(wgtsfits, TFLOAT, "WGT_CENT", &wgt_cent, buffer, &status) ;
+  npix=nxwt * nywt ;
+  cf_verbose(3, "prob array: nx=%d, ny=%d, wgt_cent=%f ",nxwt, nywt, wgt_cent);
+  wgts_arr = (float *) calloc(npix, sizeof(float)) ;
+  FITS_read_img(wgtsfits, TFLOAT, fpixel, npix, &nullval, wgts_arr, 
+		 &anynull, &status) ;
+  FITS_close_file(wgtsfits, &status) ;
+
+  /* Read the wavelength array */
+  FITS_open_file(&wavefits, cf_cal_file(wavefile), READONLY, &status) ;
+  FITS_movabs_hdu(wavefits, aperture +1, NULL, &status) ;
+  nwave=cf_read_col(wavefits,TFLOAT,"WAVELENGTH", (void **) &wave);
+  FITS_close_file(wavefits, &status) ;
+
+  /* Determine the binning factor for the weights and generate a new
+     wavelength array that corresponds to the binning factor used. */
+	wtbin = NXMAX / nxwt ;
+	cf_verbose(3, "Binning factor for weights array = %d ", wtbin) ;
+	wavet = (float *) cf_calloc(nxwt, sizeof(float) ) ;
+	for (i=0; i nwave-1) ndx = nwave-1 ;
+	    if (ndx < 0) ndx = 0 ;
+	    wavet[i] = wave[ndx] ;
+	}
+
+  /* Allocate space for the output array */
+  npix_out = nout * nywt ;
+  if ((aperture < 4 && strncmp(det,"1",1) == 1) ||
+      (aperture > 4 && strncmp(det,"2",1) == 1)) 
+      cf_verbose(3, "maximum tabulated wavelength = %g, "
+	"maximum of wave_out=%g", wavet[nxwt-1],wave_out[nout-1] );
+  else
+      cf_verbose(3, "maximum tabulated wavelength = %g, "
+	"maximum of wave_out=%g", wavet[0],wave_out[nout-1] );
+  outarr = (float *) cf_calloc(npix_out, sizeof(float)) ;
+
+  /* Fill in the output array - use the weight profile which is closest
+     to the individual wavelengths in the output wavelength array. 
+     Remember : the Lif channels and the SiC channels have wavelengths
+     that run in opposite directions, e.g. for side 1 wavelengths
+     increase with index for Lif but decrease for SiC. The opposite is
+     true for side 2. */
+
+  ndx=0 ;
+  dndx = 1 ; 
+  if ((aperture < 4 && strncmp(det,"2",1) == 0) ||
+      (aperture > 4 && strncmp(det,"1",1) == 0 ) ) {
+    ndx = nxwt - 1 ;
+    dndx = -1 ;
+  }
+
+  cf_verbose(3, "filling output: starting index = %d, increment = %d ",
+	ndx, dndx) ;
+
+  for (i=0; i= 0 )
+		ndx += dndx ;
+	/* populate the column of the array */
+	for (j=0; j npix_out-1) ndx1 = npix_out-1 ;
+	  ndx2 = j*nxwt + ndx ;
+	    if (ndx2 > npix-1) ndx2=npix-1 ;
+	  outarr[ndx1] = wgts_arr[ndx2] ; 
+	}
+  }
+
+  /* Adjust the probabilities so that the integral along y at every 
+     wavelength position is 1 */
+
+  /* First sum the points along y (ynorm) at each point */
+  ynorm= (float *) cf_calloc(nout, sizeof(float)) ;
+  for (i=0; i 0.1)
+	for (j=0; j
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_satellite_jitter(fitsfile *infits, long nevents, float *time,
+	float *x, float *y, unsigned char *channel, long nsec,
+	float *ttime, unsigned char *status_flag)
+{
+    char CF_PRGM_ID[] = "cf_satellite_jitter"; 
+    char CF_VER_NUM[] = "1.31";
+
+    fitsfile  *jitfits, *parmfits;
+    char  det[FLEN_VALUE];
+    char  jitr_cal[FLEN_VALUE], parmfile[FLEN_VALUE];
+    char  comment[FLEN_COMMENT];
+    short c, *trkflg, trkflg_min;
+    int   active_ap[2], extended, status=0, hdutype;
+    long  j, k, njitr, nrej, *time_jit, time_diff;
+    double data_expstart, jitr_expstart;
+    float *dx_jit, *dy_jit, x_factor, y_factor;
+    float *dx_tt, *dy_tt;
+    float factor[2][4] = {{1.743,1.743,-1.743, -1.743},
+			  {1.154,1.163,-0.6335,-0.581}};
+
+    /* Initialize error checking */ 
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    /* Enter a time stamp into the log */
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    /* Read exposure start time from IDF header */
+    FITS_read_key(infits, TDOUBLE, "EXPSTART", &data_expstart, NULL, &status);
+
+    /* If APER_COR is not set to "COMPLETE", exit now. */
+    FITS_read_key(infits, TSTRING, "APER_COR", comment, NULL, &status);
+    if (strncmp(comment, "COMPLETE", 8)) {
+        cf_verbose(1, "APER_COR = %s.  Omitting photon shift.", comment);
+	cf_proc_update(infits, CF_PRGM_ID, "SKIPPED");
+	return (status);
+    }
+
+    /* If target is an extended source, exit now. */
+    extended = cf_source_aper(infits, active_ap);
+    if (extended) {
+	cf_verbose(1, "Extended source.  Omitting photon shift.");
+	cf_proc_update(infits, CF_PRGM_ID, "SKIPPED");
+	return (status);
+    }
+
+    /* Determine the scale factor to convert arcseconds to pixels. */
+    FITS_read_key(infits, TSTRING, "DETECTOR", det, NULL, &status);
+    c = det[0] =='2'? 2: 0;
+    if (det[1] == 'B')
+	c++;
+    x_factor=factor[0][c];
+    y_factor=factor[1][c];
+
+    /* Update the PLATESC (plate scale) keyword in the header */
+    FITS_update_key(infits, TFLOAT, "PLATESC", &y_factor, NULL, &status);
+
+    cf_verbose(3, "Arcsec to pixels: X = %5.3f\tY = %5.3f",
+	x_factor, y_factor);
+
+    /* Try to open the jitter file. */
+    FITS_read_key(infits, TSTRING, "JITR_CAL", jitr_cal, NULL, &status);
+    fits_open_file(&jitfits, jitr_cal, READONLY, &status);
+
+    /* If the jitter file is not found, try a lower-case filename. */
+    if (status != 0) {
+        status = 0;
+        jitr_cal[0] = (char) tolower(jitr_cal[0]);
+        fits_open_file(&jitfits, jitr_cal, READONLY, &status);
+    }
+
+    /* Read exposure start time from jitter file header */
+    FITS_read_key(jitfits, TDOUBLE, "EXPSTART", &jitr_expstart, NULL, &status);
+
+    /* Allocate space for correction arrays */
+    dx_tt = (float *) cf_calloc(nsec, sizeof(float));
+    dy_tt = (float *) cf_calloc(nsec, sizeof(float));
+
+    /* Read the jitter file. */
+    FITS_movabs_hdu(jitfits, 2, &hdutype, &status);
+    njitr=cf_read_col(jitfits, TLONG, "TIME", (void **) &time_jit);
+    njitr=cf_read_col(jitfits, TFLOAT, "DX", (void **) &dx_jit);
+    njitr=cf_read_col(jitfits, TFLOAT, "DY", (void **) &dy_jit);
+    njitr=cf_read_col(jitfits, TSHORT, "TRKFLG", (void **) &trkflg);
+    FITS_close_file(jitfits, &status);
+
+    /* Read minimum acceptable TRKFLG value from PARM_CAL file */
+    FITS_read_key(infits, TSTRING, "PARM_CAL", parmfile, NULL, &status);
+    FITS_open_file(&parmfits, cf_parm_file(parmfile), READONLY, &status);
+    FITS_read_key(parmfits, TSHORT, "TRKFLG", &trkflg_min, NULL, &status);
+    FITS_close_file(parmfits, &status);
+
+    /* Correct for difference in data and jitter EXPSTART times */
+    time_diff = cf_nlong((data_expstart - jitr_expstart) * 86400.);
+    for (j=0; j< njitr; j++) time_jit[j] -= time_diff;
+
+    /*
+     * Map times in the jitter file to times in the timeline table
+     * and calculate the jitter offsets.
+     */
+    for (j=k=0; k < nsec; k++) {
+	while ((float) time_jit[j+1] < ttime[k] && j+1 < njitr) j++;
+	if (trkflg[j] >= trkflg_min) {
+	    dx_tt[k] = x_factor * dx_jit[j];
+	    dy_tt[k] = y_factor * dy_jit[j];
+	}
+    }
+    /*
+     *  Map times in the timeline table to the times associated
+     *  with individual photons and apply the appropriate shifts.
+     *  Move only photons in the active aperture and for which the
+     *  timeline status jitter flag has not been set.
+     *  Record number of rejected events.
+     *  Note: active_ap[0] = lif, active_ap[1] = sic
+     */
+    nrej = 0;
+    for (j=k=0; j
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+
+/*********************************************************************
+ *
+ *    GET_XVAR_IMG
+ *
+ *   Subroutine to compute the intensity variation along the X direction
+ *   of a background image.  Pixels flagged as bad are excluded.
+ *     bkgimg = image from which to extract the data
+ *     maskimg = mask for data image (1 = good pixel)
+ *     nxb = size of bkgimg in x
+ *     nxsam = number of elements in the xvars array
+ *     xvars = array of x variations
+ *
+ ***********************************************************************/
+
+
+int
+get_xvar_img(float *bkgimg, float *maskimg, int nxb, int nxsam, float *xvars)
+{
+    int     nbin;
+    long    i, j;
+
+    nbin = nxb/nxsam ;
+    for (i = 0; i < NYMAX; i++) 
+	for (j = 0; j < nxb; j++)
+	    xvars[j/nbin] += bkgimg[i*nxb+j] * maskimg[i*nxb+j];
+
+    return 0 ;
+}
+
+/*********************************************************************
+ *
+ *       MAKE_MODEL
+ *
+ *  Subroutine to combine a day and night calibration image to generate the 
+ *    final background model:
+ *       npix = number of pixels in the full background image
+ *       nsam = number of pixels in the background regions of the detector
+ *       nxb = size of the x dimension of the background images
+ *       intcr = assumed intrinsic count rate
+ *       expnight, expday = exposure times during the night and day
+ *       data_sum_night, data_sum_day = sum of weights within the background
+ *             sample regions for night and day exposures
+ *       model_sum_night, model_sum_day = number of counts in the unscaled
+ *              night and day background calibration images
+ *		- background regions only
+ *       bkgimgn = image containing the night calibration image.
+ *       bkgimgd = image containing the daytime calibration image 
+ *       bkgimg = final background image 
+ *	 maskimg = mask defining good background regions
+ *
+ *****************************************************************************/
+
+int
+make_model(long npix, long nsam, int nxb, float intcr, float expnight,
+    float expday, double data_sum_night, double data_sum_day,
+    double model_sum_night, double model_sum_day,
+    float *bkgimgn, float *bkgimgd, float *bkgimg, float *maskimg)
+{
+    int   bin_size ;
+    long  i;
+    float int_counts;
+    float sfd, sfn, intnight, intday, scatnight, scatday ;
+
+    /* bin_size = binning factor of the background image */
+    bin_size = NXMAX / nxb ;
+
+    cf_verbose(3, "\n\tConstructing the background model\n") ;
+    cf_verbose(3, "total counts in the data: night= %.1f, day = %.1f",
+        data_sum_night, data_sum_day);
+    cf_verbose(3, "intrinsic count rate = %.2f x 10^-7 ",intcr ) ;
+    cf_verbose(3, "exptime night = %.1f, exptime day = %.1f ",
+        expnight, expday );
+
+    /* Sum the intrinsic background counts */
+    intnight = nsam * bin_size * intcr * expnight * 1.e-7 ;
+    intday = nsam * bin_size * intcr * expday * 1.e-7 ;
+    cf_verbose(3, "total intrinsic counts: night= %.1f , day= %.1f ",
+        intnight, intday) ;
+
+    /* Sum of scattered light in data (measured - intrinsic) */
+    scatnight = data_sum_night - intnight ;
+        if (scatnight <= 0.) scatnight = 0. ;
+    scatday = data_sum_day - intday ;
+        if (scatday <= 0.) scatday = 0. ;
+    cf_verbose(3, "total scattered light count: night = %.1f, day = %.1f",
+        scatnight, scatday);
+    cf_verbose(3, "total counts in unscaled background model: "
+        "night = %.2f, day = %.2f", model_sum_night, model_sum_day);
+
+    /* Calculate the scale factor for the night scattered light image */
+    sfn = 0. ;
+    if (model_sum_night > 0)  sfn = scatnight / model_sum_night ;
+
+    /* Calculate the scale factor for the day scattered light image */
+    sfd = 0. ;
+    if (model_sum_day > 0) sfd = scatday / model_sum_day ;
+    cf_verbose(3, "scale factors for background images: "
+        "night = %.1f, day = %.1f ", sfn, sfd) ;
+
+    /* Calculate the intrinsic counts per binned pixel */
+    int_counts = bin_size * intcr * (expnight + expday) * 1.e-7 ;
+    cf_verbose(3, "intrinsic counts per binned pixel = %.6f ", int_counts ) ;
+
+    /* Use the scattered light scaling factors and the tabulated intrinsic
+       count rate to model the final background image */
+
+    for (i = 0; i < npix; i++)
+        bkgimg[i] = (sfn * bkgimgn[i]) + (sfd * bkgimgd[i]) + int_counts;
+
+    return 0 ;
+}
+
+
+/*********************************************************************
+ *
+ *     MAKE_MODEL_EXPTIME  : 
+ *
+ *  Subroutine to combine a day and night calibration image based on
+ *    exposure times only to generate the final background model:
+ *      npix = total number of pixels in the image
+ *      nxb = length of the x axis in the background images
+ *     intcr = assumed intrinsic count rate
+ *     expnight, expday = exposure times during the night and day
+ *     bkging = image containing the night calibration image.
+ *     bkgimgd = image containing the daytime calibration image 
+ *     bkgimg = final background model    
+ *
+ *********************************************************************/
+ 
+
+int
+make_model_exptime(long npix, int nxb, float intcr, float expnight,
+    float expday, float *bkgimgn, float *bkgimgd, float *bkgimg)
+{
+
+    int i, bin_size ;
+    float intnight, intday ;
+
+    /* Compute the binning factor in x */
+    bin_size = NXMAX/nxb ;
+
+    /* Calculate the expected intrinsic counts in the background */ 
+    intnight = bin_size * intcr * expnight * 1.e-7 ;
+    intday = bin_size * intcr * expday * 1.e-7 ;
+
+    /* Combine the day and night images based on exposure times */
+    for (i=0 ; i 0) {
+		    maskimg[ndx] = 0. ;
+		    n_air++ ;
+		}
+	    }
+	}
+
+    free(gxmin);
+    free(gxmax);
+    free(gymin);
+    free(gymax);
+
+    cf_verbose(3, "Number of bkgd pixels affected by geocoronal lines = %ld",
+	n_air) ;
+
+    /* Count up and return the number of good pixels. */
+    n_good = 0;
+    for (i = 0; i < npix; i++) if(maskimg[i] > 0) n_good++;
+    cf_verbose(3, "Number of bkgd pixels flagged as good = %ld", n_good) ;
+
+    *nsam = n_good;
+    return 0 ;
+}
+
+
+/******************************************************************************
+ *
+ *             GET_LIMITS
+ *
+ *  Set limits of background subimage to match those of probability array.
+ *
+ *
+ ******************************************************************************/
+
+int get_limits(fitsfile *infits, int extended, int aperture,
+	int *ymin, int *ymax)
+{
+
+	char wgtsfile[FLEN_VALUE], ycentname[FLEN_KEYWORD];
+	int hdu, nywt, status=0;
+	float ycentv, wgt_cent;
+	fitsfile *wgtsfits;
+
+	cf_verbose(3, "Determining Y limits for aperture %d background array.",
+		aperture);
+
+	/* Read the measured centroid of the target spectrum. */
+	sprintf(ycentname,"YCENT%1d", aperture);
+	FITS_movabs_hdu(infits, 1, NULL, &status);
+	FITS_read_key(infits, TFLOAT, ycentname, &ycentv, NULL, &status);
+
+	/* Read the centroid and size of the probability array. */ 
+	FITS_read_key(infits, TSTRING, "WGTS_CAL", wgtsfile, NULL, &status);
+	FITS_open_file(&wgtsfits, cf_cal_file(wgtsfile), READONLY, &status);
+	hdu = extended * 8 + aperture + 1;
+	cf_verbose(3, "WGTS_CAL: extended = %d, aperture = %d, hdu = %d",
+		extended, aperture, hdu);
+	FITS_movabs_hdu(wgtsfits, hdu, NULL, &status);
+	FITS_read_key(wgtsfits, TINT, "NAXIS2", &nywt, NULL, &status);
+	FITS_read_key(wgtsfits, TFLOAT, "WGT_CENT", &wgt_cent, NULL, &status);
+	FITS_close_file(wgtsfits, &status);
+
+        cf_verbose(3, "Spectrum centroid=%6.2f, weights centroid=%5.2f, "
+	   "weights ny=%4d", ycentv, wgt_cent, nywt) ;
+
+	/* Note that we allow these values to exceed the limits of the 
+	 * detector.  This is required if the bkgd arrays are to cover
+	 * the same area as the 2-D probability and data arrays. */
+
+	*ymin = cf_nint (ycentv - wgt_cent);
+        *ymax = *ymin + nywt - 1;
+
+	return status ; 
+}
+
+
+/*********************************************************************
+ *
+ *    SUM_GOOD_PIXELS
+ *
+ *    Subroutine multiplies image and mask arrays, then sums the result.
+ *     image = image from which to extract the data
+ *     mask = mask for data image (1 = good pixels)
+ *     npix = size of image and mask arrays
+ *
+ ***********************************************************************/
+
+
+int
+sum_good_pixels(float *image, float *mask, long npix, double *image_sum)
+{
+    
+    long    i;
+
+    *image_sum = 0;
+
+    for (i = 0; i < npix; i++) 
+            *image_sum += image[i] * mask[i];
+
+    return 0 ;
+}
+
+
+/******************************************************************************
+ *
+ *             MAIN PROGRAM BEGINS HERE
+ *
+ ******************************************************************************/
+
+
+int cf_scale_bkgd(fitsfile *infits, long nevents, float *x_in, float *y_in,
+    float *w_in, unsigned char *channel, unsigned char *timeflags,
+    unsigned char *locflags, long ngood, long *good_index, long dtime,
+    long ntime, int *binx, int *biny, int *nx_lif, int *ny_lif,
+    int *ymin_lif, float **img_lif, int *nx_sic, int *ny_sic, int *ymin_sic,
+    float **img_sic)
+{
+
+   char CF_PRGM_ID[] = "cf_scale_bkgd";
+   char CF_VER_NUM[] = "1.25";
+
+    fitsfile  *bkgdfits, *scrnfits, *bchrfits, *parmfits ;
+    char     buffer[FLEN_CARD], bkgdfile[FLEN_CARD], scrnfile[FLEN_CARD];
+    char     bchrfile[FLEN_CARD], keyname[FLEN_CARD], parmfile[FLEN_CARD] ;
+    char     run_bkgd[FLEN_VALUE]; 
+    char     comment[FLEN_CARD], datestr[FLEN_CARD];
+    int      nx, nxb, ny, status, hdutype, frow, felem, niter;
+    int      src_ap[2], nullval, anynull, bkgd_num;
+    int      ymin, ymax, phalow, nbinx, nxsam, bkgdtype ;
+    int      bin_size, extended, keyval, timeref;
+    double   data_sum_day, data_sum_night, data_sum;
+    double   model_sum_night, model_sum_day, model_sum ;
+    float    *xvarg, *bkgarr, *xvars0, *xvarm0 ;
+    float    *bkgimg, *bkgimgd, *bkgimgn, *xvars, *xvarm;
+    float    floatnull, exptime, expnight, expday, xvars_ave ;
+    float    intcrarray[9], intcr, scattot, rms, rms0, dcr ;
+    float    intcnt, scat_int_ratio, zero, mf, numtot, xvars_tot, xvarm_tot ;
+    float    *dataimg, *maskimg;
+    short    *ylim ;
+    long     fpixel, npix, i, j, k, nsam;
+    long     nbgood, npts, ndx, ndx1, ndx2, bkgd_ndx;
+
+    /* Initialize error checking */
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Started execution.");
+
+    /* Initialize CFITSIO variables */
+    anynull = 0 ;
+    hdutype = 0 ;
+    frow = 1 ;
+    felem = 1 ;
+    floatnull = 0. ;
+    fpixel = 1 ;
+    status = 0 ;
+
+    /* Initialize other variables */
+    data_sum_day=0.;
+    data_sum_night=0.;
+    zero = 0.;
+
+    /* Open parameter file and check whether user wants a background model. */
+    FITS_movabs_hdu(infits, 1, &hdutype, &status) ;
+    FITS_read_key(infits, TSTRING, "PARM_CAL", parmfile, NULL, &status) ;
+    cf_verbose(3, "parameter file is %s ", parmfile) ;
+    FITS_open_file(&parmfits,cf_parm_file(parmfile), READONLY, &status) ;
+    FITS_read_key(parmfits, TSTRING, "RUN_BKGD", run_bkgd, NULL, &status) ;
+    FITS_close_file(parmfits, &status) ;
+    cf_verbose(3, "RUN_BKGD = %s", run_bkgd) ;
+
+    /* If the RUN_BKGD = NO, then fill background array with zeros. */ 
+    if (!strncmp(run_bkgd, "N", 1) || !strncmp(run_bkgd, "n", 1)) {
+        cf_verbose(1, "RUN_BKGD = NO.  No background subtraction.") ;
+	FITS_write_comment(infits, " ", &status);
+	FITS_write_comment(infits, "RUN_BKGD = NO.  No background subtraction.",
+	     &status);
+	fits_get_system_time(datestr, &timeref, &status);
+        sprintf(comment, "CalFUSE v%s   %.10s", CALFUSE_VERSION, datestr);
+        FITS_write_comment(infits, comment, &status);
+	FITS_write_comment(infits, " ", &status);
+
+        bin_size = 1 ;
+        nx=nxb=NXMAX ;
+        ny=NYMAX ;
+        npix=nx * ny ;
+        bkgimg = (float *) cf_calloc(npix, sizeof(float)) ;
+        goto fin ;
+    }
+
+/***********************************************************************
+ *
+ *      Set up the parameters for the analysis 
+ *
+ ***********************************************************************/
+
+    /* Set day and night exposure times */
+    expday = (float) dtime ;
+    expnight = (float) ntime ;
+    exptime = expday + expnight ;
+
+    /* Get name of background characterization file */
+    FITS_read_key(infits, TSTRING, "BCHR_CAL",bchrfile, NULL, &status) ;
+    cf_verbose(3, "BCHR parameter file is %s ",bchrfile) ;
+
+    /* Get name of background calibration file */
+    FITS_read_key(infits, TSTRING, "BKGD_CAL", bkgdfile, buffer, &status);
+    cf_verbose(3,"Background calibration file = %s ",bkgdfile ) ;
+
+    /* Get name of screening file */
+    FITS_read_key(infits, TSTRING, "SCRN_CAL",scrnfile, NULL, &status) ;
+    cf_verbose(4, "screening file is %s ",scrnfile) ; 
+
+    /* Read pha screening limit from the input file header */
+    FITS_read_key(infits,TINT,"PHALOW",&phalow, NULL, &status) ; 
+    if (phalow > 8) phalow=8 ;
+    cf_verbose(2, "pha screening limit = %d", phalow) ;
+
+    /* Determine the type of background model to make by checking the
+       BKGDTYPE flag in the screening file. If BKGDTYPE > 0, do a full
+       model. If BKGDTYPE < 0, calculate a model based on exposure time. */
+    FITS_open_file(&scrnfits,cf_parm_file(scrnfile), READONLY, &status) ;
+    FITS_read_key(scrnfits, TINT, "BKGDTYPE",&bkgdtype, NULL, &status) ;
+    FITS_close_file(scrnfits, &status) ;
+
+    /* Read the intrinsic count rate from the BCHR file */
+    FITS_open_file(&bchrfits,cf_parm_file(bchrfile), READONLY, &status) ; 
+    FITS_movabs_hdu(bchrfits, 3, &hdutype, &status) ;
+    FITS_read_img(bchrfits, TFLOAT, fpixel, 9, &nullval, intcrarray,
+      &anynull, &status) ;
+    FITS_close_file(bchrfits, &status) ;
+    intcr=intcrarray[phalow] ;
+    cf_verbose(2,"Initial guess for the intrinsic count rate = "
+	"%.1f x 10^-7 c/s/pixel ", intcr) ;
+
+    /* Read the limits of the background sample regions from the header
+	of the input file */
+    FITS_read_key(infits, TINT, "BKGD_NUM", &bkgd_num, NULL, &status) ;
+    cf_verbose(3, "Number of background sample regions = %d ", bkgd_num) ;
+
+    ylim = (short *) cf_calloc(bkgd_num*2, sizeof(short) ) ;
+    for (i=0; i 1) for (i=0; i= NYMAX) continue;
+	bkgd_ndx = j*nxb + cf_nint(x_in[ndx])/bin_size;
+	if (maskimg[bkgd_ndx] > 0) {
+		dataimg[bkgd_ndx] += w_in[ndx];
+      		if (timeflags[ndx] & TEMPORAL_DAY) data_sum_day += w_in[ndx] ;
+       		else data_sum_night += w_in[ndx]; 
+	  	nbgood++ ;
+	}
+    }
+
+    cf_verbose(3, "Number of photons events in the background region = %ld",
+	nbgood); 
+    cf_verbose(3, "Sum of daytime weights  = %.1lf ", data_sum_day) ;
+    cf_verbose(3, "Sum of nighttime weights  = %.1lf ", data_sum_night) ;
+
+    /* If the background scattered light contribution is too large, the
+	background may be contaminated, perhaps by a source in one of the
+	other apertures.  This is common in crowded fields or with nebulocity.
+	In this case, we calculate the background model based on the 
+	exposure times, as done for the histogram data */
+
+    /* Check the level of the scattered-light background */
+    intcnt = intcr * nsam * bin_size * exptime * 1.e-7 ;
+    scattot = data_sum_day + data_sum_night - intcnt ;
+    scat_int_ratio = 0. ;
+    if (intcnt > 0) scat_int_ratio = scattot / intcnt ;
+    cf_verbose(3, "int cnt = %.1f, scat cnt = %.1f , scat/int = %f ",
+	intcnt, scattot, scat_int_ratio) ;
+
+    if (scat_int_ratio > 10) {
+	cf_verbose(1, "The scattered light background is too large.");
+	bkgdtype = -1;
+    }
+    else {
+	cf_verbose(2,
+	    "Scattered light appears reasonable. Proceeding with analysis.") ;
+    }
+
+    }	/* Analysis of the data ends here. */
+
+    /* If the background model is to be calculated using only the exposure
+	time, then do it now. */
+    if (bkgdtype < 0) {
+        cf_verbose(1, "Constructing background based only on exposure time.") ;
+	make_model_exptime( npix, nxb, intcr, expnight, expday,
+	    bkgimgn, bkgimgd, bkgimg) ;
+        goto fin ; 
+    }
+
+/****************************************************************************
+ *
+ *      In this section, we attempt to determine the intrinsic count rate.
+ *      The scattered light shows little structure in the Y dimension, so
+ *	we project all of the arrays onto the X axis.  Only good pixels
+ *	in the user-specified background regions are included in the sum.
+ *
+ ****************************************************************************/
+
+    /* Make a scattered light reference image assuming an intrinsic count
+       rate of zero. */
+    make_model_exptime(npix, nxb, zero, expnight, expday,
+	bkgimgn, bkgimgd, bkgimg) ;
+
+    /* We bin the data by another factor of 8 in X      */
+    /*   nbinx = number of detector pixels in one bin	*/
+    /*   nxsam = number of samples in the array		*/
+    nbinx=128 ;
+    nxsam = NXMAX/nbinx ;
+    cf_verbose(3, "X variation array information: "
+                  "nbinx = %d, nxsam= %d ", nbinx, nxsam) ; 
+
+    xvars  = (float *) cf_calloc(nxsam,sizeof(float)) ;
+    xvarm  = (float *) cf_calloc(nxsam,sizeof(float)) ;
+    xvars0 = (float *) cf_calloc(nxsam,sizeof(float)) ;
+    xvarm0 = (float *) cf_calloc(nxsam,sizeof(float)) ;
+    xvarg  = (float *) cf_calloc(nxsam,sizeof(float)) ;
+
+    /* Project each image onto the X axis */
+    get_xvar_img(bkgimg,  maskimg, nxb, nxsam, xvarm0) ;
+    get_xvar_img(dataimg, maskimg, nxb, nxsam, xvars0) ;
+    get_xvar_img(maskimg, maskimg, nxb, nxsam, xvarg) ;
+
+    /* Calculate the average counts per "good" bin in the data array. */
+    xvars_ave = 0;
+    for (i = j = 0; i < nxsam; i++)
+	if (xvarg[i] > 0) {
+	    xvars_ave += xvars0[i];
+	    j++;
+	}
+    xvars_ave /= j;
+    cf_verbose (3, "xvars_ave = %.1f (should be > 100)", xvars_ave);
+
+    /* If the average number of counts in the xvars0 array (which holds 
+    the observed intensity variation along the x direction) is small,
+    then we can't determine an intrinsic count rate from the data and
+    we use the tabulated rate.  If the count is large enough, then we
+    can do a more detailed fit of the model to the observations. */
+
+    if (xvars_ave > 100) {	/* Begin fit to intrinsic background */
+
+    cf_verbose(1, "Calculating a full background model.") ;
+    cf_verbose(3, "\n\tInterpolating to derive intrinsic count rate\n") ;
+
+    /* Sum the counts in the data and model arrays. */
+    sum_good_pixels(dataimg, maskimg, npix, &data_sum);
+    sum_good_pixels(bkgimg, maskimg, npix, &model_sum);
+
+    cf_verbose(3, "Total counts in initial scattered-light model = %7.0lf",
+	model_sum);
+    cf_verbose(3, "Intrinsic counts summed over good regions =     %7.0f",
+	(intcnt = intcr * nsam * bin_size * exptime * 1.e-7));
+    cf_verbose(3, "Sum of above                                  = %7.0lf",
+	model_sum + intcnt);
+    cf_verbose(3, "Total counts in good regions of data array =    %7.0lf",
+	data_sum);
+
+    /* Sum the counts in the data and model x variation arrays */
+    xvarm_tot = 0.;
+    xvars_tot = 0.;
+    for (i = j = 0; i < nxsam; i++) if (xvarg[i] > 0) {
+	xvarm_tot += xvarm0[i];
+	xvars_tot += xvars0[i];
+    }
+    cf_verbose(3, "Total counts in scattered-light xvar array =    %7.0f",
+	xvarm_tot);
+    cf_verbose(3, "Total counts in data x variation array =        %7.0f",
+	xvars_tot);
+
+    /* Convert the x variation arrays from total counts to units of
+	1.e-7 c/s/pix, the units of the intrinsic count rate. */
+    mf = bin_size * exptime * 1.e-7 ;
+    for (i=0 ; i 0) {
+	xvars0[i] /= xvarg[i] * mf ;
+	xvarm0[i] /= xvarg[i] * mf ;
+    }
+
+    /* Sum the counts in the rescaled xvar arrays */
+    xvarm_tot = 0.;
+    xvars_tot = 0.;
+    for (i = j = 0; i < nxsam; i++) if (xvarg[i] > 0) {
+	xvars_tot += xvars0[i];
+	xvarm_tot += xvarm0[i];
+	j++;
+    }
+    cf_verbose(3, "Mean xvar count rates in units of 10^-7 c/s/pixel:");
+    cf_verbose(3, "     Initial model = %.1f", xvarm_tot/j);
+    cf_verbose(3, "  Intrinsic counts = %.1f", intcr);
+    cf_verbose(3, "        Data array = %.1f", xvars_tot/j);
+
+    /* Determine the value of the intrinsic background by comparing the X
+	variations of the data (after removing a guess for the intrinsic
+	background) with the model scattered light variations, making sure
+	that the final average count rate is the same for both.  Iterate
+	until the intrinsic background changes by less than 0.1 units. */
+
+    dcr = 1. ;
+    niter = 0 ;
+    rms0 = 1.e10 ;
+    while ( fabs(dcr) > 0.1) { 
+
+        /* Subtract intrinsic counts from the data array and sum it. */
+	xvars_tot = 0. ;
+	for (i=0; i 0) {
+	    xvars[i] = xvars0[i] - intcr ;
+	    xvars_tot += xvars[i] ;
+	}
+
+    	/* Scale the model array to match the data.  Sum it. */
+	numtot = 0. ;
+	for (i=0 ; i 0) {
+	    xvarm[i] = xvarm0[i] * (xvars_tot / xvarm_tot) ;
+	    numtot += xvarm[i] ;
+	}
+        
+	/* Sum the absolute difference between the data and model arrays. */
+	rms = 0. ;
+	for (i=0 ; i 0)  
+	    rms += (fabs(xvars[i]-xvarm[i])) ; 
+	cf_verbose(3, "intr cr= %5.2f, data-model = %6.2f, "
+	    "dat cnts = %5.0f, mod cnts=%5.0f", intcr,rms,xvars_tot,numtot) ;
+
+	niter++ ;
+	if (niter > 20) break ;
+
+	/* if the current rsm value is greater than the preceeding one,
+	   reverse direction and reduce the step size by 50% */
+	if ( rms > rms0 )  dcr = -0.5*dcr ;
+	    intcr += dcr ;
+ 
+	/* initialize the next iteration */
+	rms0 = rms ;
+    }
+    }		/* End of fit to intrinsic background */
+
+    else { 
+    cf_verbose(1, "Background count too small for a detailed fit.");
+    cf_verbose(1, "Assuming an intrinsic count rate of %.1f cts/s", intcr ) ;
+    }
+
+    /* Sum the good pixels in the unscaled day and night background images. */
+    sum_good_pixels(bkgimgn, maskimg, npix, &model_sum_night);
+    sum_good_pixels(bkgimgd, maskimg, npix, &model_sum_day);
+
+    /* Make the final background model */
+    make_model(npix, nsam, nxb, intcr, expnight, expday,
+	data_sum_night, data_sum_day, model_sum_night, model_sum_day, 
+	bkgimgn, bkgimgd, bkgimg, maskimg) ;
+
+    /* Sum the counts in the final background image. */
+    sum_good_pixels(bkgimg, maskimg, npix, &model_sum);
+
+    cf_verbose(3, "Total counts in final background model = %.0lf", model_sum);
+    cf_verbose(3, "                       measured counts = %.0lf",
+	data_sum_day+data_sum_night);
+
+    free(bkgimgn) ;
+    free(bkgimgd) ;
+    free(dataimg) ;
+    free(maskimg) ;
+    free(xvars) ;
+    free(xvars0) ;
+    free(xvarm) ;
+    free(xvarm0) ;
+    free(xvarg) ;
+
+    fin:
+
+  /**************************************************************************
+   *
+   *     Extract the subarrays covering the active LiF and SiC apertures 
+   *
+   ***************************************************************************/
+
+    extended = cf_source_aper(infits, src_ap) ;
+    cf_verbose(3, "\n\tSelecting subarrays\n") ;
+    cf_verbose(3, "source apertures: lif=%d,  sic=%d ",src_ap[0], src_ap[1]) ; 
+
+    /* Populate some output values */
+    *binx=bin_size ;
+    *biny=1 ;
+
+    for (k=0; k<2 ; k++) {	/* Loop over LiF and SiC channels */
+
+    /* Read the y limits for the output array */
+    get_limits(infits, extended, src_ap[k], &ymin, &ymax) ;
+  
+    /* Set up array to contain the image */ 
+    npts = nxb * (ymax-ymin+1) ;
+    bkgarr = (float *) cf_calloc(npts, sizeof(float)) ;
+				   
+    /* Fill the array */
+    ndx1 = -1 ;
+    model_sum = 0 ;
+    for (i=ymin; i<=ymax ; i++) {
+	if (i < 0 || i >= ny)
+	    ndx1 += nxb ;
+	else {
+	    for (j=0; j= npix) break ;
+	        ndx1++;
+	        if (ndx1 >= npts) break ;
+	        bkgarr[ndx1]=bkgimg[ndx2] ;
+		model_sum += bkgarr[ndx1] ;
+	    }
+	}
+    }
+
+    /* Populate the output arrays and values */
+    if (k == 0) {
+	*nx_lif = nxb ;
+	*ny_lif = (ymax - ymin + 1) ;
+	*ymin_lif = ymin ;
+	*img_lif = bkgarr ;
+    }
+    else {
+	*nx_sic = nxb ;
+	*ny_sic = (ymax - ymin + 1) ;
+	*ymin_sic = ymin ;
+	*img_sic = bkgarr ;
+    }
+
+    cf_verbose(2, "for aperture %d, nx=%d, ny=%d, ymin=%d, model_sum=%.0f",
+	src_ap[k], nxb, (ymax-ymin+1), ymin, model_sum) ; 
+
+    }	/* End loop over LiF and SiC channels */
+
+    /* release memory for the background image */
+    free(bkgimg) ;
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished execution.");
+    return 0;
+}
diff --git a/src/libcf/cf_screen_airglow.c b/src/libcf/cf_screen_airglow.c
new file mode 100644
index 0000000..5a7b2b3
--- /dev/null
+++ b/src/libcf/cf_screen_airglow.c
@@ -0,0 +1,70 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_screen_airglow (fitsfile *header, long nevents,
+ *			      float *x, float *y, unsigned char *location)
+ *
+ * Description: Flag photon events in airglow regions.
+ *
+ * Arguments:   fitsfile  *header	Input FITS file pointer
+ *              long      nevents	Number of photon events
+ *              float     *x		X coordinate array
+ *              float     *y		Y coordinate array
+ *              unsigned char *location Photon location flag array
+ *
+ * Calls:	cf_get_geocorona
+ *
+ * Returns:	0 on success
+ *
+ * History:	03/10/05   1.1   wvd    Initial coding
+ *
+ ****************************************************************************/
+
+#include 
+#include "calfuse.h"
+
+int
+cf_screen_airglow (fitsfile *header, long nevents, float *x, float *y,
+	unsigned char *location)
+{
+    char CF_PRGM_ID[] = "cf_screen_airglow";
+    char CF_VER_NUM[] = "1.1";
+
+    int   errflg=0, ngeo;
+    long  i, j;
+    short *gxmin, *gxmax, *gymin, *gymax;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    /*
+     *  Read limits of airglow regions from AIRG_CAL file.
+     */
+    ngeo = cf_get_geocorona(header, &gxmin, &gxmax, &gymin, &gymax);
+
+    /*
+     *  Set the airglow bit of photons in the airglow regions.
+     */
+    for (i = 0; i < nevents; i++) {
+	for (j=0; j gxmin[j] && x[i] < gxmax[j] &&
+		y[i] > gymin[j] && y[i] < gymax[j] ) {
+		location[i] = location[i] | LOCATION_AIR;
+		break;
+	    }
+        }
+    }
+
+    free(gxmin);
+    free(gxmax);
+    free(gymin);
+    free(gymax);
+
+    cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return 0;
+}
diff --git a/src/libcf/cf_screen_bad_pixels.c b/src/libcf/cf_screen_bad_pixels.c
new file mode 100644
index 0000000..99884a5
--- /dev/null
+++ b/src/libcf/cf_screen_bad_pixels.c
@@ -0,0 +1,122 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_screen_bad_pixels (fitsfile *header, long nevents,
+ *			      float *x, float *y, unsigned char *location)
+ *
+ * Description: Flag photon events in bad-pixel regions.
+ *
+ * Arguments:   fitsfile  *header	Input FITS file pointer
+ *              long      nevents	Number of photon events
+ *              float     *x		X coordinate array
+ *              float     *y		Y coordinate array
+ *              unsigned char *location Photon location flag array
+ *
+ * Calls:	cf_get_potholes
+ *
+ * Returns:	0 on success
+ *
+ * History:	11/22/05   1.1   wvd    Initial coding
+ *
+ ****************************************************************************/
+
+#include 
+#include "calfuse.h"
+
+/***********************************************************************
+ *
+ * Procedure to read pothole locations from the QUAL_CAL file
+ *
+ ***********************************************************************/
+
+int
+cf_get_potholes(fitsfile *header, float **xbad, float **ybad,
+        float **rxbad, float **rybad)
+{
+    char qualfile[FLEN_VALUE];
+    int nbad, status=0;
+    fitsfile *qualfits;
+
+    cf_verbose(3, "Entering cf_get_potholes.");
+
+    /*
+     *  Read limits of bad-pixel regions from the first extension 
+     *  of the QUAL_CAL file.
+     */
+    FITS_movabs_hdu(header, 1, NULL, &status);
+    FITS_read_key(header, TSTRING, "QUAL_CAL", qualfile, NULL, &status);
+    cf_verbose(3, "QUAL_CAL = %s", qualfile);
+
+    FITS_open_file(&qualfits, cf_cal_file(qualfile), READONLY, &status);
+    FITS_movabs_hdu(qualfits, 2, NULL, &status);
+    nbad = cf_read_col(qualfits, TFLOAT, "X",  (void **) xbad);
+    nbad = cf_read_col(qualfits, TFLOAT, "Y",  (void **) ybad);
+    nbad = cf_read_col(qualfits, TFLOAT, "RX", (void **) rxbad);
+    nbad = cf_read_col(qualfits, TFLOAT, "RY", (void **) rybad);
+    FITS_close_file(qualfits, &status);
+
+    cf_verbose(3, "Exiting cf_get_potholes.");
+    return nbad;
+}
+
+
+int
+cf_screen_bad_pixels (fitsfile *header, long nevents, float *x, float *y,
+	unsigned char *location)
+{
+    char CF_PRGM_ID[] = "cf_screen_bad_pixels";
+    char CF_VER_NUM[] = "1.1";
+
+    int   errflg=0, nbad;
+    long  counter=0, i, j;
+    float *xbad, *ybad, *rxbad, *rybad, *rx2, *ry2;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    /*
+     *  Read limits of bad-pixel regions from QUAL_CAL file.
+     */
+    nbad = cf_get_potholes(header, &xbad, &ybad, &rxbad, &rybad);
+    cf_verbose(2, "For first pothole: x = %.0f, y = %.0f, rx = %.0f, ry = %.0f",
+	xbad[0], ybad[0], rxbad[0], rybad[0]);
+
+    /*
+     *  Square the semi-major axes.
+     */
+    for (j = 0; j < nbad; j++) {
+	rxbad[j] *= rxbad[j];
+	rybad[j] *= rybad[j];
+    }
+    rx2 = rxbad;
+    ry2 = rybad;
+    cf_verbose(2, "For first pothole: rx2 = %.0f, ry2 = %.0f", rx2[0], ry2[0]);
+
+    /*
+     *  Flag photons in the bad-pixel regions.
+     */
+    for (i = 0; i < nevents; i++) {
+	for (j = 0; j < nbad; j++) {
+            if ((x[i] - xbad[j]) * (x[i] - xbad[j]) / rx2[j] +
+		(y[i] - ybad[j]) * (y[i] - ybad[j]) / ry2[j] < 1.0) {
+		location[i] = location[i] | LOCATION_BADPX;
+		counter++;
+		break;
+	    }
+        }
+    }
+    cf_verbose(2, "Flagged %d pixels as bad", counter);
+
+    free(xbad);
+    free(ybad);
+    free(rxbad);
+    free(rybad);
+
+    cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return 0;
+}
diff --git a/src/libcf/cf_screen_burst.c b/src/libcf/cf_screen_burst.c
new file mode 100644
index 0000000..f80374e
--- /dev/null
+++ b/src/libcf/cf_screen_burst.c
@@ -0,0 +1,758 @@
+/****************************************************************************
+ *              Johns Hopkins University
+ *              Center for Astrophysical Sciences
+ *              FUSE
+ ****************************************************************************
+ *
+ * Synopsis:    cf_screen_burst(infits, nevents, ptime, x, y, locflags,
+ *                              gti, nsec, ttime, sflag, aic_rate, bkgd) 
+ *
+ * Description: Determines the times for bursts and sets the burst
+ *              flag in the timeline status array so that the busts
+ *              can be removed later.
+ *
+ * Arguments:   fitsfile  infile        Pointer to Intermediate Data File 
+ *              long      nevents       Number of photons
+ *              float     ptime         Time of event
+ *              float     *x, *y        X and Y positions of the photon
+ *              byte      locflags       flags on photon location 
+ *                                        (LOC_FLGS column in IDF)
+ *              GTI       gti           Structure with Good Time Intervals
+ *              long      nsec          Length of timeline array
+ *              float     ttime         Timeline array
+ *              byte      sflag         Status flags in timeline table
+ *		float	  aic_rate	AIC count rate
+ *              short     bkgd          Count rate for the background 
+ *                                      sample region 
+ *
+ * Algorithm used:
+ *
+ *     1. Generate an array (flgarr) with 1 second intervals that 
+ *        contains flags indicating whether that time interval is good 
+ *        or not. All elements of this array are originally set to negative
+ *        numbers, indicating bad times.
+ *     2. Read in the good time intervals from the initial screening
+ *        analysis and set all good time elements in flgarr to positive 
+ *        values
+ *     3. Determine the median count per binned element in the entire time 
+ *        sequence (ignoring times with no data) and set all elements with
+ *        a count > 5 times this median value to negative values (indicating
+ *        a burst at that time).
+ *     4. Do a median filter of the modified time sequence (ignoring the neg
+ *        numbers) and identify all times where the count per bin is greater
+ *        than a specified value or is more than a specified number of 
+ *        standard deviations from the median. These points are flagged with
+ *        negative numbers to indicate bursts. The screening parameters used
+ *        are specified in the screening parameter file.
+ *     5. Iterate time-sequence analysis until no more points are removed.
+ *     6. Transfer the burst times from the cnt array to flgarr
+ *     7. Go through all detected photons. If the time of arrival for that 
+ *        photon has been flagged as bad in FLGARR then ignore it,  
+ *        otherwise copy the information to the output file.   
+ *
+ *
+ * Calibration files:
+ *	BCHR_CAL: location of the background sample regions
+ *	SCRN_CAL: burst screening params
+ *
+ * Parameter file keywords used to control the burst screening process
+ *
+ *    MNCNT : minimum enhancement of the background (in counts) needed to 
+ *            flag a burst (currently = 5)
+ *    STDRE : minimum number of standard deviations from the local mean 
+ *            for a burst to be detected (currently=5)
+ *    NBIN  : binning factor (in seconds) for the tiome sequence before 
+ *            analysis. (currently=15 seconds)
+ *    NSMED : Interval (in seconds) used in determining the median filter 
+ *            (currently=600)
+ *    SRCFRAC :  Fraction of the source intensity required for a 
+ *               burst to be removed. SCRFRAC=0.01 requires that a burst 
+ *               exceed 1% of the integrated source intensity before being 
+ *               removed (default 0.001)
+ *
+ * Returns:     0 on success
+ *
+ * History:    10/29/02   v1.1   RDR    Adapted from cf_ttag_burst
+ *             11/14/02   v1.2   peb    Tidied code and made it compatible 
+ *                                      with cf_screen_burst
+ *             12/09/02   v1.3   RDR    - Adjusted procedure for filling
+ *                                      burst flags in the timeline
+ *                                      - Corrected error in the procedure
+ *                                      that tabulates bursts properties.
+ *                                      - Used LOCATION flags to exclude
+ *                                      geocoronal emission and photons
+ *                                      off the active detector.
+ *             12/20/02   v1.4   rdr    changed status flag arrays to 
+ *                                      unsigned char
+ *             01/24/03   v1.5   rdr    corrected problem with high 
+ *                                      count rates
+ *             03/01/03   v1.6   wvd    Correct use of pointer in FITS_read_key
+ *             05/20/03   v1.7   rdr    Add cf_proc_check
+ *             05/22/03   v1.8   wvd    Exit if EXPTIME !> 0.
+ *					Change cf_error_init to stderr.
+ *					Implement cf_verbose throughout.
+ *             04/06/03   v1.9   rdr    Exclude times which have previously 
+ *                                      had a screening bit set
+ *             09/03/03   v1.10  wvd    Delete extraneous print statements
+ *             09/10/03   v1.11  wvd    Change background array to type short
+ *					Set burst flag only when flgarr[i]
+ *					< -1, not 0, to prevent bursts 
+ *					from echoing LIMB/SAA/HV flags.
+ *             09/15/03   v1.12  wvd    Use ttime[i] to populate bkgd array.
+ *					Old scheme didn't work.
+ *             10/06/03   v1.13  wvd    Change locflgs to locflags throughout.
+ *					Use bit-wise logic to test sflag array.
+ *             06/04/04   v1.14  wvd    Clean up i/o.
+ *             02/02/05   v1.15  wvd	Read AIC count rate from timeline table
+ *					rather than file header keywords.
+ *             02/02/05   v1.16  wvd	Generate bkgd array for the entire
+ *					exposure, not just good times.
+ *             08/30/05   v1.17  wvd	Ignore photons with arrival times
+ *					greater than MAX_EXPTIME.
+ *             04/09/06   v1.18  wvd	In subroutine median_filter, require
+ *					that nwin >= 1.
+ *             06/12/06   v1.19  wvd	Call cf_verbose rather than 
+ *					cf_if_warning.
+ *
+ ***************************************************************************/
+
+#include 
+#include 
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+/*
+ *  Function to determine the median value of an array.  
+ *  Arguments are the array,
+ *  the number of points in the array (npt) and the maximum count to
+ *  use in the histogram analysis (nmax). The median value is returned.
+ *
+ *  The analysis uses a histogram approach to determine the median
+ *  value.  Negative values of the array have been flagged as bursts
+ *  and should be ignored in determining the median value.  If all of
+ *  the points in the array have been flagged, returns zero.
+ */
+
+static int
+median(int *array, int npts, int nmax)
+{
+    int i, ngood=0, *hist, medval;
+
+    /*
+     * Set up an array to contain the histogram of the data.
+     */
+    hist = (int *) cf_calloc((nmax+1), sizeof(int));
+    /*
+     *  Fill the histogram with the data.  
+     *  Negative points are not counted.
+     */
+    for (i=0; i< npts; i++) {
+	int ndx = array[i];
+	if (ndx > nmax-1)
+	    ndx = nmax-1;
+	if (ndx >= 0 ) {
+	    ngood ++;
+	    hist[ndx]++;
+	}
+    }
+
+    /*
+     *  Determine the median value.  Set the data to 0 if there
+     *  are fewer than 2 points.
+     */
+    if (ngood > 2 ) {
+	int hnum= (int) ngood/2, atot=0;
+	i=-1;
+	while ((atot <= hnum) && (i < nmax) )
+	    atot += hist[++i];
+	medval = (int) i;
+    }
+    else
+	medval = 0;
+
+    free(hist) ;
+
+    return medval;
+}
+
+/* 
+ *  Function to construct a median filter for an array:
+ *  array  = array for which the median filter is to be constructed
+ *  npts   = number of points in the array
+ *  nflt   = number of points over which to determine the median value
+ *  medflt = array containing the median filter.
+ */
+
+static void
+median_filter(int *array, int npts, int nflt, int *medflt)
+{
+    int cntmax=0, i, hwidth, nwin, *win, medval, nsam ;
+    /*
+     *  Determine the maximum value of the array.
+     */
+    for (i = 0; i < npts; i++)
+	if (array[i] > cntmax)
+	    cntmax=array[i];
+
+    cf_verbose(3,"Constructing median filter - max cnt = %d",cntmax) ;
+    
+    /*
+     *  Determine the properties of the window over which to calculate
+     *  the median values. Make sure that the window is not larger
+     *  than the width of the data.
+     */
+    if (nflt > npts)
+	hwidth = (int) ( npts/2. ) - 1;
+    else
+	hwidth = (int) (0.5 + nflt/2. );
+    nwin = (int) 2*hwidth+1;
+    if (nwin < 1) nwin = 1;
+    win = (int *) cf_calloc(nwin, sizeof(int));
+    /*
+     *  Construct the median filter.
+     */
+    for (i = 0; i < npts; i++) {
+	int j, nmin, nmax;
+	/*
+	 *  Determine the limits to the sample.
+	 */
+	nmin = i - hwidth;
+	if (nmin < 0)
+	    nmin=0;
+	nmax = nmin+nwin;
+	if (nmax > npts-1 )
+	    nmin = npts-nwin-1;
+
+	/* Fill the sample array */
+        nsam=0 ;
+	for (j=0; j<=2*hwidth; j++) {  
+	    int ndx = nmin+j;
+	    if (ndx > npts-1)
+		ndx = npts-1;
+	    win[j] = array[ndx];
+            if (array[ndx] > 0) nsam++ ;
+	}
+
+	/* Get the median value for the sample array */
+	medval = median(win, nwin, cntmax);
+
+	/*
+        cf_verbose(6,"at point %d, nmin=%d, nmax=%d, nsam=%d, medval=%d",
+		   i, nmin, nmax, nsam, medval) ;
+	*/
+
+	/* Update the median filter */
+	medflt[i] =  medval;
+    }
+
+    free(win) ;
+
+}
+
+/*
+ *  Function to take an array marked with the times and intensities of
+ *  the bursts and identify individual bursts events and output these
+ *  to an ASCII file for later analysis.
+ */
+
+static void
+tab_burst(int *bursts, int npts, int nbin, int mjd, long tst, char *outfile)
+{
+    FILE *output;
+    int i, bflg=-1, bdur=0, bcnts=0, bst=0;
+    /*
+     *  Go through the bursts array and determine the times and
+     *  properties of the bursts.
+     */
+    output = fopen(outfile, "w");
+
+    cf_verbose(2, "BURST SUMMARY") ;
+    for (i=0; i 0 && bflg < 0) {
+	    bflg=1;
+	    bst= i*nbin;
+	}
+	if (bursts[i] > 0 && bflg > 0) {
+	    bdur++;
+	    bcnts = bcnts + bursts[i];
+	}
+	if (bursts[i] < 0 && bflg > 0) {
+	  cf_verbose(2, "start=%d,  duration=%ld seconds,  counts=%d",
+		 bst, bdur*nbin, bcnts) ; 
+ 	   fprintf(output, " %d   %ld    %d   %d \n",
+	       mjd, bst+tst, bdur*nbin, bcnts);
+  	    bflg=-1;
+	    bdur=0;
+	    bcnts=0;
+	}
+    }
+
+    /* Check to see whether a burst is in progress at the end of the obs */
+    if (bflg > 0) {
+       	  cf_verbose(2, "start=%d,  duration=%ld seconds,  counts=%d",
+		 bst, bdur*nbin, bcnts) ; 
+	  fprintf(output, " %d   %ld    %d   %d\n",
+		    mjd, bst+tst, bdur*nbin, bcnts);
+    }
+
+}
+
+
+int
+cf_screen_burst(fitsfile *infits, long nevents, float *ptime, float *x, 
+		float *y, unsigned char *locflags, GTI *gti, long nsec, 
+                float *ttime, unsigned char *sflag, float *aic_rate,
+		short *bkgd)
+{
+    char CF_PRGM_ID[] = "cf_screen_burst";
+    char CF_VER_NUM[] = "1.19";
+
+    short ylim[8], k;
+    int   anynull, errflg=0, intnull=0, cflg=-1, nrowbkg=0, ngood;
+    int   npts, nmax, nflt, iflg, numflg, ndxs, ndxe, ndx, ndxb;
+    int   *bcnts, *cnts, *gcnts, *medflt, *flgarr, *bursts, lim_col;
+    int   nflg, niter, mjd , status=0, medval;
+    long  frow=1, felem=1, tst , i, j;
+    long  stdrej, mncnt, nsmed, mnburst, nbin, nflgarr;
+    float exptime, max_aic_rate, bkgsf, bkgsft, srcfrac, mxtime;
+    double expstrt;
+    char  burst_tab[FLEN_CARD];
+    char  expid[FLEN_CARD], progid[FLEN_CARD], targid[FLEN_CARD];
+    char  scobsid[FLEN_CARD], scrnfile[FLEN_CARD], aperf[FLEN_CARD];
+    char  det[FLEN_CARD], bchrfile[FLEN_CARD], aper[5];
+    fitsfile *scrnfits, *bchrfits;
+
+    /*
+     *  Initialize error checking
+     */ 
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+    if ((errflg = cf_proc_check(infits, CF_PRGM_ID))) return errflg;
+
+    /*
+     *  Read header keywords.
+     */
+    FITS_read_key(infits, TFLOAT, "EXPTIME", &exptime, NULL, &status);
+    FITS_read_key(infits, TDOUBLE, "EXPSTART", &expstrt, NULL, &status);
+    FITS_read_key(infits, TSTRING, "PRGRM_ID", progid, NULL, &status);
+    FITS_read_key(infits, TSTRING, "TARG_ID", targid, NULL, &status);
+    FITS_read_key(infits, TSTRING, "SCOBS_ID", scobsid, NULL, &status);
+    FITS_read_key(infits, TSTRING, "EXP_ID", expid, NULL, &status);
+    FITS_read_key(infits, TSTRING, "DETECTOR", det, NULL, &status);
+
+    /*
+     * Exit if EXPTIME is 0.
+     */ 
+    if (exptime < 1) {
+	cf_verbose(1, "EXPTIME = %f.  Exiting.", exptime);
+	return status;
+    }
+
+    /*
+     *  Determine the Julian date and start time from expstrt.
+     */
+    mjd = (int) expstrt;
+    tst = (int) ((expstrt - mjd)*86400.);
+    det[1] = tolower(det[1]);
+
+    /*  Ignore events with arrival times greater than MAX_EXPTIME. */
+    i = nevents - 1;
+    while (ptime[i] > MAX_EXPTIME && i > 0) i--;
+    nevents = i + 1;
+    i = nsec - 1;
+    while (ttime[i] > MAX_EXPTIME && i > 0) i--;
+    nsec = i + 1;
+  
+    /*
+     *  Determine the maximum count rate for the exposure.
+     *  If the count rate is too high, there is the possibility of
+     *  losing counts and of dropouts - Check the count rate and set
+     *  a flag if it is too high.
+     */
+    max_aic_rate = -999.;
+    for (i = 0; i < nsec; i++)
+	if (aic_rate[i] > max_aic_rate) max_aic_rate = aic_rate[i];
+    cf_verbose(2, "Max AIC count rate = %d", cf_nint(max_aic_rate));
+    if(max_aic_rate > 4000) cflg=1;
+
+    /*
+     *  Read the screening parameter file.
+     */
+    FITS_read_key(infits, TSTRING, "SCRN_CAL", scrnfile, NULL, &status);
+    cf_verbose(3, "Screening parameters from %s\n", scrnfile);
+    FITS_open_file(&scrnfits, cf_parm_file(scrnfile), READONLY, &status);
+    FITS_read_key(scrnfits, TLONG, "MNCNT", &mncnt, NULL, &status);
+    FITS_read_key(scrnfits, TLONG, "STDREJ", &stdrej, NULL, &status);
+    FITS_read_key(scrnfits, TLONG, "NBIN", &nbin, NULL, &status);
+    /*
+     *  Set the binning factor to 1 for high count rate data.
+     */
+    if (cflg > 0) {
+        nbin=1;
+        cf_verbose(1, "High count-rate observation: using 1 sec time bins") ;
+    }
+    FITS_read_key(scrnfits,TLONG,"NSMED",&nsmed, NULL, &status);
+    /*
+     *  srcfrac=required fraction of the source intensity for a
+     *  burst to be counted, i.e. the burst must exceed this fraction
+     *  before it is deemed to be significant.
+     */
+    FITS_read_key(scrnfits, TFLOAT, "SRCFRAC", &srcfrac, NULL, &status);
+    FITS_read_key(infits, TSTRING, "APERTURE", aperf, NULL, &status);
+    FITS_close_file(scrnfits, &status);
+
+    cf_verbose(3, "Screening parameters used:");
+    cf_verbose(3, "Minimum count rate = %ld", mncnt);
+    cf_verbose(3, "Detection criterion (num sigma) = %ld", stdrej);
+    cf_verbose(3, "Number of seconds to bin the time sequence = %ld", nbin);
+    cf_verbose(3, "Interval (seconds) used in median filter = %ld", nsmed);
+    cf_verbose(3, "Fraction of source intensity for burst = %f\n", srcfrac);
+    /*
+     *  Select the background extraction regions - RFPT implies
+     *  that there is no source, so the entire detector can be used.
+     */
+    strncpy(aper, aperf, 5);
+    cf_verbose(3, "Aperture designation = %s", aper);
+    if (strcmp ( aper , "RFPT") == 0 ) {
+	cf_verbose(3, "APERTURE = RFPT.  No source in aperture.");
+	ylim[0] = 0;
+	ylim[1] = 1;
+	ylim[2] = 2;
+	ylim[3] = 1020;
+	ylim[4] = 1021;
+	ylim[5] = 1022;
+	ylim[6] = 1022;
+	ylim[7] = 1022;
+    }
+    else {
+	/*
+	 *  open the bchr parameter file
+	 */
+	FITS_read_key(infits, TSTRING, "BCHR_CAL", bchrfile, NULL, &status);
+	cf_verbose(3, "BCHR parameter file: %s", bchrfile);
+	FITS_open_file(&bchrfits, cf_parm_file(bchrfile), READONLY, &status);
+
+	/* Move to the first extension of the BCHR file, which contains
+	   the limits to the background regions */
+	FITS_movabs_hdu(bchrfits, 2, NULL, &status);
+
+	/* Get the column number for the data to be extracted */
+	FITS_get_colnum(bchrfits, CASEINSEN, aper, &lim_col, &status);
+	
+	/* Read the data from the table */
+	FITS_read_col(bchrfits, TSHORT, lim_col, frow, felem, 8, &intnull, 
+		      ylim, &anynull, &status);
+
+	/* Close the bchr file */
+	FITS_close_file(bchrfits, &status);
+    }
+    cf_verbose(3, "Y limits of background region: %d-%d, %d-%d, %d-%d\n",
+	   ylim[0], ylim[1], ylim[2], ylim[3], ylim[4], ylim[5]);
+    /*
+     *  Now get the time sequence and a good time interval flag array.
+     */
+    cf_verbose(3, "nevents = %ld", nevents);
+    mxtime=ptime[nevents-1];
+    nflgarr = cf_nint(mxtime);
+    npts= (int) mxtime/nbin;
+    cf_verbose(3, "Number of points in the (binned) time sequence = %d", npts);
+    cf_verbose(3, "Number of points in the good time flag array = %ld", nflgarr);
+    /*
+     *  Generate arrays to contain the time sequence in the
+     *  background sample regions (cnts) as well as the entire
+     *  detector (gcnts). Also generate an array to contain only
+     *  the bursts (bursts).
+     *  Array bcnts will contain the background count rate.
+     */
+    bcnts  = (int *) cf_calloc(npts, sizeof(int));
+    cnts   = (int *) cf_calloc(npts, sizeof(int));
+    gcnts  = (int *) cf_calloc(npts, sizeof(int));
+    bursts = (int *) cf_calloc(npts, sizeof(int));
+    /* Generate an array to contain the good time flags - this is an array 
+       with 1s time intervals. Each interval is set to a negative number (-1)
+       if it contains a bad time interval or a positive number (1) if it 
+       contains a good time interval. The contents of this array are used to
+       screen the photons and to determine the good time intervals */
+    flgarr = (int*) cf_calloc(nflgarr, sizeof(int) );
+    /* Generate an array with 1s time intervals to contain the day/night
+       information - this will be 1 for night and 0 for day */
+
+    /* Initially flag all of the points with a negative number.
+       The good time intervals will be determined later */
+    for (i=0; intimes;  i++) {
+	 ndxs= (int) gti->start[i]/nbin;
+	   if (ndxs < 0 ) ndxs = 0 ;
+	 ndxe = (int) (0.5 + gti->stop[i]/nbin);
+           if (ndxe > npts-1) ndxe = npts-1;
+	for (j=ndxs; j<= ndxe; j++) {
+	    ngood++;
+	    cnts[j]=0;
+	}
+    }
+    cf_verbose(2, "Number of good time points = %d\n", ngood);
+
+    /* Set the good time flags array to a positive value for all good 
+       time points  */
+
+    for (i=0; i < gti->ntimes;  i++) {
+	ndxs= (int) gti->start[i];
+	    if (ndxs < 0) ndxs = 0 ;
+	ndxe = (int) gti->stop[i];
+	   if (ndxe > nflgarr-1) ndxe=nflgarr-1;
+	for (j=ndxs; j<= ndxe; j++)
+	    flgarr[j]=1;
+    }
+
+    /* Check the timeline-table screening flag and mark all times that have
+       a screening bit set (except for day/night) */
+     for (i=0; i nflgarr-1) ndx = nflgarr-1;
+        if( ndx < 0) ndx = 0 ;
+       ndxb = (int) (0.5 + (float) ndx/ (float) nbin) ;
+        if(ndxb > npts-1) ndxb = npts-1 ;
+        if (ndxb < 0) ndxb=0 ;
+       if (sflag[i] & ~TEMPORAL_DAY) {
+	  flgarr[ndx] = -1 ;
+          cnts[ndxb] = -10 ;
+	}
+    }
+
+    /* Generate the time sequence for the total counts from the detector. 
+       Use only the active area and ignore geocoronal emission. */
+
+    for (i=0; i < nevents; i+=1)
+    if( (locflags[i] & LOCATION_SHLD) == 0 && 
+        (locflags[i] & LOCATION_AIR) == 0 ) {
+	    int ndx = (int) ptime[i]/nbin;
+	    if (ndx > npts-1)
+		ndx=npts-1;
+	    if (ndx < 0)
+		ndx=0;
+	    gcnts[ndx] += 1;
+	}
+    
+    /* Determine the number of rows in the background sample region */
+    for (k=0; k < 3; k++)
+	nrowbkg += ylim[2*k+1] - ylim[2*k];
+    /*  
+     *  Determine the scaling factor needed to convert the measured
+     *  counts in the background regions to an estimate of the
+     *  background counts over the active aperture.
+     */
+    bkgsf= (float) ylim[6]/nrowbkg;
+    bkgsft = (float) ylim[7]/nrowbkg;
+
+    cf_verbose(2, "Rows in target aperture = %d", ylim[6]);
+    cf_verbose(2, "Rows on the detector = %d", ylim[7]);
+    cf_verbose(2, "Rows in background region = %d", nrowbkg);
+    cf_verbose(2, "Scale factor to aperture = %f ", bkgsf);
+    cf_verbose(2, "Scale factor to entire detector = %f", bkgsft);
+        
+    /* Generate the time sequence using only the counts from the three
+       selected background regions - ignore geocoronal lines and times 
+       that have been flagged as bad (with negative count values) */ 
+    for (k=0; k<3; k++) {  
+	short ylow=ylim[2*k];
+	short yhigh=ylim[2*k+1];
+	for (i=0; i < nevents; i+=1) {
+	  if( (locflags[i] & LOCATION_SHLD) == 0 && 
+              (locflags[i] & LOCATION_AIR) == 0 && 
+              (y[i] > ylow) && (y[i] < yhigh) ) {
+		int ndx = (int) ptime[i]/nbin;
+		if (ndx > npts-1)
+		    ndx=npts-1;
+		if (ndx < 0)
+		    ndx=0;
+		if (cnts[ndx] >= 0) cnts[ndx] += 1;
+		bcnts[ndx] ++;
+	    }
+	}
+    }
+    
+    /* Fill background count rate array with cnts array, and divide by nbin
+       to give count rate */
+/*	THIS SCHEME WORKS ONLY IF THERE ARE NO TIME BREAKS IN THE TIMELINE
+ *	TABLE.  SINCE TIME BREAKS ARE COMMON, MUST USE TTIME ARRAY TO MAP
+ *	CNTS ARRAY TO BKGD ARRAY.	WVD 09/15/03
+ *   for (i=0; i nsec-1)
+ *	    ndxe=nsec-1;
+ *	for (j=ndxs;j nflgarr-1)
+	    ndx = nflgarr-1;
+/*	if (cnts[ndx] > 0.)
+  	    bkgd[i] = (short) ((float) cnts[ndx] / nbin + 0.5);
+	else
+	    bkgd[i] = 0;
+*/
+	bkgd[i] = bcnts[ndx] / nbin;
+    }
+    free (bcnts);
+
+    /* Remove the background counts (scaled to the entire detector) from the 
+       measured gross count rate  */
+    for (i=0; i < npts; i++) if (cnts[i] > 0) {
+	gcnts[i] = gcnts[i] - bkgsft*cnts[i];
+	if (gcnts[i] < 0)
+	    gcnts[i] = 0;
+    }
+
+    /* Check for zeros in the count array for high count rate data - these
+       indicate dropouts. If one is found, flag it with a negative number so
+       that the program will ignore it in future analysis */
+    numflg=0;
+     if (cflg > 0) {
+	for (i=0; i < npts; i++) {
+	    if (cnts[i] <= 0.1 ) {
+		numflg += 1;
+		cnts[i]=-10;
+	    }
+	}
+    }
+    cf_verbose(2, "Number of dropouts found = %d", numflg);
+
+    /* Determine the median value of the array */
+    nmax=2000;
+    medval = median(cnts, npts, nmax);
+    cf_verbose(2, "Median value of the entire original array = %d ", medval);
+
+    /* Screen the time series for very large count rates (> 3 x median) */
+    cf_verbose(2, "Searching for large bursts ") ;
+    for ( i=0; i 4*medval) {
+	  cf_verbose(2,"point rej: time=%d, cnts=%d, 4*medval=%d ",
+		     i*nbin, cnts[i], 4*medval) ;
+	    bursts[i] = cnts[i]-medval;
+	    cnts[i] = -100;
+	}
+
+    /* Do a median filter on the pre-filtered array */
+
+    /* Generate the array to contain the median filter */
+    medflt = (int *) cf_calloc(npts, sizeof(int) );
+
+    /*
+     *  Now specify the parameters of the filter - 
+     *  nsmed = number of seconds over which to determine median values
+     *  nflt = number of points in the cnts array over which to
+     *  determine the median value
+     */
+    nflt = nsmed / nbin;
+    niter=0;
+ 
+    cf_verbose(3,"Searching for small bursts - nflt = %d", nflt) ;
+
+    do {
+	median_filter(cnts, npts, nflt, medflt);
+
+	/* Throw out all points which are more than (stdrej) standard
+	   deviations above the median. Also require that the counts exceed
+	   a certain minimum value. */
+	nflg=0;
+	mnburst=mncnt*nbin;
+	for (i=0; i mnburst) && 
+		 (dcnt > stdrej*sqrt((double) cnts[i])) && 
+		 (dcnt*bkgsf > srcfrac*gcnts[i]) ) {
+		nflg++;
+		cf_verbose(2, "point rej: time=%ld, cnts=%d, medflt=%d, "
+		       "dif=%d, gcnts= %d",
+		       i*nbin, cnts[i], medflt[i], dcnt, gcnts[i]);
+		cnts[i] = -100;
+		bursts[i] = dcnt;
+	    }
+	}
+	niter++;
+	cf_verbose(3,"After iteration %d, we found %d times affected by bursts",
+                   niter, nflg) ;
+	/*  Iterate the median filter if any additional points have
+	 *  been modified*/ 
+    } while(nflg > 0 && niter < 10);
+
+    /* Print out the results of the screening 
+       cf_verbose(5, " "); 
+       for (i=0; i nflgarr-nbin-2) 
+		ndxs=nflgarr-nbin-2;
+	    ndxe = ndxs + nbin - 1;
+	    for (j=ndxs; j<=ndxe; j++)
+		flgarr[j] = -10;
+	}
+    }
+
+    /* tabulate the burst times */
+    sprintf(burst_tab, "%4s%2s%2s%3s%2s_bursts.dat", progid, targid, scobsid, expid, det);
+    tab_burst(bursts, npts, nbin, mjd, tst, burst_tab);
+    cf_verbose(3, "Burst properties written to file: %s", burst_tab);
+
+    /* Check the last 2*nbin elements of flgarr. If any of these are set as
+       bad, then set all the end points as bad. The binned count time sequence 
+       will not sample the end of the ovarall time sequence if there is not an 
+       integral number of bins present. We also do not need the last bin if the
+       second-to-last is bad. */
+
+    i=nflgarr-2*nbin;
+    iflg=10;
+    do{ 
+	if (flgarr[i] < -1) {		/* 09/12/03 - wvd - Change from 0 */
+	    for (j=i; j 0 && i < nflgarr);
+
+    /* set the timeline status flag (sflag - TEMPORAL_BRST) for all 
+       times containing bursts */
+    for (i=0; i nflgarr-1)
+	    ndx = nflgarr-1;
+	if (flgarr[ndx] < -1)		/* 09/12/03 - wvd - Change from 0 */
+	    sflag[i] = sflag[i] | TEMPORAL_BRST;
+    }
+    /* deallocate storage space */
+    free(cnts) ;
+    free(gcnts) ;
+    free(flgarr) ;
+    free(medflt) ;
+    free(bursts) ;
+
+    /* Enter a time stamp into the log */
+    cf_proc_update(infits, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing");
+
+    return (status);
+} 
diff --git a/src/libcf/cf_screen_high_voltage.c b/src/libcf/cf_screen_high_voltage.c
new file mode 100644
index 0000000..57a9716
--- /dev/null
+++ b/src/libcf/cf_screen_high_voltage.c
@@ -0,0 +1,146 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:	cf_screen_high_voltage(fitsfile *infits, long nseconds,
+ *              unsigned char *timeline_status, short *timeline_hv);
+ *
+ * Description: Set the screening bit if detector voltage is low.
+ *
+ * Arguments:   fitsfile  *infits       Input FITS file pointer
+ * 		long      nseconds      Number of points in the timeline table
+ * 		unsigned char  *timeline_status   The status flag array
+ * 		short     *timeline_hv  The high voltage array
+ *
+ * Calls:
+ *
+ * Returns:	0 on success
+ *
+ * History:	10/23/02   1.1   jch    Initial coding
+ * 		12/20/02   1.3   jch    Make sure the flags are "unsigned" char
+ *              01/24/03   1.4   rdr    Lower the voltage threshold required 
+ *                                      to flag a time to 95% of the full 
+ *                                      voltage
+ * 		02/11/03   1.6   jch    Skip HV which is negative
+ *              05/20/03   1.7   rdr    Add call to cf_proc_check
+ *              05/22/03   1.8   wvd    Implement cf_verbose
+ *              06/11/03   1.9   wvd    Change HV array to type short.
+ *              06/13/03   1.10  wvd    Change calfusettag.h to calfuse.h
+ *              09/10/03   1.11  wvd    Return errflg from cf_proc_check.
+ *              07/21/04   1.12  wvd    Delete unused variable volt_cor.
+ *              02/17/05   1.13  wvd    Place parentheses around assignment
+ *					used as truth value.
+ *              03/18/05   1.14  wvd    HV can be 0, so test for HV > -1
+ *              03/24/05   1.15  wvd    Read HVGOODLM and HVBADLIM from 
+ *					VOLT_CAL file.  If HV/FULLV drops
+ *					below HVGOODLM, issue warning.
+ *					If it falls below HVBADLM, set
+ *					TEMPORAL_HV flag.
+ *              06/22/06   1.16  wvd    Don't set EXP_STAT keyword.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_screen_high_voltage(fitsfile *infits, long nseconds,
+	       unsigned char *timeline_status, short *timeline_hv)
+{
+    char CF_PRGM_ID[] = "cf_screen_high_voltage";
+    char CF_VER_NUM[] = "1.16";
+
+    char  file_name[FLEN_VALUE], mjd_str[FLEN_VALUE], full_str[FLEN_VALUE];
+    char  datestr[FLEN_VALUE], comment[FLEN_COMMENT], instmode[FLEN_VALUE];
+    int	  errflg=0, status=0, timeref, hvflag=FALSE, n, fullv;
+    long  i;
+    float expstart, hvfrac, hvgood, hvbad, mjdv;
+    fitsfile *scrnfits;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+    if ((errflg = cf_proc_check(infits, CF_PRGM_ID))) return errflg;
+
+    /* Read exposure start time and instrument mode. */
+    FITS_read_key(infits, TFLOAT, "EXPSTART", &expstart, NULL, &status);
+    FITS_read_key(infits, TSTRING, "INSTMODE", instmode, NULL, &status);
+    /*
+     *  Open the high-voltage calibration file.
+     */
+    FITS_read_key(infits, TSTRING, "VOLT_CAL", file_name, NULL, &status);
+    FITS_open_file(&scrnfits, cf_cal_file(file_name), READONLY, &status);
+    /*
+     *  Read the limits of the good and questionable voltage regimes.
+     */
+    FITS_read_key(scrnfits, TFLOAT, "HVGOODLM", &hvgood, NULL, &status);
+    FITS_read_key(scrnfits, TFLOAT, "HVBADLIM", &hvbad,  NULL, &status);
+    /*
+     *  Read full-voltage level in use at time of observation.
+     */
+    n = 0;
+    do {
+	n++;
+	sprintf(mjd_str, "MJD%d", n);
+	FITS_read_key(scrnfits, TFLOAT, mjd_str, &mjdv, NULL, &status);
+    } while (expstart > mjdv);
+    n--;
+
+    sprintf(full_str, "FULL%d", n);
+    FITS_read_key(scrnfits, TINT, full_str, &fullv, NULL, &status);
+    FITS_close_file(scrnfits, &status);
+
+    /*
+     *  Check for low values of the detector voltage.
+     *  Set the high voltage bit if timeline_hv/fullv < hvbad.
+     */
+        cf_verbose(2, "Threshold voltage = %d", cf_nint(hvbad * fullv)) ; 
+
+    for (i = 0; i < nseconds; i++) if (timeline_hv[i] > -1) {
+	hvfrac = timeline_hv[i] / (float) fullv;
+	if (hvfrac < hvgood) {
+	    if (hvfrac < hvbad) timeline_status[i] |= TEMPORAL_HV; 
+	    else hvflag = TRUE;
+	}
+    }
+
+    /*
+     *  If the detector voltage ever falls between the good and bad
+     *  levels, issue a stern warning to the user.
+     */
+    if (hvflag) {
+	/* Write warning to trailer file. */
+	if (!strncmp(instmode, "HIST", 4))
+	cf_if_warning("Detector voltage is < 90%% of optimal value.  "
+	"Check photometry and wavelength scale.");
+	else
+	cf_if_warning("Detector voltage is < 90%% of optimal value.  "
+	"Check pulse-height distribution.");
+
+	/* Write warning to IDF file header. */
+	FITS_write_comment(infits, " ", &status);
+	FITS_write_comment(infits,
+	"Detector voltage is less than 90%% of optimal value.", &status);
+	if (!strncmp(instmode, "HIST", 4)) {
+	FITS_write_comment(infits,
+	"Carefully examine these data for photometric errors", &status);
+	FITS_write_comment(infits, "and walk effects.", &status);
+	}
+	else {
+	FITS_write_comment(infits,
+	"Carefully examine the pulse height distribution of photons", &status);
+	FITS_write_comment(infits,
+	"in the target aperture before accepting these data.", &status);
+	}
+	fits_get_system_time(datestr, &timeref, &status);
+	sprintf(comment, "CalFUSE v%s   %.10s", CALFUSE_VERSION, datestr);
+	FITS_write_comment(infits, comment, &status);
+	FITS_write_comment(infits, "  ", &status);
+    }
+
+    cf_proc_update(infits, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return status;
+}
diff --git a/src/libcf/cf_screen_jitter.c b/src/libcf/cf_screen_jitter.c
new file mode 100644
index 0000000..68327a0
--- /dev/null
+++ b/src/libcf/cf_screen_jitter.c
@@ -0,0 +1,246 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center for Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_screen_jitter (infile, nsec, ttime, status_flag)
+ *
+ * Description: Flag times when target is out of the aperture or pointing
+ *		is known to be bad.  Read the minimum trustworthy TRKFLG 
+ *		value and aperture limits from the parameter file.
+ *		
+ *              Key to new TRKFLG values:
+ *      	5 = dx, dy from known FPDs and q_cmd from telemetry
+ *      	4 = good dx, dy from ACS q_est and q_cmd from telemetry
+ *      	3 = maybe good dx, dy from ACS q_est
+ *      	2 = dx, dy from known FPDs, q_cmd from FITS header coordinates
+ *      	1 = dx, dy from ACS q_est, q_cmd from FITS header coordinates
+ *      	0 = no pointing information (missing telemetry)
+ *             -1 = Pointing is assumed to be bad (never achieved known track)
+ *
+ * Arguments:   fitsfile  infile        Pointer to the IDF
+ *              long      nsec          Number of seconds in the timeline
+ *              long      *ttime        time (sec) of each point in the timeline
+ *     unsigned char      *status_flag  Timeline status flags
+ *
+ * Returns:	0 upon success
+ *
+ * History:     11/29/05   v1.1   wvd   Adapted from cf_satellite_jitter
+ *		03/28/06    1.2   wvd	Test both dx and dy.
+ *		05/09/06    1.3   wvd	Apply jitter screening to RFPT obs.
+ *		06/12/06    1.4   wvd	Call cf_verbose when jitter file not
+ *					found.
+ *		08/21/06    1.5   wvd	Use EXPSTART in jitter and data
+ *					headers to correct jitter time array.
+ *		08/25/06    1.6   wvd	Change meaning of TRKFLG values.
+ *					TRKFLG = 3 is only used internally.
+ *		11/06/06    1.7   wvd	Change meaning of TRKFLG values.
+ *					Read minimum TRKFLG value and
+ *					aperture limits from parmfile.
+ *					Require jitter file version >= 3.0.
+ *					Don't screen moving targets.
+ *					Bail out only if JIT_STAT = 1.
+ *		12/29/06    1.8   wvd	Exit if JIT_VERS < 3.0.
+ *              03/23/07    1.9   wvd   Store offset between the jitter and 
+ *					data values of EXPSTART in variable
+ *					time_diff.
+ *              04/07/07    1.10  wvd   Clean up compiler warnings.
+ *              08/16/07    1.11  wvd   Don't apply jitter correction to
+ *					observations taken after the 
+ *					spacecraft lost pointing control.
+ *              07/25/08    1.12  wvd   Use EXP_STAT keyword, rather than
+ *					file name, to check for bright-earth
+ *					or airglow observations.
+ *              11/21/08    1.13  wvd   Don't apply jitter correction to
+ *					ERO observations of Jupiter.
+ *					
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+#define	JIT_VERS_MIN	3.0
+#define	BAD_TRKFLG	-1
+#define LAST_MJD	54300.
+
+int
+cf_screen_jitter(fitsfile *infits, long nsec, float *ttime,
+	unsigned char *status_flag)
+{
+    char CF_PRGM_ID[] = "cf_screen_jitter"; 
+    char CF_VER_NUM[] = "1.13";
+
+    char  jitr_cal[FLEN_VALUE], parmfile[FLEN_VALUE];
+    char  comment[FLEN_COMMENT], hkexists[FLEN_VALUE], jit_vers[FLEN_VALUE];
+    char  mov_targ[FLEN_VALUE], program[FLEN_VALUE];
+    int   errflg=0, status=0, expstat, jitter_status, hdutype;
+    long  j, k, njitr, *time_jit, time_diff;
+    short *trkflg, trkflg_min;
+    double data_expstart, jitr_expstart;
+    float *dx_jit, *dy_jit, dx_max, dy_max;
+    fitsfile  *jitfits, *parmfits;
+
+    /* Initialize error checking */ 
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    /* Enter a time stamp into the log */
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    /* Read exposure start time from IDF header */
+    FITS_read_key(infits, TDOUBLE, "EXPSTART", &data_expstart, NULL, &status);
+
+    /* Check whether program is appropriate for this data set. */
+    if ((errflg = cf_proc_check(infits, CF_PRGM_ID))) return errflg;
+
+    /* Don't apply jitter screening to bright-earth or airglow observations. */
+    FITS_read_key(infits, TINT, "EXP_STAT", &expstat, NULL, &status);
+    if (expstat == (int) TEMPORAL_LIMB) {
+        cf_verbose(1, "Bright-earth or airglow observation.  ",
+	"No jitter correction.");
+        cf_proc_update(infits, CF_PRGM_ID, "SKIPPED");
+        cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing");
+        return 0;
+    }
+
+    /* Don't apply jitter screening to moving targets. */
+    FITS_read_key(infits, TSTRING, "MOV_TARG", mov_targ, NULL, &status);
+    if (!strncmp(mov_targ, "M", 1)) {
+        cf_verbose(1, "Moving-target observation.  No jitter correction.");
+        cf_proc_update(infits, CF_PRGM_ID, "SKIPPED");
+        cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing");
+        return 0;
+    }
+
+    /* Don't apply jitter screening to ERO observations of Jupiter. */
+    FITS_read_key(infits, TSTRING, "PRGRM_ID", program, NULL, &status);
+    if (!strncmp(program, "X006", 4)) {
+        cf_verbose(1, "Moving-target observation.  No jitter correction.");
+        cf_proc_update(infits, CF_PRGM_ID, "SKIPPED");
+        cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing");
+        return 0;
+    }
+
+    /* Don't apply jitter screening after pointing control is lost. */
+    if (data_expstart > LAST_MJD) {
+        cf_verbose(1, "No pointing control.  No jitter correction.");
+        cf_proc_update(infits, CF_PRGM_ID, "SKIPPED");
+        cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing");
+        return 0;
+    }
+
+    /* Check HKEXISTS before looking for jitter file. */
+    FITS_read_key(infits, TSTRING, "HKEXISTS", hkexists, NULL, &status);
+    if(!strncasecmp(hkexists, "N", 1) || !strncasecmp(hkexists, "n", 1)) {
+        cf_verbose(1, "HKEXISTS = %s.  No jitter correction.", hkexists);
+        cf_proc_update(infits, CF_PRGM_ID, "SKIPPED");
+        cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing");
+        return 0;
+    }
+
+    /* Try to open the jitter file. */
+    FITS_read_key(infits, TSTRING, "JITR_CAL", jitr_cal, NULL, &status);
+    fits_open_file(&jitfits, jitr_cal, READONLY, &status);
+
+    /* If the jitter file is not found, try a lower-case filename. */
+    if (status != 0) {
+        status = 0;
+        jitr_cal[0] = (char) tolower(jitr_cal[0]);
+        fits_open_file(&jitfits, jitr_cal, READONLY, &status);
+    }
+
+    /* If the jitter file is still not found, exit the program */
+    if (status != 0) {
+        cf_verbose(1, "Jitter file not found.  No jitter correction.");
+        cf_proc_update(infits, CF_PRGM_ID, "SKIPPED");
+        cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing");
+        return 0;
+    }
+    cf_verbose(3, "Jitter calibration file = %s", jitr_cal);
+
+    /* Check status keyword in jitter file.  Exit if missing or non-zero. */
+    fits_read_key(jitfits, TINT, "JIT_STAT", &jitter_status, comment, &status);
+    if (status != 0) {
+	status = 0;
+	cf_verbose(1, "Keyword JIT_STAT not found. No jitter correction.");
+	cf_proc_update(infits, CF_PRGM_ID, "SKIPPED");
+	cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing");
+	return 0;
+    }
+    if (jitter_status == 1) {
+	cf_verbose(1, "Keyword JIT_STAT = %d.  No jitter correction.",
+	jitter_status) ;
+	cf_proc_update(infits, CF_PRGM_ID, "SKIPPED");
+	cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing");
+	return 0;
+    }
+
+    /* Read exposure start time from jitter file header */
+    FITS_read_key(jitfits, TDOUBLE, "EXPSTART", &jitr_expstart, NULL, &status);
+
+    /* Check JIT_VERS keyword.  Exit if missing or value too low. */
+    fits_read_key(jitfits, TSTRING, "JIT_VERS", jit_vers, NULL, &status);
+    if (status != 0 || atof(jit_vers) < JIT_VERS_MIN) {
+	status = 0;
+	cf_verbose(1, "Jitter file format is out of date. No jitter correction.");
+	cf_proc_update(infits, CF_PRGM_ID, "SKIPPED");
+	cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing");
+	return 0;
+    }
+
+    /* Read the jitter file. */
+    FITS_movabs_hdu(jitfits, 2, &hdutype, &status);
+    njitr=cf_read_col(jitfits, TLONG, "TIME", (void **) &time_jit);
+    njitr=cf_read_col(jitfits, TFLOAT, "DX", (void **) &dx_jit);
+    njitr=cf_read_col(jitfits, TFLOAT, "DY", (void **) &dy_jit);
+    njitr=cf_read_col(jitfits, TSHORT, "TRKFLG", (void **) &trkflg);
+    FITS_close_file(jitfits, &status);
+
+    /* Correct for difference in data and jitter EXPSTART times */
+    time_diff = cf_nlong((data_expstart - jitr_expstart) * 86400.);
+    cf_verbose(2, "Offset between IDF and jitter EXPSTART values: %d sec",
+	time_diff);
+    for (j=0; j< njitr; j++) time_jit[j] -= time_diff;
+
+    /* Read minimum TRKFLG value and aperture boundaries from PARM_CAL file */
+    FITS_read_key(infits, TSTRING, "PARM_CAL", parmfile, NULL, &status);
+    FITS_open_file(&parmfits, cf_parm_file(parmfile), READONLY, &status);
+    FITS_read_key(parmfits, TSHORT, "TRKFLG", &trkflg_min, NULL, &status);
+    FITS_read_key(parmfits, TFLOAT, "DX_MAX", &dx_max, NULL, &status);
+    FITS_read_key(parmfits, TFLOAT, "DY_MAX", &dy_max, NULL, &status);
+    FITS_close_file(parmfits, &status);
+
+    /* Reject times when tracking is good, but target is out of aperture. */
+    for (j=0; j< njitr; j++) {
+	if (trkflg[j] >= trkflg_min  && 
+		(dx_jit[j] < -dx_max || dx_jit[j] > dx_max ||
+		 dy_jit[j] < -dy_max || dy_jit[j] > dy_max)) {
+	    trkflg[j] = BAD_TRKFLG;
+	}
+    }
+
+    /*
+     * Map times in the jitter file to times in the timeline table.
+     * If trkflg[j] = BAD_TRKFLG, set the jitter flag in the timeline
+     * status array.
+     */
+    for (j=k=0; k < nsec; k++) {
+	while ((float) time_jit[j+1] < ttime[k] && j+1 < njitr) j++;
+	if (trkflg[j] == BAD_TRKFLG) {
+	    status_flag[k] |= TEMPORAL_JITR;
+	}
+    }
+
+    /* Deallocate storage space */
+    free(time_jit);
+    free(dy_jit);
+    free(trkflg);
+   
+    cf_proc_update(infits, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing");
+
+    return (status);
+}
diff --git a/src/libcf/cf_screen_limb_angle.c b/src/libcf/cf_screen_limb_angle.c
new file mode 100644
index 0000000..5e2f54b
--- /dev/null
+++ b/src/libcf/cf_screen_limb_angle.c
@@ -0,0 +1,87 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_screen_limb_angle(fitsfile *infits, long nseconds,
+ *                                   unsigned char *timeline_status,
+ *                                   float *timeline_limb);
+ *
+ * Description: Set the screening bit due to limb angle constraint.
+ *
+ * Arguments:   fitsfile  *infits       Input FITS file pointer
+ *              long      nseconds      Number of points in the timeline table
+ *              unsigned char  *timeline_status   The status flag array
+ * 		float     *timeline_limb The limb angle distance array
+ *
+ * Calls:
+ *
+ * Returns:	0 on success
+ *
+ * History:	10/21/02   1.1   jch    Initial coding
+ * 		12/20/02   1.3   jch    Make sure the flags are unsigned char
+ *              05/20/03   1.4   rdr    Added call to cf_proc_check
+ *              09/10/03   1.5   wvd    Move test of LIMB_SCR to cf_fuv_init.
+ *              07/21/04   1.7   wvd    Delete unused variable limb_cor.
+ *              02/17/05   1.8   wvd    Place parentheses around assignment
+ *                                      used as truth value.
+ *              03/30/05   1.9   wvd    Write BRITLIMB and DARKLIMB keywords
+ *					to IDF file header.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_screen_limb_angle(fitsfile *infits, long nseconds, 
+		unsigned char *timeline_status, float *timeline_limb)
+{
+    char CF_PRGM_ID[] = "cf_screen_limb_angle";
+    char CF_VER_NUM[] = "1.9";
+
+    int	  errflg=0, status=0;
+    long  i;
+    char  file_name[FLEN_VALUE];
+    double angle, britlimb, darklimb;
+    fitsfile  *scrnfits;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    if ((errflg = cf_proc_check(infits, CF_PRGM_ID))) return errflg;
+
+    /*
+     *  Open the screening parameters file and read the parameters.
+     */
+    FITS_read_key(infits, TSTRING, "SCRN_CAL", file_name, NULL, &status);
+    FITS_open_file(&scrnfits, cf_parm_file(file_name), READONLY, &status);
+
+    FITS_read_key(scrnfits, TDOUBLE, "BRITLIMB", &britlimb, NULL, &status);
+    FITS_read_key(scrnfits, TDOUBLE, "DARKLIMB", &darklimb, NULL, &status);
+    /*
+     *  Write BRITLIMB and DARKLIMB keywords to IDF file header.
+     */
+    FITS_update_key(infits, TDOUBLE, "BRITLIMB", &britlimb, NULL, &status);
+    FITS_update_key(infits, TDOUBLE, "DARKLIMB", &darklimb, NULL, &status);
+    /*
+     *  If the limb angle is less than the limit, set the limb-angle bit.
+     *  Use day or night limit as appropriate.
+     */
+    for (i = 0; i < nseconds; i++) {
+        angle = darklimb;
+        if ((timeline_status[i] & TEMPORAL_DAY) == TEMPORAL_DAY) {
+	    angle = britlimb;
+        }
+        if (timeline_limb[i] < angle) {
+	     timeline_status[i] |= TEMPORAL_LIMB; 
+        }
+    }
+    FITS_close_file(scrnfits, &status);
+    
+    cf_proc_update(infits, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return status;
+}
diff --git a/src/libcf/cf_screen_pulse_height.c b/src/libcf/cf_screen_pulse_height.c
new file mode 100644
index 0000000..3b2c43e
--- /dev/null
+++ b/src/libcf/cf_screen_pulse_height.c
@@ -0,0 +1,79 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_screen_pulse_height(fitsfile *infits, long nevents,
+ *                              unsigned char *photon_ph, 
+ *				unsigned char *photon_locflag);
+ *
+ * Description: Set the screening bit according to PHA limits.
+ *
+ * Arguments:   fitfile  *infits        Input FITS file pointer
+ *              long     nevents        Number of points in the photon list
+ *              unsigned char     *photon_ph     The photon pulse height array
+ *              unsigned char     *photon_locflag The photon location array
+ *
+ * Returns:	0 on success
+ *
+ * History:	11/01/02   1.1   jch    Initial coding
+ * 		12/20/02   1.3   jch    Make sure the flags are "unsigned" char
+ *              02/14/03   1.4   rdr    Update phalow and phahigh keywords
+ *                                       in the IDF
+ *              05/20/03   1.5   rdr    Add call to cf_proc_check
+ *              09/10/03   1.6   wvd    Write NBADPHA as type LONG.
+ *              10/02/03   1.7   wvd    Move PHA bit from TEMPORAL to 
+ *					LOCATION flags.
+ *              05/04/04   1.9   bjg    Cosmetic change to prevent 
+ *                                      compiler warning with gcc -Wall
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_screen_pulse_height(fitsfile *infits, long nevents, unsigned char *photon_ph,
+		       unsigned char *photon_locflag)
+{
+    char CF_PRGM_ID[] = "cf_screen_pulse_height";
+    char CF_VER_NUM[] = "1.9";
+
+    char  scrnfile[FLEN_VALUE];
+    unsigned char  phalow, phahigh;
+    int	  errflg=0, status=0;
+    long  i, nbadpha=0;
+    fitsfile *scrnfits;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    if ((errflg = cf_proc_check(infits, CF_PRGM_ID))) return errflg;
+
+     /*
+     *  Open the screening parameters file and read the parameters.
+     */
+    FITS_read_key(infits, TSTRING, "SCRN_CAL", scrnfile, NULL, &status);
+    FITS_open_file(&scrnfits, cf_parm_file(scrnfile), READONLY, &status);
+    FITS_read_key(scrnfits, TBYTE, "PHALOW", &phalow, NULL, &status);
+    FITS_read_key(scrnfits, TBYTE, "PHAHIGH", &phahigh, NULL, &status);
+    FITS_close_file(scrnfits, &status);
+    /*
+     *  Set the pulse-height bit if pulse height is outside limits.
+     */
+    for (i = 0; i < nevents; i++) {
+	if (photon_ph[i] < phalow || photon_ph[i] > phahigh) {
+	    photon_locflag[i] |= LOCATION_PHA; 
+	    nbadpha++;
+	}
+    }
+    FITS_update_key(infits, TLONG, "NBADPHA", &nbadpha, NULL, &status);
+    FITS_update_key(infits, TBYTE, "PHALOW",  &phalow,  NULL, &status);
+    FITS_update_key(infits, TBYTE, "PHAHIGH", &phahigh, NULL, &status);
+    
+    cf_proc_update(infits, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return status;
+}
diff --git a/src/libcf/cf_screen_saa.c b/src/libcf/cf_screen_saa.c
new file mode 100644
index 0000000..c79dc6e
--- /dev/null
+++ b/src/libcf/cf_screen_saa.c
@@ -0,0 +1,83 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_screen_saa(fitsfile *infits, long nseconds,
+ *                            unsigned char *timeline_status, 
+ *			      float *timeline_long, float *timeline_lat);
+ *
+ * Description: Set the screening bit due to SAA boundary.
+ *
+ * Arguments:   fitsfile  *infits       Input FITS file pointer
+ *              long      nseconds      Number of points in the timeline table
+ *              unsigned char  *timeline_status The status flag array
+ *              float     *timeline_long The longitude array
+ *              float     *timeline_lat  The latitude array
+ *
+ * Calls:	saa
+ *
+ * Returns:	0 on success
+ *
+ * History:	10/29/02   1.1   jch    Initial coding
+ * 		12/20/02   1.3   jch    Include reading SAA table here
+ * 		12/20/02   1.4   wvd    Delete call to calfuse.h 
+ *              05/20/03   1.5   rdr    Add call to cf_proc_check
+ *              08/28/03   1.6   bjg    New definition of structure saareg
+ * 		09/02/03   1.7   wvd    Change calfusettag.h to calfuse.h
+ * 		09/10/03   1.8   wvd    Tidy up code.
+ *              02/17/05   1.9   wvd    Place parentheses around assignment
+ *                                      used as truth value.
+ *
+ ****************************************************************************/
+
+#include 
+
+#include "calfuse.h"
+
+int
+cf_screen_saa(fitsfile *infits, long nseconds, unsigned char *timeline_status,
+	      float *timeline_long, float *timeline_lat)
+{
+    char CF_PRGM_ID[] = "cf_screen_saa";
+    char CF_VER_NUM[] = "1.9";
+
+    char  saa_cal[FLEN_VALUE];
+    int   errflg=0, status=0, hdutype;
+    long  i;
+    saareg saa_bounds;
+    fitsfile *saafits;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+    if ((errflg = cf_proc_check(infits, CF_PRGM_ID))) return errflg;
+
+    /*
+     *  Read SAA boundaries from the specified calibration file.
+     */
+    FITS_read_key(infits, TSTRING, "SAAC_CAL", saa_cal, NULL, &status);
+    FITS_open_file(&saafits, cf_cal_file(saa_cal), READONLY, &status);
+    FITS_movabs_hdu(saafits, 2, &hdutype, &status);
+
+    saa_bounds.n_points =
+	   cf_read_col(saafits, TFLOAT, "LATITUDE",  (void **) &(saa_bounds.lat));
+    (void) cf_read_col(saafits, TFLOAT, "LONGITUDE", (void **) &(saa_bounds.lon));
+    
+    fits_close_file(saafits, &status);
+
+    /*
+     *  Set the SAA boundary bit if in SAA
+     */
+    for (i = 0; i < nseconds; i++) {
+	if (saa(&saa_bounds, (double)timeline_long[i], (double)timeline_lat[i])) {
+	    timeline_status[i] |= TEMPORAL_SAA; 
+	}
+    }
+    free(saa_bounds.lon);
+    free(saa_bounds.lat);
+
+    cf_proc_update(infits, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return status;
+}
diff --git a/src/libcf/cf_set_good_time_intervals.c b/src/libcf/cf_set_good_time_intervals.c
new file mode 100644
index 0000000..2ed0d54
--- /dev/null
+++ b/src/libcf/cf_set_good_time_intervals.c
@@ -0,0 +1,157 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_set_good_time_intervals(fitsfile *infits, long nseconds,
+ *                          float *timeline_time, 
+ *			    unsigned char *timeline_status, GTI *gti);
+ *
+ * Description: Compute the new good time intervals based on the timeline 
+ *              status flag.
+ *
+ * Arguments:   fitsfile   *infits        	Input FITS file pointer
+ *              long       nseconds       	Length of timeline table
+ *              float      *timeline_time 	Time array of timeline list
+ *     	   unsigned char   *timeline_status    	Status array of timeline list
+ *              GIT        *gti           	Good time interval(s)
+ *
+ * Calls:
+ *
+ * Returns:     0 on success
+ *              -1 on error
+ *
+ * History:     11/01/02   1.1   jch    Initial coding
+ * 		12/20/02   1.3   jch    Make sure that flags are unsigned char
+ *		05/09/03   1.4   wvd	Include D/N screening in GTI's.
+ *					Calculate EXPTIME as SUM (GTI's).
+ *					Update header keyword EXPTIME.
+ *              05/20/03   1.5   rdr    Add call to cf_proc_check
+ *              05/29/03   1.6   wvd    Allow lower-case value of DAYNIGHT.
+ *					Correct bug in calculation of gti.stop 
+ *					If in HIST mode, ignore LIMB, SAA,
+ *					and BRST flags.
+ *              09/10/03   1.7   wvd    Change calfusettag.h to calfuse.h
+ *              10/13/03   1.8   wvd    Modify for new timeline table format.
+ *					No time skips.
+ *              04/20/04   1.9   bjg    Remove unused variables
+ *              12/01/04   1.10  bjg    Set gti start and stop to zero 
+ *                                      for the single GTI when there are no
+ *                                      Good Times.
+ *              08/23/07   1.11  wvd    Change malloc to cf_malloc.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_set_good_time_intervals(fitsfile *infits, long nseconds,
+	float *timeline_time, unsigned char *timeline_status, GTI *gti)
+{
+    char CF_PRGM_ID[] = "cf_set_good_time_intervals";
+    char CF_VER_NUM[] = "1.11";
+
+    char   daynight[FLEN_VALUE], instmode[FLEN_VALUE];
+    int	   in_bad;  		   /* True between good-time intervals */
+    int    day=FALSE, night=FALSE, errflg=0, status=0;
+    long   j, jj;
+    float  exptime=0.;
+    double last_good_time=-99;
+    unsigned char TEMPORAL_MASK;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    if ((errflg = cf_proc_check(infits, CF_PRGM_ID) )) return errflg;
+
+    /* Read and interpret DAYNIGHT keyword. */
+
+    FITS_read_key(infits, TSTRING, "DAYNIGHT", daynight, NULL, &status);
+    if (!strncmp(daynight, "D", 1) || !strncmp(daynight, "d", 1)) {
+        day = TRUE;
+    }
+    else if (!strncmp(daynight, "N", 1) || !strncmp(daynight, "n", 1)) {
+        night = TRUE;
+    }
+    else if (!strncmp(daynight, "B", 1) || !strncmp(daynight, "b", 1)) {
+        day = night = TRUE;
+    }
+    else
+        cf_if_error("Unknown DAYNIGHT keyword value: %s", daynight);
+    cf_verbose(3, "DAYNIGHT flag set to %s", daynight);
+
+    /* 
+     *  Read INSTMODE keyword.  If in HIST mode, mask out
+     *  LIMB, SAA, and BRST flags.  TEMPORAL_DAY is the default.
+     */
+    TEMPORAL_MASK = TEMPORAL_DAY;
+    FITS_read_key(infits, TSTRING, "INSTMODE", instmode, NULL, &status);
+    if (!strncmp(instmode, "HIST", 4)) {
+	TEMPORAL_MASK |= TEMPORAL_LIMB;
+	TEMPORAL_MASK |= TEMPORAL_SAA;
+	TEMPORAL_MASK |= TEMPORAL_BRST;
+    }
+
+    /*
+     *  Determine limits of good-time intervals.
+     */
+    gti->start = (double *) cf_malloc(sizeof(double)*nseconds);
+    gti->stop  = (double *) cf_malloc(sizeof(double)*nseconds);
+
+    in_bad = TRUE;
+    jj = -1;
+    for (j = 0; j < nseconds; j++) {
+        /*
+         *  If we are in a good time interval and were in a bad one,
+	 *  increment jj and set gti->start.
+         */
+        if (!(timeline_status[j] & ~TEMPORAL_MASK) &&
+            ((day   && (timeline_status[j] & TEMPORAL_DAY)) ||
+             (night && (timeline_status[j] ^ TEMPORAL_DAY)))) {
+	    if (in_bad) {
+		jj++;
+		gti->start[jj] = timeline_time[j];
+		in_bad = FALSE;
+	    }
+        /*
+         *  If we are in a good time interval and were in a good one,
+	 *  update last_good_time.
+         */
+	    last_good_time = timeline_time[j];
+	}
+        /*
+         *  If we are in a bad time interval and were in a good one,
+	 *  set in_bad to TRUE and update gti->stop.
+         */
+	else if (in_bad == FALSE) {
+	    gti->stop[jj] = timeline_time[j];
+	    in_bad = TRUE;
+	}
+    }
+    gti->ntimes = jj + 1;
+
+    /* If the entire exposure is bad, return a zero-length GTI. */
+    if (gti->ntimes == 0) {
+	gti->ntimes = 1;
+	gti->start[0] = gti->stop[0] = 0;
+    }
+
+    /* Calculate total exposure time and write it to file header */
+    for (j = 0; j < gti->ntimes; j++)
+	exptime += gti->stop[j] - gti->start[j];
+    FITS_update_key(infits, TFLOAT, "EXPTIME", &exptime, NULL, &status);
+
+    /* Results to trailer file. */
+    cf_verbose(2, "GTI's:\t START\t  STOP");
+    for (j = 0; j < gti->ntimes; j++)
+        cf_verbose(2, "%3d\t%6.0f\t%6.0f", j, gti->start[j], gti->stop[j]);
+    cf_verbose(2, "Total EXPTIME = %6.0f", exptime);
+
+    cf_proc_update(infits, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return status;
+}
diff --git a/src/libcf/cf_set_photon_flags.c b/src/libcf/cf_set_photon_flags.c
new file mode 100644
index 0000000..de2b623
--- /dev/null
+++ b/src/libcf/cf_set_photon_flags.c
@@ -0,0 +1,425 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_set_photon_flags(fitsfile *infits, long nevents,
+ *                                  float *photon_time, 
+ *				    float *photon_weight,
+ *				    unsigned char *photon_status,
+ *				    unsigned char *photon_locflag,
+ *                                  long nseconds, float *timeline_time,
+ *                                  unsigned char *timeline_status);
+ *
+ * Description: Copy status flags from the timeline table to the photon list.
+ *		Update header keywords.
+ *
+ *		For histogram data, we set only the DAY flag.
+ *		Other situations are treated as follows:
+ *
+ *		DAY      All photons flagged if exposure >10% day
+ *
+ *		LIMB     True for all if true for one.
+ *		SAA      Do not flag photons or modify EXPTIME.
+ *		BRST     Instead, set header keyword EXP_STAT.
+ *			 Ignore all violations during the 
+ *			 first and last 20 seconds of an exposure.
+ *
+ *		HV	 Modify EXPTIME, but do not flag photons.
+ *		JITR     Ditto.
+ *
+ *		OPUS     Ignore for now.
+ *		USER	 Ignore for now.
+ *
+ * Arguments:   fitsfile *infits        Input FITS file pointer
+ *              long     nevents        Number of points in the photon list
+ *              float    *photon_time	Time array of photon events
+ *              float    *photon_weight Scale factor for each photon
+ *              unsigned char  *photon_status	Status flags for photon events
+ *              unsigned char  *photon_locflag  Location flags for photon events
+ *              long     nseconds       Number of points in the timeline table
+ *              float    *timeline_time Time array of timeline list
+ *              unsigned char  *timeline_status Status flags for timeline list
+ *
+ * Calls:
+ *
+ * Returns:	0 on success
+ *
+ * History:	10/31/02   1.1   jch    Initial coding
+ * 		12/20/02   1.3   jch    Make sure the flags are "unsigned" char
+ *		05/09/03   1.4   wvd	Change EXP* keywords to type long.
+ *					Consider DAYNIGHT keyword in evaluation
+ *					of NBADEVNT and EXP_BAD.
+ *					Use frame_tolerance in time comparison.
+ *					Use photon_locflag in counting NBADEVNT
+ *               05/20/03  1.5   rdr    Add call to cf_proc_check
+ *               05/29/03  1.6   wvd    Modify to handle HIST data:
+ *					Use single flag for all photon events.
+ *					Ignore LIMB, SAA, and BRST flags when
+ *					counting EXP_BAD.  Scale NBADEVNT by
+ *					photon_weight[i]/TOT_DEAD.
+ *               06/02/03  1.7   wvd    Properly deal with GTI's.
+ *               07/14/03  1.8   wvd    Read DAYNIGHT from SCRN_CAL and 
+ *					populate IDF header keyword.
+ *					Use FRAME_TOLERANCE from calfuse.h.
+ *               09/15/03  1.9   wvd    Copy flags only to photons whose times
+ *					are within 1s of timeline table time.
+ *               10/02/03  1.10  wvd    Change timeline table: no breaks in
+ *					time; add TEMPORAL_OPUS flag.
+ *               10/13/03  1.11  wvd    Use same scheme for calculating
+ *					EXP_BAD and exp_screen.
+ *               04/20/04  1.12  bjg    Cosmetic change to prevent 
+ *                                      compiler warning with gcc -Wall 
+ *               05/20/04  1.13  wvd	Don't flag HIST photons as bad
+ *					when HV or JITR are bad.
+ *					We'll reduce EXPTIME instead.
+ *               06/01/04  1.14  wvd	For HIST data, set only DAY flag.
+ *					Write other flags to EXP_STAT keyword.
+ *               06/28/04  1.15  wvd	If > 90% of exposure is lost to a
+ *					burst, jitter, etc., write cause to
+ *					trailer file.
+ *               03/24/05  1.16  wvd	If EXP_STAT != 0, don't change it.
+ *               01/01/07  1.17  wvd	Remove mention of FIFO flag.
+ *               07/18/08  1.18  wvd	If EXP_STAT = 2, target is bright
+ *					earth or airglow. Set limb-angle 
+ *					flags to zero.
+ *               08/22/08  1.19  wvd	Compare EXP_STAT to TEMPORAL_LIMB, 
+ *					rather than a particular value.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+#define HIST_PAD 20	/* Ignore first and last 20 s of each exposure. */
+
+/*
+ *  Compute integration time lost to a particular screening step.
+ *  Ignore times outside of OPUS-defined good-time intervals.
+ */
+static long
+time_loss(long nseconds, unsigned char *timeline_status,
+	unsigned char criterion)
+{
+    long exp_screen = 0, j;
+
+    for (j = 0; j < nseconds; j++) {
+	if (timeline_status[j] & TEMPORAL_OPUS) continue;
+	if (timeline_status[j] & criterion) exp_screen++;
+    }
+
+    return(exp_screen);
+}
+
+
+/*
+ *  Compute integration time lost to a particular screening step,
+ *  but ignore first and last HIST_PAD seconds of exposure.
+ */
+static long
+time_loss_pad(long nseconds, unsigned char *timeline_status,
+	unsigned char criterion)
+{
+    long exp_screen = 0, j;
+
+    for (j = HIST_PAD; j < nseconds - HIST_PAD; j++) {
+	if (timeline_status[j] & TEMPORAL_OPUS) continue;
+	if (timeline_status[j] & criterion) exp_screen++;
+    }
+    return (exp_screen);
+}
+
+
+/*
+ *  In HIST mode, generate a status flag good for all photons.
+ *  Except for D/N flag, we ignore first and last 20 seconds of exposure.
+ *  D/N flag is written to TEMPORAL_MASK.
+ *  LIMB/SAA/BRST flags are written to EXP_STAT.
+ */
+static void
+generate_temporal_mask(float rawtime, long nseconds, float *timeline_time,
+	unsigned char *timeline_status, unsigned char *TEMPORAL_MASK,
+	unsigned char *EXP_STAT, char *comment)
+{
+    long exp_day;
+
+    *EXP_STAT = *TEMPORAL_MASK = 0;
+
+   /*
+    *  Day if exp_day > 10% of total exposure time.
+    */
+    exp_day=time_loss(nseconds, timeline_status, TEMPORAL_DAY);
+    if (exp_day * 10 > rawtime) {
+	*TEMPORAL_MASK = TEMPORAL_DAY;
+	sprintf(comment, "Exposure more than 10 percent day");
+	cf_verbose(1, comment);
+    }
+   /*
+    * If exposure is less than 40 seconds long, we're done.
+    */
+    if (rawtime < 2. * HIST_PAD) return;
+
+   /*
+    * Are there limb-angle violations?
+    */
+    if (time_loss_pad(nseconds, timeline_status, TEMPORAL_LIMB)) {
+    	*EXP_STAT |= TEMPORAL_LIMB;
+	sprintf(comment, "Data suspect: Limb-angle violation");
+	cf_verbose(1, comment);
+    }
+   /*
+    * Do we ever enter the SAA?
+    */
+    if (time_loss_pad(nseconds, timeline_status, TEMPORAL_SAA)) {
+	*EXP_STAT |= TEMPORAL_SAA;
+	sprintf(comment, "Data suspect: SAA violation");
+	cf_verbose(1, comment);
+    }
+   /*
+    * Are there any bursts?
+    */
+    if (time_loss_pad(nseconds, timeline_status, TEMPORAL_BRST)) {
+	*EXP_STAT |= TEMPORAL_BRST;
+	sprintf(comment, "Data suspect: Burst detected");
+	cf_verbose(1, comment);
+    }
+
+   /*
+    * Is the detector voltage ever too low?
+    * If so, just issue a warning; we'll modify the exposure time later.
+    */
+    if (time_loss_pad(nseconds, timeline_status, TEMPORAL_HV))
+        cf_verbose(1, "EXPTIME modified: Detector voltage low.");
+   /*
+    * Was any time rejected by the jitter routine?
+    * If so, just issue a warning; we'll modify the exposure time later.
+    */
+    if (time_loss_pad(nseconds, timeline_status, TEMPORAL_JITR))
+        cf_verbose(1, "EXPTIME modified: Target out of aperture.");
+
+    return;
+}
+
+
+int
+cf_set_photon_flags(fitsfile *infits, long nevents, float *photon_time,
+	    float *photon_weight, unsigned char *photon_status,
+	    unsigned char *photon_locflag, long nseconds,
+	    float *timeline_time, unsigned char *timeline_status)
+{
+    char CF_PRGM_ID[] = "cf_set_photon_flags";
+    char CF_VER_NUM[] = "1.19";
+
+    char  comment[FLEN_COMMENT], daynight[FLEN_KEYWORD]; 
+    char  instmode[FLEN_KEYWORD], scrnfile[FLEN_KEYWORD];
+    long  i, j, k;
+
+    long nbadevnt=0;	/* number of events deleted in screening */
+    long exp_bad=0;	/* integration time lost to screening */
+    long exp_brst=0;	/* integration time lost to event bursts */
+    long exp_hv=0;	/* integration time lost to low detector voltage */
+    long exp_jitr=0;	/* integration time lost to jitter */
+    long exp_limb=0;	/* integration time with low limb angle */
+    long exp_saa=0;	/* integration time while in SAA */
+    long exp_day=0;	/* integration time during day after screening */
+    long expnight=0;	/* integration time during night after screening */
+    int  day = FALSE, night = FALSE;
+    int  errflg = 0;	/* value returned by cf_proc_check */
+    int	 status = 0;	/* CFITSIO status */
+    int  expstat;	/* initial value of EXP_STAT keyword */
+    float deadtime, rawtime;
+    fitsfile *scrnfits;
+    unsigned char EXP_STAT, TEMPORAL_MASK;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    if ((errflg = cf_proc_check(infits, CF_PRGM_ID) )) return errflg;
+
+    /* Read and interpret DAYNIGHT keyword. Copy to IDF header. */
+
+    FITS_read_key(infits, TSTRING, "SCRN_CAL", scrnfile, NULL, &status);
+    FITS_open_file(&scrnfits, cf_parm_file(scrnfile), READONLY, &status);
+    FITS_read_key(scrnfits, TSTRING, "DAYNIGHT", daynight, NULL, &status);
+    FITS_close_file(scrnfits, &status);
+
+    if (!strncmp(daynight, "D", 1) || !strncmp(daynight, "d", 1)) {
+        day = TRUE;
+    }
+    else if (!strncmp(daynight, "N", 1) || !strncmp(daynight, "n", 1)) {
+        night = TRUE;
+    }
+    else if (!strncmp(daynight, "B", 1) || !strncmp(daynight, "b", 1)) {
+        day = night = TRUE;
+    }
+    else
+        cf_if_error("Unknown DAYNIGHT keyword value: %s", daynight);
+
+    /*
+     *  Read EXP_STAT, RAWTIME, INSTMODE and TOT_DEAD keywords.
+     */
+    FITS_read_key(infits, TINT, "EXP_STAT", &expstat, NULL, &status);
+    FITS_read_key(infits, TFLOAT, "RAWTIME", &rawtime, NULL, &status);
+    FITS_read_key(infits, TSTRING, "INSTMODE", instmode, NULL, &status);
+    FITS_read_key(infits, TFLOAT, "TOT_DEAD", &deadtime, NULL, &status);
+
+    /*
+     *  If EXP_STAT = TEMPORAL_LIMB, target is bright earth or airglow.  
+     *  Compute EXP_LIMB, then set limb-angle flags to 0.
+     */
+    exp_limb=time_loss(nseconds, timeline_status, TEMPORAL_LIMB);
+    if (expstat == (int) TEMPORAL_LIMB) 
+	for (i = 0; i < nseconds-1; i++) 
+	    timeline_status[i] &= ~TEMPORAL_LIMB;
+
+    /*
+     *  If in HIST mode:
+     *  Generate TEMPORAL_MASK
+     *  Copy status flags from TEMPORAL_MASK to photon list.
+     *  Count bad photons.
+     */
+    if (!strncmp(instmode, "HIST", 4)) {
+	generate_temporal_mask(rawtime, nseconds, timeline_time,
+		timeline_status, &TEMPORAL_MASK, &EXP_STAT, comment);
+	for (i = 0; i < nevents; i++) {
+            photon_status[i] = TEMPORAL_MASK;
+           /*
+            *  A bad photon is one for which
+            *  - something other than AIRGLOW is wrong; or
+            *  - you don't want day, but this one is; or
+            *  - you don't want night, but this one is.
+            */
+            if ((photon_locflag[i] & ~LOCATION_AIR) ||
+                (!day   && (photon_status[i] & TEMPORAL_DAY)) ||
+                (!night && (photon_status[i] ^ TEMPORAL_DAY)))
+                nbadevnt += (long)(photon_weight[i]/deadtime + 0.5);
+        }
+	if (EXP_STAT && !expstat)
+	    FITS_update_key(infits, TBYTE, "EXP_STAT", &EXP_STAT,
+	    comment, &status);
+    }
+
+    /* 
+     *  If in TTAG mode:
+     *  Copy status flags from timeline table to photon list.
+     *  Confirm that photon time is included in timeline table.
+     *  Count bad photons.
+     */
+     else {
+	for (i = k = 0; i < nevents; i++) {
+            while (photon_time[i] > timeline_time[k+1]-FRAME_TOLERANCE &&
+		k < nseconds-1) { k++; }
+
+            if (photon_time[i] - timeline_time[k] < 2.0)
+            	photon_status[i] = timeline_status[k];
+	    else
+		cf_if_warning("Time %g not included in timeline table",
+		    photon_time[i]);
+
+           /*
+            *  A bad photon is one for which 
+	    *  - something other than DAYNIGHT is wrong; or
+	    *  - something other than AIRGLOW is wrong; or
+	    *  - you don't want day, but this one is; or
+	    *  - you don't want night, but this one is.
+            */
+            if ((photon_status[i] & ~TEMPORAL_DAY) ||
+	        (photon_locflag[i] & ~LOCATION_AIR) ||
+                (!day   && (photon_status[i] & TEMPORAL_DAY)) ||
+                (!night && (photon_status[i] ^ TEMPORAL_DAY)))
+	        nbadevnt++;
+	}
+     }
+
+    /*
+     *  Now count day, night, and bad seconds.
+     *  If in HIST mode, mask out LIMB, SAA, and BRST flags.
+     *  Exclude OPUS-defined bad times.
+     */
+    TEMPORAL_MASK = TEMPORAL_DAY;
+
+    if (!strncmp(instmode, "HIST", 4)) {
+        TEMPORAL_MASK |= TEMPORAL_LIMB;
+        TEMPORAL_MASK |= TEMPORAL_SAA;
+        TEMPORAL_MASK |= TEMPORAL_BRST;
+    }
+
+    for (j = 0; j < nseconds; j++) {
+	if (timeline_status[j] & TEMPORAL_OPUS)
+		continue;
+	if (timeline_status[j] & ~TEMPORAL_MASK)
+		exp_bad++;
+	else if (timeline_status[j] & TEMPORAL_DAY)
+		exp_day++;
+	else
+		expnight++;
+    }
+    /* 
+     *  If user rejects either day or night data, add to EXP_BAD.
+     *  If user rejects night data, set EXPNIGHT = 0.
+     */
+     if (!day) {
+	exp_bad += exp_day;
+     }
+     if (!night) {
+	exp_bad += expnight;
+	expnight = 0;
+     }
+
+    /* 
+     *  Compute EXP_BRST 
+     */
+    exp_brst=time_loss(nseconds, timeline_status, TEMPORAL_BRST);
+    /* 
+     *  Compute EXP_HV
+     */
+    exp_hv=time_loss(nseconds, timeline_status, TEMPORAL_HV);
+    /* 
+     *  Compute EXP_JITR 
+     */
+    exp_jitr=time_loss(nseconds, timeline_status, TEMPORAL_JITR);
+    /* 
+     *  Compute EXP_LIMB	(already done)
+	exp_limb=time_loss(nseconds, timeline_status, TEMPORAL_LIMB);
+     */
+    /*
+     *  Compute EXP_SAA 
+     */
+    exp_saa=time_loss(nseconds, timeline_status, TEMPORAL_SAA);
+
+    /*
+     *  If data are in time-tag mode and more than 90% of time was
+     *  was rejected by screening, say why. 
+     */
+    if (!strncmp(instmode, "TTAG", 4)) {
+	if (exp_brst > 0.9 * rawtime)
+	    cf_verbose(1, "%d sec lost to bursts.", exp_brst);
+	if (exp_hv > 0.9 * rawtime)
+	    cf_verbose(1, "%d sec lost to low voltage.", exp_hv);
+	if (exp_jitr > 0.9 * rawtime)
+	    cf_verbose(1, "%d sec lost to jitter.", exp_jitr);
+	if (exp_limb > 0.9 * rawtime)
+	    cf_verbose(1, "%d sec lost to low limb angle.", exp_limb);
+	if (exp_saa > 0.9 * rawtime)
+	    cf_verbose(1, "%d sec lost to SAA.", exp_saa);
+    }
+
+    /* 
+     *  Update the header keywords 
+     */
+    FITS_update_key(infits, TLONG, "NBADEVNT", &nbadevnt, NULL, &status);
+    FITS_update_key(infits, TLONG, "EXP_BAD",  &exp_bad,  NULL, &status);
+    FITS_update_key(infits, TLONG, "EXP_BRST", &exp_brst, NULL, &status);
+    FITS_update_key(infits, TLONG, "EXP_HV",   &exp_hv,   NULL, &status);
+    FITS_update_key(infits, TLONG, "EXP_JITR", &exp_jitr, NULL, &status);
+    FITS_update_key(infits, TLONG, "EXP_LIM",  &exp_limb, NULL, &status);
+    FITS_update_key(infits, TLONG, "EXP_SAA",  &exp_saa,  NULL, &status);
+    FITS_update_key(infits, TLONG, "EXPNIGHT", &expnight, NULL, &status);
+    FITS_update_key(infits, TSTRING, "DAYNIGHT", &daynight, NULL, &status);
+
+    cf_proc_update(infits, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return status;
+}
diff --git a/src/libcf/cf_set_user_gtis.c b/src/libcf/cf_set_user_gtis.c
new file mode 100644
index 0000000..54a88d5
--- /dev/null
+++ b/src/libcf/cf_set_user_gtis.c
@@ -0,0 +1,100 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_set_user_gtis(fitsfile *infits, long nseconds,
+ *                                  float *timeline_times,
+ *                                  unsigned char *timeline_status);
+ *
+ * Description: Apply user-defined good time intervals to timeline table.
+ *
+ * Arguments:   fitsfile  *infits       Input FITS file pointer
+ *              long      nseconds      Number of points in the timeline table
+ * 		float     *timeline_times Array of times
+ *              unsigned char  *timeline_status   The status flag array
+ *
+ * Calls:
+ *
+ * Returns:	0 on success
+ *
+ * History:	09.10.03   1.1   bjg    Initial coding
+ * 		
+ *              09.12.03   1.2   bjg    Bug fix. When nusergti was zero or less
+ *                                      this function set all the photons to 
+ *                                      bad. Now it doesn't change anything.
+ *              04.20.04   1.3   bjg    Remove unused variables
+ *                                      Change format to match arg type in
+ *                                      sprintf.
+ *
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_set_user_gtis(fitsfile *infits, long nseconds, 
+	 float *timeline_times,	unsigned char *timeline_status)
+{
+    char CF_PRGM_ID[] = "cf_set_user_gtis";
+    char CF_VER_NUM[] = "1.3";
+
+    int	  errflg=0, status=0, nusergti;
+    long  i,n;
+    char  file_name[FLEN_VALUE];
+    float limit1,limit2;
+    char keywd1[FLEN_KEYWORD],keywd2[FLEN_KEYWORD];
+    fitsfile  *scrnfits;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    if ((errflg = cf_proc_check(infits, CF_PRGM_ID) )) return errflg;
+
+    /*
+     *  Open the screening parameters file and read the good time intervals.
+     */
+    FITS_read_key(infits, TSTRING, "SCRN_CAL", file_name, NULL, &status);
+    FITS_open_file(&scrnfits, cf_parm_file(file_name), READONLY, &status);
+
+    FITS_read_key(scrnfits, TINT, "NUSERGTI", &nusergti, NULL, &status);
+    
+    if (nusergti>0){
+    
+        i=0;
+    
+        for (n=1;n<=nusergti;n++){
+           sprintf(keywd1, "GTIBEG%02ld",n);
+           FITS_read_key(scrnfits, TFLOAT, keywd1, &limit1, NULL, &status);
+           sprintf(keywd2, "GTIEND%02ld",n);
+           FITS_read_key(scrnfits, TFLOAT, keywd2, &limit2, NULL, &status);
+        
+        
+           while ((i
+
+int
+cf_source_aper(fitsfile *infits, int *active_ap )
+{
+     /* char CF_PRGM_ID[] = "cf_source_aper";         */
+     /* char CF_VER_NUM[] = "1.8";                    */
+
+    char aper[FLEN_CARD], src[FLEN_CARD];
+    int status=0, hdutype, src_type;
+
+    /* Determine the active aperture */
+    FITS_movabs_hdu(infits, 1, &hdutype, &status); 
+    FITS_read_key(infits, TSTRING, "APERTURE", aper, NULL, &status);
+ 
+    /* Specify the channels of the active aperture */
+    if (!strncmp(aper,"HIRS",4)) {
+	active_ap[0] = 1;
+	active_ap[1] = 5; }
+    else if (!strncmp(aper,"MDRS",4)) {
+	active_ap[0] = 2;
+	active_ap[1] = 6; }
+    else if (!strncmp(aper,"LWRS",4) || !strncmp(aper,"RFPT",4)) {
+	active_ap[0] = 3;
+	active_ap[1] = 7;
+    }
+    else
+	cf_if_error("APERTURE keyword corrupted.");
+    cf_verbose(3, "APERTURE = %s, channels are %d and %d",
+		aper, active_ap[0], active_ap[1]);
+
+    FITS_read_key(infits, TSTRING,"SRC_TYPE", src, NULL, &status);
+    src_type = 0;
+    if (!strncmp(src,"E",1) || !strncmp(src,"e",1) ) src_type = 1;
+
+    cf_verbose(3, "SRC_TYPE = %s, source type = %d", src, src_type);
+    return src_type;
+}
diff --git a/src/libcf/cf_standard_or_optimal_extraction.c b/src/libcf/cf_standard_or_optimal_extraction.c
new file mode 100644
index 0000000..2b2a6fa
--- /dev/null
+++ b/src/libcf/cf_standard_or_optimal_extraction.c
@@ -0,0 +1,75 @@
+/*****************************************************************************
+ *            Johns Hopkins University
+ *            Center For Astrophysical Sciences
+ *            FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_standard_or_optimal_extraction (fitsfile *header,
+ *			int *optimal)
+ *
+ * Description: Sets optimal to TRUE if optimal extraction is desired.
+ *		FALSE if RUN_OPTI = 'NO' in parm*.fit file.
+ *		FALSE if SRC_TYPE[0] = 'E' in file header.
+ *
+ * Arguments:   fitsfile  *header       Pointer to IDF FITS file header
+ *              int       *optimal      TRUE if optimal extraction desired
+ *
+ * Calls:
+ *
+ * Returns:     0 on success
+ *
+ * History:     03/02/03  1.1   wvd	Initial coding.
+ *		03/12/03  1.2   wvd	Write value of optimal to trailer file.
+ *		03/19/03  1.3   wvd	Read SRC_TYPE, not SP_TYPE.
+ *		03/19/03  1.4   wvd	Add call to cf_timestamp at start.	
+ *					Change printf to cf_verbose
+ *		09/30/03  1.5   wvd	Check for lower-case value of
+ *					RUN_OPTI.
+ *		03/15/05  1.6   wvd	No optimal extraction for HIST targets
+ *					unless try_optimal = TRUE;
+ *		03/18/05  1.7   wvd	v1.6 was a bad idea.  Returning to v1.5
+ *
+ ****************************************************************************/
+
+#include 
+#include "calfuse.h"
+
+static char CF_PRGM_ID[] = "cf_standard_or_optimal_extraction";
+static char CF_VER_NUM[] = "1.7";
+
+int
+cf_standard_or_optimal_extraction(fitsfile *header, int *optimal)
+{
+    char  parm_file[FLEN_VALUE], instmode[FLEN_VALUE];
+    char  run_opti[FLEN_VALUE], src_type[FLEN_VALUE];
+    int   status=0;
+    fitsfile *parmfits;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin processing");
+
+    /* Read SRC_TYPE from IDF header. */
+    FITS_read_key(header, TSTRING, "SRC_TYPE", src_type, NULL, &status);
+    FITS_read_key(header, TSTRING, "INSTMODE", instmode, NULL, &status);
+
+    /* Read RUN_OPTI from PARM_CAL. */
+    FITS_read_key(header, TSTRING, "PARM_CAL", parm_file, NULL, &status);
+    FITS_open_file(&parmfits, cf_parm_file(parm_file), READONLY, &status);
+    FITS_read_key(parmfits, TSTRING, "RUN_OPTI", run_opti, NULL, &status);
+    FITS_close_file(parmfits, &status);
+
+    /* Determine value of optimal. */
+    *optimal = TRUE;
+    if (*run_opti != 'Y' && *run_opti != 'y') {
+	cf_verbose (1, "RUN_OPTI = %s.  No optimal extraction.", run_opti);
+	*optimal = FALSE;
+    }
+    if (*src_type != 'P') {
+	cf_verbose (1, "SRC_TYPE = %s.  No optimal extraction.", src_type);
+	*optimal = FALSE;
+    }
+    if (*optimal) cf_verbose (1, "Attempting optimal extraction.");
+
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return status;
+}
diff --git a/src/libcf/cf_target_count_rate.c b/src/libcf/cf_target_count_rate.c
new file mode 100644
index 0000000..eab5b26
--- /dev/null
+++ b/src/libcf/cf_target_count_rate.c
@@ -0,0 +1,112 @@
+/**************************************************************************
+ *           Johns Hopkins University
+ *           Center for Astrophysical Sciences
+ *           FUSE
+ *************************************************************************
+ *
+ * Synopsis:    cf_target_count_rate(header, nevents, ptime, weight,
+ *              channel, locflags, ntimes, ttime, rate_lif, rate_sic)
+ *
+ * Description: Determines the count rate in the target aperture for both
+ *		LiF and SiC channels.  Excludes airglow lines.
+ *
+ * Arguments:   fitsfile  *header :   pointer to IDF header
+ *              long      nevents :   number of photon events in the file
+ *              float     *ptime  :   detection time for each photon
+ *              float     *weight :   weight associated with each photon
+ *     unsigned char      *channel:   aperture associated with each photon
+ *     unsigned char     *locflags:   location flag array - flags the 
+ *                                    geocoronal photons
+ *              long      ntimes    :   number of seconds tabulated in timeline
+ *              float     *ttime  :   tabulated times in the timeline
+ *              float	*rate_lif, *rate_sic :
+ *                                    count rates through the Lif and SiC
+ *				      apertures, excluding geocoronal emission
+ *
+ * Calibration files required:     None
+ *
+ * Returns:	0 on success
+ *
+ *                                
+ * HISTORY:     03/03/03    v1.1   RDR    started work
+ *		03/05/03    v1.2   wvd    change name of subroutine & install
+ *              03/10/03    v1.21  rdr    changed specification of locflags
+ *                                        from char to unsigned char
+ *              05/20/03    v1.3   rdr    Added call to cf_proc_check
+ *              05/22/03    v1.5   wvd    Direct cf_error_init to stderr
+ *              06/02/03    v1.6   wvd    Implement cf_verbose throughout.
+ *              06/04/03    v1.7   wvd    Revise scheme for summing counts.
+ *              08/20/03    v1.8   wvd    Use FRAME_TOLERANCE from calfuse.h,
+ *					  change channel to unsigned char.
+ *              09/15/03    v1.9   wvd    Test that photon times match
+ *					  timeline times to within 1 sec.
+ *              10/06/03    v1.10  wvd    Changed screen to locflags throughout.
+ *              12/29/06    v1.11  wvd    Sum weights rather than counts.
+ *					  Convert output arrays to type float.
+ *					  Scale HIST count rate by DET_DEAD.
+ *              04/07/07    v1.12  wvd	  Clean up compiler warnings.
+ *              04/07/07    v1.13  wvd	  Clean up compiler warnings.
+ *
+ **************************************************************************/
+
+#include 
+#include "calfuse.h"
+
+int
+cf_target_count_rate(fitsfile *header, long nevents, float *ptime, 
+	float *weight, unsigned char *channel, unsigned char *locflags,
+	long ntimes, float *ttime, float *rate_lif, float *rate_sic) {
+
+    char CF_PRGM_ID[] = "cf_target_count_rate" ;
+    char CF_VER_NUM[] = "1.13" ;
+ 
+    char instmode[FLEN_VALUE];
+    int errflg=0, status=0, active_ap[2] ;
+    float delta_max = 1.0 + FRAME_TOLERANCE;
+    float det_dead;
+    long j, k ;
+ 
+    /* Initialize error checking. */ 
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    /* Enter a time stamp into the log. */
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    /* Confirm that this subroutine should be run. */
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    /* Determine the source aperture from the header data. */
+    FITS_read_key(header, TSTRING, "INSTMODE", instmode, NULL, &status);
+    (void) cf_source_aper(header, active_ap) ;
+
+    /*
+     * For histogram data, scale the LiF and SiC count rates, which come
+     * from the housekeeping data file, by DET_DEAD.
+     */
+    if (!strncmp(instmode, "HIST", 4)) {
+	FITS_read_key(header, TFLOAT, "DET_DEAD", &det_dead, NULL, &status);
+	for (k = 0; k < ntimes; k++) rate_lif[k] *= det_dead;
+	for (k = 0; k < ntimes; k++) rate_sic[k] *= det_dead;
+    }
+
+    /* 
+     * For time-tag data, count the photons arriving during each second
+     * of the exposure.  Exclude events near airglow regions.
+     */
+    else {
+	for (k = 0; k < ntimes; k++) rate_lif[k] = rate_sic[k] = 0.; 
+	for (j=k=0; j
+#include 
+#include 
+#include "calfuse.h"
+
+#define STIMS (LOCATION_STIML|LOCATION_STIMR)
+
+static int
+cf_estimate_drift_coefficients (fitsfile *header, float *x0, float *x1,
+	float *y0, float *y1)
+{
+    char	stimfile[FLEN_FILENAME];
+    int		status=0;
+    long	j, jmax;
+    float	*x0_array=NULL, *x1_array=NULL, *y0_array=NULL, *y1_array=NULL;
+    double	expstart, *mjd=NULL;
+    fitsfile	*stimfits;
+
+    /* Read header keywords. */
+    FITS_read_key(header, TDOUBLE, "EXPSTART", &expstart, NULL, &status);
+    FITS_read_key(header, TSTRING, "STIM_CAL", stimfile, NULL, &status);
+    cf_verbose(3, "Drift-coefficient calibration file = %s", stimfile);
+
+    /* Read drift-coefficients from the calibration file. */
+    FITS_open_file(&stimfits, cf_cal_file(stimfile), READONLY, &status);
+    FITS_movabs_hdu(stimfits, 2, NULL, &status);
+    jmax = cf_read_col(stimfits, TDOUBLE, "MJD", (void *) &mjd);
+    jmax = cf_read_col(stimfits, TFLOAT,  "X0", (void *) &x0_array);
+    jmax = cf_read_col(stimfits, TFLOAT,  "X1", (void *) &x1_array);
+    jmax = cf_read_col(stimfits, TFLOAT,  "Y0", (void *) &y0_array);
+    jmax = cf_read_col(stimfits, TFLOAT,  "Y1", (void *) &y1_array);
+    FITS_close_file(stimfits, &status);
+
+    /* Find the coefficients appropriate for this exposure. */
+    j = 0;
+    while (j < jmax-1 && mjd[j+1] < expstart) j++;
+    *x0 = x0_array[j];
+    *x1 = x1_array[j];
+    *y0 = y0_array[j];
+    *y1 = y1_array[j];
+
+    free(mjd);
+    free(x0_array);
+    free(x1_array);
+    free(y0_array);
+    free(y1_array);
+
+    return status;
+}
+
+
+static int
+cf_get_stim_positions(long nevents, float *xfarf, float *yfarf, float *weight, 
+                   unsigned char *loc, float width, float *stimlx, float *stimly,
+		   float *stimrx, float *stimry)
+{
+    int   stim_status=0;
+    long  j;
+    double lx=0., ly=0., rx=0., ry=0., nl=0., nr=0.;
+
+    cf_verbose(3,"initial: stimlx = %0.1f, stimly=%0.1f, width=%0.1f ",
+               *stimlx, *stimly, width) ;
+    cf_verbose(3,"initial: stimrx = %0.1f, stimry=%0.1f, width=%0.1f ",
+		*stimrx, *stimry, width) ;
+
+    for (j=0; j= *stimlx-width && xfarf[j] <= *stimlx+width &&
+		 yfarf[j] >= *stimly-width && yfarf[j] <= *stimly+width) {
+	    lx += xfarf[j] * weight[j];
+	    ly += yfarf[j] * weight[j];
+	    nl += weight[j];
+	    loc[j] |= LOCATION_STIML;
+	}
+	else if (xfarf[j] >= *stimrx-width && xfarf[j] <= *stimrx+width &&
+		 yfarf[j] >= *stimry-width && yfarf[j] <= *stimry+width) {
+	    rx += xfarf[j] * weight[j];
+	    ry += yfarf[j] * weight[j];
+	    nr +=  weight[j];
+	    loc[j] |= LOCATION_STIMR;
+	}
+	else {
+	    loc[j] &= ~STIMS;
+	}
+    }
+
+    cf_verbose(3,"nl=%0.1f,  nr=%0.1f ",nl,nr) ;
+
+    if (nl > 500) {
+	*stimlx = lx/nl;
+	*stimly = ly/nl;
+    } else {
+	cf_if_warning("Cannot determine left STIM position.  Estimating.");
+	stim_status = 1;
+    }
+    if (nr > 500) {
+	*stimrx = rx/nr;
+	*stimry = ry/nr;
+    } else {
+	cf_if_warning("Cannot determine right STIM position.  Estimating.");
+	stim_status = 1;
+    }
+
+    if (!stim_status) {
+	cf_verbose(3,"after iteration: stimlx = %0.1f, stimly=%0.1f ", *stimlx, *stimly);
+	cf_verbose(3,"after iteration: stimrx = %0.1f, stimry=%0.1f ", *stimrx, *stimry);
+    }
+
+    return stim_status;
+}
+
+int
+cf_thermal_distort(fitsfile *header, long nevents, float *xfarf, 
+		   float *yfarf, float *weight, unsigned char *locflags)
+{
+    char CF_PRGM_ID[] = "cf_thermal_distort";
+    char CF_VER_NUM[] = "1.16";
+
+    char  elecfile[FLEN_VALUE], detector[FLEN_VALUE];
+    char  keyword[FLEN_KEYWORD];
+    int   errflg=0, status=0, stim_status=0;
+    long  j;
+    float farflx, farfly, farfrx, farfry, x0, x1, y0, y1;
+    float stimlx, stimly, stimrx, stimry, oldlx, oldly, oldrx, oldry;
+    float width=128., tol=0.01;
+    fitsfile *elecfits;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    FITS_read_key(header, TSTRING, "DETECTOR", detector, NULL, &status);
+    /*
+     *  Get the name of the calibration file and open it
+     */
+    FITS_read_key(header, TSTRING, "ELEC_CAL", elecfile, NULL, &status);
+    FITS_open_file(&elecfits, cf_cal_file(elecfile), READONLY, &status);
+    /*
+     *  Read stim locations in FARF frame.
+     */
+    FITS_read_key(elecfits, TFLOAT, "STIMWDTH", &width, NULL, &status);
+    FITS_read_key(elecfits, TFLOAT, "STIMTOLR", &tol, NULL, &status);
+    sprintf(keyword, "STIMLX%s", detector);
+    FITS_read_key(elecfits, TFLOAT, keyword, &farflx, NULL, &status);
+    sprintf(keyword, "STIMLY%s", detector);
+    FITS_read_key(elecfits, TFLOAT, keyword, &farfly, NULL, &status);
+    sprintf(keyword, "STIMRX%s", detector);
+    FITS_read_key(elecfits, TFLOAT, keyword, &farfrx, NULL, &status);
+    sprintf(keyword, "STIMRY%s", detector);
+    FITS_read_key(elecfits, TFLOAT, keyword, &farfry, NULL, &status);
+    FITS_close_file(elecfits, &status);
+    /*
+     *  Get stim positions (iteratively).
+     */
+    stimlx = farflx; stimly = farfly;
+    stimrx = farfrx; stimry = farfry;
+    do {
+	oldlx = stimlx;	oldly = stimly;
+	oldrx = stimrx;	oldry = stimry;
+	width /= 2.;
+	stim_status = cf_get_stim_positions(nevents, xfarf, yfarf, weight,
+		locflags, width, &stimlx, &stimly, &stimrx, &stimry);
+	if (!stim_status)
+	    cf_verbose(3,"dstimlx=%.1f,  dstimly=%.1f, dstimrx=%.1f,"
+	    "dstimry=%.1f ", fabs(oldlx-stimlx), fabs(oldly-stimly),
+	    fabs(oldrx-stimrx), fabs(oldry-stimry) ) ;
+    } while (fabs(oldlx-stimlx) > tol && fabs(oldly-stimly) > tol && 
+	     fabs(oldrx-stimrx) > tol && fabs(oldry-stimry) > tol &&
+	     !stim_status);
+    /*
+     *  Write stim pulse positions to file header.
+     */
+    if (!stim_status) {
+	FITS_update_key(header, TFLOAT, "STIM_L_X", &stimlx, NULL, &status);
+	FITS_update_key(header, TFLOAT, "STIM_L_Y", &stimly, NULL, &status);
+	FITS_update_key(header, TFLOAT, "STIM_R_X", &stimrx, NULL, &status);
+	FITS_update_key(header, TFLOAT, "STIM_R_Y", &stimry, NULL, &status);
+    }
+    /*
+     *  Calculate drift coefficients from stim pulse positions
+     */
+    if (!stim_status) {
+	x0 = (stimlx*farfrx - stimrx*farflx)/(stimlx - stimrx);
+	x1 = (farflx - farfrx)/(stimlx - stimrx);
+	y0 = 0.5*((farfly + farfry) - (stimly + stimry));
+	y1 = 1.0;
+    }
+    /* 
+     *  ...or estimate them from date of exposure.
+     */
+    else
+	cf_estimate_drift_coefficients (header, &x0, &x1, &y0, &y1);
+    cf_verbose(2, "Drift coefficients: %f %f, %f %f", x0, x1, y0, y1);
+    /*
+     *  Apply thermal correction to events in active area and
+     *  stim-pulse regions.
+     */
+    for (j=0; j
+#include 
+#include 
+#include "calfuse.h"
+
+int
+cf_time_xy_distort(fitsfile *header, long nevents,
+	float *xfarf, float *yfarf, unsigned char *locflags)
+{
+    char CF_PRGM_ID[] = "cf_time_xy_distort";
+    char CF_VER_NUM[] = "1.4";
+    
+    char  tmxyfile[FLEN_VALUE];
+    int   errflg=0, hdutype, status=0, anynull=0;
+    int   binfact, i, ii, i_max, tndx, xndx, yndx;
+    long  j, xlen, ylen;
+    double expstart;
+    float *xstretch2d, *ystretch2d, xstretch1d[NXMAX], ystretch1d[NYMAX];
+    fitsfile *tmxyfits;
+
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    if ((errflg = cf_proc_check(header, CF_PRGM_ID))) return errflg;
+
+    /*
+     *  Read MJD of exposure start.
+     */
+    FITS_read_key(header, TDOUBLE, "EXPSTART", &expstart, NULL, &status);
+
+    /*
+     *  Read the X correction array.
+     *  Note: the first column of the calibration array contains MJD.
+     */
+    FITS_read_key(header, TSTRING, "TMXY_CAL", tmxyfile, NULL, &status);
+    cf_verbose(3, "Reading TMXY_CAL file %s", tmxyfile);
+    FITS_open_file(&tmxyfits, cf_cal_file(tmxyfile), READONLY, &status);
+    FITS_movabs_hdu(tmxyfits, 2, &hdutype, &status);
+    FITS_read_key(tmxyfits, TLONG, "NAXIS1", &xlen, NULL, &status);
+    FITS_read_key(tmxyfits, TLONG, "NAXIS2", &ylen, NULL, &status);
+    FITS_read_key(tmxyfits, TINT, "BIN_FACT", &binfact, NULL, &status);
+    xstretch2d = (float *) cf_malloc(sizeof(float)*xlen*ylen);
+    FITS_read_img(tmxyfits, TFLOAT, 1L, xlen*ylen, NULL, xstretch2d,
+    	&anynull, &status);
+
+    /* 
+     * Find the row in the calibration array that corresponds to the 
+     * exposure start time.
+     */
+    i = 0;
+    while (expstart > *(xstretch2d+i*xlen) && i < ylen) i++;
+    tndx = i-1;
+    if (tndx < 0) tndx = 0;
+    cf_verbose(2,"EXPSTART = %g.", expstart);
+    cf_verbose(2,"Using X corrections for MJD >= %g", *(xstretch2d+tndx*xlen));
+    if (tndx < ylen-1)
+	cf_verbose(2,"                    and MJD <  %g",
+	*(xstretch2d+(tndx+1)*xlen));
+
+    /* 
+     *  Now compute a 1-D array containing corrections to X
+     *  coordinate as a function of X position on the detector.
+     *  Shift information binned by BIN_FACT pixels.
+     *  We interpolate to the nearest X pixel.  Otherwise,
+     *  counts pile up at the boundaries.
+     */
+    i_max = (xlen-2) * binfact;
+    for (i = 0; i < i_max; i++) {
+	ii = (i/binfact) * binfact;
+	xstretch1d[i] = ((ii+binfact-i) * (xstretch2d+tndx*xlen)[1+i/binfact] +
+	                (i-ii) * (xstretch2d+tndx*xlen)[2+i/binfact]) / binfact;
+    }
+    for ( ; i < NXMAX; i++) 
+	xstretch1d[i] = (xstretch2d+tndx*xlen)[xlen-1];
+
+    /*
+     *  Read the Y correction array.
+     */
+    FITS_movabs_hdu(tmxyfits, 3, &hdutype, &status);
+    FITS_read_key(tmxyfits, TLONG, "NAXIS1", &xlen, NULL, &status);
+    FITS_read_key(tmxyfits, TLONG, "NAXIS2", &ylen, NULL, &status);
+    FITS_read_key(tmxyfits, TINT, "BIN_FACT", &binfact, NULL, &status);
+    ystretch2d = (float *) cf_malloc(sizeof(float)*xlen*ylen);
+    FITS_read_img(tmxyfits, TFLOAT, 1L, xlen*ylen, NULL, ystretch2d,
+    	&anynull, &status);
+    FITS_close_file(tmxyfits, &status);
+
+    /* 
+     * Find the row in the calibration array that corresponds to the 
+     * exposure start time.
+     */
+    i = 0;
+    while (expstart > *(ystretch2d+i*xlen) && i < ylen) i++;
+    tndx = i-1;
+    if (tndx < 0) tndx = 0;
+    cf_verbose(3,"Using Y corrections for MJD >= %g", *(ystretch2d+tndx*xlen));
+    if (tndx < ylen-1)
+	cf_verbose(3,"                    and MJD <  %g",
+	*(ystretch2d+(tndx+1)*xlen));
+
+    /* 
+     *  Now compute a 1-D array containing corrections to Y 
+     *  coordinate as a function of Y position on the detector.
+     */
+    i_max = (xlen-2) * binfact;
+    for (i = 0; i < i_max; i++) {
+	ii = (i/binfact) * binfact;
+	ystretch1d[i] = ((ii+binfact-i) * (ystretch2d+tndx*xlen)[1+i/binfact] +
+	                (i-ii) * (ystretch2d+tndx*xlen)[2+i/binfact]) / binfact;
+    }
+    for ( ; i < NYMAX; i++) 
+	ystretch1d[i] = (ystretch2d+tndx*xlen)[xlen-1];
+    cf_verbose(3, "For y = 430, ystretch = %f\n", ystretch1d[430]);
+    cf_verbose(3, "For y = 810, ystretch = %f\n", ystretch1d[810]);
+
+    /* 
+     * Loop through all events. Move only events in active region.
+     */
+    for (j = 0; j < nevents; j++) {
+	if (!(locflags[j] & LOCATION_SHLD)) {
+	    xndx = (int) xfarf[j];
+	    if (xndx < 0) xndx = 0;
+	    else if (xndx >= NXMAX) xndx = NXMAX-1;
+
+	    yndx = (int) yfarf[j];
+	    if (yndx < 0) yndx = 0;
+	    else if (yndx >= NYMAX) yndx = NYMAX-1;
+
+	    xfarf[j] += xstretch1d[xndx];
+	    yfarf[j] += ystretch1d[yndx];
+	}
+    }
+
+    free(xstretch2d);
+    free(ystretch2d);
+
+    cf_proc_update(header, CF_PRGM_ID, "COMPLETE");
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done processing");
+    return 0;
+}
diff --git a/src/libcf/cf_timestamp.c b/src/libcf/cf_timestamp.c
new file mode 100644
index 0000000..52ef311
--- /dev/null
+++ b/src/libcf/cf_timestamp.c
@@ -0,0 +1,78 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_timestamp(const char *prgmid, const char *vernum, char *msg)
+ *
+ * Description: Writes a timestamp and the calling program name to stdout.
+ *
+ * Arguments:   char    *prgmid         Name of the calling program
+ *              char	*msg		Optional additional message string
+ *
+ * Returns:     none
+ *
+ * History:     01/04/91        mlr     Original "warn_str.c" for libhut
+ *		03/03/98	gak	Adapted for placing timestamps in
+ *					FUSE pipeline programs.
+ *              06/07/99        peb     Added reporting of version number.
+ *              10/27/99        emm     Added fflush(stdout)
+ *              04/23/01        wvd     Change declaration of tim from
+ *                                      long to time_t
+ *              03/19/03        peb     Made this function a wrapper for
+ *                                      cf_verbose.
+ *              03/25/03        peb     Changed output to print time, program,
+ *                                      version number and to use verbose_level
+ *                                      when printing output
+ *                                      level>=1 prints "Finished processing"
+ *                                      level>=2 prints "Begin processing"
+ *              09/15/03  v1.5  wvd     To reduce size of the trailer file,
+ *					if verbose level = 1, print "Finished"
+ *					only for top-level routines.
+ *              10/17/03  v1.6  wvd     Use strcmp, rather than strncmp, to
+ *					set this_is_a_top_level_routine.
+ *              10/30/03  1.7   peb     Replaced cftime function with strftime
+ *                                      for UNIX compatibility.
+ *
+ ****************************************************************************/
+
+#include 
+#include 
+#include "calfuse.h"
+
+#define  N_STYM  80
+
+void cf_timestamp(const char *prgmid, const char *vernum, char *msg)
+{
+    char stym[N_STYM]={'\0'};
+    char *top_level_routines[]=TOP_LEVEL_ROUTINES;
+    int  i, this_is_a_top_level_routine = FALSE;
+    time_t tym;
+
+    time(&tym);
+    strftime(stym, N_STYM, "%Y %b %e %T", localtime(&tym));
+
+    /* Compare program ID with list of top-level routines. */
+    for (i = 0; i < NTOP_LEVEL_ROUTINES; i++) {
+	if (!strcmp(prgmid, top_level_routines[i])) {
+	    this_is_a_top_level_routine = TRUE;
+	    break;
+	}
+    }
+
+    /*
+     *  The following test should get most "Finished" or "Done" type of
+     *  timestamps.  For those not caught if might be best to change them to
+     *  one of these two.
+     */
+    if (((verbose_level == 1 && this_is_a_top_level_routine) ||
+	(verbose_level > 1)) &&
+	(strncmp(msg, "Finish", 6) == 0 || strncmp(msg, "Done", 4) == 0))
+	printf("%s %s-%s: %s\n", stym, prgmid, vernum, "Finished processing");
+    else if (verbose_level >= 2 &&
+	     (strncmp(msg, "Start", 5) == 0 || strncmp(msg, "Begin", 5) == 0))
+	printf("%s %s-%s: %s\n", stym, prgmid, vernum, "Begin processing");
+
+    fflush(stdout);
+}
diff --git a/src/libcf/cf_velang.c b/src/libcf/cf_velang.c
new file mode 100644
index 0000000..8395738
--- /dev/null
+++ b/src/libcf/cf_velang.c
@@ -0,0 +1,147 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_velang(fitsfile *outfits, double mjd)
+ *
+ * Description: Calculates the sun angle, moon angle, and conversions to
+ *              heliocentric and LSR velocities at given mjd, which should be
+ *              the middle of the exposure.  For FUV images, the needed
+ *              data is in the primary header, so we have to go back
+ *              up to the top.  For FES images, the data should be in
+ *              each HDU, so you should call cf_velang_calc instead.
+ *
+ * Arguments:   fitsfile  *outfits       Pointer to FITS file containing the
+ *                                      input data and orbital elements
+ *              double    mjd           The Modified Julian Date of the 
+ *                                      photon arrival time.
+ *
+ * Calls:       slaDsep         dsep.f
+ *              slaRdplan       rdplan.f
+ *
+ * History:     07/13/98        emm     Begin work
+ *              06/10/99        emm     Added keyword header update, added
+ *                                      calculation of MOONANG.
+ *              06/11/99        emm     Fixed some bugs that Jayant found.
+ *              06/21/99         jm     Corrected name
+ *              07/16/99        emm     Changed GEO_LON to GEO_LONG
+ *              07/21/99        peb     RA and Dec now use RA_TARG and DEC_TARG
+ *              07/22/99	emm     Added V_GEOCEN update.
+ *              07/23/99	emm     Added cf_velang_calc for FES images.
+ *              05/31/00        peb	Implemented cfortran.h calls for slalib
+ *                                 	functions.
+ *		04/01/03  v1.3	wvd	Replaced printf with cf_verbose
+ *		04/04/03  v1.4	wvd	Modifed calls to cf_verbose.
+ *              12/18/03  v1.5  bjg     Change calfusettag.h to calfuse.h
+ *              07/06/06  v1.6  wvd     Add call to pole_ang and populate 
+ *					header keyword POLEANGL.
+ *              03/07/07  v1.7  wvd     Remove pos from call to space_vel. 
+ *
+ ****************************************************************************/
+
+#include 
+
+#ifdef CFORTRAN
+#include "cfortran.h"
+PROTOCCALLSFFUN4(DOUBLE, SLA_DSEP, sla_dsep, DOUBLE, DOUBLE, DOUBLE, \
+		 DOUBLE)
+#define slaDsep(A1, B1, A2, B2) \
+     CCALLSFFUN4(SLA_DSEP, sla_dsep, DOUBLE, DOUBLE, DOUBLE, DOUBLE, \
+		 A1, B1, A2, B2)
+PROTOCCALLSFSUB7(SLA_RDPLAN, sla_rdplan, DOUBLE, INT, DOUBLE, DOUBLE, \
+		 PDOUBLE, PDOUBLE, PDOUBLE)
+#define slaRdplan(DATE, NP, ELONG, PHI, RA, DEC, DIAM) \
+     CCALLSFSUB7(SLA_RDPLAN, sla_rdplan, DOUBLE, INT, DOUBLE, DOUBLE, \
+		 PDOUBLE, PDOUBLE, PDOUBLE, \
+		 DATE, NP, ELONG, PHI, RA, DEC, DIAM)
+#else
+#include "slalib.h"
+#include "slamac.h"
+#endif
+
+#include "calfuse.h"
+#include "sgp4.h"
+
+SGP4 set_orbit_parms(fitsfile *);
+
+static void
+cf_velang_calc(fitsfile *outfits, double mjd)
+{
+    int    status=0;
+    char   comment[FLEN_CARD];
+    double ra, dec, geo_lon, geo_lat, mag_lat, pos[3], vel[3], gmst, helvel;
+    double ra_moon, dec_moon, moon_ang, dia_moon, vlsr1, vlsr2, sun_ang;
+    double geo_vel, pole_angle;
+    SGP4   sgp4;
+
+    /* get the state vector at time mjd */
+    sgp4 = set_orbit_parms(outfits);
+    SGP4_getStateVector(sgp4, mjd, pos, vel);
+    SGP4_precess(pos, mjd, MJD2000); SGP4_precess(vel, mjd, MJD2000);
+
+    cf_verbose(2,"State vector at MJD=%14.6f days", mjd);
+    cf_verbose(2,"x=%14.6f y=%14.6f z=%14.6f km", pos[0], pos[1], pos[2]);
+    cf_verbose(2,"vx=%14.6f vy=%14.6f vz=%14.6f km/s",vel[0], vel[1], vel[2]);
+
+    state_geod(pos, mjd, &geo_lon, &geo_lat, &gmst);
+
+    mag_lat = geod_mag(geo_lon, geo_lat);
+    /*
+     *  Note: this function has been changed to use RA_TARG and DEC_TARG
+     *  keywords, because the RA_APER and DEC_APER keywords are currently
+     *  not being set.
+     */
+    FITS_read_key(outfits, TDOUBLE, "RA_TARG", &ra, comment, &status);
+    FITS_read_key(outfits, TDOUBLE, "DEC_TARG", &dec, comment, &status);
+
+    geo_vel= space_vel(vel, ra, dec);
+    helvel = helio_vel(mjd, ra, dec);
+    vlsr1  = lsrk_vel(ra, dec);
+    vlsr2  = lsrd_vel(ra, dec);
+
+    /* Calculate sun angle */
+    sun_ang = solar_ang(mjd, ra, dec);
+
+    /* Calculate moon angle */
+#ifdef CFORTRAN
+    slaRdplan(mjd, 3, geo_lon, geo_lat, ra_moon, dec_moon, dia_moon);
+#else
+    slaRdplan(mjd, 3, geo_lon, geo_lat, &ra_moon, &dec_moon, &dia_moon);
+#endif
+    moon_ang = slaDsep(ra*RADIAN, dec*RADIAN, ra_moon, dec_moon)/RADIAN;
+
+    /* Calculate sun angle */
+    pole_angle = pole_ang(pos, vel, ra, dec);
+
+    FITS_update_key(outfits, TDOUBLE, "SUNANGLE", &sun_ang, NULL, &status);
+    FITS_update_key(outfits, TDOUBLE, "MOONANGL", &moon_ang, NULL, &status);
+    FITS_update_key(outfits, TDOUBLE, "POLEANGL", &pole_angle, NULL, &status);
+    FITS_update_key(outfits, TDOUBLE, "GEO_LONG", &geo_lon, NULL, &status);
+    FITS_update_key(outfits, TDOUBLE, "GEO_LAT",  &geo_lat, NULL, &status);
+    FITS_update_key(outfits, TDOUBLE, "MAG_LAT",  &mag_lat, NULL, &status);
+    FITS_update_key(outfits, TDOUBLE, "V_GEOCEN", &geo_vel, NULL, &status);
+    FITS_update_key(outfits, TDOUBLE, "V_HELIO",  &helvel, NULL, &status);
+    FITS_update_key(outfits, TDOUBLE, "V_LSRDYN", &vlsr2, NULL, &status);
+    FITS_update_key(outfits, TDOUBLE, "V_LSRSTD", &vlsr1, NULL, &status);
+}
+
+
+void cf_velang(fitsfile *outfits, double mjd)
+{
+    int    status=0, hdunum=0, hdutype;
+    /*
+     *  The outfits file pointer may be down in one of the extensions
+     *  whereas the orbital info is in the primary hdu.  Therefore,
+     *  record the current position, move to the primary header, 
+     *  read the orbital data, and return to the previous hdu.
+     */
+    FITS_get_hdu_num(outfits, &hdunum);
+    FITS_movabs_hdu(outfits, 1, &hdutype, &status);
+
+    cf_velang_calc(outfits, mjd);
+
+    FITS_movabs_hdu(outfits, hdunum, &hdutype, &status);
+
+}
diff --git a/src/libcf/cf_write_extracted_spectrum.c b/src/libcf/cf_write_extracted_spectrum.c
new file mode 100644
index 0000000..90831c2
--- /dev/null
+++ b/src/libcf/cf_write_extracted_spectrum.c
@@ -0,0 +1,226 @@
+/**************************************************************************
+ *              Johns Hopkins University
+ *              Center for Astrophysical Sciences
+ *              FUSE
+ *************************************************************************
+ *
+ * synopsis:    cf_write_extracted_spectrum(infile, aperture, nout, wave_out,
+ *                    flux_out, var_out, counts_out, weights_out, bkgd_out,
+ *                    bpix_out, outrootname)
+ *
+ * Description: Write the results of the data reduction to a file.
+ *              Information from the header is used to generate the name
+ *              of the output file.  Aperture coding is as follows:
+ *
+ *              1-8 -> LiF[HIRS,MDRS,LWRS,PINH], SiC[HIRS,MDRS,LWRS,PINH]
+ *
+ * Arguments:   fitsfile  infile   :   pointer to Intermediate Data File
+ *              int       aperture :   Target aperture (values are 1 to 8)
+ *		int  valid_spectrum:   True if spectrum contains photons.
+ *              long      nout     :   number of tabulated points
+ *              float     wave_out :   Output wavelength array
+ *              float     flux_out :   Output flux array
+ *              float     var_out  :   Output variance array
+ *              long    counts_out :   Output counts array (in counts)
+ *              float  weights_out :   Output weights array (in counts)
+ *              float     bkgd_out :   Output background array (in counts)
+ *              short     bpix_out :   Output bad pixel spectrum
+ *              char    outrootname:   Optional output file name
+ *
+ * Returns:	0 if successful
+ *                                
+ * HISTORY:     02/10/03   1.1   RDR    started work
+ *              02/28/03   1.2   peb    Added header files to file and tidied
+ *                                      code using lint.
+ *		03/12/03   1.3   wvd    Output ERROR = sqrt(var_out)
+ *		03/31/03   1.4   wvd	Update keywords FILENAME, FILETYPE,
+ *                                      and APER_ACT.
+ *		05/22/03   1.5   wvd	Direct cf_error_init to stderr.
+ *              05/29/03   1.6   rdr    Added bad pixel column
+ *              06/03/03   1.7   rdr    Change naming convention to allow
+ *					hist data
+ *              07/17/03   1.9   wvd    Test var_out before taking sqrt.
+ *					Change calfusettag.h to calfuse.h
+ *              10/01/03   1.10  wvd    Modify verbose levels.
+ *              11/10/03   1.11  wvd    Correct numbering scheme for HIRS
+ *					and MDRS apertures.
+ *              02/13/04   1.12  wvd    Correct error in COMMENT lines.
+ *              03/03/04   1.13  rdr    Populate archive search keywords
+ *              03/05/04   1.14  wvd    Change name of POTHOLE column 
+ *					to QUALITY.
+ *              03/24/04   1.15  wvd    If valid_spectrum=FALSE, write
+ *					warning message to file header.
+ *              04/06/04   1.16  bjg    Include string.h and ctype.h
+ *              04/09/04   1.17  wvd    If valid_spectrum=FALSE, set
+ *					EXPTIME = 0 in file header.
+ *              04/27/04   1.18  wvd    Move conversion from variance
+ *					to sigma from this routine to
+ *					cf_optimal_extraction.
+ *              06/11/04   1.19  peb    Added the -r option to override the
+ *                                      default rootname
+ *		02/01/05   1.20  wvd	Revert to standard FITS binary
+ *					table format for output file.
+ *		04/11/05   1.21  wvd	In HIST mode, don't write SIA
+ *					table to output spectral file.
+ *		06/03/05   1.22  wvd	Return status from cf_copy_hist_header.
+ *		06/03/05   1.23  wvd	Change cf_copy_hist_header to type void.
+ *		08/11/05   1.24  wvd	Delete FITS_write_date from 
+ *					cf_copy_hist_header.
+ *
+ **************************************************************************/
+
+#include 
+#include 
+#include 
+#include "calfuse.h"
+
+static char *ap_code[] = {"", "lif3", "lif2", "lif4", "lif1",
+                              "sic3", "sic2", "sic4", "sic1"};
+
+static void
+cf_copy_hist_header(fitsfile *infits, fitsfile *outfits, int *status)
+{
+	char	card[FLEN_CARD];
+	int	i, nkeys, naxis=0, nextend=1;
+	long	naxes[2];
+
+	naxes[0] = naxes[1] = 0;
+
+	FITS_create_img(outfits, SHORT_IMG, naxis, naxes, status);
+	FITS_delete_key(outfits, "COMMENT", status);
+	FITS_delete_key(outfits, "COMMENT", status);
+	FITS_write_key(outfits, TINT, "NEXTEND", &nextend,
+		"Number of standard extensions", status);
+	fits_get_hdrspace(infits, &nkeys, NULL, status);
+	cf_if_fits_error(*status);
+	for (i = 9; i <= nkeys; i++) {
+	    FITS_read_record(infits, i, card, status);
+	    FITS_write_record(outfits, card, status);
+	}
+}
+
+int
+cf_write_extracted_spectrum(fitsfile *infits, int aperture,
+	int valid_spectrum, long nout, float *wave_out,
+	float *flux_out, float *var_out, long *counts_out,
+	float *weights_out, float *bkgd_out, short *bpix_out,
+	char *outrootname)
+{
+    char CF_PRGM_ID[] = "cf_write_extracted_spectrum";
+    char CF_VER_NUM[] = "1.24";
+
+    fitsfile *outfits;
+    int nextend=1, status=0, tfields=7, timeref;
+    long i, frow=1, felem=1;
+    float bw=0., center=0., wmin=1200., wmax=0. ;
+    char comment[FLEN_CARD], datestr[FLEN_CARD];
+    char rootname[FLEN_VALUE]={'\0'}, instmode[FLEN_VALUE] ;
+    char det[FLEN_VALUE]={'\0'}, outfile[FLEN_VALUE]={'\0'};
+    char extname[]="SPECTRUM";
+    char *aperact[] = {"HIRS_LIF", "MDRS_LIF", "LWRS_LIF", "PINH_LIF",
+                      "HIRS_SIC", "MDRS_SIC", "LWRS_SIC", "PINH_SIC"};
+    char *ttype[]={"WAVE","FLUX","ERROR","COUNTS","WEIGHTS","BKGD","QUALITY"};
+    char *tform[]={"1E", "1E", "1E", "1J", "1E", "1E", "1I"};
+    char *tunit[]={"ANGSTROMS","ERG CM^-2 S^-1 ANG^-1","ERG CM^-2 S^-1 ANG^-1",
+		"COUNTS", "COUNTS", "COUNTS","UNITLESS"};
+
+    /* Initialize error checking */ 
+    cf_error_init(CF_PRGM_ID, CF_VER_NUM, stderr);
+
+    /* Enter a time stamp into the log */
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin Processing");
+
+    /*
+     *  Read the observation ID from the input file and create an
+     *  output file name.
+    */
+    FITS_movabs_hdu(infits, 1, NULL, &status);
+    FITS_read_key(infits, TSTRING, "ROOTNAME", rootname, NULL, &status);
+    FITS_read_key(infits, TSTRING, "DETECTOR", det, NULL, &status);
+    FITS_read_key(infits, TSTRING, "INSTMODE", instmode, NULL, &status);
+
+    /* Override the default rootname if the -r option is given. */
+    if (outrootname != NULL)
+        strcpy(rootname, outrootname);
+
+    /* Convert detector name to lower case */
+    det[1] = tolower(det[1]);
+    
+    if (!strncmp(instmode,"T",1))
+        sprintf(outfile, "%11s%2s%4sttagfcal.fit",
+                rootname, det, ap_code[aperture]);
+    else if (!strncmp(instmode,"H",1))
+        sprintf(outfile, "%11s%2s%4shistfcal.fit",
+                rootname, det, ap_code[aperture]);
+    else {
+      cf_if_error("Cannot create name for the output files.") ;
+      return 1;
+    }
+    cf_verbose(3, "Output file name = %s", outfile);
+
+    /* Open the output file and copy the header info from the input file */
+    FITS_create_file(&outfits, outfile, &status);
+    if (!strncmp(instmode,"T",1))
+        FITS_copy_header(infits, outfits, &status);
+    else
+	cf_copy_hist_header(infits, outfits, &status);
+    FITS_update_key(outfits, TINT, "NEXTEND", &nextend, NULL, &status);
+    FITS_update_key(outfits, TSTRING, "FILENAME", outfile, NULL, &status);
+    FITS_update_key(outfits, TSTRING, "FILETYPE",
+                 "CALIBRATED EXTRACTED SPECTRUM", NULL, &status);
+    FITS_update_key(outfits, TSTRING, "APER_ACT", aperact[aperture-1],
+                 NULL, &status);
+
+    /* If valid_spectrum = FALSE, write warning to file header. */
+    if (valid_spectrum == FALSE) {
+	float exptime = 0.;
+	FITS_update_key(outfits, TFLOAT, "EXPTIME", &exptime, NULL, &status);
+        FITS_write_comment(outfits, "  ", &status);
+        FITS_write_comment(outfits,
+		"No good data.  Output arrays set to zero.", &status);
+        fits_get_system_time(datestr, &timeref, &status);
+        sprintf(comment, "CalFUSE v%s   %.10s", CALFUSE_VERSION, datestr);
+        FITS_write_comment(outfits, comment, &status);
+        FITS_write_comment(outfits, "  ", &status);
+    }
+
+    /* Populate archive search keywords */
+    for (i=0 ; i wmax) wmax=wave_out[i] ;
+    }
+       bw = wmax-wmin ;
+       center = (wmax + wmin) / 2. ;
+    FITS_update_key(outfits, TFLOAT, "BANDWID", &bw, NULL, &status);
+    FITS_update_key(outfits, TFLOAT, "CENTRWV", ¢er, NULL, &status);
+    FITS_update_key(outfits, TFLOAT, "WAVEMIN", &wmin, NULL, &status);
+    FITS_update_key(outfits, TFLOAT, "WAVEMAX", &wmax, NULL, &status);
+
+    /* Put the data into the table */
+    FITS_create_tbl(outfits, BINARY_TBL, nout, tfields, ttype, tform,
+		    tunit, extname, &status);
+    FITS_write_col(outfits, TFLOAT, 1, frow, felem, nout, wave_out, &status);
+    FITS_write_col(outfits, TFLOAT, 2, frow, felem, nout, flux_out, &status);
+    FITS_write_col(outfits, TFLOAT, 3, frow, felem, nout, var_out, &status);
+    FITS_write_col(outfits, TLONG,  4, frow, felem, nout, counts_out, &status);
+    FITS_write_col(outfits, TFLOAT, 5, frow, felem, nout, weights_out, &status);
+    FITS_write_col(outfits, TFLOAT, 6, frow, felem, nout, bkgd_out, &status);
+    FITS_write_col(outfits, TSHORT, 7, frow, felem, nout, bpix_out, &status);
+    
+    /* Write some comments into the header */
+    FITS_write_comment(outfits, " ", &status);
+    FITS_write_comment(outfits, "RAW COUNTS = COUNTS ",
+		       &status);
+    FITS_write_comment(outfits, "TARGET COUNTS = WEIGHTS - BKGD ",
+		       &status);
+    FITS_write_comment(outfits, "TARGET FLUX = TARGET COUNTS * HC / LAMBDA / "
+		       "AEFF / EXPTIME / WPC", &status);
+    FITS_write_comment(outfits, " ", &status);
+
+    FITS_close_file(outfits, &status);
+
+    /* Enter a time stamp into the log */
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Finished processing");
+
+    return (status);
+}
diff --git a/src/libcf/eclipse.c b/src/libcf/eclipse.c
new file mode 100644
index 0000000..a1e0b44
--- /dev/null
+++ b/src/libcf/eclipse.c
@@ -0,0 +1,148 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    int eclipse(double pos[3], double mjdate)
+ *
+ * Description: Determines if FUSE is in the day or night portion of the orbit.
+ *              
+ *
+ * Arguments:   double pos            Cartesian vector xyz coord of satellite.
+ *              double mjdate          Julian date of observation
+ *
+ * Returns:     int                   0 if day portion of orbit
+ *                                    1 if night portion of orbit
+ *                    
+ * Calls:       slaDcc2s              dcc2s.f
+ *              slaDranrm             dranrm.f
+ *              slaDsep               dsep.f
+ *              slaEvp                evp.f
+ *              slaPreces             preces.f
+ *
+ * History:     03/10/98  E. Murphy   Begin work.
+ *              03/10/98  E. Murphy   Initial version working
+ *              07/07/99  E. Murphy   Replaced x,y,z in call with pos
+ *              07/20/99  jm          Removed duplicate define statements
+ *              08/26/99  E. Murphy   ang_sep now returned.
+ *              05/31/00        peb   Implemented cfortran.h calls for slalib
+ *                                    functions.
+ *              12/18/03  bjg       Change calfusettag.h to calfuse.h
+ *              06/17/04  bjg  1.4  Corrected cfortran call to sla_preces   
+ *
+ * References:  This routine makes use of the Starlink set of astronomical
+ *              subroutines (SLALIB).  More information can be found at
+ *              http://star-www.rl.ac.uk.
+ ****************************************************************************/
+ 
+#include 
+#include 
+
+#ifdef CFORTRAN
+#include "cfortran.h"
+PROTOCCALLSFSUB3(SLA_DCC2S, sla_dcc2s, DOUBLEV, PDOUBLE, PDOUBLE)
+#define slaDcc2s(V, A, B) \
+     CCALLSFSUB3(SLA_DCC2S, sla_dcc2s, DOUBLEV, PDOUBLE, PDOUBLE, V, A, B)
+PROTOCCALLSFFUN1(DOUBLE, SLA_DRANRM, sla_dranrm, DOUBLE)
+#define slaDranrm(ANGLE) \
+     CCALLSFFUN1(SLA_DRANRM, sla_dranrm, DOUBLE, ANGLE)
+PROTOCCALLSFFUN4(DOUBLE, SLA_DSEP, sla_dsep, DOUBLE, DOUBLE, DOUBLE, \
+		 DOUBLE)
+#define slaDsep(A1, B1, A2, B2) \
+     CCALLSFFUN4(SLA_DSEP, sla_dsep, DOUBLE, DOUBLE, DOUBLE, DOUBLE, \
+		 A1, B1, A2, B2)
+PROTOCCALLSFSUB6(SLA_EVP, sla_evp, DOUBLE, DOUBLE, DOUBLEV, DOUBLEV, \
+		 DOUBLEV, DOUBLEV)
+#define slaEvp(DATE, DEQX, DVB, DPB, DVH, DPH) \
+     CCALLSFSUB6(SLA_EVP, sla_evp, DOUBLE, DOUBLE, DOUBLEV, DOUBLEV, \
+		 DOUBLEV, DOUBLEV, DATE, DEQX, DVB, DPB, DVH, DPH)
+PROTOCCALLSFSUB5(SLA_PRECES, sla_preces, STRING, DOUBLE, DOUBLE, PDOUBLE, \
+		 PDOUBLE)
+#define slaPreces(SYSTEM, EP0, EP1, RA, DC) \
+     CCALLSFSUB5(SLA_PRECES, sla_preces, STRING, DOUBLE, DOUBLE, PDOUBLE, \
+		 PDOUBLE, SYSTEM, EP0, EP1, RA, DC)
+#else
+#include "slalib.h"
+#include "slamac.h"
+#endif
+
+#include "calfuse.h"
+
+int eclipse(double *pos, double mjdate, double *ang_sep)
+{
+    /* Define variables. */
+    int    i, retcode;
+    double dvb[3], dpb[3], dvh[3], dph[3], epoch2;
+    double r, ra_earth, dec_earth, ra_sun, dec_sun, ang_earth, ang_sun;
+    char fk5_st[10]="FK5";
+
+    /* Calculate the J2000.0 apparent RA and DEC of the Earth */
+    r=sqrt(pos[0]*pos[0]+pos[1]*pos[1]+pos[2]*pos[2]);
+    ra_earth=atan2(-pos[1],-pos[0]);
+    dec_earth=asin(-pos[2]/r);
+
+    /*  We must precess the J2000 RA and DEC to date of observation. This
+     *  is a very small correction, and could probably be ignored.
+     */
+
+    epoch2=2000.0-((51544.0-mjdate)/365.25);
+
+#ifdef CFORTRAN
+    slaPreces(fk5_st, 2000.0, epoch2, ra_earth, dec_earth);
+#else
+    slaPreces(fk5_st, 2000.0, epoch2, &ra_earth, &dec_earth);
+#endif
+
+    /*  Evp returns four 3-vectors containing the barycentric velocity and
+     *  position (dvb,dpv) and the heliocentric velocity and position 
+     *  (dvh,dph) of the Earth on the date mjdate.  It requires a modified 
+     *  Julian date as input.  Output has units of AU for positions and 
+     *  AU/s for velocities.
+     */
+
+    slaEvp(mjdate, 2000.0, dvb, dpb, dvh, dph);
+
+    /*  Convert the 3-vector position of the Sun into a J2000.0 RA and DEC */
+
+    for (i=0; i<3; i++) dph[i]*=-1.0;
+
+ 
+#ifdef CFORTRAN
+    slaDcc2s(dph, ra_sun, dec_sun);
+#else
+    slaDcc2s(dph, &ra_sun, &dec_sun);
+#endif
+
+    ra_sun=slaDranrm(ra_sun);
+
+    /*  We must precess the J2000 RA and DEC to date of observation. This
+     *  is a very small correction, and could probably be ignored.
+     */
+
+    epoch2=2000.0-((51544.0-mjdate)/365.25);
+
+#ifdef CFORTRAN
+    slaPreces(fk5_st, 2000.0, epoch2, ra_sun, dec_sun);
+#else
+    slaPreces(fk5_st, 2000.0, epoch2, &ra_sun, &dec_sun);
+#endif
+
+    /* Compute the angular sizes of the Earth and the Sun. */
+
+    ang_earth=asin(RE/r);
+
+    ang_sun=asin(RS/(sqrt(dph[0]*dph[0]+dph[1]*dph[1]+dph[2]*dph[2])*AU));
+
+    /* Compute the angular separation of the Earth and the Sun. */
+
+    *ang_sep=slaDsep(ra_earth, dec_earth, ra_sun, dec_sun);
+
+    retcode=0;
+    if (*ang_sep < ang_earth+ang_sun) retcode=1;
+
+    /* Convert ang_sep into degrees. */
+    *ang_sep /= RADIAN;
+
+    return retcode;
+}
diff --git a/src/libcf/geod_mag.c b/src/libcf/geod_mag.c
new file mode 100644
index 0000000..6750f9d
--- /dev/null
+++ b/src/libcf/geod_mag.c
@@ -0,0 +1,40 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    double geod_mag(double lon, double lat)
+ *
+ * Description: Computes the magnetic latitude of FUSE from the
+ *              given geocentric longitude and latitude.
+ *
+ * Arguments:   double lon,lat        (deg) Geocentric longitude and latitude
+ *
+ * Returns:     double                Geomagnetic latitude.
+ *                    
+ * History:     03/11/98  E. Murphy   Begin work.
+ *              03/11/98  E. Murphy   Initial version working
+ *              04/13/99  E. Murphy   Moved PI and RADIAN to calfuse.h
+ *              12/18/03  bjg         Change calfusettag.h to calfuse.h
+ *
+ *              Ake, T. 1998 in The Scientific Impact of the Goddard
+ *                   High Resolution Spectrograph, ed. J. C. Brandt et al.,
+ *                   ASP Conference Series, in preparation.
+ ****************************************************************************/
+ 
+#include 
+#include 
+#include "calfuse.h"
+ 
+double geod_mag(double lon, double lat)
+{
+    double lat_rad, c1;
+
+    lat_rad=lat*RADIAN;
+
+    c1=sin(lat_rad)*cos(11.4*RADIAN)-
+        cos(lat_rad)*cos((lon+69.8)*RADIAN)*sin(11.4*RADIAN);
+
+    return asin(c1)/RADIAN;
+}
diff --git a/src/libcf/helio_vel.c b/src/libcf/helio_vel.c
new file mode 100644
index 0000000..bc069b6
--- /dev/null
+++ b/src/libcf/helio_vel.c
@@ -0,0 +1,82 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    double helio_vel(double mjdate, double ra, double dec)
+ *
+ * Description: Computes the Earth's orbital velocity in the direction 
+ *              of ra,dec to convert to heliocentric velocity.
+ *
+ * Arguments:   double mjdate         Mod. Julian date of observation
+ *              double ra             (deg) J2000.0 right ascension
+ *              double dec            (deg) J2000.0 declination 
+ *
+ * Returns:     double                (km/s) velocity in direction of source
+ *                    
+ * Calls:       slaEvp                evp.f
+ *              slaDcs2c              dcs2c.f
+ *              slaDvdv               dvdv.f
+ *
+ * History:     03/05/98  E. Murphy   Begin work.
+ *              03/05/98  E. Murphy   Initial version working
+ *              05/31/00        peb   Implemented cfortran.h calls for slalib
+ *                                    functions.
+ *              06/15/01  V. Dixon    Correct sign of return value to agree
+ *				      with astronomical convention.
+ *              12/18/03  bjg         Change calfusettag.h to calfuse.h
+ *
+ * References:  This routine makes use of the Starlink set of astronomical
+ *              subroutines (SLALIB).  More information can be found at
+ *              http://star-www.rl.ac.uk.
+ ****************************************************************************/
+ 
+#include 
+
+#ifdef CFORTRAN
+#include "cfortran.h"
+
+PROTOCCALLSFSUB3(SLA_DCS2C, sla_dcs2c, DOUBLE, DOUBLE, DOUBLEV)
+#define slaDcs2c(A, B, V) \
+     CCALLSFSUB3(SLA_DCS2C, sla_dcs2c, DOUBLE, DOUBLE, DOUBLEV, A, B, V)
+
+PROTOCCALLSFFUN2(DOUBLE, SLA_DVDV, sla_dvdv, DOUBLEV, DOUBLEV)
+#define slaDvdv(VA, VB) \
+     CCALLSFFUN2(SLA_DVDV, sla_dvdv, DOUBLEV, DOUBLEV, VA, VB)
+
+PROTOCCALLSFSUB6(SLA_EVP, sla_evp, DOUBLE, DOUBLE, DOUBLEV, DOUBLEV, \
+		 DOUBLEV, DOUBLEV)
+#define slaEvp(DATE, DEQX, DVB, DPB, DVH, DPH) \
+     CCALLSFSUB6(SLA_EVP, sla_evp, DOUBLE, DOUBLE, DOUBLEV, DOUBLEV, \
+		 DOUBLEV, DOUBLEV, DATE, DEQX, DVB, DPB, DVH, DPH)
+#else
+#include "slalib.h"
+#include "slamac.h"
+#endif
+
+#include "calfuse.h"
+ 
+double helio_vel(double mjdate, double ra, double dec)
+{
+    /* Define variables. */
+    double dvb[3], dpb[3], dvh[3], dph[3], vect[3];
+    /*
+     *  Evp returns four 3-vectors containing the barycentric velocity and
+     *  position (dvb,dpb) and the heliocentric velocity and position 
+     *  (dvh,dph) of the Earth on the date mjdate.  It requires a modified 
+     *  Julian date as input.  Output has units of AU for positions and 
+     *  AU/s for velocities.
+     */
+    slaEvp(mjdate, 2000.0, dvb, dpb, dvh, dph);
+
+    /*  Convert the J2000.0 RA and DEC into a 3-vector position */
+
+    slaDcs2c(RADIAN*ra, RADIAN*dec, vect);
+    /*
+     *  Compute the dot product of the RA DEC position vector and the 
+     *  heliocentric velocity vector.  Mutliply by km/AU to get velocity 
+     *  in km/s.
+     */
+    return slaDvdv(vect, dvh)*149.5978707E6;
+}
diff --git a/src/libcf/lsrd_vel.c b/src/libcf/lsrd_vel.c
new file mode 100644
index 0000000..a90c22b
--- /dev/null
+++ b/src/libcf/lsrd_vel.c
@@ -0,0 +1,51 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    double lsrd_vel(double ra, double dec)
+ *
+ * Description: Computes the Sun's velocity in the direction 
+ *              of ra,dec to convert to a LSR.  In this case we
+ *              are using the dynamical solar motion of 
+ *              16.6 km/s towards l=53, b=+25.
+ *
+ * Arguments:   double ra             (deg) J2000.0 right ascension
+ *              double dec            (deg) J2000.0 declination 
+ *
+ * Returns:     double                (km/s) velocity in direction of source
+ *                    
+ * Calls:       slaRvlsrd             rvslrd.f
+ *
+ * History:     03/05/98  E. Murphy   Begin work.
+ *              03/05/98  E. Murphy   Initial version working
+ *              05/31/00        peb   Implemented cfortran.h calls for slalib
+ *                                    functions.
+ *              06/15/01  V. Dixon    Multiply return value by -1.0 to agree
+ *				      with astronomical convention.
+ *              12/18/03    bjg       Change calfusettag.h to calfuse.h
+ *
+ * References:  This routine makes use of the Starlink set of astronomical
+ *              subroutines (SLALIB).  More information can be found at
+ *              http://star-www.rl.ac.uk.
+ ****************************************************************************/
+ 
+#include 
+
+#ifdef CFORTRAN
+#include "cfortran.h"
+PROTOCCALLSFFUN2(FLOAT, SLA_RVLSRD, sla_rvlsrd, FLOAT, FLOAT)
+#define slaRvlsrd(R2000, D2000) \
+     CCALLSFFUN2(SLA_RVLSRD, sla_rvlsrd, FLOAT, FLOAT, R2000, D2000)
+#else
+#include "slalib.h"
+#include "slamac.h"
+#endif
+
+#include "calfuse.h"
+ 
+double lsrd_vel(double ra, double dec)
+{
+    return -1.0 * slaRvlsrd((float) ra*RADIAN, (float) dec*RADIAN);
+}
diff --git a/src/libcf/lsrk_vel.c b/src/libcf/lsrk_vel.c
new file mode 100644
index 0000000..15f5a6c
--- /dev/null
+++ b/src/libcf/lsrk_vel.c
@@ -0,0 +1,52 @@
+/****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ ****************************************************************************
+ *
+ * Synopsis:    double lsrk_vel(double ra, double dec)
+ *
+ * Description: Computes the Sun's velocity in the direction 
+ *              of ra,dec to convert to a LSR.  In this case we
+ *              are using standard solar motion of 
+ *              20 km/s towards RA 18h Dec +30d (1900).
+ *
+ * Arguments:   double ra             (deg) J2000.0 right ascension
+ *              double dec            (deg) J2000.0 declination 
+ *
+ * Returns:     double                (km/s) velocity in direction of source
+ *                    
+ * Calls:       slaRvlsrk             rvlsrk.f
+ *
+ * History:     03/05/98  E. Murphy   Begin work.
+ *              03/05/98  E. Murphy   Initial version working
+ *              04/13/99  E. Murphy   Clean up a bit
+ *              05/31/00        peb   Implemented cfortran.h calls for slalib
+ *                                    functions.
+ *              06/15/01  V. Dixon    Multiply return value by -1.0 to agree
+ *                                    with astronomical convention.
+ *              12/18/03    bjg       Change calfusettag.h to calfuse.h
+ *
+ * References:  This routine makes use of the Starlink set of astronomical
+ *              subroutines (SLALIB).  More information can be found at
+ *              http://star-www.rl.ac.uk.
+ ****************************************************************************/
+ 
+#include 
+
+#ifdef CFORTRAN
+#include "cfortran.h"
+PROTOCCALLSFFUN2(FLOAT, SLA_RVLSRK, sla_rvlsrk, FLOAT, FLOAT)
+#define slaRvlsrk(R2000, D2000) \
+     CCALLSFFUN2(SLA_RVLSRK, sla_rvlsrK, FLOAT, FLOAT, R2000, D2000)
+#else
+#include "slalib.h"
+#include "slamac.h"
+#endif
+
+#include "calfuse.h"
+
+double lsrk_vel(double ra, double dec)
+{
+    return -1.0 * slaRvlsrk((float) ra*RADIAN, (float) dec*RADIAN);
+}
diff --git a/src/libcf/month_day.c b/src/libcf/month_day.c
new file mode 100644
index 0000000..1ecfae1
--- /dev/null
+++ b/src/libcf/month_day.c
@@ -0,0 +1,19 @@
+/* month_day: return month,day from day of year */
+/*	07/21/04    1.4   wvd	Add () to defn of leap */
+
+#include "calfuse.h"
+
+void month_day(int year, int yearday, int *pmonth, int *pday)
+{
+    static char daytab[2][13]={
+	{0,31,28,31,30,31,30,31,31,30,31,30,31},
+	{0,31,29,31,30,31,30,31,31,30,31,30,31}
+    };
+    int i, leap;
+
+    leap = ((year%4 == 0 && year%100 != 0) || year%400 == 0);
+    for (i=1; yearday>daytab[leap][i]; i++)
+	yearday-=daytab[leap][i];
+    *pmonth=i;
+    *pday=yearday;
+}
diff --git a/src/libcf/pole_ang.c b/src/libcf/pole_ang.c
new file mode 100644
index 0000000..ae90cc2
--- /dev/null
+++ b/src/libcf/pole_ang.c
@@ -0,0 +1,64 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    double pole_ang(double *pos, double *vel, double ra, double dec)
+ *
+ * Description: Computes the position of the orbit pole from the given state 
+ *		6-vector.  Returns the angle between the pole and the given
+ *		RA and DEC.
+ *
+ * Arguments:   double *pos           (km) 3-vector position of satellite
+ *              double *vel           (km/s) 3-vector velocity of satellite
+ *              double ra,dec         (deg) position of source
+ *
+ * Returns:     double                (deg) angle from orbit pole to source
+ *
+ * History:     07/06/06  wvd   1.1   Adapted from space_vel and sun_ang
+ *		04/08/07  wvd	1.2   Cast SGP4_getPole as a void.
+ *
+ * References:  This routine makes use of the Starlink set of astronomical
+ *              subroutines (SLALIB).  More information can be found at
+ *              http://star-www.rl.ac.uk.
+ *****************************************************************************/
+ 
+#include 
+
+#ifdef CFORTRAN
+#include "cfortran.h"
+PROTOCCALLSFSUB3(SLA_DCC2S, sla_dcc2s, DOUBLEV, PDOUBLE, PDOUBLE)
+#define slaDcc2s(V, A, B) \
+     CCALLSFSUB3(SLA_DCC2S, sla_dcc2s, DOUBLEV, PDOUBLE, PDOUBLE, V, A, B)
+PROTOCCALLSFFUN1(DOUBLE, SLA_DRANRM, sla_dranrm, DOUBLE)
+#define slaDranrm(ANGLE) \
+     CCALLSFFUN1(SLA_DRANRM, sla_dranrm, DOUBLE, ANGLE)
+PROTOCCALLSFFUN4(DOUBLE, SLA_DSEP, sla_dsep, DOUBLE, DOUBLE, DOUBLE, DOUBLE)
+#define slaDsep(A1, B1, A2, B2) \
+     CCALLSFFUN4(SLA_DSEP, sla_dsep, DOUBLE, DOUBLE, DOUBLE, DOUBLE, \
+                 A1, B1, A2, B2)
+#else
+#include "slalib.h"
+#include "slamac.h"
+#endif
+
+#include "calfuse.h"
+ 
+double pole_ang(double pos[3], double vel[3], double ra, double dec)
+{
+    double pole[3], ra_pole, dec_pole;
+
+    /* Get 3-vector containing the orbit pole. */
+    (void) SGP4_getPole(pos, vel, pole);
+
+    /* Convert 3-vector into J2000.0 RA and DEC */
+#ifdef CFORTRAN
+    slaDcc2s(pole, ra_pole, dec_pole);
+#else
+    slaDcc2s(pole, &ra_pole, &dec_pole);
+#endif
+
+    /*  Compute the angular separation of RA, DEC and RA_POLE, DEC_POLE */
+    return slaDsep(ra*RADIAN, dec*RADIAN, slaDranrm(ra_pole), dec_pole)/RADIAN;
+}
diff --git a/src/libcf/read_tle.c b/src/libcf/read_tle.c
new file mode 100644
index 0000000..38db069
--- /dev/null
+++ b/src/libcf/read_tle.c
@@ -0,0 +1,303 @@
+/******************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ ******************************************************************************
+ *
+ * Synopsis:    read_tle(fitsfile *fptr)
+ *
+ * Description: read_tle will read the standard tle format file FUSE.TLE 
+ *              and place the orbital elements into the header of the
+ *              fitsfile.  The FUSE.TLE file will contain multiple orbital 
+ *              element sets, so the set closest in time to the observation
+ *              will be used.
+ *
+ * Arguments:   fitsfile    *fptr    Pointer to input file
+ *
+ * History:     11/11/98   emurphy   Begin work.
+ *              03/18/98   emurphy   Added To do list.
+ *              04/08/99       peb   Tidied code and added necessary
+ *                                   include files
+ *              06/07/99       peb   Added reporting of version control.
+ *              06/22/99       peb   Added FITS_ wrappers.
+ *              08/05/99       emm   Added statements to print date
+ *                                   of obs and TLE if dtime > 5.
+ *                                   Also modified program to work with
+ *                                   FES keywords TEXPSTRT and TEXPEND
+ *              05/31/00       peb   Implemented cfortran.h calls for slalib
+ *                                   functions.
+ *		02/13/03 v1.4  wvd   Change 0 to NULL in FITS_update_key
+ *              03/01/03 v1.5  wvd   Correct use of pointer in FITS_read_key
+ *              04/01/03 v1.6  wvd   Replace cf_errmsg with cf_if_warning,
+ *					printf with cf_verbose
+ *              12/18/03 v1.7  bjg   Change calfusettag.h to calfuse.h
+ *              04/07/07 v1.8  wvd   Initialize min_mjd to zero to silence
+ *					compiler warnings.
+ *
+ *****************************************************************************/
+
+#include 
+#include 
+#include 
+#include 
+
+#ifdef CFORTRAN
+#include "cfortran.h"
+PROTOCCALLSFSUB5(SLA_CLDJ, sla_cldj, INT, INT, INT, PDOUBLE, PINT)
+#define slaCldj(IY, IM, ID, DJM, J) \
+     CCALLSFSUB5(SLA_CLDJ, sla_cldj, INT, INT, INT, PDOUBLE, PINT, \
+		 IY, IM, ID, DJM, J)
+#else
+#include "slalib.h"
+#include "slamac.h"
+#endif
+
+#include "calfuse.h"
+
+#define  MAXCHARS 120
+static char CF_PRGM_ID[] = "read_tle";
+static char CF_VER_NUM[] = "1.8";
+
+void read_tle(fitsfile *fptr)
+{
+    char   line1[MAXCHARS], line2[MAXCHARS], line3[MAXCHARS];
+    char   sat_num[10], security_class[10], international_num[10];
+    char   inchar[15][15], sp[15][2], sgn[4][2];
+    char   comment[FLEN_CARD], eccen_str[20];
+    char   n6_mant_str[20], drag_mant_str[20], instrument[FLEN_CARD];
+    int    status=0, hdutype=0, card_num, epoch_year, n6_exponent;
+    int    drag_exponent, ephemeris, elset_num, checksum1, checksum2; 
+    int    rev_num, e_month, e_day;
+    double n6_mantissa, drag_mantissa, epoch_day, n2, inclin, raan;
+    double aop, mean_anom, mean_mot, n6, drag, semimaj, revspersec;
+    double expstart, expend, expmiddle, eccentr, dtime=1.0e9;
+    double i_day, f_day, mjd, mjd_f, mjd_d, min_mjd=0;
+    FILE   *ftle;
+
+    /* Enter a timestamp into the log. */
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Begin reading TLE file");
+
+    /*  Open the file with the standard two-line elements. */
+    ftle = NULL;
+    ftle = fopen(cf_cal_file("FUSE.TLE"),"r");
+    if (ftle == NULL)
+	cf_if_error("Cannot find file FUSE.TLE, which contains the"
+		  " orbital elements.");
+
+    /*  Rewind the fits file and get the start time of the exposure */
+    FITS_movabs_hdu(fptr, 1, &hdutype, &status);
+    FITS_read_key(fptr, TSTRING, "INSTRUME", instrument, comment, &status);
+
+    /* In the primary header, the FES files use keywords with a different
+       name.  This is because the FES may have many exposures in a file.
+       The TEXPSTRT is the start of the first exposure and TEXPEND is the
+       end of the last exposure. */
+    if (!strncmp(instrument,"FES",3)) {
+         /* Read in FES keywords */
+         FITS_read_key(fptr, TDOUBLE, "TEXPSTRT", &expstart, comment, &status);
+         FITS_read_key(fptr, TDOUBLE, "TEXPEND", &expend, comment, &status);
+    } else {
+         /* Read in FUV keywords */
+         FITS_read_key(fptr, TDOUBLE, "EXPSTART", &expstart, comment, &status);
+         FITS_read_key(fptr, TDOUBLE, "EXPEND", &expend, comment, &status);
+    }
+
+    /* expmiddle is in mjd */
+    expmiddle = (expstart+expend)/2.0;
+
+    /*  Read in FUSE.TLE file by getting one line at a time  */
+    while (fgets(line1, MAXCHARS,ftle) != NULL) {
+	fgets(line2, MAXCHARS, ftle);
+	fgets(line3, MAXCHARS, ftle);
+
+#ifdef DEBUG
+	printf("\n\n%-80.80s\n",line1);
+	printf("%-80.80s\n",line2);
+	printf("%-80.80s\n",line3);
+#endif
+	/*
+	 *  This may look like a stupid way to do this, but it has to be
+	 *  done this way.  You see, the fields can contain leading blanks
+	 *  which should be interpreted as zeros.  However, c skips over
+	 *  leading blanks when reading %f and %d.
+	 */
+	sscanf(line2,"%1c%1c%5c%1c%1c%8c%1c%2c%12c%1c%1c%9c%1c%1c%5c%2c%1c"
+	       "%1c%5c%2c%1c%1c%1c%4c%1c",
+	       inchar[1],sp[1],inchar[2],inchar[3],sp[2],inchar[4],sp[3],
+	       inchar[5],inchar[6],sp[4],sgn[1],inchar[7],sp[5],sgn[2],
+	       inchar[8],inchar[9],sp[6],sgn[3],inchar[10],inchar[11],
+	       sp[7],inchar[12], sp[8],inchar[13],inchar[14]);
+
+	inchar[1][1]='\0';
+	card_num=atoi(inchar[1]);
+
+	inchar[2][5]='\0';
+	strncpy(sat_num,inchar[2],5);
+
+	inchar[3][1]='\0';
+	strncpy(security_class,inchar[3],1);
+
+	inchar[4][8]='\0';
+	strncpy(international_num,inchar[4],8);
+
+	inchar[5][2]='\0';
+	epoch_year=atoi(inchar[5]);
+	if (epoch_year < 50)
+	    epoch_year+=2000;
+	else
+	    epoch_year+=1900;
+
+	inchar[6][12]='\0';
+	epoch_day=atof(inchar[6]);
+
+	inchar[7][9]='\0';
+	n2=atof(inchar[7]);
+	if (sgn[1][0] == '-')
+	    n2*=-1.0;
+
+	inchar[8][5]='\0';
+	strcpy(n6_mant_str,"0.");
+	strncat(n6_mant_str,inchar[8],7);
+#ifdef DEBUG
+	printf("n6=%-10.10s\n",n6_mant_str);
+#endif
+	n6_mantissa=atof(n6_mant_str);
+	if (sgn[2][0] == '-')
+	    n6_mantissa*=-1.0;
+
+	inchar[9][2]='\0';
+	n6_exponent=atoi(inchar[9]);
+
+	inchar[10][5]='\0';
+	strcpy(drag_mant_str,"0.");
+	strncat(drag_mant_str,inchar[10],7);
+#ifdef DEBUG
+	printf("Drag=%-10.10s\n",drag_mant_str);
+#endif
+	drag_mantissa=atof(drag_mant_str);
+	if (sgn[3][0] == '-')
+	    drag_mantissa*=-1.0;
+
+	inchar[11][2]='\0';
+	drag_exponent=atoi(inchar[11]);
+
+	inchar[12][1]='\0';
+	ephemeris=atoi(inchar[12]);
+
+	inchar[13][4]='\0';
+	elset_num=atoi(inchar[13]);
+
+	inchar[14][1]='\0';
+	checksum1=atoi(inchar[14]);
+
+	n6=n6_mantissa*pow(10.0,(double) n6_exponent);
+	drag=drag_mantissa*pow(10.0,(double) drag_exponent);
+
+#ifdef DEBUG
+	printf("n6=>%10.5f %5d %15.6E\n", n6_mantissa, n6_exponent, n6);
+	printf("drag=>%10.5f %5d %15.6E\n", drag_mantissa,
+	       drag_exponent, drag);
+	for(i=1; i<=14; i++)
+	    printf("%2d %-15.15s\n",i,inchar[i]);
+	for(i=1; i<=3; i++)
+	    printf("%2d %-5.5s\n",i,sgn[i]);
+#endif
+	sscanf(line3,"%1c%1c%5c%1c%8c%1c%8c%1c%7c%1c%8c%1c%8c%1c%11c%5c%1c",
+	       inchar[1],sp[1],inchar[2],sp[2],inchar[3],sp[3],inchar[4],
+	       sp[4],inchar[5],sp[5],inchar[6],sp[6],inchar[7],sp[7],
+	       inchar[8],inchar[9],inchar[10]);
+	inchar[1][1]='\0';
+	card_num=atoi(inchar[1]);
+
+	inchar[2][5]='\0';
+	strncpy(sat_num,inchar[2],5);
+
+	inchar[3][8]='\0';
+	inclin=atof(inchar[3]);
+
+	inchar[4][8]='\0';
+	raan=atof(inchar[4]);
+
+	inchar[5][7]='\0';
+	/* 
+	 *  strcpy(eccen_str,"0.");
+	 *  strncat(eccen_str,inchar[5],8);
+	 */
+	sprintf(eccen_str,"0.%-8s",inchar[5]);
+#ifdef DEBUG
+	printf("Ecstr=%-20.20s\n",eccen_str);
+#endif
+	eccentr=atof(eccen_str);
+
+	inchar[6][8]='\0';
+	aop=atof(inchar[6]);
+
+	inchar[7][8]='\0';
+	mean_anom=atof(inchar[7]);
+
+	inchar[8][11]='\0';
+	mean_mot=atof(inchar[8]);
+
+	inchar[9][5]='\0';
+	rev_num=atof(inchar[9]);
+
+	inchar[10][1]='\0';
+	checksum2=atoi(inchar[10]);
+
+#ifdef DEBUG
+	for(i=1; i<=10; i++)
+	    printf("%2d %-15.15s\n",i,inchar[i]);
+	printf("%4d\n%12.8f\n%10.8f\n%10.5E\n%10.5E%5d%5d%5d\n",
+	       epoch_year, epoch_day, n2, n6, drag, ephemeris,
+	       elset_num, checksum1);
+	printf("\n%8.4f\n%8.4f\n%10.8f\n%8.4f\n%8.4f\n%11.8f\n%5d\n%1d\n",
+	       inclin, raan, (float) eccentr, aop, mean_anom,
+	       mean_mot, rev_num, checksum2);  
+#endif
+	/* Convert the year and day of year into a year month day */
+
+	f_day = modf(epoch_day, &i_day);
+
+	month_day(epoch_year, (int) i_day, &e_month, &e_day);
+
+	/* Convert year month day into a Julian date. */
+#ifdef CFORTRAN
+	slaCldj(epoch_year, e_month, e_day, mjd, status);
+#else
+	slaCldj(epoch_year, e_month, e_day, &mjd, &status);
+#endif
+
+	mjd += f_day;
+
+	if (fabs(expmiddle-mjd) < dtime) {
+	    dtime = fabs(expmiddle-mjd);
+            min_mjd=mjd;
+	    revspersec = mean_mot/(24.0*60.0*60.0);
+	    semimaj = pow(MU/(4.0*PI*PI*revspersec*revspersec),1.0/3.0);
+            mjd_f=modf(mjd, &mjd_d);
+            FITS_update_key(fptr, TDOUBLE, "EPCHTIMD", &mjd_d, NULL, &status);
+            FITS_update_key(fptr, TDOUBLE, "EPCHTIMF", &mjd_f, NULL, &status);
+	    FITS_update_key(fptr, TDOUBLE, "INCLINAT", &inclin, NULL, &status);
+	    FITS_update_key(fptr, TDOUBLE, "ECCENTRY", &eccentr, NULL, &status);
+	    FITS_update_key(fptr, TDOUBLE, "MEANANOM", &mean_anom, NULL,&status);
+	    FITS_update_key(fptr, TDOUBLE, "ARGPERIG", &aop, NULL, &status);
+	    FITS_update_key(fptr, TDOUBLE, "RASCASCN", &raan, NULL, &status);
+	    FITS_update_key(fptr, TDOUBLE, "SEMIMAJR", &semimaj, NULL, &status);
+	    FITS_update_key(fptr, TDOUBLE, "MEANMOTN", &mean_mot, NULL, &status);
+	    FITS_update_key(fptr, TDOUBLE, "FDM2COEF", &n2, NULL, &status);
+	    FITS_update_key(fptr, TDOUBLE, "SDM6COEF", &n6, NULL, &status);
+	    FITS_update_key(fptr, TDOUBLE, "DRAGCOEF", &drag, NULL, &status);
+	    FITS_update_key(fptr, TSTRING, "PROPMODL", "SGP4", NULL, &status);
+	}
+    }  /* endwhile */
+
+    if (dtime > 5.0) {
+        cf_verbose(2, "MJD OBS=%12.5f MJD TLE=%12.5f DT=%12.5f\n", 
+                     expmiddle, min_mjd, dtime);
+	cf_if_warning("Orbital elements are more than 5 days old.");
+        }
+
+    /* Enter a timestamp into the log. */
+    cf_timestamp(CF_PRGM_ID, CF_VER_NUM, "Done reading TLE file");
+}
+
diff --git a/src/libcf/saa.c b/src/libcf/saa.c
new file mode 100644
index 0000000..0d2d0e3
--- /dev/null
+++ b/src/libcf/saa.c
@@ -0,0 +1,74 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    int saa(saareg *saa, double lon, double lat)
+ *
+ * Description: Determines if FUSE is in the SAA for given models of the SAA
+ *              
+ *
+ * Arguments:   saareg *saa           A structure containing data that roughly
+ *                                    outlines the SAA region.
+ *                                    (n_points: number of points
+ *                                     lat:    the latitude array
+ *                                     lon: the longitude array)
+ *                                    (currently we have only one model).
+ *              double lon,lat        Geocentric longitude and latitude of FUSE
+ *
+ * Returns:     int                   0 if not in SAA
+ *                                    1 if in SAA
+ *                    
+ * History:     07/17/98  E. Murphy   Begin work.
+ *              06/22/99        peb   Tidied code, added FITS_ wrappers,
+ *                                    removed hardcoded variables.
+ *              07/02/99        peb   Moved SAA data to a structure.
+ *              08/25/99        emm   Fixed bug in setting maxlon
+ *              08/28/03 v1.3   bjg   Adopt Bryce's algorithm for determining
+ *					when FUSE is in the SAA.
+ *              08/28/03 v1.4   bjg   v1.3 didn't compile but v1.4 does
+ *              08/29/03 v1.5   bjg   slightly modified getDir
+ *
+ ****************************************************************************/
+ 
+#include "calfuse.h"
+
+int getDir(double lon0,double lat0,double lon1,double lat1,double lon2,double lat2)
+{
+
+double dx1, dx2, dy1, dy2, t1, t2;
+    
+  dx1=lon1-lon0; dy1=lat1-lat0;
+  dx2=lon2-lon0; dy2=lat2-lat0;
+
+  t1=dx1*dy2; t2=dy1*dx2;
+
+  if (t1>t2) 
+    return(-1);
+  if (t1n_points-1; i++) {
+    dir=getDir(lon,lat,(double)(saa->lon[i]),(double)(saa->lat[i]),(double)(saa->lon[i+1]),(double)(saa->lat[i+1]));
+    if (dir*oldDir<0)
+      return(0);
+    else
+      oldDir=dir;
+    }
+    
+  return(1);
+}
diff --git a/src/libcf/set_orbit_parms.c b/src/libcf/set_orbit_parms.c
new file mode 100644
index 0000000..65baca6
--- /dev/null
+++ b/src/libcf/set_orbit_parms.c
@@ -0,0 +1,86 @@
+/*****************************************************************************
+ *	      Johns Hopkins University
+ *	      Center For Astrophysical Sciences
+ *	      FUSE
+ *****************************************************************************
+ *
+ * Synopsis:	SGP4 set_orbit_parms(fitsfile *infits)
+ *
+ * Description: Initialized the sgp4 structure and reads the orbital 
+ *              paramaters from the infits header and places the data 
+ *              in the sgp4 structure.  It also calculates a number of
+ *              time invariant quantities in the sgp4 structure.
+ *
+ * Arguments:	fitsfile   *infits        Input FITS file.
+ *
+ * Return:      SGP4       sgp4	          Structure with orb parms.
+ *
+ * History:	07/07/99	emurphy	 Begin and finished work
+ *              07/14/99        emurphy  Fixed minor bugs
+ *              07/21/99        peb      Changed function to return SGP4
+ *                                       pointer. (This fixes a bug.)
+ *              08/05/99        emurphy  Converted to use set_orbit_parms_calc
+ *                                       so that FES pipeline can use these 
+ *                                       routines.
+ *              12/18/03        bjg      Change calfusettag.h to calfuse.h
+ *              04/07/07  1.4	wvd	 Delete CF_PRGM_ID and CF_VER_NUM, 
+ *					 as they are not used.
+ *
+ ****************************************************************************/
+
+#include 
+#include "calfuse.h"
+#include "sgp4.h"
+
+SGP4 set_orbit_parms_calc(fitsfile *infits)
+{
+    int    status=0;
+    char   comment[FLEN_CARD];
+    double epchtime, td, tf, inclinat, eccentry, meananom, argperig, rascascn;
+    double n0dt, n0dt2, bstar, mean_motion;
+    SGP4   sgp4;
+             
+    /*  Get the orbital data from the header of the infits file. */
+    FITS_read_key(infits, TDOUBLE, "EPCHTIMD", &td, comment, &status);
+    FITS_read_key(infits, TDOUBLE, "EPCHTIMF", &tf, comment, &status);
+    epchtime=td+tf;    
+    FITS_read_key(infits, TDOUBLE, "INCLINAT", &inclinat, comment, &status);
+    FITS_read_key(infits, TDOUBLE, "ECCENTRY", &eccentry, comment, &status);
+    FITS_read_key(infits, TDOUBLE, "MEANANOM", &meananom, comment, &status);
+    FITS_read_key(infits, TDOUBLE, "ARGPERIG", &argperig, comment, &status);
+    FITS_read_key(infits, TDOUBLE, "RASCASCN", &rascascn, comment, &status);
+    FITS_read_key(infits, TDOUBLE, "FDM2COEF", &n0dt, comment, &status);
+    FITS_read_key(infits, TDOUBLE, "SDM6COEF", &n0dt2, comment, &status);
+    FITS_read_key(infits, TDOUBLE, "DRAGCOEF", &bstar, comment, &status);
+    FITS_read_key(infits, TDOUBLE, "MEANMOTN", &mean_motion, comment, &status);
+
+    sgp4 = SGP4_create();
+
+    SGP4_set(sgp4, epchtime, n0dt, n0dt2,  bstar, inclinat,
+	     rascascn, eccentry, argperig, meananom, mean_motion);
+
+    /* do time invariant initializations */
+    SGP4_init(sgp4);
+    return sgp4;
+}
+
+SGP4 set_orbit_parms(fitsfile *infits)
+{
+    int    status=0, hdunum=0, hdutype;
+    SGP4   sgp4;
+    /*
+     *  The infits file pointer may be down in one of the extensions
+     *  whereas the orbital info is in the primary hdu.  Therefore,
+     *  record the current position, move to the primary header, 
+     *  set the orbital data, and return to the previous hdu.
+     */
+    FITS_get_hdu_num(infits, &hdunum);
+    FITS_movabs_hdu(infits, 1, &hdutype, &status);
+
+    sgp4=set_orbit_parms_calc(infits);
+
+    FITS_movabs_hdu(infits, hdunum, &hdutype, &status);
+
+    return sgp4;
+
+}
diff --git a/src/libcf/sgp4.c b/src/libcf/sgp4.c
new file mode 100644
index 0000000..b14dc45
--- /dev/null
+++ b/src/libcf/sgp4.c
@@ -0,0 +1,426 @@
+/* H+
+ *      Title     : sgp4.c
+ *      Author    : Bryce A. Roberts
+ *      Date      : 23 February 1999
+ *      Synopsis  : implementation of SGP4 propagation routines
+ *      SCCS      : @(#)sgp4.c	1.6 05/14/00
+ *      Revisions :
+ *      mm/dd/yy name   description
+ *      01/14/00 ma     get rid of unused function get_time (May 14 2000)
+ *      12/18/03 bjg    Change calfusettag.h to calfuse.h 
+* H-
+ */
+
+#include 
+#include 
+#include "calfuse.h"
+#include "sgp4.h"
+
+/* define some absolute constants used by SGP4 */
+#define MIN_PER_DAY  (1440.0)
+#define KM_PER_EARTH (6378.135)
+#define TWOBYTHREE   (2.0/3.0)
+#define Q0           (120.0)
+#define S0           (78.0)
+#define THREEPIBYTWO (PIBY2*3.0)
+#define KE           (0.074366916)
+#define AE           (1.0)
+#define S            (AE*(1.0+S0/KM_PER_EARTH))
+#define Q0MS4        pow((Q0-S0)*AE/KM_PER_EARTH, 4)
+#define CK2          (0.5*J2*AE*AE)
+#define CK4          (-0.375*J4*AE*AE*AE*AE)
+#define A30          (-J3/AE*AE*AE)
+
+#ifndef J2
+#define J2           (1.082616E-3)
+#endif
+
+#ifndef J3
+#define J3           (-0.253881E-5)
+#endif
+
+#ifndef J4
+#define J4           (-1.65597E-6)
+#endif
+
+#ifndef PI
+#define PI (3.141592653589793)
+#endif
+
+#ifndef TWOPI
+#define TWOPI (2.0*PI)
+#endif
+
+#define RAD2DEG(x) (((x)*180.0)/PI)
+#define DEG2RAD(x) ((PI/180.0)*(x))
+
+#ifndef false
+#define false (0)
+#endif
+
+#ifndef true
+#define true (1)
+#endif
+
+
+/*
+ * Name:     SGP4_isLeap
+ * Purpose:  determine if a given year is a leap year 
+ * Input:    int year (e.g. 1999)
+ * Output:   returns 1 if leap year, 0 if not
+ */
+static int SGP4_isLeap(int year) {
+  return(((year%4==0 && year%100!=0) || year%400==0));
+  }
+
+
+/*
+ * Name:     SGP4_doy2cal
+ * Purpose:  convert year/day-of-year to Gregorian calendar month and day
+ * Input:    int year, doy
+ * Output:   int *month, int *day, returns 0 for fail, 1 for success
+ */
+static int SGP4_doy2cal(int year, int doy, int *month, int *day) {
+  /* number of days in leap and non-leap year months */
+  static int daytab[2][13]={{0,31,28,31,30,31,30,31,31,30,31,30,31},
+                            {0,31,29,31,30,31,30,31,31,30,31,30,31}};
+  int leap;
+
+  /* do range checking */
+  if (doy<1 || doy>366)
+    return(false);
+  
+  leap=SGP4_isLeap(year) ? 1 : 0;
+  *day=doy;
+  for (*month=1; *day>daytab[leap][*month]; (*month)++)
+    *day-=daytab[leap][*month];
+  
+  return(true);
+  }
+
+
+/*
+ * Name:     SGP4_create
+ * Purpose:  creates an instance of SGP4
+ * Input:    none
+ * Output:   SGP4 
+ */
+SGP4 SGP4_create(void) {
+  return((SGP4)calloc(1, sizeof(struct sgp4_st)));
+  }
+
+
+/*
+ * Name:     SGP4_destroy
+ * Purpose:  destroys an instance of SGP4
+ * Input:    SGP4 sgp4
+ * Output:   none
+ */
+void SGP4_destroy(SGP4 sgp4) {
+  if (sgp4)
+    free(sgp4);
+  }
+
+
+/*
+ * Name:     SGP4_init
+ * Purpose:  initializes time-invariant SGP4 variables
+ * Input:    SGP4 sgp4
+ * Output:   none
+ */
+void SGP4_init(SGP4 sgp4) {
+  double a1, del1, a0, del0, perigee, sStar, eta_2, eta_3, eta_4, pinvsq, 
+    temp1, temp2, temp3, x3thetam1, x1m5th, xhdot1, theta_4, zeta, zeta_2, 
+    zeta_3, zeta_5, beta0, beta0_3, beta0_4, C2;
+
+  /* recover original mean motion and semimajor axis from the elements */
+  a1=pow(KE/sgp4->n0, TWOBYTHREE);
+  del1=1.5 * (CK2/(a1*a1))*((3*cos(sgp4->i0)*cos(sgp4->i0)-1.0)/
+    pow(1-sgp4->e0*sgp4->e0, 1.5));
+  a0=a1*(1-del1/3.0-del1*del1-(134.0/81.0)*del1*del1*del1);
+  del0=(del1*a1*a1)/(a0*a0);
+
+  /* find original mean motion, n0dp (n0'') */
+  sgp4->n0dp=sgp4->n0/(1+del0); 
+
+  /* find semimajor axis, a0dp (a0'') */
+  sgp4->a0dp=a0/(1-del0);
+
+  /* find the perigee (in km) */
+  perigee=(sgp4->a0dp*(1.0-sgp4->e0)-AE)*KM_PER_EARTH;
+  
+  /* make decisions on what value of s to use based on perigee */
+  if (perigee<=156.0 && perigee>=98.0) {
+    sStar=sgp4->a0dp*(1.0-sgp4->e0)-S-AE;
+    sgp4->q0ms4=pow(pow(Q0MS4, 0.25) + S - sStar, 4);
+    }
+  else if (perigee<98.0) {
+    sStar=20/KM_PER_EARTH + AE;
+    sgp4->q0ms4=pow(pow(Q0MS4, 0.25) + S - sStar, 4);
+    }
+  else {
+    sStar=S;
+    sgp4->q0ms4=Q0MS4;
+    }
+
+  sgp4->theta=cos(sgp4->i0); sgp4->theta_2=sgp4->theta*sgp4->theta; 
+  theta_4=sgp4->theta_2*sgp4->theta_2;
+  zeta=1/(sgp4->a0dp-sStar);
+  
+  zeta_2=zeta*zeta, zeta_3=zeta_2*zeta; 
+  sgp4->zeta_4=zeta_3*zeta;
+  zeta_5=sgp4->zeta_4*zeta;
+
+  sgp4->beta0_2=1-sgp4->e0*sgp4->e0;
+  beta0=sqrt(sgp4->beta0_2); beta0_3=sgp4->beta0_2*beta0; 
+  beta0_4=beta0_3*beta0;
+
+  sgp4->eta=sgp4->a0dp*sgp4->e0*zeta;
+  eta_2=sgp4->eta*sgp4->eta, eta_3=eta_2*sgp4->eta, eta_4=eta_3*sgp4->eta;
+  
+  C2=sgp4->q0ms4*(sgp4->zeta_4)*sgp4->n0dp*pow(1-eta_2, -7.0/2.0)*
+    (sgp4->a0dp*(1+ ((3.0/2.0)*eta_2) + 4*sgp4->e0*sgp4->eta + 
+    sgp4->e0*eta_3) + (3.0/2.0)*(CK2*zeta/(1-eta_2))*(-0.5 + 
+    1.5*sgp4->theta_2)*(8.0+24*eta_2 + 3*eta_4));
+  sgp4->C1=sgp4->bstar*C2; sgp4->C1_2=sgp4->C1*sgp4->C1; 
+  sgp4->C1_3=sgp4->C1_2*sgp4->C1; sgp4->C1_4=sgp4->C1_3*sgp4->C1;
+  sgp4->C3=(sgp4->q0ms4*(zeta_5)*A30*sgp4->n0dp*AE*sin(sgp4->i0))/
+    (CK2*sgp4->e0);
+  sgp4->C4=2*sgp4->n0dp*sgp4->q0ms4*(sgp4->zeta_4)*sgp4->a0dp*(sgp4->beta0_2)*
+    pow(1-eta_2, -7.0/2.0)*( (2*sgp4->eta*(1+sgp4->e0*sgp4->eta)+
+    0.5*sgp4->e0+0.5*eta_3)-2*CK2*zeta/(sgp4->a0dp*(1-eta_2))*
+   (3*(1-3*sgp4->theta_2)*(1 + 1.5*eta_2 -2*sgp4->e0*sgp4->eta - 
+   0.5*sgp4->e0*eta_3) + 0.75*(1-sgp4->theta_2)*(2*eta_2 - 
+   sgp4->e0*sgp4->eta - sgp4->e0*eta_3)*cos(2*sgp4->w0)));
+  sgp4->C5=2*sgp4->q0ms4*(sgp4->zeta_4)*sgp4->a0dp*(sgp4->beta0_2)*
+    pow(1-eta_2, -7.0/2.0)*(1 + (11.0/4.0)*sgp4->eta*(sgp4->eta+sgp4->e0)+
+    sgp4->e0*eta_3);
+
+  sgp4->D2=4*sgp4->a0dp*zeta*sgp4->C1_2;
+  sgp4->D3=(4.0/3.0)*sgp4->a0dp*zeta_2*(17*sgp4->a0dp + 
+    sStar)*sgp4->C1_3;
+  sgp4->D4=TWOBYTHREE*sgp4->a0dp*zeta_3*(221*sgp4->a0dp+
+    31*sStar)*sgp4->C1_4;
+
+  /* constants for secular effects calculation */
+  pinvsq=1.0/(sgp4->a0dp*sgp4->a0dp*beta0_4);
+  temp1=3.0*CK2*pinvsq*sgp4->n0dp;
+  temp2=temp1*CK2*pinvsq;
+  temp3=1.25*CK4*pinvsq*pinvsq*sgp4->n0dp;
+  x3thetam1=3.0*sgp4->theta_2 - 1.0;
+  x1m5th=1.0 - 5.0*sgp4->theta_2;
+  xhdot1=-temp1*sgp4->theta;
+
+  sgp4->mdot=sgp4->n0dp+0.5*temp1*beta0*x3thetam1+
+    0.0625*temp2*beta0*(13.0 - 78.0*sgp4->theta_2+137.0*theta_4);
+
+  sgp4->wdot=-0.5*temp1*x1m5th+0.0625*temp2*(7.0-114.0*sgp4->theta_2+
+    395.0*theta_4)+temp3*(3.0-36.0*sgp4->theta_2+49.0*theta_4);
+  
+  sgp4->raandot=xhdot1+(0.5*temp2*(4.0-19.0*sgp4->theta_2)+2.0*temp3*
+    (3.0-7.0*sgp4->theta_2))*sgp4->theta;
+  }
+
+
+/*
+ * Name:     SGP4_getStateVector
+ * Purpose:  finds position, velocity at a time
+ * Input:    SGP4 sgp4, double t
+ * Output:   double pos[3], double vel[3]
+ */
+void SGP4_getStateVector(SGP4 sgp4, double t, double pos[3], double vel[3]) {
+  double mdf, wdf, raandf, del_w, del_m, mp, w, RAAN, e, a, IL,
+    beta_2, n, axn, ILl, aynl, ILt, ayn, U, initial, eCosE,
+    eSinE, eL_2, pL, r, rDot, rfDot, cosu, sinu, u, rk, uk, RAANk, ik,
+    rDotk, rfDotk, mx, my, ux, uy, uz, vx, vy, vz, tsince;
+  int i;
+
+  /* find the time since the epoch, in minutes */
+  tsince=(t-sgp4->epochTime)*1440;
+
+  /* secular effects of atmospheric drag and gravitation */
+  mdf=sgp4->M0+(sgp4->mdot*tsince);
+  wdf=sgp4->w0+(sgp4->wdot*tsince);
+  raandf=sgp4->raan+(sgp4->raandot*tsince);
+  
+  del_w=sgp4->bstar*sgp4->C3*(cos(sgp4->w0))*tsince;
+  del_m=-TWOBYTHREE*sgp4->q0ms4*sgp4->bstar*sgp4->zeta_4*
+    (AE/(sgp4->e0*sgp4->eta))*(pow(1+sgp4->eta*cos(mdf), 3)-
+    pow(1+sgp4->eta*cos(sgp4->M0), 3));
+  
+  mp=mdf+del_w+del_m;
+  w=wdf-del_w-del_m;
+  
+  RAAN=raandf-(21.0/2.0)*((sgp4->n0dp*CK2*sgp4->theta)/(sgp4->a0dp*
+    sgp4->a0dp*sgp4->beta0_2))* sgp4->C1*tsince*tsince;
+  e=sgp4->e0-sgp4->bstar*sgp4->C4*tsince-sgp4->bstar*sgp4->C5*
+    (sin(mp)-sin(sgp4->M0));
+  
+  a=sgp4->a0dp*pow((1+tsince*(-sgp4->C1+tsince*(-sgp4->D2+tsince*
+    (-sgp4->D3-sgp4->D4*tsince)))), 2);
+  
+  IL=mp+w+RAAN+sgp4->n0dp*tsince*tsince*(1.5*sgp4->C1+tsince*
+    ((sgp4->D2+2*sgp4->C1_2) + tsince*(0.25*(3*sgp4->D3 + 
+    12*sgp4->C1*sgp4->D2 + 10*sgp4->C1_3)+tsince*(0.2*(3*sgp4->D4+12*
+    sgp4->C1*sgp4->D3+6*sgp4->D2*sgp4->D2+30*sgp4->C1_2*sgp4->D2+
+    15*sgp4->C1_4)))));
+
+  beta_2=1-e*e;
+  n=KE/pow(a, 3.0/2.0);
+
+  /* find the long-period periodic terms */
+  axn=e*cos(w);
+  ILl=(A30*sin(sgp4->i0))/(8*CK2*a*beta_2)*(e*cos(w))*((3+5*sgp4->theta)/
+    (1+sgp4->theta));
+  aynl=(A30*sin(sgp4->i0))/(4*CK2*a*beta_2);
+  ILt=IL+ILl;
+  ayn=e*sin(w)+aynl;
+    
+  /* iteratively solve Kepler's equation */
+  U=fmod(ILt-RAAN, TWOPI);
+
+  initial=U;
+  for (i=0; i<10; i++) {
+    U=(initial-ayn*cos(U)+axn*sin(U)-U)/(1.0-ayn*sin(U)-axn*cos(U))+U;
+    }
+
+  /* preliminary quantities for short period periodics */
+  eCosE=axn*cos(U)+ayn*sin(U); 
+  eSinE=axn*sin(U)-ayn*cos(U);
+  eL_2=axn*axn+ayn*ayn;
+  pL=a*(1-eL_2);
+  r=a*(1-eCosE);
+  rDot=KE*(sqrt(a)/r)*eSinE;
+  rfDot=KE*sqrt(pL)/r;
+  cosu=(a/r)*(cos(U)-axn+(ayn*eSinE)/(1+sqrt(1-eL_2)));
+  sinu=(a/r)*(sin(U)-ayn-(axn*eSinE)/(1+sqrt(1-eL_2)));
+  u=fmod(atan2(sinu, cosu)+TWOPI, TWOPI);
+
+  /* update for short-period periodics */
+  rk=r*(1-1.5*CK2*sqrt(1-eL_2)/(pL*pL)*(3*sgp4->theta_2-1))+
+    (CK2/(2*pL))*(1-sgp4->theta_2)*cos(2*u);
+  uk=u+-(CK2/(4*pL*pL))*(7*sgp4->theta_2-1.0)*sin(2*u);;
+  RAANk=RAAN+((3*CK2*sgp4->theta)/(2*pL*pL))*sin(2*u);
+  ik=sgp4->i0+((3*CK2*sgp4->theta)/(2*pL*pL))*sin(sgp4->i0)*cos(2*u);
+  rDotk=rDot-((CK2*n)/pL)*(1-sgp4->theta_2)*sin(2*u);
+  rfDotk=rfDot+((CK2*n)/pL)*((1-sgp4->theta_2)*cos(2*u)-
+  1.5*(1-3*sgp4->theta_2));
+  
+  /* find the position and velocity components */
+  mx=-sin(RAANk)*cos(ik);
+  my=cos(RAANk)*cos(ik);
+  
+  ux=mx*sin(uk)+cos(RAANk)*cos(uk);
+  uy=my*sin(uk)+sin(RAANk)*cos(uk);
+  uz=sin(ik)*sin(uk);
+  
+  vx=mx*cos(uk)-cos(RAANk)*sin(uk);
+  vy=my*cos(uk)-sin(RAANk)*sin(uk);
+  vz=sin(ik)*cos(uk);
+
+  pos[0]=KM_PER_EARTH*rk*ux;
+  pos[1]=KM_PER_EARTH*rk*uy;
+  pos[2]=KM_PER_EARTH*rk*uz;
+
+  vel[0]=MIN_PER_DAY*KM_PER_EARTH*(rDotk*ux+rfDotk*vx)/(AE*86400.0);
+  vel[1]=MIN_PER_DAY*KM_PER_EARTH*(rDotk*uy+rfDotk*vy)/(AE*86400.0);
+  vel[2]=MIN_PER_DAY*KM_PER_EARTH*(rDotk*uz+rfDotk*vz)/(AE*86400.0);
+  }
+
+
+/*
+ * Name:     SGP4_set
+ * Purpose:  sets the elements of an instance of SGP4
+ * Input:    SGP4 sgp4, double epochTime, double n0dt, double n0dt2,
+ *             double bstar, double i0, double raan, double e0,
+ *             double w0, double M0, double n0
+ * Output:   none
+ */
+void SGP4_set(SGP4 sgp4, double epochTime, double n0dt, double n0dt2,
+	      double bstar, double i0, double raan, double e0,
+	      double w0, double M0, double n0) {
+
+  /* set the epoch time */
+  sgp4->epochTime=epochTime;
+
+  /* set the first time derivative of mean motion */
+  sgp4->n0dt=n0dt*(TWOPI/(MIN_PER_DAY*MIN_PER_DAY));
+
+  /* set the second time derivative of mean motion */
+  sgp4->n0dt2=n0dt2*(TWOPI/(MIN_PER_DAY*MIN_PER_DAY));
+      
+  /* bstar drag term */
+  sgp4->bstar=bstar;
+
+  /* inclination */
+  sgp4->i0=DEG2RAD(i0);
+      
+  /* right ascension of the ascending node */
+  sgp4->raan=DEG2RAD(raan);
+
+  /* eccentricity */
+  sgp4->e0=e0;
+
+  /* argument of perigee  */
+  sgp4->w0=DEG2RAD(w0);
+
+  /* mean anomaly */
+  sgp4->M0=DEG2RAD(M0);
+
+  /* mean motion */
+  sgp4->n0=n0*(TWOPI/MIN_PER_DAY);
+  }
+
+
+/*
+ * Name:     SGP4_getPole
+ * Purpose:  finds the pole (orbit plane normal)
+ * Input:    double pos[3], double vel[3]
+ * Output:   double pole[3]
+ */
+void SGP4_getPole(double pos[3], double vel[3], double pole[3]) {
+  register double pNorm;
+
+  /* find the cross product between position and velocity */
+  pole[0]=pos[1]*vel[2] - vel[1]*pos[2];
+  pole[1]=pos[2]*vel[0] - vel[2]*pos[0];
+  pole[2]=pos[0]*vel[1] - vel[0]*pos[1];
+
+  /* normalize the resulting pole vector */
+  pNorm=sqrt(pole[0]*pole[0]+pole[1]*pole[1]+pole[2]*pole[2]);
+  pole[0]/=pNorm; pole[1]/=pNorm; pole[2]/=pNorm;
+  }
+
+
+/*
+ * Name:     SGP4_precess
+ * Purpose:  precesses a direction vector from t1 to t2
+ * Input:    double v[3], double t1, double t2
+ * Output:   double v[3]
+ */
+void SGP4_precess(double v[3], double t1, double t2) {
+  double t, st, a, b, c, temp[3], sina, sinb, sinc, cosa, cosb, cosc;
+
+  /* convert times to years */
+  t=0.001*(t2-t1)/365.25;
+  st=0.001*(t1-MJD2000)/365.25;
+
+  /* find the Euler angles */
+  a=DEG2RAD(t*(23062.181+st*(139.656+0.0139*st)+
+	       +t*(30.188-0.344*st+17.998*t)))/3600.0;
+  b=DEG2RAD(t*t*(79.280+0.410*st+0.205*t)/3600.0)+a;
+  c=DEG2RAD(t*(20043.109-st*(85.33+0.217*st)+
+	       +t*(-42.665-0.217*st-41.833*t)))/3600.0;
+  
+  /* do the precession rotation */
+  sina=sin(a); sinb=sin(b); sinc=sin(c);
+  cosa=cos(a); cosb=cos(b); cosc=cos(c);
+  temp[0]=(cosa*cosb*cosc-sina*sinb)*v[0]+(-cosa*sinb-sina*cosb*cosc)*v[1]+
+    -cosb*sinc*v[2];
+  temp[1]=(sina*cosb+cosa*sinb*cosc)*v[0]+(cosa*cosb-sina*sinb*cosc)*v[1]+
+    -sinb*sinc*v[2];
+  temp[2]=cosa*sinc*v[0]-sina*sinc*v[1]+cosc*v[2];
+  
+  /* replace existing direction vector */
+  v[0]=temp[0]; v[1]=temp[1]; v[2]=temp[2];
+  }
diff --git a/src/libcf/solar_ang.c b/src/libcf/solar_ang.c
new file mode 100644
index 0000000..421d460
--- /dev/null
+++ b/src/libcf/solar_ang.c
@@ -0,0 +1,90 @@
+/******************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ ******************************************************************************
+ *
+ * Synopsis:    double solar_ang(double mjdate, double ra, double dec)
+ *
+ * Description: Computes the angle between the Sun and J2000.0 RA and DEC
+ *              for a given date.
+ *
+ * Arguments:   double mjdate         Modified Julian date of observation
+ *              double ra             (deg) J2000.0 right ascension
+ *              double dec            (deg) J2000.0 declination 
+ *
+ * Returns:     double                (deg) angle between Sun and RA,DEC
+ *                    
+ * Calls:       slaDcc2s              dcc2s.f
+ *              slaDsep               dsep.f
+ *              slaDranrm             dranrm.f
+ *              slaEvp                evp.f
+ *
+ * History:     03/10/98  E. Murphy   Begin work.
+ *              03/10/98  E. Murphy   Initial version working
+ *              05/31/00        peb   Implemented cfortran.h calls for slalib
+ *                                    functions.
+ *              12/18/03    bjg       Change calfusettag.h to calfuse.h
+ *		07/21/04  1.4   wvd   Comment out variable vect; unused.
+ *
+ * References:  This routine makes use of the Starlink set of astronomical
+ *              subroutines (SLALIB).  More information can be found at
+ *              http://star-www.rl.ac.uk.
+ *****************************************************************************/
+ 
+#include 
+#include 
+
+#ifdef CFORTRAN
+#include "cfortran.h"
+PROTOCCALLSFSUB3(SLA_DCC2S, sla_dcc2s, DOUBLEV, PDOUBLE, PDOUBLE)
+#define slaDcc2s(V, A, B) \
+     CCALLSFSUB3(SLA_DCC2S, sla_dcc2s, DOUBLEV, PDOUBLE, PDOUBLE, V, A, B)
+PROTOCCALLSFFUN1(DOUBLE, SLA_DRANRM, sla_dranrm, DOUBLE)
+#define slaDranrm(ANGLE) \
+     CCALLSFFUN1(SLA_DRANRM, sla_dranrm, DOUBLE, ANGLE)
+PROTOCCALLSFFUN4(DOUBLE, SLA_DSEP, sla_dsep, DOUBLE, DOUBLE, DOUBLE, DOUBLE)
+#define slaDsep(A1, B1, A2, B2) \
+     CCALLSFFUN4(SLA_DSEP, sla_dsep, DOUBLE, DOUBLE, DOUBLE, DOUBLE, \
+		 A1, B1, A2, B2)
+PROTOCCALLSFSUB6(SLA_EVP, sla_evp, DOUBLE, DOUBLE, DOUBLEV, DOUBLEV, DOUBLEV, \
+		 DOUBLEV)
+#define slaEvp(DATE, DEQX, DVB, DPB, DVH, DPH) \
+     CCALLSFSUB6(SLA_EVP, sla_evp, DOUBLE, DOUBLE, DOUBLEV, DOUBLEV, DOUBLEV, \
+		 DOUBLEV, DATE, DEQX, DVB, DPB, DVH, DPH)
+#else
+#include "slalib.h"
+#include "slamac.h"
+#endif
+
+#include "calfuse.h"
+ 
+double solar_ang(double mjdate, double ra, double dec)
+{
+    /* Define variables. */
+    int i;
+    /* double dvb[3], dpb[3], dvh[3], dph[3], vect[3], ra_sun, dec_sun; */
+    double dvb[3], dpb[3], dvh[3], dph[3], ra_sun, dec_sun;
+    /*
+     *  Evp returns four 3-vectors containing the barycentric velocity and
+     *  position (dvb,dpv) and the heliocentric velocity and position 
+     *  (dvh,dph) of the Earth on the date mjdate.  It requires a modified 
+     *  Julian date as input.  Output has units of AU for positions and 
+     *  AU/s for velocities.
+     */
+    slaEvp(mjdate, 2000.0, dvb, dpb, dvh, dph);
+
+    /*  Convert the 3-vector position of the Sun into a J2000.0 RA and DEC */
+
+    for (i=0; i<3; i++) dph[i]*=-1.0;
+
+#ifdef CFORTRAN
+    slaDcc2s(dph, ra_sun, dec_sun);
+#else
+    slaDcc2s(dph, &ra_sun, &dec_sun);
+#endif
+
+    /*  Compute the angular separation of RA,DEC and RA_SUN and DEC_SUN */
+
+    return slaDsep(ra*RADIAN, dec*RADIAN, slaDranrm(ra_sun), dec_sun)/RADIAN;
+}
diff --git a/src/libcf/space_vel.c b/src/libcf/space_vel.c
new file mode 100644
index 0000000..e472961
--- /dev/null
+++ b/src/libcf/space_vel.c
@@ -0,0 +1,46 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    double space_vel(double *vel, double ra, double dec)
+ *
+ * Description: Computes the projection of the spacecraft orbital velocity 
+ *		vector onto a unit vector in the direction ra, dec.
+ *
+ * Arguments:   double *vel           (km/s) 3-vector velocity of satellite
+ *              double ra,dec         (deg) position of target
+ *
+ * Returns:     double                (km/s) velocity in direction of target
+ *                    
+ * History:     03/04/98  E. Murphy   Begin work.
+ *              03/04/98  E. Murphy   Initial version working
+ *              07/07/99  E. Murphy   Converted x,y,z and vx,vy,vz to pos,vel
+ *              06/15/01  V. Dixon    Comment out calculation of r, not used.
+ *              12/18/03  bjg         Change calfusettag.h to calfuse.h
+ *		07/21/04  1.4  wvd    Delete defn of r, as it is not used.
+ *		03/04/07  1.5  wvd    Rewrite program to compute dot product
+ *				      of target and velocity vectors.
+ *
+ ****************************************************************************/
+ 
+#include 
+#include "calfuse.h"
+ 
+double space_vel(double vel[3], double ra, double dec)
+{
+
+    double x, y, z, phi;
+
+    ra  *= RADIAN;
+    dec *= RADIAN;
+
+    z = sin(dec);
+    phi = cos(dec);
+    y = phi * sin(ra);
+    x = phi * cos(ra);
+
+    return x*vel[0] + y*vel[1] + z*vel[2];
+
+}
diff --git a/src/libcf/state_geod.c b/src/libcf/state_geod.c
new file mode 100644
index 0000000..4e0c161
--- /dev/null
+++ b/src/libcf/state_geod.c
@@ -0,0 +1,107 @@
+/******************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ ******************************************************************************
+ *
+ * Synopsis:    void state_geod(double pos,
+ *              double mjdate, double lon, double lat)
+ *
+ * Description: Computes the geocentric longitude and latitude of FUSE
+ *              from the given state 6-vector.
+ *
+ * Arguments:   double pos            (km) 3-vector xyz position of satellite
+ *              double mjdate         Modified Julian date of observation
+ *
+ * Returns:     double lon, lat       (deg) Geocentric longitude and latitude
+ *
+ * Calls:       slaPreces             preces.f
+ *
+ * History:     03/04/98  E. Murphy   Begin work.
+ *              03/04/98  E. Murphy   Initial version working
+ *              03/15/99  E. murphy   Changed function definition to void 
+ *                                    (was double)
+ *              07/07/99  E. Murphy   Changed call to use pos instead of x,y,z
+ *              05/31/00        peb   Implemented cfortran.h calls for slalib
+ *                                    functions.
+ *              12/18/03    bjg       Change calfusettag.h to calfuse.h
+ *              06/17/04  bjg  1.4  Corrected cfortran call to sla_preces  
+ *
+ *              Ake, T. 1998 in The Scientific Impact of the Goddard
+ *                   High Resolution Spectrograph, ed. J. C. Brandt et al.,
+ *                   ASP Conference Series, in preparation.
+ *****************************************************************************/
+ 
+#include 
+#include 
+
+#ifdef CFORTRAN
+#include "cfortran.h"
+PROTOCCALLSFSUB5(SLA_PRECES, sla_preces, STRING, DOUBLE, DOUBLE, PDOUBLE, \
+		 PDOUBLE)
+#define slaPreces(SYSTEM, EP0, EP1, RA, DC) \
+     CCALLSFSUB5(SLA_PRECES, sla_preces, STRING, DOUBLE, DOUBLE, PDOUBLE, \
+		 PDOUBLE, SYSTEM, EP0, EP1, RA, DC)
+#else
+#include "slalib.h"
+#include "slamac.h"
+#endif
+
+#include "calfuse.h"
+
+void state_geod(double pos[3], double mjdate, 
+		double *lon, double *lat, double *gmst)
+{
+    double ra, dec, epoch2, c1, r, intmjd, frcmjd;
+    char fk5_st[10]="FK5";
+
+    /* pos[0]=x
+       pos[1]=y
+       pos[2]=z
+       */
+
+    r=sqrt(pos[0]*pos[0]+pos[1]*pos[1]+pos[2]*pos[2]);
+    ra=atan2(pos[1],pos[0]);
+    dec=asin(pos[2]/r);
+
+    /*  We must precess the J2000 RA and DEC to date of observation. This
+     *  is a very small correction, and could probably be ignored.
+     */
+
+    epoch2=2000.0-((51544.0-mjdate)/365.25);
+
+#ifdef CFORTRAN
+    slaPreces(fk5_st, 2000.0, epoch2, ra, dec);
+#else
+    slaPreces(fk5_st, 2000.0, epoch2, &ra, &dec);
+#endif
+
+    /*  Calculate the Greenwich Mean Sidereal Time in seconds 
+     *  Astronomical Almanac, 1998, p. B6. 
+     */
+
+    frcmjd=modf(mjdate, &intmjd);
+
+    c1=(intmjd-51544.5)/36525.0;
+
+    /* The following line gives the GMST at 0 hr UT */
+    *gmst=24110.54841 + 8640184.812866*c1+0.093104*c1*c1-6.2E-6*c1*c1*c1;
+    /* The following adds on the number of seconds since the UT above */
+    *gmst+=frcmjd*1.00273791*86400.0;
+
+    *gmst*=(2*M_PI)/86400.0;
+
+    while (*gmst < 0.0) *gmst+=2*M_PI;
+
+    while (*gmst > 2*M_PI) *gmst-=2*M_PI;
+
+    *lon=(ra-*gmst)/RADIAN;
+
+    while (*lon > 180.0) *lon-=360.0;
+
+    while (*lon < -180.0) *lon+=360.0;
+
+    *lat=dec/RADIAN;
+
+    *gmst*=24.0/(2*M_PI);
+}
diff --git a/src/libcf/state_limb.c b/src/libcf/state_limb.c
new file mode 100644
index 0000000..9aacfb6
--- /dev/null
+++ b/src/libcf/state_limb.c
@@ -0,0 +1,159 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    double state_limb(double pos[3], double mjdate,
+ *              double ra, double dec, double *zdis,tint day_limb)
+ *
+ * Description: Computes the earth limb angle from J2000 RA and DEC given
+ *              the 3-vector position of FUSE.
+ *
+ * Arguments:   double pos            (km) 3-vector position of satellite
+ *              double mjdate         (days) Modified Julian date 
+ *              double ra,dec         (deg) J2000.0 RA and DEC
+ *              double zdist          (deg) zenith angle
+ *              integer day_limb      output : 1 if bright limb, 0 if dark limb
+ *
+ * Returns:     double                (deg) Earth limb angle
+ *              integer               day_limb will have the value 1 or 0 when
+ *                                    returning in the main program.
+ *                    
+ * Calls:       slaPreces             preces.f
+ *		slaDcc2s
+ *		slaDranrm
+ *		slaEvp
+ *
+ * History:     03/10/98  E. Murphy   Begin work.
+ *              03/10/98  E. Murphy   Initial version working
+ *              07/07/99  E. Murphy   Changed call to use pos instead of x,y,z
+ *              08/26/99  E. Murphy   Added zenith distance.
+ *              05/31/00        peb   Implemented cfortran.h calls for slalib
+ *                                    functions.
+ *              Ake, T. 1998 in The Scientific Impact of the Goddard
+ *                   High Resolution Spectrograph, ed. J. C. Brandt et al.,
+ *                   ASP Conference Series, in preparation.
+ *
+ *              09/23/00   v1.5  ma   Now this function determine bright or
+ *                                    dark limb
+ *                                    To do so, the procedure has a new
+ *                                    input argument: day_limb.
+ *                                    day_limb = 1 if bright, 0 if dark.
+ *              09/24/00   v1.6  ma   Fixed a bug in the input argument
+ *              09/27/00   v1.7  ma   Fixed bug in limbvec calc.
+ *		10/02/00   v1.8  jwk  Add fortran wrappers for slaDcc2s,
+ *                                    slaEvp, and slaDranrm
+ *              12/18/03  bjg  1.3    Change calfusettag.h to calfuse.h
+ *              06/17/04  bjg         Corrected cfortran call to sla_preces
+ *              07/22/04  bjg  1.4    Remove unused variables  
+ ****************************************************************************/
+ 
+#include 
+
+#ifdef CFORTRAN
+#include "cfortran.h"
+PROTOCCALLSFSUB5(SLA_PRECES, sla_preces, STRING, DOUBLE, DOUBLE, PDOUBLE, \
+		 PDOUBLE)
+#define slaPreces(SYSTEM, EP0, EP1, RA, DC) \
+     CCALLSFSUB5(SLA_PRECES, sla_preces, STRING, DOUBLE, DOUBLE, PDOUBLE, \
+		 PDOUBLE, SYSTEM, EP0, EP1, RA, DC)
+PROTOCCALLSFSUB3(SLA_DCC2S, sla_dcc2s, DOUBLEV, PDOUBLE, PDOUBLE)
+#define slaDcc2s(V, A, B) \
+     CCALLSFSUB3(SLA_DCC2S, sla_dcc2s, DOUBLEV, PDOUBLE, PDOUBLE, V, A, B)
+PROTOCCALLSFFUN1(DOUBLE, SLA_DRANRM, sla_dranrm, DOUBLE)
+#define slaDranrm(ANGLE) \
+     CCALLSFFUN1(SLA_DRANRM, sla_dranrm, DOUBLE, ANGLE)
+PROTOCCALLSFSUB6(SLA_EVP, sla_evp, DOUBLE, DOUBLE, DOUBLEV, DOUBLEV, DOUBLEV, \
+                 DOUBLEV)
+#define slaEvp(DATE, DEQX, DVB, DPB, DVH, DPH) \
+     CCALLSFSUB6(SLA_EVP, sla_evp, DOUBLE, DOUBLE, DOUBLEV, DOUBLEV, DOUBLEV, \
+                 DOUBLEV, DATE, DEQX, DVB, DPB, DVH, DPH)
+#else
+#include "slalib.h"
+#include "slamac.h"
+#endif
+
+#include "calfuse.h"
+
+double state_limb(double pos[3], double mjdate, 
+                  double ra, double dec, double *zdist,int *day_limb)
+{
+    double dvb[3], dpb[3], dvh[3], dph[3], limbvec[3], epoch2;
+    double ra_earth, dec_earth, r, ndist; 
+    double ra_sun, dec_sun;
+    int    i;    
+    char fk5_st[10]="FK5";
+
+    ra*=RADIAN;
+    dec*=RADIAN;
+
+    r=sqrt(pos[0]*pos[0]+pos[1]*pos[1]+pos[2]*pos[2]);
+    ra_earth=atan2(-pos[1],-pos[0]);
+    dec_earth=asin(-pos[2]/r);
+    /*  
+     *  We must precess the J2000 RA and DEC to date of observation. This
+     *  is a very small correction, and could probably be ignored.
+     */
+    epoch2=2000.0-((51544.0-mjdate)/365.25);
+
+#ifdef CFORTRAN
+    slaPreces(fk5_st, 2000.0, epoch2, ra_earth, dec_earth);
+#else
+    slaPreces(fk5_st, 2000.0, epoch2, &ra_earth, &dec_earth);
+#endif
+
+    /* Now we need the position of the sun (same code as in eclipse.c) */
+
+    slaEvp(mjdate, 2000.0, dvb, dpb, dvh, dph); 
+
+    /*  Convert the 3-vector position of the Sun into a J2000.0 RA and DEC */ 
+
+    for (i=0; i<3; i++) dph[i]*=-1.0; 
+
+ 
+#ifdef CFORTRAN 
+    slaDcc2s(dph, ra_sun, dec_sun);
+#else 
+    slaDcc2s(dph, &ra_sun, &dec_sun);
+#endif 
+
+    ra_sun=slaDranrm(ra_sun); 
+
+    /*  We must precess the J2000 RA and DEC to date of observation. This 
+     *  is a very small correction, and could probably be ignored. 
+     */
+
+    epoch2=2000.0-((51544.0-mjdate)/365.25); 
+
+#ifdef CFORTRAN 
+    slaPreces(fk5_st, 2000.0, epoch2, ra_sun, dec_sun);
+#else 
+    slaPreces(fk5_st, 2000.0, epoch2, &ra_sun, &dec_sun);
+#endif 
+
+    /* ndist is the angular distance (RADIAN) from the nadir to the target */
+    ndist = (acos(sin(dec)*sin(dec_earth)+
+                  cos(dec)*cos(dec_earth)*cos(ra-ra_earth)));
+
+    /* Now we want to calculate the limb vector (originating at the center
+       of Earth and crossing the target-FUSE line perpendicularily)*/
+
+    limbvec[2]=pos[2]+r*cos(ndist)*sin(dec);
+    limbvec[1]=pos[1]+r*cos(ndist)*cos(dec)*sin(ra);
+    limbvec[0]=pos[0]+r*cos(ndist)*cos(dec)*cos(ra);
+
+    /* Now we do the scalar product with the sun vector; then
+       if the result is <0 the limb is in the day zone (less
+       than 90 degrees between sun vector and limb vector)*/
+
+    if ((limbvec[0]*cos(dec_sun)*cos(ra_sun) + 
+	 limbvec[1]*cos(dec_sun)*sin(ra_sun)+limbvec[2]*sin(dec_sun)) >0) {
+	*day_limb=1;
+    } else {
+	*day_limb=0;
+    }
+    *zdist = 180.0 - ndist/RADIAN;
+
+    return  ndist/RADIAN-(asin(RE/r)/RADIAN);
+}
diff --git a/src/slalib/Makefile.am b/src/slalib/Makefile.am
new file mode 100644
index 0000000..895eea9
--- /dev/null
+++ b/src/slalib/Makefile.am
@@ -0,0 +1,187 @@
+lib_LTLIBRARIES = libsla.la
+libsla_la_SOURCES = \
+        addet.f  \
+        afin.f   \
+        airmas.f \
+        altaz.f  \
+        amp.f    \
+        ampqk.f  \
+        aop.f    \
+        aoppa.f  \
+        aoppat.f \
+        aopqk.f  \
+        atmdsp.f \
+        atms.f   \
+        atmt.f   \
+        av2m.f   \
+        bear.f   \
+        caf2r.f  \
+        caldj.f  \
+        calyd.f  \
+        cc2s.f   \
+        cc62s.f  \
+        cd2tf.f  \
+        cldj.f   \
+        clyd.f   \
+        combn.f  \
+        cr2af.f  \
+        cr2tf.f  \
+        cs2c.f   \
+        cs2c6.f  \
+        ctf2d.f  \
+        ctf2r.f  \
+        daf2r.f  \
+        dafin.f  \
+        dat.f    \
+        dav2m.f  \
+        dbear.f  \
+        dbjin.f  \
+        dc62s.f  \
+        dcc2s.f  \
+        dcmpf.f  \
+        dcs2c.f  \
+        dd2tf.f  \
+        de2h.f   \
+        deuler.f \
+        dfltin.f \
+        dh2e.f   \
+        dimxv.f  \
+        djcal.f  \
+        djcl.f   \
+        dm2av.f  \
+        dmat.f   \
+        dmoon.f  \
+        dmxm.f   \
+        dmxv.f   \
+        dpav.f   \
+        dr2af.f  \
+        dr2tf.f  \
+        drange.f \
+        dranrm.f \
+        ds2c6.f  \
+        ds2tp.f  \
+        dsep.f   \
+        dt.f     \
+        dtf2d.f  \
+        dtf2r.f  \
+        dtp2s.f  \
+        dtp2v.f  \
+        dtps2c.f \
+        dtpv2c.f \
+        dtt.f    \
+        dv2tp.f  \
+        dvdv.f   \
+        dvn.f    \
+        dvxv.f   \
+        e2h.f    \
+        earth.f  \
+        ecleq.f  \
+        ecmat.f  \
+        ecor.f   \
+        eg50.f   \
+        el2ue.f  \
+        epb.f    \
+        epb2d.f  \
+        epco.f   \
+        epj.f    \
+        epj2d.f  \
+        eqecl.f  \
+        eqeqx.f  \
+        eqgal.f  \
+        etrms.f  \
+        euler.f  \
+        evp.f    \
+        fitxy.f  \
+        fk425.f  \
+        fk45z.f  \
+        fk524.f  \
+        fk52h.f  \
+        fk54z.f  \
+        fk5hz.f  \
+        flotin.f \
+        galeq.f  \
+        galsup.f \
+        ge50.f   \
+        geoc.f   \
+        gmst.f   \
+        gmsta.f  \
+        h2e.f    \
+        h2fk5.f  \
+        hfk5z.f  \
+        idchf.f  \
+        idchi.f  \
+        imxv.f   \
+        intin.f  \
+        invf.f   \
+        kbj.f    \
+        m2av.f   \
+        map.f    \
+        mappa.f  \
+        mapqk.f  \
+        mapqkz.f \
+        moon.f   \
+        mxm.f    \
+        mxv.f    \
+        nut.f    \
+        nutc.f   \
+        oap.f    \
+        oapqk.f  \
+        obs.f    \
+        pa.f     \
+        pav.f    \
+        pcd.f    \
+        pda2h.f  \
+        pdq2h.f  \
+        permut.f \
+        pertel.f \
+        pertue.f \
+        planel.f \
+        planet.f \
+        plante.f \
+        pm.f     \
+        polmo.f  \
+        prebn.f  \
+        prec.f   \
+        precl.f  \
+        preces.f \
+        prenut.f \
+        pv2el.f  \
+        pv2ue.f  \
+        pvobs.f  \
+        pxy.f    \
+        range.f  \
+        ranorm.f \
+        rcc.f    \
+        rdplan.f \
+        refco.f  \
+        refro.f  \
+        refv.f   \
+        refz.f   \
+        rverot.f \
+        rvgalc.f \
+        rvlg.f   \
+        rvlsrd.f \
+        rvlsrk.f \
+        s2tp.f   \
+        sep.f    \
+        smat.f   \
+        subet.f  \
+        supgal.f \
+        svd.f    \
+        svdcov.f \
+        svdsol.f \
+        tp2s.f   \
+        tp2v.f   \
+        tps2c.f  \
+        tpv2c.f  \
+        ue2el.f  \
+        ue2pv.f  \
+        unpcd.f  \
+        v2tp.f   \
+        vdv.f    \
+        vn.f     \
+        vxv.f    \
+        xy2xy.f  \
+        zd.f
+
+AM_CFLAGS = -I../include -I./
diff --git a/src/slalib/Makefile.in b/src/slalib/Makefile.in
new file mode 100644
index 0000000..718fd59
--- /dev/null
+++ b/src/slalib/Makefile.in
@@ -0,0 +1,830 @@
+# Makefile.in generated by automake 1.15 from Makefile.am.
+# @configure_input@
+
+# Copyright (C) 1994-2014 Free Software Foundation, Inc.
+
+# This Makefile.in is free software; the Free Software Foundation
+# gives unlimited permission to copy and/or distribute it,
+# with or without modifications, as long as this notice is preserved.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
+# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.
+
+@SET_MAKE@
+
+VPATH = @srcdir@
+am__is_gnu_make = { \
+  if test -z '$(MAKELEVEL)'; then \
+    false; \
+  elif test -n '$(MAKE_HOST)'; then \
+    true; \
+  elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
+    true; \
+  else \
+    false; \
+  fi; \
+}
+am__make_running_with_option = \
+  case $${target_option-} in \
+      ?) ;; \
+      *) echo "am__make_running_with_option: internal error: invalid" \
+              "target option '$${target_option-}' specified" >&2; \
+         exit 1;; \
+  esac; \
+  has_opt=no; \
+  sane_makeflags=$$MAKEFLAGS; \
+  if $(am__is_gnu_make); then \
+    sane_makeflags=$$MFLAGS; \
+  else \
+    case $$MAKEFLAGS in \
+      *\\[\ \	]*) \
+        bs=\\; \
+        sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
+          | sed "s/$$bs$$bs[$$bs $$bs	]*//g"`;; \
+    esac; \
+  fi; \
+  skip_next=no; \
+  strip_trailopt () \
+  { \
+    flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
+  }; \
+  for flg in $$sane_makeflags; do \
+    test $$skip_next = yes && { skip_next=no; continue; }; \
+    case $$flg in \
+      *=*|--*) continue;; \
+        -*I) strip_trailopt 'I'; skip_next=yes;; \
+      -*I?*) strip_trailopt 'I';; \
+        -*O) strip_trailopt 'O'; skip_next=yes;; \
+      -*O?*) strip_trailopt 'O';; \
+        -*l) strip_trailopt 'l'; skip_next=yes;; \
+      -*l?*) strip_trailopt 'l';; \
+      -[dEDm]) skip_next=yes;; \
+      -[JT]) skip_next=yes;; \
+    esac; \
+    case $$flg in \
+      *$$target_option*) has_opt=yes; break;; \
+    esac; \
+  done; \
+  test $$has_opt = yes
+am__make_dryrun = (target_option=n; $(am__make_running_with_option))
+am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
+pkgdatadir = $(datadir)/@PACKAGE@
+pkgincludedir = $(includedir)/@PACKAGE@
+pkglibdir = $(libdir)/@PACKAGE@
+pkglibexecdir = $(libexecdir)/@PACKAGE@
+am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
+install_sh_DATA = $(install_sh) -c -m 644
+install_sh_PROGRAM = $(install_sh) -c
+install_sh_SCRIPT = $(install_sh) -c
+INSTALL_HEADER = $(INSTALL_DATA)
+transform = $(program_transform_name)
+NORMAL_INSTALL = :
+PRE_INSTALL = :
+POST_INSTALL = :
+NORMAL_UNINSTALL = :
+PRE_UNINSTALL = :
+POST_UNINSTALL = :
+build_triplet = @build@
+host_triplet = @host@
+subdir = src/slalib
+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
+am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
+	$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
+	$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
+	$(top_srcdir)/configure.ac
+am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
+	$(ACLOCAL_M4)
+DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON)
+mkinstalldirs = $(install_sh) -d
+CONFIG_HEADER = $(top_builddir)/config.h
+CONFIG_CLEAN_FILES =
+CONFIG_CLEAN_VPATH_FILES =
+am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
+am__vpath_adj = case $$p in \
+    $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
+    *) f=$$p;; \
+  esac;
+am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
+am__install_max = 40
+am__nobase_strip_setup = \
+  srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
+am__nobase_strip = \
+  for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
+am__nobase_list = $(am__nobase_strip_setup); \
+  for p in $$list; do echo "$$p $$p"; done | \
+  sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
+  $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
+    if (++n[$$2] == $(am__install_max)) \
+      { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
+    END { for (dir in files) print dir, files[dir] }'
+am__base_list = \
+  sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
+  sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+  test -z "$$files" \
+    || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+    || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+         $(am__cd) "$$dir" && rm -f $$files; }; \
+  }
+am__installdirs = "$(DESTDIR)$(libdir)"
+LTLIBRARIES = $(lib_LTLIBRARIES)
+libsla_la_LIBADD =
+am_libsla_la_OBJECTS = addet.lo afin.lo airmas.lo altaz.lo amp.lo \
+	ampqk.lo aop.lo aoppa.lo aoppat.lo aopqk.lo atmdsp.lo atms.lo \
+	atmt.lo av2m.lo bear.lo caf2r.lo caldj.lo calyd.lo cc2s.lo \
+	cc62s.lo cd2tf.lo cldj.lo clyd.lo combn.lo cr2af.lo cr2tf.lo \
+	cs2c.lo cs2c6.lo ctf2d.lo ctf2r.lo daf2r.lo dafin.lo dat.lo \
+	dav2m.lo dbear.lo dbjin.lo dc62s.lo dcc2s.lo dcmpf.lo dcs2c.lo \
+	dd2tf.lo de2h.lo deuler.lo dfltin.lo dh2e.lo dimxv.lo djcal.lo \
+	djcl.lo dm2av.lo dmat.lo dmoon.lo dmxm.lo dmxv.lo dpav.lo \
+	dr2af.lo dr2tf.lo drange.lo dranrm.lo ds2c6.lo ds2tp.lo \
+	dsep.lo dt.lo dtf2d.lo dtf2r.lo dtp2s.lo dtp2v.lo dtps2c.lo \
+	dtpv2c.lo dtt.lo dv2tp.lo dvdv.lo dvn.lo dvxv.lo e2h.lo \
+	earth.lo ecleq.lo ecmat.lo ecor.lo eg50.lo el2ue.lo epb.lo \
+	epb2d.lo epco.lo epj.lo epj2d.lo eqecl.lo eqeqx.lo eqgal.lo \
+	etrms.lo euler.lo evp.lo fitxy.lo fk425.lo fk45z.lo fk524.lo \
+	fk52h.lo fk54z.lo fk5hz.lo flotin.lo galeq.lo galsup.lo \
+	ge50.lo geoc.lo gmst.lo gmsta.lo h2e.lo h2fk5.lo hfk5z.lo \
+	idchf.lo idchi.lo imxv.lo intin.lo invf.lo kbj.lo m2av.lo \
+	map.lo mappa.lo mapqk.lo mapqkz.lo moon.lo mxm.lo mxv.lo \
+	nut.lo nutc.lo oap.lo oapqk.lo obs.lo pa.lo pav.lo pcd.lo \
+	pda2h.lo pdq2h.lo permut.lo pertel.lo pertue.lo planel.lo \
+	planet.lo plante.lo pm.lo polmo.lo prebn.lo prec.lo precl.lo \
+	preces.lo prenut.lo pv2el.lo pv2ue.lo pvobs.lo pxy.lo range.lo \
+	ranorm.lo rcc.lo rdplan.lo refco.lo refro.lo refv.lo refz.lo \
+	rverot.lo rvgalc.lo rvlg.lo rvlsrd.lo rvlsrk.lo s2tp.lo sep.lo \
+	smat.lo subet.lo supgal.lo svd.lo svdcov.lo svdsol.lo tp2s.lo \
+	tp2v.lo tps2c.lo tpv2c.lo ue2el.lo ue2pv.lo unpcd.lo v2tp.lo \
+	vdv.lo vn.lo vxv.lo xy2xy.lo zd.lo
+libsla_la_OBJECTS = $(am_libsla_la_OBJECTS)
+AM_V_lt = $(am__v_lt_@AM_V@)
+am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
+am__v_lt_0 = --silent
+am__v_lt_1 = 
+AM_V_P = $(am__v_P_@AM_V@)
+am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
+am__v_P_0 = false
+am__v_P_1 = :
+AM_V_GEN = $(am__v_GEN_@AM_V@)
+am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
+am__v_GEN_0 = @echo "  GEN     " $@;
+am__v_GEN_1 = 
+AM_V_at = $(am__v_at_@AM_V@)
+am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
+am__v_at_0 = @
+am__v_at_1 = 
+DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)
+F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS)
+LTF77COMPILE = $(LIBTOOL) $(AM_V_lt) --tag=F77 $(AM_LIBTOOLFLAGS) \
+	$(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS)
+AM_V_F77 = $(am__v_F77_@AM_V@)
+am__v_F77_ = $(am__v_F77_@AM_DEFAULT_V@)
+am__v_F77_0 = @echo "  F77     " $@;
+am__v_F77_1 = 
+F77LD = $(F77)
+F77LINK = $(LIBTOOL) $(AM_V_lt) --tag=F77 $(AM_LIBTOOLFLAGS) \
+	$(LIBTOOLFLAGS) --mode=link $(F77LD) $(AM_FFLAGS) $(FFLAGS) \
+	$(AM_LDFLAGS) $(LDFLAGS) -o $@
+AM_V_F77LD = $(am__v_F77LD_@AM_V@)
+am__v_F77LD_ = $(am__v_F77LD_@AM_DEFAULT_V@)
+am__v_F77LD_0 = @echo "  F77LD   " $@;
+am__v_F77LD_1 = 
+SOURCES = $(libsla_la_SOURCES)
+DIST_SOURCES = $(libsla_la_SOURCES)
+am__can_run_installinfo = \
+  case $$AM_UPDATE_INFO_DIR in \
+    n|no|NO) false;; \
+    *) (install-info --version) >/dev/null 2>&1;; \
+  esac
+am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP)
+# Read a list of newline-separated strings from the standard input,
+# and print each of them once, without duplicates.  Input order is
+# *not* preserved.
+am__uniquify_input = $(AWK) '\
+  BEGIN { nonempty = 0; } \
+  { items[$$0] = 1; nonempty = 1; } \
+  END { if (nonempty) { for (i in items) print i; }; } \
+'
+# Make sure the list of sources is unique.  This is necessary because,
+# e.g., the same source file might be shared among _SOURCES variables
+# for different programs/libraries.
+am__define_uniq_tagged_files = \
+  list='$(am__tagged_files)'; \
+  unique=`for i in $$list; do \
+    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
+  done | $(am__uniquify_input)`
+ETAGS = etags
+CTAGS = ctags
+am__DIST_COMMON = $(srcdir)/Makefile.in
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+ACLOCAL = @ACLOCAL@
+ALLOCA = @ALLOCA@
+AMTAR = @AMTAR@
+AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
+AR = @AR@
+AUTOCONF = @AUTOCONF@
+AUTOHEADER = @AUTOHEADER@
+AUTOMAKE = @AUTOMAKE@
+AWK = @AWK@
+CC = @CC@
+CCDEPMODE = @CCDEPMODE@
+CFLAGS = @CFLAGS@
+CPP = @CPP@
+CPPFLAGS = @CPPFLAGS@
+CYGPATH_W = @CYGPATH_W@
+DEFS = @DEFS@
+DEPDIR = @DEPDIR@
+DLLTOOL = @DLLTOOL@
+DSYMUTIL = @DSYMUTIL@
+DUMPBIN = @DUMPBIN@
+ECHO_C = @ECHO_C@
+ECHO_N = @ECHO_N@
+ECHO_T = @ECHO_T@
+EGREP = @EGREP@
+EXEEXT = @EXEEXT@
+F77 = @F77@
+FFLAGS = @FFLAGS@
+FGREP = @FGREP@
+GREP = @GREP@
+INSTALL = @INSTALL@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
+LD = @LD@
+LDFLAGS = @LDFLAGS@
+LIBOBJS = @LIBOBJS@
+LIBS = @LIBS@
+LIBTOOL = @LIBTOOL@
+LIPO = @LIPO@
+LN_S = @LN_S@
+LTLIBOBJS = @LTLIBOBJS@
+LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
+MAKEINFO = @MAKEINFO@
+MANIFEST_TOOL = @MANIFEST_TOOL@
+MKDIR_P = @MKDIR_P@
+NM = @NM@
+NMEDIT = @NMEDIT@
+OBJDUMP = @OBJDUMP@
+OBJEXT = @OBJEXT@
+OTOOL = @OTOOL@
+OTOOL64 = @OTOOL64@
+PACKAGE = @PACKAGE@
+PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
+PACKAGE_NAME = @PACKAGE_NAME@
+PACKAGE_STRING = @PACKAGE_STRING@
+PACKAGE_TARNAME = @PACKAGE_TARNAME@
+PACKAGE_URL = @PACKAGE_URL@
+PACKAGE_VERSION = @PACKAGE_VERSION@
+PATH_SEPARATOR = @PATH_SEPARATOR@
+RANLIB = @RANLIB@
+SED = @SED@
+SET_MAKE = @SET_MAKE@
+SHELL = @SHELL@
+STRIP = @STRIP@
+VERSION = @VERSION@
+abs_builddir = @abs_builddir@
+abs_srcdir = @abs_srcdir@
+abs_top_builddir = @abs_top_builddir@
+abs_top_srcdir = @abs_top_srcdir@
+ac_ct_AR = @ac_ct_AR@
+ac_ct_CC = @ac_ct_CC@
+ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
+ac_ct_F77 = @ac_ct_F77@
+am__include = @am__include@
+am__leading_dot = @am__leading_dot@
+am__quote = @am__quote@
+am__tar = @am__tar@
+am__untar = @am__untar@
+bindir = @bindir@
+build = @build@
+build_alias = @build_alias@
+build_cpu = @build_cpu@
+build_os = @build_os@
+build_vendor = @build_vendor@
+builddir = @builddir@
+datadir = @datadir@
+datarootdir = @datarootdir@
+docdir = @docdir@
+dvidir = @dvidir@
+exec_prefix = @exec_prefix@
+host = @host@
+host_alias = @host_alias@
+host_cpu = @host_cpu@
+host_os = @host_os@
+host_vendor = @host_vendor@
+htmldir = @htmldir@
+includedir = @includedir@
+infodir = @infodir@
+install_sh = @install_sh@
+libdir = @libdir@
+libexecdir = @libexecdir@
+localedir = @localedir@
+localstatedir = @localstatedir@
+mandir = @mandir@
+mkdir_p = @mkdir_p@
+oldincludedir = @oldincludedir@
+pdfdir = @pdfdir@
+prefix = @prefix@
+program_transform_name = @program_transform_name@
+psdir = @psdir@
+sbindir = @sbindir@
+sharedstatedir = @sharedstatedir@
+srcdir = @srcdir@
+sysconfdir = @sysconfdir@
+target_alias = @target_alias@
+top_build_prefix = @top_build_prefix@
+top_builddir = @top_builddir@
+top_srcdir = @top_srcdir@
+lib_LTLIBRARIES = libsla.la
+libsla_la_SOURCES = \
+        addet.f  \
+        afin.f   \
+        airmas.f \
+        altaz.f  \
+        amp.f    \
+        ampqk.f  \
+        aop.f    \
+        aoppa.f  \
+        aoppat.f \
+        aopqk.f  \
+        atmdsp.f \
+        atms.f   \
+        atmt.f   \
+        av2m.f   \
+        bear.f   \
+        caf2r.f  \
+        caldj.f  \
+        calyd.f  \
+        cc2s.f   \
+        cc62s.f  \
+        cd2tf.f  \
+        cldj.f   \
+        clyd.f   \
+        combn.f  \
+        cr2af.f  \
+        cr2tf.f  \
+        cs2c.f   \
+        cs2c6.f  \
+        ctf2d.f  \
+        ctf2r.f  \
+        daf2r.f  \
+        dafin.f  \
+        dat.f    \
+        dav2m.f  \
+        dbear.f  \
+        dbjin.f  \
+        dc62s.f  \
+        dcc2s.f  \
+        dcmpf.f  \
+        dcs2c.f  \
+        dd2tf.f  \
+        de2h.f   \
+        deuler.f \
+        dfltin.f \
+        dh2e.f   \
+        dimxv.f  \
+        djcal.f  \
+        djcl.f   \
+        dm2av.f  \
+        dmat.f   \
+        dmoon.f  \
+        dmxm.f   \
+        dmxv.f   \
+        dpav.f   \
+        dr2af.f  \
+        dr2tf.f  \
+        drange.f \
+        dranrm.f \
+        ds2c6.f  \
+        ds2tp.f  \
+        dsep.f   \
+        dt.f     \
+        dtf2d.f  \
+        dtf2r.f  \
+        dtp2s.f  \
+        dtp2v.f  \
+        dtps2c.f \
+        dtpv2c.f \
+        dtt.f    \
+        dv2tp.f  \
+        dvdv.f   \
+        dvn.f    \
+        dvxv.f   \
+        e2h.f    \
+        earth.f  \
+        ecleq.f  \
+        ecmat.f  \
+        ecor.f   \
+        eg50.f   \
+        el2ue.f  \
+        epb.f    \
+        epb2d.f  \
+        epco.f   \
+        epj.f    \
+        epj2d.f  \
+        eqecl.f  \
+        eqeqx.f  \
+        eqgal.f  \
+        etrms.f  \
+        euler.f  \
+        evp.f    \
+        fitxy.f  \
+        fk425.f  \
+        fk45z.f  \
+        fk524.f  \
+        fk52h.f  \
+        fk54z.f  \
+        fk5hz.f  \
+        flotin.f \
+        galeq.f  \
+        galsup.f \
+        ge50.f   \
+        geoc.f   \
+        gmst.f   \
+        gmsta.f  \
+        h2e.f    \
+        h2fk5.f  \
+        hfk5z.f  \
+        idchf.f  \
+        idchi.f  \
+        imxv.f   \
+        intin.f  \
+        invf.f   \
+        kbj.f    \
+        m2av.f   \
+        map.f    \
+        mappa.f  \
+        mapqk.f  \
+        mapqkz.f \
+        moon.f   \
+        mxm.f    \
+        mxv.f    \
+        nut.f    \
+        nutc.f   \
+        oap.f    \
+        oapqk.f  \
+        obs.f    \
+        pa.f     \
+        pav.f    \
+        pcd.f    \
+        pda2h.f  \
+        pdq2h.f  \
+        permut.f \
+        pertel.f \
+        pertue.f \
+        planel.f \
+        planet.f \
+        plante.f \
+        pm.f     \
+        polmo.f  \
+        prebn.f  \
+        prec.f   \
+        precl.f  \
+        preces.f \
+        prenut.f \
+        pv2el.f  \
+        pv2ue.f  \
+        pvobs.f  \
+        pxy.f    \
+        range.f  \
+        ranorm.f \
+        rcc.f    \
+        rdplan.f \
+        refco.f  \
+        refro.f  \
+        refv.f   \
+        refz.f   \
+        rverot.f \
+        rvgalc.f \
+        rvlg.f   \
+        rvlsrd.f \
+        rvlsrk.f \
+        s2tp.f   \
+        sep.f    \
+        smat.f   \
+        subet.f  \
+        supgal.f \
+        svd.f    \
+        svdcov.f \
+        svdsol.f \
+        tp2s.f   \
+        tp2v.f   \
+        tps2c.f  \
+        tpv2c.f  \
+        ue2el.f  \
+        ue2pv.f  \
+        unpcd.f  \
+        v2tp.f   \
+        vdv.f    \
+        vn.f     \
+        vxv.f    \
+        xy2xy.f  \
+        zd.f
+
+AM_CFLAGS = -I../include -I./
+all: all-am
+
+.SUFFIXES:
+.SUFFIXES: .f .lo .o .obj
+$(srcdir)/Makefile.in:  $(srcdir)/Makefile.am  $(am__configure_deps)
+	@for dep in $?; do \
+	  case '$(am__configure_deps)' in \
+	    *$$dep*) \
+	      ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
+	        && { if test -f $@; then exit 0; else break; fi; }; \
+	      exit 1;; \
+	  esac; \
+	done; \
+	echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign src/slalib/Makefile'; \
+	$(am__cd) $(top_srcdir) && \
+	  $(AUTOMAKE) --foreign src/slalib/Makefile
+Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
+	@case '$?' in \
+	  *config.status*) \
+	    cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
+	  *) \
+	    echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
+	    cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
+	esac;
+
+$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
+	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+
+$(top_srcdir)/configure:  $(am__configure_deps)
+	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+$(ACLOCAL_M4):  $(am__aclocal_m4_deps)
+	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+$(am__aclocal_m4_deps):
+
+install-libLTLIBRARIES: $(lib_LTLIBRARIES)
+	@$(NORMAL_INSTALL)
+	@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
+	list2=; for p in $$list; do \
+	  if test -f $$p; then \
+	    list2="$$list2 $$p"; \
+	  else :; fi; \
+	done; \
+	test -z "$$list2" || { \
+	  echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \
+	  $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \
+	  echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \
+	  $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \
+	}
+
+uninstall-libLTLIBRARIES:
+	@$(NORMAL_UNINSTALL)
+	@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
+	for p in $$list; do \
+	  $(am__strip_dir) \
+	  echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \
+	  $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \
+	done
+
+clean-libLTLIBRARIES:
+	-test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES)
+	@list='$(lib_LTLIBRARIES)'; \
+	locs=`for p in $$list; do echo $$p; done | \
+	      sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+	      sort -u`; \
+	test -z "$$locs" || { \
+	  echo rm -f $${locs}; \
+	  rm -f $${locs}; \
+	}
+
+libsla.la: $(libsla_la_OBJECTS) $(libsla_la_DEPENDENCIES) $(EXTRA_libsla_la_DEPENDENCIES) 
+	$(AM_V_F77LD)$(F77LINK) -rpath $(libdir) $(libsla_la_OBJECTS) $(libsla_la_LIBADD) $(LIBS)
+
+mostlyclean-compile:
+	-rm -f *.$(OBJEXT)
+
+distclean-compile:
+	-rm -f *.tab.c
+
+.f.o:
+	$(AM_V_F77)$(F77COMPILE) -c -o $@ $<
+
+.f.obj:
+	$(AM_V_F77)$(F77COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
+
+.f.lo:
+	$(AM_V_F77)$(LTF77COMPILE) -c -o $@ $<
+
+mostlyclean-libtool:
+	-rm -f *.lo
+
+clean-libtool:
+	-rm -rf .libs _libs
+
+ID: $(am__tagged_files)
+	$(am__define_uniq_tagged_files); mkid -fID $$unique
+tags: tags-am
+TAGS: tags
+
+tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
+	set x; \
+	here=`pwd`; \
+	$(am__define_uniq_tagged_files); \
+	shift; \
+	if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
+	  test -n "$$unique" || unique=$$empty_fix; \
+	  if test $$# -gt 0; then \
+	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
+	      "$$@" $$unique; \
+	  else \
+	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
+	      $$unique; \
+	  fi; \
+	fi
+ctags: ctags-am
+
+CTAGS: ctags
+ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
+	$(am__define_uniq_tagged_files); \
+	test -z "$(CTAGS_ARGS)$$unique" \
+	  || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
+	     $$unique
+
+GTAGS:
+	here=`$(am__cd) $(top_builddir) && pwd` \
+	  && $(am__cd) $(top_srcdir) \
+	  && gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: cscopelist-am
+
+cscopelist-am: $(am__tagged_files)
+	list='$(am__tagged_files)'; \
+	case "$(srcdir)" in \
+	  [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+	  *) sdir=$(subdir)/$(srcdir) ;; \
+	esac; \
+	for i in $$list; do \
+	  if test -f "$$i"; then \
+	    echo "$(subdir)/$$i"; \
+	  else \
+	    echo "$$sdir/$$i"; \
+	  fi; \
+	done >> $(top_builddir)/cscope.files
+
+distclean-tags:
+	-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
+
+distdir: $(DISTFILES)
+	@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
+	topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
+	list='$(DISTFILES)'; \
+	  dist_files=`for file in $$list; do echo $$file; done | \
+	  sed -e "s|^$$srcdirstrip/||;t" \
+	      -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
+	case $$dist_files in \
+	  */*) $(MKDIR_P) `echo "$$dist_files" | \
+			   sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
+			   sort -u` ;; \
+	esac; \
+	for file in $$dist_files; do \
+	  if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
+	  if test -d $$d/$$file; then \
+	    dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
+	    if test -d "$(distdir)/$$file"; then \
+	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
+	    fi; \
+	    if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
+	      cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
+	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
+	    fi; \
+	    cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
+	  else \
+	    test -f "$(distdir)/$$file" \
+	    || cp -p $$d/$$file "$(distdir)/$$file" \
+	    || exit 1; \
+	  fi; \
+	done
+check-am: all-am
+check: check-am
+all-am: Makefile $(LTLIBRARIES)
+installdirs:
+	for dir in "$(DESTDIR)$(libdir)"; do \
+	  test -z "$$dir" || $(MKDIR_P) "$$dir"; \
+	done
+install: install-am
+install-exec: install-exec-am
+install-data: install-data-am
+uninstall: uninstall-am
+
+install-am: all-am
+	@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
+
+installcheck: installcheck-am
+install-strip:
+	if test -z '$(STRIP)'; then \
+	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+	      install; \
+	else \
+	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+	    "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+	fi
+mostlyclean-generic:
+
+clean-generic:
+
+distclean-generic:
+	-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
+	-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
+
+maintainer-clean-generic:
+	@echo "This command is intended for maintainers to use"
+	@echo "it deletes files that may require special tools to rebuild."
+clean: clean-am
+
+clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \
+	mostlyclean-am
+
+distclean: distclean-am
+	-rm -f Makefile
+distclean-am: clean-am distclean-compile distclean-generic \
+	distclean-tags
+
+dvi: dvi-am
+
+dvi-am:
+
+html: html-am
+
+html-am:
+
+info: info-am
+
+info-am:
+
+install-data-am:
+
+install-dvi: install-dvi-am
+
+install-dvi-am:
+
+install-exec-am: install-libLTLIBRARIES
+
+install-html: install-html-am
+
+install-html-am:
+
+install-info: install-info-am
+
+install-info-am:
+
+install-man:
+
+install-pdf: install-pdf-am
+
+install-pdf-am:
+
+install-ps: install-ps-am
+
+install-ps-am:
+
+installcheck-am:
+
+maintainer-clean: maintainer-clean-am
+	-rm -f Makefile
+maintainer-clean-am: distclean-am maintainer-clean-generic
+
+mostlyclean: mostlyclean-am
+
+mostlyclean-am: mostlyclean-compile mostlyclean-generic \
+	mostlyclean-libtool
+
+pdf: pdf-am
+
+pdf-am:
+
+ps: ps-am
+
+ps-am:
+
+uninstall-am: uninstall-libLTLIBRARIES
+
+.MAKE: install-am install-strip
+
+.PHONY: CTAGS GTAGS TAGS all all-am check check-am clean clean-generic \
+	clean-libLTLIBRARIES clean-libtool cscopelist-am ctags \
+	ctags-am distclean distclean-compile distclean-generic \
+	distclean-libtool distclean-tags distdir dvi dvi-am html \
+	html-am info info-am install install-am install-data \
+	install-data-am install-dvi install-dvi-am install-exec \
+	install-exec-am install-html install-html-am install-info \
+	install-info-am install-libLTLIBRARIES install-man install-pdf \
+	install-pdf-am install-ps install-ps-am install-strip \
+	installcheck installcheck-am installdirs maintainer-clean \
+	maintainer-clean-generic mostlyclean mostlyclean-compile \
+	mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
+	tags tags-am uninstall uninstall-am uninstall-libLTLIBRARIES
+
+.PRECIOUS: Makefile
+
+
+# Tell versions [3.59,3.63) of GNU make to not export all variables.
+# Otherwise a system limit (for SysV at least) may be exceeded.
+.NOEXPORT:
diff --git a/src/slalib/addet.f b/src/slalib/addet.f
new file mode 100644
index 0000000..c039aff
--- /dev/null
+++ b/src/slalib/addet.f
@@ -0,0 +1,67 @@
+      SUBROUTINE sla_ADDET (RM, DM, EQ, RC, DC)
+*+
+*     - - - - - -
+*      A D D E T
+*     - - - - - -
+*
+*  Add the E-terms (elliptic component of annual aberration)
+*  to a pre IAU 1976 mean place to conform to the old
+*  catalogue convention (double precision)
+*
+*  Given:
+*     RM,DM     dp     RA,Dec (radians) without E-terms
+*     EQ        dp     Besselian epoch of mean equator and equinox
+*
+*  Returned:
+*     RC,DC     dp     RA,Dec (radians) with E-terms included
+*
+*  Note:
+*
+*     Most star positions from pre-1984 optical catalogues (or
+*     derived from astrometry using such stars) embody the
+*     E-terms.  If it is necessary to convert a formal mean
+*     place (for example a pulsar timing position) to one
+*     consistent with such a star catalogue, then the RA,Dec
+*     should be adjusted using this routine.
+*
+*  Reference:
+*     Explanatory Supplement to the Astronomical Ephemeris,
+*     section 2D, page 48.
+*
+*  Called:  sla_ETRMS, sla_DCS2C, sla_DCC2S, sla_DRANRM, sla_DRANGE
+*
+*  P.T.Wallace   Starlink   18 March 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION RM,DM,EQ,RC,DC
+
+      DOUBLE PRECISION sla_DRANRM
+
+      DOUBLE PRECISION A(3),V(3)
+
+      INTEGER I
+
+
+
+*  E-terms vector
+      CALL sla_ETRMS(EQ,A)
+
+*  Spherical to Cartesian
+      CALL sla_DCS2C(RM,DM,V)
+
+*  Include the E-terms
+      DO I=1,3
+         V(I)=V(I)+A(I)
+      END DO
+
+*  Cartesian to spherical
+      CALL sla_DCC2S(V,RC,DC)
+
+*  Bring RA into conventional range
+      RC=sla_DRANRM(RC)
+
+      END
diff --git a/src/slalib/afin.f b/src/slalib/afin.f
new file mode 100644
index 0000000..2308c74
--- /dev/null
+++ b/src/slalib/afin.f
@@ -0,0 +1,102 @@
+      SUBROUTINE sla_AFIN (STRING, IPTR, A, J)
+*+
+*     - - - - -
+*      A F I N
+*     - - - - -
+*
+*  Sexagesimal character string to angle (single precision)
+*
+*  Given:
+*     STRING  c*(*)   string containing deg, arcmin, arcsec fields
+*     IPTR      i     pointer to start of decode (1st = 1)
+*
+*  Returned:
+*     IPTR      i     advanced past the decoded angle
+*     A         r     angle in radians
+*     J         i     status:  0 = OK
+*                             +1 = default, A unchanged
+*                             -1 = bad degrees      )
+*                             -2 = bad arcminutes   )  (note 3)
+*                             -3 = bad arcseconds   )
+*
+*  Example:
+*
+*    argument    before                           after
+*
+*    STRING      '-57 17 44.806  12 34 56.7'      unchanged
+*    IPTR        1                                16 (points to 12...)
+*    A           ?                                -1.00000
+*    J           ?                                0
+*
+*    A further call to sla_AFIN, without adjustment of IPTR, will
+*    decode the second angle, 12deg 34min 56.7sec.
+*
+*  Notes:
+*
+*     1)  The first three "fields" in STRING are degrees, arcminutes,
+*         arcseconds, separated by spaces or commas.  The degrees field
+*         may be signed, but not the others.  The decoding is carried
+*         out by the DFLTIN routine and is free-format.
+*
+*     2)  Successive fields may be absent, defaulting to zero.  For
+*         zero status, the only combinations allowed are degrees alone,
+*         degrees and arcminutes, and all three fields present.  If all
+*         three fields are omitted, a status of +1 is returned and A is
+*         unchanged.  In all other cases A is changed.
+*
+*     3)  Range checking:
+*
+*           The degrees field is not range checked.  However, it is
+*           expected to be integral unless the other two fields are
+*           absent.
+*
+*           The arcminutes field is expected to be 0-59, and integral if
+*           the arcseconds field is present.  If the arcseconds field
+*           is absent, the arcminutes is expected to be 0-59.9999...
+*
+*           The arcseconds field is expected to be 0-59.9999...
+*
+*     4)  Decoding continues even when a check has failed.  Under these
+*         circumstances the field takes the supplied value, defaulting
+*         to zero, and the result A is computed and returned.
+*
+*     5)  Further fields after the three expected ones are not treated
+*         as an error.  The pointer IPTR is left in the correct state
+*         for further decoding with the present routine or with DFLTIN
+*         etc.  See the example, above.
+*
+*     6)  If STRING contains hours, minutes, seconds instead of degrees
+*         etc, or if the required units are turns (or days) instead of
+*         radians, the result A should be multiplied as follows:
+*
+*           for        to obtain    multiply
+*           STRING     A in         A by
+*
+*           d ' "      radians      1       =  1.0
+*           d ' "      turns        1/2pi   =  0.1591549430918953358
+*           h m s      radians      15      =  15.0
+*           h m s      days         15/2pi  =  2.3873241463784300365
+*
+*  Called:  sla_DAFIN
+*
+*  P.T.Wallace   Starlink   13 September 1990
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      CHARACTER*(*) STRING
+      INTEGER IPTR
+      REAL A
+      INTEGER J
+
+      DOUBLE PRECISION AD
+
+
+
+*  Call the double precision version
+      CALL sla_DAFIN(STRING,IPTR,AD,J)
+      IF (J.LE.0) A=REAL(AD)
+
+      END
diff --git a/src/slalib/airmas.f b/src/slalib/airmas.f
new file mode 100644
index 0000000..12431c8
--- /dev/null
+++ b/src/slalib/airmas.f
@@ -0,0 +1,58 @@
+      DOUBLE PRECISION FUNCTION sla_AIRMAS (ZD)
+*+
+*     - - - - - - -
+*      A I R M A S
+*     - - - - - - -
+*
+*  Air mass at given zenith distance (double precision)
+*
+*  Given:
+*     ZD     d     Observed zenith distance (radians)
+*
+*  The result is an estimate of the air mass, in units of that
+*  at the zenith.
+*
+*  Notes:
+*
+*  1)  The "observed" zenith distance referred to above means "as
+*      affected by refraction".
+*
+*  2)  Uses Hardie's (1962) polynomial fit to Bemporad's data for
+*      the relative air mass, X, in units of thickness at the zenith
+*      as tabulated by Schoenberg (1929). This is adequate for all
+*      normal needs as it is accurate to better than 0.1% up to X =
+*      6.8 and better than 1% up to X = 10. Bemporad's tabulated
+*      values are unlikely to be trustworthy to such accuracy
+*      because of variations in density, pressure and other
+*      conditions in the atmosphere from those assumed in his work.
+*
+*  3)  The sign of the ZD is ignored.
+*
+*  4)  At zenith distances greater than about ZD = 87 degrees the
+*      air mass is held constant to avoid arithmetic overflows.
+*
+*  References:
+*     Hardie, R.H., 1962, in "Astronomical Techniques"
+*        ed. W.A. Hiltner, University of Chicago Press, p180.
+*     Schoenberg, E., 1929, Hdb. d. Ap.,
+*        Berlin, Julius Springer, 2, 268.
+*
+*  Original code by P.W.Hill, St Andrews
+*
+*  P.T.Wallace   Starlink   18 March 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION ZD
+
+      DOUBLE PRECISION SECZM1
+
+
+      SECZM1 = 1D0/(COS(MIN(1.52D0,ABS(ZD))))-1D0
+      sla_AIRMAS = 1D0 + SECZM1*(0.9981833D0
+     :             - SECZM1*(0.002875D0 + 0.0008083D0*SECZM1))
+
+      END
diff --git a/src/slalib/altaz.f b/src/slalib/altaz.f
new file mode 100644
index 0000000..3a7124b
--- /dev/null
+++ b/src/slalib/altaz.f
@@ -0,0 +1,145 @@
+      SUBROUTINE sla_ALTAZ (HA, DEC, PHI,
+     :                      AZ, AZD, AZDD, EL, ELD, ELDD, PA, PAD, PADD)
+*+
+*     - - - - - -
+*      A L T A Z
+*     - - - - - -
+*
+*  Positions, velocities and accelerations for an altazimuth
+*  telescope mount.
+*
+*  (double precision)
+*
+*  Given:
+*     HA      d     hour angle
+*     DEC     d     declination
+*     PHI     d     observatory latitude
+*
+*  Returned:
+*     AZ      d     azimuth
+*     AZD     d        "    velocity
+*     AZDD    d        "    acceleration
+*     EL      d     elevation
+*     ELD     d         "     velocity
+*     ELDD    d         "     acceleration
+*     PA      d     parallactic angle
+*     PAD     d         "      "   velocity
+*     PADD    d         "      "   acceleration
+*
+*  Notes:
+*
+*  1)  Natural units are used throughout.  HA, DEC, PHI, AZ, EL
+*      and ZD are in radians.  The velocities and accelerations
+*      assume constant declination and constant rate of change of
+*      hour angle (as for tracking a star);  the units of AZD, ELD
+*      and PAD are radians per radian of HA, while the units of AZDD,
+*      ELDD and PADD are radians per radian of HA squared.  To
+*      convert into practical degree- and second-based units:
+*
+*        angles * 360/2pi -> degrees
+*        velocities * (2pi/86400)*(360/2pi) -> degree/sec
+*        accelerations * ((2pi/86400)**2)*(360/2pi) -> degree/sec/sec
+*
+*      Note that the seconds here are sidereal rather than SI.  One
+*      sidereal second is about 0.99727 SI seconds.
+*
+*      The velocity and acceleration factors assume the sidereal
+*      tracking case.  Their respective numerical values are (exactly)
+*      1/240 and (approximately) 1/3300236.9.
+*
+*  2)  Azimuth is returned in the range 0-2pi;  north is zero,
+*      and east is +pi/2.  Elevation and parallactic angle are
+*      returned in the range +/-pi/2.  Position angle is +ve
+*      for a star west of the meridian and is the angle NP-star-zenith.
+*
+*  3)  The latitude is geodetic as opposed to geocentric.  The
+*      hour angle and declination are topocentric.  Refraction and
+*      deficiencies in the telescope mounting are ignored.  The
+*      purpose of the routine is to give the general form of the
+*      quantities.  The details of a real telescope could profoundly
+*      change the results, especially close to the zenith.
+*
+*  4)  No range checking of arguments is carried out.
+*
+*  5)  In applications which involve many such calculations, rather
+*      than calling the present routine it will be more efficient to
+*      use inline code, having previously computed fixed terms such
+*      as sine and cosine of latitude, and (for tracking a star)
+*      sine and cosine of declination.
+*
+*  P.T.Wallace   Starlink   14 March 1997
+*
+*  Copyright (C) 1997 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION HA,DEC,PHI,AZ,AZD,AZDD,EL,ELD,ELDD,PA,PAD,PADD
+
+      DOUBLE PRECISION DPI,D2PI,TINY
+      PARAMETER (DPI=3.1415926535897932384626433832795D0,
+     :           D2PI=6.283185307179586476925286766559D0,
+     :           TINY=1D-30)
+
+      DOUBLE PRECISION SH,CH,SD,CD,SP,CP,CHCD,SDCP,X,Y,Z,RSQ,R,A,E,C,S,
+     :                 Q,QD,AD,ED,EDR,ADD,EDD,QDD
+
+
+*  Useful functions
+      SH=SIN(HA)
+      CH=COS(HA)
+      SD=SIN(DEC)
+      CD=COS(DEC)
+      SP=SIN(PHI)
+      CP=COS(PHI)
+      CHCD=CH*CD
+      SDCP=SD*CP
+      X=-CHCD*SP+SDCP
+      Y=-SH*CD
+      Z=CHCD*CP+SD*SP
+      RSQ=X*X+Y*Y
+      R=SQRT(RSQ)
+
+*  Azimuth and elevation
+      IF (RSQ.EQ.0D0) THEN
+         A=0D0
+      ELSE
+         A=ATAN2(Y,X)
+      END IF
+      IF (A.LT.0D0) A=A+D2PI
+      E=ATAN2(Z,R)
+
+*  Parallactic angle
+      C=CD*SP-CH*SDCP
+      S=SH*CP
+      IF (C*C+S*S.GT.0) THEN
+         Q=ATAN2(S,C)
+      ELSE
+         Q=DPI-HA
+      END IF
+
+*  Velocities and accelerations (clamped at zenith/nadir)
+      IF (RSQ.LT.TINY) THEN
+         RSQ=TINY
+         R=SQRT(RSQ)
+      END IF
+      QD=-X*CP/RSQ
+      AD=SP+Z*QD
+      ED=CP*Y/R
+      EDR=ED/R
+      ADD=EDR*(Z*SP+(2D0-RSQ)*QD)
+      EDD=-R*QD*AD
+      QDD=EDR*(SP+2D0*Z*QD)
+
+*  Results
+      AZ=A
+      AZD=AD
+      AZDD=ADD
+      EL=E
+      ELD=ED
+      ELDD=EDD
+      PA=Q
+      PAD=QD
+      PADD=QDD
+
+      END
diff --git a/src/slalib/amp.f b/src/slalib/amp.f
new file mode 100644
index 0000000..6feb570
--- /dev/null
+++ b/src/slalib/amp.f
@@ -0,0 +1,68 @@
+      SUBROUTINE sla_AMP (RA, DA, DATE, EQ, RM, DM)
+*+
+*     - - - -
+*      A M P
+*     - - - -
+*
+*  Convert star RA,Dec from geocentric apparent to mean place
+*
+*  The mean coordinate system is the post IAU 1976 system,
+*  loosely called FK5.
+*
+*  Given:
+*     RA       d      apparent RA (radians)
+*     DA       d      apparent Dec (radians)
+*     DATE     d      TDB for apparent place (JD-2400000.5)
+*     EQ       d      equinox:  Julian epoch of mean place
+*
+*  Returned:
+*     RM       d      mean RA (radians)
+*     DM       d      mean Dec (radians)
+*
+*  References:
+*     1984 Astronomical Almanac, pp B39-B41.
+*     (also Lederle & Schwan, Astron. Astrophys. 134,
+*      1-6, 1984)
+*
+*  Notes:
+*
+*  1)  The distinction between the required TDB and TT is
+*      always negligible.  Moreover, for all but the most
+*      critical applications UTC is adequate.
+*
+*  2)  The accuracy is limited by the routine sla_EVP, called
+*      by sla_MAPPA, which computes the Earth position and
+*      velocity using the methods of Stumpff.  The maximum
+*      error is about 0.3 milliarcsecond.
+*
+*  3)  Iterative techniques are used for the aberration and
+*      light deflection corrections so that the routines
+*      sla_AMP (or sla_AMPQK) and sla_MAP (or sla_MAPQK) are
+*      accurate inverses;  even at the edge of the Sun's disc
+*      the discrepancy is only about 1 nanoarcsecond.
+*
+*  4)  Where multiple apparent places are to be converted to
+*      mean places, for a fixed date and equinox, it is more
+*      efficient to use the sla_MAPPA routine to compute the
+*      required parameters once, followed by one call to
+*      sla_AMPQK per star.
+*
+*  Called:  sla_MAPPA, sla_AMPQK
+*
+*  P.T.Wallace   Starlink   19 January 1993
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION RA,DA,DATE,EQ,RM,DM
+
+      DOUBLE PRECISION AMPRMS(21)
+
+
+
+      CALL sla_MAPPA(EQ,DATE,AMPRMS)
+      CALL sla_AMPQK(RA,DA,AMPRMS,RM,DM)
+
+      END
diff --git a/src/slalib/ampqk.f b/src/slalib/ampqk.f
new file mode 100644
index 0000000..6b94db1
--- /dev/null
+++ b/src/slalib/ampqk.f
@@ -0,0 +1,127 @@
+      SUBROUTINE sla_AMPQK (RA, DA, AMPRMS, RM, DM)
+*+
+*     - - - - - -
+*      A M P Q K
+*     - - - - - -
+*
+*  Convert star RA,Dec from geocentric apparent to mean place
+*
+*  The mean coordinate system is the post IAU 1976 system,
+*  loosely called FK5.
+*
+*  Use of this routine is appropriate when efficiency is important
+*  and where many star positions are all to be transformed for
+*  one epoch and equinox.  The star-independent parameters can be
+*  obtained by calling the sla_MAPPA routine.
+*
+*  Given:
+*     RA       d      apparent RA (radians)
+*     DA       d      apparent Dec (radians)
+*
+*     AMPRMS   d(21)  star-independent mean-to-apparent parameters:
+*
+*       (1)      time interval for proper motion (Julian years)
+*       (2-4)    barycentric position of the Earth (AU)
+*       (5-7)    heliocentric direction of the Earth (unit vector)
+*       (8)      (grav rad Sun)*2/(Sun-Earth distance)
+*       (9-11)   ABV: barycentric Earth velocity in units of c
+*       (12)     sqrt(1-v**2) where v=modulus(ABV)
+*       (13-21)  precession/nutation (3,3) matrix
+*
+*  Returned:
+*     RM       d      mean RA (radians)
+*     DM       d      mean Dec (radians)
+*
+*  References:
+*     1984 Astronomical Almanac, pp B39-B41.
+*     (also Lederle & Schwan, Astron. Astrophys. 134,
+*      1-6, 1984)
+*
+*  Notes:
+*
+*  1)  The accuracy is limited by the routine sla_EVP, called
+*      by sla_MAPPA, which computes the Earth position and
+*      velocity using the methods of Stumpff.  The maximum
+*      error is about 0.3 milliarcsecond.
+*
+*  2)  Iterative techniques are used for the aberration and
+*      light deflection corrections so that the routines
+*      sla_AMP (or sla_AMPQK) and sla_MAP (or sla_MAPQK) are
+*      accurate inverses;  even at the edge of the Sun's disc
+*      the discrepancy is only about 1 nanoarcsecond.
+*
+*  Called:  sla_DCS2C, sla_DIMXV, sla_DVDV, sla_DVN, sla_DCC2S,
+*           sla_DRANRM
+*
+*  P.T.Wallace   Starlink   21 June 1993
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION RA,DA,AMPRMS(21),RM,DM
+
+      INTEGER I,J
+
+      DOUBLE PRECISION GR2E,AB1,EHN(3),ABV(3),P3(3),P2(3),
+     :                 AB1P1,P1DV,P1DVP1,P1(3),W,PDE,PDEP1,P(3)
+
+      DOUBLE PRECISION sla_DVDV,sla_DRANRM
+
+
+
+*  Unpack scalar and vector parameters
+      GR2E = AMPRMS(8)
+      AB1 = AMPRMS(12)
+      DO I=1,3
+         EHN(I) = AMPRMS(I+4)
+         ABV(I) = AMPRMS(I+8)
+      END DO
+
+*  Apparent RA,Dec to Cartesian
+      CALL sla_DCS2C(RA,DA,P3)
+
+*  Precession and nutation
+      CALL sla_DIMXV(AMPRMS(13),P3,P2)
+
+*  Aberration
+      AB1P1 = AB1+1D0
+      DO I=1,3
+         P1(I) = P2(I)
+      END DO
+      DO J=1,2
+         P1DV = sla_DVDV(P1,ABV)
+         P1DVP1 = 1D0+P1DV
+         W = 1D0+P1DV/AB1P1
+         DO I=1,3
+            P1(I) = (P1DVP1*P2(I)-W*ABV(I))/AB1
+         END DO
+         CALL sla_DVN(P1,P3,W)
+         DO I=1,3
+            P1(I) = P3(I)
+         END DO
+      END DO
+
+*  Light deflection
+      DO I=1,3
+         P(I) = P1(I)
+      END DO
+      DO J=1,5
+         PDE = sla_DVDV(P,EHN)
+         PDEP1 = 1D0+PDE
+         W = PDEP1-GR2E*PDE
+         DO I=1,3
+            P(I) = (PDEP1*P1(I)-GR2E*EHN(I))/W
+         END DO
+         CALL sla_DVN(P,P2,W)
+         DO I=1,3
+            P(I) = P2(I)
+         END DO
+      END DO
+
+*  Mean RA,Dec
+      CALL sla_DCC2S(P,RM,DM)
+      RM = sla_DRANRM(RM)
+
+      END
diff --git a/src/slalib/aop.f b/src/slalib/aop.f
new file mode 100644
index 0000000..66ef9c4
--- /dev/null
+++ b/src/slalib/aop.f
@@ -0,0 +1,174 @@
+      SUBROUTINE sla_AOP (RAP, DAP, DATE, DUT, ELONGM, PHIM, HM,
+     :                    XP, YP, TDK, PMB, RH, WL, TLR,
+     :                    AOB, ZOB, HOB, DOB, ROB)
+*+
+*     - - - -
+*      A O P
+*     - - - -
+*
+*  Apparent to observed place, for optical sources distant from
+*  the solar system.
+*
+*  Given:
+*     RAP    d      geocentric apparent right ascension
+*     DAP    d      geocentric apparent declination
+*     DATE   d      UTC date/time (Modified Julian Date, JD-2400000.5)
+*     DUT    d      delta UT:  UT1-UTC (UTC seconds)
+*     ELONGM d      mean longitude of the observer (radians, east +ve)
+*     PHIM   d      mean geodetic latitude of the observer (radians)
+*     HM     d      observer's height above sea level (metres)
+*     XP     d      polar motion x-coordinate (radians)
+*     YP     d      polar motion y-coordinate (radians)
+*     TDK    d      local ambient temperature (DegK; std=273.155D0)
+*     PMB    d      local atmospheric pressure (mB; std=1013.25D0)
+*     RH     d      local relative humidity (in the range 0D0-1D0)
+*     WL     d      effective wavelength (micron, e.g. 0.55D0)
+*     TLR    d      tropospheric lapse rate (DegK/metre, e.g. 0.0065D0)
+*
+*  Returned:
+*     AOB    d      observed azimuth (radians: N=0,E=90)
+*     ZOB    d      observed zenith distance (radians)
+*     HOB    d      observed Hour Angle (radians)
+*     DOB    d      observed Declination (radians)
+*     ROB    d      observed Right Ascension (radians)
+*
+*  Notes:
+*
+*   1)  This routine returns zenith distance rather than elevation
+*       in order to reflect the fact that no allowance is made for
+*       depression of the horizon.
+*
+*   2)  The accuracy of the result is limited by the corrections for
+*       refraction.  Providing the meteorological parameters are
+*       known accurately and there are no gross local effects, the
+*       predicted apparent RA,Dec should be within about 0.1 arcsec
+*       for a zenith distance of less than 70 degrees.  Even at a
+*       topocentric zenith distance of 90 degrees, the accuracy in
+*       elevation should be better than 1 arcmin;  useful results
+*       are available for a further 3 degrees, beyond which the
+*       sla_REFRO routine returns a fixed value of the refraction.
+*       The complementary routines sla_AOP (or sla_AOPQK) and sla_OAP
+*       (or sla_OAPQK) are self-consistent to better than 1 micro-
+*       arcsecond all over the celestial sphere.
+*
+*   3)  It is advisable to take great care with units, as even
+*       unlikely values of the input parameters are accepted and
+*       processed in accordance with the models used.
+*
+*   4)  "Apparent" place means the geocentric apparent right ascension
+*       and declination, which is obtained from a catalogue mean place
+*       by allowing for space motion, parallax, precession, nutation,
+*       annual aberration, and the Sun's gravitational lens effect.  For
+*       star positions in the FK5 system (i.e. J2000), these effects can
+*       be applied by means of the sla_MAP etc routines.  Starting from
+*       other mean place systems, additional transformations will be
+*       needed;  for example, FK4 (i.e. B1950) mean places would first
+*       have to be converted to FK5, which can be done with the
+*       sla_FK425 etc routines.
+*
+*   5)  "Observed" Az,El means the position that would be seen by a
+*       perfect theodolite located at the observer.  This is obtained
+*       from the geocentric apparent RA,Dec by allowing for Earth
+*       orientation and diurnal aberration, rotating from equator
+*       to horizon coordinates, and then adjusting for refraction.
+*       The HA,Dec is obtained by rotating back into equatorial
+*       coordinates, using the geodetic latitude corrected for polar
+*       motion, and is the position that would be seen by a perfect
+*       equatorial located at the observer and with its polar axis
+*       aligned to the Earth's axis of rotation (n.b. not to the
+*       refracted pole).  Finally, the RA is obtained by subtracting
+*       the HA from the local apparent ST.
+*
+*   6)  To predict the required setting of a real telescope, the
+*       observed place produced by this routine would have to be
+*       adjusted for the tilt of the azimuth or polar axis of the
+*       mounting (with appropriate corrections for mount flexures),
+*       for non-perpendicularity between the mounting axes, for the
+*       position of the rotator axis and the pointing axis relative
+*       to it, for tube flexure, for gear and encoder errors, and
+*       finally for encoder zero points.  Some telescopes would, of
+*       course, exhibit other properties which would need to be
+*       accounted for at the appropriate point in the sequence.
+*
+*   7)  This routine takes time to execute, due mainly to the
+*       rigorous integration used to evaluate the refraction.
+*       For processing multiple stars for one location and time,
+*       call sla_AOPPA once followed by one call per star to sla_AOPQK.
+*       Where a range of times within a limited period of a few hours
+*       is involved, and the highest precision is not required, call
+*       sla_AOPPA once, followed by a call to sla_AOPPAT each time the
+*       time changes, followed by one call per star to sla_AOPQK.
+*
+*   8)  The DATE argument is UTC expressed as an MJD.  This is,
+*       strictly speaking, wrong, because of leap seconds.  However,
+*       as long as the delta UT and the UTC are consistent there
+*       are no difficulties, except during a leap second.  In this
+*       case, the start of the 61st second of the final minute should
+*       begin a new MJD day and the old pre-leap delta UT should
+*       continue to be used.  As the 61st second completes, the MJD
+*       should revert to the start of the day as, simultaneously,
+*       the delta UTC changes by one second to its post-leap new value.
+*
+*   9)  The delta UT (UT1-UTC) is tabulated in IERS circulars and
+*       elsewhere.  It increases by exactly one second at the end of
+*       each UTC leap second, introduced in order to keep delta UT
+*       within +/- 0.9 seconds.
+*
+*  10)  IMPORTANT -- TAKE CARE WITH THE LONGITUDE SIGN CONVENTION.
+*       The longitude required by the present routine is east-positive,
+*       in accordance with geographical convention (and right-handed).
+*       In particular, note that the longitudes returned by the
+*       sla_OBS routine are west-positive, following astronomical
+*       usage, and must be reversed in sign before use in the present
+*       routine.
+*
+*  11)  The polar coordinates XP,YP can be obtained from IERS
+*       circulars and equivalent publications.  The maximum amplitude
+*       is about 0.3 arcseconds.  If XP,YP values are unavailable,
+*       use XP=YP=0D0.  See page B60 of the 1988 Astronomical Almanac
+*       for a definition of the two angles.
+*
+*  12)  The height above sea level of the observing station, HM,
+*       can be obtained from the Astronomical Almanac (Section J
+*       in the 1988 edition), or via the routine sla_OBS.  If P,
+*       the pressure in millibars, is available, an adequate
+*       estimate of HM can be obtained from the expression
+*
+*             HM ~ -29.3D0*TSL*LOG(P/1013.25D0).
+*
+*       where TSL is the approximate sea-level air temperature in
+*       deg K (see Astrophysical Quantities, C.W.Allen, 3rd edition,
+*       section 52).  Similarly, if the pressure P is not known,
+*       it can be estimated from the height of the observing
+*       station, HM as follows:
+*
+*             P ~ 1013.25D0*EXP(-HM/(29.3D0*TSL)).
+*
+*       Note, however, that the refraction is proportional to the
+*       pressure and that an accurate P value is important for
+*       precise work.
+*
+*  13)  The azimuths etc produced by the present routine are with
+*       respect to the celestial pole.  Corrections to the terrestrial
+*       pole can be computed using sla_POLMO.
+*
+*  Called:  sla_AOPPA, sla_AOPQK
+*
+*  P.T.Wallace   Starlink   6 September 1999
+*
+*  Copyright (C) 1999 P.T.Wallace and CCLRC
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION RAP,DAP,DATE,DUT,ELONGM,PHIM,HM,
+     :                 XP,YP,TDK,PMB,RH,WL,TLR,AOB,ZOB,HOB,DOB,ROB
+
+      DOUBLE PRECISION AOPRMS(14)
+
+
+      CALL sla_AOPPA(DATE,DUT,ELONGM,PHIM,HM,XP,YP,TDK,PMB,RH,WL,TLR,
+     :               AOPRMS)
+      CALL sla_AOPQK(RAP,DAP,AOPRMS,AOB,ZOB,HOB,DOB,ROB)
+
+      END
diff --git a/src/slalib/aoppa.f b/src/slalib/aoppa.f
new file mode 100644
index 0000000..b497fdb
--- /dev/null
+++ b/src/slalib/aoppa.f
@@ -0,0 +1,176 @@
+      SUBROUTINE sla_AOPPA (DATE, DUT, ELONGM, PHIM, HM,
+     :                      XP, YP, TDK, PMB, RH, WL, TLR, AOPRMS)
+*+
+*     - - - - - -
+*      A O P P A
+*     - - - - - -
+*
+*  Precompute apparent to observed place parameters required by
+*  sla_AOPQK and sla_OAPQK.
+*
+*  Given:
+*     DATE   d      UTC date/time (modified Julian Date, JD-2400000.5)
+*     DUT    d      delta UT:  UT1-UTC (UTC seconds)
+*     ELONGM d      mean longitude of the observer (radians, east +ve)
+*     PHIM   d      mean geodetic latitude of the observer (radians)
+*     HM     d      observer's height above sea level (metres)
+*     XP     d      polar motion x-coordinate (radians)
+*     YP     d      polar motion y-coordinate (radians)
+*     TDK    d      local ambient temperature (DegK; std=273.155D0)
+*     PMB    d      local atmospheric pressure (mB; std=1013.25D0)
+*     RH     d      local relative humidity (in the range 0D0-1D0)
+*     WL     d      effective wavelength (micron, e.g. 0.55D0)
+*     TLR    d      tropospheric lapse rate (DegK/metre, e.g. 0.0065D0)
+*
+*  Returned:
+*     AOPRMS d(14)  star-independent apparent-to-observed parameters:
+*
+*       (1)      geodetic latitude (radians)
+*       (2,3)    sine and cosine of geodetic latitude
+*       (4)      magnitude of diurnal aberration vector
+*       (5)      height (HM)
+*       (6)      ambient temperature (TDK)
+*       (7)      pressure (PMB)
+*       (8)      relative humidity (RH)
+*       (9)      wavelength (WL)
+*       (10)     lapse rate (TLR)
+*       (11,12)  refraction constants A and B (radians)
+*       (13)     longitude + eqn of equinoxes + sidereal DUT (radians)
+*       (14)     local apparent sidereal time (radians)
+*
+*  Notes:
+*
+*   1)  It is advisable to take great care with units, as even
+*       unlikely values of the input parameters are accepted and
+*       processed in accordance with the models used.
+*
+*   2)  The DATE argument is UTC expressed as an MJD.  This is,
+*       strictly speaking, improper, because of leap seconds.  However,
+*       as long as the delta UT and the UTC are consistent there
+*       are no difficulties, except during a leap second.  In this
+*       case, the start of the 61st second of the final minute should
+*       begin a new MJD day and the old pre-leap delta UT should
+*       continue to be used.  As the 61st second completes, the MJD
+*       should revert to the start of the day as, simultaneously,
+*       the delta UTC changes by one second to its post-leap new value.
+*
+*   3)  The delta UT (UT1-UTC) is tabulated in IERS circulars and
+*       elsewhere.  It increases by exactly one second at the end of
+*       each UTC leap second, introduced in order to keep delta UT
+*       within +/- 0.9 seconds.
+*
+*   4)  IMPORTANT -- TAKE CARE WITH THE LONGITUDE SIGN CONVENTION.
+*       The longitude required by the present routine is east-positive,
+*       in accordance with geographical convention (and right-handed).
+*       In particular, note that the longitudes returned by the
+*       sla_OBS routine are west-positive, following astronomical
+*       usage, and must be reversed in sign before use in the present
+*       routine.
+*
+*   5)  The polar coordinates XP,YP can be obtained from IERS
+*       circulars and equivalent publications.  The maximum amplitude
+*       is about 0.3 arcseconds.  If XP,YP values are unavailable,
+*       use XP=YP=0D0.  See page B60 of the 1988 Astronomical Almanac
+*       for a definition of the two angles.
+*
+*   6)  The height above sea level of the observing station, HM,
+*       can be obtained from the Astronomical Almanac (Section J
+*       in the 1988 edition), or via the routine sla_OBS.  If P,
+*       the pressure in millibars, is available, an adequate
+*       estimate of HM can be obtained from the expression
+*
+*             HM ~ -29.3D0*TSL*LOG(P/1013.25D0).
+*
+*       where TSL is the approximate sea-level air temperature in
+*       deg K (see Astrophysical Quantities, C.W.Allen, 3rd edition,
+*       section 52).  Similarly, if the pressure P is not known,
+*       it can be estimated from the height of the observing
+*       station, HM as follows:
+*
+*             P ~ 1013.25D0*EXP(-HM/(29.3D0*TSL)).
+*
+*       Note, however, that the refraction is proportional to the
+*       pressure and that an accurate P value is important for
+*       precise work.
+*
+*   7)  Repeated, computationally-expensive, calls to sla_AOPPA for
+*       times that are very close together can be avoided by calling
+*       sla_AOPPA just once and then using sla_AOPPAT for the subsequent
+*       times.  Fresh calls to sla_AOPPA will be needed only when changes
+*       in the precession have grown to unacceptable levels or when
+*       anything affecting the refraction has changed.
+*
+*  Called:  sla_GEOC, sla_REFCO, sla_EQEQX, sla_AOPPAT
+*
+*  P.T.Wallace   Starlink   6 September 1999
+*
+*  Copyright (C) 1999 P.T.Wallace and CCLRC
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE,DUT,ELONGM,PHIM,HM,XP,YP,TDK,PMB,
+     :                 RH,WL,TLR,AOPRMS(14)
+
+      DOUBLE PRECISION sla_EQEQX
+
+*  2Pi
+      DOUBLE PRECISION D2PI
+      PARAMETER (D2PI=6.283185307179586476925287D0)
+
+*  Seconds of time to radians
+      DOUBLE PRECISION S2R
+      PARAMETER (S2R=7.272205216643039903848712D-5)
+
+*  Speed of light (AU per day)
+      DOUBLE PRECISION C
+      PARAMETER (C=173.14463331D0)
+
+*  Ratio between solar and sidereal time
+      DOUBLE PRECISION SOLSID
+      PARAMETER (SOLSID=1.00273790935D0)
+
+      DOUBLE PRECISION CPHIM,XT,YT,ZT,XC,YC,ZC,ELONG,PHI,UAU,VAU
+
+
+
+*  Observer's location corrected for polar motion
+      CPHIM = COS(PHIM)
+      XT = COS(ELONGM)*CPHIM
+      YT = SIN(ELONGM)*CPHIM
+      ZT = SIN(PHIM)
+      XC = XT-XP*ZT
+      YC = YT+YP*ZT
+      ZC = XP*XT-YP*YT+ZT
+      IF (XC.EQ.0D0.AND.YC.EQ.0D0) THEN
+         ELONG = 0D0
+      ELSE
+         ELONG = ATAN2(YC,XC)
+      END IF
+      PHI = ATAN2(ZC,SQRT(XC*XC+YC*YC))
+      AOPRMS(1) = PHI
+      AOPRMS(2) = SIN(PHI)
+      AOPRMS(3) = COS(PHI)
+
+*  Magnitude of the diurnal aberration vector
+      CALL sla_GEOC(PHI,HM,UAU,VAU)
+      AOPRMS(4) = D2PI*UAU*SOLSID/C
+
+*  Copy the refraction parameters and compute the A & B constants
+      AOPRMS(5) = HM
+      AOPRMS(6) = TDK
+      AOPRMS(7) = PMB
+      AOPRMS(8) = RH
+      AOPRMS(9) = WL
+      AOPRMS(10) = TLR
+      CALL sla_REFCO(HM,TDK,PMB,RH,WL,PHI,TLR,1D-10,
+     :               AOPRMS(11),AOPRMS(12))
+
+*  Longitude + equation of the equinoxes + sidereal equivalent of DUT
+*  (ignoring change in equation of the equinoxes between UTC and TDB)
+      AOPRMS(13) = ELONG+sla_EQEQX(DATE)+DUT*SOLSID*S2R
+
+*  Sidereal time
+      CALL sla_AOPPAT(DATE,AOPRMS)
+
+      END
diff --git a/src/slalib/aoppat.f b/src/slalib/aoppat.f
new file mode 100644
index 0000000..1342024
--- /dev/null
+++ b/src/slalib/aoppat.f
@@ -0,0 +1,45 @@
+      SUBROUTINE sla_AOPPAT (DATE, AOPRMS)
+*+
+*     - - - - - - -
+*      A O P P A T
+*     - - - - - - -
+*
+*  Recompute the sidereal time in the apparent to observed place
+*  star-independent parameter block.
+*
+*  Given:
+*     DATE   d      UTC date/time (modified Julian Date, JD-2400000.5)
+*                   (see AOPPA source for comments on leap seconds)
+*
+*     AOPRMS d(14)  star-independent apparent-to-observed parameters
+*
+*       (1-12)   not required
+*       (13)     longitude + eqn of equinoxes + sidereal DUT
+*       (14)     not required
+*
+*  Returned:
+*     AOPRMS d(14)  star-independent apparent-to-observed parameters:
+*
+*       (1-13)   not changed
+*       (14)     local apparent sidereal time (radians)
+*
+*  For more information, see sla_AOPPA.
+*
+*  Called:  sla_GMST
+*
+*  P.T.Wallace   Starlink   1 July 1993
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE,AOPRMS(14)
+
+      DOUBLE PRECISION sla_GMST
+
+
+
+      AOPRMS(14) = sla_GMST(DATE)+AOPRMS(13)
+
+      END
diff --git a/src/slalib/aopqk.f b/src/slalib/aopqk.f
new file mode 100644
index 0000000..9f8a45c
--- /dev/null
+++ b/src/slalib/aopqk.f
@@ -0,0 +1,242 @@
+      SUBROUTINE sla_AOPQK (RAP, DAP, AOPRMS, AOB, ZOB, HOB, DOB, ROB)
+*+
+*     - - - - - -
+*      A O P Q K
+*     - - - - - -
+*
+*  Quick apparent to observed place (but see note 8, below, for
+*  remarks about speed).
+*
+*  Given:
+*     RAP    d      geocentric apparent right ascension
+*     DAP    d      geocentric apparent declination
+*     AOPRMS d(14)  star-independent apparent-to-observed parameters:
+*
+*       (1)      geodetic latitude (radians)
+*       (2,3)    sine and cosine of geodetic latitude
+*       (4)      magnitude of diurnal aberration vector
+*       (5)      height (HM)
+*       (6)      ambient temperature (T)
+*       (7)      pressure (P)
+*       (8)      relative humidity (RH)
+*       (9)      wavelength (WL)
+*       (10)     lapse rate (TLR)
+*       (11,12)  refraction constants A and B (radians)
+*       (13)     longitude + eqn of equinoxes + sidereal DUT (radians)
+*       (14)     local apparent sidereal time (radians)
+*
+*  Returned:
+*     AOB    d      observed azimuth (radians: N=0,E=90)
+*     ZOB    d      observed zenith distance (radians)
+*     HOB    d      observed Hour Angle (radians)
+*     DOB    d      observed Declination (radians)
+*     ROB    d      observed Right Ascension (radians)
+*
+*  Notes:
+*
+*   1)  This routine returns zenith distance rather than elevation
+*       in order to reflect the fact that no allowance is made for
+*       depression of the horizon.
+*
+*   2)  The accuracy of the result is limited by the corrections for
+*       refraction.  Providing the meteorological parameters are
+*       known accurately and there are no gross local effects, the
+*       observed RA,Dec predicted by this routine should be within
+*       about 0.1 arcsec for a zenith distance of less than 70 degrees.
+*       Even at a topocentric zenith distance of 90 degrees, the
+*       accuracy in elevation should be better than 1 arcmin;  useful
+*       results are available for a further 3 degrees, beyond which
+*       the slaRefro routine returns a fixed value of the refraction.
+*       The complementary routines slaAop (or slaAopqk) and slaOap
+*       (or slaOapqk) are self-consistent to better than 1 micro-
+*       arcsecond all over the celestial sphere.
+*
+*   3)  It is advisable to take great care with units, as even
+*       unlikely values of the input parameters are accepted and
+*       processed in accordance with the models used.
+*
+*   4)  "Apparent" place means the geocentric apparent right ascension
+*       and declination, which is obtained from a catalogue mean place
+*       by allowing for space motion, parallax, precession, nutation,
+*       annual aberration, and the Sun's gravitational lens effect.  For
+*       star positions in the FK5 system (i.e. J2000), these effects can
+*       be applied by means of the sla_MAP etc routines.  Starting from
+*       other mean place systems, additional transformations will be
+*       needed;  for example, FK4 (i.e. B1950) mean places would first
+*       have to be converted to FK5, which can be done with the
+*       sla_FK425 etc routines.
+*
+*   5)  "Observed" Az,El means the position that would be seen by a
+*       perfect theodolite located at the observer.  This is obtained
+*       from the geocentric apparent RA,Dec by allowing for Earth
+*       orientation and diurnal aberration, rotating from equator
+*       to horizon coordinates, and then adjusting for refraction.
+*       The HA,Dec is obtained by rotating back into equatorial
+*       coordinates, using the geodetic latitude corrected for polar
+*       motion, and is the position that would be seen by a perfect
+*       equatorial located at the observer and with its polar axis
+*       aligned to the Earth's axis of rotation (n.b. not to the
+*       refracted pole).  Finally, the RA is obtained by subtracting
+*       the HA from the local apparent ST.
+*
+*   6)  To predict the required setting of a real telescope, the
+*       observed place produced by this routine would have to be
+*       adjusted for the tilt of the azimuth or polar axis of the
+*       mounting (with appropriate corrections for mount flexures),
+*       for non-perpendicularity between the mounting axes, for the
+*       position of the rotator axis and the pointing axis relative
+*       to it, for tube flexure, for gear and encoder errors, and
+*       finally for encoder zero points.  Some telescopes would, of
+*       course, exhibit other properties which would need to be
+*       accounted for at the appropriate point in the sequence.
+*
+*   7)  The star-independent apparent-to-observed-place parameters
+*       in AOPRMS may be computed by means of the sla_AOPPA routine.
+*       If nothing has changed significantly except the time, the
+*       sla_AOPPAT routine may be used to perform the requisite
+*       partial recomputation of AOPRMS.
+*
+*   8)  At zenith distances beyond about 76 degrees, the need for
+*       special care with the corrections for refraction causes a
+*       marked increase in execution time.  Moreover, the effect
+*       gets worse with increasing zenith distance.  Adroit
+*       programming in the calling application may allow the
+*       problem to be reduced.  Prepare an alternative AOPRMS array,
+*       computed for zero air-pressure;  this will disable the
+*       refraction corrections and cause rapid execution.  Using
+*       this AOPRMS array, a preliminary call to the present routine
+*       will, depending on the application, produce a rough position
+*       which may be enough to establish whether the full, slow
+*       calculation (using the real AOPRMS array) is worthwhile.
+*       For example, there would be no need for the full calculation
+*       if the preliminary call had already established that the
+*       source was well below the elevation limits for a particular
+*       telescope.
+*
+*  9)   The azimuths etc produced by the present routine are with
+*       respect to the celestial pole.  Corrections to the terrestrial
+*       pole can be computed using sla_POLMO.
+*
+*  Called:  sla_DCS2C, sla_REFZ, sla_REFRO, sla_DCC2S, sla_DRANRM
+*
+*  P.T.Wallace   Starlink   22 February 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION RAP,DAP,AOPRMS(14),AOB,ZOB,HOB,DOB,ROB
+
+*  Breakpoint for fast/slow refraction algorithm:
+*  ZD greater than arctan(4), (see sla_REFCO routine)
+*  or vector Z less than cosine(arctan(Z)) = 1/sqrt(17)
+      DOUBLE PRECISION ZBREAK
+      PARAMETER (ZBREAK=0.242535625D0)
+
+      INTEGER I
+
+      DOUBLE PRECISION SPHI,CPHI,ST,V(3),XHD,YHD,ZHD,DIURAB,F,
+     :                 XHDT,YHDT,ZHDT,XAET,YAET,ZAET,AZOBS,
+     :                 ZDT,REFA,REFB,ZDOBS,DZD,DREF,CE,
+     :                 XAEO,YAEO,ZAEO,HMOBS,DCOBS,RAOBS
+
+      DOUBLE PRECISION sla_DRANRM
+
+
+
+*  Sin, cos of latitude
+      SPHI = AOPRMS(2)
+      CPHI = AOPRMS(3)
+
+*  Local apparent sidereal time
+      ST = AOPRMS(14)
+
+*  Apparent RA,Dec to Cartesian -HA,Dec
+      CALL sla_DCS2C(RAP-ST,DAP,V)
+      XHD = V(1)
+      YHD = V(2)
+      ZHD = V(3)
+
+*  Diurnal aberration
+      DIURAB = AOPRMS(4)
+      F = (1D0-DIURAB*YHD)
+      XHDT = F*XHD
+      YHDT = F*(YHD+DIURAB)
+      ZHDT = F*ZHD
+
+*  Cartesian -HA,Dec to Cartesian Az,El (S=0,E=90)
+      XAET = SPHI*XHDT-CPHI*ZHDT
+      YAET = YHDT
+      ZAET = CPHI*XHDT+SPHI*ZHDT
+
+*  Azimuth (N=0,E=90)
+      IF (XAET.EQ.0D0.AND.YAET.EQ.0D0) THEN
+         AZOBS = 0D0
+      ELSE
+         AZOBS = ATAN2(YAET,-XAET)
+      END IF
+
+*  Topocentric zenith distance
+      ZDT = ATAN2(SQRT(XAET*XAET+YAET*YAET),ZAET)
+
+*
+*  Refraction
+*  ----------
+
+*  Fast algorithm using two constant model
+      REFA = AOPRMS(11)
+      REFB = AOPRMS(12)
+      CALL sla_REFZ(ZDT,REFA,REFB,ZDOBS)
+
+*  Large zenith distance?
+      IF (COS(ZDOBS).LT.ZBREAK) THEN
+
+*     Yes: use rigorous algorithm
+
+*     Initialize loop (maximum of 10 iterations)
+         I = 1
+         DZD = 1D1
+         DO WHILE (ABS(DZD).GT.1D-10.AND.I.LE.10)
+
+*        Compute refraction using current estimate of observed ZD
+            CALL sla_REFRO(ZDOBS,AOPRMS(5),AOPRMS(6),AOPRMS(7),
+     :                     AOPRMS(8),AOPRMS(9),AOPRMS(1),
+     :                     AOPRMS(10),1D-8,DREF)
+
+*        Remaining discrepancy
+            DZD = ZDOBS+DREF-ZDT
+
+*        Update the estimate
+            ZDOBS = ZDOBS-DZD
+
+*        Increment the iteration counter
+            I = I+1
+         END DO
+      END IF
+
+*  To Cartesian Az/ZD
+      CE = SIN(ZDOBS)
+      XAEO = -COS(AZOBS)*CE
+      YAEO = SIN(AZOBS)*CE
+      ZAEO = COS(ZDOBS)
+
+*  Cartesian Az/ZD to Cartesian -HA,Dec
+      V(1) = SPHI*XAEO+CPHI*ZAEO
+      V(2) = YAEO
+      V(3) = -CPHI*XAEO+SPHI*ZAEO
+
+*  To spherical -HA,Dec
+      CALL sla_DCC2S(V,HMOBS,DCOBS)
+
+*  Right Ascension
+      RAOBS = sla_DRANRM(ST+HMOBS)
+
+*  Return the results
+      AOB = AZOBS
+      ZOB = ZDOBS
+      HOB = -HMOBS
+      DOB = DCOBS
+      ROB = RAOBS
+
+      END
diff --git a/src/slalib/atmdsp.f b/src/slalib/atmdsp.f
new file mode 100644
index 0000000..62869aa
--- /dev/null
+++ b/src/slalib/atmdsp.f
@@ -0,0 +1,121 @@
+      SUBROUTINE sla_ATMDSP (TDK, PMB, RH, WL1, A1, B1, WL2, A2, B2)
+*+
+*     - - - - - - -
+*      A T M D S P
+*     - - - - - - -
+*
+*  Apply atmospheric-dispersion adjustments to refraction coefficients.
+*
+*  Given:
+*     TDK       d       ambient temperature, degrees K
+*     PMB       d       ambient pressure, millibars
+*     RH        d       ambient relative humidity, 0-1
+*     WL1       d       reference wavelength, micrometre (0.4D0 recommended)
+*     A1        d       refraction coefficient A for wavelength WL1 (radians)
+*     B1        d       refraction coefficient B for wavelength WL1 (radians)
+*     WL2       d       wavelength for which adjusted A,B required
+*
+*  Returned:
+*     A2        d       refraction coefficient A for wavelength WL2 (radians)
+*     B2        d       refraction coefficient B for wavelength WL2 (radians)
+*
+*  Notes:
+*
+*  1  To use this routine, first call sla_REFCO specifying WL1 as the
+*     wavelength.  This yields refraction coefficients A1,B1, correct
+*     for that wavelength.  Subsequently, calls to sla_ATMDSP specifying
+*     different wavelengths will produce new, slightly adjusted
+*     refraction coefficients which apply to the specified wavelength.
+*
+*  2  Most of the atmospheric dispersion happens between 0.7 micrometre
+*     and the UV atmospheric cutoff, and the effect increases strongly
+*     towards the UV end.  For this reason a blue reference wavelength
+*     is recommended, for example 0.4 micrometres.
+*
+*  3  The accuracy, for this set of conditions:
+*
+*        height above sea level    2000 m
+*                      latitude    29 deg
+*                      pressure    793 mB
+*                   temperature    17 degC
+*                      humidity    50%
+*                    lapse rate    0.0065 degC/m
+*          reference wavelength    0.4 micrometre
+*                star elevation    15 deg
+*
+*     is about 2.5 mas RMS between 0.3 and 1.0 micrometres, and stays
+*     within 4 mas for the whole range longward of 0.3 micrometres
+*     (compared with a total dispersion from 0.3 to 20.0 micrometres
+*     of about 11 arcsec).  These errors are typical for ordinary
+*     conditions and the given elevation;  in extreme conditions values
+*     a few times this size may occur, while at higher elevations the
+*     errors become much smaller.
+*
+*  4  If either wavelength exceeds 100 micrometres, the radio case
+*     is assumed and the returned refraction coefficients are the
+*     same as the given ones.
+*
+*  5  The algorithm consists of calculation of the refractivity of the
+*     air at the observer for the two wavelengths, using the methods
+*     of the sla_REFRO routine, and then scaling of the two refraction
+*     coefficients according to classical refraction theory.  This
+*     amounts to scaling the A coefficient in proportion to (n-1) and
+*     the B coefficient almost in the same ratio (see R.M.Green,
+*     "Spherical Astronomy", Cambridge University Press, 1985).
+*
+*  P.T.Wallace   Starlink   6 October 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION TDK,PMB,RH,WL1,A1,B1,WL2,A2,B2
+
+      DOUBLE PRECISION F,TDKOK,PMBOK,RHOK,
+     :                 PSAT,PWO,W1,WLOK,WLSQ,W2,DN1,DN2
+
+
+*  Check for radio wavelengths
+      IF (WL1.GT.100D0.OR.WL2.GT.100D0) THEN
+
+*     Radio: no dispersion
+         A2 = A1
+         B2 = B1
+      ELSE
+
+*     Optical: keep arguments within safe bounds
+         TDKOK = MIN(MAX(TDK,100D0),500D0)
+         PMBOK = MIN(MAX(PMB,0D0),10000D0)
+         RHOK = MIN(MAX(RH,0D0),1D0)
+
+*     Atmosphere parameters at the observer
+         PSAT = 10D0**(-8.7115D0+0.03477D0*TDKOK)
+         PWO = RHOK*PSAT
+         W1 = 11.2684D-6*PWO
+
+*     Refractivity at the observer for first wavelength
+         WLOK = MAX(WL1,0.1D0)
+         WLSQ = WLOK*WLOK
+         W2 = 77.5317D-6+(0.43909D-6+0.00367D-6/WLSQ)/WLSQ
+         DN1 = (W2*PMBOK-W1)/TDKOK
+
+*     Refractivity at the observer for second wavelength
+         WLOK = MAX(WL2,0.1D0)
+         WLSQ = WLOK*WLOK
+         W2 = 77.5317D-6+(0.43909D-6+0.00367D-6/WLSQ)/WLSQ
+         DN2 = (W2*PMBOK-W1)/TDKOK
+
+*     Scale the refraction coefficients (see Green 4.31, p93)
+         IF (DN1.NE.0D0) THEN
+            F = DN2/DN1
+            A2 = A1*F
+            B2 = B1*F
+            IF (DN1.NE.A1) B2=B2*(1D0+DN1*(DN1-DN2)/(2D0*(DN1-A1)))
+         ELSE
+            A2 = A1
+            B2 = B1
+         END IF
+      END IF
+
+      END
diff --git a/src/slalib/atms.f b/src/slalib/atms.f
new file mode 100644
index 0000000..3b991f4
--- /dev/null
+++ b/src/slalib/atms.f
@@ -0,0 +1,40 @@
+      SUBROUTINE sla__ATMS (RT, TT, DNT, GAMAL, R, DN, RDNDR)
+*+
+*     - - - - -
+*      A T M S
+*     - - - - -
+*
+*  Internal routine used by REFRO
+*
+*  Refractive index and derivative with respect to height for the
+*  stratosphere.
+*
+*  Given:
+*    RT      d    height of tropopause from centre of the Earth (metre)
+*    TT      d    temperature at the tropopause (deg K)
+*    DNT     d    refractive index at the tropopause
+*    GAMAL   d    constant of the atmospheric model = G*MD/R
+*    R       d    current distance from the centre of the Earth (metre)
+*
+*  Returned:
+*    DN      d    refractive index at R
+*    RDNDR   d    R * rate the refractive index is changing at R
+*
+*  P.T.Wallace   Starlink   14 July 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION RT,TT,DNT,GAMAL,R,DN,RDNDR
+
+      DOUBLE PRECISION B,W
+
+
+      B = GAMAL/TT
+      W = (DNT-1D0)*EXP(-B*(R-RT))
+      DN = 1D0+W
+      RDNDR = -R*B*W
+
+      END
diff --git a/src/slalib/atmt.f b/src/slalib/atmt.f
new file mode 100644
index 0000000..82d0ecd
--- /dev/null
+++ b/src/slalib/atmt.f
@@ -0,0 +1,54 @@
+      SUBROUTINE sla__ATMT (R0, T0, ALPHA, GAMM2, DELM2,
+     :                      C1, C2, C3, C4, C5, C6, R, T, DN, RDNDR)
+*+
+*     - - - - -
+*      A T M T
+*     - - - - -
+*
+*  Internal routine used by REFRO
+*
+*  Refractive index and derivative with respect to height for the
+*  troposphere.
+*
+*  Given:
+*    R0      d    height of observer from centre of the Earth (metre)
+*    T0      d    temperature at the observer (deg K)
+*    ALPHA   d    alpha          )
+*    GAMM2   d    gamma minus 2  ) see HMNAO paper
+*    DELM2   d    delta minus 2  )
+*    C1      d    useful term  )
+*    C2      d    useful term  )
+*    C3      d    useful term  ) see source
+*    C4      d    useful term  ) of sla_REFRO
+*    C5      d    useful term  )
+*    C6      d    useful term  )
+*    R       d    current distance from the centre of the Earth (metre)
+*
+*  Returned:
+*    T       d    temperature at R (deg K)
+*    DN      d    refractive index at R
+*    RDNDR   d    R * rate the refractive index is changing at R
+*
+*  Note that in the optical case C5 and C6 are zero.
+*
+*  P.T.Wallace   Starlink   30 May 1997
+*
+*  Copyright (C) 1997 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION R0,T0,ALPHA,GAMM2,DELM2,C1,C2,C3,C4,C5,C6,
+     :                 R,T,DN,RDNDR
+
+      DOUBLE PRECISION TT0,TT0GM2,TT0DM2
+
+
+      T = MAX(MIN(T0-ALPHA*(R-R0),320D0),100D0)
+      TT0 = T/T0
+      TT0GM2 = TT0**GAMM2
+      TT0DM2 = TT0**DELM2
+      DN = 1D0+(C1*TT0GM2-(C2-C5/T)*TT0DM2)*TT0
+      RDNDR = R*(-C3*TT0GM2+(C4-C6/TT0)*TT0DM2)
+
+      END
diff --git a/src/slalib/av2m.f b/src/slalib/av2m.f
new file mode 100644
index 0000000..ec1967c
--- /dev/null
+++ b/src/slalib/av2m.f
@@ -0,0 +1,68 @@
+      SUBROUTINE sla_AV2M (AXVEC, RMAT)
+*+
+*     - - - - -
+*      A V 2 M
+*     - - - - -
+*
+*  Form the rotation matrix corresponding to a given axial vector.
+*
+*  (single precision)
+*
+*  A rotation matrix describes a rotation about some arbitrary axis.
+*  The axis is called the Euler axis, and the angle through which the
+*  reference frame rotates is called the Euler angle.  The axial
+*  vector supplied to this routine has the same direction as the
+*  Euler axis, and its magnitude is the Euler angle in radians.
+*
+*  Given:
+*    AXVEC  r(3)     axial vector (radians)
+*
+*  Returned:
+*    RMAT   r(3,3)   rotation matrix
+*
+*  If AXVEC is null, the unit matrix is returned.
+*
+*  The reference frame rotates clockwise as seen looking along
+*  the axial vector from the origin.
+*
+*  P.T.Wallace   Starlink   June 1989
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL AXVEC(3),RMAT(3,3)
+
+      REAL X,Y,Z,PHI,S,C,W
+
+
+
+*  Euler angle - magnitude of axial vector - and functions
+      X = AXVEC(1)
+      Y = AXVEC(2)
+      Z = AXVEC(3)
+      PHI = SQRT(X*X+Y*Y+Z*Z)
+      S = SIN(PHI)
+      C = COS(PHI)
+      W = 1.0-C
+
+*  Euler axis - direction of axial vector (perhaps null)
+      IF (PHI.NE.0.0) THEN
+         X = X/PHI
+         Y = Y/PHI
+         Z = Z/PHI
+      END IF
+
+*  Compute the rotation matrix
+      RMAT(1,1) = X*X*W+C
+      RMAT(1,2) = X*Y*W+Z*S
+      RMAT(1,3) = X*Z*W-Y*S
+      RMAT(2,1) = X*Y*W-Z*S
+      RMAT(2,2) = Y*Y*W+C
+      RMAT(2,3) = Y*Z*W+X*S
+      RMAT(3,1) = X*Z*W+Y*S
+      RMAT(3,2) = Y*Z*W-X*S
+      RMAT(3,3) = Z*Z*W+C
+
+      END
diff --git a/src/slalib/bear.f b/src/slalib/bear.f
new file mode 100644
index 0000000..11238ff
--- /dev/null
+++ b/src/slalib/bear.f
@@ -0,0 +1,42 @@
+      REAL FUNCTION sla_BEAR (A1, B1, A2, B2)
+*+
+*     - - - - -
+*      B E A R
+*     - - - - -
+*
+*  Bearing (position angle) of one point on a sphere relative to another
+*  (single precision)
+*
+*  Given:
+*     A1,B1    r    spherical coordinates of one point
+*     A2,B2    r    spherical coordinates of the other point
+*
+*  (The spherical coordinates are RA,Dec, Long,Lat etc, in radians.)
+*
+*  The result is the bearing (position angle), in radians, of point
+*  A2,B2 as seen from point A1,B1.  It is in the range +/- pi.  If
+*  A2,B2 is due east of A1,B1 the bearing is +pi/2.  Zero is returned
+*  if the two points are coincident.
+*
+*  P.T.Wallace   Starlink   23 March 1991
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL A1,B1,A2,B2
+
+      REAL DA,X,Y
+
+
+      DA=A2-A1
+      Y=SIN(DA)*COS(B2)
+      X=SIN(B2)*COS(B1)-COS(B2)*SIN(B1)*COS(DA)
+      IF (X.NE.0.0.OR.Y.NE.0.0) THEN
+         sla_BEAR=ATAN2(Y,X)
+      ELSE
+         sla_BEAR=0.0
+      END IF
+
+      END
diff --git a/src/slalib/caf2r.f b/src/slalib/caf2r.f
new file mode 100644
index 0000000..5e5b616
--- /dev/null
+++ b/src/slalib/caf2r.f
@@ -0,0 +1,57 @@
+      SUBROUTINE sla_CAF2R (IDEG, IAMIN, ASEC, RAD, J)
+*+
+*     - - - - - -
+*      C A F 2 R
+*     - - - - - -
+*
+*  Convert degrees, arcminutes, arcseconds to radians
+*  (single precision)
+*
+*  Given:
+*     IDEG        int       degrees
+*     IAMIN       int       arcminutes
+*     ASEC        real      arcseconds
+*
+*  Returned:
+*     RAD         real      angle in radians
+*     J           int       status:  0 = OK
+*                                    1 = IDEG outside range 0-359
+*                                    2 = IAMIN outside range 0-59
+*                                    3 = ASEC outside range 0-59.999...
+*
+*  Notes:
+*
+*  1)  The result is computed even if any of the range checks
+*      fail.
+*
+*  2)  The sign must be dealt with outside this routine.
+*
+*  P.T.Wallace   Starlink   23 August 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER IDEG,IAMIN
+      REAL ASEC,RAD
+      INTEGER J
+
+*  Arc seconds to radians
+      REAL AS2R
+      PARAMETER (AS2R=0.484813681109535994E-5)
+
+
+
+*  Preset status
+      J=0
+
+*  Validate arcsec, arcmin, deg
+      IF (ASEC.LT.0.0.OR.ASEC.GE.60.0) J=3
+      IF (IAMIN.LT.0.OR.IAMIN.GT.59) J=2
+      IF (IDEG.LT.0.OR.IDEG.GT.359) J=1
+
+*  Compute angle
+      RAD=AS2R*(60.0*(60.0*REAL(IDEG)+REAL(IAMIN))+ASEC)
+
+      END
diff --git a/src/slalib/caldj.f b/src/slalib/caldj.f
new file mode 100644
index 0000000..c2d9a6d
--- /dev/null
+++ b/src/slalib/caldj.f
@@ -0,0 +1,57 @@
+      SUBROUTINE sla_CALDJ (IY, IM, ID, DJM, J)
+*+
+*     - - - - - -
+*      C A L D J
+*     - - - - - -
+*
+*  Gregorian Calendar to Modified Julian Date
+*
+*  (Includes century default feature:  use sla_CLDJ for years
+*   before 100AD.)
+*
+*  Given:
+*     IY,IM,ID     int    year, month, day in Gregorian calendar
+*
+*  Returned:
+*     DJM          dp     modified Julian Date (JD-2400000.5) for 0 hrs
+*     J            int    status:
+*                           0 = OK
+*                           1 = bad year   (MJD not computed)
+*                           2 = bad month  (MJD not computed)
+*                           3 = bad day    (MJD computed)
+*
+*  Acceptable years are 00-49, interpreted as 2000-2049,
+*                       50-99,     "       "  1950-1999,
+*                       100 upwards, interpreted literally.
+*
+*  Called:  sla_CLDJ
+*
+*  P.T.Wallace   Starlink   November 1985
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER IY,IM,ID
+      DOUBLE PRECISION DJM
+      INTEGER J
+
+      INTEGER NY
+
+
+
+
+*  Default century if appropriate
+      IF (IY.GE.0.AND.IY.LE.49) THEN
+         NY=IY+2000
+      ELSE IF (IY.GE.50.AND.IY.LE.99) THEN
+         NY=IY+1900
+      ELSE
+         NY=IY
+      END IF
+
+*  Modified Julian Date
+      CALL sla_CLDJ(NY,IM,ID,DJM,J)
+
+      END
diff --git a/src/slalib/calyd.f b/src/slalib/calyd.f
new file mode 100644
index 0000000..240a887
--- /dev/null
+++ b/src/slalib/calyd.f
@@ -0,0 +1,65 @@
+      SUBROUTINE sla_CALYD (IY, IM, ID, NY, ND, J)
+*+
+*     - - - - - -
+*      C A L Y D
+*     - - - - - -
+*
+*  Gregorian calendar date to year and day in year (in a Julian
+*  calendar aligned to the 20th/21st century Gregorian calendar).
+*
+*  (Includes century default feature:  use sla_CLYD for years
+*   before 100AD.)
+*
+*  Given:
+*     IY,IM,ID   int    year, month, day in Gregorian calendar
+*                       (year may optionally omit the century)
+*  Returned:
+*     NY         int    year (re-aligned Julian calendar)
+*     ND         int    day in year (1 = January 1st)
+*     J          int    status:
+*                         0 = OK
+*                         1 = bad year (before -4711)
+*                         2 = bad month
+*                         3 = bad day (but conversion performed)
+*
+*  Notes:
+*
+*  1  This routine exists to support the low-precision routines
+*     sla_EARTH, sla_MOON and sla_ECOR.
+*
+*  2  Between 1900 March 1 and 2100 February 28 it returns answers
+*     which are consistent with the ordinary Gregorian calendar.
+*     Outside this range there will be a discrepancy which increases
+*     by one day for every non-leap century year.
+*
+*  3  Years in the range 50-99 are interpreted as 1950-1999, and
+*     years in the range 00-49 are interpreted as 2000-2049.
+*
+*  Called:  sla_CLYD
+*
+*  P.T.Wallace   Starlink   23 November 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER IY,IM,ID,NY,ND,J
+
+      INTEGER I
+
+
+
+*  Default century if appropriate
+      IF (IY.GE.0.AND.IY.LE.49) THEN
+         I=IY+2000
+      ELSE IF (IY.GE.50.AND.IY.LE.99) THEN
+         I=IY+1900
+      ELSE
+         I=IY
+      END IF
+
+*  Perform the conversion
+      CALL sla_CLYD(I,IM,ID,NY,ND,J)
+
+      END
diff --git a/src/slalib/cc2s.f b/src/slalib/cc2s.f
new file mode 100644
index 0000000..2e24b9d
--- /dev/null
+++ b/src/slalib/cc2s.f
@@ -0,0 +1,53 @@
+      SUBROUTINE sla_CC2S (V, A, B)
+*+
+*     - - - - -
+*      C C 2 S
+*     - - - - -
+*
+*  Direction cosines to spherical coordinates (single precision)
+*
+*  Given:
+*     V     r(3)   x,y,z vector
+*
+*  Returned:
+*     A,B   r      spherical coordinates in radians
+*
+*  The spherical coordinates are longitude (+ve anticlockwise
+*  looking from the +ve latitude pole) and latitude.  The
+*  Cartesian coordinates are right handed, with the x axis
+*  at zero longitude and latitude, and the z axis at the
+*  +ve latitude pole.
+*
+*  If V is null, zero A and B are returned.
+*  At either pole, zero A is returned.
+*
+*  P.T.Wallace   Starlink   July 1989
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL V(3),A,B
+
+      REAL X,Y,Z,R
+
+
+      X = V(1)
+      Y = V(2)
+      Z = V(3)
+      R = SQRT(X*X+Y*Y)
+
+      IF (R.EQ.0.0) THEN
+         A = 0.0
+      ELSE
+         A = ATAN2(Y,X)
+      END IF
+
+      IF (Z.EQ.0.0) THEN
+         B = 0.0
+      ELSE
+         B = ATAN2(Z,R)
+      END IF
+
+      END
diff --git a/src/slalib/cc62s.f b/src/slalib/cc62s.f
new file mode 100644
index 0000000..c2ccd8d
--- /dev/null
+++ b/src/slalib/cc62s.f
@@ -0,0 +1,82 @@
+      SUBROUTINE sla_CC62S (V, A, B, R, AD, BD, RD)
+*+
+*     - - - - - -
+*      C C 6 2 S
+*     - - - - - -
+*
+*  Conversion of position & velocity in Cartesian coordinates
+*  to spherical coordinates (single precision)
+*
+*  Given:
+*     V      r(6)   Cartesian position & velocity vector
+*
+*  Returned:
+*     A      r      longitude (radians)
+*     B      r      latitude (radians)
+*     R      r      radial coordinate
+*     AD     r      longitude derivative (radians per unit time)
+*     BD     r      latitude derivative (radians per unit time)
+*     RD     r      radial derivative
+*
+*  P.T.Wallace   Starlink   28 April 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL V(6),A,B,R,AD,BD,RD
+
+      REAL X,Y,Z,XD,YD,ZD,RXY2,RXY,R2,XYP
+
+
+
+*  Components of position/velocity vector
+      X=V(1)
+      Y=V(2)
+      Z=V(3)
+      XD=V(4)
+      YD=V(5)
+      ZD=V(6)
+
+*  Component of R in XY plane squared
+      RXY2=X*X+Y*Y
+
+*  Modulus squared
+      R2=RXY2+Z*Z
+
+*  Protection against null vector
+      IF (R2.EQ.0.0) THEN
+         X=XD
+         Y=YD
+         Z=ZD
+         RXY2=X*X+Y*Y
+         R2=RXY2+Z*Z
+      END IF
+
+*  Position and velocity in spherical coordinates
+      RXY=SQRT(RXY2)
+      XYP=X*XD+Y*YD
+      IF (RXY2.NE.0.0) THEN
+         A=ATAN2(Y,X)
+         B=ATAN2(Z,RXY)
+         AD=(X*YD-Y*XD)/RXY2
+         BD=(ZD*RXY2-Z*XYP)/(R2*RXY)
+      ELSE
+         A=0.0
+         IF (Z.NE.0.0) THEN
+            B=ATAN2(Z,RXY)
+         ELSE
+            B=0.0
+         END IF
+         AD=0.0
+         BD=0.0
+      END IF
+      R=SQRT(R2)
+      IF (R.NE.0.0) THEN
+         RD=(XYP+Z*ZD)/R
+      ELSE
+         RD=0.0
+      END IF
+
+      END
diff --git a/src/slalib/cd2tf.f b/src/slalib/cd2tf.f
new file mode 100644
index 0000000..abd26ef
--- /dev/null
+++ b/src/slalib/cd2tf.f
@@ -0,0 +1,55 @@
+      SUBROUTINE sla_CD2TF (NDP, DAYS, SIGN, IHMSF)
+*+
+*     - - - - - -
+*      C D 2 T F
+*     - - - - - -
+*
+*  Convert an interval in days into hours, minutes, seconds
+*
+*  (single precision)
+*
+*  Given:
+*     NDP       int      number of decimal places of seconds
+*     DAYS      real     interval in days
+*
+*  Returned:
+*     SIGN      char     '+' or '-'
+*     IHMSF     int(4)   hours, minutes, seconds, fraction
+*
+*  Notes:
+*
+*     1)  NDP less than zero is interpreted as zero.
+*
+*     2)  The largest useful value for NDP is determined by the size of
+*         DAYS, the format of REAL floating-point numbers on the target
+*         machine, and the risk of overflowing IHMSF(4).  For example,
+*         on the VAX, for DAYS up to 1.0, the available floating-point
+*         precision corresponds roughly to NDP=3.  This is well below
+*         the ultimate limit of NDP=9 set by the capacity of the 32-bit
+*         integer IHMSF(4).
+*
+*     3)  The absolute value of DAYS may exceed 1.0.  In cases where it
+*         does not, it is up to the caller to test for and handle the
+*         case where DAYS is very nearly 1.0 and rounds up to 24 hours,
+*         by testing for IHMSF(1)=24 and setting IHMSF(1-4) to zero.
+*
+*  Called:  sla_DD2TF
+*
+*  P.T.Wallace   Starlink   12 December 1993
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER NDP
+      REAL DAYS
+      CHARACTER SIGN*(*)
+      INTEGER IHMSF(4)
+
+
+
+*  Call double precision version
+      CALL sla_DD2TF(NDP,DBLE(DAYS),SIGN,IHMSF)
+
+      END
diff --git a/src/slalib/cldj.f b/src/slalib/cldj.f
new file mode 100644
index 0000000..0536259
--- /dev/null
+++ b/src/slalib/cldj.f
@@ -0,0 +1,78 @@
+      SUBROUTINE sla_CLDJ (IY, IM, ID, DJM, J)
+*+
+*     - - - - -
+*      C L D J
+*     - - - - -
+*
+*  Gregorian Calendar to Modified Julian Date
+*
+*  Given:
+*     IY,IM,ID     int    year, month, day in Gregorian calendar
+*
+*  Returned:
+*     DJM          dp     modified Julian Date (JD-2400000.5) for 0 hrs
+*     J            int    status:
+*                           0 = OK
+*                           1 = bad year   (MJD not computed)
+*                           2 = bad month  (MJD not computed)
+*                           3 = bad day    (MJD computed)
+*
+*  The year must be -4699 (i.e. 4700BC) or later.
+*
+*  The algorithm is derived from that of Hatcher 1984
+*  (QJRAS 25, 53-55).
+*
+*  P.T.Wallace   Starlink   11 March 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER IY,IM,ID
+      DOUBLE PRECISION DJM
+      INTEGER J
+
+*  Month lengths in days
+      INTEGER MTAB(12)
+      DATA MTAB / 31,28,31,30,31,30,31,31,30,31,30,31 /
+
+
+
+*  Preset status
+      J=0
+
+*  Validate year
+      IF (IY.LT.-4699) THEN
+         J=1
+      ELSE
+
+*     Validate month
+         IF (IM.GE.1.AND.IM.LE.12) THEN
+
+*        Allow for leap year
+            IF (MOD(IY,4).EQ.0) THEN
+               MTAB(2)=29
+            ELSE
+               MTAB(2)=28
+            END IF
+            IF (MOD(IY,100).EQ.0.AND.MOD(IY,400).NE.0)
+     :         MTAB(2)=28
+
+*        Validate day
+            IF (ID.LT.1.OR.ID.GT.MTAB(IM)) J=3
+
+*        Modified Julian Date
+            DJM=DBLE((1461*(IY-(12-IM)/10+4712))/4
+     :               +(306*MOD(IM+9,12)+5)/10
+     :               -(3*((IY-(12-IM)/10+4900)/100))/4
+     :               +ID-2399904)
+
+*        Bad month
+         ELSE
+            J=2
+         END IF
+
+      END IF
+
+      END
diff --git a/src/slalib/clyd.f b/src/slalib/clyd.f
new file mode 100644
index 0000000..ee4fb92
--- /dev/null
+++ b/src/slalib/clyd.f
@@ -0,0 +1,101 @@
+      SUBROUTINE sla_CLYD (IY, IM, ID, NY, ND, JSTAT)
+*+
+*     - - - - -
+*      C L Y D
+*     - - - - -
+*
+*  Gregorian calendar to year and day in year (in a Julian calendar
+*  aligned to the 20th/21st century Gregorian calendar).
+*
+*  Given:
+*     IY,IM,ID   i    year, month, day in Gregorian calendar
+*
+*  Returned:
+*     NY         i    year (re-aligned Julian calendar)
+*     ND         i    day in year (1 = January 1st)
+*     JSTAT      i    status:
+*                       0 = OK
+*                       1 = bad year (before -4711)
+*                       2 = bad month
+*                       3 = bad day (but conversion performed)
+*
+*  Notes:
+*
+*  1  This routine exists to support the low-precision routines
+*     sla_EARTH, sla_MOON and sla_ECOR.
+*
+*  2  Between 1900 March 1 and 2100 February 28 it returns answers
+*     which are consistent with the ordinary Gregorian calendar.
+*     Outside this range there will be a discrepancy which increases
+*     by one day for every non-leap century year.
+*
+*  3  The essence of the algorithm is first to express the Gregorian
+*     date as a Julian Day Number and then to convert this back to
+*     a Julian calendar date, with day-in-year instead of month and
+*     day.  See 12.92-1 and 12.95-1 in the reference.
+*
+*  Reference:  Explanatory Supplement to the Astronomical Almanac,
+*              ed P.K.Seidelmann, University Science Books (1992),
+*              p604-606.
+*
+*  P.T.Wallace   Starlink   26 November 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER IY,IM,ID,NY,ND,JSTAT
+
+      INTEGER I,J,K,L,N
+
+*  Month lengths in days
+      INTEGER MTAB(12)
+      DATA MTAB/31,28,31,30,31,30,31,31,30,31,30,31/
+
+
+
+*  Preset status
+      JSTAT=0
+
+*  Validate year
+      IF (IY.GE.-4711) THEN
+
+*     Validate month
+         IF (IM.GE.1.AND.IM.LE.12) THEN
+
+*        Allow for (Gregorian) leap year
+            IF (MOD(IY,4).EQ.0.AND.
+     :         (MOD(IY,100).NE.0.OR.MOD(IY,400).EQ.0)) THEN
+               MTAB(2)=29
+            ELSE
+               MTAB(2)=28
+            END IF
+
+*        Validate day
+            IF (ID.LT.1.OR.ID.GT.MTAB(IM)) JSTAT=3
+
+*        Perform the conversion
+            I=(14-IM)/12
+            K=IY-I
+            J=(1461*(K+4800))/4+(367*(IM-2+12*I))/12
+     :        -(3*((K+4900)/100))/4+ID-30660
+            K=(J-1)/1461
+            L=J-1461*K
+            N=(L-1)/365-L/1461
+            J=((80*(L-365*N+30))/2447)/11
+            I=N+J
+            ND=59+L-365*I+((4-N)/4)*(1-J)
+            NY=4*K+I-4716
+
+*        Bad month
+         ELSE
+            JSTAT=2
+         END IF
+      ELSE
+
+*     Bad year
+         JSTAT=1
+      END IF
+
+      END
diff --git a/src/slalib/combn.f b/src/slalib/combn.f
new file mode 100644
index 0000000..9e2354d
--- /dev/null
+++ b/src/slalib/combn.f
@@ -0,0 +1,142 @@
+      SUBROUTINE sla_COMBN ( NSEL, NCAND, LIST, J )
+*+
+*     - - - - - -
+*      C O M B N
+*     - - - - - -
+*
+*  Generate the next combination, a subset of a specified size chosen
+*  from a specified number of items.
+*
+*  Given:
+*     NSEL     i        number of items (subset size)
+*     NCAND    i        number of candidates (set size)
+*
+*  Given and returned:
+*     LIST     i(NSEL)  latest combination, LIST(1)=0 to initialize
+*
+*  Returned:
+*     J        i        status: -1 = illegal NSEL or NCAND
+*                                0 = OK
+*                               +1 = no more combinations available
+*
+*  Notes:
+*
+*  1) NSEL and NCAND must both be at least 1, and NSEL must be less
+*     than or equal to NCAND.
+*
+*  2) This routine returns, in the LIST array, a subset of NSEL integers
+*     chosen from the range 1 to NCAND inclusive, in ascending order.
+*     Before calling the routine for the first time, the caller must set
+*     the first element of the LIST array to zero (any value less than 1
+*     will do) to cause initialization.
+*
+*  2) The first combination to be generated is:
+*
+*        LIST(1)=1, LIST(2)=2, ..., LIST(NSEL)=NSEL
+*
+*     This is also the combination returned for the "finished" (J=1)
+*     case.
+*
+*     The final permutation to be generated is:
+*
+*        LIST(1)=NCAND, LIST(2)=NCAND-1, ..., LIST(NSEL)=NCAND-NSEL+1
+*
+*  3) If the "finished" (J=1) status is ignored, the routine
+*     continues to deliver combinations, the pattern repeating
+*     every NCAND!/(NSEL!*(NCAND-NSEL)!) calls.
+*
+*  4) The algorithm is by R.F.Warren-Smith (private communication).
+*
+*  P.T.Wallace   Starlink   25 August 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER NSEL,NCAND,LIST(NSEL),J
+
+      INTEGER I,LISTI,NMAX,M
+      LOGICAL MORE
+
+
+*  Validate, and set status.
+      IF (NSEL.LT.1.OR.NCAND.LT.1.OR.NSEL.GT.NCAND) THEN
+         J = -1
+         GO TO 9999
+      ELSE
+         J = 0
+      END IF
+
+*  Just starting?
+      IF (LIST(1).LT.1) THEN
+
+*     Yes: return 1,2,3...
+         DO I=1,NSEL
+            LIST(I) = I
+         END DO
+
+      ELSE
+
+*     No: find the first selection that we can increment.
+
+*     Start with the first list item.
+         I = 1
+
+*     Loop.
+         MORE = .TRUE.
+         DO WHILE (MORE)
+
+*        Current list item.
+            LISTI = LIST(I)
+
+*        Is this the final list item?
+            IF (I.GE.NSEL) THEN
+
+*           Yes:  comparison value is number of candidates plus one.
+               NMAX = NCAND+1
+            ELSE
+
+*           No:  comparison value is next list item.
+               NMAX = LIST(I+1)
+            END IF
+
+*        Can the current item be incremented?
+            IF (NMAX-LISTI.GT.1) THEN
+
+*           Yes:  increment it.
+               LIST(I) = LISTI+1
+
+*           Reinitialize the preceding items.
+               DO M=1,I-1
+                  LIST(M) = M
+               END DO
+
+*           Break.
+               MORE = .FALSE.
+            ELSE
+
+*           Can't increment the current item:  is it the final one?
+               IF (I.GE.NSEL) THEN
+
+*              Yes:  set the status.
+                  J = 1
+
+*              Restart the sequence.
+                  DO I=1,NSEL
+                     LIST(I) = I
+                  END DO
+
+*              Break.
+                  MORE = .FALSE.
+               ELSE
+
+*              No:  next list item.
+                  I = I+1
+               END IF
+            END IF
+         END DO
+      END IF
+ 9999 CONTINUE
+
+      END
diff --git a/src/slalib/cr2af.f b/src/slalib/cr2af.f
new file mode 100644
index 0000000..74afa0f
--- /dev/null
+++ b/src/slalib/cr2af.f
@@ -0,0 +1,58 @@
+      SUBROUTINE sla_CR2AF (NDP, ANGLE, SIGN, IDMSF)
+*+
+*     - - - - - -
+*      C R 2 A F
+*     - - - - - -
+*
+*  Convert an angle in radians into degrees, arcminutes, arcseconds
+*  (single precision)
+*
+*  Given:
+*     NDP       int      number of decimal places of arcseconds
+*     ANGLE     real     angle in radians
+*
+*  Returned:
+*     SIGN      char     '+' or '-'
+*     IDMSF     int(4)   degrees, arcminutes, arcseconds, fraction
+*
+*  Notes:
+*
+*     1)  NDP less than zero is interpreted as zero.
+*
+*     2)  The largest useful value for NDP is determined by the size of
+*         ANGLE, the format of REAL floating-point numbers on the target
+*         machine, and the risk of overflowing IDMSF(4).  For example,
+*         on the VAX, for ANGLE up to 2pi, the available floating-point
+*         precision corresponds roughly to NDP=3.  This is well below
+*         the ultimate limit of NDP=9 set by the capacity of the 32-bit
+*         integer IHMSF(4).
+*
+*     3)  The absolute value of ANGLE may exceed 2pi.  In cases where it
+*         does not, it is up to the caller to test for and handle the
+*         case where ANGLE is very nearly 2pi and rounds up to 360 deg,
+*         by testing for IDMSF(1)=360 and setting IDMSF(1-4) to zero.
+*
+*  Called:  sla_CD2TF
+*
+*  P.T.Wallace   Starlink   18 March 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER NDP
+      REAL ANGLE
+      CHARACTER SIGN*(*)
+      INTEGER IDMSF(4)
+
+*  Hours to degrees * radians to turns
+      REAL F
+      PARAMETER (F=15.0/6.283185307179586476925287)
+
+
+
+*  Scale then use days to h,m,s routine
+      CALL sla_CD2TF(NDP,ANGLE*F,SIGN,IDMSF)
+
+      END
diff --git a/src/slalib/cr2tf.f b/src/slalib/cr2tf.f
new file mode 100644
index 0000000..3e9214b
--- /dev/null
+++ b/src/slalib/cr2tf.f
@@ -0,0 +1,58 @@
+      SUBROUTINE sla_CR2TF (NDP, ANGLE, SIGN, IHMSF)
+*+
+*     - - - - - -
+*      C R 2 T F
+*     - - - - - -
+*
+*  Convert an angle in radians into hours, minutes, seconds
+*  (single precision)
+*
+*  Given:
+*     NDP       int      number of decimal places of seconds
+*     ANGLE     real     angle in radians
+*
+*  Returned:
+*     SIGN      char     '+' or '-'
+*     IHMSF     int(4)   hours, minutes, seconds, fraction
+*
+*  Notes:
+*
+*  1)  NDP less than zero is interpreted as zero.
+*
+*  2)  The largest useful value for NDP is determined by the size of
+*      ANGLE, the format of REAL floating-point numbers on the target
+*      machine, and the risk of overflowing IHMSF(4).  For example,
+*      on the VAX, for ANGLE up to 2pi, the available floating-point
+*      precision corresponds roughly to NDP=3.  This is well below
+*      the ultimate limit of NDP=9 set by the capacity of the 32-bit
+*      integer IHMSF(4).
+*
+*  3)  The absolute value of ANGLE may exceed 2pi.  In cases where it
+*      does not, it is up to the caller to test for and handle the
+*      case where ANGLE is very nearly 2pi and rounds up to 24 hours,
+*      by testing for IHMSF(1)=24 and setting IHMSF(1-4) to zero.
+*
+*  Called:  sla_CD2TF
+*
+*  P.T.Wallace   Starlink   18 March 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER NDP
+      REAL ANGLE
+      CHARACTER SIGN*(*)
+      INTEGER IHMSF(4)
+
+*  Turns to radians
+      REAL T2R
+      PARAMETER (T2R=6.283185307179586476925287)
+
+
+
+*  Scale then use days to h,m,s routine
+      CALL sla_CD2TF(NDP,ANGLE/T2R,SIGN,IHMSF)
+
+      END
diff --git a/src/slalib/create.com b/src/slalib/create.com
new file mode 100755
index 0000000..161584c
--- /dev/null
+++ b/src/slalib/create.com
@@ -0,0 +1,140 @@
+$!
+$!  - - - - - - -
+$!   C R E A T E
+$!  - - - - - - -
+$!
+$!  Create SLALIB releases from source - VAX and Unix
+$!
+$!  The command is @CREATE
+$!
+$!  The default directory must be the one containing the source
+$!  modules.  The VAX release will be inserted into [.RELEASE]
+$!  and the Unix release into [.UNIX].  Prior contents of any
+$!  pre-existing [.RELEASE] and [.UNIX] directories will be lost.
+$!
+$!  P.T.Wallace   Starlink   22 January 1998
+$!
+$!----------------------------------------------------------------------
+$!
+$!  VMS
+$!
+$!  Create an empty [.RELEASE] directory
+$     IF F$SEARCH("RELEASE.DIR").EQS."" THEN $CREATE/DIR [.RELEASE]
+$     IF F$SEARCH("[.RELEASE]*.*").NES."" THEN $DELETE [.RELEASE]*.*;*
+$!
+$!  Copy the document and news item
+$     COPY SUN67.TEX [.RELEASE]*.*
+$     COPY SLA.NEWS [.RELEASE]*.*
+$!
+$!  Initialise the text and object libraries
+$     LIBR/CREATE/TEXT [.RELEASE]SLALIB.TLB
+$     PURGE [.RELEASE]SLALIB.TLB
+$     LIBR/CREATE [.RELEASE]SLALIB.OLB
+$     PURGE [.RELEASE]SLALIB.OLB
+$!
+$!  Update the libraries
+$UPOBJ:
+$      FILE = F$SEARCH("*.FOR")
+$      IF FILE .EQS. "" THEN GOTO UPOBJX
+$      NAME = F$PARSE(FILE,,,"NAME")
+$      @PUT 'NAME'
+$     GOTO UPOBJ
+$UPOBJX:
+$     @PUT GRESID.VAX
+$     @PUT RANDOM.VAX
+$     @PUT WAIT.VAX
+$!
+$!  Compress
+$     LIBR/COMP/DATA=REDUCE/TEXT/OUTPUT=[.RELEASE]SLALIB.TLB -
+                                        [.RELEASE]SLALIB.TLB
+$     PURGE [.RELEASE]SLALIB.TLB
+$     LIBR/COMP/OUTPUT=[.RELEASE]SLALIB.OLB [.RELEASE]SLALIB.OLB
+$     PURGE [.RELEASE]SLALIB.OLB
+$!
+$!----------------------------------------------------------------------
+$!
+$!  UNIX
+$!
+$!  Create an empty [.UNIX] directory
+$     IF F$SEARCH("UNIX.DIR").EQS."" THEN $CREATE/DIR [.UNIX]
+$     IF F$SEARCH("[.UNIX]*.*").NES."" THEN $DELETE [.UNIX]*.*;*
+$!
+$!  Copy the platform-independent Fortran source
+$FLOOP:
+$     FILE = F$SEARCH("*.FOR")
+$     IF FILE.EQS."" THEN $GOTO FLOOPX
+$     FILE=F$EXTRACT(0,F$LOCATE(";",FILE),FILE)
+$     NAME = F$PARSE(FILE,,,"NAME")
+$     IF NAME .EQS. "GRESID" THEN $GOTO FLOOP
+$     IF NAME .EQS. "RANDOM" THEN $GOTO FLOOP
+$     IF NAME .EQS. "WAIT" THEN $GOTO FLOOP
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT 'FILE' [.UNIX]'NAME'.F
+$     GOTO FLOOP
+$FLOOPX:
+$!
+$!  Copy the platform specific source code
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT GRESID.VAX [.UNIX]GRESID.VAX
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT GRESID.PCM [.UNIX]GRESID.PCM
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT GRESID.CNVX [.UNIX]GRESID.CNVX
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT GRESID.MIPS [.UNIX]GRESID.MIPS
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT GRESID.SUN4 [.UNIX]GRESID.SUN4
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT GRESID.LNX [.UNIX]GRESID.LNX
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT GRESID.DEC [.UNIX]GRESID.DEC
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RANDOM.VAX [.UNIX]RANDOM.VAX
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RANDOM.PCM [.UNIX]RANDOM.PCM
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RANDOM.CNVX [.UNIX]RANDOM.CNVX
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RANDOM.MIPS [.UNIX]RANDOM.MIPS
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RANDOM.SUN4 [.UNIX]RANDOM.SUN4
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RANDOM.LNX [.UNIX]RANDOM.LNX
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RANDOM.DEC [.UNIX]RANDOM.DEC
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RTL_RANDOM.C [.UNIX]RTL_RANDOM.C
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT WAIT.VAX [.UNIX]WAIT.VAX
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT WAIT.PCM [.UNIX]WAIT.PCM
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT WAIT.CNVX [.UNIX]WAIT.CNVX
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT WAIT.MIPS [.UNIX]WAIT.MIPS
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT WAIT.SUN4 [.UNIX]WAIT.SUN4
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT WAIT.LNX [.UNIX]WAIT.LNX
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT WAIT.DEC [.UNIX]WAIT.DEC
+$!
+$!  Copy the miscellaneous files
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT MK [.UNIX]MK
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT MAKEFILE [.UNIX]MAKEFILE
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT SLA_LINK [.UNIX]SLA_LINK
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT SLA_LINK_ADAM [.UNIX]SLA_LINK_ADAM
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT SUN67.TEX [.UNIX]SUN67.TEX
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT READ.ME [.UNIX]READ.ME
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT SLA.NEWS [.UNIX]SLA.NEWS
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT PC.BAT [.UNIX]PC.BAT
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT REP.BAT [.UNIX]REP.BAT
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT CREATE.COM [.UNIX]CREATE.COM
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT PUT.COM [.UNIX]PUT.COM
+$     CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT VAX_TO_UNIX.USH [.UNIX]VAX_TO_UNIX.
+$!                                                   ^^^
+$!                                    The USH suffix prevents accidental
+$!                                    execution of the script when the
+$!                                    working directory is .RELEASE instead
+$!                                    of .UNIX
+$!
+$!  Explain what to do next
+$     COPY SYS$INPUT SYS$OUTPUT
+
+   To complete building the Unix release, please do the following:
+
+   1) Login to the Unix machine.
+
+   2) Locate the NFS-served directory corresponding to subdirectory
+      [.UNIX] of the current default directory.
+
+   3) For efficiency, and to avoid possible problems involving case
+      sensitivity in filenames, copy all the files in that directory
+      to a scratch directory on the Unix machine.
+
+   4) Type "vax_to_unix" to archive all the source files.
+
+$!
+$!----------------------------------------------------------------------
+$!
+$!  Wrap up
+$     PURGE [...]
+$     SET FILE/TRUNCATE [...]*.*/EXCLUDE=CREATE.COM
+$     EXIT
diff --git a/src/slalib/cs2c.f b/src/slalib/cs2c.f
new file mode 100644
index 0000000..7d516c8
--- /dev/null
+++ b/src/slalib/cs2c.f
@@ -0,0 +1,41 @@
+      SUBROUTINE sla_CS2C (A, B, V)
+*+
+*     - - - - -
+*      C S 2 C
+*     - - - - -
+*
+*  Spherical coordinates to direction cosines (single precision)
+*
+*  Given:
+*     A,B      real      spherical coordinates in radians
+*                        (RA,Dec), (Long,Lat) etc
+*
+*  Returned:
+*     V        real(3)   x,y,z unit vector
+*
+*  The spherical coordinates are longitude (+ve anticlockwise
+*  looking from the +ve latitude pole) and latitude.  The
+*  Cartesian coordinates are right handed, with the x axis
+*  at zero longitude and latitude, and the z axis at the
+*  +ve latitude pole.
+*
+*  P.T.Wallace   Starlink   October 1984
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL A,B,V(3)
+
+      REAL COSB
+
+
+
+      COSB=COS(B)
+
+      V(1)=COS(A)*COSB
+      V(2)=SIN(A)*COSB
+      V(3)=SIN(B)
+
+      END
diff --git a/src/slalib/cs2c6.f b/src/slalib/cs2c6.f
new file mode 100644
index 0000000..e0b9e06
--- /dev/null
+++ b/src/slalib/cs2c6.f
@@ -0,0 +1,56 @@
+      SUBROUTINE sla_CS2C6 (A, B, R, AD, BD, RD, V)
+*+
+*     - - - - - -
+*      C S 2 C 6
+*     - - - - - -
+*
+*  Conversion of position & velocity in spherical coordinates
+*  to Cartesian coordinates (single precision)
+*
+*  Given:
+*     A     r      longitude (radians)
+*     B     r      latitude (radians)
+*     R     r      radial coordinate
+*     AD    r      longitude derivative (radians per unit time)
+*     BD    r      latitude derivative (radians per unit time)
+*     RD    r      radial derivative
+*
+*  Returned:
+*     V     r(6)   Cartesian position & velocity vector
+*
+*  P.T.Wallace   Starlink   November 1984
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL A,B,R,AD,BD,RD,V(6)
+
+      REAL SA,CA,SB,CB,RCB,X,Y,RBD,CBRD,W
+
+
+
+*  Useful functions
+      SA=SIN(A)
+      CA=COS(A)
+      SB=SIN(B)
+      CB=COS(B)
+      RCB=R*CB
+      X=RCB*CA
+      Y=RCB*SA
+      RBD=R*BD
+      CBRD=CB*RD
+      W=RBD*SB-CB*RD
+
+*  Position
+      V(1)=X
+      V(2)=Y
+      V(3)=R*SB
+
+*  Velocity
+      V(4)=-Y*AD-W*CA
+      V(5)=X*AD-W*SA
+      V(6)=RBD*CB+SB*RD
+
+      END
diff --git a/src/slalib/ctf2d.f b/src/slalib/ctf2d.f
new file mode 100644
index 0000000..9280616
--- /dev/null
+++ b/src/slalib/ctf2d.f
@@ -0,0 +1,56 @@
+      SUBROUTINE sla_CTF2D (IHOUR, IMIN, SEC, DAYS, J)
+*+
+*     - - - - - -
+*      C T F 2 D
+*     - - - - - -
+*
+*  Convert hours, minutes, seconds to days (single precision)
+*
+*  Given:
+*     IHOUR       int       hours
+*     IMIN        int       minutes
+*     SEC         real      seconds
+*
+*  Returned:
+*     DAYS        real      interval in days
+*     J           int       status:  0 = OK
+*                                    1 = IHOUR outside range 0-23
+*                                    2 = IMIN outside range 0-59
+*                                    3 = SEC outside range 0-59.999...
+*
+*  Notes:
+*
+*  1)  The result is computed even if any of the range checks
+*      fail.
+*
+*  2)  The sign must be dealt with outside this routine.
+*
+*  P.T.Wallace   Starlink   November 1984
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER IHOUR,IMIN
+      REAL SEC,DAYS
+      INTEGER J
+
+*  Seconds per day
+      REAL D2S
+      PARAMETER (D2S=86400.0)
+
+
+
+*  Preset status
+      J=0
+
+*  Validate sec, min, hour
+      IF (SEC.LT.0.0.OR.SEC.GE.60.0) J=3
+      IF (IMIN.LT.0.OR.IMIN.GT.59) J=2
+      IF (IHOUR.LT.0.OR.IHOUR.GT.23) J=1
+
+*  Compute interval
+      DAYS=(60.0*(60.0*REAL(IHOUR)+REAL(IMIN))+SEC)/D2S
+
+      END
diff --git a/src/slalib/ctf2r.f b/src/slalib/ctf2r.f
new file mode 100644
index 0000000..585d587
--- /dev/null
+++ b/src/slalib/ctf2r.f
@@ -0,0 +1,54 @@
+      SUBROUTINE sla_CTF2R (IHOUR, IMIN, SEC, RAD, J)
+*+
+*     - - - - - -
+*      C T F 2 R
+*     - - - - - -
+*
+*  Convert hours, minutes, seconds to radians (single precision)
+*
+*  Given:
+*     IHOUR       int       hours
+*     IMIN        int       minutes
+*     SEC         real      seconds
+*
+*  Returned:
+*     RAD         real      angle in radians
+*     J           int       status:  0 = OK
+*                                    1 = IHOUR outside range 0-23
+*                                    2 = IMIN outside range 0-59
+*                                    3 = SEC outside range 0-59.999...
+*
+*  Called:
+*     sla_CTF2D
+*
+*  Notes:
+*
+*  1)  The result is computed even if any of the range checks
+*      fail.
+*
+*  2)  The sign must be dealt with outside this routine.
+*
+*  P.T.Wallace   Starlink   November 1984
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER IHOUR,IMIN
+      REAL SEC,RAD
+      INTEGER J
+
+      REAL TURNS
+
+*  Turns to radians
+      REAL T2R
+      PARAMETER (T2R=6.283185307179586476925287)
+
+
+
+*  Convert to turns then radians
+      CALL sla_CTF2D(IHOUR,IMIN,SEC,TURNS,J)
+      RAD=T2R*TURNS
+
+      END
diff --git a/src/slalib/daf2r.f b/src/slalib/daf2r.f
new file mode 100644
index 0000000..3f89864
--- /dev/null
+++ b/src/slalib/daf2r.f
@@ -0,0 +1,55 @@
+      SUBROUTINE sla_DAF2R (IDEG, IAMIN, ASEC, RAD, J)
+*+
+*     - - - - - -
+*      D A F 2 R
+*     - - - - - -
+*
+*  Convert degrees, arcminutes, arcseconds to radians
+*  (double precision)
+*
+*  Given:
+*     IDEG        int       degrees
+*     IAMIN       int       arcminutes
+*     ASEC        dp        arcseconds
+*
+*  Returned:
+*     RAD         dp        angle in radians
+*     J           int       status:  0 = OK
+*                                    1 = IDEG outside range 0-359
+*                                    2 = IAMIN outside range 0-59
+*                                    3 = ASEC outside range 0-59.999...
+*
+*  Notes:
+*     1)  The result is computed even if any of the range checks
+*         fail.
+*     2)  The sign must be dealt with outside this routine.
+*
+*  P.T.Wallace   Starlink   23 August 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER IDEG,IAMIN
+      DOUBLE PRECISION ASEC,RAD
+      INTEGER J
+
+*  Arc seconds to radians
+      DOUBLE PRECISION AS2R
+      PARAMETER (AS2R=0.484813681109535994D-5)
+
+
+
+*  Preset status
+      J=0
+
+*  Validate arcsec, arcmin, deg
+      IF (ASEC.LT.0D0.OR.ASEC.GE.60D0) J=3
+      IF (IAMIN.LT.0.OR.IAMIN.GT.59) J=2
+      IF (IDEG.LT.0.OR.IDEG.GT.359) J=1
+
+*  Compute angle
+      RAD=AS2R*(60D0*(60D0*DBLE(IDEG)+DBLE(IAMIN))+ASEC)
+
+      END
diff --git a/src/slalib/dafin.f b/src/slalib/dafin.f
new file mode 100644
index 0000000..e8dc456
--- /dev/null
+++ b/src/slalib/dafin.f
@@ -0,0 +1,163 @@
+      SUBROUTINE sla_DAFIN (STRING, IPTR, A, J)
+*+
+*     - - - - - -
+*      D A F I N
+*     - - - - - -
+*
+*  Sexagesimal character string to angle (double precision)
+*
+*  Given:
+*     STRING  c*(*)   string containing deg, arcmin, arcsec fields
+*     IPTR      i     pointer to start of decode (1st = 1)
+*
+*  Returned:
+*     IPTR      i     advanced past the decoded angle
+*     A         d     angle in radians
+*     J         i     status:  0 = OK
+*                             +1 = default, A unchanged
+*                             -1 = bad degrees      )
+*                             -2 = bad arcminutes   )  (note 3)
+*                             -3 = bad arcseconds   )
+*
+*  Example:
+*
+*    argument    before                           after
+*
+*    STRING      '-57 17 44.806  12 34 56.7'      unchanged
+*    IPTR        1                                16 (points to 12...)
+*    A           ?                                -1.00000D0
+*    J           ?                                0
+*
+*    A further call to sla_DAFIN, without adjustment of IPTR, will
+*    decode the second angle, 12deg 34min 56.7sec.
+*
+*  Notes:
+*
+*     1)  The first three "fields" in STRING are degrees, arcminutes,
+*         arcseconds, separated by spaces or commas.  The degrees field
+*         may be signed, but not the others.  The decoding is carried
+*         out by the DFLTIN routine and is free-format.
+*
+*     2)  Successive fields may be absent, defaulting to zero.  For
+*         zero status, the only combinations allowed are degrees alone,
+*         degrees and arcminutes, and all three fields present.  If all
+*         three fields are omitted, a status of +1 is returned and A is
+*         unchanged.  In all other cases A is changed.
+*
+*     3)  Range checking:
+*
+*           The degrees field is not range checked.  However, it is
+*           expected to be integral unless the other two fields are absent.
+*
+*           The arcminutes field is expected to be 0-59, and integral if
+*           the arcseconds field is present.  If the arcseconds field
+*           is absent, the arcminutes is expected to be 0-59.9999...
+*
+*           The arcseconds field is expected to be 0-59.9999...
+*
+*     4)  Decoding continues even when a check has failed.  Under these
+*         circumstances the field takes the supplied value, defaulting
+*         to zero, and the result A is computed and returned.
+*
+*     5)  Further fields after the three expected ones are not treated
+*         as an error.  The pointer IPTR is left in the correct state
+*         for further decoding with the present routine or with DFLTIN
+*         etc. See the example, above.
+*
+*     6)  If STRING contains hours, minutes, seconds instead of degrees
+*         etc, or if the required units are turns (or days) instead of
+*         radians, the result A should be multiplied as follows:
+*
+*           for        to obtain    multiply
+*           STRING     A in         A by
+*
+*           d ' "      radians      1       =  1D0
+*           d ' "      turns        1/2pi   =  0.1591549430918953358D0
+*           h m s      radians      15      =  15D0
+*           h m s      days         15/2pi  =  2.3873241463784300365D0
+*
+*  Called:  sla_DFLTIN
+*
+*  P.T.Wallace   Starlink   1 August 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      CHARACTER*(*) STRING
+      INTEGER IPTR
+      DOUBLE PRECISION A
+      INTEGER J
+
+      DOUBLE PRECISION AS2R
+      PARAMETER (AS2R=4.84813681109535993589914102358D-6)
+      INTEGER JF,JD,JM,JS
+      DOUBLE PRECISION DEG,ARCMIN,ARCSEC
+
+
+
+*  Preset the status to OK
+      JF=0
+
+*  Defaults
+      DEG=0D0
+      ARCMIN=0D0
+      ARCSEC=0D0
+
+*  Decode degrees, arcminutes, arcseconds
+      CALL sla_DFLTIN(STRING,IPTR,DEG,JD)
+      IF (JD.GT.1) THEN
+         JF=-1
+      ELSE
+         CALL sla_DFLTIN(STRING,IPTR,ARCMIN,JM)
+         IF (JM.LT.0.OR.JM.GT.1) THEN
+            JF=-2
+         ELSE
+            CALL sla_DFLTIN(STRING,IPTR,ARCSEC,JS)
+            IF (JS.LT.0.OR.JS.GT.1) THEN
+               JF=-3
+
+*        See if the combination of fields is credible
+            ELSE IF (JD.GT.0) THEN
+*           No degrees:  arcmin, arcsec ought also to be absent
+               IF (JM.EQ.0) THEN
+*              Suspect arcmin
+                  JF=-2
+               ELSE IF (JS.EQ.0) THEN
+*              Suspect arcsec
+                  JF=-3
+               ELSE
+*              All three fields absent
+                  JF=1
+               END IF
+*        Degrees present:  if arcsec present so ought arcmin to be
+            ELSE IF (JM.NE.0.AND.JS.EQ.0) THEN
+               JF=-3
+
+*        Tests for range and integrality
+
+*        Degrees
+            ELSE IF (JM.EQ.0.AND.DINT(DEG).NE.DEG) THEN
+               JF=-1
+*        Arcminutes
+            ELSE IF ((JS.EQ.0.AND.DINT(ARCMIN).NE.ARCMIN).OR.
+     :               ARCMIN.GE.60D0) THEN
+               JF=-2
+*        Arcseconds
+            ELSE IF (ARCSEC.GE.60D0) THEN
+               JF=-3
+            END IF
+         END IF
+      END IF
+
+*  Unless all three fields absent, compute angle value
+      IF (JF.LE.0) THEN
+         A=AS2R*(60D0*(60D0*ABS(DEG)+ARCMIN)+ARCSEC)
+         IF (JD.LT.0) A=-A
+      END IF
+
+*  Return the status
+      J=JF
+
+      END
diff --git a/src/slalib/dat.f b/src/slalib/dat.f
new file mode 100644
index 0000000..423e59b
--- /dev/null
+++ b/src/slalib/dat.f
@@ -0,0 +1,219 @@
+      DOUBLE PRECISION FUNCTION sla_DAT (UTC)
+*+
+*     - - - -
+*      D A T
+*     - - - -
+*
+*  Increment to be applied to Coordinated Universal Time UTC to give
+*  International Atomic Time TAI (double precision)
+*
+*  Given:
+*     UTC      d      UTC date as a modified JD (JD-2400000.5)
+*
+*  Result:  TAI-UTC in seconds
+*
+*  Notes:
+*
+*  1  The UTC is specified to be a date rather than a time to indicate
+*     that care needs to be taken not to specify an instant which lies
+*     within a leap second.  Though in most cases UTC can include the
+*     fractional part, correct behaviour on the day of a leap second
+*     can only be guaranteed up to the end of the second 23:59:59.
+*
+*  2  For epochs from 1961 January 1 onwards, the expressions from the
+*     file ftp://maia.usno.navy.mil/ser7/tai-utc.dat are used.
+*
+*  3  The 5ms timestep at 1961 January 1 is taken from 2.58.1 (p87) of
+*     the 1992 Explanatory Supplement.
+*
+*  4  UTC began at 1960 January 1.0 (JD 2436934.5) and it is improper
+*     to call the routine with an earlier epoch.  However, if this
+*     is attempted, the TAI-UTC expression for the year 1960 is used.
+*
+*
+*     :-----------------------------------------:
+*     :                                         :
+*     :                IMPORTANT                :
+*     :                                         :
+*     :  This routine must be updated on each   :
+*     :     occasion that a leap second is      :
+*     :                announced                :
+*     :                                         :
+*     :  Latest leap second:  1999 January 1    :
+*     :                                         :
+*     :-----------------------------------------:
+*
+*  P.T.Wallace   Starlink   31 May 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION UTC
+
+      DOUBLE PRECISION DT
+
+
+
+      IF (.FALSE.) THEN
+
+* - - - - - - - - - - - - - - - - - - - - - - *
+*  Add new code here on each occasion that a  *
+*  leap second is announced, and update the   *
+*  preamble comments appropriately.           *
+* - - - - - - - - - - - - - - - - - - - - - - *
+
+*     1999 January 1
+      ELSE IF (UTC.GE.51179D0) THEN
+         DT=32D0
+
+*     1997 July 1
+      ELSE IF (UTC.GE.50630D0) THEN
+         DT=31D0
+
+*     1996 January 1
+      ELSE IF (UTC.GE.50083D0) THEN
+         DT=30D0
+
+*     1994 July 1
+      ELSE IF (UTC.GE.49534D0) THEN
+         DT=29D0
+
+*     1993 July 1
+      ELSE IF (UTC.GE.49169D0) THEN
+         DT=28D0
+
+*     1992 July 1
+      ELSE IF (UTC.GE.48804D0) THEN
+         DT=27D0
+
+*     1991 January 1
+      ELSE IF (UTC.GE.48257D0) THEN
+         DT=26D0
+
+*     1990 January 1
+      ELSE IF (UTC.GE.47892D0) THEN
+         DT=25D0
+
+*     1988 January 1
+      ELSE IF (UTC.GE.47161D0) THEN
+         DT=24D0
+
+*     1985 July 1
+      ELSE IF (UTC.GE.46247D0) THEN
+         DT=23D0
+
+*     1983 July 1
+      ELSE IF (UTC.GE.45516D0) THEN
+         DT=22D0
+
+*     1982 July 1
+      ELSE IF (UTC.GE.45151D0) THEN
+         DT=21D0
+
+*     1981 July 1
+      ELSE IF (UTC.GE.44786D0) THEN
+         DT=20D0
+
+*     1980 January 1
+      ELSE IF (UTC.GE.44239D0) THEN
+         DT=19D0
+
+*     1979 January 1
+      ELSE IF (UTC.GE.43874D0) THEN
+         DT=18D0
+
+*     1978 January 1
+      ELSE IF (UTC.GE.43509D0) THEN
+         DT=17D0
+
+*     1977 January 1
+      ELSE IF (UTC.GE.43144D0) THEN
+         DT=16D0
+
+*     1976 January 1
+      ELSE IF (UTC.GE.42778D0) THEN
+         DT=15D0
+
+*     1975 January 1
+      ELSE IF (UTC.GE.42413D0) THEN
+         DT=14D0
+
+*     1974 January 1
+      ELSE IF (UTC.GE.42048D0) THEN
+         DT=13D0
+
+*     1973 January 1
+      ELSE IF (UTC.GE.41683D0) THEN
+         DT=12D0
+
+*     1972 July 1
+      ELSE IF (UTC.GE.41499D0) THEN
+         DT=11D0
+
+*     1972 January 1
+      ELSE IF (UTC.GE.41317D0) THEN
+         DT=10D0
+
+*     1968 February 1
+      ELSE IF (UTC.GE.39887D0) THEN
+         DT=4.2131700D0+(UTC-39126D0)*0.002592D0
+
+*     1966 January 1
+      ELSE IF (UTC.GE.39126D0) THEN
+         DT=4.3131700D0+(UTC-39126D0)*0.002592D0
+
+*     1965 September 1
+      ELSE IF (UTC.GE.39004D0) THEN
+         DT=3.8401300D0+(UTC-38761D0)*0.001296D0
+
+*     1965 July 1
+      ELSE IF (UTC.GE.38942D0) THEN
+         DT=3.7401300D0+(UTC-38761D0)*0.001296D0
+
+*     1965 March 1
+      ELSE IF (UTC.GE.38820D0) THEN
+         DT=3.6401300D0+(UTC-38761D0)*0.001296D0
+
+*     1965 January 1
+      ELSE IF (UTC.GE.38761D0) THEN
+         DT=3.5401300D0+(UTC-38761D0)*0.001296D0
+
+*     1964 September 1
+      ELSE IF (UTC.GE.38639D0) THEN
+         DT=3.4401300D0+(UTC-38761D0)*0.001296D0
+
+*     1964 April 1
+      ELSE IF (UTC.GE.38486D0) THEN
+         DT=3.3401300D0+(UTC-38761D0)*0.001296D0
+
+*     1964 January 1
+      ELSE IF (UTC.GE.38395D0) THEN
+         DT=3.2401300D0+(UTC-38761D0)*0.001296D0
+
+*     1963 November 1
+      ELSE IF (UTC.GE.38334D0) THEN
+         DT=1.9458580D0+(UTC-37665D0)*0.0011232D0
+
+*     1962 January 1
+      ELSE IF (UTC.GE.37665D0) THEN
+         DT=1.8458580D0+(UTC-37665D0)*0.0011232D0
+
+*     1961 August 1
+      ELSE IF (UTC.GE.37512D0) THEN
+         DT=1.3728180D0+(UTC-37300D0)*0.001296D0
+
+*     1961 January 1
+      ELSE IF (UTC.GE.37300D0) THEN
+         DT=1.4228180D0+(UTC-37300D0)*0.001296D0
+
+*     Before that
+      ELSE
+         DT=1.4178180D0+(UTC-37300D0)*0.001296D0
+
+      END IF
+
+      sla_DAT=DT
+
+      END
diff --git a/src/slalib/dav2m.f b/src/slalib/dav2m.f
new file mode 100644
index 0000000..dc3f46c
--- /dev/null
+++ b/src/slalib/dav2m.f
@@ -0,0 +1,67 @@
+      SUBROUTINE sla_DAV2M (AXVEC, RMAT)
+*+
+*     - - - - - -
+*      D A V 2 M
+*     - - - - - -
+*
+*  Form the rotation matrix corresponding to a given axial vector.
+*  (double precision)
+*
+*  A rotation matrix describes a rotation about some arbitrary axis.
+*  The axis is called the Euler axis, and the angle through which the
+*  reference frame rotates is called the Euler angle.  The axial
+*  vector supplied to this routine has the same direction as the
+*  Euler axis, and its magnitude is the Euler angle in radians.
+*
+*  Given:
+*    AXVEC  d(3)     axial vector (radians)
+*
+*  Returned:
+*    RMAT   d(3,3)   rotation matrix
+*
+*  If AXVEC is null, the unit matrix is returned.
+*
+*  The reference frame rotates clockwise as seen looking along
+*  the axial vector from the origin.
+*
+*  P.T.Wallace   Starlink   June 1989
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION AXVEC(3),RMAT(3,3)
+
+      DOUBLE PRECISION X,Y,Z,PHI,S,C,W
+
+
+
+*  Euler angle - magnitude of axial vector - and functions
+      X = AXVEC(1)
+      Y = AXVEC(2)
+      Z = AXVEC(3)
+      PHI = SQRT(X*X+Y*Y+Z*Z)
+      S = SIN(PHI)
+      C = COS(PHI)
+      W = 1D0-C
+
+*  Euler axis - direction of axial vector (perhaps null)
+      IF (PHI.NE.0D0) THEN
+         X = X/PHI
+         Y = Y/PHI
+         Z = Z/PHI
+      END IF
+
+*  Compute the rotation matrix
+      RMAT(1,1) = X*X*W+C
+      RMAT(1,2) = X*Y*W+Z*S
+      RMAT(1,3) = X*Z*W-Y*S
+      RMAT(2,1) = X*Y*W-Z*S
+      RMAT(2,2) = Y*Y*W+C
+      RMAT(2,3) = Y*Z*W+X*S
+      RMAT(3,1) = X*Z*W+Y*S
+      RMAT(3,2) = Y*Z*W-X*S
+      RMAT(3,3) = Z*Z*W+C
+
+      END
diff --git a/src/slalib/dbear.f b/src/slalib/dbear.f
new file mode 100644
index 0000000..7cd5818
--- /dev/null
+++ b/src/slalib/dbear.f
@@ -0,0 +1,42 @@
+      DOUBLE PRECISION FUNCTION sla_DBEAR (A1, B1, A2, B2)
+*+
+*     - - - - - -
+*      D B E A R
+*     - - - - - -
+*
+*  Bearing (position angle) of one point on a sphere relative to another
+*  (double precision)
+*
+*  Given:
+*     A1,B1    d    spherical coordinates of one point
+*     A2,B2    d    spherical coordinates of the other point
+*
+*  (The spherical coordinates are RA,Dec, Long,Lat etc, in radians.)
+*
+*  The result is the bearing (position angle), in radians, of point
+*  A2,B2 as seen from point A1,B1.  It is in the range +/- pi.  If
+*  A2,B2 is due east of A1,B1 the bearing is +pi/2.  Zero is returned
+*  if the two points are coincident.
+*
+*  P.T.Wallace   Starlink   23 March 1991
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION A1,B1,A2,B2
+
+      DOUBLE PRECISION DA,X,Y
+
+
+      DA=A2-A1
+      Y=SIN(DA)*COS(B2)
+      X=SIN(B2)*COS(B1)-COS(B2)*SIN(B1)*COS(DA)
+      IF (X.NE.0D0.OR.Y.NE.0D0) THEN
+         sla_DBEAR=ATAN2(Y,X)
+      ELSE
+         sla_DBEAR=0D0
+      END IF
+
+      END
diff --git a/src/slalib/dbjin.f b/src/slalib/dbjin.f
new file mode 100644
index 0000000..60563e4
--- /dev/null
+++ b/src/slalib/dbjin.f
@@ -0,0 +1,113 @@
+      SUBROUTINE sla_DBJIN (STRING, NSTRT, DRESLT, J1, J2)
+*+
+*     - - - - - -
+*      D B J I N
+*     - - - - - -
+*
+*  Convert free-format input into double precision floating point,
+*  using DFLTIN but with special syntax extensions.
+*
+*  The purpose of the syntax extensions is to help cope with mixed
+*  FK4 and FK5 data.  In addition to the syntax accepted by DFLTIN,
+*  the following two extensions are recognized by DBJIN:
+*
+*     1)  A valid non-null field preceded by the character 'B'
+*         (or 'b') is accepted.
+*
+*     2)  A valid non-null field preceded by the character 'J'
+*         (or 'j') is accepted.
+*
+*  The calling program is notified of the incidence of either of these
+*  extensions through an supplementary status argument.  The rest of
+*  the arguments are as for DFLTIN.
+*
+*  Given:
+*     STRING      char       string containing field to be decoded
+*     NSTRT       int        pointer to 1st character of field in string
+*
+*  Returned:
+*     NSTRT       int        incremented
+*     DRESLT      double     result
+*     J1          int        DFLTIN status: -1 = -OK
+*                                            0 = +OK
+*                                           +1 = null field
+*                                           +2 = error
+*     J2          int        syntax flag:  0 = normal DFLTIN syntax
+*                                         +1 = 'B' or 'b'
+*                                         +2 = 'J' or 'j'
+*
+*  Called:  sla_DFLTIN
+*
+*  For details of the basic syntax, see sla_DFLTIN.
+*
+*  P.T.Wallace   Starlink   23 November 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      CHARACTER*(*) STRING
+      INTEGER NSTRT
+      DOUBLE PRECISION DRESLT
+      INTEGER J1,J2
+
+      INTEGER J2A,LENSTR,NA,J1A,NB,J1B
+      CHARACTER C
+
+
+
+*   Preset syntax flag
+      J2A=0
+
+*   Length of string
+      LENSTR=LEN(STRING)
+
+*   Pointer to current character
+      NA=NSTRT
+
+*   Attempt normal decode
+      CALL sla_DFLTIN(STRING,NA,DRESLT,J1A)
+
+*   Proceed only if pointer still within string
+      IF (NA.GE.1.AND.NA.LE.LENSTR) THEN
+
+*      See if DFLTIN reported a null field
+         IF (J1A.EQ.1) THEN
+
+*         It did: examine character it stuck on
+            C=STRING(NA:NA)
+            IF (C.EQ.'B'.OR.C.EQ.'b') THEN
+*            'B' - provisionally note
+               J2A=1
+            ELSE IF (C.EQ.'J'.OR.C.EQ.'j') THEN
+*            'J' - provisionally note
+               J2A=2
+            END IF
+
+*         Following B or J, attempt to decode a number
+            IF (J2A.EQ.1.OR.J2A.EQ.2) THEN
+               NB=NA+1
+               CALL sla_DFLTIN(STRING,NB,DRESLT,J1B)
+
+*            If successful, copy pointer and status
+               IF (J1B.LE.0) THEN
+                  NA=NB
+                  J1A=J1B
+*            If not, forget about the B or J
+               ELSE
+                  J2A=0
+               END IF
+
+            END IF
+
+         END IF
+
+      END IF
+
+*   Return argument values and exit
+      NSTRT=NA
+      J1=J1A
+      J2=J2A
+
+      END
diff --git a/src/slalib/dc62s.f b/src/slalib/dc62s.f
new file mode 100644
index 0000000..2dd63ba
--- /dev/null
+++ b/src/slalib/dc62s.f
@@ -0,0 +1,82 @@
+      SUBROUTINE sla_DC62S (V, A, B, R, AD, BD, RD)
+*+
+*     - - - - - -
+*      D C 6 2 S
+*     - - - - - -
+*
+*  Conversion of position & velocity in Cartesian coordinates
+*  to spherical coordinates (double precision)
+*
+*  Given:
+*     V      d(6)   Cartesian position & velocity vector
+*
+*  Returned:
+*     A      d      longitude (radians)
+*     B      d      latitude (radians)
+*     R      d      radial coordinate
+*     AD     d      longitude derivative (radians per unit time)
+*     BD     d      latitude derivative (radians per unit time)
+*     RD     d      radial derivative
+*
+*  P.T.Wallace   Starlink   28 April 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION V(6),A,B,R,AD,BD,RD
+
+      DOUBLE PRECISION X,Y,Z,XD,YD,ZD,RXY2,RXY,R2,XYP
+
+
+
+*  Components of position/velocity vector
+      X=V(1)
+      Y=V(2)
+      Z=V(3)
+      XD=V(4)
+      YD=V(5)
+      ZD=V(6)
+
+*  Component of R in XY plane squared
+      RXY2=X*X+Y*Y
+
+*  Modulus squared
+      R2=RXY2+Z*Z
+
+*  Protection against null vector
+      IF (R2.EQ.0D0) THEN
+         X=XD
+         Y=YD
+         Z=ZD
+         RXY2=X*X+Y*Y
+         R2=RXY2+Z*Z
+      END IF
+
+*  Position and velocity in spherical coordinates
+      RXY=SQRT(RXY2)
+      XYP=X*XD+Y*YD
+      IF (RXY2.NE.0D0) THEN
+         A=ATAN2(Y,X)
+         B=ATAN2(Z,RXY)
+         AD=(X*YD-Y*XD)/RXY2
+         BD=(ZD*RXY2-Z*XYP)/(R2*RXY)
+      ELSE
+         A=0D0
+         IF (Z.NE.0D0) THEN
+            B=ATAN2(Z,RXY)
+         ELSE
+            B=0D0
+         END IF
+         AD=0D0
+         BD=0D0
+      END IF
+      R=SQRT(R2)
+      IF (R.NE.0D0) THEN
+         RD=(XYP+Z*ZD)/R
+      ELSE
+         RD=0D0
+      END IF
+
+      END
diff --git a/src/slalib/dcc2s.f b/src/slalib/dcc2s.f
new file mode 100644
index 0000000..9f5d0fe
--- /dev/null
+++ b/src/slalib/dcc2s.f
@@ -0,0 +1,53 @@
+      SUBROUTINE sla_DCC2S (V, A, B)
+*+
+*     - - - - - -
+*      D C C 2 S
+*     - - - - - -
+*
+*  Direction cosines to spherical coordinates (double precision)
+*
+*  Given:
+*     V     d(3)   x,y,z vector
+*
+*  Returned:
+*     A,B   d      spherical coordinates in radians
+*
+*  The spherical coordinates are longitude (+ve anticlockwise
+*  looking from the +ve latitude pole) and latitude.  The
+*  Cartesian coordinates are right handed, with the x axis
+*  at zero longitude and latitude, and the z axis at the
+*  +ve latitude pole.
+*
+*  If V is null, zero A and B are returned.
+*  At either pole, zero A is returned.
+*
+*  P.T.Wallace   Starlink   July 1989
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION V(3),A,B
+
+      DOUBLE PRECISION X,Y,Z,R
+
+
+      X = V(1)
+      Y = V(2)
+      Z = V(3)
+      R = SQRT(X*X+Y*Y)
+
+      IF (R.EQ.0D0) THEN
+         A = 0D0
+      ELSE
+         A = ATAN2(Y,X)
+      END IF
+
+      IF (Z.EQ.0D0) THEN
+         B = 0D0
+      ELSE
+         B = ATAN2(Z,R)
+      END IF
+
+      END
diff --git a/src/slalib/dcmpf.f b/src/slalib/dcmpf.f
new file mode 100644
index 0000000..3689e25
--- /dev/null
+++ b/src/slalib/dcmpf.f
@@ -0,0 +1,140 @@
+      SUBROUTINE sla_DCMPF (COEFFS,XZ,YZ,XS,YS,PERP,ORIENT)
+*+
+*     - - - - - -
+*      D C M P F
+*     - - - - - -
+*
+*  Decompose an [X,Y] linear fit into its constituent parameters:
+*  zero points, scales, nonperpendicularity and orientation.
+*
+*  Given:
+*     COEFFS  d(6)      transformation coefficients (see note)
+*
+*  Returned:
+*     XZ       d        x zero point
+*     YZ       d        y zero point
+*     XS       d        x scale
+*     YS       d        y scale
+*     PERP     d        nonperpendicularity (radians)
+*     ORIENT   d        orientation (radians)
+*
+*  The model relates two sets of [X,Y] coordinates as follows.
+*  Naming the elements of COEFFS:
+*
+*     COEFFS(1) = A
+*     COEFFS(2) = B
+*     COEFFS(3) = C
+*     COEFFS(4) = D
+*     COEFFS(5) = E
+*     COEFFS(6) = F
+*
+*  the model transforms coordinates [X1,Y1] into coordinates
+*  [X2,Y2] as follows:
+*
+*     X2 = A + B*X1 + C*Y1
+*     Y2 = D + E*X1 + F*Y1
+*
+*  The transformation can be decomposed into four steps:
+*
+*     1)  Zero points:
+*
+*             x' = XZ + X1
+*             y' = YZ + Y1
+*
+*     2)  Scales:
+*
+*             x'' = XS*x'
+*             y'' = YS*y'
+*
+*     3)  Nonperpendicularity:
+*
+*             x''' = cos(PERP/2)*x'' + sin(PERP/2)*y''
+*             y''' = sin(PERP/2)*x'' + cos(PERP/2)*y''
+*
+*     4)  Orientation:
+*
+*             X2 = cos(ORIENT)*x''' + sin(ORIENT)*y'''
+*             Y2 =-sin(ORIENT)*y''' + cos(ORIENT)*y'''
+*
+*  See also sla_FITXY, sla_PXY, sla_INVF, sla_XY2XY
+*
+*  P.T.Wallace   Starlink   14 August 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION COEFFS(6),XZ,YZ,XS,YS,PERP,ORIENT
+
+      DOUBLE PRECISION A,B,C,D,E,F,RB2E2,RC2F2,XSC,YSC,P1,P2,P,WS,WC,
+     :                 OR,HP,SHP,CHP,SOR,COR,DET,X0,Y0
+
+
+
+*  Copy the six coefficients
+      A=COEFFS(1)
+      B=COEFFS(2)
+      C=COEFFS(3)
+      D=COEFFS(4)
+      E=COEFFS(5)
+      F=COEFFS(6)
+
+*  Scales
+      RB2E2=SQRT(B*B+E*E)
+      RC2F2=SQRT(C*C+F*F)
+      IF (B*F-C*E.GE.0D0) THEN
+         XSC=RB2E2
+      ELSE
+         B=-B
+         C=-C
+         XSC=-RB2E2
+      END IF
+      YSC=RC2F2
+
+*  Non-perpendicularity
+      IF (C.NE.0D0.OR.F.NE.0D0) THEN
+         P1=ATAN2(C,F)
+      ELSE
+         P1=0D0
+      END IF
+      IF (E.NE.0D0.OR.B.NE.0D0) THEN
+         P2=ATAN2(E,B)
+      ELSE
+         P2=0D0
+      END IF
+      P=P1+P2
+
+*  Orientation
+      WS=C*RB2E2-E*RC2F2
+      WC=B*RC2F2+F*RB2E2
+      IF (WS.NE.0D0.OR.WC.NE.0D0) THEN
+         OR=ATAN2(WS,WC)
+      ELSE
+         OR=0D0
+      END IF
+
+*  Zero corrections
+      HP=P/2D0
+      SHP=SIN(HP)
+      CHP=COS(HP)
+      SOR=SIN(OR)
+      COR=COS(OR)
+      DET=XSC*YSC*(CHP+SHP)*(CHP-SHP)
+      IF (ABS(DET).GT.0D0) THEN
+         X0=YSC*(A*(CHP*COR-SHP*SOR)-D*(CHP*SOR+SHP*COR))/DET
+         Y0=XSC*(A*(CHP*SOR-SHP*COR)+D*(CHP*COR+SHP*SOR))/DET
+      ELSE
+         X0=0D0
+         Y0=0D0
+      END IF
+
+*  Results
+      XZ=X0
+      YZ=Y0
+      XS=XSC
+      YS=YSC
+      PERP=P
+      ORIENT=OR
+
+      END
diff --git a/src/slalib/dcs2c.f b/src/slalib/dcs2c.f
new file mode 100644
index 0000000..5c20009
--- /dev/null
+++ b/src/slalib/dcs2c.f
@@ -0,0 +1,41 @@
+      SUBROUTINE sla_DCS2C (A, B, V)
+*+
+*     - - - - - -
+*      D C S 2 C
+*     - - - - - -
+*
+*  Spherical coordinates to direction cosines (double precision)
+*
+*  Given:
+*     A,B       dp      spherical coordinates in radians
+*                        (RA,Dec), (Long,Lat) etc
+*
+*  Returned:
+*     V         dp(3)   x,y,z unit vector
+*
+*  The spherical coordinates are longitude (+ve anticlockwise
+*  looking from the +ve latitude pole) and latitude.  The
+*  Cartesian coordinates are right handed, with the x axis
+*  at zero longitude and latitude, and the z axis at the
+*  +ve latitude pole.
+*
+*  P.T.Wallace   Starlink   October 1984
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION A,B,V(3)
+
+      DOUBLE PRECISION COSB
+
+
+
+      COSB=COS(B)
+
+      V(1)=COS(A)*COSB
+      V(2)=SIN(A)*COSB
+      V(3)=SIN(B)
+
+      END
diff --git a/src/slalib/dd2tf.f b/src/slalib/dd2tf.f
new file mode 100644
index 0000000..2fc0db6
--- /dev/null
+++ b/src/slalib/dd2tf.f
@@ -0,0 +1,89 @@
+      SUBROUTINE sla_DD2TF (NDP, DAYS, SIGN, IHMSF)
+*+
+*     - - - - - -
+*      D D 2 T F
+*     - - - - - -
+*
+*  Convert an interval in days into hours, minutes, seconds
+*  (double precision)
+*
+*  Given:
+*     NDP      i      number of decimal places of seconds
+*     DAYS     d      interval in days
+*
+*  Returned:
+*     SIGN     c      '+' or '-'
+*     IHMSF    i(4)   hours, minutes, seconds, fraction
+*
+*  Notes:
+*
+*     1)  NDP less than zero is interpreted as zero.
+*
+*     2)  The largest useful value for NDP is determined by the size
+*         of DAYS, the format of DOUBLE PRECISION floating-point numbers
+*         on the target machine, and the risk of overflowing IHMSF(4).
+*         For example, on the VAX, for DAYS up to 1D0, the available
+*         floating-point precision corresponds roughly to NDP=12.
+*         However, the practical limit is NDP=9, set by the capacity of
+*         the 32-bit integer IHMSF(4).
+*
+*     3)  The absolute value of DAYS may exceed 1D0.  In cases where it
+*         does not, it is up to the caller to test for and handle the
+*         case where DAYS is very nearly 1D0 and rounds up to 24 hours,
+*         by testing for IHMSF(1)=24 and setting IHMSF(1-4) to zero.
+*
+*  P.T.Wallace   Starlink   19 March 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER NDP
+      DOUBLE PRECISION DAYS
+      CHARACTER SIGN*(*)
+      INTEGER IHMSF(4)
+
+*  Days to seconds
+      DOUBLE PRECISION D2S
+      PARAMETER (D2S=86400D0)
+
+      INTEGER NRS,N
+      DOUBLE PRECISION RS,RM,RH,A,AH,AM,AS,AF
+
+
+
+*  Handle sign
+      IF (DAYS.GE.0D0) THEN
+         SIGN='+'
+      ELSE
+         SIGN='-'
+      END IF
+
+*  Field units in terms of least significant figure
+      NRS=1
+      DO N=1,NDP
+         NRS=NRS*10
+      END DO
+      RS=DBLE(NRS)
+      RM=RS*60D0
+      RH=RM*60D0
+
+*  Round interval and express in smallest units required
+      A=ANINT(RS*D2S*ABS(DAYS))
+
+*  Separate into fields
+      AH=AINT(A/RH)
+      A=A-AH*RH
+      AM=AINT(A/RM)
+      A=A-AM*RM
+      AS=AINT(A/RS)
+      AF=A-AS*RS
+
+*  Return results
+      IHMSF(1)=MAX(NINT(AH),0)
+      IHMSF(2)=MAX(MIN(NINT(AM),59),0)
+      IHMSF(3)=MAX(MIN(NINT(AS),59),0)
+      IHMSF(4)=MAX(NINT(MIN(AF,RS-1D0)),0)
+
+      END
diff --git a/src/slalib/de2h.f b/src/slalib/de2h.f
new file mode 100644
index 0000000..138a3f7
--- /dev/null
+++ b/src/slalib/de2h.f
@@ -0,0 +1,89 @@
+      SUBROUTINE sla_DE2H (HA, DEC, PHI, AZ, EL)
+*+
+*     - - - - -
+*      D E 2 H
+*     - - - - -
+*
+*  Equatorial to horizon coordinates:  HA,Dec to Az,El
+*
+*  (double precision)
+*
+*  Given:
+*     HA      d     hour angle
+*     DEC     d     declination
+*     PHI     d     observatory latitude
+*
+*  Returned:
+*     AZ      d     azimuth
+*     EL      d     elevation
+*
+*  Notes:
+*
+*  1)  All the arguments are angles in radians.
+*
+*  2)  Azimuth is returned in the range 0-2pi;  north is zero,
+*      and east is +pi/2.  Elevation is returned in the range
+*      +/-pi/2.
+*
+*  3)  The latitude must be geodetic.  In critical applications,
+*      corrections for polar motion should be applied.
+*
+*  4)  In some applications it will be important to specify the
+*      correct type of hour angle and declination in order to
+*      produce the required type of azimuth and elevation.  In
+*      particular, it may be important to distinguish between
+*      elevation as affected by refraction, which would
+*      require the "observed" HA,Dec, and the elevation
+*      in vacuo, which would require the "topocentric" HA,Dec.
+*      If the effects of diurnal aberration can be neglected, the
+*      "apparent" HA,Dec may be used instead of the topocentric
+*      HA,Dec.
+*
+*  5)  No range checking of arguments is carried out.
+*
+*  6)  In applications which involve many such calculations, rather
+*      than calling the present routine it will be more efficient to
+*      use inline code, having previously computed fixed terms such
+*      as sine and cosine of latitude, and (for tracking a star)
+*      sine and cosine of declination.
+*
+*  P.T.Wallace   Starlink   9 July 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION HA,DEC,PHI,AZ,EL
+
+      DOUBLE PRECISION D2PI
+      PARAMETER (D2PI=6.283185307179586476925286766559D0)
+
+      DOUBLE PRECISION SH,CH,SD,CD,SP,CP,X,Y,Z,R,A
+
+
+*  Useful trig functions
+      SH=SIN(HA)
+      CH=COS(HA)
+      SD=SIN(DEC)
+      CD=COS(DEC)
+      SP=SIN(PHI)
+      CP=COS(PHI)
+
+*  Az,El as x,y,z
+      X=-CH*CD*SP+SD*CP
+      Y=-SH*CD
+      Z=CH*CD*CP+SD*SP
+
+*  To spherical
+      R=SQRT(X*X+Y*Y)
+      IF (R.EQ.0D0) THEN
+         A=0D0
+      ELSE
+         A=ATAN2(Y,X)
+      END IF
+      IF (A.LT.0D0) A=A+D2PI
+      AZ=A
+      EL=ATAN2(Z,R)
+
+      END
diff --git a/src/slalib/deuler.f b/src/slalib/deuler.f
new file mode 100644
index 0000000..6ce1479
--- /dev/null
+++ b/src/slalib/deuler.f
@@ -0,0 +1,163 @@
+      SUBROUTINE sla_DEULER (ORDER, PHI, THETA, PSI, RMAT)
+*+
+*     - - - - - - -
+*      D E U L E R
+*     - - - - - - -
+*
+*  Form a rotation matrix from the Euler angles - three successive
+*  rotations about specified Cartesian axes (double precision)
+*
+*  Given:
+*    ORDER   c*(*)   specifies about which axes the rotations occur
+*    PHI     d       1st rotation (radians)
+*    THETA   d       2nd rotation (   "   )
+*    PSI     d       3rd rotation (   "   )
+*
+*  Returned:
+*    RMAT    d(3,3)  rotation matrix
+*
+*  A rotation is positive when the reference frame rotates
+*  anticlockwise as seen looking towards the origin from the
+*  positive region of the specified axis.
+*
+*  The characters of ORDER define which axes the three successive
+*  rotations are about.  A typical value is 'ZXZ', indicating that
+*  RMAT is to become the direction cosine matrix corresponding to
+*  rotations of the reference frame through PHI radians about the
+*  old Z-axis, followed by THETA radians about the resulting X-axis,
+*  then PSI radians about the resulting Z-axis.
+*
+*  The axis names can be any of the following, in any order or
+*  combination:  X, Y, Z, uppercase or lowercase, 1, 2, 3.  Normal
+*  axis labelling/numbering conventions apply;  the xyz (=123)
+*  triad is right-handed.  Thus, the 'ZXZ' example given above
+*  could be written 'zxz' or '313' (or even 'ZxZ' or '3xZ').  ORDER
+*  is terminated by length or by the first unrecognized character.
+*
+*  Fewer than three rotations are acceptable, in which case the later
+*  angle arguments are ignored.  If all rotations are zero, the
+*  identity matrix is produced.
+*
+*  P.T.Wallace   Starlink   23 May 1997
+*
+*  Copyright (C) 1997 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      CHARACTER*(*) ORDER
+      DOUBLE PRECISION PHI,THETA,PSI,RMAT(3,3)
+
+      INTEGER J,I,L,N,K
+      DOUBLE PRECISION RESULT(3,3),ROTN(3,3),ANGLE,S,C,W,WM(3,3)
+      CHARACTER AXIS
+
+
+
+*  Initialize result matrix
+      DO J=1,3
+         DO I=1,3
+            IF (I.NE.J) THEN
+               RESULT(I,J) = 0D0
+            ELSE
+               RESULT(I,J) = 1D0
+            END IF
+         END DO
+      END DO
+
+*  Establish length of axis string
+      L = LEN(ORDER)
+
+*  Look at each character of axis string until finished
+      DO N=1,3
+         IF (N.LE.L) THEN
+
+*        Initialize rotation matrix for the current rotation
+            DO J=1,3
+               DO I=1,3
+                  IF (I.NE.J) THEN
+                     ROTN(I,J) = 0D0
+                  ELSE
+                     ROTN(I,J) = 1D0
+                  END IF
+               END DO
+            END DO
+
+*        Pick up the appropriate Euler angle and take sine & cosine
+            IF (N.EQ.1) THEN
+               ANGLE = PHI
+            ELSE IF (N.EQ.2) THEN
+               ANGLE = THETA
+            ELSE
+               ANGLE = PSI
+            END IF
+            S = SIN(ANGLE)
+            C = COS(ANGLE)
+
+*        Identify the axis
+            AXIS = ORDER(N:N)
+            IF (AXIS.EQ.'X'.OR.
+     :          AXIS.EQ.'x'.OR.
+     :          AXIS.EQ.'1') THEN
+
+*           Matrix for x-rotation
+               ROTN(2,2) = C
+               ROTN(2,3) = S
+               ROTN(3,2) = -S
+               ROTN(3,3) = C
+
+            ELSE IF (AXIS.EQ.'Y'.OR.
+     :               AXIS.EQ.'y'.OR.
+     :               AXIS.EQ.'2') THEN
+
+*           Matrix for y-rotation
+               ROTN(1,1) = C
+               ROTN(1,3) = -S
+               ROTN(3,1) = S
+               ROTN(3,3) = C
+
+            ELSE IF (AXIS.EQ.'Z'.OR.
+     :               AXIS.EQ.'z'.OR.
+     :               AXIS.EQ.'3') THEN
+
+*           Matrix for z-rotation
+               ROTN(1,1) = C
+               ROTN(1,2) = S
+               ROTN(2,1) = -S
+               ROTN(2,2) = C
+
+            ELSE
+
+*           Unrecognized character - fake end of string
+               L = 0
+
+            END IF
+
+*        Apply the current rotation (matrix ROTN x matrix RESULT)
+            DO I=1,3
+               DO J=1,3
+                  W = 0D0
+                  DO K=1,3
+                     W = W+ROTN(I,K)*RESULT(K,J)
+                  END DO
+                  WM(I,J) = W
+               END DO
+            END DO
+            DO J=1,3
+               DO I=1,3
+                  RESULT(I,J) = WM(I,J)
+               END DO
+            END DO
+
+         END IF
+
+      END DO
+
+*  Copy the result
+      DO J=1,3
+         DO I=1,3
+            RMAT(I,J) = RESULT(I,J)
+         END DO
+      END DO
+
+      END
diff --git a/src/slalib/dfltin.f b/src/slalib/dfltin.f
new file mode 100644
index 0000000..1fbdb94
--- /dev/null
+++ b/src/slalib/dfltin.f
@@ -0,0 +1,280 @@
+      SUBROUTINE sla_DFLTIN (STRING, NSTRT, DRESLT, JFLAG)
+*+
+*     - - - - - - -
+*      D F L T I N
+*     - - - - - - -
+*
+*  Convert free-format input into double precision floating point
+*
+*  Given:
+*     STRING     c     string containing number to be decoded
+*     NSTRT      i     pointer to where decoding is to start
+*     DRESLT     d     current value of result
+*
+*  Returned:
+*     NSTRT      i      advanced to next number
+*     DRESLT     d      result
+*     JFLAG      i      status: -1 = -OK, 0 = +OK, 1 = null, 2 = error
+*
+*  Notes:
+*
+*     1     The reason DFLTIN has separate OK status values for +
+*           and - is to enable minus zero to be detected.   This is
+*           of crucial importance when decoding mixed-radix numbers.
+*           For example, an angle expressed as deg, arcmin, arcsec
+*           may have a leading minus sign but a zero degrees field.
+*
+*     2     A TAB is interpreted as a space, and lowercase characters
+*           are interpreted as uppercase.
+*
+*     3     The basic format is the sequence of fields #^.^@#^, where
+*           # is a sign character + or -, ^ means a string of decimal
+*           digits, and @, which indicates an exponent, means D or E.
+*           Various combinations of these fields can be omitted, and
+*           embedded blanks are permissible in certain places.
+*
+*     4     Spaces:
+*
+*             .  Leading spaces are ignored.
+*
+*             .  Embedded spaces are allowed only after +, -, D or E,
+*                and after the decomal point if the first sequence of
+*                digits is absent.
+*
+*             .  Trailing spaces are ignored;  the first signifies
+*                end of decoding and subsequent ones are skipped.
+*
+*     5     Delimiters:
+*
+*             .  Any character other than +,-,0-9,.,D,E or space may be
+*                used to signal the end of the number and terminate
+*                decoding.
+*
+*             .  Comma is recognized by DFLTIN as a special case;  it
+*                is skipped, leaving the pointer on the next character.
+*                See 13, below.
+*
+*     6     Both signs are optional.  The default is +.
+*
+*     7     The mantissa ^.^ defaults to 1.
+*
+*     8     The exponent @#^ defaults to D0.
+*
+*     9     The strings of decimal digits may be of any length.
+*
+*     10    The decimal point is optional for whole numbers.
+*
+*     11    A "null result" occurs when the string of characters being
+*           decoded does not begin with +,-,0-9,.,D or E, or consists
+*           entirely of spaces.  When this condition is detected, JFLAG
+*           is set to 1 and DRESLT is left untouched.
+*
+*     12    NSTRT = 1 for the first character in the string.
+*
+*     13    On return from DFLTIN, NSTRT is set ready for the next
+*           decode - following trailing blanks and any comma.  If a
+*           delimiter other than comma is being used, NSTRT must be
+*           incremented before the next call to DFLTIN, otherwise
+*           all subsequent calls will return a null result.
+*
+*     14    Errors (JFLAG=2) occur when:
+*
+*             .  a +, -, D or E is left unsatisfied;  or
+*
+*             .  the decimal point is present without at least
+*                one decimal digit before or after it;  or
+*
+*             .  an exponent more than 100 has been presented.
+*
+*     15    When an error has been detected, NSTRT is left
+*           pointing to the character following the last
+*           one used before the error came to light.  This
+*           may be after the point at which a more sophisticated
+*           program could have detected the error.  For example,
+*           DFLTIN does not detect that '1D999' is unacceptable
+*           (on a computer where this is so) until the entire number
+*           has been decoded.
+*
+*     16    Certain highly unlikely combinations of mantissa &
+*           exponent can cause arithmetic faults during the
+*           decode, in some cases despite the fact that they
+*           together could be construed as a valid number.
+*
+*     17    Decoding is left to right, one pass.
+*
+*     18    See also FLOTIN and INTIN
+*
+*  Called:  sla__IDCHF
+*
+*  P.T.Wallace   Starlink   18 March 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      CHARACTER*(*) STRING
+      INTEGER NSTRT
+      DOUBLE PRECISION DRESLT
+      INTEGER JFLAG
+
+      INTEGER NPTR,MSIGN,NEXP,NDP,NVEC,NDIGIT,ISIGNX,J
+      DOUBLE PRECISION DMANT,DIGIT
+
+
+
+*  Current character
+      NPTR=NSTRT
+
+*  Set defaults: mantissa & sign, exponent & sign, decimal place count
+      DMANT=0D0
+      MSIGN=1
+      NEXP=0
+      ISIGNX=1
+      NDP=0
+
+*  Look for sign
+ 100  CONTINUE
+      CALL sla__IDCHF(STRING,NPTR,NVEC,NDIGIT,DIGIT)
+      GO TO ( 400,  100,  800,  500,  300,  200, 9110, 9100, 9110),NVEC
+*             0-9    SP   D/E    .     +     -     ,   ELSE   END
+
+*  Negative
+ 200  CONTINUE
+      MSIGN=-1
+
+*  Look for first leading decimal
+ 300  CONTINUE
+      CALL sla__IDCHF(STRING,NPTR,NVEC,NDIGIT,DIGIT)
+      GO TO ( 400, 300,  800,  500, 9200, 9200, 9200, 9200, 9210),NVEC
+*             0-9   SP   D/E    .     +     -     ,   ELSE   END
+
+*  Accept leading decimals
+ 400  CONTINUE
+      DMANT=DMANT*1D1+DIGIT
+      CALL sla__IDCHF(STRING,NPTR,NVEC,NDIGIT,DIGIT)
+      GO TO ( 400, 1310,  900,  600, 1300, 1300, 1300, 1300, 1310),NVEC
+*             0-9   SP    D/E    .     +     -     ,   ELSE   END
+
+*  Look for decimal when none preceded the point
+ 500  CONTINUE
+      CALL sla__IDCHF(STRING,NPTR,NVEC,NDIGIT,DIGIT)
+      GO TO ( 700, 500, 9200, 9200, 9200, 9200, 9200, 9200, 9210),NVEC
+*             0-9   SP   D/E    .     +     -     ,   ELSE   END
+
+*  Look for trailing decimals
+ 600  CONTINUE
+      CALL sla__IDCHF(STRING,NPTR,NVEC,NDIGIT,DIGIT)
+      GO TO ( 700, 1310,  900, 1300, 1300, 1300, 1300, 1300, 1310),NVEC
+*             0-9   SP    D/E    .     +     -     ,   ELSE   END
+
+*  Accept trailing decimals
+ 700  CONTINUE
+      NDP=NDP+1
+      DMANT=DMANT*1D1+DIGIT
+      GO TO 600
+
+*  Exponent symbol first in field: default mantissa to 1
+ 800  CONTINUE
+      DMANT=1D0
+
+*  Look for sign of exponent
+ 900  CONTINUE
+      CALL sla__IDCHF(STRING,NPTR,NVEC,NDIGIT,DIGIT)
+      GO TO (1200, 900, 9200, 9200, 1100, 1000, 9200, 9200, 9210),NVEC
+*             0-9   SP   D/E    .     +     -     ,   ELSE   END
+
+*  Exponent negative
+ 1000 CONTINUE
+      ISIGNX=-1
+
+*  Look for first digit of exponent
+ 1100 CONTINUE
+      CALL sla__IDCHF(STRING,NPTR,NVEC,NDIGIT,DIGIT)
+      GO TO (1200, 1100, 9200, 9200, 9200, 9200, 9200, 9200, 9210),NVEC
+*             0-9   SP    D/E    .     +     -     ,   ELSE   END
+
+*  Use exponent digit
+ 1200 CONTINUE
+      NEXP=NEXP*10+NDIGIT
+      IF (NEXP.GT.100) GO TO 9200
+
+*  Look for subsequent digits of exponent
+      CALL sla__IDCHF(STRING,NPTR,NVEC,NDIGIT,DIGIT)
+      GO TO (1200, 1310, 1300, 1300, 1300, 1300, 1300, 1300, 1310),NVEC
+*             0-9   SP    D/E    .     +     -     ,   ELSE   END
+
+*  Combine exponent and decimal place count
+ 1300 CONTINUE
+      NPTR=NPTR-1
+ 1310 CONTINUE
+      NEXP=NEXP*ISIGNX-NDP
+
+*  Skip if net exponent negative
+      IF (NEXP.LT.0) GO TO 1500
+
+*  Positive exponent: scale up
+ 1400 CONTINUE
+      IF (NEXP.LT.10) GO TO 1410
+      DMANT=DMANT*1D10
+      NEXP=NEXP-10
+      GO TO 1400
+ 1410 CONTINUE
+      IF (NEXP.LT.1) GO TO 1600
+      DMANT=DMANT*1D1
+      NEXP=NEXP-1
+      GO TO 1410
+
+*  Negative exponent: scale down
+ 1500 CONTINUE
+      IF (NEXP.GT.-10) GO TO 1510
+      DMANT=DMANT/1D10
+      NEXP=NEXP+10
+      GO TO 1500
+ 1510 CONTINUE
+      IF (NEXP.GT.-1) GO TO 1600
+      DMANT=DMANT/1D1
+      NEXP=NEXP+1
+      GO TO 1510
+
+*  Get result & status
+ 1600 CONTINUE
+      J=0
+      IF (MSIGN.EQ.1) GO TO 1610
+      J=-1
+      DMANT=-DMANT
+ 1610 CONTINUE
+      DRESLT=DMANT
+
+*  Skip to end of field
+ 1620 CONTINUE
+      CALL sla__IDCHF(STRING,NPTR,NVEC,NDIGIT,DIGIT)
+      GO TO (1720, 1620, 1720, 1720, 1720, 1720, 9900, 1720, 9900),NVEC
+*             0-9   SP    D/E    .     +     -     ,   ELSE   END
+
+ 1720 CONTINUE
+      NPTR=NPTR-1
+      GO TO 9900
+
+
+*  Exits
+
+*  Null field
+ 9100 CONTINUE
+      NPTR=NPTR-1
+ 9110 CONTINUE
+      J=1
+      GO TO 9900
+
+*  Errors
+ 9200 CONTINUE
+      NPTR=NPTR-1
+ 9210 CONTINUE
+      J=2
+
+*  Return
+ 9900 CONTINUE
+      NSTRT=NPTR
+      JFLAG=J
+
+      END
diff --git a/src/slalib/dh2e.f b/src/slalib/dh2e.f
new file mode 100644
index 0000000..688a087
--- /dev/null
+++ b/src/slalib/dh2e.f
@@ -0,0 +1,83 @@
+      SUBROUTINE sla_DH2E (AZ, EL, PHI, HA, DEC)
+*+
+*     - - - - -
+*      D E 2 H
+*     - - - - -
+*
+*  Horizon to equatorial coordinates:  Az,El to HA,Dec
+*
+*  (double precision)
+*
+*  Given:
+*     AZ      d     azimuth
+*     EL      d     elevation
+*     PHI     d     observatory latitude
+*
+*  Returned:
+*     HA      d     hour angle
+*     DEC     d     declination
+*
+*  Notes:
+*
+*  1)  All the arguments are angles in radians.
+*
+*  2)  The sign convention for azimuth is north zero, east +pi/2.
+*
+*  3)  HA is returned in the range +/-pi.  Declination is returned
+*      in the range +/-pi/2.
+*
+*  4)  The latitude is (in principle) geodetic.  In critical
+*      applications, corrections for polar motion should be applied.
+*
+*  5)  In some applications it will be important to specify the
+*      correct type of elevation in order to produce the required
+*      type of HA,Dec.  In particular, it may be important to
+*      distinguish between the elevation as affected by refraction,
+*      which will yield the "observed" HA,Dec, and the elevation
+*      in vacuo, which will yield the "topocentric" HA,Dec.  If the
+*      effects of diurnal aberration can be neglected, the
+*      topocentric HA,Dec may be used as an approximation to the
+*      "apparent" HA,Dec.
+*
+*  6)  No range checking of arguments is done.
+*
+*  7)  In applications which involve many such calculations, rather
+*      than calling the present routine it will be more efficient to
+*      use inline code, having previously computed fixed terms such
+*      as sine and cosine of latitude.
+*
+*  P.T.Wallace   Starlink   21 February 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION AZ,EL,PHI,HA,DEC
+
+      DOUBLE PRECISION SA,CA,SE,CE,SP,CP,X,Y,Z,R
+
+
+*  Useful trig functions
+      SA=SIN(AZ)
+      CA=COS(AZ)
+      SE=SIN(EL)
+      CE=COS(EL)
+      SP=SIN(PHI)
+      CP=COS(PHI)
+
+*  HA,Dec as x,y,z
+      X=-CA*CE*SP+SE*CP
+      Y=-SA*CE
+      Z=CA*CE*CP+SE*SP
+
+*  To HA,Dec
+      R=SQRT(X*X+Y*Y)
+      IF (R.EQ.0D0) THEN
+         HA=0D0
+      ELSE
+         HA=ATAN2(Y,X)
+      END IF
+      DEC=ATAN2(Z,R)
+
+      END
diff --git a/src/slalib/dimxv.f b/src/slalib/dimxv.f
new file mode 100644
index 0000000..3da8fad
--- /dev/null
+++ b/src/slalib/dimxv.f
@@ -0,0 +1,51 @@
+      SUBROUTINE sla_DIMXV (DM, VA, VB)
+*+
+*     - - - - - -
+*      D I M X V
+*     - - - - - -
+*
+*  Performs the 3-D backward unitary transformation:
+*
+*     vector VB = (inverse of matrix DM) * vector VA
+*
+*  (double precision)
+*
+*  (n.b.  the matrix must be unitary, as this routine assumes that
+*   the inverse and transpose are identical)
+*
+*  Given:
+*     DM       dp(3,3)    matrix
+*     VA       dp(3)      vector
+*
+*  Returned:
+*     VB       dp(3)      result vector
+*
+*  P.T.Wallace   Starlink   March 1986
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DM(3,3),VA(3),VB(3)
+
+      INTEGER I,J
+      DOUBLE PRECISION W,VW(3)
+
+
+
+*  Inverse of matrix DM * vector VA -> vector VW
+      DO J=1,3
+         W=0D0
+         DO I=1,3
+            W=W+DM(I,J)*VA(I)
+         END DO
+         VW(J)=W
+      END DO
+
+*  Vector VW -> vector VB
+      DO J=1,3
+         VB(J)=VW(J)
+      END DO
+
+      END
diff --git a/src/slalib/djcal.f b/src/slalib/djcal.f
new file mode 100644
index 0000000..7da1a07
--- /dev/null
+++ b/src/slalib/djcal.f
@@ -0,0 +1,77 @@
+      SUBROUTINE sla_DJCAL (NDP, DJM, IYMDF, J)
+*+
+*     - - - - - -
+*      D J C A L
+*     - - - - - -
+*
+*  Modified Julian Date to Gregorian Calendar, expressed
+*  in a form convenient for formatting messages (namely
+*  rounded to a specified precision, and with the fields
+*  stored in a single array)
+*
+*  Given:
+*     NDP      i      number of decimal places of days in fraction
+*     DJM      d      modified Julian Date (JD-2400000.5)
+*
+*  Returned:
+*     IYMDF    i(4)   year, month, day, fraction in Gregorian
+*                     calendar
+*     J        i      status:  nonzero = out of range
+*
+*  Any date after 4701BC March 1 is accepted.
+*
+*  NDP should be 4 or less if internal overflows are to be avoided
+*  on machines which use 32-bit integers.
+*
+*  The algorithm is derived from that of Hatcher 1984
+*  (QJRAS 25, 53-55).
+*
+*  P.T.Wallace   Starlink   27 April 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER NDP
+      DOUBLE PRECISION DJM
+      INTEGER IYMDF(4),J
+
+      INTEGER NFD
+      DOUBLE PRECISION FD,DF,F,D
+      INTEGER JD,N4,ND10
+
+
+
+*  Validate
+      IF (DJM.LE.-2395520D0.OR.DJM.GE.1D9) THEN
+         J=-1
+      ELSE
+         J=0
+
+*     Denominator of fraction
+         NFD=10**MAX(NDP,0)
+         FD=DBLE(NFD)
+
+*     Round date and express in units of fraction
+         DF=ANINT(DJM*FD)
+
+*     Separate day and fraction
+         F=MOD(DF,FD)
+         IF (F.LT.0D0) F=F+FD
+         D=(DF-F)/FD
+
+*     Express day in Gregorian calendar
+         JD=NINT(D)+2400001
+
+         N4=4*(JD+((2*((4*JD-17918)/146097)*3)/4+1)/2-37)
+         ND10=10*(MOD(N4-237,1461)/4)+5
+
+         IYMDF(1)=N4/1461-4712
+         IYMDF(2)=MOD(ND10/306+2,12)+1
+         IYMDF(3)=MOD(ND10,306)/10+1
+         IYMDF(4)=NINT(F)
+
+      END IF
+
+      END
diff --git a/src/slalib/djcl.f b/src/slalib/djcl.f
new file mode 100644
index 0000000..add7a48
--- /dev/null
+++ b/src/slalib/djcl.f
@@ -0,0 +1,68 @@
+      SUBROUTINE sla_DJCL (DJM, IY, IM, ID, FD, J)
+*+
+*     - - - - -
+*      D J C L
+*     - - - - -
+*
+*  Modified Julian Date to Gregorian year, month, day,
+*  and fraction of a day.
+*
+*  Given:
+*     DJM      dp     modified Julian Date (JD-2400000.5)
+*
+*  Returned:
+*     IY       int    year
+*     IM       int    month
+*     ID       int    day
+*     FD       dp     fraction of day
+*     J        int    status:
+*                       0 = OK
+*                      -1 = unacceptable date (before 4701BC March 1)
+*
+*  The algorithm is derived from that of Hatcher 1984
+*  (QJRAS 25, 53-55).
+*
+*  P.T.Wallace   Starlink   27 April 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DJM
+      INTEGER IY,IM,ID
+      DOUBLE PRECISION FD
+      INTEGER J
+
+      DOUBLE PRECISION F,D
+      INTEGER JD,N4,ND10
+
+
+
+*  Check if date is acceptable
+      IF (DJM.LE.-2395520D0.OR.DJM.GE.1D9) THEN
+         J=-1
+      ELSE
+         J=0
+
+*     Separate day and fraction
+         F=MOD(DJM,1D0)
+         IF (F.LT.0D0) F=F+1D0
+         D=ANINT(DJM-F)
+
+*     Express day in Gregorian calendar
+         JD=NINT(D)+2400001
+
+         N4=4*(JD+((6*((4*JD-17918)/146097))/4+1)/2-37)
+         ND10=10*(MOD(N4-237,1461)/4)+5
+
+         IY=N4/1461-4712
+         IM=MOD(ND10/306+2,12)+1
+         ID=MOD(ND10,306)/10+1
+         FD=F
+
+         J=0
+
+      END IF
+
+      END
diff --git a/src/slalib/dm2av.f b/src/slalib/dm2av.f
new file mode 100644
index 0000000..3f684fb
--- /dev/null
+++ b/src/slalib/dm2av.f
@@ -0,0 +1,59 @@
+      SUBROUTINE sla_DM2AV (RMAT, AXVEC)
+*+
+*     - - - - - -
+*      D M 2 A V
+*     - - - - - -
+*
+*  From a rotation matrix, determine the corresponding axial vector.
+*  (double precision)
+*
+*  A rotation matrix describes a rotation about some arbitrary axis.
+*  The axis is called the Euler axis, and the angle through which the
+*  reference frame rotates is called the Euler angle.  The axial
+*  vector returned by this routine has the same direction as the
+*  Euler axis, and its magnitude is the Euler angle in radians.  (The
+*  magnitude and direction can be separated by means of the routine
+*  sla_DVN.)
+*
+*  Given:
+*    RMAT   d(3,3)   rotation matrix
+*
+*  Returned:
+*    AXVEC  d(3)     axial vector (radians)
+*
+*  The reference frame rotates clockwise as seen looking along
+*  the axial vector from the origin.
+*
+*  If RMAT is null, so is the result.
+*
+*  P.T.Wallace   Starlink   24 December 1992
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION RMAT(3,3),AXVEC(3)
+
+      DOUBLE PRECISION X,Y,Z,S2,C2,PHI,F
+
+
+
+      X = RMAT(2,3)-RMAT(3,2)
+      Y = RMAT(3,1)-RMAT(1,3)
+      Z = RMAT(1,2)-RMAT(2,1)
+      S2 = SQRT(X*X+Y*Y+Z*Z)
+      IF (S2.NE.0D0) THEN
+         C2 = (RMAT(1,1)+RMAT(2,2)+RMAT(3,3)-1D0)
+         PHI = ATAN2(S2/2D0,C2/2D0)
+         F = PHI/S2
+         AXVEC(1) = X*F
+         AXVEC(2) = Y*F
+         AXVEC(3) = Z*F
+      ELSE
+         AXVEC(1) = 0D0
+         AXVEC(2) = 0D0
+         AXVEC(3) = 0D0
+      END IF
+
+      END
diff --git a/src/slalib/dmat.f b/src/slalib/dmat.f
new file mode 100644
index 0000000..2480b82
--- /dev/null
+++ b/src/slalib/dmat.f
@@ -0,0 +1,140 @@
+      SUBROUTINE sla_DMAT (N, A, Y, D, JF, IW)
+*+
+*     - - - - -
+*      D M A T
+*     - - - - -
+*
+*  Matrix inversion & solution of simultaneous equations
+*  (double precision)
+*
+*  For the set of n simultaneous equations in n unknowns:
+*     A.Y = X
+*
+*  where:
+*     A is a non-singular N x N matrix
+*     Y is the vector of N unknowns
+*     X is the known vector
+*
+*  DMATRX computes:
+*     the inverse of matrix A
+*     the determinant of matrix A
+*     the vector of N unknowns
+*
+*  Arguments:
+*
+*     symbol  type   dimension           before              after
+*
+*       N      i                    no. of unknowns       unchanged
+*       A      d      (N,N)             matrix             inverse
+*       Y      d       (N)              vector            solution
+*       D      d                           -             determinant
+*     * JF     i                           -           singularity flag
+*       IW     i       (N)                 -              workspace
+*
+*  *  JF is the singularity flag.  If the matrix is non-singular,
+*    JF=0 is returned.  If the matrix is singular, JF=-1 & D=0D0 are
+*    returned.  In the latter case, the contents of array A on return
+*    are undefined.
+*
+*  Algorithm:
+*     Gaussian elimination with partial pivoting.
+*
+*  Speed:
+*     Very fast.
+*
+*  Accuracy:
+*     Fairly accurate - errors 1 to 4 times those of routines optimized
+*     for accuracy.
+*
+*  P.T.Wallace   Starlink   7 February 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER N
+      DOUBLE PRECISION A(N,N),Y(N),D
+      INTEGER JF
+      INTEGER IW(N)
+
+      DOUBLE PRECISION SFA
+      PARAMETER (SFA=1D-20)
+
+      INTEGER K,IMX,I,J,NP1MK,KI
+      DOUBLE PRECISION AMX,T,AKK,YK,AIK
+
+
+      JF=0
+      D=1D0
+      DO K=1,N
+         AMX=DABS(A(K,K))
+         IMX=K
+         IF (K.NE.N) THEN
+            DO I=K+1,N
+               T=DABS(A(I,K))
+               IF (T.GT.AMX) THEN
+                  AMX=T
+                  IMX=I
+               END IF
+            END DO
+         END IF
+         IF (AMX.LT.SFA) THEN
+            JF=-1
+         ELSE
+            IF (IMX.NE.K) THEN
+               DO J=1,N
+                  T=A(K,J)
+                  A(K,J)=A(IMX,J)
+                  A(IMX,J)=T
+               END DO
+               T=Y(K)
+               Y(K)=Y(IMX)
+               Y(IMX)=T
+               D=-D
+            END IF
+            IW(K)=IMX
+            AKK=A(K,K)
+            D=D*AKK
+            IF (DABS(D).LT.SFA) THEN
+               JF=-1
+            ELSE
+               AKK=1D0/AKK
+               A(K,K)=AKK
+               DO J=1,N
+                  IF (J.NE.K) A(K,J)=A(K,J)*AKK
+               END DO
+               YK=Y(K)*AKK
+               Y(K)=YK
+               DO I=1,N
+                  AIK=A(I,K)
+                  IF (I.NE.K) THEN
+                     DO J=1,N
+                        IF (J.NE.K) A(I,J)=A(I,J)-AIK*A(K,J)
+                     END DO
+                     Y(I)=Y(I)-AIK*YK
+                  END IF
+               END DO
+               DO I=1,N
+                  IF (I.NE.K) A(I,K)=-A(I,K)*AKK
+               END DO
+            END IF
+         END IF
+      END DO
+      IF (JF.NE.0) THEN
+         D=0D0
+      ELSE
+         DO K=1,N
+            NP1MK=N+1-K
+            KI=IW(NP1MK)
+            IF (NP1MK.NE.KI) THEN
+               DO I=1,N
+                  T=A(I,NP1MK)
+                  A(I,NP1MK)=A(I,KI)
+                  A(I,KI)=T
+               END DO
+            END IF
+         END DO
+      END IF
+
+      END
diff --git a/src/slalib/dmoon.f b/src/slalib/dmoon.f
new file mode 100644
index 0000000..7794255
--- /dev/null
+++ b/src/slalib/dmoon.f
@@ -0,0 +1,641 @@
+      SUBROUTINE sla_DMOON (DATE, PV)
+*+
+*     - - - - - -
+*      D M O O N
+*     - - - - - -
+*
+*  Approximate geocentric position and velocity of the Moon
+*  (double precision)
+*
+*  Given:
+*     DATE       D       TDB (loosely ET) as a Modified Julian Date
+*                                                    (JD-2400000.5)
+*
+*  Returned:
+*     PV         D(6)    Moon x,y,z,xdot,ydot,zdot, mean equator and
+*                                         equinox of date (AU, AU/s)
+*
+*  Notes:
+*
+*  1  This routine is a full implementation of the algorithm
+*     published by Meeus (see reference).
+*
+*  2  Meeus quotes accuracies of 10 arcsec in longitude, 3 arcsec in
+*     latitude and 0.2 arcsec in HP (equivalent to about 20 km in
+*     distance).  Comparison with JPL DE200 over the interval
+*     1960-2025 gives RMS errors of 3.7 arcsec and 83 mas/hour in
+*     longitude, 2.3 arcsec and 48 mas/hour in latitude, 11 km
+*     and 81 mm/s in distance.  The maximum errors over the same
+*     interval are 18 arcsec and 0.50 arcsec/hour in longitude,
+*     11 arcsec and 0.24 arcsec/hour in latitude, 40 km and 0.29 m/s
+*     in distance. 
+*
+*  3  The original algorithm is expressed in terms of the obsolete
+*     timescale Ephemeris Time.  Either TDB or TT can be used, but
+*     not UT without incurring significant errors (30 arcsec at
+*     the present time) due to the Moon's 0.5 arcsec/sec movement.
+*
+*  4  The algorithm is based on pre IAU 1976 standards.  However,
+*     the result has been moved onto the new (FK5) equinox, an
+*     adjustment which is in any case much smaller than the
+*     intrinsic accuracy of the procedure.
+*
+*  5  Velocity is obtained by a complete analytical differentiation
+*     of the Meeus model.
+*
+*  Reference:
+*     Meeus, l'Astronomie, June 1984, p348.
+*
+*  P.T.Wallace   Starlink   22 January 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE,PV(6)
+
+*  Degrees, arcseconds and seconds of time to radians
+      DOUBLE PRECISION D2R,DAS2R,DS2R
+      PARAMETER (D2R=0.0174532925199432957692369D0,
+     :           DAS2R=4.848136811095359935899141D-6,
+     :           DS2R=7.272205216643039903848712D-5)
+
+*  Seconds per Julian century (86400*36525)
+      DOUBLE PRECISION CJ
+      PARAMETER (CJ=3155760000D0)
+
+*  Julian epoch of B1950
+      DOUBLE PRECISION B1950
+      PARAMETER (B1950=1949.9997904423D0)
+
+*  Earth equatorial radius in AU ( = 6378.137 / 149597870 )
+      DOUBLE PRECISION ERADAU
+      PARAMETER (ERADAU=4.2635212653763D-5)
+
+      DOUBLE PRECISION T,THETA,SINOM,COSOM,DOMCOM,WA,DWA,WB,DWB,WOM,
+     :                 DWOM,SINWOM,COSWOM,V,DV,COEFF,EMN,EMPN,DN,FN,EN,
+     :                 DEN,DTHETA,FTHETA,EL,DEL,B,DB,BF,DBF,P,DP,SP,R,
+     :                 DR,X,Y,Z,XD,YD,ZD,SEL,CEL,SB,CB,RCB,RBD,W,EPJ,
+     :                 EQCOR,EPS,SINEPS,COSEPS,ES,EC
+      INTEGER N,I
+
+*
+*  Coefficients for fundamental arguments
+*
+*   at J1900:  T**0, T**1, T**2, T**3
+*   at epoch:  T**0, T**1
+*
+*  Units are degrees for position and Julian centuries for time
+*
+
+*  Moon's mean longitude
+      DOUBLE PRECISION ELP0,ELP1,ELP2,ELP3,ELP,DELP
+      PARAMETER (ELP0=270.434164D0,
+     :           ELP1=481267.8831D0,
+     :           ELP2=-0.001133D0,
+     :           ELP3=0.0000019D0)
+
+*  Sun's mean anomaly
+      DOUBLE PRECISION EM0,EM1,EM2,EM3,EM,DEM
+      PARAMETER (EM0=358.475833D0,
+     :           EM1=35999.0498D0,
+     :           EM2=-0.000150D0,
+     :           EM3=-0.0000033D0)
+
+*  Moon's mean anomaly
+      DOUBLE PRECISION EMP0,EMP1,EMP2,EMP3,EMP,DEMP
+      PARAMETER (EMP0=296.104608D0,
+     :           EMP1=477198.8491D0,
+     :           EMP2=0.009192D0,
+     :           EMP3=0.0000144D0)
+
+*  Moon's mean elongation
+      DOUBLE PRECISION D0,D1,D2,D3,D,DD
+      PARAMETER (D0=350.737486D0,
+     :           D1=445267.1142D0,
+     :           D2=-0.001436D0,
+     :           D3=0.0000019D0)
+
+*  Mean distance of the Moon from its ascending node
+      DOUBLE PRECISION F0,F1,F2,F3,F,DF
+      PARAMETER (F0=11.250889D0,
+     :           F1=483202.0251D0,
+     :           F2=-0.003211D0,
+     :           F3=-0.0000003D0)
+
+*  Longitude of the Moon's ascending node
+      DOUBLE PRECISION OM0,OM1,OM2,OM3,OM,DOM
+      PARAMETER (OM0=259.183275D0,
+     :           OM1=-1934.1420D0,
+     :           OM2=0.002078D0,
+     :           OM3=0.0000022D0)
+
+*  Coefficients for (dimensionless) E factor
+      DOUBLE PRECISION E1,E2,E,DE,ESQ,DESQ
+      PARAMETER (E1=-0.002495D0,E2=-0.00000752D0)
+
+*  Coefficients for periodic variations etc
+      DOUBLE PRECISION PAC,PA0,PA1
+      PARAMETER (PAC=0.000233D0,PA0=51.2D0,PA1=20.2D0)
+      DOUBLE PRECISION PBC
+      PARAMETER (PBC=-0.001778D0)
+      DOUBLE PRECISION PCC
+      PARAMETER (PCC=0.000817D0)
+      DOUBLE PRECISION PDC
+      PARAMETER (PDC=0.002011D0)
+      DOUBLE PRECISION PEC,PE0,PE1,PE2
+      PARAMETER (PEC=0.003964D0,
+     :                     PE0=346.560D0,PE1=132.870D0,PE2=-0.0091731D0)
+      DOUBLE PRECISION PFC
+      PARAMETER (PFC=0.001964D0)
+      DOUBLE PRECISION PGC
+      PARAMETER (PGC=0.002541D0)
+      DOUBLE PRECISION PHC
+      PARAMETER (PHC=0.001964D0)
+      DOUBLE PRECISION PIC
+      PARAMETER (PIC=-0.024691D0)
+      DOUBLE PRECISION PJC,PJ0,PJ1
+      PARAMETER (PJC=-0.004328D0,PJ0=275.05D0,PJ1=-2.30D0)
+      DOUBLE PRECISION CW1
+      PARAMETER (CW1=0.0004664D0)
+      DOUBLE PRECISION CW2
+      PARAMETER (CW2=0.0000754D0)
+
+*
+*  Coefficients for Moon position
+*
+*   Tx(N)       = coefficient of L, B or P term (deg)
+*   ITx(N,1-5)  = coefficients of M, M', D, F, E**n in argument
+*
+      INTEGER NL,NB,NP
+      PARAMETER (NL=50,NB=45,NP=31)
+      DOUBLE PRECISION TL(NL),TB(NB),TP(NP)
+      INTEGER ITL(5,NL),ITB(5,NB),ITP(5,NP)
+*
+*  Longitude
+*                                         M   M'  D   F   n
+      DATA TL( 1)/            +6.288750D0                     /,
+     :     (ITL(I, 1),I=1,5)/            +0, +1, +0, +0,  0   /
+      DATA TL( 2)/            +1.274018D0                     /,
+     :     (ITL(I, 2),I=1,5)/            +0, -1, +2, +0,  0   /
+      DATA TL( 3)/            +0.658309D0                     /,
+     :     (ITL(I, 3),I=1,5)/            +0, +0, +2, +0,  0   /
+      DATA TL( 4)/            +0.213616D0                     /,
+     :     (ITL(I, 4),I=1,5)/            +0, +2, +0, +0,  0   /
+      DATA TL( 5)/            -0.185596D0                     /,
+     :     (ITL(I, 5),I=1,5)/            +1, +0, +0, +0,  1   /
+      DATA TL( 6)/            -0.114336D0                     /,
+     :     (ITL(I, 6),I=1,5)/            +0, +0, +0, +2,  0   /
+      DATA TL( 7)/            +0.058793D0                     /,
+     :     (ITL(I, 7),I=1,5)/            +0, -2, +2, +0,  0   /
+      DATA TL( 8)/            +0.057212D0                     /,
+     :     (ITL(I, 8),I=1,5)/            -1, -1, +2, +0,  1   /
+      DATA TL( 9)/            +0.053320D0                     /,
+     :     (ITL(I, 9),I=1,5)/            +0, +1, +2, +0,  0   /
+      DATA TL(10)/            +0.045874D0                     /,
+     :     (ITL(I,10),I=1,5)/            -1, +0, +2, +0,  1   /
+      DATA TL(11)/            +0.041024D0                     /,
+     :     (ITL(I,11),I=1,5)/            -1, +1, +0, +0,  1   /
+      DATA TL(12)/            -0.034718D0                     /,
+     :     (ITL(I,12),I=1,5)/            +0, +0, +1, +0,  0   /
+      DATA TL(13)/            -0.030465D0                     /,
+     :     (ITL(I,13),I=1,5)/            +1, +1, +0, +0,  1   /
+      DATA TL(14)/            +0.015326D0                     /,
+     :     (ITL(I,14),I=1,5)/            +0, +0, +2, -2,  0   /
+      DATA TL(15)/            -0.012528D0                     /,
+     :     (ITL(I,15),I=1,5)/            +0, +1, +0, +2,  0   /
+      DATA TL(16)/            -0.010980D0                     /,
+     :     (ITL(I,16),I=1,5)/            +0, -1, +0, +2,  0   /
+      DATA TL(17)/            +0.010674D0                     /,
+     :     (ITL(I,17),I=1,5)/            +0, -1, +4, +0,  0   /
+      DATA TL(18)/            +0.010034D0                     /,
+     :     (ITL(I,18),I=1,5)/            +0, +3, +0, +0,  0   /
+      DATA TL(19)/            +0.008548D0                     /,
+     :     (ITL(I,19),I=1,5)/            +0, -2, +4, +0,  0   /
+      DATA TL(20)/            -0.007910D0                     /,
+     :     (ITL(I,20),I=1,5)/            +1, -1, +2, +0,  1   /
+      DATA TL(21)/            -0.006783D0                     /,
+     :     (ITL(I,21),I=1,5)/            +1, +0, +2, +0,  1   /
+      DATA TL(22)/            +0.005162D0                     /,
+     :     (ITL(I,22),I=1,5)/            +0, +1, -1, +0,  0   /
+      DATA TL(23)/            +0.005000D0                     /,
+     :     (ITL(I,23),I=1,5)/            +1, +0, +1, +0,  1   /
+      DATA TL(24)/            +0.004049D0                     /,
+     :     (ITL(I,24),I=1,5)/            -1, +1, +2, +0,  1   /
+      DATA TL(25)/            +0.003996D0                     /,
+     :     (ITL(I,25),I=1,5)/            +0, +2, +2, +0,  0   /
+      DATA TL(26)/            +0.003862D0                     /,
+     :     (ITL(I,26),I=1,5)/            +0, +0, +4, +0,  0   /
+      DATA TL(27)/            +0.003665D0                     /,
+     :     (ITL(I,27),I=1,5)/            +0, -3, +2, +0,  0   /
+      DATA TL(28)/            +0.002695D0                     /,
+     :     (ITL(I,28),I=1,5)/            -1, +2, +0, +0,  1   /
+      DATA TL(29)/            +0.002602D0                     /,
+     :     (ITL(I,29),I=1,5)/            +0, +1, -2, -2,  0   /
+      DATA TL(30)/            +0.002396D0                     /,
+     :     (ITL(I,30),I=1,5)/            -1, -2, +2, +0,  1   /
+      DATA TL(31)/            -0.002349D0                     /,
+     :     (ITL(I,31),I=1,5)/            +0, +1, +1, +0,  0   /
+      DATA TL(32)/            +0.002249D0                     /,
+     :     (ITL(I,32),I=1,5)/            -2, +0, +2, +0,  2   /
+      DATA TL(33)/            -0.002125D0                     /,
+     :     (ITL(I,33),I=1,5)/            +1, +2, +0, +0,  1   /
+      DATA TL(34)/            -0.002079D0                     /,
+     :     (ITL(I,34),I=1,5)/            +2, +0, +0, +0,  2   /
+      DATA TL(35)/            +0.002059D0                     /,
+     :     (ITL(I,35),I=1,5)/            -2, -1, +2, +0,  2   /
+      DATA TL(36)/            -0.001773D0                     /,
+     :     (ITL(I,36),I=1,5)/            +0, +1, +2, -2,  0   /
+      DATA TL(37)/            -0.001595D0                     /,
+     :     (ITL(I,37),I=1,5)/            +0, +0, +2, +2,  0   /
+      DATA TL(38)/            +0.001220D0                     /,
+     :     (ITL(I,38),I=1,5)/            -1, -1, +4, +0,  1   /
+      DATA TL(39)/            -0.001110D0                     /,
+     :     (ITL(I,39),I=1,5)/            +0, +2, +0, +2,  0   /
+      DATA TL(40)/            +0.000892D0                     /,
+     :     (ITL(I,40),I=1,5)/            +0, +1, -3, +0,  0   /
+      DATA TL(41)/            -0.000811D0                     /,
+     :     (ITL(I,41),I=1,5)/            +1, +1, +2, +0,  1   /
+      DATA TL(42)/            +0.000761D0                     /,
+     :     (ITL(I,42),I=1,5)/            -1, -2, +4, +0,  1   /
+      DATA TL(43)/            +0.000717D0                     /,
+     :     (ITL(I,43),I=1,5)/            -2, +1, +0, +0,  2   /
+      DATA TL(44)/            +0.000704D0                     /,
+     :     (ITL(I,44),I=1,5)/            -2, +1, -2, +0,  2   /
+      DATA TL(45)/            +0.000693D0                     /,
+     :     (ITL(I,45),I=1,5)/            +1, -2, +2, +0,  1   /
+      DATA TL(46)/            +0.000598D0                     /,
+     :     (ITL(I,46),I=1,5)/            -1, +0, +2, -2,  1   /
+      DATA TL(47)/            +0.000550D0                     /,
+     :     (ITL(I,47),I=1,5)/            +0, +1, +4, +0,  0   /
+      DATA TL(48)/            +0.000538D0                     /,
+     :     (ITL(I,48),I=1,5)/            +0, +4, +0, +0,  0   /
+      DATA TL(49)/            +0.000521D0                     /,
+     :     (ITL(I,49),I=1,5)/            -1, +0, +4, +0,  1   /
+      DATA TL(50)/            +0.000486D0                     /,
+     :     (ITL(I,50),I=1,5)/            +0, +2, -1, +0,  0   /
+*
+*  Latitude
+*                                         M   M'  D   F   n
+      DATA TB( 1)/            +5.128189D0                     /,
+     :     (ITB(I, 1),I=1,5)/            +0, +0, +0, +1,  0   /
+      DATA TB( 2)/            +0.280606D0                     /,
+     :     (ITB(I, 2),I=1,5)/            +0, +1, +0, +1,  0   /
+      DATA TB( 3)/            +0.277693D0                     /,
+     :     (ITB(I, 3),I=1,5)/            +0, +1, +0, -1,  0   /
+      DATA TB( 4)/            +0.173238D0                     /,
+     :     (ITB(I, 4),I=1,5)/            +0, +0, +2, -1,  0   /
+      DATA TB( 5)/            +0.055413D0                     /,
+     :     (ITB(I, 5),I=1,5)/            +0, -1, +2, +1,  0   /
+      DATA TB( 6)/            +0.046272D0                     /,
+     :     (ITB(I, 6),I=1,5)/            +0, -1, +2, -1,  0   /
+      DATA TB( 7)/            +0.032573D0                     /,
+     :     (ITB(I, 7),I=1,5)/            +0, +0, +2, +1,  0   /
+      DATA TB( 8)/            +0.017198D0                     /,
+     :     (ITB(I, 8),I=1,5)/            +0, +2, +0, +1,  0   /
+      DATA TB( 9)/            +0.009267D0                     /,
+     :     (ITB(I, 9),I=1,5)/            +0, +1, +2, -1,  0   /
+      DATA TB(10)/            +0.008823D0                     /,
+     :     (ITB(I,10),I=1,5)/            +0, +2, +0, -1,  0   /
+      DATA TB(11)/            +0.008247D0                     /,
+     :     (ITB(I,11),I=1,5)/            -1, +0, +2, -1,  1   /
+      DATA TB(12)/            +0.004323D0                     /,
+     :     (ITB(I,12),I=1,5)/            +0, -2, +2, -1,  0   /
+      DATA TB(13)/            +0.004200D0                     /,
+     :     (ITB(I,13),I=1,5)/            +0, +1, +2, +1,  0   /
+      DATA TB(14)/            +0.003372D0                     /,
+     :     (ITB(I,14),I=1,5)/            -1, +0, -2, +1,  1   /
+      DATA TB(15)/            +0.002472D0                     /,
+     :     (ITB(I,15),I=1,5)/            -1, -1, +2, +1,  1   /
+      DATA TB(16)/            +0.002222D0                     /,
+     :     (ITB(I,16),I=1,5)/            -1, +0, +2, +1,  1   /
+      DATA TB(17)/            +0.002072D0                     /,
+     :     (ITB(I,17),I=1,5)/            -1, -1, +2, -1,  1   /
+      DATA TB(18)/            +0.001877D0                     /,
+     :     (ITB(I,18),I=1,5)/            -1, +1, +0, +1,  1   /
+      DATA TB(19)/            +0.001828D0                     /,
+     :     (ITB(I,19),I=1,5)/            +0, -1, +4, -1,  0   /
+      DATA TB(20)/            -0.001803D0                     /,
+     :     (ITB(I,20),I=1,5)/            +1, +0, +0, +1,  1   /
+      DATA TB(21)/            -0.001750D0                     /,
+     :     (ITB(I,21),I=1,5)/            +0, +0, +0, +3,  0   /
+      DATA TB(22)/            +0.001570D0                     /,
+     :     (ITB(I,22),I=1,5)/            -1, +1, +0, -1,  1   /
+      DATA TB(23)/            -0.001487D0                     /,
+     :     (ITB(I,23),I=1,5)/            +0, +0, +1, +1,  0   /
+      DATA TB(24)/            -0.001481D0                     /,
+     :     (ITB(I,24),I=1,5)/            +1, +1, +0, +1,  1   /
+      DATA TB(25)/            +0.001417D0                     /,
+     :     (ITB(I,25),I=1,5)/            -1, -1, +0, +1,  1   /
+      DATA TB(26)/            +0.001350D0                     /,
+     :     (ITB(I,26),I=1,5)/            -1, +0, +0, +1,  1   /
+      DATA TB(27)/            +0.001330D0                     /,
+     :     (ITB(I,27),I=1,5)/            +0, +0, -1, +1,  0   /
+      DATA TB(28)/            +0.001106D0                     /,
+     :     (ITB(I,28),I=1,5)/            +0, +3, +0, +1,  0   /
+      DATA TB(29)/            +0.001020D0                     /,
+     :     (ITB(I,29),I=1,5)/            +0, +0, +4, -1,  0   /
+      DATA TB(30)/            +0.000833D0                     /,
+     :     (ITB(I,30),I=1,5)/            +0, -1, +4, +1,  0   /
+      DATA TB(31)/            +0.000781D0                     /,
+     :     (ITB(I,31),I=1,5)/            +0, +1, +0, -3,  0   /
+      DATA TB(32)/            +0.000670D0                     /,
+     :     (ITB(I,32),I=1,5)/            +0, -2, +4, +1,  0   /
+      DATA TB(33)/            +0.000606D0                     /,
+     :     (ITB(I,33),I=1,5)/            +0, +0, +2, -3,  0   /
+      DATA TB(34)/            +0.000597D0                     /,
+     :     (ITB(I,34),I=1,5)/            +0, +2, +2, -1,  0   /
+      DATA TB(35)/            +0.000492D0                     /,
+     :     (ITB(I,35),I=1,5)/            -1, +1, +2, -1,  1   /
+      DATA TB(36)/            +0.000450D0                     /,
+     :     (ITB(I,36),I=1,5)/            +0, +2, -2, -1,  0   /
+      DATA TB(37)/            +0.000439D0                     /,
+     :     (ITB(I,37),I=1,5)/            +0, +3, +0, -1,  0   /
+      DATA TB(38)/            +0.000423D0                     /,
+     :     (ITB(I,38),I=1,5)/            +0, +2, +2, +1,  0   /
+      DATA TB(39)/            +0.000422D0                     /,
+     :     (ITB(I,39),I=1,5)/            +0, -3, +2, -1,  0   /
+      DATA TB(40)/            -0.000367D0                     /,
+     :     (ITB(I,40),I=1,5)/            +1, -1, +2, +1,  1   /
+      DATA TB(41)/            -0.000353D0                     /,
+     :     (ITB(I,41),I=1,5)/            +1, +0, +2, +1,  1   /
+      DATA TB(42)/            +0.000331D0                     /,
+     :     (ITB(I,42),I=1,5)/            +0, +0, +4, +1,  0   /
+      DATA TB(43)/            +0.000317D0                     /,
+     :     (ITB(I,43),I=1,5)/            -1, +1, +2, +1,  1   /
+      DATA TB(44)/            +0.000306D0                     /,
+     :     (ITB(I,44),I=1,5)/            -2, +0, +2, -1,  2   /
+      DATA TB(45)/            -0.000283D0                     /,
+     :     (ITB(I,45),I=1,5)/            +0, +1, +0, +3,  0   /
+*
+*  Parallax
+*                                         M   M'  D   F   n
+      DATA TP( 1)/            +0.950724D0                     /,
+     :     (ITP(I, 1),I=1,5)/            +0, +0, +0, +0,  0   /
+      DATA TP( 2)/            +0.051818D0                     /,
+     :     (ITP(I, 2),I=1,5)/            +0, +1, +0, +0,  0   /
+      DATA TP( 3)/            +0.009531D0                     /,
+     :     (ITP(I, 3),I=1,5)/            +0, -1, +2, +0,  0   /
+      DATA TP( 4)/            +0.007843D0                     /,
+     :     (ITP(I, 4),I=1,5)/            +0, +0, +2, +0,  0   /
+      DATA TP( 5)/            +0.002824D0                     /,
+     :     (ITP(I, 5),I=1,5)/            +0, +2, +0, +0,  0   /
+      DATA TP( 6)/            +0.000857D0                     /,
+     :     (ITP(I, 6),I=1,5)/            +0, +1, +2, +0,  0   /
+      DATA TP( 7)/            +0.000533D0                     /,
+     :     (ITP(I, 7),I=1,5)/            -1, +0, +2, +0,  1   /
+      DATA TP( 8)/            +0.000401D0                     /,
+     :     (ITP(I, 8),I=1,5)/            -1, -1, +2, +0,  1   /
+      DATA TP( 9)/            +0.000320D0                     /,
+     :     (ITP(I, 9),I=1,5)/            -1, +1, +0, +0,  1   /
+      DATA TP(10)/            -0.000271D0                     /,
+     :     (ITP(I,10),I=1,5)/            +0, +0, +1, +0,  0   /
+      DATA TP(11)/            -0.000264D0                     /,
+     :     (ITP(I,11),I=1,5)/            +1, +1, +0, +0,  1   /
+      DATA TP(12)/            -0.000198D0                     /,
+     :     (ITP(I,12),I=1,5)/            +0, -1, +0, +2,  0   /
+      DATA TP(13)/            +0.000173D0                     /,
+     :     (ITP(I,13),I=1,5)/            +0, +3, +0, +0,  0   /
+      DATA TP(14)/            +0.000167D0                     /,
+     :     (ITP(I,14),I=1,5)/            +0, -1, +4, +0,  0   /
+      DATA TP(15)/            -0.000111D0                     /,
+     :     (ITP(I,15),I=1,5)/            +1, +0, +0, +0,  1   /
+      DATA TP(16)/            +0.000103D0                     /,
+     :     (ITP(I,16),I=1,5)/            +0, -2, +4, +0,  0   /
+      DATA TP(17)/            -0.000084D0                     /,
+     :     (ITP(I,17),I=1,5)/            +0, +2, -2, +0,  0   /
+      DATA TP(18)/            -0.000083D0                     /,
+     :     (ITP(I,18),I=1,5)/            +1, +0, +2, +0,  1   /
+      DATA TP(19)/            +0.000079D0                     /,
+     :     (ITP(I,19),I=1,5)/            +0, +2, +2, +0,  0   /
+      DATA TP(20)/            +0.000072D0                     /,
+     :     (ITP(I,20),I=1,5)/            +0, +0, +4, +0,  0   /
+      DATA TP(21)/            +0.000064D0                     /,
+     :     (ITP(I,21),I=1,5)/            -1, +1, +2, +0,  1   /
+      DATA TP(22)/            -0.000063D0                     /,
+     :     (ITP(I,22),I=1,5)/            +1, -1, +2, +0,  1   /
+      DATA TP(23)/            +0.000041D0                     /,
+     :     (ITP(I,23),I=1,5)/            +1, +0, +1, +0,  1   /
+      DATA TP(24)/            +0.000035D0                     /,
+     :     (ITP(I,24),I=1,5)/            -1, +2, +0, +0,  1   /
+      DATA TP(25)/            -0.000033D0                     /,
+     :     (ITP(I,25),I=1,5)/            +0, +3, -2, +0,  0   /
+      DATA TP(26)/            -0.000030D0                     /,
+     :     (ITP(I,26),I=1,5)/            +0, +1, +1, +0,  0   /
+      DATA TP(27)/            -0.000029D0                     /,
+     :     (ITP(I,27),I=1,5)/            +0, +0, -2, +2,  0   /
+      DATA TP(28)/            -0.000029D0                     /,
+     :     (ITP(I,28),I=1,5)/            +1, +2, +0, +0,  1   /
+      DATA TP(29)/            +0.000026D0                     /,
+     :     (ITP(I,29),I=1,5)/            -2, +0, +2, +0,  2   /
+      DATA TP(30)/            -0.000023D0                     /,
+     :     (ITP(I,30),I=1,5)/            +0, +1, -2, +2,  0   /
+      DATA TP(31)/            +0.000019D0                     /,
+     :     (ITP(I,31),I=1,5)/            -1, -1, +4, +0,  1   /
+
+
+
+*  Centuries since J1900
+      T=(DATE-15019.5D0)/36525D0
+
+*
+*  Fundamental arguments (radians) and derivatives (radians per
+*  Julian century) for the current epoch
+*
+
+*  Moon's mean longitude
+      ELP=D2R*MOD(ELP0+(ELP1+(ELP2+ELP3*T)*T)*T,360D0)
+      DELP=D2R*(ELP1+(2D0*ELP2+3D0*ELP3*T)*T)
+
+*  Sun's mean anomaly
+      EM=D2R*MOD(EM0+(EM1+(EM2+EM3*T)*T)*T,360D0)
+      DEM=D2R*(EM1+(2D0*EM2+3D0*EM3*T)*T)
+
+*  Moon's mean anomaly
+      EMP=D2R*MOD(EMP0+(EMP1+(EMP2+EMP3*T)*T)*T,360D0)
+      DEMP=D2R*(EMP1+(2D0*EMP2+3D0*EMP3*T)*T)
+
+*  Moon's mean elongation
+      D=D2R*MOD(D0+(D1+(D2+D3*T)*T)*T,360D0)
+      DD=D2R*(D1+(2D0*D2+3D0*D3*T)*T)
+
+*  Mean distance of the Moon from its ascending node
+      F=D2R*MOD(F0+(F1+(F2+F3*T)*T)*T,360D0)
+      DF=D2R*(F1+(2D0*F2+3D0*F3*T)*T)
+
+*  Longitude of the Moon's ascending node
+      OM=D2R*MOD(OM0+(OM1+(OM2+OM3*T)*T)*T,360D0)
+      DOM=D2R*(OM1+(2D0*OM2+3D0*OM3*T)*T)
+      SINOM=SIN(OM)
+      COSOM=COS(OM)
+      DOMCOM=DOM*COSOM
+
+*  Add the periodic variations
+      THETA=D2R*(PA0+PA1*T)
+      WA=SIN(THETA)
+      DWA=D2R*PA1*COS(THETA)
+      THETA=D2R*(PE0+(PE1+PE2*T)*T)
+      WB=PEC*SIN(THETA)
+      DWB=D2R*PEC*(PE1+2D0*PE2*T)*COS(THETA)
+      ELP=ELP+D2R*(PAC*WA+WB+PFC*SINOM)
+      DELP=DELP+D2R*(PAC*DWA+DWB+PFC*DOMCOM)
+      EM=EM+D2R*PBC*WA
+      DEM=DEM+D2R*PBC*DWA
+      EMP=EMP+D2R*(PCC*WA+WB+PGC*SINOM)
+      DEMP=DEMP+D2R*(PCC*DWA+DWB+PGC*DOMCOM)
+      D=D+D2R*(PDC*WA+WB+PHC*SINOM)
+      DD=DD+D2R*(PDC*DWA+DWB+PHC*DOMCOM)
+      WOM=OM+D2R*(PJ0+PJ1*T)
+      DWOM=DOM+D2R*PJ1
+      SINWOM=SIN(WOM)
+      COSWOM=COS(WOM)
+      F=F+D2R*(WB+PIC*SINOM+PJC*SINWOM)
+      DF=DF+D2R*(DWB+PIC*DOMCOM+PJC*DWOM*COSWOM)
+
+*  E-factor, and square
+      E=1D0+(E1+E2*T)*T
+      DE=E1+2D0*E2*T
+      ESQ=E*E
+      DESQ=2D0*E*DE
+
+*
+*  Series expansions
+*
+
+*  Longitude
+      V=0D0
+      DV=0D0
+      DO N=NL,1,-1
+         COEFF=TL(N)
+         EMN=DBLE(ITL(1,N))
+         EMPN=DBLE(ITL(2,N))
+         DN=DBLE(ITL(3,N))
+         FN=DBLE(ITL(4,N))
+         I=ITL(5,N)
+         IF (I.EQ.0) THEN
+            EN=1D0
+            DEN=0D0
+         ELSE IF (I.EQ.1) THEN
+            EN=E
+            DEN=DE
+         ELSE
+            EN=ESQ
+            DEN=DESQ
+         END IF
+         THETA=EMN*EM+EMPN*EMP+DN*D+FN*F
+         DTHETA=EMN*DEM+EMPN*DEMP+DN*DD+FN*DF
+         FTHETA=SIN(THETA)
+         V=V+COEFF*FTHETA*EN
+         DV=DV+COEFF*(COS(THETA)*DTHETA*EN+FTHETA*DEN)
+      END DO
+      EL=ELP+D2R*V
+      DEL=(DELP+D2R*DV)/CJ
+
+*  Latitude
+      V=0D0
+      DV=0D0
+      DO N=NB,1,-1
+         COEFF=TB(N)
+         EMN=DBLE(ITB(1,N))
+         EMPN=DBLE(ITB(2,N))
+         DN=DBLE(ITB(3,N))
+         FN=DBLE(ITB(4,N))
+         I=ITB(5,N)
+         IF (I.EQ.0) THEN
+            EN=1D0
+            DEN=0D0
+         ELSE IF (I.EQ.1) THEN
+            EN=E
+            DEN=DE
+         ELSE
+            EN=ESQ
+            DEN=DESQ
+         END IF
+         THETA=EMN*EM+EMPN*EMP+DN*D+FN*F
+         DTHETA=EMN*DEM+EMPN*DEMP+DN*DD+FN*DF
+         FTHETA=SIN(THETA)
+         V=V+COEFF*FTHETA*EN
+         DV=DV+COEFF*(COS(THETA)*DTHETA*EN+FTHETA*DEN)
+      END DO
+      BF=1D0-CW1*COSOM-CW2*COSWOM
+      DBF=CW1*DOM*SINOM+CW2*DWOM*SINWOM
+      B=D2R*V*BF
+      DB=D2R*(DV*BF+V*DBF)/CJ
+
+*  Parallax
+      V=0D0
+      DV=0D0
+      DO N=NP,1,-1
+         COEFF=TP(N)
+         EMN=DBLE(ITP(1,N))
+         EMPN=DBLE(ITP(2,N))
+         DN=DBLE(ITP(3,N))
+         FN=DBLE(ITP(4,N))
+         I=ITP(5,N)
+         IF (I.EQ.0) THEN
+            EN=1D0
+            DEN=0D0
+         ELSE IF (I.EQ.1) THEN
+            EN=E
+            DEN=DE
+         ELSE
+            EN=ESQ
+            DEN=DESQ
+         END IF
+         THETA=EMN*EM+EMPN*EMP+DN*D+FN*F
+         DTHETA=EMN*DEM+EMPN*DEMP+DN*DD+FN*DF
+         FTHETA=COS(THETA)
+         V=V+COEFF*FTHETA*EN
+         DV=DV+COEFF*(-SIN(THETA)*DTHETA*EN+FTHETA*DEN)
+      END DO
+      P=D2R*V
+      DP=D2R*DV/CJ
+
+*
+*  Transformation into final form
+*
+
+*  Parallax to distance (AU, AU/sec)
+      SP=SIN(P)
+      R=ERADAU/SP
+      DR=-R*DP*COS(P)/SP
+
+*  Longitude, latitude to x,y,z (AU)
+      SEL=SIN(EL)
+      CEL=COS(EL)
+      SB=SIN(B)
+      CB=COS(B)
+      RCB=R*CB
+      RBD=R*DB
+      W=RBD*SB-CB*DR
+      X=RCB*CEL
+      Y=RCB*SEL
+      Z=R*SB
+      XD=-Y*DEL-W*CEL
+      YD=X*DEL-W*SEL
+      ZD=RBD*CB+SB*DR
+
+*  Julian centuries since J2000
+      T=(DATE-51544.5D0)/36525D0
+
+*  Fricke equinox correction
+      EPJ=2000D0+T*100D0
+      EQCOR=DS2R*(0.035D0+0.00085D0*(EPJ-B1950))
+
+*  Mean obliquity (IAU 1976)
+      EPS=DAS2R*(84381.448D0+(-46.8150D0+(-0.00059D0+0.001813D0*T)*T)*T)
+
+*  To the equatorial system, mean of date, FK5 system
+      SINEPS=SIN(EPS)
+      COSEPS=COS(EPS)
+      ES=EQCOR*SINEPS
+      EC=EQCOR*COSEPS
+      PV(1)=X-EC*Y+ES*Z
+      PV(2)=EQCOR*X+Y*COSEPS-Z*SINEPS
+      PV(3)=Y*SINEPS+Z*COSEPS
+      PV(4)=XD-EC*YD+ES*ZD
+      PV(5)=EQCOR*XD+YD*COSEPS-ZD*SINEPS
+      PV(6)=YD*SINEPS+ZD*COSEPS
+
+      END
diff --git a/src/slalib/dmxm.f b/src/slalib/dmxm.f
new file mode 100644
index 0000000..41f3d99
--- /dev/null
+++ b/src/slalib/dmxm.f
@@ -0,0 +1,56 @@
+      SUBROUTINE sla_DMXM (A, B, C)
+*+
+*     - - - - -
+*      D M X M
+*     - - - - -
+*
+*  Product of two 3x3 matrices:
+*
+*      matrix C  =  matrix A  x  matrix B
+*
+*  (double precision)
+*
+*  Given:
+*      A      dp(3,3)        matrix
+*      B      dp(3,3)        matrix
+*
+*  Returned:
+*      C      dp(3,3)        matrix result
+*
+*  To comply with the ANSI Fortran 77 standard, A, B and C must
+*  be different arrays.  However, the routine is coded so as to
+*  work properly on the VAX and many other systems even if this
+*  rule is violated.
+*
+*  P.T.Wallace   Starlink   5 April 1990
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION A(3,3),B(3,3),C(3,3)
+
+      INTEGER I,J,K
+      DOUBLE PRECISION W,WM(3,3)
+
+
+*  Multiply into scratch matrix
+      DO I=1,3
+         DO J=1,3
+            W=0D0
+            DO K=1,3
+               W=W+A(I,K)*B(K,J)
+            END DO
+            WM(I,J)=W
+         END DO
+      END DO
+
+*  Return the result
+      DO J=1,3
+         DO I=1,3
+            C(I,J)=WM(I,J)
+         END DO
+      END DO
+
+      END
diff --git a/src/slalib/dmxv.f b/src/slalib/dmxv.f
new file mode 100644
index 0000000..e70a28e
--- /dev/null
+++ b/src/slalib/dmxv.f
@@ -0,0 +1,47 @@
+      SUBROUTINE sla_DMXV (DM, VA, VB)
+*+
+*     - - - - -
+*      D M X V
+*     - - - - -
+*
+*  Performs the 3-D forward unitary transformation:
+*
+*     vector VB = matrix DM * vector VA
+*
+*  (double precision)
+*
+*  Given:
+*     DM       dp(3,3)    matrix
+*     VA       dp(3)      vector
+*
+*  Returned:
+*     VB       dp(3)      result vector
+*
+*  P.T.Wallace   Starlink   March 1986
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DM(3,3),VA(3),VB(3)
+
+      INTEGER I,J
+      DOUBLE PRECISION W,VW(3)
+
+
+*  Matrix DM * vector VA -> vector VW
+      DO J=1,3
+         W=0D0
+         DO I=1,3
+            W=W+DM(J,I)*VA(I)
+         END DO
+         VW(J)=W
+      END DO
+
+*  Vector VW -> vector VB
+      DO J=1,3
+         VB(J)=VW(J)
+      END DO
+
+      END
diff --git a/src/slalib/dpav.f b/src/slalib/dpav.f
new file mode 100644
index 0000000..63ad759
--- /dev/null
+++ b/src/slalib/dpav.f
@@ -0,0 +1,72 @@
+      DOUBLE PRECISION FUNCTION sla_DPAV ( V1, V2 )
+*+
+*     - - - - -
+*      D P A V
+*     - - - - -
+*
+*  Position angle of one celestial direction with respect to another.
+*
+*  (double precision)
+*
+*  Given:
+*     V1    d(3)    direction cosines of one point
+*     V2    d(3)    direction cosines of the other point
+*
+*  (The coordinate frames correspond to RA,Dec, Long,Lat etc.)
+*
+*  The result is the bearing (position angle), in radians, of point
+*  V2 with respect to point V1.  It is in the range +/- pi.  The
+*  sense is such that if V2 is a small distance east of V1, the
+*  bearing is about +pi/2.  Zero is returned if the two points
+*  are coincident.
+*
+*  V1 and V2 need not be unit vectors.
+*
+*  The routine sla_DBEAR performs an equivalent function except
+*  that the points are specified in the form of spherical
+*  coordinates.
+*
+*  Patrick Wallace   Starlink   13 July 1997
+*
+*  Copyright (C) 1997 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION V1(3),V2(3)
+
+      DOUBLE PRECISION X1,Y1,Z1,W,R,XU1,YU1,ZU1,DX,DY,DZ,SQ,CQ
+
+
+
+*  Unit vector to point 1
+      X1=V1(1)
+      Y1=V1(2)
+      Z1=V1(3)
+      W=SQRT(X1*X1+Y1*Y1+Z1*Z1)
+      IF (W.NE.0D0) THEN
+         X1=X1/W
+         Y1=Y1/W
+         Z1=Z1/W
+      END IF
+
+*  Unit vector "north" from point 1
+      R=SQRT(X1*X1+Y1*Y1)
+      IF (R.EQ.0.0) R=1D-5
+      W=Z1/R
+      XU1=-X1*W
+      YU1=-Y1*W
+      ZU1=R
+
+*  Vector from point 1 to point 2
+      DX=V2(1)-X1
+      DY=V2(2)-Y1
+      DZ=V2(3)-Z1
+
+*  Position angle
+      SQ=DX*YU1*Z1+DY*ZU1*X1+DZ*XU1*Y1-DZ*YU1*X1-DY*XU1*Z1-DX*ZU1*Y1
+      CQ=DX*XU1+DY*YU1+DZ*ZU1
+      IF (SQ.EQ.0D0.AND.CQ.EQ.0D0) CQ=1D0
+      sla_DPAV=ATAN2(SQ,CQ)
+
+      END
diff --git a/src/slalib/dr2af.f b/src/slalib/dr2af.f
new file mode 100644
index 0000000..3f9dbf3
--- /dev/null
+++ b/src/slalib/dr2af.f
@@ -0,0 +1,58 @@
+      SUBROUTINE sla_DR2AF (NDP, ANGLE, SIGN, IDMSF)
+*+
+*     - - - - - -
+*      D R 2 A F
+*     - - - - - -
+*
+*  Convert an angle in radians to degrees, arcminutes, arcseconds
+*  (double precision)
+*
+*  Given:
+*     NDP      i      number of decimal places of arcseconds
+*     ANGLE    d      angle in radians
+*
+*  Returned:
+*     SIGN     c      '+' or '-'
+*     IDMSF    i(4)   degrees, arcminutes, arcseconds, fraction
+*
+*  Notes:
+*
+*     1)  NDP less than zero is interpreted as zero.
+*
+*     2)  The largest useful value for NDP is determined by the size
+*         of ANGLE, the format of DOUBLE PRECISION floating-point
+*         numbers on the target machine, and the risk of overflowing
+*         IDMSF(4).  For example, on the VAX, for ANGLE up to 2pi, the
+*         available floating-point precision corresponds roughly to
+*         NDP=12.  However, the practical limit is NDP=9, set by the
+*         capacity of the 32-bit integer IDMSF(4).
+*
+*     3)  The absolute value of ANGLE may exceed 2pi.  In cases where it
+*         does not, it is up to the caller to test for and handle the
+*         case where ANGLE is very nearly 2pi and rounds up to 360 deg,
+*         by testing for IDMSF(1)=360 and setting IDMSF(1-4) to zero.
+*
+*  Called:  sla_DD2TF
+*
+*  P.T.Wallace   Starlink   19 March 1999
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER NDP
+      DOUBLE PRECISION ANGLE
+      CHARACTER SIGN*(*)
+      INTEGER IDMSF(4)
+
+*  Hours to degrees * radians to turns
+      DOUBLE PRECISION F
+      PARAMETER (F=15D0/6.283185307179586476925287D0)
+
+
+
+*  Scale then use days to h,m,s routine
+      CALL sla_DD2TF(NDP,ANGLE*F,SIGN,IDMSF)
+
+      END
diff --git a/src/slalib/dr2tf.f b/src/slalib/dr2tf.f
new file mode 100644
index 0000000..f8f2a71
--- /dev/null
+++ b/src/slalib/dr2tf.f
@@ -0,0 +1,58 @@
+      SUBROUTINE sla_DR2TF (NDP, ANGLE, SIGN, IHMSF)
+*+
+*     - - - - - -
+*      D R 2 T F
+*     - - - - - -
+*
+*  Convert an angle in radians to hours, minutes, seconds
+*  (double precision)
+*
+*  Given:
+*     NDP      i      number of decimal places of seconds
+*     ANGLE    d      angle in radians
+*
+*  Returned:
+*     SIGN     c      '+' or '-'
+*     IHMSF    i(4)   hours, minutes, seconds, fraction
+*
+*  Notes:
+*
+*     1)  NDP less than zero is interpreted as zero.
+*
+*     2)  The largest useful value for NDP is determined by the size
+*         of ANGLE, the format of DOUBLE PRECISION floating-point
+*         numbers on the target machine, and the risk of overflowing
+*         IHMSF(4).  For example, on the VAX, for ANGLE up to 2pi, the
+*         available floating-point precision corresponds roughly to
+*         NDP=12.  However, the practical limit is NDP=9, set by the
+*         capacity of the 32-bit integer IHMSF(4).
+*
+*     3)  The absolute value of ANGLE may exceed 2pi.  In cases where it
+*         does not, it is up to the caller to test for and handle the
+*         case where ANGLE is very nearly 2pi and rounds up to 24 hours,
+*         by testing for IHMSF(1)=24 and setting IHMSF(1-4) to zero.
+*
+*  Called:  sla_DD2TF
+*
+*  P.T.Wallace   Starlink   19 March 1999
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER NDP
+      DOUBLE PRECISION ANGLE
+      CHARACTER SIGN*(*)
+      INTEGER IHMSF(4)
+
+*  Turns to radians
+      DOUBLE PRECISION T2R
+      PARAMETER (T2R=6.283185307179586476925287D0)
+
+
+
+*  Scale then use days to h,m,s routine
+      CALL sla_DD2TF(NDP,ANGLE/T2R,SIGN,IHMSF)
+
+      END
diff --git a/src/slalib/drange.f b/src/slalib/drange.f
new file mode 100644
index 0000000..9e678af
--- /dev/null
+++ b/src/slalib/drange.f
@@ -0,0 +1,32 @@
+      DOUBLE PRECISION FUNCTION sla_DRANGE (ANGLE)
+*+
+*     - - - - - - -
+*      D R A N G E
+*     - - - - - - -
+*
+*  Normalize angle into range +/- pi  (double precision)
+*
+*  Given:
+*     ANGLE     dp      the angle in radians
+*
+*  The result (double precision) is ANGLE expressed in the range +/- pi.
+*
+*  P.T.Wallace   Starlink   23 November 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION ANGLE
+
+      DOUBLE PRECISION DPI,D2PI
+      PARAMETER (DPI=3.141592653589793238462643D0)
+      PARAMETER (D2PI=6.283185307179586476925287D0)
+
+
+      sla_DRANGE=MOD(ANGLE,D2PI)
+      IF (ABS(sla_DRANGE).GE.DPI)
+     :          sla_DRANGE=sla_DRANGE-SIGN(D2PI,ANGLE)
+
+      END
diff --git a/src/slalib/dranrm.f b/src/slalib/dranrm.f
new file mode 100644
index 0000000..ee9af25
--- /dev/null
+++ b/src/slalib/dranrm.f
@@ -0,0 +1,31 @@
+      DOUBLE PRECISION FUNCTION sla_DRANRM (ANGLE)
+*+
+*     - - - - - - -
+*      D R A N R M
+*     - - - - - - -
+*
+*  Normalize angle into range 0-2 pi  (double precision)
+*
+*  Given:
+*     ANGLE     dp      the angle in radians
+*
+*  The result is ANGLE expressed in the range 0-2 pi (double
+*  precision).
+*
+*  P.T.Wallace   Starlink   23 November 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION ANGLE
+
+      DOUBLE PRECISION D2PI
+      PARAMETER (D2PI=6.283185307179586476925286766559D0)
+
+
+      sla_DRANRM=MOD(ANGLE,D2PI)
+      IF (sla_DRANRM.LT.0D0) sla_DRANRM=sla_DRANRM+D2PI
+
+      END
diff --git a/src/slalib/ds2c6.f b/src/slalib/ds2c6.f
new file mode 100644
index 0000000..56298f3
--- /dev/null
+++ b/src/slalib/ds2c6.f
@@ -0,0 +1,57 @@
+      SUBROUTINE sla_DS2C6 (A, B, R, AD, BD, RD, V)
+*+
+*     - - - - - -
+*      D S 2 C 6
+*     - - - - - -
+*
+*  Conversion of position & velocity in spherical coordinates
+*  to Cartesian coordinates
+*
+*  (double precision)
+*
+*  Given:
+*     A     dp      longitude (radians)
+*     B     dp      latitude (radians)
+*     R     dp      radial coordinate
+*     AD    dp      longitude derivative (radians per unit time)
+*     BD    dp      latitude derivative (radians per unit time)
+*     RD    dp      radial derivative
+*
+*  Returned:
+*     V     dp(6)   Cartesian position & velocity vector
+*
+*  P.T.Wallace   Starlink   10 July 1993
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION A,B,R,AD,BD,RD,V(6)
+
+      DOUBLE PRECISION SA,CA,SB,CB,RCB,X,Y,RBD,W
+
+
+
+*  Useful functions
+      SA=SIN(A)
+      CA=COS(A)
+      SB=SIN(B)
+      CB=COS(B)
+      RCB=R*CB
+      X=RCB*CA
+      Y=RCB*SA
+      RBD=R*BD
+      W=RBD*SB-CB*RD
+
+*  Position
+      V(1)=X
+      V(2)=Y
+      V(3)=R*SB
+
+*  Velocity
+      V(4)=-Y*AD-W*CA
+      V(5)=X*AD-W*SA
+      V(6)=RBD*CB+SB*RD
+
+      END
diff --git a/src/slalib/ds2tp.f b/src/slalib/ds2tp.f
new file mode 100644
index 0000000..ab1ccf9
--- /dev/null
+++ b/src/slalib/ds2tp.f
@@ -0,0 +1,67 @@
+      SUBROUTINE sla_DS2TP (RA, DEC, RAZ, DECZ, XI, ETA, J)
+*+
+*     - - - - - -
+*      D S 2 T P
+*     - - - - - -
+*
+*  Projection of spherical coordinates onto tangent plane:
+*  "gnomonic" projection - "standard coordinates" (double precision)
+*
+*  Given:
+*     RA,DEC      dp   spherical coordinates of point to be projected
+*     RAZ,DECZ    dp   spherical coordinates of tangent point
+*
+*  Returned:
+*     XI,ETA      dp   rectangular coordinates on tangent plane
+*     J           int  status:   0 = OK, star on tangent plane
+*                                1 = error, star too far from axis
+*                                2 = error, antistar on tangent plane
+*                                3 = error, antistar too far from axis
+*
+*  P.T.Wallace   Starlink   18 July 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION RA,DEC,RAZ,DECZ,XI,ETA
+      INTEGER J
+
+      DOUBLE PRECISION SDECZ,SDEC,CDECZ,CDEC,
+     :                 RADIF,SRADIF,CRADIF,DENOM
+
+      DOUBLE PRECISION TINY
+      PARAMETER (TINY=1D-6)
+
+
+*  Trig functions
+      SDECZ=SIN(DECZ)
+      SDEC=SIN(DEC)
+      CDECZ=COS(DECZ)
+      CDEC=COS(DEC)
+      RADIF=RA-RAZ
+      SRADIF=SIN(RADIF)
+      CRADIF=COS(RADIF)
+
+*  Reciprocal of star vector length to tangent plane
+      DENOM=SDEC*SDECZ+CDEC*CDECZ*CRADIF
+
+*  Handle vectors too far from axis
+      IF (DENOM.GT.TINY) THEN
+         J=0
+      ELSE IF (DENOM.GE.0D0) THEN
+         J=1
+         DENOM=TINY
+      ELSE IF (DENOM.GT.-TINY) THEN
+         J=2
+         DENOM=-TINY
+      ELSE
+         J=3
+      END IF
+
+*  Compute tangent plane coordinates (even in dubious cases)
+      XI=CDEC*SRADIF/DENOM
+      ETA=(SDEC*CDECZ-CDEC*SDECZ*CRADIF)/DENOM
+
+      END
diff --git a/src/slalib/dsep.f b/src/slalib/dsep.f
new file mode 100644
index 0000000..b1bd4be
--- /dev/null
+++ b/src/slalib/dsep.f
@@ -0,0 +1,48 @@
+      DOUBLE PRECISION FUNCTION sla_DSEP (A1, B1, A2, B2)
+*+
+*     - - - - -
+*      D S E P
+*     - - - - -
+*
+*  Angle between two points on a sphere (double precision)
+*
+*  Given:
+*     A1,B1    dp    spherical coordinates of one point
+*     A2,B2    dp    spherical coordinates of the other point
+*
+*  (The spherical coordinates are RA,Dec, Long,Lat etc, in radians.)
+*
+*  The result is the angle, in radians, between the two points.  It
+*  is always positive.
+*
+*  Called:  sla_DCS2C
+*
+*  P.T.Wallace   Starlink   April 1985
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION A1,B1,A2,B2
+
+      INTEGER I
+      DOUBLE PRECISION V1(3),V2(3),W
+
+
+
+*  Convert coordinates from spherical to Cartesian
+      CALL sla_DCS2C(A1,B1,V1)
+      CALL sla_DCS2C(A2,B2,V2)
+
+*  Modulus squared of half the difference vector
+      W=0D0
+      DO I=1,3
+         W=W+(V1(I)-V2(I))**2
+      END DO
+      W=W/4D0
+
+*  Angle between the vectors
+      sla_DSEP=2D0*ATAN2(SQRT(W),SQRT(MAX(0D0,1D0-W)))
+
+      END
diff --git a/src/slalib/dt.f b/src/slalib/dt.f
new file mode 100644
index 0000000..d46c7be
--- /dev/null
+++ b/src/slalib/dt.f
@@ -0,0 +1,79 @@
+      DOUBLE PRECISION FUNCTION sla_DT (EPOCH)
+*+
+*     - - -
+*      D T
+*     - - -
+*
+*  Estimate the offset between dynamical time and Universal Time
+*  for a given historical epoch.
+*
+*  Given:
+*     EPOCH       d        (Julian) epoch (e.g. 1850D0)
+*
+*  The result is a rough estimate of ET-UT (after 1984, TT-UT) at
+*  the given epoch, in seconds.
+*
+*  Notes:
+*
+*  1  Depending on the epoch, one of three parabolic approximations
+*     is used:
+*
+*      before 979    Stephenson & Morrison's 390 BC to AD 948 model
+*      979 to 1708   Stephenson & Morrison's 948 to 1600 model
+*      after 1708    McCarthy & Babcock's post-1650 model
+*
+*     The breakpoints are chosen to ensure continuity:  they occur
+*     at places where the adjacent models give the same answer as
+*     each other.
+*
+*  2  The accuracy is modest, with errors of up to 20 sec during
+*     the interval since 1650, rising to perhaps 30 min by 1000 BC.
+*     Comparatively accurate values from AD 1600 are tabulated in
+*     the Astronomical Almanac (see section K8 of the 1995 AA).
+*
+*  3  The use of double-precision for both argument and result is
+*     purely for compatibility with other SLALIB time routines.
+*
+*  4  The models used are based on a lunar tidal acceleration value
+*     of -26.00 arcsec per century.
+*
+*  Reference:  Explanatory Supplement to the Astronomical Almanac,
+*              ed P.K.Seidelmann, University Science Books (1992),
+*              section 2.553, p83.  This contains references to
+*              the Stephenson & Morrison and McCarthy & Babcock
+*              papers.
+*
+*  P.T.Wallace   Starlink   1 March 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION EPOCH
+      DOUBLE PRECISION T,W,S
+
+
+*  Centuries since 1800
+      T=(EPOCH-1800D0)/100D0
+
+*  Select model
+      IF (EPOCH.GE.1708.185161980887D0) THEN
+
+*     Post-1708: use McCarthy & Babcock
+         W=T-0.19D0
+         S=5.156D0+13.3066D0*W*W
+      ELSE IF (EPOCH.GE.979.0258204760233D0) THEN
+
+*     979-1708: use Stephenson & Morrison's 948-1600 model
+         S=25.5D0*T*T
+      ELSE
+
+*     Pre-979: use Stephenson & Morrison's 390 BC to AD 948 model
+         S=1360.0D0+(320D0+44.3D0*T)*T
+      END IF
+
+*  Result
+      sla_DT=S
+
+      END
diff --git a/src/slalib/dtf2d.f b/src/slalib/dtf2d.f
new file mode 100644
index 0000000..4a25ac6
--- /dev/null
+++ b/src/slalib/dtf2d.f
@@ -0,0 +1,55 @@
+      SUBROUTINE sla_DTF2D (IHOUR, IMIN, SEC, DAYS, J)
+*+
+*     - - - - - -
+*      D T F 2 D
+*     - - - - - -
+*
+*  Convert hours, minutes, seconds to days (double precision)
+*
+*  Given:
+*     IHOUR       int       hours
+*     IMIN        int       minutes
+*     SEC         dp        seconds
+*
+*  Returned:
+*     DAYS        dp        interval in days
+*     J           int       status:  0 = OK
+*                                    1 = IHOUR outside range 0-23
+*                                    2 = IMIN outside range 0-59
+*                                    3 = SEC outside range 0-59.999...
+*
+*  Notes:
+*
+*     1)  The result is computed even if any of the range checks fail.
+*
+*     2)  The sign must be dealt with outside this routine.
+*
+*  P.T.Wallace   Starlink   July 1984
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER IHOUR,IMIN
+      DOUBLE PRECISION SEC,DAYS
+      INTEGER J
+
+*  Seconds per day
+      DOUBLE PRECISION D2S
+      PARAMETER (D2S=86400D0)
+
+
+
+*  Preset status
+      J=0
+
+*  Validate sec, min, hour
+      IF (SEC.LT.0D0.OR.SEC.GE.60D0) J=3
+      IF (IMIN.LT.0.OR.IMIN.GT.59) J=2
+      IF (IHOUR.LT.0.OR.IHOUR.GT.23) J=1
+
+*  Compute interval
+      DAYS=(60D0*(60D0*DBLE(IHOUR)+DBLE(IMIN))+SEC)/D2S
+
+      END
diff --git a/src/slalib/dtf2r.f b/src/slalib/dtf2r.f
new file mode 100644
index 0000000..b100889
--- /dev/null
+++ b/src/slalib/dtf2r.f
@@ -0,0 +1,53 @@
+      SUBROUTINE sla_DTF2R (IHOUR, IMIN, SEC, RAD, J)
+*+
+*     - - - - - -
+*      D T F 2 R
+*     - - - - - -
+*
+*  Convert hours, minutes, seconds to radians (double precision)
+*
+*  Given:
+*     IHOUR       int       hours
+*     IMIN        int       minutes
+*     SEC         dp        seconds
+*
+*  Returned:
+*     RAD         dp        angle in radians
+*     J           int       status:  0 = OK
+*                                    1 = IHOUR outside range 0-23
+*                                    2 = IMIN outside range 0-59
+*                                    3 = SEC outside range 0-59.999...
+*
+*  Called:
+*     sla_DTF2D
+*
+*  Notes:
+*
+*     1)  The result is computed even if any of the range checks fail.
+*
+*     2)  The sign must be dealt with outside this routine.
+*
+*  P.T.Wallace   Starlink   July 1984
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER IHOUR,IMIN
+      DOUBLE PRECISION SEC,RAD
+      INTEGER J
+
+      DOUBLE PRECISION TURNS
+
+*  Turns to radians
+      DOUBLE PRECISION T2R
+      PARAMETER (T2R=6.283185307179586476925287D0)
+
+
+
+*  Convert to turns then radians
+      CALL sla_DTF2D(IHOUR,IMIN,SEC,TURNS,J)
+      RAD=T2R*TURNS
+
+      END
diff --git a/src/slalib/dtp2s.f b/src/slalib/dtp2s.f
new file mode 100644
index 0000000..0a67a11
--- /dev/null
+++ b/src/slalib/dtp2s.f
@@ -0,0 +1,42 @@
+      SUBROUTINE sla_DTP2S (XI, ETA, RAZ, DECZ, RA, DEC)
+*+
+*     - - - - - -
+*      D T P 2 S
+*     - - - - - -
+*
+*  Transform tangent plane coordinates into spherical
+*  (double precision)
+*
+*  Given:
+*     XI,ETA      dp   tangent plane rectangular coordinates
+*     RAZ,DECZ    dp   spherical coordinates of tangent point
+*
+*  Returned:
+*     RA,DEC      dp   spherical coordinates (0-2pi,+/-pi/2)
+*
+*  Called:        sla_DRANRM
+*
+*  P.T.Wallace   Starlink   24 July 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION XI,ETA,RAZ,DECZ,RA,DEC
+
+      DOUBLE PRECISION sla_DRANRM
+
+      DOUBLE PRECISION SDECZ,CDECZ,DENOM
+
+
+
+      SDECZ=SIN(DECZ)
+      CDECZ=COS(DECZ)
+
+      DENOM=CDECZ-ETA*SDECZ
+
+      RA=sla_DRANRM(ATAN2(XI,DENOM)+RAZ)
+      DEC=ATAN2(SDECZ+ETA*CDECZ,SQRT(XI*XI+DENOM*DENOM))
+
+      END
diff --git a/src/slalib/dtp2v.f b/src/slalib/dtp2v.f
new file mode 100644
index 0000000..e1795b9
--- /dev/null
+++ b/src/slalib/dtp2v.f
@@ -0,0 +1,56 @@
+      SUBROUTINE sla_DTP2V (XI, ETA, V0, V)
+*+
+*     - - - - - -
+*      D T P 2 V
+*     - - - - - -
+*
+*  Given the tangent-plane coordinates of a star and the direction
+*  cosines of the tangent point, determine the direction cosines
+*  of the star.
+*
+*  (double precision)
+*
+*  Given:
+*     XI,ETA    d       tangent plane coordinates of star
+*     V0        d(3)    direction cosines of tangent point
+*
+*  Returned:
+*     V         d(3)    direction cosines of star
+*
+*  Notes:
+*
+*  1  If vector V0 is not of unit length, the returned vector V will
+*     be wrong.
+*
+*  2  If vector V0 points at a pole, the returned vector V will be
+*     based on the arbitrary assumption that the RA of the tangent
+*     point is zero.
+*
+*  3  This routine is the Cartesian equivalent of the routine sla_DTP2S.
+*
+*  P.T.Wallace   Starlink   11 February 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION XI,ETA,V0(3),V(3)
+
+      DOUBLE PRECISION X,Y,Z,F,R
+
+
+      X=V0(1)
+      Y=V0(2)
+      Z=V0(3)
+      F=SQRT(1D0+XI*XI+ETA*ETA)
+      R=SQRT(X*X+Y*Y)
+      IF (R.EQ.0D0) THEN
+         R=1D-20
+         X=R
+      END IF
+      V(1)=(X-(XI*Y+ETA*X*Z)/R)/F
+      V(2)=(Y+(XI*X-ETA*Y*Z)/R)/F
+      V(3)=(Z+ETA*R)/F
+
+      END
diff --git a/src/slalib/dtps2c.f b/src/slalib/dtps2c.f
new file mode 100644
index 0000000..43e3bad
--- /dev/null
+++ b/src/slalib/dtps2c.f
@@ -0,0 +1,91 @@
+      SUBROUTINE sla_DTPS2C (XI, ETA, RA, DEC, RAZ1, DECZ1,
+     :                                         RAZ2, DECZ2, N)
+*+
+*     - - - - - - -
+*      D T P S 2 C
+*     - - - - - - -
+*
+*  From the tangent plane coordinates of a star of known RA,Dec,
+*  determine the RA,Dec of the tangent point.
+*
+*  (double precision)
+*
+*  Given:
+*     XI,ETA      d    tangent plane rectangular coordinates
+*     RA,DEC      d    spherical coordinates
+*
+*  Returned:
+*     RAZ1,DECZ1  d    spherical coordinates of tangent point, solution 1
+*     RAZ2,DECZ2  d    spherical coordinates of tangent point, solution 2
+*     N           i    number of solutions:
+*                        0 = no solutions returned (note 2)
+*                        1 = only the first solution is useful (note 3)
+*                        2 = both solutions are useful (note 3)
+*
+*  Notes:
+*
+*  1  The RAZ1 and RAZ2 values are returned in the range 0-2pi.
+*
+*  2  Cases where there is no solution can only arise near the poles.
+*     For example, it is clearly impossible for a star at the pole
+*     itself to have a non-zero XI value, and hence it is
+*     meaningless to ask where the tangent point would have to be
+*     to bring about this combination of XI and DEC.
+*
+*  3  Also near the poles, cases can arise where there are two useful
+*     solutions.  The argument N indicates whether the second of the
+*     two solutions returned is useful.  N=1 indicates only one useful
+*     solution, the usual case;  under these circumstances, the second
+*     solution corresponds to the "over-the-pole" case, and this is
+*     reflected in the values of RAZ2 and DECZ2 which are returned.
+*
+*  4  The DECZ1 and DECZ2 values are returned in the range +/-pi, but
+*     in the usual, non-pole-crossing, case, the range is +/-pi/2.
+*
+*  5  This routine is the spherical equivalent of the routine sla_DTPV2C.
+*
+*  Called:  sla_DRANRM
+*
+*  P.T.Wallace   Starlink   5 June 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION XI,ETA,RA,DEC,RAZ1,DECZ1,RAZ2,DECZ2
+      INTEGER N
+
+      DOUBLE PRECISION X2,Y2,SD,CD,SDF,R2,R,S,C
+
+      DOUBLE PRECISION sla_DRANRM
+
+
+      X2=XI*XI
+      Y2=ETA*ETA
+      SD=SIN(DEC)
+      CD=COS(DEC)
+      SDF=SD*SQRT(1D0+X2+Y2)
+      R2=CD*CD*(1D0+Y2)-SD*SD*X2
+      IF (R2.GE.0D0) THEN
+         R=SQRT(R2)
+         S=SDF-ETA*R
+         C=SDF*ETA+R
+         IF (XI.EQ.0D0.AND.R.EQ.0D0) R=1D0
+         RAZ1=sla_DRANRM(RA-ATAN2(XI,R))
+         DECZ1=ATAN2(S,C)
+         R=-R
+         S=SDF-ETA*R
+         C=SDF*ETA+R
+         RAZ2=sla_DRANRM(RA-ATAN2(XI,R))
+         DECZ2=ATAN2(S,C)
+         IF (ABS(SDF).LT.1D0) THEN
+            N=1
+         ELSE
+            N=2
+         END IF
+      ELSE
+         N=0
+      END IF
+
+      END
diff --git a/src/slalib/dtpv2c.f b/src/slalib/dtpv2c.f
new file mode 100644
index 0000000..6ea2c29
--- /dev/null
+++ b/src/slalib/dtpv2c.f
@@ -0,0 +1,83 @@
+      SUBROUTINE sla_DTPV2C (XI, ETA, V, V01, V02, N)
+*+
+*     - - - - - - -
+*      D T P V 2 C
+*     - - - - - - -
+*
+*  Given the tangent-plane coordinates of a star and its direction
+*  cosines, determine the direction cosines of the tangent-point.
+*
+*  (double precision)
+*
+*  Given:
+*     XI,ETA    d       tangent plane coordinates of star
+*     V         d(3)    direction cosines of star
+*
+*  Returned:
+*     V01       d(3)    direction cosines of tangent point, solution 1
+*     V02       d(3)    direction cosines of tangent point, solution 2
+*     N         i       number of solutions:
+*                         0 = no solutions returned (note 2)
+*                         1 = only the first solution is useful (note 3)
+*                         2 = both solutions are useful (note 3)
+*
+*  Notes:
+*
+*  1  The vector V must be of unit length or the result will be wrong.
+*
+*  2  Cases where there is no solution can only arise near the poles.
+*     For example, it is clearly impossible for a star at the pole
+*     itself to have a non-zero XI value, and hence it is meaningless
+*     to ask where the tangent point would have to be.
+*
+*  3  Also near the poles, cases can arise where there are two useful
+*     solutions.  The argument N indicates whether the second of the
+*     two solutions returned is useful.  N=1 indicates only one useful
+*     solution, the usual case;  under these circumstances, the second
+*     solution can be regarded as valid if the vector V02 is interpreted
+*     as the "over-the-pole" case.
+*
+*  4  This routine is the Cartesian equivalent of the routine sla_DTPS2C.
+*
+*  P.T.Wallace   Starlink   5 June 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION XI,ETA,V(3),V01(3),V02(3)
+      INTEGER N
+
+      DOUBLE PRECISION X,Y,Z,RXY2,XI2,ETA2P1,SDF,R2,R,C
+
+
+      X=V(1)
+      Y=V(2)
+      Z=V(3)
+      RXY2=X*X+Y*Y
+      XI2=XI*XI
+      ETA2P1=ETA*ETA+1D0
+      SDF=Z*SQRT(XI2+ETA2P1)
+      R2=RXY2*ETA2P1-Z*Z*XI2
+      IF (R2.GT.0D0) THEN
+         R=SQRT(R2)
+         C=(SDF*ETA+R)/(ETA2P1*SQRT(RXY2*(R2+XI2)))
+         V01(1)=C*(X*R+Y*XI)
+         V01(2)=C*(Y*R-X*XI)
+         V01(3)=(SDF-ETA*R)/ETA2P1
+         R=-R
+         C=(SDF*ETA+R)/(ETA2P1*SQRT(RXY2*(R2+XI2)))
+         V02(1)=C*(X*R+Y*XI)
+         V02(2)=C*(Y*R-X*XI)
+         V02(3)=(SDF-ETA*R)/ETA2P1
+         IF (ABS(SDF).LT.1D0) THEN
+            N=1
+         ELSE
+            N=2
+         END IF
+      ELSE
+         N=0
+      END IF
+
+      END
diff --git a/src/slalib/dtt.f b/src/slalib/dtt.f
new file mode 100644
index 0000000..9d456ef
--- /dev/null
+++ b/src/slalib/dtt.f
@@ -0,0 +1,46 @@
+      DOUBLE PRECISION FUNCTION sla_DTT (UTC)
+*+
+*     - - - -
+*      D T T
+*     - - - -
+*
+*  Increment to be applied to Coordinated Universal Time UTC to give
+*  Terrestrial Time TT (formerly Ephemeris Time ET)
+*
+*  (double precision)
+*
+*  Given:
+*     UTC      d      UTC date as a modified JD (JD-2400000.5)
+*
+*  Result:  TT-UTC in seconds
+*
+*  Notes:
+*
+*  1  The UTC is specified to be a date rather than a time to indicate
+*     that care needs to be taken not to specify an instant which lies
+*     within a leap second.  Though in most cases UTC can include the
+*     fractional part, correct behaviour on the day of a leap second
+*     can only be guaranteed up to the end of the second 23:59:59.
+*
+*  2  Pre 1972 January 1 a fixed value of 10 + ET-TAI is returned.
+*
+*  3  See also the routine sla_DT, which roughly estimates ET-UT for
+*     historical epochs.
+*
+*  Called:  sla_DAT
+*
+*  P.T.Wallace   Starlink   6 December 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION UTC
+
+      DOUBLE PRECISION sla_DAT
+
+
+      sla_DTT=32.184D0+sla_DAT(UTC)
+
+      END
diff --git a/src/slalib/dv2tp.f b/src/slalib/dv2tp.f
new file mode 100644
index 0000000..9bf2c33
--- /dev/null
+++ b/src/slalib/dv2tp.f
@@ -0,0 +1,78 @@
+      SUBROUTINE sla_DV2TP (V, V0, XI, ETA, J)
+*+
+*     - - - - - -
+*      D V 2 T P
+*     - - - - - -
+*
+*  Given the direction cosines of a star and of the tangent point,
+*  determine the star's tangent-plane coordinates.
+*
+*  (double precision)
+*
+*  Given:
+*     V         d(3)    direction cosines of star
+*     V0        d(3)    direction cosines of tangent point
+*
+*  Returned:
+*     XI,ETA    d       tangent plane coordinates of star
+*     J         i       status:   0 = OK
+*                                 1 = error, star too far from axis
+*                                 2 = error, antistar on tangent plane
+*                                 3 = error, antistar too far from axis
+*
+*  Notes:
+*
+*  1  If vector V0 is not of unit length, or if vector V is of zero
+*     length, the results will be wrong.
+*
+*  2  If V0 points at a pole, the returned XI,ETA will be based on the
+*     arbitrary assumption that the RA of the tangent point is zero.
+*
+*  3  This routine is the Cartesian equivalent of the routine sla_DS2TP.
+*
+*  P.T.Wallace   Starlink   27 November 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION V(3),V0(3),XI,ETA
+      INTEGER J
+
+      DOUBLE PRECISION X,Y,Z,X0,Y0,Z0,R2,R,W,D
+
+      DOUBLE PRECISION TINY
+      PARAMETER (TINY=1D-6)
+
+
+      X=V(1)
+      Y=V(2)
+      Z=V(3)
+      X0=V0(1)
+      Y0=V0(2)
+      Z0=V0(3)
+      R2=X0*X0+Y0*Y0
+      R=SQRT(R2)
+      IF (R.EQ.0D0) THEN
+         R=1D-20
+         X0=R
+      END IF
+      W=X*X0+Y*Y0
+      D=W+Z*Z0
+      IF (D.GT.TINY) THEN
+         J=0
+      ELSE IF (D.GE.0D0) THEN
+         J=1
+         D=TINY
+      ELSE IF (D.GT.-TINY) THEN
+         J=2
+         D=-TINY
+      ELSE
+         J=3
+      END IF
+      D=D*R
+      XI=(Y*X0-X*Y0)/D
+      ETA=(Z*R2-Z0*W)/D
+
+      END
diff --git a/src/slalib/dvdv.f b/src/slalib/dvdv.f
new file mode 100644
index 0000000..ab3e411
--- /dev/null
+++ b/src/slalib/dvdv.f
@@ -0,0 +1,27 @@
+      DOUBLE PRECISION FUNCTION sla_DVDV (VA, VB)
+*+
+*     - - - - -
+*      D V D V
+*     - - - - -
+*
+*  Scalar product of two 3-vectors  (double precision)
+*
+*  Given:
+*      VA      dp(3)     first vector
+*      VB      dp(3)     second vector
+*
+*  The result is the scalar product VA.VB (double precision)
+*
+*  P.T.Wallace   Starlink   November 1984
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION VA(3),VB(3)
+
+
+      sla_DVDV=VA(1)*VB(1)+VA(2)*VB(2)+VA(3)*VB(3)
+
+      END
diff --git a/src/slalib/dvn.f b/src/slalib/dvn.f
new file mode 100644
index 0000000..37a4a6d
--- /dev/null
+++ b/src/slalib/dvn.f
@@ -0,0 +1,46 @@
+      SUBROUTINE sla_DVN (V, UV, VM)
+*+
+*     - - - -
+*      D V N
+*     - - - -
+*
+*  Normalizes a 3-vector also giving the modulus (double precision)
+*
+*  Given:
+*     V       dp(3)      vector
+*
+*  Returned:
+*     UV      dp(3)      unit vector in direction of V
+*     VM      dp         modulus of V
+*
+*  If the modulus of V is zero, UV is set to zero as well
+*
+*  P.T.Wallace   Starlink   23 November 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION V(3),UV(3),VM
+
+      INTEGER I
+      DOUBLE PRECISION W1,W2
+
+
+*  Modulus
+      W1=0D0
+      DO I=1,3
+         W2=V(I)
+         W1=W1+W2*W2
+      END DO
+      W1=SQRT(W1)
+      VM=W1
+
+*  Normalize the vector
+      IF (W1.LE.0D0) W1=1D0
+      DO I=1,3
+         UV(I)=V(I)/W1
+      END DO
+
+      END
diff --git a/src/slalib/dvxv.f b/src/slalib/dvxv.f
new file mode 100644
index 0000000..389deb4
--- /dev/null
+++ b/src/slalib/dvxv.f
@@ -0,0 +1,39 @@
+      SUBROUTINE sla_DVXV (VA, VB, VC)
+*+
+*     - - - - -
+*      D V X V
+*     - - - - -
+*
+*  Vector product of two 3-vectors  (double precision)
+*
+*  Given:
+*      VA      dp(3)     first vector
+*      VB      dp(3)     second vector
+*
+*  Returned:
+*      VC      dp(3)     vector result
+*
+*  P.T.Wallace   Starlink   March 1986
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION VA(3),VB(3),VC(3)
+
+      DOUBLE PRECISION VW(3)
+      INTEGER I
+
+
+*  Form the vector product VA cross VB
+      VW(1)=VA(2)*VB(3)-VA(3)*VB(2)
+      VW(2)=VA(3)*VB(1)-VA(1)*VB(3)
+      VW(3)=VA(1)*VB(2)-VA(2)*VB(1)
+
+*  Return the result
+      DO I=1,3
+         VC(I)=VW(I)
+      END DO
+
+      END
diff --git a/src/slalib/e2h.f b/src/slalib/e2h.f
new file mode 100644
index 0000000..03e36d3
--- /dev/null
+++ b/src/slalib/e2h.f
@@ -0,0 +1,89 @@
+      SUBROUTINE sla_E2H (HA, DEC, PHI, AZ, EL)
+*+
+*     - - - -
+*      E 2 H
+*     - - - -
+*
+*  Equatorial to horizon coordinates:  HA,Dec to Az,El
+*
+*  (single precision)
+*
+*  Given:
+*     HA      r     hour angle
+*     DEC     r     declination
+*     PHI     r     observatory latitude
+*
+*  Returned:
+*     AZ      r     azimuth
+*     EL      r     elevation
+*
+*  Notes:
+*
+*  1)  All the arguments are angles in radians.
+*
+*  2)  Azimuth is returned in the range 0-2pi;  north is zero,
+*      and east is +pi/2.  Elevation is returned in the range
+*      +/-pi/2.
+*
+*  3)  The latitude must be geodetic.  In critical applications,
+*      corrections for polar motion should be applied.
+*
+*  4)  In some applications it will be important to specify the
+*      correct type of hour angle and declination in order to
+*      produce the required type of azimuth and elevation.  In
+*      particular, it may be important to distinguish between
+*      elevation as affected by refraction, which would
+*      require the "observed" HA,Dec, and the elevation
+*      in vacuo, which would require the "topocentric" HA,Dec.
+*      If the effects of diurnal aberration can be neglected, the
+*      "apparent" HA,Dec may be used instead of the topocentric
+*      HA,Dec.
+*
+*  5)  No range checking of arguments is carried out.
+*
+*  6)  In applications which involve many such calculations, rather
+*      than calling the present routine it will be more efficient to
+*      use inline code, having previously computed fixed terms such
+*      as sine and cosine of latitude, and (for tracking a star)
+*      sine and cosine of declination.
+*
+*  P.T.Wallace   Starlink   9 July 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL HA,DEC,PHI,AZ,EL
+
+      REAL R2PI
+      PARAMETER (R2PI=6.283185307179586476925286766559)
+
+      REAL SH,CH,SD,CD,SP,CP,X,Y,Z,R,A
+
+
+*  Useful trig functions
+      SH=SIN(HA)
+      CH=COS(HA)
+      SD=SIN(DEC)
+      CD=COS(DEC)
+      SP=SIN(PHI)
+      CP=COS(PHI)
+
+*  Az,El as x,y,z
+      X=-CH*CD*SP+SD*CP
+      Y=-SH*CD
+      Z=CH*CD*CP+SD*SP
+
+*  To spherical
+      R=SQRT(X*X+Y*Y)
+      IF (R.EQ.0.0) THEN
+         A=0.0
+      ELSE
+         A=ATAN2(Y,X)
+      END IF
+      IF (A.LT.0.0) A=A+R2PI
+      AZ=A
+      EL=ATAN2(Z,R)
+
+      END
diff --git a/src/slalib/earth.f b/src/slalib/earth.f
new file mode 100644
index 0000000..f37ba2e
--- /dev/null
+++ b/src/slalib/earth.f
@@ -0,0 +1,111 @@
+      SUBROUTINE sla_EARTH (IY, ID, FD, PV)
+*+
+*     - - - - - -
+*      E A R T H
+*     - - - - - -
+*
+*  Approximate heliocentric position and velocity of the Earth
+*
+*  Given:
+*     IY       I       year
+*     ID       I       day in year (1 = Jan 1st)
+*     FD       R       fraction of day
+*
+*  Returned:
+*     PV       R(6)    Earth position & velocity vector
+*
+*  Notes:
+*
+*  1  The date and time is TDB (loosely ET) in a Julian calendar
+*     which has been aligned to the ordinary Gregorian
+*     calendar for the interval 1900 March 1 to 2100 February 28.
+*     The year and day can be obtained by calling sla_CALYD or
+*     sla_CLYD.
+*
+*  2  The Earth heliocentric 6-vector is mean equator and equinox
+*     of date.  Position part, PV(1-3), is in AU;  velocity part,
+*     PV(4-6), is in AU/sec.
+*
+*  3  Max/RMS errors 1950-2050:
+*       13/5 E-5 AU = 19200/7600 km in position
+*       47/26 E-10 AU/s = 0.0070/0.0039 km/s in speed
+*
+*  4  More precise results are obtainable with the routine sla_EVP.
+*
+*  P.T.Wallace   Starlink   23 November 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER IY,ID
+      REAL FD,PV(6)
+
+      INTEGER IY4
+      REAL TWOPI,SPEED,REMB,SEMB,YI,YF,T,ELM,GAMMA,EM,ELT,EPS0,
+     :     E,ESQ,V,R,ELMM,COSELT,SINEPS,COSEPS,W1,W2,SELMM,CELMM
+
+      PARAMETER (TWOPI=6.28318530718)
+
+*  Mean orbital speed of Earth, AU/s
+      PARAMETER (SPEED=1.9913E-7)
+
+*  Mean Earth:EMB distance and speed, AU and AU/s
+      PARAMETER (REMB=3.12E-5,SEMB=8.31E-11)
+
+
+
+*  Whole years & fraction of year, and years since J1900.0
+      YI=FLOAT(IY-1900)
+      IY4=MOD(MOD(IY,4)+4,4)
+      YF=(FLOAT(4*(ID-1/(IY4+1))-IY4-2)+4.0*FD)/1461.0
+      T=YI+YF
+
+*  Geometric mean longitude of Sun
+*  (cf 4.881627938+6.283319509911*T MOD 2PI)
+      ELM=MOD(4.881628+TWOPI*YF+0.00013420*T,TWOPI)
+
+*  Mean longitude of perihelion
+      GAMMA=4.908230+3.0005E-4*T
+
+*  Mean anomaly
+      EM=ELM-GAMMA
+
+*  Mean obliquity
+      EPS0=0.40931975-2.27E-6*T
+
+*  Eccentricity
+      E=0.016751-4.2E-7*T
+      ESQ=E*E
+
+*  True anomaly
+      V=EM+2.0*E*SIN(EM)+1.25*ESQ*SIN(2.0*EM)
+
+*  True ecliptic longitude
+      ELT=V+GAMMA
+
+*  True distance
+      R=(1.0-ESQ)/(1.0+E*COS(V))
+
+*  Moon's mean longitude
+      ELMM=MOD(4.72+83.9971*T,TWOPI)
+
+*  Useful functions
+      COSELT=COS(ELT)
+      SINEPS=SIN(EPS0)
+      COSEPS=COS(EPS0)
+      W1=-R*SIN(ELT)
+      W2=-SPEED*(COSELT+E*COS(GAMMA))
+      SELMM=SIN(ELMM)
+      CELMM=COS(ELMM)
+
+*  Earth position and velocity
+      PV(1)=-R*COSELT-REMB*CELMM
+      PV(2)=(W1-REMB*SELMM)*COSEPS
+      PV(3)=W1*SINEPS
+      PV(4)=SPEED*(SIN(ELT)+E*SIN(GAMMA))+SEMB*SELMM
+      PV(5)=(W2-SEMB*CELMM)*COSEPS
+      PV(6)=W2*SINEPS
+
+      END
diff --git a/src/slalib/ecleq.f b/src/slalib/ecleq.f
new file mode 100644
index 0000000..5aa93c9
--- /dev/null
+++ b/src/slalib/ecleq.f
@@ -0,0 +1,55 @@
+      SUBROUTINE sla_ECLEQ (DL, DB, DATE, DR, DD)
+*+
+*     - - - - - -
+*      E C L E Q
+*     - - - - - -
+*
+*  Transformation from ecliptic coordinates to
+*  J2000.0 equatorial coordinates (double precision)
+*
+*  Given:
+*     DL,DB       dp      ecliptic longitude and latitude
+*                           (mean of date, IAU 1980 theory, radians)
+*     DATE        dp      TDB (loosely ET) as Modified Julian Date
+*                                              (JD-2400000.5)
+*  Returned:
+*     DR,DD       dp      J2000.0 mean RA,Dec (radians)
+*
+*  Called:
+*     sla_DCS2C, sla_ECMAT, sla_DIMXV, sla_PREC, sla_EPJ, sla_DCC2S,
+*     sla_DRANRM, sla_DRANGE
+*
+*  P.T.Wallace   Starlink   March 1986
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DL,DB,DATE,DR,DD
+
+      DOUBLE PRECISION sla_EPJ,sla_DRANRM,sla_DRANGE
+
+      DOUBLE PRECISION RMAT(3,3),V1(3),V2(3)
+
+
+
+*  Spherical to Cartesian
+      CALL sla_DCS2C(DL,DB,V1)
+
+*  Ecliptic to equatorial
+      CALL sla_ECMAT(DATE,RMAT)
+      CALL sla_DIMXV(RMAT,V1,V2)
+
+*  Mean of date to J2000
+      CALL sla_PREC(2000D0,sla_EPJ(DATE),RMAT)
+      CALL sla_DIMXV(RMAT,V2,V1)
+
+*  Cartesian to spherical
+      CALL sla_DCC2S(V1,DR,DD)
+
+*  Express in conventional ranges
+      DR=sla_DRANRM(DR)
+      DD=sla_DRANGE(DD)
+
+      END
diff --git a/src/slalib/ecmat.f b/src/slalib/ecmat.f
new file mode 100644
index 0000000..3a1f8d4
--- /dev/null
+++ b/src/slalib/ecmat.f
@@ -0,0 +1,52 @@
+      SUBROUTINE sla_ECMAT (DATE, RMAT)
+*+
+*     - - - - - -
+*      E C M A T
+*     - - - - - -
+*
+*  Form the equatorial to ecliptic rotation matrix - IAU 1980 theory
+*  (double precision)
+*
+*  Given:
+*     DATE     dp         TDB (loosely ET) as Modified Julian Date
+*                                            (JD-2400000.5)
+*  Returned:
+*     RMAT     dp(3,3)    matrix
+*
+*  Reference:
+*     Murray,C.A., Vectorial Astrometry, section 4.3.
+*
+*  Note:
+*    The matrix is in the sense   V(ecl)  =  RMAT * V(equ);  the
+*    equator, equinox and ecliptic are mean of date.
+*
+*  Called:  sla_DEULER
+*
+*  P.T.Wallace   Starlink   23 August 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE,RMAT(3,3)
+
+*  Arc seconds to radians
+      DOUBLE PRECISION AS2R
+      PARAMETER (AS2R=0.484813681109535994D-5)
+
+      DOUBLE PRECISION T,EPS0
+
+
+
+*  Interval between basic epoch J2000.0 and current epoch (JC)
+      T = (DATE-51544.5D0)/36525D0
+
+*  Mean obliquity
+      EPS0 = AS2R*
+     :   (84381.448D0+(-46.8150D0+(-0.00059D0+0.001813D0*T)*T)*T)
+
+*  Matrix
+      CALL sla_DEULER('X',EPS0,0D0,0D0,RMAT)
+
+      END
diff --git a/src/slalib/ecor.f b/src/slalib/ecor.f
new file mode 100644
index 0000000..b936909
--- /dev/null
+++ b/src/slalib/ecor.f
@@ -0,0 +1,78 @@
+      SUBROUTINE sla_ECOR (RM, DM, IY, ID, FD, RV, TL)
+*+
+*     - - - - -
+*      E C O R
+*     - - - - -
+*
+*  Component of Earth orbit velocity and heliocentric
+*  light time in a given direction (single precision)
+*
+*  Given:
+*     RM,DM    real    mean RA, Dec of date (radians)
+*     IY       int     year
+*     ID       int     day in year (1 = Jan 1st)
+*     FD       real    fraction of day
+*
+*  Returned:
+*     RV       real    component of Earth orbital velocity (km/sec)
+*     TL       real    component of heliocentric light time (sec)
+*
+*  Notes:
+*
+*  1  The date and time is TDB (loosely ET) in a Julian calendar
+*     which has been aligned to the ordinary Gregorian
+*     calendar for the interval 1900 March 1 to 2100 February 28.
+*     The year and day can be obtained by calling sla_CALYD or
+*     sla_CLYD.
+*
+*  2  Sign convention:
+*
+*     The velocity component is +ve when the Earth is receding from
+*     the given point on the sky.  The light time component is +ve
+*     when the Earth lies between the Sun and the given point on
+*     the sky.
+*
+*  3  Accuracy:
+*
+*     The velocity component is usually within 0.004 km/s of the
+*     correct value and is never in error by more than 0.007 km/s.
+*     The error in light time correction is about 0.03s at worst,
+*     but is usually better than 0.01s. For applications requiring
+*     higher accuracy, see the sla_EVP routine.
+*
+*  Called:  sla_EARTH, sla_CS2C, sla_VDV
+*
+*  P.T.Wallace   Starlink   24 November 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL RM,DM
+      INTEGER IY,ID
+      REAL FD,RV,TL
+
+      REAL sla_VDV
+
+      REAL PV(6),V(3),AUKM,AUSEC
+
+*  AU to km and light sec (1985 Almanac)
+      PARAMETER (AUKM=1.4959787066E8,
+     :           AUSEC=499.0047837)
+
+
+
+*  Sun:Earth position & velocity vector
+      CALL sla_EARTH(IY,ID,FD,PV)
+
+*  Star position vector
+      CALL sla_CS2C(RM,DM,V)
+
+*  Velocity component
+      RV=-AUKM*sla_VDV(PV(4),V)
+
+*  Light time component
+      TL=AUSEC*sla_VDV(PV(1),V)
+
+      END
diff --git a/src/slalib/eg50.f b/src/slalib/eg50.f
new file mode 100644
index 0000000..343fc11
--- /dev/null
+++ b/src/slalib/eg50.f
@@ -0,0 +1,90 @@
+      SUBROUTINE sla_EG50 (DR, DD, DL, DB)
+*+
+*     - - - - -
+*      E G 5 0
+*     - - - - -
+*
+*  Transformation from B1950.0 'FK4' equatorial coordinates to
+*  IAU 1958 galactic coordinates (double precision)
+*
+*  Given:
+*     DR,DD       dp       B1950.0 'FK4' RA,Dec
+*
+*  Returned:
+*     DL,DB       dp       galactic longitude and latitude L2,B2
+*
+*  (all arguments are radians)
+*
+*  Called:
+*     sla_DCS2C, sla_DMXV, sla_DCC2S, sla_SUBET, sla_DRANRM, sla_DRANGE
+*
+*  Note:
+*     The equatorial coordinates are B1950.0 'FK4'.  Use the
+*     routine sla_EQGAL if conversion from J2000.0 coordinates
+*     is required.
+*
+*  Reference:
+*     Blaauw et al, Mon.Not.R.Astron.Soc.,121,123 (1960)
+*
+*  P.T.Wallace   Starlink   5 September 1993
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DR,DD,DL,DB
+
+      DOUBLE PRECISION sla_DRANRM,sla_DRANGE
+
+      DOUBLE PRECISION V1(3),V2(3),R,D
+
+*
+*  L2,B2 system of galactic coordinates
+*
+*  P = 192.25       RA of galactic north pole (mean B1950.0)
+*  Q =  62.6        inclination of galactic to mean B1950.0 equator
+*  R =  33          longitude of ascending node
+*
+*  P,Q,R are degrees
+*
+*
+*  Equatorial to galactic rotation matrix
+*
+*  The Euler angles are P, Q, 90-R, about the z then y then
+*  z axes.
+*
+*         +CP.CQ.SR-SP.CR     +SP.CQ.SR+CP.CR     -SQ.SR
+*
+*         -CP.CQ.CR-SP.SR     -SP.CQ.CR+CP.SR     +SQ.CR
+*
+*         +CP.SQ              +SP.SQ              +CQ
+*
+
+      DOUBLE PRECISION RMAT(3,3)
+      DATA RMAT(1,1),RMAT(1,2),RMAT(1,3),
+     :     RMAT(2,1),RMAT(2,2),RMAT(2,3),
+     :     RMAT(3,1),RMAT(3,2),RMAT(3,3) /
+     : -0.066988739415D0,-0.872755765852D0,-0.483538914632D0,
+     : +0.492728466075D0,-0.450346958020D0,+0.744584633283D0,
+     : -0.867600811151D0,-0.188374601723D0,+0.460199784784D0 /
+
+
+
+*  Remove E-terms
+      CALL sla_SUBET(DR,DD,1950D0,R,D)
+
+*  Spherical to Cartesian
+      CALL sla_DCS2C(R,D,V1)
+
+*  Rotate to galactic
+      CALL sla_DMXV(RMAT,V1,V2)
+
+*  Cartesian to spherical
+      CALL sla_DCC2S(V2,DL,DB)
+
+*  Express angles in conventional ranges
+      DL=sla_DRANRM(DL)
+      DB=sla_DRANGE(DB)
+
+      END
diff --git a/src/slalib/el2ue.f b/src/slalib/el2ue.f
new file mode 100644
index 0000000..49f8ed6
--- /dev/null
+++ b/src/slalib/el2ue.f
@@ -0,0 +1,301 @@
+      SUBROUTINE sla_EL2UE (DATE, JFORM, EPOCH, ORBINC, ANODE,
+     :                      PERIH, AORQ, E, AORL, DM,
+     :                      U, JSTAT)
+*+
+*     - - - - - -
+*      E L 2 U E
+*     - - - - - -
+*
+*  Transform conventional osculating orbital elements into "universal" form.
+*
+*  Given:
+*     DATE     d       epoch (TT MJD) of osculation (Note 3)
+*     JFORM    i       choice of element set (1-3, Note 6)
+*     EPOCH    d       epoch (TT MJD) of the elements
+*     ORBINC   d       inclination (radians)
+*     ANODE    d       longitude of the ascending node (radians)
+*     PERIH    d       longitude or argument of perihelion (radians)
+*     AORQ     d       mean distance or perihelion distance (AU)
+*     E        d       eccentricity
+*     AORL     d       mean anomaly or longitude (radians, JFORM=1,2 only)
+*     DM       d       daily motion (radians, JFORM=1 only)
+*
+*  Returned:
+*     U        d(13)   universal orbital elements (Note 1)
+*
+*                (1)   combined mass (M+m)
+*                (2)   total energy of the orbit (alpha)
+*                (3)   reference (osculating) epoch (t0)
+*              (4-6)   position at reference epoch (r0)
+*              (7-9)   velocity at reference epoch (v0)
+*               (10)   heliocentric distance at reference epoch
+*               (11)   r0.v0
+*               (12)   date (t)
+*               (13)   universal eccentric anomaly (psi) of date, approx
+*
+*     JSTAT    i       status:  0 = OK
+*                              -1 = illegal JFORM
+*                              -2 = illegal E
+*                              -3 = illegal AORQ
+*                              -4 = illegal DM
+*                              -5 = numerical error
+*
+*  Called:  sla_UE2PV, sla_PV2UE
+*
+*  Notes
+*
+*  1  The "universal" elements are those which define the orbit for the
+*     purposes of the method of universal variables (see reference).
+*     They consist of the combined mass of the two bodies, an epoch,
+*     and the position and velocity vectors (arbitrary reference frame)
+*     at that epoch.  The parameter set used here includes also various
+*     quantities that can, in fact, be derived from the other
+*     information.  This approach is taken to avoiding unnecessary
+*     computation and loss of accuracy.  The supplementary quantities
+*     are (i) alpha, which is proportional to the total energy of the
+*     orbit, (ii) the heliocentric distance at epoch, (iii) the
+*     outwards component of the velocity at the given epoch, (iv) an
+*     estimate of psi, the "universal eccentric anomaly" at a given
+*     date and (v) that date.
+*
+*  2  The companion routine is sla_UE2PV.  This takes the set of numbers
+*     that the present routine outputs and uses them to derive the
+*     object's position and velocity.  A single prediction requires one
+*     call to the present routine followed by one call to sla_UE2PV;
+*     for convenience, the two calls are packaged as the routine
+*     sla_PLANEL.  Multiple predictions may be made by again calling the
+*     present routine once, but then calling sla_UE2PV multiple times,
+*     which is faster than multiple calls to sla_PLANEL.
+*
+*  3  DATE is the epoch of osculation.  It is in the TT timescale
+*     (formerly Ephemeris Time, ET) and is a Modified Julian Date
+*     (JD-2400000.5).
+*
+*  4  The supplied orbital elements are with respect to the J2000
+*     ecliptic and equinox.  The position and velocity parameters
+*     returned in the array U are with respect to the mean equator and
+*     equinox of epoch J2000, and are for the perihelion prior to the
+*     specified epoch.
+*
+*  5  The universal elements returned in the array U are in canonical
+*     units (solar masses, AU and canonical days).
+*
+*  6  Three different element-format options are available:
+*
+*     Option JFORM=1, suitable for the major planets:
+*
+*     EPOCH  = epoch of elements (TT MJD)
+*     ORBINC = inclination i (radians)
+*     ANODE  = longitude of the ascending node, big omega (radians)
+*     PERIH  = longitude of perihelion, curly pi (radians)
+*     AORQ   = mean distance, a (AU)
+*     E      = eccentricity, e (range 0 to <1)
+*     AORL   = mean longitude L (radians)
+*     DM     = daily motion (radians)
+*
+*     Option JFORM=2, suitable for minor planets:
+*
+*     EPOCH  = epoch of elements (TT MJD)
+*     ORBINC = inclination i (radians)
+*     ANODE  = longitude of the ascending node, big omega (radians)
+*     PERIH  = argument of perihelion, little omega (radians)
+*     AORQ   = mean distance, a (AU)
+*     E      = eccentricity, e (range 0 to <1)
+*     AORL   = mean anomaly M (radians)
+*
+*     Option JFORM=3, suitable for comets:
+*
+*     EPOCH  = epoch of perihelion (TT MJD)
+*     ORBINC = inclination i (radians)
+*     ANODE  = longitude of the ascending node, big omega (radians)
+*     PERIH  = argument of perihelion, little omega (radians)
+*     AORQ   = perihelion distance, q (AU)
+*     E      = eccentricity, e (range 0 to 10)
+*
+*  7  Unused elements (DM for JFORM=2, AORL and DM for JFORM=3) are
+*     not accessed.
+*
+*  8  The algorithm was originally adapted from the EPHSLA program of
+*     D.H.P.Jones (private communication, 1996).  The method is based
+*     on Stumpff's Universal Variables.
+*
+*  Reference:  Everhart & Pitkin, Am.J.Phys. 51, 712 (1983).
+*
+*  P.T.Wallace   Starlink   18 February 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE
+      INTEGER JFORM
+      DOUBLE PRECISION EPOCH,ORBINC,ANODE,PERIH,AORQ,E,AORL,DM,U(13)
+      INTEGER JSTAT
+
+*  Gaussian gravitational constant (exact)
+      DOUBLE PRECISION GCON
+      PARAMETER (GCON=0.01720209895D0)
+
+*  Sin and cos of J2000 mean obliquity (IAU 1976)
+      DOUBLE PRECISION SE,CE
+      PARAMETER (SE=0.3977771559319137D0,
+     :           CE=0.9174820620691818D0)
+
+      INTEGER J
+
+      DOUBLE PRECISION PHT,ARGPH,Q,W,CM,ALPHA,PHS,SW,CW,SI,CI,SO,CO,
+     :                 X,Y,Z,PX,PY,PZ,VX,VY,VZ,DT,FC,FP,PSI,
+     :                 UL(13),PV(6)
+
+
+
+*  Validate arguments.
+      IF (JFORM.LT.1.OR.JFORM.GT.3) THEN
+         JSTAT = -1
+         GO TO 9999
+      END IF
+      IF (E.LT.0D0.OR.E.GT.10D0.OR.(E.GE.1D0.AND.JFORM.NE.3)) THEN
+         JSTAT = -2
+         GO TO 9999
+      END IF
+      IF (AORQ.LE.0D0) THEN
+         JSTAT = -3
+         GO TO 9999
+      END IF
+      IF (JFORM.EQ.1.AND.DM.LE.0D0) THEN
+         JSTAT = -4
+         GO TO 9999
+      END IF
+
+*
+*  Transform elements into standard form:
+*
+*  PHT   = epoch of perihelion passage
+*  ARGPH = argument of perihelion (little omega)
+*  Q     = perihelion distance (q)
+*  CM    = combined mass, M+m (mu)
+
+      IF (JFORM.EQ.1) THEN
+         PHT = EPOCH-(AORL-PERIH)/DM
+         ARGPH = PERIH-ANODE
+         Q = AORQ*(1D0-E)
+         W = DM/GCON
+         CM = W*W*AORQ*AORQ*AORQ
+      ELSE IF (JFORM.EQ.2) THEN
+         PHT = EPOCH-AORL*SQRT(AORQ*AORQ*AORQ)/GCON
+         ARGPH = PERIH
+         Q = AORQ*(1D0-E)
+         CM = 1D0
+      ELSE IF (JFORM.EQ.3) THEN
+         PHT = EPOCH
+         ARGPH = PERIH
+         Q = AORQ
+         CM = 1D0
+      END IF
+
+*  The universal variable alpha.  This is proportional to the total
+*  energy of the orbit:  -ve for an ellipse, zero for a parabola,
+*  +ve for a hyperbola.
+
+      ALPHA = CM*(E-1D0)/Q
+
+*  Speed at perihelion.
+
+      PHS = SQRT(ALPHA+2D0*CM/Q)
+
+*  In a Cartesian coordinate system which has the x-axis pointing
+*  to perihelion and the z-axis normal to the orbit (such that the
+*  object orbits counter-clockwise as seen from +ve z), the
+*  perihelion position and velocity vectors are:
+*
+*    position   [Q,0,0]
+*    velocity   [0,PHS,0]
+*
+*  To express the results in J2000 equatorial coordinates we make a
+*  series of four rotations of the Cartesian axes:
+*
+*           axis      Euler angle
+*
+*     1      z        argument of perihelion (little omega)
+*     2      x        inclination (i)
+*     3      z        longitude of the ascending node (big omega)
+*     4      x        J2000 obliquity (epsilon)
+*
+*  In each case the rotation is clockwise as seen from the +ve end of
+*  the axis concerned.
+
+*  Functions of the Euler angles.
+      SW = SIN(ARGPH)
+      CW = COS(ARGPH)
+      SI = SIN(ORBINC)
+      CI = COS(ORBINC)
+      SO = SIN(ANODE)
+      CO = COS(ANODE)
+
+*  Position at perihelion (AU).
+      X = Q*CW
+      Y = Q*SW
+      Z = Y*SI
+      Y = Y*CI
+      PX = X*CO-Y*SO
+      Y = X*SO+Y*CO
+      PY = Y*CE-Z*SE
+      PZ = Y*SE+Z*CE
+
+*  Velocity at perihelion (AU per canonical day).
+      X = -PHS*SW
+      Y = PHS*CW
+      Z = Y*SI
+      Y = Y*CI
+      VX = X*CO-Y*SO
+      Y = X*SO+Y*CO
+      VY = Y*CE-Z*SE
+      VZ = Y*SE+Z*CE
+
+*  Time from perihelion to date (in Canonical Days: a canonical day
+*  is 58.1324409... days, defined as 1/GCON).
+
+      DT = (DATE-PHT)*GCON
+
+*  First Approximation to the Universal Eccentric Anomaly, PSI,
+*  based on the circle (FC) and parabola (FP) values.
+
+      FC = DT/Q
+      W = (3D0*DT+SQRT(9D0*DT*DT+8D0*Q*Q*Q))**(1D0/3D0)
+      FP = W-2D0*Q/W
+      PSI = (1D0-E)*FC+E*FP
+
+*  Assemble local copy of element set.
+      UL(1) = CM
+      UL(2) = ALPHA
+      UL(3) = PHT
+      UL(4) = PX
+      UL(5) = PY
+      UL(6) = PZ
+      UL(7) = VX
+      UL(8) = VY
+      UL(9) = VZ
+      UL(10) = Q
+      UL(11) = 0D0
+      UL(12) = DATE
+      UL(13) = PSI
+
+*  Predict position+velocity at epoch of osculation.
+      CALL sla_UE2PV(DATE,UL,PV,J)
+      IF (J.NE.0) GO TO 9010
+
+*  Convert back to universal elements.
+      CALL sla_PV2UE(PV,DATE,CM-1D0,U,J)
+      IF (J.NE.0) GO TO 9010
+
+*  OK exit.
+      JSTAT = 0
+      GO TO 9999
+
+*  Quasi-impossible numerical errors.
+ 9010 CONTINUE
+      JSTAT = -5
+
+ 9999 CONTINUE
+      END
diff --git a/src/slalib/epb.f b/src/slalib/epb.f
new file mode 100644
index 0000000..4cc4d49
--- /dev/null
+++ b/src/slalib/epb.f
@@ -0,0 +1,30 @@
+      DOUBLE PRECISION FUNCTION sla_EPB (DATE)
+*+
+*     - - - -
+*      E P B
+*     - - - -
+*
+*  Conversion of Modified Julian Date to Besselian Epoch
+*  (double precision)
+*
+*  Given:
+*     DATE     dp       Modified Julian Date (JD - 2400000.5)
+*
+*  The result is the Besselian Epoch.
+*
+*  Reference:
+*     Lieske,J.H., 1979. Astron.Astrophys.,73,282.
+*
+*  P.T.Wallace   Starlink   February 1984
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE
+
+
+      sla_EPB = 1900D0 + (DATE-15019.81352D0)/365.242198781D0
+
+      END
diff --git a/src/slalib/epb2d.f b/src/slalib/epb2d.f
new file mode 100644
index 0000000..cb1be4f
--- /dev/null
+++ b/src/slalib/epb2d.f
@@ -0,0 +1,30 @@
+      DOUBLE PRECISION FUNCTION sla_EPB2D (EPB)
+*+
+*     - - - - - -
+*      E P B 2 D
+*     - - - - - -
+*
+*  Conversion of Besselian Epoch to Modified Julian Date
+*  (double precision)
+*
+*  Given:
+*     EPB      dp       Besselian Epoch
+*
+*  The result is the Modified Julian Date (JD - 2400000.5).
+*
+*  Reference:
+*     Lieske,J.H., 1979. Astron.Astrophys.,73,282.
+*
+*  P.T.Wallace   Starlink   February 1984
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION EPB
+
+
+      sla_EPB2D = 15019.81352D0 + (EPB-1900D0)*365.242198781D0
+
+      END
diff --git a/src/slalib/epco.f b/src/slalib/epco.f
new file mode 100644
index 0000000..ef642ca
--- /dev/null
+++ b/src/slalib/epco.f
@@ -0,0 +1,51 @@
+      DOUBLE PRECISION FUNCTION sla_EPCO (K0, K, E)
+*+
+*     - - - - -
+*      E P C O
+*     - - - - -
+*
+*  Convert an epoch into the appropriate form - 'B' or 'J'
+*
+*  Given:
+*     K0    char    form of result:  'B'=Besselian, 'J'=Julian
+*     K     char    form of given epoch:  'B' or 'J'
+*     E     dp      epoch
+*
+*  Called:  sla_EPB, sla_EPJ2D, sla_EPJ, sla_EPB2D
+*
+*  Notes:
+*
+*     1) The result is always either equal to or very close to
+*        the given epoch E.  The routine is required only in
+*        applications where punctilious treatment of heterogeneous
+*        mixtures of star positions is necessary.
+*
+*     2) K0 and K are not validated.  They are interpreted as follows:
+*
+*        o  If K0 and K are the same the result is E.
+*        o  If K0 is 'B' or 'b' and K isn't, the conversion is J to B.
+*        o  In all other cases, the conversion is B to J.
+*
+*        Note that K0 and K won't match if their cases differ.
+*
+*  P.T.Wallace   Starlink   5 September 1993
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      CHARACTER*(*) K0,K
+      DOUBLE PRECISION E
+      DOUBLE PRECISION sla_EPB,sla_EPJ2D,sla_EPJ,sla_EPB2D
+
+
+      IF (K.EQ.K0) THEN
+         sla_EPCO=E
+      ELSE IF (K0.EQ.'B'.OR.K0.EQ.'b') THEN
+         sla_EPCO=sla_EPB(sla_EPJ2D(E))
+      ELSE
+         sla_EPCO=sla_EPJ(sla_EPB2D(E))
+      END IF
+
+      END
diff --git a/src/slalib/epj.f b/src/slalib/epj.f
new file mode 100644
index 0000000..66d5eb9
--- /dev/null
+++ b/src/slalib/epj.f
@@ -0,0 +1,29 @@
+      DOUBLE PRECISION FUNCTION sla_EPJ (DATE)
+*+
+*     - - - -
+*      E P J
+*     - - - -
+*
+*  Conversion of Modified Julian Date to Julian Epoch (double precision)
+*
+*  Given:
+*     DATE     dp       Modified Julian Date (JD - 2400000.5)
+*
+*  The result is the Julian Epoch.
+*
+*  Reference:
+*     Lieske,J.H., 1979. Astron.Astrophys.,73,282.
+*
+*  P.T.Wallace   Starlink   February 1984
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE
+
+
+      sla_EPJ = 2000D0 + (DATE-51544.5D0)/365.25D0
+
+      END
diff --git a/src/slalib/epj2d.f b/src/slalib/epj2d.f
new file mode 100644
index 0000000..c6a5c5f
--- /dev/null
+++ b/src/slalib/epj2d.f
@@ -0,0 +1,29 @@
+      DOUBLE PRECISION FUNCTION sla_EPJ2D (EPJ)
+*+
+*     - - - - - -
+*      E P J 2 D
+*     - - - - - -
+*
+*  Conversion of Julian Epoch to Modified Julian Date (double precision)
+*
+*  Given:
+*     EPJ      dp       Julian Epoch
+*
+*  The result is the Modified Julian Date (JD - 2400000.5).
+*
+*  Reference:
+*     Lieske,J.H., 1979. Astron.Astrophys.,73,282.
+*
+*  P.T.Wallace   Starlink   February 1984
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION EPJ
+
+
+      sla_EPJ2D = 51544.5D0 + (EPJ-2000D0)*365.25D0
+
+      END
diff --git a/src/slalib/eqecl.f b/src/slalib/eqecl.f
new file mode 100644
index 0000000..a3a73f6
--- /dev/null
+++ b/src/slalib/eqecl.f
@@ -0,0 +1,55 @@
+      SUBROUTINE sla_EQECL (DR, DD, DATE, DL, DB)
+*+
+*     - - - - - -
+*      E Q E C L
+*     - - - - - -
+*
+*  Transformation from J2000.0 equatorial coordinates to
+*  ecliptic coordinates (double precision)
+*
+*  Given:
+*     DR,DD       dp      J2000.0 mean RA,Dec (radians)
+*     DATE        dp      TDB (loosely ET) as Modified Julian Date
+*                                              (JD-2400000.5)
+*  Returned:
+*     DL,DB       dp      ecliptic longitude and latitude
+*                         (mean of date, IAU 1980 theory, radians)
+*
+*  Called:
+*     sla_DCS2C, sla_PREC, sla_EPJ, sla_DMXV, sla_ECMAT, sla_DCC2S,
+*     sla_DRANRM, sla_DRANGE
+*
+*  P.T.Wallace   Starlink   March 1986
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DR,DD,DATE,DL,DB
+
+      DOUBLE PRECISION sla_EPJ,sla_DRANRM,sla_DRANGE
+
+      DOUBLE PRECISION RMAT(3,3),V1(3),V2(3)
+
+
+
+*  Spherical to Cartesian
+      CALL sla_DCS2C(DR,DD,V1)
+
+*  Mean J2000 to mean of date
+      CALL sla_PREC(2000D0,sla_EPJ(DATE),RMAT)
+      CALL sla_DMXV(RMAT,V1,V2)
+
+*  Equatorial to ecliptic
+      CALL sla_ECMAT(DATE,RMAT)
+      CALL sla_DMXV(RMAT,V2,V1)
+
+*  Cartesian to spherical
+      CALL sla_DCC2S(V1,DL,DB)
+
+*  Express in conventional ranges
+      DL=sla_DRANRM(DL)
+      DB=sla_DRANGE(DB)
+
+      END
diff --git a/src/slalib/eqeqx.f b/src/slalib/eqeqx.f
new file mode 100644
index 0000000..f811039
--- /dev/null
+++ b/src/slalib/eqeqx.f
@@ -0,0 +1,57 @@
+      DOUBLE PRECISION FUNCTION sla_EQEQX (DATE)
+*+
+*     - - - - - -
+*      E Q E Q X
+*     - - - - - -
+*
+*  Equation of the equinoxes  (IAU 1994, double precision)
+*
+*  Given:
+*     DATE    dp      TDB (loosely ET) as Modified Julian Date
+*                                          (JD-2400000.5)
+*
+*  The result is the equation of the equinoxes (double precision)
+*  in radians:
+*
+*     Greenwich apparent ST = GMST + sla_EQEQX
+*
+*  References:  IAU Resolution C7, Recommendation 3 (1994)
+*               Capitaine, N. & Gontier, A.-M., Astron. Astrophys.,
+*               275, 645-650 (1993)
+*               
+*  Called:  sla_NUTC
+*
+*  Patrick Wallace   Starlink   23 August 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE
+
+*  Turns to arc seconds and arc seconds to radians
+      DOUBLE PRECISION T2AS,AS2R
+      PARAMETER (T2AS=1296000D0,
+     :           AS2R=0.484813681109535994D-5)
+
+      DOUBLE PRECISION T,OM,DPSI,DEPS,EPS0
+
+
+
+*  Interval between basic epoch J2000.0 and current epoch (JC)
+      T=(DATE-51544.5D0)/36525D0
+
+*  Longitude of the mean ascending node of the lunar orbit on the
+*   ecliptic, measured from the mean equinox of date
+      OM=AS2R*(450160.280D0+(-5D0*T2AS-482890.539D0
+     :         +(7.455D0+0.008D0*T)*T)*T)
+
+*  Nutation
+      CALL sla_NUTC(DATE,DPSI,DEPS,EPS0)
+
+*  Equation of the equinoxes
+      sla_EQEQX=DPSI*COS(EPS0)+AS2R*(0.00264D0*SIN(OM)+
+     :                               0.000063D0*SIN(OM+OM))
+
+      END
diff --git a/src/slalib/eqgal.f b/src/slalib/eqgal.f
new file mode 100644
index 0000000..bb59cc6
--- /dev/null
+++ b/src/slalib/eqgal.f
@@ -0,0 +1,79 @@
+      SUBROUTINE sla_EQGAL (DR, DD, DL, DB)
+*+
+*     - - - - - -
+*      E Q G A L
+*     - - - - - -
+*
+*  Transformation from J2000.0 equatorial coordinates to
+*  IAU 1958 galactic coordinates (double precision)
+*
+*  Given:
+*     DR,DD       dp       J2000.0 RA,Dec
+*
+*  Returned:
+*     DL,DB       dp       galactic longitude and latitude L2,B2
+*
+*  (all arguments are radians)
+*
+*  Called:
+*     sla_DCS2C, sla_DMXV, sla_DCC2S, sla_DRANRM, sla_DRANGE
+*
+*  Note:
+*     The equatorial coordinates are J2000.0.  Use the routine
+*     sla_EG50 if conversion from B1950.0 'FK4' coordinates is
+*     required.
+*
+*  Reference:
+*     Blaauw et al, Mon.Not.R.Astron.Soc.,121,123 (1960)
+*
+*  P.T.Wallace   Starlink   21 September 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DR,DD,DL,DB
+
+      DOUBLE PRECISION sla_DRANRM,sla_DRANGE
+
+      DOUBLE PRECISION V1(3),V2(3)
+
+*
+*  L2,B2 system of galactic coordinates
+*
+*  P = 192.25       RA of galactic north pole (mean B1950.0)
+*  Q =  62.6        inclination of galactic to mean B1950.0 equator
+*  R =  33          longitude of ascending node
+*
+*  P,Q,R are degrees
+*
+*  Equatorial to galactic rotation matrix (J2000.0), obtained by
+*  applying the standard FK4 to FK5 transformation, for zero proper
+*  motion in FK5, to the columns of the B1950 equatorial to
+*  galactic rotation matrix:
+*
+      DOUBLE PRECISION RMAT(3,3)
+      DATA RMAT(1,1),RMAT(1,2),RMAT(1,3),
+     :     RMAT(2,1),RMAT(2,2),RMAT(2,3),
+     :     RMAT(3,1),RMAT(3,2),RMAT(3,3)/
+     : -0.054875539726D0,-0.873437108010D0,-0.483834985808D0,
+     : +0.494109453312D0,-0.444829589425D0,+0.746982251810D0,
+     : -0.867666135858D0,-0.198076386122D0,+0.455983795705D0/
+
+
+
+*  Spherical to Cartesian
+      CALL sla_DCS2C(DR,DD,V1)
+
+*  Equatorial to galactic
+      CALL sla_DMXV(RMAT,V1,V2)
+
+*  Cartesian to spherical
+      CALL sla_DCC2S(V2,DL,DB)
+
+*  Express in conventional ranges
+      DL=sla_DRANRM(DL)
+      DB=sla_DRANGE(DB)
+
+      END
diff --git a/src/slalib/etrms.f b/src/slalib/etrms.f
new file mode 100644
index 0000000..efac204
--- /dev/null
+++ b/src/slalib/etrms.f
@@ -0,0 +1,62 @@
+      SUBROUTINE sla_ETRMS (EP, EV)
+*+
+*     - - - - - -
+*      E T R M S
+*     - - - - - -
+*
+*  Compute the E-terms (elliptic component of annual aberration)
+*  vector (double precision)
+*
+*  Given:
+*     EP      dp      Besselian epoch
+*
+*  Returned:
+*     EV      dp(3)   E-terms as (dx,dy,dz)
+*
+*  Note the use of the J2000 aberration constant (20.49552 arcsec).
+*  This is a reflection of the fact that the E-terms embodied in
+*  existing star catalogues were computed from a variety of
+*  aberration constants.  Rather than adopting one of the old
+*  constants the latest value is used here.
+*
+*  References:
+*     1  Smith, C.A. et al., 1989.  Astr.J. 97, 265.
+*     2  Yallop, B.D. et al., 1989.  Astr.J. 97, 274.
+*
+*  P.T.Wallace   Starlink   23 August 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION EP,EV(3)
+
+*  Arcseconds to radians
+      DOUBLE PRECISION AS2R
+      PARAMETER (AS2R=0.484813681109535994D-5)
+
+      DOUBLE PRECISION T,E,E0,P,EK,CP
+
+
+
+*  Julian centuries since B1950
+      T=(EP-1950D0)*1.00002135903D-2
+
+*  Eccentricity
+      E=0.01673011D0-(0.00004193D0+0.000000126D0*T)*T
+
+*  Mean obliquity
+      E0=(84404.836D0-(46.8495D0+(0.00319D0+0.00181D0*T)*T)*T)*AS2R
+
+*  Mean longitude of perihelion
+      P=(1015489.951D0+(6190.67D0+(1.65D0+0.012D0*T)*T)*T)*AS2R
+
+*  E-terms
+      EK=E*20.49552D0*AS2R
+      CP=COS(P)
+      EV(1)= EK*SIN(P)
+      EV(2)=-EK*CP*COS(E0)
+      EV(3)=-EK*CP*SIN(E0)
+
+      END
diff --git a/src/slalib/euler.f b/src/slalib/euler.f
new file mode 100644
index 0000000..278da31
--- /dev/null
+++ b/src/slalib/euler.f
@@ -0,0 +1,68 @@
+      SUBROUTINE sla_EULER (ORDER, PHI, THETA, PSI, RMAT)
+*+
+*     - - - - - -
+*      E U L E R
+*     - - - - - -
+*
+*  Form a rotation matrix from the Euler angles - three successive
+*  rotations about specified Cartesian axes (single precision)
+*
+*  Given:
+*    ORDER  c*(*)    specifies about which axes the rotations occur
+*    PHI    r        1st rotation (radians)
+*    THETA  r        2nd rotation (   "   )
+*    PSI    r        3rd rotation (   "   )
+*
+*  Returned:
+*    RMAT   r(3,3)   rotation matrix
+*
+*  A rotation is positive when the reference frame rotates
+*  anticlockwise as seen looking towards the origin from the
+*  positive region of the specified axis.
+*
+*  The characters of ORDER define which axes the three successive
+*  rotations are about.  A typical value is 'ZXZ', indicating that
+*  RMAT is to become the direction cosine matrix corresponding to
+*  rotations of the reference frame through PHI radians about the
+*  old Z-axis, followed by THETA radians about the resulting X-axis,
+*  then PSI radians about the resulting Z-axis.
+*
+*  The axis names can be any of the following, in any order or
+*  combination:  X, Y, Z, uppercase or lowercase, 1, 2, 3.  Normal
+*  axis labelling/numbering conventions apply;  the xyz (=123)
+*  triad is right-handed.  Thus, the 'ZXZ' example given above
+*  could be written 'zxz' or '313' (or even 'ZxZ' or '3xZ').  ORDER
+*  is terminated by length or by the first unrecognized character.
+*
+*  Fewer than three rotations are acceptable, in which case the later
+*  angle arguments are ignored.  If all rotations are zero, the
+*  identity matrix is produced.
+*
+*  Called:  sla_DEULER
+*
+*  P.T.Wallace   Starlink   23 May 1997
+*
+*  Copyright (C) 1997 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      CHARACTER*(*) ORDER
+      REAL PHI,THETA,PSI,RMAT(3,3)
+
+      INTEGER J,I
+      DOUBLE PRECISION W(3,3)
+
+
+
+*  Compute matrix in double precision
+      CALL sla_DEULER(ORDER,DBLE(PHI),DBLE(THETA),DBLE(PSI),W)
+
+*  Copy the result
+      DO J=1,3
+         DO I=1,3
+            RMAT(I,J) = REAL(W(I,J))
+         END DO
+      END DO
+
+      END
diff --git a/src/slalib/evp.f b/src/slalib/evp.f
new file mode 100644
index 0000000..b295a12
--- /dev/null
+++ b/src/slalib/evp.f
@@ -0,0 +1,441 @@
+      SUBROUTINE sla_EVP (DATE, DEQX, DVB, DPB, DVH, DPH)
+*+
+*     - - - -
+*      E V P
+*     - - - -
+*
+*  Barycentric and heliocentric velocity and position of the Earth
+*
+*  All arguments are double precision
+*
+*  Given:
+*
+*     DATE          TDB (loosely ET) as a Modified Julian Date
+*                                         (JD-2400000.5)
+*
+*     DEQX          Julian Epoch (e.g. 2000.0D0) of mean equator and
+*                   equinox of the vectors returned.  If DEQX .LE. 0D0,
+*                   all vectors are referred to the mean equator and
+*                   equinox (FK5) of epoch DATE.
+*
+*  Returned (all 3D Cartesian vectors):
+*
+*     DVB,DPB       barycentric velocity, position
+*
+*     DVH,DPH       heliocentric velocity, position
+*
+*  (Units are AU/s for velocity and AU for position)
+*
+*  Called:  sla_EPJ, sla_PREC
+*
+*  Accuracy:
+*
+*     The maximum deviations from the JPL DE96 ephemeris are as
+*     follows:
+*
+*     barycentric velocity         0.42  m/s
+*     barycentric position         6900  km
+*
+*     heliocentric velocity        0.42  m/s
+*     heliocentric position        1600  km
+*
+*  This routine is adapted from the BARVEL and BARCOR
+*  subroutines of P.Stumpff, which are described in
+*  Astron. Astrophys. Suppl. Ser. 41, 1-8 (1980).  Most of the
+*  changes are merely cosmetic and do not affect the results at
+*  all.  However, some adjustments have been made so as to give
+*  results that refer to the new (IAU 1976 'FK5') equinox
+*  and precession, although the differences these changes make
+*  relative to the results from Stumpff's original 'FK4' version
+*  are smaller than the inherent accuracy of the algorithm.  One
+*  minor shortcoming in the original routines that has NOT been
+*  corrected is that better numerical accuracy could be achieved
+*  if the various polynomial evaluations were nested.  Note also
+*  that one of Stumpff's precession constants differs by 0.001 arcsec
+*  from the value given in the Explanatory Supplement to the A.E.
+*
+*  P.T.Wallace   Starlink   21 March 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE,DEQX,DVB(3),DPB(3),DVH(3),DPH(3)
+
+      INTEGER IDEQ,I,J,K
+
+      REAL CC2PI,CCSEC3,CCSGD,CCKM,CCMLD,CCFDI,CCIM,T,TSQ,A,PERTL,
+     :     PERTLD,PERTR,PERTRD,COSA,SINA,ESQ,E,PARAM,TWOE,TWOG,G,
+     :     PHI,F,SINF,COSF,PHID,PSID,PERTP,PERTPD,TL,SINLM,COSLM,
+     :     SIGMA,B,PLON,POMG,PECC,FLATM,FLAT
+
+      DOUBLE PRECISION DC2PI,DS2R,DCSLD,DC1MME,DT,DTSQ,DLOCAL,DML,
+     :                 DEPS,DPARAM,DPSI,D1PDRO,DRD,DRLD,DTL,DSINLS,
+     :                 DCOSLS,DXHD,DYHD,DZHD,DXBD,DYBD,DZBD,DCOSEP,
+     :                 DSINEP,DYAHD,DZAHD,DYABD,DZABD,DR,
+     :                 DXH,DYH,DZH,DXB,DYB,DZB,DYAH,DZAH,DYAB,
+     :                 DZAB,DEPJ,DEQCOR,B1950
+
+      REAL SN(4),CCSEL(3,17),CCAMPS(5,15),CCSEC(3,4),CCAMPM(4,3),
+     :     CCPAMV(4),CCPAM(4),FORBEL(7),SORBEL(17),SINLP(4),COSLP(4)
+      EQUIVALENCE (SORBEL(1),E),(FORBEL(1),G)
+
+      DOUBLE PRECISION DCFEL(3,8),DCEPS(3),DCARGS(2,15),DCARGM(2,3),
+     :                 DPREMA(3,3),W,VW(3)
+
+      DOUBLE PRECISION sla_EPJ
+
+      PARAMETER (DC2PI=6.2831853071796D0,CC2PI=6.283185)
+      PARAMETER (DS2R=0.7272205216643D-4)
+      PARAMETER (B1950=1949.9997904423D0)
+
+*
+*   Constants DCFEL(I,K) of fast changing elements
+*                     I=1                I=2              I=3
+      DATA DCFEL/ 1.7400353D+00, 6.2833195099091D+02, 5.2796D-06,
+     :            6.2565836D+00, 6.2830194572674D+02,-2.6180D-06,
+     :            4.7199666D+00, 8.3997091449254D+03,-1.9780D-05,
+     :            1.9636505D-01, 8.4334662911720D+03,-5.6044D-05,
+     :            4.1547339D+00, 5.2993466764997D+01, 5.8845D-06,
+     :            4.6524223D+00, 2.1354275911213D+01, 5.6797D-06,
+     :            4.2620486D+00, 7.5025342197656D+00, 5.5317D-06,
+     :            1.4740694D+00, 3.8377331909193D+00, 5.6093D-06/
+
+*
+*   Constants DCEPS and CCSEL(I,K) of slowly changing elements
+*                      I=1           I=2           I=3
+      DATA DCEPS/  4.093198D-01,-2.271110D-04,-2.860401D-08 /
+      DATA CCSEL/  1.675104E-02,-4.179579E-05,-1.260516E-07,
+     :             2.220221E-01, 2.809917E-02, 1.852532E-05,
+     :             1.589963E+00, 3.418075E-02, 1.430200E-05,
+     :             2.994089E+00, 2.590824E-02, 4.155840E-06,
+     :             8.155457E-01, 2.486352E-02, 6.836840E-06,
+     :             1.735614E+00, 1.763719E-02, 6.370440E-06,
+     :             1.968564E+00, 1.524020E-02,-2.517152E-06,
+     :             1.282417E+00, 8.703393E-03, 2.289292E-05,
+     :             2.280820E+00, 1.918010E-02, 4.484520E-06,
+     :             4.833473E-02, 1.641773E-04,-4.654200E-07,
+     :             5.589232E-02,-3.455092E-04,-7.388560E-07,
+     :             4.634443E-02,-2.658234E-05, 7.757000E-08,
+     :             8.997041E-03, 6.329728E-06,-1.939256E-09,
+     :             2.284178E-02,-9.941590E-05, 6.787400E-08,
+     :             4.350267E-02,-6.839749E-05,-2.714956E-07,
+     :             1.348204E-02, 1.091504E-05, 6.903760E-07,
+     :             3.106570E-02,-1.665665E-04,-1.590188E-07/
+
+*
+*   Constants of the arguments of the short-period perturbations
+*   by the planets:   DCARGS(I,K)
+*                       I=1               I=2
+      DATA DCARGS/ 5.0974222D+00,-7.8604195454652D+02,
+     :             3.9584962D+00,-5.7533848094674D+02,
+     :             1.6338070D+00,-1.1506769618935D+03,
+     :             2.5487111D+00,-3.9302097727326D+02,
+     :             4.9255514D+00,-5.8849265665348D+02,
+     :             1.3363463D+00,-5.5076098609303D+02,
+     :             1.6072053D+00,-5.2237501616674D+02,
+     :             1.3629480D+00,-1.1790629318198D+03,
+     :             5.5657014D+00,-1.0977134971135D+03,
+     :             5.0708205D+00,-1.5774000881978D+02,
+     :             3.9318944D+00, 5.2963464780000D+01,
+     :             4.8989497D+00, 3.9809289073258D+01,
+     :             1.3097446D+00, 7.7540959633708D+01,
+     :             3.5147141D+00, 7.9618578146517D+01,
+     :             3.5413158D+00,-5.4868336758022D+02/
+
+*
+*   Amplitudes CCAMPS(N,K) of the short-period perturbations
+*           N=1          N=2          N=3          N=4          N=5
+      DATA CCAMPS/
+     : -2.279594E-5, 1.407414E-5, 8.273188E-6, 1.340565E-5,-2.490817E-7,
+     : -3.494537E-5, 2.860401E-7, 1.289448E-7, 1.627237E-5,-1.823138E-7,
+     :  6.593466E-7, 1.322572E-5, 9.258695E-6,-4.674248E-7,-3.646275E-7,
+     :  1.140767E-5,-2.049792E-5,-4.747930E-6,-2.638763E-6,-1.245408E-7,
+     :  9.516893E-6,-2.748894E-6,-1.319381E-6,-4.549908E-6,-1.864821E-7,
+     :  7.310990E-6,-1.924710E-6,-8.772849E-7,-3.334143E-6,-1.745256E-7,
+     : -2.603449E-6, 7.359472E-6, 3.168357E-6, 1.119056E-6,-1.655307E-7,
+     : -3.228859E-6, 1.308997E-7, 1.013137E-7, 2.403899E-6,-3.736225E-7,
+     :  3.442177E-7, 2.671323E-6, 1.832858E-6,-2.394688E-7,-3.478444E-7,
+     :  8.702406E-6,-8.421214E-6,-1.372341E-6,-1.455234E-6,-4.998479E-8,
+     : -1.488378E-6,-1.251789E-5, 5.226868E-7,-2.049301E-7, 0.0E0,
+     : -8.043059E-6,-2.991300E-6, 1.473654E-7,-3.154542E-7, 0.0E0,
+     :  3.699128E-6,-3.316126E-6, 2.901257E-7, 3.407826E-7, 0.0E0,
+     :  2.550120E-6,-1.241123E-6, 9.901116E-8, 2.210482E-7, 0.0E0,
+     : -6.351059E-7, 2.341650E-6, 1.061492E-6, 2.878231E-7, 0.0E0/
+
+*
+*   Constants of the secular perturbations in longitude
+*   CCSEC3 and CCSEC(N,K)
+*                      N=1           N=2           N=3
+      DATA CCSEC3/-7.757020E-08/,
+     :     CCSEC/  1.289600E-06, 5.550147E-01, 2.076942E+00,
+     :             3.102810E-05, 4.035027E+00, 3.525565E-01,
+     :             9.124190E-06, 9.990265E-01, 2.622706E+00,
+     :             9.793240E-07, 5.508259E+00, 1.559103E+01/
+
+*   Sidereal rate DCSLD in longitude, rate CCSGD in mean anomaly
+      DATA DCSLD/1.990987D-07/,
+     :     CCSGD/1.990969E-07/
+
+*   Some constants used in the calculation of the lunar contribution
+      DATA CCKM/3.122140E-05/,
+     :     CCMLD/2.661699E-06/,
+     :     CCFDI/2.399485E-07/
+
+*
+*   Constants DCARGM(I,K) of the arguments of the perturbations
+*   of the motion of the Moon
+*                       I=1               I=2
+      DATA DCARGM/  5.1679830D+00, 8.3286911095275D+03,
+     :              5.4913150D+00,-7.2140632838100D+03,
+     :              5.9598530D+00, 1.5542754389685D+04/
+
+*
+*   Amplitudes CCAMPM(N,K) of the perturbations of the Moon
+*            N=1          N=2           N=3           N=4
+      DATA CCAMPM/
+     :  1.097594E-01, 2.896773E-07, 5.450474E-02, 1.438491E-07,
+     : -2.223581E-02, 5.083103E-08, 1.002548E-02,-2.291823E-08,
+     :  1.148966E-02, 5.658888E-08, 8.249439E-03, 4.063015E-08/
+
+*
+*   CCPAMV(K)=A*M*DL/DT (planets), DC1MME=1-MASS(Earth+Moon)
+      DATA CCPAMV/8.326827E-11,1.843484E-11,1.988712E-12,1.881276E-12/
+      DATA DC1MME/0.99999696D0/
+
+*   CCPAM(K)=A*M(planets), CCIM=INCLINATION(Moon)
+      DATA CCPAM/4.960906E-3,2.727436E-3,8.392311E-4,1.556861E-3/
+      DATA CCIM/8.978749E-2/
+
+
+
+
+*
+*   EXECUTION
+*   ---------
+
+*   Control parameter IDEQ, and time arguments
+      IDEQ = 0
+      IF (DEQX.GT.0D0) IDEQ=1
+      DT = (DATE-15019.5D0)/36525D0
+      T = REAL(DT)
+      DTSQ = DT*DT
+      TSQ = REAL(DTSQ)
+
+*   Values of all elements for the instant DATE
+      DO K=1,8
+         DLOCAL = MOD(DCFEL(1,K)+DT*DCFEL(2,K)+DTSQ*DCFEL(3,K), DC2PI)
+         IF (K.EQ.1) THEN
+            DML = DLOCAL
+         ELSE
+            FORBEL(K-1) = REAL(DLOCAL)
+         END IF
+      END DO
+      DEPS = MOD(DCEPS(1)+DT*DCEPS(2)+DTSQ*DCEPS(3), DC2PI)
+      DO K=1,17
+         SORBEL(K) = MOD(CCSEL(1,K)+T*CCSEL(2,K)+TSQ*CCSEL(3,K),
+     :                   CC2PI)
+      END DO
+
+*   Secular perturbations in longitude
+      DO K=1,4
+         A = MOD(CCSEC(2,K)+T*CCSEC(3,K), CC2PI)
+         SN(K) = SIN(A)
+      END DO
+
+*   Periodic perturbations of the EMB (Earth-Moon barycentre)
+      PERTL =  CCSEC(1,1)          *SN(1) +CCSEC(1,2)*SN(2)+
+     :        (CCSEC(1,3)+T*CCSEC3)*SN(3) +CCSEC(1,4)*SN(4)
+      PERTLD = 0.0
+      PERTR = 0.0
+      PERTRD = 0.0
+      DO K=1,15
+         A = SNGL(MOD(DCARGS(1,K)+DT*DCARGS(2,K), DC2PI))
+         COSA = COS(A)
+         SINA = SIN(A)
+         PERTL = PERTL + CCAMPS(1,K)*COSA+CCAMPS(2,K)*SINA
+         PERTR = PERTR + CCAMPS(3,K)*COSA+CCAMPS(4,K)*SINA
+         IF (K.LT.11) THEN
+            PERTLD = PERTLD+
+     :               (CCAMPS(2,K)*COSA-CCAMPS(1,K)*SINA)*CCAMPS(5,K)
+            PERTRD = PERTRD+
+     :               (CCAMPS(4,K)*COSA-CCAMPS(3,K)*SINA)*CCAMPS(5,K)
+         END IF
+      END DO
+
+*   Elliptic part of the motion of the EMB
+      ESQ = E*E
+      DPARAM = 1D0-DBLE(ESQ)
+      PARAM = REAL(DPARAM)
+      TWOE = E+E
+      TWOG = G+G
+      PHI = TWOE*((1.0-ESQ*0.125)*SIN(G)+E*0.625*SIN(TWOG)
+     :          +ESQ*0.54166667*SIN(G+TWOG) )
+      F = G+PHI
+      SINF = SIN(F)
+      COSF = COS(F)
+      DPSI = DPARAM/(1D0+DBLE(E*COSF))
+      PHID = TWOE*CCSGD*((1.0+ESQ*1.5)*COSF+E*(1.25-SINF*SINF*0.5))
+      PSID = CCSGD*E*SINF/SQRT(PARAM)
+
+*   Perturbed heliocentric motion of the EMB
+      D1PDRO = 1D0+DBLE(PERTR)
+      DRD = D1PDRO*(DBLE(PSID)+DPSI*DBLE(PERTRD))
+      DRLD = D1PDRO*DPSI*(DCSLD+DBLE(PHID)+DBLE(PERTLD))
+      DTL = MOD(DML+DBLE(PHI)+DBLE(PERTL), DC2PI)
+      DSINLS = SIN(DTL)
+      DCOSLS = COS(DTL)
+      DXHD = DRD*DCOSLS-DRLD*DSINLS
+      DYHD = DRD*DSINLS+DRLD*DCOSLS
+
+*   Influence of eccentricity, evection and variation on the
+*   geocentric motion of the Moon
+      PERTL = 0.0
+      PERTLD = 0.0
+      PERTP = 0.0
+      PERTPD = 0.0
+      DO K=1,3
+         A = SNGL(MOD(DCARGM(1,K)+DT*DCARGM(2,K), DC2PI))
+         SINA = SIN(A)
+         COSA = COS(A)
+         PERTL = PERTL +CCAMPM(1,K)*SINA
+         PERTLD = PERTLD+CCAMPM(2,K)*COSA
+         PERTP = PERTP +CCAMPM(3,K)*COSA
+         PERTPD = PERTPD-CCAMPM(4,K)*SINA
+      END DO
+
+*   Heliocentric motion of the Earth
+      TL = FORBEL(2)+PERTL
+      SINLM = SIN(TL)
+      COSLM = COS(TL)
+      SIGMA = CCKM/(1.0+PERTP)
+      A = SIGMA*(CCMLD+PERTLD)
+      B = SIGMA*PERTPD
+      DXHD = DXHD+DBLE(A*SINLM)+DBLE(B*COSLM)
+      DYHD = DYHD-DBLE(A*COSLM)+DBLE(B*SINLM)
+      DZHD =     -DBLE(SIGMA*CCFDI*COS(FORBEL(3)))
+
+*   Barycentric motion of the Earth
+      DXBD = DXHD*DC1MME
+      DYBD = DYHD*DC1MME
+      DZBD = DZHD*DC1MME
+      DO K=1,4
+         PLON = FORBEL(K+3)
+         POMG = SORBEL(K+1)
+         PECC = SORBEL(K+9)
+         TL = MOD(PLON+2.0*PECC*SIN(PLON-POMG), CC2PI)
+         SINLP(K) = SIN(TL)
+         COSLP(K) = COS(TL)
+         DXBD = DXBD+DBLE(CCPAMV(K)*(SINLP(K)+PECC*SIN(POMG)))
+         DYBD = DYBD-DBLE(CCPAMV(K)*(COSLP(K)+PECC*COS(POMG)))
+         DZBD = DZBD-DBLE(CCPAMV(K)*SORBEL(K+13)*COS(PLON-SORBEL(K+5)))
+      END DO
+
+*   Transition to mean equator of date
+      DCOSEP = COS(DEPS)
+      DSINEP = SIN(DEPS)
+      DYAHD = DCOSEP*DYHD-DSINEP*DZHD
+      DZAHD = DSINEP*DYHD+DCOSEP*DZHD
+      DYABD = DCOSEP*DYBD-DSINEP*DZBD
+      DZABD = DSINEP*DYBD+DCOSEP*DZBD
+
+*   Heliocentric coordinates of the Earth
+      DR = DPSI*D1PDRO
+      FLATM = CCIM*SIN(FORBEL(3))
+      A = SIGMA*COS(FLATM)
+      DXH = DR*DCOSLS-DBLE(A*COSLM)
+      DYH = DR*DSINLS-DBLE(A*SINLM)
+      DZH =          -DBLE(SIGMA*SIN(FLATM))
+
+*   Barycentric coordinates of the Earth
+      DXB = DXH*DC1MME
+      DYB = DYH*DC1MME
+      DZB = DZH*DC1MME
+      DO K=1,4
+         FLAT = SORBEL(K+13)*SIN(FORBEL(K+3)-SORBEL(K+5))
+         A = CCPAM(K)*(1.0-SORBEL(K+9)*COS(FORBEL(K+3)-SORBEL(K+1)))
+         B = A*COS(FLAT)
+         DXB = DXB-DBLE(B*COSLP(K))
+         DYB = DYB-DBLE(B*SINLP(K))
+         DZB = DZB-DBLE(A*SIN(FLAT))
+      END DO
+
+*   Transition to mean equator of date
+      DYAH = DCOSEP*DYH-DSINEP*DZH
+      DZAH = DSINEP*DYH+DCOSEP*DZH
+      DYAB = DCOSEP*DYB-DSINEP*DZB
+      DZAB = DSINEP*DYB+DCOSEP*DZB
+
+*   Copy result components into vectors, correcting for FK4 equinox
+      DEPJ=sla_EPJ(DATE)
+      DEQCOR = DS2R*(0.035D0+0.00085D0*(DEPJ-B1950))
+      DVH(1) = DXHD-DEQCOR*DYAHD
+      DVH(2) = DYAHD+DEQCOR*DXHD
+      DVH(3) = DZAHD
+      DVB(1) = DXBD-DEQCOR*DYABD
+      DVB(2) = DYABD+DEQCOR*DXBD
+      DVB(3) = DZABD
+      DPH(1) = DXH-DEQCOR*DYAH
+      DPH(2) = DYAH+DEQCOR*DXH
+      DPH(3) = DZAH
+      DPB(1) = DXB-DEQCOR*DYAB
+      DPB(2) = DYAB+DEQCOR*DXB
+      DPB(3) = DZAB
+
+*   Was precession to another equinox requested?
+      IF (IDEQ.NE.0) THEN
+
+*     Yes: compute precession matrix from MJD DATE to Julian epoch DEQX
+         CALL sla_PREC(DEPJ,DEQX,DPREMA)
+
+*     Rotate DVH
+         DO J=1,3
+            W=0D0
+            DO I=1,3
+               W=W+DPREMA(J,I)*DVH(I)
+            END DO
+            VW(J)=W
+         END DO
+         DO J=1,3
+            DVH(J)=VW(J)
+         END DO
+
+*     Rotate DVB
+         DO J=1,3
+            W=0D0
+            DO I=1,3
+               W=W+DPREMA(J,I)*DVB(I)
+            END DO
+            VW(J)=W
+         END DO
+         DO J=1,3
+            DVB(J)=VW(J)
+         END DO
+
+*     Rotate DPH
+         DO J=1,3
+            W=0D0
+            DO I=1,3
+               W=W+DPREMA(J,I)*DPH(I)
+            END DO
+            VW(J)=W
+         END DO
+         DO J=1,3
+            DPH(J)=VW(J)
+         END DO
+
+*     Rotate DPB
+         DO J=1,3
+            W=0D0
+            DO I=1,3
+               W=W+DPREMA(J,I)*DPB(I)
+            END DO
+            VW(J)=W
+         END DO
+         DO J=1,3
+            DPB(J)=VW(J)
+         END DO
+      END IF
+
+      END
diff --git a/src/slalib/fitxy.f b/src/slalib/fitxy.f
new file mode 100644
index 0000000..97f1e00
--- /dev/null
+++ b/src/slalib/fitxy.f
@@ -0,0 +1,300 @@
+      SUBROUTINE sla_FITXY (ITYPE,NP,XYE,XYM,COEFFS,J)
+*+
+*     - - - - - -
+*      F I T X Y
+*     - - - - - -
+*
+*  Fit a linear model to relate two sets of [X,Y] coordinates.
+*
+*  Given:
+*     ITYPE    i        type of model: 4 or 6 (note 1)
+*     NP       i        number of samples (note 2)
+*     XYE     d(2,np)   expected [X,Y] for each sample
+*     XYM     d(2,np)   measured [X,Y] for each sample
+*
+*  Returned:
+*     COEFFS  d(6)      coefficients of model (note 3)
+*     J        i        status:  0 = OK
+*                               -1 = illegal ITYPE
+*                               -2 = insufficient data
+*                               -3 = singular solution
+*
+*  Notes:
+*
+*  1)  ITYPE, which must be either 4 or 6, selects the type of model
+*      fitted.  Both allowed ITYPE values produce a model COEFFS which
+*      consists of six coefficients, namely the zero points and, for
+*      each of XE and YE, the coefficient of XM and YM.  For ITYPE=6,
+*      all six coefficients are independent, modelling squash and shear
+*      as well as origin, scale, and orientation.  However, ITYPE=4
+*      selects the "solid body rotation" option;  the model COEFFS
+*      still consists of the same six coefficients, but now two of
+*      them are used twice (appropriately signed).  Origin, scale
+*      and orientation are still modelled, but not squash or shear -
+*      the units of X and Y have to be the same.
+*
+*  2)  For NC=4, NP must be at least 2.  For NC=6, NP must be at
+*      least 3.
+*
+*  3)  The model is returned in the array COEFFS.  Naming the
+*      elements of COEFFS as follows:
+*
+*                  COEFFS(1) = A
+*                  COEFFS(2) = B
+*                  COEFFS(3) = C
+*                  COEFFS(4) = D
+*                  COEFFS(5) = E
+*                  COEFFS(6) = F
+*
+*      the model is:
+*
+*            XE = A + B*XM + C*YM
+*            YE = D + E*XM + F*YM
+*
+*      For the "solid body rotation" option (ITYPE=4), the
+*      magnitudes of B and F, and of C and E, are equal.  The
+*      signs of these coefficients depend on whether there is a
+*      sign reversal between XE,YE and XM,YM;  fits are performed
+*      with and without a sign reversal and the best one chosen.
+*
+*  4)  Error status values J=-1 and -2 leave COEFFS unchanged;
+*      if J=-3 COEFFS may have been changed.
+*
+*  See also sla_PXY, sla_INVF, sla_XY2XY, sla_DCMPF
+*
+*  Called:  sla_DMAT, sla_DMXV
+*
+*  P.T.Wallace   Starlink   11 February 1991
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER ITYPE,NP
+      DOUBLE PRECISION XYE(2,NP),XYM(2,NP),COEFFS(6)
+      INTEGER J
+
+      INTEGER I,JSTAT,IW(4),NSOL
+      DOUBLE PRECISION P,SXE,SXEXM,SXEYM,SYE,SYEYM,SYEXM,SXM,
+     :                 SYM,SXMXM,SXMYM,SYMYM,XE,YE,
+     :                 XM,YM,V(4),DM3(3,3),DM4(4,4),DET,
+     :                 SGN,SXXYY,SXYYX,SX2Y2,A,B,C,D,
+     :                 SDR2,XR,YR,AOLD,BOLD,COLD,DOLD,SOLD
+
+
+
+*  Preset the status
+      J=0
+
+*  Float the number of samples
+      P=DBLE(NP)
+
+*  Check ITYPE
+      IF (ITYPE.EQ.6) THEN
+
+*
+*     Six-coefficient linear model
+*     ----------------------------
+
+*     Check enough samples
+         IF (NP.GE.3) THEN
+
+*     Form summations
+         SXE=0D0
+         SXEXM=0D0
+         SXEYM=0D0
+         SYE=0D0
+         SYEYM=0D0
+         SYEXM=0D0
+         SXM=0D0
+         SYM=0D0
+         SXMXM=0D0
+         SXMYM=0D0
+         SYMYM=0D0
+         DO I=1,NP
+            XE=XYE(1,I)
+            YE=XYE(2,I)
+            XM=XYM(1,I)
+            YM=XYM(2,I)
+            SXE=SXE+XE
+            SXEXM=SXEXM+XE*XM
+            SXEYM=SXEYM+XE*YM
+            SYE=SYE+YE
+            SYEYM=SYEYM+YE*YM
+            SYEXM=SYEXM+YE*XM
+            SXM=SXM+XM
+            SYM=SYM+YM
+            SXMXM=SXMXM+XM*XM
+            SXMYM=SXMYM+XM*YM
+            SYMYM=SYMYM+YM*YM
+         END DO
+
+*        Solve for A,B,C in  XE = A + B*XM + C*YM
+            V(1)=SXE
+            V(2)=SXEXM
+            V(3)=SXEYM
+            DM3(1,1)=P
+            DM3(1,2)=SXM
+            DM3(1,3)=SYM
+            DM3(2,1)=SXM
+            DM3(2,2)=SXMXM
+            DM3(2,3)=SXMYM
+            DM3(3,1)=SYM
+            DM3(3,2)=SXMYM
+            DM3(3,3)=SYMYM
+            CALL sla_DMAT(3,DM3,V,DET,JSTAT,IW)
+            IF (JSTAT.EQ.0) THEN
+               DO I=1,3
+                  COEFFS(I)=V(I)
+               END DO
+
+*           Solve for D,E,F in  YE = D + E*XM + F*YM
+               V(1)=SYE
+               V(2)=SYEXM
+               V(3)=SYEYM
+               CALL sla_DMXV(DM3,V,COEFFS(4))
+
+            ELSE
+
+*           No 6-coefficient solution possible
+               J=-3
+
+            END IF
+
+         ELSE
+
+*        Insufficient data for 6-coefficient fit
+            J=-2
+
+         END IF
+
+      ELSE IF (ITYPE.EQ.4) THEN
+
+*
+*     Four-coefficient solid body rotation model
+*     ------------------------------------------
+
+*     Check enough samples
+         IF (NP.GE.2) THEN
+
+*        Try two solutions, first without then with flip in X
+            DO NSOL=1,2
+               IF (NSOL.EQ.1) THEN
+                  SGN=1D0
+               ELSE
+                  SGN=-1D0
+               END IF
+
+*           Form summations
+               SXE=0D0
+               SXXYY=0D0
+               SXYYX=0D0
+               SYE=0D0
+               SXM=0D0
+               SYM=0D0
+               SX2Y2=0D0
+               DO I=1,NP
+                  XE=XYE(1,I)*SGN
+                  YE=XYE(2,I)
+                  XM=XYM(1,I)
+                  YM=XYM(2,I)
+                  SXE=SXE+XE
+                  SXXYY=SXXYY+XE*XM+YE*YM
+                  SXYYX=SXYYX+XE*YM-YE*XM
+                  SYE=SYE+YE
+                  SXM=SXM+XM
+                  SYM=SYM+YM
+                  SX2Y2=SX2Y2+XM*XM+YM*YM
+               END DO
+
+*
+*           Solve for A,B,C,D in:  +/- XE = A + B*XM - C*YM
+*                                    + YE = D + C*XM + B*YM
+               V(1)=SXE
+               V(2)=SXXYY
+               V(3)=SXYYX
+               V(4)=SYE
+               DM4(1,1)=P
+               DM4(1,2)=SXM
+               DM4(1,3)=-SYM
+               DM4(1,4)=0D0
+               DM4(2,1)=SXM
+               DM4(2,2)=SX2Y2
+               DM4(2,3)=0D0
+               DM4(2,4)=SYM
+               DM4(3,1)=SYM
+               DM4(3,2)=0D0
+               DM4(3,3)=-SX2Y2
+               DM4(3,4)=-SXM
+               DM4(4,1)=0D0
+               DM4(4,2)=SYM
+               DM4(4,3)=SXM
+               DM4(4,4)=P
+               CALL sla_DMAT(4,DM4,V,DET,JSTAT,IW)
+               IF (JSTAT.EQ.0) THEN
+                  A=V(1)
+                  B=V(2)
+                  C=V(3)
+                  D=V(4)
+
+*              Determine sum of radial errors squared
+                  SDR2=0D0
+                  DO I=1,NP
+                     XM=XYM(1,I)
+                     YM=XYM(2,I)
+                     XR=A+B*XM-C*YM-XYE(1,I)*SGN
+                     YR=D+C*XM+B*YM-XYE(2,I)
+                     SDR2=SDR2+XR*XR+YR*YR
+                  END DO
+
+               ELSE
+
+*              Singular: set flag
+                  SDR2=-1D0
+
+               END IF
+
+*           If first pass and non-singular, save variables
+               IF (NSOL.EQ.1.AND.JSTAT.EQ.0) THEN
+                  AOLD=A
+                  BOLD=B
+                  COLD=C
+                  DOLD=D
+                  SOLD=SDR2
+               END IF
+
+            END DO
+
+*        Pick the best of the two solutions
+            IF (SOLD.GE.0D0.AND.(SOLD.LE.SDR2.OR.NP.EQ.2)) THEN
+               COEFFS(1)=AOLD
+               COEFFS(2)=BOLD
+               COEFFS(3)=-COLD
+               COEFFS(4)=DOLD
+               COEFFS(5)=COLD
+               COEFFS(6)=BOLD
+            ELSE IF (JSTAT.EQ.0) THEN
+               COEFFS(1)=-A
+               COEFFS(2)=-B
+               COEFFS(3)=C
+               COEFFS(4)=D
+               COEFFS(5)=C
+               COEFFS(6)=B
+            ELSE
+
+*           No 4-coefficient fit possible
+               J=-3
+            END IF
+         ELSE
+
+*        Insufficient data for 4-coefficient fit
+            J=-2
+         END IF
+      ELSE
+
+*     Illegal ITYPE - not 4 or 6
+         J=-1
+      END IF
+
+      END
diff --git a/src/slalib/fk425.f b/src/slalib/fk425.f
new file mode 100644
index 0000000..9b8465f
--- /dev/null
+++ b/src/slalib/fk425.f
@@ -0,0 +1,249 @@
+      SUBROUTINE sla_FK425 (R1950,D1950,DR1950,DD1950,P1950,V1950,
+     :                      R2000,D2000,DR2000,DD2000,P2000,V2000)
+*+
+*     - - - - - -
+*      F K 4 2 5
+*     - - - - - -
+*
+*  Convert B1950.0 FK4 star data to J2000.0 FK5 (double precision)
+*
+*  This routine converts stars from the old, Bessel-Newcomb, FK4
+*  system to the new, IAU 1976, FK5, Fricke system.  The precepts
+*  of Smith et al (Ref 1) are followed, using the implementation
+*  by Yallop et al (Ref 2) of a matrix method due to Standish.
+*  Kinoshita's development of Andoyer's post-Newcomb precession is
+*  used.  The numerical constants from Seidelmann et al (Ref 3) are
+*  used canonically.
+*
+*  Given:  (all B1950.0,FK4)
+*     R1950,D1950     dp    B1950.0 RA,Dec (rad)
+*     DR1950,DD1950   dp    B1950.0 proper motions (rad/trop.yr)
+*     P1950           dp    parallax (arcsec)
+*     V1950           dp    radial velocity (km/s, +ve = moving away)
+*
+*  Returned:  (all J2000.0,FK5)
+*     R2000,D2000     dp    J2000.0 RA,Dec (rad)
+*     DR2000,DD2000   dp    J2000.0 proper motions (rad/Jul.yr)
+*     P2000           dp    parallax (arcsec)
+*     V2000           dp    radial velocity (km/s, +ve = moving away)
+*
+*  Notes:
+*
+*  1)  The proper motions in RA are dRA/dt rather than
+*      cos(Dec)*dRA/dt, and are per year rather than per century.
+*
+*  2)  Conversion from Besselian epoch 1950.0 to Julian epoch
+*      2000.0 only is provided for.  Conversions involving other
+*      epochs will require use of the appropriate precession,
+*      proper motion, and E-terms routines before and/or
+*      after FK425 is called.
+*
+*  3)  In the FK4 catalogue the proper motions of stars within
+*      10 degrees of the poles do not embody the differential
+*      E-term effect and should, strictly speaking, be handled
+*      in a different manner from stars outside these regions.
+*      However, given the general lack of homogeneity of the star
+*      data available for routine astrometry, the difficulties of
+*      handling positions that may have been determined from
+*      astrometric fields spanning the polar and non-polar regions,
+*      the likelihood that the differential E-terms effect was not
+*      taken into account when allowing for proper motion in past
+*      astrometry, and the undesirability of a discontinuity in
+*      the algorithm, the decision has been made in this routine to
+*      include the effect of differential E-terms on the proper
+*      motions for all stars, whether polar or not.  At epoch 2000,
+*      and measuring on the sky rather than in terms of dRA, the
+*      errors resulting from this simplification are less than
+*      1 milliarcsecond in position and 1 milliarcsecond per
+*      century in proper motion.
+*
+*  References:
+*
+*     1  Smith, C.A. et al, 1989.  "The transformation of astrometric
+*        catalog systems to the equinox J2000.0".  Astron.J. 97, 265.
+*
+*     2  Yallop, B.D. et al, 1989.  "Transformation of mean star places
+*        from FK4 B1950.0 to FK5 J2000.0 using matrices in 6-space".
+*        Astron.J. 97, 274.
+*
+*     3  Seidelmann, P.K. (ed), 1992.  "Explanatory Supplement to
+*        the Astronomical Almanac", ISBN 0-935702-68-7.
+*
+*  P.T.Wallace   Starlink   19 December 1993
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION R1950,D1950,DR1950,DD1950,P1950,V1950,
+     :                 R2000,D2000,DR2000,DD2000,P2000,V2000
+
+
+*  Miscellaneous
+      DOUBLE PRECISION R,D,UR,UD,PX,RV,SR,CR,SD,CD,W,WD
+      DOUBLE PRECISION X,Y,Z,XD,YD,ZD
+      DOUBLE PRECISION RXYSQ,RXYZSQ,RXY,RXYZ,SPXY,SPXYZ
+      INTEGER I,J
+
+*  Star position and velocity vectors
+      DOUBLE PRECISION R0(3),RD0(3)
+
+*  Combined position and velocity vectors
+      DOUBLE PRECISION V1(6),V2(6)
+
+*  2Pi
+      DOUBLE PRECISION D2PI
+      PARAMETER (D2PI=6.283185307179586476925287D0)
+
+*  Radians per year to arcsec per century
+      DOUBLE PRECISION PMF
+      PARAMETER (PMF=100D0*60D0*60D0*360D0/D2PI)
+
+*  Small number to avoid arithmetic problems
+      DOUBLE PRECISION TINY
+      PARAMETER (TINY=1D-30)
+
+
+*
+*  CANONICAL CONSTANTS  (see references)
+*
+
+*  Km per sec to AU per tropical century
+*  = 86400 * 36524.2198782 / 149597870
+      DOUBLE PRECISION VF
+      PARAMETER (VF=21.095D0)
+
+*  Constant vector and matrix (by columns)
+      DOUBLE PRECISION A(3),AD(3),EM(6,6)
+      DATA A,AD/ -1.62557D-6,  -0.31919D-6, -0.13843D-6,
+     :           +1.245D-3,    -1.580D-3,   -0.659D-3/
+
+      DATA (EM(I,1),I=1,6) / +0.9999256782D0,
+     :                       +0.0111820610D0,
+     :                       +0.0048579479D0,
+     :                       -0.000551D0,
+     :                       +0.238514D0,
+     :                       -0.435623D0 /
+
+      DATA (EM(I,2),I=1,6) / -0.0111820611D0,
+     :                       +0.9999374784D0,
+     :                       -0.0000271474D0,
+     :                       -0.238565D0,
+     :                       -0.002667D0,
+     :                       +0.012254D0 /
+
+      DATA (EM(I,3),I=1,6) / -0.0048579477D0,
+     :                       -0.0000271765D0,
+     :                       +0.9999881997D0,
+     :                       +0.435739D0,
+     :                       -0.008541D0,
+     :                       +0.002117D0 /
+
+      DATA (EM(I,4),I=1,6) / +0.00000242395018D0,
+     :                       +0.00000002710663D0,
+     :                       +0.00000001177656D0,
+     :                       +0.99994704D0,
+     :                       +0.01118251D0,
+     :                       +0.00485767D0 /
+
+      DATA (EM(I,5),I=1,6) / -0.00000002710663D0,
+     :                       +0.00000242397878D0,
+     :                       -0.00000000006582D0,
+     :                       -0.01118251D0,
+     :                       +0.99995883D0,
+     :                       -0.00002714D0 /
+
+      DATA (EM(I,6),I=1,6) / -0.00000001177656D0,
+     :                       -0.00000000006587D0,
+     :                       +0.00000242410173D0,
+     :                       -0.00485767D0,
+     :                       -0.00002718D0,
+     :                       +1.00000956D0 /
+
+
+
+*  Pick up B1950 data (units radians and arcsec/TC)
+      R=R1950
+      D=D1950
+      UR=DR1950*PMF
+      UD=DD1950*PMF
+      PX=P1950
+      RV=V1950
+
+*  Spherical to Cartesian
+      SR=SIN(R)
+      CR=COS(R)
+      SD=SIN(D)
+      CD=COS(D)
+
+      R0(1)=CR*CD
+      R0(2)=SR*CD
+      R0(3)=   SD
+
+      W=VF*RV*PX
+
+      RD0(1)=-SR*CD*UR-CR*SD*UD+W*R0(1)
+      RD0(2)= CR*CD*UR-SR*SD*UD+W*R0(2)
+      RD0(3)=             CD*UD+W*R0(3)
+
+*  Allow for e-terms and express as position+velocity 6-vector
+      W=R0(1)*A(1)+R0(2)*A(2)+R0(3)*A(3)
+      WD=R0(1)*AD(1)+R0(2)*AD(2)+R0(3)*AD(3)
+      DO I=1,3
+         V1(I)=R0(I)-A(I)+W*R0(I)
+         V1(I+3)=RD0(I)-AD(I)+WD*R0(I)
+      END DO
+
+*  Convert position+velocity vector to Fricke system
+      DO I=1,6
+         W=0D0
+         DO J=1,6
+            W=W+EM(I,J)*V1(J)
+         END DO
+         V2(I)=W
+      END DO
+
+*  Revert to spherical coordinates
+      X=V2(1)
+      Y=V2(2)
+      Z=V2(3)
+      XD=V2(4)
+      YD=V2(5)
+      ZD=V2(6)
+
+      RXYSQ=X*X+Y*Y
+      RXYZSQ=RXYSQ+Z*Z
+      RXY=SQRT(RXYSQ)
+      RXYZ=SQRT(RXYZSQ)
+
+      SPXY=X*XD+Y*YD
+      SPXYZ=SPXY+Z*ZD
+
+      IF (X.EQ.0D0.AND.Y.EQ.0D0) THEN
+         R=0D0
+      ELSE
+         R=ATAN2(Y,X)
+         IF (R.LT.0.0D0) R=R+D2PI
+      END IF
+      D=ATAN2(Z,RXY)
+
+      IF (RXY.GT.TINY) THEN
+         UR=(X*YD-Y*XD)/RXYSQ
+         UD=(ZD*RXYSQ-Z*SPXY)/(RXYZSQ*RXY)
+      END IF
+
+      IF (PX.GT.TINY) THEN
+         RV=SPXYZ/(PX*RXYZ*VF)
+         PX=PX/RXYZ
+      END IF
+
+*  Return results
+      R2000=R
+      D2000=D
+      DR2000=UR/PMF
+      DD2000=UD/PMF
+      V2000=RV
+      P2000=PX
+
+      END
diff --git a/src/slalib/fk45z.f b/src/slalib/fk45z.f
new file mode 100644
index 0000000..350251d
--- /dev/null
+++ b/src/slalib/fk45z.f
@@ -0,0 +1,165 @@
+      SUBROUTINE sla_FK45Z (R1950,D1950,BEPOCH,R2000,D2000)
+*+
+*     - - - - - -
+*      F K 4 5 Z
+*     - - - - - -
+*
+*  Convert B1950.0 FK4 star data to J2000.0 FK5 assuming zero
+*  proper motion in the FK5 frame (double precision)
+*
+*  This routine converts stars from the old, Bessel-Newcomb, FK4
+*  system to the new, IAU 1976, FK5, Fricke system, in such a
+*  way that the FK5 proper motion is zero.  Because such a star
+*  has, in general, a non-zero proper motion in the FK4 system,
+*  the routine requires the epoch at which the position in the
+*  FK4 system was determined.
+*
+*  The method is from Appendix 2 of Ref 1, but using the constants
+*  of Ref 4.
+*
+*  Given:
+*     R1950,D1950     dp    B1950.0 FK4 RA,Dec at epoch (rad)
+*     BEPOCH          dp    Besselian epoch (e.g. 1979.3D0)
+*
+*  Returned:
+*     R2000,D2000     dp    J2000.0 FK5 RA,Dec (rad)
+*
+*  Notes:
+*
+*  1)  The epoch BEPOCH is strictly speaking Besselian, but
+*      if a Julian epoch is supplied the result will be
+*      affected only to a negligible extent.
+*
+*  2)  Conversion from Besselian epoch 1950.0 to Julian epoch
+*      2000.0 only is provided for.  Conversions involving other
+*      epochs will require use of the appropriate precession,
+*      proper motion, and E-terms routines before and/or
+*      after FK45Z is called.
+*
+*  3)  In the FK4 catalogue the proper motions of stars within
+*      10 degrees of the poles do not embody the differential
+*      E-term effect and should, strictly speaking, be handled
+*      in a different manner from stars outside these regions.
+*      However, given the general lack of homogeneity of the star
+*      data available for routine astrometry, the difficulties of
+*      handling positions that may have been determined from
+*      astrometric fields spanning the polar and non-polar regions,
+*      the likelihood that the differential E-terms effect was not
+*      taken into account when allowing for proper motion in past
+*      astrometry, and the undesirability of a discontinuity in
+*      the algorithm, the decision has been made in this routine to
+*      include the effect of differential E-terms on the proper
+*      motions for all stars, whether polar or not.  At epoch 2000,
+*      and measuring on the sky rather than in terms of dRA, the
+*      errors resulting from this simplification are less than
+*      1 milliarcsecond in position and 1 milliarcsecond per
+*      century in proper motion.
+*
+*  References:
+*
+*     1  Aoki,S., et al, 1983.  Astron.Astrophys., 128, 263.
+*
+*     2  Smith, C.A. et al, 1989.  "The transformation of astrometric
+*        catalog systems to the equinox J2000.0".  Astron.J. 97, 265.
+*
+*     3  Yallop, B.D. et al, 1989.  "Transformation of mean star places
+*        from FK4 B1950.0 to FK5 J2000.0 using matrices in 6-space".
+*        Astron.J. 97, 274.
+*
+*     4  Seidelmann, P.K. (ed), 1992.  "Explanatory Supplement to
+*        the Astronomical Almanac", ISBN 0-935702-68-7.
+*
+*  Called:  sla_DCS2C, sla_EPJ, sla_EPB2D, sla_DCC2S, sla_DRANRM
+*
+*  P.T.Wallace   Starlink   21 September 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION R1950,D1950,BEPOCH,R2000,D2000
+
+      DOUBLE PRECISION D2PI
+      PARAMETER (D2PI=6.283185307179586476925287D0)
+
+      DOUBLE PRECISION W
+      INTEGER I,J
+
+*  Position and position+velocity vectors
+      DOUBLE PRECISION R0(3),A1(3),V1(3),V2(6)
+
+*  Radians per year to arcsec per century
+      DOUBLE PRECISION PMF
+      PARAMETER (PMF=100D0*60D0*60D0*360D0/D2PI)
+
+*  Functions
+      DOUBLE PRECISION sla_EPJ,sla_EPB2D,sla_DRANRM
+
+*
+*  CANONICAL CONSTANTS  (see references)
+*
+
+*  Vectors A and Adot, and matrix M (only half of which is needed here)
+      DOUBLE PRECISION A(3),AD(3),EM(6,3)
+      DATA A,AD/ -1.62557D-6,  -0.31919D-6, -0.13843D-6,
+     :           +1.245D-3,    -1.580D-3,   -0.659D-3/
+
+      DATA (EM(I,1),I=1,6) / +0.9999256782D0,
+     :                       +0.0111820610D0,
+     :                       +0.0048579479D0,
+     :                       -0.000551D0,
+     :                       +0.238514D0,
+     :                       -0.435623D0 /
+
+      DATA (EM(I,2),I=1,6) / -0.0111820611D0,
+     :                       +0.9999374784D0,
+     :                       -0.0000271474D0,
+     :                       -0.238565D0,
+     :                       -0.002667D0,
+     :                       +0.012254D0 /
+
+      DATA (EM(I,3),I=1,6) / -0.0048579477D0,
+     :                       -0.0000271765D0,
+     :                       +0.9999881997D0,
+     :                       +0.435739D0,
+     :                       -0.008541D0,
+     :                       +0.002117D0 /
+
+
+
+*  Spherical to Cartesian
+      CALL sla_DCS2C(R1950,D1950,R0)
+
+*  Adjust vector A to give zero proper motion in FK5
+      W=(BEPOCH-1950D0)/PMF
+      DO I=1,3
+         A1(I)=A(I)+W*AD(I)
+      END DO
+
+*  Remove e-terms
+      W=R0(1)*A1(1)+R0(2)*A1(2)+R0(3)*A1(3)
+      DO I=1,3
+         V1(I)=R0(I)-A1(I)+W*R0(I)
+      END DO
+
+*  Convert position vector to Fricke system
+      DO I=1,6
+         W=0D0
+         DO J=1,3
+            W=W+EM(I,J)*V1(J)
+         END DO
+         V2(I)=W
+      END DO
+
+*  Allow for fictitious proper motion in FK4
+      W=(sla_EPJ(sla_EPB2D(BEPOCH))-2000D0)/PMF
+      DO I=1,3
+         V2(I)=V2(I)+W*V2(I+3)
+      END DO
+
+*  Revert to spherical coordinates
+      CALL sla_DCC2S(V2,W,D2000)
+      R2000=sla_DRANRM(W)
+
+      END
diff --git a/src/slalib/fk524.f b/src/slalib/fk524.f
new file mode 100644
index 0000000..1b990dc
--- /dev/null
+++ b/src/slalib/fk524.f
@@ -0,0 +1,257 @@
+      SUBROUTINE sla_FK524 (R2000,D2000,DR2000,DD2000,P2000,V2000,
+     :                      R1950,D1950,DR1950,DD1950,P1950,V1950)
+*+
+*     - - - - - -
+*      F K 5 2 4
+*     - - - - - -
+*
+*  Convert J2000.0 FK5 star data to B1950.0 FK4 (double precision)
+*
+*  This routine converts stars from the new, IAU 1976, FK5, Fricke
+*  system, to the old, Bessel-Newcomb, FK4 system.  The precepts
+*  of Smith et al (Ref 1) are followed, using the implementation
+*  by Yallop et al (Ref 2) of a matrix method due to Standish.
+*  Kinoshita's development of Andoyer's post-Newcomb precession is
+*  used.  The numerical constants from Seidelmann et al (Ref 3) are
+*  used canonically.
+*
+*  Given:  (all J2000.0,FK5)
+*     R2000,D2000     dp    J2000.0 RA,Dec (rad)
+*     DR2000,DD2000   dp    J2000.0 proper motions (rad/Jul.yr)
+*     P2000           dp    parallax (arcsec)
+*     V2000           dp    radial velocity (km/s, +ve = moving away)
+*
+*  Returned:  (all B1950.0,FK4)
+*     R1950,D1950     dp    B1950.0 RA,Dec (rad)
+*     DR1950,DD1950   dp    B1950.0 proper motions (rad/trop.yr)
+*     P1950           dp    parallax (arcsec)
+*     V1950           dp    radial velocity (km/s, +ve = moving away)
+*
+*  Notes:
+*
+*  1)  The proper motions in RA are dRA/dt rather than
+*      cos(Dec)*dRA/dt, and are per year rather than per century.
+*
+*  2)  Note that conversion from Julian epoch 2000.0 to Besselian
+*      epoch 1950.0 only is provided for.  Conversions involving
+*      other epochs will require use of the appropriate precession,
+*      proper motion, and E-terms routines before and/or after
+*      FK524 is called.
+*
+*  3)  In the FK4 catalogue the proper motions of stars within
+*      10 degrees of the poles do not embody the differential
+*      E-term effect and should, strictly speaking, be handled
+*      in a different manner from stars outside these regions.
+*      However, given the general lack of homogeneity of the star
+*      data available for routine astrometry, the difficulties of
+*      handling positions that may have been determined from
+*      astrometric fields spanning the polar and non-polar regions,
+*      the likelihood that the differential E-terms effect was not
+*      taken into account when allowing for proper motion in past
+*      astrometry, and the undesirability of a discontinuity in
+*      the algorithm, the decision has been made in this routine to
+*      include the effect of differential E-terms on the proper
+*      motions for all stars, whether polar or not.  At epoch 2000,
+*      and measuring on the sky rather than in terms of dRA, the
+*      errors resulting from this simplification are less than
+*      1 milliarcsecond in position and 1 milliarcsecond per
+*      century in proper motion.
+*
+*  References:
+*
+*     1  Smith, C.A. et al, 1989.  "The transformation of astrometric
+*        catalog systems to the equinox J2000.0".  Astron.J. 97, 265.
+*
+*     2  Yallop, B.D. et al, 1989.  "Transformation of mean star places
+*        from FK4 B1950.0 to FK5 J2000.0 using matrices in 6-space".
+*        Astron.J. 97, 274.
+*
+*     3  Seidelmann, P.K. (ed), 1992.  "Explanatory Supplement to
+*        the Astronomical Almanac", ISBN 0-935702-68-7.
+*
+*  P.T.Wallace   Starlink   19 December 1993
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION R2000,D2000,DR2000,DD2000,P2000,V2000,
+     :                 R1950,D1950,DR1950,DD1950,P1950,V1950
+
+
+*  Miscellaneous
+      DOUBLE PRECISION R,D,UR,UD,PX,RV
+      DOUBLE PRECISION SR,CR,SD,CD,X,Y,Z,W
+      DOUBLE PRECISION V1(6),V2(6)
+      DOUBLE PRECISION XD,YD,ZD
+      DOUBLE PRECISION RXYZ,WD,RXYSQ,RXY
+      INTEGER I,J
+
+*  2Pi
+      DOUBLE PRECISION D2PI
+      PARAMETER (D2PI=6.283185307179586476925287D0)
+
+*  Radians per year to arcsec per century
+      DOUBLE PRECISION PMF
+      PARAMETER (PMF=100D0*60D0*60D0*360D0/D2PI)
+
+*  Small number to avoid arithmetic problems
+      DOUBLE PRECISION TINY
+      PARAMETER (TINY=1D-30)
+
+*
+*  CANONICAL CONSTANTS  (see references)
+*
+
+*  Km per sec to AU per tropical century
+*  = 86400 * 36524.2198782 / 149597870
+      DOUBLE PRECISION VF
+      PARAMETER (VF=21.095D0)
+
+*  Constant vector and matrix (by columns)
+      DOUBLE PRECISION A(6),EMI(6,6)
+      DATA A/ -1.62557D-6,  -0.31919D-6, -0.13843D-6,
+     :        +1.245D-3,    -1.580D-3,   -0.659D-3/
+
+      DATA (EMI(I,1),I=1,6) / +0.9999256795D0,
+     :                        -0.0111814828D0,
+     :                        -0.0048590040D0,
+     :                        -0.000551D0,
+     :                        -0.238560D0,
+     :                        +0.435730D0 /
+
+      DATA (EMI(I,2),I=1,6) / +0.0111814828D0,
+     :                        +0.9999374849D0,
+     :                        -0.0000271557D0,
+     :                        +0.238509D0,
+     :                        -0.002667D0,
+     :                        -0.008541D0 /
+
+      DATA (EMI(I,3),I=1,6) / +0.0048590039D0,
+     :                        -0.0000271771D0,
+     :                        +0.9999881946D0,
+     :                        -0.435614D0,
+     :                        +0.012254D0,
+     :                        +0.002117D0 /
+
+      DATA (EMI(I,4),I=1,6) / -0.00000242389840D0,
+     :                        +0.00000002710544D0,
+     :                        +0.00000001177742D0,
+     :                        +0.99990432D0,
+     :                        -0.01118145D0,
+     :                        -0.00485852D0 /
+
+      DATA (EMI(I,5),I=1,6) / -0.00000002710544D0,
+     :                        -0.00000242392702D0,
+     :                        +0.00000000006585D0,
+     :                        +0.01118145D0,
+     :                        +0.99991613D0,
+     :                        -0.00002716D0 /
+
+      DATA (EMI(I,6),I=1,6) / -0.00000001177742D0,
+     :                        +0.00000000006585D0,
+     :                        -0.00000242404995D0,
+     :                        +0.00485852D0,
+     :                        -0.00002717D0,
+     :                        +0.99996684D0 /
+
+
+
+*  Pick up J2000 data (units radians and arcsec/JC)
+      R=R2000
+      D=D2000
+      UR=DR2000*PMF
+      UD=DD2000*PMF
+      PX=P2000
+      RV=V2000
+
+*  Spherical to Cartesian
+      SR=SIN(R)
+      CR=COS(R)
+      SD=SIN(D)
+      CD=COS(D)
+
+      X=CR*CD
+      Y=SR*CD
+      Z=   SD
+
+      W=VF*RV*PX
+
+      V1(1)=X
+      V1(2)=Y
+      V1(3)=Z
+
+      V1(4)=-UR*Y-CR*SD*UD+W*X
+      V1(5)= UR*X-SR*SD*UD+W*Y
+      V1(6)=         CD*UD+W*Z
+
+*  Convert position+velocity vector to BN system
+      DO I=1,6
+         W=0D0
+         DO J=1,6
+            W=W+EMI(I,J)*V1(J)
+         END DO
+         V2(I)=W
+      END DO
+
+*  Position vector components and magnitude
+      X=V2(1)
+      Y=V2(2)
+      Z=V2(3)
+      RXYZ=SQRT(X*X+Y*Y+Z*Z)
+
+*  Apply E-terms to position
+      W=X*A(1)+Y*A(2)+Z*A(3)
+      X=X+A(1)*RXYZ-W*X
+      Y=Y+A(2)*RXYZ-W*Y
+      Z=Z+A(3)*RXYZ-W*Z
+
+*  Recompute magnitude
+      RXYZ=SQRT(X*X+Y*Y+Z*Z)
+
+*  Apply E-terms to both position and velocity
+      X=V2(1)
+      Y=V2(2)
+      Z=V2(3)
+      W=X*A(1)+Y*A(2)+Z*A(3)
+      WD=X*A(4)+Y*A(5)+Z*A(6)
+      X=X+A(1)*RXYZ-W*X
+      Y=Y+A(2)*RXYZ-W*Y
+      Z=Z+A(3)*RXYZ-W*Z
+      XD=V2(4)+A(4)*RXYZ-WD*X
+      YD=V2(5)+A(5)*RXYZ-WD*Y
+      ZD=V2(6)+A(6)*RXYZ-WD*Z
+
+*  Convert to spherical
+      RXYSQ=X*X+Y*Y
+      RXY=SQRT(RXYSQ)
+
+      IF (X.EQ.0D0.AND.Y.EQ.0D0) THEN
+         R=0D0
+      ELSE
+         R=ATAN2(Y,X)
+         IF (R.LT.0.0D0) R=R+D2PI
+      END IF
+      D=ATAN2(Z,RXY)
+
+      IF (RXY.GT.TINY) THEN
+         UR=(X*YD-Y*XD)/RXYSQ
+         UD=(ZD*RXYSQ-Z*(X*XD+Y*YD))/((RXYSQ+Z*Z)*RXY)
+      END IF
+
+*  Radial velocity and parallax
+      IF (PX.GT.TINY) THEN
+         RV=(X*XD+Y*YD+Z*ZD)/(PX*VF*RXYZ)
+         PX=PX/RXYZ
+      END IF
+
+*  Return results
+      R1950=R
+      D1950=D
+      DR1950=UR/PMF
+      DD1950=UD/PMF
+      P1950=PX
+      V1950=RV
+
+      END
diff --git a/src/slalib/fk52h.f b/src/slalib/fk52h.f
new file mode 100644
index 0000000..c31a8fe
--- /dev/null
+++ b/src/slalib/fk52h.f
@@ -0,0 +1,105 @@
+      SUBROUTINE sla_FK52H (R5,D5,DR5,DD5,RH,DH,DRH,DDH)
+*+
+*     - - - - - -
+*      F K 5 2 H
+*     - - - - - -
+*
+*  Transform FK5 (J2000) star data into the Hipparcos frame.
+*
+*  (double precision)
+*
+*  This routine transforms FK5 star positions and proper motions
+*  into the frame of the Hipparcos catalogue.
+*
+*  Given (all FK5, equinox J2000, epoch J2000):
+*     R5        d      RA (radians)
+*     D5        d      Dec (radians)
+*     DR5       d      proper motion in RA (dRA/dt, rad/Jyear)
+*     DD5       d      proper motion in Dec (dDec/dt, rad/Jyear)
+*
+*  Returned (all Hipparcos, epoch J2000):
+*     RH        d      RA (radians)
+*     DH        d      Dec (radians)
+*     DRH       d      proper motion in RA (dRA/dt, rad/Jyear)
+*     DDH       d      proper motion in Dec (dDec/dt, rad/Jyear)
+*
+*  Called:  sla_DS2C6, sla_DAV2M, sla_DMXV, sla_DVXV, sla_DC62S,
+*           sla_DRANRM
+*
+*  Notes:
+*
+*  1)  The proper motions in RA are dRA/dt rather than
+*      cos(Dec)*dRA/dt, and are per year rather than per century.
+*
+*  2)  The FK5 to Hipparcos transformation consists of a pure
+*      rotation and spin;  zonal errors in the FK5 catalogue are
+*      not taken into account.
+*
+*  3)  The published orientation and spin components are interpreted
+*      as "axial vectors".  An axial vector points at the pole of the
+*      rotation and its length is the amount of rotation in radians.
+*
+*  4)  See also sla_H2FK5, sla_FK5HZ, sla_HFK5Z.
+*
+*  Reference:
+*
+*     M.Feissel & F.Mignard, Astron. Astrophys. 331, L33-L36 (1998).
+*
+*  P.T.Wallace   Starlink   22 June 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION R5,D5,DR5,DD5,RH,DH,DRH,DDH
+
+      DOUBLE PRECISION AS2R
+      PARAMETER (AS2R=0.484813681109535994D-5)
+
+*  FK5 to Hipparcos orientation and spin (radians, radians/year)
+      DOUBLE PRECISION EPX,EPY,EPZ
+      DOUBLE PRECISION OMX,OMY,OMZ
+
+      PARAMETER ( EPX = -19.9D-3 * AS2R,
+     :            EPY =  -9.1D-3 * AS2R,
+     :            EPZ = +22.9D-3 * AS2R )
+
+      PARAMETER ( OMX = -0.30D-3 * AS2R,
+     :            OMY = +0.60D-3 * AS2R,
+     :            OMZ = +0.70D-3 * AS2R )
+
+      DOUBLE PRECISION PV5(6),ORTN(3),R5H(3,3),S5(3),VV(3),PVH(6),W,R,V
+      INTEGER I
+
+      DOUBLE PRECISION sla_DRANRM
+
+
+
+*  FK5 barycentric position/velocity 6-vector (normalized).
+      CALL sla_DS2C6(R5,D5,1D0,DR5,DD5,0D0,PV5)
+
+*  FK5 to Hipparcos orientation matrix.
+      ORTN(1) = EPX
+      ORTN(2) = EPY
+      ORTN(3) = EPZ
+      CALL sla_DAV2M(ORTN,R5H)
+
+*  Hipparcos wrt FK5 spin vector.
+      S5(1) = OMX
+      S5(2) = OMY
+      S5(3) = OMZ
+
+*  Orient & spin the 6-vector into the Hipparcos frame.
+      CALL sla_DMXV(R5H,PV5,PVH)
+      CALL sla_DVXV(PV5,S5,VV)
+      DO I=1,3
+         VV(I) = PV5(I+3)+VV(I)
+      END DO
+      CALL sla_DMXV(R5H,VV,PVH(4))
+
+*  Hipparcos 6-vector to spherical.
+      CALL sla_DC62S(PVH,W,DH,R,DRH,DDH,V)
+      RH = sla_DRANRM(W)
+
+      END
diff --git a/src/slalib/fk54z.f b/src/slalib/fk54z.f
new file mode 100644
index 0000000..4ab564f
--- /dev/null
+++ b/src/slalib/fk54z.f
@@ -0,0 +1,69 @@
+      SUBROUTINE sla_FK54Z (R2000,D2000,BEPOCH,
+     :                      R1950,D1950,DR1950,DD1950)
+*+
+*     - - - - - -
+*      F K 5 4 Z
+*     - - - - - -
+*
+*  Convert a J2000.0 FK5 star position to B1950.0 FK4 assuming
+*  zero proper motion and parallax (double precision)
+*
+*  This routine converts star positions from the new, IAU 1976,
+*  FK5, Fricke system to the old, Bessel-Newcomb, FK4 system.
+*
+*  Given:
+*     R2000,D2000     dp    J2000.0 FK5 RA,Dec (rad)
+*     BEPOCH          dp    Besselian epoch (e.g. 1950D0)
+*
+*  Returned:
+*     R1950,D1950     dp    B1950.0 FK4 RA,Dec (rad) at epoch BEPOCH
+*     DR1950,DD1950   dp    B1950.0 FK4 proper motions (rad/trop.yr)
+*
+*  Notes:
+*
+*  1)  The proper motion in RA is dRA/dt rather than cos(Dec)*dRA/dt.
+*
+*  2)  Conversion from Julian epoch 2000.0 to Besselian epoch 1950.0
+*      only is provided for.  Conversions involving other epochs will
+*      require use of the appropriate precession routines before and
+*      after this routine is called.
+*
+*  3)  Unlike in the sla_FK524 routine, the FK5 proper motions, the
+*      parallax and the radial velocity are presumed zero.
+*
+*  4)  It is the intention that FK5 should be a close approximation
+*      to an inertial frame, so that distant objects have zero proper
+*      motion;  such objects have (in general) non-zero proper motion
+*      in FK4, and this routine returns those fictitious proper
+*      motions.
+*
+*  5)  The position returned by this routine is in the B1950
+*      reference frame but at Besselian epoch BEPOCH.  For
+*      comparison with catalogues the BEPOCH argument will
+*      frequently be 1950D0.
+*
+*  Called:  sla_FK524, sla_PM
+*
+*  P.T.Wallace   Starlink   10 April 1990
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION R2000,D2000,BEPOCH,
+     :                 R1950,D1950,DR1950,DD1950
+
+      DOUBLE PRECISION R,D,PX,RV
+
+
+
+*  FK5 equinox J2000 (any epoch) to FK4 equinox B1950 epoch B1950
+      CALL sla_FK524(R2000,D2000,0D0,0D0,0D0,0D0,
+     :               R,D,DR1950,DD1950,PX,RV)
+
+*  Fictitious proper motion to epoch BEPOCH
+      CALL sla_PM(R,D,DR1950,DD1950,0D0,0D0,1950D0,BEPOCH,
+     :            R1950,D1950)
+
+      END
diff --git a/src/slalib/fk5hz.f b/src/slalib/fk5hz.f
new file mode 100644
index 0000000..7aa209d
--- /dev/null
+++ b/src/slalib/fk5hz.f
@@ -0,0 +1,107 @@
+      SUBROUTINE sla_FK5HZ (R5,D5,EPOCH,RH,DH)
+*+
+*     - - - - - -
+*      F K 5 H Z
+*     - - - - - -
+*
+*  Transform an FK5 (J2000) star position into the frame of the
+*  Hipparcos catalogue, assuming zero Hipparcos proper motion.
+*
+*  (double precision)
+*
+*  This routine converts a star position from the FK5 system to
+*  the Hipparcos system, in such a way that the Hipparcos proper
+*  motion is zero.  Because such a star has, in general, a non-zero
+*  proper motion in the FK5 system, the routine requires the epoch
+*  at which the position in the FK5 system was determined.
+*
+*  Given:
+*     R5        d      FK5 RA (radians), equinox J2000, epoch EPOCH
+*     D5        d      FK5 Dec (radians), equinox J2000, epoch EPOCH
+*     EPOCH     d      Julian epoch (TDB)
+*
+*  Returned (all Hipparcos):
+*     RH        d      RA (radians)
+*     DH        d      Dec (radians)
+*
+*  Called:  sla_DCS2C, sla_DAV2M, sla_DIMXV, sla_DMXV, sla_DCC2S,
+*           sla_DRANRM
+*
+*  Notes:
+*
+*  1)  The FK5 to Hipparcos transformation consists of a pure
+*      rotation and spin;  zonal errors in the FK5 catalogue are
+*      not taken into account.
+*
+*  2)  The published orientation and spin components are interpreted
+*      as "axial vectors".  An axial vector points at the pole of the
+*      rotation and its length is the amount of rotation in radians.
+*
+*  3)  See also sla_FK52H, sla_H2FK5, sla_HFK5Z.
+*
+*  Reference:
+*
+*     M.Feissel & F.Mignard, Astron. Astrophys. 331, L33-L36 (1998).
+*
+*  P.T.Wallace   Starlink   22 June 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION R5,D5,EPOCH,RH,DH
+
+      DOUBLE PRECISION AS2R
+      PARAMETER (AS2R=0.484813681109535994D-5)
+
+*  FK5 to Hipparcos orientation and spin (radians, radians/year)
+      DOUBLE PRECISION EPX,EPY,EPZ
+      DOUBLE PRECISION OMX,OMY,OMZ
+
+      PARAMETER ( EPX = -19.9D-3 * AS2R,
+     :            EPY =  -9.1D-3 * AS2R,
+     :            EPZ = +22.9D-3 * AS2R )
+
+      PARAMETER ( OMX = -0.30D-3 * AS2R,
+     :            OMY = +0.60D-3 * AS2R,
+     :            OMZ = +0.70D-3 * AS2R )
+
+      DOUBLE PRECISION P5E(3),ORTN(3),R5H(3,3),T,VST(3),RST(3,3),
+     :                 P5(3),PH(3),W
+
+      DOUBLE PRECISION sla_DRANRM
+
+
+
+*  FK5 barycentric position vector.
+      CALL sla_DCS2C(R5,D5,P5E)
+
+*  FK5 to Hipparcos orientation matrix.
+      ORTN(1) = EPX
+      ORTN(2) = EPY
+      ORTN(3) = EPZ
+      CALL sla_DAV2M(ORTN,R5H)
+
+*  Time interval from epoch to J2000.
+      T = 2000D0-EPOCH
+
+*  Axial vector:  accumulated Hipparcos wrt FK5 spin over that interval.
+      VST(1) = OMX*T
+      VST(2) = OMY*T
+      VST(3) = OMZ*T
+
+*  Express the accumulated spin as a rotation matrix.
+      CALL sla_DAV2M(VST,RST)
+
+*  Derotate the vector's FK5 axes back to epoch.
+      CALL sla_DIMXV(RST,P5E,P5)
+
+*  Rotate the vector into the Hipparcos frame.
+      CALL sla_DMXV(R5H,P5,PH)
+
+*  Hipparcos vector to spherical.
+      CALL sla_DCC2S(PH,W,DH)
+      RH = sla_DRANRM(W)
+
+      END
diff --git a/src/slalib/flotin.f b/src/slalib/flotin.f
new file mode 100644
index 0000000..ce90726
--- /dev/null
+++ b/src/slalib/flotin.f
@@ -0,0 +1,128 @@
+      SUBROUTINE sla_FLOTIN (STRING, NSTRT, RESLT, JFLAG)
+*+
+*     - - - - - - -
+*      F L O T I N
+*     - - - - - - -
+*
+*  Convert free-format input into single precision floating point
+*
+*  Given:
+*     STRING     c     string containing number to be decoded
+*     NSTRT      i     pointer to where decoding is to start
+*     RESLT      r     current value of result
+*
+*  Returned:
+*     NSTRT      i      advanced to next number
+*     RESLT      r      result
+*     JFLAG      i      status: -1 = -OK, 0 = +OK, 1 = null, 2 = error
+*
+*  Called:  sla_DFLTIN
+*
+*  Notes:
+*
+*     1     The reason FLOTIN has separate OK status values for +
+*           and - is to enable minus zero to be detected.   This is
+*           of crucial importance when decoding mixed-radix numbers.
+*           For example, an angle expressed as deg, arcmin, arcsec
+*           may have a leading minus sign but a zero degrees field.
+*
+*     2     A TAB is interpreted as a space, and lowercase characters
+*           are interpreted as uppercase.
+*
+*     3     The basic format is the sequence of fields #^.^@#^, where
+*           # is a sign character + or -, ^ means a string of decimal
+*           digits, and @, which indicates an exponent, means D or E.
+*           Various combinations of these fields can be omitted, and
+*           embedded blanks are permissible in certain places.
+*
+*     4     Spaces:
+*
+*             .  Leading spaces are ignored.
+*
+*             .  Embedded spaces are allowed only after +, -, D or E,
+*                and after the decomal point if the first sequence of
+*                digits is absent.
+*
+*             .  Trailing spaces are ignored;  the first signifies
+*                end of decoding and subsequent ones are skipped.
+*
+*     5     Delimiters:
+*
+*             .  Any character other than +,-,0-9,.,D,E or space may be
+*                used to signal the end of the number and terminate
+*                decoding.
+*
+*             .  Comma is recognized by FLOTIN as a special case;  it
+*                is skipped, leaving the pointer on the next character.
+*                See 13, below.
+*
+*     6     Both signs are optional.  The default is +.
+*
+*     7     The mantissa ^.^ defaults to 1.
+*
+*     8     The exponent @#^ defaults to E0.
+*
+*     9     The strings of decimal digits may be of any length.
+*
+*     10    The decimal point is optional for whole numbers.
+*
+*     11    A "null result" occurs when the string of characters being
+*           decoded does not begin with +,-,0-9,.,D or E, or consists
+*           entirely of spaces.  When this condition is detected, JFLAG
+*           is set to 1 and RESLT is left untouched.
+*
+*     12    NSTRT = 1 for the first character in the string.
+*
+*     13    On return from FLOTIN, NSTRT is set ready for the next
+*           decode - following trailing blanks and any comma.  If a
+*           delimiter other than comma is being used, NSTRT must be
+*           incremented before the next call to FLOTIN, otherwise
+*           all subsequent calls will return a null result.
+*
+*     14    Errors (JFLAG=2) occur when:
+*
+*             .  a +, -, D or E is left unsatisfied;  or
+*
+*             .  the decimal point is present without at least
+*                one decimal digit before or after it;  or
+*
+*             .  an exponent more than 100 has been presented.
+*
+*     15    When an error has been detected, NSTRT is left
+*           pointing to the character following the last
+*           one used before the error came to light.  This
+*           may be after the point at which a more sophisticated
+*           program could have detected the error.  For example,
+*           FLOTIN does not detect that '1E999' is unacceptable
+*           (on a computer where this is so) until the entire number
+*           has been decoded.
+*
+*     16    Certain highly unlikely combinations of mantissa &
+*           exponent can cause arithmetic faults during the
+*           decode, in some cases despite the fact that they
+*           together could be construed as a valid number.
+*
+*     17    Decoding is left to right, one pass.
+*
+*     18    See also DFLTIN and INTIN
+*
+*  P.T.Wallace   Starlink   23 November 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      CHARACTER*(*) STRING
+      INTEGER NSTRT
+      REAL RESLT
+      INTEGER JFLAG
+
+      DOUBLE PRECISION DRESLT
+
+
+*  Call the double precision version
+      CALL sla_DFLTIN(STRING,NSTRT,DRESLT,JFLAG)
+      IF (JFLAG.LE.0) RESLT=REAL(DRESLT)
+
+      END
diff --git a/src/slalib/galeq.f b/src/slalib/galeq.f
new file mode 100644
index 0000000..c2c3718
--- /dev/null
+++ b/src/slalib/galeq.f
@@ -0,0 +1,79 @@
+      SUBROUTINE sla_GALEQ (DL, DB, DR, DD)
+*+
+*     - - - - - -
+*      G A L E Q
+*     - - - - - -
+*
+*  Transformation from IAU 1958 galactic coordinates to
+*  J2000.0 equatorial coordinates (double precision)
+*
+*  Given:
+*     DL,DB       dp       galactic longitude and latitude L2,B2
+*
+*  Returned:
+*     DR,DD       dp       J2000.0 RA,Dec
+*
+*  (all arguments are radians)
+*
+*  Called:
+*     sla_DCS2C, sla_DIMXV, sla_DCC2S, sla_DRANRM, sla_DRANGE
+*
+*  Note:
+*     The equatorial coordinates are J2000.0.  Use the routine
+*     sla_GE50 if conversion to B1950.0 'FK4' coordinates is
+*     required.
+*
+*  Reference:
+*     Blaauw et al, Mon.Not.R.Astron.Soc.,121,123 (1960)
+*
+*  P.T.Wallace   Starlink   21 September 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DL,DB,DR,DD
+
+      DOUBLE PRECISION sla_DRANRM,sla_DRANGE
+
+      DOUBLE PRECISION V1(3),V2(3)
+
+*
+*  L2,B2 system of galactic coordinates
+*
+*  P = 192.25       RA of galactic north pole (mean B1950.0)
+*  Q =  62.6        inclination of galactic to mean B1950.0 equator
+*  R =  33          longitude of ascending node
+*
+*  P,Q,R are degrees
+*
+*  Equatorial to galactic rotation matrix (J2000.0), obtained by
+*  applying the standard FK4 to FK5 transformation, for zero proper
+*  motion in FK5, to the columns of the B1950 equatorial to
+*  galactic rotation matrix:
+*
+      DOUBLE PRECISION RMAT(3,3)
+      DATA RMAT(1,1),RMAT(1,2),RMAT(1,3),
+     :     RMAT(2,1),RMAT(2,2),RMAT(2,3),
+     :     RMAT(3,1),RMAT(3,2),RMAT(3,3)/
+     : -0.054875539726D0,-0.873437108010D0,-0.483834985808D0,
+     : +0.494109453312D0,-0.444829589425D0,+0.746982251810D0,
+     : -0.867666135858D0,-0.198076386122D0,+0.455983795705D0/
+
+
+
+*  Spherical to Cartesian
+      CALL sla_DCS2C(DL,DB,V1)
+
+*  Galactic to equatorial
+      CALL sla_DIMXV(RMAT,V1,V2)
+
+*  Cartesian to spherical
+      CALL sla_DCC2S(V2,DR,DD)
+
+*  Express in conventional ranges
+      DR=sla_DRANRM(DR)
+      DD=sla_DRANGE(DD)
+
+      END
diff --git a/src/slalib/galsup.f b/src/slalib/galsup.f
new file mode 100644
index 0000000..b2520b9
--- /dev/null
+++ b/src/slalib/galsup.f
@@ -0,0 +1,79 @@
+      SUBROUTINE sla_GALSUP (DL, DB, DSL, DSB)
+*+
+*     - - - - - - -
+*      G A L S U P
+*     - - - - - - -
+*
+*  Transformation from IAU 1958 galactic coordinates to
+*  de Vaucouleurs supergalactic coordinates (double precision)
+*
+*  Given:
+*     DL,DB       dp       galactic longitude and latitude L2,B2
+*
+*  Returned:
+*     DSL,DSB     dp       supergalactic longitude and latitude
+*
+*  (all arguments are radians)
+*
+*  Called:
+*     sla_DCS2C, sla_DMXV, sla_DCC2S, sla_DRANRM, sla_DRANGE
+*
+*  References:
+*
+*     de Vaucouleurs, de Vaucouleurs, & Corwin, Second Reference
+*     Catalogue of Bright Galaxies, U. Texas, page 8.
+*
+*     Systems & Applied Sciences Corp., Documentation for the
+*     machine-readable version of the above catalogue,
+*     Contract NAS 5-26490.
+*
+*    (These two references give different values for the galactic
+*     longitude of the supergalactic origin.  Both are wrong;  the
+*     correct value is L2=137.37.)
+*
+*  P.T.Wallace   Starlink   25 January 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DL,DB,DSL,DSB
+
+      DOUBLE PRECISION sla_DRANRM,sla_DRANGE
+
+      DOUBLE PRECISION V1(3),V2(3)
+
+*
+*  System of supergalactic coordinates:
+*
+*    SGL   SGB        L2     B2      (deg)
+*     -    +90      47.37  +6.32
+*     0     0         -      0
+*
+*  Galactic to supergalactic rotation matrix:
+*
+      DOUBLE PRECISION RMAT(3,3)
+      DATA RMAT(1,1),RMAT(1,2),RMAT(1,3),
+     :     RMAT(2,1),RMAT(2,2),RMAT(2,3),
+     :     RMAT(3,1),RMAT(3,2),RMAT(3,3)/
+     : -0.735742574804D0,+0.677261296414D0,+0.000000000000D0,
+     : -0.074553778365D0,-0.080991471307D0,+0.993922590400D0,
+     : +0.673145302109D0,+0.731271165817D0,+0.110081262225D0/
+
+
+
+*  Spherical to Cartesian
+      CALL sla_DCS2C(DL,DB,V1)
+
+*  Galactic to supergalactic
+      CALL sla_DMXV(RMAT,V1,V2)
+
+*  Cartesian to spherical
+      CALL sla_DCC2S(V2,DSL,DSB)
+
+*  Express in conventional ranges
+      DSL=sla_DRANRM(DSL)
+      DSB=sla_DRANGE(DSB)
+
+      END
diff --git a/src/slalib/ge50.f b/src/slalib/ge50.f
new file mode 100644
index 0000000..fed5728
--- /dev/null
+++ b/src/slalib/ge50.f
@@ -0,0 +1,90 @@
+      SUBROUTINE sla_GE50 (DL, DB, DR, DD)
+*+
+*     - - - - -
+*      G E 5 0
+*     - - - - -
+*
+*  Transformation from IAU 1958 galactic coordinates to
+*  B1950.0 'FK4' equatorial coordinates (double precision)
+*
+*  Given:
+*     DL,DB       dp       galactic longitude and latitude L2,B2
+*
+*  Returned:
+*     DR,DD       dp       B1950.0 'FK4' RA,Dec
+*
+*  (all arguments are radians)
+*
+*  Called:
+*     sla_DCS2C, sla_DIMXV, sla_DCC2S, sla_ADDET, sla_DRANRM, sla_DRANGE
+*
+*  Note:
+*     The equatorial coordinates are B1950.0 'FK4'.  Use the
+*     routine sla_GALEQ if conversion to J2000.0 coordinates
+*     is required.
+*
+*  Reference:
+*     Blaauw et al, Mon.Not.R.Astron.Soc.,121,123 (1960)
+*
+*  P.T.Wallace   Starlink   5 September 1993
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DL,DB,DR,DD
+
+      DOUBLE PRECISION sla_DRANRM,sla_DRANGE
+
+      DOUBLE PRECISION V1(3),V2(3),R,D,RE,DE
+
+*
+*  L2,B2 system of galactic coordinates
+*
+*  P = 192.25       RA of galactic north pole (mean B1950.0)
+*  Q =  62.6        inclination of galactic to mean B1950.0 equator
+*  R =  33          longitude of ascending node
+*
+*  P,Q,R are degrees
+*
+*
+*  Equatorial to galactic rotation matrix
+*
+*  The Euler angles are P, Q, 90-R, about the z then y then
+*  z axes.
+*
+*         +CP.CQ.SR-SP.CR     +SP.CQ.SR+CP.CR     -SQ.SR
+*
+*         -CP.CQ.CR-SP.SR     -SP.CQ.CR+CP.SR     +SQ.CR
+*
+*         +CP.SQ              +SP.SQ              +CQ
+*
+
+      DOUBLE PRECISION RMAT(3,3)
+      DATA RMAT(1,1),RMAT(1,2),RMAT(1,3),
+     :     RMAT(2,1),RMAT(2,2),RMAT(2,3),
+     :     RMAT(3,1),RMAT(3,2),RMAT(3,3) /
+     : -0.066988739415D0,-0.872755765852D0,-0.483538914632D0,
+     : +0.492728466075D0,-0.450346958020D0,+0.744584633283D0,
+     : -0.867600811151D0,-0.188374601723D0,+0.460199784784D0 /
+
+
+
+*  Spherical to Cartesian
+      CALL sla_DCS2C(DL,DB,V1)
+
+*  Rotate to mean B1950.0
+      CALL sla_DIMXV(RMAT,V1,V2)
+
+*  Cartesian to spherical
+      CALL sla_DCC2S(V2,R,D)
+
+*  Introduce E-terms
+      CALL sla_ADDET(R,D,1950D0,RE,DE)
+
+*  Express in conventional ranges
+      DR=sla_DRANRM(RE)
+      DD=sla_DRANGE(DE)
+
+      END
diff --git a/src/slalib/geoc.f b/src/slalib/geoc.f
new file mode 100644
index 0000000..89f51b7
--- /dev/null
+++ b/src/slalib/geoc.f
@@ -0,0 +1,57 @@
+      SUBROUTINE sla_GEOC (P, H, R, Z)
+*+
+*     - - - - -
+*      G E O C
+*     - - - - -
+*
+*  Convert geodetic position to geocentric (double precision)
+*
+*  Given:
+*     P     dp     latitude (geodetic, radians)
+*     H     dp     height above reference spheroid (geodetic, metres)
+*
+*  Returned:
+*     R     dp     distance from Earth axis (AU)
+*     Z     dp     distance from plane of Earth equator (AU)
+*
+*  Notes:
+*     1)  Geocentric latitude can be obtained by evaluating ATAN2(Z,R).
+*     2)  IAU 1976 constants are used.
+*
+*  Reference:
+*     Green,R.M., Spherical Astronomy, CUP 1985, p98.
+*
+*  P.T.Wallace   Starlink   4th October 1989
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION P,H,R,Z
+
+*  Earth equatorial radius (metres)
+      DOUBLE PRECISION A0
+      PARAMETER (A0=6378140D0)
+
+*  Reference spheroid flattening factor and useful function
+      DOUBLE PRECISION F,B
+      PARAMETER (F=1D0/298.257D0,B=(1D0-F)**2)
+
+*  Astronomical unit in metres
+      DOUBLE PRECISION AU
+      PARAMETER (AU=1.49597870D11)
+
+      DOUBLE PRECISION SP,CP,C,S
+
+
+
+*  Geodetic to geocentric conversion
+      SP=SIN(P)
+      CP=COS(P)
+      C=1D0/SQRT(CP*CP+B*SP*SP)
+      S=B*C
+      R=(A0*C+H)*CP/AU
+      Z=(A0*S+H)*SP/AU
+
+      END
diff --git a/src/slalib/gmst.f b/src/slalib/gmst.f
new file mode 100644
index 0000000..b115311
--- /dev/null
+++ b/src/slalib/gmst.f
@@ -0,0 +1,60 @@
+      DOUBLE PRECISION FUNCTION sla_GMST (UT1)
+*+
+*     - - - - -
+*      G M S T
+*     - - - - -
+*
+*  Conversion from universal time to sidereal time (double precision)
+*
+*  Given:
+*    UT1    dp     universal time (strictly UT1) expressed as
+*                  modified Julian Date (JD-2400000.5)
+*
+*  The result is the Greenwich mean sidereal time (double
+*  precision, radians).
+*
+*  The IAU 1982 expression (see page S15 of 1984 Astronomical
+*  Almanac) is used, but rearranged to reduce rounding errors.
+*  This expression is always described as giving the GMST at
+*  0 hours UT.  In fact, it gives the difference between the
+*  GMST and the UT, which happens to equal the GMST (modulo
+*  24 hours) at 0 hours UT each day.  In this routine, the
+*  entire UT is used directly as the argument for the
+*  standard formula, and the fractional part of the UT is
+*  added separately;  note that the factor 1.0027379... does
+*  not appear.
+*
+*  See also the routine sla_GMSTA, which delivers better numerical
+*  precision by accepting the UT date and time as separate arguments.
+*
+*  Called:  sla_DRANRM
+*
+*  P.T.Wallace   Starlink   14 September 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION UT1
+
+      DOUBLE PRECISION sla_DRANRM
+
+      DOUBLE PRECISION D2PI,S2R
+      PARAMETER (D2PI=6.283185307179586476925286766559D0,
+     :           S2R=7.272205216643039903848711535369D-5)
+
+      DOUBLE PRECISION TU
+
+
+
+*  Julian centuries from fundamental epoch J2000 to this UT
+      TU=(UT1-51544.5D0)/36525D0
+
+*  GMST at this UT
+      sla_GMST=sla_DRANRM(MOD(UT1,1D0)*D2PI+
+     :                    (24110.54841D0+
+     :                    (8640184.812866D0+
+     :                    (0.093104D0-6.2D-6*TU)*TU)*TU)*S2R)
+
+      END
diff --git a/src/slalib/gmsta.f b/src/slalib/gmsta.f
new file mode 100644
index 0000000..5259f6f
--- /dev/null
+++ b/src/slalib/gmsta.f
@@ -0,0 +1,80 @@
+      DOUBLE PRECISION FUNCTION sla_GMSTA (DATE, UT)
+*+
+*     - - - - - -
+*      G M S T A
+*     - - - - - -
+*
+*  Conversion from Universal Time to Greenwich mean sidereal time,
+*  with rounding errors minimized.
+*
+*  double precision
+*
+*  Given:
+*    DATE    d      UT1 date (MJD: integer part of JD-2400000.5))
+*    UT      d      UT1 time (fraction of a day)
+*
+*  The result is the Greenwich mean sidereal time (double precision,
+*  radians, in the range 0 to 2pi).
+*
+*  There is no restriction on how the UT is apportioned between the
+*  DATE and UT arguments.  Either of the two arguments could, for
+*  example, be zero and the entire date+time supplied in the other.
+*  However, the routine is designed to deliver maximum accuracy when
+*  the DATE argument is a whole number and the UT lies in the range
+*  0 to 1 (or vice versa).
+*
+*  The algorithm is based on the IAU 1982 expression (see page S15 of
+*  the 1984 Astronomical Almanac).  This is always described as giving
+*  the GMST at 0 hours UT1.  In fact, it gives the difference between
+*  the GMST and the UT, the steady 4-minutes-per-day drawing-ahead of
+*  ST with respect to UT.  When whole days are ignored, the expression
+*  happens to equal the GMST at 0 hours UT1 each day.
+*
+*  In this routine, the entire UT1 (the sum of the two arguments DATE
+*  and UT) is used directly as the argument for the standard formula.
+*  The UT1 is then added, but omitting whole days to conserve accuracy.
+*
+*  See also the routine sla_GMST, which accepts the UT as a single
+*  argument.  Compared with sla_GMST, the extra numerical precision
+*  delivered by the present routine is unlikely to be important in
+*  an absolute sense, but may be useful when critically comparing
+*  algorithms and in applications where two sidereal times close
+*  together are differenced.
+*
+*  Called:  sla_DRANRM
+*
+*  P.T.Wallace   Starlink   13 April 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE,UT
+
+*  Seconds of time to radians
+      DOUBLE PRECISION S2R
+      PARAMETER (S2R=7.272205216643039903848712D-5)
+
+      DOUBLE PRECISION D1,D2,T
+      DOUBLE PRECISION sla_DRANRM
+
+
+*  Julian centuries since J2000.
+      IF (DATE.LT.UT) THEN
+         D1=DATE
+         D2=UT
+      ELSE
+         D1=UT
+         D2=DATE
+      END IF
+      T=(D1+(D2-51544.5D0))/36525D0
+
+*  GMST at this UT1.
+      sla_GMSTA=sla_DRANRM(S2R*(24110.54841D0+
+     :                         (8640184.812866D0+
+     :                         (0.093104D0
+     :                         -6.2D-6*T)*T)*T
+     :                         +86400D0*(MOD(D1,1D0)+MOD(D2,1D0))))
+
+      END
diff --git a/src/slalib/gresid.f_alpha_OSF1 b/src/slalib/gresid.f_alpha_OSF1
new file mode 100644
index 0000000..9cc021b
--- /dev/null
+++ b/src/slalib/gresid.f_alpha_OSF1
@@ -0,0 +1,76 @@
+      REAL FUNCTION sla_GRESID (S)
+*+
+*     - - - - - - -
+*      G R E S I D
+*     - - - - - - -
+*
+*  Generate pseudo-random normal deviate ( = 'Gaussian residual')
+*  (single precision)
+*
+*  !!! Version for DEC Alpha/OSF1 !!!
+*
+*  Given:
+*     S      real     standard deviation
+*
+*  The results of many calls to this routine will be
+*  normally distributed with mean zero and standard deviation S.
+*
+*  The Box-Muller algorithm is used.  This is described in
+*  Numerical Recipes, section 7.2.
+*
+*  P.T.Wallace   Starlink   14 October 1991
+*    Revised for new recommended RTL RANDOM(3f) function.
+*  B.K.McIlwrath Starlink   12 January 1996
+*-
+
+      IMPLICIT NONE
+
+      REAL S
+
+      REAL X,Y,R,W,GNEXT,G
+      LOGICAL FTF,FIRST
+
+      REAL RANDOM
+
+      SAVE GNEXT,FTF,FIRST
+      DATA FTF,FIRST / .TRUE.,.TRUE. /
+
+*  First time through, initialise the random-number generator
+      IF (FTF) THEN
+         X = RANDOM(12345678)
+         FTF = .FALSE.
+      END IF
+
+*  Second normal deviate of the pair available?
+      IF (FIRST) THEN
+
+*     No - generate two random numbers inside unit circle
+         R = 2.0
+         DO WHILE (R.GE.1.0)
+
+*        Generate two random numbers in range +/- 1
+            X = 2.0*RANDOM(0)-1.0
+            Y = 2.0*RANDOM(0)-1.0
+
+*        Try again if not in unit circle
+            R = X*X+Y*Y
+         END DO
+
+*     Box-Muller transformation, generating two deviates
+         W = SQRT(-2.0*LOG(R)/MAX(R,1E-20))
+         GNEXT = X*W
+         G = Y*W
+
+*     Set flag to indicate availability of next deviate
+         FIRST = .FALSE.
+      ELSE
+
+*     Return second deviate of the pair & reset flag
+         G = GNEXT
+         FIRST = .TRUE.
+      END IF
+
+*  Scale the deviate by the required standard deviation
+      sla_GRESID = G*S
+
+      END
diff --git a/src/slalib/gresid.f_convex b/src/slalib/gresid.f_convex
new file mode 100644
index 0000000..278a79e
--- /dev/null
+++ b/src/slalib/gresid.f_convex
@@ -0,0 +1,80 @@
+      REAL FUNCTION sla_GRESID (S)
+*+
+*     - - - - - - -
+*      G R E S I D
+*     - - - - - - -
+*
+*  Generate pseudo-random normal deviate ( = 'Gaussian residual')
+*  (single precision)
+*
+*  !!! Convex specific !!!
+*
+*  Given:
+*     S      real     standard deviation
+*
+*  The results of many calls to this routine will be
+*  normally distributed with mean zero and standard deviation S.
+*
+*  The Box-Muller algorithm is used.  This is described in
+*  Numerical Recipes, section 7.2.
+*
+*  Called:  RAND (a REAL function from the Convex Fortran Library)
+*
+*  P.T.Wallace   Starlink   28 June 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL S
+
+      REAL X,Y,R,W,GNEXT,G
+      LOGICAL FTF,FIRST
+
+      REAL RAND
+
+      SAVE GNEXT,FIRST
+      DATA FTF,FIRST / .TRUE.,.TRUE. /
+
+
+
+*  First time through, initialise the random-number generator
+      IF (FTF) THEN
+         X = RAND(123456789)
+         FTF = .FALSE.
+      END IF
+
+*  Second normal deviate of the pair available?
+      IF (FIRST) THEN
+
+*     No - generate two random numbers inside unit circle
+         R = 2.0
+         DO WHILE (R.GE.1.0)
+
+*        Generate two random numbers in range +/- 1
+            X = 2.0*RAND(0)-1.0
+            Y = 2.0*RAND(0)-1.0
+
+*        Try again if not in unit circle
+            R = X*X+Y*Y
+         END DO
+
+*     Box-Muller transformation, generating two deviates
+         W = SQRT(-2.0*LOG(R)/MAX(R,1E-20))
+         GNEXT = X*W
+         G = Y*W
+
+*     Set flag to indicate availability of next deviate
+         FIRST = .FALSE.
+      ELSE
+
+*     Return second deviate of the pair & reset flag
+         G = GNEXT
+         FIRST = .TRUE.
+      END IF
+
+*  Scale the deviate by the required standard deviation
+      sla_GRESID = G*S
+
+      END
diff --git a/src/slalib/gresid.f_ix86_Linux b/src/slalib/gresid.f_ix86_Linux
new file mode 100644
index 0000000..ec93bdd
--- /dev/null
+++ b/src/slalib/gresid.f_ix86_Linux
@@ -0,0 +1,74 @@
+      REAL FUNCTION sla_GRESID (S)
+*+
+*     - - - - - - -
+*      G R E S I D
+*     - - - - - - -
+*
+*  Generate pseudo-random normal deviate ( = 'Gaussian residual')
+*  (single precision)
+*
+*  !!! Version for Linux !!!
+*
+*  Given:
+*     S      real     standard deviation
+*
+*  The results of many calls to this routine will be
+*  normally distributed with mean zero and standard deviation S.
+*
+*  The Box-Muller algorithm is used.  This is described in
+*  Numerical Recipes, section 7.2.
+*
+*  B.K.McIlwrath Starlink   12 January 1996
+*-
+
+      IMPLICIT NONE
+
+      REAL S
+
+      REAL X,Y,R,W,GNEXT,G
+      LOGICAL FTF,FIRST
+
+      REAL RANDOM
+
+      SAVE GNEXT,FTF,FIRST
+      DATA FTF,FIRST / .TRUE.,.TRUE. /
+
+*  First time through, initialise the random-number generator
+      IF (FTF) THEN
+         X = RANDOM(12345678)
+         FTF = .FALSE.
+      END IF
+
+*  Second normal deviate of the pair available?
+      IF (FIRST) THEN
+
+*     No - generate two random numbers inside unit circle
+         R = 2.0
+         DO WHILE (R.GE.1.0)
+
+*        Generate two random numbers in range +/- 1
+            X = 2.0*RANDOM(0)-1.0
+            Y = 2.0*RANDOM(0)-1.0
+
+*        Try again if not in unit circle
+            R = X*X+Y*Y
+         END DO
+
+*     Box-Muller transformation, generating two deviates
+         W = SQRT(-2.0*LOG(R)/MAX(R,1E-20))
+         GNEXT = X*W
+         G = Y*W
+
+*     Set flag to indicate availability of next deviate
+         FIRST = .FALSE.
+      ELSE
+
+*     Return second deviate of the pair & reset flag
+         G = GNEXT
+         FIRST = .TRUE.
+      END IF
+
+*  Scale the deviate by the required standard deviation
+      sla_GRESID = G*S
+
+      END
diff --git a/src/slalib/gresid.f_mips b/src/slalib/gresid.f_mips
new file mode 100644
index 0000000..7f353f9
--- /dev/null
+++ b/src/slalib/gresid.f_mips
@@ -0,0 +1,74 @@
+      REAL FUNCTION sla_GRESID (S)
+*+
+*     - - - - - - -
+*      G R E S I D
+*     - - - - - - -
+*
+*  Generate pseudo-random normal deviate ( = 'Gaussian residual')
+*  (single precision)
+*
+*  !!! Version for VAX/VMS and DECstation !!!
+*
+*  Given:
+*     S      real     standard deviation
+*
+*  The results of many calls to this routine will be
+*  normally distributed with mean zero and standard deviation S.
+*
+*  The Box-Muller algorithm is used.  This is described in
+*  Numerical Recipes, section 7.2.
+*
+*  P.T.Wallace   Starlink   14 October 1991
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL S
+
+      REAL X,Y,R,W,GNEXT,G
+      INTEGER ISEED
+      LOGICAL FIRST
+
+      REAL RAN
+
+      SAVE GNEXT,ISEED,FIRST
+      DATA ISEED / 123456789 /
+      DATA FIRST / .TRUE. /
+
+
+
+*  Second normal deviate of the pair available?
+      IF (FIRST) THEN
+
+*     No - generate two random numbers inside unit circle
+         R = 2.0
+         DO WHILE (R.GE.1.0)
+
+*        Generate two random numbers in range +/- 1
+            X = 2.0*RAN(ISEED)-1.0
+            Y = 2.0*RAN(ISEED)-1.0
+
+*        Try again if not in unit circle
+            R = X*X+Y*Y
+         END DO
+
+*     Box-Muller transformation, generating two deviates
+         W = SQRT(-2.0*LOG(R)/MAX(R,1E-20))
+         GNEXT = X*W
+         G = Y*W
+
+*     Set flag to indicate availability of next deviate
+         FIRST = .FALSE.
+      ELSE
+
+*     Return second deviate of the pair & reset flag
+         G = GNEXT
+         FIRST = .TRUE.
+      END IF
+
+*  Scale the deviate by the required standard deviation
+      sla_GRESID = G*S
+
+      END
diff --git a/src/slalib/gresid.f_pcm b/src/slalib/gresid.f_pcm
new file mode 100644
index 0000000..b2c6f76
--- /dev/null
+++ b/src/slalib/gresid.f_pcm
@@ -0,0 +1,73 @@
+      REAL FUNCTION sla_GRESID (S)
+*+
+*     - - - - - - -
+*      G R E S I D
+*     - - - - - - -
+*
+*  Generate pseudo-random normal deviate ( = 'Gaussian residual')
+*  (single precision)
+*
+*  Given:
+*     S      real     standard deviation
+*
+*  The results of many calls to this routine will be
+*  normally distributed with mean zero and standard deviation S.
+*
+*  The Box-Muller algorithm is used.  This is described in
+*  Numerical Recipes, section 7.2.
+*
+*  !!!  Microsoft Fortran dependent - calls the RAN routine   !!!
+*  !!!  To seed the random-number generator, either call the  !!!
+*  !!!  Microsoft SEED routine specifying some INTEGER*2      !!!
+*  !!!  seed or call the function sla_RANDOM specifying some  !!!
+*  !!!  REAL seed.                                            !!!
+*
+*  P.T.Wallace   Starlink   1 April 1993
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL S
+
+      REAL X,Y,RV,R,W,GNEXT,G
+      LOGICAL FIRST
+
+      SAVE GNEXT,RV,FIRST
+      DATA FIRST / .TRUE. /
+
+
+
+*  Second normal deviate of the pair available?
+      IF (FIRST) THEN
+
+*     No - generate two random numbers in range +/- 1
+ 1       CONTINUE
+         CALL RANDOM(RV)               !!! PC
+         X = 2.0*RV-1.0
+         CALL RANDOM(RV)               !!! PC
+         Y = 2.0*RV-1.0
+
+*     Try again if not in unit circle
+         R = X*X+Y*Y
+         IF (R.GE.1.0) GO TO 1
+
+*     Box-Muller transformation, generating two deviates
+         W = SQRT(-2.0*LOG(R)/MAX(R,1E-20))
+         GNEXT = X*W
+         G = Y*W
+
+*     Set flag to indicate availability of next deviate
+         FIRST = .FALSE.
+      ELSE
+
+*     Return second deviate of the pair & reset flag
+         G = GNEXT
+         FIRST = .TRUE.
+      END IF
+
+*  Scale the deviate by the required standard deviation
+      sla_GRESID = G*S
+
+      END
diff --git a/src/slalib/gresid.f_sun4 b/src/slalib/gresid.f_sun4
new file mode 100644
index 0000000..3205062
--- /dev/null
+++ b/src/slalib/gresid.f_sun4
@@ -0,0 +1,80 @@
+      REAL FUNCTION sla_GRESID (S)
+*+
+*     - - - - - - -
+*      G R E S I D
+*     - - - - - - -
+*
+*  Generate pseudo-random normal deviate ( = 'Gaussian residual')
+*  (single precision)
+*
+*  !!! Sun 4 specific !!!
+*
+*  Given:
+*     S      real     standard deviation
+*
+*  The results of many calls to this routine will be
+*  normally distributed with mean zero and standard deviation S.
+*
+*  The Box-Muller algorithm is used.  This is described in
+*  Numerical Recipes, section 7.2.
+*
+*  Called:  RAND (a REAL function from the Sun Fortran Library)
+*
+*  P.T.Wallace   Starlink   14 October 1991
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL S
+
+      REAL X,Y,R,W,GNEXT,G
+      LOGICAL FTF,FIRST
+
+      REAL RAND
+
+      SAVE GNEXT,FIRST
+      DATA FTF,FIRST / .TRUE.,.TRUE. /
+
+
+
+*  First time through, initialise the random-number generator
+      IF (FTF) THEN
+         X = RAND(123456789)
+         FTF = .FALSE.
+      END IF
+
+*  Second normal deviate of the pair available?
+      IF (FIRST) THEN
+
+*     No - generate two random numbers inside unit circle
+         R = 2.0
+         DO WHILE (R.GE.1.0)
+
+*        Generate two random numbers in range +/- 1
+            X = 2.0*RAND(0)-1.0
+            Y = 2.0*RAND(0)-1.0
+
+*        Try again if not in unit circle
+            R = X*X+Y*Y
+         END DO
+
+*     Box-Muller transformation, generating two deviates
+         W = SQRT(-2.0*LOG(R)/MAX(R,1E-20))
+         GNEXT = X*W
+         G = Y*W
+
+*     Set flag to indicate availability of next deviate
+         FIRST = .FALSE.
+      ELSE
+
+*     Return second deviate of the pair & reset flag
+         G = GNEXT
+         FIRST = .TRUE.
+      END IF
+
+*  Scale the deviate by the required standard deviation
+      sla_GRESID = G*S
+
+      END
diff --git a/src/slalib/gresid.f_sun4_Solaris b/src/slalib/gresid.f_sun4_Solaris
new file mode 100644
index 0000000..3205062
--- /dev/null
+++ b/src/slalib/gresid.f_sun4_Solaris
@@ -0,0 +1,80 @@
+      REAL FUNCTION sla_GRESID (S)
+*+
+*     - - - - - - -
+*      G R E S I D
+*     - - - - - - -
+*
+*  Generate pseudo-random normal deviate ( = 'Gaussian residual')
+*  (single precision)
+*
+*  !!! Sun 4 specific !!!
+*
+*  Given:
+*     S      real     standard deviation
+*
+*  The results of many calls to this routine will be
+*  normally distributed with mean zero and standard deviation S.
+*
+*  The Box-Muller algorithm is used.  This is described in
+*  Numerical Recipes, section 7.2.
+*
+*  Called:  RAND (a REAL function from the Sun Fortran Library)
+*
+*  P.T.Wallace   Starlink   14 October 1991
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL S
+
+      REAL X,Y,R,W,GNEXT,G
+      LOGICAL FTF,FIRST
+
+      REAL RAND
+
+      SAVE GNEXT,FIRST
+      DATA FTF,FIRST / .TRUE.,.TRUE. /
+
+
+
+*  First time through, initialise the random-number generator
+      IF (FTF) THEN
+         X = RAND(123456789)
+         FTF = .FALSE.
+      END IF
+
+*  Second normal deviate of the pair available?
+      IF (FIRST) THEN
+
+*     No - generate two random numbers inside unit circle
+         R = 2.0
+         DO WHILE (R.GE.1.0)
+
+*        Generate two random numbers in range +/- 1
+            X = 2.0*RAND(0)-1.0
+            Y = 2.0*RAND(0)-1.0
+
+*        Try again if not in unit circle
+            R = X*X+Y*Y
+         END DO
+
+*     Box-Muller transformation, generating two deviates
+         W = SQRT(-2.0*LOG(R)/MAX(R,1E-20))
+         GNEXT = X*W
+         G = Y*W
+
+*     Set flag to indicate availability of next deviate
+         FIRST = .FALSE.
+      ELSE
+
+*     Return second deviate of the pair & reset flag
+         G = GNEXT
+         FIRST = .TRUE.
+      END IF
+
+*  Scale the deviate by the required standard deviation
+      sla_GRESID = G*S
+
+      END
diff --git a/src/slalib/gresid.f_vax b/src/slalib/gresid.f_vax
new file mode 100644
index 0000000..90dab0a
--- /dev/null
+++ b/src/slalib/gresid.f_vax
@@ -0,0 +1,72 @@
+      REAL FUNCTION sla_GRESID (S)
+*+
+*     - - - - - - -
+*      G R E S I D
+*     - - - - - - -
+*
+*  Generate pseudo-random normal deviate ( = 'Gaussian residual')
+*  (single precision)
+*
+*  !!! Version for VAX/VMS and DECstation !!!
+*
+*  Given:
+*     S      real     standard deviation
+*
+*  The results of many calls to this routine will be
+*  normally distributed with mean zero and standard deviation S.
+*
+*  The Box-Muller algorithm is used.  This is described in
+*  Numerical Recipes, section 7.2.
+*
+*  P.T.Wallace   Starlink   14 October 1991
+*-
+
+      IMPLICIT NONE
+
+      REAL S
+
+      REAL X,Y,R,W,GNEXT,G
+      INTEGER ISEED
+      LOGICAL FIRST
+
+      REAL RAN
+
+      SAVE GNEXT,ISEED,FIRST
+      DATA ISEED / 123456789 /
+      DATA FIRST / .TRUE. /
+
+
+
+*  Second normal deviate of the pair available?
+      IF (FIRST) THEN
+
+*     No - generate two random numbers inside unit circle
+         R = 2.0
+         DO WHILE (R.GE.1.0)
+
+*        Generate two random numbers in range +/- 1
+            X = 2.0*RAN(ISEED)-1.0
+            Y = 2.0*RAN(ISEED)-1.0
+
+*        Try again if not in unit circle
+            R = X*X+Y*Y
+         END DO
+
+*     Box-Muller transformation, generating two deviates
+         W = SQRT(-2.0*LOG(R)/MAX(R,1E-20))
+         GNEXT = X*W
+         G = Y*W
+
+*     Set flag to indicate availability of next deviate
+         FIRST = .FALSE.
+      ELSE
+
+*     Return second deviate of the pair & reset flag
+         G = GNEXT
+         FIRST = .TRUE.
+      END IF
+
+*  Scale the deviate by the required standard deviation
+      sla_GRESID = G*S
+
+      END
diff --git a/src/slalib/gresid.f_x86_64 b/src/slalib/gresid.f_x86_64
new file mode 100644
index 0000000..ec93bdd
--- /dev/null
+++ b/src/slalib/gresid.f_x86_64
@@ -0,0 +1,74 @@
+      REAL FUNCTION sla_GRESID (S)
+*+
+*     - - - - - - -
+*      G R E S I D
+*     - - - - - - -
+*
+*  Generate pseudo-random normal deviate ( = 'Gaussian residual')
+*  (single precision)
+*
+*  !!! Version for Linux !!!
+*
+*  Given:
+*     S      real     standard deviation
+*
+*  The results of many calls to this routine will be
+*  normally distributed with mean zero and standard deviation S.
+*
+*  The Box-Muller algorithm is used.  This is described in
+*  Numerical Recipes, section 7.2.
+*
+*  B.K.McIlwrath Starlink   12 January 1996
+*-
+
+      IMPLICIT NONE
+
+      REAL S
+
+      REAL X,Y,R,W,GNEXT,G
+      LOGICAL FTF,FIRST
+
+      REAL RANDOM
+
+      SAVE GNEXT,FTF,FIRST
+      DATA FTF,FIRST / .TRUE.,.TRUE. /
+
+*  First time through, initialise the random-number generator
+      IF (FTF) THEN
+         X = RANDOM(12345678)
+         FTF = .FALSE.
+      END IF
+
+*  Second normal deviate of the pair available?
+      IF (FIRST) THEN
+
+*     No - generate two random numbers inside unit circle
+         R = 2.0
+         DO WHILE (R.GE.1.0)
+
+*        Generate two random numbers in range +/- 1
+            X = 2.0*RANDOM(0)-1.0
+            Y = 2.0*RANDOM(0)-1.0
+
+*        Try again if not in unit circle
+            R = X*X+Y*Y
+         END DO
+
+*     Box-Muller transformation, generating two deviates
+         W = SQRT(-2.0*LOG(R)/MAX(R,1E-20))
+         GNEXT = X*W
+         G = Y*W
+
+*     Set flag to indicate availability of next deviate
+         FIRST = .FALSE.
+      ELSE
+
+*     Return second deviate of the pair & reset flag
+         G = GNEXT
+         FIRST = .TRUE.
+      END IF
+
+*  Scale the deviate by the required standard deviation
+      sla_GRESID = G*S
+
+      END
diff --git a/src/slalib/h2e.f b/src/slalib/h2e.f
new file mode 100644
index 0000000..e850493
--- /dev/null
+++ b/src/slalib/h2e.f
@@ -0,0 +1,83 @@
+      SUBROUTINE sla_H2E (AZ, EL, PHI, HA, DEC)
+*+
+*     - - - - -
+*      D E 2 H
+*     - - - - -
+*
+*  Horizon to equatorial coordinates:  Az,El to HA,Dec
+*
+*  (single precision)
+*
+*  Given:
+*     AZ      r     azimuth
+*     EL      r     elevation
+*     PHI     r     observatory latitude
+*
+*  Returned:
+*     HA      r     hour angle
+*     DEC     r     declination
+*
+*  Notes:
+*
+*  1)  All the arguments are angles in radians.
+*
+*  2)  The sign convention for azimuth is north zero, east +pi/2.
+*
+*  3)  HA is returned in the range +/-pi.  Declination is returned
+*      in the range +/-pi/2.
+*
+*  4)  The latitude is (in principle) geodetic.  In critical
+*      applications, corrections for polar motion should be applied.
+*
+*  5)  In some applications it will be important to specify the
+*      correct type of elevation in order to produce the required
+*      type of HA,Dec.  In particular, it may be important to
+*      distinguish between the elevation as affected by refraction,
+*      which will yield the "observed" HA,Dec, and the elevation
+*      in vacuo, which will yield the "topocentric" HA,Dec.  If the
+*      effects of diurnal aberration can be neglected, the
+*      topocentric HA,Dec may be used as an approximation to the
+*      "apparent" HA,Dec.
+*
+*  6)  No range checking of arguments is done.
+*
+*  7)  In applications which involve many such calculations, rather
+*      than calling the present routine it will be more efficient to
+*      use inline code, having previously computed fixed terms such
+*      as sine and cosine of latitude.
+*
+*  P.T.Wallace   Starlink   21 February 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL AZ,EL,PHI,HA,DEC
+
+      DOUBLE PRECISION SA,CA,SE,CE,SP,CP,X,Y,Z,R
+
+
+*  Useful trig functions
+      SA=SIN(AZ)
+      CA=COS(AZ)
+      SE=SIN(EL)
+      CE=COS(EL)
+      SP=SIN(PHI)
+      CP=COS(PHI)
+
+*  HA,Dec as x,y,z
+      X=-CA*CE*SP+SE*CP
+      Y=-SA*CE
+      Z=CA*CE*CP+SE*SP
+
+*  To HA,Dec
+      R=SQRT(X*X+Y*Y)
+      IF (R.EQ.0.0) THEN
+         HA=0.0
+      ELSE
+         HA=ATAN2(Y,X)
+      END IF
+      DEC=ATAN2(Z,R)
+
+      END
diff --git a/src/slalib/h2fk5.f b/src/slalib/h2fk5.f
new file mode 100644
index 0000000..d3a0116
--- /dev/null
+++ b/src/slalib/h2fk5.f
@@ -0,0 +1,109 @@
+      SUBROUTINE sla_H2FK5 (RH,DH,DRH,DDH,R5,D5,DR5,DD5)
+*+
+*     - - - - - -
+*      H 2 F K 5
+*     - - - - - -
+*
+*  Transform Hipparcos star data into the FK5 (J2000) system.
+*
+*  (double precision)
+*
+*  This routine transforms Hipparcos star positions and proper
+*  motions into FK5 J2000.
+*
+*  Given (all Hipparcos, epoch J2000):
+*     RH        d      RA (radians)
+*     DH        d      Dec (radians)
+*     DRH       d      proper motion in RA (dRA/dt, rad/Jyear)
+*     DDH       d      proper motion in Dec (dDec/dt, rad/Jyear)
+*
+*  Returned (all FK5, equinox J2000, epoch J2000):
+*     R5        d      RA (radians)
+*     D5        d      Dec (radians)
+*     DR5       d      proper motion in RA (dRA/dt, rad/Jyear)
+*     DD5       d      proper motion in Dec (dDec/dt, rad/Jyear)
+*
+*  Called:  sla_DS2C6, sla_DAV2M, sla_DMXV, sla_DIMXV, sla_DVXV,
+*           sla_DC62S, sla_DRANRM
+*
+*  Notes:
+*
+*  1)  The proper motions in RA are dRA/dt rather than
+*      cos(Dec)*dRA/dt, and are per year rather than per century.
+*
+*  2)  The FK5 to Hipparcos transformation consists of a pure
+*      rotation and spin;  zonal errors in the FK5 catalogue are
+*      not taken into account.
+*
+*  3)  The published orientation and spin components are interpreted
+*      as "axial vectors".  An axial vector points at the pole of the
+*      rotation and its length is the amount of rotation in radians.
+*
+*  4)  See also sla_FK52H, sla_FK5HZ, sla_HFK5Z.
+*
+*  Reference:
+*
+*     M.Feissel & F.Mignard, Astron. Astrophys. 331, L33-L36 (1998).
+*
+*  P.T.Wallace   Starlink   22 June 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION RH,DH,DRH,DDH,R5,D5,DR5,DD5
+
+      DOUBLE PRECISION AS2R
+      PARAMETER (AS2R=0.484813681109535994D-5)
+
+*  FK5 to Hipparcos orientation and spin (radians, radians/year)
+      DOUBLE PRECISION EPX,EPY,EPZ
+      DOUBLE PRECISION OMX,OMY,OMZ
+
+      PARAMETER ( EPX = -19.9D-3 * AS2R,
+     :            EPY =  -9.1D-3 * AS2R,
+     :            EPZ = +22.9D-3 * AS2R )
+
+      PARAMETER ( OMX = -0.30D-3 * AS2R,
+     :            OMY = +0.60D-3 * AS2R,
+     :            OMZ = +0.70D-3 * AS2R )
+
+      DOUBLE PRECISION PVH(6),ORTN(3),R5H(3,3),S5(3),SH(3),VV(3),
+     :                 PV5(6),W,R,V
+      INTEGER I
+
+      DOUBLE PRECISION sla_DRANRM
+
+
+
+*  Hipparcos barycentric position/velocity 6-vector (normalized).
+      CALL sla_DS2C6(RH,DH,1D0,DRH,DDH,0D0,PVH)
+
+*  FK5 to Hipparcos orientation matrix.
+      ORTN(1) = EPX
+      ORTN(2) = EPY
+      ORTN(3) = EPZ
+      CALL sla_DAV2M(ORTN,R5H)
+
+*  Hipparcos wrt FK5 spin vector.
+      S5(1) = OMX
+      S5(2) = OMY
+      S5(3) = OMZ
+
+*  Rotate the spin vector into the Hipparcos frame.
+      CALL sla_DMXV(R5H,S5,SH)
+
+*  De-orient & de-spin the 6-vector into FK5 J2000.
+      CALL sla_DIMXV(R5H,PVH,PV5)
+      CALL sla_DVXV(PVH,SH,VV)
+      DO I=1,3
+         VV(I) = PVH(I+3)-VV(I)
+      END DO
+      CALL sla_DIMXV(R5H,VV,PV5(4))
+
+*  FK5 6-vector to spherical.
+      CALL sla_DC62S(PV5,W,D5,R,DR5,DD5,V)
+      R5 = sla_DRANRM(W)
+
+      END
diff --git a/src/slalib/hfk5z.f b/src/slalib/hfk5z.f
new file mode 100644
index 0000000..b50d38a
--- /dev/null
+++ b/src/slalib/hfk5z.f
@@ -0,0 +1,122 @@
+      SUBROUTINE sla_HFK5Z (RH,DH,EPOCH,R5,D5,DR5,DD5)
+*+
+*     - - - - - -
+*      H F K 5 Z
+*     - - - - - -
+*
+*  Transform a Hipparcos star position into FK5 J2000, assuming
+*  zero Hipparcos proper motion.
+*
+*  (double precision)
+*
+*  Given:
+*     RH        d      Hipparcos RA (radians)
+*     DH        d      Hipparcos Dec (radians)
+*     EPOCH     d      Julian epoch (TDB)
+*
+*  Returned (all FK5, equinox J2000, epoch EPOCH):
+*     R5        d      RA (radians)
+*     D5        d      Dec (radians)
+*
+*  Called:  sla_DCS2C, sla_DAV2M, sla_DMXV, sla_DAV2M, sla_DMXM,
+*           sla_DIMXV, sla_DVXV, sla_DC62S, sla_DRANRM
+*
+*  Notes:
+*
+*  1)  The proper motion in RA is dRA/dt rather than cos(Dec)*dRA/dt.
+*
+*  2)  The FK5 to Hipparcos transformation consists of a pure
+*      rotation and spin;  zonal errors in the FK5 catalogue are
+*      not taken into account.
+*
+*  3)  The published orientation and spin components are interpreted
+*      as "axial vectors".  An axial vector points at the pole of the
+*      rotation and its length is the amount of rotation in radians.
+*
+*  4)  It was the intention that Hipparcos should be a close
+*      approximation to an inertial frame, so that distant objects
+*      have zero proper motion;  such objects have (in general)
+*      non-zero proper motion in FK5, and this routine returns those
+*      fictitious proper motions.
+*
+*  5)  The position returned by this routine is in the FK5 J2000
+*      reference frame but at Julian epoch EPOCH.
+*
+*  6)  See also sla_FK52H, sla_H2FK5, sla_FK5ZHZ.
+*
+*  Reference:
+*
+*     M.Feissel & F.Mignard, Astron. Astrophys. 331, L33-L36 (1998).
+*
+*  P.T.Wallace   Starlink   22 June 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION RH,DH,EPOCH,R5,D5,DR5,DD5
+
+      DOUBLE PRECISION AS2R
+      PARAMETER (AS2R=0.484813681109535994D-5)
+
+*  FK5 to Hipparcos orientation and spin (radians, radians/year)
+      DOUBLE PRECISION EPX,EPY,EPZ
+      DOUBLE PRECISION OMX,OMY,OMZ
+
+      PARAMETER ( EPX = -19.9D-3 * AS2R,
+     :            EPY =  -9.1D-3 * AS2R,
+     :            EPZ = +22.9D-3 * AS2R )
+
+      PARAMETER ( OMX = -0.30D-3 * AS2R,
+     :            OMY = +0.60D-3 * AS2R,
+     :            OMZ = +0.70D-3 * AS2R )
+
+      DOUBLE PRECISION PH(6),ORTN(3),R5H(3,3),S5(3),SH(3),T,VST(3),
+     :                 RST(3,3),R5HT(3,3),PV5E(6),VV(3),W,R,V
+
+      DOUBLE PRECISION sla_DRANRM
+
+
+
+*  Hipparcos barycentric position vector (normalized).
+      CALL sla_DCS2C(RH,DH,PH)
+
+*  FK5 to Hipparcos orientation matrix.
+      ORTN(1) = EPX
+      ORTN(2) = EPY
+      ORTN(3) = EPZ
+      CALL sla_DAV2M(ORTN,R5H)
+
+*  Hipparcos wrt FK5 spin vector.
+      S5(1) = OMX
+      S5(2) = OMY
+      S5(3) = OMZ
+
+*  Rotate the spin vector into the Hipparcos frame.
+      CALL sla_DMXV(R5H,S5,SH)
+
+*  Time interval from J2000 to epoch.
+      T = EPOCH-2000D0
+
+*  Axial vector:  accumulated Hipparcos wrt FK5 spin over that interval.
+      VST(1) = OMX*T
+      VST(2) = OMY*T
+      VST(3) = OMZ*T
+
+*  Express the accumulated spin as a rotation matrix.
+      CALL sla_DAV2M(VST,RST)
+
+*  Rotation matrix:  accumulated spin, then FK5 to Hipparcos.
+      CALL sla_DMXM(R5H,RST,R5HT)
+
+*  De-orient & de-spin the vector into FK5 J2000 at epoch.
+      CALL sla_DIMXV(R5HT,PH,PV5E)
+      CALL sla_DVXV(SH,PH,VV)
+      CALL sla_DIMXV(R5HT,VV,PV5E(4))
+
+*  FK5 position/velocity 6-vector to spherical.
+      CALL sla_DC62S(PV5E,W,D5,R,DR5,DD5,V)
+      R5 = sla_DRANRM(W)
+
+      END
diff --git a/src/slalib/idchf.f b/src/slalib/idchf.f
new file mode 100644
index 0000000..2f758bf
--- /dev/null
+++ b/src/slalib/idchf.f
@@ -0,0 +1,94 @@
+      SUBROUTINE sla__IDCHF (STRING, NPTR, NVEC, NDIGIT, DIGIT)
+*+
+*     - - - - - -
+*      I D C H F
+*     - - - - - -
+*
+*  Internal routine used by DFLTIN
+*
+*  Identify next character in string
+*
+*  Given:
+*     STRING      char        string
+*     NPTR        int         pointer to character to be identified
+*
+*  Returned:
+*     NPTR        int         incremented unless end of field
+*     NVEC        int         vector for identified character
+*     NDIGIT      int         0-9 if character was a numeral
+*     DIGIT       double      equivalent of NDIGIT
+*
+*     NVEC takes the following values:
+*
+*      1     0-9
+*      2     space or TAB   !!! n.b. ASCII TAB assumed !!!
+*      3     D,d,E or e
+*      4     .
+*      5     +
+*      6     -
+*      7     ,
+*      8     else
+*      9     outside field
+*
+*  If the character is not 0-9, NDIGIT and DIGIT are either not
+*  altered or are set to arbitrary values.
+*
+*  P.T.Wallace   Starlink   22 December 1992
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      CHARACTER*(*) STRING
+      INTEGER NPTR,NVEC,NDIGIT
+      DOUBLE PRECISION DIGIT
+
+      CHARACTER K
+      INTEGER NCHAR
+
+*  Character/vector tables
+      INTEGER NCREC
+      PARAMETER (NCREC=19)
+      CHARACTER KCTAB(NCREC)
+      INTEGER KVTAB(NCREC)
+      DATA KCTAB/'0','1','2','3','4','5','6','7','8','9',
+     :           ' ','D','d','E','e','.','+','-',','/
+      DATA KVTAB/10*1,2,4*3,4,5,6,7/
+
+
+*  Handle pointer outside field
+      IF (NPTR.LT.1.OR.NPTR.GT.LEN(STRING)) THEN
+         NVEC=9
+      ELSE
+
+*     Not end of field: identify the character
+         K=STRING(NPTR:NPTR)
+         DO NCHAR=1,NCREC
+            IF (K.EQ.KCTAB(NCHAR)) THEN
+
+*           Recognized
+               NVEC=KVTAB(NCHAR)
+               NDIGIT=NCHAR-1
+               DIGIT=DBLE(NDIGIT)
+               GO TO 2300
+            END IF
+         END DO
+
+*     Not recognized: check for TAB    !!! n.b. ASCII assumed !!!
+         IF (K.EQ.CHAR(9)) THEN
+
+*        TAB: treat as space
+            NVEC=2
+         ELSE
+
+*        Unrecognized
+            NVEC=8
+         END IF
+
+*     Increment pointer
+ 2300    CONTINUE
+         NPTR=NPTR+1
+      END IF
+
+      END
diff --git a/src/slalib/idchi.f b/src/slalib/idchi.f
new file mode 100644
index 0000000..56f596f
--- /dev/null
+++ b/src/slalib/idchi.f
@@ -0,0 +1,91 @@
+      SUBROUTINE sla__IDCHI (STRING, NPTR, NVEC, DIGIT)
+*+
+*     - - - - - -
+*      I D C H I
+*     - - - - - -
+*
+*  Internal routine used by INTIN
+*
+*  Identify next character in string
+*
+*  Given:
+*     STRING      char        string
+*     NPTR        int         pointer to character to be identified
+*
+*  Returned:
+*     NPTR        int         incremented unless end of field
+*     NVEC        int         vector for identified character
+*     DIGIT       double      double precision digit if 0-9
+*
+*     NVEC takes the following values:
+*
+*      1     0-9
+*      2     space or TAB   !!! n.b. ASCII TAB assumed !!!
+*      3     +
+*      4     -
+*      5     ,
+*      6     else
+*      7     outside string
+*
+*  If the character is not 0-9, DIGIT is either unaltered or
+*  is set to an arbitrary value.
+*
+*  P.T.Wallace   Starlink   22 December 1992
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      CHARACTER*(*) STRING
+      INTEGER NPTR,NVEC
+      DOUBLE PRECISION DIGIT
+
+      CHARACTER K
+      INTEGER NCHAR
+
+*  Character/vector tables
+      INTEGER NCREC
+      PARAMETER (NCREC=14)
+      CHARACTER KCTAB(NCREC)
+      INTEGER KVTAB(NCREC)
+      DATA KCTAB/'0','1','2','3','4','5','6','7','8','9',
+     :           ' ', '+','-',','/
+      DATA KVTAB/10*1,2,3,4,5/
+
+
+
+*  Handle pointer outside field
+      IF (NPTR.LT.1.OR.NPTR.GT.LEN(STRING)) THEN
+         NVEC=7
+      ELSE
+
+*     Not end of field: identify character
+         K=STRING(NPTR:NPTR)
+         DO NCHAR=1,NCREC
+            IF (K.EQ.KCTAB(NCHAR)) THEN
+
+*           Recognized
+               NVEC=KVTAB(NCHAR)
+               DIGIT=DBLE(NCHAR-1)
+               GO TO 2300
+            END IF
+         END DO
+
+*     Not recognized: check for TAB   !!! n.b. ASCII assumed !!!
+         IF (K.EQ.CHAR(9)) THEN
+
+*        TAB: treat as space
+            NVEC=2
+         ELSE
+
+*        Unrecognized
+            NVEC=6
+         END IF
+
+*     Increment pointer
+ 2300    CONTINUE
+         NPTR=NPTR+1
+      END IF
+
+      END
diff --git a/src/slalib/imxv.f b/src/slalib/imxv.f
new file mode 100644
index 0000000..2aef263
--- /dev/null
+++ b/src/slalib/imxv.f
@@ -0,0 +1,51 @@
+      SUBROUTINE sla_IMXV (RM, VA, VB)
+*+
+*     - - - - -
+*      I M X V
+*     - - - - -
+*
+*  Performs the 3-D backward unitary transformation:
+*
+*     vector VB = (inverse of matrix RM) * vector VA
+*
+*  (single precision)
+*
+*  (n.b.  the matrix must be unitary, as this routine assumes that
+*   the inverse and transpose are identical)
+*
+*  Given:
+*     RM       real(3,3)    matrix
+*     VA       real(3)      vector
+*
+*  Returned:
+*     VB       real(3)      result vector
+*
+*  P.T.Wallace   Starlink   November 1984
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL RM(3,3),VA(3),VB(3)
+
+      INTEGER I,J
+      REAL W,VW(3)
+
+
+
+*  Inverse of matrix RM * vector VA -> vector VW
+      DO J=1,3
+         W=0.0
+         DO I=1,3
+            W=W+RM(I,J)*VA(I)
+         END DO
+         VW(J)=W
+      END DO
+
+*  Vector VW -> vector VB
+      DO J=1,3
+         VB(J)=VW(J)
+      END DO
+
+      END
diff --git a/src/slalib/intin.f b/src/slalib/intin.f
new file mode 100644
index 0000000..a4cee15
--- /dev/null
+++ b/src/slalib/intin.f
@@ -0,0 +1,176 @@
+      SUBROUTINE sla_INTIN (STRING, NSTRT, IRESLT, JFLAG)
+*+
+*     - - - - - -
+*      I N T I N
+*     - - - - - -
+*
+*  Convert free-format input into an integer
+*
+*  Given:
+*     STRING     c     string containing number to be decoded
+*     NSTRT      i     pointer to where decoding is to start
+*     IRESLT     i     current value of result
+*
+*  Returned:
+*     NSTRT      i      advanced to next number
+*     IRESLT     i      result
+*     JFLAG      i      status: -1 = -OK, 0 = +OK, 1 = null, 2 = error
+*
+*  Called:  sla__IDCHI
+*
+*  Notes:
+*
+*     1     The reason INTIN has separate OK status values for +
+*           and - is to enable minus zero to be detected.   This is
+*           of crucial importance when decoding mixed-radix numbers.
+*           For example, an angle expressed as deg, arcmin, arcsec
+*           may have a leading minus sign but a zero degrees field.
+*
+*     2     A TAB is interpreted as a space.
+*
+*     3     The basic format is the sequence of fields #^, where
+*           # is a sign character + or -, and ^ means a string of
+*           decimal digits.
+*
+*     4     Spaces:
+*
+*             .  Leading spaces are ignored.
+*
+*             .  Spaces between the sign and the number are allowed.
+*
+*             .  Trailing spaces are ignored;  the first signifies
+*                end of decoding and subsequent ones are skipped.
+*
+*     5     Delimiters:
+*
+*             .  Any character other than +,-,0-9 or space may be
+*                used to signal the end of the number and terminate
+*                decoding.
+*
+*             .  Comma is recognized by INTIN as a special case;  it
+*                is skipped, leaving the pointer on the next character.
+*                See 9, below.
+*
+*     6     The sign is optional.  The default is +.
+*
+*     7     A "null result" occurs when the string of characters being
+*           decoded does not begin with +,- or 0-9, or consists
+*           entirely of spaces.  When this condition is detected, JFLAG
+*           is set to 1 and IRESLT is left untouched.
+*
+*     8     NSTRT = 1 for the first character in the string.
+*
+*     9     On return from INTIN, NSTRT is set ready for the next
+*           decode - following trailing blanks and any comma.  If a
+*           delimiter other than comma is being used, NSTRT must be
+*           incremented before the next call to INTIN, otherwise
+*           all subsequent calls will return a null result.
+*
+*     10    Errors (JFLAG=2) occur when:
+*
+*             .  there is a + or - but no number;  or
+*
+*             .  the number is greater than BIG (defined below).
+*
+*     11    When an error has been detected, NSTRT is left
+*           pointing to the character following the last
+*           one used before the error came to light.
+*
+*     12    See also FLOTIN and DFLTIN.
+*
+*  P.T.Wallace   Starlink   27 April 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      CHARACTER*(*) STRING
+      INTEGER NSTRT,IRESLT,JFLAG
+
+*  Maximum allowed value
+      DOUBLE PRECISION BIG
+      PARAMETER (BIG=2147483647D0)
+
+      INTEGER JPTR,MSIGN,NVEC,J
+      DOUBLE PRECISION DRES,DIGIT
+
+
+
+*  Current character
+      JPTR=NSTRT
+
+*  Set defaults
+      DRES=0D0
+      MSIGN=1
+
+*  Look for sign
+ 100  CONTINUE
+      CALL sla__IDCHI(STRING,JPTR,NVEC,DIGIT)
+      GO TO ( 400, 100,  300,  200, 9110, 9100, 9110),NVEC
+*             0-9   SP     +     -     ,   ELSE   END
+
+*  Negative
+ 200  CONTINUE
+      MSIGN=-1
+
+*  Look for first decimal
+ 300  CONTINUE
+      CALL sla__IDCHI(STRING,JPTR,NVEC,DIGIT)
+      GO TO ( 400, 300, 9200, 9200, 9200, 9200, 9210),NVEC
+*             0-9   SP     +     -     ,   ELSE   END
+
+*  Accept decimals
+ 400  CONTINUE
+      DRES=DRES*1D1+DIGIT
+
+*  Test for overflow
+      IF (DRES.GT.BIG) GO TO 9200
+
+*  Look for subsequent decimals
+      CALL sla__IDCHI(STRING,JPTR,NVEC,DIGIT)
+      GO TO ( 400, 1610, 1600, 1600, 1600, 1600, 1610),NVEC
+*             0-9   SP     +     -     ,   ELSE   END
+
+*  Get result & status
+ 1600 CONTINUE
+      JPTR=JPTR-1
+ 1610 CONTINUE
+      J=0
+      IF (MSIGN.EQ.1) GO TO 1620
+      J=-1
+      DRES=-DRES
+ 1620 CONTINUE
+      IRESLT=NINT(DRES)
+
+*  Skip to end of field
+ 1630 CONTINUE
+      CALL sla__IDCHI(STRING,JPTR,NVEC,DIGIT)
+      GO TO (1720, 1630, 1720, 1720, 9900, 1720, 9900),NVEC
+*             0-9   SP     +     -     ,   ELSE   END
+
+ 1720 CONTINUE
+      JPTR=JPTR-1
+      GO TO 9900
+
+*  Exits
+
+*  Null field
+ 9100 CONTINUE
+      JPTR=JPTR-1
+ 9110 CONTINUE
+      J=1
+      GO TO 9900
+
+*  Errors
+ 9200 CONTINUE
+      JPTR=JPTR-1
+ 9210 CONTINUE
+      J=2
+
+*  Return
+ 9900 CONTINUE
+      NSTRT=JPTR
+      JFLAG=J
+
+      END
diff --git a/src/slalib/invf.f b/src/slalib/invf.f
new file mode 100644
index 0000000..f323228
--- /dev/null
+++ b/src/slalib/invf.f
@@ -0,0 +1,90 @@
+      SUBROUTINE sla_INVF (FWDS,BKWDS,J)
+*+
+*     - - - - -
+*      I N V F
+*     - - - - -
+*
+*  Invert a linear model of the type produced by the
+*  sla_FITXY routine.
+*
+*  Given:
+*     FWDS    d(6)      model coefficients
+*
+*  Returned:
+*     BKWDS   d(6)      inverse model
+*     J        i        status:  0 = OK, -1 = no inverse
+*
+*  The models relate two sets of [X,Y] coordinates as follows.
+*  Naming the elements of FWDS:
+*
+*     FWDS(1) = A
+*     FWDS(2) = B
+*     FWDS(3) = C
+*     FWDS(4) = D
+*     FWDS(5) = E
+*     FWDS(6) = F
+*
+*  where two sets of coordinates [X1,Y1] and [X2,Y1] are related
+*  thus:
+*
+*     X2 = A + B*X1 + C*Y1
+*     Y2 = D + E*X1 + F*Y1
+*
+*  the present routine generates a new set of coefficients:
+*
+*     BKWDS(1) = P
+*     BKWDS(2) = Q
+*     BKWDS(3) = R
+*     BKWDS(4) = S
+*     BKWDS(5) = T
+*     BKWDS(6) = U
+*
+*  such that:
+*
+*     X1 = P + Q*X2 + R*Y2
+*     Y1 = S + T*X2 + U*Y2
+*
+*  Two successive calls to sla_INVF will thus deliver a set
+*  of coefficients equal to the starting values.
+*
+*  To comply with the ANSI Fortran standard, FWDS and BKWDS must
+*  not be the same array, even though the routine is coded to
+*  work on the VAX and most other computers even if this rule
+*  is violated.
+*
+*  See also sla_FITXY, sla_PXY, sla_XY2XY, sla_DCMPF
+*
+*  P.T.Wallace   Starlink   11 April 1990
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION FWDS(6),BKWDS(6)
+      INTEGER J
+
+      DOUBLE PRECISION A,B,C,D,E,F,DET
+
+
+
+      A=FWDS(1)
+      B=FWDS(2)
+      C=FWDS(3)
+      D=FWDS(4)
+      E=FWDS(5)
+      F=FWDS(6)
+      DET=B*F-C*E
+      IF (DET.NE.0D0) THEN
+         BKWDS(1)=(C*D-A*F)/DET
+         BKWDS(2)=F/DET
+         BKWDS(3)=-C/DET
+         BKWDS(4)=(A*E-B*D)/DET
+         BKWDS(5)=-E/DET
+         BKWDS(6)=B/DET
+         J=0
+      ELSE
+         J=-1
+      END IF
+
+      END
diff --git a/src/slalib/kbj.f b/src/slalib/kbj.f
new file mode 100644
index 0000000..6a3ddb4
--- /dev/null
+++ b/src/slalib/kbj.f
@@ -0,0 +1,56 @@
+      SUBROUTINE sla_KBJ (JB, E, K, J)
+*+
+*     - - - -
+*      K B J
+*     - - - -
+*
+*  Select epoch prefix 'B' or 'J'
+*
+*  Given:
+*     JB     int     sla_DBJIN prefix status:  0=none, 1='B', 2='J'
+*     E      dp      epoch - Besselian or Julian
+*
+*  Returned:
+*     K      char    'B' or 'J'
+*     J      int     status:  0=OK
+*
+*  If JB=0, B is assumed for E < 1984D0, otherwise J.
+*
+*  P.T.Wallace   Starlink   31 July 1989
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER JB
+      DOUBLE PRECISION E
+      CHARACTER K*(*)
+      INTEGER J
+
+*  Preset status
+      J=0
+
+*  If prefix given expressly, use it
+      IF (JB.EQ.1) THEN
+         K='B'
+      ELSE IF (JB.EQ.2) THEN
+         K='J'
+
+*  If no prefix, examine the epoch
+      ELSE IF (JB.EQ.0) THEN
+
+*     If epoch is pre-1984.0, assume Besselian;  otherwise Julian
+         IF (E.LT.1984D0) THEN
+            K='B'
+         ELSE
+            K='J'
+         END IF
+
+*  If illegal prefix, return error status
+      ELSE
+         K=' '
+         J=1
+      END IF
+
+      END
diff --git a/src/slalib/m2av.f b/src/slalib/m2av.f
new file mode 100644
index 0000000..1299ed9
--- /dev/null
+++ b/src/slalib/m2av.f
@@ -0,0 +1,59 @@
+      SUBROUTINE sla_M2AV (RMAT, AXVEC)
+*+
+*     - - - - -
+*      M 2 A V
+*     - - - - -
+*
+*  From a rotation matrix, determine the corresponding axial vector
+*  (single precision)
+*
+*  A rotation matrix describes a rotation about some arbitrary axis.
+*  The axis is called the Euler axis, and the angle through which the
+*  reference frame rotates is called the Euler angle.  The axial
+*  vector returned by this routine has the same direction as the
+*  Euler axis, and its magnitude is the Euler angle in radians.  (The
+*  magnitude and direction can be separated by means of the routine
+*  sla_VN.)
+*
+*  Given:
+*    RMAT   r(3,3)   rotation matrix
+*
+*  Returned:
+*    AXVEC  r(3)     axial vector (radians)
+*
+*  The reference frame rotates clockwise as seen looking along
+*  the axial vector from the origin.
+*
+*  If RMAT is null, so is the result.
+*
+*  P.T.Wallace   Starlink   11 April 1990
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL RMAT(3,3),AXVEC(3)
+
+      REAL X,Y,Z,S2,C2,PHI,F
+
+
+
+      X = RMAT(2,3)-RMAT(3,2)
+      Y = RMAT(3,1)-RMAT(1,3)
+      Z = RMAT(1,2)-RMAT(2,1)
+      S2 = SQRT(X*X+Y*Y+Z*Z)
+      IF (S2.NE.0.0) THEN
+         C2 = (RMAT(1,1)+RMAT(2,2)+RMAT(3,3)-1.0)
+         PHI = ATAN2(S2/2.0,C2/2.0)
+         F = PHI/S2
+         AXVEC(1) = X*F
+         AXVEC(2) = Y*F
+         AXVEC(3) = Z*F
+      ELSE
+         AXVEC(1) = 0.0
+         AXVEC(2) = 0.0
+         AXVEC(3) = 0.0
+      END IF
+
+      END
diff --git a/src/slalib/makefile.orig b/src/slalib/makefile.orig
new file mode 100644
index 0000000..ff61e16
--- /dev/null
+++ b/src/slalib/makefile.orig
@@ -0,0 +1,1426 @@
+#+
+#  Name:
+#     makefile
+#
+#  Version:
+#     Library makefile Mk V
+#
+#  Purpose:
+#     Build and install the SLALIB package.
+#
+#  Type of Module:
+#     Description file for the make utility.
+#
+#  Description:
+#     This description file is used by the make utility to build the
+#     SLALIB package from the distributed source files, to install
+#     the resulting system for use, and to perform other housekeeping
+#     tasks.
+#
+#  Invocation:
+#     This makefile is not intended to be used by make when invoked
+#     directly (although this is possible), but instead to be used via
+#     the accompanying mk script.  This script sets up a number of
+#     environment variables which are used as macros within the
+#     makefile and which accommodate differences between machines and
+#     operating systems (it invokes make with the -e option).  Please
+#     consult the mk script prologue for full details.
+#
+#  Targets:
+#     The following make targets are defined in this script for
+#     external use:
+#
+#        [help]
+#           This is the default target.  It outputs a message describing
+#           the mk script and lists the targets provided.
+#
+#        check
+#           Performs a simple check that all necessary source files are
+#           present, and displays the version number and current state
+#           of the package (built/installed/tested, etc.).
+#
+#        build
+#           Compiles the source files and creates all files needed
+#           prior to installing the package for use.
+#
+#        install
+#           Installs the package for use by putting the necessary files
+#           into sub-directories of the $INSTALL directory (the $HOME
+#           directory is used if the environment variable INSTALL is
+#           not defined).  Links to the installed files are left in the
+#           source directory.
+#
+#        deinstall
+#           Reverses the action of the install target, removing files
+#           from sub-directories of the $INSTALL directory and
+#           restoring them to the source directory (the $HOME directory
+#           is used by default if the environment variable INSTALL is
+#           not defined).
+#
+#        test
+#           Builds and runs a simple test program to check for correct
+#           installation of the package.
+#
+#        export
+#           Produces an export copy of the built package suitable for
+#           passing to another user.  A compressed tar file is created
+#           in the $EXPORT directory containing copies of the source
+#           files and built files for the package (the current
+#           directory is used by default if the environment variable
+#           EXPORT is not defined).  The package should normally be
+#           built, installed and tested (see above) before using this
+#           target.  After unpacking the exported file on a similar
+#           machine, the recipient may simply install it for use.
+#
+#        export_run
+#           Produces an export copy of the built package suitable for
+#           passing to another user.  A compressed tar file is created
+#           in the $EXPORT directory containing copies of the built
+#           files for the package (the current directory is used by
+#           default if the environment variable EXPORT is not defined).
+#           The package should normally be built, installed and tested
+#           (see above) before using this target.  After unpacking the
+#           exported file on a similar machine, the recipient may simply
+#           install it for use.
+#
+#        export_source
+#           Produces an export copy of the source for the package
+#           suitable for passing to another user to build (possibly on
+#           a different type of machine).  A compressed tar file is
+#           created in the $EXPORT directory containing copies of just
+#           the source files for the package (the current directory is
+#           used by default if the environment variable EXPORT is not
+#           defined).  After unpacking the exported file, the recipient
+#           must build the package before installing it for use.
+#
+#        clean
+#           Cleans up after building the package, removing all
+#           intermediate files created during the building process, but
+#           leaving the built files themselves.
+#
+#        unbuild
+#           Reverses the building process, removing all intermediate
+#           files along with all the built files.
+#
+#  External Dependencies:
+#     The SLALIB package depends on the following other Starlink
+#     packages which must previously have been installed into the
+#     appropriate sub-directories of the $STARLINK directory (/star is
+#     used if the environment variable STARLINK is not defined).
+#
+#        None.
+#
+#  Notes:
+#     This makefile uses the presence/absence of the hidden files
+#     .BUILT, .INSTALLED_$(SYSTEM) and .TESTED_$(SYSTEM) to record the
+#     current state of the system during housekeeping operations.
+#
+#  Implementation Deficiencies:
+#     The method of generating the list of external libraries passed to
+#     the $(BLD_SHR) command is still preliminary.
+#
+#  Copyright:
+#     Copyright (C) 1995 Rutherford Appleton Laboratory
+#
+#  Authors:
+#     RFWS: R.F.Warren-Smith (Starlink, RAL)
+#     PMA: P.M.Allan (Starlink, RAL)
+#     PTW: P.T.Wallace (Starlink, RAL)
+#     AJC: A.J.Chipperfield (Starlink, RAL)
+#     BLY: M.J.Bly (Starlink, RAL)
+#     {enter_new_authors_here}
+#
+#  History:
+#     1-DEC-1993 (RFWS/PMA):
+#        Starlink template.
+#     1-DEC-1993 (PTW):
+#        SLALIB version.
+#     18-JAN-1994 (PTW):
+#        Corrections to if statements.
+#     10-MAR-1994 (PTW):
+#        sla_RVLSR replaced by sla_RVLSRD and sla_RVLSRK
+#     8-AUG-1994 (PTW):
+#        New routines added: sla_DE2H, sla_DH2E, sla_DTPRD, sla_E2H,
+#        sla_H2E, sla_PRECL, sla_TPRD.  Version number changed to 1.3-4.
+#        Missing dependencies on source archive added.
+#     19-OCT-1994 (PTW):
+#        New routines added: sla_ALTAZ, sla_PDA2H, sla_PDQ2H.  Package
+#        version number changed to 1.4-1.  Library version number
+#        changed to 1.4.
+#     26-OCT-1994 (PTW):
+#        Package version number changed to 1.4-2.
+#     15-DEC-1994 (PTW):
+#        New routines added: sla_PLANET, sla_RDPLAN, sla_DMOON, sla_DT,
+#        sla_CLYD.  Package version number changed to 1.4-4.
+#     3-JAN-1995 (PTW):
+#        Package version number changed to 1.4-5.
+#     13-FEB-1995 (PTW):
+#        New routines added: sla_DTP2V, sla_DTPXYZ, sla_DV2TP, sla_TP2V,
+#        sla_TPXYZ, sla_V2TP.  Package version number changed to 1.4-6.
+#     20-FEB-1995 (PTW):
+#        Package version number changed to 1.4-7 (sla_OBS enhanced).
+#     23-MAR-1995 (PTW):
+#        Unnecessary creation of INSTALL_INC removed.
+#     05-JUN-1995 (PTW):
+#        Four routines replaced: sla_DTPRD, sla_DTPXYZ, sla_TPRD and
+#        sla_TPXYZ become sla_DTPS2C, sla_DTPXYZ, sla_TPS2C and sla_TPV2C.
+#        Package version number changed to 1.5-1.  Library version
+#        number changed to 1.5.
+#     06-JUN-1995 (BLY/AJC):
+#        Updated to match Mk IVa makefile standard.
+#     02-JUL-1995 (PTW):
+#        Package version number changed to 1.5-2.
+#     21-JUL-1995 (PTW):
+#        Package version number changed to 1.5-3.
+#     14-SEP-1995 (PTW):
+#        New routine added:  sla_GMSTA.
+#        Package version number changed to 1.6-1.
+#     04-OCT-1995 (PTW):
+#        New routine added:  sla_ATMDSP.
+#        Package version number changed to 1.6-2.
+#     14-NOV-1995 (PTW):
+#        Bug fix:  sla_DAT.
+#        Package version number changed to 1.6-3.
+#     21-FEB-1996 (PTW):
+#        New routine:  sla_POLMO.
+#        Bug fix:  sla_DC62S, sla_CC62S.
+#        Comment corrections:  sla_DH2E, sla_H2E.
+#        New, html-compatible, document:  SUN/67.34.
+#        Package version number changed to 1.6-4.
+#     04-MAR-1996 (BLY):
+#        Update makefile to Mk V specification.
+#        Add special HLINK macro definitions.
+#        No change to version number.
+#     24-APR-1996 (BLY):
+#        Integrate ix86_Linux version.
+#        Update version to v1.7-0.
+#     10-MAY-1996 (BLY):
+#        Update version to v1.7-1.  No changes to Fortran version.
+#     18-JUL-1996 (PTW):
+#        Comment corrections:  sla_DS2TP, sla_DV2TP, sla_S2TP, sla_V2TP
+#        New, html-compatible, document:  SUN/67.34.
+#        Package version number changed to 1.7-2.
+#     26-NOV-1996 (PTW):
+#        Minor corrections to sla_DV2TP and sla_V2TP.  In sla_OBS,
+#        revision of Parkes position and addition of ATNF Mopra.
+#        Package version number changed to 1.7-3.
+#     28-MAY-1997 (PTW):
+#        New routines:  sla_PLANEL, sla_PLANTE.
+#        Functionally enhanced:  sla_PLANET, sla_RDPLAN.
+#        Minor code improvements:  several.
+#        Comment corrections:  numerous.
+#        Revised document:  SUN/67.36.
+#        Package version number changed to 2.0-1.
+#     6-JAN-1998 (PTW):
+#        Functionally enhanced:  sla_DAT.
+#        Revised document:  SUN/67.38.
+#        Package version number changed to 2.0-3.
+#     15-APR-1998 (PTW):
+#        Code improvements:  sla_GMSTA.
+#        Revised document:  SUN/67.40.
+#        Package version number changed to 2.0-4.
+#     28-MAY-1998 (PTW):
+#        Code improvements:  sla_PLANEL.
+#        New routine:  sla_PV2EL
+#        Revised document:  SUN/67.41.
+#        Package version number changed to 2.1-0.
+#     14-JUL-1998 (PTW):
+#        Makefile updated - sla_PAV had been omitted.
+#     18-JUL-1998 (PTW):
+#        1999 January 1 leap second added to sla_DAT.
+#        Package version number changed to 2.1-1.
+#     11-AUG-1998 (PTW):
+#        Makefile updated - sla_DPAV had been omitted (!).
+#     30-SEP-1998 (PTW):
+#        New routines:  sla_FK52H, sla_H2FK5, sla_FK5HZ and sla_HFK5Z.
+#        Revised document:  SUN/67.43.
+#        Package version number changed to 2.2-0.
+#     19-MAR-1999 (PTW):
+#        New routines:  sla_EL2UE, sla_PERTEL, sla_PERTUE,
+#                       sla_PV2UE, sla_UE2EL and sla_UE2PV
+#        Revised document:  SUN/67.44.
+#        Package version number changed to 2.3-0.
+#     2-AUG-1999 (PTW):
+#        New routines:  sla_COMBN and sla_PERMUT
+#        Revised document:  SUN/67.45.
+#        Package version number changed to 2.4-0.
+#     29-OCT-1999 (PTW):
+#        The F_ROUTINES definition lacked entries for sla_EL2UE,
+#        sla_PERTEL, sla_PERTUE, sla_PV2UE, sla_UE2EL, sla_UE2PV,
+#        sla_COMBN and sla_PERMUT.
+#     {enter_further_changes_here}
+#
+#  Bugs:
+#     {note_any_bugs_here}
+#
+#-------------------------------------------------------------------------------
+
+#  Help target.
+#  ===========
+#
+#  This is the default target, so it appears first.
+
+#  Display information about the mk script and the make targets.
+
+help:
+	@ echo \
+   '   The makefile provided is intended to be used by the make utility when';\
+        echo \
+   '   invoked via the associated mk script.  This script defines environment';\
+        echo \
+   '   variables which are used by make to accommodate differing machine and';\
+        echo \
+   '   operating system characteristics.  Please see the mk script prologue';\
+        echo \
+   '   for full details.';\
+        echo;\
+        echo \
+   '   The following targets are provided:';\
+        echo;\
+        echo \
+   '      help          - Display this message';\
+        echo \
+   '      check         - Check source file presence and show current state';\
+        echo \
+   '      build         - Build the package from source';\
+        echo \
+   '      install       - Install the built package for use';\
+        echo \
+   '      deinstall     - Deinstall the package';\
+        echo \
+   '      test          - Perform a quick test of the installation';\
+        echo \
+   '      export        - Make a compressed tar file for exporting the'\
+   'built package';\
+        echo \
+   '                      complete with source and documentation';\
+        echo \
+   '      export_run    - Make a compressed tar file for exporting the'\
+   'built package';\
+        echo \
+   '                      with documentation but no source';\
+        echo \
+   '      export_source - Make a compressed tar file for exporting the'\
+   'source files';\
+        echo \
+   '      clean         - Tidy up after building the package';\
+        echo \
+   '      unbuild       - Remove all the built files';\
+        echo;\
+        echo \
+   '   To build and install the $(PACK_NAME) package on a supported system:';\
+        echo;\
+        echo \
+   '      mk build; mk install; mk test; mk clean';\
+        echo
+
+#-------------------------------------------------------------------------------
+
+#  Defaults.
+#  ========
+#
+#  This section defines default macros and should rarely need changing.
+#  The values given here should be overridden externally to adapt to
+#  the local system setup (either use the mk script or use environment
+#  variables and invoke "make" with the "-e" option).
+
+#  Name of computer hardware/OS combination.
+
+SYSTEM = unknown
+
+#  Name used to distinguish platform-specific source files.
+
+SOURCE_VARIANT = $(SYSTEM)
+
+#  Pathname of the root directory beneath which other Starlink software
+#  is currently installed.
+
+STARLINK = /star
+
+#  Pathnames of Starlink sub-directories that may be referenced when
+#  building this package.
+
+STAR_BIN = $(STARLINK)/bin
+STAR_DATES = $(STARLINK)/dates
+STAR_DOCS = $(STARLINK)/docs
+STAR_ETC = $(STARLINK)/etc
+STAR_HELP = $(STARLINK)/help
+STAR_INC = $(STARLINK)/include
+STAR_LIB = $(STARLINK)/lib
+
+#  Pathname of the root directory beneath which the built files for
+#  this package should be installed for use.  This defaults to the
+#  user's home directory.
+
+INSTALL = $(HOME)
+
+#  Pathname of the directory into which exported tar files will be
+#  placed.  This defaults to the current working directory.
+
+EXPORT = .
+
+#  Default macros for compiling C and Fortran source code.
+
+CC = c89
+CFLAGS = -O
+FC = fort77
+FFLAGS = -O
+
+#  Command for forming a link to a file.
+
+LINK = ln
+
+#  Command for "randomizing" an object library.  The default acts as a
+#  null command.
+
+RANLIB = :
+
+#  Commands for adding to and extracting from an archive file (.tar).
+
+TAR_IN = pax -w -v -x ustar -f
+TAR_OUT = pax -r -f
+
+#  Command for adding a file to an object archive (.a).
+
+AR_IN = ar -r
+
+#  Default file type extension for a shareable library and command for
+#  building a shareable library (the default acts as a null command).
+
+SHARE = .so
+BLD_SHR = :
+
+#  Default command for linking hypertext document to others, including those
+#  on the RAL document server.
+
+HLINK = :
+
+#-------------------------------------------------------------------------------
+################################################################################
+#
+#  Define package source files.
+#  ===========================
+#
+#  This section defines the set of source files for the package.
+
+#  Name of the package as specified in documentation
+#  The value is used in messages from make to the user.
+
+PACK_NAME = SLALIB
+
+#  Prefix for the package in lower-case as used in filenames etc.
+PKG_NAME = sla
+ 
+#  Prefix for the package in upper-case as used in include file links.
+PKG_LINK = SLA
+ 
+#  Version number (as in the documentation - i.e. not the same thing
+#  as the shared library version number).
+#
+#  The major component of the version number (before the dot) should
+#  normally only be incremented following major changes to the package.
+#  The minor version number (after the dot) is the number normally
+#  incremented following development which introduces new documented
+#  functionality.  Any revision number (appended after a dash) should
+#  be incremented for other minor changes (bug fixes, etc.) which do
+#  not merit documentation changes.
+
+PKG_VERS = 2.4-0
+
+#  Library version number.
+#
+#  n.b. Care needed - may affect existing applications.
+#
+#  The minor component of this number (following the dot) should be
+#  incremented whenever a new routine is added to a library or some
+#  other change is made such that programs built with the latest
+#  version would fail to run using an earlier version.  The major number
+#  should be incremented if a change is made such that existing
+#  programs would have to be re-built in order to work with the new
+#  version.
+
+LIB_VERS = 1.6
+
+#  List of files comprising the distributed source-only system.  This
+#  defines the minimum set of files required to rebuild completely the
+#  package from source (including this makefile, the associated mk
+#  script and any documentation files).
+
+SOURCE_FILES = $(PKG_NAME)_source.tar makefile mk $(DOCUMENTATION)
+
+#  List of public script files.  These are scripts which form part of
+#  the package and will be required by users of it.  They will be
+#  installed in the $(INSTALL_BIN) directory with execute permission
+#  set.
+
+PUBLIC_SCRIPTS = $(PKG_NAME)_link $(PKG_NAME)_link_adam
+
+#  Startup script.  This is the file that must be executed by a
+#  programmer using this package in order to define links to include
+#  files.  It is listed separately from the public scripts as it is
+#  edited by the installation procedure.
+
+STARTUP_SCRIPT =
+
+#  List of public include files.  These are include files which form
+#  part of the package and may be required by users of it.  They will be
+#  installed in the $(INSTALL_INC) directory.
+
+PUBLIC_INCLUDES =
+
+#  List of private include files.  These are additional include files
+#  which form part of the package and are required in order to build
+#  it, but which are not required by users of it.
+
+PRIVATE_INCLUDES =
+
+#  List of external include files.  These are files which are required
+#  in order to build the package but form part of other, externally
+#  installed packages.  This list should contain the names used to
+#  reference the files within the source code, not the actual names of
+#  the files.
+
+EXTERNAL_INCLUDES =
+
+#  List of Fortran routines required for building the package.  This is
+#  just a list of all the Fortran source files (excluding BLOCK DATA
+#  routines, which are treated separately).
+
+F_ROUTINES = \
+        addet.f  \
+        afin.f   \
+        airmas.f \
+        altaz.f  \
+        amp.f    \
+        ampqk.f  \
+        aop.f    \
+        aoppa.f  \
+        aoppat.f \
+        aopqk.f  \
+        atmdsp.f \
+        atms.f   \
+        atmt.f   \
+        av2m.f   \
+        bear.f   \
+        caf2r.f  \
+        caldj.f  \
+        calyd.f  \
+        cc2s.f   \
+        cc62s.f  \
+        cd2tf.f  \
+        cldj.f   \
+        clyd.f   \
+        combn.f  \
+        cr2af.f  \
+        cr2tf.f  \
+        cs2c.f   \
+        cs2c6.f  \
+        ctf2d.f  \
+        ctf2r.f  \
+        daf2r.f  \
+        dafin.f  \
+        dat.f    \
+        dav2m.f  \
+        dbear.f  \
+        dbjin.f  \
+        dc62s.f  \
+        dcc2s.f  \
+        dcmpf.f  \
+        dcs2c.f  \
+        dd2tf.f  \
+        de2h.f   \
+        deuler.f \
+        dfltin.f \
+        dh2e.f   \
+        dimxv.f  \
+        djcal.f  \
+        djcl.f   \
+        dm2av.f  \
+        dmat.f   \
+        dmoon.f  \
+        dmxm.f   \
+        dmxv.f   \
+        dpav.f   \
+        dr2af.f  \
+        dr2tf.f  \
+        drange.f \
+        dranrm.f \
+        ds2c6.f  \
+        ds2tp.f  \
+        dsep.f   \
+        dt.f     \
+        dtf2d.f  \
+        dtf2r.f  \
+        dtp2s.f  \
+        dtp2v.f  \
+        dtps2c.f \
+        dtpv2c.f \
+        dtt.f    \
+        dv2tp.f  \
+        dvdv.f   \
+        dvn.f    \
+        dvxv.f   \
+        e2h.f    \
+        earth.f  \
+        ecleq.f  \
+        ecmat.f  \
+        ecor.f   \
+        eg50.f   \
+        el2ue.f  \
+        epb.f    \
+        epb2d.f  \
+        epco.f   \
+        epj.f    \
+        epj2d.f  \
+        eqecl.f  \
+        eqeqx.f  \
+        eqgal.f  \
+        etrms.f  \
+        euler.f  \
+        evp.f    \
+        fitxy.f  \
+        fk425.f  \
+        fk45z.f  \
+        fk524.f  \
+        fk52h.f  \
+        fk54z.f  \
+        fk5hz.f  \
+        flotin.f \
+        galeq.f  \
+        galsup.f \
+        ge50.f   \
+        geoc.f   \
+        gmst.f   \
+        gmsta.f  \
+        h2e.f    \
+        h2fk5.f  \
+        hfk5z.f  \
+        idchf.f  \
+        idchi.f  \
+        imxv.f   \
+        intin.f  \
+        invf.f   \
+        kbj.f    \
+        m2av.f   \
+        map.f    \
+        mappa.f  \
+        mapqk.f  \
+        mapqkz.f \
+        moon.f   \
+        mxm.f    \
+        mxv.f    \
+        nut.f    \
+        nutc.f   \
+        oap.f    \
+        oapqk.f  \
+        obs.f    \
+        pa.f     \
+        pav.f    \
+        pcd.f    \
+        pda2h.f  \
+        pdq2h.f  \
+        permut.f \
+        pertel.f \
+        pertue.f \
+        planel.f \
+        planet.f \
+        plante.f \
+        pm.f     \
+        polmo.f  \
+        prebn.f  \
+        prec.f   \
+        precl.f  \
+        preces.f \
+        prenut.f \
+        pv2el.f  \
+        pv2ue.f  \
+        pvobs.f  \
+        pxy.f    \
+        range.f  \
+        ranorm.f \
+        rcc.f    \
+        rdplan.f \
+        refco.f  \
+        refro.f  \
+        refv.f   \
+        refz.f   \
+        rverot.f \
+        rvgalc.f \
+        rvlg.f   \
+        rvlsrd.f \
+        rvlsrk.f \
+        s2tp.f   \
+        sep.f    \
+        smat.f   \
+        subet.f  \
+        supgal.f \
+        svd.f    \
+        svdcov.f \
+        svdsol.f \
+        tp2s.f   \
+        tp2v.f   \
+        tps2c.f  \
+        tpv2c.f  \
+        ue2el.f  \
+        ue2pv.f  \
+        unpcd.f  \
+        v2tp.f   \
+        vdv.f    \
+        vn.f     \
+        vxv.f    \
+        xy2xy.f  \
+        zd.f
+
+#  List of Fortran BLOCK DATA routines.
+
+BLOCK_DATA =
+
+#  List of platform specific Fortran routines.  The source tar file will
+#  contain a version of these files for each set of platforms.  The names
+#  given here are the general version of the file, e.g. pkg_open.f.  The
+#  names in the tar file will be pkg_open.f_sun4, pkg_open.f_mips, etc.
+
+PLATFORM_F = \
+        gresid.f \
+        random.f \
+        wait.f
+
+#  C routines required for building the package.  This is just a list of
+#  all the C source files.
+
+C_ROUTINES =
+
+#  Lists of Latex and hypertext documents.
+
+LATEX_DOCS = sun67.tex
+HYPERTEXT_DOCS = sun67.htx
+
+#  List of documentation files.
+
+DOCUMENTATION = $(LATEX_DOCS) $(HYPERTEXT_DOCS:.htx=.htx_tar) \
+$(PKG_NAME).news read.me
+
+################################################################################
+#-------------------------------------------------------------------------------
+
+#  Define files required for building the package.
+#  ==============================================
+#
+#  This section defines the set of files produced from the source files
+#  when the package is built and installed.
+
+#  Use only .o, .c and .f suffix rules.
+
+.SUFFIXES:
+.SUFFIXES: .o .c .f
+
+#  List of files which must be built from the source files before the
+#  package can be installed for use.  This should comprise all the files
+#  that are required to use the package (but excluding the date stamp
+#  file).
+
+BUILT_FILES = $(PUBLIC_SCRIPTS) $(PUBLIC_INCLUDES) $(OBJECT_LIBRARIES) \
+$(SHAREABLE_LIBRARIES) $(STARTUP_SCRIPT)
+
+#  List of links used to access include files during compilation.  This
+#  should comprise all the external include files and any other include
+#  files whose names do not exactly match the names used in the source
+#  code.
+
+INCLUDE_LINKS = $(EXTERNAL_INCLUDES)
+
+#  Rules to set up links to locate each of the above include files.
+
+#  Rules for extracting source files from the source archive.
+
+$(PUBLIC_SCRIPTS) $(PUBLIC_INCLUDES) $(F_ROUTINES) \
+$(BLOCK_DATA) $(C_ROUTINES) $(STARTUP_SCRIPT):
+	$(TAR_OUT) $(PKG_NAME)_source.tar $@
+	@ if test -f $@; then :;\
+           else echo $@ is not in the tar file; exit 1; fi
+
+#  Rules for extracting platform specific source files from the source
+#  archive.
+
+#  It is quite likely that there are no platform-specific source files
+#  and that the macro PLATFORM_F is empty. To prevent a syntax error in
+#  make, a dummy target is present.
+
+$(PLATFORM_F) dummy_target1:
+	$(TAR_OUT) $(PKG_NAME)_source.tar $@_$(SOURCE_VARIANT)
+	@ if test -f $@_$(SOURCE_VARIANT); then :;\
+           else echo $@_$(SOURCE_VARIANT) is not in the tar file; exit 1; fi
+	mv $@_$(SOURCE_VARIANT) $@
+
+#  List of object files produced by compiling the source code and rules
+#  for performing the compilations.
+
+OBJECT_FILES = $(BLOCK_DATA:.f=.o) $(F_ROUTINES:.f=.o) \
+               $(PLATFORM_F:.f=.o) $(C_ROUTINES:.c=.o)
+
+.c.o:
+	$(CC) $(CFLAGS) -c $<
+.f.o:
+	$(FC) $(FFLAGS) -c $<
+
+#  List of object library files to be built and rules for building
+#  them.
+
+OBJECT_LIBRARIES = lib$(PKG_NAME).a
+
+lib$(PKG_NAME).a: $(OBJECT_FILES)
+	$(AR_IN) $@ $?
+	$(RANLIB) $@
+
+#  List of shareable library files to be built and rules for building
+#  them. The third argument to $(BLD_SHR) should provide the information
+#  necessary to link any libraries called by this package.
+
+SHAREABLE_LIBRARIES = lib$(PKG_NAME)$(SHARE)
+
+lib$(PKG_NAME)$(SHARE): $(OBJECT_FILES)
+	touch $@
+	$(BLD_SHR) $@ '$(OBJECT_FILES)'
+
+#  Name of the date stamp file.  This is used to record the time of the
+#  most recent build for use in subsequent operations that require it.
+#  There must be no rule for generating this file; it is updated only
+#  as a side effect of building the package.
+
+DATE_STAMP = $(PKG_NAME)_datestamp
+
+#  Pathnames of directories into which files may be placed when the
+#  package is installed.
+
+INSTALL_BIN = $(INSTALL)/bin
+INSTALL_DATES = $(INSTALL)/dates
+INSTALL_DOCS = $(INSTALL)/docs
+INSTALL_ETC = $(INSTALL)/etc
+INSTALL_HELP = $(INSTALL)/help
+INSTALL_INC = $(INSTALL)/include
+INSTALL_LIB = $(INSTALL)/lib
+INSTALL_SHARE = $(INSTALL)/share
+
+#  List of directories actually used for installation (selected from
+#  those above) and rules to create them.
+
+INSTALL_DIRS = $(INSTALL_BIN) $(INSTALL_DATES) $(INSTALL_DOCS) $(INSTALL_LIB) \
+$(INSTALL_SHARE)
+
+$(INSTALL_DIRS):
+	mkdir -p $@
+
+#-------------------------------------------------------------------------------
+
+#  Primary targets.
+#  ===============
+#
+#  These are the targets intended for normal external use (apart from
+#  help, which appears at the start of the file).
+
+#  check: Check source file presence and show current state.
+#  --------------------------------------------------------
+
+check:
+	@ echo
+	@ echo \
+   '*** This is $(PACK_NAME) version V$(PKG_VERS) on system $(SYSTEM)'
+	@ echo
+	@ nosource='';\
+          for f in $(SOURCE_FILES); do \
+             if test ! -f $$f; then \
+                nosource='1';\
+                break;\
+             else :; fi;\
+          done;\
+          if test -n "$$nosource"; then \
+             echo '    Source files are NOT present';\
+          else \
+             echo '    All essential source files are present';\
+          fi
+	@ echo
+#
+#  Display the current state.
+	@ if test -f .BUILT;\
+          then echo '    The package is currently:  built for system'\
+             `cat .BUILT`;\
+          else echo '    The package is currently:  not built';fi
+	@ if test -f .INSTALLED_$(SYSTEM);\
+          then echo '                               installed in'\
+             `cat .INSTALLED_$(SYSTEM)`;\
+          else echo '                               not installed';fi
+	@ if test -f .TESTED_$(SYSTEM);\
+          then echo '                               tested';\
+          else echo '                               not tested';fi
+	@ echo
+	@ if test -f .BUILT;\
+          then if test "$(SYSTEM)" != "`cat .BUILT`";\
+             then echo '***  WARNING  ***';\
+                echo \
+'    The package is built for a system other than the current one';\
+                echo ;\
+             else :;fi;\
+          else :;fi
+
+#  build: Build the system.
+#  -----------------------
+#
+#  Compile the source and build the required files in the source
+#  directory.
+
+#  The build target first checks that the package is not installed.  If
+#  not, it then causes the .BUILT target to be made which ensures that
+#  the package has been built.
+
+build:
+	@ if test -f .INSTALLED_$(SYSTEM); then \
+           echo;\
+           echo \
+   '*** The $(PACK_NAME) package is currently installed -- please use the';\
+           echo '    "deinstall" target before re-building it';\
+           echo;\
+        elif $(MAKE) .BUILT; then \
+           echo;\
+           echo '*** The $(PACK_NAME) package has been built';\
+           echo;\
+        else \
+           echo;\
+           echo '*** "make" failed building the $(PACK_NAME) package';\
+           echo;\
+           exit 1;\
+        fi
+
+#  The .BUILT target records the time of the most recent build which
+#  modified any of the built files.  It depends on all the built files
+#  being up to date (which causes them to be built).
+
+.BUILT: $(BUILT_FILES)
+#
+#  Enter information about the current machine and build environment
+#  into the date stamp file.
+	@ echo 'Package : $(PACK_NAME)'        >$(DATE_STAMP)
+	@ echo 'Version : V$(PKG_VERS)'       >>$(DATE_STAMP)
+	@ echo 'Library : V$(LIB_VERS)'       >>$(DATE_STAMP)
+	@ echo ''                             >>$(DATE_STAMP)
+	@ echo "Built by: $(USER) on node `uname -n`" \
+                                              >>$(DATE_STAMP)
+	@ echo "On      : `date`"             >>$(DATE_STAMP)
+	@ echo ''                             >>$(DATE_STAMP)
+	@ echo \
+  "Machine : `uname -m` running `uname -s` `uname -v` (release `uname -r`)" \
+                                              >>$(DATE_STAMP)
+	@ echo ''                             >>$(DATE_STAMP)
+	@ echo 'make macros:'                 >>$(DATE_STAMP)
+	@ echo ''                             >>$(DATE_STAMP)
+	@ echo '   SYSTEM  : $(SYSTEM)'       >>$(DATE_STAMP)
+	@ echo ''                             >>$(DATE_STAMP)
+	@ echo '   EXPORT  : $(EXPORT)'       >>$(DATE_STAMP)
+	@ echo '   INSTALL : $(INSTALL)'      >>$(DATE_STAMP)
+	@ echo '   STARLINK: $(STARLINK)'     >>$(DATE_STAMP)
+	@ echo ''                             >>$(DATE_STAMP)
+	@ echo '   AR_IN   : $(AR_IN)'        >>$(DATE_STAMP)
+	@ echo '   BLD_SHR : $(BLD_SHR)'      >>$(DATE_STAMP)
+	@ echo '   CC      : $(CC)'           >>$(DATE_STAMP)
+	@ echo '   CFLAGS  : $(CFLAGS)'       >>$(DATE_STAMP)
+	@ echo '   FC      : $(FC)'           >>$(DATE_STAMP)
+	@ echo '   FFLAGS  : $(FFLAGS)'       >>$(DATE_STAMP)
+	@ echo '   LINK    : $(LINK)'         >>$(DATE_STAMP)
+	@ echo '   RANLIB  : $(RANLIB)'       >>$(DATE_STAMP)
+	@ echo '   SHARE   : $(SHARE)'        >>$(DATE_STAMP)
+	@ echo '   SOURCE_VARIANT: $(SOURCE_VARIANT)' \
+                                              >>$(DATE_STAMP)
+	@ echo '   TAR_IN  : $(TAR_IN)'       >>$(DATE_STAMP)
+	@ echo '   TAR_OUT : $(TAR_OUT)'      >>$(DATE_STAMP)
+	@ echo ''                             >>$(DATE_STAMP)
+#
+#  Record completion of the build.
+	@ echo '$(SYSTEM)' > .BUILT
+
+#  install: Install the package for use.
+#  ------------------------------------
+#
+#  Copy the built files to their installation directories, from where
+#  they may be accessed.
+
+#  The install target first checks if any part of the package is
+#  already installed.  If not, it checks that the system is built for this
+#  SYSTEM and, if it is, causes the .INSTALLED_$(SYSTEM) target to be made
+#  which performs the installation.
+
+install:
+	@ if test -f .INSTALLED_$(SYSTEM); then \
+           echo;\
+           echo \
+   '*** The $(PACK_NAME) package has already been installed -- please use the';\
+           echo \
+   '    "deinstall" target first if you wish to reinstall it';\
+           echo;\
+        elif test -f .BUILT; then \
+           if test "`cat .BUILT`" = "$(SYSTEM)"; then \
+              if $(MAKE) .INSTALLED_$(SYSTEM); then \
+                 echo;\
+                 echo \
+   '*** The $(PACK_NAME) package has been installed in directory $(INSTALL)';\
+                 echo;\
+              else \
+                 echo;\
+                 echo \
+   '*** "make" failed installing the $(PACK_NAME) package in directory $(INSTALL)';\
+                 echo;\
+                 exit 1;\
+              fi;\
+           else \
+              echo;\
+              echo \
+   "*** The $(PACK_NAME) package is built for system `cat .BUILT` -"\
+   'so cannot be installed on system $(SYSTEM)';\
+              echo;\
+              exit 1;\
+           fi;\
+        else \
+           echo;\
+           echo \
+   '*** The $(PACK_NAME) package is not built, so cannot be installed';\
+           echo;\
+           exit 1;\
+        fi
+
+#  The .INSTALLED_$(SYSTEM) target copies each file from the source
+#  directory using "cp -p" to preserve its date, and replaces each
+#  original file by a link to the installed copy.
+
+.INSTALLED_$(SYSTEM): $(INSTALL_DIRS)
+#
+#  Create .INSTALLED_$(SYSTEM), containing $INSTALL, to record that the
+#  package is installed (at least in part).
+	@ echo $(INSTALL) > .INSTALLED_$(SYSTEM)
+#
+#  Install the public scripts, giving them world execute permission.
+	for f in $(PUBLIC_SCRIPTS) ""; do \
+           if test -n "$$f"; then \
+              cp -p $$f $(INSTALL_BIN);\
+              chmod 755 $(INSTALL_BIN)/$$f;\
+              rm -f $$f;\
+              $(LINK) $(INSTALL_BIN)/$$f $$f;\
+           else :; fi;\
+        done
+#
+#  Install the public include files, giving them world read permission.
+	for f in $(PUBLIC_INCLUDES) ""; do \
+           if test -n "$$f"; then \
+              cp -p $$f $(INSTALL_INC);\
+              chmod 644 $(INSTALL_INC)/$$f;\
+              rm -f $$f;\
+              $(LINK) $(INSTALL_INC)/$$f $$f;\
+           else :; fi;\
+        done
+#
+#  Install the object libraries, giving them world read permission.
+	for f in $(OBJECT_LIBRARIES) ""; do \
+           if test -n "$$f"; then \
+              cp -p $$f $(INSTALL_LIB);\
+              chmod 644 $(INSTALL_LIB)/$$f;\
+              rm -f $$f;\
+              $(LINK) $(INSTALL_LIB)/$$f $$f;\
+           else :; fi;\
+        done
+#
+#  Install shareable libraries, giving them read permission (unless
+#  they are dummy, zero size, files in which case they are left in
+#  place).
+	for f in $(SHAREABLE_LIBRARIES) ""; do \
+           if test -n "$$f" -a -s "$$f"; then \
+              cp -p $$f $(INSTALL_SHARE);\
+              chmod 755 $(INSTALL_SHARE)/$$f;\
+              rm -f $$f;\
+              $(LINK) $(INSTALL_SHARE)/$$f $$f;\
+           else :; fi;\
+        done
+#
+#  Install the package startup script.  The name of the directory
+#  containing the installed public include files must be edited into
+#  this, and execute permission given.  Leave the original file in
+#  place.
+	if test -n "$(STARTUP_SCRIPT)"; then \
+           sed -e 's#LINK#$(LINK)#' -e s#INSTALL_INC#$(INSTALL_INC)# \
+              $(STARTUP_SCRIPT) >$(INSTALL_BIN)/$(STARTUP_SCRIPT) ;\
+           chmod 755 $(INSTALL_BIN)/$(STARTUP_SCRIPT) ;\
+        else :; fi
+#
+#  Install the Latex documentation, giving it world read permission,
+#  leaving the source copy in place.
+	for f in $(LATEX_DOCS) ""; do \
+           if test -n "$$f"; then \
+              cp -p $$f $(INSTALL_DOCS);\
+              chmod 644 $(INSTALL_DOCS)/$$f;\
+           else :; fi;\
+        done
+#
+#  Install any hypertext documents, giving world read access to all the files
+#  they contain and linking with other documents.
+	if test -n "$(HYPERTEXT_DOCS)"; then \
+           pwd=`pwd`;\
+           (cd $(INSTALL_DOCS);\
+           for f in $(HYPERTEXT_DOCS) ""; do \
+              if test -n "$$f"; then\
+                 $(TAR_OUT) $$pwd/$${f}_tar;\
+                 chmod 755 `find $$f -type d -print`;\
+                 chmod 644 `find $$f ! -type d -print`;\
+                 touch $$f;\
+              else :; fi;\
+           done);\
+           HTX_PATH='$(STAR_DOCS):$(STAR_HELP)';\
+           export HTX_PATH;\
+           $(HLINK) $(INSTALL_DOCS) $(INSTALL_HELP);\
+        fi;
+#
+#  Install the date stamp file and make it read-only to prevent its
+#  date being changed.
+	cp -p $(DATE_STAMP) $(INSTALL_DATES)
+	chmod 444 $(INSTALL_DATES)/$(DATE_STAMP)
+	chmod 644 $(DATE_STAMP)
+	rm $(DATE_STAMP)
+	$(LINK) $(INSTALL_DATES)/$(DATE_STAMP) $(DATE_STAMP)
+
+#  deinstall: Deinstall the package.
+#  --------------------------------
+#
+#  Reverse the action of the install target, removing the installed
+#  files and returning them to the source directory.
+
+#  The deinstall target checks that the package is installed in the INSTALL
+#  directory.  If so, it causes the do_deinstall target to be made which
+#  performs the deinstallation.
+
+deinstall:
+	@ if test ! -f .INSTALLED_$(SYSTEM); then \
+           echo;\
+           echo '*** The $(PACK_NAME) package is not currently installed';\
+           echo;\
+        else \
+           if test "`cat .INSTALLED_$(SYSTEM)`" = "$(INSTALL)"; then \
+              if $(MAKE) do_deinstall; then \
+                 echo;\
+                 echo \
+'*** The $(PACK_NAME) package has been deinstalled from directory $(INSTALL)';\
+                 echo;\
+              else \
+                 echo;\
+                 echo \
+'*** "make" failed deinstalling the $(PACK_NAME) package from directory $(INSTALL)';\
+                 echo;\
+                 exit 1;\
+              fi;\
+           else \
+              echo;\
+              echo \
+"*** The $(PACK_NAME) package is installed in `cat .INSTALLED_$(SYSTEM)`";\
+              echo \
+"*** and not in your INSTALL directory ($(INSTALL))";\
+              echo '*** Not deinstalled';\
+              exit 1;\
+           fi;\
+        fi
+
+#  The do_deinstall target (which should never exist) checks that an
+#  installed version of each file exists (in case an install failed
+#  part of the way through) and returns it to the source directory,
+#  using "cp -p" to preserve file dates.  Links are removed from the
+#  source directory before copying.
+
+do_deinstall:
+#
+#  Note the package will need to be tested again.
+	@- if test -f .TESTED_$(SYSTEM); then rm -f .TESTED_$(SYSTEM); else :; fi
+#
+#  Deinstall the public script files, if installed versions exist.
+	- for f in $(PUBLIC_SCRIPTS) ""; do \
+           if test -n "$$f" -a -f $(INSTALL_BIN)/$$f; then \
+              rm -f $$f;\
+              cp -p $(INSTALL_BIN)/$$f .;\
+              rm -f $(INSTALL_BIN)/$$f;\
+           else :; fi;\
+        done
+#
+#  Deinstall the public include files, if installed versions exist.
+	- for f in $(PUBLIC_INCLUDES) ""; do \
+           if test -n "$$f" -a -f $(INSTALL_INC)/$$f; then \
+              rm -f $$f;\
+              cp -p $(INSTALL_INC)/$$f .;\
+              rm -f $(INSTALL_INC)/$$f;\
+           else :; fi;\
+        done
+#
+#  Deinstall the object libraries, if installed versions exist.
+	- for f in $(OBJECT_LIBRARIES) ""; do \
+           if test -n "$$f" -a -f $(INSTALL_LIB)/$$f; then \
+              rm -f $$f;\
+              cp -p $(INSTALL_LIB)/$$f .;\
+              rm -f $(INSTALL_LIB)/$$f;\
+           else :; fi;\
+        done
+#
+#  Deinstall the shareable libraries, if installed versions exist.
+	- for f in $(SHAREABLE_LIBRARIES) ""; do \
+           if test -n "$$f" -a -f $(INSTALL_SHARE)/$$f; then \
+              rm -f $$f;\
+              cp -p $(INSTALL_SHARE)/$$f .;\
+              rm -f $(INSTALL_SHARE)/$$f;\
+           else :; fi;\
+        done
+#
+#  Deinstall the package startup file.  Since it will have been edited
+#  during installation, we remove the installed copy, if present, and
+#  then ensure that the original exists.
+	- if test -n "$(STARTUP_SCRIPT)"; then \
+           if test -f $(INSTALL_BIN)/$(STARTUP_SCRIPT); then\
+              rm -f $(INSTALL_BIN)/$(STARTUP_SCRIPT);\
+           else :; fi ;\
+           $(MAKE) $(STARTUP_SCRIPT);\
+        else :; fi
+#
+#  Deinstall the Latex documentation, if installed versions exist.
+	- for f in $(LATEX_DOCS) ""; do \
+           if test -n "$$f" -a -f $(INSTALL_DOCS)/$$f; then \
+              rm -f $(INSTALL_DOCS)/$$f;\
+           else :; fi;\
+        done
+#
+#  Deinstall any hypertext documents,  and relink the hypertext if required.
+	- if test -n "$(HYPERTEXT_DOCS)"; then \
+           for f in $(HYPERTEXT_DOCS) ""; do \
+              if test -n "$$f" -a -d $(INSTALL_DOCS)/$$f; then \
+                 rm -f -r $(INSTALL_DOCS)/$$f;\
+              else :; fi;\
+           done;\
+           HTX_PATH='$(STAR_DOCS):$(STAR_HELP)';\
+           export HTX_PATH;\
+           $(HLINK) $(INSTALL_DOCS) $(INSTALL_HELP);\
+        fi
+#
+#  Deinstall the date stamp file after setting its protection so it may
+#  be removed.
+	- if test -f $(INSTALL_DATES)/$(DATE_STAMP); then \
+           chmod 644 $(DATE_STAMP); rm $(DATE_STAMP);\
+           chmod 644 $(INSTALL_DATES)/$(DATE_STAMP);\
+           cp -p $(INSTALL_DATES)/$(DATE_STAMP) .;\
+           rm $(INSTALL_DATES)/$(DATE_STAMP);\
+        else :; fi
+#
+#  Note the system is no longer installed.  Re-create .BUILT, since we have
+#  returned the built files to the source directory but an unbuild may have
+#  been done.
+	@- rm -f .INSTALLED_$(SYSTEM) 1>/dev/null 2>/dev/null
+	@ echo '$(SYSTEM)' > .BUILT
+
+#  test: Perform an installation test.
+#  ----------------------------------
+#
+#  Check that installed files are in their correct places and that a
+#  simple test program will run correctly.
+
+#  The test target checks that the package is currently installed.  If
+#  so, it causes the do_test target to be made, which performs the
+#  installation test.
+
+test:
+	@ if test ! -f .INSTALLED_$(SYSTEM); then \
+           echo;\
+           echo '*** The $(PACK_NAME) package is not currently installed';\
+           echo;\
+        elif $(MAKE) do_test; then\
+           echo;\
+           echo \
+           '*** Installation test for the $(PACK_NAME) package has been run';\
+           echo;\
+        else \
+           echo;\
+           echo \
+           '*** Installation test for the $(PACK_NAME) package failed';\
+           echo;\
+           exit 1;\
+        fi
+
+#  The do_test target performs the installation test. A file named do_test
+#  should never exist.
+
+do_test: $(EXTERNAL_INCLUDES)
+#
+#  Note the test has not yet succeeded.
+	@- if test -f .TESTED_$(SYSTEM); then rm -f .TESTED_$(SYSTEM); else :; fi
+#
+#  Extract the test program from the archive and set up new links for
+#  the include files which point at the installed versions.  Remove any
+#  pre-existing links first if necessary.
+	$(TAR_OUT) $(PKG_NAME)_source.tar $(PKG_NAME)_test.f
+	@ if test -f $(PKG_NAME)_test.f; then :;\
+           else echo $(PKG_NAME)_test.f is not in the tar file; exit 1; fi
+#
+#  Build the test program, ensuring that the installed version of the library
+#  and link files are used.
+	$(FC) $(FFLAGS) $(PKG_NAME)_test.f -L$(INSTALL_LIB) -L$(STAR_LIB) \
+              `$(INSTALL_BIN)/$(PKG_NAME)_link` -o $(PKG_NAME)_test
+#
+#  Remove the test program source and the include file links used to
+#  build it.
+	rm -f $(PKG_NAME)_test.f $(EXTERNAL_INCLUDES)
+#
+#  Execute the test program and remove the binary file when done.  Note
+#  that any external mechanism for locating shareable libraries (e.g. a
+#  search path) must previously have been set up.
+	./$(PKG_NAME)_test
+	rm -f $(PKG_NAME)_test
+#
+#  Note the test has been run.
+	@ touch .TESTED_$(SYSTEM)
+
+#  export: Export the installed system.
+#  -----------------------------------
+#
+#  Export the source plus all the built files to a new user.
+
+#  The export target depends on the resulting compressed tar file being
+#  up to date.
+
+export: $(EXPORT)/$(PKG_NAME)_$(SYSTEM).tar.Z
+	@ echo
+	@ echo \
+'*** Export copy of the built $(PACK_NAME) package is in the compressed'
+	@ echo \
+'    tar file $(EXPORT)/$(PKG_NAME)_$(SYSTEM).tar.Z'
+	@ echo
+
+#  The compressed tar file is up to date if it exists and is more
+#  recent than all the source files and the date stamp file (which
+#  records the time of the last build which modified any files).
+
+$(EXPORT)/$(PKG_NAME)_$(SYSTEM).tar.Z: $(SOURCE_FILES) $(DATE_STAMP)
+#
+#  Issue a warning if the package has not been tested.
+	@ if test ! -f .TESTED_$(SYSTEM); then \
+           echo;\
+           echo '*** Warning: the $(PACK_NAME) package has not been tested';\
+           echo;\
+        else :; fi
+#
+#  Remove any pre-existing tar files before creating new ones.
+	if test -f $(EXPORT)/$(PKG_NAME)_$(SYSTEM).tar.Z; then \
+           rm -f $(EXPORT)/$(PKG_NAME)_$(SYSTEM).tar.Z; else :; fi
+	$(TAR_IN) - $(SOURCE_FILES) $(BUILT_FILES) $(DATE_STAMP) .BUILT \
+           | compress -v > $(EXPORT)/$(PKG_NAME)_$(SYSTEM).tar.Z
+
+#  export_run: Export the built system (without source).
+#  -----------------------------------------------------
+#
+#  Export all the built files to a new user.
+
+#  The export_run target depends on the resulting compressed tar file being
+#  up to date.
+
+export_run: $(EXPORT)/$(PKG_NAME)_$(SYSTEM)_run.tar.Z
+	@ echo
+	@ echo \
+'*** Export copy of the "runtime" $(PACK_NAME) package is in the compressed'
+	@ echo \
+'    tar file $(EXPORT)/$(PKG_NAME)_$(SYSTEM)_run.tar.Z'
+	@ echo
+
+#  The compressed tar file is up to date if it exists and is more
+#  recent than all the source files and the date stamp file (which
+#  records the time of the last build which modified any files).
+
+$(EXPORT)/$(PKG_NAME)_$(SYSTEM)_run.tar.Z: $(SOURCE_FILES) $(DATE_STAMP)
+#
+#  Issue a warning if the package has not been tested.
+	@ if test ! -f .TESTED_$(SYSTEM); then \
+           echo;\
+           echo '*** Warning: the $(PACK_NAME) package has not been tested';\
+           echo;\
+        else :; fi
+#
+#  Remove any pre-existing tar files before creating new ones.
+	if test -f $(EXPORT)/$(PKG_NAME)_$(SYSTEM)_run.tar.Z; then \
+           rm -f $(EXPORT)/$(PKG_NAME)_$(SYSTEM)_run.tar.Z; else :; fi
+	$(TAR_IN) - mk makefile $(DOCUMENTATION) $(BUILT_FILES) \
+           $(DATE_STAMP) .BUILT \
+           | compress -v > $(EXPORT)/$(PKG_NAME)_$(SYSTEM)_run.tar.Z
+
+#  export_source: Export the source.
+#  --------------------------------
+#
+#  Export the source files only to a new user.
+
+#  This target depends on the resulting compressed tar file being up to
+#  date.
+
+export_source: $(EXPORT)/$(PKG_NAME).tar.Z
+	@ echo
+	@ echo \
+'*** Export copy of the $(PACK_NAME) package source is in the compressed'
+	@ echo \
+'    tar file $(EXPORT)/$(PKG_NAME).tar.Z'
+	@ echo
+
+#  The compressed tar file is up to date if it exists and is more
+#  recent than all the source files.
+
+$(EXPORT)/$(PKG_NAME).tar.Z: $(SOURCE_FILES)
+#
+#  Remove any pre-existing tar files before creating new ones.
+	if test -f $(EXPORT)/$(PKG_NAME).tar.Z; then \
+           rm -f $(EXPORT)/$(PKG_NAME).tar.Z; else :; fi
+	$(TAR_IN) - $(SOURCE_FILES) \
+           | compress -v > $(EXPORT)/$(PKG_NAME).tar.Z
+
+#  clean: Clean up the source directory.
+#  ------------------------------------
+#
+#  Remove all intermediate files.  Do not remove built files.
+
+clean:
+	@- rm -f $(INCLUDE_LINKS) $(F_ROUTINES) \
+                 $(PLATFORM_F) $(BLOCK_DATA) 1>/dev/null 2>/dev/null
+	@- rm -f $(C_ROUTINES) $(OBJECT_FILES) 1>/dev/null 2>/dev/null
+	@ echo
+	@ echo '*** Intermediate files removed'
+	@ echo
+
+#  unbuild: Reverse the build process.
+#  ----------------------------------
+
+#  Remove all intermediate files and all built files, and note that the
+#  package is no longer built or tested.
+
+unbuild: clean
+	@- rm -f $(BUILT_FILES) $(DATE_STAMP) .BUILT 1>/dev/null 2>/dev/null
+	@ echo '*** Built files removed'
+	@ echo
+
+#-------------------------------------------------------------------------------
+
+#  Include file dependencies.
+#  =========================
+
+#  Object file dependencies on include files (or links to those include
+#  files).  These are normally generated automatically from the source
+#  files.
+
+#-------------------------------------------------------------------------------
+
+#  Private targets.
+
+#  Targets for manipulating the hypertext documentation (creating,
+#  generating tar files etc, cleaning etc).
+
+hypertext: sun67.tex sun67.aux
+	star2html -aux -m ptw@star.rl.ac.uk sun67.tex
+
+hypertext_tar:
+	$(TAR_IN) sun67.htx_tar sun67.htx/*
+
+hypertext_clean:
+	rm -rf sun67.htx
+#-------------------------------------------------------------------------------
+#
+#  End of makefile.
+#.
diff --git a/src/slalib/map.f b/src/slalib/map.f
new file mode 100644
index 0000000..6046774
--- /dev/null
+++ b/src/slalib/map.f
@@ -0,0 +1,75 @@
+      SUBROUTINE sla_MAP (RM, DM, PR, PD, PX, RV, EQ, DATE, RA, DA)
+*+
+*     - - - -
+*      M A P
+*     - - - -
+*
+*  Transform star RA,Dec from mean place to geocentric apparent
+*
+*  The reference frames and timescales used are post IAU 1976.
+*
+*  References:
+*     1984 Astronomical Almanac, pp B39-B41.
+*     (also Lederle & Schwan, Astron. Astrophys. 134,
+*      1-6, 1984)
+*
+*  Given:
+*     RM,DM    dp     mean RA,Dec (rad)
+*     PR,PD    dp     proper motions:  RA,Dec changes per Julian year
+*     PX       dp     parallax (arcsec)
+*     RV       dp     radial velocity (km/sec, +ve if receding)
+*     EQ       dp     epoch and equinox of star data (Julian)
+*     DATE     dp     TDB for apparent place (JD-2400000.5)
+*
+*  Returned:
+*     RA,DA    dp     apparent RA,Dec (rad)
+*
+*  Called:
+*     sla_MAPPA       star-independent parameters
+*     sla_MAPQK       quick mean to apparent
+*
+*  Notes:
+*
+*  1)  EQ is the Julian epoch specifying both the reference
+*      frame and the epoch of the position - usually 2000.
+*      For positions where the epoch and equinox are
+*      different, use the routine sla_PM to apply proper
+*      motion corrections before using this routine.
+*
+*  2)  The distinction between the required TDB and TT is
+*      always negligible.  Moreover, for all but the most
+*      critical applications UTC is adequate.
+*
+*  3)  The proper motions in RA are dRA/dt rather than
+*      cos(Dec)*dRA/dt.
+*
+*  4)  This routine may be wasteful for some applications
+*      because it recomputes the Earth position/velocity and
+*      the precession/nutation matrix each time, and because
+*      it allows for parallax and proper motion.  Where
+*      multiple transformations are to be carried out for one
+*      epoch, a faster method is to call the sla_MAPPA routine
+*      once and then either the sla_MAPQK routine (which includes
+*      parallax and proper motion) or sla_MAPQKZ (which assumes
+*      zero parallax and proper motion).
+*
+*  P.T.Wallace   Starlink   19 January 1993
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION RM,DM,PR,PD,PX,RV,EQ,DATE,RA,DA
+
+      DOUBLE PRECISION AMPRMS(21)
+
+
+
+*  Star-independent parameters
+      CALL sla_MAPPA(EQ,DATE,AMPRMS)
+
+*  Mean to apparent
+      CALL sla_MAPQK(RM,DM,PR,PD,PX,RV,AMPRMS,RA,DA)
+
+      END
diff --git a/src/slalib/mappa.f b/src/slalib/mappa.f
new file mode 100644
index 0000000..8dce865
--- /dev/null
+++ b/src/slalib/mappa.f
@@ -0,0 +1,107 @@
+      SUBROUTINE sla_MAPPA (EQ, DATE, AMPRMS)
+*+
+*     - - - - - -
+*      M A P P A
+*     - - - - - -
+*
+*  Compute star-independent parameters in preparation for
+*  conversions between mean place and geocentric apparent place.
+*
+*  The parameters produced by this routine are required in the
+*  parallax, light deflection, aberration, and precession/nutation
+*  parts of the mean/apparent transformations.
+*
+*  The reference frames and timescales used are post IAU 1976.
+*
+*  Given:
+*     EQ       d      epoch of mean equinox to be used (Julian)
+*     DATE     d      TDB (JD-2400000.5)
+*
+*  Returned:
+*     AMPRMS   d(21)  star-independent mean-to-apparent parameters:
+*
+*       (1)      time interval for proper motion (Julian years)
+*       (2-4)    barycentric position of the Earth (AU)
+*       (5-7)    heliocentric direction of the Earth (unit vector)
+*       (8)      (grav rad Sun)*2/(Sun-Earth distance)
+*       (9-11)   ABV: barycentric Earth velocity in units of c
+*       (12)     sqrt(1-v**2) where v=modulus(ABV)
+*       (13-21)  precession/nutation (3,3) matrix
+*
+*  References:
+*     1984 Astronomical Almanac, pp B39-B41.
+*     (also Lederle & Schwan, Astron. Astrophys. 134,
+*      1-6, 1984)
+*
+*  Notes:
+*
+*  1)  For DATE, the distinction between the required TDB and TT
+*      is always negligible.  Moreover, for all but the most
+*      critical applications UTC is adequate.
+*
+*  2)  The accuracy of the routines using the parameters AMPRMS is
+*      limited by the routine sla_EVP, used here to compute the
+*      Earth position and velocity by the methods of Stumpff.
+*      The maximum error in the resulting aberration corrections is
+*      about 0.3 milliarcsecond.
+*
+*  3)  The vectors AMPRMS(2-4) and AMPRMS(5-7) are referred to
+*      the mean equinox and equator of epoch EQ.
+*
+*  4)  The parameters AMPRMS produced by this routine are used by
+*      sla_MAPQK and sla_MAPQKZ.
+*
+*  Called:
+*     sla_EPJ         MDJ to Julian epoch
+*     sla_EVP         earth position & velocity
+*     sla_DVN         normalize vector
+*     sla_PRENUT      precession/nutation matrix
+*
+*  P.T.Wallace   Starlink   23 November 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION EQ,DATE,AMPRMS(21)
+
+*  Light time for 1 AU (sec)
+      DOUBLE PRECISION CR
+      PARAMETER (CR=499.004782D0)
+
+*  Gravitational radius of the sun x 2 (2*mu/c**2, AU)
+      DOUBLE PRECISION GR2
+      PARAMETER (GR2=2D0*9.87063D-9)
+
+      INTEGER I
+
+      DOUBLE PRECISION EBD(3),EHD(3),EH(3),E,VN(3),VM
+
+      DOUBLE PRECISION sla_EPJ
+
+
+
+*  Time interval for proper motion correction
+      AMPRMS(1) = sla_EPJ(DATE)-EQ
+
+*  Get Earth barycentric and heliocentric position and velocity
+      CALL sla_EVP(DATE,EQ,EBD,AMPRMS(2),EHD,EH)
+
+*  Heliocentric direction of earth (normalized) and modulus
+      CALL sla_DVN(EH,AMPRMS(5),E)
+
+*  Light deflection parameter
+      AMPRMS(8) = GR2/E
+
+*  Aberration parameters
+      DO I=1,3
+         AMPRMS(I+8) = EBD(I)*CR
+      END DO
+      CALL sla_DVN(AMPRMS(9),VN,VM)
+      AMPRMS(12) = SQRT(1D0-VM*VM)
+
+*  Precession/nutation matrix
+      CALL sla_PRENUT(EQ,DATE,AMPRMS(13))
+
+      END
diff --git a/src/slalib/mapqk.f b/src/slalib/mapqk.f
new file mode 100644
index 0000000..4cd0f95
--- /dev/null
+++ b/src/slalib/mapqk.f
@@ -0,0 +1,143 @@
+      SUBROUTINE sla_MAPQK (RM, DM, PR, PD, PX, RV, AMPRMS, RA, DA)
+*+
+*     - - - - - -
+*      M A P Q K
+*     - - - - - -
+*
+*  Quick mean to apparent place:  transform a star RA,Dec from
+*  mean place to geocentric apparent place, given the
+*  star-independent parameters.
+*
+*  Use of this routine is appropriate when efficiency is important
+*  and where many star positions, all referred to the same equator
+*  and equinox, are to be transformed for one epoch.  The
+*  star-independent parameters can be obtained by calling the
+*  sla_MAPPA routine.
+*
+*  If the parallax and proper motions are zero the sla_MAPQKZ
+*  routine can be used instead.
+*
+*  The reference frames and timescales used are post IAU 1976.
+*
+*  Given:
+*     RM,DM    d      mean RA,Dec (rad)
+*     PR,PD    d      proper motions:  RA,Dec changes per Julian year
+*     PX       d      parallax (arcsec)
+*     RV       d      radial velocity (km/sec, +ve if receding)
+*
+*     AMPRMS   d(21)  star-independent mean-to-apparent parameters:
+*
+*       (1)      time interval for proper motion (Julian years)
+*       (2-4)    barycentric position of the Earth (AU)
+*       (5-7)    heliocentric direction of the Earth (unit vector)
+*       (8)      (grav rad Sun)*2/(Sun-Earth distance)
+*       (9-11)   barycentric Earth velocity in units of c
+*       (12)     sqrt(1-v**2) where v=modulus(ABV)
+*       (13-21)  precession/nutation (3,3) matrix
+*
+*  Returned:
+*     RA,DA    d      apparent RA,Dec (rad)
+*
+*  References:
+*     1984 Astronomical Almanac, pp B39-B41.
+*     (also Lederle & Schwan, Astron. Astrophys. 134,
+*      1-6, 1984)
+*
+*  Notes:
+*
+*  1)  The vectors AMPRMS(2-4) and AMPRMS(5-7) are referred to
+*      the mean equinox and equator of epoch EQ.
+*
+*  2)  Strictly speaking, the routine is not valid for solar-system
+*      sources, though the error will usually be extremely small.
+*      However, to prevent gross errors in the case where the
+*      position of the Sun is specified, the gravitational
+*      deflection term is restrained within about 920 arcsec of the
+*      centre of the Sun's disc.  The term has a maximum value of
+*      about 1.85 arcsec at this radius, and decreases to zero as
+*      the centre of the disc is approached.
+*
+*  Called:
+*     sla_DCS2C       spherical to Cartesian
+*     sla_DVDV        dot product
+*     sla_DMXV        matrix x vector
+*     sla_DCC2S       Cartesian to spherical
+*     sla_DRANRM      normalize angle 0-2Pi
+*
+*  P.T.Wallace   Starlink   23 August 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION RM,DM,PR,PD,PX,RV,AMPRMS(21),RA,DA
+
+*  Arc seconds to radians
+      DOUBLE PRECISION AS2R
+      PARAMETER (AS2R=0.484813681109535994D-5)
+
+*  Km/s to AU/year
+      DOUBLE PRECISION VF
+      PARAMETER (VF=0.21094502D0)
+
+      INTEGER I
+
+      DOUBLE PRECISION PMT,GR2E,AB1,EB(3),EHN(3),ABV(3),
+     :                 Q(3),PXR,W,EM(3),P(3),PN(3),PDE,PDEP1,
+     :                 P1(3),P1DV,P1DVP1,P2(3),P3(3)
+
+      DOUBLE PRECISION sla_DVDV,sla_DRANRM
+
+
+
+*  Unpack scalar and vector parameters
+      PMT = AMPRMS(1)
+      GR2E = AMPRMS(8)
+      AB1 = AMPRMS(12)
+      DO I=1,3
+         EB(I) = AMPRMS(I+1)
+         EHN(I) = AMPRMS(I+4)
+         ABV(I) = AMPRMS(I+8)
+      END DO
+
+*  Spherical to x,y,z
+      CALL sla_DCS2C(RM,DM,Q)
+
+*  Space motion (radians per year)
+      PXR = PX*AS2R
+      W = VF*RV*PXR
+      EM(1) = -PR*Q(2)-PD*COS(RM)*SIN(DM)+W*Q(1)
+      EM(2) =  PR*Q(1)-PD*SIN(RM)*SIN(DM)+W*Q(2)
+      EM(3) =          PD*COS(DM)        +W*Q(3)
+
+*  Geocentric direction of star (normalized)
+      DO I=1,3
+         P(I) = Q(I)+PMT*EM(I)-PXR*EB(I)
+      END DO
+      CALL sla_DVN(P,PN,W)
+
+*  Light deflection (restrained within the Sun's disc)
+      PDE = sla_DVDV(PN,EHN)
+      PDEP1 = PDE+1D0
+      W = GR2E/MAX(PDEP1,1D-5)
+      DO I=1,3
+         P1(I) = PN(I)+W*(EHN(I)-PDE*PN(I))
+      END DO
+
+*  Aberration
+      P1DV = sla_DVDV(P1,ABV)
+      P1DVP1 = P1DV+1D0
+      W = 1D0+P1DV/(AB1+1D0)
+      DO I=1,3
+         P2(I) = (AB1*P1(I)+W*ABV(I))/P1DVP1
+      END DO
+
+*  Precession and nutation
+      CALL sla_DMXV(AMPRMS(13),P2,P3)
+
+*  Geocentric apparent RA,Dec
+      CALL sla_DCC2S(P3,RA,DA)
+      RA = sla_DRANRM(RA)
+
+      END
diff --git a/src/slalib/mapqkz.f b/src/slalib/mapqkz.f
new file mode 100644
index 0000000..2922874
--- /dev/null
+++ b/src/slalib/mapqkz.f
@@ -0,0 +1,113 @@
+      SUBROUTINE sla_MAPQKZ (RM, DM, AMPRMS, RA, DA)
+*+
+*     - - - - - - -
+*      M A P Q K Z
+*     - - - - - - -
+*
+*  Quick mean to apparent place:  transform a star RA,Dec from
+*  mean place to geocentric apparent place, given the
+*  star-independent parameters, and assuming zero parallax
+*  and proper motion.
+*
+*  Use of this routine is appropriate when efficiency is important
+*  and where many star positions, all with parallax and proper
+*  motion either zero or already allowed for, and all referred to
+*  the same equator and equinox, are to be transformed for one
+*  epoch.  The star-independent parameters can be obtained by
+*  calling the sla_MAPPA routine.
+*
+*  The corresponding routine for the case of non-zero parallax
+*  and proper motion is sla_MAPQK.
+*
+*  The reference frames and timescales used are post IAU 1976.
+*
+*  Given:
+*     RM,DM    d      mean RA,Dec (rad)
+*     AMPRMS   d(21)  star-independent mean-to-apparent parameters:
+*
+*       (1-4)    not used
+*       (5-7)    heliocentric direction of the Earth (unit vector)
+*       (8)      (grav rad Sun)*2/(Sun-Earth distance)
+*       (9-11)   ABV: barycentric Earth velocity in units of c
+*       (12)     sqrt(1-v**2) where v=modulus(ABV)
+*       (13-21)  precession/nutation (3,3) matrix
+*
+*  Returned:
+*     RA,DA    d      apparent RA,Dec (rad)
+*
+*  References:
+*     1984 Astronomical Almanac, pp B39-B41.
+*     (also Lederle & Schwan, Astron. Astrophys. 134,
+*      1-6, 1984)
+*
+*  Notes:
+*
+*  1)  The vectors AMPRMS(2-4) and AMPRMS(5-7) are referred to the
+*      mean equinox and equator of epoch EQ.
+*
+*  2)  Strictly speaking, the routine is not valid for solar-system
+*      sources, though the error will usually be extremely small.
+*      However, to prevent gross errors in the case where the
+*      position of the Sun is specified, the gravitational
+*      deflection term is restrained within about 920 arcsec of the
+*      centre of the Sun's disc.  The term has a maximum value of
+*      about 1.85 arcsec at this radius, and decreases to zero as
+*      the centre of the disc is approached.
+*
+*  Called:  sla_DCS2C, sla_DVDV, sla_DMXV, sla_DCC2S, sla_DRANRM
+*
+*  P.T.Wallace   Starlink   18 March 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION RM,DM,AMPRMS(21),RA,DA
+
+      INTEGER I
+
+      DOUBLE PRECISION GR2E,AB1,EHN(3),ABV(3),
+     :                 P(3),PDE,PDEP1,W,P1(3),P1DV,
+     :                 P1DVP1,P2(3),P3(3)
+
+      DOUBLE PRECISION sla_DVDV,sla_DRANRM
+
+
+
+
+*  Unpack scalar and vector parameters
+      GR2E = AMPRMS(8)
+      AB1 = AMPRMS(12)
+      DO I=1,3
+         EHN(I) = AMPRMS(I+4)
+         ABV(I) = AMPRMS(I+8)
+      END DO
+
+*  Spherical to x,y,z
+      CALL sla_DCS2C(RM,DM,P)
+
+*  Light deflection
+      PDE = sla_DVDV(P,EHN)
+      PDEP1 = PDE+1D0
+      W = GR2E/MAX(PDEP1,1D-5)
+      DO I=1,3
+         P1(I) = P(I)+W*(EHN(I)-PDE*P(I))
+      END DO
+
+*  Aberration
+      P1DV = sla_DVDV(P1,ABV)
+      P1DVP1 = P1DV+1D0
+      W = 1D0+P1DV/(AB1+1D0)
+      DO I=1,3
+         P2(I) = (AB1*P1(I)+W*ABV(I))/P1DVP1
+      END DO
+
+*  Precession and nutation
+      CALL sla_DMXV(AMPRMS(13),P2,P3)
+
+*  Geocentric apparent RA,Dec
+      CALL sla_DCC2S(P3,RA,DA)
+      RA = sla_DRANRM(RA)
+
+      END
diff --git a/src/slalib/mk b/src/slalib/mk
new file mode 100755
index 0000000..5a186c3
--- /dev/null
+++ b/src/slalib/mk
@@ -0,0 +1,437 @@
+
+#  This is a Bourne shell script.  In order to be POSIX-compliant, the
+#  first line must be blank.
+
+#+
+#  Name:
+#     mk
+#
+#  Version:
+#     Version for Mk V library makefile.
+#
+#  Purpose:
+#     Invoke make to build and install the SLALIB package.
+#
+#  Type of Module:
+#     Shell script.
+#
+#  Description:
+#     This script should normally be used to invoke the make utility
+#     to build and install the SLALIB package and to perform other
+#     housekeeping tasks.  It invokes the make utility after first
+#     defining appropriate environment variables and macros for the
+#     computer system in use.  This file also serves to document the
+#     systems on which SLALIB is implemented.
+#
+#  Invocation:
+#     The user of this script should normally first define the SYSTEM
+#     environment variable to identify the host computer system (see
+#     the "Supported Systems" section).  This script should then be used
+#     in the same way as the make utility would be used.  For instance,
+#     to build, install and test SLALIB, you might use the following
+#     commands:
+#
+#        ./mk build
+#        ./mk install
+#        ./mk test
+#        ./mk clean
+#
+#  Supported Systems:
+#     The following systems are currently supported and may be
+#     identified by defining the SYSTEM environment variable
+#     appropriately before invoking this script:
+#
+#        alpha_OSF1
+#           DEC Alpha machines running OSF1
+#
+#        ix86_Linux
+#           Intel PC machines running Linux
+#
+#        sun4_Solaris
+#           SUN Sparcstations running SunOS 5.x (Solaris)
+#
+#     In addition, the following systems have been supported at some
+#     time in the past.  This script contains the macro definitions
+#     needed for these systems, but it is not known whether {PACKAGE}
+#     will still build or run on these systems:
+#
+#        convex
+#           Convex running ConvexOS
+#
+#        mips
+#           DECstations running Ultrix
+#
+#        sun4
+#           SUN Sparcstations running SunOS 4.x
+#
+#     This script will exit without action if the SYSTEM environment
+#     variable is not defined.  A warning will be issued if it is
+#     defined but is not set to one of the values above.  In this case,
+#     the only environment variable that will be defined by this script
+#     is SOURCE_VARIANT, which is set to unknown (any that are
+#     pre-defined will be passed on to make unaltered). 
+#
+#  Targets:
+#     For details of what targets are provided, see the associated
+#     makefile.  The latter will normally provide a default target
+#     called "help", which outputs a message describing this script
+#     and lists the targets provided.
+#
+#  Notes on Porting:
+#     If your machine or system setup does not appear in this script,
+#     then it should be possible to build and install SLALIB by
+#     adding a new case to this script with appropriate definitions
+#     (probably based on one of the existing implementations).
+#
+#  make Macros:
+#     The following "global" make macros are used in the associated
+#     makefile and may be changed by means of appropriate environment
+#     variable definitions (in each case the default is shown in
+#     parentheses).  Note that these macros are provided to allow
+#     external control over the directories in which software is
+#     installed, etc., so they should not normally be re-defined within
+#     this script.
+#
+#        STARLINK (/star)
+#           Pathname of the root directory beneath which Starlink
+#           software is currently installed.  This indicates to
+#           SLALIB where to find other Starlink software (include
+#           files, libraries, etc.) which it uses.
+#
+#        INSTALL ($HOME)
+#           Pathname of the root directory beneath which SLALIB will
+#           be installed for use.  Your home directory will be used by
+#           default.  This macro is provided to allow SLALIB to be
+#           installed locally for personal use (e.g. during development
+#           or testing).  It should be set to the $STARLINK directory if
+#           you want to add SLALIB into an already installed set of
+#           Starlink software.  You should ensure that the appropriate
+#           sub-directories appear on any relevant search paths which
+#           your system uses for locating software (e.g. binaries and
+#           libraries).
+#
+#        EXPORT (.)
+#           Pathname of the directory into which compressed tar files
+#           will be written if the "export" or "export_source" make
+#           targets are used to produce an exportable copy of SLALIB
+#           or its source files.  The current working directory (i.e.
+#           the SLALIB source directory) will be used by default.
+#
+#     The following "local" make macros are used in the associated
+#     makefile and should normally be overridden by environment variable
+#     definitions within this script.  All the local macros that are
+#     used in building a package should overridden even when the value
+#     is the same as the default.  This documents which macros are used
+#     and ensures that the package will continue to build correctly even
+#     if the default values are changed.  Macros that are not used on a
+#     particular machine (e.g. BLD_SHR on DECstations) should not be
+#     overridden.  In each case the default is shown in parentheses.
+#
+#        AR_IN (ar -r)
+#           The command to use to insert an object (.o) file into an
+#           archive (.a) library.  On some systems the variation 'ar r'
+#           may be required instead.
+#
+#        BLD_SHR (:)
+#           Command to build a shareable library when given three
+#           arguments specifying (1) the name of the library file to be
+#           built (2) a list of the object files to be used in the
+#           library and (3) a list of any additional libraries against
+#           which to link.  By default, it is assumed that shareable
+#           libraries are not available, and the default acts as a null
+#           command.
+#
+#        CC (c89)
+#           The C compiler command to use.
+#
+#        CFLAGS (-O)
+#           The C compiler options to use.
+#
+#        C_ROUTINES ()
+#           Names of the C routines needed to build the library.  Some
+#           systems (ix86_Linux) require extra C routines to provide
+#           missing system functions.
+#
+#        FC (fort77)
+#           The Fortran compiler command to use.  SLALIB requires a Fortran
+#           77 compiler that supports the common "permitted" Starlink
+#           extensions, as documented in Starlink General Paper SGP/16.
+#           (These include only the most common extensions, such as
+#           long names, end of line comments, include files, etc.)
+#
+#        FFLAGS (-O)
+#           The Fortran compiler options to be used.
+#
+#        HLINK (:)
+#           The command required to perform the linking of the package
+#           hypertext documentation into a cohesive whole with the rest
+#           (if any) Starlink documentation at the installation site, and
+#           with the Hypertext document server at RAL.  This service is not
+#           available on Sparc SunOS4, Dec MIPS Ultrix or Convex.  This
+#           macro is not a standard Starlink macro.
+#
+#        LINK (ln)
+#           The command required to establish a link to a file.  The
+#           default assumes POSIX.2 behavior, which only provides a
+#           "hard" link operating within a single file system.  If the
+#           host operating system allows "symbolic" links, then this
+#           macro might be re-defined as 'ln -s'.  Alternatively, if the
+#           use of multiple file systems is essential but not supported
+#           by any form of link, then a copy command could be
+#           substituted (e.g. 'cp -p'), at some cost in file space.
+#
+#        SOURCE_VARIANT ($SYSTEM)
+#           The name used to distinguish between platform-specific
+#           files.  Using the default ($SYSTEM) implies that multiple
+#           copies of the same source may exist under different names.
+#           For example, the files sub1.f_sun4 and sun1.f_sun4_Solaris
+#           may contain identical source code.  If this is to be
+#           avoided (to save space), edit this script to set
+#           SOURCE_VARIANT to a suitable string - for example setting it
+#           to "sun" would allow one copy of the source called
+#           sub1.f_sun to be used. To do this, add to each of the
+#           per-system sections a statement of the form:
+#
+#              SOURCE_VARIANT='string'
+#
+#        RANLIB (:)
+#           The command required to "randomise" an object library.  By
+#           default, this operation is not performed (the default acts
+#           as a null command).  On systems which require it, this
+#           should typically be set to 'ranlib'.
+#
+#        SHARE (.so)
+#           The file type suffix to be applied to produce the name of a
+#           shareable library file.  By default, the ".so" suffix is
+#           applied without a library version number.  For systems which
+#           support version numbers on shareable libraries, the macro
+#           LIB_VERS is defined within the associated makefile and may
+#           be used as part of a definition such as '.so.$(LIB_VERS)'.
+#
+#        TAR_IN (pax -w -v -x ustar -f)
+#           Command to use to insert a file into a .tar archive file.
+#           The default uses the POSIX.2 pax command, which is not
+#           available on traditional UNIX systems.  These typically use
+#           a tar command such as 'tar -cvhf' instead (if symbolic
+#           links are supported, then an option to follow these must be
+#           included in this command).
+#
+#        TAR_OUT (pax -r -f)
+#           Command to use to extract a file from a .tar archive file.
+#           The default uses the POSIX.2 pax command, which is not
+#           available on traditional UNIX systems.  These typically use
+#           a tar command such as 'tar -xf' instead.
+#
+#  Implementation Deficiencies:
+#     -  The implementation of shareable libraries on the alpha_OSF1
+#        system is still preliminary.
+#
+#  Copyright:
+#     Copyright (C) 1995 Rutherford Appleton Laboratory
+#
+#  Authors:
+#     RFWS: R.F.Warren-Smith (Starlink, RAL)
+#     PMA: P.M.Allan (Starlink, RAL)
+#     PTW: P.T.Wallace (Starlink, RAL)
+#     AJC: A.J.Chipperfield (Starlink, RAL)
+#     BLY: M.J.Bly (Starlink, RAL)
+#     BKM: B.K.McIlwrath (Starlink, RAL)
+#     {enter_new_authors_here}
+#
+#  History:
+#     26-NOV-1993 (RFWS/PMA):
+#        Starlink template.
+#     26-NOV-1993 (PTW):
+#        Version for SLALIB.
+#     28-JUN-1993 (PTW):
+#        Convex added.
+#     06-JUN-1995 (BLY):
+#        Updated to Mk IVa standard.
+#     04-MAR-1996 (BLY):
+#        Updated to Mk V specification.
+#        Added HLINK macro and definitions.
+#     24-APR-1996 (BLY):
+#        Integrated Linux support from BKM version.
+#     22-JAN-1998 (BLY):
+#        Removed rtl_sleep.c from C_ROUTINES for Linux case.
+#     {enter_further_changes_here}
+#
+#  Bugs:
+#     {note_any_bugs_here}
+#
+#-
+
+#  Export "local" definitions to the environment for use by make.
+      export AR_IN
+      export BLD_SHR
+      export CC
+      export CFLAGS
+      export C_ROUTINES
+      export FC
+      export FFLAGS
+      export HLINK
+      export LINK
+      export SOURCE_VARIANT
+      export RANLIB
+      export SHARE
+      export TAR_IN
+      export TAR_OUT
+
+#  Check that the SYSTEM environment variable is defined.
+      if test "$SYSTEM" = ""; then
+         echo "mk: Please define the environment variable SYSTEM to identify"
+         echo "    your computer system (the prologue in the mk script file"
+         echo "    contains more information if you require it)."
+
+#  If OK, test for each recognised system.
+      else
+         case "$SYSTEM" in
+
+#  DEC Alpha:
+#  =========
+#  DEC Alpha machines running OSF1.
+#  -------------------------------
+            alpha_OSF1)
+               AR_IN='ar -r'
+#               BLD_SHR=\
+#'f() ld -shared -update_registry $(INSTALL)/share/so_locations -o $$1 $$2 $$3 \
+#-lfor -lFutil -lUfor -lm -lots -lc; f'
+               CC='cc'
+               CFLAGS='-I$(STAR_INC) -O -std1'
+               FC='f77'
+               FFLAGS='-O'
+               HLINK='$(STAR_BIN)/hlink'
+               LINK='ln -s'
+               RANLIB='ranlib'
+#               SHARE='.so'
+               TAR_IN='tar -cvhf'
+               TAR_OUT='tar -xf'
+               echo "mk: Environment variables defined for $SYSTEM system"
+               ;;
+
+#  DECstations:
+#  ===========
+#  DECstations running Ultrix.
+#  --------------------------
+            mips)
+               AR_IN='ar -r'
+               CC='c89'
+               CFLAGS='-I$(STAR_INC) -O'
+               FC='f77'
+               FFLAGS='-O'
+               LINK='ln -s'
+               RANLIB='ranlib'
+               TAR_IN='tar -cvhf'
+               TAR_OUT='tar -xf'
+               echo "mk: Environment variables defined for $SYSTEM system"
+               ;;
+
+#  SUN4 systems:
+#  ============
+#  SUN Sparcstations running SunOS 4.x.
+#  -----------------------------------
+            sun4)
+               AR_IN='ar r'
+               BLD_SHR='f() ld -assert pure-text -o $$1 $$2; f'
+               CC='gcc'
+               CFLAGS='-I$(STAR_INC) -O -fPIC'
+               FC='f77'
+               FFLAGS='-O -PIC'
+               LINK='ln -s'
+               RANLIB='ranlib'
+               SHARE='.so.$(LIB_VERS)'
+               TAR_IN='tar -cvhf'
+               TAR_OUT='tar -xf'
+               echo "mk: Environment variables defined for $SYSTEM system"
+               ;;
+
+#  SUN Sparcstations running SunOS 5.x (Solaris).
+#  ---------------------------------------------
+            sun4_Solaris)
+               AR_IN='ar -r'
+               BLD_SHR='f() ld -G -z text -o $$1 $$2; f'
+               CC='cc'
+               CFLAGS='-I$(STAR_INC) -O -K PIC'
+               FC='f77'
+               FFLAGS='-O -PIC'
+               HLINK='$(STAR_BIN)/hlink'
+               LINK='ln -s'
+               SHARE='.so'
+               TAR_IN='tar -cvhf'
+               TAR_OUT='tar -xf'
+               echo "mk: Environment variables defined for $SYSTEM system"
+               ;;
+
+#  PC systems:
+#  ==========
+#  Intel PC running Linux.
+#  ----------------------
+            ix86_Linux)
+               AR_IN='ar r'
+               CC='gcc'
+               CFLAGS='-O'
+               C_ROUTINES='rtl_random.c'
+               FC='gfortran'
+               FFLAGS='-fno-second-underscore -O'
+               HLINK='$(STAR_BIN)/hlink'
+               LINK='ln -s'
+               RANLIB='ranlib'
+               TAR_IN='tar -cvhf'
+               TAR_OUT='tar -xf'
+               echo "mk: Environment variables defined for $SYSTEM system"
+               ;;
+
+#  Intel PC running Linux on 64 architecture.
+#  -----------------------------------------
+            x86_64)
+               AR_IN='ar r'
+               CC='gcc'
+               CFLAGS='-O -fPIC'
+               C_ROUTINES='rtl_random.c'
+               FC='gfortran'
+               FFLAGS='-fno-second-underscore -O -fPIC'
+               HLINK='$(STAR_BIN)/hlink'
+               LINK='ln -s'
+               RANLIB='ranlib'
+               TAR_IN='tar -cvhf'
+               TAR_OUT='tar -xf'
+               echo "mk: Environment variables defined for $SYSTEM system"
+               ;;
+
+#  Convex running ConvexOS.
+#  ------------------------
+            convex)
+               AR_IN='ar r'
+               FC='fc'
+               FFLAGS='-O3'
+               CC='gcc'
+               CFLAGS='-I$(STAR_INC) -O -fPIC'
+               LINK='ln -s'
+               RANLIB='ranlib'
+               TAR_IN='tar -cvhf'
+               TAR_OUT='tar -xf'
+               echo "mk: Environment variables defined for $SYSTEM system"
+               ;;
+
+#  IMPORTANT NOTE - Because Convex make doesn't support the -e
+#  qualifier (as stipulated by the POSIX standard) it will be
+#  necessary to use another version of make, for example the
+#  GNU one.  This can be accomplished either by editing this script,
+#  or by setting up a link.
+
+#  Issue a warning if SYSTEM is not recognised.
+            *)
+               SOURCE_VARIANT='unknown'
+               echo "mk: WARNING: value of SYSTEM = $SYSTEM not recognised..."
+               echo "             ...assuming default system characteristics"
+               echo '             ...setting SOURCE_VARIANT to "unknown"'
+               ;;
+         esac
+
+#  Invoke make with the appropriate environment variables set to override
+#  default macros defined in the makefile.
+         echo make -e $*
+         make -e $*
+      fi
+
+#  End of script.
diff --git a/src/slalib/mk.sv b/src/slalib/mk.sv
new file mode 100755
index 0000000..5a186c3
--- /dev/null
+++ b/src/slalib/mk.sv
@@ -0,0 +1,437 @@
+
+#  This is a Bourne shell script.  In order to be POSIX-compliant, the
+#  first line must be blank.
+
+#+
+#  Name:
+#     mk
+#
+#  Version:
+#     Version for Mk V library makefile.
+#
+#  Purpose:
+#     Invoke make to build and install the SLALIB package.
+#
+#  Type of Module:
+#     Shell script.
+#
+#  Description:
+#     This script should normally be used to invoke the make utility
+#     to build and install the SLALIB package and to perform other
+#     housekeeping tasks.  It invokes the make utility after first
+#     defining appropriate environment variables and macros for the
+#     computer system in use.  This file also serves to document the
+#     systems on which SLALIB is implemented.
+#
+#  Invocation:
+#     The user of this script should normally first define the SYSTEM
+#     environment variable to identify the host computer system (see
+#     the "Supported Systems" section).  This script should then be used
+#     in the same way as the make utility would be used.  For instance,
+#     to build, install and test SLALIB, you might use the following
+#     commands:
+#
+#        ./mk build
+#        ./mk install
+#        ./mk test
+#        ./mk clean
+#
+#  Supported Systems:
+#     The following systems are currently supported and may be
+#     identified by defining the SYSTEM environment variable
+#     appropriately before invoking this script:
+#
+#        alpha_OSF1
+#           DEC Alpha machines running OSF1
+#
+#        ix86_Linux
+#           Intel PC machines running Linux
+#
+#        sun4_Solaris
+#           SUN Sparcstations running SunOS 5.x (Solaris)
+#
+#     In addition, the following systems have been supported at some
+#     time in the past.  This script contains the macro definitions
+#     needed for these systems, but it is not known whether {PACKAGE}
+#     will still build or run on these systems:
+#
+#        convex
+#           Convex running ConvexOS
+#
+#        mips
+#           DECstations running Ultrix
+#
+#        sun4
+#           SUN Sparcstations running SunOS 4.x
+#
+#     This script will exit without action if the SYSTEM environment
+#     variable is not defined.  A warning will be issued if it is
+#     defined but is not set to one of the values above.  In this case,
+#     the only environment variable that will be defined by this script
+#     is SOURCE_VARIANT, which is set to unknown (any that are
+#     pre-defined will be passed on to make unaltered). 
+#
+#  Targets:
+#     For details of what targets are provided, see the associated
+#     makefile.  The latter will normally provide a default target
+#     called "help", which outputs a message describing this script
+#     and lists the targets provided.
+#
+#  Notes on Porting:
+#     If your machine or system setup does not appear in this script,
+#     then it should be possible to build and install SLALIB by
+#     adding a new case to this script with appropriate definitions
+#     (probably based on one of the existing implementations).
+#
+#  make Macros:
+#     The following "global" make macros are used in the associated
+#     makefile and may be changed by means of appropriate environment
+#     variable definitions (in each case the default is shown in
+#     parentheses).  Note that these macros are provided to allow
+#     external control over the directories in which software is
+#     installed, etc., so they should not normally be re-defined within
+#     this script.
+#
+#        STARLINK (/star)
+#           Pathname of the root directory beneath which Starlink
+#           software is currently installed.  This indicates to
+#           SLALIB where to find other Starlink software (include
+#           files, libraries, etc.) which it uses.
+#
+#        INSTALL ($HOME)
+#           Pathname of the root directory beneath which SLALIB will
+#           be installed for use.  Your home directory will be used by
+#           default.  This macro is provided to allow SLALIB to be
+#           installed locally for personal use (e.g. during development
+#           or testing).  It should be set to the $STARLINK directory if
+#           you want to add SLALIB into an already installed set of
+#           Starlink software.  You should ensure that the appropriate
+#           sub-directories appear on any relevant search paths which
+#           your system uses for locating software (e.g. binaries and
+#           libraries).
+#
+#        EXPORT (.)
+#           Pathname of the directory into which compressed tar files
+#           will be written if the "export" or "export_source" make
+#           targets are used to produce an exportable copy of SLALIB
+#           or its source files.  The current working directory (i.e.
+#           the SLALIB source directory) will be used by default.
+#
+#     The following "local" make macros are used in the associated
+#     makefile and should normally be overridden by environment variable
+#     definitions within this script.  All the local macros that are
+#     used in building a package should overridden even when the value
+#     is the same as the default.  This documents which macros are used
+#     and ensures that the package will continue to build correctly even
+#     if the default values are changed.  Macros that are not used on a
+#     particular machine (e.g. BLD_SHR on DECstations) should not be
+#     overridden.  In each case the default is shown in parentheses.
+#
+#        AR_IN (ar -r)
+#           The command to use to insert an object (.o) file into an
+#           archive (.a) library.  On some systems the variation 'ar r'
+#           may be required instead.
+#
+#        BLD_SHR (:)
+#           Command to build a shareable library when given three
+#           arguments specifying (1) the name of the library file to be
+#           built (2) a list of the object files to be used in the
+#           library and (3) a list of any additional libraries against
+#           which to link.  By default, it is assumed that shareable
+#           libraries are not available, and the default acts as a null
+#           command.
+#
+#        CC (c89)
+#           The C compiler command to use.
+#
+#        CFLAGS (-O)
+#           The C compiler options to use.
+#
+#        C_ROUTINES ()
+#           Names of the C routines needed to build the library.  Some
+#           systems (ix86_Linux) require extra C routines to provide
+#           missing system functions.
+#
+#        FC (fort77)
+#           The Fortran compiler command to use.  SLALIB requires a Fortran
+#           77 compiler that supports the common "permitted" Starlink
+#           extensions, as documented in Starlink General Paper SGP/16.
+#           (These include only the most common extensions, such as
+#           long names, end of line comments, include files, etc.)
+#
+#        FFLAGS (-O)
+#           The Fortran compiler options to be used.
+#
+#        HLINK (:)
+#           The command required to perform the linking of the package
+#           hypertext documentation into a cohesive whole with the rest
+#           (if any) Starlink documentation at the installation site, and
+#           with the Hypertext document server at RAL.  This service is not
+#           available on Sparc SunOS4, Dec MIPS Ultrix or Convex.  This
+#           macro is not a standard Starlink macro.
+#
+#        LINK (ln)
+#           The command required to establish a link to a file.  The
+#           default assumes POSIX.2 behavior, which only provides a
+#           "hard" link operating within a single file system.  If the
+#           host operating system allows "symbolic" links, then this
+#           macro might be re-defined as 'ln -s'.  Alternatively, if the
+#           use of multiple file systems is essential but not supported
+#           by any form of link, then a copy command could be
+#           substituted (e.g. 'cp -p'), at some cost in file space.
+#
+#        SOURCE_VARIANT ($SYSTEM)
+#           The name used to distinguish between platform-specific
+#           files.  Using the default ($SYSTEM) implies that multiple
+#           copies of the same source may exist under different names.
+#           For example, the files sub1.f_sun4 and sun1.f_sun4_Solaris
+#           may contain identical source code.  If this is to be
+#           avoided (to save space), edit this script to set
+#           SOURCE_VARIANT to a suitable string - for example setting it
+#           to "sun" would allow one copy of the source called
+#           sub1.f_sun to be used. To do this, add to each of the
+#           per-system sections a statement of the form:
+#
+#              SOURCE_VARIANT='string'
+#
+#        RANLIB (:)
+#           The command required to "randomise" an object library.  By
+#           default, this operation is not performed (the default acts
+#           as a null command).  On systems which require it, this
+#           should typically be set to 'ranlib'.
+#
+#        SHARE (.so)
+#           The file type suffix to be applied to produce the name of a
+#           shareable library file.  By default, the ".so" suffix is
+#           applied without a library version number.  For systems which
+#           support version numbers on shareable libraries, the macro
+#           LIB_VERS is defined within the associated makefile and may
+#           be used as part of a definition such as '.so.$(LIB_VERS)'.
+#
+#        TAR_IN (pax -w -v -x ustar -f)
+#           Command to use to insert a file into a .tar archive file.
+#           The default uses the POSIX.2 pax command, which is not
+#           available on traditional UNIX systems.  These typically use
+#           a tar command such as 'tar -cvhf' instead (if symbolic
+#           links are supported, then an option to follow these must be
+#           included in this command).
+#
+#        TAR_OUT (pax -r -f)
+#           Command to use to extract a file from a .tar archive file.
+#           The default uses the POSIX.2 pax command, which is not
+#           available on traditional UNIX systems.  These typically use
+#           a tar command such as 'tar -xf' instead.
+#
+#  Implementation Deficiencies:
+#     -  The implementation of shareable libraries on the alpha_OSF1
+#        system is still preliminary.
+#
+#  Copyright:
+#     Copyright (C) 1995 Rutherford Appleton Laboratory
+#
+#  Authors:
+#     RFWS: R.F.Warren-Smith (Starlink, RAL)
+#     PMA: P.M.Allan (Starlink, RAL)
+#     PTW: P.T.Wallace (Starlink, RAL)
+#     AJC: A.J.Chipperfield (Starlink, RAL)
+#     BLY: M.J.Bly (Starlink, RAL)
+#     BKM: B.K.McIlwrath (Starlink, RAL)
+#     {enter_new_authors_here}
+#
+#  History:
+#     26-NOV-1993 (RFWS/PMA):
+#        Starlink template.
+#     26-NOV-1993 (PTW):
+#        Version for SLALIB.
+#     28-JUN-1993 (PTW):
+#        Convex added.
+#     06-JUN-1995 (BLY):
+#        Updated to Mk IVa standard.
+#     04-MAR-1996 (BLY):
+#        Updated to Mk V specification.
+#        Added HLINK macro and definitions.
+#     24-APR-1996 (BLY):
+#        Integrated Linux support from BKM version.
+#     22-JAN-1998 (BLY):
+#        Removed rtl_sleep.c from C_ROUTINES for Linux case.
+#     {enter_further_changes_here}
+#
+#  Bugs:
+#     {note_any_bugs_here}
+#
+#-
+
+#  Export "local" definitions to the environment for use by make.
+      export AR_IN
+      export BLD_SHR
+      export CC
+      export CFLAGS
+      export C_ROUTINES
+      export FC
+      export FFLAGS
+      export HLINK
+      export LINK
+      export SOURCE_VARIANT
+      export RANLIB
+      export SHARE
+      export TAR_IN
+      export TAR_OUT
+
+#  Check that the SYSTEM environment variable is defined.
+      if test "$SYSTEM" = ""; then
+         echo "mk: Please define the environment variable SYSTEM to identify"
+         echo "    your computer system (the prologue in the mk script file"
+         echo "    contains more information if you require it)."
+
+#  If OK, test for each recognised system.
+      else
+         case "$SYSTEM" in
+
+#  DEC Alpha:
+#  =========
+#  DEC Alpha machines running OSF1.
+#  -------------------------------
+            alpha_OSF1)
+               AR_IN='ar -r'
+#               BLD_SHR=\
+#'f() ld -shared -update_registry $(INSTALL)/share/so_locations -o $$1 $$2 $$3 \
+#-lfor -lFutil -lUfor -lm -lots -lc; f'
+               CC='cc'
+               CFLAGS='-I$(STAR_INC) -O -std1'
+               FC='f77'
+               FFLAGS='-O'
+               HLINK='$(STAR_BIN)/hlink'
+               LINK='ln -s'
+               RANLIB='ranlib'
+#               SHARE='.so'
+               TAR_IN='tar -cvhf'
+               TAR_OUT='tar -xf'
+               echo "mk: Environment variables defined for $SYSTEM system"
+               ;;
+
+#  DECstations:
+#  ===========
+#  DECstations running Ultrix.
+#  --------------------------
+            mips)
+               AR_IN='ar -r'
+               CC='c89'
+               CFLAGS='-I$(STAR_INC) -O'
+               FC='f77'
+               FFLAGS='-O'
+               LINK='ln -s'
+               RANLIB='ranlib'
+               TAR_IN='tar -cvhf'
+               TAR_OUT='tar -xf'
+               echo "mk: Environment variables defined for $SYSTEM system"
+               ;;
+
+#  SUN4 systems:
+#  ============
+#  SUN Sparcstations running SunOS 4.x.
+#  -----------------------------------
+            sun4)
+               AR_IN='ar r'
+               BLD_SHR='f() ld -assert pure-text -o $$1 $$2; f'
+               CC='gcc'
+               CFLAGS='-I$(STAR_INC) -O -fPIC'
+               FC='f77'
+               FFLAGS='-O -PIC'
+               LINK='ln -s'
+               RANLIB='ranlib'
+               SHARE='.so.$(LIB_VERS)'
+               TAR_IN='tar -cvhf'
+               TAR_OUT='tar -xf'
+               echo "mk: Environment variables defined for $SYSTEM system"
+               ;;
+
+#  SUN Sparcstations running SunOS 5.x (Solaris).
+#  ---------------------------------------------
+            sun4_Solaris)
+               AR_IN='ar -r'
+               BLD_SHR='f() ld -G -z text -o $$1 $$2; f'
+               CC='cc'
+               CFLAGS='-I$(STAR_INC) -O -K PIC'
+               FC='f77'
+               FFLAGS='-O -PIC'
+               HLINK='$(STAR_BIN)/hlink'
+               LINK='ln -s'
+               SHARE='.so'
+               TAR_IN='tar -cvhf'
+               TAR_OUT='tar -xf'
+               echo "mk: Environment variables defined for $SYSTEM system"
+               ;;
+
+#  PC systems:
+#  ==========
+#  Intel PC running Linux.
+#  ----------------------
+            ix86_Linux)
+               AR_IN='ar r'
+               CC='gcc'
+               CFLAGS='-O'
+               C_ROUTINES='rtl_random.c'
+               FC='gfortran'
+               FFLAGS='-fno-second-underscore -O'
+               HLINK='$(STAR_BIN)/hlink'
+               LINK='ln -s'
+               RANLIB='ranlib'
+               TAR_IN='tar -cvhf'
+               TAR_OUT='tar -xf'
+               echo "mk: Environment variables defined for $SYSTEM system"
+               ;;
+
+#  Intel PC running Linux on 64 architecture.
+#  -----------------------------------------
+            x86_64)
+               AR_IN='ar r'
+               CC='gcc'
+               CFLAGS='-O -fPIC'
+               C_ROUTINES='rtl_random.c'
+               FC='gfortran'
+               FFLAGS='-fno-second-underscore -O -fPIC'
+               HLINK='$(STAR_BIN)/hlink'
+               LINK='ln -s'
+               RANLIB='ranlib'
+               TAR_IN='tar -cvhf'
+               TAR_OUT='tar -xf'
+               echo "mk: Environment variables defined for $SYSTEM system"
+               ;;
+
+#  Convex running ConvexOS.
+#  ------------------------
+            convex)
+               AR_IN='ar r'
+               FC='fc'
+               FFLAGS='-O3'
+               CC='gcc'
+               CFLAGS='-I$(STAR_INC) -O -fPIC'
+               LINK='ln -s'
+               RANLIB='ranlib'
+               TAR_IN='tar -cvhf'
+               TAR_OUT='tar -xf'
+               echo "mk: Environment variables defined for $SYSTEM system"
+               ;;
+
+#  IMPORTANT NOTE - Because Convex make doesn't support the -e
+#  qualifier (as stipulated by the POSIX standard) it will be
+#  necessary to use another version of make, for example the
+#  GNU one.  This can be accomplished either by editing this script,
+#  or by setting up a link.
+
+#  Issue a warning if SYSTEM is not recognised.
+            *)
+               SOURCE_VARIANT='unknown'
+               echo "mk: WARNING: value of SYSTEM = $SYSTEM not recognised..."
+               echo "             ...assuming default system characteristics"
+               echo '             ...setting SOURCE_VARIANT to "unknown"'
+               ;;
+         esac
+
+#  Invoke make with the appropriate environment variables set to override
+#  default macros defined in the makefile.
+         echo make -e $*
+         make -e $*
+      fi
+
+#  End of script.
diff --git a/src/slalib/moon.f b/src/slalib/moon.f
new file mode 100644
index 0000000..eaf1c72
--- /dev/null
+++ b/src/slalib/moon.f
@@ -0,0 +1,362 @@
+      SUBROUTINE sla_MOON (IY, ID, FD, PV)
+*+
+*     - - - - -
+*      M O O N
+*     - - - - -
+*
+*  Approximate geocentric position and velocity of the Moon
+*  (single precision).
+*
+*  Given:
+*     IY       i       year
+*     ID       i       day in year (1 = Jan 1st)
+*     FD       r       fraction of day
+*
+*  Returned:
+*     PV       r(6)    Moon position & velocity vector
+*
+*  Notes:
+*
+*  1  The date and time is TDB (loosely ET) in a Julian calendar
+*     which has been aligned to the ordinary Gregorian
+*     calendar for the interval 1900 March 1 to 2100 February 28.
+*     The year and day can be obtained by calling sla_CALYD or
+*     sla_CLYD.
+*
+*  2  The Moon 6-vector is Moon centre relative to Earth centre,
+*     mean equator and equinox of date.  Position part, PV(1-3),
+*     is in AU;  velocity part, PV(4-6), is in AU/sec.
+*
+*  3  The position is accurate to better than 0.5 arcminute
+*     in direction and 1000 km in distance.  The velocity
+*     is accurate to better than 0.5"/hour in direction and
+*     4 m/s in distance.  (RMS figures with respect to JPL DE200
+*     for the interval 1960-2025 are 14 arcsec and 0.2 arcsec/hour in
+*     longitude, 9 arcsec and 0.2 arcsec/hour in latitude, 350 km and
+*     2 m/s in distance.)  Note that the distance accuracy is
+*     comparatively poor because this routine is principally intended
+*     for computing topocentric direction.
+*
+*  4  This routine is only a partial implementation of the original
+*     Meeus algorithm (reference below), which offers 4 times the
+*     accuracy in direction and 30 times the accuracy in distance
+*     when fully implemented (as it is in sla_DMOON).
+*
+*  Reference:
+*     Meeus, l'Astronomie, June 1984, p348.
+*
+*  Called:  sla_CS2C6
+*
+*  P.T.Wallace   Starlink   8 December 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER IY,ID
+      REAL FD,PV(6)
+
+      INTEGER ITP(4,4),ITL(4,39),ITB(4,29),I,IY4,N
+      REAL D2R,RATCON,ERADAU
+      REAL ELP0,ELP1,ELP1I,ELP1F
+      REAL EM0,EM1,EM1F
+      REAL EMP0,EMP1,EMP1I,EMP1F
+      REAL D0,D1,D1I,D1F
+      REAL F0,F1,F1I,F1F
+      REAL TL(39)
+      REAL TB(29)
+      REAL TP(4)
+      REAL YI,YF,T,ELP,EM,EMP,D,F,EL,ELD,COEFF,CEM,CEMP
+      REAL CD,CF,THETA,THETAD,B,BD,P,PD,SP,R,RD
+      REAL V(6),EPS,SINEPS,COSEPS
+
+*  Degrees to radians
+      PARAMETER (D2R=1.745329252E-2)
+
+*  Rate conversion factor:  D2R**2/(86400*365.25)
+      PARAMETER (RATCON=9.652743551E-12)
+
+*  Earth radius in AU:  6378.137/149597870
+      PARAMETER (ERADAU=4.2635212653763E-5)
+
+*
+*  Coefficients for fundamental arguments
+*
+*  Fixed term (deg), term in T (deg & whole revs + fraction per year)
+*
+*  Moon's mean longitude
+      DATA ELP0,ELP1,ELP1I,ELP1F /
+     :            270.434164, 4812.678831, 4680., 132.678831 /
+*
+*  Sun's mean anomaly
+      DATA EM0,EM1,EM1F /
+     :            358.475833,  359.990498,        359.990498 /
+*
+*  Moon's mean anomaly
+      DATA EMP0,EMP1,EMP1I,EMP1F /
+     :            296.104608, 4771.988491, 4680.,  91.988491 /
+*
+*  Moon's mean elongation
+      DATA D0,D1,D1I,D1F /
+     :            350.737486,  4452.671142, 4320., 132.671142 /
+*
+*  Mean distance of the Moon from its ascending node
+      DATA F0,F1,F1I,F1F /
+     :             11.250889, 4832.020251, 4680., 152.020251 /
+
+*
+*  Coefficients for Moon position
+*
+*   T(N)       = coefficient of term (deg)
+*   IT(N,1-4)  = coefficients of M, M', D, F in argument
+*
+*  Longitude
+*                                         M   M'  D   F
+      DATA TL( 1)/            +6.288750                     /,
+     :     (ITL(I, 1),I=1,4)/             0, +1,  0,  0     /
+      DATA TL( 2)/            +1.274018                     /,
+     :     (ITL(I, 2),I=1,4)/             0, -1, +2,  0     /
+      DATA TL( 3)/            +0.658309                     /,
+     :     (ITL(I, 3),I=1,4)/             0,  0, +2,  0     /
+      DATA TL( 4)/            +0.213616                     /,
+     :     (ITL(I, 4),I=1,4)/             0, +2,  0,  0     /
+      DATA TL( 5)/            -0.185596                     /,
+     :     (ITL(I, 5),I=1,4)/            +1,  0,  0,  0     /
+      DATA TL( 6)/            -0.114336                     /,
+     :     (ITL(I, 6),I=1,4)/             0,  0,  0, +2     /
+      DATA TL( 7)/            +0.058793                     /,
+     :     (ITL(I, 7),I=1,4)/             0, -2, +2,  0     /
+      DATA TL( 8)/            +0.057212                     /,
+     :     (ITL(I, 8),I=1,4)/            -1, -1, +2,  0     /
+      DATA TL( 9)/            +0.053320                     /,
+     :     (ITL(I, 9),I=1,4)/             0, +1, +2,  0     /
+      DATA TL(10)/            +0.045874                     /,
+     :     (ITL(I,10),I=1,4)/            -1,  0, +2,  0     /
+      DATA TL(11)/            +0.041024                     /,
+     :     (ITL(I,11),I=1,4)/            -1, +1,  0,  0     /
+      DATA TL(12)/            -0.034718                     /,
+     :     (ITL(I,12),I=1,4)/             0,  0, +1,  0     /
+      DATA TL(13)/            -0.030465                     /,
+     :     (ITL(I,13),I=1,4)/            +1, +1,  0,  0     /
+      DATA TL(14)/            +0.015326                     /,
+     :     (ITL(I,14),I=1,4)/             0,  0, +2, -2     /
+      DATA TL(15)/            -0.012528                     /,
+     :     (ITL(I,15),I=1,4)/             0, +1,  0, +2     /
+      DATA TL(16)/            -0.010980                     /,
+     :     (ITL(I,16),I=1,4)/             0, -1,  0, +2     /
+      DATA TL(17)/            +0.010674                     /,
+     :     (ITL(I,17),I=1,4)/             0, -1, +4,  0     /
+      DATA TL(18)/            +0.010034                     /,
+     :     (ITL(I,18),I=1,4)/             0, +3,  0,  0     /
+      DATA TL(19)/            +0.008548                     /,
+     :     (ITL(I,19),I=1,4)/             0, -2, +4,  0     /
+      DATA TL(20)/            -0.007910                     /,
+     :     (ITL(I,20),I=1,4)/            +1, -1, +2,  0     /
+      DATA TL(21)/            -0.006783                     /,
+     :     (ITL(I,21),I=1,4)/            +1,  0, +2,  0     /
+      DATA TL(22)/            +0.005162                     /,
+     :     (ITL(I,22),I=1,4)/             0, +1, -1,  0     /
+      DATA TL(23)/            +0.005000                     /,
+     :     (ITL(I,23),I=1,4)/            +1,  0, +1,  0     /
+      DATA TL(24)/            +0.004049                     /,
+     :     (ITL(I,24),I=1,4)/            -1, +1, +2,  0     /
+      DATA TL(25)/            +0.003996                     /,
+     :     (ITL(I,25),I=1,4)/             0, +2, +2,  0     /
+      DATA TL(26)/            +0.003862                     /,
+     :     (ITL(I,26),I=1,4)/             0,  0, +4,  0     /
+      DATA TL(27)/            +0.003665                     /,
+     :     (ITL(I,27),I=1,4)/             0, -3, +2,  0     /
+      DATA TL(28)/            +0.002695                     /,
+     :     (ITL(I,28),I=1,4)/            -1, +2,  0,  0     /
+      DATA TL(29)/            +0.002602                     /,
+     :     (ITL(I,29),I=1,4)/             0, +1, -2, -2     /
+      DATA TL(30)/            +0.002396                     /,
+     :     (ITL(I,30),I=1,4)/            -1, -2, +2,  0     /
+      DATA TL(31)/            -0.002349                     /,
+     :     (ITL(I,31),I=1,4)/             0, +1, +1,  0     /
+      DATA TL(32)/            +0.002249                     /,
+     :     (ITL(I,32),I=1,4)/            -2,  0, +2,  0     /
+      DATA TL(33)/            -0.002125                     /,
+     :     (ITL(I,33),I=1,4)/            +1, +2,  0,  0     /
+      DATA TL(34)/            -0.002079                     /,
+     :     (ITL(I,34),I=1,4)/            +2,  0,  0,  0     /
+      DATA TL(35)/            +0.002059                     /,
+     :     (ITL(I,35),I=1,4)/            -2, -1, +2,  0     /
+      DATA TL(36)/            -0.001773                     /,
+     :     (ITL(I,36),I=1,4)/             0, +1, +2, -2     /
+      DATA TL(37)/            -0.001595                     /,
+     :     (ITL(I,37),I=1,4)/             0,  0, +2, +2     /
+      DATA TL(38)/            +0.001220                     /,
+     :     (ITL(I,38),I=1,4)/            -1, -1, +4,  0     /
+      DATA TL(39)/            -0.001110                     /,
+     :     (ITL(I,39),I=1,4)/             0, +2,  0, +2     /
+*
+*  Latitude
+*                                         M   M'  D   F
+      DATA TB( 1)/            +5.128189                     /,
+     :     (ITB(I, 1),I=1,4)/             0,  0,  0, +1     /
+      DATA TB( 2)/            +0.280606                     /,
+     :     (ITB(I, 2),I=1,4)/             0, +1,  0, +1     /
+      DATA TB( 3)/            +0.277693                     /,
+     :     (ITB(I, 3),I=1,4)/             0, +1,  0, -1     /
+      DATA TB( 4)/            +0.173238                     /,
+     :     (ITB(I, 4),I=1,4)/             0,  0, +2, -1     /
+      DATA TB( 5)/            +0.055413                     /,
+     :     (ITB(I, 5),I=1,4)/             0, -1, +2, +1     /
+      DATA TB( 6)/            +0.046272                     /,
+     :     (ITB(I, 6),I=1,4)/             0, -1, +2, -1     /
+      DATA TB( 7)/            +0.032573                     /,
+     :     (ITB(I, 7),I=1,4)/             0,  0, +2, +1     /
+      DATA TB( 8)/            +0.017198                     /,
+     :     (ITB(I, 8),I=1,4)/             0, +2,  0, +1     /
+      DATA TB( 9)/            +0.009267                     /,
+     :     (ITB(I, 9),I=1,4)/             0, +1, +2, -1     /
+      DATA TB(10)/            +0.008823                     /,
+     :     (ITB(I,10),I=1,4)/             0, +2,  0, -1     /
+      DATA TB(11)/            +0.008247                     /,
+     :     (ITB(I,11),I=1,4)/            -1,  0, +2, -1     /
+      DATA TB(12)/            +0.004323                     /,
+     :     (ITB(I,12),I=1,4)/             0, -2, +2, -1     /
+      DATA TB(13)/            +0.004200                     /,
+     :     (ITB(I,13),I=1,4)/             0, +1, +2, +1     /
+      DATA TB(14)/            +0.003372                     /,
+     :     (ITB(I,14),I=1,4)/            -1,  0, -2, +1     /
+      DATA TB(15)/            +0.002472                     /,
+     :     (ITB(I,15),I=1,4)/            -1, -1, +2, +1     /
+      DATA TB(16)/            +0.002222                     /,
+     :     (ITB(I,16),I=1,4)/            -1,  0, +2, +1     /
+      DATA TB(17)/            +0.002072                     /,
+     :     (ITB(I,17),I=1,4)/            -1, -1, +2, -1     /
+      DATA TB(18)/            +0.001877                     /,
+     :     (ITB(I,18),I=1,4)/            -1, +1,  0, +1     /
+      DATA TB(19)/            +0.001828                     /,
+     :     (ITB(I,19),I=1,4)/             0, -1, +4, -1     /
+      DATA TB(20)/            -0.001803                     /,
+     :     (ITB(I,20),I=1,4)/            +1,  0,  0, +1     /
+      DATA TB(21)/            -0.001750                     /,
+     :     (ITB(I,21),I=1,4)/             0,  0,  0, +3     /
+      DATA TB(22)/            +0.001570                     /,
+     :     (ITB(I,22),I=1,4)/            -1, +1,  0, -1     /
+      DATA TB(23)/            -0.001487                     /,
+     :     (ITB(I,23),I=1,4)/             0,  0, +1, +1     /
+      DATA TB(24)/            -0.001481                     /,
+     :     (ITB(I,24),I=1,4)/            +1, +1,  0, +1     /
+      DATA TB(25)/            +0.001417                     /,
+     :     (ITB(I,25),I=1,4)/            -1, -1,  0, +1     /
+      DATA TB(26)/            +0.001350                     /,
+     :     (ITB(I,26),I=1,4)/            -1,  0,  0, +1     /
+      DATA TB(27)/            +0.001330                     /,
+     :     (ITB(I,27),I=1,4)/             0,  0, -1, +1     /
+      DATA TB(28)/            +0.001106                     /,
+     :     (ITB(I,28),I=1,4)/             0, +3,  0, +1     /
+      DATA TB(29)/            +0.001020                     /,
+     :     (ITB(I,29),I=1,4)/             0,  0, +4, -1     /
+*
+*  Parallax
+*                                         M   M'  D   F
+      DATA TP( 1)/            +0.051818                     /,
+     :     (ITP(I, 1),I=1,4)/             0, +1,  0,  0     /
+      DATA TP( 2)/            +0.009531                     /,
+     :     (ITP(I, 2),I=1,4)/             0, -1, +2,  0     /
+      DATA TP( 3)/            +0.007843                     /,
+     :     (ITP(I, 3),I=1,4)/             0,  0, +2,  0     /
+      DATA TP( 4)/            +0.002824                     /,
+     :     (ITP(I, 4),I=1,4)/             0, +2,  0,  0     /
+
+
+
+*  Whole years & fraction of year, and years since J1900.0
+      YI=FLOAT(IY-1900)
+      IY4=MOD(MOD(IY,4)+4,4)
+      YF=(FLOAT(4*(ID-1/(IY4+1))-IY4-2)+4.0*FD)/1461.0
+      T=YI+YF
+
+*  Moon's mean longitude
+      ELP=D2R*MOD(ELP0+ELP1I*YF+ELP1F*T,360.0)
+
+*  Sun's mean anomaly
+      EM=D2R*MOD(EM0+EM1F*T,360.0)
+
+*  Moon's mean anomaly
+      EMP=D2R*MOD(EMP0+EMP1I*YF+EMP1F*T,360.0)
+
+*  Moon's mean elongation
+      D=D2R*MOD(D0+D1I*YF+D1F*T,360.0)
+
+*  Mean distance of the moon from its ascending node
+      F=D2R*MOD(F0+F1I*YF+F1F*T,360.0)
+
+*  Longitude
+      EL=0.0
+      ELD=0.0
+      DO N=39,1,-1
+         COEFF=TL(N)
+         CEM=FLOAT(ITL(1,N))
+         CEMP=FLOAT(ITL(2,N))
+         CD=FLOAT(ITL(3,N))
+         CF=FLOAT(ITL(4,N))
+         THETA=CEM*EM+CEMP*EMP+CD*D+CF*F
+         THETAD=CEM*EM1+CEMP*EMP1+CD*D1+CF*F1
+         EL=EL+COEFF*SIN(THETA)
+         ELD=ELD+COEFF*COS(THETA)*THETAD
+      END DO
+      EL=EL*D2R+ELP
+      ELD=RATCON*(ELD+ELP1/D2R)
+
+*  Latitude
+      B=0.0
+      BD=0.0
+      DO N=29,1,-1
+         COEFF=TB(N)
+         CEM=FLOAT(ITB(1,N))
+         CEMP=FLOAT(ITB(2,N))
+         CD=FLOAT(ITB(3,N))
+         CF=FLOAT(ITB(4,N))
+         THETA=CEM*EM+CEMP*EMP+CD*D+CF*F
+         THETAD=CEM*EM1+CEMP*EMP1+CD*D1+CF*F1
+         B=B+COEFF*SIN(THETA)
+         BD=BD+COEFF*COS(THETA)*THETAD
+      END DO
+      B=B*D2R
+      BD=RATCON*BD
+
+*  Parallax
+      P=0.0
+      PD=0.0
+      DO N=4,1,-1
+         COEFF=TP(N)
+         CEM=FLOAT(ITP(1,N))
+         CEMP=FLOAT(ITP(2,N))
+         CD=FLOAT(ITP(3,N))
+         CF=FLOAT(ITP(4,N))
+         THETA=CEM*EM+CEMP*EMP+CD*D+CF*F
+         THETAD=CEM*EM1+CEMP*EMP1+CD*D1+CF*F1
+         P=P+COEFF*COS(THETA)
+         PD=PD-COEFF*SIN(THETA)*THETAD
+      END DO
+      P=(P+0.950724)*D2R
+      PD=RATCON*PD
+
+*  Transform parallax to distance (AU, AU/sec)
+      SP=SIN(P)
+      R=ERADAU/SP
+      RD=-R*PD/SP
+
+*  Longitude, latitude to x,y,z (AU)
+      CALL sla_CS2C6(EL,B,R,ELD,BD,RD,V)
+
+*  Mean obliquity
+      EPS=D2R*(23.45229-0.00013*T)
+      SINEPS=SIN(EPS)
+      COSEPS=COS(EPS)
+
+*  Rotate Moon position and velocity into equatorial system
+      PV(1)=V(1)
+      PV(2)=V(2)*COSEPS-V(3)*SINEPS
+      PV(3)=V(2)*SINEPS+V(3)*COSEPS
+      PV(4)=V(4)
+      PV(5)=V(5)*COSEPS-V(6)*SINEPS
+      PV(6)=V(5)*SINEPS+V(6)*COSEPS
+
+      END
diff --git a/src/slalib/mxm.f b/src/slalib/mxm.f
new file mode 100644
index 0000000..67ce113
--- /dev/null
+++ b/src/slalib/mxm.f
@@ -0,0 +1,55 @@
+      SUBROUTINE sla_MXM (A, B, C)
+*+
+*     - - - -
+*      M X M
+*     - - - -
+*
+*  Product of two 3x3 matrices:
+*      matrix C  =  matrix A  x  matrix B
+*
+*  (single precision)
+*
+*  Given:
+*      A      real(3,3)        matrix
+*      B      real(3,3)        matrix
+*
+*  Returned:
+*      C      real(3,3)        matrix result
+*
+*  To comply with the ANSI Fortran 77 standard, A, B and C must
+*  be different arrays.  However, the routine is coded so as to
+*  work properly on the VAX and many other systems even if this
+*  rule is violated.
+*
+*  P.T.Wallace   Starlink   5 April 1990
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL A(3,3),B(3,3),C(3,3)
+
+      INTEGER I,J,K
+      REAL W,WM(3,3)
+
+
+*  Multiply into scratch matrix
+      DO I=1,3
+         DO J=1,3
+            W=0.0
+            DO K=1,3
+               W=W+A(I,K)*B(K,J)
+            END DO
+            WM(I,J)=W
+         END DO
+      END DO
+
+*  Return the result
+      DO J=1,3
+         DO I=1,3
+            C(I,J)=WM(I,J)
+         END DO
+      END DO
+
+      END
diff --git a/src/slalib/mxv.f b/src/slalib/mxv.f
new file mode 100644
index 0000000..2935f72
--- /dev/null
+++ b/src/slalib/mxv.f
@@ -0,0 +1,47 @@
+      SUBROUTINE sla_MXV (RM, VA, VB)
+*+
+*     - - - -
+*      M X V
+*     - - - -
+*
+*  Performs the 3-D forward unitary transformation:
+*
+*     vector VB = matrix RM * vector VA
+*
+*  (single precision)
+*
+*  Given:
+*     RM       real(3,3)    matrix
+*     VA       real(3)      vector
+*
+*  Returned:
+*     VB       real(3)      result vector
+*
+*  P.T.Wallace   Starlink   March 1986
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL RM(3,3),VA(3),VB(3)
+
+      INTEGER I,J
+      REAL W,VW(3)
+
+
+*  Matrix RM * vector VA -> vector VW
+      DO J=1,3
+         W=0.0
+         DO I=1,3
+            W=W+RM(J,I)*VA(I)
+         END DO
+         VW(J)=W
+      END DO
+
+*  Vector VW -> vector VB
+      DO J=1,3
+         VB(J)=VW(J)
+      END DO
+
+      END
diff --git a/src/slalib/nut.f b/src/slalib/nut.f
new file mode 100644
index 0000000..bf2d196
--- /dev/null
+++ b/src/slalib/nut.f
@@ -0,0 +1,44 @@
+      SUBROUTINE sla_NUT (DATE, RMATN)
+*+
+*     - - - -
+*      N U T
+*     - - - -
+*
+*  Form the matrix of nutation for a given date - IAU 1980 theory
+*  (double precision)
+*
+*  References:
+*     Final report of the IAU Working Group on Nutation,
+*      chairman P.K.Seidelmann, 1980.
+*     Kaplan,G.H., 1981, USNO circular no. 163, pA3-6.
+*
+*  Given:
+*     DATE   dp         TDB (loosely ET) as Modified Julian Date
+*                                           (=JD-2400000.5)
+*  Returned:
+*     RMATN  dp(3,3)    nutation matrix
+*
+*  The matrix is in the sense   V(true)  =  RMATN * V(mean)
+*
+*  Called:   sla_NUTC, sla_DEULER
+*
+*  P.T.Wallace   Starlink   1 January 1993
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE,RMATN(3,3)
+
+      DOUBLE PRECISION DPSI,DEPS,EPS0
+
+
+
+*  Nutation components and mean obliquity
+      CALL sla_NUTC(DATE,DPSI,DEPS,EPS0)
+
+*  Rotation matrix
+      CALL sla_DEULER('XZX',EPS0,-DPSI,-(EPS0+DEPS),RMATN)
+
+      END
diff --git a/src/slalib/nutc.f b/src/slalib/nutc.f
new file mode 100644
index 0000000..1f5890c
--- /dev/null
+++ b/src/slalib/nutc.f
@@ -0,0 +1,442 @@
+      SUBROUTINE sla_NUTC (DATE, DPSI, DEPS, EPS0)
+*+
+*     - - - - -
+*      N U T C
+*     - - - - -
+*
+*  Nutation:  longitude & obliquity components and mean
+*  obliquity - IAU 1980 theory (double precision)
+*
+*  Given:
+*
+*     DATE        dp    TDB (loosely ET) as Modified Julian Date
+*                                            (JD-2400000.5)
+*  Returned:
+*
+*     DPSI,DEPS   dp    nutation in longitude,obliquity
+*     EPS0        dp    mean obliquity
+*
+*  References:
+*     Final report of the IAU Working Group on Nutation,
+*      chairman P.K.Seidelmann, 1980.
+*     Kaplan,G.H., 1981, USNO circular no. 163, pA3-6.
+*
+*  P.T.Wallace   Starlink   23 August 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE,DPSI,DEPS,EPS0
+
+      DOUBLE PRECISION T2AS,AS2R,U2R
+      DOUBLE PRECISION T,EL,EL2,EL3
+      DOUBLE PRECISION ELP,ELP2
+      DOUBLE PRECISION F,F2,F4
+      DOUBLE PRECISION D,D2,D4
+      DOUBLE PRECISION OM,OM2
+      DOUBLE PRECISION DP,DE
+      DOUBLE PRECISION A
+
+
+*  Turns to arc seconds
+      PARAMETER (T2AS=1296000D0)
+*  Arc seconds to radians
+      PARAMETER (AS2R=0.484813681109535994D-5)
+*  Units of 0.0001 arcsec to radians
+      PARAMETER (U2R=AS2R/1D4)
+
+
+
+
+*  Interval between basic epoch J2000.0 and current epoch (JC)
+      T=(DATE-51544.5D0)/36525D0
+
+*
+*  FUNDAMENTAL ARGUMENTS in the FK5 reference system
+*
+
+*  Mean longitude of the Moon minus mean longitude of the Moon's perigee
+      EL=AS2R*(485866.733D0+(1325D0*T2AS+715922.633D0
+     :         +(31.310D0+0.064D0*T)*T)*T)
+
+*  Mean longitude of the Sun minus mean longitude of the Sun's perigee
+      ELP=AS2R*(1287099.804D0+(99D0*T2AS+1292581.224D0
+     :         +(-0.577D0-0.012D0*T)*T)*T)
+
+*  Mean longitude of the Moon minus mean longitude of the Moon's node
+      F=AS2R*(335778.877D0+(1342D0*T2AS+295263.137D0
+     :         +(-13.257D0+0.011D0*T)*T)*T)
+
+*  Mean elongation of the Moon from the Sun
+      D=AS2R*(1072261.307D0+(1236D0*T2AS+1105601.328D0
+     :         +(-6.891D0+0.019D0*T)*T)*T)
+
+*  Longitude of the mean ascending node of the lunar orbit on the
+*   ecliptic, measured from the mean equinox of date
+      OM=AS2R*(450160.280D0+(-5D0*T2AS-482890.539D0
+     :         +(7.455D0+0.008D0*T)*T)*T)
+
+*  Multiples of arguments
+      EL2=EL+EL
+      EL3=EL2+EL
+      ELP2=ELP+ELP
+      F2=F+F
+      F4=F2+F2
+      D2=D+D
+      D4=D2+D2
+      OM2=OM+OM
+
+
+*
+*  SERIES FOR THE NUTATION
+*
+      DP=0D0
+      DE=0D0
+
+*  106
+      DP=DP+SIN(ELP+D)
+*  105
+      DP=DP-SIN(F2+D4+OM2)
+*  104
+      DP=DP+SIN(EL2+D2)
+*  103
+      DP=DP-SIN(EL-F2+D2)
+*  102
+      DP=DP-SIN(EL+ELP-D2+OM)
+*  101
+      DP=DP-SIN(-ELP+F2+OM)
+*  100
+      DP=DP-SIN(EL-F2-D2)
+*  99
+      DP=DP-SIN(ELP+D2)
+*  98
+      DP=DP-SIN(F2-D+OM2)
+*  97
+      DP=DP-SIN(-F2+OM)
+*  96
+      DP=DP+SIN(-EL-ELP+D2+OM)
+*  95
+      DP=DP+SIN(ELP+F2+OM)
+*  94
+      DP=DP-SIN(EL+F2-D2)
+*  93
+      DP=DP+SIN(EL3+F2-D2+OM2)
+*  92
+      DP=DP+SIN(F4-D2+OM2)
+*  91
+      DP=DP-SIN(EL+D2+OM)
+*  90
+      DP=DP-SIN(EL2+F2+D2+OM2)
+*  89
+      A=EL2+F2-D2+OM
+      DP=DP+SIN(A)
+      DE=DE-COS(A)
+*  88
+      DP=DP+SIN(EL-ELP-D2)
+*  87
+      DP=DP+SIN(-EL+F4+OM2)
+*  86
+      A=-EL2+F2+D4+OM2
+      DP=DP-SIN(A)
+      DE=DE+COS(A)
+*  85
+      A=EL+F2+D2+OM
+      DP=DP-SIN(A)
+      DE=DE+COS(A)
+*  84
+      A=EL+ELP+F2-D2+OM2
+      DP=DP+SIN(A)
+      DE=DE-COS(A)
+*  83
+      DP=DP-SIN(EL2-D4)
+*  82
+      A=-EL+F2+D4+OM2
+      DP=DP-2D0*SIN(A)
+      DE=DE+COS(A)
+*  81
+      A=-EL2+F2+D2+OM2
+      DP=DP+SIN(A)
+      DE=DE-COS(A)
+*  80
+      DP=DP-SIN(EL-D4)
+*  79
+      A=-EL+OM2
+      DP=DP+SIN(A)
+      DE=DE-COS(A)
+*  78
+      A=F2+D+OM2
+      DP=DP+2D0*SIN(A)
+      DE=DE-COS(A)
+*  77
+      DP=DP+2D0*SIN(EL3)
+*  76
+      A=EL+OM2
+      DP=DP-2D0*SIN(A)
+      DE=DE+COS(A)
+*  75
+      A=EL2+OM
+      DP=DP+2D0*SIN(A)
+      DE=DE-COS(A)
+*  74
+      A=-EL+F2-D2+OM
+      DP=DP-2D0*SIN(A)
+      DE=DE+COS(A)
+*  73
+      A=EL+ELP+F2+OM2
+      DP=DP+2D0*SIN(A)
+      DE=DE-COS(A)
+*  72
+      A=-ELP+F2+D2+OM2
+      DP=DP-3D0*SIN(A)
+      DE=DE+COS(A)
+*  71
+      A=EL3+F2+OM2
+      DP=DP-3D0*SIN(A)
+      DE=DE+COS(A)
+*  70
+      A=-EL2+OM
+      DP=DP-2D0*SIN(A)
+      DE=DE+COS(A)
+*  69
+      A=-EL-ELP+F2+D2+OM2
+      DP=DP-3D0*SIN(A)
+      DE=DE+COS(A)
+*  68
+      A=EL-ELP+F2+OM2
+      DP=DP-3D0*SIN(A)
+      DE=DE+COS(A)
+*  67
+      DP=DP+3D0*SIN(EL+F2)
+*  66
+      DP=DP-3D0*SIN(EL+ELP)
+*  65
+      DP=DP-4D0*SIN(D)
+*  64
+      DP=DP+4D0*SIN(EL-F2)
+*  63
+      DP=DP-4D0*SIN(ELP-D2)
+*  62
+      A=EL2+F2+OM
+      DP=DP-5D0*SIN(A)
+      DE=DE+3D0*COS(A)
+*  61
+      DP=DP+5D0*SIN(EL-ELP)
+*  60
+      A=-D2+OM
+      DP=DP-5D0*SIN(A)
+      DE=DE+3D0*COS(A)
+*  59
+      A=EL+F2-D2+OM
+      DP=DP+6D0*SIN(A)
+      DE=DE-3D0*COS(A)
+*  58
+      A=F2+D2+OM
+      DP=DP-7D0*SIN(A)
+      DE=DE+3D0*COS(A)
+*  57
+      A=D2+OM
+      DP=DP-6D0*SIN(A)
+      DE=DE+3D0*COS(A)
+*  56
+      A=EL2+F2-D2+OM2
+      DP=DP+6D0*SIN(A)
+      DE=DE-3D0*COS(A)
+*  55
+      DP=DP+6D0*SIN(EL+D2)
+*  54
+      A=EL+F2+D2+OM2
+      DP=DP-8D0*SIN(A)
+      DE=DE+3D0*COS(A)
+*  53
+      A=-ELP+F2+OM2
+      DP=DP-7D0*SIN(A)
+      DE=DE+3D0*COS(A)
+*  52
+      A=ELP+F2+OM2
+      DP=DP+7D0*SIN(A)
+      DE=DE-3D0*COS(A)
+*  51
+      DP=DP-7D0*SIN(EL+ELP-D2)
+*  50
+      A=-EL+F2+D2+OM
+      DP=DP-10D0*SIN(A)
+      DE=DE+5D0*COS(A)
+*  49
+      A=EL-D2+OM
+      DP=DP-13D0*SIN(A)
+      DE=DE+7D0*COS(A)
+*  48
+      A=-EL+D2+OM
+      DP=DP+16D0*SIN(A)
+      DE=DE-8D0*COS(A)
+*  47
+      A=-EL+F2+OM
+      DP=DP+21D0*SIN(A)
+      DE=DE-10D0*COS(A)
+*  46
+      DP=DP+26D0*SIN(F2)
+      DE=DE-COS(F2)
+*  45
+      A=EL2+F2+OM2
+      DP=DP-31D0*SIN(A)
+      DE=DE+13D0*COS(A)
+*  44
+      A=EL+F2-D2+OM2
+      DP=DP+29D0*SIN(A)
+      DE=DE-12D0*COS(A)
+*  43
+      DP=DP+29D0*SIN(EL2)
+      DE=DE-COS(EL2)
+*  42
+      A=F2+D2+OM2
+      DP=DP-38D0*SIN(A)
+      DE=DE+16D0*COS(A)
+*  41
+      A=EL+F2+OM
+      DP=DP-51D0*SIN(A)
+      DE=DE+27D0*COS(A)
+*  40
+      A=-EL+F2+D2+OM2
+      DP=DP-59D0*SIN(A)
+      DE=DE+26D0*COS(A)
+*  39
+      A=-EL+OM
+      DP=DP+(-58D0-0.1D0*T)*SIN(A)
+      DE=DE+32D0*COS(A)
+*  38
+      A=EL+OM
+      DP=DP+(63D0+0.1D0*T)*SIN(A)
+      DE=DE-33D0*COS(A)
+*  37
+      DP=DP+63D0*SIN(D2)
+      DE=DE-2D0*COS(D2)
+*  36
+      A=-EL+F2+OM2
+      DP=DP+123D0*SIN(A)
+      DE=DE-53D0*COS(A)
+*  35
+      A=EL-D2
+      DP=DP-158D0*SIN(A)
+      DE=DE-COS(A)
+*  34
+      A=EL+F2+OM2
+      DP=DP-301D0*SIN(A)
+      DE=DE+(129D0-0.1D0*T)*COS(A)
+*  33
+      A=F2+OM
+      DP=DP+(-386D0-0.4D0*T)*SIN(A)
+      DE=DE+200D0*COS(A)
+*  32
+      DP=DP+(712D0+0.1D0*T)*SIN(EL)
+      DE=DE-7D0*COS(EL)
+*  31
+      A=F2+OM2
+      DP=DP+(-2274D0-0.2D0*T)*SIN(A)
+      DE=DE+(977D0-0.5D0*T)*COS(A)
+*  30
+      DP=DP-SIN(ELP+F2-D2)
+*  29
+      DP=DP+SIN(-EL+D+OM)
+*  28
+      DP=DP+SIN(ELP+OM2)
+*  27
+      DP=DP-SIN(ELP-F2+D2)
+*  26
+      DP=DP+SIN(-F2+D2+OM)
+*  25
+      DP=DP+SIN(EL2+ELP-D2)
+*  24
+      DP=DP-4D0*SIN(EL-D)
+*  23
+      A=ELP+F2-D2+OM
+      DP=DP+4D0*SIN(A)
+      DE=DE-2D0*COS(A)
+*  22
+      A=EL2-D2+OM
+      DP=DP+4D0*SIN(A)
+      DE=DE-2D0*COS(A)
+*  21
+      A=-ELP+F2-D2+OM
+      DP=DP-5D0*SIN(A)
+      DE=DE+3D0*COS(A)
+*  20
+      A=-EL2+D2+OM
+      DP=DP-6D0*SIN(A)
+      DE=DE+3D0*COS(A)
+*  19
+      A=-ELP+OM
+      DP=DP-12D0*SIN(A)
+      DE=DE+6D0*COS(A)
+*  18
+      A=ELP2+F2-D2+OM2
+      DP=DP+(-16D0+0.1D0*T)*SIN(A)
+      DE=DE+7D0*COS(A)
+*  17
+      A=ELP+OM
+      DP=DP-15D0*SIN(A)
+      DE=DE+9D0*COS(A)
+*  16
+      DP=DP+(17D0-0.1D0*T)*SIN(ELP2)
+*  15
+      DP=DP-22D0*SIN(F2-D2)
+*  14
+      A=EL2-D2
+      DP=DP+48D0*SIN(A)
+      DE=DE+COS(A)
+*  13
+      A=F2-D2+OM
+      DP=DP+(129D0+0.1D0*T)*SIN(A)
+      DE=DE-70D0*COS(A)
+*  12
+      A=-ELP+F2-D2+OM2
+      DP=DP+(217D0-0.5D0*T)*SIN(A)
+      DE=DE+(-95D0+0.3D0*T)*COS(A)
+*  11
+      A=ELP+F2-D2+OM2
+      DP=DP+(-517D0+1.2D0*T)*SIN(A)
+      DE=DE+(224D0-0.6D0*T)*COS(A)
+*  10
+      DP=DP+(1426D0-3.4D0*T)*SIN(ELP)
+      DE=DE+(54D0-0.1D0*T)*COS(ELP)
+*  9
+      A=F2-D2+OM2
+      DP=DP+(-13187D0-1.6D0*T)*SIN(A)
+      DE=DE+(5736D0-3.1D0*T)*COS(A)
+*  8
+      DP=DP+SIN(EL2-F2+OM)
+*  7
+      A=-ELP2+F2-D2+OM
+      DP=DP-2D0*SIN(A)
+      DE=DE+1D0*COS(A)
+*  6
+      DP=DP-3D0*SIN(EL-ELP-D)
+*  5
+      A=-EL2+F2+OM2
+      DP=DP-3D0*SIN(A)
+      DE=DE+1D0*COS(A)
+*  4
+      DP=DP+11D0*SIN(EL2-F2)
+*  3
+      A=-EL2+F2+OM
+      DP=DP+46D0*SIN(A)
+      DE=DE-24D0*COS(A)
+*  2
+      DP=DP+(2062D0+0.2D0*T)*SIN(OM2)
+      DE=DE+(-895D0+0.5D0*T)*COS(OM2)
+*  1
+      DP=DP+(-171996D0-174.2D0*T)*SIN(OM)
+      DE=DE+(92025D0+8.9D0*T)*COS(OM)
+
+*  Convert results to radians
+      DPSI=DP*U2R
+      DEPS=DE*U2R
+
+*  Mean obliquity
+      EPS0=AS2R*(84381.448D0+
+     :           (-46.8150D0+
+     :           (-0.00059D0+
+     :           0.001813D0*T)*T)*T)
+
+      END
diff --git a/src/slalib/oap.f b/src/slalib/oap.f
new file mode 100644
index 0000000..6376397
--- /dev/null
+++ b/src/slalib/oap.f
@@ -0,0 +1,172 @@
+      SUBROUTINE sla_OAP (TYPE, OB1, OB2, DATE, DUT, ELONGM, PHIM,
+     :                    HM, XP, YP, TDK, PMB, RH, WL, TLR,
+     :                    RAP, DAP)
+*+
+*     - - - -
+*      O A P
+*     - - - -
+*
+*  Observed to apparent place
+*
+*  Given:
+*     TYPE   c*(*)  type of coordinates - 'R', 'H' or 'A' (see below)
+*     OB1    d      observed Az, HA or RA (radians; Az is N=0,E=90)
+*     OB2    d      observed ZD or Dec (radians)
+*     DATE   d      UTC date/time (modified Julian Date, JD-2400000.5)
+*     DUT    d      delta UT:  UT1-UTC (UTC seconds)
+*     ELONGM d      mean longitude of the observer (radians, east +ve)
+*     PHIM   d      mean geodetic latitude of the observer (radians)
+*     HM     d      observer's height above sea level (metres)
+*     XP     d      polar motion x-coordinate (radians)
+*     YP     d      polar motion y-coordinate (radians)
+*     TDK    d      local ambient temperature (DegK; std=273.155D0)
+*     PMB    d      local atmospheric pressure (mB; std=1013.25D0)
+*     RH     d      local relative humidity (in the range 0D0-1D0)
+*     WL     d      effective wavelength (micron, e.g. 0.55D0)
+*     TLR    d      tropospheric lapse rate (DegK/metre, e.g. 0.0065D0)
+*
+*  Returned:
+*     RAP    d      geocentric apparent right ascension
+*     DAP    d      geocentric apparent declination
+*
+*  Notes:
+*
+*  1)  Only the first character of the TYPE argument is significant.
+*      'R' or 'r' indicates that OBS1 and OBS2 are the observed Right
+*      Ascension and Declination;  'H' or 'h' indicates that they are
+*      Hour Angle (West +ve) and Declination;  anything else ('A' or
+*      'a' is recommended) indicates that OBS1 and OBS2 are Azimuth
+*      (North zero, East is 90 deg) and zenith distance.  (Zenith
+*      distance is used rather than elevation in order to reflect the
+*      fact that no allowance is made for depression of the horizon.)
+*
+*  2)  The accuracy of the result is limited by the corrections for
+*      refraction.  Providing the meteorological parameters are
+*      known accurately and there are no gross local effects, the
+*      predicted apparent RA,Dec should be within about 0.1 arcsec
+*      for a zenith distance of less than 70 degrees.  Even at a
+*      topocentric zenith distance of 90 degrees, the accuracy in
+*      elevation should be better than 1 arcmin;  useful results
+*      are available for a further 3 degrees, beyond which the
+*      sla_REFRO routine returns a fixed value of the refraction.
+*      The complementary routines sla_AOP (or sla_AOPQK) and sla_OAP
+*      (or sla_OAPQK) are self-consistent to better than 1 micro-
+*      arcsecond all over the celestial sphere.
+*
+*  3)  It is advisable to take great care with units, as even
+*      unlikely values of the input parameters are accepted and
+*      processed in accordance with the models used.
+*
+*  4)  "Observed" Az,El means the position that would be seen by a
+*      perfect theodolite located at the observer.  This is
+*      related to the observed HA,Dec via the standard rotation, using
+*      the geodetic latitude (corrected for polar motion), while the
+*      observed HA and RA are related simply through the local
+*      apparent ST.  "Observed" RA,Dec or HA,Dec thus means the
+*      position that would be seen by a perfect equatorial located
+*      at the observer and with its polar axis aligned to the
+*      Earth's axis of rotation (n.b. not to the refracted pole).
+*      By removing from the observed place the effects of
+*      atmospheric refraction and diurnal aberration, the
+*      geocentric apparent RA,Dec is obtained.
+*
+*  5)  Frequently, mean rather than apparent RA,Dec will be required,
+*      in which case further transformations will be necessary.  The
+*      sla_AMP etc routines will convert the apparent RA,Dec produced
+*      by the present routine into an "FK5" (J2000) mean place, by
+*      allowing for the Sun's gravitational lens effect, annual
+*      aberration, nutation and precession.  Should "FK4" (1950)
+*      coordinates be needed, the routines sla_FK524 etc will also
+*      need to be applied.
+*
+*  6)  To convert to apparent RA,Dec the coordinates read from a
+*      real telescope, corrections would have to be applied for
+*      encoder zero points, gear and encoder errors, tube flexure,
+*      the position of the rotator axis and the pointing axis
+*      relative to it, non-perpendicularity between the mounting
+*      axes, and finally for the tilt of the azimuth or polar axis
+*      of the mounting (with appropriate corrections for mount
+*      flexures).  Some telescopes would, of course, exhibit other
+*      properties which would need to be accounted for at the
+*      appropriate point in the sequence.
+*
+*  7)  The star-independent apparent-to-observed-place parameters
+*      in AOPRMS may be computed by means of the sla_AOPPA routine.
+*      If nothing has changed significantly except the time, the
+*      sla_AOPPAT routine may be used to perform the requisite
+*      partial recomputation of AOPRMS.
+*
+*  8)  The DATE argument is UTC expressed as an MJD.  This is,
+*      strictly speaking, wrong, because of leap seconds.  However,
+*      as long as the delta UT and the UTC are consistent there
+*      are no difficulties, except during a leap second.  In this
+*      case, the start of the 61st second of the final minute should
+*      begin a new MJD day and the old pre-leap delta UT should
+*      continue to be used.  As the 61st second completes, the MJD
+*      should revert to the start of the day as, simultaneously,
+*      the delta UTC changes by one second to its post-leap new value.
+*
+*  9)  The delta UT (UT1-UTC) is tabulated in IERS circulars and
+*      elsewhere.  It increases by exactly one second at the end of
+*      each UTC leap second, introduced in order to keep delta UT
+*      within +/- 0.9 seconds.
+*
+*  10) IMPORTANT -- TAKE CARE WITH THE LONGITUDE SIGN CONVENTION.
+*      The longitude required by the present routine is east-positive,
+*      in accordance with geographical convention (and right-handed).
+*      In particular, note that the longitudes returned by the
+*      sla_OBS routine are west-positive, following astronomical
+*      usage, and must be reversed in sign before use in the present
+*      routine.
+*
+*  11) The polar coordinates XP,YP can be obtained from IERS
+*      circulars and equivalent publications.  The maximum amplitude
+*      is about 0.3 arcseconds.  If XP,YP values are unavailable,
+*      use XP=YP=0D0.  See page B60 of the 1988 Astronomical Almanac
+*      for a definition of the two angles.
+*
+*  12) The height above sea level of the observing station, HM,
+*      can be obtained from the Astronomical Almanac (Section J
+*      in the 1988 edition), or via the routine sla_OBS.  If P,
+*      the pressure in millibars, is available, an adequate
+*      estimate of HM can be obtained from the expression
+*
+*             HM ~ -29.3D0*TSL*LOG(P/1013.25D0).
+*
+*      where TSL is the approximate sea-level air temperature in
+*      deg K (see Astrophysical Quantities, C.W.Allen, 3rd edition,
+*      section 52).  Similarly, if the pressure P is not known,
+*      it can be estimated from the height of the observing
+*      station, HM as follows:
+*
+*             P ~ 1013.25D0*EXP(-HM/(29.3D0*TSL)).
+*
+*      Note, however, that the refraction is proportional to the
+*      pressure and that an accurate P value is important for
+*      precise work.
+*
+*  13) The azimuths etc used by the present routine are with respect
+*      to the celestial pole.  Corrections from the terrestrial pole
+*      can be computed using sla_POLMO.
+*
+*  Called:  sla_AOPPA, sla_OAPQK
+*
+*  P.T.Wallace   Starlink   6 September 1999
+*
+*  Copyright (C) 1999 P.T.Wallace and CCLRC
+*-
+
+      IMPLICIT NONE
+
+      CHARACTER*(*) TYPE
+      DOUBLE PRECISION OB1,OB2,DATE,DUT,ELONGM,PHIM,HM,
+     :                 XP,YP,TDK,PMB,RH,WL,TLR,RAP,DAP
+
+      DOUBLE PRECISION AOPRMS(14)
+
+
+      CALL sla_AOPPA(DATE,DUT,ELONGM,PHIM,HM,XP,YP,TDK,PMB,RH,WL,TLR,
+     :               AOPRMS)
+      CALL sla_OAPQK(TYPE,OB1,OB2,AOPRMS,RAP,DAP)
+
+      END
diff --git a/src/slalib/oapqk.f b/src/slalib/oapqk.f
new file mode 100644
index 0000000..c50feb1
--- /dev/null
+++ b/src/slalib/oapqk.f
@@ -0,0 +1,233 @@
+      SUBROUTINE sla_OAPQK (TYPE, OB1, OB2, AOPRMS, RAP, DAP)
+*+
+*     - - - - - -
+*      O A P Q K
+*     - - - - - -
+*
+*  Quick observed to apparent place
+*
+*  Given:
+*     TYPE   c*(*)  type of coordinates - 'R', 'H' or 'A' (see below)
+*     OB1    d      observed Az, HA or RA (radians; Az is N=0,E=90)
+*     OB2    d      observed ZD or Dec (radians)
+*     AOPRMS d(14)  star-independent apparent-to-observed parameters:
+*
+*       (1)      geodetic latitude (radians)
+*       (2,3)    sine and cosine of geodetic latitude
+*       (4)      magnitude of diurnal aberration vector
+*       (5)      height (HM)
+*       (6)      ambient temperature (T)
+*       (7)      pressure (P)
+*       (8)      relative humidity (RH)
+*       (9)      wavelength (WL)
+*       (10)     lapse rate (TLR)
+*       (11,12)  refraction constants A and B (radians)
+*       (13)     longitude + eqn of equinoxes + sidereal DUT (radians)
+*       (14)     local apparent sidereal time (radians)
+*
+*  Returned:
+*     RAP    d      geocentric apparent right ascension
+*     DAP    d      geocentric apparent declination
+*
+*  Notes:
+*
+*  1)  Only the first character of the TYPE argument is significant.
+*      'R' or 'r' indicates that OBS1 and OBS2 are the observed Right
+*      Ascension and Declination;  'H' or 'h' indicates that they are
+*      Hour Angle (West +ve) and Declination;  anything else ('A' or
+*      'a' is recommended) indicates that OBS1 and OBS2 are Azimuth
+*      (North zero, East is 90 deg) and zenith distance.  (Zenith
+*      distance is used rather than elevation in order to reflect the
+*      fact that no allowance is made for depression of the horizon.)
+*
+*  2)  The accuracy of the result is limited by the corrections for
+*      refraction.  Providing the meteorological parameters are
+*      known accurately and there are no gross local effects, the
+*      predicted apparent RA,Dec should be within about 0.1 arcsec
+*      for a zenith distance of less than 70 degrees.  Even at a
+*      topocentric zenith distance of 90 degrees, the accuracy in
+*      elevation should be better than 1 arcmin;  useful results
+*      are available for a further 3 degrees, beyond which the
+*      sla_REFRO routine returns a fixed value of the refraction.
+*      The complementary routines sla_AOP (or sla_AOPQK) and sla_OAP
+*      (or sla_OAPQK) are self-consistent to better than 1 micro-
+*      arcsecond all over the celestial sphere.
+*
+*  3)  It is advisable to take great care with units, as even
+*      unlikely values of the input parameters are accepted and
+*      processed in accordance with the models used.
+*
+*  5)  "Observed" Az,El means the position that would be seen by a
+*      perfect theodolite located at the observer.  This is
+*      related to the observed HA,Dec via the standard rotation, using
+*      the geodetic latitude (corrected for polar motion), while the
+*      observed HA and RA are related simply through the local
+*      apparent ST.  "Observed" RA,Dec or HA,Dec thus means the
+*      position that would be seen by a perfect equatorial located
+*      at the observer and with its polar axis aligned to the
+*      Earth's axis of rotation (n.b. not to the refracted pole).
+*      By removing from the observed place the effects of
+*      atmospheric refraction and diurnal aberration, the
+*      geocentric apparent RA,Dec is obtained.
+*
+*  5)  Frequently, mean rather than apparent RA,Dec will be required,
+*      in which case further transformations will be necessary.  The
+*      sla_AMP etc routines will convert the apparent RA,Dec produced
+*      by the present routine into an "FK5" (J2000) mean place, by
+*      allowing for the Sun's gravitational lens effect, annual
+*      aberration, nutation and precession.  Should "FK4" (1950)
+*      coordinates be needed, the routines sla_FK524 etc will also
+*      need to be applied.
+*
+*  6)  To convert to apparent RA,Dec the coordinates read from a
+*      real telescope, corrections would have to be applied for
+*      encoder zero points, gear and encoder errors, tube flexure,
+*      the position of the rotator axis and the pointing axis
+*      relative to it, non-perpendicularity between the mounting
+*      axes, and finally for the tilt of the azimuth or polar axis
+*      of the mounting (with appropriate corrections for mount
+*      flexures).  Some telescopes would, of course, exhibit other
+*      properties which would need to be accounted for at the
+*      appropriate point in the sequence.
+*
+*  7)  The star-independent apparent-to-observed-place parameters
+*      in AOPRMS may be computed by means of the sla_AOPPA routine.
+*      If nothing has changed significantly except the time, the
+*      sla_AOPPAT routine may be used to perform the requisite
+*      partial recomputation of AOPRMS.
+*
+*  8) The azimuths etc used by the present routine are with respect
+*     to the celestial pole.  Corrections from the terrestrial pole
+*     can be computed using sla_POLMO.
+*
+*  Called:  sla_DCS2C, sla_DCC2S, sla_REFRO, sla_DRANRM
+*
+*  P.T.Wallace   Starlink   23 June 1997
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      CHARACTER*(*) TYPE
+      DOUBLE PRECISION OB1,OB2,AOPRMS(14),RAP,DAP
+
+*  Breakpoint for fast/slow refraction algorithm:
+*  ZD greater than arctan(4), (see sla_REFCO routine)
+*  or vector Z less than cosine(arctan(Z)) = 1/sqrt(17)
+      DOUBLE PRECISION ZBREAK
+      PARAMETER (ZBREAK=0.242535625D0)
+
+      CHARACTER C
+      DOUBLE PRECISION C1,C2,SPHI,CPHI,ST,CE,XAEO,YAEO,ZAEO,V(3),
+     :                 XMHDO,YMHDO,ZMHDO,AZ,SZ,ZDO,TZ,DREF,ZDT,
+     :                 XAET,YAET,ZAET,XMHDA,YMHDA,ZMHDA,DIURAB,F,HMA
+
+      DOUBLE PRECISION sla_DRANRM
+
+
+
+*  Coordinate type
+      C = TYPE(1:1)
+
+*  Coordinates
+      C1 = OB1
+      C2 = OB2
+
+*  Sin, cos of latitude
+      SPHI = AOPRMS(2)
+      CPHI = AOPRMS(3)
+
+*  Local apparent sidereal time
+      ST = AOPRMS(14)
+
+*  Standardise coordinate type
+      IF (C.EQ.'R'.OR.C.EQ.'r') THEN
+         C = 'R'
+      ELSE IF (C.EQ.'H'.OR.C.EQ.'h') THEN
+         C = 'H'
+      ELSE
+         C = 'A'
+      END IF
+
+*  If Az,ZD convert to Cartesian (S=0,E=90)
+      IF (C.EQ.'A') THEN
+         CE = SIN(C2)
+         XAEO = -COS(C1)*CE
+         YAEO = SIN(C1)*CE
+         ZAEO = COS(C2)
+      ELSE
+
+*     If RA,Dec convert to HA,Dec
+         IF (C.EQ.'R') THEN
+            C1 = ST-C1
+         END IF
+
+*     To Cartesian -HA,Dec
+         CALL sla_DCS2C(-C1,C2,V)
+         XMHDO = V(1)
+         YMHDO = V(2)
+         ZMHDO = V(3)
+
+*     To Cartesian Az,El (S=0,E=90)
+         XAEO = SPHI*XMHDO-CPHI*ZMHDO
+         YAEO = YMHDO
+         ZAEO = CPHI*XMHDO+SPHI*ZMHDO
+      END IF
+
+*  Azimuth (S=0,E=90)
+      IF (XAEO.NE.0D0.OR.YAEO.NE.0D0) THEN
+         AZ = ATAN2(YAEO,XAEO)
+      ELSE
+         AZ = 0D0
+      END IF
+
+*  Sine of observed ZD, and observed ZD
+      SZ = SQRT(XAEO*XAEO+YAEO*YAEO)
+      ZDO = ATAN2(SZ,ZAEO)
+
+*
+*  Refraction
+*  ----------
+
+*  Large zenith distance?
+      IF (ZAEO.GE.ZBREAK) THEN
+
+*     Fast algorithm using two constant model
+         TZ = SZ/ZAEO
+         DREF = AOPRMS(11)*TZ+AOPRMS(12)*TZ*TZ*TZ
+
+      ELSE
+
+*     Rigorous algorithm for large ZD
+         CALL sla_REFRO(ZDO,AOPRMS(5),AOPRMS(6),AOPRMS(7),AOPRMS(8),
+     :                  AOPRMS(9),AOPRMS(1),AOPRMS(10),1D-8,DREF)
+      END IF
+
+      ZDT = ZDO+DREF
+
+*  To Cartesian Az,ZD
+      CE = SIN(ZDT)
+      XAET = COS(AZ)*CE
+      YAET = SIN(AZ)*CE
+      ZAET = COS(ZDT)
+
+*  Cartesian Az,ZD to Cartesian -HA,Dec
+      XMHDA = SPHI*XAET+CPHI*ZAET
+      YMHDA = YAET
+      ZMHDA = -CPHI*XAET+SPHI*ZAET
+
+*  Diurnal aberration
+      DIURAB = -AOPRMS(4)
+      F = (1D0-DIURAB*YMHDA)
+      V(1) = F*XMHDA
+      V(2) = F*(YMHDA+DIURAB)
+      V(3) = F*ZMHDA
+
+*  To spherical -HA,Dec
+      CALL sla_DCC2S(V,HMA,DAP)
+
+*  Right Ascension
+      RAP = sla_DRANRM(ST+HMA)
+
+      END
diff --git a/src/slalib/obs.f b/src/slalib/obs.f
new file mode 100644
index 0000000..756678b
--- /dev/null
+++ b/src/slalib/obs.f
@@ -0,0 +1,844 @@
+      SUBROUTINE sla_OBS (N, C, NAME, W, P, H)
+*+
+*     - - - -
+*      O B S
+*     - - - -
+*
+*  Parameters of selected groundbased observing stations
+*
+*  Given:
+*     N       int     number specifying observing station
+*
+*  Either given or returned
+*     C       c*(*)   identifier specifying observing station
+*
+*  Returned:
+*     NAME    c*(*)   name of specified observing station
+*     W       dp      longitude (radians, West +ve)
+*     P       dp      geodetic latitude (radians, North +ve)
+*     H       dp      height above sea level (metres)
+*
+*  Notes:
+*
+*     Station identifiers C may be up to 10 characters long,
+*     and station names NAME may be up to 40 characters long.
+*
+*     C and N are alternative ways of specifying the observing
+*     station.  The C option, which is the most generally useful,
+*     may be selected by specifying an N value of zero or less.
+*     If N is 1 or more, the parameters of the Nth station
+*     in the currently supported list are interrogated, and
+*     the station identifier C is returned as well as NAME, W,
+*     P and H.
+*
+*     If the station parameters are not available, either because
+*     the station identifier C is not recognized, or because an
+*     N value greater than the number of stations supported is
+*     given, a name of '?' is returned and C, W, P and H are left
+*     in their current states.
+*
+*     Programs can obtain a list of all currently supported
+*     stations by calling the routine repeatedly, with N=1,2,3...
+*     When NAME='?' is seen, the list of stations has been
+*     exhausted.
+*
+*     Station numbers, identifiers, names and other details are
+*     subject to change and should not be hardwired into
+*     application programs.
+*
+*     All station identifiers C are uppercase only;  lowercase
+*     characters must be converted to uppercase by the calling
+*     program.  The station names returned may contain both upper-
+*     and lowercase.  All characters up to the first space are
+*     checked;  thus an abbreviated ID will return the parameters
+*     for the first station in the list which matches the
+*     abbreviation supplied, and no station in the list will ever
+*     contain embedded spaces.  C must not have leading spaces.
+*
+*     IMPORTANT -- BEWARE OF THE LONGITUDE SIGN CONVENTION.  The
+*     longitude returned by sla_OBS is west-positive in accordance
+*     with astronomical usage.  However, this sign convention is
+*     left-handed and is the opposite of the one used by geographers;
+*     elsewhere in SLALIB the preferable east-positive convention is
+*     used.  In particular, note that for use in sla_AOP, sla_AOPPA
+*     and sla_OAP the sign of the longitude must be reversed.
+*
+*     Users are urged to inform the author of any improvements
+*     they would like to see made.  For example:
+*
+*         typographical corrections
+*         more accurate parameters
+*         better station identifiers or names
+*         additional stations
+*
+*  P.T.Wallace   Starlink   21 April 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER N
+      CHARACTER C*(*),NAME*(*)
+      DOUBLE PRECISION W,P,H
+
+      INTEGER NMAX,M,NS,I
+      CHARACTER*10 CC
+
+      DOUBLE PRECISION AS2R,WEST,NORTH,EAST,SOUTH
+      INTEGER ID,IAM
+      REAL AS
+      PARAMETER (AS2R=0.484813681109535994D-5)
+
+*  Table of station identifiers
+      PARAMETER (NMAX=75)
+      CHARACTER*10 CTAB(NMAX)
+      DATA CTAB  (1) /'AAT       '/
+      DATA CTAB  (2) /'LPO4.2    '/
+      DATA CTAB  (3) /'LPO2.5    '/
+      DATA CTAB  (4) /'LPO1      '/
+      DATA CTAB  (5) /'LICK120   '/
+      DATA CTAB  (6) /'MMT       '/
+      DATA CTAB  (7) /'DAO72     '/
+      DATA CTAB  (8) /'DUPONT    '/
+      DATA CTAB  (9) /'MTHOP1.5  '/
+      DATA CTAB (10) /'STROMLO74 '/
+      DATA CTAB (11) /'ANU2.3    '/
+      DATA CTAB (12) /'GBVA140   '/
+      DATA CTAB (13) /'TOLOLO4M  '/
+      DATA CTAB (14) /'TOLOLO1.5M'/
+      DATA CTAB (15) /'TIDBINBLA '/
+      DATA CTAB (16) /'BLOEMF    '/
+      DATA CTAB (17) /'BOSQALEGRE'/
+      DATA CTAB (18) /'FLAGSTF61 '/
+      DATA CTAB (19) /'LOWELL72  '/
+      DATA CTAB (20) /'HARVARD   '/
+      DATA CTAB (21) /'OKAYAMA   '/
+      DATA CTAB (22) /'KPNO158   '/
+      DATA CTAB (23) /'KPNO90    '/
+      DATA CTAB (24) /'KPNO84    '/
+      DATA CTAB (25) /'KPNO36FT  '/
+      DATA CTAB (26) /'KOTTAMIA  '/
+      DATA CTAB (27) /'ESO3.6    '/
+      DATA CTAB (28) /'MAUNAK88  '/
+      DATA CTAB (29) /'UKIRT     '/
+      DATA CTAB (30) /'QUEBEC1.6 '/
+      DATA CTAB (31) /'MTEKAR    '/
+      DATA CTAB (32) /'MTLEMMON60'/
+      DATA CTAB (33) /'MCDONLD2.7'/
+      DATA CTAB (34) /'MCDONLD2.1'/
+      DATA CTAB (35) /'PALOMAR200'/
+      DATA CTAB (36) /'PALOMAR60 '/
+      DATA CTAB (37) /'DUNLAP74  '/
+      DATA CTAB (38) /'HPROV1.93 '/
+      DATA CTAB (39) /'HPROV1.52 '/
+      DATA CTAB (40) /'SANPM83   '/
+      DATA CTAB (41) /'SAAO74    '/
+      DATA CTAB (42) /'TAUTNBG   '/
+      DATA CTAB (43) /'CATALINA61'/
+      DATA CTAB (44) /'STEWARD90 '/
+      DATA CTAB (45) /'USSR6     '/
+      DATA CTAB (46) /'ARECIBO   '/
+      DATA CTAB (47) /'CAMB5KM   '/
+      DATA CTAB (48) /'CAMB1MILE '/
+      DATA CTAB (49) /'EFFELSBERG'/
+      DATA CTAB (50) /'GBVA300   '/
+      DATA CTAB (51) /'JODRELL1  '/
+      DATA CTAB (52) /'PARKES    '/
+      DATA CTAB (53) /'VLA       '/
+      DATA CTAB (54) /'SUGARGROVE'/
+      DATA CTAB (55) /'USSR600   '/
+      DATA CTAB (56) /'NOBEYAMA  '/
+      DATA CTAB (57) /'JCMT      '/
+      DATA CTAB (58) /'ESONTT    '/
+      DATA CTAB (59) /'ST.ANDREWS'/
+      DATA CTAB (60) /'APO3.5    '/
+      DATA CTAB (61) /'KECK1     '/
+      DATA CTAB (62) /'TAUTSCHM  '/
+      DATA CTAB (63) /'PALOMAR48 '/
+      DATA CTAB (64) /'UKST      '/
+      DATA CTAB (65) /'KISO      '/
+      DATA CTAB (66) /'ESOSCHM   '/
+      DATA CTAB (67) /'ATCA      '/
+      DATA CTAB (68) /'MOPRA     '/
+      DATA CTAB (69) /'SUBARU    '/
+      DATA CTAB (70) /'CFHT      '/
+      DATA CTAB (71) /'KECK2     '/
+      DATA CTAB (72) /'GEMININ   '/
+      DATA CTAB (73) /'FCRAO     '/
+      DATA CTAB (74) /'IRTF      '/
+      DATA CTAB (75) /'CSO       '/
+
+*  Degrees, arcminutes, arcseconds to radians
+      WEST(ID,IAM,AS)=AS2R*(DBLE(60*(60*ID+IAM))+DBLE(AS))
+      NORTH(ID,IAM,AS)=WEST(ID,IAM,AS)
+      EAST(ID,IAM,AS)=-WEST(ID,IAM,AS)
+      SOUTH(ID,IAM,AS)=-WEST(ID,IAM,AS)
+
+
+
+
+*  Station specified by number or identifier?
+      IF (N.GT.0) THEN
+
+*     Station specified by number
+         M=N
+         IF (M.LE.NMAX) C=CTAB(M)
+
+      ELSE
+
+*     Station specified by identifier:  determine corresponding number
+         CC=C
+         DO NS=1,NMAX
+            DO I=1,10
+               IF (CC(I:I).EQ.' ') GO TO 5
+               IF (CC(I:I).NE.CTAB(NS)(I:I)) GO TO 1
+            END DO
+            GO TO 5
+ 1          CONTINUE
+         END DO
+         NS=NMAX+1
+ 5       CONTINUE
+         IF (C(1:1).NE.' ') THEN
+            M=NS
+         ELSE
+            M=NMAX+1
+         END IF
+
+      END IF
+
+*
+*  Return parameters of Mth station
+*  --------------------------------
+
+      GO TO (10,20,30,40,50,60,70,80,90,100,
+     :       110,120,130,140,150,160,170,180,190,200,
+     :       210,220,230,240,250,260,270,280,290,300,
+     :       310,320,330,340,350,360,370,380,390,400,
+     :       410,420,430,440,450,460,470,480,490,500,
+     :       510,520,530,540,550,560,570,580,590,600,
+     :       610,620,630,640,650,660,670,680,690,700,
+     :       710,720,730,740,750) M
+      GO TO 9000
+
+*  AAT (Observer's Guide)                                            AAT
+ 10   CONTINUE
+      NAME='Anglo-Australian 3.9m Telescope'
+      W=EAST(149,03,57.91)
+      P=SOUTH(31,16,37.34)
+      H=1164D0
+      GO TO 9999
+
+*  WHT (Gemini, April 1987)                                       LPO4.2
+ 20   CONTINUE
+      NAME='William Herschel 4.2m Telescope'
+      W=WEST(17,52,53.9)
+      P=NORTH(28,45,38.1)
+      H=2332D0
+      GO TO 9999
+
+*  INT (Gemini, April 1987)                                       LPO2.5
+ 30   CONTINUE
+      NAME='Isaac Newton 2.5m Telescope'
+      W=WEST(17,52,39.5)
+      P=NORTH(28,45,43.2)
+      H=2336D0
+      GO TO 9999
+
+*  JKT (Gemini, April 1987)                                         LPO1
+ 40   CONTINUE
+      NAME='Jacobus Kapteyn 1m Telescope'
+      W=WEST(17,52,41.2)
+      P=NORTH(28,45,39.9)
+      H=2364D0
+      GO TO 9999
+
+*  Lick 120" (1984 Almanac)                                      LICK120
+ 50   CONTINUE
+      NAME='Lick 120 inch'
+      W=WEST(121,38,09.9)
+      P=NORTH(37,20,35.2)
+      H=1290D0
+      GO TO 9999
+
+*  MMT 6.5m conversion (MMT Observatory website)                     MMT
+ 60   CONTINUE
+      NAME='MMT 6.5m, Mt Hopkins'
+      W=WEST(110,53,04.4)
+      P=NORTH(31,41,19.6)
+      H=2608D0
+      GO TO 9999
+
+*  Victoria B.C. 1.85m (1984 Almanac)                              DAO72
+ 70   CONTINUE
+      NAME='DAO Victoria BC 1.85 metre'
+      W=WEST(123,25,01.18)
+      P=NORTH(48,31,11.9)
+      H=238D0
+      GO TO 9999
+
+*  Las Campanas (1983 Almanac)                                    DUPONT
+ 80   CONTINUE
+      NAME='Du Pont 2.5m Telescope, Las Campanas'
+      W=WEST(70,42,9.)
+      P=SOUTH(29,00,11.)
+      H=2280D0
+      GO TO 9999
+
+*  Mt Hopkins 1.5m (1983 Almanac)                               MTHOP1.5
+ 90   CONTINUE
+      NAME='Mt Hopkins 1.5 metre'
+      W=WEST(110,52,39.00)
+      P=NORTH(31,40,51.4)
+      H=2344D0
+      GO TO 9999
+
+*  Mt Stromlo 74" (1983 Almanac)                               STROMLO74
+ 100  CONTINUE
+      NAME='Mount Stromlo 74 inch'
+      W=EAST(149,00,27.59)
+      P=SOUTH(35,19,14.3)
+      H=767D0
+      GO TO 9999
+
+*  ANU 2.3m, SSO (Gary Hovey)                                     ANU2.3
+ 110  CONTINUE
+      NAME='Siding Spring 2.3 metre'
+      W=EAST(149,03,40.3)
+      P=SOUTH(31,16,24.1)
+      H=1149D0
+      GO TO 9999
+
+*  Greenbank 140' (1983 Almanac)                                 GBVA140
+ 120  CONTINUE
+      NAME='Greenbank 140 foot'
+      W=WEST(79,50,09.61)
+      P=NORTH(38,26,15.4)
+      H=881D0
+      GO TO 9999
+
+*  Cerro Tololo 4m (1982 Almanac)                               TOLOLO4M
+ 130  CONTINUE
+      NAME='Cerro Tololo 4 metre'
+      W=WEST(70,48,53.6)
+      P=SOUTH(30,09,57.8)
+      H=2235D0
+      GO TO 9999
+
+*  Cerro Tololo 1.5m (1982 Almanac)                           TOLOLO1.5M
+ 140  CONTINUE
+      NAME='Cerro Tololo 1.5 metre'
+      W=WEST(70,48,54.5)
+      P=SOUTH(30,09,56.3)
+      H=2225D0
+      GO TO 9999
+
+*  Tidbinbilla 64m (1982 Almanac)                              TIDBINBLA
+ 150  CONTINUE
+      NAME='Tidbinbilla 64 metre'
+      W=EAST(148,58,48.20)
+      P=SOUTH(35,24,14.3)
+      H=670D0
+      GO TO 9999
+
+*  Bloemfontein 1.52m (1981 Almanac)                              BLOEMF
+ 160  CONTINUE
+      NAME='Bloemfontein 1.52 metre'
+      W=EAST(26,24,18.)
+      P=SOUTH(29,02,18.)
+      H=1387D0
+      GO TO 9999
+
+*  Bosque Alegre 1.54m (1981 Almanac)                         BOSQALEGRE
+ 170  CONTINUE
+      NAME='Bosque Alegre 1.54 metre'
+      W=WEST(64,32,48.0)
+      P=SOUTH(31,35,53.)
+      H=1250D0
+      GO TO 9999
+
+*  USNO 61" astrographic reflector, Flagstaff (1981 Almanac)   FLAGSTF61
+ 180  CONTINUE
+      NAME='USNO 61 inch astrograph, Flagstaff'
+      W=WEST(111,44,23.6)
+      P=NORTH(35,11,02.5)
+      H=2316D0
+      GO TO 9999
+
+*  Lowell 72" (1981 Almanac)                                    LOWELL72
+ 190  CONTINUE
+      NAME='Perkins 72 inch, Lowell'
+      W=WEST(111,32,09.3)
+      P=NORTH(35,05,48.6)
+      H=2198D0
+      GO TO 9999
+
+*  Harvard 1.55m (1981 Almanac)                                  HARVARD
+ 200  CONTINUE
+      NAME='Harvard College Observatory 1.55m'
+      W=WEST(71,33,29.32)
+      P=NORTH(42,30,19.0)
+      H=185D0
+      GO TO 9999
+
+*  Okayama 1.88m (1981 Almanac)                                  OKAYAMA
+ 210  CONTINUE
+      NAME='Okayama 1.88 metre'
+      W=EAST(133,35,47.29)
+      P=NORTH(34,34,26.1)
+      H=372D0
+      GO TO 9999
+
+*  Kitt Peak Mayall 4m (1981 Almanac)                            KPNO158
+ 220  CONTINUE
+      NAME='Kitt Peak 158 inch'
+      W=WEST(111,35,57.61)
+      P=NORTH(31,57,50.3)
+      H=2120D0
+      GO TO 9999
+
+*  Kitt Peak 90 inch (1981 Almanac)                               KPNO90
+ 230  CONTINUE
+      NAME='Kitt Peak 90 inch'
+      W=WEST(111,35,58.24)
+      P=NORTH(31,57,46.9)
+      H=2071D0
+      GO TO 9999
+
+*  Kitt Peak 84 inch (1981 Almanac)                               KPNO84
+ 240  CONTINUE
+      NAME='Kitt Peak 84 inch'
+      W=WEST(111,35,51.56)
+      P=NORTH(31,57,29.2)
+      H=2096D0
+      GO TO 9999
+
+*  Kitt Peak 36 foot (1981 Almanac)                             KPNO36FT
+ 250  CONTINUE
+      NAME='Kitt Peak 36 foot'
+      W=WEST(111,36,51.12)
+      P=NORTH(31,57,12.1)
+      H=1939D0
+      GO TO 9999
+
+*  Kottamia 74" (1981 Almanac)                                  KOTTAMIA
+ 260  CONTINUE
+      NAME='Kottamia 74 inch'
+      W=EAST(31,49,30.)
+      P=NORTH(29,55,54.)
+      H=476D0
+      GO TO 9999
+
+*  La Silla 3.6m (1981 Almanac)                                   ESO3.6
+ 270  CONTINUE
+      NAME='ESO 3.6 metre'
+      W=WEST(70,43,36.)
+      P=SOUTH(29,15,36.)
+      H=2428D0
+      GO TO 9999
+
+*  Mauna Kea 88 inch                                            MAUNAK88
+*  (IfA website, Richard Wainscoat)
+ 280  CONTINUE
+      NAME='Mauna Kea 88 inch'
+      W=WEST(155,28,09.96)
+      P=NORTH(19,49,22.77)
+      H=4213.6D0
+      GO TO 9999
+
+*  UKIRT (IfA website, Richard Wainscoat)                          UKIRT
+ 290  CONTINUE
+      NAME='UK Infra Red Telescope'
+      W=WEST(155,28,13.18)
+      P=NORTH(19,49,20.75)
+      H=4198.5D0
+      GO TO 9999
+
+*  Quebec 1.6m (1981 Almanac)                                  QUEBEC1.6
+ 300  CONTINUE
+      NAME='Quebec 1.6 metre'
+      W=WEST(71,09,09.7)
+      P=NORTH(45,27,20.6)
+      H=1114D0
+      GO TO 9999
+
+*  Mt Ekar 1.82m (1981 Almanac)                                   MTEKAR
+ 310  CONTINUE
+      NAME='Mt Ekar 1.82 metre'
+      W=EAST(11,34,15.)
+      P=NORTH(45,50,48.)
+      H=1365D0
+      GO TO 9999
+
+*  Mt Lemmon 60" (1981 Almanac)                               MTLEMMON60
+ 320  CONTINUE
+      NAME='Mt Lemmon 60 inch'
+      W=WEST(110,42,16.9)
+      P=NORTH(32,26,33.9)
+      H=2790D0
+      GO TO 9999
+
+*  Mt Locke 2.7m (1981 Almanac)                               MCDONLD2.7
+ 330  CONTINUE
+      NAME='McDonald 2.7 metre'
+      W=WEST(104,01,17.60)
+      P=NORTH(30,40,17.7)
+      H=2075D0
+      GO TO 9999
+
+*  Mt Locke 2.1m (1981 Almanac)                               MCDONLD2.1
+ 340  CONTINUE
+      NAME='McDonald 2.1 metre'
+      W=WEST(104,01,20.10)
+      P=NORTH(30,40,17.7)
+      H=2075D0
+      GO TO 9999
+
+*  Palomar 200" (1981 Almanac)                                PALOMAR200
+ 350  CONTINUE
+      NAME='Palomar 200 inch'
+      W=WEST(116,51,50.)
+      P=NORTH(33,21,22.)
+      H=1706D0
+      GO TO 9999
+
+*  Palomar 60" (1981 Almanac)                                  PALOMAR60
+ 360  CONTINUE
+      NAME='Palomar 60 inch'
+      W=WEST(116,51,31.)
+      P=NORTH(33,20,56.)
+      H=1706D0
+      GO TO 9999
+
+*  David Dunlap 74" (1981 Almanac)                              DUNLAP74
+ 370  CONTINUE
+      NAME='David Dunlap 74 inch'
+      W=WEST(79,25,20.)
+      P=NORTH(43,51,46.)
+      H=244D0
+      GO TO 9999
+
+*  Haute Provence 1.93m (1981 Almanac)                         HPROV1.93
+ 380  CONTINUE
+      NAME='Haute Provence 1.93 metre'
+      W=EAST(5,42,46.75)
+      P=NORTH(43,55,53.3)
+      H=665D0
+      GO TO 9999
+
+*  Haute Provence 1.52m (1981 Almanac)                         HPROV1.52
+ 390  CONTINUE
+      NAME='Haute Provence 1.52 metre'
+      W=EAST(5,42,43.82)
+      P=NORTH(43,56,00.2)
+      H=667D0
+      GO TO 9999
+
+*  San Pedro Martir 83" (1981 Almanac)                           SANPM83
+ 400  CONTINUE
+      NAME='San Pedro Martir 83 inch'
+      W=WEST(115,27,47.)
+      P=NORTH(31,02,38.)
+      H=2830D0
+      GO TO 9999
+
+*  Sutherland 74" (1981 Almanac)                                  SAAO74
+ 410  CONTINUE
+      NAME='Sutherland 74 inch'
+      W=EAST(20,48,44.3)
+      P=SOUTH(32,22,43.4)
+      H=1771D0
+      GO TO 9999
+
+*  Tautenburg 2m (1981 Almanac)                                  TAUTNBG
+ 420  CONTINUE
+      NAME='Tautenburg 2 metre'
+      W=EAST(11,42,45.)
+      P=NORTH(50,58,51.)
+      H=331D0
+      GO TO 9999
+
+*  Catalina 61" (1981 Almanac)                                CATALINA61
+ 430  CONTINUE
+      NAME='Catalina 61 inch'
+      W=WEST(110,43,55.1)
+      P=NORTH(32,25,00.7)
+      H=2510D0
+      GO TO 9999
+
+*  Steward 90" (1981 Almanac)                                  STEWARD90
+ 440  CONTINUE
+      NAME='Steward 90 inch'
+      W=WEST(111,35,58.24)
+      P=NORTH(31,57,46.9)
+      H=2071D0
+      GO TO 9999
+
+*  Russian 6m (1981 Almanac)                                       USSR6
+ 450  CONTINUE
+      NAME='USSR 6 metre'
+      W=EAST(41,26,30.0)
+      P=NORTH(43,39,12.)
+      H=2100D0
+      GO TO 9999
+
+*  Arecibo 1000' (1981 Almanac)                                  ARECIBO
+ 460  CONTINUE
+      NAME='Arecibo 1000 foot'
+      W=WEST(66,45,11.1)
+      P=NORTH(18,20,36.6)
+      H=496D0
+      GO TO 9999
+
+*  Cambridge 5km (1981 Almanac)                                  CAMB5KM
+ 470  CONTINUE
+      NAME='Cambridge 5km'
+      W=EAST(0,02,37.23)
+      P=NORTH(52,10,12.2)
+      H=17D0
+      GO TO 9999
+
+*  Cambridge 1 mile (1981 Almanac)                             CAMB1MILE
+ 480  CONTINUE
+      NAME='Cambridge 1 mile'
+      W=EAST(0,02,21.64)
+      P=NORTH(52,09,47.3)
+      H=17D0
+      GO TO 9999
+
+*  Bonn 100m (1981 Almanac)                                   EFFELSBERG
+ 490  CONTINUE
+      NAME='Effelsberg 100 metre'
+      W=EAST(6,53,01.5)
+      P=NORTH(50,31,28.6)
+      H=366D0
+      GO TO 9999
+
+*  Greenbank 300' (1981 Almanac)                        GBVA300 (R.I.P.)
+ 500  CONTINUE
+      NAME='Greenbank 300 foot'
+      W=WEST(79,50,56.36)
+      P=NORTH(38,25,46.3)
+      H=894D0
+      GO TO 9999
+
+*  Jodrell Bank Mk 1 (1981 Almanac)                             JODRELL1
+ 510  CONTINUE
+      NAME='Jodrell Bank 250 foot'
+      W=WEST(2,18,25.)
+      P=NORTH(53,14,10.5)
+      H=78D0
+      GO TO 9999
+
+*  Australia Telescope Parkes Observatory                         PARKES
+*  (Peter te Lintel Hekkert, private comm)
+ 520  CONTINUE
+      NAME='Parkes 64 metre'
+      W=EAST(148,15,44.3591)
+      P=SOUTH(32,59,59.8657)
+      H=391.79D0
+      GO TO 9999
+
+*  VLA (1981 Almanac)                                                VLA
+ 530  CONTINUE
+      NAME='Very Large Array'
+      W=WEST(107,37,03.82)
+      P=NORTH(34,04,43.5)
+      H=2124D0
+      GO TO 9999
+
+*  Sugar Grove 150' (1981 Almanac)                            SUGARGROVE
+ 540  CONTINUE
+      NAME='Sugar Grove 150 foot'
+      W=WEST(79,16,23.)
+      P=NORTH(38,31,14.)
+      H=705D0
+      GO TO 9999
+
+*  Russian 600' (1981 Almanac)                                   USSR600
+ 550  CONTINUE
+      NAME='USSR 600 foot'
+      W=EAST(41,35,25.5)
+      P=NORTH(43,49,32.)
+      H=973D0
+      GO TO 9999
+
+*  Nobeyama 45 metre mm dish (based on 1981 Almanac entry)      NOBEYAMA
+ 560  CONTINUE
+      NAME='Nobeyama 45 metre'
+      W=EAST(138,29,12.)
+      P=NORTH(35,56,19.)
+      H=1350D0
+      GO TO 9999
+
+*  James Clerk Maxwell 15 metre mm telescope, Mauna Kea             JCMT
+*  (IfA website, Richard Wainscoat, height from I.Coulson)
+ 570  CONTINUE
+      NAME='JCMT 15 metre'
+      W=WEST(155,28,37.20)
+      P=NORTH(19,49,22.11)
+      H=4111D0
+      GO TO 9999
+
+*  ESO 3.5 metre NTT, La Silla (K.Wirenstrand)                    ESONTT
+ 580  CONTINUE
+      NAME='ESO 3.5 metre NTT'
+      W=WEST(70,43,07.)
+      P=SOUTH(29,15,30.)
+      H=2377D0
+      GO TO 9999
+
+*  St Andrews University Observatory (1982 Almanac)           ST.ANDREWS
+ 590  CONTINUE
+      NAME='St Andrews'
+      W=WEST(2,48,52.5)
+      P=NORTH(56,20,12.)
+      H=30D0
+      GO TO 9999
+
+*  Apache Point 3.5 metre (R.Owen)                                APO3.5
+ 600  CONTINUE
+      NAME='Apache Point 3.5m'
+      W=WEST(105,49,11.56)
+      P=NORTH(32,46,48.96)
+      H=2809D0
+      GO TO 9999
+
+*  W.M.Keck Observatory, Telescope 1                               KECK1
+*  (William Lupton, private comm)
+ 610  CONTINUE
+      NAME='Keck 10m Telescope #1'
+      W=WEST(155,28,28.99)
+      P=NORTH(19,49,33.41)
+      H=4160D0
+      GO TO 9999
+
+*  Tautenberg Schmidt (1983 Almanac)                            TAUTSCHM
+ 620  CONTINUE
+      NAME='Tautenberg 1.34 metre Schmidt'
+      W=EAST(11,42,45.0)
+      P=NORTH(50,58,51.0)
+      H=331D0
+      GO TO 9999
+
+*  Palomar Schmidt (1981 Almanac)                              PALOMAR48
+ 630  CONTINUE
+      NAME='Palomar 48-inch Schmidt'
+      W=WEST(116,51,32.0)
+      P=NORTH(33,21,26.0)
+      H=1706D0
+      GO TO 9999
+
+*  UK Schmidt, Siding Spring (1983 Almanac)                         UKST
+ 640  CONTINUE
+      NAME='UK 1.2 metre Schmidt, Siding Spring'
+      W=EAST(149,04,12.8)
+      P=SOUTH(31,16,27.8)
+      H=1145D0
+      GO TO 9999
+
+*  Kiso Schmidt, Japan (1981 Almanac)                               KISO
+ 650  CONTINUE
+      NAME='Kiso 1.05 metre Schmidt, Japan'
+      W=EAST(137,37,42.2)
+      P=NORTH(35,47,38.7)
+      H=1130D0
+      GO TO 9999
+
+*  ESO Schmidt, La Silla (1981 Almanac)                          ESOSCHM
+ 660  CONTINUE
+      NAME='ESO 1 metre Schmidt, La Silla'
+      W=WEST(70,43,46.5)
+      P=SOUTH(29,15,25.8)
+      H=2347D0
+      GO TO 9999
+
+*  Australia Telescope Compact Array                                ATCA
+*  (WGS84 coordinates of Station 35, Mark Calabretta, private comm)
+ 670  CONTINUE
+      NAME='Australia Telescope Compact Array'
+      W=EAST(149,33,00.500)
+      P=SOUTH(30,18,46.385)
+      H=236.9D0
+      GO TO 9999
+
+*  Australia Telescope Mopra Observatory                           MOPRA
+*  (Peter te Lintel Hekkert, private comm)
+ 680  CONTINUE
+      NAME='ATNF Mopra Observatory'
+      W=EAST(149,05,58.732)
+      P=SOUTH(31,16,04.451)
+      H=850D0
+      GO TO 9999
+
+*  Subaru telescope, Mauna Kea                                     SUBARU
+*  (IfA website, Richard Wainscoat)
+ 690  CONTINUE
+      NAME='Subaru 8m telescope'
+      W=WEST(155,28,33.67)
+      P=NORTH(19,49,31.81)
+      H=4163D0
+      GO TO 9999
+
+*  Canada-France-Hawaii Telescope, Mauna Kea                         CFHT
+*  (IfA website, Richard Wainscoat)
+ 700  CONTINUE
+      NAME='Canada-France-Hawaii 3.6m Telescope'
+      W=WEST(155,28,07.95)
+      P=NORTH(19,49,30.91)
+      H=4204.1D0
+      GO TO 9999
+
+*  W.M.Keck Observatory, Telescope 2                                KECK2
+*  (William Lupton, private comm)
+ 710  CONTINUE
+      NAME='Keck 10m Telescope #2'
+      W=WEST(155,28,27.24)
+      P=NORTH(19,49,35.62)
+      H=4159.6D0
+      GO TO 9999
+
+*  Gemini North, Mauna Kea                                        GEMININ
+*  (IfA website, Richard Wainscoat)
+ 720  CONTINUE
+      NAME='Gemini North 8-m telescope'
+      W=WEST(155,28,08.57)
+      P=NORTH(19,49,25.69)
+      H=4213.4D0
+      GO TO 9999
+
+*  Five College Radio Astronomy Observatory                        FCRAO
+*  (Tim Jenness, private comm)
+ 730  CONTINUE
+      NAME='Five College Radio Astronomy Obs'
+      W=WEST(72,20,42.0)
+      P=NORTH(42,23,30.0)
+      H=314D0
+      GO TO 9999
+
+*  NASA Infra Red Telescope Facility                                IRTF
+*  (IfA website, Richard Wainscoat)
+ 740  CONTINUE
+      NAME='NASA IR Telescope Facility, Mauna Kea'
+      W=WEST(155,28,19.20)
+      P=NORTH(19,49,34.39)
+      H=4168.1D0
+      GO TO 9999
+
+*  Caltech Submillimeter Observatory                                 CSO
+*  (IfA website, Richard Wainscoat; height estimated)
+ 750  CONTINUE
+      NAME='Caltech Sub-mm Observatory, Mauna Kea'
+      W=WEST(155,28,31.79)
+      P=NORTH(19,49,20.78)
+      H=4080D0
+      GO TO 9999
+
+*  Unrecognized station
+ 9000 CONTINUE
+      NAME='?'
+
+*  Exit
+ 9999 CONTINUE
+
+      END
diff --git a/src/slalib/pa.f b/src/slalib/pa.f
new file mode 100644
index 0000000..8c68296
--- /dev/null
+++ b/src/slalib/pa.f
@@ -0,0 +1,46 @@
+      DOUBLE PRECISION FUNCTION sla_PA (HA, DEC, PHI)
+*+
+*     - - -
+*      P A
+*     - - -
+*
+*  HA, Dec to Parallactic Angle (double precision)
+*
+*  Given:
+*     HA     d     hour angle in radians (geocentric apparent)
+*     DEC    d     declination in radians (geocentric apparent)
+*     PHI    d     observatory latitude in radians (geodetic)
+*
+*  The result is in the range -pi to +pi
+*
+*  Notes:
+*
+*  1)  The parallactic angle at a point in the sky is the position
+*      angle of the vertical, i.e. the angle between the direction to
+*      the pole and to the zenith.  In precise applications care must
+*      be taken only to use geocentric apparent HA,Dec and to consider
+*      separately the effects of atmospheric refraction and telescope
+*      mount errors.
+*
+*  2)  At the pole a zero result is returned.
+*
+*  P.T.Wallace   Starlink   16 August 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION HA,DEC,PHI
+
+      DOUBLE PRECISION CP,SQSZ,CQSZ
+
+
+
+      CP=COS(PHI)
+      SQSZ=CP*SIN(HA)
+      CQSZ=SIN(PHI)*COS(DEC)-CP*SIN(DEC)*COS(HA)
+      IF (SQSZ.EQ.0D0.AND.CQSZ.EQ.0D0) CQSZ=1D0
+      sla_PA=ATAN2(SQSZ,CQSZ)
+
+      END
diff --git a/src/slalib/pav.f b/src/slalib/pav.f
new file mode 100644
index 0000000..7eb1c12
--- /dev/null
+++ b/src/slalib/pav.f
@@ -0,0 +1,53 @@
+      REAL FUNCTION sla_PAV ( V1, V2 )
+*+
+*     - - - -
+*      P A V
+*     - - - -
+*
+*  Position angle of one celestial direction with respect to another.
+*
+*  (single precision)
+*
+*  Given:
+*     V1    r(3)    direction cosines of one point
+*     V2    r(3)    direction cosines of the other point
+*
+*  (The coordinate frames correspond to RA,Dec, Long,Lat etc.)
+*
+*  The result is the bearing (position angle), in radians, of point
+*  V2 with respect to point V1.  It is in the range +/- pi.  The
+*  sense is such that if V2 is a small distance east of V1, the
+*  bearing is about +pi/2.  Zero is returned if the two points
+*  are coincident.
+*
+*  V1 and V2 do not have to be unit vectors.
+*
+*  The routine sla_BEAR performs an equivalent function except
+*  that the points are specified in the form of spherical
+*  coordinates.
+*
+*  Called:  sla_DPAV
+*
+*  Patrick Wallace   Starlink   23 May 1997
+*
+*  Copyright (C) 1997 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL V1(3),V2(3)
+
+      INTEGER I
+      DOUBLE PRECISION D1(3),D2(3)
+
+      DOUBLE PRECISION sla_DPAV
+
+
+*  Call the double precision version
+      DO I=1,3
+         D1(I)=V1(I)
+         D2(I)=V2(I)
+      END DO
+      sla_PAV=sla_DPAV(D1,D2)
+
+      END
diff --git a/src/slalib/pc.bat b/src/slalib/pc.bat
new file mode 100755
index 0000000..d0f43b4
--- /dev/null
+++ b/src/slalib/pc.bat
@@ -0,0 +1,75 @@
+@echo off
+rem
+rem  - - - - - - -
+rem   P C . B A T
+rem  - - - - - - -
+rem
+rem  Create the SLALIB library, starting either from the release
+rem  version copied from the VAX or from the PC version produced
+rem  by a prior run of the present procedure.
+rem
+rem  Environment variable temp must point to a scratch directory.
+rem
+rem  !!! Non-reversible - it is not possible to recreate !!!
+rem  !!! the VAX version from the PC version             !!!
+rem
+rem  P.T.Wallace   Starlink   25 April 1996
+rem
+if exist *.pcm copy *.pcm *.for
+if exist *.pcm del *.pcm
+if exist *.c del *.c
+if exist *.obj del *.obj
+if exist *.exe del *.exe
+if exist *.olb del *.olb
+if exist *.vax del *.vax
+if exist *.ush del *.ush
+if exist *.cnv del *.cnv
+if exist *.mip del *.mip
+if exist *.sun del *.sun
+if exist *.ind del *.ind
+if exist *.com del *.com
+if exist *.new del *.new
+if exist *.obs del *.obs
+if exist *.toc del *.toc
+if exist *.dir del *.dir
+if exist sla_test.for del sla_test.for
+if exist makefile del makefile
+if exist mk del mk
+if exist sla_link del sla_link
+if exist a*.for fl/c /FPi a*.for
+if exist b*.for fl/c /FPi b*.for
+if exist c*.for fl/c /FPi c*.for
+if exist d*.for fl/c /FPi d*.for
+if exist e*.for fl/c /FPi e*.for
+if exist f*.for fl/c /FPi f*.for
+if exist g*.for fl/c /FPi g*.for
+if exist h*.for fl/c /FPi h*.for
+if exist i*.for fl/c /FPi i*.for
+if exist j*.for fl/c /FPi j*.for
+if exist k*.for fl/c /FPi k*.for
+if exist l*.for fl/c /FPi l*.for
+if exist m*.for fl/c /FPi m*.for
+if exist n*.for fl/c /FPi n*.for
+if exist o*.for fl/c /FPi o*.for
+if exist p*.for fl/c /FPi p*.for
+if exist q*.for fl/c /FPi q*.for
+if exist r*.for fl/c /FPi r*.for
+if exist s*.for fl/c /FPi s*.for
+if exist t*.for fl/c /FPi t*.for
+if exist u*.for fl/c /FPi u*.for
+if exist v*.for fl/c /FPi v*.for
+if exist w*.for fl/c /FPi w*.for
+if exist x*.for fl/c /FPi x*.for
+if exist y*.for fl/c /FPi y*.for
+if exist z*.for fl/c /FPi z*.for
+echo Building library SLALIB.LIB ...
+@echo slalib > %temp%\slalib.tmp
+@echo y >> %temp%\slalib.tmp
+for %%f in (*.obj) do echo +%%f& >> %temp%\slalib.tmp
+@echo ;. >> %temp%\slalib.tmp
+if exist slalib.lib del slalib.lib
+lib @%temp%\slalib.tmp
+del %temp%\slalib.tmp
+del *.obj
+echo ... done.
+echo:
diff --git a/src/slalib/pcd.f b/src/slalib/pcd.f
new file mode 100644
index 0000000..71241a7
--- /dev/null
+++ b/src/slalib/pcd.f
@@ -0,0 +1,59 @@
+      SUBROUTINE sla_PCD (DISCO,X,Y)
+*+
+*     - - - -
+*      P C D
+*     - - - -
+*
+*  Apply pincushion/barrel distortion to a tangent-plane [x,y].
+*
+*  Given:
+*     DISCO    d      pincushion/barrel distortion coefficient
+*     X,Y      d      tangent-plane coordinates
+*
+*  Returned:
+*     X,Y      d      distorted coordinates
+*
+*  Notes:
+*
+*  1)  The distortion is of the form RP = R*(1 + C*R**2), where R is
+*      the radial distance from the tangent point, C is the DISCO
+*      argument, and RP is the radial distance in the presence of
+*      the distortion.
+*
+*  2)  For pincushion distortion, C is +ve;  for barrel distortion,
+*      C is -ve.
+*
+*  3)  For X,Y in units of one projection radius (in the case of
+*      a photographic plate, the focal length), the following
+*      DISCO values apply:
+*
+*          Geometry          DISCO
+*
+*          astrograph         0.0
+*          Schmidt           -0.3333
+*          AAT PF doublet  +147.069
+*          AAT PF triplet  +178.585
+*          AAT f/8          +21.20
+*          JKT f/8          +13.32
+*
+*  4)  There is a companion routine, sla_UNPCD, which performs
+*      an approximately inverse operation.
+*
+*  P.T.Wallace   Starlink   31 December 1992
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DISCO,X,Y
+
+      DOUBLE PRECISION F
+
+
+
+      F=1D0+DISCO*(X*X+Y*Y)
+      X=X*F
+      Y=Y*F
+
+      END
diff --git a/src/slalib/pda2h.f b/src/slalib/pda2h.f
new file mode 100644
index 0000000..cd31acf
--- /dev/null
+++ b/src/slalib/pda2h.f
@@ -0,0 +1,100 @@
+      SUBROUTINE sla_PDA2H (P, D, A, H1, J1, H2, J2)
+*+
+*     - - - - - -
+*      P D A 2 H
+*     - - - - - -
+*
+*  Hour Angle corresponding to a given azimuth
+*
+*  (double precision)
+*
+*  Given:
+*     P       d        latitude
+*     D       d        declination
+*     A       d        azimuth
+*
+*  Returned:
+*     H1      d        hour angle:  first solution if any
+*     J1      i        flag: 0 = solution 1 is valid
+*     H2      d        hour angle:  second solution if any
+*     J2      i        flag: 0 = solution 2 is valid
+*
+*  Called:  sla_DRANGE
+*
+*  P.T.Wallace   Starlink   6 October 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION P,D,A,H1
+      INTEGER J1
+      DOUBLE PRECISION H2
+      INTEGER J2
+
+      DOUBLE PRECISION DPI
+      PARAMETER (DPI=3.141592653589793238462643D0)
+      DOUBLE PRECISION D90
+      PARAMETER (D90=DPI/2D0)
+      DOUBLE PRECISION TINY
+      PARAMETER (TINY=1D-12)
+      DOUBLE PRECISION PN,AN,DN,SA,CA,SASP,QT,QB,HPT,T
+      DOUBLE PRECISION sla_DRANGE
+
+
+*  Preset status flags to OK
+      J1=0
+      J2=0
+
+*  Adjust latitude, azimuth, declination to avoid critical values
+      PN=sla_DRANGE(P)
+      IF (ABS(ABS(PN)-D90).LT.TINY) THEN
+         PN=PN-SIGN(TINY,PN)
+      ELSE IF (ABS(PN).LT.TINY) THEN
+         PN=TINY
+      END IF
+      AN=sla_DRANGE(A)
+      IF (ABS(ABS(AN)-DPI).LT.TINY) THEN
+         AN=AN-SIGN(TINY,AN)
+      ELSE IF (ABS(AN).LT.TINY) THEN
+         AN=TINY
+      END IF
+      DN=sla_DRANGE(D)
+      IF (ABS(ABS(DN)-ABS(P)).LT.TINY) THEN
+         DN=DN-SIGN(TINY,DN)
+      ELSE IF (ABS(ABS(DN)-D90).LT.TINY) THEN
+         DN=DN-SIGN(TINY,DN)
+      ELSE IF (ABS(DN).LT.TINY) THEN
+         DN=TINY
+      END IF
+
+*  Useful functions
+      SA=SIN(AN)
+      CA=COS(AN)
+      SASP=SA*SIN(PN)
+
+*  Quotient giving sin(h+t)
+      QT=SIN(DN)*SA*COS(PN)
+      QB=COS(DN)*SQRT(CA*CA+SASP*SASP)
+
+*  Any solutions?
+      IF (ABS(QT).LE.QB) THEN
+
+*     Yes: find h+t and t
+         HPT=ASIN(QT/QB)
+         T=ATAN2(SASP,-CA)
+
+*     The two solutions
+         H1=sla_DRANGE(HPT-T)
+         H2=sla_DRANGE(-HPT-(T+DPI))
+
+*     Reject unless h and A different signs
+         IF (H1*AN.GT.0D0) J1=-1
+         IF (H2*AN.GT.0D0) J2=-1
+      ELSE
+         J1=-1
+         J2=-1
+      END IF
+
+      END
diff --git a/src/slalib/pdq2h.f b/src/slalib/pdq2h.f
new file mode 100644
index 0000000..a12ba72
--- /dev/null
+++ b/src/slalib/pdq2h.f
@@ -0,0 +1,98 @@
+      SUBROUTINE sla_PDQ2H (P, D, Q, H1, J1, H2, J2)
+*+
+*     - - - - - -
+*      P D Q 2 H
+*     - - - - - -
+*
+*  Hour Angle corresponding to a given parallactic angle
+*
+*  (double precision)
+*
+*  Given:
+*     P       d        latitude
+*     D       d        declination
+*     Q       d        parallactic angle
+*
+*  Returned:
+*     H1      d        hour angle:  first solution if any
+*     J1      i        flag: 0 = solution 1 is valid
+*     H2      d        hour angle:  second solution if any
+*     J2      i        flag: 0 = solution 2 is valid
+*
+*  Called:  sla_DRANGE
+*
+*  P.T.Wallace   Starlink   6 October 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION P,D,Q,H1
+      INTEGER J1
+      DOUBLE PRECISION H2
+      INTEGER J2
+
+      DOUBLE PRECISION DPI
+      PARAMETER (DPI=3.141592653589793238462643D0)
+      DOUBLE PRECISION D90
+      PARAMETER (D90=DPI/2D0)
+      DOUBLE PRECISION TINY
+      PARAMETER (TINY=1D-12)
+      DOUBLE PRECISION PN,QN,DN,SQ,CQ,SQSD,QT,QB,HPT,T
+      DOUBLE PRECISION sla_DRANGE
+
+
+*  Preset status flags to OK
+      J1=0
+      J2=0
+
+*  Adjust latitude, declination, parallactic angle to avoid critical values
+      PN=sla_DRANGE(P)
+      IF (ABS(ABS(PN)-D90).LT.TINY) THEN
+         PN=PN-SIGN(TINY,PN)
+      ELSE IF (ABS(PN).LT.TINY) THEN
+         PN=TINY
+      END IF
+      QN=sla_DRANGE(Q)
+      IF (ABS(ABS(QN)-DPI).LT.TINY) THEN
+         QN=QN-SIGN(TINY,QN)
+      ELSE IF (ABS(QN).LT.TINY) THEN
+         QN=TINY
+      END IF
+      DN=sla_DRANGE(D)
+      IF (ABS(ABS(D)-ABS(P)).LT.TINY) THEN
+         DN=DN-SIGN(TINY,DN)
+      ELSE IF (ABS(ABS(D)-D90).LT.TINY) THEN
+         DN=DN-SIGN(TINY,DN)
+      END IF
+
+*  Useful functions
+      SQ=SIN(QN)
+      CQ=COS(QN)
+      SQSD=SQ*SIN(DN)
+
+*  Quotient giving sin(h+t)
+      QT=SIN(PN)*SQ*COS(DN)
+      QB=COS(PN)*SQRT(CQ*CQ+SQSD*SQSD)
+
+*  Any solutions?
+      IF (ABS(QT).LE.QB) THEN
+
+*     Yes: find h+t and t
+         HPT=ASIN(QT/QB)
+         T=ATAN2(SQSD,CQ)
+
+*     The two solutions
+         H1=sla_DRANGE(HPT-T)
+         H2=sla_DRANGE(-HPT-(T+DPI))
+
+*     Reject if h and Q different signs
+         IF (H1*QN.LT.0D0) J1=-1
+         IF (H2*QN.LT.0D0) J2=-1
+      ELSE
+         J1=-1
+         J2=-1
+      END IF
+
+      END
diff --git a/src/slalib/permut.f b/src/slalib/permut.f
new file mode 100644
index 0000000..20b8a27
--- /dev/null
+++ b/src/slalib/permut.f
@@ -0,0 +1,141 @@
+      SUBROUTINE sla_PERMUT ( N, ISTATE, IORDER, J )
+*+
+*     - - - - - - -
+*      P E R M U T
+*     - - - - - - -
+*
+*  Generate the next permutation of a specified number of items.
+*
+*  Given:
+*     N         i      number of items:  there will be N! permutations
+*     ISTATE    i(N)   state, ISTATE(1)=-1 to initialize
+*
+*  Returned:
+*     ISTATE    i(N)   state, updated ready for next time
+*     IORDER    i(N)   next permutation of numbers 1,2,...,N
+*     J         i      status: -1 = illegal N (zero or less is illegal)
+*                               0 = OK
+*                              +1 = no more permutations available
+*
+*  Notes:
+*
+*  1) This routine returns, in the IORDER array, the integers 1 to N
+*     inclusive, in an order that depends on the current contents of
+*     the ISTATE array.  Before calling the routine for the first
+*     time, the caller must set the first element of the ISTATE array
+*     to -1 (any negative number will do) to cause the ISTATE array
+*     to be fully initialized.
+*
+*  2) The first permutation to be generated is:
+*
+*          IORDER(1)=N, IORDER(2)=N-1, ..., IORDER(N)=1
+*
+*     This is also the permutation returned for the "finished"
+*     (J=1) case.
+*
+*     The final permutation to be generated is:
+*
+*          IORDER(1)=1, IORDER(2)=2, ..., IORDER(N)=N
+*
+*  3) If the "finished" (J=1) status is ignored, the routine continues
+*     to deliver permutations, the pattern repeating every N! calls.
+*
+*  P.T.Wallace   Starlink   25 August 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER N,IORDER(N),ISTATE(N),J
+
+      INTEGER I,IP1,ISLOT,ISKIP
+
+
+*  -------------
+*  Preliminaries
+*  -------------
+
+*  Validate, and set status.
+      IF (N.LT.1) THEN
+         J = -1
+         GO TO 9999
+      ELSE
+         J = 0
+      END IF
+
+*  If just starting, initialize state array
+      IF (ISTATE(1).LT.0) THEN
+         ISTATE(1) = -1
+         DO I=2,N
+            ISTATE(I) = 0
+         END DO
+      END IF
+
+*  --------------------------
+*  Increment the state number
+*  --------------------------
+
+*  The state number, maintained in the ISTATE array, is a mixed-radix
+*  number with N! states.  The least significant digit, with a radix of
+*  1, is in ISTATE(1).  The next digit, in ISTATE(2), has a radix of 2,
+*  and so on.
+
+*  Increment the least-significant digit of the state number.
+      ISTATE(1) = ISTATE(1)+1
+
+*  Digit by digit starting with the least significant.
+      DO I=1,N
+
+*     Carry?
+         IF (ISTATE(I).GE.I) THEN
+
+*        Yes:  reset the current digit.
+            ISTATE(I) = 0
+
+*        Overflow?
+            IF (I.GE.N) THEN
+
+*           Yes:  there are no more permutations.
+               J = 1
+            ELSE
+
+*           No:  carry.
+               IP1 = I+1
+               ISTATE(IP1) = ISTATE(IP1)+1
+            END IF
+         END IF
+      END DO
+
+*  -------------------------------------------------------------------
+*  Translate the state number into the corresponding permutation order
+*  -------------------------------------------------------------------
+
+*  Initialize the order array.  All but one element will be overwritten.
+      DO I=1,N
+         IORDER(I) = 1
+      END DO
+
+*  Look at each state number digit, starting with the most significant.
+      DO I=N,2,-1
+
+*     Initialize the position where the new number will go.
+         ISLOT = 0
+
+*     The state number digit says which unfilled slot is to be used.
+         DO ISKIP=0,ISTATE(I)
+
+*        Increment the slot number until an unused slot is found.
+            ISLOT = ISLOT+1
+            DO WHILE (IORDER(ISLOT).GT.1)
+               ISLOT = ISLOT+1
+            END DO
+         END DO
+
+*     Store the number in the permutation order array.
+         IORDER(ISLOT) = I
+      END DO
+
+ 9999 CONTINUE
+
+      END
diff --git a/src/slalib/pertel.f b/src/slalib/pertel.f
new file mode 100644
index 0000000..45537b4
--- /dev/null
+++ b/src/slalib/pertel.f
@@ -0,0 +1,159 @@
+      SUBROUTINE sla_PERTEL (JFORM, DATE0, DATE1,
+     :                 EPOCH0, ORBI0, ANODE0, PERIH0, AORQ0, E0, AM0,
+     :                 EPOCH1, ORBI1, ANODE1, PERIH1, AORQ1, E1, AM1,
+     :                       JSTAT)
+*+
+*     - - - - - - -
+*      P E R T E L
+*     - - - - - - -
+*
+*  Update the osculating orbital elements of an asteroid or comet by
+*  applying planetary perturbations.
+*
+*  Given (format and dates):
+*     JFORM   i    choice of element set (2 or 3; Note 1)
+*     DATE0   d    date of osculation (TT MJD) for the given elements
+*     DATE1   d    date of osculation (TT MJD) for the updated elements
+*
+*  Given (the unperturbed elements):
+*     EPOCH0  d    epoch (TT MJD) of the given element set (Note 2)
+*     ORBI0   d    inclination (radians)
+*     ANODE0  d    longitude of the ascending node (radians)
+*     PERIH0  d    argument of perihelion (radians)
+*     AORQ0   d    mean distance or perihelion distance (AU)
+*     E0      d    eccentricity
+*     AM0     d    mean anomaly (radians, JFORM=2 only)
+*
+*  Returned (the updated elements):
+*     EPOCH1  d    epoch (TT MJD) of the updated element set (Note 2)
+*     ORBI1   d    inclination (radians)
+*     ANODE1  d    longitude of the ascending node (radians)
+*     PERIH1  d    argument of perihelion (radians)
+*     AORQ1   d    mean distance or perihelion distance (AU)
+*     E1      d    eccentricity
+*     AM1     d    mean anomaly (radians, JFORM=2 only)
+*
+*  Returned (status flag):
+*     JSTAT   i    status: +102 = warning, distant epoch
+*                          +101 = warning, large timespan ( > 100 years)
+*                      +1 to +8 = coincident with major planet (Note 6)
+*                             0 = OK
+*                            -1 = illegal JFORM
+*                            -2 = illegal E0
+*                            -3 = illegal AORQ0
+*                            -4 = internal error
+*                            -5 = numerical error
+*
+*  Notes:
+*
+*  1  Two different element-format options are available:
+*
+*     Option JFORM=2, suitable for minor planets:
+*
+*     EPOCH   = epoch of elements (TT MJD)
+*     ORBI    = inclination i (radians)
+*     ANODE   = longitude of the ascending node, big omega (radians)
+*     PERIH   = argument of perihelion, little omega (radians)
+*     AORQ    = mean distance, a (AU)
+*     E       = eccentricity, e
+*     AM      = mean anomaly M (radians)
+*
+*     Option JFORM=3, suitable for comets:
+*
+*     EPOCH   = epoch of perihelion (TT MJD)
+*     ORBI    = inclination i (radians)
+*     ANODE   = longitude of the ascending node, big omega (radians)
+*     PERIH   = argument of perihelion, little omega (radians)
+*     AORQ    = perihelion distance, q (AU)
+*     E       = eccentricity, e
+*
+*  2  DATE0, DATE1, EPOCH0 and EPOCH1 are all instants of time in
+*     the TT timescale (formerly Ephemeris Time, ET), expressed
+*     as Modified Julian Dates (JD-2400000.5).
+*
+*     DATE0 is the instant at which the given (i.e. unperturbed)
+*     osculating elements are correct.
+*
+*     DATE1 is the specified instant at which the updated osculating
+*     elements are correct.
+*
+*     EPOCH0 and EPOCH1 will be the same as DATE0 and DATE1
+*     (respectively) for the JFORM=2 case, normally used for minor
+*     planets.  For the JFORM=3 case, the two epochs will refer to
+*     perihelion passage and so will not, in general, be the same as
+*     DATE0 and/or DATE1 though they may be similar to one another.
+*
+*  3  The elements are with respect to the J2000 ecliptic and equinox.
+*
+*  4  Unused elements (AM0 and AM1 for JFORM=3) are not accessed.
+*
+*  5  See the sla_PERTUE routine for details of the algorithm used.
+*
+*  6  This routine is not intended to be used for major planets, which
+*     is why JFORM=1 is not available and why there is no opportunity
+*     to specify either the longitude of perihelion or the daily
+*     motion.  However, if JFORM=2 elements are somehow obtained for a
+*     major planet and supplied to the routine, sensible results will,
+*     in fact, be produced.  This happens because the sla_PERTUE routine
+*     that is called to perform the calculations checks the separation
+*     between the body and each of the planets and interprets a
+*     suspiciously small value (0.001 AU) as an attempt to apply it to
+*     the planet concerned.  If this condition is detected, the
+*     contribution from that planet is ignored, and the status is set to
+*     the planet number (Mercury=1,...,Neptune=8) as a warning.
+*
+*  Reference:
+*
+*     Sterne, Theodore E., "An Introduction to Celestial Mechanics",
+*     Interscience Publishers Inc., 1960.  Section 6.7, p199.
+*
+*  Called:  sla_EL2UE, sla_PERTUE, sla_UE2EL
+*
+*  P.T.Wallace   Starlink   14 March 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+      INTEGER JFORM
+      DOUBLE PRECISION DATE0,DATE1,
+     :                 EPOCH0,ORBI0,ANODE0,PERIH0,AORQ0,E0,AM0,
+     :                 EPOCH1,ORBI1,ANODE1,PERIH1,AORQ1,E1,AM1
+      INTEGER JSTAT
+
+      DOUBLE PRECISION U(13),DM
+      INTEGER J,JF
+
+
+
+*  Check that the elements are either minor-planet or comet format.
+      IF (JFORM.LT.2.OR.JFORM.GT.3) THEN
+         JSTAT = -1
+         GO TO 9999
+      END IF
+
+*  Transform the elements from conventional to universal form.
+      CALL sla_EL2UE(DATE0,JFORM,EPOCH0,ORBI0,ANODE0,PERIH0,
+     :               AORQ0,E0,AM0,0D0,U,J)
+      IF (J.NE.0) THEN
+         JSTAT = J
+         GO TO 9999
+      END IF
+
+*  Update the universal elements.
+      CALL sla_PERTUE(DATE1,U,J)
+      IF (J.GT.0) THEN
+         JSTAT = J
+      ELSE IF (J.LT.0) THEN
+         JSTAT = -5
+         GO TO 9999
+      END IF
+
+*  Transform from universal to conventional elements.
+      CALL sla_UE2EL(U,2,
+     :               JF, EPOCH1, ORBI1, ANODE1, PERIH1,
+     :               AORQ1, E1, AM1, DM, J)
+      IF (JF.NE.JFORM.OR.J.NE.0) JSTAT=-5
+
+ 9999 CONTINUE
+      END
diff --git a/src/slalib/pertue.f b/src/slalib/pertue.f
new file mode 100644
index 0000000..d6f6f53
--- /dev/null
+++ b/src/slalib/pertue.f
@@ -0,0 +1,535 @@
+      SUBROUTINE sla_PERTUE (DATE, U, JSTAT)
+*+
+*     - - - - - - -
+*      P E R T U E
+*     - - - - - - -
+*
+*  Update the universal elements of an asteroid or comet by applying
+*  planetary perturbations.
+*
+*  Given:
+*     DATE     d       final epoch (TT MJD) for the updated elements
+*
+*  Given and returned:
+*     U        d(13)   universal elements (updated in place)
+*
+*                (1)   combined mass (M+m)
+*                (2)   total energy of the orbit (alpha)
+*                (3)   reference (osculating) epoch (t0)
+*              (4-6)   position at reference epoch (r0)
+*              (7-9)   velocity at reference epoch (v0)
+*               (10)   heliocentric distance at reference epoch
+*               (11)   r0.v0
+*               (12)   date (t)
+*               (13)   universal eccentric anomaly (psi) of date, approx
+*
+*  Returned:
+*     JSTAT    i       status:
+*                          +102 = warning, distant epoch
+*                          +101 = warning, large timespan ( > 100 years)
+*                      +1 to +8 = coincident with major planet (Note 5)
+*                             0 = OK
+*                            -1 = numerical error
+*
+*  Called:  sla_PLANET, sla_UE2PV, sla_PV2UE
+*
+*  Notes:
+*
+*  1  The "universal" elements are those which define the orbit for the
+*     purposes of the method of universal variables (see reference 2).
+*     They consist of the combined mass of the two bodies, an epoch,
+*     and the position and velocity vectors (arbitrary reference frame)
+*     at that epoch.  The parameter set used here includes also various
+*     quantities that can, in fact, be derived from the other
+*     information.  This approach is taken to avoiding unnecessary
+*     computation and loss of accuracy.  The supplementary quantities
+*     are (i) alpha, which is proportional to the total energy of the
+*     orbit, (ii) the heliocentric distance at epoch, (iii) the
+*     outwards component of the velocity at the given epoch, (iv) an
+*     estimate of psi, the "universal eccentric anomaly" at a given
+*     date and (v) that date.
+*
+*  2  The universal elements are with respect to the J2000 equator and
+*     equinox.
+*
+*  3  The epochs DATE, U(3) and U(12) are all Modified Julian Dates
+*     (JD-2400000.5).
+*
+*  4  The algorithm is a simplified form of Encke's method.  It takes as
+*     a basis the unperturbed motion of the body, and numerically
+*     integrates the perturbing accelerations from the major planets.
+*     The expression used is essentially Sterne's 6.7-2 (reference 1).
+*     Everhart and Pitkin (reference 2) suggest rectifying the orbit at
+*     each integration step by propagating the new perturbed position
+*     and velocity as the new universal variables.  In the present
+*     routine the orbit is rectified less frequently than this, in order
+*     to gain a slight speed advantage.  However, the rectification is
+*     done directly in terms of position and velocity, as suggested by
+*     Everhart and Pitkin, bypassing the use of conventional orbital
+*     elements.
+*
+*     The f(q) part of the full Encke method is not used.  The purpose
+*     of this part is to avoid subtracting two nearly equal quantities
+*     when calculating the "indirect member", which takes account of the
+*     small change in the Sun's attraction due to the slightly displaced
+*     position of the perturbed body.  A simpler, direct calculation in
+*     double precision proves to be faster and not significantly less
+*     accurate.
+*
+*     Apart from employing a variable timestep, and occasionally
+*     "rectifying the orbit" to keep the indirect member small, the
+*     integration is done in a fairly straightforward way.  The
+*     acceleration estimated for the middle of the timestep is assumed
+*     to apply throughout that timestep;  it is also used in the
+*     extrapolation of the perturbations to the middle of the next
+*     timestep, to predict the new disturbed position.  There is no
+*     iteration within a timestep.
+*
+*     Measures are taken to reach a compromise between execution time
+*     and accuracy.  The starting-point is the goal of achieving
+*     arcsecond accuracy for ordinary minor planets over a ten-year
+*     timespan.  This goal dictates how large the timesteps can be,
+*     which in turn dictates how frequently the unperturbed motion has
+*     to be recalculated from the osculating elements.
+*
+*     Within predetermined limits, the timestep for the numerical
+*     integration is varied in length in inverse proportion to the
+*     magnitude of the net acceleration on the body from the major
+*     planets.
+*
+*     The numerical integration requires estimates of the major-planet
+*     motions.  Approximate positions for the major planets (Pluto
+*     alone is omitted) are obtained from the routine sla_PLANET.  Two
+*     levels of interpolation are used, to enhance speed without
+*     significantly degrading accuracy.  At a low frequency, the routine
+*     sla_PLANET is called to generate updated position+velocity "state
+*     vectors".  The only task remaining to be carried out at the full
+*     frequency (i.e. at each integration step) is to use the state
+*     vectors to extrapolate the planetary positions.  In place of a
+*     strictly linear extrapolation, some allowance is made for the
+*     curvature of the orbit by scaling back the radius vector as the
+*     linear extrapolation goes off at a tangent.
+*
+*     Various other approximations are made.  For example, perturbations
+*     by Pluto and the minor planets are neglected, relativistic effects
+*     are not taken into account and the Earth-Moon system is treated as
+*     a single body.
+*
+*     In the interests of simplicity, the background calculations for
+*     the major planets are carried out en masse.  The mean elements and
+*     state vectors for all the planets are refreshed at the same time,
+*     without regard for orbit curvature, mass or proximity.
+*
+*  5  This routine is not intended to be used for major planets.
+*     However, if major-planet elements are supplied, sensible results
+*     will, in fact, be produced.  This happens because the routine
+*     checks the separation between the body and each of the planets and
+*     interprets a suspiciously small value (0.001 AU) as an attempt to
+*     apply the routine to the planet concerned.  If this condition is
+*     detected, the contribution from that planet is ignored, and the
+*     status is set to the planet number (Mercury=1,...,Neptune=8) as a
+*     warning.
+*
+*  References:
+*
+*     1  Sterne, Theodore E., "An Introduction to Celestial Mechanics",
+*        Interscience Publishers Inc., 1960.  Section 6.7, p199.
+*
+*     2  Everhart, E. & Pitkin, E.T., Am.J.Phys. 51, 712, 1983.
+*
+*  P.T.Wallace   Starlink   18 March 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+      DOUBLE PRECISION DATE,U(13)
+      INTEGER JSTAT
+
+*  Coefficient relating timestep to perturbing force
+      DOUBLE PRECISION TSC
+      PARAMETER (TSC=1D-4)
+
+*  Minimum and maximum timestep (days)
+      DOUBLE PRECISION TSMIN,TSMAX
+      PARAMETER (TSMIN=0.01D0,TSMAX=10D0)
+
+*  Age limit for major-planet state vector (days)
+      DOUBLE PRECISION AGEPMO
+      PARAMETER (AGEPMO=5D0)
+
+*  Age limit for major-planet mean elements (days)
+      DOUBLE PRECISION AGEPEL
+      PARAMETER (AGEPEL=50D0)
+
+*  Margin for error when deciding whether to renew the planetary data
+      DOUBLE PRECISION TINY
+      PARAMETER (TINY=1D-6)
+
+*  Age limit for the body's osculating elements (before rectification)
+      DOUBLE PRECISION AGEBEL
+      PARAMETER (AGEBEL=100D0)
+
+*  Gaussian gravitational constant (exact) and square
+      DOUBLE PRECISION GCON,GCON2
+      PARAMETER (GCON=0.01720209895D0,GCON2=GCON*GCON)
+
+*  The final epoch
+      DOUBLE PRECISION TFINAL
+
+*  The body's current universal elements
+      DOUBLE PRECISION UL(13)
+
+*  Current reference epoch
+      DOUBLE PRECISION T0
+
+*  Timespan from latest orbit rectification to final epoch (days)
+      DOUBLE PRECISION TSPAN
+
+*  Time left to go before integration is complete
+      DOUBLE PRECISION TLEFT
+
+*  Time direction flag: +1=forwards, -1=backwards
+      DOUBLE PRECISION FB
+
+*  First-time flag
+      LOGICAL FIRST
+
+*
+*  The current perturbations
+*
+*  Epoch (days relative to current reference epoch)
+      DOUBLE PRECISION RTN
+*  Position (AU)
+      DOUBLE PRECISION PERP(3)
+*  Velocity (AU/d)
+      DOUBLE PRECISION PERV(3)
+*  Acceleration (AU/d/d)
+      DOUBLE PRECISION PERA(3)
+*
+
+*  Length of current timestep (days), and half that
+      DOUBLE PRECISION TS,HTS
+
+*  Epoch of middle of timestep
+      DOUBLE PRECISION T
+
+*  Epoch of planetary mean elements
+      DOUBLE PRECISION TPEL
+
+*  Planet number (1=Mercury, 2=Venus, 3=EMB...8=Neptune)
+      INTEGER NP
+
+*  Planetary universal orbital elements
+      DOUBLE PRECISION UP(13,8)
+
+*  Epoch of planetary state vectors
+      DOUBLE PRECISION TPMO
+
+*  State vectors for the major planets (AU,AU/s)
+      DOUBLE PRECISION PVIN(6,8)
+
+*
+*  Correction terms for extrapolated major planet vectors
+*
+*  Sun-to-planet distances squared multiplied by 3
+      DOUBLE PRECISION R2X3(8)
+*  Sunward acceleration terms, G/2R^3
+      DOUBLE PRECISION GC(8)
+*  Tangential-to-circular correction factor
+      DOUBLE PRECISION FC
+*  Radial correction factor due to Sunwards acceleration
+      DOUBLE PRECISION FG
+*
+
+*  The body's unperturbed and perturbed state vectors (AU,AU/s)
+      DOUBLE PRECISION PV0(6),PV(6)
+
+*  The body's perturbed and unperturbed heliocentric distances (AU) cubed
+      DOUBLE PRECISION R03,R3
+
+*  The perturbating accelerations, indirect and direct
+      DOUBLE PRECISION FI(3),FD(3)
+
+*  Sun-to-planet vector, and distance cubed
+      DOUBLE PRECISION RHO(3),RHO3
+
+*  Body-to-planet vector, and distance cubed
+      DOUBLE PRECISION DELTA(3),DELTA3
+
+*  Miscellaneous
+      INTEGER I,J
+      DOUBLE PRECISION R2,W,DT,DT2,FT
+
+*  Planetary inverse masses, Mercury through Neptune
+      DOUBLE PRECISION AMAS(8)
+      DATA AMAS / 6023600D0,408523.5D0,328900.5D0,3098710D0,
+     :            1047.355D0,3498.5D0,22869D0,19314D0 /
+
+*---------------------------------------------------------------------*
+
+
+*  Preset the status to OK.
+      JSTAT = 0
+
+*  Copy the final epoch.
+      TFINAL = DATE
+
+*  Copy the elements (which will be periodically updated).
+      DO I=1,13
+         UL(I) = U(I)
+      END DO
+
+*  Initialize the working reference epoch.
+      T0=UL(3)
+
+*  Total timespan (days) and hence time left.
+      TSPAN = TFINAL-T0
+      TLEFT = TSPAN
+
+*  Warn if excessive.
+      IF (ABS(TSPAN).GT.36525D0) JSTAT=101
+
+*  Time direction: +1 for forwards, -1 for backwards.
+      FB = SIGN(1D0,TSPAN)
+
+*  Initialize relative epoch for start of current timestep.
+      RTN = 0D0
+
+*  Reset the perturbations (position, velocity, acceleration).
+      DO I=1,3
+         PERP(I) = 0D0
+         PERV(I) = 0D0
+         PERA(I) = 0D0
+      END DO
+
+*  Set "first iteration" flag.
+      FIRST = .TRUE.
+
+*  Step through the time left.
+      DO WHILE (FB*TLEFT.GT.0D0)
+
+*     Magnitude of current acceleration due to planetary attractions.
+         IF (FIRST) THEN
+            TS = TSMIN
+         ELSE
+            R2 = 0D0
+            DO I=1,3
+               W = FD(I)
+               R2 = R2+W*W
+            END DO
+            W = SQRT(R2)
+
+*        Use the acceleration to decide how big a timestep can be tolerated.
+            IF (W.NE.0D0) THEN
+               TS = MIN(TSMAX,MAX(TSMIN,TSC/W))
+            ELSE
+               TS = TSMAX
+            END IF
+         END IF
+         TS = TS*FB
+
+*     Override if final epoch is imminent.
+         TLEFT = TSPAN-RTN
+         IF (ABS(TS).GT.ABS(TLEFT)) TS=TLEFT
+
+*     Epoch of middle of timestep.
+         HTS = TS/2D0
+         T = T0+RTN+HTS
+
+*     Is it time to recompute the major-planet elements?
+         IF (FIRST.OR.ABS(T-TPEL)-AGEPEL.GE.TINY) THEN
+
+*        Yes: go forward in time by just under the maximum allowed.
+            TPEL = T+FB*AGEPEL
+
+*        Compute the state vector for the new epoch.
+            DO NP=1,8
+               CALL sla_PLANET(TPEL,NP,PV,J)
+
+*           Warning if remote epoch, abort if error.
+               IF (J.EQ.1) THEN
+                  JSTAT = 102
+               ELSE IF (J.NE.0) THEN
+                  GO TO 9010
+               END IF
+
+*           Transform the vector into universal elements.
+               CALL sla_PV2UE(PV,TPEL,0D0,UP(1,NP),J)
+               IF (J.NE.0) GO TO 9010
+            END DO
+         END IF
+
+*     Is it time to recompute the major-planet motions?
+         IF (FIRST.OR.ABS(T-TPMO)-AGEPMO.GE.TINY) THEN
+
+*        Yes: look ahead.
+            TPMO = T+FB*AGEPMO
+
+*        Compute the motions of each planet (AU,AU/d).
+            DO NP=1,8
+
+*           The planet's position and velocity (AU,AU/s).
+               CALL sla_UE2PV(TPMO,UP(1,NP),PVIN(1,NP),J)
+               IF (J.NE.0) GO TO 9010
+
+*           Scale velocity to AU/d.
+               DO J=4,6
+                  PVIN(J,NP) = PVIN(J,NP)*86400D0
+               END DO
+
+*           Precompute also the extrapolation correction terms.
+               R2 = 0D0
+               DO I=1,3
+                  W = PVIN(I,NP)
+                  R2 = R2+W*W
+               END DO
+               R2X3(NP) = R2*3D0
+               GC(NP) = GCON2/(2D0*R2*SQRT(R2))
+            END DO
+         END IF
+
+*     Reset the first-time flag.
+         FIRST = .FALSE.
+
+*     Unperturbed motion of the body at middle of timestep (AU,AU/s).
+         CALL sla_UE2PV(T,UL,PV0,J)
+         IF (J.NE.0) GO TO 9010
+
+*     Perturbed position of the body (AU) and heliocentric distance cubed.
+         R2 = 0D0
+         DO I=1,3
+            W = PV0(I)+PERP(I)+(PERV(I)+PERA(I)*HTS/2D0)*HTS
+            PV(I) = W
+            R2 = R2+W*W
+         END DO
+         R3 = R2*SQRT(R2)
+
+*     The body's unperturbed heliocentric distance cubed.
+         R2 = 0D0
+         DO I=1,3
+            W = PV0(I)
+            R2 = R2+W*W
+         END DO
+         R03 = R2*SQRT(R2)
+
+*     Compute indirect and initialize direct parts of the perturbation.
+         DO I=1,3
+            FI(I) = PV0(I)/R03-PV(I)/R3
+            FD(I) = 0D0
+         END DO
+
+*     Ready to compute the direct planetary effects.
+
+*     Interval from state-vector epoch to middle of current timestep.
+         DT = T-TPMO
+         DT2 = DT*DT
+
+*     Planet by planet.
+         DO NP=1,8
+
+*        First compute the extrapolation in longitude (squared).
+            R2 = 0D0
+            DO J=4,6
+               W = PVIN(J,NP)*DT
+               R2 = R2+W*W
+            END DO
+
+*        Hence the tangential-to-circular correction factor.
+            FC = 1D0+R2/R2X3(NP)
+
+*        The radial correction factor due to the inwards acceleration.
+            FG = 1D0-GC(NP)*DT2
+
+*        Planet's position, and heliocentric distance cubed.
+            R2 = 0D0
+            DO I=1,3
+               W = FG*(PVIN(I,NP)+FC*PVIN(I+3,NP)*DT)
+               RHO(I) = W
+               R2 = R2+W*W
+            END DO
+            RHO3 = R2*SQRT(R2)
+
+*        Body-to-planet vector, light-time, and distance cubed.
+            R2 = 0D0
+            DO I=1,3
+               W = RHO(I)-PV(I)
+               DELTA(I) = W
+               R2 = R2+W*W
+            END DO
+            W = SQRT(R2)
+            DELTA3 = R2*SQRT(R2)
+
+*        If too close, ignore this planet and set a warning.
+            IF (R2.LT.1D-6) THEN
+               JSTAT = NP
+            ELSE
+
+*           Accumulate "direct" part of perturbation acceleration.
+               W = AMAS(NP)
+               DO I=1,3
+                  FD(I) = FD(I)+(DELTA(I)/DELTA3-RHO(I)/RHO3)/W
+               END DO
+            END IF
+         END DO
+
+*     Update the perturbations to the end of the timestep.
+         RTN = RTN+TS
+         DO I=1,3
+            W = (FI(I)+FD(I))*GCON2
+            FT = W*TS
+            PERP(I) = PERP(I)+(PERV(I)+FT/2D0)*TS
+            PERV(I) = PERV(I)+FT
+            PERA(I) = W
+         END DO
+
+*     Time still to go.
+         TLEFT = TSPAN-RTN
+
+*     Is it either time to rectify the orbit or the last time through?
+         IF (ABS(RTN).GE.AGEBEL.OR.FB*TLEFT.LE.0D0) THEN
+
+*        Yes: update to the end of the current timestep.
+            T0 = T0+RTN
+            RTN = 0D0
+
+*        The body's unperturbed motion (AU,AU/s).
+            CALL sla_UE2PV(T0,UL,PV0,J)
+            IF (J.NE.0) GO TO 9010
+
+*        Add and re-initialize the perturbations.
+            DO I=1,3
+               J = I+3
+               PV(I) = PV0(I)+PERP(I)
+               PV(J) = PV0(J)+PERV(I)/86400D0
+               PERP(I) = 0D0
+               PERV(I) = 0D0
+               PERA(I) = FD(I)*GCON2
+            END DO
+
+*        Use the position and velocity to set up new universal elements.
+            CALL sla_PV2UE(PV,T0,0D0,UL,J)
+            IF (J.NE.0) GO TO 9010
+
+*        Adjust the timespan and time left.
+            TSPAN = TFINAL-T0
+            TLEFT = TSPAN
+         END IF
+
+*     Next timestep.
+      END DO
+
+*  Return the updated universal-element set.
+      DO I=1,13
+         U(I) = UL(I)
+      END DO
+
+*  Finished.
+      GO TO 9999
+
+*  Miscellaneous numerical error.
+ 9010 CONTINUE
+      JSTAT = -1
+
+ 9999 CONTINUE
+      END
diff --git a/src/slalib/planel.f b/src/slalib/planel.f
new file mode 100644
index 0000000..064e51c
--- /dev/null
+++ b/src/slalib/planel.f
@@ -0,0 +1,117 @@
+      SUBROUTINE sla_PLANEL (DATE, JFORM, EPOCH, ORBINC, ANODE, PERIH,
+     :                       AORQ, E, AORL, DM, PV, JSTAT)
+*+
+*     - - - - - - -
+*      P L A N E L
+*     - - - - - - -
+*
+*  Heliocentric position and velocity of a planet, asteroid or comet,
+*  starting from orbital elements.
+*
+*  Given:
+*     DATE      d      date, Modified Julian Date (JD - 2400000.5)
+*     JFORM     i      choice of element set (1-3; Note 3)
+*     EPOCH     d      epoch of elements (TT MJD)
+*     ORBINC    d      inclination (radians)
+*     ANODE     d      longitude of the ascending node (radians)
+*     PERIH     d      longitude or argument of perihelion (radians)
+*     AORQ      d      mean distance or perihelion distance (AU)
+*     E         d      eccentricity
+*     AORL      d      mean anomaly or longitude (radians, JFORM=1,2 only)
+*     DM        d      daily motion (radians, JFORM=1 only)
+*
+*  Returned:
+*     PV        d(6)   heliocentric x,y,z,xdot,ydot,zdot of date,
+*                                       J2000 equatorial triad (AU,AU/s)
+*     JSTAT     i      status:  0 = OK
+*                              -1 = illegal JFORM
+*                              -2 = illegal E
+*                              -3 = illegal AORQ
+*                              -4 = illegal DM
+*                              -5 = numerical error
+*
+*  Called:  sla_EL2UE, sla_UE2PV
+*
+*  Notes
+*
+*  1  DATE is the instant for which the prediction is required.  It is
+*     in the TT timescale (formerly Ephemeris Time, ET) and is a
+*     Modified Julian Date (JD-2400000.5).
+*
+*  2  The elements are with respect to the J2000 ecliptic and equinox.
+*
+*  3  Three different element-format options are available:
+*
+*     Option JFORM=1, suitable for the major planets:
+*
+*     EPOCH  = epoch of elements (TT MJD)
+*     ORBINC = inclination i (radians)
+*     ANODE  = longitude of the ascending node, big omega (radians)
+*     PERIH  = longitude of perihelion, curly pi (radians)
+*     AORQ   = mean distance, a (AU)
+*     E      = eccentricity, e (range 0 to <1)
+*     AORL   = mean longitude L (radians)
+*     DM     = daily motion (radians)
+*
+*     Option JFORM=2, suitable for minor planets:
+*
+*     EPOCH  = epoch of elements (TT MJD)
+*     ORBINC = inclination i (radians)
+*     ANODE  = longitude of the ascending node, big omega (radians)
+*     PERIH  = argument of perihelion, little omega (radians)
+*     AORQ   = mean distance, a (AU)
+*     E      = eccentricity, e (range 0 to <1)
+*     AORL   = mean anomaly M (radians)
+*
+*     Option JFORM=3, suitable for comets:
+*
+*     EPOCH  = epoch of perihelion (TT MJD)
+*     ORBINC = inclination i (radians)
+*     ANODE  = longitude of the ascending node, big omega (radians)
+*     PERIH  = argument of perihelion, little omega (radians)
+*     AORQ   = perihelion distance, q (AU)
+*     E      = eccentricity, e (range 0 to 10)
+*
+*  4  Unused elements (DM for JFORM=2, AORL and DM for JFORM=3) are
+*     not accessed.
+*
+*  5  The reference frame for the result is with respect to the mean
+*     equator and equinox of epoch J2000.
+*
+*  6  The algorithm was originally adapted from the EPHSLA program of
+*     D.H.P.Jones (private communication, 1996).  The method is based
+*     on Stumpff's Universal Variables.
+*
+*  Reference:  Everhart, E. & Pitkin, E.T., Am.J.Phys. 51, 712, 1983.
+*
+*  P.T.Wallace   Starlink   18 March 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE
+      INTEGER JFORM
+      DOUBLE PRECISION EPOCH,ORBINC,ANODE,PERIH,AORQ,E,AORL,DM,PV(6)
+      INTEGER JSTAT
+
+      DOUBLE PRECISION U(13)
+      INTEGER J
+
+
+
+*  Validate elements and convert to "universal variables" parameters.
+      CALL sla_EL2UE(DATE,JFORM,
+     :               EPOCH,ORBINC,ANODE,PERIH,AORQ,E,AORL,DM,U,J)
+
+*  Determine the position and velocity.
+      IF (J.EQ.0) THEN
+         CALL sla_UE2PV(DATE,U,PV,J)
+         IF (J.NE.0) J=-5
+      END IF
+
+*  Wrap up.
+      JSTAT = J
+
+      END
diff --git a/src/slalib/planet.f b/src/slalib/planet.f
new file mode 100644
index 0000000..095dff7
--- /dev/null
+++ b/src/slalib/planet.f
@@ -0,0 +1,707 @@
+      SUBROUTINE sla_PLANET (DATE, NP, PV, JSTAT)
+*+
+*     - - - - - - -
+*      P L A N E T
+*     - - - - - - -
+*
+*  Approximate heliocentric position and velocity of a specified
+*  major planet.
+*
+*  Given:
+*     DATE      d      Modified Julian Date (JD - 2400000.5)
+*     NP        i      planet (1=Mercury, 2=Venus, 3=EMB ... 9=Pluto)
+*
+*  Returned:
+*     PV        d(6)   heliocentric x,y,z,xdot,ydot,zdot, J2000
+*                                           equatorial triad (AU,AU/s)
+*     JSTAT     i      status: +1 = warning: date out of range
+*                               0 = OK
+*                              -1 = illegal NP (outside 1-9)
+*                              -2 = solution didn't converge
+*
+*  Called:  sla_PLANEL
+*
+*  Notes
+*
+*  1  The epoch, DATE, is in the TDB timescale and is a Modified
+*     Julian Date (JD-2400000.5).
+*
+*  2  The reference frame is equatorial and is with respect to the
+*     mean equinox and ecliptic of epoch J2000.
+*
+*  3  If an NP value outside the range 1-9 is supplied, an error
+*     status (JSTAT = -1) is returned and the PV vector set to zeroes.
+*
+*  4  The algorithm for obtaining the mean elements of the planets
+*     from Mercury to Neptune is due to J.L. Simon, P. Bretagnon,
+*     J. Chapront, M. Chapront-Touze, G. Francou and J. Laskar
+*     (Bureau des Longitudes, Paris).  The (completely different)
+*     algorithm for calculating the ecliptic coordinates of Pluto
+*     is by Meeus.
+*
+*  5  Comparisons of the present routine with the JPL DE200 ephemeris
+*     give the following RMS errors over the interval 1960-2025:
+*
+*                      position (km)     speed (metre/sec)
+*
+*        Mercury            334               0.437
+*        Venus             1060               0.855
+*        EMB               2010               0.815
+*        Mars              7690               1.98
+*        Jupiter          71700               7.70
+*        Saturn          199000              19.4
+*        Uranus          564000              16.4
+*        Neptune         158000              14.4
+*        Pluto            36400               0.137
+*
+*     From comparisons with DE102, Simon et al quote the following
+*     longitude accuracies over the interval 1800-2200:
+*
+*        Mercury                 4"
+*        Venus                   5"
+*        EMB                     6"
+*        Mars                   17"
+*        Jupiter                71"
+*        Saturn                 81"
+*        Uranus                 86"
+*        Neptune                11"
+*
+*     In the case of Pluto, Meeus quotes an accuracy of 0.6 arcsec
+*     in longitude and 0.2 arcsec in latitude for the period
+*     1885-2099.
+*
+*     For all except Pluto, over the period 1000-3000 the accuracy
+*     is better than 1.5 times that over 1800-2200.  Outside the
+*     period 1000-3000 the accuracy declines.  For Pluto the
+*     accuracy declines rapidly outside the period 1885-2099.
+*     Outside these ranges (1885-2099 for Pluto, 1000-3000 for
+*     the rest) a "date out of range" warning status (JSTAT=+1)
+*     is returned.
+*
+*  6  The algorithms for (i) Mercury through Neptune and (ii) Pluto
+*     are completely independent.  In the Mercury through Neptune
+*     case, the present SLALIB implementation differs from the
+*     original Simon et al Fortran code in the following respects.
+*
+*     *  The date is supplied as a Modified Julian Date rather
+*        than a Julian Date (MJD = JD - 2400000.5).
+*
+*     *  The result is returned only in equatorial Cartesian form;
+*        the ecliptic longitude, latitude and radius vector are not
+*        returned.
+*
+*     *  The velocity is in AU per second, not AU per day.
+*
+*     *  Different error/warning status values are used.
+*
+*     *  Kepler's equation is not solved inline.
+*
+*     *  Polynomials in T are nested to minimize rounding errors.
+*
+*     *  Explicit double-precision constants are used to avoid
+*        mixed-mode expressions.
+*
+*     *  There are other, cosmetic, changes to comply with
+*        Starlink/SLALIB style guidelines.
+*
+*     None of the above changes affects the result significantly.
+*
+*  7  For NP=3 the result is for the Earth-Moon Barycentre.  To
+*     obtain the heliocentric position and velocity of the Earth,
+*     either use the SLALIB routine sla_EVP or call sla_DMOON and
+*     subtract 0.012150581 times the geocentric Moon vector from
+*     the EMB vector produced by the present routine.  (The Moon
+*     vector should be precessed to J2000 first, but this can
+*     be omitted for modern epochs without introducing significant
+*     inaccuracy.)
+*
+*  References:  Simon et al., Astron. Astrophys. 282, 663 (1994).
+*               Meeus, Astronomical Algorithms, Willmann-Bell (1991).
+*
+*  P.T.Wallace   Starlink   27 May 1997
+*
+*  Copyright (C) 1997 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE
+      INTEGER NP
+      DOUBLE PRECISION PV(6)
+      INTEGER JSTAT
+
+*  2Pi, deg to radians, arcsec to radians
+      DOUBLE PRECISION D2PI,D2R,AS2R
+      PARAMETER (D2PI=6.283185307179586476925286766559D0,
+     :           D2R=0.017453292519943295769236907684886D0,
+     :           AS2R=4.848136811095359935899141023579D-6)
+
+*  Gaussian gravitational constant (exact)
+      DOUBLE PRECISION GCON
+      PARAMETER (GCON=0.01720209895D0)
+
+*  Seconds per Julian century
+      DOUBLE PRECISION SPC
+      PARAMETER (SPC=36525D0*86400D0)
+
+*  Sin and cos of J2000 mean obliquity (IAU 1976)
+      DOUBLE PRECISION SE,CE
+      PARAMETER (SE=0.3977771559319137D0,
+     :           CE=0.9174820620691818D0)
+
+      INTEGER I,J,IJSP(3,43)
+      DOUBLE PRECISION AMAS(8),A(3,8),DLM(3,8),E(3,8),
+     :                 PI(3,8),DINC(3,8),OMEGA(3,8),
+     :                 DKP(9,8),CA(9,8),SA(9,8),
+     :                 DKQ(10,8),CLO(10,8),SLO(10,8),
+     :                 T,DA,DE,DPE,DI,DO,DMU,ARGA,ARGL,DM,
+     :                 AB(2,3,43),DJ0,DS0,DP0,DL0,DLD0,DB0,DR0,
+     :                 DJ,DS,DP,DJD,DSD,DPD,WLBR(3),WLBRD(3),
+     :                 WJ,WS,WP,AL,ALD,SAL,CAL,
+     :                 AC,BC,DL,DLD,DB,DBD,DR,DRD,
+     :                 SL,CL,SB,CB,SLCB,CLCB,X,Y,Z,XD,YD,ZD
+
+*  -----------------------
+*  Mercury through Neptune
+*  -----------------------
+
+*  Planetary inverse masses
+      DATA AMAS / 6023600D0,408523.5D0,328900.5D0,3098710D0,
+     :            1047.355D0,3498.5D0,22869D0,19314D0 /
+
+*
+*  Tables giving the mean Keplerian elements, limited to T**2 terms:
+*
+*         A       semi-major axis (AU)
+*         DLM     mean longitude (degree and arcsecond)
+*         E       eccentricity
+*         PI      longitude of the perihelion (degree and arcsecond)
+*         DINC    inclination (degree and arcsecond)
+*         OMEGA   longitude of the ascending node (degree and arcsecond)
+*
+      DATA A /
+     :  0.3870983098D0,             0D0,      0D0,
+     :  0.7233298200D0,             0D0,      0D0,
+     :  1.0000010178D0,             0D0,      0D0,
+     :  1.5236793419D0,           3D-10,      0D0,
+     :  5.2026032092D0,       19132D-10,  -39D-10,
+     :  9.5549091915D0, -0.0000213896D0,  444D-10,
+     : 19.2184460618D0,       -3716D-10,  979D-10,
+     : 30.1103868694D0,      -16635D-10,  686D-10 /
+*
+      DATA DLM /
+     : 252.25090552D0, 5381016286.88982D0,  -1.92789D0,
+     : 181.97980085D0, 2106641364.33548D0,   0.59381D0,
+     : 100.46645683D0, 1295977422.83429D0,  -2.04411D0,
+     : 355.43299958D0,  689050774.93988D0,   0.94264D0,
+     :  34.35151874D0,  109256603.77991D0, -30.60378D0,
+     :  50.07744430D0,   43996098.55732D0,  75.61614D0,
+     : 314.05500511D0,   15424811.93933D0,  -1.75083D0,
+     : 304.34866548D0,    7865503.20744D0,   0.21103D0/
+*
+      DATA E /
+     : 0.2056317526D0,  0.0002040653D0,      -28349D-10,
+     : 0.0067719164D0, -0.0004776521D0,       98127D-10,
+     : 0.0167086342D0, -0.0004203654D0, -0.0000126734D0,
+     : 0.0934006477D0,  0.0009048438D0,      -80641D-10,
+     : 0.0484979255D0,  0.0016322542D0, -0.0000471366D0,
+     : 0.0555481426D0, -0.0034664062D0, -0.0000643639D0,
+     : 0.0463812221D0, -0.0002729293D0,  0.0000078913D0,
+     : 0.0094557470D0,  0.0000603263D0,            0D0 /
+*
+      DATA PI /
+     :  77.45611904D0,  5719.11590D0,   -4.83016D0,
+     : 131.56370300D0,   175.48640D0, -498.48184D0,
+     : 102.93734808D0, 11612.35290D0,   53.27577D0,
+     : 336.06023395D0, 15980.45908D0,  -62.32800D0,
+     :  14.33120687D0,  7758.75163D0,  259.95938D0,
+     :  93.05723748D0, 20395.49439D0,  190.25952D0,
+     : 173.00529106D0,  3215.56238D0,  -34.09288D0,
+     :  48.12027554D0,  1050.71912D0,   27.39717D0 /
+*
+      DATA DINC /
+     : 7.00498625D0, -214.25629D0,   0.28977D0,
+     : 3.39466189D0,  -30.84437D0, -11.67836D0,
+     :          0D0,  469.97289D0,  -3.35053D0,
+     : 1.84972648D0, -293.31722D0,  -8.11830D0,
+     : 1.30326698D0,  -71.55890D0,  11.95297D0,
+     : 2.48887878D0,   91.85195D0, -17.66225D0,
+     : 0.77319689D0,  -60.72723D0,   1.25759D0,
+     : 1.76995259D0,    8.12333D0,   0.08135D0 /
+*
+      DATA OMEGA /
+     :  48.33089304D0,  -4515.21727D0,  -31.79892D0,
+     :  76.67992019D0, -10008.48154D0,  -51.32614D0,
+     : 174.87317577D0,  -8679.27034D0,   15.34191D0,
+     :  49.55809321D0, -10620.90088D0, -230.57416D0,
+     : 100.46440702D0,   6362.03561D0,  326.52178D0,
+     : 113.66550252D0,  -9240.19942D0,  -66.23743D0,
+     :  74.00595701D0,   2669.15033D0,  145.93964D0,
+     : 131.78405702D0,   -221.94322D0,   -0.78728D0 /
+*
+*  Tables for trigonometric terms to be added to the mean elements
+*  of the semi-major axes.
+*
+      DATA DKP /
+     : 69613, 75645, 88306, 59899, 15746, 71087, 142173,  3086,    0,
+     : 21863, 32794, 26934, 10931, 26250, 43725,  53867, 28939,    0,
+     : 16002, 21863, 32004, 10931, 14529, 16368,  15318, 32794,    0,
+     : 6345,   7818, 15636,  7077,  8184, 14163,   1107,  4872,    0,
+     : 1760,   1454,  1167,   880,   287,  2640,     19,  2047, 1454,
+     :  574,      0,   880,   287,    19,  1760,   1167,   306,  574,
+     :  204,      0,   177,  1265,     4,   385,    200,   208,  204,
+     :    0,    102,   106,     4,    98,  1367,    487,   204,    0 /
+*
+      DATA CA /
+     :      4,    -13,    11,    -9,    -9,    -3,    -1,     4,    0,
+     :   -156,     59,   -42,     6,    19,   -20,   -10,   -12,    0,
+     :     64,   -152,    62,    -8,    32,   -41,    19,   -11,    0,
+     :    124,    621,  -145,   208,    54,   -57,    30,    15,    0,
+     : -23437,  -2634,  6601,  6259, -1507, -1821,  2620, -2115,-1489,
+     :  62911,-119919, 79336, 17814,-24241, 12068,  8306, -4893, 8902,
+     : 389061,-262125,-44088,  8387,-22976, -2093,  -615, -9720, 6633,
+     :-412235,-157046,-31430, 37817, -9740,   -13, -7449,  9644,    0 /
+*
+      DATA SA /
+     :     -29,    -1,     9,     6,    -6,     5,     4,     0,    0,
+     :     -48,  -125,   -26,   -37,    18,   -13,   -20,    -2,    0,
+     :    -150,   -46,    68,    54,    14,    24,   -28,    22,    0,
+     :    -621,   532,  -694,   -20,   192,   -94,    71,   -73,    0,
+     :  -14614,-19828, -5869,  1881, -4372, -2255,   782,   930,  913,
+     :  139737,     0, 24667, 51123, -5102,  7429, -4095, -1976,-9566,
+     : -138081,     0, 37205,-49039,-41901,-33872,-27037,-12474,18797,
+     :       0, 28492,133236, 69654, 52322,-49577,-26430, -3593,    0 /
+*
+*  Tables giving the trigonometric terms to be added to the mean
+*  elements of the mean longitudes.
+*
+      DATA DKQ /
+     :  3086, 15746, 69613, 59899, 75645, 88306, 12661, 2658,  0,   0,
+     : 21863, 32794, 10931,    73,  4387, 26934,  1473, 2157,  0,   0,
+     :    10, 16002, 21863, 10931,  1473, 32004,  4387,   73,  0,   0,
+     :    10,  6345,  7818,  1107, 15636,  7077,  8184,  532, 10,   0,
+     :    19,  1760,  1454,   287,  1167,   880,   574, 2640, 19,1454,
+     :    19,   574,   287,   306,  1760,    12,    31,   38, 19, 574,
+     :     4,   204,   177,     8,    31,   200,  1265,  102,  4, 204,
+     :     4,   102,   106,     8,    98,  1367,   487,  204,  4, 102 /
+*
+      DATA CLO /
+     :     21,   -95, -157,   41,   -5,   42,   23,   30,     0,    0,
+     :   -160,  -313, -235,   60,  -74,  -76,  -27,   34,     0,    0,
+     :   -325,  -322,  -79,  232,  -52,   97,   55,  -41,     0,    0,
+     :   2268,  -979,  802,  602, -668,  -33,  345,  201,   -55,    0,
+     :   7610, -4997,-7689,-5841,-2617, 1115, -748, -607,  6074,  354,
+     : -18549, 30125,20012, -730,  824,   23, 1289, -352,-14767,-2062,
+     :-135245,-14594, 4197,-4030,-5630,-2898, 2540, -306,  2939, 1986,
+     :  89948,  2103, 8963, 2695, 3682, 1648,  866, -154, -1963, -283 /
+*
+      DATA SLO /
+     :   -342,   136,  -23,   62,   66,  -52,  -33,   17,     0,    0,
+     :    524,  -149,  -35,  117,  151,  122,  -71,  -62,     0,    0,
+     :   -105,  -137,  258,   35, -116,  -88, -112,  -80,     0,    0,
+     :    854,  -205, -936, -240,  140, -341,  -97, -232,   536,    0,
+     : -56980,  8016, 1012, 1448,-3024,-3710,  318,  503,  3767,  577,
+     : 138606,-13478,-4964, 1441,-1319,-1482,  427, 1236, -9167,-1918,
+     :  71234,-41116, 5334,-4935,-1848,   66,  434,-1748,  3780, -701,
+     : -47645, 11647, 2166, 3194,  679,    0, -244, -419, -2531,   48 /
+
+*  -----
+*  Pluto
+*  -----
+
+*
+*  Coefficients for fundamental arguments:  mean longitudes
+*  (degrees) and mean rate of change of longitude (degrees per
+*  Julian century) for Jupiter, Saturn and Pluto
+*
+      DATA DJ0, DJD / 34.35D0, 3034.9057D0 /
+      DATA DS0, DSD / 50.08D0, 1222.1138D0 /
+      DATA DP0, DPD / 238.96D0, 144.9600D0 /
+
+*  Coefficients for latitude, longitude, radius vector
+      DATA DL0,DLD0 / 238.956785D0, 144.96D0 /
+      DATA DB0 / -3.908202D0 /
+      DATA DR0 / 40.7247248D0 /
+
+*
+*  Coefficients for periodic terms (Meeus's Table 36.A)
+*
+*  The coefficients for term n in the series are:
+*
+*    IJSP(1,n)     J
+*    IJSP(2,n)     S
+*    IJSP(3,n)     P
+*    AB(1,1,n)     longitude sine (degrees)
+*    AB(2,1,n)     longitude cosine (degrees)
+*    AB(1,2,n)     latitude sine (degrees)
+*    AB(2,2,n)     latitude cosine (degrees)
+*    AB(1,3,n)     radius vector sine (AU)
+*    AB(2,3,n)     radius vector cosine (AU)
+*
+      DATA (IJSP(I, 1),I=1,3),((AB(J,I, 1),J=1,2),I=1,3) /
+     :                             0,  0,  1,
+     :            -19798886D-6,  19848454D-6,
+     :             -5453098D-6, -14974876D-6,
+     :             66867334D-7,  68955876D-7 /
+      DATA (IJSP(I, 2),I=1,3),((AB(J,I, 2),J=1,2),I=1,3) /
+     :                             0,  0,  2,
+     :               897499D-6,  -4955707D-6,
+     :              3527363D-6,   1672673D-6,
+     :            -11826086D-7,   -333765D-7 /
+      DATA (IJSP(I, 3),I=1,3),((AB(J,I, 3),J=1,2),I=1,3) /
+     :                             0,  0,  3,
+     :               610820D-6,   1210521D-6,
+     :             -1050939D-6,    327763D-6,
+     :              1593657D-7,  -1439953D-7 /
+      DATA (IJSP(I, 4),I=1,3),((AB(J,I, 4),J=1,2),I=1,3) /
+     :                             0,  0,  4,
+     :              -341639D-6,   -189719D-6,
+     :               178691D-6,   -291925D-6,
+     :               -18948D-7,    482443D-7 /
+      DATA (IJSP(I, 5),I=1,3),((AB(J,I, 5),J=1,2),I=1,3) /
+     :                             0,  0,  5,
+     :               129027D-6,    -34863D-6,
+     :                18763D-6,    100448D-6,
+     :               -66634D-7,    -85576D-7 /
+      DATA (IJSP(I, 6),I=1,3),((AB(J,I, 6),J=1,2),I=1,3) /
+     :                             0,  0,  6,
+     :               -38215D-6,     31061D-6,
+     :               -30594D-6,    -25838D-6,
+     :                30841D-7,     -5765D-7 /
+      DATA (IJSP(I, 7),I=1,3),((AB(J,I, 7),J=1,2),I=1,3) /
+     :                             0,  1, -1,
+     :                20349D-6,     -9886D-6,
+     :                 4965D-6,     11263D-6,
+     :                -6140D-7,     22254D-7 /
+      DATA (IJSP(I, 8),I=1,3),((AB(J,I, 8),J=1,2),I=1,3) /
+     :                             0,  1,  0,
+     :                -4045D-6,     -4904D-6,
+     :                  310D-6,      -132D-6,
+     :                 4434D-7,      4443D-7 /
+      DATA (IJSP(I, 9),I=1,3),((AB(J,I, 9),J=1,2),I=1,3) /
+     :                             0,  1,  1,
+     :                -5885D-6,     -3238D-6,
+     :                 2036D-6,      -947D-6,
+     :                -1518D-7,       641D-7 /
+      DATA (IJSP(I,10),I=1,3),((AB(J,I,10),J=1,2),I=1,3) /
+     :                             0,  1,  2,
+     :                -3812D-6,      3011D-6,
+     :                   -2D-6,      -674D-6,
+     :                   -5D-7,       792D-7 /
+      DATA (IJSP(I,11),I=1,3),((AB(J,I,11),J=1,2),I=1,3) /
+     :                             0,  1,  3,
+     :                 -601D-6,      3468D-6,
+     :                 -329D-6,      -563D-6,
+     :                  518D-7,       518D-7 /
+      DATA (IJSP(I,12),I=1,3),((AB(J,I,12),J=1,2),I=1,3) /
+     :                             0,  2, -2,
+     :                 1237D-6,       463D-6,
+     :                  -64D-6,        39D-6,
+     :                  -13D-7,      -221D-7 /
+      DATA (IJSP(I,13),I=1,3),((AB(J,I,13),J=1,2),I=1,3) /
+     :                             0,  2, -1,
+     :                 1086D-6,      -911D-6,
+     :                  -94D-6,       210D-6,
+     :                  837D-7,      -494D-7 /
+      DATA (IJSP(I,14),I=1,3),((AB(J,I,14),J=1,2),I=1,3) /
+     :                             0,  2,  0,
+     :                  595D-6,     -1229D-6,
+     :                   -8D-6,      -160D-6,
+     :                 -281D-7,       616D-7 /
+      DATA (IJSP(I,15),I=1,3),((AB(J,I,15),J=1,2),I=1,3) /
+     :                             1, -1,  0,
+     :                 2484D-6,      -485D-6,
+     :                 -177D-6,       259D-6,
+     :                  260D-7,      -395D-7 /
+      DATA (IJSP(I,16),I=1,3),((AB(J,I,16),J=1,2),I=1,3) /
+     :                             1, -1,  1,
+     :                  839D-6,     -1414D-6,
+     :                   17D-6,       234D-6,
+     :                 -191D-7,      -396D-7 /
+      DATA (IJSP(I,17),I=1,3),((AB(J,I,17),J=1,2),I=1,3) /
+     :                             1,  0, -3,
+     :                 -964D-6,      1059D-6,
+     :                  582D-6,      -285D-6,
+     :                -3218D-7,       370D-7 /
+      DATA (IJSP(I,18),I=1,3),((AB(J,I,18),J=1,2),I=1,3) /
+     :                             1,  0, -2,
+     :                -2303D-6,     -1038D-6,
+     :                 -298D-6,       692D-6,
+     :                 8019D-7,     -7869D-7 /
+      DATA (IJSP(I,19),I=1,3),((AB(J,I,19),J=1,2),I=1,3) /
+     :                             1,  0, -1,
+     :                 7049D-6,       747D-6,
+     :                  157D-6,       201D-6,
+     :                  105D-7,     45637D-7 /
+      DATA (IJSP(I,20),I=1,3),((AB(J,I,20),J=1,2),I=1,3) /
+     :                             1,  0,  0,
+     :                 1179D-6,      -358D-6,
+     :                  304D-6,       825D-6,
+     :                 8623D-7,      8444D-7 /
+      DATA (IJSP(I,21),I=1,3),((AB(J,I,21),J=1,2),I=1,3) /
+     :                             1,  0,  1,
+     :                  393D-6,       -63D-6,
+     :                 -124D-6,       -29D-6,
+     :                 -896D-7,      -801D-7 /
+      DATA (IJSP(I,22),I=1,3),((AB(J,I,22),J=1,2),I=1,3) /
+     :                             1,  0,  2,
+     :                  111D-6,      -268D-6,
+     :                   15D-6,         8D-6,
+     :                  208D-7,      -122D-7 /
+      DATA (IJSP(I,23),I=1,3),((AB(J,I,23),J=1,2),I=1,3) /
+     :                             1,  0,  3,
+     :                  -52D-6,      -154D-6,
+     :                    7D-6,        15D-6,
+     :                 -133D-7,        65D-7 /
+      DATA (IJSP(I,24),I=1,3),((AB(J,I,24),J=1,2),I=1,3) /
+     :                             1,  0,  4,
+     :                  -78D-6,       -30D-6,
+     :                    2D-6,         2D-6,
+     :                  -16D-7,         1D-7 /
+      DATA (IJSP(I,25),I=1,3),((AB(J,I,25),J=1,2),I=1,3) /
+     :                             1,  1, -3,
+     :                  -34D-6,       -26D-6,
+     :                    4D-6,         2D-6,
+     :                  -22D-7,         7D-7 /
+      DATA (IJSP(I,26),I=1,3),((AB(J,I,26),J=1,2),I=1,3) /
+     :                             1,  1, -2,
+     :                  -43D-6,         1D-6,
+     :                    3D-6,         0D-6,
+     :                   -8D-7,        16D-7 /
+      DATA (IJSP(I,27),I=1,3),((AB(J,I,27),J=1,2),I=1,3) /
+     :                             1,  1, -1,
+     :                  -15D-6,        21D-6,
+     :                    1D-6,        -1D-6,
+     :                    2D-7,         9D-7 /
+      DATA (IJSP(I,28),I=1,3),((AB(J,I,28),J=1,2),I=1,3) /
+     :                             1,  1,  0,
+     :                   -1D-6,        15D-6,
+     :                    0D-6,        -2D-6,
+     :                   12D-7,         5D-7 /
+      DATA (IJSP(I,29),I=1,3),((AB(J,I,29),J=1,2),I=1,3) /
+     :                             1,  1,  1,
+     :                    4D-6,         7D-6,
+     :                    1D-6,         0D-6,
+     :                    1D-7,        -3D-7 /
+      DATA (IJSP(I,30),I=1,3),((AB(J,I,30),J=1,2),I=1,3) /
+     :                             1,  1,  3,
+     :                    1D-6,         5D-6,
+     :                    1D-6,        -1D-6,
+     :                    1D-7,         0D-7 /
+      DATA (IJSP(I,31),I=1,3),((AB(J,I,31),J=1,2),I=1,3) /
+     :                             2,  0, -6,
+     :                    8D-6,         3D-6,
+     :                   -2D-6,        -3D-6,
+     :                    9D-7,         5D-7 /
+      DATA (IJSP(I,32),I=1,3),((AB(J,I,32),J=1,2),I=1,3) /
+     :                             2,  0, -5,
+     :                   -3D-6,         6D-6,
+     :                    1D-6,         2D-6,
+     :                    2D-7,        -1D-7 /
+      DATA (IJSP(I,33),I=1,3),((AB(J,I,33),J=1,2),I=1,3) /
+     :                             2,  0, -4,
+     :                    6D-6,       -13D-6,
+     :                   -8D-6,         2D-6,
+     :                   14D-7,        10D-7 /
+      DATA (IJSP(I,34),I=1,3),((AB(J,I,34),J=1,2),I=1,3) /
+     :                             2,  0, -3,
+     :                   10D-6,        22D-6,
+     :                   10D-6,        -7D-6,
+     :                  -65D-7,        12D-7 /
+      DATA (IJSP(I,35),I=1,3),((AB(J,I,35),J=1,2),I=1,3) /
+     :                             2,  0, -2,
+     :                  -57D-6,       -32D-6,
+     :                    0D-6,        21D-6,
+     :                  126D-7,      -233D-7 /
+      DATA (IJSP(I,36),I=1,3),((AB(J,I,36),J=1,2),I=1,3) /
+     :                             2,  0, -1,
+     :                  157D-6,       -46D-6,
+     :                    8D-6,         5D-6,
+     :                  270D-7,      1068D-7 /
+      DATA (IJSP(I,37),I=1,3),((AB(J,I,37),J=1,2),I=1,3) /
+     :                             2,  0,  0,
+     :                   12D-6,       -18D-6,
+     :                   13D-6,        16D-6,
+     :                  254D-7,       155D-7 /
+      DATA (IJSP(I,38),I=1,3),((AB(J,I,38),J=1,2),I=1,3) /
+     :                             2,  0,  1,
+     :                   -4D-6,         8D-6,
+     :                   -2D-6,        -3D-6,
+     :                  -26D-7,        -2D-7 /
+      DATA (IJSP(I,39),I=1,3),((AB(J,I,39),J=1,2),I=1,3) /
+     :                             2,  0,  2,
+     :                   -5D-6,         0D-6,
+     :                    0D-6,         0D-6,
+     :                    7D-7,         0D-7 /
+      DATA (IJSP(I,40),I=1,3),((AB(J,I,40),J=1,2),I=1,3) /
+     :                             2,  0,  3,
+     :                    3D-6,         4D-6,
+     :                    0D-6,         1D-6,
+     :                  -11D-7,         4D-7 /
+      DATA (IJSP(I,41),I=1,3),((AB(J,I,41),J=1,2),I=1,3) /
+     :                             3,  0, -2,
+     :                   -1D-6,        -1D-6,
+     :                    0D-6,         1D-6,
+     :                    4D-7,       -14D-7 /
+      DATA (IJSP(I,42),I=1,3),((AB(J,I,42),J=1,2),I=1,3) /
+     :                             3,  0, -1,
+     :                    6D-6,        -3D-6,
+     :                    0D-6,         0D-6,
+     :                   18D-7,        35D-7 /
+      DATA (IJSP(I,43),I=1,3),((AB(J,I,43),J=1,2),I=1,3) /
+     :                             3,  0,  0,
+     :                   -1D-6,        -2D-6,
+     :                    0D-6,         1D-6,
+     :                   13D-7,         3D-7 /
+
+
+*  Validate the planet number.
+      IF (NP.LT.1.OR.NP.GT.9) THEN
+         JSTAT=-1
+         DO I=1,6
+            PV(I)=0D0
+         END DO
+      ELSE
+
+*     Separate algorithms for Pluto and the rest.
+         IF (NP.NE.9) THEN
+
+*        -----------------------
+*        Mercury through Neptune
+*        -----------------------
+
+*        Time: Julian millennia since J2000.
+            T=(DATE-51544.5D0)/365250D0
+
+*        OK status unless remote epoch.
+            IF (ABS(T).LE.1D0) THEN
+               JSTAT=0
+            ELSE
+               JSTAT=1
+            END IF
+
+*        Compute the mean elements.
+            DA=A(1,NP)+(A(2,NP)+A(3,NP)*T)*T
+            DL=(3600D0*DLM(1,NP)+(DLM(2,NP)+DLM(3,NP)*T)*T)*AS2R
+            DE=E(1,NP)+(E(2,NP)+E(3,NP)*T)*T
+            DPE=MOD((3600D0*PI(1,NP)+(PI(2,NP)+PI(3,NP)*T)*T)*AS2R,D2PI)
+            DI=(3600D0*DINC(1,NP)+(DINC(2,NP)+DINC(3,NP)*T)*T)*AS2R
+            DO=MOD((3600D0*OMEGA(1,NP)
+     :                        +(OMEGA(2,NP)+OMEGA(3,NP)*T)*T)*AS2R,D2PI)
+
+*        Apply the trigonometric terms.
+            DMU=0.35953620D0*T
+            DO J=1,8
+               ARGA=DKP(J,NP)*DMU
+               ARGL=DKQ(J,NP)*DMU
+               DA=DA+(CA(J,NP)*COS(ARGA)+SA(J,NP)*SIN(ARGA))*1D-7
+               DL=DL+(CLO(J,NP)*COS(ARGL)+SLO(J,NP)*SIN(ARGL))*1D-7
+            END DO
+            ARGA=DKP(9,NP)*DMU
+            DA=DA+T*(CA(9,NP)*COS(ARGA)+SA(9,NP)*SIN(ARGA))*1D-7
+            DO J=9,10
+               ARGL=DKQ(J,NP)*DMU
+               DL=DL+T*(CLO(J,NP)*COS(ARGL)+SLO(J,NP)*SIN(ARGL))*1D-7
+            END DO
+            DL=MOD(DL,D2PI)
+
+*        Daily motion.
+            DM=GCON*SQRT((1D0+1D0/AMAS(NP))/(DA*DA*DA))
+
+*        Make the prediction.
+            CALL sla_PLANEL(DATE,1,DATE,DI,DO,DPE,DA,DE,DL,DM,PV,J)
+            IF (J.LT.0) JSTAT=-2
+
+         ELSE
+
+*        -----
+*        Pluto
+*        -----
+
+*        Time: Julian centuries since J2000.
+            T=(DATE-51544.5D0)/36525D0
+
+*        OK status unless remote epoch.
+            IF (T.GE.-1.15D0.AND.T.LE.1D0) THEN
+               JSTAT=0
+            ELSE
+               JSTAT=1
+            END IF
+
+*        Fundamental arguments (radians).
+            DJ=(DJ0+DJD*T)*D2R
+            DS=(DS0+DSD*T)*D2R
+            DP=(DP0+DPD*T)*D2R
+
+*        Initialize coefficients and derivatives.
+            DO I=1,3
+               WLBR(I)=0D0
+               WLBRD(I)=0D0
+            END DO
+
+*        Term by term through Meeus Table 36.A.
+            DO J=1,43
+
+*           Argument and derivative (radians, radians per century).
+               WJ=DBLE(IJSP(1,J))
+               WS=DBLE(IJSP(2,J))
+               WP=DBLE(IJSP(3,J))
+               AL=WJ*DJ+WS*DS+WP*DP
+               ALD=(WJ*DJD+WS*DSD+WP*DPD)*D2R
+
+*           Functions of argument.
+               SAL=SIN(AL)
+               CAL=COS(AL)
+
+*           Periodic terms in longitude, latitude, radius vector.
+               DO I=1,3
+
+*              A and B coefficients (deg, AU).
+                  AC=AB(1,I,J)
+                  BC=AB(2,I,J)
+
+*              Periodic terms (deg, AU, deg/Jc, AU/Jc).
+                  WLBR(I)=WLBR(I)+AC*SAL+BC*CAL
+                  WLBRD(I)=WLBRD(I)+(AC*CAL-BC*SAL)*ALD
+               END DO
+            END DO
+
+*        Heliocentric longitude and derivative (radians, radians/sec).
+            DL=(DL0+DLD0*T+WLBR(1))*D2R
+            DLD=(DLD0+WLBRD(1))*D2R/SPC
+
+*        Heliocentric latitude and derivative (radians, radians/sec).
+            DB=(DB0+WLBR(2))*D2R
+            DBD=WLBRD(2)*D2R/SPC
+
+*        Heliocentric radius vector and derivative (AU, AU/sec).
+            DR=DR0+WLBR(3)
+            DRD=WLBRD(3)/SPC
+
+*        Functions of latitude, longitude, radius vector.
+            SL=SIN(DL)
+            CL=COS(DL)
+            SB=SIN(DB)
+            CB=COS(DB)
+            SLCB=SL*CB
+            CLCB=CL*CB
+
+*        Heliocentric vector and derivative, J2000 ecliptic and equinox.
+            X=DR*CLCB
+            Y=DR*SLCB
+            Z=DR*SB
+            XD=DRD*CLCB-DR*(CL*SB*DBD+SLCB*DLD)
+            YD=DRD*SLCB+DR*(-SL*SB*DBD+CLCB*DLD)
+            ZD=DRD*SB+DR*CB*DBD
+
+*        Transform to J2000 equator and equinox.
+            PV(1)=X
+            PV(2)=Y*CE-Z*SE
+            PV(3)=Y*SE+Z*CE
+            PV(4)=XD
+            PV(5)=YD*CE-ZD*SE
+            PV(6)=YD*SE+ZD*CE
+         END IF
+      END IF
+
+      END
diff --git a/src/slalib/plante.f b/src/slalib/plante.f
new file mode 100644
index 0000000..e8f89d9
--- /dev/null
+++ b/src/slalib/plante.f
@@ -0,0 +1,157 @@
+      SUBROUTINE sla_PLANTE (DATE, ELONG, PHI, JFORM, EPOCH,
+     :                       ORBINC, ANODE, PERIH, AORQ, E,
+     :                       AORL, DM, RA, DEC, R, JSTAT)
+*+
+*     - - - - - - -
+*      P L A N T E
+*     - - - - - - -
+*
+*  Topocentric apparent RA,Dec of a Solar-System object whose
+*  heliocentric orbital elements are known.
+*
+*  Given:
+*     DATE      d     MJD of observation (JD - 2400000.5)
+*     ELONG     d     observer's east longitude (radians)
+*     PHI       d     observer's geodetic latitude (radians)
+*     JFORM     i     choice of element set (1-3; Note 4)
+*     EPOCH     d     epoch of elements (TT MJD)
+*     ORBINC    d     inclination (radians)
+*     ANODE     d     longitude of the ascending node (radians)
+*     PERIH     d     longitude or argument of perihelion (radians)
+*     AORQ      d     mean distance or perihelion distance (AU)
+*     E         d     eccentricity
+*     AORL      d     mean anomaly or longitude (radians, JFORM=1,2 only)
+*     DM        d     daily motion (radians, JFORM=1 only )
+*
+*  Returned:
+*     RA,DEC    d     RA, Dec (topocentric apparent, radians)
+*     R         d     distance from observer (AU)
+*     JSTAT     i     status:  0 = OK
+*                             -1 = illegal JFORM
+*                             -2 = illegal E
+*                             -3 = illegal AORQ
+*                             -4 = illegal DM
+*                             -5 = numerical error
+*
+*  Notes:
+*
+*  1  DATE is the instant for which the prediction is required.  It is
+*     in the TT timescale (formerly Ephemeris Time, ET) and is a
+*     Modified Julian Date (JD-2400000.5).
+*
+*  2  The longitude and latitude allow correction for geocentric
+*     parallax.  This is usually a small effect, but can become
+*     important for Earth-crossing asteroids.  Geocentric positions
+*     can be generated by appropriate use of routines sla_EVP and
+*     sla_PLANEL.
+*
+*  3  The elements are with respect to the J2000 ecliptic and equinox.
+*
+*  4  Three different element-format options are available:
+*
+*     Option JFORM=1, suitable for the major planets:
+*
+*     EPOCH  = epoch of elements (TT MJD)
+*     ORBINC = inclination i (radians)
+*     ANODE  = longitude of the ascending node, big omega (radians)
+*     PERIH  = longitude of perihelion, curly pi (radians)
+*     AORQ   = mean distance, a (AU)
+*     E      = eccentricity, e
+*     AORL   = mean longitude L (radians)
+*     DM     = daily motion (radians)
+*
+*     Option JFORM=2, suitable for minor planets:
+*
+*     EPOCH  = epoch of elements (TT MJD)
+*     ORBINC = inclination i (radians)
+*     ANODE  = longitude of the ascending node, big omega (radians)
+*     PERIH  = argument of perihelion, little omega (radians)
+*     AORQ   = mean distance, a (AU)
+*     E      = eccentricity, e
+*     AORL   = mean anomaly M (radians)
+*
+*     Option JFORM=3, suitable for comets:
+*
+*     EPOCH  = epoch of perihelion (TT MJD)
+*     ORBINC = inclination i (radians)
+*     ANODE  = longitude of the ascending node, big omega (radians)
+*     PERIH  = argument of perihelion, little omega (radians)
+*     AORQ   = perihelion distance, q (AU)
+*     E      = eccentricity, e
+*
+*  5  Unused elements (DM for JFORM=2, AORL and DM for JFORM=3) are
+*     not accessed.
+*
+*  Called: sla_GMST, sla_DT, sla_EPJ, sla_PVOBS, sla_PRENUT,
+*          sla_PLANEL, sla_DMXV, sla_DCC2S, sla_DRANRM
+*
+*  P.T.Wallace   Starlink   17 March 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE,ELONG,PHI
+      INTEGER JFORM
+      DOUBLE PRECISION EPOCH,ORBINC,ANODE,PERIH,AORQ,E,
+     :                 AORL,DM,RA,DEC,R
+      INTEGER JSTAT
+
+*  Light time for unit distance (sec)
+      DOUBLE PRECISION TAU
+      PARAMETER (TAU=499.004782D0)
+
+      INTEGER I
+      DOUBLE PRECISION DVB(3),DPB(3),VSG(6),VSP(6),V(6),RMAT(3,3),
+     :                 VGP(6),STL,VGO(6),DX,DY,DZ,D,TL
+      DOUBLE PRECISION sla_GMST,sla_DT,sla_EPJ,sla_DRANRM
+
+
+
+*  Sun to geocentre (J2000).
+      CALL sla_EVP(DATE,2000D0,DVB,DPB,VSG(4),VSG)
+
+*  Sun to planet (J2000).
+      CALL sla_PLANEL(DATE,JFORM,EPOCH,ORBINC,ANODE,PERIH,AORQ,
+     :                E,AORL,DM,VSP,JSTAT)
+
+*  Geocentre to planet (J2000).
+      DO I=1,6
+         V(I)=VSP(I)-VSG(I)
+      END DO
+
+*  Precession and nutation to date.
+      CALL sla_PRENUT(2000D0,DATE,RMAT)
+      CALL sla_DMXV(RMAT,V,VGP)
+      CALL sla_DMXV(RMAT,V(4),VGP(4))
+
+*  Geocentre to observer (date).
+      STL=sla_GMST(DATE-sla_DT(sla_EPJ(DATE))/86400D0)+ELONG
+      CALL sla_PVOBS(PHI,0D0,STL,VGO)
+
+*  Observer to planet (date).
+      DO I=1,6
+         V(I)=VGP(I)-VGO(I)
+      END DO
+
+*  Geometric distance (AU).
+      DX=V(1)
+      DY=V(2)
+      DZ=V(3)
+      D=SQRT(DX*DX+DY*DY+DZ*DZ)
+
+*  Light time (sec).
+      TL=TAU*D
+
+*  Correct position for planetary aberration
+      DO I=1,3
+         V(I)=V(I)-TL*V(I+3)
+      END DO
+
+*  To RA,Dec.
+      CALL sla_DCC2S(V,RA,DEC)
+      RA=sla_DRANRM(RA)
+      R=D
+
+      END
diff --git a/src/slalib/pm.f b/src/slalib/pm.f
new file mode 100644
index 0000000..82a5772
--- /dev/null
+++ b/src/slalib/pm.f
@@ -0,0 +1,74 @@
+      SUBROUTINE sla_PM (R0, D0, PR, PD, PX, RV, EP0, EP1, R1, D1)
+*+
+*     - - -
+*      P M
+*     - - -
+*
+*  Apply corrections for proper motion to a star RA,Dec
+*  (double precision)
+*
+*  References:
+*     1984 Astronomical Almanac, pp B39-B41.
+*     (also Lederle & Schwan, Astron. Astrophys. 134,
+*      1-6, 1984)
+*
+*  Given:
+*     R0,D0    dp     RA,Dec at epoch EP0 (rad)
+*     PR,PD    dp     proper motions:  RA,Dec changes per year of epoch
+*     PX       dp     parallax (arcsec)
+*     RV       dp     radial velocity (km/sec, +ve if receding)
+*     EP0      dp     start epoch in years (e.g. Julian epoch)
+*     EP1      dp     end epoch in years (same system as EP0)
+*
+*  Returned:
+*     R1,D1    dp     RA,Dec at epoch EP1 (rad)
+*
+*  Called:
+*     sla_DCS2C       spherical to Cartesian
+*     sla_DCC2S       Cartesian to spherical
+*     sla_DRANRM      normalize angle 0-2Pi
+*
+*  Note:
+*     The proper motions in RA are dRA/dt rather than
+*     cos(Dec)*dRA/dt, and are in the same coordinate
+*     system as R0,D0.
+*
+*  P.T.Wallace   Starlink   23 August 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION R0,D0,PR,PD,PX,RV,EP0,EP1,R1,D1
+
+*  Km/s to AU/year multiplied by arc seconds to radians
+      DOUBLE PRECISION VFR
+      PARAMETER (VFR=0.21094502D0*0.484813681109535994D-5)
+
+      INTEGER I
+      DOUBLE PRECISION sla_DRANRM
+      DOUBLE PRECISION W,EM(3),T,P(3)
+
+
+
+*  Spherical to Cartesian
+      CALL sla_DCS2C(R0,D0,P)
+
+*  Space motion (radians per year)
+      W=VFR*RV*PX
+      EM(1)=-PR*P(2)-PD*COS(R0)*SIN(D0)+W*P(1)
+      EM(2)= PR*P(1)-PD*SIN(R0)*SIN(D0)+W*P(2)
+      EM(3)=         PD*COS(D0)        +W*P(3)
+
+*  Apply the motion
+      T=EP1-EP0
+      DO I=1,3
+         P(I)=P(I)+T*EM(I)
+      END DO
+
+*  Cartesian to spherical
+      CALL sla_DCC2S(P,R1,D1)
+      R1=sla_DRANRM(R1)
+
+      END
diff --git a/src/slalib/polmo.f b/src/slalib/polmo.f
new file mode 100644
index 0000000..4532ca8
--- /dev/null
+++ b/src/slalib/polmo.f
@@ -0,0 +1,133 @@
+      SUBROUTINE sla_POLMO ( ELONGM, PHIM, XP, YP, ELONG, PHI, DAZ )
+*+
+*     - - - - - -
+*      P O L M O
+*     - - - - - -
+*
+*  Polar motion:  correct site longitude and latitude for polar
+*  motion and calculate azimuth difference between celestial and
+*  terrestrial poles.
+*
+*  Given:
+*     ELONGM   d      mean longitude of the observer (radians, east +ve)
+*     PHIM     d      mean geodetic latitude of the observer (radians)
+*     XP       d      polar motion x-coordinate (radians)
+*     YP       d      polar motion y-coordinate (radians)
+*
+*  Returned:
+*     ELONG    d      true longitude of the observer (radians, east +ve)
+*     PHI      d      true geodetic latitude of the observer (radians)
+*     DAZ      d      azimuth correction (terrestrial-celestial, radians)
+*
+*  Notes:
+*
+*   1)  "Mean" longitude and latitude are the (fixed) values for the
+*       site's location with respect to the IERS terrestrial reference
+*       frame;  the latitude is geodetic.  TAKE CARE WITH THE LONGITUDE
+*       SIGN CONVENTION.  The longitudes used by the present routine
+*       are east-positive, in accordance with geographical convention
+*       (and right-handed).  In particular, note that the longitudes
+*       returned by the sla_OBS routine are west-positive, following
+*       astronomical usage, and must be reversed in sign before use in
+*       the present routine.
+*
+*   2)  XP and YP are the (changing) coordinates of the Celestial
+*       Ephemeris Pole with respect to the IERS Reference Pole.
+*       XP is positive along the meridian at longitude 0 degrees,
+*       and YP is positive along the meridian at longitude
+*       270 degrees (i.e. 90 degrees west).  Values for XP,YP can
+*       be obtained from IERS circulars and equivalent publications;
+*       the maximum amplitude observed so far is about 0.3 arcseconds.
+*
+*   3)  "True" longitude and latitude are the (moving) values for
+*       the site's location with respect to the celestial ephemeris
+*       pole and the meridian which corresponds to the Greenwich
+*       apparent sidereal time.  The true longitude and latitude
+*       link the terrestrial coordinates with the standard celestial
+*       models (for precession, nutation, sidereal time etc).
+*
+*   4)  The azimuths produced by sla_AOP and sla_AOPQK are with
+*       respect to due north as defined by the Celestial Ephemeris
+*       Pole, and can therefore be called "celestial azimuths".
+*       However, a telescope fixed to the Earth measures azimuth
+*       essentially with respect to due north as defined by the
+*       IERS Reference Pole, and can therefore be called "terrestrial
+*       azimuth".  Uncorrected, this would manifest itself as a
+*       changing "azimuth zero-point error".  The value DAZ is the
+*       correction to be added to a celestial azimuth to produce
+*       a terrestrial azimuth.
+*
+*   5)  The present routine is rigorous.  For most practical
+*       purposes, the following simplified formulae provide an
+*       adequate approximation:
+*
+*       ELONG = ELONGM+XP*COS(ELONGM)-YP*SIN(ELONGM)
+*       PHI   = PHIM+(XP*SIN(ELONGM)+YP*COS(ELONGM))*TAN(PHIM)
+*       DAZ   = -SQRT(XP*XP+YP*YP)*COS(ELONGM-ATAN2(XP,YP))/COS(PHIM)
+*
+*       An alternative formulation for DAZ is:
+*
+*       X = COS(ELONGM)*COS(PHIM)
+*       Y = SIN(ELONGM)*COS(PHIM)
+*       DAZ = ATAN2(-X*YP-Y*XP,X*X+Y*Y)
+*
+*   Reference:  Seidelmann, P.K. (ed), 1992.  "Explanatory Supplement
+*               to the Astronomical Almanac", ISBN 0-935702-68-7,
+*               sections 3.27, 4.25, 4.52.
+*
+*  P.T.Wallace   Starlink   22 February 1996
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION ELONGM,PHIM,XP,YP,ELONG,PHI,DAZ
+
+      DOUBLE PRECISION SEL,CEL,SPH,CPH,XM,YM,ZM,XNM,YNM,ZNM,
+     :                 SXP,CXP,SYP,CYP,ZW,XT,YT,ZT,XNT,YNT
+
+
+
+*  Site mean longitude and mean geodetic latitude as a Cartesian vector
+      SEL=SIN(ELONGM)
+      CEL=COS(ELONGM)
+      SPH=SIN(PHIM)
+      CPH=COS(PHIM)
+
+      XM=CEL*CPH
+      YM=SEL*CPH
+      ZM=SPH
+
+*  Rotate site vector by polar motion, Y-component then X-component
+      SXP=SIN(XP)
+      CXP=COS(XP)
+      SYP=SIN(YP)
+      CYP=COS(YP)
+
+      ZW=(-YM*SYP+ZM*CYP)
+
+      XT=XM*CXP-ZW*SXP
+      YT=YM*CYP+ZM*SYP
+      ZT=XM*SXP+ZW*CXP
+
+*  Rotate also the geocentric direction of the terrestrial pole (0,0,1)
+      XNM=-SXP*CYP
+      YNM=SYP
+      ZNM=CXP*CYP
+
+      CPH=SQRT(XT*XT+YT*YT)
+      IF (CPH.EQ.0D0) XT=1D0
+      SEL=YT/CPH
+      CEL=XT/CPH
+
+*  Return true longitude and true geodetic latitude of site
+      ELONG=ATAN2(YT,XT)
+      PHI=ATAN2(ZT,CPH)
+
+*  Return current azimuth of terrestrial pole seen from site position
+      XNT=(XNM*CEL+YNM*SEL)*ZT-ZNM*CPH
+      YNT=-XNM*SEL+YNM*CEL
+      DAZ=ATAN2(-YNT,-XNT)
+
+      END
diff --git a/src/slalib/prebn.f b/src/slalib/prebn.f
new file mode 100644
index 0000000..a99dd51
--- /dev/null
+++ b/src/slalib/prebn.f
@@ -0,0 +1,62 @@
+      SUBROUTINE sla_PREBN (BEP0, BEP1, RMATP)
+*+
+*     - - - - - -
+*      P R E B N
+*     - - - - - -
+*
+*  Generate the matrix of precession between two epochs,
+*  using the old, pre-IAU1976, Bessel-Newcomb model, using
+*  Kinoshita's formulation (double precision)
+*
+*  Given:
+*     BEP0    dp         beginning Besselian epoch
+*     BEP1    dp         ending Besselian epoch
+*
+*  Returned:
+*     RMATP  dp(3,3)    precession matrix
+*
+*  The matrix is in the sense   V(BEP1)  =  RMATP * V(BEP0)
+*
+*  Reference:
+*     Kinoshita, H. (1975) 'Formulas for precession', SAO Special
+*     Report No. 364, Smithsonian Institution Astrophysical
+*     Observatory, Cambridge, Massachusetts.
+*
+*  Called:  sla_DEULER
+*
+*  P.T.Wallace   Starlink   23 August 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION BEP0,BEP1,RMATP(3,3)
+
+*  Arc seconds to radians
+      DOUBLE PRECISION AS2R
+      PARAMETER (AS2R=0.484813681109535994D-5)
+
+      DOUBLE PRECISION BIGT,T,TAS2R,W,ZETA,Z,THETA
+
+
+
+*  Interval between basic epoch B1850.0 and beginning epoch in TC
+      BIGT = (BEP0-1850D0)/100D0
+
+*  Interval over which precession required, in tropical centuries
+      T = (BEP1-BEP0)/100D0
+
+*  Euler angles
+      TAS2R = T*AS2R
+      W = 2303.5548D0+(1.39720D0+0.000059D0*BIGT)*BIGT
+
+      ZETA = (W+(0.30242D0-0.000269D0*BIGT+0.017996D0*T)*T)*TAS2R
+      Z = (W+(1.09478D0+0.000387D0*BIGT+0.018324D0*T)*T)*TAS2R
+      THETA = (2005.1125D0+(-0.85294D0-0.000365D0*BIGT)*BIGT+
+     :        (-0.42647D0-0.000365D0*BIGT-0.041802D0*T)*T)*TAS2R
+
+*  Rotation matrix
+      CALL sla_DEULER('ZYZ',-ZETA,THETA,-Z,RMATP)
+
+      END
diff --git a/src/slalib/prec.f b/src/slalib/prec.f
new file mode 100644
index 0000000..65a4bb6
--- /dev/null
+++ b/src/slalib/prec.f
@@ -0,0 +1,79 @@
+      SUBROUTINE sla_PREC (EP0, EP1, RMATP)
+*+
+*     - - - - -
+*      P R E C
+*     - - - - -
+*
+*  Form the matrix of precession between two epochs (IAU 1976, FK5)
+*  (double precision)
+*
+*  Given:
+*     EP0    dp         beginning epoch
+*     EP1    dp         ending epoch
+*
+*  Returned:
+*     RMATP  dp(3,3)    precession matrix
+*
+*  Notes:
+*
+*     1)  The epochs are TDB (loosely ET) Julian epochs.
+*
+*     2)  The matrix is in the sense   V(EP1)  =  RMATP * V(EP0)
+*
+*     3)  Though the matrix method itself is rigorous, the precession
+*         angles are expressed through canonical polynomials which are
+*         valid only for a limited time span.  There are also known
+*         errors in the IAU precession rate.  The absolute accuracy
+*         of the present formulation is better than 0.1 arcsec from
+*         1960AD to 2040AD, better than 1 arcsec from 1640AD to 2360AD,
+*         and remains below 3 arcsec for the whole of the period
+*         500BC to 3000AD.  The errors exceed 10 arcsec outside the
+*         range 1200BC to 3900AD, exceed 100 arcsec outside 4200BC to
+*         5600AD and exceed 1000 arcsec outside 6800BC to 8200AD.
+*         The SLALIB routine sla_PRECL implements a more elaborate
+*         model which is suitable for problems spanning several
+*         thousand years.
+*
+*  References:
+*     Lieske,J.H., 1979. Astron.Astrophys.,73,282.
+*      equations (6) & (7), p283.
+*     Kaplan,G.H., 1981. USNO circular no. 163, pA2.
+*
+*  Called:  sla_DEULER
+*
+*  P.T.Wallace   Starlink   23 August 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION EP0,EP1,RMATP(3,3)
+
+*  Arc seconds to radians
+      DOUBLE PRECISION AS2R
+      PARAMETER (AS2R=0.484813681109535994D-5)
+
+      DOUBLE PRECISION T0,T,TAS2R,W,ZETA,Z,THETA
+
+
+
+*  Interval between basic epoch J2000.0 and beginning epoch (JC)
+      T0 = (EP0-2000D0)/100D0
+
+*  Interval over which precession required (JC)
+      T = (EP1-EP0)/100D0
+
+*  Euler angles
+      TAS2R = T*AS2R
+      W = 2306.2181D0+(1.39656D0-0.000139D0*T0)*T0
+
+      ZETA = (W+((0.30188D0-0.000344D0*T0)+0.017998D0*T)*T)*TAS2R
+      Z = (W+((1.09468D0+0.000066D0*T0)+0.018203D0*T)*T)*TAS2R
+      THETA = ((2004.3109D0+(-0.85330D0-0.000217D0*T0)*T0)
+     :        +((-0.42665D0-0.000217D0*T0)-0.041833D0*T)*T)*TAS2R
+
+*  Rotation matrix
+      CALL sla_DEULER('ZYZ',-ZETA,THETA,-Z,RMATP)
+
+      END
diff --git a/src/slalib/preces.f b/src/slalib/preces.f
new file mode 100644
index 0000000..09f946e
--- /dev/null
+++ b/src/slalib/preces.f
@@ -0,0 +1,84 @@
+      SUBROUTINE sla_PRECES (SYSTEM, EP0, EP1, RA, DC)
+*+
+*     - - - - - - -
+*      P R E C E S
+*     - - - - - - -
+*
+*  Precession - either FK4 (Bessel-Newcomb, pre IAU 1976) or
+*  FK5 (Fricke, post IAU 1976) as required.
+*
+*  Given:
+*     SYSTEM     char   precession to be applied: 'FK4' or 'FK5'
+*     EP0,EP1    dp     starting and ending epoch
+*     RA,DC      dp     RA,Dec, mean equator & equinox of epoch EP0
+*
+*  Returned:
+*     RA,DC      dp     RA,Dec, mean equator & equinox of epoch EP1
+*
+*  Called:    sla_DRANRM, sla_PREBN, sla_PREC, sla_DCS2C,
+*             sla_DMXV, sla_DCC2S
+*
+*  Notes:
+*
+*     1)  Lowercase characters in SYSTEM are acceptable.
+*
+*     2)  The epochs are Besselian if SYSTEM='FK4' and Julian if 'FK5'.
+*         For example, to precess coordinates in the old system from
+*         equinox 1900.0 to 1950.0 the call would be:
+*             CALL sla_PRECES ('FK4', 1900D0, 1950D0, RA, DC)
+*
+*     3)  This routine will NOT correctly convert between the old and
+*         the new systems - for example conversion from B1950 to J2000.
+*         For these purposes see sla_FK425, sla_FK524, sla_FK45Z and
+*         sla_FK54Z.
+*
+*     4)  If an invalid SYSTEM is supplied, values of -99D0,-99D0 will
+*         be returned for both RA and DC.
+*
+*  P.T.Wallace   Starlink   20 April 1990
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      CHARACTER SYSTEM*(*)
+      DOUBLE PRECISION EP0,EP1,RA,DC
+
+      DOUBLE PRECISION PM(3,3),V1(3),V2(3)
+      CHARACTER SYSUC*3
+
+      DOUBLE PRECISION sla_DRANRM
+
+
+
+
+*  Convert to uppercase and validate SYSTEM
+      SYSUC=SYSTEM
+      IF (SYSUC(1:1).EQ.'f') SYSUC(1:1)='F'
+      IF (SYSUC(2:2).EQ.'k') SYSUC(2:2)='K'
+      IF (SYSUC.NE.'FK4'.AND.SYSUC.NE.'FK5') THEN
+         RA=-99D0
+         DC=-99D0
+      ELSE
+
+*     Generate appropriate precession matrix
+         IF (SYSUC.EQ.'FK4') THEN
+            CALL sla_PREBN(EP0,EP1,PM)
+         ELSE
+            CALL sla_PREC(EP0,EP1,PM)
+         END IF
+
+*     Convert RA,Dec to x,y,z
+         CALL sla_DCS2C(RA,DC,V1)
+
+*     Precess
+         CALL sla_DMXV(PM,V1,V2)
+
+*     Back to RA,Dec
+         CALL sla_DCC2S(V2,RA,DC)
+         RA=sla_DRANRM(RA)
+
+      END IF
+
+      END
diff --git a/src/slalib/precl.f b/src/slalib/precl.f
new file mode 100644
index 0000000..e24b3d3
--- /dev/null
+++ b/src/slalib/precl.f
@@ -0,0 +1,125 @@
+      SUBROUTINE sla_PRECL (EP0, EP1, RMATP)
+*+
+*     - - - - - -
+*      P R E C L
+*     - - - - - -
+*
+*  Form the matrix of precession between two epochs, using the
+*  model of Simon et al (1994), which is suitable for long
+*  periods of time.
+*
+*  (double precision)
+*
+*  Given:
+*     EP0    dp         beginning epoch
+*     EP1    dp         ending epoch
+*
+*  Returned:
+*     RMATP  dp(3,3)    precession matrix
+*
+*  Notes:
+*
+*     1)  The epochs are TDB Julian epochs.
+*
+*     2)  The matrix is in the sense   V(EP1)  =  RMATP * V(EP0)
+*
+*     3)  The absolute accuracy of the model is limited by the
+*         uncertainty in the general precession, about 0.3 arcsec per
+*         1000 years.  The remainder of the formulation provides a
+*         precision of 1 mas over the interval from 1000AD to 3000AD,
+*         0.1 arcsec from 1000BC to 5000AD and 1 arcsec from
+*         4000BC to 8000AD.
+*
+*  Reference:
+*     Simon, J.L. et al., 1994. Astron.Astrophys., 282, 663-683.
+*
+*  Called:  sla_DEULER
+*
+*  P.T.Wallace   Starlink   23 August 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION EP0,EP1,RMATP(3,3)
+
+*  Arc seconds to radians
+      DOUBLE PRECISION AS2R
+      PARAMETER (AS2R=0.484813681109535994D-5)
+
+      DOUBLE PRECISION T0,T,TAS2R,W,ZETA,Z,THETA
+
+
+
+*  Interval between basic epoch J2000.0 and beginning epoch (1000JY)
+      T0 = (EP0-2000D0)/1000D0
+
+*  Interval over which precession required (1000JY)
+      T = (EP1-EP0)/1000D0
+
+*  Euler angles
+      TAS2R = T*AS2R
+      W =      23060.9097D0+
+     :          (139.7459D0+
+     :           (-0.0038D0+
+     :           (-0.5918D0+
+     :           (-0.0037D0+
+     :             0.0007D0*T0)*T0)*T0)*T0)*T0
+
+      ZETA =   (W+(30.2226D0+
+     :            (-0.2523D0+
+     :            (-0.3840D0+
+     :            (-0.0014D0+
+     :              0.0007D0*T0)*T0)*T0)*T0+
+     :            (18.0183D0+
+     :            (-0.1326D0+
+     :             (0.0006D0+
+     :              0.0005D0*T0)*T0)*T0+
+     :            (-0.0583D0+
+     :            (-0.0001D0+
+     :              0.0007D0*T0)*T0+
+     :            (-0.0285D0+
+     :            (-0.0002D0)*T)*T)*T)*T)*T)*TAS2R
+
+      Z =     (W+(109.5270D0+
+     :             (0.2446D0+
+     :            (-1.3913D0+
+     :            (-0.0134D0+
+     :              0.0026D0*T0)*T0)*T0)*T0+
+     :            (18.2667D0+
+     :            (-1.1400D0+
+     :            (-0.0173D0+
+     :              0.0044D0*T0)*T0)*T0+
+     :            (-0.2821D0+
+     :            (-0.0093D0+
+     :              0.0032D0*T0)*T0+
+     :            (-0.0301D0+
+     :              0.0006D0*T0
+     :             -0.0001D0*T)*T)*T)*T)*T)*TAS2R
+
+      THETA =  (20042.0207D0+
+     :           (-85.3131D0+
+     :            (-0.2111D0+
+     :             (0.3642D0+
+     :             (0.0008D0+
+     :            (-0.0005D0)*T0)*T0)*T0)*T0)*T0+
+     :           (-42.6566D0+
+     :            (-0.2111D0+
+     :             (0.5463D0+
+     :             (0.0017D0+
+     :            (-0.0012D0)*T0)*T0)*T0)*T0+
+     :           (-41.8238D0+
+     :             (0.0359D0+
+     :             (0.0027D0+
+     :            (-0.0001D0)*T0)*T0)*T0+
+     :            (-0.0731D0+
+     :             (0.0019D0+
+     :              0.0009D0*T0)*T0+
+     :            (-0.0127D0+
+     :              0.0011D0*T0+0.0004D0*T)*T)*T)*T)*T)*TAS2R
+
+*  Rotation matrix
+      CALL sla_DEULER('ZYZ',-ZETA,THETA,-Z,RMATP)
+
+      END
diff --git a/src/slalib/prenut.f b/src/slalib/prenut.f
new file mode 100644
index 0000000..96d6bdc
--- /dev/null
+++ b/src/slalib/prenut.f
@@ -0,0 +1,48 @@
+      SUBROUTINE sla_PRENUT (EPOCH, DATE, RMATPN)
+*+
+*     - - - - - - -
+*      P R E N U T
+*     - - - - - - -
+*
+*  Form the matrix of precession and nutation (IAU1976/FK5)
+*  (double precision)
+*
+*  Given:
+*     EPOCH   dp         Julian Epoch for mean coordinates
+*     DATE    dp         Modified Julian Date (JD-2400000.5)
+*                        for true coordinates
+*
+*  Returned:
+*     RMATPN  dp(3,3)    combined precession/nutation matrix
+*
+*  Called:  sla_PREC, sla_EPJ, sla_NUT, sla_DMXM
+*
+*  Notes:
+*
+*  1)  The epoch and date are TDB (loosely ET).
+*
+*  2)  The matrix is in the sense   V(true)  =  RMATPN * V(mean)
+*
+*  P.T.Wallace   Starlink   April 1987
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION EPOCH,DATE,RMATPN(3,3)
+
+      DOUBLE PRECISION RMATP(3,3),RMATN(3,3),sla_EPJ
+
+
+
+*  Precession
+      CALL sla_PREC(EPOCH,sla_EPJ(DATE),RMATP)
+
+*  Nutation
+      CALL sla_NUT(DATE,RMATN)
+
+*  Combine the matrices:  PN = N x P
+      CALL sla_DMXM(RMATN,RMATP,RMATPN)
+
+      END
diff --git a/src/slalib/put.com b/src/slalib/put.com
new file mode 100755
index 0000000..fc42fe8
--- /dev/null
+++ b/src/slalib/put.com
@@ -0,0 +1,38 @@
+$!
+$!  - - - -
+$!   P U T
+$!  - - - -
+$!
+$!  Update one SLALIB routine from Fortran source
+$!
+$!  DCL command is @PUT file
+$!
+$!  The default directory must be the one containing the
+$!  Fortran source, with the libraries in [.RELEASE].
+$!
+$!  P T Wallace   Starlink   22 January 1993
+$!
+$!  Save supplied file name and strip recognized extensions
+$     FILE=''P1''
+$     P1=P1-".FOR"-".VAX"
+$!
+$!  No action required for TEST program
+      IF P1.EQS."TEST" THEN $ GOTO DONE
+$!
+$!  If platform-specific module, make .FOR file ...
+$     IF F$SEARCH("''P1'.VAX").NES."" THEN $ COPY 'P1'.VAX *.FOR
+$!
+$!  Update the source library
+$     LIBR/REPL/TEXT [.RELEASE]SLALIB.TLB 'P1'.FOR
+$!
+$!  Compile, update object library, delete object
+$     FORTRAN/NOLIST 'P1'.FOR
+$     LIBR/REPL [.RELEASE]SLALIB.OLB 'P1'.OBJ
+$     DELETE 'P1'.OBJ;*
+$!
+$!  If module just updated was platform-specific, delete the .FOR version
+$     IF F$SEARCH("''P1'.VAX",1).NES."" THEN $ DELETE 'P1'.FOR;*
+$!
+$!  Finished
+$DONE:
+$     EXIT
diff --git a/src/slalib/pv2el.f b/src/slalib/pv2el.f
new file mode 100644
index 0000000..e45ad64
--- /dev/null
+++ b/src/slalib/pv2el.f
@@ -0,0 +1,351 @@
+      SUBROUTINE sla_PV2EL (PV, DATE, PMASS, JFORMR,
+     :                      JFORM, EPOCH, ORBINC, ANODE, PERIH,
+     :                      AORQ, E, AORL, DM, JSTAT)
+*+
+*     - - - - - -
+*      P V 2 E L
+*     - - - - - -
+*
+*  Heliocentric osculating elements obtained from instantaneous position
+*  and velocity.
+*
+*  Given:
+*     PV        d(6)   heliocentric x,y,z,xdot,ydot,zdot of date,
+*                      J2000 equatorial triad (AU,AU/s; Note 1)
+*     DATE      d      date (TT Modified Julian Date = JD-2400000.5)
+*     PMASS     d      mass of the planet (Sun=1; Note 2)
+*     JFORMR    i      requested element set (1-3; Note 3)
+*
+*  Returned:
+*     JFORM     d      element set actually returned (1-3; Note 4)
+*     EPOCH     d      epoch of elements (TT MJD)
+*     ORBINC    d      inclination (radians)
+*     ANODE     d      longitude of the ascending node (radians)
+*     PERIH     d      longitude or argument of perihelion (radians)
+*     AORQ      d      mean distance or perihelion distance (AU)
+*     E         d      eccentricity
+*     AORL      d      mean anomaly or longitude (radians, JFORM=1,2 only)
+*     DM        d      daily motion (radians, JFORM=1 only)
+*     JSTAT     i      status:  0 = OK
+*                              -1 = illegal PMASS
+*                              -2 = illegal JFORMR
+*                              -3 = position/velocity out of range
+*
+*  Notes
+*
+*  1  The PV 6-vector is with respect to the mean equator and equinox of
+*     epoch J2000.  The orbital elements produced are with respect to
+*     the J2000 ecliptic and mean equinox.
+*
+*  2  The mass, PMASS, is important only for the larger planets.  For
+*     most purposes (e.g. asteroids) use 0D0.  Values less than zero
+*     are illegal.
+*
+*  3  Three different element-format options are supported:
+*
+*     Option JFORM=1, suitable for the major planets:
+*
+*     EPOCH  = epoch of elements (TT MJD)
+*     ORBINC = inclination i (radians)
+*     ANODE  = longitude of the ascending node, big omega (radians)
+*     PERIH  = longitude of perihelion, curly pi (radians)
+*     AORQ   = mean distance, a (AU)
+*     E      = eccentricity, e
+*     AORL   = mean longitude L (radians)
+*     DM     = daily motion (radians)
+*
+*     Option JFORM=2, suitable for minor planets:
+*
+*     EPOCH  = epoch of elements (TT MJD)
+*     ORBINC = inclination i (radians)
+*     ANODE  = longitude of the ascending node, big omega (radians)
+*     PERIH  = argument of perihelion, little omega (radians)
+*     AORQ   = mean distance, a (AU)
+*     E      = eccentricity, e
+*     AORL   = mean anomaly M (radians)
+*
+*     Option JFORM=3, suitable for comets:
+*
+*     EPOCH  = epoch of perihelion (TT MJD)
+*     ORBINC = inclination i (radians)
+*     ANODE  = longitude of the ascending node, big omega (radians)
+*     PERIH  = argument of perihelion, little omega (radians)
+*     AORQ   = perihelion distance, q (AU)
+*     E      = eccentricity, e
+*
+*  4  It may not be possible to generate elements in the form
+*     requested through JFORMR.  The caller is notified of the form
+*     of elements actually returned by means of the JFORM argument:
+*
+*      JFORMR   JFORM     meaning
+*
+*        1        1       OK - elements are in the requested format
+*        1        2       never happens
+*        1        3       orbit not elliptical
+*
+*        2        1       never happens
+*        2        2       OK - elements are in the requested format
+*        2        3       orbit not elliptical
+*
+*        3        1       never happens
+*        3        2       never happens
+*        3        3       OK - elements are in the requested format
+*
+*  5  The arguments returned for each value of JFORM (cf Note 5: JFORM
+*     may not be the same as JFORMR) are as follows:
+*
+*         JFORM         1              2              3
+*         EPOCH         t0             t0             T
+*         ORBINC        i              i              i
+*         ANODE         Omega          Omega          Omega
+*         PERIH         curly pi       omega          omega
+*         AORQ          a              a              q
+*         E             e              e              e
+*         AORL          L              M              -
+*         DM            n              -              -
+*
+*     where:
+*
+*         t0           is the epoch of the elements (MJD, TT)
+*         T              "    epoch of perihelion (MJD, TT)
+*         i              "    inclination (radians)
+*         Omega          "    longitude of the ascending node (radians)
+*         curly pi       "    longitude of perihelion (radians)
+*         omega          "    argument of perihelion (radians)
+*         a              "    mean distance (AU)
+*         q              "    perihelion distance (AU)
+*         e              "    eccentricity
+*         L              "    longitude (radians, 0-2pi)
+*         M              "    mean anomaly (radians, 0-2pi)
+*         n              "    daily motion (radians)
+*         -             means no value is set
+*
+*  6  At very small inclinations, the longitude of the ascending node
+*     ANODE becomes indeterminate and under some circumstances may be
+*     set arbitrarily to zero.  Similarly, if the orbit is close to
+*     circular, the true anomaly becomes indeterminate and under some
+*     circumstances may be set arbitrarily to zero.  In such cases,
+*     the other elements are automatically adjusted to compensate,
+*     and so the elements remain a valid description of the orbit.
+*
+*  Reference:  Sterne, Theodore E., "An Introduction to Celestial
+*              Mechanics", Interscience Publishers, 1960
+*
+*  Called:  sla_DRANRM
+*
+*  P.T.Wallace   Starlink   13 February 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION PV(6),DATE,PMASS
+      INTEGER JFORMR,JFORM
+      DOUBLE PRECISION EPOCH,ORBINC,ANODE,PERIH,AORQ,E,AORL,DM
+      INTEGER JSTAT
+
+*  Seconds to days
+      DOUBLE PRECISION DAY
+      PARAMETER (DAY=86400D0)
+
+*  Gaussian gravitational constant (exact)
+      DOUBLE PRECISION GCON
+      PARAMETER (GCON=0.01720209895D0)
+
+*  Sin and cos of J2000 mean obliquity (IAU 1976)
+      DOUBLE PRECISION SE,CE
+      PARAMETER (SE=0.3977771559319137D0,
+     :           CE=0.9174820620691818D0)
+
+*  Minimum allowed distance (AU) and speed (AU/day)
+      DOUBLE PRECISION RMIN,VMIN
+      PARAMETER (RMIN=1D-3,VMIN=1D-8)
+
+*  How close to unity the eccentricity has to be to call it a parabola
+      DOUBLE PRECISION PARAB
+      PARAMETER (PARAB=1D-8)
+
+      DOUBLE PRECISION X,Y,Z,XD,YD,ZD,R,V2,V,RDV,GMU,HX,HY,HZ,
+     :                 HX2PY2,H2,H,OI,BIGOM,AR,ECC,S,C,AT,U,OM,
+     :                 GAR3,EM1,EP1,HAT,SHAT,CHAT,AE,AM,DN,PL,
+     :                 EL,Q,TP,THAT,THHF,F
+
+      INTEGER JF
+
+      DOUBLE PRECISION sla_DRANRM
+
+
+*  Validate arguments PMASS and JFORMR.
+      IF (PMASS.LT.0D0) THEN
+         JSTAT = -1
+         GO TO 999
+      END IF
+      IF (JFORMR.LT.1.OR.JFORMR.GT.3) THEN
+         JSTAT = -2
+         GO TO 999
+      END IF
+
+*  Provisionally assume the elements will be in the chosen form.
+      JF = JFORMR
+
+*  Rotate the position from equatorial to ecliptic coordinates.
+      X = PV(1)
+      Y = PV(2)*CE+PV(3)*SE
+      Z = -PV(2)*SE+PV(3)*CE
+
+*  Rotate the velocity similarly, scaling to AU/day.
+      XD = DAY*PV(4)
+      YD = DAY*(PV(5)*CE+PV(6)*SE)
+      ZD = DAY*(-PV(5)*SE+PV(6)*CE)
+
+*  Distance and speed.
+      R = SQRT(X*X+Y*Y+Z*Z)
+      V2 = XD*XD+YD*YD+ZD*ZD
+      V = SQRT(V2)
+
+*  Reject unreasonably small values.
+      IF (R.LT.RMIN.OR.V.LT.VMIN) THEN
+         JSTAT = -3
+         GO TO 999
+      END IF
+
+*  R dot V.
+      RDV = X*XD+Y*YD+Z*ZD
+
+*  Mu.
+      GMU = (1D0+PMASS)*GCON*GCON
+
+*  Vector angular momentum per unit reduced mass.
+      HX = Y*ZD-Z*YD
+      HY = Z*XD-X*ZD
+      HZ = X*YD-Y*XD
+
+*  Areal constant.
+      HX2PY2 = HX*HX+HY*HY
+      H2 = HX2PY2+HZ*HZ
+      H = SQRT(H2)
+
+*  Inclination.
+      OI = ATAN2(SQRT(HX2PY2),HZ)
+
+*  Longitude of ascending node.
+      IF (HX.NE.0D0.OR.HY.NE.0D0) THEN
+         BIGOM = ATAN2(HX,-HY)
+      ELSE
+         BIGOM=0D0
+      END IF
+
+*  Reciprocal of mean distance etc.
+      AR = 2D0/R-V2/GMU
+
+*  Eccentricity.
+      ECC = SQRT(MAX(1D0-AR*H2/GMU,0D0))
+
+*  True anomaly.
+      S = H*RDV
+      C = H2-R*GMU
+      IF (S.NE.0D0.AND.C.NE.0D0) THEN
+         AT = ATAN2(S,C)
+      ELSE
+         AT = 0D0
+      END IF
+
+*  Argument of the latitude.
+      S = SIN(BIGOM)
+      C = COS(BIGOM)
+      U = ATAN2((-X*S+Y*C)*COS(OI)+Z*SIN(OI),X*C+Y*S)
+
+*  Argument of perihelion.
+      OM = U-AT
+
+*  Capture near-parabolic cases.
+      IF (ABS(ECC-1D0).LT.PARAB) ECC=1D0
+
+*  Comply with JFORMR = 1 or 2 only if orbit is elliptical.
+      IF (ECC.GE.1D0) JF=3
+
+*  Functions.
+      GAR3 = GMU*AR*AR*AR
+      EM1 = ECC-1D0
+      EP1 = ECC+1D0
+      HAT = AT/2D0
+      SHAT = SIN(HAT)
+      CHAT = COS(HAT)
+
+*  Ellipse?
+      IF (ECC.LT.1D0 ) THEN
+
+*     Eccentric anomaly.
+         AE = 2D0*ATAN2(SQRT(-EM1)*SHAT,SQRT(EP1)*CHAT)
+
+*     Mean anomaly.
+         AM = AE-ECC*SIN(AE)
+
+*     Daily motion.
+         DN = SQRT(GAR3)
+      END IF
+
+*  "Major planet" element set?
+      IF (JF.EQ.1) THEN
+
+*     Longitude of perihelion.
+         PL = BIGOM+OM
+
+*     Longitude at epoch.
+         EL = PL+AM
+      END IF
+
+*  "Comet" element set?
+      IF (JF.EQ.3) THEN
+
+*     Perihelion distance.
+         Q = H2/(GMU*EP1)
+
+*     Ellipse, parabola, hyperbola?
+         IF (ECC.LT.1D0) THEN
+
+*        Ellipse: epoch of perihelion.
+            TP = DATE-AM/DN
+         ELSE
+
+*        Parabola or hyperbola: evaluate tan ( ( true anomaly ) / 2 )
+            THAT = SHAT/CHAT
+            IF (ECC.EQ.1D0) THEN
+
+*           Parabola: epoch of perihelion.
+               TP = DATE-THAT*(1D0+THAT*THAT/3D0)*H*H2/(2D0*GMU*GMU)
+            ELSE
+
+*           Hyperbola: epoch of perihelion.
+               THHF = SQRT(EM1/EP1)*THAT
+               F = LOG(1D0+THHF)-LOG(1D0-THHF)
+               TP = DATE-(ECC*SINH(F)-F)/SQRT(-GAR3)
+            END IF
+         END IF
+      END IF
+
+*  Return the appropriate set of elements.
+      JFORM = JF
+      ORBINC = OI
+      ANODE = sla_DRANRM(BIGOM)
+      E = ECC
+      IF (JF.EQ.1) THEN
+         PERIH = sla_DRANRM(PL)
+         AORL = sla_DRANRM(EL)
+         DM = DN
+      ELSE
+         PERIH = sla_DRANRM(OM)
+         IF (JF.EQ.2) AORL = sla_DRANRM(AM)
+      END IF
+      IF (JF.NE.3) THEN
+         EPOCH = DATE
+         AORQ = 1D0/AR
+      ELSE
+         EPOCH = TP
+         AORQ = Q
+      END IF
+      JSTAT = 0
+
+ 999  CONTINUE
+      END
diff --git a/src/slalib/pv2ue.f b/src/slalib/pv2ue.f
new file mode 100644
index 0000000..de141e3
--- /dev/null
+++ b/src/slalib/pv2ue.f
@@ -0,0 +1,150 @@
+      SUBROUTINE sla_PV2UE (PV, DATE, PMASS, U, JSTAT)
+*+
+*     - - - - - -
+*      P V 2 U E
+*     - - - - - -
+*
+*  Construct a universal element set based on an instantaneous position
+*  and velocity.
+*
+*  Given:
+*     PV        d(6)   heliocentric x,y,z,xdot,ydot,zdot of date,
+*                      (AU,AU/s; Note 1)
+*     DATE      d      date (TT Modified Julian Date = JD-2400000.5)
+*     PMASS     d      mass of the planet (Sun=1; Note 2)
+*
+*  Returned:
+*     U         d(13)  universal orbital elements (Note 3)
+*
+*                 (1)  combined mass (M+m)
+*                 (2)  total energy of the orbit (alpha)
+*                 (3)  reference (osculating) epoch (t0)
+*               (4-6)  position at reference epoch (r0)
+*               (7-9)  velocity at reference epoch (v0)
+*                (10)  heliocentric distance at reference epoch
+*                (11)  r0.v0
+*                (12)  date (t)
+*                (13)  universal eccentric anomaly (psi) of date, approx
+*
+*     JSTAT     i      status:  0 = OK
+*                              -1 = illegal PMASS
+*                              -2 = too close to Sun
+*                              -3 = too slow
+*
+*  Notes
+*
+*  1  The PV 6-vector can be with respect to any chosen inertial frame,
+*     and the resulting universal-element set will be with respect to
+*     the same frame.  A common choice will be mean equator and ecliptic
+*     of epoch J2000.
+*
+*  2  The mass, PMASS, is important only for the larger planets.  For
+*     most purposes (e.g. asteroids) use 0D0.  Values less than zero
+*     are illegal.
+*
+*  3  The "universal" elements are those which define the orbit for the
+*     purposes of the method of universal variables (see reference).
+*     They consist of the combined mass of the two bodies, an epoch,
+*     and the position and velocity vectors (arbitrary reference frame)
+*     at that epoch.  The parameter set used here includes also various
+*     quantities that can, in fact, be derived from the other
+*     information.  This approach is taken to avoiding unnecessary
+*     computation and loss of accuracy.  The supplementary quantities
+*     are (i) alpha, which is proportional to the total energy of the
+*     orbit, (ii) the heliocentric distance at epoch, (iii) the
+*     outwards component of the velocity at the given epoch, (iv) an
+*     estimate of psi, the "universal eccentric anomaly" at a given
+*     date and (v) that date.
+*
+*  Reference:  Everhart, E. & Pitkin, E.T., Am.J.Phys. 51, 712, 1983.
+*
+*  P.T.Wallace   Starlink   18 March 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION PV(6),DATE,PMASS,U(13)
+      INTEGER JSTAT
+
+*  Gaussian gravitational constant (exact)
+      DOUBLE PRECISION GCON
+      PARAMETER (GCON=0.01720209895D0)
+
+*  Canonical days to seconds
+      DOUBLE PRECISION CD2S
+      PARAMETER (CD2S=GCON/86400D0)
+
+*  Minimum allowed distance (AU) and speed (AU per canonical day)
+      DOUBLE PRECISION RMIN,VMIN
+      PARAMETER (RMIN=1D-3,VMIN=1D-3)
+
+      DOUBLE PRECISION T0,CM,X,Y,Z,XD,YD,ZD,R,V2,V,ALPHA,RDV
+
+
+*  Reference epoch.
+      T0 = DATE
+
+*  Combined mass (mu=M+m).
+      IF (PMASS.LT.0D0) GO TO 9010
+      CM = 1D0+PMASS
+
+*  Unpack the state vector, expressing velocity in AU per canonical day.
+      X = PV(1)
+      Y = PV(2)
+      Z = PV(3)
+      XD = PV(4)/CD2S
+      YD = PV(5)/CD2S
+      ZD = PV(6)/CD2S
+
+*  Heliocentric distance, and speed.
+      R = SQRT(X*X+Y*Y+Z*Z)
+      V2 = XD*XD+YD*YD+ZD*ZD
+      V = SQRT(V2)
+
+*  Reject unreasonably small values.
+      IF (R.LT.RMIN) GO TO 9020
+      IF (V.LT.VMIN) GO TO 9030
+
+*  Total energy of the orbit.
+      ALPHA = V2-2D0*CM/R
+
+*  Outward component of velocity.
+      RDV = X*XD+Y*YD+Z*ZD
+
+*  Construct the universal-element set.
+      U(1) = CM
+      U(2) = ALPHA
+      U(3) = T0
+      U(4) = X
+      U(5) = Y
+      U(6) = Z
+      U(7) = XD
+      U(8) = YD
+      U(9) = ZD
+      U(10) = R
+      U(11) = RDV
+      U(12) = T0
+      U(13) = 0D0
+
+*  Exit.
+      JSTAT = 0
+      GO TO 9999
+
+*  Negative PMASS.
+ 9010 CONTINUE
+      JSTAT = -1
+      GO TO 9999
+
+*  Too close.
+ 9020 CONTINUE
+      JSTAT = -2
+      GO TO 9999
+
+*  Too slow.
+ 9030 CONTINUE
+      JSTAT = -3
+
+ 9999 CONTINUE
+      END
diff --git a/src/slalib/pvobs.f b/src/slalib/pvobs.f
new file mode 100644
index 0000000..116bc06
--- /dev/null
+++ b/src/slalib/pvobs.f
@@ -0,0 +1,59 @@
+      SUBROUTINE sla_PVOBS (P, H, STL, PV)
+*+
+*     - - - - - -
+*      P V O B S
+*     - - - - - -
+*
+*  Position and velocity of an observing station (double precision)
+*
+*  Given:
+*     P     dp     latitude (geodetic, radians)
+*     H     dp     height above reference spheroid (geodetic, metres)
+*     STL   dp     local apparent sidereal time (radians)
+*
+*  Returned:
+*     PV    dp(6)  position/velocity 6-vector (AU, AU/s, true equator
+*                                              and equinox of date)
+*
+*  Called:  sla_GEOC
+*
+*  IAU 1976 constants are used.
+*
+*  P.T.Wallace   Starlink   14 November 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION P,H,STL,PV(6)
+
+      DOUBLE PRECISION R,Z,S,C,V
+
+*  Mean sidereal rate (at J2000) in radians per (UT1) second
+      DOUBLE PRECISION SR
+      PARAMETER (SR=7.292115855306589D-5)
+
+
+
+*  Geodetic to geocentric conversion
+      CALL sla_GEOC(P,H,R,Z)
+
+*  Functions of ST
+      S=SIN(STL)
+      C=COS(STL)
+
+*  Speed
+      V=SR*R
+
+*  Position
+      PV(1)=R*C
+      PV(2)=R*S
+      PV(3)=Z
+
+*  Velocity
+      PV(4)=-V*S
+      PV(5)=V*C
+      PV(6)=0D0
+
+      END
diff --git a/src/slalib/pxy.f b/src/slalib/pxy.f
new file mode 100644
index 0000000..3dd880f
--- /dev/null
+++ b/src/slalib/pxy.f
@@ -0,0 +1,92 @@
+      SUBROUTINE sla_PXY (NP,XYE,XYM,COEFFS,XYP,XRMS,YRMS,RRMS)
+*+
+*     - - - -
+*      P X Y
+*     - - - -
+*
+*  Given arrays of "expected" and "measured" [X,Y] coordinates, and a
+*  linear model relating them (as produced by sla_FITXY), compute
+*  the array of "predicted" coordinates and the RMS residuals.
+*
+*  Given:
+*     NP       i        number of samples
+*     XYE     d(2,np)   expected [X,Y] for each sample
+*     XYM     d(2,np)   measured [X,Y] for each sample
+*     COEFFS  d(6)      coefficients of model (see below)
+*
+*  Returned:
+*     XYP     d(2,np)   predicted [X,Y] for each sample
+*     XRMS     d        RMS in X
+*     YRMS     d        RMS in Y
+*     RRMS     d        total RMS (vector sum of XRMS and YRMS)
+*
+*  The model is supplied in the array COEFFS.  Naming the
+*  elements of COEFF as follows:
+*
+*     COEFFS(1) = A
+*     COEFFS(2) = B
+*     COEFFS(3) = C
+*     COEFFS(4) = D
+*     COEFFS(5) = E
+*     COEFFS(6) = F
+*
+*  the model is applied thus:
+*
+*     XP = A + B*XM + C*YM
+*     YP = D + E*XM + F*YM
+*
+*  The residuals are (XP-XE) and (YP-YE).
+*
+*  If NP is less than or equal to zero, no coordinates are
+*  transformed, and the RMS residuals are all zero.
+*
+*  See also sla_FITXY, sla_INVF, sla_XY2XY, sla_DCMPF
+*
+*  Called:  sla_XY2XY
+*
+*  P.T.Wallace   Starlink   22 May 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER NP
+      DOUBLE PRECISION XYE(2,NP),XYM(2,NP),COEFFS(6),
+     :                 XYP(2,NP),XRMS,YRMS,RRMS
+
+      INTEGER I
+      DOUBLE PRECISION SDX2,SDY2,XP,YP,DX,DY,DX2,DY2,P
+
+
+
+*  Initialize summations
+      SDX2=0D0
+      SDY2=0D0
+
+*  Loop by sample
+      DO I=1,NP
+
+*     Transform "measured" [X,Y] to "predicted" [X,Y]
+         CALL sla_XY2XY(XYM(1,I),XYM(2,I),COEFFS,XP,YP)
+         XYP(1,I)=XP
+         XYP(2,I)=YP
+
+*     Compute residuals in X and Y, and update summations
+         DX=XYE(1,I)-XP
+         DY=XYE(2,I)-YP
+         DX2=DX*DX
+         DY2=DY*DY
+         SDX2=SDX2+DX2
+         SDY2=SDY2+DY2
+
+*     Next sample
+      END DO
+
+*  Compute RMS values
+      P=MAX(1D0,DBLE(NP))
+      XRMS=SQRT(SDX2/P)
+      YRMS=SQRT(SDY2/P)
+      RRMS=SQRT(XRMS*XRMS+YRMS*YRMS)
+
+      END
diff --git a/src/slalib/random.f_alpha_OSF1 b/src/slalib/random.f_alpha_OSF1
new file mode 100644
index 0000000..54544e3
--- /dev/null
+++ b/src/slalib/random.f_alpha_OSF1
@@ -0,0 +1,56 @@
+      REAL FUNCTION sla_RANDOM (SEED)
+*+
+*     - - - - - - -
+*      R A N D O M
+*     - - - - - - -
+*
+*  Generate pseudo-random real number in the range 0 <= X < 1.
+*  (single precision)
+*
+*  !!!  Version for Alpha/OSF1 !!!
+*
+*  Given:
+*     SEED     real     an arbitrary real number
+*
+*  Notes:
+*
+*  1)  The result is a pseudo-random REAL number in the range
+*      0 <= sla_RANDOM < 1.
+*
+*  2)  SEED is used first time through only.
+*
+*  Called:  RANDOM (a REAL function from the DEC Fortran Library)
+*
+*  P.T.Wallace   Starlink   14 October 1991
+*    Revised for new recommended RTL RANDOM(3f) function.
+*  B.K.McIlwrath Starlink   12 January 1996
+*-
+
+      IMPLICIT NONE
+
+      REAL SEED
+
+      REAL RANDOM
+
+      REAL AS
+      INTEGER ISEED
+      LOGICAL FIRST
+      SAVE FIRST
+      DATA FIRST /.TRUE./
+
+
+
+*  If first time, turn SEED into a large, odd integer
+      IF (FIRST) THEN
+         AS=ABS(SEED)+1.0
+         ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6))
+         IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1
+         FIRST=.FALSE.
+      ELSE
+         ISEED = 0
+      END IF
+
+*  Next pseudo-random number
+      sla_RANDOM=RANDOM(ISEED)
+
+      END
diff --git a/src/slalib/random.f_convex b/src/slalib/random.f_convex
new file mode 100644
index 0000000..336983f
--- /dev/null
+++ b/src/slalib/random.f_convex
@@ -0,0 +1,56 @@
+      REAL FUNCTION sla_RANDOM (SEED)
+*+
+*     - - - - - - -
+*      R A N D O M
+*     - - - - - - -
+*
+*  Generate pseudo-random real number in the range 0 <= X < 1.
+*  (single precision)
+*
+*  !!! Convex dependent !!!
+*
+*  Given:
+*     SEED     real     an arbitrary real number
+*
+*  Notes:
+*
+*  1)  The result is a pseudo-random REAL number in the range
+*      0 <= sla_RANDOM < 1.
+*
+*  2)  SEED is used first time through only.
+*
+*  Called:  RAND (a REAL function from the Convex Fortran Library)
+*
+*  P.T.Wallace   Starlink   28 June 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL SEED
+
+      REAL RAND
+
+      REAL AS
+      INTEGER ISEED
+      LOGICAL FIRST
+      SAVE FIRST
+      DATA FIRST /.TRUE./
+
+
+
+*  If first time, turn SEED into a large, odd integer, and start the
+*  generator
+      IF (FIRST) THEN
+         AS=ABS(SEED)+1.0
+         ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6))
+         IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1
+         FIRST=.FALSE.
+         AS=RAND(ISEED)
+      END IF
+
+*  Next pseudo-random number
+      sla_RANDOM=RAND(0)
+
+      END
diff --git a/src/slalib/random.f_ix86_Linux b/src/slalib/random.f_ix86_Linux
new file mode 100644
index 0000000..acd1047
--- /dev/null
+++ b/src/slalib/random.f_ix86_Linux
@@ -0,0 +1,54 @@
+      REAL FUNCTION sla_RANDOM (SEED)
+*+
+*     - - - - - - -
+*      R A N D O M
+*     - - - - - - -
+*
+*  Generate pseudo-random real number in the range 0 <= X < 1.
+*  (single precision)
+*
+*  !!!  Version for Linux !!!
+*
+*  Given:
+*     SEED     real     an arbitrary real number
+*
+*  Notes:
+*
+*  1)  The result is a pseudo-random REAL number in the range
+*      0 <= sla_RANDOM < 1.
+*
+*  2)  SEED is used first time through only.
+*
+*  Called:  RANDOM (a REAL function compiled by the makefile from rtl_random.c)
+*
+*  B.K.McIlwrath Starlink   12 January 1996
+*-
+
+      IMPLICIT NONE
+
+      REAL SEED
+
+      REAL RANDOM
+
+      REAL AS
+      INTEGER ISEED
+      LOGICAL FIRST
+      SAVE FIRST
+      DATA FIRST /.TRUE./
+
+
+
+*  If first time, turn SEED into a large, odd integer
+      IF (FIRST) THEN
+         AS=ABS(SEED)+1.0
+         ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6))
+         IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1
+         FIRST=.FALSE.
+      ELSE
+         ISEED = 0
+      END IF
+
+*  Next pseudo-random number
+      sla_RANDOM=RANDOM(ISEED)
+
+      END
diff --git a/src/slalib/random.f_mips b/src/slalib/random.f_mips
new file mode 100644
index 0000000..b82b1bb
--- /dev/null
+++ b/src/slalib/random.f_mips
@@ -0,0 +1,54 @@
+      REAL FUNCTION sla_RANDOM (SEED)
+*+
+*     - - - - - - -
+*      R A N D O M
+*     - - - - - - -
+*
+*  Generate pseudo-random real number in the range 0 <= X < 1.
+*  (single precision)
+*
+*  !!!  Version for VAX/VMS and DECstation !!!
+*
+*  Given:
+*     SEED     real     an arbitrary real number
+*
+*  Notes:
+*
+*  1)  The result is a pseudo-random REAL number in the range
+*      0 <= sla_RANDOM < 1.
+*
+*  2)  SEED is used first time through only.
+*
+*  Called:  RAN (a REAL function from the DEC Fortran Library)
+*
+*  P.T.Wallace   Starlink   14 October 1991
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL SEED
+
+      REAL RAN
+
+      REAL AS
+      INTEGER ISEED
+      LOGICAL FIRST
+      SAVE FIRST
+      DATA FIRST /.TRUE./
+
+
+
+*  If first time, turn SEED into a large, odd integer
+      IF (FIRST) THEN
+         AS=ABS(SEED)+1.0
+         ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6))
+         IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1
+         FIRST=.FALSE.
+      END IF
+
+*  Next pseudo-random number
+      sla_RANDOM=RAN(ISEED)
+
+      END
diff --git a/src/slalib/random.f_pcm b/src/slalib/random.f_pcm
new file mode 100644
index 0000000..4f96ddb
--- /dev/null
+++ b/src/slalib/random.f_pcm
@@ -0,0 +1,42 @@
+      REAL FUNCTION sla_RANDOM (XSEED)
+*+
+*     - - - - - - -
+*      R A N D O M
+*     - - - - - - -
+*
+*  Generate pseudo-random real number in the range 0 <= X < 1.
+*
+*  (single precision)
+*
+*  !!!  Microsoft Fortran dependent  !!!
+*
+*  Given (but used first time only):
+*     XSEED    real     an arbitrary real number
+*
+*  The value returned is a pseudo-random number such that
+*  0 <= sla_RANDOM < 1.
+*
+*  Called:  RANDOM (Microsoft run-time library)
+*
+*  P.T.Wallace   Starlink   28 February 1993
+*
+*+
+
+      IMPLICIT NONE
+
+      REAL XSEED
+
+      REAL X
+      LOGICAL FIRST
+      SAVE FIRST
+      DATA FIRST /.TRUE./
+
+
+      IF (FIRST) THEN
+         CALL SEED(NINT(MOD(XSEED*1.234E7,32E3)))  ! Microsoft Fortran
+         FIRST=.FALSE.
+      END IF
+      CALL RANDOM(X)                               ! Microsoft Fortran
+      sla_RANDOM=X
+
+      END
diff --git a/src/slalib/random.f_sun4 b/src/slalib/random.f_sun4
new file mode 100644
index 0000000..9f49fb6
--- /dev/null
+++ b/src/slalib/random.f_sun4
@@ -0,0 +1,56 @@
+      REAL FUNCTION sla_RANDOM (SEED)
+*+
+*     - - - - - - -
+*      R A N D O M
+*     - - - - - - -
+*
+*  Generate pseudo-random real number in the range 0 <= X < 1.
+*  (single precision)
+*
+*  !!! Sun 4 dependent !!!
+*
+*  Given:
+*     SEED     real     an arbitrary real number
+*
+*  Notes:
+*
+*  1)  The result is a pseudo-random REAL number in the range
+*      0 <= sla_RANDOM < 1.
+*
+*  2)  SEED is used first time through only.
+*
+*  Called:  RAND (a REAL function from the Sun Fortran Library)
+*
+*  P.T.Wallace   Starlink   14 October 1991
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL SEED
+
+      REAL RAND
+
+      REAL AS
+      INTEGER ISEED
+      LOGICAL FIRST
+      SAVE FIRST
+      DATA FIRST /.TRUE./
+
+
+
+*  If first time, turn SEED into a large, odd integer, and start the
+*  generator
+      IF (FIRST) THEN
+         AS=ABS(SEED)+1.0
+         ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6))
+         IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1
+         FIRST=.FALSE.
+         AS=RAND(ISEED)
+      END IF
+
+*  Next pseudo-random number
+      sla_RANDOM=RAND(0)
+
+      END
diff --git a/src/slalib/random.f_sun4_Solaris b/src/slalib/random.f_sun4_Solaris
new file mode 100644
index 0000000..9f49fb6
--- /dev/null
+++ b/src/slalib/random.f_sun4_Solaris
@@ -0,0 +1,56 @@
+      REAL FUNCTION sla_RANDOM (SEED)
+*+
+*     - - - - - - -
+*      R A N D O M
+*     - - - - - - -
+*
+*  Generate pseudo-random real number in the range 0 <= X < 1.
+*  (single precision)
+*
+*  !!! Sun 4 dependent !!!
+*
+*  Given:
+*     SEED     real     an arbitrary real number
+*
+*  Notes:
+*
+*  1)  The result is a pseudo-random REAL number in the range
+*      0 <= sla_RANDOM < 1.
+*
+*  2)  SEED is used first time through only.
+*
+*  Called:  RAND (a REAL function from the Sun Fortran Library)
+*
+*  P.T.Wallace   Starlink   14 October 1991
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL SEED
+
+      REAL RAND
+
+      REAL AS
+      INTEGER ISEED
+      LOGICAL FIRST
+      SAVE FIRST
+      DATA FIRST /.TRUE./
+
+
+
+*  If first time, turn SEED into a large, odd integer, and start the
+*  generator
+      IF (FIRST) THEN
+         AS=ABS(SEED)+1.0
+         ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6))
+         IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1
+         FIRST=.FALSE.
+         AS=RAND(ISEED)
+      END IF
+
+*  Next pseudo-random number
+      sla_RANDOM=RAND(0)
+
+      END
diff --git a/src/slalib/random.f_vax b/src/slalib/random.f_vax
new file mode 100644
index 0000000..bdf9ffe
--- /dev/null
+++ b/src/slalib/random.f_vax
@@ -0,0 +1,52 @@
+      REAL FUNCTION sla_RANDOM (SEED)
+*+
+*     - - - - - - -
+*      R A N D O M
+*     - - - - - - -
+*
+*  Generate pseudo-random real number in the range 0 <= X < 1.
+*  (single precision)
+*
+*  !!!  Version for VAX/VMS and DECstation !!!
+*
+*  Given:
+*     SEED     real     an arbitrary real number
+*
+*  Notes:
+*
+*  1)  The result is a pseudo-random REAL number in the range
+*      0 <= sla_RANDOM < 1.
+*
+*  2)  SEED is used first time through only.
+*
+*  Called:  RAN (a REAL function from the DEC Fortran Library)
+*
+*  P.T.Wallace   Starlink   14 October 1991
+*-
+
+      IMPLICIT NONE
+
+      REAL SEED
+
+      REAL RAN
+
+      REAL AS
+      INTEGER ISEED
+      LOGICAL FIRST
+      SAVE FIRST
+      DATA FIRST /.TRUE./
+
+
+
+*  If first time, turn SEED into a large, odd integer
+      IF (FIRST) THEN
+         AS=ABS(SEED)+1.0
+         ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6))
+         IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1
+         FIRST=.FALSE.
+      END IF
+
+*  Next pseudo-random number
+      sla_RANDOM=RAN(ISEED)
+
+      END
diff --git a/src/slalib/random.f_x86_64 b/src/slalib/random.f_x86_64
new file mode 100644
index 0000000..acd1047
--- /dev/null
+++ b/src/slalib/random.f_x86_64
@@ -0,0 +1,54 @@
+      REAL FUNCTION sla_RANDOM (SEED)
+*+
+*     - - - - - - -
+*      R A N D O M
+*     - - - - - - -
+*
+*  Generate pseudo-random real number in the range 0 <= X < 1.
+*  (single precision)
+*
+*  !!!  Version for Linux !!!
+*
+*  Given:
+*     SEED     real     an arbitrary real number
+*
+*  Notes:
+*
+*  1)  The result is a pseudo-random REAL number in the range
+*      0 <= sla_RANDOM < 1.
+*
+*  2)  SEED is used first time through only.
+*
+*  Called:  RANDOM (a REAL function compiled by the makefile from rtl_random.c)
+*
+*  B.K.McIlwrath Starlink   12 January 1996
+*-
+
+      IMPLICIT NONE
+
+      REAL SEED
+
+      REAL RANDOM
+
+      REAL AS
+      INTEGER ISEED
+      LOGICAL FIRST
+      SAVE FIRST
+      DATA FIRST /.TRUE./
+
+
+
+*  If first time, turn SEED into a large, odd integer
+      IF (FIRST) THEN
+         AS=ABS(SEED)+1.0
+         ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6))
+         IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1
+         FIRST=.FALSE.
+      ELSE
+         ISEED = 0
+      END IF
+
+*  Next pseudo-random number
+      sla_RANDOM=RANDOM(ISEED)
+
+      END
diff --git a/src/slalib/range.f b/src/slalib/range.f
new file mode 100644
index 0000000..a3684cb
--- /dev/null
+++ b/src/slalib/range.f
@@ -0,0 +1,33 @@
+      REAL FUNCTION sla_RANGE (ANGLE)
+*+
+*     - - - - - -
+*      R A N G E
+*     - - - - - -
+*
+*  Normalize angle into range +/- pi  (single precision)
+*
+*  Given:
+*     ANGLE     dp      the angle in radians
+*
+*  The result is ANGLE expressed in the +/- pi (single
+*  precision).
+*
+*  P.T.Wallace   Starlink   23 November 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL ANGLE
+
+      REAL API,A2PI
+      PARAMETER (API=3.141592653589793238462643)
+      PARAMETER (A2PI=6.283185307179586476925287)
+
+
+      sla_RANGE=MOD(ANGLE,A2PI)
+      IF (ABS(sla_RANGE).GE.API)
+     :          sla_RANGE=sla_RANGE-SIGN(A2PI,ANGLE)
+
+      END
diff --git a/src/slalib/ranorm.f b/src/slalib/ranorm.f
new file mode 100644
index 0000000..c2e32a5
--- /dev/null
+++ b/src/slalib/ranorm.f
@@ -0,0 +1,31 @@
+      REAL FUNCTION sla_RANORM (ANGLE)
+*+
+*     - - - - - - -
+*      R A N O R M
+*     - - - - - - -
+*
+*  Normalize angle into range 0-2 pi  (single precision)
+*
+*  Given:
+*     ANGLE     dp      the angle in radians
+*
+*  The result is ANGLE expressed in the range 0-2 pi (single
+*  precision).
+*
+*  P.T.Wallace   Starlink   23 November 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL ANGLE
+
+      REAL A2PI
+      PARAMETER (A2PI=6.283185307179586476925287)
+
+
+      sla_RANORM=MOD(ANGLE,A2PI)
+      IF (sla_RANORM.LT.0.0) sla_RANORM=sla_RANORM+A2PI
+
+      END
diff --git a/src/slalib/rcc.f b/src/slalib/rcc.f
new file mode 100644
index 0000000..74a8874
--- /dev/null
+++ b/src/slalib/rcc.f
@@ -0,0 +1,1063 @@
+      DOUBLE PRECISION FUNCTION sla_RCC (TDB, UT1, WL, U, V)
+*+
+*     - - - -
+*      R C C
+*     - - - -
+*
+*  Relativistic clock correction:  the difference between proper time at
+*  a point on the surface of the Earth and coordinate time in the Solar
+*  System barycentric space-time frame of reference.
+*
+*  The proper time is Terrestrial Time TT;  the coordinate
+*  time is an implementation of the Barycentric Dynamical Time TDB.
+*
+*  Given:
+*    TDB   dp   coordinate time (MJD: JD-2400000.5)
+*    UT1   dp   universal time (fraction of one day)
+*    WL    dp   clock longitude (radians west)
+*    U     dp   clock distance from Earth spin axis (km)
+*    V     dp   clock distance north of Earth equatorial plane (km)
+*
+*  Returned:
+*    The clock correction, TDB-TT, in seconds.  TDB may be considered
+*    to be the coordinate time in the Solar System barycentre frame of
+*    reference, and TT is the proper time given by clocks at mean sea
+*    level on the Earth.
+*
+*    The result has a main (annual) sinusoidal term of amplitude
+*    approximately 0.00166 seconds, plus planetary terms up to about
+*    20 microseconds, and lunar and diurnal terms up to 2 microseconds.
+*    The variation arises from the transverse Doppler effect and the
+*    gravitational red-shift as the observer varies in speed and moves
+*    through different gravitational potentials.
+*
+*  The argument TDB is, strictly, the barycentric coordinate time;
+*  however, the terrestrial proper time (TT) can in practice be used.
+*
+*  The geocentric model is that of Fairhead & Bretagnon (1990), in its
+*  full form.  It was supplied by Fairhead (private communication) as a
+*  FORTRAN subroutine.  The original Fairhead routine used explicit
+*  formulae, in such large numbers that problems were experienced with
+*  certain compilers (Microsoft Fortran on PC aborted with stack
+*  overflow, Convex compiled successfully but extremely slowly).  The
+*  present implementation is a complete recoding, with the original
+*  Fairhead coefficients held in a table.  To optimise arithmetic
+*  precision, the terms are accumulated in reverse order, smallest
+*  first.  A number of other coding changes were made, in order to match
+*  the calling sequence of previous versions of the present routine, and
+*  to comply with Starlink programming standards.  Under VAX/VMS, the
+*  numerical results compared with those from the Fairhead form are
+*  essentially unaffected by the changes, the differences being at the
+*  10^-20 sec level.
+*
+*  The topocentric part of the model is from Moyer (1981) and
+*  Murray (1983).
+*
+*  During the interval 1950-2050, the absolute accuracy is better
+*  than +/- 3 nanoseconds relative to direct numerical integrations
+*  using the JPL DE200/LE200 solar system ephemeris.
+*
+*  The IAU definition of TDB is that it must differ from TT only by
+*  periodic terms.  Though practical, this is an imprecise definition
+*  which ignores the existence of very long-period and secular effects
+*  in the dynamics of the solar system.  As a consequence, different
+*  implementations of TDB will, in general, differ in zero-point and
+*  will drift linearly relative to one other.
+*
+*  References:
+*    Bretagnon P, 1982 Astron. Astrophys., 114, 278-288.
+*    Fairhead L & Bretagnon P, 1990, Astron. Astrophys., 229, 240-247.
+*    Meeus J, 1984, l'Astronomie, 348-354.
+*    Moyer T D, 1981, Cel. Mech., 23, 33.
+*    Murray C A, 1983, Vectorial Astrometry, Adam Hilger.
+*
+*  P.T.Wallace   Starlink   10 November 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION TDB,UT1,WL,U,V
+
+      DOUBLE PRECISION D2PI
+      PARAMETER (D2PI=6.283185307179586476925287D0)
+
+      DOUBLE PRECISION T,TSOL,RLE,RGE,RTJ,RTS,RDMOON,
+     :                 WT,W0,W1,W2,W3,W4,WF,WJ
+
+* -----------------------------------------------------------------------
+*
+*  Fairhead and Bretagnon canonical coefficients
+*
+*  787 sets of three coefficients.
+*
+*  Each set is amplitude (microseconds)
+*              frequency (radians per Julian millenium since J2000),
+*              phase (radians).
+*
+*  Sets   1-474 are the T**0 terms,
+*   "   475-679  "   "  T**1   "
+*   "   680-764  "   "  T**2   "
+*   "   765-784  "   "  T**3   "
+*   "   785-787  "   "  T**4   "  .
+*
+      DOUBLE PRECISION FAIRHD(3,787)
+      INTEGER I,J
+      DATA ((FAIRHD(I,J),I=1,3),J=  1, 10) /
+     : 1656.674564D-6,    6283.075849991D0, 6.240054195D0,
+     :   22.417471D-6,    5753.384884897D0, 4.296977442D0,
+     :   13.839792D-6,   12566.151699983D0, 6.196904410D0,
+     :    4.770086D-6,     529.690965095D0, 0.444401603D0,
+     :    4.676740D-6,    6069.776754553D0, 4.021195093D0,
+     :    2.256707D-6,     213.299095438D0, 5.543113262D0,
+     :    1.694205D-6,      -3.523118349D0, 5.025132748D0,
+     :    1.554905D-6,   77713.771467920D0, 5.198467090D0,
+     :    1.276839D-6,    7860.419392439D0, 5.988822341D0,
+     :    1.193379D-6,    5223.693919802D0, 3.649823730D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J= 11, 20) /
+     :    1.115322D-6,    3930.209696220D0, 1.422745069D0,
+     :    0.794185D-6,   11506.769769794D0, 2.322313077D0,
+     :    0.447061D-6,      26.298319800D0, 3.615796498D0,
+     :    0.435206D-6,    -398.149003408D0, 4.349338347D0,
+     :    0.600309D-6,    1577.343542448D0, 2.678271909D0,
+     :    0.496817D-6,    6208.294251424D0, 5.696701824D0,
+     :    0.486306D-6,    5884.926846583D0, 0.520007179D0,
+     :    0.432392D-6,      74.781598567D0, 2.435898309D0,
+     :    0.468597D-6,    6244.942814354D0, 5.866398759D0,
+     :    0.375510D-6,    5507.553238667D0, 4.103476804D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J= 21, 30) /
+     :    0.243085D-6,    -775.522611324D0, 3.651837925D0,
+     :    0.173435D-6,   18849.227549974D0, 6.153743485D0,
+     :    0.230685D-6,    5856.477659115D0, 4.773852582D0,
+     :    0.203747D-6,   12036.460734888D0, 4.333987818D0,
+     :    0.143935D-6,    -796.298006816D0, 5.957517795D0,
+     :    0.159080D-6,   10977.078804699D0, 1.890075226D0,
+     :    0.119979D-6,      38.133035638D0, 4.551585768D0,
+     :    0.118971D-6,    5486.777843175D0, 1.914547226D0,
+     :    0.116120D-6,    1059.381930189D0, 0.873504123D0,
+     :    0.137927D-6,   11790.629088659D0, 1.135934669D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J= 31, 40) /
+     :    0.098358D-6,    2544.314419883D0, 0.092793886D0,
+     :    0.101868D-6,   -5573.142801634D0, 5.984503847D0,
+     :    0.080164D-6,     206.185548437D0, 2.095377709D0,
+     :    0.079645D-6,    4694.002954708D0, 2.949233637D0,
+     :    0.062617D-6,      20.775395492D0, 2.654394814D0,
+     :    0.075019D-6,    2942.463423292D0, 4.980931759D0,
+     :    0.064397D-6,    5746.271337896D0, 1.280308748D0,
+     :    0.063814D-6,    5760.498431898D0, 4.167901731D0,
+     :    0.048042D-6,    2146.165416475D0, 1.495846011D0,
+     :    0.048373D-6,     155.420399434D0, 2.251573730D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J= 41, 50) /
+     :    0.058844D-6,     426.598190876D0, 4.839650148D0,
+     :    0.046551D-6,      -0.980321068D0, 0.921573539D0,
+     :    0.054139D-6,   17260.154654690D0, 3.411091093D0,
+     :    0.042411D-6,    6275.962302991D0, 2.869567043D0,
+     :    0.040184D-6,      -7.113547001D0, 3.565975565D0,
+     :    0.036564D-6,    5088.628839767D0, 3.324679049D0,
+     :    0.040759D-6,   12352.852604545D0, 3.981496998D0,
+     :    0.036507D-6,     801.820931124D0, 6.248866009D0,
+     :    0.036955D-6,    3154.687084896D0, 5.071801441D0,
+     :    0.042732D-6,     632.783739313D0, 5.720622217D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J= 51, 60) /
+     :    0.042560D-6,  161000.685737473D0, 1.270837679D0,
+     :    0.040480D-6,   15720.838784878D0, 2.546610123D0,
+     :    0.028244D-6,   -6286.598968340D0, 5.069663519D0,
+     :    0.033477D-6,    6062.663207553D0, 4.144987272D0,
+     :    0.034867D-6,     522.577418094D0, 5.210064075D0,
+     :    0.032438D-6,    6076.890301554D0, 0.749317412D0,
+     :    0.030215D-6,    7084.896781115D0, 3.389610345D0,
+     :    0.029247D-6,  -71430.695617928D0, 4.183178762D0,
+     :    0.033529D-6,    9437.762934887D0, 2.404714239D0,
+     :    0.032423D-6,    8827.390269875D0, 5.541473556D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J= 61, 70) /
+     :    0.027567D-6,    6279.552731642D0, 5.040846034D0,
+     :    0.029862D-6,   12139.553509107D0, 1.770181024D0,
+     :    0.022509D-6,   10447.387839604D0, 1.460726241D0,
+     :    0.020937D-6,    8429.241266467D0, 0.652303414D0,
+     :    0.020322D-6,     419.484643875D0, 3.735430632D0,
+     :    0.024816D-6,   -1194.447010225D0, 1.087136918D0,
+     :    0.025196D-6,    1748.016413067D0, 2.901883301D0,
+     :    0.021691D-6,   14143.495242431D0, 5.952658009D0,
+     :    0.017673D-6,    6812.766815086D0, 3.186129845D0,
+     :    0.022567D-6,    6133.512652857D0, 3.307984806D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J= 71, 80) /
+     :    0.016155D-6,   10213.285546211D0, 1.331103168D0,
+     :    0.014751D-6,    1349.867409659D0, 4.308933301D0,
+     :    0.015949D-6,    -220.412642439D0, 4.005298270D0,
+     :    0.015974D-6,   -2352.866153772D0, 6.145309371D0,
+     :    0.014223D-6,   17789.845619785D0, 2.104551349D0,
+     :    0.017806D-6,      73.297125859D0, 3.475975097D0,
+     :    0.013671D-6,    -536.804512095D0, 5.971672571D0,
+     :    0.011942D-6,    8031.092263058D0, 2.053414715D0,
+     :    0.014318D-6,   16730.463689596D0, 3.016058075D0,
+     :    0.012462D-6,     103.092774219D0, 1.737438797D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J= 81, 90) /
+     :    0.010962D-6,       3.590428652D0, 2.196567739D0,
+     :    0.015078D-6,   19651.048481098D0, 3.969480770D0,
+     :    0.010396D-6,     951.718406251D0, 5.717799605D0,
+     :    0.011707D-6,   -4705.732307544D0, 2.654125618D0,
+     :    0.010453D-6,    5863.591206116D0, 1.913704550D0,
+     :    0.012420D-6,    4690.479836359D0, 4.734090399D0,
+     :    0.011847D-6,    5643.178563677D0, 5.489005403D0,
+     :    0.008610D-6,    3340.612426700D0, 3.661698944D0,
+     :    0.011622D-6,    5120.601145584D0, 4.863931876D0,
+     :    0.010825D-6,     553.569402842D0, 0.842715011D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J= 91,100) /
+     :    0.008666D-6,    -135.065080035D0, 3.293406547D0,
+     :    0.009963D-6,     149.563197135D0, 4.870690598D0,
+     :    0.009858D-6,    6309.374169791D0, 1.061816410D0,
+     :    0.007959D-6,     316.391869657D0, 2.465042647D0,
+     :    0.010099D-6,     283.859318865D0, 1.942176992D0,
+     :    0.007147D-6,    -242.728603974D0, 3.661486981D0,
+     :    0.007505D-6,    5230.807466803D0, 4.920937029D0,
+     :    0.008323D-6,   11769.853693166D0, 1.229392026D0,
+     :    0.007490D-6,   -6256.777530192D0, 3.658444681D0,
+     :    0.009370D-6,  149854.400134205D0, 0.673880395D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=101,110) /
+     :    0.007117D-6,      38.027672636D0, 5.294249518D0,
+     :    0.007857D-6,   12168.002696575D0, 0.525733528D0,
+     :    0.007019D-6,    6206.809778716D0, 0.837688810D0,
+     :    0.006056D-6,     955.599741609D0, 4.194535082D0,
+     :    0.008107D-6,   13367.972631107D0, 3.793235253D0,
+     :    0.006731D-6,    5650.292110678D0, 5.639906583D0,
+     :    0.007332D-6,      36.648562930D0, 0.114858677D0,
+     :    0.006366D-6,    4164.311989613D0, 2.262081818D0,
+     :    0.006858D-6,    5216.580372801D0, 0.642063318D0,
+     :    0.006919D-6,    6681.224853400D0, 6.018501522D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=111,120) /
+     :    0.006826D-6,    7632.943259650D0, 3.458654112D0,
+     :    0.005308D-6,   -1592.596013633D0, 2.500382359D0,
+     :    0.005096D-6,   11371.704689758D0, 2.547107806D0,
+     :    0.004841D-6,    5333.900241022D0, 0.437078094D0,
+     :    0.005582D-6,    5966.683980335D0, 2.246174308D0,
+     :    0.006304D-6,   11926.254413669D0, 2.512929171D0,
+     :    0.006603D-6,   23581.258177318D0, 5.393136889D0,
+     :    0.005123D-6,      -1.484472708D0, 2.999641028D0,
+     :    0.004648D-6,    1589.072895284D0, 1.275847090D0,
+     :    0.005119D-6,    6438.496249426D0, 1.486539246D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=121,130) /
+     :    0.004521D-6,    4292.330832950D0, 6.140635794D0,
+     :    0.005680D-6,   23013.539539587D0, 4.557814849D0,
+     :    0.005488D-6,      -3.455808046D0, 0.090675389D0,
+     :    0.004193D-6,    7234.794256242D0, 4.869091389D0,
+     :    0.003742D-6,    7238.675591600D0, 4.691976180D0,
+     :    0.004148D-6,    -110.206321219D0, 3.016173439D0,
+     :    0.004553D-6,   11499.656222793D0, 5.554998314D0,
+     :    0.004892D-6,    5436.993015240D0, 1.475415597D0,
+     :    0.004044D-6,    4732.030627343D0, 1.398784824D0,
+     :    0.004164D-6,   12491.370101415D0, 5.650931916D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=131,140) /
+     :    0.004349D-6,   11513.883316794D0, 2.181745369D0,
+     :    0.003919D-6,   12528.018664345D0, 5.823319737D0,
+     :    0.003129D-6,    6836.645252834D0, 0.003844094D0,
+     :    0.004080D-6,   -7058.598461315D0, 3.690360123D0,
+     :    0.003270D-6,      76.266071276D0, 1.517189902D0,
+     :    0.002954D-6,    6283.143160294D0, 4.447203799D0,
+     :    0.002872D-6,      28.449187468D0, 1.158692983D0,
+     :    0.002881D-6,     735.876513532D0, 0.349250250D0,
+     :    0.003279D-6,    5849.364112115D0, 4.893384368D0,
+     :    0.003625D-6,    6209.778724132D0, 1.473760578D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=141,150) /
+     :    0.003074D-6,     949.175608970D0, 5.185878737D0,
+     :    0.002775D-6,    9917.696874510D0, 1.030026325D0,
+     :    0.002646D-6,   10973.555686350D0, 3.918259169D0,
+     :    0.002575D-6,   25132.303399966D0, 6.109659023D0,
+     :    0.003500D-6,     263.083923373D0, 1.892100742D0,
+     :    0.002740D-6,   18319.536584880D0, 4.320519510D0,
+     :    0.002464D-6,     202.253395174D0, 4.698203059D0,
+     :    0.002409D-6,       2.542797281D0, 5.325009315D0,
+     :    0.003354D-6,  -90955.551694697D0, 1.942656623D0,
+     :    0.002296D-6,    6496.374945429D0, 5.061810696D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=151,160) /
+     :    0.003002D-6,    6172.869528772D0, 2.797822767D0,
+     :    0.003202D-6,   27511.467873537D0, 0.531673101D0,
+     :    0.002954D-6,   -6283.008539689D0, 4.533471191D0,
+     :    0.002353D-6,     639.897286314D0, 3.734548088D0,
+     :    0.002401D-6,   16200.772724501D0, 2.605547070D0,
+     :    0.003053D-6,  233141.314403759D0, 3.029030662D0,
+     :    0.003024D-6,   83286.914269554D0, 2.355556099D0,
+     :    0.002863D-6,   17298.182327326D0, 5.240963796D0,
+     :    0.002103D-6,   -7079.373856808D0, 5.756641637D0,
+     :    0.002303D-6,   83996.847317911D0, 2.013686814D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=161,170) /
+     :    0.002303D-6,   18073.704938650D0, 1.089100410D0,
+     :    0.002381D-6,      63.735898303D0, 0.759188178D0,
+     :    0.002493D-6,    6386.168624210D0, 0.645026535D0,
+     :    0.002366D-6,       3.932153263D0, 6.215885448D0,
+     :    0.002169D-6,   11015.106477335D0, 4.845297676D0,
+     :    0.002397D-6,    6243.458341645D0, 3.809290043D0,
+     :    0.002183D-6,    1162.474704408D0, 6.179611691D0,
+     :    0.002353D-6,    6246.427287062D0, 4.781719760D0,
+     :    0.002199D-6,    -245.831646229D0, 5.956152284D0,
+     :    0.001729D-6,    3894.181829542D0, 1.264976635D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=171,180) /
+     :    0.001896D-6,   -3128.388765096D0, 4.914231596D0,
+     :    0.002085D-6,      35.164090221D0, 1.405158503D0,
+     :    0.002024D-6,   14712.317116458D0, 2.752035928D0,
+     :    0.001737D-6,    6290.189396992D0, 5.280820144D0,
+     :    0.002229D-6,     491.557929457D0, 1.571007057D0,
+     :    0.001602D-6,   14314.168113050D0, 4.203664806D0,
+     :    0.002186D-6,     454.909366527D0, 1.402101526D0,
+     :    0.001897D-6,   22483.848574493D0, 4.167932508D0,
+     :    0.001825D-6,   -3738.761430108D0, 0.545828785D0,
+     :    0.001894D-6,    1052.268383188D0, 5.817167450D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=181,190) /
+     :    0.001421D-6,      20.355319399D0, 2.419886601D0,
+     :    0.001408D-6,   10984.192351700D0, 2.732084787D0,
+     :    0.001847D-6,   10873.986030480D0, 2.903477885D0,
+     :    0.001391D-6,   -8635.942003763D0, 0.593891500D0,
+     :    0.001388D-6,      -7.046236698D0, 1.166145902D0,
+     :    0.001810D-6,  -88860.057071188D0, 0.487355242D0,
+     :    0.001288D-6,   -1990.745017041D0, 3.913022880D0,
+     :    0.001297D-6,   23543.230504682D0, 3.063805171D0,
+     :    0.001335D-6,    -266.607041722D0, 3.995764039D0,
+     :    0.001376D-6,   10969.965257698D0, 5.152914309D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=191,200) /
+     :    0.001745D-6,  244287.600007027D0, 3.626395673D0,
+     :    0.001649D-6,   31441.677569757D0, 1.952049260D0,
+     :    0.001416D-6,    9225.539273283D0, 4.996408389D0,
+     :    0.001238D-6,    4804.209275927D0, 5.503379738D0,
+     :    0.001472D-6,    4590.910180489D0, 4.164913291D0,
+     :    0.001169D-6,    6040.347246017D0, 5.841719038D0,
+     :    0.001039D-6,    5540.085789459D0, 2.769753519D0,
+     :    0.001004D-6,    -170.672870619D0, 0.755008103D0,
+     :    0.001284D-6,   10575.406682942D0, 5.306538209D0,
+     :    0.001278D-6,      71.812653151D0, 4.713486491D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=201,210) /
+     :    0.001321D-6,   18209.330263660D0, 2.624866359D0,
+     :    0.001297D-6,   21228.392023546D0, 0.382603541D0,
+     :    0.000954D-6,    6282.095528923D0, 0.882213514D0,
+     :    0.001145D-6,    6058.731054289D0, 1.169483931D0,
+     :    0.000979D-6,    5547.199336460D0, 5.448375984D0,
+     :    0.000987D-6,   -6262.300454499D0, 2.656486959D0,
+     :    0.001070D-6, -154717.609887482D0, 1.827624012D0,
+     :    0.000991D-6,    4701.116501708D0, 4.387001801D0,
+     :    0.001155D-6,     -14.227094002D0, 3.042700750D0,
+     :    0.001176D-6,     277.034993741D0, 3.335519004D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=211,220) /
+     :    0.000890D-6,   13916.019109642D0, 5.601498297D0,
+     :    0.000884D-6,   -1551.045222648D0, 1.088831705D0,
+     :    0.000876D-6,    5017.508371365D0, 3.969902609D0,
+     :    0.000806D-6,   15110.466119866D0, 5.142876744D0,
+     :    0.000773D-6,   -4136.910433516D0, 0.022067765D0,
+     :    0.001077D-6,     175.166059800D0, 1.844913056D0,
+     :    0.000954D-6,   -6284.056171060D0, 0.968480906D0,
+     :    0.000737D-6,    5326.786694021D0, 4.923831588D0,
+     :    0.000845D-6,    -433.711737877D0, 4.749245231D0,
+     :    0.000819D-6,    8662.240323563D0, 5.991247817D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=221,230) /
+     :    0.000852D-6,     199.072001436D0, 2.189604979D0,
+     :    0.000723D-6,   17256.631536341D0, 6.068719637D0,
+     :    0.000940D-6,    6037.244203762D0, 6.197428148D0,
+     :    0.000885D-6,   11712.955318231D0, 3.280414875D0,
+     :    0.000706D-6,   12559.038152982D0, 2.824848947D0,
+     :    0.000732D-6,    2379.164473572D0, 2.501813417D0,
+     :    0.000764D-6,   -6127.655450557D0, 2.236346329D0,
+     :    0.000908D-6,     131.541961686D0, 2.521257490D0,
+     :    0.000907D-6,   35371.887265976D0, 3.370195967D0,
+     :    0.000673D-6,    1066.495477190D0, 3.876512374D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=231,240) /
+     :    0.000814D-6,   17654.780539750D0, 4.627122566D0,
+     :    0.000630D-6,      36.027866677D0, 0.156368499D0,
+     :    0.000798D-6,     515.463871093D0, 5.151962502D0,
+     :    0.000798D-6,     148.078724426D0, 5.909225055D0,
+     :    0.000806D-6,     309.278322656D0, 6.054064447D0,
+     :    0.000607D-6,     -39.617508346D0, 2.839021623D0,
+     :    0.000601D-6,     412.371096874D0, 3.984225404D0,
+     :    0.000646D-6,   11403.676995575D0, 3.852959484D0,
+     :    0.000704D-6,   13521.751441591D0, 2.300991267D0,
+     :    0.000603D-6,  -65147.619767937D0, 4.140083146D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=241,250) /
+     :    0.000609D-6,   10177.257679534D0, 0.437122327D0,
+     :    0.000631D-6,    5767.611978898D0, 4.026532329D0,
+     :    0.000576D-6,   11087.285125918D0, 4.760293101D0,
+     :    0.000674D-6,   14945.316173554D0, 6.270510511D0,
+     :    0.000726D-6,    5429.879468239D0, 6.039606892D0,
+     :    0.000710D-6,   28766.924424484D0, 5.672617711D0,
+     :    0.000647D-6,   11856.218651625D0, 3.397132627D0,
+     :    0.000678D-6,   -5481.254918868D0, 6.249666675D0,
+     :    0.000618D-6,   22003.914634870D0, 2.466427018D0,
+     :    0.000738D-6,    6134.997125565D0, 2.242668890D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=251,260) /
+     :    0.000660D-6,     625.670192312D0, 5.864091907D0,
+     :    0.000694D-6,    3496.032826134D0, 2.668309141D0,
+     :    0.000531D-6,    6489.261398429D0, 1.681888780D0,
+     :    0.000611D-6, -143571.324284214D0, 2.424978312D0,
+     :    0.000575D-6,   12043.574281889D0, 4.216492400D0,
+     :    0.000553D-6,   12416.588502848D0, 4.772158039D0,
+     :    0.000689D-6,    4686.889407707D0, 6.224271088D0,
+     :    0.000495D-6,    7342.457780181D0, 3.817285811D0,
+     :    0.000567D-6,    3634.621024518D0, 1.649264690D0,
+     :    0.000515D-6,   18635.928454536D0, 3.945345892D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=261,270) /
+     :    0.000486D-6,    -323.505416657D0, 4.061673868D0,
+     :    0.000662D-6,   25158.601719765D0, 1.794058369D0,
+     :    0.000509D-6,     846.082834751D0, 3.053874588D0,
+     :    0.000472D-6,  -12569.674818332D0, 5.112133338D0,
+     :    0.000461D-6,    6179.983075773D0, 0.513669325D0,
+     :    0.000641D-6,   83467.156352816D0, 3.210727723D0,
+     :    0.000520D-6,   10344.295065386D0, 2.445597761D0,
+     :    0.000493D-6,   18422.629359098D0, 1.676939306D0,
+     :    0.000478D-6,    1265.567478626D0, 5.487314569D0,
+     :    0.000472D-6,     -18.159247265D0, 1.999707589D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=271,280) /
+     :    0.000559D-6,   11190.377900137D0, 5.783236356D0,
+     :    0.000494D-6,    9623.688276691D0, 3.022645053D0,
+     :    0.000463D-6,    5739.157790895D0, 1.411223013D0,
+     :    0.000432D-6,   16858.482532933D0, 1.179256434D0,
+     :    0.000574D-6,   72140.628666286D0, 1.758191830D0,
+     :    0.000484D-6,   17267.268201691D0, 3.290589143D0,
+     :    0.000550D-6,    4907.302050146D0, 0.864024298D0,
+     :    0.000399D-6,      14.977853527D0, 2.094441910D0,
+     :    0.000491D-6,     224.344795702D0, 0.878372791D0,
+     :    0.000432D-6,   20426.571092422D0, 6.003829241D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=281,290) /
+     :    0.000481D-6,    5749.452731634D0, 4.309591964D0,
+     :    0.000480D-6,    5757.317038160D0, 1.142348571D0,
+     :    0.000485D-6,    6702.560493867D0, 0.210580917D0,
+     :    0.000426D-6,    6055.549660552D0, 4.274476529D0,
+     :    0.000480D-6,    5959.570433334D0, 5.031351030D0,
+     :    0.000466D-6,   12562.628581634D0, 4.959581597D0,
+     :    0.000520D-6,   39302.096962196D0, 4.788002889D0,
+     :    0.000458D-6,   12132.439962106D0, 1.880103788D0,
+     :    0.000470D-6,   12029.347187887D0, 1.405611197D0,
+     :    0.000416D-6,   -7477.522860216D0, 1.082356330D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=291,300) /
+     :    0.000449D-6,   11609.862544012D0, 4.179989585D0,
+     :    0.000465D-6,   17253.041107690D0, 0.353496295D0,
+     :    0.000362D-6,   -4535.059436924D0, 1.583849576D0,
+     :    0.000383D-6,   21954.157609398D0, 3.747376371D0,
+     :    0.000389D-6,      17.252277143D0, 1.395753179D0,
+     :    0.000331D-6,   18052.929543158D0, 0.566790582D0,
+     :    0.000430D-6,   13517.870106233D0, 0.685827538D0,
+     :    0.000368D-6,   -5756.908003246D0, 0.731374317D0,
+     :    0.000330D-6,   10557.594160824D0, 3.710043680D0,
+     :    0.000332D-6,   20199.094959633D0, 1.652901407D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=301,310) /
+     :    0.000384D-6,   11933.367960670D0, 5.827781531D0,
+     :    0.000387D-6,   10454.501386605D0, 2.541182564D0,
+     :    0.000325D-6,   15671.081759407D0, 2.178850542D0,
+     :    0.000318D-6,     138.517496871D0, 2.253253037D0,
+     :    0.000305D-6,    9388.005909415D0, 0.578340206D0,
+     :    0.000352D-6,    5749.861766548D0, 3.000297967D0,
+     :    0.000311D-6,    6915.859589305D0, 1.693574249D0,
+     :    0.000297D-6,   24072.921469776D0, 1.997249392D0,
+     :    0.000363D-6,    -640.877607382D0, 5.071820966D0,
+     :    0.000323D-6,   12592.450019783D0, 1.072262823D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=311,320) /
+     :    0.000341D-6,   12146.667056108D0, 4.700657997D0,
+     :    0.000290D-6,    9779.108676125D0, 1.812320441D0,
+     :    0.000342D-6,    6132.028180148D0, 4.322238614D0,
+     :    0.000329D-6,    6268.848755990D0, 3.033827743D0,
+     :    0.000374D-6,   17996.031168222D0, 3.388716544D0,
+     :    0.000285D-6,    -533.214083444D0, 4.687313233D0,
+     :    0.000338D-6,    6065.844601290D0, 0.877776108D0,
+     :    0.000276D-6,      24.298513841D0, 0.770299429D0,
+     :    0.000336D-6,   -2388.894020449D0, 5.353796034D0,
+     :    0.000290D-6,    3097.883822726D0, 4.075291557D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=321,330) /
+     :    0.000318D-6,     709.933048357D0, 5.941207518D0,
+     :    0.000271D-6,   13095.842665077D0, 3.208912203D0,
+     :    0.000331D-6,    6073.708907816D0, 4.007881169D0,
+     :    0.000292D-6,     742.990060533D0, 2.714333592D0,
+     :    0.000362D-6,   29088.811415985D0, 3.215977013D0,
+     :    0.000280D-6,   12359.966151546D0, 0.710872502D0,
+     :    0.000267D-6,   10440.274292604D0, 4.730108488D0,
+     :    0.000262D-6,     838.969287750D0, 1.327720272D0,
+     :    0.000250D-6,   16496.361396202D0, 0.898769761D0,
+     :    0.000325D-6,   20597.243963041D0, 0.180044365D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=331,340) /
+     :    0.000268D-6,    6148.010769956D0, 5.152666276D0,
+     :    0.000284D-6,    5636.065016677D0, 5.655385808D0,
+     :    0.000301D-6,    6080.822454817D0, 2.135396205D0,
+     :    0.000294D-6,    -377.373607916D0, 3.708784168D0,
+     :    0.000236D-6,    2118.763860378D0, 1.733578756D0,
+     :    0.000234D-6,    5867.523359379D0, 5.575209112D0,
+     :    0.000268D-6, -226858.238553767D0, 0.069432392D0,
+     :    0.000265D-6,  167283.761587465D0, 4.369302826D0,
+     :    0.000280D-6,   28237.233459389D0, 5.304829118D0,
+     :    0.000292D-6,   12345.739057544D0, 4.096094132D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=341,350) /
+     :    0.000223D-6,   19800.945956225D0, 3.069327406D0,
+     :    0.000301D-6,   43232.306658416D0, 6.205311188D0,
+     :    0.000264D-6,   18875.525869774D0, 1.417263408D0,
+     :    0.000304D-6,   -1823.175188677D0, 3.409035232D0,
+     :    0.000301D-6,     109.945688789D0, 0.510922054D0,
+     :    0.000260D-6,     813.550283960D0, 2.389438934D0,
+     :    0.000299D-6,  316428.228673312D0, 5.384595078D0,
+     :    0.000211D-6,    5756.566278634D0, 3.789392838D0,
+     :    0.000209D-6,    5750.203491159D0, 1.661943545D0,
+     :    0.000240D-6,   12489.885628707D0, 5.684549045D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=351,360) /
+     :    0.000216D-6,    6303.851245484D0, 3.862942261D0,
+     :    0.000203D-6,    1581.959348283D0, 5.549853589D0,
+     :    0.000200D-6,    5642.198242609D0, 1.016115785D0,
+     :    0.000197D-6,     -70.849445304D0, 4.690702525D0,
+     :    0.000227D-6,    6287.008003254D0, 2.911891613D0,
+     :    0.000197D-6,     533.623118358D0, 1.048982898D0,
+     :    0.000205D-6,   -6279.485421340D0, 1.829362730D0,
+     :    0.000209D-6,  -10988.808157535D0, 2.636140084D0,
+     :    0.000208D-6,    -227.526189440D0, 4.127883842D0,
+     :    0.000191D-6,     415.552490612D0, 4.401165650D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=361,370) /
+     :    0.000190D-6,   29296.615389579D0, 4.175658539D0,
+     :    0.000264D-6,   66567.485864652D0, 4.601102551D0,
+     :    0.000256D-6,   -3646.350377354D0, 0.506364778D0,
+     :    0.000188D-6,   13119.721102825D0, 2.032195842D0,
+     :    0.000185D-6,    -209.366942175D0, 4.694756586D0,
+     :    0.000198D-6,   25934.124331089D0, 3.832703118D0,
+     :    0.000195D-6,    4061.219215394D0, 3.308463427D0,
+     :    0.000234D-6,    5113.487598583D0, 1.716090661D0,
+     :    0.000188D-6,    1478.866574064D0, 5.686865780D0,
+     :    0.000222D-6,   11823.161639450D0, 1.942386641D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=371,380) /
+     :    0.000181D-6,   10770.893256262D0, 1.999482059D0,
+     :    0.000171D-6,    6546.159773364D0, 1.182807992D0,
+     :    0.000206D-6,      70.328180442D0, 5.934076062D0,
+     :    0.000169D-6,   20995.392966449D0, 2.169080622D0,
+     :    0.000191D-6,   10660.686935042D0, 5.405515999D0,
+     :    0.000228D-6,   33019.021112205D0, 4.656985514D0,
+     :    0.000184D-6,   -4933.208440333D0, 3.327476868D0,
+     :    0.000220D-6,    -135.625325010D0, 1.765430262D0,
+     :    0.000166D-6,   23141.558382925D0, 3.454132746D0,
+     :    0.000191D-6,    6144.558353121D0, 5.020393445D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=381,390) /
+     :    0.000180D-6,    6084.003848555D0, 0.602182191D0,
+     :    0.000163D-6,   17782.732072784D0, 4.960593133D0,
+     :    0.000225D-6,   16460.333529525D0, 2.596451817D0,
+     :    0.000222D-6,    5905.702242076D0, 3.731990323D0,
+     :    0.000204D-6,     227.476132789D0, 5.636192701D0,
+     :    0.000159D-6,   16737.577236597D0, 3.600691544D0,
+     :    0.000200D-6,    6805.653268085D0, 0.868220961D0,
+     :    0.000187D-6,   11919.140866668D0, 2.629456641D0,
+     :    0.000161D-6,     127.471796607D0, 2.862574720D0,
+     :    0.000205D-6,    6286.666278643D0, 1.742882331D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=391,400) /
+     :    0.000189D-6,     153.778810485D0, 4.812372643D0,
+     :    0.000168D-6,   16723.350142595D0, 0.027860588D0,
+     :    0.000149D-6,   11720.068865232D0, 0.659721876D0,
+     :    0.000189D-6,    5237.921013804D0, 5.245313000D0,
+     :    0.000143D-6,    6709.674040867D0, 4.317625647D0,
+     :    0.000146D-6,    4487.817406270D0, 4.815297007D0,
+     :    0.000144D-6,    -664.756045130D0, 5.381366880D0,
+     :    0.000175D-6,    5127.714692584D0, 4.728443327D0,
+     :    0.000162D-6,    6254.626662524D0, 1.435132069D0,
+     :    0.000187D-6,   47162.516354635D0, 1.354371923D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=401,410) /
+     :    0.000146D-6,   11080.171578918D0, 3.369695406D0,
+     :    0.000180D-6,    -348.924420448D0, 2.490902145D0,
+     :    0.000148D-6,     151.047669843D0, 3.799109588D0,
+     :    0.000157D-6,    6197.248551160D0, 1.284375887D0,
+     :    0.000167D-6,     146.594251718D0, 0.759969109D0,
+     :    0.000133D-6,   -5331.357443741D0, 5.409701889D0,
+     :    0.000154D-6,      95.979227218D0, 3.366890614D0,
+     :    0.000148D-6,   -6418.140930027D0, 3.384104996D0,
+     :    0.000128D-6,   -6525.804453965D0, 3.803419985D0,
+     :    0.000130D-6,   11293.470674356D0, 0.939039445D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=411,420) /
+     :    0.000152D-6,   -5729.506447149D0, 0.734117523D0,
+     :    0.000138D-6,     210.117701700D0, 2.564216078D0,
+     :    0.000123D-6,    6066.595360816D0, 4.517099537D0,
+     :    0.000140D-6,   18451.078546566D0, 0.642049130D0,
+     :    0.000126D-6,   11300.584221356D0, 3.485280663D0,
+     :    0.000119D-6,   10027.903195729D0, 3.217431161D0,
+     :    0.000151D-6,    4274.518310832D0, 4.404359108D0,
+     :    0.000117D-6,    6072.958148291D0, 0.366324650D0,
+     :    0.000165D-6,   -7668.637425143D0, 4.298212528D0,
+     :    0.000117D-6,   -6245.048177356D0, 5.379518958D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=421,430) /
+     :    0.000130D-6,   -5888.449964932D0, 4.527681115D0,
+     :    0.000121D-6,    -543.918059096D0, 6.109429504D0,
+     :    0.000162D-6,    9683.594581116D0, 5.720092446D0,
+     :    0.000141D-6,    6219.339951688D0, 0.679068671D0,
+     :    0.000118D-6,   22743.409379516D0, 4.881123092D0,
+     :    0.000129D-6,    1692.165669502D0, 0.351407289D0,
+     :    0.000126D-6,    5657.405657679D0, 5.146592349D0,
+     :    0.000114D-6,     728.762966531D0, 0.520791814D0,
+     :    0.000120D-6,      52.596639600D0, 0.948516300D0,
+     :    0.000115D-6,      65.220371012D0, 3.504914846D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=431,440) /
+     :    0.000126D-6,    5881.403728234D0, 5.577502482D0,
+     :    0.000158D-6,  163096.180360983D0, 2.957128968D0,
+     :    0.000134D-6,   12341.806904281D0, 2.598576764D0,
+     :    0.000151D-6,   16627.370915377D0, 3.985702050D0,
+     :    0.000109D-6,    1368.660252845D0, 0.014730471D0,
+     :    0.000131D-6,    6211.263196841D0, 0.085077024D0,
+     :    0.000146D-6,    5792.741760812D0, 0.708426604D0,
+     :    0.000146D-6,     -77.750543984D0, 3.121576600D0,
+     :    0.000107D-6,    5341.013788022D0, 0.288231904D0,
+     :    0.000138D-6,    6281.591377283D0, 2.797450317D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=441,450) /
+     :    0.000113D-6,   -6277.552925684D0, 2.788904128D0,
+     :    0.000115D-6,    -525.758811831D0, 5.895222200D0,
+     :    0.000138D-6,    6016.468808270D0, 6.096188999D0,
+     :    0.000139D-6,   23539.707386333D0, 2.028195445D0,
+     :    0.000146D-6,   -4176.041342449D0, 4.660008502D0,
+     :    0.000107D-6,   16062.184526117D0, 4.066520001D0,
+     :    0.000142D-6,   83783.548222473D0, 2.936315115D0,
+     :    0.000128D-6,    9380.959672717D0, 3.223844306D0,
+     :    0.000135D-6,    6205.325306007D0, 1.638054048D0,
+     :    0.000101D-6,    2699.734819318D0, 5.481603249D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=451,460) /
+     :    0.000104D-6,    -568.821874027D0, 2.205734493D0,
+     :    0.000103D-6,    6321.103522627D0, 2.440421099D0,
+     :    0.000119D-6,    6321.208885629D0, 2.547496264D0,
+     :    0.000138D-6,    1975.492545856D0, 2.314608466D0,
+     :    0.000121D-6,     137.033024162D0, 4.539108237D0,
+     :    0.000123D-6,   19402.796952817D0, 4.538074405D0,
+     :    0.000119D-6,   22805.735565994D0, 2.869040566D0,
+     :    0.000133D-6,   64471.991241142D0, 6.056405489D0,
+     :    0.000129D-6,     -85.827298831D0, 2.540635083D0,
+     :    0.000131D-6,   13613.804277336D0, 4.005732868D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=461,470) /
+     :    0.000104D-6,    9814.604100291D0, 1.959967212D0,
+     :    0.000112D-6,   16097.679950283D0, 3.589026260D0,
+     :    0.000123D-6,    2107.034507542D0, 1.728627253D0,
+     :    0.000121D-6,   36949.230808424D0, 6.072332087D0,
+     :    0.000108D-6,  -12539.853380183D0, 3.716133846D0,
+     :    0.000113D-6,   -7875.671863624D0, 2.725771122D0,
+     :    0.000109D-6,    4171.425536614D0, 4.033338079D0,
+     :    0.000101D-6,    6247.911759770D0, 3.441347021D0,
+     :    0.000113D-6,    7330.728427345D0, 0.656372122D0,
+     :    0.000113D-6,   51092.726050855D0, 2.791483066D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=471,480) /
+     :    0.000106D-6,    5621.842923210D0, 1.815323326D0,
+     :    0.000101D-6,     111.430161497D0, 5.711033677D0,
+     :    0.000103D-6,     909.818733055D0, 2.812745443D0,
+     :    0.000101D-6,    1790.642637886D0, 1.965746028D0,
+
+*  T
+     :  102.156724D-6,    6283.075849991D0, 4.249032005D0,
+     :    1.706807D-6,   12566.151699983D0, 4.205904248D0,
+     :    0.269668D-6,     213.299095438D0, 3.400290479D0,
+     :    0.265919D-6,     529.690965095D0, 5.836047367D0,
+     :    0.210568D-6,      -3.523118349D0, 6.262738348D0,
+     :    0.077996D-6,    5223.693919802D0, 4.670344204D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=481,490) /
+     :    0.054764D-6,    1577.343542448D0, 4.534800170D0,
+     :    0.059146D-6,      26.298319800D0, 1.083044735D0,
+     :    0.034420D-6,    -398.149003408D0, 5.980077351D0,
+     :    0.032088D-6,   18849.227549974D0, 4.162913471D0,
+     :    0.033595D-6,    5507.553238667D0, 5.980162321D0,
+     :    0.029198D-6,    5856.477659115D0, 0.623811863D0,
+     :    0.027764D-6,     155.420399434D0, 3.745318113D0,
+     :    0.025190D-6,    5746.271337896D0, 2.980330535D0,
+     :    0.022997D-6,    -796.298006816D0, 1.174411803D0,
+     :    0.024976D-6,    5760.498431898D0, 2.467913690D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=491,500) /
+     :    0.021774D-6,     206.185548437D0, 3.854787540D0,
+     :    0.017925D-6,    -775.522611324D0, 1.092065955D0,
+     :    0.013794D-6,     426.598190876D0, 2.699831988D0,
+     :    0.013276D-6,    6062.663207553D0, 5.845801920D0,
+     :    0.011774D-6,   12036.460734888D0, 2.292832062D0,
+     :    0.012869D-6,    6076.890301554D0, 5.333425680D0,
+     :    0.012152D-6,    1059.381930189D0, 6.222874454D0,
+     :    0.011081D-6,      -7.113547001D0, 5.154724984D0,
+     :    0.010143D-6,    4694.002954708D0, 4.044013795D0,
+     :    0.009357D-6,    5486.777843175D0, 3.416081409D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=501,510) /
+     :    0.010084D-6,     522.577418094D0, 0.749320262D0,
+     :    0.008587D-6,   10977.078804699D0, 2.777152598D0,
+     :    0.008628D-6,    6275.962302991D0, 4.562060226D0,
+     :    0.008158D-6,    -220.412642439D0, 5.806891533D0,
+     :    0.007746D-6,    2544.314419883D0, 1.603197066D0,
+     :    0.007670D-6,    2146.165416475D0, 3.000200440D0,
+     :    0.007098D-6,      74.781598567D0, 0.443725817D0,
+     :    0.006180D-6,    -536.804512095D0, 1.302642751D0,
+     :    0.005818D-6,    5088.628839767D0, 4.827723531D0,
+     :    0.004945D-6,   -6286.598968340D0, 0.268305170D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=511,520) /
+     :    0.004774D-6,    1349.867409659D0, 5.808636673D0,
+     :    0.004687D-6,    -242.728603974D0, 5.154890570D0,
+     :    0.006089D-6,    1748.016413067D0, 4.403765209D0,
+     :    0.005975D-6,   -1194.447010225D0, 2.583472591D0,
+     :    0.004229D-6,     951.718406251D0, 0.931172179D0,
+     :    0.005264D-6,     553.569402842D0, 2.336107252D0,
+     :    0.003049D-6,    5643.178563677D0, 1.362634430D0,
+     :    0.002974D-6,    6812.766815086D0, 1.583012668D0,
+     :    0.003403D-6,   -2352.866153772D0, 2.552189886D0,
+     :    0.003030D-6,     419.484643875D0, 5.286473844D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=521,530) /
+     :    0.003210D-6,      -7.046236698D0, 1.863796539D0,
+     :    0.003058D-6,    9437.762934887D0, 4.226420633D0,
+     :    0.002589D-6,   12352.852604545D0, 1.991935820D0,
+     :    0.002927D-6,    5216.580372801D0, 2.319951253D0,
+     :    0.002425D-6,    5230.807466803D0, 3.084752833D0,
+     :    0.002656D-6,    3154.687084896D0, 2.487447866D0,
+     :    0.002445D-6,   10447.387839604D0, 2.347139160D0,
+     :    0.002990D-6,    4690.479836359D0, 6.235872050D0,
+     :    0.002890D-6,    5863.591206116D0, 0.095197563D0,
+     :    0.002498D-6,    6438.496249426D0, 2.994779800D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=531,540) /
+     :    0.001889D-6,    8031.092263058D0, 3.569003717D0,
+     :    0.002567D-6,     801.820931124D0, 3.425611498D0,
+     :    0.001803D-6,  -71430.695617928D0, 2.192295512D0,
+     :    0.001782D-6,       3.932153263D0, 5.180433689D0,
+     :    0.001694D-6,   -4705.732307544D0, 4.641779174D0,
+     :    0.001704D-6,   -1592.596013633D0, 3.997097652D0,
+     :    0.001735D-6,    5849.364112115D0, 0.417558428D0,
+     :    0.001643D-6,    8429.241266467D0, 2.180619584D0,
+     :    0.001680D-6,      38.133035638D0, 4.164529426D0,
+     :    0.002045D-6,    7084.896781115D0, 0.526323854D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=541,550) /
+     :    0.001458D-6,    4292.330832950D0, 1.356098141D0,
+     :    0.001437D-6,      20.355319399D0, 3.895439360D0,
+     :    0.001738D-6,    6279.552731642D0, 0.087484036D0,
+     :    0.001367D-6,   14143.495242431D0, 3.987576591D0,
+     :    0.001344D-6,    7234.794256242D0, 0.090454338D0,
+     :    0.001438D-6,   11499.656222793D0, 0.974387904D0,
+     :    0.001257D-6,    6836.645252834D0, 1.509069366D0,
+     :    0.001358D-6,   11513.883316794D0, 0.495572260D0,
+     :    0.001628D-6,    7632.943259650D0, 4.968445721D0,
+     :    0.001169D-6,     103.092774219D0, 2.838496795D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=551,560) /
+     :    0.001162D-6,    4164.311989613D0, 3.408387778D0,
+     :    0.001092D-6,    6069.776754553D0, 3.617942651D0,
+     :    0.001008D-6,   17789.845619785D0, 0.286350174D0,
+     :    0.001008D-6,     639.897286314D0, 1.610762073D0,
+     :    0.000918D-6,   10213.285546211D0, 5.532798067D0,
+     :    0.001011D-6,   -6256.777530192D0, 0.661826484D0,
+     :    0.000753D-6,   16730.463689596D0, 3.905030235D0,
+     :    0.000737D-6,   11926.254413669D0, 4.641956361D0,
+     :    0.000694D-6,    3340.612426700D0, 2.111120332D0,
+     :    0.000701D-6,    3894.181829542D0, 2.760823491D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=561,570) /
+     :    0.000689D-6,    -135.065080035D0, 4.768800780D0,
+     :    0.000700D-6,   13367.972631107D0, 5.760439898D0,
+     :    0.000664D-6,    6040.347246017D0, 1.051215840D0,
+     :    0.000654D-6,    5650.292110678D0, 4.911332503D0,
+     :    0.000788D-6,    6681.224853400D0, 4.699648011D0,
+     :    0.000628D-6,    5333.900241022D0, 5.024608847D0,
+     :    0.000755D-6,    -110.206321219D0, 4.370971253D0,
+     :    0.000628D-6,    6290.189396992D0, 3.660478857D0,
+     :    0.000635D-6,   25132.303399966D0, 4.121051532D0,
+     :    0.000534D-6,    5966.683980335D0, 1.173284524D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=571,580) /
+     :    0.000543D-6,    -433.711737877D0, 0.345585464D0,
+     :    0.000517D-6,   -1990.745017041D0, 5.414571768D0,
+     :    0.000504D-6,    5767.611978898D0, 2.328281115D0,
+     :    0.000485D-6,    5753.384884897D0, 1.685874771D0,
+     :    0.000463D-6,    7860.419392439D0, 5.297703006D0,
+     :    0.000604D-6,     515.463871093D0, 0.591998446D0,
+     :    0.000443D-6,   12168.002696575D0, 4.830881244D0,
+     :    0.000570D-6,     199.072001436D0, 3.899190272D0,
+     :    0.000465D-6,   10969.965257698D0, 0.476681802D0,
+     :    0.000424D-6,   -7079.373856808D0, 1.112242763D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=581,590) /
+     :    0.000427D-6,     735.876513532D0, 1.994214480D0,
+     :    0.000478D-6,   -6127.655450557D0, 3.778025483D0,
+     :    0.000414D-6,   10973.555686350D0, 5.441088327D0,
+     :    0.000512D-6,    1589.072895284D0, 0.107123853D0,
+     :    0.000378D-6,   10984.192351700D0, 0.915087231D0,
+     :    0.000402D-6,   11371.704689758D0, 4.107281715D0,
+     :    0.000453D-6,    9917.696874510D0, 1.917490952D0,
+     :    0.000395D-6,     149.563197135D0, 2.763124165D0,
+     :    0.000371D-6,    5739.157790895D0, 3.112111866D0,
+     :    0.000350D-6,   11790.629088659D0, 0.440639857D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=591,600) /
+     :    0.000356D-6,    6133.512652857D0, 5.444568842D0,
+     :    0.000344D-6,     412.371096874D0, 5.676832684D0,
+     :    0.000383D-6,     955.599741609D0, 5.559734846D0,
+     :    0.000333D-6,    6496.374945429D0, 0.261537984D0,
+     :    0.000340D-6,    6055.549660552D0, 5.975534987D0,
+     :    0.000334D-6,    1066.495477190D0, 2.335063907D0,
+     :    0.000399D-6,   11506.769769794D0, 5.321230910D0,
+     :    0.000314D-6,   18319.536584880D0, 2.313312404D0,
+     :    0.000424D-6,    1052.268383188D0, 1.211961766D0,
+     :    0.000307D-6,      63.735898303D0, 3.169551388D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=601,610) /
+     :    0.000329D-6,      29.821438149D0, 6.106912080D0,
+     :    0.000357D-6,    6309.374169791D0, 4.223760346D0,
+     :    0.000312D-6,   -3738.761430108D0, 2.180556645D0,
+     :    0.000301D-6,     309.278322656D0, 1.499984572D0,
+     :    0.000268D-6,   12043.574281889D0, 2.447520648D0,
+     :    0.000257D-6,   12491.370101415D0, 3.662331761D0,
+     :    0.000290D-6,     625.670192312D0, 1.272834584D0,
+     :    0.000256D-6,    5429.879468239D0, 1.913426912D0,
+     :    0.000339D-6,    3496.032826134D0, 4.165930011D0,
+     :    0.000283D-6,    3930.209696220D0, 4.325565754D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=611,620) /
+     :    0.000241D-6,   12528.018664345D0, 3.832324536D0,
+     :    0.000304D-6,    4686.889407707D0, 1.612348468D0,
+     :    0.000259D-6,   16200.772724501D0, 3.470173146D0,
+     :    0.000238D-6,   12139.553509107D0, 1.147977842D0,
+     :    0.000236D-6,    6172.869528772D0, 3.776271728D0,
+     :    0.000296D-6,   -7058.598461315D0, 0.460368852D0,
+     :    0.000306D-6,   10575.406682942D0, 0.554749016D0,
+     :    0.000251D-6,   17298.182327326D0, 0.834332510D0,
+     :    0.000290D-6,    4732.030627343D0, 4.759564091D0,
+     :    0.000261D-6,    5884.926846583D0, 0.298259862D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=621,630) /
+     :    0.000249D-6,    5547.199336460D0, 3.749366406D0,
+     :    0.000213D-6,   11712.955318231D0, 5.415666119D0,
+     :    0.000223D-6,    4701.116501708D0, 2.703203558D0,
+     :    0.000268D-6,    -640.877607382D0, 0.283670793D0,
+     :    0.000209D-6,    5636.065016677D0, 1.238477199D0,
+     :    0.000193D-6,   10177.257679534D0, 1.943251340D0,
+     :    0.000182D-6,    6283.143160294D0, 2.456157599D0,
+     :    0.000184D-6,    -227.526189440D0, 5.888038582D0,
+     :    0.000182D-6,   -6283.008539689D0, 0.241332086D0,
+     :    0.000228D-6,   -6284.056171060D0, 2.657323816D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=631,640) /
+     :    0.000166D-6,    7238.675591600D0, 5.930629110D0,
+     :    0.000167D-6,    3097.883822726D0, 5.570955333D0,
+     :    0.000159D-6,    -323.505416657D0, 5.786670700D0,
+     :    0.000154D-6,   -4136.910433516D0, 1.517805532D0,
+     :    0.000176D-6,   12029.347187887D0, 3.139266834D0,
+     :    0.000167D-6,   12132.439962106D0, 3.556352289D0,
+     :    0.000153D-6,     202.253395174D0, 1.463313961D0,
+     :    0.000157D-6,   17267.268201691D0, 1.586837396D0,
+     :    0.000142D-6,   83996.847317911D0, 0.022670115D0,
+     :    0.000152D-6,   17260.154654690D0, 0.708528947D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=641,650) /
+     :    0.000144D-6,    6084.003848555D0, 5.187075177D0,
+     :    0.000135D-6,    5756.566278634D0, 1.993229262D0,
+     :    0.000134D-6,    5750.203491159D0, 3.457197134D0,
+     :    0.000144D-6,    5326.786694021D0, 6.066193291D0,
+     :    0.000160D-6,   11015.106477335D0, 1.710431974D0,
+     :    0.000133D-6,    3634.621024518D0, 2.836451652D0,
+     :    0.000134D-6,   18073.704938650D0, 5.453106665D0,
+     :    0.000134D-6,    1162.474704408D0, 5.326898811D0,
+     :    0.000128D-6,    5642.198242609D0, 2.511652591D0,
+     :    0.000160D-6,     632.783739313D0, 5.628785365D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=651,660) /
+     :    0.000132D-6,   13916.019109642D0, 0.819294053D0,
+     :    0.000122D-6,   14314.168113050D0, 5.677408071D0,
+     :    0.000125D-6,   12359.966151546D0, 5.251984735D0,
+     :    0.000121D-6,    5749.452731634D0, 2.210924603D0,
+     :    0.000136D-6,    -245.831646229D0, 1.646502367D0,
+     :    0.000120D-6,    5757.317038160D0, 3.240883049D0,
+     :    0.000134D-6,   12146.667056108D0, 3.059480037D0,
+     :    0.000137D-6,    6206.809778716D0, 1.867105418D0,
+     :    0.000141D-6,   17253.041107690D0, 2.069217456D0,
+     :    0.000129D-6,   -7477.522860216D0, 2.781469314D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=661,670) /
+     :    0.000116D-6,    5540.085789459D0, 4.281176991D0,
+     :    0.000116D-6,    9779.108676125D0, 3.320925381D0,
+     :    0.000129D-6,    5237.921013804D0, 3.497704076D0,
+     :    0.000113D-6,    5959.570433334D0, 0.983210840D0,
+     :    0.000122D-6,    6282.095528923D0, 2.674938860D0,
+     :    0.000140D-6,     -11.045700264D0, 4.957936982D0,
+     :    0.000108D-6,   23543.230504682D0, 1.390113589D0,
+     :    0.000106D-6,  -12569.674818332D0, 0.429631317D0,
+     :    0.000110D-6,    -266.607041722D0, 5.501340197D0,
+     :    0.000115D-6,   12559.038152982D0, 4.691456618D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=671,680) /
+     :    0.000134D-6,   -2388.894020449D0, 0.577313584D0,
+     :    0.000109D-6,   10440.274292604D0, 6.218148717D0,
+     :    0.000102D-6,    -543.918059096D0, 1.477842615D0,
+     :    0.000108D-6,   21228.392023546D0, 2.237753948D0,
+     :    0.000101D-6,   -4535.059436924D0, 3.100492232D0,
+     :    0.000103D-6,      76.266071276D0, 5.594294322D0,
+     :    0.000104D-6,     949.175608970D0, 5.674287810D0,
+     :    0.000101D-6,   13517.870106233D0, 2.196632348D0,
+     :    0.000100D-6,   11933.367960670D0, 4.056084160D0,
+     :    4.322990D-6,    6283.075849991D0, 2.642893748D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=681,690) /
+     :    0.406495D-6,       0.000000000D0, 4.712388980D0,
+     :    0.122605D-6,   12566.151699983D0, 2.438140634D0,
+     :    0.019476D-6,     213.299095438D0, 1.642186981D0,
+     :    0.016916D-6,     529.690965095D0, 4.510959344D0,
+     :    0.013374D-6,      -3.523118349D0, 1.502210314D0,
+     :    0.008042D-6,      26.298319800D0, 0.478549024D0,
+     :    0.007824D-6,     155.420399434D0, 5.254710405D0,
+     :    0.004894D-6,    5746.271337896D0, 4.683210850D0,
+     :    0.004875D-6,    5760.498431898D0, 0.759507698D0,
+     :    0.004416D-6,    5223.693919802D0, 6.028853166D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=691,700) /
+     :    0.004088D-6,      -7.113547001D0, 0.060926389D0,
+     :    0.004433D-6,   77713.771467920D0, 3.627734103D0,
+     :    0.003277D-6,   18849.227549974D0, 2.327912542D0,
+     :    0.002703D-6,    6062.663207553D0, 1.271941729D0,
+     :    0.003435D-6,    -775.522611324D0, 0.747446224D0,
+     :    0.002618D-6,    6076.890301554D0, 3.633715689D0,
+     :    0.003146D-6,     206.185548437D0, 5.647874613D0,
+     :    0.002544D-6,    1577.343542448D0, 6.232904270D0,
+     :    0.002218D-6,    -220.412642439D0, 1.309509946D0,
+     :    0.002197D-6,    5856.477659115D0, 2.407212349D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=701,710) /
+     :    0.002897D-6,    5753.384884897D0, 5.863842246D0,
+     :    0.001766D-6,     426.598190876D0, 0.754113147D0,
+     :    0.001738D-6,    -796.298006816D0, 2.714942671D0,
+     :    0.001695D-6,     522.577418094D0, 2.629369842D0,
+     :    0.001584D-6,    5507.553238667D0, 1.341138229D0,
+     :    0.001503D-6,    -242.728603974D0, 0.377699736D0,
+     :    0.001552D-6,    -536.804512095D0, 2.904684667D0,
+     :    0.001370D-6,    -398.149003408D0, 1.265599125D0,
+     :    0.001889D-6,   -5573.142801634D0, 4.413514859D0,
+     :    0.001722D-6,    6069.776754553D0, 2.445966339D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=711,720) /
+     :    0.001124D-6,    1059.381930189D0, 5.041799657D0,
+     :    0.001258D-6,     553.569402842D0, 3.849557278D0,
+     :    0.000831D-6,     951.718406251D0, 2.471094709D0,
+     :    0.000767D-6,    4694.002954708D0, 5.363125422D0,
+     :    0.000756D-6,    1349.867409659D0, 1.046195744D0,
+     :    0.000775D-6,     -11.045700264D0, 0.245548001D0,
+     :    0.000597D-6,    2146.165416475D0, 4.543268798D0,
+     :    0.000568D-6,    5216.580372801D0, 4.178853144D0,
+     :    0.000711D-6,    1748.016413067D0, 5.934271972D0,
+     :    0.000499D-6,   12036.460734888D0, 0.624434410D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=721,730) /
+     :    0.000671D-6,   -1194.447010225D0, 4.136047594D0,
+     :    0.000488D-6,    5849.364112115D0, 2.209679987D0,
+     :    0.000621D-6,    6438.496249426D0, 4.518860804D0,
+     :    0.000495D-6,   -6286.598968340D0, 1.868201275D0,
+     :    0.000456D-6,    5230.807466803D0, 1.271231591D0,
+     :    0.000451D-6,    5088.628839767D0, 0.084060889D0,
+     :    0.000435D-6,    5643.178563677D0, 3.324456609D0,
+     :    0.000387D-6,   10977.078804699D0, 4.052488477D0,
+     :    0.000547D-6,  161000.685737473D0, 2.841633844D0,
+     :    0.000522D-6,    3154.687084896D0, 2.171979966D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=731,740) /
+     :    0.000375D-6,    5486.777843175D0, 4.983027306D0,
+     :    0.000421D-6,    5863.591206116D0, 4.546432249D0,
+     :    0.000439D-6,    7084.896781115D0, 0.522967921D0,
+     :    0.000309D-6,    2544.314419883D0, 3.172606705D0,
+     :    0.000347D-6,    4690.479836359D0, 1.479586566D0,
+     :    0.000317D-6,     801.820931124D0, 3.553088096D0,
+     :    0.000262D-6,     419.484643875D0, 0.606635550D0,
+     :    0.000248D-6,    6836.645252834D0, 3.014082064D0,
+     :    0.000245D-6,   -1592.596013633D0, 5.519526220D0,
+     :    0.000225D-6,    4292.330832950D0, 2.877956536D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=741,750) /
+     :    0.000214D-6,    7234.794256242D0, 1.605227587D0,
+     :    0.000205D-6,    5767.611978898D0, 0.625804796D0,
+     :    0.000180D-6,   10447.387839604D0, 3.499954526D0,
+     :    0.000229D-6,     199.072001436D0, 5.632304604D0,
+     :    0.000214D-6,     639.897286314D0, 5.960227667D0,
+     :    0.000175D-6,    -433.711737877D0, 2.162417992D0,
+     :    0.000209D-6,     515.463871093D0, 2.322150893D0,
+     :    0.000173D-6,    6040.347246017D0, 2.556183691D0,
+     :    0.000184D-6,    6309.374169791D0, 4.732296790D0,
+     :    0.000227D-6,  149854.400134205D0, 5.385812217D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=751,760) /
+     :    0.000154D-6,    8031.092263058D0, 5.120720920D0,
+     :    0.000151D-6,    5739.157790895D0, 4.815000443D0,
+     :    0.000197D-6,    7632.943259650D0, 0.222827271D0,
+     :    0.000197D-6,      74.781598567D0, 3.910456770D0,
+     :    0.000138D-6,    6055.549660552D0, 1.397484253D0,
+     :    0.000149D-6,   -6127.655450557D0, 5.333727496D0,
+     :    0.000137D-6,    3894.181829542D0, 4.281749907D0,
+     :    0.000135D-6,    9437.762934887D0, 5.979971885D0,
+     :    0.000139D-6,   -2352.866153772D0, 4.715630782D0,
+     :    0.000142D-6,    6812.766815086D0, 0.513330157D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=761,770) /
+     :    0.000120D-6,   -4705.732307544D0, 0.194160689D0,
+     :    0.000131D-6,  -71430.695617928D0, 0.000379226D0,
+     :    0.000124D-6,    6279.552731642D0, 2.122264908D0,
+     :    0.000108D-6,   -6256.777530192D0, 0.883445696D0,
+     :    0.143388D-6,    6283.075849991D0, 1.131453581D0,
+     :    0.006671D-6,   12566.151699983D0, 0.775148887D0,
+     :    0.001480D-6,     155.420399434D0, 0.480016880D0,
+     :    0.000934D-6,     213.299095438D0, 6.144453084D0,
+     :    0.000795D-6,     529.690965095D0, 2.941595619D0,
+     :    0.000673D-6,    5746.271337896D0, 0.120415406D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=771,780) /
+     :    0.000672D-6,    5760.498431898D0, 5.317009738D0,
+     :    0.000389D-6,    -220.412642439D0, 3.090323467D0,
+     :    0.000373D-6,    6062.663207553D0, 3.003551964D0,
+     :    0.000360D-6,    6076.890301554D0, 1.918913041D0,
+     :    0.000316D-6,     -21.340641002D0, 5.545798121D0,
+     :    0.000315D-6,    -242.728603974D0, 1.884932563D0,
+     :    0.000278D-6,     206.185548437D0, 1.266254859D0,
+     :    0.000238D-6,    -536.804512095D0, 4.532664830D0,
+     :    0.000185D-6,     522.577418094D0, 4.578313856D0,
+     :    0.000245D-6,   18849.227549974D0, 0.587467082D0 /
+      DATA ((FAIRHD(I,J),I=1,3),J=781,787) /
+     :    0.000180D-6,     426.598190876D0, 5.151178553D0,
+     :    0.000200D-6,     553.569402842D0, 5.355983739D0,
+     :    0.000141D-6,    5223.693919802D0, 1.336556009D0,
+     :    0.000104D-6,    5856.477659115D0, 4.239842759D0,
+     :    0.003826D-6,    6283.075849991D0, 5.705257275D0,
+     :    0.000303D-6,   12566.151699983D0, 5.407132842D0,
+     :    0.000209D-6,     155.420399434D0, 1.989815753D0 /
+* -----------------------------------------------------------------------
+
+
+
+*  Time since J2000.0 in Julian millennia
+      T=(TDB-51544.5D0)/365250D0
+
+* -------------------- Topocentric terms -------------------------------
+
+*  Convert UT1 to local solar time in radians
+      TSOL = MOD(UT1,1D0)*D2PI - WL
+
+*  Planetary arguments:  taken or derived from Bretagnon 1982
+
+*  RLp = mean longitude, mean equinox of date
+*  RGp = mean anomaly
+*  RTp = mean longitude difference, EMB minus planet
+
+*  EMB
+      RLE = MOD (1.75347031435D0 + 6283.3196666635D0 * T, D2PI)
+      RGE = MOD (6.24005997418D0 + 6283.0195512850D0 * T, D2PI)
+*  Jupiter
+      RTJ = MOD (1.15392381696D0 + 5753.3848591241D0 * T, D2PI)
+*  Saturn
+      RTS = MOD (0.87945355785D0 + 6069.7767103654D0 * T, D2PI)
+
+*  Lunar mean elongation:  derived from Meeus 1984.
+      RDMOON = MOD (5.198468D0 + 77713.77144D0 * T, D2PI)
+
+*  Topocentric terms (Moyer 1981 and Murray 1983)
+      WT =  + 0.00029D-10 * U * SIN (TSOL+RTS)
+     :      + 0.00100D-10 * U * SIN (TSOL-2D0*RGE)
+     :      + 0.00133D-10 * U * SIN (TSOL-RDMOON)
+     :      + 0.00133D-10 * U * SIN (TSOL+RTJ)
+     :      - 0.00229D-10 * U * SIN (TSOL+2D0*RLE+RGE)
+     :      - 0.0220 D-10 * V * SIN (RLE+RGE)
+     :      + 0.05312D-10 * U * SIN (TSOL-RGE)
+     :      - 0.13677D-10 * U * SIN (TSOL+2D0*RLE)
+     :      - 1.3184 D-10 * V * COS (RLE)
+     :      + 3.17679D-10 * U * SIN (TSOL)
+
+* --------------- Fairhead model ---------------------------------------
+
+*  T**0
+      W0=0D0
+      DO I=474,1,-1
+         W0=W0+FAIRHD(1,I)*SIN(FAIRHD(2,I)*T+FAIRHD(3,I))
+      END DO
+
+*  T**1
+      W1=0D0
+      DO I=679,475,-1
+         W1=W1+FAIRHD(1,I)*SIN(FAIRHD(2,I)*T+FAIRHD(3,I))
+      END DO
+
+*  T**2
+      W2=0D0
+      DO I=764,680,-1
+         W2=W2+FAIRHD(1,I)*SIN(FAIRHD(2,I)*T+FAIRHD(3,I))
+      END DO
+
+*  T**3
+      W3=0D0
+      DO I=784,765,-1
+         W3=W3+FAIRHD(1,I)*SIN(FAIRHD(2,I)*T+FAIRHD(3,I))
+      END DO
+
+*  T**4
+      W4=0D0
+      DO I=787,785,-1
+         W4=W4+FAIRHD(1,I)*SIN(FAIRHD(2,I)*T+FAIRHD(3,I))
+      END DO
+
+*  Multiply by powers of T and combine
+      WF=T*(T*(T*(T*W4+W3)+W2)+W1)+W0
+
+*  Adjustments to use JPL planetary masses instead of IAU
+      WJ=     0.00065D-6  * SIN(   6069.776754D0   *T + 4.021194D0   ) +
+     :        0.00033D-6  * SIN(    213.299095D0   *T + 5.543132D0   ) +
+     :      (-0.00196D-6  * SIN(   6208.294251D0   *T + 5.696701D0   ))+
+     :      (-0.00173D-6  * SIN(     74.781599D0   *T + 2.435900D0   ))+
+     :        0.03638D-6*T*T
+
+* -----------------------------------------------------------------------
+
+*  Final result:  TDB-TT in seconds
+      sla_RCC=WT+WF+WJ
+
+      END
diff --git a/src/slalib/rdplan.f b/src/slalib/rdplan.f
new file mode 100644
index 0000000..e00ec1d
--- /dev/null
+++ b/src/slalib/rdplan.f
@@ -0,0 +1,183 @@
+      SUBROUTINE sla_RDPLAN (DATE, NP, ELONG, PHI, RA, DEC, DIAM)
+*+
+*     - - - - - - -
+*      R D P L A N
+*     - - - - - - -
+*
+*  Approximate topocentric apparent RA,Dec of a planet, and its
+*  angular diameter.
+*
+*  Given:
+*     DATE        d       MJD of observation (JD - 2400000.5)
+*     NP          i       planet: 1 = Mercury
+*                                 2 = Venus
+*                                 3 = Moon
+*                                 4 = Mars
+*                                 5 = Jupiter
+*                                 6 = Saturn
+*                                 7 = Uranus
+*                                 8 = Neptune
+*                                 9 = Pluto
+*                              else = Sun
+*     ELONG,PHI   d       observer's east longitude and geodetic
+*                                               latitude (radians)
+*
+*  Returned:
+*     RA,DEC      d        RA, Dec (topocentric apparent, radians)
+*     DIAM        d        angular diameter (equatorial, radians)
+*
+*  Notes:
+*
+*  1  The date is in a dynamical timescale (TDB, formerly ET) and is
+*     in the form of a Modified Julian Date (JD-2400000.5).  For all
+*     practical purposes, TT can be used instead of TDB, and for many
+*     applications UT will do (except for the Moon).
+*
+*  2  The longitude and latitude allow correction for geocentric
+*     parallax.  This is a major effect for the Moon, but in the
+*     context of the limited accuracy of the present routine its
+*     effect on planetary positions is small (negligible for the
+*     outer planets).  Geocentric positions can be generated by
+*     appropriate use of the routines sla_DMOON and sla_PLANET.
+*
+*  3  The direction accuracy (arcsec, 1000-3000AD) is of order:
+*
+*            Sun              5
+*            Mercury          2
+*            Venus           10
+*            Moon            30
+*            Mars            50
+*            Jupiter         90
+*            Saturn          90
+*            Uranus          90
+*            Neptune         10
+*            Pluto            1   (1885-2099AD only)
+*
+*     The angular diameter accuracy is about 0.4% for the Moon,
+*     and 0.01% or better for the Sun and planets.
+*
+*  See the sla_PLANET routine for references.
+*
+*  Called: sla_GMST, sla_DT, sla_EPJ, sla_DMOON, sla_PVOBS, sla_PRENUT,
+*          sla_PLANET, sla_DMXV, sla_DCC2S, sla_DRANRM
+*
+*  P.T.Wallace   Starlink   26 May 1997
+*
+*  Copyright (C) 1997 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE
+      INTEGER NP
+      DOUBLE PRECISION ELONG,PHI,RA,DEC,DIAM
+
+*  AU in km
+      DOUBLE PRECISION AUKM
+      PARAMETER (AUKM=1.49597870D8)
+
+*  Light time for unit distance (sec)
+      DOUBLE PRECISION TAU
+      PARAMETER (TAU=499.004782D0)
+
+      INTEGER IP,J,I
+      DOUBLE PRECISION EQRAU(0:9),STL,VGM(6),V(6),RMAT(3,3),
+     :                 VSE(6),VSG(6),VSP(6),VGO(6),DX,DY,DZ,R,TL
+      DOUBLE PRECISION sla_GMST,sla_DT,sla_EPJ,sla_DRANRM
+
+*  Equatorial radii (km)
+      DATA EQRAU / 696000D0,2439.7D0,6051.9D0,1738D0,3397D0,71492D0,
+     :             60268D0,25559D0,24764D0,1151D0 /
+
+
+
+*  Classify NP
+      IP=NP
+      IF (IP.LT.0.OR.IP.GT.9) IP=0
+
+*  Approximate local ST
+      STL=sla_GMST(DATE-sla_DT(sla_EPJ(DATE))/86400D0)+ELONG
+
+*  Geocentre to Moon (mean of date)
+      CALL sla_DMOON(DATE,V)
+
+*  Nutation to true of date
+      CALL sla_NUT(DATE,RMAT)
+      CALL sla_DMXV(RMAT,V,VGM)
+      CALL sla_DMXV(RMAT,V(4),VGM(4))
+
+*  Moon?
+      IF (IP.EQ.3) THEN
+
+*     Yes: geocentre to Moon (true of date)
+         DO I=1,6
+            V(I)=VGM(I)
+         END DO
+      ELSE
+
+*     No: precession/nutation matrix, J2000 to date
+         CALL sla_PRENUT(2000D0,DATE,RMAT)
+
+*     Sun to Earth-Moon Barycentre (J2000)
+         CALL sla_PLANET(DATE,3,V,J)
+
+*     Precession and nutation to date
+         CALL sla_DMXV(RMAT,V,VSE)
+         CALL sla_DMXV(RMAT,V(4),VSE(4))
+
+*     Sun to geocentre (true of date)
+         DO I=1,6
+            VSG(I)=VSE(I)-0.012150581D0*VGM(I)
+         END DO
+
+*     Sun?
+         IF (IP.EQ.0) THEN
+
+*        Yes: geocentre to Sun
+            DO I=1,6
+               V(I)=-VSG(I)
+            END DO
+         ELSE
+
+*        No: Sun to Planet (J2000)
+            CALL sla_PLANET(DATE,IP,V,J)
+
+*        Precession and nutation to date
+            CALL sla_DMXV(RMAT,V,VSP)
+            CALL sla_DMXV(RMAT,V(4),VSP(4))
+
+*        Geocentre to planet
+            DO I=1,6
+               V(I)=VSP(I)-VSG(I)
+            END DO
+         END IF
+      END IF
+
+*  Refer to origin at the observer
+      CALL sla_PVOBS(PHI,0D0,STL,VGO)
+      DO I=1,6
+         V(I)=V(I)-VGO(I)
+      END DO
+
+*  Geometric distance (AU)
+      DX=V(1)
+      DY=V(2)
+      DZ=V(3)
+      R=SQRT(DX*DX+DY*DY+DZ*DZ)
+
+*  Light time (sec)
+      TL=TAU*R
+
+*  Correct position for planetary aberration
+      DO I=1,3
+         V(I)=V(I)-TL*V(I+3)
+      END DO
+
+*  To RA,Dec
+      CALL sla_DCC2S(V,RA,DEC)
+      RA=sla_DRANRM(RA)
+
+*  Angular diameter (radians)
+      DIAM=2D0*ASIN(EQRAU(IP)/(R*AUKM))
+
+      END
diff --git a/src/slalib/read.me b/src/slalib/read.me
new file mode 100644
index 0000000..bfa92ba
--- /dev/null
+++ b/src/slalib/read.me
@@ -0,0 +1,441 @@
+READ.ME
+
+Revision date 17 August 1999                       SLALIB Version 2.4-0
+
+-----------------------------------------------------------------------
+
+FILES IN THE ORIGINAL SOURCE DIRECTORY (VAX)
+
+   READ.ME           this file
+   *.FOR             Fortran source (separate modules)
+   *.OBS             ditto, but obsolete routines
+   *.NEW             ditto, but new and not yet ready for release
+   *.VAX             Fortran source for VAX/VMS
+   *.CNVX            Fortran source for Convex
+   *.MIPS            Fortran source for DECstation
+   *.SUN4            Fortran source for Sun SPARCstation
+   *.LNX             Fortran source for Linux
+   *.PCM             Microsoft Fortran source for PC
+   *.C               C functions needed for Linux version
+   PC.BAT            rebuilds PC version
+   REP.BAT           on PC, compiles one module and updates library
+   CREATE.COM        complete rebuild of VAX and Unix releases
+   PUT.COM           compile one module and update libraries
+   VAX_TO_UNIX.USH   script to complete transfer to Unix platforms
+   SLA.NEWS          NEWS item for latest release
+   MAKEFILE          Unix make file
+   MK                C-shell script to run make
+   SUN67.TEX         document
+
+FILES IN [.RELEASE] DIRECTORY ON VAX
+
+   SLALIB.OLB        object library
+   SLALIB.TLB        source library
+   SUN67.TEX         document
+
+FILES IN [.UNIX] DIRECTORY ON VAX
+
+   MAKEFILE          make file for DECstation and Sun SPARC
+   MK                C-shell script to run make
+   SLA.A             archive file containing everything else
+   VAX_TO_UNIX       script to complete transfer to Unix platforms
+   SLA.NEWS          NEWS item for latest release
+   SUN67.TEX         document
+
+FILES IN (INFORMAL) FTP DIRECTORIES
+
+   The files distributed informally through anonymous FTP may differ
+   slightly in both content and name from the ones listed above.  For
+   example the PC Fortran modules may be stored in archive files and
+   called xxx.f_pcm rather than XXX.PCM etc.
+
+-----------------------------------------------------------------------
+
+DISTRIBUTION - THIS DIRECTORY
+
+   Nothing from this directory needs to be distributed.
+
+DISTRIBUTION - [.RELEASE] DIRECTORY
+
+   SLALIB.*          SLALIB_DIR
+   SLA.NEWS          SLALIB_DIR
+   SUN67.TEX         DOCSDIR
+
+INSTRUCTIONS FOR SAVING SPACE
+
+   Extract from the SLALIB_DIR BACKUP save set only the file SLALIB.OLB.
+
+-----------------------------------------------------------------------
+
+PORTING FORTRAN SLALIB TO OTHER SYSTEMS
+
+FORTRAN SLALIB runs on VAX (VMS), PC (Linux+f2c), PC (Microsoft FORTRAN),
+Convex (ConvexOS), DECstation (Ultrix), DEC Alpha (OSF-1) and Sun
+SPARCstation (SunOS and Solaris).
+
+For most platforms, the required changes are confined to these routines:
+
+    sla_GRESID
+    sla_RANDOM
+    sla_WAIT
+
+VAX, CONVEX, DECSTATION/ALPHA, SUN & PC
+
+Versions suitable for the above platforms are supplied in the
+development directory as *.VAX, *,CNVX, *.MIPS, *.SUN4, *.PCM and
+*.LNX respectively.
+
+
+-----------------------------------------------------------------------
+
+LATEST RELEASE INFORMATION
+
+The latest release of SLALIB includes the following changes (most recent
+at the end):
+
+*  In sla_RCC, the topocentric term of coefficient 1.3184D-10 sec
+   had the wrong sign.  Minus is correct.
+
+*  The IAU decided in 1991 to rename the Terrestrial Dynamical
+   Time, TDT, which is now called "Terrestrial Time" or TT.
+   Appropriate changes have been made in the SLALIB documentation.
+   The same IAU resolutions introduced the timescales TCG and TCB;
+   there are at present no SLALIB routines to handle these new
+   timescales.
+
+*  The Keck 1 Telescope has been added to sla_OBS.
+
+*  The handling of the random-number seed in the PC versions of
+   sla_RANDOM and sla_GRESID was flawed and has been improved.
+
+*  The UTC leap second at the end of June 1993 has been added to the
+   routine sla_DAT.  Existing applications which call sla_DAT or
+   sla_DTT require relinking.
+
+*  Some unnecessary code in sla_AMPQK has been removed.
+
+*  Minor reorganization of the sla_REFRO code has led to an improvement
+   in speed of about 20%, and precautions have been taken against
+   potential arithmetic errors.
+
+*  There have been small revisions to sla_FK425 and sla_FK524.  The
+   results are not significantly affected, except in the pathological
+   case of large proper motion combined with immense distance, where
+   sla_FK524 could produce erroneous radial velocity values.  The
+   latest versions are close to the algorithms published in the 1992
+   Explanatory Supplement to the Astronomical Almanac.
+
+*  The leap second at the end of June 1994 has been added to sla_DAT.
+
+*  THE SLA_RVLSR ROUTINE HAS BEEN RETIRED.  Its place has been taken
+   by two new routines: sla_RVLSRK and sla_RVLSRD.  The original
+   sla_RVLSR had used a "kinematical" LSR.  When this was later changed
+   to a "dynamical" LSR for (what seemed liked good reasons at the time),
+   the small differences were noticed by spectral-line radio observers,
+   who had to fall back on old copies of the routine to remain consistent
+   with existing practice.  The new routines provide both sorts of LSR:
+   sla_RVLSRK uses a kinematical LSR and sla_RVLSRD uses the dynamical LSR.
+
+*  The sla_PA routine (computation of parallactic angle) used an
+   unnecessarily complicated formulation, which has been simplified.
+   The results are unaffected.
+
+*  The sla_ZD routine (computation of zenith distance) used a
+   straightforward cosine-formula-based method, which suffered from
+   decreased accuracy near the zenith.  A better, vector-derived,
+   formulation has been substituted, without materially affecting
+   the results.  Because sla_ZD is double precision, the old
+   formulation was always adequate;  however, had anyone transcribed
+   the code in single precision errors approaching 1 arcmin could
+   have resulted.  The new formulation delivers good results all
+   over the sky even in a single precision version.
+
+*  Routines have been added to transform equatorial coordinates
+   (HA,Dec) to horizon coordinates (Az,El) and back.  Single and
+   double precision are both supported.  The routines are called
+   sla_E2H, sla_DE2H, sla_H2E, sla_DH2E.
+
+*  A new routine has been added to the tangent-plane projection set.
+   The single and double precision versions are called sla_TPRD and
+   sla_DTPRD respectively.  Given the RA,Dec of a star and its
+   xi,eta coordinates, the routine determines the "plate centre".
+
+*  The existing routine sla_PREC for obtaining the precession matrix
+   uses the official IAU model and should continue to be used for
+   canonical purposes.  A new version, called sla_PRECL, uses a
+   more up-to-date model which delivers better accuracy, especially
+   over intervals of millennia.
+
+*  The routine sla_PVOBS was returning velocities in AU per sidereal
+   second rather than per UT second.  This has been corrected.  The
+   maximum error was equivalent to about 0.001 km/s.
+
+*  In sla_MAPQK and sla_MAPQKZ, the area within which the gravitional
+   light-deflection term is restrained has been extended from its
+   original 300 arcsec radius to about 920 arcsec, just inside the
+   Sun's disc.
+
+*  A chapter of explanation, with examples, has been added to SUN/67,
+   which has also undergone various cosmetic revisions.
+
+*  There were two discrepancies between the documentation of sla_DCMPF
+   (program comments and SUN/67) and the code.  The first was that the
+   formulae for the nonperpendicularity used PERP instead of PERP/2;
+   the documentation has been corrected.  The other was that the
+   documentation showed the zero point corrections being applied first,
+   whereas the code returned zero point corrections corresponding to
+   being applied last.  The code has been corrected to match the
+   documentation.
+
+*  The C module slaCldj gave incorrect answers for dates during
+   January and February.  The error, which did not affect the Fortran
+   version, has been corrected.
+
+*  THE CALLS FOR sla_TPRD AND sla_DTPRD HAS BEEN CHANGED.  An integer
+   status argument has been added;  non-zero means the supplied RA,Dec
+   and Xi,Eta describe an impossible case.  (This can only happen
+   near the pole and with non-zero Xi.)  Also, a slightly neater
+   formulation has been introduced.
+
+*  Three new routines have been added.  sla_ALTAZ takes a star's HA,Dec
+   and produces position, velocity and acceleration for azimuth,
+   elevation and parallactic angle.  sla_PDA2H predicts the HA at which
+   a given azimuth will be reached.  sla_PDQ2H does the same for
+   position angle.
+
+*  In the sla_OBS routine, the wrong sign was returned for the Perkins
+   72 inch telescope at Lowell - fixed.
+
+*  A revised model for the equation of the equinoxes has been
+   installed in sla_EQEQX, in line with recent IAU resolutions.  The
+   change amounts to less than 3 mas.
+
+*  A bug in sla_DFLTIN has been corrected.  A negative number following
+   an E- or D-format number without intervening spaces lost its sign.
+
+*  Four stations have been added to sla_OBS:
+
+     TAUTENBERG  Tautenberg 1.34 metre Schmidt
+     PALOMAR48   Palomar 48-inch Schmidt
+     UKST        UK 1.2 metre Schmidt, Siding Spring
+     KISO        Kiso 1.05 metre Schmidt, Japan
+     ESOSCHMIDT  ESO 1 metre Schmidt, La Silla
+
+*  The sla_EARTH and sla_MOON routines could give an integer divide by zero
+   for years before 1 BC.  This has been corrected.
+
+*  sla_CALYD (provided to support the sla_EARTH and sla_MOON routines)
+   has been upgraded to work outside the interval 1900 March 1 to
+   2100 February 28.  The status value indicating dates outside that
+   range has been dropped;  a new error value for year before -4711
+   has been introduced.
+
+*  A new routine, sla_CLYD, has been added.  It is a version of sla_CALYD
+   without the century-default feature and is to enable 1st-century
+   dates to be supplied to sla_EARTH and sla_MOON.
+
+*  Two new routines, sla_PLANET and sla_RDPLAN, have been added, which
+   compute approximate planetary ephemerides.
+
+*  A new routine, sla_DMOON, implements the same (Meeus) model as the
+   sla_MOON routine, but in full and in double precision.  The time
+   argument is a straightforward MJD rather than sla_MOON's year and
+   day-in-year.
+
+*  The sla_REFRO code has been speeded up by a factor of two (and is
+   also clearer).
+
+*  sla_REFV and sla_REFZ have, in different ways, been made more accurate
+   for cases close to the horizon.  The improvement to sla_REFV is
+   relatively modest, but sla_REFZ is now capable of delivering useful
+   results for rise/set phenomena.
+
+*  sla_AOPQK has been speeded up for low-elevation cases.
+
+*  Versions of the tangent-plane routines working directly in x,y,z
+   instead of spherical coordinates have been added.  They may be
+   faster in some applications.  The routines are sla_DV2TP, sla_V2TP,
+   sla_DTP2V, sla_TP2V, sla_DTPXYZ, sla_TPXYZ.
+
+*  The coordinates of the Australia Telescope Compact Array have been
+   added to sla_OBS.  The name is 'ATCA'.
+
+*  Despite their recent introduction THE ROUTINES sla_DTPRD, sla_DTPXYZ,
+   sla_TPRD AND sla_TPXYZ HAVE BEEN WITHDRAWN.  They have been replaced
+   by the new routines sla_DTPS2C, sla_DTPV2C, sla_TPS2C and sla_TPV2C.
+   These are functionally equivalent to the earlier routines but return
+   two solutions instead of one:  the second solution can arise near a
+   pole.
+
+*  The UTC leap second at the end of 1995 has been added to sla_DAT.
+
+*  The refraction routine sla_REFRO has been extensively revised.  The
+   principal motivation was to improve the radio predictions by
+   introducing better humidity models.  The models previously in
+   use had been entirely adequate for the optical case, for which
+   they had been devised, but improved models were required for
+   the radio case.  None of the changes significantly affects the
+   optical results with respect to the earlier version of the sla_REFRO
+   routine.  For example, at 70 deg zenith distance the new version
+   agrees with the old version to better than 0.05 arcsec for any
+   reasonable combination of parameters.  However, the improved
+   water-vapour expressions do make a significant difference in the
+   radio band, at 70 deg zenith distance reaching almost 4 arcsec
+   for a hot, humid, low-altitude site during a period of low pressure.
+
+*  There was a bug in slaRdplan, the (private) C version of sla_RDPLAN.
+   The answers were unaffected but there could be floating-point
+   problems on some platforms.
+
+*  A new routine has been added, sla_GMSTA.  This gives greater numerical
+   precision than the existing GMST function by allowing the date and
+   time to be specified separately rather than as a single MJD.
+
+*  Measures taken in sla_MAPQK to avoid trouble when processing Solar
+   positions had not been carried through into sla_MAPQKZ.  The two
+   routines now use the same strategy.
+
+*  In sla_REFRO, at zenith distances well beyond 90 deg and under some
+   conditions, it was possible to encounter arithmetic errors due to
+   failure of the tropospheric model-atmosphere to deliver sensible
+   temperatures.  This is inherent in the published algorithm.  To
+   avoid the problem, the temperature delivered by the model has been
+   constrained to the range 200 to 320 deg K.
+
+*  A new routine has been added, sla_ATMDSP, for rapidly recalculating
+   the A,B refraction coefficients for different wavelengths.
+
+*  The first UTC leap-second date in the sla_DAT routine was one day early.
+   This will have had no effect on the results for more recent epochs.
+
+*  slaObs, the C version of sla_OBS, had some problems related to character
+   string handling.  A call using the "number" option retured an invalid
+   station ID, and station ID and name strings of the stipulated 10
+   and 40 character lengths were improperly terminated.
+
+*  A new routine, sla_POLMO has been added.  This is a specialist tool
+   to do with Earth polar motion.
+
+*  sla_DC62S and sla_CC62S could give floating point errors if vectors in
+   unlikely units were supplied.  The handling of difficult cases  has
+   been improved.
+
+*  Support for Linux has been added.
+
+*  slaRefreo, the C version of sla_REFRO, was not re-entrant.  It is now;
+   there has been a small (4%) speed penalty.
+
+*  The C routines slaRandom, slaGresid and slaWait have been dropped.
+   They could not easily be made re-entrant and posed perennial platform-
+   dependency problems.
+
+*  The value for the arcsec to radians factor in several routines
+   had an incorrect (and superfluous) 19th digit, which has been
+   removed.
+
+*  There was a minor bug in sla_DV2TP and sla_V2TP, to do with protection
+   against the special case where the tangent point is the pole.
+
+*  In sla_OBS, the position of the Parkes radiotelescope has been revised,
+   and the ATNF Mopra observatory has been added.
+
+*  Two new routines have been added.  sla_PAV (single precision) and
+   sla_DPAV (double precision) are like sla_BEAR and sla_DBEAR but start
+   with direction cosines rather than spherical coordinates - they return
+   the position angle of one point with respect to the other.
+
+*  slaRefro, the C version of sla_REFRO, still wasn't re-entrant, but is
+   now.
+
+*  slaDtf2d, the C version of sla_DTF2D, used to accept 60.0 in the seconds
+   field;  this has been corrected.
+
+*  The sla_PLANET and sla_RDPLAN routines now include Pluto.  The ephemeris
+   is accurate (sub-arcsecond) but covers the 20th and 21st centuries
+   only.
+
+   !!!  IMPORTANT NOTE  !!!
+
+   sla_RDPLAN used to interpret any planet number outside the range 1-8
+   as meaning the Sun.  The new version uses planet number 9.  Existing
+   programs using 9 for the Sun should be changed to use 0.  The rule
+   has not been changed, except that the range is now 1-9 instead of
+   1-8, as it is unlikely that the equivalent problem will arise in the
+   future.
+
+*  Two new routines have been added, sla_PLANEL and sla_PLANTE.  They are
+   analogues of sla_PLANET and sla_RDPLAN but for the case where orbital
+   elements are available.  They can be used for predicting the
+   positions of asteroids and comets, and, if up-to-date osculating
+   elements are supplied, more accurate positions for the major
+   planets than can be provided through the sla_PLANET and sla_RDPLAN
+   routines.
+
+*  The sla_REFRO routine could give inaccurate results for low temperatures
+   (subzero C).  This was caused by over-cautious defensive programming,
+   which prevented the tropospheric temperature falling below 200 K.
+
+*  A new routine has been added, sla_REFCOQ.  This calculates the coefficients
+   of a two-term refraction model.  It complements the existing sla_REFCO
+   routine, being much faster at the expense of some accuracy.
+
+*  The 1997 July 1 UTC leap second has been added to the sla_DAT routine.
+
+*  A bug in slaSvd, the C version of sla_SVD, caused occasional false
+   indications of ill-conditioning.  The results of least-squares
+   fits do not seem to have been affected.  The Fortran version did not
+   have the bug.
+
+*  The Subaru telescope (Japanese National 8-metre telescope, Mauna Kea)
+   has been added to the sla_OBS routine.
+
+*  The sla_DAT routine has been extended back to the inception of UTC in
+   1960.
+
+*  The "earliest date possible" in DJCL sla_was two days out (disagreeing
+   with sla_DJCAL, which had the correct value).
+
+*  The sla_GMSTA code has been improved.
+
+*  A new routine, sla_PV2EL, takes a heliocentric J2000 equatorial position
+   and velocity and produces the equivalent set of osculating elements.
+
+*  The 1999 January 1 UTC leap second has been added to the sla_DAT routine.
+
+*  Four new routines have been introduced which transform between the
+   FK5 system and the ICRS (Hipparcos) system.  sla_FK52H and sla_H2FK5
+   transform star positions and proper motions from FK5 coordinates to
+   Hipparcos coordinates and vice versa.  sla_FK5HZ and sla_HFK5Z do the
+   same but for the case where the Hipparcos proper motions are zero.
+
+*  Six new routines have been introduced for dealing with orbital elements.
+   Four of them (sla_EL2UE, sla_PV2UE, sla_UE2EL and sla_UE2PV) provide
+   applications with direct access to the "universal variables" method
+   that was already being used internally.  Compared with using conventional
+   (angular) elements and solving Kepler's equation, the universal variables
+   approach has a number of advantages, including better handling of near-
+   parabolic orbits and greater efficiency.  The remaining two routines
+   (sla_PERTEL and sla_PERTUE) generate updated elements by applying
+   major-planet perturbations.  The new elements can then be used to
+   predict positions that are much more accurate.  For minor planets,
+   sub-arcsecond accuracy over a decade is achievable.
+
+*  Several observatory sites have been added to the OBS routine:  CFHT,
+   Keck 2, Gemini North, FCRAO, IRTF and CSO.  The coordinates for all
+   the Mauna Kea sites have been updated in accordance with recent aerial
+   photography results made available by the Institute for Astronomy,
+   University of Hawaii.
+
+*  A bug in sla_DAT has been corrected.  It used to give incorrect
+   results for dates in the first 54 days of 1972.
+
+*  There are new routines for generating permutations (sla_PERMUT) and
+   combinations (sla_COMBN).
+
+-----------------------------------------------------------------------
+
+
+ P.T.Wallace
+
+ ptw@star.rl.ac.uk
+ +44-1235-44-5372
diff --git a/src/slalib/refco.f b/src/slalib/refco.f
new file mode 100644
index 0000000..3bc8816
--- /dev/null
+++ b/src/slalib/refco.f
@@ -0,0 +1,70 @@
+      SUBROUTINE sla_REFCO (HM, TDK, PMB, RH, WL, PHI, TLR, EPS,
+     :                      REFA, REFB)
+*+
+*     - - - - - -
+*      R E F C O
+*     - - - - - -
+*
+*  Determine the constants A and B in the atmospheric refraction
+*  model dZ = A tan Z + B tan**3 Z.
+*
+*  Z is the "observed" zenith distance (i.e. affected by refraction)
+*  and dZ is what to add to Z to give the "topocentric" (i.e. in vacuo)
+*  zenith distance.
+*
+*  Given:
+*    HM      d     height of the observer above sea level (metre)
+*    TDK     d     ambient temperature at the observer (deg K)
+*    PMB     d     pressure at the observer (millibar)
+*    RH      d     relative humidity at the observer (range 0-1)
+*    WL      d     effective wavelength of the source (micrometre)
+*    PHI     d     latitude of the observer (radian, astronomical)
+*    TLR     d     temperature lapse rate in the troposphere (degK/metre)
+*    EPS     d     precision required to terminate iteration (radian)
+*
+*  Returned:
+*    REFA    d     tan Z coefficient (radian)
+*    REFB    d     tan**3 Z coefficient (radian)
+*
+*  Called:  sla_REFRO
+*
+*  Notes:
+*
+*  1  Typical values for the TLR and EPS arguments might be 0.0065D0 and
+*     1D-10 respectively.
+*
+*  2  The radio refraction is chosen by specifying WL > 100 micrometres.
+*
+*  3  The routine is a slower but more accurate alternative to the
+*     sla_REFCOQ routine.  The constants it produces give perfect
+*     agreement with sla_REFRO at zenith distances arctan(1) (45 deg)
+*     and arctan(4) (about 76 deg).  It achieves 0.5 arcsec accuracy
+*     for ZD < 80 deg, 0.01 arcsec accuracy for ZD < 60 deg, and
+*     0.001 arcsec accuracy for ZD < 45 deg.
+*
+*  P.T.Wallace   Starlink   3 June 1997
+*
+*  Copyright (C) 1997 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION HM,TDK,PMB,RH,WL,PHI,TLR,EPS,REFA,REFB
+
+      DOUBLE PRECISION ATN1,ATN4,R1,R2
+
+*  Sample zenith distances: arctan(1) and arctan(4)
+      PARAMETER (ATN1=0.7853981633974483D0,
+     :           ATN4=1.325817663668033D0)
+
+
+
+*  Determine refraction for the two sample zenith distances
+      CALL sla_REFRO(ATN1,HM,TDK,PMB,RH,WL,PHI,TLR,EPS,R1)
+      CALL sla_REFRO(ATN4,HM,TDK,PMB,RH,WL,PHI,TLR,EPS,R2)
+
+*  Solve for refraction constants
+      REFA = (64D0*R1-R2)/60D0
+      REFB = (R2-4D0*R1)/60D0
+
+      END
diff --git a/src/slalib/refcoq.f b/src/slalib/refcoq.f
new file mode 100644
index 0000000..15e3af0
--- /dev/null
+++ b/src/slalib/refcoq.f
@@ -0,0 +1,208 @@
+      SUBROUTINE sla_REFCOQ (TDK, PMB, RH, WL, REFA, REFB)
+*+
+*     - - - - - - -
+*      R E F C O Q
+*     - - - - - - -
+*
+*  Determine the constants A and B in the atmospheric refraction
+*  model dZ = A tan Z + B tan**3 Z.  This is a fast alternative
+*  to the sla_REFCO routine - see notes.
+*
+*  Z is the "observed" zenith distance (i.e. affected by refraction)
+*  and dZ is what to add to Z to give the "topocentric" (i.e. in vacuo)
+*  zenith distance.
+*
+*  Given:
+*    TDK      d      ambient temperature at the observer (deg K)
+*    PMB      d      pressure at the observer (millibar)
+*    RH       d      relative humidity at the observer (range 0-1)
+*    WL       d      effective wavelength of the source (micrometre)
+*
+*  Returned:
+*    REFA     d      tan Z coefficient (radian)
+*    REFB     d      tan**3 Z coefficient (radian)
+*
+*  The radio refraction is chosen by specifying WL > 100 micrometres.
+*
+*  Notes:
+*
+*  1  The model is an approximation, for moderate zenith distances,
+*     to the predictions of the sla_REFRO routine.  The approximation
+*     is maintained across a range of conditions, and applies to
+*     both optical/IR and radio.
+*
+*  2  The algorithm is a fast alternative to the sla_REFCO routine.
+*     The latter calls the sla_REFRO routine itself:  this involves
+*     integrations through a model atmosphere, and is costly in
+*     processor time.  However, the model which is produced is precisely
+*     correct for two zenith distance (45 degrees and about 76 degrees)
+*     and at other zenith distances is limited in accuracy only by the
+*     A tan Z + B tan**3 Z formulation itself.  The present routine
+*     is not as accurate, though it satisfies most practical
+*     requirements.
+*
+*  3  The model omits the effects of (i) height above sea level (apart
+*     from the reduced pressure itself), (ii) latitude (i.e. the
+*     flattening of the Earth) and (iii) variations in tropospheric
+*     lapse rate.
+*
+*     The model was tested using the following range of conditions:
+*
+*       lapse rates 0.0055, 0.0065, 0.0075 deg/metre
+*       latitudes 0, 25, 50, 75 degrees
+*       heights 0, 2500, 5000 metres ASL
+*       pressures mean for height -10% to +5% in steps of 5%
+*       temperatures -10 deg to +20 deg with respect to 280 deg at SL
+*       relative humidity 0, 0.5, 1
+*       wavelengths 0.4, 0.6, ... 2 micron, + radio
+*       zenith distances 15, 45, 75 degrees
+*
+*     The accuracy with respect to direct use of the sla_REFRO routine
+*     was as follows:
+*
+*                            worst         RMS
+*
+*       optical/IR           62 mas       8 mas
+*       radio               319 mas      49 mas
+*
+*     For this particular set of conditions:
+*
+*       lapse rate 0.0065 degK/metre
+*       latitude 50 degrees
+*       sea level
+*       pressure 1005 mB
+*       temperature 280.15 degK
+*       humidity 80%
+*       wavelength 5740 Angstroms
+*
+*     the results were as follows:
+*
+*       ZD        sla_REFRO   sla_REFCOQ  Saastamoinen
+*
+*       10         10.27        10.27        10.27
+*       20         21.19        21.20        21.19
+*       30         33.61        33.61        33.60
+*       40         48.82        48.83        48.81
+*       45         58.16        58.18        58.16
+*       50         69.28        69.30        69.27
+*       55         82.97        82.99        82.95
+*       60        100.51       100.54       100.50
+*       65        124.23       124.26       124.20
+*       70        158.63       158.68       158.61
+*       72        177.32       177.37       177.31
+*       74        200.35       200.38       200.32
+*       76        229.45       229.43       229.42
+*       78        267.44       267.29       267.41
+*       80        319.13       318.55       319.10
+*
+*      deg        arcsec       arcsec       arcsec
+*
+*     The values for Saastamoinen's formula (which includes terms
+*     up to tan^5) are taken from Hohenkerk and Sinclair (1985).
+*
+*     The results from the much slower but more accurate sla_REFCO
+*     routine have not been included in the tabulation as they are
+*     identical to those in the sla_REFRO column to the 0.01 arcsec
+*     resolution used.
+*
+*  4  Outlandish input parameters are silently limited to mathematically
+*     safe values.  Zero pressure is permissible, and causes zeroes to
+*     be returned.
+*
+*  5  The algorithm draws on several sources, as follows:
+*
+*     a) The formula for the saturation vapour pressure of water as
+*        a function of temperature and temperature is taken from
+*        expressions A4.5-A4.7 of Gill (1982).
+*
+*     b) The formula for the water vapour pressure, given the
+*        saturation pressure and the relative humidity, is from
+*        Crane (1976), expression 2.5.5.
+*
+*     c) The refractivity of air is a function of temperature,
+*        total pressure, water-vapour pressure and, in the case
+*        of optical/IR but not radio, wavelength.  The formulae
+*        for the two cases are developed from the Essen and Froome
+*        expressions adopted in Resolution 1 of the 12th International
+*        Geodesy Association General Assembly (1963).
+*
+*     The above three items are as used in the sla_REFRO routine.
+*
+*     d) The formula for beta, the ratio of the scale height of the
+*        atmosphere to the geocentric distance of the observer, is
+*        an adaption of expression 9 from Stone (1996).  The
+*        adaptations, arrived at empirically, consist of (i) a
+*        small adjustment to the coefficient and (ii) a humidity
+*        term for the radio case only.
+*
+*     e) The formulae for the refraction constants as a function of
+*        n-1 and beta are from Green (1987), expression 4.31.
+*
+*  References:
+*
+*     Crane, R.K., Meeks, M.L. (ed), "Refraction Effects in the Neutral
+*     Atmosphere", Methods of Experimental Physics: Astrophysics 12B,
+*     Academic Press, 1976.
+*
+*     Gill, Adrian E., "Atmosphere-Ocean Dynamics", Academic Press, 1982.
+*
+*     Hohenkerk, C.Y., & Sinclair, A.T., NAO Technical Note No. 63, 1985.
+*
+*     International Geodesy Association General Assembly, Bulletin
+*     Geodesique 70 p390, 1963.
+*
+*     Stone, Ronald C., P.A.S.P. 108 1051-1058, 1996.
+*
+*     Green, R.M., "Spherical Astronomy", Cambridge University Press, 1987.
+*
+*  P.T.Wallace   Starlink   4 June 1997
+*
+*  Copyright (C) 1997 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION TDK,PMB,RH,WL,REFA,REFB
+
+      LOGICAL OPTIC
+      DOUBLE PRECISION T,P,R,W,TDC,PS,PW,WLSQ,GAMMA,BETA
+
+
+
+*  Decide whether optical/IR or radio case:  switch at 100 microns.
+      OPTIC = WL.LE.100D0
+
+*  Restrict parameters to safe values.
+      T = MIN(MAX(TDK,100D0),500D0)
+      P = MIN(MAX(PMB,0D0),10000D0)
+      R = MIN(MAX(RH,0D0),1D0)
+      W = MIN(MAX(WL,0.1D0),1D6)
+
+*  Water vapour pressure at the observer.
+      IF (P.GT.0D0) THEN
+         TDC = T-273.15D0
+         PS = 10D0**((0.7859D0+0.03477D0*TDC)/(1D0+0.00412D0*TDC))*
+     :                                    (1D0+P*(4.5D-6+6D-10*TDC*TDC))
+         PW = R*PS/(1D0-(1D0-R)*PS/P)
+      ELSE
+         PW = 0D0
+      END IF
+
+*  Refractive index minus 1 at the observer.
+      IF (OPTIC) THEN
+         WLSQ = WL*WL
+         GAMMA = ((77.532D-6+(4.391D-7+3.57D-9/WLSQ)/WLSQ)*P
+     :                                                 -11.2684D-6*PW)/T
+      ELSE
+         GAMMA = (77.624D-6*P-(12.92D-6-0.371897D0/T)*PW)/T
+      END IF
+
+*  Formula for beta adapted from Stone, with empirical adjustments.
+      BETA=4.4474D-6*T
+      IF (.NOT.OPTIC) BETA=BETA-0.0074D0*PW*BETA
+
+*  Refraction constants from Green.
+      REFA = GAMMA*(1D0-BETA)
+      REFB = -GAMMA*(BETA-GAMMA/2D0)
+
+      END
diff --git a/src/slalib/refro.f b/src/slalib/refro.f
new file mode 100644
index 0000000..8d11184
--- /dev/null
+++ b/src/slalib/refro.f
@@ -0,0 +1,374 @@
+      SUBROUTINE sla_REFRO (ZOBS, HM, TDK, PMB, RH, WL, PHI, TLR,
+     :                      EPS, REF)
+*+
+*     - - - - - -
+*      R E F R O
+*     - - - - - -
+*
+*  Atmospheric refraction for radio and optical/IR wavelengths.
+*
+*  Given:
+*    ZOBS    d  observed zenith distance of the source (radian)
+*    HM      d  height of the observer above sea level (metre)
+*    TDK     d  ambient temperature at the observer (deg K)
+*    PMB     d  pressure at the observer (millibar)
+*    RH      d  relative humidity at the observer (range 0-1)
+*    WL      d  effective wavelength of the source (micrometre)
+*    PHI     d  latitude of the observer (radian, astronomical)
+*    TLR     d  temperature lapse rate in the troposphere (degK/metre)
+*    EPS     d  precision required to terminate iteration (radian)
+*
+*  Returned:
+*    REF     d  refraction: in vacuo ZD minus observed ZD (radian)
+*
+*  Notes:
+*
+*  1  A suggested value for the TLR argument is 0.0065D0.  The
+*     refraction is significantly affected by TLR, and if studies
+*     of the local atmosphere have been carried out a better TLR
+*     value may be available.
+*
+*  2  A suggested value for the EPS argument is 1D-8.  The result is
+*     usually at least two orders of magnitude more computationally
+*     precise than the supplied EPS value.
+*
+*  3  The routine computes the refraction for zenith distances up
+*     to and a little beyond 90 deg using the method of Hohenkerk
+*     and Sinclair (NAO Technical Notes 59 and 63, subsequently adopted
+*     in the Explanatory Supplement, 1992 edition - see section 3.281).
+*
+*  4  The code is a development of the optical/IR refraction subroutine
+*     AREF of C.Hohenkerk (HMNAO, September 1984), with extensions to
+*     support the radio case.  Apart from merely cosmetic changes, the
+*     following modifications to the original HMNAO optical/IR refraction
+*     code have been made:
+*
+*     .  The angle arguments have been changed to radians.
+*
+*     .  Any value of ZOBS is allowed (see note 6, below).
+*
+*     .  Other argument values have been limited to safe values.
+*
+*     .  Murray's values for the gas constants have been used
+*        (Vectorial Astrometry, Adam Hilger, 1983).
+*
+*     .  The numerical integration phase has been rearranged for
+*        extra clarity.
+*
+*     .  A better model for Ps(T) has been adopted (taken from
+*        Gill, Atmosphere-Ocean Dynamics, Academic Press, 1982).
+*
+*     .  More accurate expressions for Pwo have been adopted
+*        (again from Gill 1982).
+*
+*     .  Provision for radio wavelengths has been added using
+*        expressions devised by A.T.Sinclair, RGO (private
+*        communication 1989), based on the Essen & Froome
+*        refractivity formula adopted in Resolution 1 of the
+*        13th International Geodesy Association General Assembly
+*        (Bulletin Geodesique 70 p390, 1963).
+*
+*     .  Various small changes have been made to gain speed.
+*
+*     None of the changes significantly affects the optical/IR results
+*     with respect to the algorithm given in the 1992 Explanatory
+*     Supplement.  For example, at 70 deg zenith distance the present
+*     routine agrees with the ES algorithm to better than 0.05 arcsec
+*     for any reasonable combination of parameters.  However, the
+*     improved water-vapour expressions do make a significant difference
+*     in the radio band, at 70 deg zenith distance reaching almost
+*     4 arcsec for a hot, humid, low-altitude site during a period of
+*     low pressure.
+*
+*  5  The radio refraction is chosen by specifying WL > 100 micrometres.
+*     Because the algorithm takes no account of the ionosphere, the
+*     accuracy deteriorates at low frequencies, below about 30 MHz.
+*
+*  6  Before use, the value of ZOBS is expressed in the range +/- pi.
+*     If this ranged ZOBS is -ve, the result REF is computed from its
+*     absolute value before being made -ve to match.  In addition, if
+*     it has an absolute value greater than 93 deg, a fixed REF value
+*     equal to the result for ZOBS = 93 deg is returned, appropriately
+*     signed.
+*
+*  7  As in the original Hohenkerk and Sinclair algorithm, fixed values
+*     of the water vapour polytrope exponent, the height of the
+*     tropopause, and the height at which refraction is negligible are
+*     used.
+*
+*  8  The radio refraction has been tested against work done by
+*     Iain Coulson, JACH, (private communication 1995) for the
+*     James Clerk Maxwell Telescope, Mauna Kea.  For typical conditions,
+*     agreement at the 0.1 arcsec level is achieved for moderate ZD,
+*     worsening to perhaps 0.5-1.0 arcsec at ZD 80 deg.  At hot and
+*     humid sea-level sites the accuracy will not be as good.
+*
+*  9  It should be noted that the relative humidity RH is formally
+*     defined in terms of "mixing ratio" rather than pressures or
+*     densities as is often stated.  It is the mass of water per unit
+*     mass of dry air divided by that for saturated air at the same
+*     temperature and pressure (see Gill 1982).
+*
+*  Called:  sla_DRANGE, sla__ATMT, sla__ATMS
+*
+*  P.T.Wallace   Starlink   3 June 1997
+*
+*  Copyright (C) 1997 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION ZOBS,HM,TDK,PMB,RH,WL,PHI,TLR,EPS,REF
+
+*
+*  Fixed parameters
+*
+      DOUBLE PRECISION D93,GCR,DMD,DMW,S,DELTA,HT,HS
+*  93 degrees in radians
+      PARAMETER (D93=1.623156204D0)
+*  Universal gas constant
+      PARAMETER (GCR=8314.32D0)
+*  Molecular weight of dry air
+      PARAMETER (DMD=28.9644D0)
+*  Molecular weight of water vapour
+      PARAMETER (DMW=18.0152D0)
+*  Mean Earth radius (metre)
+      PARAMETER (S=6378120D0)
+*  Exponent of temperature dependence of water vapour pressure
+      PARAMETER (DELTA=18.36D0)
+*  Height of tropopause (metre)
+      PARAMETER (HT=11000D0)
+*  Upper limit for refractive effects (metre)
+      PARAMETER (HS=80000D0)
+
+      INTEGER IS,K,N,I,J
+      LOGICAL OPTIC,LOOP
+      DOUBLE PRECISION ZOBS1,ZOBS2,HMOK,TDKOK,PMBOK,RHOK,WLOK,ALPHA,
+     :                 TOL,WLSQ,GB,A,GAMAL,GAMMA,GAMM2,DELM2,
+     :                 TDC,PSAT,PWO,W,
+     :                 C1,C2,C3,C4,C5,C6,R0,TEMPO,DN0,RDNDR0,SK0,F0,
+     :                 RT,TT,DNT,RDNDRT,SINE,ZT,FT,DNTS,RDNDRP,ZTS,FTS,
+     :                 RS,DNS,RDNDRS,ZS,FS,REFOLD,Z0,ZRANGE,FB,FF,FO,FE,
+     :                 H,R,SZ,RG,DR,TG,DN,RDNDR,T,F,REFP,REFT
+
+      DOUBLE PRECISION sla_DRANGE
+
+*  The refraction integrand
+      DOUBLE PRECISION REFI
+      REFI(R,DN,RDNDR) = RDNDR/(DN+RDNDR)
+
+
+
+*  Transform ZOBS into the normal range.
+      ZOBS1 = sla_DRANGE(ZOBS)
+      ZOBS2 = MIN(ABS(ZOBS1),D93)
+
+*  Keep other arguments within safe bounds.
+      HMOK = MIN(MAX(HM,-1D3),10D3)
+      TDKOK = MIN(MAX(TDK,100D0),500D0)
+      PMBOK = MIN(MAX(PMB,0D0),10000D0)
+      RHOK = MIN(MAX(RH,0D0),1D0)
+      WLOK = MAX(WL,0.1D0)
+      ALPHA = MIN(MAX(ABS(TLR),0.001D0),0.01D0)
+
+*  Tolerance for iteration.
+      TOL = MIN(MAX(ABS(EPS),1D-12),0.1D0)/2D0
+
+*  Decide whether optical/IR or radio case - switch at 100 microns.
+      OPTIC = WLOK.LE.100D0
+
+*  Set up model atmosphere parameters defined at the observer.
+      WLSQ = WLOK*WLOK
+      GB = 9.784D0*(1D0-0.0026D0*COS(PHI+PHI)-0.00000028D0*HMOK)
+      IF (OPTIC) THEN
+         A = (287.604D0+(1.6288D0+0.0136D0/WLSQ)/WLSQ)
+     :                                              *273.15D-6/1013.25D0
+      ELSE
+         A = 77.624D-6
+      END IF
+      GAMAL = (GB*DMD)/GCR
+      GAMMA = GAMAL/ALPHA
+      GAMM2 = GAMMA-2D0
+      DELM2 = DELTA-2D0
+      TDC = TDKOK-273.15D0
+      PSAT = 10D0**((0.7859D0+0.03477D0*TDC)/(1D0+0.00412D0*TDC))*
+     :                                (1D0+PMBOK*(4.5D-6+6D-10*TDC*TDC))
+      IF (PMBOK.GT.0D0) THEN
+         PWO = RHOK*PSAT/(1D0-(1D0-RHOK)*PSAT/PMBOK)
+      ELSE
+         PWO = 0D0
+      END IF
+      W = PWO*(1D0-DMW/DMD)*GAMMA/(DELTA-GAMMA)
+      C1 = A*(PMBOK+W)/TDKOK
+      IF (OPTIC) THEN
+         C2 = (A*W+11.2684D-6*PWO)/TDKOK
+      ELSE
+         C2 = (A*W+12.92D-6*PWO)/TDKOK
+      END IF
+      C3 = (GAMMA-1D0)*ALPHA*C1/TDKOK
+      C4 = (DELTA-1D0)*ALPHA*C2/TDKOK
+      IF (OPTIC) THEN
+         C5 = 0D0
+         C6 = 0D0
+      ELSE
+         C5 = 371897D-6*PWO/TDKOK
+         C6 = C5*DELM2*ALPHA/(TDKOK*TDKOK)
+      END IF
+
+*  Conditions at the observer.
+      R0 = S+HMOK
+      CALL sla__ATMT(R0,TDKOK,ALPHA,GAMM2,DELM2,C1,C2,C3,C4,C5,C6,
+     :                                              R0,TEMPO,DN0,RDNDR0)
+      SK0 = DN0*R0*SIN(ZOBS2)
+      F0 = REFI(R0,DN0,RDNDR0)
+
+*  Conditions in the troposphere at the tropopause.
+      RT = S+HT
+      CALL sla__ATMT(R0,TDKOK,ALPHA,GAMM2,DELM2,C1,C2,C3,C4,C5,C6,
+     :                                                 RT,TT,DNT,RDNDRT)
+      SINE = SK0/(RT*DNT)
+      ZT = ATAN2(SINE,SQRT(MAX(1D0-SINE*SINE,0D0)))
+      FT = REFI(RT,DNT,RDNDRT)
+
+*  Conditions in the stratosphere at the tropopause.
+      CALL sla__ATMS(RT,TT,DNT,GAMAL,RT,DNTS,RDNDRP)
+      SINE = SK0/(RT*DNTS)
+      ZTS = ATAN2(SINE,SQRT(MAX(1D0-SINE*SINE,0D0)))
+      FTS = REFI(RT,DNTS,RDNDRP)
+
+*  Conditions at the stratosphere limit.
+      RS = S+HS
+      CALL sla__ATMS(RT,TT,DNT,GAMAL,RS,DNS,RDNDRS)
+      SINE = SK0/(RS*DNS)
+      ZS = ATAN2(SINE,SQRT(MAX(1D0-SINE*SINE,0D0)))
+      FS = REFI(RS,DNS,RDNDRS)
+
+*
+*  Integrate the refraction integral in two parts;  first in the
+*  troposphere (K=1), then in the stratosphere (K=2).
+*
+
+*  Initialize previous refraction to ensure at least two iterations.
+      REFOLD = 1D6
+
+*  Start off with 8 strips for the troposphere integration, and then
+*  use the final troposphere value for the stratosphere integration,
+*  which tends to need more strips.
+      IS = 8
+
+*  Troposphere then stratosphere.
+      DO K = 1,2
+
+*     Start Z, Z range, and start and end values.
+         IF (K.EQ.1) THEN
+            Z0 = ZOBS2
+            ZRANGE = ZT-Z0
+            FB = F0
+            FF = FT
+         ELSE
+            Z0 = ZTS
+            ZRANGE = ZS-Z0
+            FB = FTS
+            FF = FS
+         END IF
+
+*     Sums of odd and even values.
+         FO = 0D0
+         FE = 0D0
+
+*     First time through the loop we have to do every point.
+         N = 1
+
+*     Start of iteration loop (terminates at specified precision).
+         LOOP = .TRUE.
+         DO WHILE (LOOP)
+
+*        Strip width.
+            H = ZRANGE/DBLE(IS)
+
+*        Initialize distance from Earth centre for quadrature pass.
+            IF (K.EQ.1) THEN
+               R = R0
+            ELSE
+               R = RT
+            END IF
+
+*        One pass (no need to compute evens after first time).
+            DO I=1,IS-1,N
+
+*           Sine of observed zenith distance.
+               SZ = SIN(Z0+H*DBLE(I))
+
+*           Find R (to the nearest metre, maximum four iterations).
+               IF (SZ.GT.1D-20) THEN
+                  W = SK0/SZ
+                  RG = R
+                  DR = 1D6
+                  J = 0
+                  DO WHILE (ABS(DR).GT.1D0.AND.J.LT.4)
+                     J=J+1
+                     IF (K.EQ.1) THEN
+                        CALL sla__ATMT(R0,TDKOK,ALPHA,GAMM2,DELM2,
+     :                                 C1,C2,C3,C4,C5,C6,RG,TG,DN,RDNDR)
+                     ELSE
+                        CALL sla__ATMS(RT,TT,DNT,GAMAL,RG,DN,RDNDR)
+                     END IF
+                     DR = (RG*DN-W)/(DN+RDNDR)
+                     RG = RG-DR
+                  END DO
+                  R = RG
+               END IF
+
+*           Find the refractive index and integrand at R.
+               IF (K.EQ.1) THEN
+                  CALL sla__ATMT(R0,TDKOK,ALPHA,GAMM2,DELM2,
+     :                                   C1,C2,C3,C4,C5,C6,R,T,DN,RDNDR)
+               ELSE
+                  CALL sla__ATMS(RT,TT,DNT,GAMAL,R,DN,RDNDR)
+               END IF
+               F = REFI(R,DN,RDNDR)
+
+*           Accumulate odd and (first time only) even values.
+               IF (N.EQ.1.AND.MOD(I,2).EQ.0) THEN
+                  FE = FE+F
+               ELSE
+                  FO = FO+F
+               END IF
+            END DO
+
+*        Evaluate the integrand using Simpson's Rule.
+            REFP = H*(FB+4D0*FO+2D0*FE+FF)/3D0
+
+*        Has the required precision been achieved?
+            IF (ABS(REFP-REFOLD).GT.TOL) THEN
+
+*           No: prepare for next iteration.
+
+*           Save current value for convergence test.
+               REFOLD = REFP
+
+*           Double the number of strips.
+               IS = IS+IS
+
+*           Sum of all current values = sum of next pass's even values.
+               FE = FE+FO
+
+*           Prepare for new odd values.
+               FO = 0D0
+
+*           Skip even values next time.
+               N = 2
+            ELSE
+
+*           Yes: save troposphere component and terminate the loop.
+               IF (K.EQ.1) REFT = REFP
+               LOOP = .FALSE.
+            END IF
+         END DO
+      END DO
+
+*  Result.
+      REF = REFT+REFP
+      IF (ZOBS1.LT.0D0) REF = -REF
+
+      END
diff --git a/src/slalib/refv.f b/src/slalib/refv.f
new file mode 100644
index 0000000..e81b03c
--- /dev/null
+++ b/src/slalib/refv.f
@@ -0,0 +1,106 @@
+      SUBROUTINE sla_REFV (VU, REFA, REFB, VR)
+*+
+*     - - - - -
+*      R E F V
+*     - - - - -
+*
+*  Adjust an unrefracted Cartesian vector to include the effect of
+*  atmospheric refraction, using the simple A tan Z + B tan**3 Z
+*  model.
+*
+*  Given:
+*    VU    dp    unrefracted position of the source (Az/El 3-vector)
+*    REFA  dp    tan Z coefficient (radian)
+*    REFB  dp    tan**3 Z coefficient (radian)
+*
+*  Returned:
+*    VR    dp    refracted position of the source (Az/El 3-vector)
+*
+*  Notes:
+*
+*  1  This routine applies the adjustment for refraction in the
+*     opposite sense to the usual one - it takes an unrefracted
+*     (in vacuo) position and produces an observed (refracted)
+*     position, whereas the A tan Z + B tan**3 Z model strictly
+*     applies to the case where an observed position is to have the
+*     refraction removed.  The unrefracted to refracted case is
+*     harder, and requires an inverted form of the text-book
+*     refraction models;  the algorithm used here is equivalent to
+*     one iteration of the Newton-Raphson method applied to the above
+*     formula.
+*
+*  2  Though optimized for speed rather than precision, the present
+*     routine achieves consistency with the refracted-to-unrefracted
+*     A tan Z + B tan**3 Z model at better than 1 microarcsecond within
+*     30 degrees of the zenith and remains within 1 milliarcsecond to
+*     beyond ZD 70 degrees.  The inherent accuracy of the model is, of
+*     course, far worse than this - see the documentation for sla_REFCO
+*     for more information.
+*
+*  3  At low elevations (below about 3 degrees) the refraction
+*     correction is held back to prevent arithmetic problems and
+*     wildly wrong results.  Over a wide range of observer heights
+*     and corresponding temperatures and pressures, the following
+*     levels of accuracy (arcsec) are achieved, relative to numerical
+*     integration through a model atmosphere:
+*
+*              ZD    error
+*
+*              80      0.4
+*              81      0.8
+*              82      1.6
+*              83      3
+*              84      7
+*              85     17
+*              86     45
+*              87    150
+*              88    340
+*              89    620
+*              90   1100
+*              91   1900         } relevant only to
+*              92   3200         } high-elevation sites
+*
+*  4  See also the routine sla_REFZ, which performs the adjustment to
+*     the zenith distance rather than in Cartesian Az/El coordinates.
+*     The present routine is faster than sla_REFZ and, except very low down,
+*     is equally accurate for all practical purposes.  However, beyond
+*     about ZD 84 degrees sla_REFZ should be used, and for the utmost
+*     accuracy iterative use of sla_REFRO should be considered.
+*
+*  P.T.Wallace   Starlink   26 December 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION VU(3),REFA,REFB,VR(3)
+
+      DOUBLE PRECISION X,Y,Z1,Z,ZSQ,RSQ,R,WB,WT,D,CD,F
+
+
+
+*  Initial estimate = unrefracted vector
+      X = VU(1)
+      Y = VU(2)
+      Z1 = VU(3)
+
+*  Keep correction approximately constant below about 3 deg elevation
+      Z = MAX(Z1,0.05D0)
+
+*  One Newton-Raphson iteration
+      ZSQ = Z*Z
+      RSQ = X*X+Y*Y
+      R = SQRT(RSQ)
+      WB = REFB*RSQ/ZSQ
+      WT = (REFA+WB)/(1D0+(REFA+3D0*WB)*(ZSQ+RSQ)/ZSQ)
+      D = WT*R/Z
+      CD = 1D0-D*D/2D0
+      F = CD*(1D0-WT)
+
+*  Post-refraction x,y,z
+      VR(1) = X*F
+      VR(2) = Y*F
+      VR(3) = CD*(Z+D*R)+(Z1-Z)
+
+      END
diff --git a/src/slalib/refz.f b/src/slalib/refz.f
new file mode 100644
index 0000000..d558c87
--- /dev/null
+++ b/src/slalib/refz.f
@@ -0,0 +1,139 @@
+      SUBROUTINE sla_REFZ (ZU, REFA, REFB, ZR)
+*+
+*     - - - - -
+*      R E F Z
+*     - - - - -
+*
+*  Adjust an unrefracted zenith distance to include the effect of
+*  atmospheric refraction, using the simple A tan Z + B tan**3 Z
+*  model (plus special handling for large ZDs).
+*
+*  Given:
+*    ZU    dp    unrefracted zenith distance of the source (radian)
+*    REFA  dp    tan Z coefficient (radian)
+*    REFB  dp    tan**3 Z coefficient (radian)
+*
+*  Returned:
+*    ZR    dp    refracted zenith distance (radian)
+*
+*  Notes:
+*
+*  1  This routine applies the adjustment for refraction in the
+*     opposite sense to the usual one - it takes an unrefracted
+*     (in vacuo) position and produces an observed (refracted)
+*     position, whereas the A tan Z + B tan**3 Z model strictly
+*     applies to the case where an observed position is to have the
+*     refraction removed.  The unrefracted to refracted case is
+*     harder, and requires an inverted form of the text-book
+*     refraction models;  the formula used here is based on the
+*     Newton-Raphson method.  For the utmost numerical consistency
+*     with the refracted to unrefracted model, two iterations are
+*     carried out, achieving agreement at the 1D-11 arcseconds level
+*     for a ZD of 80 degrees.  The inherent accuracy of the model
+*     is, of course, far worse than this - see the documentation for
+*     sla_REFCO for more information.
+*
+*  2  At ZD 83 degrees, the rapidly-worsening A tan Z + B tan**3 Z
+*     model is abandoned and an empirical formula takes over.  Over a
+*     wide range of observer heights and corresponding temperatures and
+*     pressures, the following levels of accuracy (arcsec) are
+*     typically achieved, relative to numerical integration through a
+*     model atmosphere:
+*
+*              ZR    error
+*
+*              80      0.4
+*              81      0.8
+*              82      1.5
+*              83      3.2
+*              84      4.9
+*              85      5.8
+*              86      6.1
+*              87      7.1
+*              88     10
+*              89     20
+*              90     40
+*              91    100         } relevant only to
+*              92    200         } high-elevation sites
+*
+*     The high-ZD model is scaled to match the normal model at the
+*     transition point;  there is no glitch.
+*
+*  3  Beyond 93 deg zenith distance, the refraction is held at its
+*     93 deg value.
+*
+*  4  See also the routine sla_REFV, which performs the adjustment in
+*     Cartesian Az/El coordinates, and with the emphasis on speed
+*     rather than numerical accuracy.
+*
+*  P.T.Wallace   Starlink   19 September 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION ZU,REFA,REFB,ZR
+
+*  Radians to degrees
+      DOUBLE PRECISION R2D
+      PARAMETER (R2D=57.29577951308232D0)
+
+*  Largest usable ZD (deg)
+      DOUBLE PRECISION D93
+      PARAMETER (D93=93D0)
+
+*  Coefficients for high ZD model (used beyond ZD 83 deg)
+      DOUBLE PRECISION C1,C2,C3,C4,C5
+      PARAMETER (C1=+0.55445D0,
+     :           C2=-0.01133D0,
+     :           C3=+0.00202D0,
+     :           C4=+0.28385D0,
+     :           C5=+0.02390D0)
+
+*  ZD at which one model hands over to the other (radians)
+      DOUBLE PRECISION Z83
+      PARAMETER (Z83=83D0/R2D)
+
+*  High-ZD-model prediction (deg) for that point
+      DOUBLE PRECISION REF83
+      PARAMETER (REF83=(C1+C2*7D0+C3*49D0)/(1D0+C4*7D0+C5*49D0))
+
+      DOUBLE PRECISION ZU1,ZL,S,C,T,TSQ,TCU,REF,E,E2
+
+
+
+*  Perform calculations for ZU or 83 deg, whichever is smaller
+      ZU1 = MIN(ZU,Z83)
+
+*  Functions of ZD
+      ZL = ZU1
+      S = SIN(ZL)
+      C = COS(ZL)
+      T = S/C
+      TSQ = T*T
+      TCU = T*TSQ
+
+*  Refracted ZD (mathematically to better than 1 mas at 70 deg)
+      ZL = ZL-(REFA*T+REFB*TCU)/(1D0+(REFA+3D0*REFB*TSQ)/(C*C))
+
+*  Further iteration
+      S = SIN(ZL)
+      C = COS(ZL)
+      T = S/C
+      TSQ = T*T
+      TCU = T*TSQ
+      REF = ZU1-ZL+
+     :          (ZL-ZU1+REFA*T+REFB*TCU)/(1D0+(REFA+3D0*REFB*TSQ)/(C*C))
+
+*  Special handling for large ZU
+      IF (ZU.GT.ZU1) THEN
+         E = 90D0-MIN(D93,ZU*R2D)
+         E2 = E*E
+         REF = (REF/REF83)*(C1+C2*E+C3*E2)/(1D0+C4*E+C5*E2)
+      END IF
+
+*  Return refracted ZD
+      ZR = ZU-REF
+
+      END
diff --git a/src/slalib/rep.bat b/src/slalib/rep.bat
new file mode 100755
index 0000000..0d00777
--- /dev/null
+++ b/src/slalib/rep.bat
@@ -0,0 +1,21 @@
+@echo off
+rem
+rem  - - - - - - - -
+rem   R E P . B A T
+rem  - - - - - - - -
+rem
+rem  Update one module in the SLALIB library
+rem
+rem  Command:
+rem
+rem     REP module
+rem
+rem  File SLALIB.BAK is deleted.
+rem
+rem  P.T.Wallace   Starlink   5 April 1992
+rem
+fl/c /FPi %1.for
+lib slalib -+%1;
+del %1.obj
+del slalib.bak
+echo:
diff --git a/src/slalib/rtl_random.c b/src/slalib/rtl_random.c
new file mode 100644
index 0000000..a8730c0
--- /dev/null
+++ b/src/slalib/rtl_random.c
@@ -0,0 +1,33 @@
+#include 
+
+float
+random_ ( int *iseed )
+/*
+**  - - - - - - -
+**   r a n d o m
+**  - - - - - - -
+**
+**  Generate pseudo-random real number in the range 0 <= x < 1.
+**
+**  (single precision)
+**
+**  This function is designed to replace the Fortran->C interface routine
+**  random(3f) on systems which do not have this library (for example Linux)
+**
+**  Fortran call:   X = RANDOM(ISEED)
+**
+**  Given:
+**     iseed     int     seed value
+**
+**     If iseed !=0  random-number generator is initialised and first number
+**                   is returned.
+**        iseed == 0 next number in the sequence is returned
+**
+**  B.K.McIlwrath    Starlink   12 January 1996
+*/
+{
+   if( *iseed != 0 )
+      srand(*iseed);
+
+   return (float) rand() / (float) RAND_MAX;
+}
diff --git a/src/slalib/rverot.f b/src/slalib/rverot.f
new file mode 100644
index 0000000..5fbe6d9
--- /dev/null
+++ b/src/slalib/rverot.f
@@ -0,0 +1,48 @@
+      REAL FUNCTION sla_RVEROT (PHI, RA, DA, ST)
+*+
+*     - - - - - - -
+*      R V E R O T
+*     - - - - - - -
+*
+*  Velocity component in a given direction due to Earth rotation
+*  (single precision)
+*
+*  Given:
+*     PHI     real    latitude of observing station (geodetic)
+*     RA,DA   real    apparent RA,DEC
+*     ST      real    local apparent sidereal time
+*
+*  PHI, RA, DEC and ST are all in radians.
+*
+*  Result:
+*     Component of Earth rotation in direction RA,DA (km/s)
+*
+*  Sign convention:
+*     The result is +ve when the observatory is receding from the
+*     given point on the sky.
+*
+*  Accuracy:
+*     The simple algorithm used assumes a spherical Earth, of
+*     a radius chosen to give results accurate to about 0.0005 km/s
+*     for observing stations at typical latitudes and heights.  For
+*     applications requiring greater precision, use the routine
+*     sla_PVOBS.
+*
+*  P.T.Wallace   Starlink   20 July 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL PHI,RA,DA,ST
+
+*  Nominal mean sidereal speed of Earth equator in km/s (the actual
+*  value is about 0.4651)
+      REAL ESPEED
+      PARAMETER (ESPEED=0.4655)
+
+
+      sla_RVEROT=ESPEED*COS(PHI)*SIN(ST-RA)*COS(DA)
+
+      END
diff --git a/src/slalib/rvgalc.f b/src/slalib/rvgalc.f
new file mode 100644
index 0000000..868c307
--- /dev/null
+++ b/src/slalib/rvgalc.f
@@ -0,0 +1,69 @@
+      REAL FUNCTION sla_RVGALC (R2000, D2000)
+*+
+*     - - - - - - -
+*      R V G A L C
+*     - - - - - - -
+*
+*  Velocity component in a given direction due to the rotation
+*  of the Galaxy (single precision)
+*
+*  Given:
+*     R2000,D2000   real    J2000.0 mean RA,Dec (radians)
+*
+*  Result:
+*     Component of dynamical LSR motion in direction R2000,D2000 (km/s)
+*
+*  Sign convention:
+*     The result is +ve when the dynamical LSR is receding from the
+*     given point on the sky.
+*
+*  Note:  The Local Standard of Rest used here is a point in the
+*         vicinity of the Sun which is in a circular orbit around
+*         the Galactic centre.  Sometimes called the "dynamical" LSR,
+*         it is not to be confused with a "kinematical" LSR, which
+*         is the mean standard of rest of star catalogues or stellar
+*         populations.
+*
+*  Reference:  The orbital speed of 220 km/s used here comes from
+*              Kerr & Lynden-Bell (1986), MNRAS, 221, p1023.
+*
+*  Called:
+*     sla_CS2C, sla_VDV
+*
+*  P.T.Wallace   Starlink   23 March 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL R2000,D2000
+
+      REAL VA(3), VB(3)
+
+      REAL sla_VDV
+
+*
+*  LSR velocity due to Galactic rotation
+*
+*  Speed = 220 km/s
+*  Apex  = L2,B2  90deg, 0deg
+*        = RA,Dec  21 12 01.1  +48 19 47  J2000.0
+*
+*  This is expressed in the form of a J2000.0 x,y,z vector:
+*
+*      VA(1) = X = -SPEED*COS(RA)*COS(DEC)
+*      VA(2) = Y = -SPEED*SIN(RA)*COS(DEC)
+*      VA(3) = Z = -SPEED*SIN(DEC)
+
+      DATA VA / -108.70408, +97.86251, -164.33610 /
+
+
+
+*  Convert given J2000 RA,Dec to x,y,z
+      CALL sla_CS2C(R2000,D2000,VB)
+
+*  Compute dot product with LSR motion vector
+      sla_RVGALC=sla_VDV(VA,VB)
+
+      END
diff --git a/src/slalib/rvlg.f b/src/slalib/rvlg.f
new file mode 100644
index 0000000..ba0216e
--- /dev/null
+++ b/src/slalib/rvlg.f
@@ -0,0 +1,64 @@
+      REAL FUNCTION sla_RVLG (R2000, D2000)
+*+
+*     - - - - -
+*      R V L G
+*     - - - - -
+*
+*  Velocity component in a given direction due to the combination
+*  of the rotation of the Galaxy and the motion of the Galaxy
+*  relative to the mean motion of the local group (single precision)
+*
+*  Given:
+*     R2000,D2000   real    J2000.0 mean RA,Dec (radians)
+*
+*  Result:
+*     Component of SOLAR motion in direction R2000,D2000 (km/s)
+*
+*  Sign convention:
+*     The result is +ve when the Sun is receding from the
+*     given point on the sky.
+*
+*  Reference:
+*     IAU Trans 1976, 168, p201.
+*
+*  Called:
+*     sla_CS2C, sla_VDV
+*
+*  P.T.Wallace   Starlink   June 1985
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL R2000,D2000
+
+      REAL VA(3), VB(3)
+
+      REAL sla_VDV
+
+*
+*  Solar velocity due to Galactic rotation and translation
+*
+*  Speed = 300 km/s
+*
+*  Apex  = L2,B2  90deg, 0deg
+*        = RA,Dec  21 12 01.1  +48 19 47  J2000.0
+*
+*  This is expressed in the form of a J2000.0 x,y,z vector:
+*
+*      VA(1) = X = -SPEED*COS(RA)*COS(DEC)
+*      VA(2) = Y = -SPEED*SIN(RA)*COS(DEC)
+*      VA(3) = Z = -SPEED*SIN(DEC)
+
+      DATA VA / -148.23284, +133.44888, -224.09467 /
+
+
+
+*  Convert given J2000 RA,Dec to x,y,z
+      CALL sla_CS2C(R2000,D2000,VB)
+
+*  Compute dot product with Solar motion vector
+      sla_RVLG=sla_VDV(VA,VB)
+
+      END
diff --git a/src/slalib/rvlsrd.f b/src/slalib/rvlsrd.f
new file mode 100644
index 0000000..96f90c9
--- /dev/null
+++ b/src/slalib/rvlsrd.f
@@ -0,0 +1,78 @@
+      REAL FUNCTION sla_RVLSRD (R2000, D2000)
+*+
+*     - - - - - - -
+*      R V L S R D
+*     - - - - - - -
+*
+*  Velocity component in a given direction due to the Sun's motion
+*  with respect to the dynamical Local Standard of Rest.
+*
+*  (single precision)
+*
+*  Given:
+*     R2000,D2000   r    J2000.0 mean RA,Dec (radians)
+*
+*  Result:
+*     Component of "peculiar" solar motion in direction R2000,D2000 (km/s)
+*
+*  Sign convention:
+*     The result is +ve when the Sun is receding from the given point on
+*     the sky.
+*
+*  Note:  The Local Standard of Rest used here is the "dynamical" LSR,
+*         a point in the vicinity of the Sun which is in a circular
+*         orbit around the Galactic centre.  The Sun's motion with
+*         respect to the dynamical LSR is called the "peculiar" solar
+*         motion.
+*
+*         There is another type of LSR, called a "kinematical" LSR.  A
+*         kinematical LSR is the mean standard of rest of specified star
+*         catalogues or stellar populations, and several slightly
+*         different kinematical LSRs are in use.  The Sun's motion with
+*         respect to an agreed kinematical LSR is known as the "standard"
+*         solar motion.  To obtain a radial velocity correction with
+*         respect to an adopted kinematical LSR use the routine sla_RVLSRK.
+*
+*  Reference:  Delhaye (1965), in "Stars and Stellar Systems", vol 5,
+*              p73.
+*
+*  Called:
+*     sla_CS2C, sla_VDV
+*
+*  P.T.Wallace   Starlink   9 March 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL R2000,D2000
+
+      REAL VA(3), VB(3)
+
+      REAL sla_VDV
+
+*
+*  Peculiar solar motion from Delhaye 1965: in Galactic Cartesian
+*  coordinates (+9,+12,+7) km/s.  This corresponds to about 16.6 km/s
+*  towards Galactic coordinates L2 = 53 deg, B2 = +25 deg, or RA,Dec
+*  17 49 58.7 +28 07 04 J2000.
+*
+*  The solar motion is expressed here in the form of a J2000.0
+*  equatorial Cartesian vector:
+*
+*      VA(1) = X = -SPEED*COS(RA)*COS(DEC)
+*      VA(2) = Y = -SPEED*SIN(RA)*COS(DEC)
+*      VA(3) = Z = -SPEED*SIN(DEC)
+
+      DATA VA / +0.63823, +14.58542, -7.80116 /
+
+
+
+*  Convert given J2000 RA,Dec to x,y,z
+      CALL sla_CS2C(R2000,D2000,VB)
+
+*  Compute dot product with solar motion vector
+      sla_RVLSRD=sla_VDV(VA,VB)
+
+      END
diff --git a/src/slalib/rvlsrk.f b/src/slalib/rvlsrk.f
new file mode 100644
index 0000000..b484fe8
--- /dev/null
+++ b/src/slalib/rvlsrk.f
@@ -0,0 +1,77 @@
+      REAL FUNCTION sla_RVLSRK (R2000, D2000)
+*+
+*     - - - - - - -
+*      R V L S R K
+*     - - - - - - -
+*
+*  Velocity component in a given direction due to the Sun's motion
+*  with respect to an adopted kinematic Local Standard of Rest.
+*
+*  (single precision)
+*
+*  Given:
+*     R2000,D2000   r    J2000.0 mean RA,Dec (radians)
+*
+*  Result:
+*     Component of "standard" solar motion in direction R2000,D2000 (km/s)
+*
+*  Sign convention:
+*     The result is +ve when the Sun is receding from the given point on
+*     the sky.
+*
+*  Note:  The Local Standard of Rest used here is one of several
+*         "kinematical" LSRs in common use.  A kinematical LSR is the
+*         mean standard of rest of specified star catalogues or stellar
+*         populations.  The Sun's motion with respect to a kinematical
+*         LSR is known as the "standard" solar motion.
+*
+*         There is another sort of LSR, the "dynamical" LSR, which is a
+*         point in the vicinity of the Sun which is in a circular orbit
+*         around the Galactic centre.  The Sun's motion with respect to
+*         the dynamical LSR is called the "peculiar" solar motion.  To
+*         obtain a radial velocity correction with respect to the
+*         dynamical LSR use the routine sla_RVLSRD.
+*
+*  Reference:  Delhaye (1965), in "Stars and Stellar Systems", vol 5,
+*              p73.
+*
+*  Called:
+*     sla_CS2C, sla_VDV
+*
+*  P.T.Wallace   Starlink   11 March 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL R2000,D2000
+
+      REAL VA(3), VB(3)
+
+      REAL sla_VDV
+
+*
+*  Standard solar motion (from Methods of Experimental Physics, ed Meeks,
+*  vol 12, part C, sec 6.1.5.2, p281):
+*
+*  20 km/s towards RA 18h Dec +30d (1900).
+*
+*  The solar motion is expressed here in the form of a J2000.0
+*  equatorial Cartesian vector:
+*
+*      VA(1) = X = -SPEED*COS(RA)*COS(DEC)
+*      VA(2) = Y = -SPEED*SIN(RA)*COS(DEC)
+*      VA(3) = Z = -SPEED*SIN(DEC)
+
+      DATA VA / -0.29000, +17.31726, -10.00141 /
+
+
+
+*  Convert given J2000 RA,Dec to x,y,z
+      CALL sla_CS2C(R2000,D2000,VB)
+
+*  Compute dot product with solar motion vector
+      sla_RVLSRK=sla_VDV(VA,VB)
+
+      END
diff --git a/src/slalib/s2tp.f b/src/slalib/s2tp.f
new file mode 100644
index 0000000..1ec36f2
--- /dev/null
+++ b/src/slalib/s2tp.f
@@ -0,0 +1,67 @@
+      SUBROUTINE sla_S2TP (RA, DEC, RAZ, DECZ, XI, ETA, J)
+*+
+*     - - - - -
+*      S 2 T P
+*     - - - - -
+*
+*  Projection of spherical coordinates onto tangent plane:
+*  "gnomonic" projection - "standard coordinates"
+*  (single precision)
+*
+*  Given:
+*     RA,DEC      real  spherical coordinates of point to be projected
+*     RAZ,DECZ    real  spherical coordinates of tangent point
+*
+*  Returned:
+*     XI,ETA      real  rectangular coordinates on tangent plane
+*     J           int   status:   0 = OK, star on tangent plane
+*                                 1 = error, star too far from axis
+*                                 2 = error, antistar on tangent plane
+*                                 3 = error, antistar too far from axis
+*
+*  P.T.Wallace   Starlink   18 July 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL RA,DEC,RAZ,DECZ,XI,ETA
+      INTEGER J
+
+      REAL SDECZ,SDEC,CDECZ,CDEC,RADIF,SRADIF,CRADIF,DENOM
+
+      REAL TINY
+      PARAMETER (TINY=1E-6)
+
+
+*  Trig functions
+      SDECZ=SIN(DECZ)
+      SDEC=SIN(DEC)
+      CDECZ=COS(DECZ)
+      CDEC=COS(DEC)
+      RADIF=RA-RAZ
+      SRADIF=SIN(RADIF)
+      CRADIF=COS(RADIF)
+
+*  Reciprocal of star vector length to tangent plane
+      DENOM=SDEC*SDECZ+CDEC*CDECZ*CRADIF
+
+*  Handle vectors too far from axis
+      IF (DENOM.GT.TINY) THEN
+         J=0
+      ELSE IF (DENOM.GE.0.0) THEN
+         J=1
+         DENOM=TINY
+      ELSE IF (DENOM.GT.-TINY) THEN
+         J=2
+         DENOM=-TINY
+      ELSE
+         J=3
+      END IF
+
+*  Compute tangent plane coordinates (even in dubious cases)
+      XI=CDEC*SRADIF/DENOM
+      ETA=(SDEC*CDECZ-CDEC*SDECZ*CRADIF)/DENOM
+
+      END
diff --git a/src/slalib/sep.f b/src/slalib/sep.f
new file mode 100644
index 0000000..c977985
--- /dev/null
+++ b/src/slalib/sep.f
@@ -0,0 +1,48 @@
+      REAL FUNCTION sla_SEP (A1, B1, A2, B2)
+*+
+*     - - - -
+*      S E P
+*     - - - -
+*
+*  Angle between two points on a sphere (single precision)
+*
+*  Given:
+*     A1,B1    real    spherical coordinates of one point
+*     A2,B2    real    spherical coordinates of the other point
+*
+*  (The spherical coordinates are RA,Dec, Long,Lat etc, in radians.)
+*
+*  The result is the angle, in radians, between the two points.  It
+*  is always positive.
+*
+*  Called:  sla_CS2C
+*
+*  P.T.Wallace   Starlink   April 1985
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL A1,B1,A2,B2
+
+      INTEGER I
+      REAL V1(3),V2(3),W
+
+
+
+*  Convert coordinates from spherical to Cartesian
+      CALL sla_CS2C(A1,B1,V1)
+      CALL sla_CS2C(A2,B2,V2)
+
+*  Modulus squared of half the difference vector
+      W=0.0
+      DO I=1,3
+         W=W+(V1(I)-V2(I))**2
+      END DO
+      W=W/4.0
+
+*  Angle between the vectors
+      sla_SEP=2.0*ATAN2(SQRT(W),SQRT(MAX(0.0,1.0-W)))
+
+      END
diff --git a/src/slalib/sla.news b/src/slalib/sla.news
new file mode 100644
index 0000000..51b2888
--- /dev/null
+++ b/src/slalib/sla.news
@@ -0,0 +1,40 @@
+SLALIB_Version_2.4-0                                  Expiry 31 December 1999
+
+The latest releases of SLALIB include the following changes:
+
+*  Four new routines have been introduced which transform between the
+   FK5 system and the ICRS (Hipparcos) system.  sla_FK52H and sla_H2FK5
+   transform star positions and proper motions from FK5 coordinates to
+   Hipparcos coordinates and vice versa.  sla_FK5HZ and sla_HFK5Z do the
+   same but for the case where the Hipparcos proper motions are zero.
+
+*  Six new routines have been introduced for dealing with orbital elements.
+   Four of them (sla_EL2UE, sla_PV2UE, sla_UE2EL and sla_UE2PV) provide
+   applications with direct access to the "universal variables" method
+   that was already being used internally.  Compared with using conventional
+   (angular) elements and solving Kepler's equation, the universal variables
+   approach has a number of advantages, including better handling of near-
+   parabolic orbits and greater efficiency.  The remaining two routines
+   (sla_PERTEL and sla_PERTUE) generate updated elements by applying
+   major-planet perturbations.  The new elements can then be used to
+   predict positions that are much more accurate.  For minor planets,
+   sub-arcsecond accuracy over a decade is achievable.
+
+*  Several observatory sites have been added to the sla_OBS routine:  CFHT,
+   Keck 2, Gemini North, FCRAO, IRTF and CSO.  The coordinates for all
+   the Mauna Kea sites have been updated in accordance with recent aerial
+   photography results made available by the Institute for Astronomy,
+   University of Hawaii.
+
+*  A bug in sla_DAT has been corrected.  It used to give incorrect
+   results for dates in the first 54 days of 1972.
+
+*  There are new routines for generating permutations (sla_PERMUT) and
+   combinations (sla_COMBN).
+ 
+ P.T.Wallace
+ 17 August 1999
+
+ ptw@star.rl.ac.uk
+ +44-1235-44-5372
+--------------------------------------------------------------------------
diff --git a/src/slalib/sla_link b/src/slalib/sla_link
new file mode 100755
index 0000000..40aa195
--- /dev/null
+++ b/src/slalib/sla_link
@@ -0,0 +1 @@
+echo -lsla
diff --git a/src/slalib/sla_link_adam b/src/slalib/sla_link_adam
new file mode 100755
index 0000000..40aa195
--- /dev/null
+++ b/src/slalib/sla_link_adam
@@ -0,0 +1 @@
+echo -lsla
diff --git a/src/slalib/sla_test.f b/src/slalib/sla_test.f
new file mode 100644
index 0000000..c094c26
--- /dev/null
+++ b/src/slalib/sla_test.f
@@ -0,0 +1,28 @@
+      PROGRAM SLA_TEST
+*+
+*     - - - - -
+*      T E S T
+*     - - - - -
+*
+*  Simple test of SLALIB library - checks that a program can be
+*  linked and a correct result returned from at least one subprogram.
+*
+*  P.T.Wallace   Starlink   24 August 1992
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION D
+      INTEGER J
+
+
+      CALL sla_CALDJ(1946,4,30,D,J)
+      IF (J.EQ.0.AND.NINT(D).EQ.31940) THEN
+         PRINT *,'SLALIB test completed satisfactorily.'
+      ELSE
+         PRINT *,'SLALIB test fails!'
+      END IF
+
+      END
diff --git a/src/slalib/smat.f b/src/slalib/smat.f
new file mode 100644
index 0000000..93dbee7
--- /dev/null
+++ b/src/slalib/smat.f
@@ -0,0 +1,141 @@
+      SUBROUTINE sla_SMAT (N, A, Y, D, JF, IW)
+*+
+*     - - - - -
+*      S M A T
+*     - - - - -
+*
+*  Matrix inversion & solution of simultaneous equations
+*  (single precision)
+*
+*  For the set of n simultaneous equations in n unknowns:
+*     A.Y = X
+*
+*  where:
+*     A is a non-singular N x N matrix
+*     Y is the vector of N unknowns
+*     X is the known vector
+*
+*  SMATRX computes:
+*     the inverse of matrix A
+*     the determinant of matrix A
+*     the vector of N unknowns
+*
+*  Arguments:
+*
+*     symbol  type dimension           before              after
+*
+*       N      int                 no. of unknowns       unchanged
+*       A      real  (N,N)             matrix             inverse
+*       Y      real   (N)              vector            solution
+*       D      real                       -             determinant
+*     * JF     int                        -           singularity flag
+*       IW     int    (N)                 -              workspace
+*
+*  *  JF is the singularity flag.  If the matrix is non-singular,
+*    JF=0 is returned.  If the matrix is singular, JF=-1 & D=0.0 are
+*    returned.  In the latter case, the contents of array A on return
+*    are undefined.
+*
+*  Algorithm:
+*     Gaussian elimination with partial pivoting.
+*
+*  Speed:
+*     Very fast.
+*
+*  Accuracy:
+*     Fairly accurate - errors 1 to 4 times those of routines optimised
+*     for accuracy.
+*
+*  Note:  replaces the obsolete sla_SMATRX routine.
+*
+*  P.T.Wallace   Starlink   10 September 1990
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER N
+      REAL A(N,N),Y(N),D
+      INTEGER JF
+      INTEGER IW(N)
+
+      REAL SFA
+      PARAMETER (SFA=1E-20)
+
+      INTEGER K,IMX,I,J,NP1MK,KI
+      REAL AMX,T,AKK,YK,AIK
+
+
+      JF=0
+      D=1.0
+      DO K=1,N
+         AMX=ABS(A(K,K))
+         IMX=K
+         IF (K.NE.N) THEN
+            DO I=K+1,N
+               T=ABS(A(I,K))
+               IF (T.GT.AMX) THEN
+                  AMX=T
+                  IMX=I
+               END IF
+            END DO
+         END IF
+         IF (AMX.LT.SFA) THEN
+            JF=-1
+         ELSE
+            IF (IMX.NE.K) THEN
+               DO J=1,N
+                  T=A(K,J)
+                  A(K,J)=A(IMX,J)
+                  A(IMX,J)=T
+               END DO
+               T=Y(K)
+               Y(K)=Y(IMX)
+               Y(IMX)=T
+               D=-D
+            END IF
+            IW(K)=IMX
+            AKK=A(K,K)
+            D=D*AKK
+            IF (ABS(D).LT.SFA) THEN
+               JF=-1
+            ELSE
+               AKK=1.0/AKK
+               A(K,K)=AKK
+               DO J=1,N
+                  IF (J.NE.K) A(K,J)=A(K,J)*AKK
+               END DO
+               YK=Y(K)*AKK
+               Y(K)=YK
+               DO I=1,N
+                  AIK=A(I,K)
+                  IF (I.NE.K) THEN
+                     DO J=1,N
+                        IF (J.NE.K) A(I,J)=A(I,J)-AIK*A(K,J)
+                     END DO
+                     Y(I)=Y(I)-AIK*YK
+                  END IF
+               END DO
+               DO I=1,N
+                  IF (I.NE.K) A(I,K)=-A(I,K)*AKK
+               END DO
+            END IF
+         END IF
+      END DO
+      IF (JF.NE.0) THEN
+         D=0.0
+      ELSE
+         DO K=1,N
+            NP1MK=N+1-K
+            KI=IW(NP1MK)
+            IF (NP1MK.NE.KI) THEN
+               DO I=1,N
+                  T=A(I,NP1MK)
+                  A(I,NP1MK)=A(I,KI)
+                  A(I,KI)=T
+               END DO
+            END IF
+         END DO
+      END IF
+      END
diff --git a/src/slalib/subet.f b/src/slalib/subet.f
new file mode 100644
index 0000000..e36575b
--- /dev/null
+++ b/src/slalib/subet.f
@@ -0,0 +1,66 @@
+      SUBROUTINE sla_SUBET (RC, DC, EQ, RM, DM)
+*+
+*     - - - - - -
+*      S U B E T
+*     - - - - - -
+*
+*  Remove the E-terms (elliptic component of annual aberration)
+*  from a pre IAU 1976 catalogue RA,Dec to give a mean place
+*  (double precision)
+*
+*  Given:
+*     RC,DC     dp     RA,Dec (radians) with E-terms included
+*     EQ        dp     Besselian epoch of mean equator and equinox
+*
+*  Returned:
+*     RM,DM     dp     RA,Dec (radians) without E-terms
+*
+*  Called:
+*     sla_ETRMS, sla_DCS2C, sla_,DVDV, sla_DCC2S, sla_DRANRM
+*
+*  Explanation:
+*     Most star positions from pre-1984 optical catalogues (or
+*     derived from astrometry using such stars) embody the
+*     E-terms.  This routine converts such a position to a
+*     formal mean place (allowing, for example, comparison with a
+*     pulsar timing position).
+*
+*  Reference:
+*     Explanatory Supplement to the Astronomical Ephemeris,
+*     section 2D, page 48.
+*
+*  P.T.Wallace   Starlink   10 May 1990
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION RC,DC,EQ,RM,DM
+
+      DOUBLE PRECISION sla_DRANRM,sla_DVDV
+      DOUBLE PRECISION A(3),V(3),F
+
+      INTEGER I
+
+
+
+*  E-terms
+      CALL sla_ETRMS(EQ,A)
+
+*  Spherical to Cartesian
+      CALL sla_DCS2C(RC,DC,V)
+
+*  Include the E-terms
+      F=1D0+sla_DVDV(V,A)
+      DO I=1,3
+         V(I)=F*V(I)-A(I)
+      END DO
+
+*  Cartesian to spherical
+      CALL sla_DCC2S(V,RM,DM)
+
+*  Bring RA into conventional range
+      RM=sla_DRANRM(RM)
+
+      END
diff --git a/src/slalib/sun67.htx/blueball.gif b/src/slalib/sun67.htx/blueball.gif
new file mode 100644
index 0000000..c481395
Binary files /dev/null and b/src/slalib/sun67.htx/blueball.gif differ
diff --git a/src/slalib/sun67.htx/change_begin.gif b/src/slalib/sun67.htx/change_begin.gif
new file mode 100644
index 0000000..dbe8d7e
Binary files /dev/null and b/src/slalib/sun67.htx/change_begin.gif differ
diff --git a/src/slalib/sun67.htx/change_begin_right.gif b/src/slalib/sun67.htx/change_begin_right.gif
new file mode 100644
index 0000000..331ddf2
Binary files /dev/null and b/src/slalib/sun67.htx/change_begin_right.gif differ
diff --git a/src/slalib/sun67.htx/change_delete.gif b/src/slalib/sun67.htx/change_delete.gif
new file mode 100644
index 0000000..63398f5
Binary files /dev/null and b/src/slalib/sun67.htx/change_delete.gif differ
diff --git a/src/slalib/sun67.htx/change_delete_right.gif b/src/slalib/sun67.htx/change_delete_right.gif
new file mode 100644
index 0000000..63398f5
Binary files /dev/null and b/src/slalib/sun67.htx/change_delete_right.gif differ
diff --git a/src/slalib/sun67.htx/change_end.gif b/src/slalib/sun67.htx/change_end.gif
new file mode 100644
index 0000000..8f1e455
Binary files /dev/null and b/src/slalib/sun67.htx/change_end.gif differ
diff --git a/src/slalib/sun67.htx/change_end_right.gif b/src/slalib/sun67.htx/change_end_right.gif
new file mode 100644
index 0000000..409246c
Binary files /dev/null and b/src/slalib/sun67.htx/change_end_right.gif differ
diff --git a/src/slalib/sun67.htx/contents.xbm b/src/slalib/sun67.htx/contents.xbm
new file mode 100644
index 0000000..a3aed9f
--- /dev/null
+++ b/src/slalib/sun67.htx/contents.xbm
@@ -0,0 +1,12 @@
+#define contents_width 63
+#define contents_height 16
+static char contents_bits[] = {
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0xc0,0x01,0x00,0x08,0x00,0x00,0x01,0x00,0x20,0x02,0x00,0x08,0x00,
+ 0x00,0x01,0x00,0x20,0xe2,0x74,0x7c,0x9c,0x8e,0x8f,0x03,0x20,0x10,0x99,0x08,
+ 0x22,0x13,0x41,0x04,0x20,0x10,0x89,0x08,0x3e,0x11,0x81,0x03,0x20,0x12,0x89,
+ 0x08,0x02,0x11,0x01,0x04,0x20,0x12,0x89,0x88,0x22,0x11,0x51,0x04,0xc0,0xe1,
+ 0x9c,0x71,0x9c,0x33,0x8e,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00};
diff --git a/src/slalib/sun67.htx/contents_motif.gif b/src/slalib/sun67.htx/contents_motif.gif
new file mode 100644
index 0000000..7b3c904
Binary files /dev/null and b/src/slalib/sun67.htx/contents_motif.gif differ
diff --git a/src/slalib/sun67.htx/cross_ref_motif.gif b/src/slalib/sun67.htx/cross_ref_motif.gif
new file mode 100644
index 0000000..4c074e1
Binary files /dev/null and b/src/slalib/sun67.htx/cross_ref_motif.gif differ
diff --git a/src/slalib/sun67.htx/foot_motif.gif b/src/slalib/sun67.htx/foot_motif.gif
new file mode 100644
index 0000000..f29222a
Binary files /dev/null and b/src/slalib/sun67.htx/foot_motif.gif differ
diff --git a/src/slalib/sun67.htx/footnode.html b/src/slalib/sun67.htx/footnode.html
new file mode 100644
index 0000000..b6bcb72
--- /dev/null
+++ b/src/slalib/sun67.htx/footnode.html
@@ -0,0 +1,224 @@
+
+
+
+
+Footnotes
+
+
+
+
+
+
+
+
+
+
+
    
+
    ...SLALIB
+
    The name isn't an acronym;
+it just stands for ``Subprogram Library A''.
+
    .
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+
    
+
    ...papers;
+
    One frame not included in
+Figure 1 is that of the Hipparcos catalogue.  This is currently the
+best available implementation in the optical of the International
+Celestial Reference System (ICRS), which is based on extragalactic
+radio sources observed by VLBI.  The distinction between FK5 J2000
+and Hipparcos coordinates only becomes important when accuracies of
+50 mas or better are required.  More details are given in
+Section 4.14.
+
    .
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+
    
+
    ...equinox.
+
    With
+the introduction of the International Celestial Reference System (ICRS), the
+connection between (i) star coordinates and (ii) the Earth's orientation
+and orbit has been broken.  However, the orientation of the
+International Celestial Reference Frame (ICRF) axes was, for convenience,
+chosen to match J2000 FK5, and for most practical purposes ICRF coordinates
+(for example entries in the Hipparcos catalogue) can be regarded as
+synonymous with J2000 FK5.  See Section 4.14 for further details.
+
    .
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+
    
+
    ...used.
+
    An equinox is, however, not required for coordinates
+in the International Celestial Reference System.  Such coordinates must
+be labelled simply ``ICRS'', or the specific catalogue can be mentioned,
+such as ``Hipparcos'';  constructions such as ``Hipparcos, J2000'' are
+redundant and misleading.
+
    .
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+
    
+
    ...catalogues.
+
    This was
+true until the inception of the International Celestial Reference
+System, which is based on the idea of axes locked into the
+distant background.  The coordinates
+of the extragalactic sources which realize these
+axes have no individual significance; there is a ``no net rotation''
+condition which has to be satisfied each time any revisions take
+place.
+
    .
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+
    
+
    
+SLALIB -- Positional Astronomy Library
+
    
+Starlink User Note 67
+
    
+P. T. Wallace
+
    
+12 October 1999
+
    
+E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/greenball.gif b/src/slalib/sun67.htx/greenball.gif
new file mode 100644
index 0000000..2ffbb22
Binary files /dev/null and b/src/slalib/sun67.htx/greenball.gif differ
diff --git a/src/slalib/sun67.htx/icons.html b/src/slalib/sun67.htx/icons.html
new file mode 100644
index 0000000..d6b38c3
--- /dev/null
+++ b/src/slalib/sun67.htx/icons.html
@@ -0,0 +1,42 @@
+
+
    
+
+ 
    
+
+ 
    
+
+ 
    
+
+ 
    
+
+ 
    
+
+ 
    
+
+ 
    
+
+ 
    
+
+ 
    
+
+ 
    
+
+ 
    
+
+ 
    
+
+ 
    
+
+
+ 
    
+
+
+
+
+
+
+
    
+
+changeend
    
+
+
    changeend
diff --git a/src/slalib/sun67.htx/image.gif b/src/slalib/sun67.htx/image.gif
new file mode 100644
index 0000000..7e6cb1a
Binary files /dev/null and b/src/slalib/sun67.htx/image.gif differ
diff --git a/src/slalib/sun67.htx/images.aux b/src/slalib/sun67.htx/images.aux
new file mode 100644
index 0000000..f23e546
--- /dev/null
+++ b/src/slalib/sun67.htx/images.aux
@@ -0,0 +1 @@
+\relax 
diff --git a/src/slalib/sun67.htx/images.log b/src/slalib/sun67.htx/images.log
new file mode 100644
index 0000000..6a48021
--- /dev/null
+++ b/src/slalib/sun67.htx/images.log
@@ -0,0 +1,1727 @@
+This is TeX, Version 3.14159 (C version 6.1) (format=latex 97.3.17)  12 OCT 1999 16:11
+**./images.tex
+(images.tex
+LaTeX2e <1996/12/01> patch level 1
+Babel  and hyphenation patterns for american, german, loaded.
+
+(/usr/local/teTeX/texmf/tex/latex/base/article.cls
+Document Class: article 1996/10/31 v1.3u Standard LaTeX document class
+(/usr/local/teTeX/texmf/tex/latex/base/size11.clo
+File: size11.clo 1996/10/31 v1.3u Standard LaTeX file (size option)
+)
+\c@part=\count79
+\c@section=\count80
+\c@subsection=\count81
+\c@subsubsection=\count82
+\c@paragraph=\count83
+\c@subparagraph=\count84
+\c@figure=\count85
+\c@table=\count86
+\abovecaptionskip=\skip41
+\belowcaptionskip=\skip42
+\bibindent=\dimen102
+) (/home/user1/dec/ptw/hypertext/sun67_htx/html.sty) (/home/user1/dec/ptw/hyper
+text/sun67_htx/star2html.sty)
+! Undefined control sequence.
+l.42 \latex
+           {\renewcommand {\_}{{\tt\symbol{95}}}}
+The control sequence at the end of the top line
+of your error message was never \def'ed. If you have
+misspelled it (e.g., `\hobx'), type `I' and the correct
+spelling (e.g., `I\hbox'). Otherwise just continue,
+and I'll forget about whatever was undefined.
+
+\oldspacing=\skip43
+(/home/user1/dec/ptw/hypertext/sun67_htx/star2html.sty)
+\sizebox=\box26
+\lthtmlwrite=\write3
+(images.aux)
+LaTeX Font Info:    Checking defaults for OML/cmm/m/it on input line 350.
+LaTeX Font Info:    ... okay on input line 350.
+LaTeX Font Info:    Checking defaults for T1/cmr/m/n on input line 350.
+LaTeX Font Info:    ... okay on input line 350.
+LaTeX Font Info:    Checking defaults for OT1/cmr/m/n on input line 350.
+LaTeX Font Info:    ... okay on input line 350.
+LaTeX Font Info:    Checking defaults for OMS/cmsy/m/n on input line 350.
+LaTeX Font Info:    ... okay on input line 350.
+LaTeX Font Info:    Checking defaults for OMX/cmex/m/n on input line 350.
+LaTeX Font Info:    ... okay on input line 350.
+LaTeX Font Info:    Checking defaults for U/cmr/m/n on input line 350.
+LaTeX Font Info:    ... okay on input line 350.
+latex2htmlLength hsize=451.0pt
+latex2htmlLength vsize=715.72284pt
+latex2htmlLength hoffset=0.0pt
+latex2htmlLength voffset=0.0pt
+latex2htmlLength topmargin=0.0pt
+latex2htmlLength topskip=0.00002pt
+latex2htmlLength headheight=0.0pt
+latex2htmlLength headsep=0.0pt
+latex2htmlLength parskip=6.0pt plus 2.0pt minus 2.0pt
+latex2htmlLength oddsidemargin=0.0pt
+latex2htmlLength evensidemargin=0.0pt
+LaTeX Font Info:    External font `cmex10' loaded for size
+(Font)              <10.95> on input line 374.
+LaTeX Font Info:    External font `cmex10' loaded for size
+(Font)              <8> on input line 374.
+LaTeX Font Info:    External font `cmex10' loaded for size
+(Font)              <6> on input line 374.
+l2hSize :tex2html_wrap_inline417:7.62646pt::0.0pt::10.22507pt.
+[1
+
+
+]
+l2hSize :tex2html_wrap_inline419:7.62646pt::7.62646pt::18.74176pt.
+[2
+
+
+]
+l2hSize :tex2html_wrap_inline528:8.2125pt::8.2125pt::26.92624pt.
+[3
+
+
+]
+l2hSize :tex2html_wrap_inline786:10.13034pt::0.0pt::58.35004pt.
+[4
+
+
+]
+l2hSize :tex2html_wrap_inline788:7.07185pt::0.0pt::5.475pt.
+[5
+
+
+]
+l2hSize :tex2html_wrap_inline802:8.2125pt::8.2125pt::150.20139pt.
+[6
+
+
+]
+l2hSize :tex2html_wrap_inline806:8.2125pt::8.2125pt::155.67639pt.
+[7
+
+
+]
+l2hSize :tex2html_wrap_inline893:7.62646pt::7.62646pt::35.89854pt.
+[8
+
+
+]
+l2hSize :tex2html_wrap_inline1090:8.2125pt::8.2125pt::42.52638pt.
+[9
+
+
+]
+l2hSize :tex2html_wrap_inline1092:7.07185pt::0.0pt::10.95003pt.
+[10
+
+
+]
+l2hSize :tex2html_wrap_inline1094:8.2125pt::8.2125pt::117.90274pt.
+[11
+
+
+]
+l2hSize :tex2html_wrap_inline1098:9.12923pt::9.12923pt::122.6528pt.
+[12
+
+
+]
+l2hSize :tex2html_wrap_inline1102:8.2125pt::8.2125pt::32.18459pt.
+[13
+
+
+]
+l2hSize :tex2html_wrap_inline1104:8.2125pt::8.2125pt::26.10136pt.
+[14
+
+
+]
+l2hSize :tex2html_wrap_inline1106:8.2125pt::8.2125pt::26.10136pt.
+[15
+
+
+]
+l2hSize :tex2html_wrap_inline1373:8.2125pt::8.2125pt::19.4667pt.
+[16
+
+
+]
+l2hSize :tex2html_wrap_inline1375:13.58197pt::13.58197pt::46.33769pt.
+[17
+
+
+]
+l2hSize :tex2html_wrap_inline1377:7.07185pt::7.07185pt::24.33328pt.
+[18
+
+
+]
+l2hSize :tex2html_wrap_inline1701:7.48248pt::0.0pt::9.12502pt.
+[19
+
+
+]
+l2hSize :tex2html_wrap_inline1705:8.2125pt::8.2125pt::26.61958pt.
+[20
+
+
+]
+l2hSize :tex2html_wrap_inline1707:7.07185pt::7.07185pt::15.72293pt.
+[21
+
+
+]
+l2hSize :tex2html_wrap_inline1709:7.62646pt::0.0pt::15.70007pt.
+[22
+
+
+]
+l2hSize :tex2html_wrap_inline1711:7.60416pt::0.0pt::5.28107pt.
+[23
+
+
+]
+l2hSize :tex2html_wrap_inline1713:7.07185pt::0.0pt::7.04526pt.
+[24
+
+
+]
+l2hSize :tex2html_wrap_inline1715:10.13034pt::0.0pt::13.85803pt.
+[25
+
+
+]
+l2hSize :tex2html_wrap_inline1717:7.62646pt::7.62646pt::35.89854pt.
+[26
+
+
+]
+l2hSize :tex2html_wrap_inline1721:7.62646pt::0.0pt::10.22507pt.
+[27
+
+
+]
+l2hSize :tex2html_wrap_inline1725:8.2125pt::8.2125pt::42.40842pt.
+[28
+
+
+]
+l2hSize :tex2html_wrap_inline1729:8.2125pt::8.2125pt::26.18991pt.
+[29
+
+
+]
+l2hSize :tex2html_wrap_inline1745:7.07185pt::7.07185pt::8.5167pt.
+[30
+
+
+]
+l2hSize :tex2html_wrap_inline1747:7.4181pt::0.0pt::14.55948pt.
+[31
+
+
+]
+l2hSize :tex2html_wrap_inline1749:10.13034pt::0.0pt::13.85803pt.
+[32
+
+
+]
+l2hSize :tex2html_wrap_inline2524:7.62646pt::0.0pt::15.70007pt.
+[33
+
+
+]
+l2hSize :tex2html_wrap_inline2704:7.07185pt::7.07185pt::31.53958pt.
+[34
+
+
+]
+l2hSize :tex2html_wrap_inline2706:7.07185pt::7.07185pt::31.53958pt.
+[35
+
+
+]
+l2hSize :tex2html_wrap_inline2708:7.62646pt::0.0pt::15.70007pt.
+[36
+
+
+]
+l2hSize :tex2html_wrap_inline2710:7.62646pt::0.0pt::21.17508pt.
+[37
+
+
+]
+l2hSize :tex2html_wrap_inline2712:9.12923pt::0.0pt::56.14227pt.
+[38
+
+
+]
+l2hSize :tex2html_wrap_inline2716:7.62646pt::0.0pt::15.70007pt.
+[39
+
+
+]
+l2hSize :tex2html_wrap_inline2718:7.07185pt::7.07185pt::31.53958pt.
+[40
+
+
+]
+l2hSize :tex2html_wrap_inline2720:7.07185pt::7.07185pt::31.53958pt.
+[41
+
+
+]
+l2hSize :tex2html_wrap_inline2722:7.07185pt::7.07185pt::28.49791pt.
+[42
+
+
+]
+l2hSize :tex2html_wrap_inline2724:10.13034pt::0.0pt::15.1963pt.
+[43
+
+
+]
+l2hSize :tex2html_wrap_inline2726:7.07185pt::7.07185pt::33.97292pt.
+[44
+
+
+]
+l2hSize :tex2html_wrap_inline2728:8.2125pt::8.2125pt::33.97289pt.
+[45
+
+
+]
+l2hSize :tex2html_wrap_inline2867:8.2125pt::8.2125pt::23.86188pt.
+[46
+
+
+]
+l2hSize :tex2html_wrap_inline2869:7.07185pt::7.07185pt::15.15135pt.
+[47
+
+
+]
+l2hSize :tex2html_wrap_inline3016:7.07185pt::0.0pt::12.77495pt.
+[48
+
+
+]
+l2hSize :tex2html_wrap_inline3160:9.52922pt::0.0pt::10.6973pt.
+[49
+
+
+]
+l2hSize :tex2html_wrap_inline3380:8.2125pt::8.2125pt::37.06009pt.
+[50
+
+
+]
+l2hSize :tex2html_wrap_inline3493:8.2125pt::8.2125pt::69.25354pt.
+[51
+
+
+]
+l2hSize :tex2html_wrap_inline4117:7.07185pt::0.0pt::12.10966pt.
+[52
+
+
+]
+l2hSize :tex2html_wrap_inline4123:7.62646pt::0.0pt::21.17508pt.
+[53
+
+
+]
+l2hSize :tex2html_wrap_inline5205:9.52922pt::0.0pt::53.15852pt.
+[54
+
+
+]
+l2hSize :tex2html_wrap_inline5954:8.2125pt::8.2125pt::33.90187pt.
+[55
+
+
+]
+l2hSize :tex2html_wrap_inline5956:8.2125pt::8.2125pt::33.90187pt.
+[56
+
+
+]
+l2hSize :tex2html_wrap_inline5962:8.41812pt::8.41812pt::62.95944pt.
+[57
+
+
+]
+l2hSize :tex2html_wrap_inline5964:8.41812pt::8.41812pt::61.57301pt.
+[58
+
+
+]
+l2hSize :tex2html_wrap_inline5966:8.41812pt::0.0pt::49.32889pt.
+[59
+
+
+]
+l2hSize :tex2html_wrap_inline5968:8.41812pt::8.41812pt::48.33533pt.
+[60
+
+
+]
+l2hSize :tex2html_wrap_inline5970:8.41812pt::8.41812pt::190.55496pt.
+[61
+
+
+]
+l2hSize :tex2html_wrap_inline5972:8.41812pt::8.41812pt::190.05818pt.
+[62
+
+
+]
+l2hSize :tex2html_wrap_inline5974:8.41812pt::8.41812pt::197.9745pt.
+[63
+
+
+]
+l2hSize :tex2html_wrap_inline5976:8.41812pt::8.41812pt::197.08485pt.
+[64
+
+
+]
+l2hSize :tex2html_wrap_inline6230:7.60416pt::7.60416pt::16.45663pt.
+[65
+
+
+]
+l2hSize :tex2html_wrap_inline6232:7.07185pt::7.07185pt::27.31801pt.
+[66
+
+
+]
+l2hSize :tex2html_wrap_inline6347:7.07185pt::0.0pt::27.98332pt.
+[67
+
+
+]
+l2hSize :tex2html_wrap_inline6475:7.07185pt::7.07185pt::50.91757pt.
+[68
+
+
+]
+l2hSize :tex2html_wrap_inline6491:7.07185pt::7.07185pt::22.56413pt.
+[69
+
+
+]
+l2hSize :tex2html_wrap_inline6713:9.44032pt::0.0pt::9.67093pt.
+[70
+
+
+]
+l2hSize :tex2html_wrap_inline6717:7.48248pt::0.0pt::10.03752pt.
+[71
+
+
+]
+l2hSize :tex2html_wrap_inline7186:7.07185pt::0.0pt::3.04167pt.
+[72
+
+
+]
+l2hSize :tex2html_wrap_inline7188:7.07185pt::7.07185pt::26.52841pt.
+[73
+
+
+]
+l2hSize :tex2html_wrap_inline7358:10.13034pt::0.0pt::15.1963pt.
+[74
+
+
+]
+l2hSize :tex2html_wrap_inline7360:10.13034pt::0.0pt::9.7213pt.
+[75
+
+
+]
+l2hSize :tex2html_wrap_inline7362:10.13034pt::0.0pt::13.85803pt.
+[76
+
+
+]
+l2hSize :tex2html_wrap_inline7364:10.13034pt::0.0pt::13.85803pt.
+[77
+
+
+]
+l2hSize :tex2html_wrap_inline7366:10.13034pt::0.0pt::13.85803pt.
+[78
+
+
+]
+l2hSize :tex2html_wrap_inline7368:10.13034pt::0.0pt::15.1963pt.
+[79
+
+
+]
+l2hSize :tex2html_wrap_inline7370:10.13034pt::0.0pt::19.33304pt.
+[80
+
+
+]
+l2hSize :tex2html_wrap_inline7374:10.13034pt::0.0pt::19.33304pt.
+[81
+
+
+]
+l2hSize :tex2html_wrap_inline7376:10.13034pt::0.0pt::15.1963pt.
+[82
+
+
+]
+l2hSize :tex2html_wrap_inline7378:10.13034pt::0.0pt::13.85803pt.
+[83
+
+
+]
+l2hSize :tex2html_wrap_inline7465:7.07185pt::7.07185pt::8.5167pt.
+[84
+
+
+]
+l2hSize :tex2html_wrap_inline8210:8.2125pt::8.2125pt::25.7242pt.
+[85
+
+
+]
+l2hSize :tex2html_wrap_inline8382:7.4181pt::0.0pt::14.80284pt.
+[86
+
+
+]
+l2hSize :tex2html_wrap_inline8384:7.4181pt::0.0pt::18.53345pt.
+[87
+
+
+]
+l2hSize :tex2html_wrap_inline8386:10.13034pt::10.13034pt::33.32474pt.
+[88
+
+
+]
+l2hSize :tex2html_wrap_inline8848:7.07185pt::0.0pt::27.12018pt.
+[89
+
+
+]
+l2hSize :tex2html_wrap_inline8993:7.60416pt::7.60416pt::15.99092pt.
+[90
+
+
+]
+l2hSize :tex2html_wrap_inline8995:7.60416pt::7.60416pt::17.19296pt.
+[91
+
+
+]
+l2hSize :tex2html_wrap_inline9003:7.60416pt::7.60416pt::5.2944pt.
+[92
+
+
+]
+l2hSize :tex2html_wrap_inline9812:9.12923pt::9.12923pt::30.82797pt.
+[93
+
+
+]
+l2hSize :tex2html_wrap_inline9814:9.12923pt::9.12923pt::35.07803pt.
+[94
+
+
+]
+l2hSize :tex2html_wrap_inline9967:7.60416pt::7.60416pt::52.25188pt.
+[95
+
+
+]
+l2hSize :tex2html_wrap_inline10116:7.4181pt::0.0pt::20.03448pt.
+[96
+
+
+]
+l2hSize :tex2html_wrap_inline10118:7.4181pt::0.0pt::20.03448pt.
+[97
+
+
+]
+l2hSize :tex2html_wrap_inline10191:9.44032pt::9.44032pt::38.18771pt.
+[98
+
+
+]
+l2hSize :tex2html_wrap_inline10601:7.48248pt::0.0pt::7.90834pt.
+[99
+
+
+]
+l2hSize :tex2html_wrap_inline10603:7.07185pt::0.0pt::9.37218pt.
+[100
+
+
+]
+l2hSize :tex2html_wrap_inline10605:7.07185pt::0.0pt::7.20874pt.
+[101
+
+
+]
+l2hSize :tex2html_wrap_inline10625:7.07185pt::7.07185pt::9.93608pt.
+[102
+
+
+]
+l2hSize :tex2html_wrap_inline10627:7.07185pt::7.07185pt::11.39606pt.
+[103
+
+
+]
+l2hSize :tex2html_wrap_inline10629:7.07185pt::7.07185pt::24.37381pt.
+[104
+
+
+]
+l2hSize :tex2html_wrap_inline10633:7.60416pt::7.60416pt::7.5256pt.
+[105
+
+
+]
+l2hSize :tex2html_wrap_inline10663:8.2125pt::8.2125pt::53.76514pt.
+[106
+
+
+]
+l2hSize :tex2html_wrap_inline10697:8.2125pt::8.2125pt::59.24014pt.
+[107
+
+
+]
+l2hSize :tex2html_wrap_inline11178:7.60416pt::7.60416pt::39.92438pt.
+[108
+
+
+]
+l2hSize :tex2html_wrap_inline11337:8.2125pt::8.2125pt::62.61017pt.
+[109
+
+
+]
+l2hSize :tex2html_wrap_inline11339:10.13034pt::0.0pt::41.23306pt.
+[110
+
+
+]
+l2hSize :tex2html_wrap_inline11594:8.2125pt::8.2125pt::37.06009pt.
+[111
+
+
+]
+l2hSize :tex2html_wrap_inline11608:10.13034pt::0.0pt::24.80804pt.
+[112
+
+
+]
+l2hSize :tex2html_wrap_inline11828:8.2125pt::8.2125pt::40.43898pt.
+[113
+
+
+]
+l2hSize :tex2html_wrap_inline11830:8.2125pt::8.2125pt::33.28798pt.
+[114
+
+
+]
+l2hSize :tex2html_wrap_inline12099:7.31305pt::0.0pt::7.04526pt.
+[115
+
+
+]
+l2hSize :tex2html_wrap_inline12101:7.60416pt::0.0pt::30.6371pt.
+[116
+
+
+]
+l2hSize :tex2html_wrap_inline12103:7.62646pt::0.0pt::15.70007pt.
+[117
+
+
+]
+l2hSize :tex2html_wrap_inline12105:7.48248pt::0.0pt::16.17027pt.
+[118
+
+
+]
+l2hSize :tex2html_wrap_inline13294:9.44032pt::0.0pt::56.2022pt.
+[119
+
+
+]
+l2hSize :tex2html_wrap_inline13534:7.07185pt::0.0pt::61.44164pt.
+[120
+
+
+]
+l2hSize :tex2html_wrap_inline13611:8.2125pt::8.2125pt::27.3749pt.
+[121
+
+
+]
+l2hSize :tex2html_wrap_inline14280:7.51291pt::0.0pt::11.95369pt.
+[122
+
+
+]
+l2hSize :tex2html_wrap_inline14410:7.07185pt::7.07185pt::15.08926pt.
+[123
+
+
+]
+l2hSize :tex2html_wrap_inline15250:10.13034pt::0.0pt::20.67131pt.
+[124
+
+
+]
+l2hSize :tex2html_wrap_inline15252:10.13034pt::0.0pt::19.33304pt.
+[125
+
+
+]
+l2hSize :tex2html_wrap_inline15578:10.13034pt::0.0pt::15.1963pt.
+[126
+
+
+]
+l2hSize :tex2html_wrap_inline15582:10.13034pt::0.0pt::9.7213pt.
+[127
+
+
+]
+l2hSize :tex2html_wrap_inline16974:9.12923pt::9.12923pt::67.61365pt.
+[128
+
+
+]
+l2hSize :tex2html_wrap_inline16980:7.07185pt::7.07185pt::5.66132pt.
+[129
+
+
+]
+l2hSize :tex2html_wrap_inline19044:10.13034pt::0.0pt::9.7213pt.
+[130
+
+
+]
+l2hSize :tex2html_wrap_inline19046:10.13034pt::0.0pt::9.7213pt.
+[131
+
+
+]
+l2hSize :tex2html_wrap_inline19048:10.13034pt::0.0pt::9.7213pt.
+[132
+
+
+]
+l2hSize :tex2html_wrap_inline19050:10.13034pt::0.0pt::15.1963pt.
+[133
+
+
+]
+l2hSize :tex2html_wrap_inline19052:10.13034pt::0.0pt::15.1963pt.
+[134
+
+
+]
+l2hSize :tex2html_wrap_inline19054:10.13034pt::0.0pt::15.1963pt.
+[135
+
+
+]
+l2hSize :tex2html_wrap_inline19056:10.13034pt::0.0pt::15.1963pt.
+[136
+
+
+]
+l2hSize :tex2html_wrap_inline19060:10.13034pt::0.0pt::13.85803pt.
+[137
+
+
+]
+l2hSize :tex2html_wrap_inline19064:8.2125pt::8.2125pt::117.10414pt.
+[138
+
+
+]
+l2hSize :tex2html_wrap_inline19834:7.62646pt::0.0pt::21.17508pt.
+[139
+
+
+]
+l2hSize :tex2html_wrap_inline20108:10.13034pt::0.0pt::9.7213pt.
+[140
+
+
+]
+l2hSize :tex2html_wrap_inline20114:10.13034pt::0.0pt::20.67131pt.
+[141
+
+
+]
+l2hSize :tex2html_wrap_inline20116:10.13034pt::0.0pt::26.14632pt.
+[142
+
+
+]
+l2hSize :tex2html_wrap_inline20952:7.07185pt::7.07185pt::30.96794pt.
+[143
+
+
+]
+l2hSize :tex2html_wrap_inline21527:8.2125pt::8.2125pt::33.95927pt.
+[144
+
+
+]
+l2hSize :tex2html_wrap_inline21604:7.07185pt::7.07185pt::46.40807pt.
+[145
+
+
+]
+l2hSize :tex2html_wrap_inline21862:7.07185pt::7.07185pt::6.59792pt.
+[146
+
+
+]
+l2hSize :tex2html_wrap_inline21866:7.07185pt::7.07185pt::13.9917pt.
+[147
+
+
+]
+l2hSize :tex2html_wrap_inline22333:9.12923pt::9.12923pt::108.07462pt.
+[148
+
+
+]
+l2hSize :tex2html_wrap_inline22335:7.60416pt::7.60416pt::5.59856pt.
+[149
+
+
+]
+l2hSize :tex2html_wrap_inline22337:7.60416pt::7.60416pt::14.72357pt.
+[150
+
+
+]
+l2hSize :tex2html_wrap_inline22343:7.60416pt::7.60416pt::23.24022pt.
+[151
+
+
+]
+l2hSize :tex2html_wrap_inline22345:9.12923pt::9.12923pt::27.99028pt.
+[152
+
+
+]
+l2hSize :tex2html_wrap_inline22353:9.12923pt::0.0pt::34.47794pt.
+[153
+
+
+]
+l2hSize :tex2html_wrap_inline22355:7.62646pt::0.0pt::15.70007pt.
+[154
+
+
+]
+l2hSize :tex2html_wrap_inline22357:9.12923pt::0.0pt::34.47794pt.
+[155
+
+
+]
+l2hSize :tex2html_wrap_inline22359:7.62646pt::0.0pt::27.25838pt.
+[156
+
+
+]
+l2hSize :tex2html_wrap_inline22363:7.62646pt::7.62646pt::35.89854pt.
+[157
+
+
+]
+l2hSize :tex2html_wrap_inline22365:10.13034pt::0.0pt::19.33304pt.
+[158
+
+
+]
+l2hSize :tex2html_wrap_inline22367:7.62646pt::7.62646pt::35.89854pt.
+[159
+
+
+]
+l2hSize :tex2html_wrap_inline22371:7.62646pt::7.62646pt::35.89854pt.
+[160
+
+
+]
+l2hSize :tex2html_wrap_inline22628:7.62646pt::0.0pt::25.43341pt.
+[161
+
+
+]
+l2hSize :tex2html_wrap_inline22638:7.62646pt::0.0pt::15.70007pt.
+[162
+
+
+]
+l2hSize :tex2html_wrap_inline22640:7.62646pt::0.0pt::15.70007pt.
+[163
+
+
+]
+l2hSize :tex2html_wrap_inline22642:7.62646pt::0.0pt::15.70007pt.
+[164
+
+
+]
+l2hSize :tex2html_wrap_inline22656:7.62646pt::7.62646pt::24.21677pt.
+[165
+
+
+]
+l2hSize :tex2html_wrap_inline22658:7.62646pt::7.62646pt::24.21677pt.
+[166
+
+
+]
+l2hSize :tex2html_wrap_inline22660:7.62646pt::0.0pt::21.17508pt.
+[167
+
+
+]
+l2hSize :tex2html_wrap_inline22666:7.07185pt::7.07185pt::21.19794pt.
+[168
+
+
+]
+l2hSize :tex2html_wrap_inline22678:9.12923pt::0.0pt::55.84569pt.
+[169
+
+
+]
+l2hSize :tex2html_wrap_inline22690:7.62646pt::0.0pt::10.22507pt.
+[170
+
+
+]
+l2hSize :tex2html_wrap_inline22698:9.12923pt::0.0pt::20.56676pt.
+[171
+
+
+]
+l2hSize :tex2html_wrap_inline22702:8.2125pt::8.2125pt::59.514pt.
+[172
+
+
+]
+l2hSize :tex2html_wrap_inline22706:7.60416pt::7.60416pt::6.77151pt.
+[173
+
+
+]
+l2hSize :tex2html_wrap_inline22933:7.62646pt::0.0pt::15.70007pt.
+[174
+
+
+]
+l2hSize :tex2html_wrap_inline22935:10.13034pt::0.0pt::19.33304pt.
+[175
+
+
+]
+l2hSize :tex2html_wrap_inline22947:7.62646pt::0.0pt::15.70007pt.
+[176
+
+
+]
+l2hSize :tex2html_wrap_inline22949:7.62646pt::0.0pt::27.25838pt.
+[177
+
+
+]
+l2hSize :tex2html_wrap_inline22955:10.13034pt::0.0pt::13.85803pt.
+[178
+
+
+]
+l2hSize :tex2html_wrap_inline22957:7.62646pt::0.0pt::15.70007pt.
+[179
+
+
+]
+l2hSize :tex2html_wrap_inline22959:8.2125pt::8.2125pt::48.445pt.
+[180
+
+
+]
+l2hSize :tex2html_wrap_inline22961:8.2125pt::8.2125pt::48.7492pt.
+[181
+
+
+]
+l2hSize :tex2html_wrap_inline23162:7.62646pt::0.0pt::15.70007pt.
+[182
+
+
+]
+l2hSize :tex2html_wrap_inline23164:7.62646pt::7.62646pt::35.89854pt.
+[183
+
+
+]
+l2hSize :tex2html_wrap_inline23168:7.60416pt::7.60416pt::16.9658pt.
+[184
+
+
+]
+l2hSize :tex2html_wrap_inline23172:10.13034pt::0.0pt::13.85803pt.
+[185
+
+
+]
+l2hSize :tex2html_wrap_inline23174:7.62646pt::0.0pt::15.70007pt.
+[186
+
+
+]
+l2hSize :tex2html_wrap_inline23176:10.13034pt::0.0pt::13.85803pt.
+[187
+
+
+]
+l2hSize :tex2html_wrap_inline23178:7.62646pt::0.0pt::15.70007pt.
+[188
+
+
+]
+l2hSize :tex2html_wrap_inline23180:10.13034pt::0.0pt::13.85803pt.
+[189
+
+
+]
+l2hSize :tex2html_wrap_inline23182:7.62646pt::0.0pt::15.70007pt.
+[190
+
+
+]
+l2hSize :tex2html_wrap_inline23186:7.62646pt::0.0pt::15.70007pt.
+[191
+
+
+]
+l2hSize :tex2html_wrap_inline23188:10.13034pt::0.0pt::9.7213pt.
+[192
+
+
+]
+l2hSize :tex2html_wrap_inline23190:7.62646pt::0.0pt::15.70007pt.
+[193
+
+
+]
+l2hSize :tex2html_wrap_inline23194:7.62646pt::0.0pt::15.70007pt.
+[194
+
+
+]
+l2hSize :tex2html_wrap_inline23196:10.13034pt::0.0pt::15.1963pt.
+[195
+
+
+]
+l2hSize :tex2html_wrap_inline23198:7.62646pt::0.0pt::15.70007pt.
+[196
+
+
+]
+l2hSize :tex2html_wrap_inline23200:10.13034pt::0.0pt::20.67131pt.
+[197
+
+
+]
+l2hSize :tex2html_wrap_inline23202:7.62646pt::0.0pt::15.70007pt.
+[198
+
+
+]
+l2hSize :tex2html_wrap_inline23204:10.13034pt::0.0pt::20.67131pt.
+[199
+
+
+]
+l2hSize :tex2html_wrap_inline23206:7.62646pt::0.0pt::15.70007pt.
+[200
+
+
+]
+l2hSize :tex2html_wrap_inline23208:10.13034pt::0.0pt::20.67131pt.
+[201
+
+
+]
+l2hSize :tex2html_wrap_inline23212:10.13034pt::0.0pt::26.14632pt.
+[202
+
+
+]
+l2hSize :tex2html_wrap_inline23214:7.62646pt::0.0pt::15.70007pt.
+[203
+
+
+]
+l2hSize :tex2html_wrap_inline23216:10.13034pt::0.0pt::26.14632pt.
+[204
+
+
+]
+l2hSize :tex2html_wrap_inline23220:7.62646pt::0.0pt::15.70007pt.
+[205
+
+
+]
+l2hSize :tex2html_wrap_inline23222:10.13034pt::0.0pt::26.14632pt.
+[206
+
+
+]
+l2hSize :tex2html_wrap_inline23228:7.62646pt::7.62646pt::35.89854pt.
+[207
+
+
+]
+l2hSize :tex2html_wrap_inline23469:7.62646pt::7.62646pt::35.89854pt.
+[208
+
+
+]
+l2hSize :tex2html_wrap_inline23471:7.62646pt::7.62646pt::35.89854pt.
+[209
+
+
+]
+l2hSize :displaymath23457:31.00029pt::0.0pt::451.0pt.
+[210
+
+
+]
+l2hSize :tex2html_wrap_inline23475:7.62646pt::7.62646pt::73.69403pt.
+[211
+
+
+]
+l2hSize :tex2html_wrap_inline23495:10.13034pt::0.0pt::13.85803pt.
+[212
+
+
+]
+l2hSize :tex2html_wrap_inline23499:10.13034pt::0.0pt::13.85803pt.
+[213
+
+
+]
+l2hSize :tex2html_wrap_inline23503:10.13034pt::0.0pt::13.85803pt.
+[214
+
+
+]
+l2hSize :tex2html_wrap_inline23507:10.13034pt::0.0pt::13.85803pt.
+[215
+
+
+]
+l2hSize :tex2html_wrap_inline23511:10.13034pt::0.0pt::13.85803pt.
+[216
+
+
+]
+l2hSize :tex2html_wrap_inline23515:10.13034pt::0.0pt::13.85803pt.
+[217
+
+
+]
+l2hSize :tex2html_wrap_inline23523:10.13034pt::0.0pt::15.1963pt.
+[218
+
+
+]
+l2hSize :tex2html_wrap_inline23527:10.13034pt::0.0pt::15.1963pt.
+[219
+
+
+]
+l2hSize :tex2html_wrap_inline23531:10.13034pt::0.0pt::15.1963pt.
+[220
+
+
+]
+l2hSize :tex2html_wrap_inline23537:10.13034pt::0.0pt::20.67131pt.
+[221
+
+
+]
+l2hSize :tex2html_wrap_inline23720:9.44032pt::0.0pt::41.48557pt.
+[222
+
+
+]
+l2hSize :tex2html_wrap_inline23722:9.44032pt::0.0pt::32.47714pt.
+[223
+
+
+]
+l2hSize :tex2html_wrap_inline23896:9.44032pt::9.44032pt::97.5711pt.
+[224
+
+
+]
+l2hSize :tex2html_wrap_inline23995:9.52922pt::9.52922pt::86.78186pt.
+[225
+
+
+]
+l2hSize :tex2html_wrap_inline24798:7.07185pt::7.07185pt::15.08926pt.
+[226
+
+
+]
+l2hSize :tex2html_wrap_inline24800:7.07185pt::7.07185pt::30.78673pt.
+[227
+
+
+]
+l2hSize :tex2html_wrap_inline24802:7.07185pt::7.07185pt::29.57008pt.
+[228
+
+
+]
+l2hSize :tex2html_wrap_inline24806:7.07185pt::7.07185pt::34.20212pt.
+[229
+
+
+]
+l2hSize :tex2html_wrap_inline25275:8.2125pt::8.2125pt::45.81715pt.
+[230
+
+
+]
+l2hSize :tex2html_wrap_inline25277:8.2125pt::8.2125pt::23.8652pt.
+[231
+
+
+]
+l2hSize :tex2html_wrap_inline26731:7.62646pt::0.0pt::14.90933pt.
+[232
+
+
+]
+l2hSize :tex2html_wrap_inline26733:7.62646pt::0.0pt::15.70007pt.
+[233
+
+
+]
+l2hSize :tex2html_wrap_inline27323:7.07185pt::7.07185pt::21.843pt.
+[234
+
+
+]
+l2hSize :tex2html_wrap_inline27383:7.62646pt::0.0pt::15.70007pt.
+[235
+
+
+]
+l2hSize :tex2html_wrap_inline27391:7.62646pt::7.62646pt::18.74176pt.
+[236
+
+
+]
+l2hSize :tex2html_wrap_inline27397:9.52922pt::0.0pt::73.81409pt.
+[237
+
+
+]
+l2hSize :tex2html_wrap_inline27464:8.2125pt::8.2125pt::28.3939pt.
+[238
+
+
+]
+l2hSize :tex2html_wrap_inline27478:8.2125pt::8.2125pt::64.43513pt.
+[239
+
+
+]
+l2hSize :tex2html_wrap_inline27484:7.51291pt::0.0pt::9.65723pt.
+[240
+
+
+]
+l2hSize :tex2html_wrap_inline27486:7.51291pt::0.0pt::15.81656pt.
+[241
+
+
+]
+l2hSize :tex2html_wrap_inline27488:7.51291pt::0.0pt::15.81656pt.
+[242
+
+
+]
+l2hSize :tex2html_wrap_inline27490:7.51291pt::7.51291pt::61.97366pt.
+[243
+
+
+]
+l2hSize :tex2html_wrap_inline27492:8.2125pt::8.2125pt::60.757pt.
+[244
+
+
+]
+l2hSize :tex2html_wrap_inline27494:7.60416pt::0.0pt::13.99544pt.
+[245
+
+
+]
+l2hSize :tex2html_wrap_inline27498:7.60416pt::0.0pt::60.23245pt.
+[246
+
+
+]
+l2hSize :tex2html_wrap_inline27504:7.60416pt::0.0pt::41.02058pt.
+[247
+
+
+]
+l2hSize :tex2html_wrap_inline27506:7.60416pt::0.0pt::39.80392pt.
+[248
+
+
+]
+l2hSize :tex2html_wrap_inline27512:7.60416pt::0.0pt::30.48125pt.
+[249
+
+
+]
+l2hSize :tex2html_wrap_inline27514:9.12923pt::9.12923pt::57.07048pt.
+[250
+
+
+]
+l2hSize :tex2html_wrap_inline27518:7.07185pt::0.0pt::8.5167pt.
+[251
+
+
+]
+l2hSize :tex2html_wrap_inline27524:10.20264pt::10.20264pt::44.62119pt.
+[252
+
+
+]
+l2hSize :tex2html_wrap_inline27750:7.60416pt::7.60416pt::18.02567pt.
+[253
+
+
+]
+l2hSize :tex2html_wrap_inline27752:9.44032pt::9.44032pt::28.45444pt.
+[254
+
+
+]
+l2hSize :figure27550:643.66522pt::0.0pt::451.0pt.
+[255
+
+
+]
+l2hSize :tex2html_wrap_inline27878:7.62646pt::0.0pt::20.38434pt.
+[256
+
+
+]
+l2hSize :tex2html_wrap_inline27888:7.07185pt::0.0pt::4.44464pt.
+[257
+
+
+]
+l2hSize :tex2html_wrap_inline27890:10.13034pt::0.0pt::30.28305pt.
+[258
+
+
+]
+l2hSize :tex2html_wrap_inline27892:8.2125pt::8.2125pt::32.84998pt.
+[259
+
+
+]
+l2hSize :tex2html_wrap_inline27894:7.62646pt::0.0pt::14.90933pt.
+[260
+
+
+]
+l2hSize :tex2html_wrap_inline27923:10.13034pt::0.0pt::15.1963pt.
+[261
+
+
+]
+l2hSize :tex2html_wrap_inline27927:9.52922pt::0.0pt::68.33908pt.
+[262
+
+
+]
+l2hSize :tex2html_wrap_inline27929:10.13034pt::10.13034pt::66.86673pt.
+[263
+
+
+]
+l2hSize :tex2html_wrap_inline27959:8.2125pt::8.2125pt::34.6663pt.
+[264
+
+
+]
+l2hSize :tex2html_wrap_inline28022:10.13034pt::0.0pt::19.33304pt.
+[265
+
+
+]
+l2hSize :tex2html_wrap_inline28106:7.07185pt::7.07185pt::35.67386pt.
+[266
+
+
+]
+l2hSize :tex2html_wrap_inline28108:7.4181pt::0.0pt::41.93451pt.
+[267
+
+
+]
+l2hSize :tex2html_wrap_inline28112:7.4181pt::0.0pt::41.93451pt.
+[268
+
+
+]
+l2hSize :tex2html_wrap_inline28114:7.31305pt::7.31305pt::36.30606pt.
+[269
+
+
+]
+l2hSize :tex2html_wrap_inline28116:7.4181pt::0.0pt::41.93451pt.
+[270
+
+
+]
+l2hSize :tex2html_wrap_inline28118:8.2125pt::8.2125pt::64.15625pt.
+[271
+
+
+]
+l2hSize :tex2html_wrap_inline28120:7.4181pt::0.0pt::41.93451pt.
+[272
+
+
+]
+l2hSize :tex2html_wrap_inline28122:7.07185pt::7.07185pt::37.52272pt.
+[273
+
+
+]
+l2hSize :tex2html_wrap_inline28124:7.4181pt::0.0pt::41.93451pt.
+[274
+
+
+]
+l2hSize :tex2html_wrap_inline28126:8.2125pt::8.2125pt::55.03122pt.
+[275
+
+
+]
+l2hSize :tex2html_wrap_inline28128:7.07185pt::7.07185pt::36.10065pt.
+[276
+
+
+]
+l2hSize :tex2html_wrap_inline28130:10.13034pt::0.0pt::35.75806pt.
+[277
+
+
+]
+l2hSize :tex2html_wrap_inline28134:10.13034pt::0.0pt::35.75806pt.
+[278
+
+
+]
+l2hSize :tex2html_wrap_inline28136:8.2125pt::8.2125pt::45.43098pt.
+[279
+
+
+]
+l2hSize :tex2html_wrap_inline28138:10.13034pt::0.0pt::35.75806pt.
+[280
+
+
+]
+l2hSize :tex2html_wrap_inline28140:7.31305pt::7.31305pt::36.30606pt.
+[281
+
+
+]
+l2hSize :tex2html_wrap_inline28142:10.13034pt::0.0pt::35.75806pt.
+[282
+
+
+]
+l2hSize :tex2html_wrap_inline28146:10.13034pt::0.0pt::35.75806pt.
+[283
+
+
+]
+l2hSize :tex2html_wrap_inline28148:7.60416pt::0.0pt::27.24184pt.
+[284
+
+
+]
+l2hSize :tex2html_wrap_inline28214:7.07185pt::0.0pt::18.60356pt.
+[285
+
+
+]
+l2hSize :tex2html_wrap_inline28216:9.52922pt::0.0pt::68.33908pt.
+[286
+
+
+]
+l2hSize :tex2html_wrap_inline28218:7.60416pt::0.0pt::16.83937pt.
+[287
+
+
+]
+l2hSize :tex2html_wrap_inline28220:10.13034pt::10.13034pt::66.86673pt.
+[288
+
+
+]
+l2hSize :tex2html_wrap_inline28222:7.07185pt::7.07185pt::24.11555pt.
+[289
+
+
+]
+l2hSize :tex2html_wrap_inline28224:7.4181pt::7.4181pt::39.50119pt.
+[290
+
+
+]
+l2hSize :tex2html_wrap_inline28228:7.07185pt::7.07185pt::22.71738pt.
+[291
+
+
+]
+l2hSize :tex2html_wrap_inline28230:10.13034pt::10.13034pt::33.32474pt.
+[292
+
+
+]
+l2hSize :tex2html_wrap_inline28234:10.13034pt::0.0pt::24.80804pt.
+[293
+
+
+]
+l2hSize :tex2html_wrap_inline28274:10.13034pt::0.0pt::19.33304pt.
+[294
+
+
+]
+l2hSize :tex2html_wrap_inline28276:10.13034pt::0.0pt::19.33304pt.
+[295
+
+
+]
+l2hSize :tex2html_wrap_inline28278:7.62646pt::0.0pt::15.70007pt.
+[296
+
+
+]
+l2hSize :tex2html_wrap_inline28282:7.62646pt::7.62646pt::34.36441pt.
+[297
+
+
+]
+l2hSize :tex2html_wrap_inline28386:7.60416pt::0.0pt::5.44458pt.
+[298
+
+
+]
+l2hSize :displaymath28366:14.51251pt::0.0pt::451.0pt.
+[299
+
+
+]
+l2hSize :tex2html_wrap_inline28394:7.60416pt::7.60416pt::50.96434pt.
+[300
+
+
+]
+l2hSize :tex2html_wrap_inline28408:7.62646pt::0.0pt::14.90933pt.
+[301
+
+
+]
+l2hSize :displaymath28367:15.72917pt::0.0pt::451.0pt.
+[302
+
+
+]
+l2hSize :tex2html_wrap_inline28412:7.60416pt::7.60416pt::17.91302pt.
+[303
+
+
+]
+l2hSize :tex2html_wrap_inline28420:10.13034pt::0.0pt::15.1963pt.
+[304
+
+
+]
+l2hSize :tex2html_wrap_inline28422:10.13034pt::10.13034pt::27.84973pt.
+[305
+
+
+]
+l2hSize :displaymath28368:27.78561pt::0.0pt::451.0pt.
+[306
+
+
+]
+l2hSize :tex2html_wrap_inline28444:7.07185pt::7.07185pt::32.63718pt.
+[307
+
+
+]
+l2hSize :tex2html_wrap_inline28549:9.52922pt::0.0pt::62.86407pt.
+[308
+
+
+]
+l2hSize :tex2html_wrap_inline28551:9.52922pt::0.0pt::62.86407pt.
+[309
+
+
+]
+l2hSize :tex2html_wrap_inline28555:7.60416pt::7.60416pt::39.40604pt.
+[310
+
+
+]
+l2hSize :tex2html_wrap_inline28561:7.4181pt::0.0pt::30.9845pt.
+[311
+
+
+]
+l2hSize :tex2html_wrap_inline28567:7.4181pt::0.0pt::30.9845pt.
+[312
+
+
+]
+l2hSize :tex2html_wrap_inline28569:7.4181pt::0.0pt::30.9845pt.
+[313
+
+
+]
+l2hSize :tex2html_wrap_inline28571:7.48248pt::7.48248pt::76.49782pt.
+[314
+
+
+]
+l2hSize :tex2html_wrap_inline28573:7.48248pt::0.0pt::17.03336pt.
+[315
+
+
+]
+l2hSize :tex2html_wrap_inline28650:10.13034pt::0.0pt::9.7213pt.
+[316
+
+
+]
+l2hSize :tex2html_wrap_inline28656:7.07185pt::7.07185pt::24.94171pt.
+[317
+
+
+]
+l2hSize :tex2html_wrap_inline28664:7.62646pt::0.0pt::10.22507pt.
+[318
+
+
+]
+l2hSize :tex2html_wrap_inline28666:10.13034pt::0.0pt::9.7213pt.
+[319
+
+
+]
+l2hSize :tex2html_wrap_inline28668:9.52922pt::0.0pt::31.05571pt.
+[320
+
+
+]
+l2hSize :tex2html_wrap_inline28728:7.48248pt::7.48248pt::52.47244pt.
+[321
+
+
+]
+l2hSize :tex2html_wrap_inline28740:7.48248pt::7.48248pt::56.62431pt.
+[322
+
+
+]
+l2hSize :tex2html_wrap_inline28752:7.48248pt::7.48248pt::37.80916pt.
+[323
+
+
+]
+l2hSize :tex2html_wrap_inline28769:7.07185pt::0.0pt::22.50832pt.
+[324
+
+
+]
+l2hSize :tex2html_wrap_inline28861:7.48248pt::7.48248pt::51.50961pt.
+[325
+
+
+]
+l2hSize :tex2html_wrap_inline28863:7.48248pt::7.48248pt::46.0346pt.
+[326
+
+
+]
+l2hSize :tex2html_wrap_inline28865:7.48248pt::7.48248pt::51.50961pt.
+[327
+
+
+]
+l2hSize :tex2html_wrap_inline28867:7.48248pt::7.48248pt::51.50961pt.
+[328
+
+
+]
+l2hSize :tex2html_wrap_inline28869:7.07185pt::0.0pt::35.24144pt.
+[329
+
+
+]
+l2hSize :tex2html_wrap_inline28871:7.07185pt::7.07185pt::46.2333pt.
+[330
+
+
+] (images.aux) ) 
+Here is how much of TeX's memory you used:
+ 351 strings out of 10906
+ 3619 string characters out of 71914
+ 61584 words of memory out of 262141
+ 3274 multiletter control sequences out of 9500
+ 7308 words of font info for 26 fonts, out of 150000 for 255
+ 14 hyphenation exceptions out of 607
+ 21i,13n,21p,242b,498s stack positions out of 300i,40n,60p,3000b,4000s
+
+Output written on images.dvi (330 pages, 51052 bytes).
diff --git a/src/slalib/sun67.htx/images.pl b/src/slalib/sun67.htx/images.pl
new file mode 100644
index 0000000..498f422
--- /dev/null
+++ b/src/slalib/sun67.htx/images.pl
@@ -0,0 +1,1686 @@
+# LaTeX2HTML 97.1 (release) (July 13th, 1997)
+# Associate images original text with physical files.
+
+
+$key = q/{_inline}1hspace-0.05em^'hspace-0.1em'hspace-0.4em.74{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.74$|; 
+
+$key = q/{_inline}cosdeltaE{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\cos \delta E$|; 
+
+$key = q/{_inline}0^rmshspace-0.3em.03{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0^{\rm s}\hspace{-0.3em}.03$|; 
+
+$key = q/{_inline}0leqx<1{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0 \leq x < 1$|; 
+
+$key = q/{_inline}zeta=80^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\zeta=80^\circ$|; 
+
+$key = q/{_inline}-75^circ,59^',27^''.2{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$-75^{\circ}\,59^{'}\,27^{''}.2$|; 
+
+$key = q/{_inline}150hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$150\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}2hspace-0.05em^'hspace-0.1em'hspace-0.4em.3{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$2\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.3$|; 
+
+$key = q/{_inline}1hspace-0.05em^'hspace-0.1em'hspace-0.4em.6{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.6$|; 
+
+$key = q/{displaymath}zeta_vacapproxzeta_obs+Atanzeta_obs+Btan^3zeta_obs{displaymath}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|\begin{displaymath}
+\zeta _{vac} \approx \zeta _{obs}
+ + A \tan \zeta _{obs}
+ + B \tan ^{3}\zeta _{obs} \end{displaymath}|; 
+
+$key = q/{_inline}1000times20{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$1000\times20$|; 
+
+$key = q/{_inline}times3602pi{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\times 360/2\pi$|; 
+
+$key = q/{_inline}21hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$21\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}12^h,07^m,58^s.09{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$12^{h}\,07^{m}\,58^{s}.09$|; 
+
+$key = q/{_inline}81^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$81^\circ$|; 
+
+$key = q/{_inline}omega{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\omega$|; 
+
+$key = q/{_inline}30^rmm{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$30^{\rm m}$|; 
+
+$key = q/{_inline}89^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$89^\circ$|; 
+
+$key = q/{displaymath}zeta_obsapproxzeta_vac-fracAtanzeta_vac+Btan^3zeta_vac1+(A+3Btan^2zeta_vac)sec^2zeta_vac{displaymath}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|\begin{displaymath}
+\zeta _{obs} \approx \zeta _{vac}
+ - \frac{A \tan \zeta _{va...
+ ...
+ {1 + ( A + 3 B \tan ^{2}\zeta _{vac} ) \sec ^{2}\zeta _{vac}}\end{displaymath}|; 
+
+$key = q/{_inline}1^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$1^\circ$|; 
+
+$key = q/{_inline}=Deltapsicosepsilon{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$=\Delta\psi\cos\epsilon$|; 
+
+$key = q/{_inline}(3times3){_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$(3\times3)$|; 
+
+$key = q/{_inline}epsilon{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\epsilon$|; 
+
+$key = q/{_inline}290^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$290^\circ$|; 
+
+$key = q/{_inline}+1^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$+1^{\circ}$|; 
+
+$key = q/{_inline}20,murmm{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$20\,\mu{\rm m}$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.6{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.6$|; 
+
+$key = q/{_inline}7hspace-0.05em^'hspace-0.1em'hspace-0.4em.1{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$7\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.1$|; 
+
+$key = q/{_inline}C_3!=!-10.0{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$C_3\!=\!-10.0$|; 
+
+$key = q/{_inline}~sinalpha+({_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$~\sin \alpha +
+ ($|; 
+
+$key = q/{_inline}xi{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\xi$|; 
+
+$key = q/{_inline}1100hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$1100\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}[lambda,phi]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\lambda,\phi]$|; 
+
+$key = q/{_inline}30hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$30\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}1.0027379cdots{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$1.0027379\cdots$|; 
+
+$key = q/{_inline}90^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$90^{\circ}$|; 
+
+$key = q/{_inline}14hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$14\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}rho=r(1+cr^2){_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\rho = r (1 + c r^{2})$|; 
+
+$key = q/{_inline}pmn{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\pm n$|; 
+
+$key = q/{_inline}bfD{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|${\bf D}$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.24{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.24$|; 
+
+$key = q/{_inline}0^rmshspace-0.3em.015869{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0^{\rm s}\hspace{-0.3em}.015869$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.43549{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.43549$|; 
+
+$key = q/{_inline}[,Deltax,Deltay,Deltaz,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\,\Delta x,\Delta y, \Delta z\,]$|; 
+
+$key = q/{_inline}86hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$86\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}(0leqe<1){_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$( 0 \leq e < 1 )$|; 
+
+$key = q/{_inline}0^rmh{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0^{\rm h}$|; 
+
+$key = q/{_inline}~cosalpha-{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$~\cos \alpha
+ -$|; 
+
+$key = q/{_inline}[theta,phi,dottheta,dotphi]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\theta,\phi,\dot{\theta},\dot{\phi}]$|; 
+
+$key = q/{_inline}1hspace-0.05em^'hspace-0.1em'hspace-0.4em.0{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.0$|; 
+
+$key = q/{_inline}nu=rho_wrho_s{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\nu=\rho_w/\rho_s$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.3{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.3$|; 
+
+$key = q/{_inline}varpi=Omega+omega{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\varpi = \Omega + \omega$|; 
+
+$key = q/{_inline}6hspace-0.05em^'hspace-0.1em'hspace-0.4em.1{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$6\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.1$|; 
+
+$key = q/{_inline}mu_delta,=+{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\mu_\delta\,=+$|; 
+
+$key = q/{_inline}920hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$920\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}b^I!I=0{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$b^{I\!I}=0$|; 
+
+$key = q/{_inline}x'=x_1+rmXZ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$x' = x_{1} + {\rm XZ}$|; 
+
+$key = q/{_inline}mu_alpha={_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\mu_\alpha=$|; 
+
+$key = q/{_inline}rmbfr_0{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|${\rm \bf r}_0$|; 
+
+$key = q/{_inline}zeta_vac{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\zeta _{vac}$|; 
+
+$key = q/{_inline}86^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$86^\circ$|; 
+
+$key = q/{_inline}y'''=+x''sinrmPERP2+y''cosrmPERP2{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$y''' = + x'' \sin {\rm PERP}/2 + y'' \cos {\rm PERP}/2$|; 
+
+$key = q/{_inline}C_2!=!-2.0{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$C_2\!=\!-2.0$|; 
+
+$key = q/{_inline}0.0065^circm^-1{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0.0065^\circ m^{-1}$|; 
+
+$key = q/{_inline}alpha=18^rmh,delta=+30^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\alpha=18^{\rm h},\delta=+30^{\circ}$|; 
+
+$key = q/{_inline}[mu_alpha,mu_delta]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\mu_\alpha,\mu_\delta]$|; 
+
+$key = q/{_inline}5^rmh,25^rmm{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$5^{\rm h}\,25^{\rm m}$|; 
+
+$key = q/{figure}centertabular|cccccc|hline&&&&&hspace5em&hspace5em&hspace5em&hspace5em&halloftheprecessionandE-termscorrectionsaresuperfluous.{figure}MSF=1.5;FSF=1;AAT;/;
+$cached_env_img{$key} = q|\begin{figure}
+\begin{center}
+\begin{tabular}
+{\vert cccccc\vert} \hline
+& & & &...
+ ...2000, all of the precession and E-terms corrections
+are superfluous.\end{figure}|; 
+
+$key = q/{_inline}~sinalpha-{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$~\sin \alpha
+ -$|; 
+
+$key = q/{_inline}equiv123{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\equiv123$|; 
+
+$key = q/{_inline}3hspace-0.05em^'hspace-0.1em'hspace-0.4em.7{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$3\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.7$|; 
+
+$key = q/{_inline}12^circ,34^',56^''.7{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$12^{\circ}\,34^{'}\,56^{''}.7$|; 
+
+$key = q/{_inline}y'=y_1+rmYZ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$y' = y_{1} + {\rm YZ}$|; 
+
+$key = q/{_inline}+0hspace-0.05em^'hspace-0.1em'hspace-0.4em.103{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$+0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.103$|; 
+
+$key = q/{_inline}=93^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$=93^\circ$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.0001{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.0001$|; 
+
+$key = q/{_inline}[x_e,y_e,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[x_{e},y_{e}\,]$|; 
+
+$key = q/{_inline}[,0,,1,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\,0,\,1\,]$|; 
+
+$key = q/{_inline}20hspace-0.05em^'hspace-0.1em'hspace-0.4em.5{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$20\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$|; 
+
+$key = q/{_inline}theta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\theta$|; 
+
+$key = q/{_inline}zeta<80^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\zeta<80^{\circ}$|; 
+
+$key = q/{_inline}0^rmshspace-0.3em.000340{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0^{\rm s}\hspace{-0.3em}.000340$|; 
+
+$key = q/{_inline}deltaEcosE{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\delta E \cos E$|; 
+
+$key = q/{_inline}[x_m,y_m,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[x_{m},y_{m}\,]$|; 
+
+$key = q/{_inline}-0hspace-0.05em^'hspace-0.1em'hspace-0.4em.06{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$-0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.06$|; 
+
+$key = q/{_inline}340hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$340\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}l^I!I,b^I!I{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$l^{I\!I},b^{I\!I}$|; 
+
+$key = q/{_inline}20^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$20^\circ$|; 
+
+$key = q/{_inline}_j)]cdot({_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$_{j})]
+ \cdot ($|; 
+
+$key = q/{_inline}times{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\times$|; 
+
+$key = q/{_inline}20hspace-0.05em^'hspace-0.1em'hspace-0.4em.49552{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$20\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.49552$|; 
+
+$key = q/{_inline}tan^3zeta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\tan^{3} \zeta$|; 
+
+$key = q/{_inline}E=90^circ-zeta_true{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$E=90^\circ-\zeta_{true}$|; 
+
+$key = q/{_inline}83^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$83^\circ$|; 
+
+$key = q/{_inline}0^rmshspace-0.3em.9{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0^{\rm s}\hspace{-0.3em}.9$|; 
+
+$key = q/{_inline}(0leqeleq10){_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$( 0 \leq e \leq 10 )$|; 
+
+$key = q/{_inline}17hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$17\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}0.4,murmm{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0.4\,\mu{\rm m}$|; 
+
+$key = q/{_inline}3^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$3^{\circ}$|; 
+
+$key = q/{_inline}20^rms{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$20^{\rm s}$|; 
+
+$key = q/{_inline}1hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$1\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}zeta=70^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\zeta=70^\circ$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.001{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.001$|; 
+
+$key = q/{_inline}DeltarmT{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\Delta {\rm T}$|; 
+
+$key = q/{_inline}pm{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\pm$|; 
+
+$key = q/{_inline}C_1!=!+50.0{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$C_1\!=\!+50.0$|; 
+
+$key = q/{_inline}l^I!I=90^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$l^{I\!I}=90^{\circ}$|; 
+
+$key = q/{_inline}50^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$50^\circ$|; 
+
+$key = q/{_inline}[,theta,phi~]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\,\theta,\phi~]$|; 
+
+$key = q/{_inline}x!pm!n{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$x\!\pm\!n$|; 
+
+$key = q/{_inline}mu_delta={_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\mu_\delta=$|; 
+
+$key = q/{_inline}3times3{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$3\times3$|; 
+
+$key = q/{_inline}50hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$50\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}1.0,murmm{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$1.0\,\mu{\rm m}$|; 
+
+$key = q/{_inline}92^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$92^\circ$|; 
+
+$key = q/{_inline}18hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$18\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}0.7,murmm{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0.7\,\mu{\rm m}$|; 
+
+$key = q/{_inline}timesn{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\times n$|; 
+
+$key = q/{_inline}rmMJD=(rmJD-2400000.5{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|${\rm MJD} = ({\rm JD} - 2400000.5$|; 
+
+$key = q/{_inline}0^circhspace-0.37em.hspace0.02em5{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0^{\circ}
+ \hspace{-0.37em}.\hspace{0.02em}5$|; 
+
+$key = q/{_inline}tan^-14{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\tan^{-1} 4$|; 
+
+$key = q/{_inline}0^rmshspace-0.3em.01{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0^{\rm s}\hspace{-0.3em}.01$|; 
+
+$key = q/{_inline}100hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$100\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}2hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$2\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}[,xi,eta,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\,\xi,\eta\,]$|; 
+
+$key = q/{_inline}00^h,00^m,00^s.0{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$00^{h}\,00^{m}\,00^{s}.0$|; 
+
+$key = q/{_inline}0!-!pi{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\!-\!\pi$|; 
+
+$key = q/{_inline}280^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$280^\circ$|; 
+
+$key = q/{_inline}beta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\beta$|; 
+
+$key = q/{_inline}0^rmshspace-0.3em.000083{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0^{\rm s}\hspace{-0.3em}.000083$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.00510{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.00510$|; 
+
+$key = q/{_inline}zeta=87^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\zeta = 87^{\circ}$|; 
+
+$key = q/{_inline}90^circ-delta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$90^\circ-\delta$|; 
+
+$key = q/{_inline}2murmm{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$2\mu{\rm m}$|; 
+
+$key = q/{_inline}{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$<{\bf V1}+{\bf D}\gt$|; 
+
+$key = q/{_inline}5hspace-0.05em^'hspace-0.1em'hspace-0.4em.8{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$5\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.8$|; 
+
+$key = q/{_inline}25^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$25^\circ$|; 
+
+$key = q/{_inline}80^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$80^\circ$|; 
+
+$key = q/{_inline}pmpi2{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\pm\pi/2$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.01{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.01$|; 
+
+$key = q/{_inline}rho{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\rho$|; 
+
+$key = q/{_inline}152pi=2.3873241463784300365{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$15/{2\pi} = 2.3873241463784300365$|; 
+
+$key = q/{_inline}2pi{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$2\pi$|; 
+
+$key = q/{_inline}43hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$43\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}sim20{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\sim20$|; 
+
+$key = q/{_inline}[,alpha,delta,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\,\alpha,\delta\,]$|; 
+
+$key = q/{_inline}dotalpha{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\dot{\alpha}$|; 
+
+$key = q/{_inline}0^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0^{\circ}$|; 
+
+$key = q/{_inline}88^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$88^\circ$|; 
+
+$key = q/{_inline}bfV1{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|${\bf V1}$|; 
+
+$key = q/{_inline}tan^-11{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\tan^{-1} 1$|; 
+
+$key = q/{_inline}0^circhspace-0.37em.hspace0.02em2{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0^{\circ}
+ \hspace{-0.37em}.\hspace{0.02em}2$|; 
+
+$key = q/{_inline}-19^circ,44^',37^''.1{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$-19^{\circ}\,44^{'}\,37^{''}.1$|; 
+
+$key = q/{_inline}cdot~[diag(1{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\cdot~[diag(1/$|; 
+
+$key = q/{_inline}alpha=0{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\alpha=0$|; 
+
+$key = q/{_inline}~cosalpha)sindelta-{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$~\cos \alpha ) \sin \delta
+ -$|; 
+
+$key = q/{_inline}zeta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\zeta$|; 
+
+$key = q/{_inline}3hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$3\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}tanzeta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\tan \zeta$|; 
+
+$key = q/{_inline}0^rmshspace-0.3em.000105{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0^{\rm s}\hspace{-0.3em}.000105$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.4{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.4$|; 
+
+$key = q/{_inline}~sinalpha)secdelta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$~\sin \alpha ) \sec \delta $|; 
+
+$key = q/{_inline}-1^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$-1^{\circ}$|; 
+
+$key = q/{_inline}times10^-5{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\times10^{-5}$|; 
+
+$key = q/{_inline}C_4!=!+25.0{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$C_4\!=\!+25.0$|; 
+
+$key = q/{_inline}60hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$60\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}76^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$76^\circ$|; 
+
+$key = q/{_inline}x'''=+x''cosrmPERP2+y''sinrmPERP2{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$x''' = + x'' \cos {\rm PERP}/2 + y'' \sin {\rm PERP}/2$|; 
+
+$key = q/{_inline}deltaE{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\delta E$|; 
+
+$key = q/{_inline}times2{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\times 2 / $|; 
+
+$key = q/{_inline}zeta_obs{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\zeta_{obs}$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.1{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.1$|; 
+
+$key = q/{_inline}4hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$4\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}0^rmshspace-0.3em.0016{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0^{\rm s}\hspace{-0.3em}.0016$|; 
+
+$key = q/{_inline}zeta=84^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\zeta=84^\circ$|; 
+
+$key = q/{_inline}100mum{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$100\mu m$|; 
+
+$key = q/{_inline}sigma=5.0{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\sigma=5.0$|; 
+
+$key = q/{_inline}circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|${\circ}$|; 
+
+$key = q/{_inline}[x_1,y_1,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[x_{1},y_{1}\,]$|; 
+
+$key = q/{_inline}L=varpi+M{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$L = \varpi + M$|; 
+
+$key = q/{_inline}16^h,09^m,55^s.13{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$16^{h}\,09^{m}\,55^{s}.13$|; 
+
+$key = q/{_inline}times(2pi86400)^2times(3602pi){_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\times (2\pi/86400)^2 \times (360/2\pi)$|; 
+
+$key = q/{_inline}xi,eta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\xi,\eta$|; 
+
+$key = q/{_inline}Deltazeta=atanzeta+btan^3zeta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$|; 
+
+$key = q/{_inline}23^circhspace-0.37em.hspace0.02em5{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$23^{\circ}
+ \hspace{-0.37em}.\hspace{0.02em}5$|; 
+
+$key = q/{_inline}rightarrow{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\rightarrow$|; 
+
+$key = q/{_inline}pmn.nxpmn{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\pm n.n x \pm n$|; 
+
+$key = q/{_inline}cdot{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\cdot$|; 
+
+$key = q/{_inline}85^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$85^\circ$|; 
+
+$key = q/{_inline}45hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$45\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}pm3{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\pm3$|; 
+
+$key = q/{_inline}0^rmshspace-0.3em.0013{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0^{\rm s}\hspace{-0.3em}.0013$|; 
+
+$key = q/{_inline}zeta<70^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\zeta<70^{\circ}$|; 
+
+$key = q/{_inline}tan^5{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\tan^5$|; 
+
+$key = q/{_inline}5hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$5\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}~sinalpha+{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$~\sin \alpha
+ +$|; 
+
+$key = q/{_inline}620hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$620\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}ntimesn{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$n \times n$|; 
+
+$key = q/{_inline}Deltazeta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\Delta \zeta$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.00125{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.00125$|; 
+
+$key = q/{_inline}10^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$10^{\circ}$|; 
+
+$key = q/{_inline}varpi{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\varpi$|; 
+
+$key = q/{_inline}lambda,beta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\lambda,\beta$|; 
+
+$key = q/{_inline}0.3,murmm{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0.3\,\mu{\rm m}$|; 
+
+$key = q/{_inline}pm100{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\pm100$|; 
+
+$key = q/{_inline}1900hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$1900\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}times10^-10{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\times10^{-10}$|; 
+
+$key = q/{_inline}M_odot=1{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$M_\odot = 1$|; 
+
+$key = q/{_inline}Deltaalpha{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\Delta\alpha$|; 
+
+$key = q/{displaymath}Deltazeta=Fleft(frac0^circhspace-0.37em.hspace0.02em55445-0^circhsp-0.37em.hspace0.02em00202E^21+0.28385E+0.02390E^2right){displaymath}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|\begin{displaymath}
+\Delta \zeta = F \left(
+ \frac{0^\circ\hspace{-0.37em}.\hspa...
+ ...hspace{0.02em}00202 E^2}
+ {1 + 0.28385 E +0.02390 E^2} \right) \end{displaymath}|; 
+
+$key = q/{_inline}times(2pi86400)times(3602pi){_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\times (2\pi/86400) \times (360/2\pi)$|; 
+
+$key = q/{_inline}zeta<45^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\zeta<45^{\circ}$|; 
+
+$key = q/{_inline}[,Az,El~]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\,Az,El~]$|; 
+
+$key = q/{_inline}6hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$6\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}^Tcdot{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$^{T}\cdot$|; 
+
+$key = q/{_inline}3hspace-0.05em^'hspace-0.1em'hspace-0.4em.2{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$3\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.2$|; 
+
+$key = q/{_inline}[x_p,y_p,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[x_{p},y_{p}\,]$|; 
+
+$key = q/{_inline}[x_2,y_2,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[x_{2},y_{2}\,]$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.00158{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.00158$|; 
+
+$key = q/{_inline}x_2=+x'''cosrmORIENT+y'''sinrmORIENT{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$x_{2} = + x''' \cos {\rm ORIENT} +
+ y''' \sin {\rm ORIENT}$|; 
+
+$key = q/{_inline}61^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$61^\circ$|; 
+
+$key = q/{_inline}y_2=-x'''sinrmORIENT+y'''cosrmORIENT{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$y_{2} = - x''' \sin {\rm ORIENT} +
+ y''' \cos {\rm ORIENT}$|; 
+
+$key = q/{_inline}82^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$82^\circ$|; 
+
+$key = q/{_inline}0!-!2pi{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\!-\!2\pi$|; 
+
+$key = q/{_inline}71hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$71\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.05{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.05$|; 
+
+$key = q/{_inline}sqrt1-left|mboxbfvright|^2{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\sqrt{1-\left\vert\mbox{\bf v}\right\vert^2}$|; 
+
+$key = q/{_inline}murmm{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\mu{\rm m}$|; 
+
+$key = q/{_inline}alpha,deltarightarrowlambda,beta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\alpha,\delta\rightarrow\lambda,\beta$|; 
+
+$key = q/{displaymath}h=theta-alpha{displaymath}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|\begin{displaymath}
+h = \theta - \alpha \end{displaymath}|; 
+
+$key = q/{_inline}2^circhspace-0.37em.hspace0.02em4{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$2^{\circ}
+ \hspace{-0.37em}.\hspace{0.02em}4$|; 
+
+$key = q/{_inline}1hspace-0.05em^'hspace-0.1em'hspace-0.4em.85{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.85$|; 
+
+$key = q/{_inline}+pi2{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$+\pi/2$|; 
+
+$key = q/{_inline}sim!76^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\sim\!76^\circ$|; 
+
+$key = q/{_inline}[,x,y,z,dotx,doty,dotz,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$|; 
+
+$key = q/{_inline}6.5^circKkm^-1{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$6.5^\circ K km^{-1}$|; 
+
+$key = q/{_inline}270^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$270^\circ$|; 
+
+$key = q/{_inline}7hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$7\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}tandeltaEapproxdeltaE{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|${\tan \delta E\approx\delta E}$|; 
+
+$key = q/{_inline}cdots{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\cdots$|; 
+
+$key = q/{_inline}1hspace-0.05em^'hspace-0.1em'hspace-0.4em.5{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.8{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.8$|; 
+
+$key = q/{_inline}(1-deltaE^22){_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$(1-\delta E^2 /2)$|; 
+
+$key = q/{_inline}mu{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\mu$|; 
+
+$key = q/{_inline}15^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$15^\circ$|; 
+
+$key = q/{_inline}[Deltax,Deltay,Deltaz,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\Delta x, \Delta y, \Delta z\,]$|; 
+
+$key = q/{_inline}70^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$70^\circ$|; 
+
+$key = q/{_inline}DeltarmT=rmET-rmUT{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\Delta {\rm T} = {\rm ET} - {\rm UT}$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.02{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.02$|; 
+
+$key = q/{_inline}91^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$91^\circ$|; 
+
+$key = q/{_inline}Delta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\Delta$|; 
+
+$key = q/{_inline}l^I!I=53^circ,b^I!I=+25^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$l^{I\!I}=53^{\circ},b^{I\!I}=+25^{\circ}$|; 
+
+$key = q/{_inline}y''=y'rmYS{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$y'' = y' {\rm YS}$|; 
+
+$key = q/{_inline}bfV2{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|${\bf V2}$|; 
+
+$key = q/{_inline}[,0,2pi,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\,0,2\pi\,]$|; 
+
+$key = q/{_inline}mgeqn{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$m \geq n$|; 
+
+$key = q/{_inline}360^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$360^{\circ}$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.5{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$|; 
+
+$key = q/{_inline}alpha,delta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\alpha,\delta$|; 
+
+$key = q/{_inline}8hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$8\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}deltaEsinE{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\delta E \sin E$|; 
+
+$key = q/{_inline}alpha={_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\alpha=$|; 
+
+$key = q/{_inline}4hspace-0.05em^'hspace-0.1em'hspace-0.4em.9{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$4\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.9$|; 
+
+$key = q/{_inline}45^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$45^\circ$|; 
+
+$key = q/{_inline}3200hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$3200\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}equiv{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\equiv$|; 
+
+$key = q/{_inline}delta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\delta$|; 
+
+$key = q/{_inline}-26hspace-0.05em^'hspace-0.1em'hspace-0.4em.00{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$-26\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.00$|; 
+
+$key = q/{_inline}psi{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\psi$|; 
+
+$key = q/{_inline}-10^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$-10^\circ$|; 
+
+$key = q/{_inline}81hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$81\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}l^I!I=137.37{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$l^{I\!I}=137.37$|; 
+
+$key = q/{_inline}87^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$87^\circ$|; 
+
+$key = q/{_inline}(mu-1){_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$(\mu-1)$|; 
+
+$key = q/{_inline}23^h,59^m,60^s.0{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$23^{h}\,59^{m}\,60^{s}.0$|; 
+
+$key = q/{_inline}[,x,y,z,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\,x,y,z\,]$|; 
+
+$key = q/{_inline}(1-bfDcdotbfV1){_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$(1-{\bf D}\cdot{\bf V1})$|; 
+
+$key = q/{_inline}24^h,59^m,59^s.999{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$24^{h}\,59^{m}\,59^{s}.999$|; 
+
+$key = q/{_inline}7^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$7^\circ$|; 
+
+$key = q/{_inline}220hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$220\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.2{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.2$|; 
+
+$key = q/{_inline}dotalphacosdelta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\dot{\alpha}\cos\delta$|; 
+
+$key = q/{_inline}9hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$9\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}h,delta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$h,\delta$|; 
+
+$key = q/{_inline}beta~(=H_0r_0){_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\beta~(=H_0/r_0)$|; 
+
+$key = q/{_inline}0^rmshspace-0.3em.029032{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0^{\rm s}\hspace{-0.3em}.029032$|; 
+
+$key = q/{_inline}32^rmshspace-0.3em.184{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$32^{\rm s}\hspace{-0.3em}.184$|; 
+
+$key = q/{_inline}10hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$10\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}alpha{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\alpha$|; 
+
+$key = q/{_inline}nu=p_wp_s{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\nu=p_w/p_s$|; 
+
+$key = q/{_inline}0-2pi{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0-2\pi$|; 
+
+$key = q/{_inline}[,dotx,doty,dotz,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\,\dot{x},\dot{y},\dot{z}\,]$|; 
+
+$key = q/{_inline}75^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$75^\circ$|; 
+
+$key = q/{_inline}100,murmm{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$100\,\mu{\rm m}$|; 
+
+$key = q/{_inline}x''=x'rmXS{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$x'' = x' {\rm XS}$|; 
+
+$key = q/{_inline}[,x,y,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\,x,y\,]$|; 
+
+$key = q/{_inline}Deltapsi,cos,epsilon{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\Delta\psi\,cos\,\epsilon$|; 
+
+$key = q/{_inline}bfrmM{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|${\bf \rm M}$|; 
+
+$key = q/{_inline}zeta<60^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\zeta<60^{\circ}$|; 
+
+$key = q/{_inline}Deltapsicosepsilon{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\Delta\psi\cos\epsilon$|; 
+
+$key = q/{_inline}zeta=83^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\zeta=83^\circ$|; 
+
+$key = q/{_inline}mtimesn{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$m \times n$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.062{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.062$|; 
+
+$key = q/{_inline}12pi=0.1591549430918953358{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$1/{2 \pi} = 0.1591549430918953358$|; 
+
+$key = q/{_inline}42^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$42^{\circ}$|; 
+
+$key = q/{_inline}1000hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$1000\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}11hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$11\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+$key = q/{_inline}29^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$29^\circ$|; 
+
+$key = q/{_inline}84^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$84^\circ$|; 
+
+$key = q/{_inline}[,l^I!I,b^I!I,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\,l^{I\!I},b^{I\!I}\,]$|; 
+
+$key = q/{_inline}rmbfv_0{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|${\rm \bf v}_0$|; 
+
+$key = q/{_inline}mu_alpha=-{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\mu_\alpha=-$|; 
+
+$key = q/{_inline}w_iigeq0{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$w_{ii} \geq 0$|; 
+
+$key = q/{_inline}sim76^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\sim 76^\circ$|; 
+
+$key = q/{_inline}bfM{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|${\bf M}$|; 
+
+$key = q/{_inline}pmpi{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\pm \pi$|; 
+
+$key = q/{_inline}23^rmh,59^rmm,59^rms{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$23^{\rm h}\,59^{\rm m}\,59^{\rm s}$|; 
+
+$key = q/{_inline}30^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$30^\circ$|; 
+
+$key = q/{_inline}rmbfr_0.rmbfv_0{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|${\rm \bf r}_0.{\rm \bf v}_0$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.00066{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.00066$|; 
+
+$key = q/{_inline}-0^rmshspace-0.3em.0312{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$-0^{\rm s}\hspace{-0.3em}.0312$|; 
+
+$key = q/{_inline}delta={_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\delta=$|; 
+
+$key = q/{_inline}Omega{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$\Omega$|; 
+
+$key = q/{_inline}93^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$93^\circ$|; 
+
+$key = q/{_inline}+20^circ{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$+20^\circ$|; 
+
+$key = q/{_inline}0hspace-0.05em^'hspace-0.1em'hspace-0.4em.50{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.50$|; 
+
+$key = q/{_inline}~cosdelta{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$~\cos \delta $|; 
+
+$key = q/{_inline}[,h,delta,]{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$[\,h,\delta\,]$|; 
+
+$key = q/{_inline}92hspace-0.05em^'hspace-0.1em'{_inline}MSF=1.5;AAT;/;
+$cached_env_img{$key} = q|$92\hspace{-0.05em}^{'\hspace{-0.1em}'}$|; 
+
+1;
+
diff --git a/src/slalib/sun67.htx/images.tex b/src/slalib/sun67.htx/images.tex
new file mode 100644
index 0000000..8881d62
--- /dev/null
+++ b/src/slalib/sun67.htx/images.tex
@@ -0,0 +1,2852 @@
+\batchmode
+\documentclass[11pt,twoside]{article}
+\makeatletter
+\input{/home/user1/dec/ptw/hypertext/sun67_htx/html.sty}
+\input{/home/user1/dec/ptw/hypertext/sun67_htx/star2html.sty} 
+\setcounter{tocdepth}{2}
+\pagestyle{myheadings}
+
+\markright{SUN/67.45}
+
+\setlength {\textwidth}{160mm}
+        
+\setlength {\textheight}{230mm}
+       
+\setlength {\topmargin}{-5mm}
+         
+
+\setlength {\textwidth}{160mm}
+ 
+
+\setlength {\textheight}{230mm}
+ 
+
+\setlength {\topmargin}{-2mm}
+ 
+
+\setlength {\oddsidemargin}{0mm}
+ 
+
+\setlength {\evensidemargin}{0mm}
+ 
+
+\setlength {\parindent}{0mm}
+ 
+
+\setlength {\parskip}{\medskipamount}
+ 
+
+\setlength {\unitlength}{1mm}
+ 
+
+\latex{\renewcommand {\_}{{\tt\symbol{95}}}}
+
+\newlength {\oldspacing}
+ 
+
+\newcommand{\stardoccategory}  {Starlink User Note}
+
+\newcommand{\stardocinitials}  {SUN}
+
+\newcommand{\stardocsource}    {sun67.45}
+
+\newcommand{\stardocnumber}    {67.45}
+
+\newcommand{\stardocauthors}   {P.\,T.\,Wallace}
+
+\newcommand{\stardocdate}      {12 October 1999}
+
+\newcommand{\stardoctitle}     {SLALIB --- Positional Astronomy Library}
+
+\newcommand{\stardocversion}   {2.4-0}
+
+\newcommand{\stardocmanual}    {Programmer's Manual}
+
+\newcommand{\stardocname}{\stardocinitials /\stardocnumber}
+
+\newcommand{\htmladdnormallinkfoot}[2]{#1\footnote{#2}}
+
+\newcommand{\htmladdnormallink}[2]{#1}
+
+\newcommand{\htmladdimg}[1]{}
+
+\newenvironment{latexonly}{}{}
+
+\newcommand{\hyperref}[4]{#2\ref{#4}#3}
+
+\newcommand{\htmlref}[2]{#1}
+
+\newcommand{\htmlimage}[1]{}
+
+\newcommand{\htmladdtonavigation}[1]{}
+
+\newcommand{\xref}[3]{#1}
+
+\newcommand{\xlabel}[1]{}
+
+\newcommand{\latextohtml}{{\bf LaTeX}{2}{\tt{HTML}}}
+
+\newcommand{\latex}[1]{#1}
+
+\newcommand{\setunderscore}{\renewcommand {\_}{{\tt\symbol{95}}}}
+
+\newcommand{\latexonlytoc}[0]{\tableofcontents}
+
+\newcommand{\nroutines} {183}
+
+\newcommand{\radec}     {$[\,\alpha,\delta\,]$}
+
+\newcommand{\hadec}     {$[\,h,\delta\,]$}
+
+\newcommand{\xieta}     {$[\,\xi,\eta\,]$}
+
+\newcommand{\azel}      {$[\,Az,El~]$}
+
+\newcommand{\ecl}       {$[\,\lambda,\beta~]$}
+
+\newcommand{\gal}       {$[\,l^{I\!I},b^{I\!I}\,]$}
+
+\newcommand{\xy}        {$[\,x,y\,]$}
+
+\newcommand{\xyz}       {$[\,x,y,z\,]$}
+
+\newcommand{\xyzd}      {$[\,\dot{x},\dot{y},\dot{z}\,]$}
+
+\newcommand{\xyzxyzd}   {$[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$}
+
+\newcommand{\degree}[2] {$#1^{\circ}
+                        \hspace{-0.37em}.\hspace{0.02em}#2$}
+
+\newcommand{\arcsec}[2] {\arcseci{#1}$\hspace{-0.4em}.#2$}
+
+\newcommand{\arcseci}[1] {$#1\hspace{-0.05em}$\raisebox{-0.5ex}
+                         {$^{'\hspace{-0.1em}'}$}}
+
+\renewcommand{\arcseci}[1] {$#1\hspace{-0.05em}^{'\hspace{-0.1em}'}$}
+
+\newcommand{\dms}[4]    {$#1^{\circ}\,#2\raisebox{-0.5ex}
+                        {$^{'}$}\,$\arcsec{#3}{#4}}
+
+\renewcommand{\dms}[4]{$#1^{\circ}\,#2^{'}\,#3^{''}.#4$}
+
+\newcommand{\tseci}[1]   {$#1$\mbox{$^{\rm s}$}}
+
+\newcommand{\tsec}[2]    {\tseci{#1}$\hspace{-0.3em}.#2$}
+
+\renewcommand{\tsec}[2] {$#1^{\rm s}\hspace{-0.3em}.#2$}
+
+\newcommand{\hms}[4]    {$#1^{\rm h}\,#2^{\rm m}\,$\tsec{#3}{#4}}
+
+\renewcommand{\hms}[4] {$#1^{h}\,#2^{m}\,#3^{s}.#4$}
+
+\newcommand{\callhead}[1]{\goodbreak\vspace{\bigskipamount}{\large\bf{#1}}}
+
+\newenvironment{callset}{\begin{list}{}{\setlength{\leftmargin}{2cm}
+                             \setlength{\parsep}{\smallskipamount}}}{\end{list}}
+
+\newcommand{\subp}[1]{\item\hspace{-1cm}#1\\}
+
+\newcommand{\subq}[2]{\item\hspace{-1cm}#1\\\hspace*{-1cm}#2\\}
+
+\newcommand{\name}[1]{\mbox{#1}}
+
+\newcommand{\fortvar}[1]{\mbox{\em #1}}
+
+\newcommand{\routine}[3]
+{\hbadness=10000
+  \vbox
+  {
+    \rule{\textwidth}{0.3mm}\\    {\Large {\bf #1} \hfill #2 \hfill {\bf #1}}\\    \setlength{\oldspacing}{\topsep}
+    \setlength{\topsep}{0.3ex}
+    \begin{description}
+      #3
+    \end{description}
+    \setlength{\topsep}{\oldspacing}
+  }
+}
+
+\renewcommand{\routine}[3]
+   {
+      \subsection{#1\xlabel{#1} - #2\label{#1}}
+       \begin{description}
+         #3
+       \end{description}
+   }
+
+\newcommand{\action}[1]
+{\item[ACTION]: #1}
+
+\newcommand{\call}[1]
+{\item[CALL]: \hspace{0.4em}{\tt #1}}
+
+\renewcommand{\call}[1]
+   {
+    \item[CALL:] {\tt #1}
+   }
+
+\newcommand{\args}[2]
+{
+  \goodbreak
+  \setlength{\oldspacing}{\topsep}
+  \setlength{\topsep}{0.3ex}
+  \begin{description}
+  \item[#1]:\\[1.5ex]
+    \begin{tabular}{p{7em}p{6em}p{22em}}
+      #2
+    \end{tabular}
+  \end{description}
+  \setlength{\topsep}{\oldspacing}
+}
+
+\renewcommand{\args}[2]
+   {
+     \begin{description}
+        \item[#1:]\\        \begin{tabular}{p{7em}p{6em}l}
+           #2
+        \end{tabular}
+     \end{description}
+   }
+
+\newcommand{\spec}[3]
+{
+  {\em {#1}} & {\bf \mbox{#2}} & {#3}
+}
+
+\newcommand{\specel}[2]
+{
+  \multicolumn{1}{c}{#1} & {} & {#2}
+}
+
+\newcommand{\anote}[1]
+{
+  \goodbreak
+  \setlength{\oldspacing}{\topsep}
+  \setlength{\topsep}{0.3ex}
+  \begin{description}
+    \item[NOTE]:
+        #1
+  \end{description}
+  \setlength{\topsep}{\oldspacing}
+}
+
+\renewcommand{\anote}[1]
+   {
+      \begin{description}
+      \item[NOTE:]
+          #1
+      \end{description}
+   }
+
+\newcommand{\notes}[1]
+{
+  \goodbreak
+  \setlength{\oldspacing}{\topsep}
+  \setlength{\topsep}{0.3ex}
+  \begin{description}
+    \item[NOTES]:
+        #1
+  \end{description}
+  \setlength{\topsep}{\oldspacing}
+}
+
+\renewcommand{\notes}[1]
+   {
+      \begin{description}
+         \item[NOTES:]
+            #1
+      \end{description}
+   }
+
+\newcommand{\aref}[1]
+{
+  \goodbreak
+  \setlength{\oldspacing}{\topsep}
+  \setlength{\topsep}{0.3ex}
+  \begin{description}
+    \item[REFERENCE]:
+        #1
+  \end{description}
+  \setlength{\topsep}{\oldspacing}
+}
+
+\newcommand{\refs}[1]
+{
+  \goodbreak
+  \setlength{\oldspacing}{\topsep}
+  \setlength{\topsep}{0.3ex}
+  \begin{description}
+    \item[REFERENCES]:
+        #1
+  \end{description}
+  \setlength{\topsep}{\oldspacing}
+}
+
+\newcommand{\exampleitem}{\item [EXAMPLE]:}
+
+\renewcommand{\exampleitem}{\item [EXAMPLE:]}
+
+\renewcommand{\thepage}{\roman{page}}
+
+\renewcommand{\latexonlytoc}[0]{}
+
+\renewcommand{\thepage}{\arabic{page}}
+\input{/home/user1/dec/ptw/hypertext/sun67_htx/star2html.sty}
+
+
+\makeatother
+\ifx\AtBeginDocument\undefined \newcommand{\AtBeginDocument}[1]{}\fi
+\newenvironment{tex2html_wrap}{}{}
+\newbox\sizebox
+\setlength{\hoffset}{0pt}\setlength{\voffset}{0pt}
+\addtolength{\textheight}{\footskip}\setlength{\footskip}{0pt}
+\addtolength{\textheight}{\topmargin}\setlength{\topmargin}{0pt}
+\addtolength{\textheight}{\headheight}\setlength{\headheight}{0pt}
+\addtolength{\textheight}{\headsep}\setlength{\headsep}{0pt}
+\setlength{\textwidth}{451pt}
+\newwrite\lthtmlwrite
+\makeatletter
+\let\realnormalsize=\normalsize
+\topskip=0pt
+\def\preveqno{}\let\real@float=\@float \let\realend@float=\end@float
+\def\@float{\let\@savefreelist\@freelist\real@float}
+\def\end@float{\realend@float\global\let\@freelist\@savefreelist}
+\let\real@dbflt=\@dbflt \let\end@dblfloat=\end@float
+\let\@largefloatcheck=\relax
+\def\@dbflt{\let\@savefreelist\@freelist\real@dbflt}
+\def\adjustnormalsize{\def\normalsize{\mathsurround=0pt \realnormalsize\parindent=0pt\abovedisplayskip=0pt\belowdisplayskip=0pt}\normalsize}
+\def\lthtmltypeout#1{{\let\protect\string\immediate\write\lthtmlwrite{#1}}}%
+\newcommand\lthtmlhboxmathA{\adjustnormalsize\setbox\sizebox=\hbox\bgroup}%
+\newcommand\lthtmlvboxmathA{\adjustnormalsize\setbox\sizebox=\vbox\bgroup%
+ \let\ifinner=\iffalse }%
+\newcommand\lthtmlboxmathZ{\@next\next\@currlist{}{\def\next{\voidb@x}}%
+ \expandafter\box\next\egroup}%
+\newcommand\lthtmlmathtype[1]{\def\lthtmlmathenv{#1}}%
+\newcommand\lthtmllogmath{\lthtmltypeout{l2hSize %
+:\lthtmlmathenv:\the\ht\sizebox::\the\dp\sizebox::\the\wd\sizebox.\preveqno}}%
+\newcommand\lthtmlfigureA[1]{\let\@savefreelist\@freelist
+       \lthtmlmathtype{#1}\lthtmlvboxmathA}%
+\newcommand\lthtmlfigureZ{\lthtmlboxmathZ\lthtmllogmath\copy\sizebox
+       \global\let\@freelist\@savefreelist}%
+\newcommand\lthtmldisplayA[1]{\lthtmlmathtype{#1}\lthtmlvboxmathA}%
+\newcommand\lthtmldisplayB[1]{\edef\preveqno{(\theequation)}%
+  \lthtmldisplayA{#1}\let\@eqnnum\relax}%
+\newcommand\lthtmldisplayZ{\lthtmlboxmathZ\lthtmllogmath\lthtmlsetmath}%
+\newcommand\lthtmlinlinemathA[1]{\lthtmlmathtype{#1}\lthtmlhboxmathA  \vrule height1.5ex width0pt }%
+\newcommand\lthtmlinlinemathZ{\egroup\expandafter\ifdim\dp\sizebox>0pt %
+  \expandafter\centerinlinemath\fi\lthtmllogmath\lthtmlsetmath}
+\def\lthtmlsetmath{\hbox{\vrule width.5pt\vtop{\vbox{%
+  \kern.5pt\kern0.75 pt\hbox{\hglue.5pt\copy\sizebox\hglue0.75 pt}\kern.5pt%
+  \ifdim\dp\sizebox>0pt\kern0.75 pt\fi}%
+  \ifdim\hsize>\wd\sizebox \hrule depth1pt\fi}}}
+\def\centerinlinemath{\dimen1=\ht\sizebox
+  \ifdim\dimen1<\dp\sizebox \ht\sizebox=\dp\sizebox
+  \else \dp\sizebox=\ht\sizebox \fi}
+
+\def\lthtmlcheckvsize{\ifdim\ht\sizebox<\vsize\expandafter\vfill
+  \else\expandafter\vss\fi}%
+\makeatletter
+
+
+\begin{document}
+\pagestyle{empty}\thispagestyle{empty}%
+\lthtmltypeout{latex2htmlLength hsize=\the\hsize}%
+\lthtmltypeout{latex2htmlLength vsize=\the\vsize}%
+\lthtmltypeout{latex2htmlLength hoffset=\the\hoffset}%
+\lthtmltypeout{latex2htmlLength voffset=\the\voffset}%
+\lthtmltypeout{latex2htmlLength topmargin=\the\topmargin}%
+\lthtmltypeout{latex2htmlLength topskip=\the\topskip}%
+\lthtmltypeout{latex2htmlLength headheight=\the\headheight}%
+\lthtmltypeout{latex2htmlLength headsep=\the\headsep}%
+\lthtmltypeout{latex2htmlLength parskip=\the\parskip}%
+\lthtmltypeout{latex2htmlLength oddsidemargin=\the\oddsidemargin}%
+\makeatletter
+\if@twoside\lthtmltypeout{latex2htmlLength evensidemargin=\the\evensidemargin}%
+\else\lthtmltypeout{latex2htmlLength evensidemargin=\the\oddsidemargin}\fi%
+\makeatother
+\setcounter{tocdepth}{2}
+\stepcounter{section}
+\setcounter{page}{1}
+\stepcounter{section}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline417}%
+$0^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline419}%
+$-1^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{section}
+\stepcounter{section}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline528}%
+$[\,\alpha,\delta\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+
+\setlength {\oldspacing}{\topsep}
+%
+
+
+\setlength {\topsep}{0.3ex}
+%
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline786}%
+$12^{\circ}\,34^{'}\,56^{''}.7$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+
+\setlength {\topsep}{\oldspacing}
+%
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline788}%
+${\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline802}%
+$1/{2 \pi} = 0.1591549430918953358$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline806}%
+$15/{2\pi} = 2.3873241463784300365$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline893}%
+$\zeta = 87^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+
+\setlength {\parskip}{\medskipamount}
+%
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1090}%
+$\times 360/2\pi$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1092}%
+$\rightarrow$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1094}%
+$\times (2\pi/86400) \times (360/2\pi)$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1098}%
+$\times (2\pi/86400)^2 \times (360/2\pi)$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1102}%
+$[\,0,2\pi\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1104}%
+$+\pi/2$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1106}%
+$\pm\pi/2$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1373}%
+$\times 2 / $%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1375}%
+$\sqrt{1-\left|\mbox{\bf v}\right|^2}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1377}%
+$3\times3$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1701}%
+$\Delta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1705}%
+$[\,x,y\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1707}%
+$\mu{\rm m}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1709}%
+$90^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1711}%
+$\delta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1713}%
+$\alpha$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1715}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.1$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1717}%
+$\zeta<70^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1721}%
+$3^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1725}%
+$[\,Az,El~]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1729}%
+$[\,h,\delta\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1745}%
+$\pm$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1747}%
+$0^{\rm s}\hspace{-0.3em}.9$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline1749}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.3$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline2524}%
+$76^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline2704}%
+$0.7\,\mu{\rm m}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline2706}%
+$0.4\,\mu{\rm m}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline2708}%
+$29^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline2710}%
+$290^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline2712}%
+$0.0065^\circ m^{-1}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline2716}%
+$15^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline2718}%
+$1.0\,\mu{\rm m}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline2720}%
+$0.3\,\mu{\rm m}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline2722}%
+$20\,\mu{\rm m}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline2724}%
+$11\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline2726}%
+$100\,\mu{\rm m}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline2728}%
+$(\mu-1)$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline2867}%
+$[\lambda,\phi]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline2869}%
+$\pm \pi$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline3016}%
+$\cdots$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline3160}%
+$0^{\rm h}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline3380}%
+$[\,x,y,z\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline3493}%
+$[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline4117}%
+$2\pi$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline4123}%
+$360^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+
+\setlength {\oldspacing}{\topsep}
+%
+
+
+\setlength {\topsep}{0.3ex}
+%
+
+
+\setlength {\topsep}{\oldspacing}
+%
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline5205}%
+$23^{\rm h}\,59^{\rm m}\,59^{\rm s}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline5954}%
+$[x_{1},y_{1}\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline5956}%
+$[x_{2},y_{2}\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline5962}%
+$x' = x_{1} + {\rm XZ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline5964}%
+$y' = y_{1} + {\rm YZ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline5966}%
+$x'' = x' {\rm XS}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline5968}%
+$y'' = y' {\rm YS}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline5970}%
+$x''' = + x'' \cos {\rm PERP}/2 + y'' \sin {\rm PERP}/2$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline5972}%
+$y''' = + x'' \sin {\rm PERP}/2 + y'' \cos {\rm PERP}/2$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline5974}%
+$x_{2} = + x''' \cos {\rm ORIENT} +
+                          y''' \sin {\rm ORIENT}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline5976}%
+$y_{2} = - x''' \sin {\rm ORIENT} +
+                          y''' \cos {\rm ORIENT}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline6230}%
+$h,\delta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline6232}%
+$0\!-\!2\pi$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline6347}%
+$\equiv123$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline6475}%
+$\pm n.n x \pm n$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline6491}%
+$x\!\pm\!n$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline6713}%
+$^{T}\cdot$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline6717}%
+${\bf \rm M}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline7186}%
+$\cdot$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline7188}%
+$n \times n$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline7358}%
+$10\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline7360}%
+$3\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline7362}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.2$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline7364}%
+$3\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.7$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline7366}%
+$2\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.3$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline7368}%
+$18\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline7370}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.50$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline7374}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.24$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline7376}%
+$30\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline7378}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline7465}%
+$\times$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline8210}%
+$[\,\xi,\eta\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline8382}%
+$20^{\rm s}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline8384}%
+$30^{\rm m}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline8386}%
+$-26\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.00$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline8848}%
+$\alpha=0$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline8993}%
+$\xi,\eta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline8995}%
+$\alpha,\delta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline9003}%
+$\xi$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline9812}%
+$\times10^{-5}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline9814}%
+$\times10^{-10}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline9967}%
+$\alpha,\delta\rightarrow\lambda,\beta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline10116}%
+$0^{\rm s}\hspace{-0.3em}.03$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline10118}%
+$0^{\rm s}\hspace{-0.3em}.01$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline10191}%
+$[\,l^{I\!I},b^{I\!I}\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline10601}%
+$\Omega$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline10603}%
+$\varpi$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline10605}%
+$\omega$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline10625}%
+${\rm \bf r}_0$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline10627}%
+${\rm \bf v}_0$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline10629}%
+${\rm \bf r}_0.{\rm \bf v}_0$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline10633}%
+$\psi$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline10663}%
+$( 0 \leq e < 1 )$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline10697}%
+$( 0 \leq e \leq 10 )$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline11178}%
+$\Delta\psi\,cos\,\epsilon$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline11337}%
+$[\Delta x, \Delta y, \Delta z\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline11339}%
+$20\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.49552$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline11594}%
+$[\,\dot{x},\dot{y},\dot{z}\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline11608}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.001$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline11828}%
+$[x_{m},y_{m}\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline11830}%
+$[x_{e},y_{e}\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline12099}%
+$\dot{\alpha}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline12101}%
+$\dot{\alpha}\cos\delta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline12103}%
+$10^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline12105}%
+$\Delta\alpha$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline13294}%
+$l^{I\!I}=137.37$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline13534}%
+$1.0027379\cdots$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline13611}%
+$[\,0,\,1\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline14280}%
+${\bf M}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline14410}%
+$\pm n$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline15250}%
+$920\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline15252}%
+$1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.85$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline15578}%
+$14\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline15582}%
+$9\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline16974}%
+$\rho = r (1 + c r^{2})$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline16980}%
+$\rho$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+
+\setlength {\parskip}{\medskipamount}
+%
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline19044}%
+$4\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline19046}%
+$5\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline19048}%
+$6\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline19050}%
+$17\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline19052}%
+$71\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline19054}%
+$81\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline19056}%
+$86\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline19060}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.6$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline19064}%
+${\rm MJD} = ({\rm JD} - 2400000.5$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline19834}%
+$270^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline20108}%
+$1\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline20114}%
+$100\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline20116}%
+$1000\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline20952}%
+$0-2\pi$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline21527}%
+$[x_{p},y_{p}\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline21604}%
+$0 \leq x < 1$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline21862}%
+$\mu$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline21866}%
+$\pm3$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22333}%
+$\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22335}%
+$\zeta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22337}%
+$\Delta \zeta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22343}%
+$\tan \zeta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22345}%
+$\tan^{3} \zeta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22353}%
+$\tan^{-1} 1$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22355}%
+$45^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22357}%
+$\tan^{-1} 4$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22359}%
+$\sim 76^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22363}%
+$\zeta<80^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22365}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.01$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22367}%
+$\zeta<60^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22371}%
+$\zeta<45^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22628}%
+$\sim\!76^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22638}%
+$25^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22640}%
+$50^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22642}%
+$75^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22656}%
+$-10^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22658}%
+$+20^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22660}%
+$280^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22666}%
+$2\mu{\rm m}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22678}%
+$6.5^\circ K km^{-1}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22690}%
+$7^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22698}%
+$\tan^5$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22702}%
+$\beta~(=H_0/r_0)$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22706}%
+$\beta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22933}%
+$70^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22935}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.05$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22947}%
+$93^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22949}%
+$=93^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22955}%
+$1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.0$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22957}%
+$80^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22959}%
+$\nu=p_w/p_s$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline22961}%
+$\nu=\rho_w/\rho_s$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23162}%
+$30^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23164}%
+$\zeta=70^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23168}%
+$\zeta_{obs}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23172}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.4$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23174}%
+$81^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23176}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.8$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23178}%
+$82^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23180}%
+$1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.6$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23182}%
+$83^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23186}%
+$84^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23188}%
+$7\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23190}%
+$85^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23194}%
+$86^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23196}%
+$45\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23198}%
+$87^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23200}%
+$150\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23202}%
+$88^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23204}%
+$340\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23206}%
+$89^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23208}%
+$620\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23212}%
+$1100\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23214}%
+$91^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23216}%
+$1900\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23220}%
+$92^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23222}%
+$3200\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23228}%
+$\zeta=84^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23469}%
+$\zeta=80^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23471}%
+$\zeta=83^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmldisplayA{displaymath23457}%
+\begin{displaymath}\Delta \zeta = F \left(
+  \frac{0^\circ\hspace{-0.37em}.\hspace{0.02em}55445
+                - 0^\circ\hspace{-0.37em}.\hspace{0.02em}01133 E
+                          + 0^\circ\hspace{-0.37em}.\hspace{0.02em}00202 E^2}
+             {1 + 0.28385 E +0.02390 E^2} \right) \end{displaymath}%
+\lthtmldisplayZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23475}%
+$E=90^\circ-\zeta_{true}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23495}%
+$1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23499}%
+$3\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.2$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23503}%
+$4\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.9$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23507}%
+$5\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.8$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23511}%
+$6\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.1$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23515}%
+$7\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.1$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23523}%
+$21\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23527}%
+$43\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23531}%
+$92\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23537}%
+$220\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23720}%
+$l^{I\!I}=90^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23722}%
+$b^{I\!I}=0$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23896}%
+$l^{I\!I}=53^{\circ},b^{I\!I}=+25^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline23995}%
+$\alpha=18^{\rm h},\delta=+30^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline24798}%
+$\times n$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline24800}%
+$m \geq n$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline24802}%
+$m \times n$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline24806}%
+$w_{ii} \geq 0$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline25275}%
+$\cdot~[diag(1/$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline25277}%
+$_{j})]
+           \cdot ($%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+
+\setlength {\parskip}{\medskipamount}
+%
+
+\stepcounter{subsection}
+
+\setlength {\parskip}{\medskipamount}
+%
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline26731}%
+$2^{\circ}
+                        \hspace{-0.37em}.\hspace{0.02em}4$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline26733}%
+$42^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27323}%
+$0\!-\!\pi$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{section}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27383}%
+$61^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsubsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27391}%
+$+1^{\circ}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27397}%
+$24^{h}\,59^{m}\,59^{s}.999$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27464}%
+$[\,\theta,\phi~]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsubsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27478}%
+$[\,\Delta x,\Delta y, \Delta z\,]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27484}%
+${\bf D}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27486}%
+${\bf V1}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27488}%
+${\bf V2}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27490}%
+$<{\bf V1}+{\bf D}>$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27492}%
+$(1-{\bf D}\cdot{\bf V1})$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27494}%
+$\delta E$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27498}%
+${\tan \delta E\approx\delta E}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27504}%
+$\delta E \cos E$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27506}%
+$\delta E \sin E$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27512}%
+$\cos \delta E$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27514}%
+$(1-\delta E^2 /2)$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27518}%
+$\equiv$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27524}%
+$[\theta,\phi,\dot{\theta},\dot{\phi}]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27750}%
+$\lambda,\beta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27752}%
+$l^{I\!I},b^{I\!I}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlfigureA{figure27550}%
+\begin{figure}\begin{center}
+\begin{tabular}{|cccccc|}   \hline
+& & & & & \\\hspace{5em} & \hspace{5em} & \hspace{5em} &
+   \hspace{5em} & \hspace{5em} & \hspace{5em}  \\\multicolumn{2}{|c}{\hspace{0em}
+\fbox {\parbox{8.5em}{\center \vspace{-2ex}
+                                                   mean $[\,\alpha,\delta\,]$, FK4, \\                                                   any equinox
+                                                   \vspace{0.5ex}}}
+} &
+ \multicolumn{2}{c}{\hspace{0em}
+\fbox {\parbox{8.5em}{\center \vspace{-2ex}
+                                                   mean $[\,\alpha,\delta\,]$, FK4,
+                                                   no $\mu$, any equinox
+                                                   \vspace{0.5ex}}}
+} &
+\multicolumn{2}{c|}{\hspace{0em}
+\fbox {\parbox{8.5em}{\center \vspace{-2ex}
+                                                   mean $[\,\alpha,\delta\,]$, FK5, \\                                                   any equinox
+                                                   \vspace{0.5ex}}}
+} \\& \multicolumn{2}{|c|}{} & \multicolumn{2}{c|}{} & \\\multicolumn{2}{|c}{space motion} & \multicolumn{1}{c|}{} & &
+   \multicolumn{2}{c|}{space motion} \\\multicolumn{2}{|c}{-- E-terms} &
+   \multicolumn{2}{c}{-- E-terms} & \multicolumn{1}{c|}{} & \\\multicolumn{2}{|c}{precess to B1950} & \multicolumn{2}{c}{precess to B1950} &
+   \multicolumn{2}{c|}{precess to J2000} \\\multicolumn{2}{|c}{+ E-terms} &
+   \multicolumn{2}{c}{+ E-terms} & \multicolumn{1}{c|}{} & \\\multicolumn{2}{|c}{FK4 to FK5, no $\mu$} &
+   \multicolumn{2}{c}{FK4 to FK5, no $\mu$} & \multicolumn{1}{c|}{} & \\\multicolumn{2}{|c}{parallax} & \multicolumn{1}{c|}{} & &
+   \multicolumn{2}{c|}{parallax} \\& \multicolumn{2}{|c|}{} & \multicolumn{2}{c|}{} & \\ \cline{2-5}
+\multicolumn{3}{|c|}{} & & & \\& \multicolumn{4}{c}{
+\fbox {\parbox{18em}{\center \vspace{-2ex}
+                                   FK5, J2000, current epoch, geocentric
+                                          \vspace{0.5ex}}}
+} & \\\multicolumn{3}{|c|}{} & & & \\& \multicolumn{4}{c}{light deflection} & \\& \multicolumn{4}{c}{annual aberration} & \\& \multicolumn{4}{c}{precession/nutation} & \\\multicolumn{3}{|c|}{} & & & \\& \multicolumn{4}{c}{
+\fbox {Apparent $[\,\alpha,\delta\,]$}
+} & \\\multicolumn{3}{|c|}{} & & & \\& \multicolumn{4}{c}{Earth rotation} & \\\multicolumn{3}{|c|}{} & & & \\& \multicolumn{4}{c}{
+\fbox {Apparent $[\,h,\delta\,]$}
+} & \\\multicolumn{3}{|c|}{} & & & \\& \multicolumn{4}{c}{diurnal aberration} & \\\multicolumn{3}{|c|}{} & & & \\& \multicolumn{4}{c}{
+\fbox {Topocentric $[\,h,\delta\,]$}
+} & \\\multicolumn{3}{|c|}{} & & & \\& \multicolumn{4}{c}{$[\,h,\delta\,]$\ to $[\,Az,El~]$} & \\\multicolumn{3}{|c|}{} & & & \\& \multicolumn{4}{c}{
+\fbox {Topocentric $[\,Az,El~]$}
+} & \\\multicolumn{3}{|c|}{} & & & \\& \multicolumn{4}{c}{refraction} & \\\multicolumn{3}{|c|}{} & & & \\& \multicolumn{4}{c}{
+\fbox {Observed $[\,Az,El~]$}
+} & \\& & & & & \\& & & & & \\ \hline
+\end{tabular}
+\end{center}
+\vspace{-0.5ex}
+Star positions are published or catalogued using
+one of the mean $[\,\alpha,\delta\,]$\ systems shown at
+the top.  The ``FK4'' systems
+were used before about 1980 and are usually
+equinox B1950.  The ``FK5'' system, equinox J2000, is now preferred,
+or rather its modern equivalent, the International Celestial Reference
+Frame (in the optical, the Hipparcos catalogue).
+The figure relates a star's mean $[\,\alpha,\delta\,]$\ to the actual
+line-of-sight to the star.
+Note that for the conventional choices of equinox, namely
+B1950 or J2000, all of the precession and E-terms corrections
+are superfluous.
+\end{figure}%
+\lthtmlfigureZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27878}%
+$23^{\circ}
+                        \hspace{-0.37em}.\hspace{0.02em}5$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27888}%
+$\epsilon$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27890}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.0001$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsubsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27892}%
+$(3\times3)$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27894}%
+$0^{\circ}
+                        \hspace{-0.37em}.\hspace{0.02em}2$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27923}%
+$50\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27927}%
+$12^{h}\,07^{m}\,58^{s}.09$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27929}%
+$-19^{\circ}\,44^{'}\,37^{''}.1$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline27959}%
+$[\mu_\alpha,\mu_\delta]$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28022}%
+$20\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28106}%
+$\mu_\alpha=-$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28108}%
+$0^{\rm s}\hspace{-0.3em}.015869$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28112}%
+$0^{\rm s}\hspace{-0.3em}.029032$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28114}%
+$~\sin \alpha
+            +$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28116}%
+$0^{\rm s}\hspace{-0.3em}.000340$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28118}%
+$~\cos \alpha ) \sin \delta
+            -$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28120}%
+$0^{\rm s}\hspace{-0.3em}.000105$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28122}%
+$~\cos \alpha
+            -$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28124}%
+$0^{\rm s}\hspace{-0.3em}.000083$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28126}%
+$~\sin \alpha ) \sec \delta $%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28128}%
+$\mu_\delta\,=+$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28130}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.43549$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28134}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.00510$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28136}%
+$~\sin \alpha +
+              ($%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28138}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.00158$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28140}%
+$~\sin \alpha
+              -$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28142}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.00125$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28146}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.00066$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28148}%
+$~\cos \delta $%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28214}%
+$\alpha=$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28216}%
+$16^{h}\,09^{m}\,55^{s}.13$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28218}%
+$\delta=$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28220}%
+$-75^{\circ}\,59^{'}\,27^{''}.2$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28222}%
+$\mu_\alpha=$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28224}%
+$-0^{\rm s}\hspace{-0.3em}.0312$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28228}%
+$\mu_\delta=$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28230}%
+$+0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.103$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28234}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.062$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28274}%
+$1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.74$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28276}%
+$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.02$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28278}%
+$20^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28282}%
+$90^\circ-\delta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28386}%
+$\theta$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmldisplayA{displaymath28366}%
+\begin{displaymath}h = \theta - \alpha \end{displaymath}%
+\lthtmldisplayZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28394}%
+$=\Delta\psi\cos\epsilon$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsubsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28408}%
+$0^{\circ}
+                        \hspace{-0.37em}.\hspace{0.02em}5$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmldisplayA{displaymath28367}%
+\begin{displaymath}\zeta _{vac} \approx \zeta _{obs}
+                     + A \tan \zeta _{obs}
+                     + B \tan ^{3}\zeta _{obs} \end{displaymath}%
+\lthtmldisplayZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28412}%
+$\zeta _{vac}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28420}%
+$60\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28422}%
+$-0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.06$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmldisplayA{displaymath28368}%
+\begin{displaymath}\zeta _{obs} \approx \zeta _{vac}
+    - \frac{A \tan \zeta _{vac} + B \tan ^{3}\zeta _{vac}}
+    {1 + ( A + 3 B \tan ^{2}\zeta _{vac} ) \sec ^{2}\zeta _{vac}}\end{displaymath}%
+\lthtmldisplayZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28444}%
+$100\mu m$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsubsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsubsection}
+\stepcounter{subsubsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28549}%
+$23^{h}\,59^{m}\,60^{s}.0$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28551}%
+$00^{h}\,00^{m}\,00^{s}.0$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsubsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28555}%
+$\Delta\psi\cos\epsilon$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsubsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28561}%
+$32^{\rm s}\hspace{-0.3em}.184$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28567}%
+$0^{\rm s}\hspace{-0.3em}.0016$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28569}%
+$0^{\rm s}\hspace{-0.3em}.0013$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28571}%
+$\Delta {\rm T} = {\rm ET} - {\rm UT}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28573}%
+$\Delta {\rm T}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28650}%
+$2\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28656}%
+$\pm100$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28664}%
+$1^\circ$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28666}%
+$8\hspace{-0.05em}^{'\hspace{-0.1em}'}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28668}%
+$5^{\rm h}\,25^{\rm m}$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28728}%
+$\varpi = \Omega + \omega$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28740}%
+$L = \varpi + M$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28752}%
+$M_\odot = 1$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28769}%
+$\sim20$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{subsection}
+\stepcounter{subsection}
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28861}%
+$C_1\!=\!+50.0$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28863}%
+$C_2\!=\!-2.0$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28865}%
+$C_3\!=\!-10.0$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28867}%
+$C_4\!=\!+25.0$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28869}%
+$\sigma=5.0$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+{\newpage\clearpage
+\lthtmlinlinemathA{tex2html_wrap_inline28871}%
+$1000\times20$%
+\lthtmlinlinemathZ
+\hfill\lthtmlcheckvsize\clearpage}
+
+\stepcounter{section}
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\setlength {\leftmargin}{2cm}
+%
+
+
+\setlength {\parsep}{\smallskipamount}
+%
+
+
+\end{document}
diff --git a/src/slalib/sun67.htx/img1.gif b/src/slalib/sun67.htx/img1.gif
new file mode 100644
index 0000000..d7b5e28
Binary files /dev/null and b/src/slalib/sun67.htx/img1.gif differ
diff --git a/src/slalib/sun67.htx/img10.gif b/src/slalib/sun67.htx/img10.gif
new file mode 100644
index 0000000..b62f1a8
Binary files /dev/null and b/src/slalib/sun67.htx/img10.gif differ
diff --git a/src/slalib/sun67.htx/img100.gif b/src/slalib/sun67.htx/img100.gif
new file mode 100644
index 0000000..398505a
Binary files /dev/null and b/src/slalib/sun67.htx/img100.gif differ
diff --git a/src/slalib/sun67.htx/img101.gif b/src/slalib/sun67.htx/img101.gif
new file mode 100644
index 0000000..f058067
Binary files /dev/null and b/src/slalib/sun67.htx/img101.gif differ
diff --git a/src/slalib/sun67.htx/img102.gif b/src/slalib/sun67.htx/img102.gif
new file mode 100644
index 0000000..8be43bb
Binary files /dev/null and b/src/slalib/sun67.htx/img102.gif differ
diff --git a/src/slalib/sun67.htx/img103.gif b/src/slalib/sun67.htx/img103.gif
new file mode 100644
index 0000000..709f499
Binary files /dev/null and b/src/slalib/sun67.htx/img103.gif differ
diff --git a/src/slalib/sun67.htx/img104.gif b/src/slalib/sun67.htx/img104.gif
new file mode 100644
index 0000000..12ef0a3
Binary files /dev/null and b/src/slalib/sun67.htx/img104.gif differ
diff --git a/src/slalib/sun67.htx/img105.gif b/src/slalib/sun67.htx/img105.gif
new file mode 100644
index 0000000..ddcae42
Binary files /dev/null and b/src/slalib/sun67.htx/img105.gif differ
diff --git a/src/slalib/sun67.htx/img106.gif b/src/slalib/sun67.htx/img106.gif
new file mode 100644
index 0000000..0ef06d5
Binary files /dev/null and b/src/slalib/sun67.htx/img106.gif differ
diff --git a/src/slalib/sun67.htx/img107.gif b/src/slalib/sun67.htx/img107.gif
new file mode 100644
index 0000000..ddef7b5
Binary files /dev/null and b/src/slalib/sun67.htx/img107.gif differ
diff --git a/src/slalib/sun67.htx/img108.gif b/src/slalib/sun67.htx/img108.gif
new file mode 100644
index 0000000..791b66a
Binary files /dev/null and b/src/slalib/sun67.htx/img108.gif differ
diff --git a/src/slalib/sun67.htx/img109.gif b/src/slalib/sun67.htx/img109.gif
new file mode 100644
index 0000000..ed30950
Binary files /dev/null and b/src/slalib/sun67.htx/img109.gif differ
diff --git a/src/slalib/sun67.htx/img11.gif b/src/slalib/sun67.htx/img11.gif
new file mode 100644
index 0000000..f7ed3a1
Binary files /dev/null and b/src/slalib/sun67.htx/img11.gif differ
diff --git a/src/slalib/sun67.htx/img110.gif b/src/slalib/sun67.htx/img110.gif
new file mode 100644
index 0000000..6dc29fe
Binary files /dev/null and b/src/slalib/sun67.htx/img110.gif differ
diff --git a/src/slalib/sun67.htx/img111.gif b/src/slalib/sun67.htx/img111.gif
new file mode 100644
index 0000000..bf7b222
Binary files /dev/null and b/src/slalib/sun67.htx/img111.gif differ
diff --git a/src/slalib/sun67.htx/img112.gif b/src/slalib/sun67.htx/img112.gif
new file mode 100644
index 0000000..cb0fc50
Binary files /dev/null and b/src/slalib/sun67.htx/img112.gif differ
diff --git a/src/slalib/sun67.htx/img113.gif b/src/slalib/sun67.htx/img113.gif
new file mode 100644
index 0000000..0bac8a0
Binary files /dev/null and b/src/slalib/sun67.htx/img113.gif differ
diff --git a/src/slalib/sun67.htx/img114.gif b/src/slalib/sun67.htx/img114.gif
new file mode 100644
index 0000000..d9fb000
Binary files /dev/null and b/src/slalib/sun67.htx/img114.gif differ
diff --git a/src/slalib/sun67.htx/img115.gif b/src/slalib/sun67.htx/img115.gif
new file mode 100644
index 0000000..5d01c21
Binary files /dev/null and b/src/slalib/sun67.htx/img115.gif differ
diff --git a/src/slalib/sun67.htx/img116.gif b/src/slalib/sun67.htx/img116.gif
new file mode 100644
index 0000000..243eba0
Binary files /dev/null and b/src/slalib/sun67.htx/img116.gif differ
diff --git a/src/slalib/sun67.htx/img117.gif b/src/slalib/sun67.htx/img117.gif
new file mode 100644
index 0000000..8b4d249
Binary files /dev/null and b/src/slalib/sun67.htx/img117.gif differ
diff --git a/src/slalib/sun67.htx/img118.gif b/src/slalib/sun67.htx/img118.gif
new file mode 100644
index 0000000..1c78304
Binary files /dev/null and b/src/slalib/sun67.htx/img118.gif differ
diff --git a/src/slalib/sun67.htx/img119.gif b/src/slalib/sun67.htx/img119.gif
new file mode 100644
index 0000000..d6338e5
Binary files /dev/null and b/src/slalib/sun67.htx/img119.gif differ
diff --git a/src/slalib/sun67.htx/img12.gif b/src/slalib/sun67.htx/img12.gif
new file mode 100644
index 0000000..91e6c1e
Binary files /dev/null and b/src/slalib/sun67.htx/img12.gif differ
diff --git a/src/slalib/sun67.htx/img120.gif b/src/slalib/sun67.htx/img120.gif
new file mode 100644
index 0000000..140c0d3
Binary files /dev/null and b/src/slalib/sun67.htx/img120.gif differ
diff --git a/src/slalib/sun67.htx/img121.gif b/src/slalib/sun67.htx/img121.gif
new file mode 100644
index 0000000..3f69858
Binary files /dev/null and b/src/slalib/sun67.htx/img121.gif differ
diff --git a/src/slalib/sun67.htx/img122.gif b/src/slalib/sun67.htx/img122.gif
new file mode 100644
index 0000000..b6ea2e4
Binary files /dev/null and b/src/slalib/sun67.htx/img122.gif differ
diff --git a/src/slalib/sun67.htx/img123.gif b/src/slalib/sun67.htx/img123.gif
new file mode 100644
index 0000000..b575d67
Binary files /dev/null and b/src/slalib/sun67.htx/img123.gif differ
diff --git a/src/slalib/sun67.htx/img124.gif b/src/slalib/sun67.htx/img124.gif
new file mode 100644
index 0000000..d4a6904
Binary files /dev/null and b/src/slalib/sun67.htx/img124.gif differ
diff --git a/src/slalib/sun67.htx/img125.gif b/src/slalib/sun67.htx/img125.gif
new file mode 100644
index 0000000..cd22fb5
Binary files /dev/null and b/src/slalib/sun67.htx/img125.gif differ
diff --git a/src/slalib/sun67.htx/img126.gif b/src/slalib/sun67.htx/img126.gif
new file mode 100644
index 0000000..aa02dc1
Binary files /dev/null and b/src/slalib/sun67.htx/img126.gif differ
diff --git a/src/slalib/sun67.htx/img127.gif b/src/slalib/sun67.htx/img127.gif
new file mode 100644
index 0000000..9ce71a6
Binary files /dev/null and b/src/slalib/sun67.htx/img127.gif differ
diff --git a/src/slalib/sun67.htx/img128.gif b/src/slalib/sun67.htx/img128.gif
new file mode 100644
index 0000000..f79525b
Binary files /dev/null and b/src/slalib/sun67.htx/img128.gif differ
diff --git a/src/slalib/sun67.htx/img129.gif b/src/slalib/sun67.htx/img129.gif
new file mode 100644
index 0000000..3c59b23
Binary files /dev/null and b/src/slalib/sun67.htx/img129.gif differ
diff --git a/src/slalib/sun67.htx/img13.gif b/src/slalib/sun67.htx/img13.gif
new file mode 100644
index 0000000..a68c1d9
Binary files /dev/null and b/src/slalib/sun67.htx/img13.gif differ
diff --git a/src/slalib/sun67.htx/img130.gif b/src/slalib/sun67.htx/img130.gif
new file mode 100644
index 0000000..882e609
Binary files /dev/null and b/src/slalib/sun67.htx/img130.gif differ
diff --git a/src/slalib/sun67.htx/img131.gif b/src/slalib/sun67.htx/img131.gif
new file mode 100644
index 0000000..c223db8
Binary files /dev/null and b/src/slalib/sun67.htx/img131.gif differ
diff --git a/src/slalib/sun67.htx/img132.gif b/src/slalib/sun67.htx/img132.gif
new file mode 100644
index 0000000..b4ff911
Binary files /dev/null and b/src/slalib/sun67.htx/img132.gif differ
diff --git a/src/slalib/sun67.htx/img133.gif b/src/slalib/sun67.htx/img133.gif
new file mode 100644
index 0000000..6df3c7a
Binary files /dev/null and b/src/slalib/sun67.htx/img133.gif differ
diff --git a/src/slalib/sun67.htx/img134.gif b/src/slalib/sun67.htx/img134.gif
new file mode 100644
index 0000000..10b35b5
Binary files /dev/null and b/src/slalib/sun67.htx/img134.gif differ
diff --git a/src/slalib/sun67.htx/img135.gif b/src/slalib/sun67.htx/img135.gif
new file mode 100644
index 0000000..3269790
Binary files /dev/null and b/src/slalib/sun67.htx/img135.gif differ
diff --git a/src/slalib/sun67.htx/img136.gif b/src/slalib/sun67.htx/img136.gif
new file mode 100644
index 0000000..d6fded5
Binary files /dev/null and b/src/slalib/sun67.htx/img136.gif differ
diff --git a/src/slalib/sun67.htx/img137.gif b/src/slalib/sun67.htx/img137.gif
new file mode 100644
index 0000000..6b68965
Binary files /dev/null and b/src/slalib/sun67.htx/img137.gif differ
diff --git a/src/slalib/sun67.htx/img138.gif b/src/slalib/sun67.htx/img138.gif
new file mode 100644
index 0000000..3f3e31c
Binary files /dev/null and b/src/slalib/sun67.htx/img138.gif differ
diff --git a/src/slalib/sun67.htx/img139.gif b/src/slalib/sun67.htx/img139.gif
new file mode 100644
index 0000000..3e56ce2
Binary files /dev/null and b/src/slalib/sun67.htx/img139.gif differ
diff --git a/src/slalib/sun67.htx/img14.gif b/src/slalib/sun67.htx/img14.gif
new file mode 100644
index 0000000..9bc0336
Binary files /dev/null and b/src/slalib/sun67.htx/img14.gif differ
diff --git a/src/slalib/sun67.htx/img140.gif b/src/slalib/sun67.htx/img140.gif
new file mode 100644
index 0000000..1e6348f
Binary files /dev/null and b/src/slalib/sun67.htx/img140.gif differ
diff --git a/src/slalib/sun67.htx/img141.gif b/src/slalib/sun67.htx/img141.gif
new file mode 100644
index 0000000..278957d
Binary files /dev/null and b/src/slalib/sun67.htx/img141.gif differ
diff --git a/src/slalib/sun67.htx/img142.gif b/src/slalib/sun67.htx/img142.gif
new file mode 100644
index 0000000..7c140ef
Binary files /dev/null and b/src/slalib/sun67.htx/img142.gif differ
diff --git a/src/slalib/sun67.htx/img143.gif b/src/slalib/sun67.htx/img143.gif
new file mode 100644
index 0000000..39ecd67
Binary files /dev/null and b/src/slalib/sun67.htx/img143.gif differ
diff --git a/src/slalib/sun67.htx/img144.gif b/src/slalib/sun67.htx/img144.gif
new file mode 100644
index 0000000..6ab1623
Binary files /dev/null and b/src/slalib/sun67.htx/img144.gif differ
diff --git a/src/slalib/sun67.htx/img145.gif b/src/slalib/sun67.htx/img145.gif
new file mode 100644
index 0000000..ad8e73e
Binary files /dev/null and b/src/slalib/sun67.htx/img145.gif differ
diff --git a/src/slalib/sun67.htx/img146.gif b/src/slalib/sun67.htx/img146.gif
new file mode 100644
index 0000000..c65c07a
Binary files /dev/null and b/src/slalib/sun67.htx/img146.gif differ
diff --git a/src/slalib/sun67.htx/img147.gif b/src/slalib/sun67.htx/img147.gif
new file mode 100644
index 0000000..de63550
Binary files /dev/null and b/src/slalib/sun67.htx/img147.gif differ
diff --git a/src/slalib/sun67.htx/img148.gif b/src/slalib/sun67.htx/img148.gif
new file mode 100644
index 0000000..4adf366
Binary files /dev/null and b/src/slalib/sun67.htx/img148.gif differ
diff --git a/src/slalib/sun67.htx/img149.gif b/src/slalib/sun67.htx/img149.gif
new file mode 100644
index 0000000..7bbadd9
Binary files /dev/null and b/src/slalib/sun67.htx/img149.gif differ
diff --git a/src/slalib/sun67.htx/img15.gif b/src/slalib/sun67.htx/img15.gif
new file mode 100644
index 0000000..55a91f6
Binary files /dev/null and b/src/slalib/sun67.htx/img15.gif differ
diff --git a/src/slalib/sun67.htx/img150.gif b/src/slalib/sun67.htx/img150.gif
new file mode 100644
index 0000000..215d6bd
Binary files /dev/null and b/src/slalib/sun67.htx/img150.gif differ
diff --git a/src/slalib/sun67.htx/img151.gif b/src/slalib/sun67.htx/img151.gif
new file mode 100644
index 0000000..34d893a
Binary files /dev/null and b/src/slalib/sun67.htx/img151.gif differ
diff --git a/src/slalib/sun67.htx/img152.gif b/src/slalib/sun67.htx/img152.gif
new file mode 100644
index 0000000..a4cd7b2
Binary files /dev/null and b/src/slalib/sun67.htx/img152.gif differ
diff --git a/src/slalib/sun67.htx/img153.gif b/src/slalib/sun67.htx/img153.gif
new file mode 100644
index 0000000..7d5fc3d
Binary files /dev/null and b/src/slalib/sun67.htx/img153.gif differ
diff --git a/src/slalib/sun67.htx/img154.gif b/src/slalib/sun67.htx/img154.gif
new file mode 100644
index 0000000..e10d26d
Binary files /dev/null and b/src/slalib/sun67.htx/img154.gif differ
diff --git a/src/slalib/sun67.htx/img155.gif b/src/slalib/sun67.htx/img155.gif
new file mode 100644
index 0000000..8a36cb9
Binary files /dev/null and b/src/slalib/sun67.htx/img155.gif differ
diff --git a/src/slalib/sun67.htx/img156.gif b/src/slalib/sun67.htx/img156.gif
new file mode 100644
index 0000000..b920388
Binary files /dev/null and b/src/slalib/sun67.htx/img156.gif differ
diff --git a/src/slalib/sun67.htx/img157.gif b/src/slalib/sun67.htx/img157.gif
new file mode 100644
index 0000000..9c2a20e
Binary files /dev/null and b/src/slalib/sun67.htx/img157.gif differ
diff --git a/src/slalib/sun67.htx/img158.gif b/src/slalib/sun67.htx/img158.gif
new file mode 100644
index 0000000..08323ac
Binary files /dev/null and b/src/slalib/sun67.htx/img158.gif differ
diff --git a/src/slalib/sun67.htx/img159.gif b/src/slalib/sun67.htx/img159.gif
new file mode 100644
index 0000000..9bb4943
Binary files /dev/null and b/src/slalib/sun67.htx/img159.gif differ
diff --git a/src/slalib/sun67.htx/img16.gif b/src/slalib/sun67.htx/img16.gif
new file mode 100644
index 0000000..db11f13
Binary files /dev/null and b/src/slalib/sun67.htx/img16.gif differ
diff --git a/src/slalib/sun67.htx/img160.gif b/src/slalib/sun67.htx/img160.gif
new file mode 100644
index 0000000..45bf04c
Binary files /dev/null and b/src/slalib/sun67.htx/img160.gif differ
diff --git a/src/slalib/sun67.htx/img161.gif b/src/slalib/sun67.htx/img161.gif
new file mode 100644
index 0000000..39801d7
Binary files /dev/null and b/src/slalib/sun67.htx/img161.gif differ
diff --git a/src/slalib/sun67.htx/img162.gif b/src/slalib/sun67.htx/img162.gif
new file mode 100644
index 0000000..e36f849
Binary files /dev/null and b/src/slalib/sun67.htx/img162.gif differ
diff --git a/src/slalib/sun67.htx/img163.gif b/src/slalib/sun67.htx/img163.gif
new file mode 100644
index 0000000..d2f8408
Binary files /dev/null and b/src/slalib/sun67.htx/img163.gif differ
diff --git a/src/slalib/sun67.htx/img164.gif b/src/slalib/sun67.htx/img164.gif
new file mode 100644
index 0000000..371d870
Binary files /dev/null and b/src/slalib/sun67.htx/img164.gif differ
diff --git a/src/slalib/sun67.htx/img165.gif b/src/slalib/sun67.htx/img165.gif
new file mode 100644
index 0000000..1fc8b8a
Binary files /dev/null and b/src/slalib/sun67.htx/img165.gif differ
diff --git a/src/slalib/sun67.htx/img166.gif b/src/slalib/sun67.htx/img166.gif
new file mode 100644
index 0000000..b2066f3
Binary files /dev/null and b/src/slalib/sun67.htx/img166.gif differ
diff --git a/src/slalib/sun67.htx/img167.gif b/src/slalib/sun67.htx/img167.gif
new file mode 100644
index 0000000..69baa0b
Binary files /dev/null and b/src/slalib/sun67.htx/img167.gif differ
diff --git a/src/slalib/sun67.htx/img168.gif b/src/slalib/sun67.htx/img168.gif
new file mode 100644
index 0000000..9c77a9f
Binary files /dev/null and b/src/slalib/sun67.htx/img168.gif differ
diff --git a/src/slalib/sun67.htx/img169.gif b/src/slalib/sun67.htx/img169.gif
new file mode 100644
index 0000000..2757ee2
Binary files /dev/null and b/src/slalib/sun67.htx/img169.gif differ
diff --git a/src/slalib/sun67.htx/img17.gif b/src/slalib/sun67.htx/img17.gif
new file mode 100644
index 0000000..f7e5825
Binary files /dev/null and b/src/slalib/sun67.htx/img17.gif differ
diff --git a/src/slalib/sun67.htx/img170.gif b/src/slalib/sun67.htx/img170.gif
new file mode 100644
index 0000000..7975d4a
Binary files /dev/null and b/src/slalib/sun67.htx/img170.gif differ
diff --git a/src/slalib/sun67.htx/img171.gif b/src/slalib/sun67.htx/img171.gif
new file mode 100644
index 0000000..e72edbd
Binary files /dev/null and b/src/slalib/sun67.htx/img171.gif differ
diff --git a/src/slalib/sun67.htx/img172.gif b/src/slalib/sun67.htx/img172.gif
new file mode 100644
index 0000000..70f8874
Binary files /dev/null and b/src/slalib/sun67.htx/img172.gif differ
diff --git a/src/slalib/sun67.htx/img173.gif b/src/slalib/sun67.htx/img173.gif
new file mode 100644
index 0000000..1bbbe94
Binary files /dev/null and b/src/slalib/sun67.htx/img173.gif differ
diff --git a/src/slalib/sun67.htx/img174.gif b/src/slalib/sun67.htx/img174.gif
new file mode 100644
index 0000000..25dff75
Binary files /dev/null and b/src/slalib/sun67.htx/img174.gif differ
diff --git a/src/slalib/sun67.htx/img175.gif b/src/slalib/sun67.htx/img175.gif
new file mode 100644
index 0000000..6a485af
Binary files /dev/null and b/src/slalib/sun67.htx/img175.gif differ
diff --git a/src/slalib/sun67.htx/img176.gif b/src/slalib/sun67.htx/img176.gif
new file mode 100644
index 0000000..9d0834f
Binary files /dev/null and b/src/slalib/sun67.htx/img176.gif differ
diff --git a/src/slalib/sun67.htx/img177.gif b/src/slalib/sun67.htx/img177.gif
new file mode 100644
index 0000000..bbd3a2b
Binary files /dev/null and b/src/slalib/sun67.htx/img177.gif differ
diff --git a/src/slalib/sun67.htx/img178.gif b/src/slalib/sun67.htx/img178.gif
new file mode 100644
index 0000000..7ebec9c
Binary files /dev/null and b/src/slalib/sun67.htx/img178.gif differ
diff --git a/src/slalib/sun67.htx/img179.gif b/src/slalib/sun67.htx/img179.gif
new file mode 100644
index 0000000..c1ac88a
Binary files /dev/null and b/src/slalib/sun67.htx/img179.gif differ
diff --git a/src/slalib/sun67.htx/img18.gif b/src/slalib/sun67.htx/img18.gif
new file mode 100644
index 0000000..b2b8324
Binary files /dev/null and b/src/slalib/sun67.htx/img18.gif differ
diff --git a/src/slalib/sun67.htx/img180.gif b/src/slalib/sun67.htx/img180.gif
new file mode 100644
index 0000000..6af2413
Binary files /dev/null and b/src/slalib/sun67.htx/img180.gif differ
diff --git a/src/slalib/sun67.htx/img181.gif b/src/slalib/sun67.htx/img181.gif
new file mode 100644
index 0000000..b5ac444
Binary files /dev/null and b/src/slalib/sun67.htx/img181.gif differ
diff --git a/src/slalib/sun67.htx/img182.gif b/src/slalib/sun67.htx/img182.gif
new file mode 100644
index 0000000..c5013f7
Binary files /dev/null and b/src/slalib/sun67.htx/img182.gif differ
diff --git a/src/slalib/sun67.htx/img183.gif b/src/slalib/sun67.htx/img183.gif
new file mode 100644
index 0000000..baa2252
Binary files /dev/null and b/src/slalib/sun67.htx/img183.gif differ
diff --git a/src/slalib/sun67.htx/img184.gif b/src/slalib/sun67.htx/img184.gif
new file mode 100644
index 0000000..c90b68f
Binary files /dev/null and b/src/slalib/sun67.htx/img184.gif differ
diff --git a/src/slalib/sun67.htx/img185.gif b/src/slalib/sun67.htx/img185.gif
new file mode 100644
index 0000000..113fa7c
Binary files /dev/null and b/src/slalib/sun67.htx/img185.gif differ
diff --git a/src/slalib/sun67.htx/img186.gif b/src/slalib/sun67.htx/img186.gif
new file mode 100644
index 0000000..6a3576d
Binary files /dev/null and b/src/slalib/sun67.htx/img186.gif differ
diff --git a/src/slalib/sun67.htx/img187.gif b/src/slalib/sun67.htx/img187.gif
new file mode 100644
index 0000000..f380409
Binary files /dev/null and b/src/slalib/sun67.htx/img187.gif differ
diff --git a/src/slalib/sun67.htx/img188.gif b/src/slalib/sun67.htx/img188.gif
new file mode 100644
index 0000000..6da976c
Binary files /dev/null and b/src/slalib/sun67.htx/img188.gif differ
diff --git a/src/slalib/sun67.htx/img189.gif b/src/slalib/sun67.htx/img189.gif
new file mode 100644
index 0000000..3175bde
Binary files /dev/null and b/src/slalib/sun67.htx/img189.gif differ
diff --git a/src/slalib/sun67.htx/img19.gif b/src/slalib/sun67.htx/img19.gif
new file mode 100644
index 0000000..8f39094
Binary files /dev/null and b/src/slalib/sun67.htx/img19.gif differ
diff --git a/src/slalib/sun67.htx/img190.gif b/src/slalib/sun67.htx/img190.gif
new file mode 100644
index 0000000..b4ad9b4
Binary files /dev/null and b/src/slalib/sun67.htx/img190.gif differ
diff --git a/src/slalib/sun67.htx/img191.gif b/src/slalib/sun67.htx/img191.gif
new file mode 100644
index 0000000..2f75e01
Binary files /dev/null and b/src/slalib/sun67.htx/img191.gif differ
diff --git a/src/slalib/sun67.htx/img192.gif b/src/slalib/sun67.htx/img192.gif
new file mode 100644
index 0000000..8e73a57
Binary files /dev/null and b/src/slalib/sun67.htx/img192.gif differ
diff --git a/src/slalib/sun67.htx/img193.gif b/src/slalib/sun67.htx/img193.gif
new file mode 100644
index 0000000..6cfd3d7
Binary files /dev/null and b/src/slalib/sun67.htx/img193.gif differ
diff --git a/src/slalib/sun67.htx/img194.gif b/src/slalib/sun67.htx/img194.gif
new file mode 100644
index 0000000..8c60dba
Binary files /dev/null and b/src/slalib/sun67.htx/img194.gif differ
diff --git a/src/slalib/sun67.htx/img195.gif b/src/slalib/sun67.htx/img195.gif
new file mode 100644
index 0000000..e61b714
Binary files /dev/null and b/src/slalib/sun67.htx/img195.gif differ
diff --git a/src/slalib/sun67.htx/img196.gif b/src/slalib/sun67.htx/img196.gif
new file mode 100644
index 0000000..eb4f3bd
Binary files /dev/null and b/src/slalib/sun67.htx/img196.gif differ
diff --git a/src/slalib/sun67.htx/img197.gif b/src/slalib/sun67.htx/img197.gif
new file mode 100644
index 0000000..c8e679f
Binary files /dev/null and b/src/slalib/sun67.htx/img197.gif differ
diff --git a/src/slalib/sun67.htx/img198.gif b/src/slalib/sun67.htx/img198.gif
new file mode 100644
index 0000000..6ef5f3a
Binary files /dev/null and b/src/slalib/sun67.htx/img198.gif differ
diff --git a/src/slalib/sun67.htx/img199.gif b/src/slalib/sun67.htx/img199.gif
new file mode 100644
index 0000000..13d024d
Binary files /dev/null and b/src/slalib/sun67.htx/img199.gif differ
diff --git a/src/slalib/sun67.htx/img2.gif b/src/slalib/sun67.htx/img2.gif
new file mode 100644
index 0000000..cd0188c
Binary files /dev/null and b/src/slalib/sun67.htx/img2.gif differ
diff --git a/src/slalib/sun67.htx/img20.gif b/src/slalib/sun67.htx/img20.gif
new file mode 100644
index 0000000..92345b7
Binary files /dev/null and b/src/slalib/sun67.htx/img20.gif differ
diff --git a/src/slalib/sun67.htx/img200.gif b/src/slalib/sun67.htx/img200.gif
new file mode 100644
index 0000000..895bb1e
Binary files /dev/null and b/src/slalib/sun67.htx/img200.gif differ
diff --git a/src/slalib/sun67.htx/img201.gif b/src/slalib/sun67.htx/img201.gif
new file mode 100644
index 0000000..e321eae
Binary files /dev/null and b/src/slalib/sun67.htx/img201.gif differ
diff --git a/src/slalib/sun67.htx/img202.gif b/src/slalib/sun67.htx/img202.gif
new file mode 100644
index 0000000..ee8b36c
Binary files /dev/null and b/src/slalib/sun67.htx/img202.gif differ
diff --git a/src/slalib/sun67.htx/img203.gif b/src/slalib/sun67.htx/img203.gif
new file mode 100644
index 0000000..0953ef2
Binary files /dev/null and b/src/slalib/sun67.htx/img203.gif differ
diff --git a/src/slalib/sun67.htx/img204.gif b/src/slalib/sun67.htx/img204.gif
new file mode 100644
index 0000000..3f2f023
Binary files /dev/null and b/src/slalib/sun67.htx/img204.gif differ
diff --git a/src/slalib/sun67.htx/img205.gif b/src/slalib/sun67.htx/img205.gif
new file mode 100644
index 0000000..4c352e9
Binary files /dev/null and b/src/slalib/sun67.htx/img205.gif differ
diff --git a/src/slalib/sun67.htx/img206.gif b/src/slalib/sun67.htx/img206.gif
new file mode 100644
index 0000000..04a0557
Binary files /dev/null and b/src/slalib/sun67.htx/img206.gif differ
diff --git a/src/slalib/sun67.htx/img207.gif b/src/slalib/sun67.htx/img207.gif
new file mode 100644
index 0000000..91d7a83
Binary files /dev/null and b/src/slalib/sun67.htx/img207.gif differ
diff --git a/src/slalib/sun67.htx/img208.gif b/src/slalib/sun67.htx/img208.gif
new file mode 100644
index 0000000..eb1fd5f
Binary files /dev/null and b/src/slalib/sun67.htx/img208.gif differ
diff --git a/src/slalib/sun67.htx/img209.gif b/src/slalib/sun67.htx/img209.gif
new file mode 100644
index 0000000..602560b
Binary files /dev/null and b/src/slalib/sun67.htx/img209.gif differ
diff --git a/src/slalib/sun67.htx/img21.gif b/src/slalib/sun67.htx/img21.gif
new file mode 100644
index 0000000..88688bd
Binary files /dev/null and b/src/slalib/sun67.htx/img21.gif differ
diff --git a/src/slalib/sun67.htx/img210.gif b/src/slalib/sun67.htx/img210.gif
new file mode 100644
index 0000000..e0f60e8
Binary files /dev/null and b/src/slalib/sun67.htx/img210.gif differ
diff --git a/src/slalib/sun67.htx/img211.gif b/src/slalib/sun67.htx/img211.gif
new file mode 100644
index 0000000..b3b874b
Binary files /dev/null and b/src/slalib/sun67.htx/img211.gif differ
diff --git a/src/slalib/sun67.htx/img212.gif b/src/slalib/sun67.htx/img212.gif
new file mode 100644
index 0000000..b0513df
Binary files /dev/null and b/src/slalib/sun67.htx/img212.gif differ
diff --git a/src/slalib/sun67.htx/img213.gif b/src/slalib/sun67.htx/img213.gif
new file mode 100644
index 0000000..5a952ee
Binary files /dev/null and b/src/slalib/sun67.htx/img213.gif differ
diff --git a/src/slalib/sun67.htx/img214.gif b/src/slalib/sun67.htx/img214.gif
new file mode 100644
index 0000000..663a28e
Binary files /dev/null and b/src/slalib/sun67.htx/img214.gif differ
diff --git a/src/slalib/sun67.htx/img215.gif b/src/slalib/sun67.htx/img215.gif
new file mode 100644
index 0000000..00510af
Binary files /dev/null and b/src/slalib/sun67.htx/img215.gif differ
diff --git a/src/slalib/sun67.htx/img216.gif b/src/slalib/sun67.htx/img216.gif
new file mode 100644
index 0000000..3732254
Binary files /dev/null and b/src/slalib/sun67.htx/img216.gif differ
diff --git a/src/slalib/sun67.htx/img217.gif b/src/slalib/sun67.htx/img217.gif
new file mode 100644
index 0000000..2a73dca
Binary files /dev/null and b/src/slalib/sun67.htx/img217.gif differ
diff --git a/src/slalib/sun67.htx/img218.gif b/src/slalib/sun67.htx/img218.gif
new file mode 100644
index 0000000..3e8e21c
Binary files /dev/null and b/src/slalib/sun67.htx/img218.gif differ
diff --git a/src/slalib/sun67.htx/img219.gif b/src/slalib/sun67.htx/img219.gif
new file mode 100644
index 0000000..c34ded4
Binary files /dev/null and b/src/slalib/sun67.htx/img219.gif differ
diff --git a/src/slalib/sun67.htx/img22.gif b/src/slalib/sun67.htx/img22.gif
new file mode 100644
index 0000000..3dd46fa
Binary files /dev/null and b/src/slalib/sun67.htx/img22.gif differ
diff --git a/src/slalib/sun67.htx/img220.gif b/src/slalib/sun67.htx/img220.gif
new file mode 100644
index 0000000..c00a9e4
Binary files /dev/null and b/src/slalib/sun67.htx/img220.gif differ
diff --git a/src/slalib/sun67.htx/img221.gif b/src/slalib/sun67.htx/img221.gif
new file mode 100644
index 0000000..b6a457c
Binary files /dev/null and b/src/slalib/sun67.htx/img221.gif differ
diff --git a/src/slalib/sun67.htx/img222.gif b/src/slalib/sun67.htx/img222.gif
new file mode 100644
index 0000000..241b1e9
Binary files /dev/null and b/src/slalib/sun67.htx/img222.gif differ
diff --git a/src/slalib/sun67.htx/img223.gif b/src/slalib/sun67.htx/img223.gif
new file mode 100644
index 0000000..095bdda
Binary files /dev/null and b/src/slalib/sun67.htx/img223.gif differ
diff --git a/src/slalib/sun67.htx/img224.gif b/src/slalib/sun67.htx/img224.gif
new file mode 100644
index 0000000..3e54f3c
Binary files /dev/null and b/src/slalib/sun67.htx/img224.gif differ
diff --git a/src/slalib/sun67.htx/img225.gif b/src/slalib/sun67.htx/img225.gif
new file mode 100644
index 0000000..5e132ae
Binary files /dev/null and b/src/slalib/sun67.htx/img225.gif differ
diff --git a/src/slalib/sun67.htx/img226.gif b/src/slalib/sun67.htx/img226.gif
new file mode 100644
index 0000000..b256d3d
Binary files /dev/null and b/src/slalib/sun67.htx/img226.gif differ
diff --git a/src/slalib/sun67.htx/img227.gif b/src/slalib/sun67.htx/img227.gif
new file mode 100644
index 0000000..7d27a2c
Binary files /dev/null and b/src/slalib/sun67.htx/img227.gif differ
diff --git a/src/slalib/sun67.htx/img228.gif b/src/slalib/sun67.htx/img228.gif
new file mode 100644
index 0000000..22b47de
Binary files /dev/null and b/src/slalib/sun67.htx/img228.gif differ
diff --git a/src/slalib/sun67.htx/img229.gif b/src/slalib/sun67.htx/img229.gif
new file mode 100644
index 0000000..cc99808
Binary files /dev/null and b/src/slalib/sun67.htx/img229.gif differ
diff --git a/src/slalib/sun67.htx/img23.gif b/src/slalib/sun67.htx/img23.gif
new file mode 100644
index 0000000..0f08bbb
Binary files /dev/null and b/src/slalib/sun67.htx/img23.gif differ
diff --git a/src/slalib/sun67.htx/img230.gif b/src/slalib/sun67.htx/img230.gif
new file mode 100644
index 0000000..7485114
Binary files /dev/null and b/src/slalib/sun67.htx/img230.gif differ
diff --git a/src/slalib/sun67.htx/img231.gif b/src/slalib/sun67.htx/img231.gif
new file mode 100644
index 0000000..8697b87
Binary files /dev/null and b/src/slalib/sun67.htx/img231.gif differ
diff --git a/src/slalib/sun67.htx/img232.gif b/src/slalib/sun67.htx/img232.gif
new file mode 100644
index 0000000..27ff60f
Binary files /dev/null and b/src/slalib/sun67.htx/img232.gif differ
diff --git a/src/slalib/sun67.htx/img233.gif b/src/slalib/sun67.htx/img233.gif
new file mode 100644
index 0000000..9c8cba5
Binary files /dev/null and b/src/slalib/sun67.htx/img233.gif differ
diff --git a/src/slalib/sun67.htx/img234.gif b/src/slalib/sun67.htx/img234.gif
new file mode 100644
index 0000000..459ccad
Binary files /dev/null and b/src/slalib/sun67.htx/img234.gif differ
diff --git a/src/slalib/sun67.htx/img235.gif b/src/slalib/sun67.htx/img235.gif
new file mode 100644
index 0000000..b225074
Binary files /dev/null and b/src/slalib/sun67.htx/img235.gif differ
diff --git a/src/slalib/sun67.htx/img236.gif b/src/slalib/sun67.htx/img236.gif
new file mode 100644
index 0000000..a784467
Binary files /dev/null and b/src/slalib/sun67.htx/img236.gif differ
diff --git a/src/slalib/sun67.htx/img237.gif b/src/slalib/sun67.htx/img237.gif
new file mode 100644
index 0000000..3683e0a
Binary files /dev/null and b/src/slalib/sun67.htx/img237.gif differ
diff --git a/src/slalib/sun67.htx/img238.gif b/src/slalib/sun67.htx/img238.gif
new file mode 100644
index 0000000..7f5312d
Binary files /dev/null and b/src/slalib/sun67.htx/img238.gif differ
diff --git a/src/slalib/sun67.htx/img239.gif b/src/slalib/sun67.htx/img239.gif
new file mode 100644
index 0000000..6127867
Binary files /dev/null and b/src/slalib/sun67.htx/img239.gif differ
diff --git a/src/slalib/sun67.htx/img24.gif b/src/slalib/sun67.htx/img24.gif
new file mode 100644
index 0000000..259482f
Binary files /dev/null and b/src/slalib/sun67.htx/img24.gif differ
diff --git a/src/slalib/sun67.htx/img240.gif b/src/slalib/sun67.htx/img240.gif
new file mode 100644
index 0000000..6ed8940
Binary files /dev/null and b/src/slalib/sun67.htx/img240.gif differ
diff --git a/src/slalib/sun67.htx/img241.gif b/src/slalib/sun67.htx/img241.gif
new file mode 100644
index 0000000..b381cfb
Binary files /dev/null and b/src/slalib/sun67.htx/img241.gif differ
diff --git a/src/slalib/sun67.htx/img242.gif b/src/slalib/sun67.htx/img242.gif
new file mode 100644
index 0000000..ef74cab
Binary files /dev/null and b/src/slalib/sun67.htx/img242.gif differ
diff --git a/src/slalib/sun67.htx/img243.gif b/src/slalib/sun67.htx/img243.gif
new file mode 100644
index 0000000..c2ea4ad
Binary files /dev/null and b/src/slalib/sun67.htx/img243.gif differ
diff --git a/src/slalib/sun67.htx/img244.gif b/src/slalib/sun67.htx/img244.gif
new file mode 100644
index 0000000..5f3f596
Binary files /dev/null and b/src/slalib/sun67.htx/img244.gif differ
diff --git a/src/slalib/sun67.htx/img245.gif b/src/slalib/sun67.htx/img245.gif
new file mode 100644
index 0000000..cb55533
Binary files /dev/null and b/src/slalib/sun67.htx/img245.gif differ
diff --git a/src/slalib/sun67.htx/img246.gif b/src/slalib/sun67.htx/img246.gif
new file mode 100644
index 0000000..567566b
Binary files /dev/null and b/src/slalib/sun67.htx/img246.gif differ
diff --git a/src/slalib/sun67.htx/img247.gif b/src/slalib/sun67.htx/img247.gif
new file mode 100644
index 0000000..3a037ac
Binary files /dev/null and b/src/slalib/sun67.htx/img247.gif differ
diff --git a/src/slalib/sun67.htx/img248.gif b/src/slalib/sun67.htx/img248.gif
new file mode 100644
index 0000000..56d7052
Binary files /dev/null and b/src/slalib/sun67.htx/img248.gif differ
diff --git a/src/slalib/sun67.htx/img249.gif b/src/slalib/sun67.htx/img249.gif
new file mode 100644
index 0000000..410a2e1
Binary files /dev/null and b/src/slalib/sun67.htx/img249.gif differ
diff --git a/src/slalib/sun67.htx/img25.gif b/src/slalib/sun67.htx/img25.gif
new file mode 100644
index 0000000..c23b91f
Binary files /dev/null and b/src/slalib/sun67.htx/img25.gif differ
diff --git a/src/slalib/sun67.htx/img250.gif b/src/slalib/sun67.htx/img250.gif
new file mode 100644
index 0000000..7f14038
Binary files /dev/null and b/src/slalib/sun67.htx/img250.gif differ
diff --git a/src/slalib/sun67.htx/img251.gif b/src/slalib/sun67.htx/img251.gif
new file mode 100644
index 0000000..d6b6e3b
Binary files /dev/null and b/src/slalib/sun67.htx/img251.gif differ
diff --git a/src/slalib/sun67.htx/img252.gif b/src/slalib/sun67.htx/img252.gif
new file mode 100644
index 0000000..6498340
Binary files /dev/null and b/src/slalib/sun67.htx/img252.gif differ
diff --git a/src/slalib/sun67.htx/img253.gif b/src/slalib/sun67.htx/img253.gif
new file mode 100644
index 0000000..0bebbe9
Binary files /dev/null and b/src/slalib/sun67.htx/img253.gif differ
diff --git a/src/slalib/sun67.htx/img254.gif b/src/slalib/sun67.htx/img254.gif
new file mode 100644
index 0000000..14c9013
Binary files /dev/null and b/src/slalib/sun67.htx/img254.gif differ
diff --git a/src/slalib/sun67.htx/img255.gif b/src/slalib/sun67.htx/img255.gif
new file mode 100644
index 0000000..8d24328
Binary files /dev/null and b/src/slalib/sun67.htx/img255.gif differ
diff --git a/src/slalib/sun67.htx/img256.gif b/src/slalib/sun67.htx/img256.gif
new file mode 100644
index 0000000..fc390da
Binary files /dev/null and b/src/slalib/sun67.htx/img256.gif differ
diff --git a/src/slalib/sun67.htx/img257.gif b/src/slalib/sun67.htx/img257.gif
new file mode 100644
index 0000000..5f3d164
Binary files /dev/null and b/src/slalib/sun67.htx/img257.gif differ
diff --git a/src/slalib/sun67.htx/img258.gif b/src/slalib/sun67.htx/img258.gif
new file mode 100644
index 0000000..24d889b
Binary files /dev/null and b/src/slalib/sun67.htx/img258.gif differ
diff --git a/src/slalib/sun67.htx/img259.gif b/src/slalib/sun67.htx/img259.gif
new file mode 100644
index 0000000..74f348d
Binary files /dev/null and b/src/slalib/sun67.htx/img259.gif differ
diff --git a/src/slalib/sun67.htx/img26.gif b/src/slalib/sun67.htx/img26.gif
new file mode 100644
index 0000000..c9c0f27
Binary files /dev/null and b/src/slalib/sun67.htx/img26.gif differ
diff --git a/src/slalib/sun67.htx/img260.gif b/src/slalib/sun67.htx/img260.gif
new file mode 100644
index 0000000..1b6f66e
Binary files /dev/null and b/src/slalib/sun67.htx/img260.gif differ
diff --git a/src/slalib/sun67.htx/img261.gif b/src/slalib/sun67.htx/img261.gif
new file mode 100644
index 0000000..746b653
Binary files /dev/null and b/src/slalib/sun67.htx/img261.gif differ
diff --git a/src/slalib/sun67.htx/img262.gif b/src/slalib/sun67.htx/img262.gif
new file mode 100644
index 0000000..254abab
Binary files /dev/null and b/src/slalib/sun67.htx/img262.gif differ
diff --git a/src/slalib/sun67.htx/img263.gif b/src/slalib/sun67.htx/img263.gif
new file mode 100644
index 0000000..4d4381b
Binary files /dev/null and b/src/slalib/sun67.htx/img263.gif differ
diff --git a/src/slalib/sun67.htx/img264.gif b/src/slalib/sun67.htx/img264.gif
new file mode 100644
index 0000000..8558d6d
Binary files /dev/null and b/src/slalib/sun67.htx/img264.gif differ
diff --git a/src/slalib/sun67.htx/img265.gif b/src/slalib/sun67.htx/img265.gif
new file mode 100644
index 0000000..a1ece2d
Binary files /dev/null and b/src/slalib/sun67.htx/img265.gif differ
diff --git a/src/slalib/sun67.htx/img266.gif b/src/slalib/sun67.htx/img266.gif
new file mode 100644
index 0000000..fb6e395
Binary files /dev/null and b/src/slalib/sun67.htx/img266.gif differ
diff --git a/src/slalib/sun67.htx/img267.gif b/src/slalib/sun67.htx/img267.gif
new file mode 100644
index 0000000..ffb5689
Binary files /dev/null and b/src/slalib/sun67.htx/img267.gif differ
diff --git a/src/slalib/sun67.htx/img268.gif b/src/slalib/sun67.htx/img268.gif
new file mode 100644
index 0000000..939b3b0
Binary files /dev/null and b/src/slalib/sun67.htx/img268.gif differ
diff --git a/src/slalib/sun67.htx/img269.gif b/src/slalib/sun67.htx/img269.gif
new file mode 100644
index 0000000..332c9c2
Binary files /dev/null and b/src/slalib/sun67.htx/img269.gif differ
diff --git a/src/slalib/sun67.htx/img27.gif b/src/slalib/sun67.htx/img27.gif
new file mode 100644
index 0000000..4bef4a6
Binary files /dev/null and b/src/slalib/sun67.htx/img27.gif differ
diff --git a/src/slalib/sun67.htx/img270.gif b/src/slalib/sun67.htx/img270.gif
new file mode 100644
index 0000000..d8f8eae
Binary files /dev/null and b/src/slalib/sun67.htx/img270.gif differ
diff --git a/src/slalib/sun67.htx/img271.gif b/src/slalib/sun67.htx/img271.gif
new file mode 100644
index 0000000..fd26501
Binary files /dev/null and b/src/slalib/sun67.htx/img271.gif differ
diff --git a/src/slalib/sun67.htx/img272.gif b/src/slalib/sun67.htx/img272.gif
new file mode 100644
index 0000000..446ed83
Binary files /dev/null and b/src/slalib/sun67.htx/img272.gif differ
diff --git a/src/slalib/sun67.htx/img273.gif b/src/slalib/sun67.htx/img273.gif
new file mode 100644
index 0000000..b2fae8a
Binary files /dev/null and b/src/slalib/sun67.htx/img273.gif differ
diff --git a/src/slalib/sun67.htx/img274.gif b/src/slalib/sun67.htx/img274.gif
new file mode 100644
index 0000000..283bafa
Binary files /dev/null and b/src/slalib/sun67.htx/img274.gif differ
diff --git a/src/slalib/sun67.htx/img275.gif b/src/slalib/sun67.htx/img275.gif
new file mode 100644
index 0000000..577f461
Binary files /dev/null and b/src/slalib/sun67.htx/img275.gif differ
diff --git a/src/slalib/sun67.htx/img276.gif b/src/slalib/sun67.htx/img276.gif
new file mode 100644
index 0000000..7f22c78
Binary files /dev/null and b/src/slalib/sun67.htx/img276.gif differ
diff --git a/src/slalib/sun67.htx/img277.gif b/src/slalib/sun67.htx/img277.gif
new file mode 100644
index 0000000..18d807e
Binary files /dev/null and b/src/slalib/sun67.htx/img277.gif differ
diff --git a/src/slalib/sun67.htx/img278.gif b/src/slalib/sun67.htx/img278.gif
new file mode 100644
index 0000000..c6ed15c
Binary files /dev/null and b/src/slalib/sun67.htx/img278.gif differ
diff --git a/src/slalib/sun67.htx/img279.gif b/src/slalib/sun67.htx/img279.gif
new file mode 100644
index 0000000..351f567
Binary files /dev/null and b/src/slalib/sun67.htx/img279.gif differ
diff --git a/src/slalib/sun67.htx/img28.gif b/src/slalib/sun67.htx/img28.gif
new file mode 100644
index 0000000..4b6919a
Binary files /dev/null and b/src/slalib/sun67.htx/img28.gif differ
diff --git a/src/slalib/sun67.htx/img280.gif b/src/slalib/sun67.htx/img280.gif
new file mode 100644
index 0000000..c228be9
Binary files /dev/null and b/src/slalib/sun67.htx/img280.gif differ
diff --git a/src/slalib/sun67.htx/img281.gif b/src/slalib/sun67.htx/img281.gif
new file mode 100644
index 0000000..8d51a56
Binary files /dev/null and b/src/slalib/sun67.htx/img281.gif differ
diff --git a/src/slalib/sun67.htx/img282.gif b/src/slalib/sun67.htx/img282.gif
new file mode 100644
index 0000000..aa9287e
Binary files /dev/null and b/src/slalib/sun67.htx/img282.gif differ
diff --git a/src/slalib/sun67.htx/img283.gif b/src/slalib/sun67.htx/img283.gif
new file mode 100644
index 0000000..fb8d1b1
Binary files /dev/null and b/src/slalib/sun67.htx/img283.gif differ
diff --git a/src/slalib/sun67.htx/img284.gif b/src/slalib/sun67.htx/img284.gif
new file mode 100644
index 0000000..fbd698f
Binary files /dev/null and b/src/slalib/sun67.htx/img284.gif differ
diff --git a/src/slalib/sun67.htx/img285.gif b/src/slalib/sun67.htx/img285.gif
new file mode 100644
index 0000000..5685c53
Binary files /dev/null and b/src/slalib/sun67.htx/img285.gif differ
diff --git a/src/slalib/sun67.htx/img286.gif b/src/slalib/sun67.htx/img286.gif
new file mode 100644
index 0000000..3af2f57
Binary files /dev/null and b/src/slalib/sun67.htx/img286.gif differ
diff --git a/src/slalib/sun67.htx/img287.gif b/src/slalib/sun67.htx/img287.gif
new file mode 100644
index 0000000..a908eb7
Binary files /dev/null and b/src/slalib/sun67.htx/img287.gif differ
diff --git a/src/slalib/sun67.htx/img288.gif b/src/slalib/sun67.htx/img288.gif
new file mode 100644
index 0000000..5c741bf
Binary files /dev/null and b/src/slalib/sun67.htx/img288.gif differ
diff --git a/src/slalib/sun67.htx/img289.gif b/src/slalib/sun67.htx/img289.gif
new file mode 100644
index 0000000..851a6bd
Binary files /dev/null and b/src/slalib/sun67.htx/img289.gif differ
diff --git a/src/slalib/sun67.htx/img29.gif b/src/slalib/sun67.htx/img29.gif
new file mode 100644
index 0000000..79608f4
Binary files /dev/null and b/src/slalib/sun67.htx/img29.gif differ
diff --git a/src/slalib/sun67.htx/img290.gif b/src/slalib/sun67.htx/img290.gif
new file mode 100644
index 0000000..9d978a9
Binary files /dev/null and b/src/slalib/sun67.htx/img290.gif differ
diff --git a/src/slalib/sun67.htx/img291.gif b/src/slalib/sun67.htx/img291.gif
new file mode 100644
index 0000000..558f6bd
Binary files /dev/null and b/src/slalib/sun67.htx/img291.gif differ
diff --git a/src/slalib/sun67.htx/img292.gif b/src/slalib/sun67.htx/img292.gif
new file mode 100644
index 0000000..7d1dea2
Binary files /dev/null and b/src/slalib/sun67.htx/img292.gif differ
diff --git a/src/slalib/sun67.htx/img293.gif b/src/slalib/sun67.htx/img293.gif
new file mode 100644
index 0000000..9bdcea6
Binary files /dev/null and b/src/slalib/sun67.htx/img293.gif differ
diff --git a/src/slalib/sun67.htx/img294.gif b/src/slalib/sun67.htx/img294.gif
new file mode 100644
index 0000000..405e13e
Binary files /dev/null and b/src/slalib/sun67.htx/img294.gif differ
diff --git a/src/slalib/sun67.htx/img295.gif b/src/slalib/sun67.htx/img295.gif
new file mode 100644
index 0000000..3ed0af7
Binary files /dev/null and b/src/slalib/sun67.htx/img295.gif differ
diff --git a/src/slalib/sun67.htx/img296.gif b/src/slalib/sun67.htx/img296.gif
new file mode 100644
index 0000000..a627d43
Binary files /dev/null and b/src/slalib/sun67.htx/img296.gif differ
diff --git a/src/slalib/sun67.htx/img297.gif b/src/slalib/sun67.htx/img297.gif
new file mode 100644
index 0000000..9975e0d
Binary files /dev/null and b/src/slalib/sun67.htx/img297.gif differ
diff --git a/src/slalib/sun67.htx/img298.gif b/src/slalib/sun67.htx/img298.gif
new file mode 100644
index 0000000..c3b3df9
Binary files /dev/null and b/src/slalib/sun67.htx/img298.gif differ
diff --git a/src/slalib/sun67.htx/img299.gif b/src/slalib/sun67.htx/img299.gif
new file mode 100644
index 0000000..26aea95
Binary files /dev/null and b/src/slalib/sun67.htx/img299.gif differ
diff --git a/src/slalib/sun67.htx/img3.gif b/src/slalib/sun67.htx/img3.gif
new file mode 100644
index 0000000..28305ee
Binary files /dev/null and b/src/slalib/sun67.htx/img3.gif differ
diff --git a/src/slalib/sun67.htx/img30.gif b/src/slalib/sun67.htx/img30.gif
new file mode 100644
index 0000000..58742b5
Binary files /dev/null and b/src/slalib/sun67.htx/img30.gif differ
diff --git a/src/slalib/sun67.htx/img300.gif b/src/slalib/sun67.htx/img300.gif
new file mode 100644
index 0000000..efe55e8
Binary files /dev/null and b/src/slalib/sun67.htx/img300.gif differ
diff --git a/src/slalib/sun67.htx/img301.gif b/src/slalib/sun67.htx/img301.gif
new file mode 100644
index 0000000..0f38885
Binary files /dev/null and b/src/slalib/sun67.htx/img301.gif differ
diff --git a/src/slalib/sun67.htx/img302.gif b/src/slalib/sun67.htx/img302.gif
new file mode 100644
index 0000000..7007302
Binary files /dev/null and b/src/slalib/sun67.htx/img302.gif differ
diff --git a/src/slalib/sun67.htx/img303.gif b/src/slalib/sun67.htx/img303.gif
new file mode 100644
index 0000000..ceca088
Binary files /dev/null and b/src/slalib/sun67.htx/img303.gif differ
diff --git a/src/slalib/sun67.htx/img304.gif b/src/slalib/sun67.htx/img304.gif
new file mode 100644
index 0000000..d468e94
Binary files /dev/null and b/src/slalib/sun67.htx/img304.gif differ
diff --git a/src/slalib/sun67.htx/img305.gif b/src/slalib/sun67.htx/img305.gif
new file mode 100644
index 0000000..eea091b
Binary files /dev/null and b/src/slalib/sun67.htx/img305.gif differ
diff --git a/src/slalib/sun67.htx/img306.gif b/src/slalib/sun67.htx/img306.gif
new file mode 100644
index 0000000..03e13a7
Binary files /dev/null and b/src/slalib/sun67.htx/img306.gif differ
diff --git a/src/slalib/sun67.htx/img307.gif b/src/slalib/sun67.htx/img307.gif
new file mode 100644
index 0000000..cb79407
Binary files /dev/null and b/src/slalib/sun67.htx/img307.gif differ
diff --git a/src/slalib/sun67.htx/img308.gif b/src/slalib/sun67.htx/img308.gif
new file mode 100644
index 0000000..1cd3549
Binary files /dev/null and b/src/slalib/sun67.htx/img308.gif differ
diff --git a/src/slalib/sun67.htx/img309.gif b/src/slalib/sun67.htx/img309.gif
new file mode 100644
index 0000000..4233e9b
Binary files /dev/null and b/src/slalib/sun67.htx/img309.gif differ
diff --git a/src/slalib/sun67.htx/img31.gif b/src/slalib/sun67.htx/img31.gif
new file mode 100644
index 0000000..428c955
Binary files /dev/null and b/src/slalib/sun67.htx/img31.gif differ
diff --git a/src/slalib/sun67.htx/img310.gif b/src/slalib/sun67.htx/img310.gif
new file mode 100644
index 0000000..309e909
Binary files /dev/null and b/src/slalib/sun67.htx/img310.gif differ
diff --git a/src/slalib/sun67.htx/img311.gif b/src/slalib/sun67.htx/img311.gif
new file mode 100644
index 0000000..f00e788
Binary files /dev/null and b/src/slalib/sun67.htx/img311.gif differ
diff --git a/src/slalib/sun67.htx/img312.gif b/src/slalib/sun67.htx/img312.gif
new file mode 100644
index 0000000..16e6dc2
Binary files /dev/null and b/src/slalib/sun67.htx/img312.gif differ
diff --git a/src/slalib/sun67.htx/img313.gif b/src/slalib/sun67.htx/img313.gif
new file mode 100644
index 0000000..8c3bfe9
Binary files /dev/null and b/src/slalib/sun67.htx/img313.gif differ
diff --git a/src/slalib/sun67.htx/img314.gif b/src/slalib/sun67.htx/img314.gif
new file mode 100644
index 0000000..181b5dd
Binary files /dev/null and b/src/slalib/sun67.htx/img314.gif differ
diff --git a/src/slalib/sun67.htx/img315.gif b/src/slalib/sun67.htx/img315.gif
new file mode 100644
index 0000000..73700d7
Binary files /dev/null and b/src/slalib/sun67.htx/img315.gif differ
diff --git a/src/slalib/sun67.htx/img316.gif b/src/slalib/sun67.htx/img316.gif
new file mode 100644
index 0000000..abcc748
Binary files /dev/null and b/src/slalib/sun67.htx/img316.gif differ
diff --git a/src/slalib/sun67.htx/img317.gif b/src/slalib/sun67.htx/img317.gif
new file mode 100644
index 0000000..67607bd
Binary files /dev/null and b/src/slalib/sun67.htx/img317.gif differ
diff --git a/src/slalib/sun67.htx/img318.gif b/src/slalib/sun67.htx/img318.gif
new file mode 100644
index 0000000..9d0e3ab
Binary files /dev/null and b/src/slalib/sun67.htx/img318.gif differ
diff --git a/src/slalib/sun67.htx/img319.gif b/src/slalib/sun67.htx/img319.gif
new file mode 100644
index 0000000..12cac0b
Binary files /dev/null and b/src/slalib/sun67.htx/img319.gif differ
diff --git a/src/slalib/sun67.htx/img32.gif b/src/slalib/sun67.htx/img32.gif
new file mode 100644
index 0000000..9fe70ea
Binary files /dev/null and b/src/slalib/sun67.htx/img32.gif differ
diff --git a/src/slalib/sun67.htx/img320.gif b/src/slalib/sun67.htx/img320.gif
new file mode 100644
index 0000000..2fa40fa
Binary files /dev/null and b/src/slalib/sun67.htx/img320.gif differ
diff --git a/src/slalib/sun67.htx/img321.gif b/src/slalib/sun67.htx/img321.gif
new file mode 100644
index 0000000..14a0607
Binary files /dev/null and b/src/slalib/sun67.htx/img321.gif differ
diff --git a/src/slalib/sun67.htx/img322.gif b/src/slalib/sun67.htx/img322.gif
new file mode 100644
index 0000000..bc4b6b5
Binary files /dev/null and b/src/slalib/sun67.htx/img322.gif differ
diff --git a/src/slalib/sun67.htx/img323.gif b/src/slalib/sun67.htx/img323.gif
new file mode 100644
index 0000000..301d22c
Binary files /dev/null and b/src/slalib/sun67.htx/img323.gif differ
diff --git a/src/slalib/sun67.htx/img324.gif b/src/slalib/sun67.htx/img324.gif
new file mode 100644
index 0000000..ac2beb5
Binary files /dev/null and b/src/slalib/sun67.htx/img324.gif differ
diff --git a/src/slalib/sun67.htx/img325.gif b/src/slalib/sun67.htx/img325.gif
new file mode 100644
index 0000000..257bb36
Binary files /dev/null and b/src/slalib/sun67.htx/img325.gif differ
diff --git a/src/slalib/sun67.htx/img326.gif b/src/slalib/sun67.htx/img326.gif
new file mode 100644
index 0000000..9e40eb5
Binary files /dev/null and b/src/slalib/sun67.htx/img326.gif differ
diff --git a/src/slalib/sun67.htx/img327.gif b/src/slalib/sun67.htx/img327.gif
new file mode 100644
index 0000000..0489499
Binary files /dev/null and b/src/slalib/sun67.htx/img327.gif differ
diff --git a/src/slalib/sun67.htx/img328.gif b/src/slalib/sun67.htx/img328.gif
new file mode 100644
index 0000000..adbcf42
Binary files /dev/null and b/src/slalib/sun67.htx/img328.gif differ
diff --git a/src/slalib/sun67.htx/img329.gif b/src/slalib/sun67.htx/img329.gif
new file mode 100644
index 0000000..10d6367
Binary files /dev/null and b/src/slalib/sun67.htx/img329.gif differ
diff --git a/src/slalib/sun67.htx/img33.gif b/src/slalib/sun67.htx/img33.gif
new file mode 100644
index 0000000..60cc80f
Binary files /dev/null and b/src/slalib/sun67.htx/img33.gif differ
diff --git a/src/slalib/sun67.htx/img330.gif b/src/slalib/sun67.htx/img330.gif
new file mode 100644
index 0000000..894b280
Binary files /dev/null and b/src/slalib/sun67.htx/img330.gif differ
diff --git a/src/slalib/sun67.htx/img34.gif b/src/slalib/sun67.htx/img34.gif
new file mode 100644
index 0000000..3dca0ca
Binary files /dev/null and b/src/slalib/sun67.htx/img34.gif differ
diff --git a/src/slalib/sun67.htx/img35.gif b/src/slalib/sun67.htx/img35.gif
new file mode 100644
index 0000000..19639cd
Binary files /dev/null and b/src/slalib/sun67.htx/img35.gif differ
diff --git a/src/slalib/sun67.htx/img36.gif b/src/slalib/sun67.htx/img36.gif
new file mode 100644
index 0000000..2d50927
Binary files /dev/null and b/src/slalib/sun67.htx/img36.gif differ
diff --git a/src/slalib/sun67.htx/img37.gif b/src/slalib/sun67.htx/img37.gif
new file mode 100644
index 0000000..e5d5bf1
Binary files /dev/null and b/src/slalib/sun67.htx/img37.gif differ
diff --git a/src/slalib/sun67.htx/img38.gif b/src/slalib/sun67.htx/img38.gif
new file mode 100644
index 0000000..4bb025e
Binary files /dev/null and b/src/slalib/sun67.htx/img38.gif differ
diff --git a/src/slalib/sun67.htx/img39.gif b/src/slalib/sun67.htx/img39.gif
new file mode 100644
index 0000000..395cb4c
Binary files /dev/null and b/src/slalib/sun67.htx/img39.gif differ
diff --git a/src/slalib/sun67.htx/img4.gif b/src/slalib/sun67.htx/img4.gif
new file mode 100644
index 0000000..fdb8e23
Binary files /dev/null and b/src/slalib/sun67.htx/img4.gif differ
diff --git a/src/slalib/sun67.htx/img40.gif b/src/slalib/sun67.htx/img40.gif
new file mode 100644
index 0000000..50874f2
Binary files /dev/null and b/src/slalib/sun67.htx/img40.gif differ
diff --git a/src/slalib/sun67.htx/img41.gif b/src/slalib/sun67.htx/img41.gif
new file mode 100644
index 0000000..aa024b5
Binary files /dev/null and b/src/slalib/sun67.htx/img41.gif differ
diff --git a/src/slalib/sun67.htx/img42.gif b/src/slalib/sun67.htx/img42.gif
new file mode 100644
index 0000000..e5df416
Binary files /dev/null and b/src/slalib/sun67.htx/img42.gif differ
diff --git a/src/slalib/sun67.htx/img43.gif b/src/slalib/sun67.htx/img43.gif
new file mode 100644
index 0000000..793fdfe
Binary files /dev/null and b/src/slalib/sun67.htx/img43.gif differ
diff --git a/src/slalib/sun67.htx/img44.gif b/src/slalib/sun67.htx/img44.gif
new file mode 100644
index 0000000..077f340
Binary files /dev/null and b/src/slalib/sun67.htx/img44.gif differ
diff --git a/src/slalib/sun67.htx/img45.gif b/src/slalib/sun67.htx/img45.gif
new file mode 100644
index 0000000..e3ff749
Binary files /dev/null and b/src/slalib/sun67.htx/img45.gif differ
diff --git a/src/slalib/sun67.htx/img46.gif b/src/slalib/sun67.htx/img46.gif
new file mode 100644
index 0000000..b0cf7e0
Binary files /dev/null and b/src/slalib/sun67.htx/img46.gif differ
diff --git a/src/slalib/sun67.htx/img47.gif b/src/slalib/sun67.htx/img47.gif
new file mode 100644
index 0000000..12601c3
Binary files /dev/null and b/src/slalib/sun67.htx/img47.gif differ
diff --git a/src/slalib/sun67.htx/img48.gif b/src/slalib/sun67.htx/img48.gif
new file mode 100644
index 0000000..a582489
Binary files /dev/null and b/src/slalib/sun67.htx/img48.gif differ
diff --git a/src/slalib/sun67.htx/img49.gif b/src/slalib/sun67.htx/img49.gif
new file mode 100644
index 0000000..ed7025f
Binary files /dev/null and b/src/slalib/sun67.htx/img49.gif differ
diff --git a/src/slalib/sun67.htx/img5.gif b/src/slalib/sun67.htx/img5.gif
new file mode 100644
index 0000000..b692faf
Binary files /dev/null and b/src/slalib/sun67.htx/img5.gif differ
diff --git a/src/slalib/sun67.htx/img50.gif b/src/slalib/sun67.htx/img50.gif
new file mode 100644
index 0000000..da83b3f
Binary files /dev/null and b/src/slalib/sun67.htx/img50.gif differ
diff --git a/src/slalib/sun67.htx/img51.gif b/src/slalib/sun67.htx/img51.gif
new file mode 100644
index 0000000..eabbd1e
Binary files /dev/null and b/src/slalib/sun67.htx/img51.gif differ
diff --git a/src/slalib/sun67.htx/img52.gif b/src/slalib/sun67.htx/img52.gif
new file mode 100644
index 0000000..5a84c00
Binary files /dev/null and b/src/slalib/sun67.htx/img52.gif differ
diff --git a/src/slalib/sun67.htx/img53.gif b/src/slalib/sun67.htx/img53.gif
new file mode 100644
index 0000000..384c210
Binary files /dev/null and b/src/slalib/sun67.htx/img53.gif differ
diff --git a/src/slalib/sun67.htx/img54.gif b/src/slalib/sun67.htx/img54.gif
new file mode 100644
index 0000000..da4e988
Binary files /dev/null and b/src/slalib/sun67.htx/img54.gif differ
diff --git a/src/slalib/sun67.htx/img55.gif b/src/slalib/sun67.htx/img55.gif
new file mode 100644
index 0000000..b312800
Binary files /dev/null and b/src/slalib/sun67.htx/img55.gif differ
diff --git a/src/slalib/sun67.htx/img56.gif b/src/slalib/sun67.htx/img56.gif
new file mode 100644
index 0000000..2faf373
Binary files /dev/null and b/src/slalib/sun67.htx/img56.gif differ
diff --git a/src/slalib/sun67.htx/img57.gif b/src/slalib/sun67.htx/img57.gif
new file mode 100644
index 0000000..84883c2
Binary files /dev/null and b/src/slalib/sun67.htx/img57.gif differ
diff --git a/src/slalib/sun67.htx/img58.gif b/src/slalib/sun67.htx/img58.gif
new file mode 100644
index 0000000..f2dc064
Binary files /dev/null and b/src/slalib/sun67.htx/img58.gif differ
diff --git a/src/slalib/sun67.htx/img59.gif b/src/slalib/sun67.htx/img59.gif
new file mode 100644
index 0000000..b17eac6
Binary files /dev/null and b/src/slalib/sun67.htx/img59.gif differ
diff --git a/src/slalib/sun67.htx/img6.gif b/src/slalib/sun67.htx/img6.gif
new file mode 100644
index 0000000..d06343f
Binary files /dev/null and b/src/slalib/sun67.htx/img6.gif differ
diff --git a/src/slalib/sun67.htx/img60.gif b/src/slalib/sun67.htx/img60.gif
new file mode 100644
index 0000000..9367888
Binary files /dev/null and b/src/slalib/sun67.htx/img60.gif differ
diff --git a/src/slalib/sun67.htx/img61.gif b/src/slalib/sun67.htx/img61.gif
new file mode 100644
index 0000000..34173ab
Binary files /dev/null and b/src/slalib/sun67.htx/img61.gif differ
diff --git a/src/slalib/sun67.htx/img62.gif b/src/slalib/sun67.htx/img62.gif
new file mode 100644
index 0000000..03d3e12
Binary files /dev/null and b/src/slalib/sun67.htx/img62.gif differ
diff --git a/src/slalib/sun67.htx/img63.gif b/src/slalib/sun67.htx/img63.gif
new file mode 100644
index 0000000..b64b4d8
Binary files /dev/null and b/src/slalib/sun67.htx/img63.gif differ
diff --git a/src/slalib/sun67.htx/img64.gif b/src/slalib/sun67.htx/img64.gif
new file mode 100644
index 0000000..69bef85
Binary files /dev/null and b/src/slalib/sun67.htx/img64.gif differ
diff --git a/src/slalib/sun67.htx/img65.gif b/src/slalib/sun67.htx/img65.gif
new file mode 100644
index 0000000..8faeca4
Binary files /dev/null and b/src/slalib/sun67.htx/img65.gif differ
diff --git a/src/slalib/sun67.htx/img66.gif b/src/slalib/sun67.htx/img66.gif
new file mode 100644
index 0000000..0437749
Binary files /dev/null and b/src/slalib/sun67.htx/img66.gif differ
diff --git a/src/slalib/sun67.htx/img67.gif b/src/slalib/sun67.htx/img67.gif
new file mode 100644
index 0000000..63fedd9
Binary files /dev/null and b/src/slalib/sun67.htx/img67.gif differ
diff --git a/src/slalib/sun67.htx/img68.gif b/src/slalib/sun67.htx/img68.gif
new file mode 100644
index 0000000..bd0d18f
Binary files /dev/null and b/src/slalib/sun67.htx/img68.gif differ
diff --git a/src/slalib/sun67.htx/img69.gif b/src/slalib/sun67.htx/img69.gif
new file mode 100644
index 0000000..65f6ac6
Binary files /dev/null and b/src/slalib/sun67.htx/img69.gif differ
diff --git a/src/slalib/sun67.htx/img7.gif b/src/slalib/sun67.htx/img7.gif
new file mode 100644
index 0000000..4d54546
Binary files /dev/null and b/src/slalib/sun67.htx/img7.gif differ
diff --git a/src/slalib/sun67.htx/img70.gif b/src/slalib/sun67.htx/img70.gif
new file mode 100644
index 0000000..5711ca9
Binary files /dev/null and b/src/slalib/sun67.htx/img70.gif differ
diff --git a/src/slalib/sun67.htx/img71.gif b/src/slalib/sun67.htx/img71.gif
new file mode 100644
index 0000000..dcbde3c
Binary files /dev/null and b/src/slalib/sun67.htx/img71.gif differ
diff --git a/src/slalib/sun67.htx/img72.gif b/src/slalib/sun67.htx/img72.gif
new file mode 100644
index 0000000..c58e3d1
Binary files /dev/null and b/src/slalib/sun67.htx/img72.gif differ
diff --git a/src/slalib/sun67.htx/img73.gif b/src/slalib/sun67.htx/img73.gif
new file mode 100644
index 0000000..37e1e89
Binary files /dev/null and b/src/slalib/sun67.htx/img73.gif differ
diff --git a/src/slalib/sun67.htx/img74.gif b/src/slalib/sun67.htx/img74.gif
new file mode 100644
index 0000000..01fee78
Binary files /dev/null and b/src/slalib/sun67.htx/img74.gif differ
diff --git a/src/slalib/sun67.htx/img75.gif b/src/slalib/sun67.htx/img75.gif
new file mode 100644
index 0000000..722695e
Binary files /dev/null and b/src/slalib/sun67.htx/img75.gif differ
diff --git a/src/slalib/sun67.htx/img76.gif b/src/slalib/sun67.htx/img76.gif
new file mode 100644
index 0000000..50dea3d
Binary files /dev/null and b/src/slalib/sun67.htx/img76.gif differ
diff --git a/src/slalib/sun67.htx/img77.gif b/src/slalib/sun67.htx/img77.gif
new file mode 100644
index 0000000..236375c
Binary files /dev/null and b/src/slalib/sun67.htx/img77.gif differ
diff --git a/src/slalib/sun67.htx/img78.gif b/src/slalib/sun67.htx/img78.gif
new file mode 100644
index 0000000..d48830d
Binary files /dev/null and b/src/slalib/sun67.htx/img78.gif differ
diff --git a/src/slalib/sun67.htx/img79.gif b/src/slalib/sun67.htx/img79.gif
new file mode 100644
index 0000000..26c8df8
Binary files /dev/null and b/src/slalib/sun67.htx/img79.gif differ
diff --git a/src/slalib/sun67.htx/img8.gif b/src/slalib/sun67.htx/img8.gif
new file mode 100644
index 0000000..aaabf5c
Binary files /dev/null and b/src/slalib/sun67.htx/img8.gif differ
diff --git a/src/slalib/sun67.htx/img80.gif b/src/slalib/sun67.htx/img80.gif
new file mode 100644
index 0000000..a3d56cb
Binary files /dev/null and b/src/slalib/sun67.htx/img80.gif differ
diff --git a/src/slalib/sun67.htx/img81.gif b/src/slalib/sun67.htx/img81.gif
new file mode 100644
index 0000000..e968ec3
Binary files /dev/null and b/src/slalib/sun67.htx/img81.gif differ
diff --git a/src/slalib/sun67.htx/img82.gif b/src/slalib/sun67.htx/img82.gif
new file mode 100644
index 0000000..7f9efc5
Binary files /dev/null and b/src/slalib/sun67.htx/img82.gif differ
diff --git a/src/slalib/sun67.htx/img83.gif b/src/slalib/sun67.htx/img83.gif
new file mode 100644
index 0000000..c8fb2dc
Binary files /dev/null and b/src/slalib/sun67.htx/img83.gif differ
diff --git a/src/slalib/sun67.htx/img84.gif b/src/slalib/sun67.htx/img84.gif
new file mode 100644
index 0000000..567d43d
Binary files /dev/null and b/src/slalib/sun67.htx/img84.gif differ
diff --git a/src/slalib/sun67.htx/img85.gif b/src/slalib/sun67.htx/img85.gif
new file mode 100644
index 0000000..a7fe52c
Binary files /dev/null and b/src/slalib/sun67.htx/img85.gif differ
diff --git a/src/slalib/sun67.htx/img86.gif b/src/slalib/sun67.htx/img86.gif
new file mode 100644
index 0000000..dce1c63
Binary files /dev/null and b/src/slalib/sun67.htx/img86.gif differ
diff --git a/src/slalib/sun67.htx/img87.gif b/src/slalib/sun67.htx/img87.gif
new file mode 100644
index 0000000..063722f
Binary files /dev/null and b/src/slalib/sun67.htx/img87.gif differ
diff --git a/src/slalib/sun67.htx/img88.gif b/src/slalib/sun67.htx/img88.gif
new file mode 100644
index 0000000..3ef4f13
Binary files /dev/null and b/src/slalib/sun67.htx/img88.gif differ
diff --git a/src/slalib/sun67.htx/img89.gif b/src/slalib/sun67.htx/img89.gif
new file mode 100644
index 0000000..ed6e37c
Binary files /dev/null and b/src/slalib/sun67.htx/img89.gif differ
diff --git a/src/slalib/sun67.htx/img9.gif b/src/slalib/sun67.htx/img9.gif
new file mode 100644
index 0000000..b608337
Binary files /dev/null and b/src/slalib/sun67.htx/img9.gif differ
diff --git a/src/slalib/sun67.htx/img90.gif b/src/slalib/sun67.htx/img90.gif
new file mode 100644
index 0000000..b3b96dc
Binary files /dev/null and b/src/slalib/sun67.htx/img90.gif differ
diff --git a/src/slalib/sun67.htx/img91.gif b/src/slalib/sun67.htx/img91.gif
new file mode 100644
index 0000000..b5bf656
Binary files /dev/null and b/src/slalib/sun67.htx/img91.gif differ
diff --git a/src/slalib/sun67.htx/img92.gif b/src/slalib/sun67.htx/img92.gif
new file mode 100644
index 0000000..8105c30
Binary files /dev/null and b/src/slalib/sun67.htx/img92.gif differ
diff --git a/src/slalib/sun67.htx/img93.gif b/src/slalib/sun67.htx/img93.gif
new file mode 100644
index 0000000..8f0e16c
Binary files /dev/null and b/src/slalib/sun67.htx/img93.gif differ
diff --git a/src/slalib/sun67.htx/img94.gif b/src/slalib/sun67.htx/img94.gif
new file mode 100644
index 0000000..1dbd091
Binary files /dev/null and b/src/slalib/sun67.htx/img94.gif differ
diff --git a/src/slalib/sun67.htx/img95.gif b/src/slalib/sun67.htx/img95.gif
new file mode 100644
index 0000000..3ace0ea
Binary files /dev/null and b/src/slalib/sun67.htx/img95.gif differ
diff --git a/src/slalib/sun67.htx/img96.gif b/src/slalib/sun67.htx/img96.gif
new file mode 100644
index 0000000..cf79e82
Binary files /dev/null and b/src/slalib/sun67.htx/img96.gif differ
diff --git a/src/slalib/sun67.htx/img97.gif b/src/slalib/sun67.htx/img97.gif
new file mode 100644
index 0000000..a1b4481
Binary files /dev/null and b/src/slalib/sun67.htx/img97.gif differ
diff --git a/src/slalib/sun67.htx/img98.gif b/src/slalib/sun67.htx/img98.gif
new file mode 100644
index 0000000..4acedf7
Binary files /dev/null and b/src/slalib/sun67.htx/img98.gif differ
diff --git a/src/slalib/sun67.htx/img99.gif b/src/slalib/sun67.htx/img99.gif
new file mode 100644
index 0000000..308e155
Binary files /dev/null and b/src/slalib/sun67.htx/img99.gif differ
diff --git a/src/slalib/sun67.htx/index_motif.gif b/src/slalib/sun67.htx/index_motif.gif
new file mode 100644
index 0000000..b9b3108
Binary files /dev/null and b/src/slalib/sun67.htx/index_motif.gif differ
diff --git a/src/slalib/sun67.htx/internals.pl b/src/slalib/sun67.htx/internals.pl
new file mode 100644
index 0000000..d340e74
--- /dev/null
+++ b/src/slalib/sun67.htx/internals.pl
@@ -0,0 +1,1482 @@
+# LaTeX2HTML 97.1 (release) (July 13th, 1997)
+# Associate internals original text with physical files.
+
+
+$key = q/SLA_DR2TF/;
+$ref_files{$key} = "$dir".q|node67.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_OBS/;
+$ref_files{$key} = "$dir".q|node137.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DD2TF/;
+$ref_files{$key} = "$dir".q|node52.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DIMXV/;
+$ref_files{$key} = "$dir".q|node57.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PRECL/;
+$ref_files{$key} = "$dir".q|node154.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EVP/;
+$ref_files{$key} = "$dir".q|node102.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FLOTIN/;
+$ref_files{$key} = "$dir".q|node110.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DTP2S/;
+$ref_files{$key} = "$dir".q|node76.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RANGE/;
+$ref_files{$key} = "$dir".q|node161.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_NUTC/;
+$ref_files{$key} = "$dir".q|node134.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_TPV2C/;
+$ref_files{$key} = "$dir".q|node186.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DTP2V/;
+$ref_files{$key} = "$dir".q|node77.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_VDV/;
+$ref_files{$key} = "$dir".q|node191.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FK52H/;
+$ref_files{$key} = "$dir".q|node107.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DVN/;
+$ref_files{$key} = "$dir".q|node83.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PREC/;
+$ref_files{$key} = "$dir".q|node152.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EQECL/;
+$ref_files{$key} = "$dir".q|node97.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_H2E/;
+$ref_files{$key} = "$dir".q|node118.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AOP/;
+$ref_files{$key} = "$dir".q|node20.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DS2C6/;
+$ref_files{$key} = "$dir".q|node70.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DRANRM/;
+$ref_files{$key} = "$dir".q|node69.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PAV/;
+$ref_files{$key} = "$dir".q|node139.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FITXY/;
+$ref_files{$key} = "$dir".q|node103.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CS2C/;
+$ref_files{$key} = "$dir".q|node38.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CC2S/;
+$ref_files{$key} = "$dir".q|node30.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DT/;
+$ref_files{$key} = "$dir".q|node73.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PDA2H/;
+$ref_files{$key} = "$dir".q|node141.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RVLSRD/;
+$ref_files{$key} = "$dir".q|node173.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EG50/;
+$ref_files{$key} = "$dir".q|node90.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DMOON/;
+$ref_files{$key} = "$dir".q|node62.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DJCAL/;
+$ref_files{$key} = "$dir".q|node58.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AMP/;
+$ref_files{$key} = "$dir".q|node18.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CD2TF/;
+$ref_files{$key} = "$dir".q|node32.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EARTH/;
+$ref_files{$key} = "$dir".q|node86.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_OAP/;
+$ref_files{$key} = "$dir".q|node135.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RANDOM/;
+$ref_files{$key} = "$dir".q|node160.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_WAIT/;
+$ref_files{$key} = "$dir".q|node194.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AV2M/;
+$ref_files{$key} = "$dir".q|node25.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_NUT/;
+$ref_files{$key} = "$dir".q|node133.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_SUBET/;
+$ref_files{$key} = "$dir".q|node178.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RVLSRK/;
+$ref_files{$key} = "$dir".q|node174.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_BEAR/;
+$ref_files{$key} = "$dir".q|node26.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PDQ2H/;
+$ref_files{$key} = "$dir".q|node142.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CLYD/;
+$ref_files{$key} = "$dir".q|node34.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_V2TP/;
+$ref_files{$key} = "$dir".q|node190.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_INTIN/;
+$ref_files{$key} = "$dir".q|node122.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_COMBN/;
+$ref_files{$key} = "$dir".q|node35.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CTF2D/;
+$ref_files{$key} = "$dir".q|node40.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FK45Z/;
+$ref_files{$key} = "$dir".q|node105.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DVXV/;
+$ref_files{$key} = "$dir".q|node84.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_S2TP/;
+$ref_files{$key} = "$dir".q|node175.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CALYD/;
+$ref_files{$key} = "$dir".q|node29.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DCS2C/;
+$ref_files{$key} = "$dir".q|node51.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DCC2S/;
+$ref_files{$key} = "$dir".q|node49.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DAF2R/;
+$ref_files{$key} = "$dir".q|node42.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_REFRO/;
+$ref_files{$key} = "$dir".q|node167.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_MXM/;
+$ref_files{$key} = "$dir".q|node131.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CTF2R/;
+$ref_files{$key} = "$dir".q|node41.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DC62S/;
+$ref_files{$key} = "$dir".q|node48.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PCD/;
+$ref_files{$key} = "$dir".q|node140.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_OBS/;
+$ref_files{$key} = "$dir".q|node137.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DT/;
+$ref_files{$key} = "$dir".q|node73.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DAV2M/;
+$ref_files{$key} = "$dir".q|node45.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_MXV/;
+$ref_files{$key} = "$dir".q|node132.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_OAPQK/;
+$ref_files{$key} = "$dir".q|node136.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EL2UE/;
+$ref_files{$key} = "$dir".q|node91.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EULER/;
+$ref_files{$key} = "$dir".q|node101.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RVLSRD/;
+$ref_files{$key} = "$dir".q|node173.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DBEAR/;
+$ref_files{$key} = "$dir".q|node46.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EQGAL/;
+$ref_files{$key} = "$dir".q|node99.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EVP/;
+$ref_files{$key} = "$dir".q|node102.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RANDOM/;
+$ref_files{$key} = "$dir".q|node160.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CR2AF/;
+$ref_files{$key} = "$dir".q|node36.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_REFCO/;
+$ref_files{$key} = "$dir".q|node165.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RVLSRK/;
+$ref_files{$key} = "$dir".q|node174.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_VDV/;
+$ref_files{$key} = "$dir".q|node191.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EPCO/;
+$ref_files{$key} = "$dir".q|node94.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FK54Z/;
+$ref_files{$key} = "$dir".q|node108.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_M2AV/;
+$ref_files{$key} = "$dir".q|node125.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FK425/;
+$ref_files{$key} = "$dir".q|node104.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DS2TP/;
+$ref_files{$key} = "$dir".q|node71.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AOPPA/;
+$ref_files{$key} = "$dir".q|node21.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_GE50/;
+$ref_files{$key} = "$dir".q|node113.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_H2E/;
+$ref_files{$key} = "$dir".q|node118.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AOP/;
+$ref_files{$key} = "$dir".q|node20.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DFLTIN/;
+$ref_files{$key} = "$dir".q|node55.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_VN/;
+$ref_files{$key} = "$dir".q|node192.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_UNPCD/;
+$ref_files{$key} = "$dir".q|node189.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_GMST/;
+$ref_files{$key} = "$dir".q|node115.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PAV/;
+$ref_files{$key} = "$dir".q|node139.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ALTAZ/;
+$ref_files{$key} = "$dir".q|node17.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DJCL/;
+$ref_files{$key} = "$dir".q|node59.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CC62S/;
+$ref_files{$key} = "$dir".q|node31.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_MAPPA/;
+$ref_files{$key} = "$dir".q|node127.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DRANGE/;
+$ref_files{$key} = "$dir".q|node68.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_UE2PV/;
+$ref_files{$key} = "$dir".q|node188.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DTPV2C/;
+$ref_files{$key} = "$dir".q|node79.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DVDV/;
+$ref_files{$key} = "$dir".q|node82.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_NUT/;
+$ref_files{$key} = "$dir".q|node133.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ETRMS/;
+$ref_files{$key} = "$dir".q|node100.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PRECES/;
+$ref_files{$key} = "$dir".q|node153.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DAFIN/;
+$ref_files{$key} = "$dir".q|node43.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PREBN/;
+$ref_files{$key} = "$dir".q|node151.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DH2E/;
+$ref_files{$key} = "$dir".q|node56.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AOPPAT/;
+$ref_files{$key} = "$dir".q|node22.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AOPQK/;
+$ref_files{$key} = "$dir".q|node23.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ECMAT/;
+$ref_files{$key} = "$dir".q|node88.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DPAV/;
+$ref_files{$key} = "$dir".q|node65.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_TPS2C/;
+$ref_files{$key} = "$dir".q|node185.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_SUPGAL/;
+$ref_files{$key} = "$dir".q|node179.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DFLTIN/;
+$ref_files{$key} = "$dir".q|node55.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_VXV/;
+$ref_files{$key} = "$dir".q|node193.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_VN/;
+$ref_files{$key} = "$dir".q|node192.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EQEQX/;
+$ref_files{$key} = "$dir".q|node98.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_MXM/;
+$ref_files{$key} = "$dir".q|node131.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_POLMO/;
+$ref_files{$key} = "$dir".q|node150.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_INVF/;
+$ref_files{$key} = "$dir".q|node123.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DBJIN/;
+$ref_files{$key} = "$dir".q|node47.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_XY2XY/;
+$ref_files{$key} = "$dir".q|node195.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_MAPQKZ/;
+$ref_files{$key} = "$dir".q|node129.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ECOR/;
+$ref_files{$key} = "$dir".q|node89.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PVOBS/;
+$ref_files{$key} = "$dir".q|node158.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DCMPF/;
+$ref_files{$key} = "$dir".q|node50.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PCD/;
+$ref_files{$key} = "$dir".q|node140.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FK524/;
+$ref_files{$key} = "$dir".q|node106.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_MAPQK/;
+$ref_files{$key} = "$dir".q|node128.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_MXV/;
+$ref_files{$key} = "$dir".q|node132.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DRANGE/;
+$ref_files{$key} = "$dir".q|node68.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_GEOC/;
+$ref_files{$key} = "$dir".q|node114.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DTPV2C/;
+$ref_files{$key} = "$dir".q|node79.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DD2TF/;
+$ref_files{$key} = "$dir".q|node52.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_SMAT/;
+$ref_files{$key} = "$dir".q|node177.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RDPLAN/;
+$ref_files{$key} = "$dir".q|node164.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PRECL/;
+$ref_files{$key} = "$dir".q|node154.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PLANTE/;
+$ref_files{$key} = "$dir".q|node148.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_IMXV/;
+$ref_files{$key} = "$dir".q|node121.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_MOON/;
+$ref_files{$key} = "$dir".q|node130.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CLDJ/;
+$ref_files{$key} = "$dir".q|node33.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_TP2S/;
+$ref_files{$key} = "$dir".q|node183.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FK52H/;
+$ref_files{$key} = "$dir".q|node107.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_TP2V/;
+$ref_files{$key} = "$dir".q|node184.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EPB2D/;
+$ref_files{$key} = "$dir".q|node93.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PRECES/;
+$ref_files{$key} = "$dir".q|node153.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AOPPAT/;
+$ref_files{$key} = "$dir".q|node22.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DTF2D/;
+$ref_files{$key} = "$dir".q|node74.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EPJ2D/;
+$ref_files{$key} = "$dir".q|node96.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DMXM/;
+$ref_files{$key} = "$dir".q|node63.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EQECL/;
+$ref_files{$key} = "$dir".q|node97.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_SUPGAL/;
+$ref_files{$key} = "$dir".q|node179.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RVLG/;
+$ref_files{$key} = "$dir".q|node172.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PLANEL/;
+$ref_files{$key} = "$dir".q|node146.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DMXV/;
+$ref_files{$key} = "$dir".q|node64.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FITXY/;
+$ref_files{$key} = "$dir".q|node103.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_MAPQKZ/;
+$ref_files{$key} = "$dir".q|node129.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DEULER/;
+$ref_files{$key} = "$dir".q|node54.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_/;
+$ref_files{$key} = "$dir".q|sun67.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CR2TF/;
+$ref_files{$key} = "$dir".q|node37.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DTF2R/;
+$ref_files{$key} = "$dir".q|node75.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PLANET/;
+$ref_files{$key} = "$dir".q|node147.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RCC/;
+$ref_files{$key} = "$dir".q|node163.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DMOON/;
+$ref_files{$key} = "$dir".q|node62.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DJCAL/;
+$ref_files{$key} = "$dir".q|node58.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ECLEQ/;
+$ref_files{$key} = "$dir".q|node87.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RDPLAN/;
+$ref_files{$key} = "$dir".q|node164.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DR2AF/;
+$ref_files{$key} = "$dir".q|node66.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_SUBET/;
+$ref_files{$key} = "$dir".q|node178.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DV2TP/;
+$ref_files{$key} = "$dir".q|node81.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PLANTE/;
+$ref_files{$key} = "$dir".q|node148.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_COMBN/;
+$ref_files{$key} = "$dir".q|node35.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CALDJ/;
+$ref_files{$key} = "$dir".q|node28.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ZD/;
+$ref_files{$key} = "$dir".q|node196.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CTF2D/;
+$ref_files{$key} = "$dir".q|node40.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_REFV/;
+$ref_files{$key} = "$dir".q|node168.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RVGALC/;
+$ref_files{$key} = "$dir".q|node171.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FK45Z/;
+$ref_files{$key} = "$dir".q|node105.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_REFCOQ/;
+$ref_files{$key} = "$dir".q|node166.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CS2C6/;
+$ref_files{$key} = "$dir".q|node39.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RVEROT/;
+$ref_files{$key} = "$dir".q|node170.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_KBJ/;
+$ref_files{$key} = "$dir".q|node124.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_REFZ/;
+$ref_files{$key} = "$dir".q|node169.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_VXV/;
+$ref_files{$key} = "$dir".q|node193.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FK5HZ/;
+$ref_files{$key} = "$dir".q|node109.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PLANEL/;
+$ref_files{$key} = "$dir".q|node146.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PV2EL/;
+$ref_files{$key} = "$dir".q|node156.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_REFRO/;
+$ref_files{$key} = "$dir".q|node167.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CC2S/;
+$ref_files{$key} = "$dir".q|node30.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CS2C/;
+$ref_files{$key} = "$dir".q|node38.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CTF2R/;
+$ref_files{$key} = "$dir".q|node41.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DEULER/;
+$ref_files{$key} = "$dir".q|node54.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DC62S/;
+$ref_files{$key} = "$dir".q|node48.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DE2H/;
+$ref_files{$key} = "$dir".q|node53.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PLANET/;
+$ref_files{$key} = "$dir".q|node147.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EG50/;
+$ref_files{$key} = "$dir".q|node90.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PV2UE/;
+$ref_files{$key} = "$dir".q|node157.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DMAT/;
+$ref_files{$key} = "$dir".q|node61.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_WAIT/;
+$ref_files{$key} = "$dir".q|node194.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AV2M/;
+$ref_files{$key} = "$dir".q|node25.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EQGAL/;
+$ref_files{$key} = "$dir".q|node99.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DSEP/;
+$ref_files{$key} = "$dir".q|node72.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_BEAR/;
+$ref_files{$key} = "$dir".q|node26.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CR2AF/;
+$ref_files{$key} = "$dir".q|node36.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DM2AV/;
+$ref_files{$key} = "$dir".q|node60.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_REFCO/;
+$ref_files{$key} = "$dir".q|node165.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_UE2EL/;
+$ref_files{$key} = "$dir".q|node187.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FK54Z/;
+$ref_files{$key} = "$dir".q|node108.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_H2FK5/;
+$ref_files{$key} = "$dir".q|node119.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DAT/;
+$ref_files{$key} = "$dir".q|node44.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DVXV/;
+$ref_files{$key} = "$dir".q|node84.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_S2TP/;
+$ref_files{$key} = "$dir".q|node175.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ZD/;
+$ref_files{$key} = "$dir".q|node196.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AFIN/;
+$ref_files{$key} = "$dir".q|node15.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_GALEQ/;
+$ref_files{$key} = "$dir".q|node111.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RVGALC/;
+$ref_files{$key} = "$dir".q|node171.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_REFCOQ/;
+$ref_files{$key} = "$dir".q|node166.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_GALSUP/;
+$ref_files{$key} = "$dir".q|node112.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PXY/;
+$ref_files{$key} = "$dir".q|node159.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RVEROT/;
+$ref_files{$key} = "$dir".q|node170.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CAF2R/;
+$ref_files{$key} = "$dir".q|node27.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RCC/;
+$ref_files{$key} = "$dir".q|node163.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AMPQK/;
+$ref_files{$key} = "$dir".q|node19.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_MAPPA/;
+$ref_files{$key} = "$dir".q|node127.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_UE2PV/;
+$ref_files{$key} = "$dir".q|node188.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ADDET/;
+$ref_files{$key} = "$dir".q|node14.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EPB/;
+$ref_files{$key} = "$dir".q|node92.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_NUTC/;
+$ref_files{$key} = "$dir".q|node134.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EPCO/;
+$ref_files{$key} = "$dir".q|node94.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_HFK5Z/;
+$ref_files{$key} = "$dir".q|node120.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ATMDSP/;
+$ref_files{$key} = "$dir".q|node24.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EPJ/;
+$ref_files{$key} = "$dir".q|node95.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PERTEL/;
+$ref_files{$key} = "$dir".q|node144.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DAFIN/;
+$ref_files{$key} = "$dir".q|node43.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_GE50/;
+$ref_files{$key} = "$dir".q|node113.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PERTUE/;
+$ref_files{$key} = "$dir".q|node145.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PREC/;
+$ref_files{$key} = "$dir".q|node152.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ECMAT/;
+$ref_files{$key} = "$dir".q|node88.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_KBJ/;
+$ref_files{$key} = "$dir".q|node124.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_TPS2C/;
+$ref_files{$key} = "$dir".q|node185.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_GALSUP/;
+$ref_files{$key} = "$dir".q|node112.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_GMST/;
+$ref_files{$key} = "$dir".q|node115.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_GMSTA/;
+$ref_files{$key} = "$dir".q|node116.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DJCL/;
+$ref_files{$key} = "$dir".q|node59.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_XY2XY/;
+$ref_files{$key} = "$dir".q|node195.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DR2TF/;
+$ref_files{$key} = "$dir".q|node67.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_MAPQK/;
+$ref_files{$key} = "$dir".q|node128.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DIMXV/;
+$ref_files{$key} = "$dir".q|node57.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_MAP/;
+$ref_files{$key} = "$dir".q|node126.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_E2H/;
+$ref_files{$key} = "$dir".q|node85.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RANGE/;
+$ref_files{$key} = "$dir".q|node161.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DTP2S/;
+$ref_files{$key} = "$dir".q|node76.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_TPV2C/;
+$ref_files{$key} = "$dir".q|node186.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RANORM/;
+$ref_files{$key} = "$dir".q|node162.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DTP2V/;
+$ref_files{$key} = "$dir".q|node77.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_SEP/;
+$ref_files{$key} = "$dir".q|node176.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_SVDCOV/;
+$ref_files{$key} = "$dir".q|node181.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ATMDSP/;
+$ref_files{$key} = "$dir".q|node24.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_V2TP/;
+$ref_files{$key} = "$dir".q|node190.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PERTEL/;
+$ref_files{$key} = "$dir".q|node144.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CLYD/;
+$ref_files{$key} = "$dir".q|node34.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DAT/;
+$ref_files{$key} = "$dir".q|node44.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EPB2D/;
+$ref_files{$key} = "$dir".q|node93.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_SVDSOL/;
+$ref_files{$key} = "$dir".q|node182.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_GRESID/;
+$ref_files{$key} = "$dir".q|node117.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PRENUT/;
+$ref_files{$key} = "$dir".q|node155.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DTF2D/;
+$ref_files{$key} = "$dir".q|node74.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EPJ2D/;
+$ref_files{$key} = "$dir".q|node96.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PERTUE/;
+$ref_files{$key} = "$dir".q|node145.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PXY/;
+$ref_files{$key} = "$dir".q|node159.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DS2C6/;
+$ref_files{$key} = "$dir".q|node70.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ECOR/;
+$ref_files{$key} = "$dir".q|node89.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CR2TF/;
+$ref_files{$key} = "$dir".q|node37.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DTF2R/;
+$ref_files{$key} = "$dir".q|node75.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PDA2H/;
+$ref_files{$key} = "$dir".q|node141.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CD2TF/;
+$ref_files{$key} = "$dir".q|node32.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EARTH/;
+$ref_files{$key} = "$dir".q|node86.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_SMAT/;
+$ref_files{$key} = "$dir".q|node177.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ECLEQ/;
+$ref_files{$key} = "$dir".q|node87.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EPB/;
+$ref_files{$key} = "$dir".q|node92.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DTT/;
+$ref_files{$key} = "$dir".q|node80.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_MOON/;
+$ref_files{$key} = "$dir".q|node130.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_SVD/;
+$ref_files{$key} = "$dir".q|node180.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DR2AF/;
+$ref_files{$key} = "$dir".q|node66.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RANORM/;
+$ref_files{$key} = "$dir".q|node162.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DV2TP/;
+$ref_files{$key} = "$dir".q|node81.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AIRMAS/;
+$ref_files{$key} = "$dir".q|node16.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CLDJ/;
+$ref_files{$key} = "$dir".q|node33.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PERMUT/;
+$ref_files{$key} = "$dir".q|node143.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EPJ/;
+$ref_files{$key} = "$dir".q|node95.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PDQ2H/;
+$ref_files{$key} = "$dir".q|node142.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_SVDCOV/;
+$ref_files{$key} = "$dir".q|node181.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_M2AV/;
+$ref_files{$key} = "$dir".q|node125.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_INTIN/;
+$ref_files{$key} = "$dir".q|node122.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_SVDSOL/;
+$ref_files{$key} = "$dir".q|node182.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_GRESID/;
+$ref_files{$key} = "$dir".q|node117.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CALDJ/;
+$ref_files{$key} = "$dir".q|node28.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PRENUT/;
+$ref_files{$key} = "$dir".q|node155.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CALYD/;
+$ref_files{$key} = "$dir".q|node29.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CS2C6/;
+$ref_files{$key} = "$dir".q|node39.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DAF2R/;
+$ref_files{$key} = "$dir".q|node42.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DCC2S/;
+$ref_files{$key} = "$dir".q|node49.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DCS2C/;
+$ref_files{$key} = "$dir".q|node51.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PA/;
+$ref_files{$key} = "$dir".q|node138.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FK5HZ/;
+$ref_files{$key} = "$dir".q|node109.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PV2EL/;
+$ref_files{$key} = "$dir".q|node156.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DAV2M/;
+$ref_files{$key} = "$dir".q|node45.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_OAPQK/;
+$ref_files{$key} = "$dir".q|node136.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EULER/;
+$ref_files{$key} = "$dir".q|node101.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EL2UE/;
+$ref_files{$key} = "$dir".q|node91.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PM/;
+$ref_files{$key} = "$dir".q|node149.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_MAP/;
+$ref_files{$key} = "$dir".q|node126.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DBEAR/;
+$ref_files{$key} = "$dir".q|node46.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PV2UE/;
+$ref_files{$key} = "$dir".q|node157.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_E2H/;
+$ref_files{$key} = "$dir".q|node85.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DVDV/;
+$ref_files{$key} = "$dir".q|node82.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DM2AV/;
+$ref_files{$key} = "$dir".q|node60.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_SEP/;
+$ref_files{$key} = "$dir".q|node176.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AIRMAS/;
+$ref_files{$key} = "$dir".q|node16.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PERMUT/;
+$ref_files{$key} = "$dir".q|node143.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_UE2EL/;
+$ref_files{$key} = "$dir".q|node187.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/stardoccontents/;
+$ref_files{$key} = "$dir".q|sun67.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_H2FK5/;
+$ref_files{$key} = "$dir".q|node119.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FK425/;
+$ref_files{$key} = "$dir".q|node104.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DS2TP/;
+$ref_files{$key} = "$dir".q|node71.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DH2E/;
+$ref_files{$key} = "$dir".q|node56.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DTPS2C/;
+$ref_files{$key} = "$dir".q|node78.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AOPPA/;
+$ref_files{$key} = "$dir".q|node21.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_REFV/;
+$ref_files{$key} = "$dir".q|node168.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DVN/;
+$ref_files{$key} = "$dir".q|node83.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_abstract/;
+$ref_files{$key} = "$dir".q|node1.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_GALEQ/;
+$ref_files{$key} = "$dir".q|node111.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DPAV/;
+$ref_files{$key} = "$dir".q|node65.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_REFZ/;
+$ref_files{$key} = "$dir".q|node169.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CAF2R/;
+$ref_files{$key} = "$dir".q|node27.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_UNPCD/;
+$ref_files{$key} = "$dir".q|node189.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ALTAZ/;
+$ref_files{$key} = "$dir".q|node17.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PA/;
+$ref_files{$key} = "$dir".q|node138.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_INVF/;
+$ref_files{$key} = "$dir".q|node123.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CC62S/;
+$ref_files{$key} = "$dir".q|node31.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DE2H/;
+$ref_files{$key} = "$dir".q|node53.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AMPQK/;
+$ref_files{$key} = "$dir".q|node19.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DMAT/;
+$ref_files{$key} = "$dir".q|node61.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PM/;
+$ref_files{$key} = "$dir".q|node149.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_GEOC/;
+$ref_files{$key} = "$dir".q|node114.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AMP/;
+$ref_files{$key} = "$dir".q|node18.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ETRMS/;
+$ref_files{$key} = "$dir".q|node100.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_OAP/;
+$ref_files{$key} = "$dir".q|node135.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FLOTIN/;
+$ref_files{$key} = "$dir".q|node110.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DTT/;
+$ref_files{$key} = "$dir".q|node80.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DSEP/;
+$ref_files{$key} = "$dir".q|node72.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_SVD/;
+$ref_files{$key} = "$dir".q|node180.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ADDET/;
+$ref_files{$key} = "$dir".q|node14.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_IMXV/;
+$ref_files{$key} = "$dir".q|node121.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_HFK5Z/;
+$ref_files{$key} = "$dir".q|node120.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_TP2S/;
+$ref_files{$key} = "$dir".q|node183.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PREBN/;
+$ref_files{$key} = "$dir".q|node151.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_TP2V/;
+$ref_files{$key} = "$dir".q|node184.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DTPS2C/;
+$ref_files{$key} = "$dir".q|node78.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AOPQK/;
+$ref_files{$key} = "$dir".q|node23.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AFIN/;
+$ref_files{$key} = "$dir".q|node15.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DMXM/;
+$ref_files{$key} = "$dir".q|node63.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EQEQX/;
+$ref_files{$key} = "$dir".q|node98.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DRANRM/;
+$ref_files{$key} = "$dir".q|node69.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DBJIN/;
+$ref_files{$key} = "$dir".q|node47.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_POLMO/;
+$ref_files{$key} = "$dir".q|node150.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RVLG/;
+$ref_files{$key} = "$dir".q|node172.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_GMSTA/;
+$ref_files{$key} = "$dir".q|node116.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DCMPF/;
+$ref_files{$key} = "$dir".q|node50.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PVOBS/;
+$ref_files{$key} = "$dir".q|node158.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DMXV/;
+$ref_files{$key} = "$dir".q|node64.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FK524/;
+$ref_files{$key} = "$dir".q|node106.html|; 
+$noresave{$key} = "$nosave";
+
+1;
+
diff --git a/src/slalib/sun67.htx/invis_anchor.xbm b/src/slalib/sun67.htx/invis_anchor.xbm
new file mode 100644
index 0000000..cc208a3
--- /dev/null
+++ b/src/slalib/sun67.htx/invis_anchor.xbm
@@ -0,0 +1,4 @@
+#define dot_anchor_width 1
+#define dot_anchor_height 1
+static char dot_anchor_bits[] = {
+ 0xfe};
diff --git a/src/slalib/sun67.htx/labels.pl b/src/slalib/sun67.htx/labels.pl
new file mode 100644
index 0000000..ab31648
--- /dev/null
+++ b/src/slalib/sun67.htx/labels.pl
@@ -0,0 +1,1482 @@
+# LaTeX2HTML 97.1 (release) (July 13th, 1997)
+# Associate labels original text with physical files.
+
+
+$key = q/SLA_DR2TF/;
+$external_labels{$key} = "$URL/" . q|node67.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_OBS/;
+$external_labels{$key} = "$URL/" . q|node137.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DD2TF/;
+$external_labels{$key} = "$URL/" . q|node52.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DIMXV/;
+$external_labels{$key} = "$URL/" . q|node57.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PRECL/;
+$external_labels{$key} = "$URL/" . q|node154.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EVP/;
+$external_labels{$key} = "$URL/" . q|node102.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FLOTIN/;
+$external_labels{$key} = "$URL/" . q|node110.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DTP2S/;
+$external_labels{$key} = "$URL/" . q|node76.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RANGE/;
+$external_labels{$key} = "$URL/" . q|node161.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_NUTC/;
+$external_labels{$key} = "$URL/" . q|node134.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_TPV2C/;
+$external_labels{$key} = "$URL/" . q|node186.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DTP2V/;
+$external_labels{$key} = "$URL/" . q|node77.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_VDV/;
+$external_labels{$key} = "$URL/" . q|node191.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FK52H/;
+$external_labels{$key} = "$URL/" . q|node107.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DVN/;
+$external_labels{$key} = "$URL/" . q|node83.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PREC/;
+$external_labels{$key} = "$URL/" . q|node152.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EQECL/;
+$external_labels{$key} = "$URL/" . q|node97.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_H2E/;
+$external_labels{$key} = "$URL/" . q|node118.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AOP/;
+$external_labels{$key} = "$URL/" . q|node20.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DS2C6/;
+$external_labels{$key} = "$URL/" . q|node70.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DRANRM/;
+$external_labels{$key} = "$URL/" . q|node69.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PAV/;
+$external_labels{$key} = "$URL/" . q|node139.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FITXY/;
+$external_labels{$key} = "$URL/" . q|node103.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CS2C/;
+$external_labels{$key} = "$URL/" . q|node38.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CC2S/;
+$external_labels{$key} = "$URL/" . q|node30.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DT/;
+$external_labels{$key} = "$URL/" . q|node73.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PDA2H/;
+$external_labels{$key} = "$URL/" . q|node141.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RVLSRD/;
+$external_labels{$key} = "$URL/" . q|node173.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EG50/;
+$external_labels{$key} = "$URL/" . q|node90.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DMOON/;
+$external_labels{$key} = "$URL/" . q|node62.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DJCAL/;
+$external_labels{$key} = "$URL/" . q|node58.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AMP/;
+$external_labels{$key} = "$URL/" . q|node18.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CD2TF/;
+$external_labels{$key} = "$URL/" . q|node32.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EARTH/;
+$external_labels{$key} = "$URL/" . q|node86.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_OAP/;
+$external_labels{$key} = "$URL/" . q|node135.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RANDOM/;
+$external_labels{$key} = "$URL/" . q|node160.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_WAIT/;
+$external_labels{$key} = "$URL/" . q|node194.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AV2M/;
+$external_labels{$key} = "$URL/" . q|node25.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_NUT/;
+$external_labels{$key} = "$URL/" . q|node133.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_SUBET/;
+$external_labels{$key} = "$URL/" . q|node178.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RVLSRK/;
+$external_labels{$key} = "$URL/" . q|node174.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_BEAR/;
+$external_labels{$key} = "$URL/" . q|node26.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PDQ2H/;
+$external_labels{$key} = "$URL/" . q|node142.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CLYD/;
+$external_labels{$key} = "$URL/" . q|node34.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_V2TP/;
+$external_labels{$key} = "$URL/" . q|node190.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_INTIN/;
+$external_labels{$key} = "$URL/" . q|node122.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_COMBN/;
+$external_labels{$key} = "$URL/" . q|node35.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CTF2D/;
+$external_labels{$key} = "$URL/" . q|node40.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FK45Z/;
+$external_labels{$key} = "$URL/" . q|node105.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DVXV/;
+$external_labels{$key} = "$URL/" . q|node84.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_S2TP/;
+$external_labels{$key} = "$URL/" . q|node175.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CALYD/;
+$external_labels{$key} = "$URL/" . q|node29.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DCS2C/;
+$external_labels{$key} = "$URL/" . q|node51.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DCC2S/;
+$external_labels{$key} = "$URL/" . q|node49.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DAF2R/;
+$external_labels{$key} = "$URL/" . q|node42.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_REFRO/;
+$external_labels{$key} = "$URL/" . q|node167.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_MXM/;
+$external_labels{$key} = "$URL/" . q|node131.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CTF2R/;
+$external_labels{$key} = "$URL/" . q|node41.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DC62S/;
+$external_labels{$key} = "$URL/" . q|node48.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PCD/;
+$external_labels{$key} = "$URL/" . q|node140.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_OBS/;
+$external_labels{$key} = "$URL/" . q|node137.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DT/;
+$external_labels{$key} = "$URL/" . q|node73.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DAV2M/;
+$external_labels{$key} = "$URL/" . q|node45.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_MXV/;
+$external_labels{$key} = "$URL/" . q|node132.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_OAPQK/;
+$external_labels{$key} = "$URL/" . q|node136.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EL2UE/;
+$external_labels{$key} = "$URL/" . q|node91.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EULER/;
+$external_labels{$key} = "$URL/" . q|node101.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RVLSRD/;
+$external_labels{$key} = "$URL/" . q|node173.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DBEAR/;
+$external_labels{$key} = "$URL/" . q|node46.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EQGAL/;
+$external_labels{$key} = "$URL/" . q|node99.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EVP/;
+$external_labels{$key} = "$URL/" . q|node102.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RANDOM/;
+$external_labels{$key} = "$URL/" . q|node160.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CR2AF/;
+$external_labels{$key} = "$URL/" . q|node36.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_REFCO/;
+$external_labels{$key} = "$URL/" . q|node165.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RVLSRK/;
+$external_labels{$key} = "$URL/" . q|node174.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_VDV/;
+$external_labels{$key} = "$URL/" . q|node191.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EPCO/;
+$external_labels{$key} = "$URL/" . q|node94.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FK54Z/;
+$external_labels{$key} = "$URL/" . q|node108.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_M2AV/;
+$external_labels{$key} = "$URL/" . q|node125.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FK425/;
+$external_labels{$key} = "$URL/" . q|node104.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DS2TP/;
+$external_labels{$key} = "$URL/" . q|node71.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AOPPA/;
+$external_labels{$key} = "$URL/" . q|node21.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_GE50/;
+$external_labels{$key} = "$URL/" . q|node113.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_H2E/;
+$external_labels{$key} = "$URL/" . q|node118.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AOP/;
+$external_labels{$key} = "$URL/" . q|node20.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DFLTIN/;
+$external_labels{$key} = "$URL/" . q|node55.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_VN/;
+$external_labels{$key} = "$URL/" . q|node192.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_UNPCD/;
+$external_labels{$key} = "$URL/" . q|node189.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_GMST/;
+$external_labels{$key} = "$URL/" . q|node115.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PAV/;
+$external_labels{$key} = "$URL/" . q|node139.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ALTAZ/;
+$external_labels{$key} = "$URL/" . q|node17.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DJCL/;
+$external_labels{$key} = "$URL/" . q|node59.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CC62S/;
+$external_labels{$key} = "$URL/" . q|node31.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_MAPPA/;
+$external_labels{$key} = "$URL/" . q|node127.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DRANGE/;
+$external_labels{$key} = "$URL/" . q|node68.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_UE2PV/;
+$external_labels{$key} = "$URL/" . q|node188.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DTPV2C/;
+$external_labels{$key} = "$URL/" . q|node79.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DVDV/;
+$external_labels{$key} = "$URL/" . q|node82.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_NUT/;
+$external_labels{$key} = "$URL/" . q|node133.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ETRMS/;
+$external_labels{$key} = "$URL/" . q|node100.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PRECES/;
+$external_labels{$key} = "$URL/" . q|node153.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DAFIN/;
+$external_labels{$key} = "$URL/" . q|node43.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PREBN/;
+$external_labels{$key} = "$URL/" . q|node151.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DH2E/;
+$external_labels{$key} = "$URL/" . q|node56.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AOPPAT/;
+$external_labels{$key} = "$URL/" . q|node22.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AOPQK/;
+$external_labels{$key} = "$URL/" . q|node23.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ECMAT/;
+$external_labels{$key} = "$URL/" . q|node88.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DPAV/;
+$external_labels{$key} = "$URL/" . q|node65.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_TPS2C/;
+$external_labels{$key} = "$URL/" . q|node185.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_SUPGAL/;
+$external_labels{$key} = "$URL/" . q|node179.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DFLTIN/;
+$external_labels{$key} = "$URL/" . q|node55.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_VXV/;
+$external_labels{$key} = "$URL/" . q|node193.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_VN/;
+$external_labels{$key} = "$URL/" . q|node192.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EQEQX/;
+$external_labels{$key} = "$URL/" . q|node98.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_MXM/;
+$external_labels{$key} = "$URL/" . q|node131.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_POLMO/;
+$external_labels{$key} = "$URL/" . q|node150.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_INVF/;
+$external_labels{$key} = "$URL/" . q|node123.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DBJIN/;
+$external_labels{$key} = "$URL/" . q|node47.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_XY2XY/;
+$external_labels{$key} = "$URL/" . q|node195.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_MAPQKZ/;
+$external_labels{$key} = "$URL/" . q|node129.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ECOR/;
+$external_labels{$key} = "$URL/" . q|node89.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PVOBS/;
+$external_labels{$key} = "$URL/" . q|node158.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DCMPF/;
+$external_labels{$key} = "$URL/" . q|node50.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PCD/;
+$external_labels{$key} = "$URL/" . q|node140.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FK524/;
+$external_labels{$key} = "$URL/" . q|node106.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_MAPQK/;
+$external_labels{$key} = "$URL/" . q|node128.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_MXV/;
+$external_labels{$key} = "$URL/" . q|node132.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DRANGE/;
+$external_labels{$key} = "$URL/" . q|node68.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_GEOC/;
+$external_labels{$key} = "$URL/" . q|node114.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DTPV2C/;
+$external_labels{$key} = "$URL/" . q|node79.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DD2TF/;
+$external_labels{$key} = "$URL/" . q|node52.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_SMAT/;
+$external_labels{$key} = "$URL/" . q|node177.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RDPLAN/;
+$external_labels{$key} = "$URL/" . q|node164.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PRECL/;
+$external_labels{$key} = "$URL/" . q|node154.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PLANTE/;
+$external_labels{$key} = "$URL/" . q|node148.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_IMXV/;
+$external_labels{$key} = "$URL/" . q|node121.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_MOON/;
+$external_labels{$key} = "$URL/" . q|node130.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CLDJ/;
+$external_labels{$key} = "$URL/" . q|node33.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_TP2S/;
+$external_labels{$key} = "$URL/" . q|node183.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FK52H/;
+$external_labels{$key} = "$URL/" . q|node107.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_TP2V/;
+$external_labels{$key} = "$URL/" . q|node184.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EPB2D/;
+$external_labels{$key} = "$URL/" . q|node93.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PRECES/;
+$external_labels{$key} = "$URL/" . q|node153.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AOPPAT/;
+$external_labels{$key} = "$URL/" . q|node22.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DTF2D/;
+$external_labels{$key} = "$URL/" . q|node74.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EPJ2D/;
+$external_labels{$key} = "$URL/" . q|node96.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DMXM/;
+$external_labels{$key} = "$URL/" . q|node63.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EQECL/;
+$external_labels{$key} = "$URL/" . q|node97.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_SUPGAL/;
+$external_labels{$key} = "$URL/" . q|node179.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RVLG/;
+$external_labels{$key} = "$URL/" . q|node172.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PLANEL/;
+$external_labels{$key} = "$URL/" . q|node146.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DMXV/;
+$external_labels{$key} = "$URL/" . q|node64.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FITXY/;
+$external_labels{$key} = "$URL/" . q|node103.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_MAPQKZ/;
+$external_labels{$key} = "$URL/" . q|node129.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DEULER/;
+$external_labels{$key} = "$URL/" . q|node54.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_/;
+$external_labels{$key} = "$URL/" . q|sun67.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CR2TF/;
+$external_labels{$key} = "$URL/" . q|node37.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DTF2R/;
+$external_labels{$key} = "$URL/" . q|node75.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PLANET/;
+$external_labels{$key} = "$URL/" . q|node147.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RCC/;
+$external_labels{$key} = "$URL/" . q|node163.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DMOON/;
+$external_labels{$key} = "$URL/" . q|node62.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DJCAL/;
+$external_labels{$key} = "$URL/" . q|node58.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ECLEQ/;
+$external_labels{$key} = "$URL/" . q|node87.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RDPLAN/;
+$external_labels{$key} = "$URL/" . q|node164.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DR2AF/;
+$external_labels{$key} = "$URL/" . q|node66.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_SUBET/;
+$external_labels{$key} = "$URL/" . q|node178.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DV2TP/;
+$external_labels{$key} = "$URL/" . q|node81.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PLANTE/;
+$external_labels{$key} = "$URL/" . q|node148.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_COMBN/;
+$external_labels{$key} = "$URL/" . q|node35.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CALDJ/;
+$external_labels{$key} = "$URL/" . q|node28.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ZD/;
+$external_labels{$key} = "$URL/" . q|node196.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CTF2D/;
+$external_labels{$key} = "$URL/" . q|node40.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_REFV/;
+$external_labels{$key} = "$URL/" . q|node168.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RVGALC/;
+$external_labels{$key} = "$URL/" . q|node171.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FK45Z/;
+$external_labels{$key} = "$URL/" . q|node105.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_REFCOQ/;
+$external_labels{$key} = "$URL/" . q|node166.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CS2C6/;
+$external_labels{$key} = "$URL/" . q|node39.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RVEROT/;
+$external_labels{$key} = "$URL/" . q|node170.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_KBJ/;
+$external_labels{$key} = "$URL/" . q|node124.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_REFZ/;
+$external_labels{$key} = "$URL/" . q|node169.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_VXV/;
+$external_labels{$key} = "$URL/" . q|node193.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FK5HZ/;
+$external_labels{$key} = "$URL/" . q|node109.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PLANEL/;
+$external_labels{$key} = "$URL/" . q|node146.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PV2EL/;
+$external_labels{$key} = "$URL/" . q|node156.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_REFRO/;
+$external_labels{$key} = "$URL/" . q|node167.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CC2S/;
+$external_labels{$key} = "$URL/" . q|node30.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CS2C/;
+$external_labels{$key} = "$URL/" . q|node38.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CTF2R/;
+$external_labels{$key} = "$URL/" . q|node41.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DEULER/;
+$external_labels{$key} = "$URL/" . q|node54.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DC62S/;
+$external_labels{$key} = "$URL/" . q|node48.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DE2H/;
+$external_labels{$key} = "$URL/" . q|node53.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PLANET/;
+$external_labels{$key} = "$URL/" . q|node147.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EG50/;
+$external_labels{$key} = "$URL/" . q|node90.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PV2UE/;
+$external_labels{$key} = "$URL/" . q|node157.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DMAT/;
+$external_labels{$key} = "$URL/" . q|node61.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_WAIT/;
+$external_labels{$key} = "$URL/" . q|node194.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AV2M/;
+$external_labels{$key} = "$URL/" . q|node25.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EQGAL/;
+$external_labels{$key} = "$URL/" . q|node99.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DSEP/;
+$external_labels{$key} = "$URL/" . q|node72.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_BEAR/;
+$external_labels{$key} = "$URL/" . q|node26.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CR2AF/;
+$external_labels{$key} = "$URL/" . q|node36.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DM2AV/;
+$external_labels{$key} = "$URL/" . q|node60.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_REFCO/;
+$external_labels{$key} = "$URL/" . q|node165.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_UE2EL/;
+$external_labels{$key} = "$URL/" . q|node187.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FK54Z/;
+$external_labels{$key} = "$URL/" . q|node108.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_H2FK5/;
+$external_labels{$key} = "$URL/" . q|node119.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DAT/;
+$external_labels{$key} = "$URL/" . q|node44.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DVXV/;
+$external_labels{$key} = "$URL/" . q|node84.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_S2TP/;
+$external_labels{$key} = "$URL/" . q|node175.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ZD/;
+$external_labels{$key} = "$URL/" . q|node196.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AFIN/;
+$external_labels{$key} = "$URL/" . q|node15.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_GALEQ/;
+$external_labels{$key} = "$URL/" . q|node111.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RVGALC/;
+$external_labels{$key} = "$URL/" . q|node171.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_REFCOQ/;
+$external_labels{$key} = "$URL/" . q|node166.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_GALSUP/;
+$external_labels{$key} = "$URL/" . q|node112.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PXY/;
+$external_labels{$key} = "$URL/" . q|node159.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RVEROT/;
+$external_labels{$key} = "$URL/" . q|node170.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CAF2R/;
+$external_labels{$key} = "$URL/" . q|node27.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RCC/;
+$external_labels{$key} = "$URL/" . q|node163.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AMPQK/;
+$external_labels{$key} = "$URL/" . q|node19.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_MAPPA/;
+$external_labels{$key} = "$URL/" . q|node127.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_UE2PV/;
+$external_labels{$key} = "$URL/" . q|node188.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ADDET/;
+$external_labels{$key} = "$URL/" . q|node14.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EPB/;
+$external_labels{$key} = "$URL/" . q|node92.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_NUTC/;
+$external_labels{$key} = "$URL/" . q|node134.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EPCO/;
+$external_labels{$key} = "$URL/" . q|node94.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_HFK5Z/;
+$external_labels{$key} = "$URL/" . q|node120.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ATMDSP/;
+$external_labels{$key} = "$URL/" . q|node24.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EPJ/;
+$external_labels{$key} = "$URL/" . q|node95.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PERTEL/;
+$external_labels{$key} = "$URL/" . q|node144.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DAFIN/;
+$external_labels{$key} = "$URL/" . q|node43.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_GE50/;
+$external_labels{$key} = "$URL/" . q|node113.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PERTUE/;
+$external_labels{$key} = "$URL/" . q|node145.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PREC/;
+$external_labels{$key} = "$URL/" . q|node152.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ECMAT/;
+$external_labels{$key} = "$URL/" . q|node88.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_KBJ/;
+$external_labels{$key} = "$URL/" . q|node124.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_TPS2C/;
+$external_labels{$key} = "$URL/" . q|node185.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_GALSUP/;
+$external_labels{$key} = "$URL/" . q|node112.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_GMST/;
+$external_labels{$key} = "$URL/" . q|node115.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_GMSTA/;
+$external_labels{$key} = "$URL/" . q|node116.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DJCL/;
+$external_labels{$key} = "$URL/" . q|node59.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_XY2XY/;
+$external_labels{$key} = "$URL/" . q|node195.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DR2TF/;
+$external_labels{$key} = "$URL/" . q|node67.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_MAPQK/;
+$external_labels{$key} = "$URL/" . q|node128.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DIMXV/;
+$external_labels{$key} = "$URL/" . q|node57.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_MAP/;
+$external_labels{$key} = "$URL/" . q|node126.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_E2H/;
+$external_labels{$key} = "$URL/" . q|node85.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RANGE/;
+$external_labels{$key} = "$URL/" . q|node161.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DTP2S/;
+$external_labels{$key} = "$URL/" . q|node76.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_TPV2C/;
+$external_labels{$key} = "$URL/" . q|node186.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_RANORM/;
+$external_labels{$key} = "$URL/" . q|node162.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DTP2V/;
+$external_labels{$key} = "$URL/" . q|node77.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_SEP/;
+$external_labels{$key} = "$URL/" . q|node176.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_SVDCOV/;
+$external_labels{$key} = "$URL/" . q|node181.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ATMDSP/;
+$external_labels{$key} = "$URL/" . q|node24.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_V2TP/;
+$external_labels{$key} = "$URL/" . q|node190.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PERTEL/;
+$external_labels{$key} = "$URL/" . q|node144.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CLYD/;
+$external_labels{$key} = "$URL/" . q|node34.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DAT/;
+$external_labels{$key} = "$URL/" . q|node44.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EPB2D/;
+$external_labels{$key} = "$URL/" . q|node93.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_SVDSOL/;
+$external_labels{$key} = "$URL/" . q|node182.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_GRESID/;
+$external_labels{$key} = "$URL/" . q|node117.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PRENUT/;
+$external_labels{$key} = "$URL/" . q|node155.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DTF2D/;
+$external_labels{$key} = "$URL/" . q|node74.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_EPJ2D/;
+$external_labels{$key} = "$URL/" . q|node96.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PERTUE/;
+$external_labels{$key} = "$URL/" . q|node145.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PXY/;
+$external_labels{$key} = "$URL/" . q|node159.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DS2C6/;
+$external_labels{$key} = "$URL/" . q|node70.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ECOR/;
+$external_labels{$key} = "$URL/" . q|node89.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CR2TF/;
+$external_labels{$key} = "$URL/" . q|node37.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DTF2R/;
+$external_labels{$key} = "$URL/" . q|node75.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PDA2H/;
+$external_labels{$key} = "$URL/" . q|node141.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CD2TF/;
+$external_labels{$key} = "$URL/" . q|node32.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EARTH/;
+$external_labels{$key} = "$URL/" . q|node86.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_SMAT/;
+$external_labels{$key} = "$URL/" . q|node177.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ECLEQ/;
+$external_labels{$key} = "$URL/" . q|node87.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EPB/;
+$external_labels{$key} = "$URL/" . q|node92.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DTT/;
+$external_labels{$key} = "$URL/" . q|node80.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_MOON/;
+$external_labels{$key} = "$URL/" . q|node130.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_SVD/;
+$external_labels{$key} = "$URL/" . q|node180.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DR2AF/;
+$external_labels{$key} = "$URL/" . q|node66.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RANORM/;
+$external_labels{$key} = "$URL/" . q|node162.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DV2TP/;
+$external_labels{$key} = "$URL/" . q|node81.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AIRMAS/;
+$external_labels{$key} = "$URL/" . q|node16.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CLDJ/;
+$external_labels{$key} = "$URL/" . q|node33.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PERMUT/;
+$external_labels{$key} = "$URL/" . q|node143.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EPJ/;
+$external_labels{$key} = "$URL/" . q|node95.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PDQ2H/;
+$external_labels{$key} = "$URL/" . q|node142.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_SVDCOV/;
+$external_labels{$key} = "$URL/" . q|node181.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_M2AV/;
+$external_labels{$key} = "$URL/" . q|node125.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_INTIN/;
+$external_labels{$key} = "$URL/" . q|node122.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_SVDSOL/;
+$external_labels{$key} = "$URL/" . q|node182.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_GRESID/;
+$external_labels{$key} = "$URL/" . q|node117.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CALDJ/;
+$external_labels{$key} = "$URL/" . q|node28.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PRENUT/;
+$external_labels{$key} = "$URL/" . q|node155.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CALYD/;
+$external_labels{$key} = "$URL/" . q|node29.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CS2C6/;
+$external_labels{$key} = "$URL/" . q|node39.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DAF2R/;
+$external_labels{$key} = "$URL/" . q|node42.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DCC2S/;
+$external_labels{$key} = "$URL/" . q|node49.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DCS2C/;
+$external_labels{$key} = "$URL/" . q|node51.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PA/;
+$external_labels{$key} = "$URL/" . q|node138.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_FK5HZ/;
+$external_labels{$key} = "$URL/" . q|node109.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PV2EL/;
+$external_labels{$key} = "$URL/" . q|node156.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DAV2M/;
+$external_labels{$key} = "$URL/" . q|node45.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_OAPQK/;
+$external_labels{$key} = "$URL/" . q|node136.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EULER/;
+$external_labels{$key} = "$URL/" . q|node101.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EL2UE/;
+$external_labels{$key} = "$URL/" . q|node91.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PM/;
+$external_labels{$key} = "$URL/" . q|node149.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_MAP/;
+$external_labels{$key} = "$URL/" . q|node126.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DBEAR/;
+$external_labels{$key} = "$URL/" . q|node46.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PV2UE/;
+$external_labels{$key} = "$URL/" . q|node157.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_E2H/;
+$external_labels{$key} = "$URL/" . q|node85.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DVDV/;
+$external_labels{$key} = "$URL/" . q|node82.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DM2AV/;
+$external_labels{$key} = "$URL/" . q|node60.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_SEP/;
+$external_labels{$key} = "$URL/" . q|node176.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AIRMAS/;
+$external_labels{$key} = "$URL/" . q|node16.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PERMUT/;
+$external_labels{$key} = "$URL/" . q|node143.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_UE2EL/;
+$external_labels{$key} = "$URL/" . q|node187.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/stardoccontents/;
+$external_labels{$key} = "$URL/" . q|sun67.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_H2FK5/;
+$external_labels{$key} = "$URL/" . q|node119.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FK425/;
+$external_labels{$key} = "$URL/" . q|node104.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DS2TP/;
+$external_labels{$key} = "$URL/" . q|node71.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DH2E/;
+$external_labels{$key} = "$URL/" . q|node56.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DTPS2C/;
+$external_labels{$key} = "$URL/" . q|node78.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AOPPA/;
+$external_labels{$key} = "$URL/" . q|node21.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_REFV/;
+$external_labels{$key} = "$URL/" . q|node168.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DVN/;
+$external_labels{$key} = "$URL/" . q|node83.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_abstract/;
+$external_labels{$key} = "$URL/" . q|node1.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_GALEQ/;
+$external_labels{$key} = "$URL/" . q|node111.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DPAV/;
+$external_labels{$key} = "$URL/" . q|node65.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_REFZ/;
+$external_labels{$key} = "$URL/" . q|node169.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_CAF2R/;
+$external_labels{$key} = "$URL/" . q|node27.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_UNPCD/;
+$external_labels{$key} = "$URL/" . q|node189.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ALTAZ/;
+$external_labels{$key} = "$URL/" . q|node17.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PA/;
+$external_labels{$key} = "$URL/" . q|node138.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_INVF/;
+$external_labels{$key} = "$URL/" . q|node123.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_CC62S/;
+$external_labels{$key} = "$URL/" . q|node31.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DE2H/;
+$external_labels{$key} = "$URL/" . q|node53.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AMPQK/;
+$external_labels{$key} = "$URL/" . q|node19.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DMAT/;
+$external_labels{$key} = "$URL/" . q|node61.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_PM/;
+$external_labels{$key} = "$URL/" . q|node149.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_GEOC/;
+$external_labels{$key} = "$URL/" . q|node114.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_AMP/;
+$external_labels{$key} = "$URL/" . q|node18.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_ETRMS/;
+$external_labels{$key} = "$URL/" . q|node100.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_OAP/;
+$external_labels{$key} = "$URL/" . q|node135.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FLOTIN/;
+$external_labels{$key} = "$URL/" . q|node110.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DTT/;
+$external_labels{$key} = "$URL/" . q|node80.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DSEP/;
+$external_labels{$key} = "$URL/" . q|node72.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_SVD/;
+$external_labels{$key} = "$URL/" . q|node180.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_ADDET/;
+$external_labels{$key} = "$URL/" . q|node14.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_IMXV/;
+$external_labels{$key} = "$URL/" . q|node121.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_HFK5Z/;
+$external_labels{$key} = "$URL/" . q|node120.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_TP2S/;
+$external_labels{$key} = "$URL/" . q|node183.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PREBN/;
+$external_labels{$key} = "$URL/" . q|node151.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_TP2V/;
+$external_labels{$key} = "$URL/" . q|node184.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DTPS2C/;
+$external_labels{$key} = "$URL/" . q|node78.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AOPQK/;
+$external_labels{$key} = "$URL/" . q|node23.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_AFIN/;
+$external_labels{$key} = "$URL/" . q|node15.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DMXM/;
+$external_labels{$key} = "$URL/" . q|node63.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_EQEQX/;
+$external_labels{$key} = "$URL/" . q|node98.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DRANRM/;
+$external_labels{$key} = "$URL/" . q|node69.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DBJIN/;
+$external_labels{$key} = "$URL/" . q|node47.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_POLMO/;
+$external_labels{$key} = "$URL/" . q|node150.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_RVLG/;
+$external_labels{$key} = "$URL/" . q|node172.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_GMSTA/;
+$external_labels{$key} = "$URL/" . q|node116.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_DCMPF/;
+$external_labels{$key} = "$URL/" . q|node50.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_PVOBS/;
+$external_labels{$key} = "$URL/" . q|node158.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/SLA_DMXV/;
+$external_labels{$key} = "$URL/" . q|node64.html|; 
+$noresave{$key} = "$nosave";
+
+$key = q/xref_SLA_FK524/;
+$external_labels{$key} = "$URL/" . q|node106.html|; 
+$noresave{$key} = "$nosave";
+
+1;
+
diff --git a/src/slalib/sun67.htx/next_group_motif.gif b/src/slalib/sun67.htx/next_group_motif.gif
new file mode 100644
index 0000000..833af4d
Binary files /dev/null and b/src/slalib/sun67.htx/next_group_motif.gif differ
diff --git a/src/slalib/sun67.htx/next_group_motif_gr.gif b/src/slalib/sun67.htx/next_group_motif_gr.gif
new file mode 100644
index 0000000..c04fec3
Binary files /dev/null and b/src/slalib/sun67.htx/next_group_motif_gr.gif differ
diff --git a/src/slalib/sun67.htx/next_motif.gif b/src/slalib/sun67.htx/next_motif.gif
new file mode 100644
index 0000000..7a2dbe9
Binary files /dev/null and b/src/slalib/sun67.htx/next_motif.gif differ
diff --git a/src/slalib/sun67.htx/next_motif_gr.gif b/src/slalib/sun67.htx/next_motif_gr.gif
new file mode 100644
index 0000000..1416b1c
Binary files /dev/null and b/src/slalib/sun67.htx/next_motif_gr.gif differ
diff --git a/src/slalib/sun67.htx/node1.html b/src/slalib/sun67.htx/node1.html
new file mode 100644
index 0000000..0a5b6da
--- /dev/null
+++ b/src/slalib/sun67.htx/node1.html
@@ -0,0 +1,65 @@
+
+
+
+
+Abstract
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: INTRODUCTION
+
    
+Up: SLALIB   Positional Astronomy Library
+
    
+ Previous: SLALIB   Positional Astronomy Library
+
     
     
    
+
    
+
    Abstract
+ 
+
    
+SLALIB is a library used by writers of positional-astronomy applications.
+Most of the 183 routines are concerned with astronomical position and time,
+but a number have wider trigonometrical, numerical or general applications.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: INTRODUCTION
+
    
+Up: SLALIB   Positional Astronomy Library
+
    
+ Previous: SLALIB   Positional Astronomy Library
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node10.html b/src/slalib/sun67.htx/node10.html
new file mode 100644
index 0000000..4a6a393
--- /dev/null
+++ b/src/slalib/sun67.htx/node10.html
@@ -0,0 +1,75 @@
+
+
+
+
+New Functions
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Acknowledgements
+
    
+Up: INTRODUCTION
+
    
+ Previous: Future Versions
+
     
     
    
+
    
+
    
+New Functions
+
    
+In a package like SLALIB it is difficult to know how far to go.  Is it
+enough to provide the primitive operations, or should more
+complicated functions be packaged?  Is it worth encroaching on
+specialist areas, where individual experts have all written their
+own software already?  To what extent should CPU efficiency be
+an issue?  How much support of different numerical precisions is
+required?  And so on.
+
    
+In practice, almost all the routines in SLALIB are there because they were
+needed for some specific application, and this is likely to remain the
+pattern for any enhancements in the future.
+Suggestions for additional SLALIB routines should be addressed to the
+author.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Acknowledgements
+
    
+Up: INTRODUCTION
+
    
+ Previous: Future Versions
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node100.html b/src/slalib/sun67.htx/node100.html
new file mode 100644
index 0000000..104db1d
--- /dev/null
+++ b/src/slalib/sun67.htx/node100.html
@@ -0,0 +1,110 @@
+
+
+
+
+SLA_ETRMS - E-terms of Aberration
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EULER - Rotation Matrix from Euler Angles
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EQGAL - J2000 to Galactic
+
     
     
    
+
    
+
    SLA_ETRMS - E-terms of Aberration
+  
+
    
+       
    
+
    ACTION:
+
    Compute the E-terms vector - the part of the annual
+aberration which arises from the eccentricity of the
+         Earth's orbit.
+
        
    CALL:
+
    CALL sla_ETRMS (EP, EV)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    EPDBesselian epoch
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    EVD(3)E-terms as $[\Delta x, \Delta y, \Delta z\,]$
    
+
          
    
+
    NOTE:
+
    Note the use of the J2000 aberration constant (
+$20\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.49552$   ).
+       This is a reflection of the fact that the E-terms embodied in
+       existing star catalogues were computed from a variety of
+       aberration constants.  Rather than adopting one of the old
+       constants the latest value is used here.
+      
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    Smith, C.A. et al., 1989.  Astr.J. 97, 265.
+
    2.
+
    Yallop, B.D. et al., 1989.  Astr.J. 97, 274.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EULER - Rotation Matrix from Euler Angles
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EQGAL - J2000 to Galactic
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node101.html b/src/slalib/sun67.htx/node101.html
new file mode 100644
index 0000000..e5bdda2
--- /dev/null
+++ b/src/slalib/sun67.htx/node101.html
@@ -0,0 +1,132 @@
+
+
+
+
+SLA_EULER - Rotation Matrix from Euler Angles
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EVP - Earth Position & Velocity
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_ETRMS - E-terms of Aberration
+
     
     
    
+
    
+
    SLA_EULER - Rotation Matrix from Euler Angles
+  
+
    
+       
    
+
    ACTION:
+
    Form a rotation matrix from the Euler angles - three
+successive rotations about specified Cartesian axes
+         (single precision).
+
        
    CALL:
+
    CALL sla_EULER (ORDER, PHI, THETA, PSI, RMAT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    ORDERC*(*)specifies about which axes the rotations occur
    PHIR1st rotation (radians)
    THETAR2nd rotation (radians)
    PSIR3rd rotation (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RMATR(3,3)rotation matrix
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    A rotation is positive when the reference frame rotates
+anticlockwise as seen looking towards the origin from the
+positive region of the specified axis.
+  
    2.
+
    The characters of ORDER define which axes the three successive
+        rotations are about.  A typical value is `ZXZ', indicating that
+        RMAT is to become the direction cosine matrix corresponding to
+        rotations of the reference frame through PHI radians about the
+        old z-axis, followed by THETA radians about the resulting
+        x-axis,
+        then PSI radians about the resulting z-axis.  In detail:
+        
      
+
    •  The axis names can be any of the following, in any order or
+               combination:  X, Y, Z, uppercase or lowercase, 1, 2, 3.  Normal
+               axis labelling/numbering conventions apply;
+               the xyz ($\equiv123$)               triad is right-handed.  Thus, the `ZXZ' example given above
+               could be written `zxz' or `313' (or even `ZxZ' or `3xZ').
+
    •  ORDER is terminated by length or by the first unrecognized
+               character.
+
    •  Fewer than three rotations are acceptable, in which case
+               the later angle arguments are ignored.
+        
    
+  
    3.
+
    Zero rotations produces a unit RMAT.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EVP - Earth Position & Velocity
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_ETRMS - E-terms of Aberration
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node102.html b/src/slalib/sun67.htx/node102.html
new file mode 100644
index 0000000..d22b187
--- /dev/null
+++ b/src/slalib/sun67.htx/node102.html
@@ -0,0 +1,149 @@
+
+
+
+
+SLA_EVP - Earth Position & Velocity
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FITXY - Fit Linear Model to Two Sets
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EULER - Rotation Matrix from Euler Angles
+
     
     
    
+
    
+
    SLA_EVP - Earth Position & Velocity
+  
+
    
+       
    
+
    ACTION:
+
    Barycentric and heliocentric velocity and position of the Earth.
+
    CALL:
+
    CALL sla_EVP (DATE, DEQX, DVB, DPB, DVH, DPH)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    DATEDTDB (formerly ET) as a Modified Julian Date
+(JD-2400000.5)
    DEQXDJulian Epoch (e.g. 2000D0) of mean equator and
+equinox of the vectors returned.  If DEQX <0,
+all vectors are referred to the mean equator and
+equinox (FK5) of date DATE.
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    DVBD(3)barycentric $[\,\dot{x},\dot{y},\dot{z}\,]$, AU s-1
    DPBD(3)barycentric $[\,x,y,z\,]$, AU
    DVHD(3)heliocentric $[\,\dot{x},\dot{y},\dot{z}\,]$, AU s-1
    DPHD(3)heliocentric $[\,x,y,z\,]$, AU
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    This routine is used when accuracy is more important
+than CPU time, yet the extra complication of reading a
+pre-computed ephemeris is not justified.  The maximum
+        deviations from the JPL DE96 ephemeris are as follows:
+        
      
+
    •  velocity (barycentric or heliocentric): 420 mm s-1
+
    •  position (barycentric): 6900 km
+
    •  position (heliocentric): 1600 km
+        
    
+  
    2.
+
    The routine is an adaption of the BARVEL and BARCOR
+        subroutines of P.Stumpff, which are described in
+        Astr.Astrophys.Suppl.Ser. 41, 1-8 (1980).
+        Most of the changes are merely cosmetic and do not affect
+        the results at all.  However, some adjustments have been
+        made so as to give results that refer to the new (IAU 1976
+        `FK5') equinox and precession, although the differences these
+        changes make relative to the results from Stumpff's original
+        `FK4' version are smaller than the inherent accuracy of the
+        algorithm.  One minor shortcoming in the original routines
+        that has not been corrected is that slightly better
+        numerical accuracy could be achieved if the various polynomial
+        evaluations were to be so arranged that the smallest terms were
+        computed first.  Note also that one of Stumpff's precession
+        constants differs by 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.001$    from the value given in the
+        Explanatory Supplement.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FITXY - Fit Linear Model to Two Sets
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EULER - Rotation Matrix from Euler Angles
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node103.html b/src/slalib/sun67.htx/node103.html
new file mode 100644
index 0000000..4525328
--- /dev/null
+++ b/src/slalib/sun67.htx/node103.html
@@ -0,0 +1,170 @@
+
+
+
+
+SLA_FITXY - Fit Linear Model to Two Sets
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FK425 - FK4 to FK5
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EVP - Earth Position & Velocity
+
     
     
    
+
    
+
       
+
    
+SLA_FITXY - Fit Linear Model to Two $[\,x,y\,]$ Sets
+
    
+       
    
+
    ACTION:
+
    Fit a linear model to relate two sets of $[\,x,y\,]$ coordinates.
+
    CALL:
+
    CALL sla_FITXY (ITYPE,NP,XYE,XYM,COEFFS,J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    ITYPEItype of model: 4 or 6 (note 1)
    NPInumber of samples (note 2)
    XYED(2,NP)expected $[\,x,y\,]$ for each sample
    XYMD(2,NP)measured $[\,x,y\,]$ for each sample
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    COEFFSD(6)coefficients of model (note 3)
    JIstatus:
      0 = OK
      -1 = illegal ITYPE
      -2 = insufficient data
      -3 = singular solution
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    ITYPE, which must be either 4 or 6, selects the type of model
+fitted.  Both allowed ITYPE values produce a model COEFFS which
+consists of six coefficients, namely the zero points and, for
+        each of XE and YE, the coefficient of XM and YM.  For ITYPE=6,
+        all six coefficients are independent, modelling squash and shear
+        as well as origin, scale, and orientation.  However, ITYPE=4
+        selects the solid body rotation option;  the model COEFFS
+        still consists of the same six coefficients, but now two of
+        them are used twice (appropriately signed).  Origin, scale
+        and orientation are still modelled, but not squash or shear -
+        the units of X and Y have to be the same.
+  
    2.
+
    For NC=4, NP must be at least 2.  For NC=6, NP must be at
+        least 3.
+  
    3.
+
    The model is returned in the array COEFFS.  Naming the
+        six elements of COEFFS a,b,c,d,e & f,
+        the model transforms measured coordinates
+        $[x_{m},y_{m}\,]$ into expected coordinates
+        $[x_{e},y_{e}\,]$ as follows:
+        
    xe = a + bxm + cym 
    
+         ye = d + exm + fym
    
+        For the solid body rotation option (ITYPE=4), the
+        magnitudes of b and f, and of c and e, are equal.  The
+        signs of these coefficients depend on whether there is a
+        sign reversal between [xe,ye] and [xm,ym];
+        fits are performed
+        with and without a sign reversal and the best one chosen.
+  
    4.
+
    Error status values J=-1 and -2 leave COEFFS unchanged;
+        if J=-3 COEFFS may have been changed.
+  
    5.
+
    See also sla_PXY, sla_INVF, sla_XY2XY, sla_DCMPF.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FK425 - FK4 to FK5
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EVP - Earth Position & Velocity
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node104.html b/src/slalib/sun67.htx/node104.html
new file mode 100644
index 0000000..0a2f9ca
--- /dev/null
+++ b/src/slalib/sun67.htx/node104.html
@@ -0,0 +1,208 @@
+
+
+
+
+SLA_FK425 - FK4 to FK5
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FK45Z - FK4 to FK5, no P.M. or Parallax
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FITXY - Fit Linear Model to Two Sets
+
     
     
    
+
    
+
    SLA_FK425 - FK4 to FK5
+  
+
    
+       
    
+
    ACTION:
+
    Convert B1950.0 FK4 star data to J2000.0 FK5.
+This routine converts stars from the old, Bessel-Newcomb, FK4
+         system to the new, IAU 1976, FK5, Fricke system.  The precepts
+         of Smith et al. (see reference 1) are followed,
+         using the implementation
+         by Yallop et al. (reference 2) of a matrix method
+         due to Standish.
+         Kinoshita's development of Andoyer's post-Newcomb precession is
+         used.  The numerical constants from 
+         Seidelmann et al.  (reference 3) are used canonically.
+
        
    CALL:
+
    CALL sla_FK425 (
+         R1950,D1950,DR1950,DD1950,P1950,V1950,
+         R2000,D2000,DR2000,DD2000,P2000,V2000)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    R1950DB1950.0 $\alpha$ (radians)
    D1950DB1950.0 $\delta$ (radians)
    DR1950DB1950.0 proper motion in $\alpha$(radians per tropical year)
    DD1950DB1950.0 proper motion in $\delta$(radians per tropical year)
    P1950DB1950.0 parallax (arcsec)
    V1950DB1950.0 radial velocity (km s-1, +ve = moving away)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    R2000DJ2000.0 $\alpha$ (radians)
    D2000DJ2000.0 $\delta$ (radians)
    DR2000DJ2000.0 proper motion in $\alpha$(radians per Julian year)
    DD2000DJ2000.0 proper motion in $\delta$(radians per Julian year)
    P2000DJ2000.0 parallax (arcsec)
    V2000DJ2000.0 radial velocity (km s-1, +ve = moving away)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+$\dot{\alpha}\cos\delta$, and are per year rather than per century.
+
    2.
+
    Conversion from Besselian epoch 1950.0 to Julian epoch
+        2000.0 only is provided for.  Conversions involving other
+        epochs will require use of the appropriate precession,
+        proper motion, and E-terms routines before and/or after FK425
+        is called.
+  
    3.
+
    In the FK4 catalogue the proper motions of stars within
+        $10^{\circ}$ of the poles do not include the differential
+        E-terms effect and should, strictly speaking, be handled
+        in a different manner from stars outside these regions.
+        However, given the general lack of homogeneity of the star
+        data available for routine astrometry, the difficulties of
+        handling positions that may have been determined from
+        astrometric fields spanning the polar and non-polar regions,
+        the likelihood that the differential E-terms effect was not
+        taken into account when allowing for proper motion in past
+        astrometry, and the undesirability of a discontinuity in
+        the algorithm, the decision has been made in this routine to
+        include the effect of differential E-terms on the proper
+        motions for all stars, whether polar or not.  At epoch J2000,
+        and measuring on the sky rather than in terms of $\Delta\alpha$,        the errors resulting from this simplification are less than
+        1 milliarcsecond in position and 1 milliarcsecond per
+        century in proper motion.
+  
    4.
+
    See also sla_FK45Z, sla_FK524, sla_FK54Z.
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    Smith, C.A. et al., 1989.  Astr.J. 97, 265.
+
    2.
+
    Yallop, B.D. et al., 1989. Astr.J. 97, 274.
+
    3.
+
    Seidelmann, P.K. (ed), 1992.  Explanatory
+        Supplement to the Astronomical Almanac, ISBN 0-935702-68-7.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FK45Z - FK4 to FK5, no P.M. or Parallax
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FITXY - Fit Linear Model to Two Sets
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node105.html b/src/slalib/sun67.htx/node105.html
new file mode 100644
index 0000000..dde5fc9
--- /dev/null
+++ b/src/slalib/sun67.htx/node105.html
@@ -0,0 +1,166 @@
+
+
+
+
+SLA_FK45Z - FK4 to FK5, no P.M. or Parallax
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FK524 - FK5 to FK4
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FK425 - FK4 to FK5
+
     
     
    
+
    
+
    SLA_FK45Z - FK4 to FK5, no P.M. or Parallax
+  
+
    
+       
    
+
    ACTION:
+
    Convert B1950.0 FK4 star data to J2000.0 FK5 assuming zero
+proper motion in the FK5 frame.
+         This routine converts stars from the old, Bessel-Newcomb, FK4
+         system to the new, IAU 1976, FK5, Fricke system, in such a
+         way that the FK5 proper motion is zero.  Because such a star
+         has, in general, a non-zero proper motion in the FK4 system,
+         the routine requires the epoch at which the position in the
+         FK4 system was determined.  The method is from appendix 2 of
+         reference 1, but using the constants of reference 4.
+
        
    CALL:
+
    CALL sla_FK45Z (R1950,D1950,BEPOCH,R2000,D2000)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    R1950DB1950.0 FK4 $\alpha$ at epoch BEPOCH (radians)
    D1950DB1950.0 FK4 $\delta$ at epoch BEPOCH (radians)
    BEPOCHDBesselian epoch (e.g. 1979.3D0)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    R2000DJ2000.0 FK5 $\alpha$ (radians)
    D2000DJ2000.0 FK5 $\delta$ (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The epoch BEPOCH is strictly speaking Besselian, but
+if a Julian epoch is supplied the result will be
+affected only to a negligible extent.
+  
    2.
+
    Conversion from Besselian epoch 1950.0 to Julian epoch
+        2000.0 only is provided for.  Conversions involving other
+        epochs will require use of the appropriate precession,
+        proper motion, and E-terms routines before and/or
+        after FK45Z is called.
+  
    3.
+
    In the FK4 catalogue the proper motions of stars within
+        $10^{\circ}$ of the poles do not include the differential
+        E-terms effect and should, strictly speaking, be handled
+        in a different manner from stars outside these regions.
+        However, given the general lack of homogeneity of the star
+        data available for routine astrometry, the difficulties of
+        handling positions that may have been determined from
+        astrometric fields spanning the polar and non-polar regions,
+        the likelihood that the differential E-terms effect was not
+        taken into account when allowing for proper motion in past
+        astrometry, and the undesirability of a discontinuity in
+        the algorithm, the decision has been made in this routine to
+        include the effect of differential E-terms on the proper
+        motions for all stars, whether polar or not.  At epoch 2000,
+        and measuring on the sky rather than in terms of $\Delta\alpha$,        the errors resulting from this simplification are less than
+        1 milliarcsecond in position and 1 milliarcsecond per
+        century in proper motion.
+  
    4.
+
    See also sla_FK425, sla_FK524, sla_FK54Z.
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    Aoki, S., et al., 1983. Astr.Astrophys., 128, 263.
+
    2.
+
    Smith, C.A. et al., 1989.  Astr.J. 97, 265.
+
    3.
+
    Yallop, B.D. et al., 1989. Astr.J. 97, 274.
+  
    4.
+
    Seidelmann, P.K. (ed), 1992.  Explanatory
+        Supplement to the Astronomical Almanac, ISBN 0-935702-68-7.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FK524 - FK5 to FK4
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FK425 - FK4 to FK5
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node106.html b/src/slalib/sun67.htx/node106.html
new file mode 100644
index 0000000..8c1e64a
--- /dev/null
+++ b/src/slalib/sun67.htx/node106.html
@@ -0,0 +1,207 @@
+
+
+
+
+SLA_FK524 - FK5 to FK4
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FK52H - FK5 to Hipparcos
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FK45Z - FK4 to FK5, no P.M. or Parallax
+
     
     
    
+
    
+
    SLA_FK524 - FK5 to FK4
+  
+
    
+       
    
+
    ACTION:
+
    Convert J2000.0 FK5 star data to B1950.0 FK4.
+This routine converts stars from the new, IAU 1976, FK5, Fricke
+         system, to the old, Bessel-Newcomb, FK4 system.
+         The precepts of Smith et al. (reference 1) are followed,
+         using the implementation by Yallop et al. (reference 2)
+         of a matrix method due to Standish.  Kinoshita's development of
+         Andoyer's post-Newcomb precession is used.  The numerical
+         constants from Seidelmann et al. (reference 3) are
+         used canonically.
+
        
    CALL:
+
    CALL sla_FK524 (
+         R2000,D2000,DR2000,DD2000,P2000,V2000,
+         R1950,D1950,DR1950,DD1950,P1950,V1950)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    R2000DJ2000.0 $\alpha$ (radians)
    D2000DJ2000.0 $\delta$ (radians)
    DR2000DJ2000.0 proper motion in $\alpha$(radians per Julian year)
    DD2000DJ2000.0 proper motion in $\delta$(radians per Julian year)
    P2000DJ2000.0 parallax (arcsec)
    V2000DJ2000 radial velocity (km s-1, +ve = moving away)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    R1950DB1950.0 $\alpha$ (radians)
    D1950DB1950.0 $\delta$ (radians)
    DR1950DB1950.0 proper motion in $\alpha$(radians per tropical year)
    DD1950DB1950.0 proper motion in $\delta$(radians per tropical year)
    P1950DB1950.0 parallax (arcsec)
    V1950Dradial velocity (km s-1, +ve = moving away)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+$\dot{\alpha}\cos\delta$, and are per year rather than per century.
+
    2.
+
    Note that conversion from Julian epoch 2000.0 to Besselian
+        epoch 1950.0 only is provided for.  Conversions involving
+        other epochs will require use of the appropriate precession,
+        proper motion, and E-terms routines before and/or after
+        FK524 is called.
+  
    3.
+
    In the FK4 catalogue the proper motions of stars within
+        $10^{\circ}$ of the poles do not include the differential
+        E-terms effect and should, strictly speaking, be handled
+        in a different manner from stars outside these regions.
+        However, given the general lack of homogeneity of the star
+        data available for routine astrometry, the difficulties of
+        handling positions that may have been determined from
+        astrometric fields spanning the polar and non-polar regions,
+        the likelihood that the differential E-terms effect was not
+        taken into account when allowing for proper motion in past
+        astrometry, and the undesirability of a discontinuity in
+        the algorithm, the decision has been made in this routine to
+        include the effect of differential E-terms on the proper
+        motions for all stars, whether polar or not.  At epoch 2000,
+        and measuring on the sky rather than in terms of $\Delta\alpha$,        the errors resulting from this simplification are less than
+        1 milliarcsecond in position and 1 milliarcsecond per
+        century in proper motion.
+  
    4.
+
    See also sla_FK425, sla_FK45Z, sla_FK54Z.
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    Smith, C.A. et al., 1989.  Astr.J. 97, 265.
+
    2.
+
    Yallop, B.D. et al., 1989. Astr.J. 97, 274.
+
    3.
+
    Seidelmann, P.K. (ed), 1992.  Explanatory
+        Supplement to the Astronomical Almanac, ISBN 0-935702-68-7.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FK52H - FK5 to Hipparcos
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FK45Z - FK4 to FK5, no P.M. or Parallax
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node107.html b/src/slalib/sun67.htx/node107.html
new file mode 100644
index 0000000..e63af95
--- /dev/null
+++ b/src/slalib/sun67.htx/node107.html
@@ -0,0 +1,188 @@
+
+
+
+
+SLA_FK52H - FK5 to Hipparcos
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FK54Z - FK5 to FK4, no P.M. or Parallax
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FK524 - FK5 to FK4
+
     
     
    
+
    
+
    SLA_FK52H - FK5 to Hipparcos
+  
+
    
+       
    
+
    ACTION:
+
    Transform an FK5 (J2000) position and proper motion
+into the frame of the Hipparcos catalogue.
+
        
    CALL:
+
    CALL sla_FK52H (R5,D5,DR5,DD5,RH,DH,DRH,DDH)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    R5DJ2000.0 FK5 $\alpha$ (radians)
    D5DJ2000.0 FK5 $\delta$ (radians)
    DR5DJ2000.0 FK5 proper motion in $\alpha$(radians per Julian year)
    DD5DJ2000.0 FK5 proper motion in $\delta$(radians per Julian year)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RHDHipparcos $\alpha$ (radians)
    DHDHipparcos $\delta$ (radians)
    DRHDHipparcos proper motion in $\alpha$(radians per Julian year)
    DDHDHipparcos proper motion in $\delta$(radians per Julian year)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+$\dot{\alpha}\cos\delta$, and are per year rather than per century.
+
    2.
+
    The FK5 to Hipparcos
+        transformation consists of a pure rotation and spin;
+        zonal errors in the FK5 catalogue are not taken into account.
+  
    3.
+
    The adopted epoch J2000.0 FK5 to Hipparcos orientation and spin
+        values are as follows (see reference):
+
            
    
+
    
+
    
+
                        
+        
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
     orientation   spin   
    x-19.9     -0.30  
    y-9.1     +0.60  
    z+22.9     +0.70  
     mas      mas/y 
    
+
            
    
+
    
+
    
+
    
+
    
+These orientation and spin components are interpreted as
+        axial vectors.  An axial vector points at the pole of
+        the rotation and its length is the amount of rotation in radians.
+  
    4.
+
    See also sla_FK5HZ, sla_H2FK5, sla_HFK5Z.
+ 
    
+
         
    
+
    REFERENCE:
+
    Feissel, M. & Mignard, F., 1998.,  Astron.Astrophys. 331, L33-L36.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FK54Z - FK5 to FK4, no P.M. or Parallax
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FK524 - FK5 to FK4
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node108.html b/src/slalib/sun67.htx/node108.html
new file mode 100644
index 0000000..504a1a6
--- /dev/null
+++ b/src/slalib/sun67.htx/node108.html
@@ -0,0 +1,156 @@
+
+
+
+
+SLA_FK54Z - FK5 to FK4, no P.M. or Parallax
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FK5HZ - FK5 to Hipparcos, no P.M.
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FK52H - FK5 to Hipparcos
+
     
     
    
+
    
+
    SLA_FK54Z - FK5 to FK4, no P.M. or Parallax
+  
+
    
+       
    
+
    ACTION:
+
    Convert a J2000.0 FK5 star position to B1950.0 FK4 assuming
+FK5 zero proper motion and parallax.
+         This routine converts star positions from the new, IAU 1976,
+         FK5, Fricke system to the old, Bessel-Newcomb, FK4 system.
+
        
    CALL:
+
    CALL sla_FK54Z (R2000,D2000,BEPOCH,R1950,D1950,DR1950,DD1950)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    R2000DJ2000.0 FK5 $\alpha$ (radians)
    D2000DJ2000.0 FK5 $\delta$ (radians)
    BEPOCHDBesselian epoch (e.g. 1950D0)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    R1950DB1950.0 FK4 $\alpha$ at epoch BEPOCH (radians)
    D1950DB1950.0 FK4 $\delta$ at epoch BEPOCH (radians)
    DR1950DB1950.0 FK4 proper motion in $\alpha$(radians per tropical year)
    DD1950DB1950.0 FK4 proper motion in $\delta$(radians per tropical year)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+$\dot{\alpha}\cos\delta$, and are per year rather than per century.
+
    2.
+
    Conversion from Julian epoch 2000.0 to Besselian epoch 1950.0
+        only is provided for.  Conversions involving other epochs will
+        require use of the appropriate precession routines before and
+        after this routine is called.
+  
    3.
+
    Unlike in the sla_FK524 routine, the FK5 proper motions, the
+        parallax and the radial velocity are presumed zero.
+  
    4.
+
    It was the intention that FK5 should be a close approximation
+        to an inertial frame, so that distant objects have zero proper
+        motion;  such objects have (in general) non-zero proper motion
+        in FK4, and this routine returns those fictitious proper
+        motions.
+  
    5.
+
    The position returned by this routine is in the B1950
+        reference frame but at Besselian epoch BEPOCH.  For
+        comparison with catalogues the BEPOCH argument will
+        frequently be 1950D0.
+  
    6.
+
    See also sla_FK425, sla_FK45Z, sla_FK524.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FK5HZ - FK5 to Hipparcos, no P.M.
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FK52H - FK5 to Hipparcos
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node109.html b/src/slalib/sun67.htx/node109.html
new file mode 100644
index 0000000..ddda44d
--- /dev/null
+++ b/src/slalib/sun67.htx/node109.html
@@ -0,0 +1,168 @@
+
+
+
+
+SLA_FK5HZ - FK5 to Hipparcos, no P.M.
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FLOTIN - Decode a Real Number
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FK54Z - FK5 to FK4, no P.M. or Parallax
+
     
     
    
+
    
+
    SLA_FK5HZ - FK5 to Hipparcos, no P.M.
+  
+
    
+       
    
+
    ACTION:
+
    Transform an FK5 (J2000) star position into the frame of the
+Hipparcos catalogue, assuming zero Hipparcos proper motion.
+
        
    CALL:
+
    CALL sla_FK52H (R5,D5,EPOCH,RH,DH)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    R5DJ2000.0 FK5 $\alpha$ (radians)
    D5DJ2000.0 FK5 $\delta$ (radians)
    EPOCHDJulian epoch (TDB)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    RHDHipparcos $\alpha$ (radians)
    DHDHipparcos $\delta$ (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+$\dot{\alpha}\cos\delta$, and are per year rather than per century.
+
    2.
+
    The FK5 to Hipparcos
+        transformation consists of a pure rotation and spin;
+        zonal errors in the FK5 catalogue are not taken into account.
+  
    3.
+
    The adopted epoch J2000.0 FK5 to Hipparcos orientation and spin
+        values are as follows (see reference):
+
            
    
+
    
+
    
+
                        
+        
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
     orientation   spin   
    x-19.9     -0.30  
    y-9.1     +0.60  
    z+22.9     +0.70  
     mas      mas/y 
    
+
            
    
+
    
+
    
+
    
+
    
+These orientation and spin components are interpreted as
+        axial vectors.  An axial vector points at the pole of
+        the rotation and its length is the amount of rotation in radians.
+  
    4.
+
    See also sla_FK52H, sla_H2FK5, sla_HFK5Z.
+ 
    
+
         
    
+
    REFERENCE:
+
    Feissel, M. & Mignard, F., 1998.,  Astron.Astrophys. 331, L33-L36.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_FLOTIN - Decode a Real Number
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FK54Z - FK5 to FK4, no P.M. or Parallax
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node11.html b/src/slalib/sun67.htx/node11.html
new file mode 100644
index 0000000..a950b04
--- /dev/null
+++ b/src/slalib/sun67.htx/node11.html
@@ -0,0 +1,102 @@
+
+
+
+
+Acknowledgements
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: LINKING
+
    
+Up: INTRODUCTION
+
    
+ Previous: New Functions
+
     
     
    
+
    
+
    
+Acknowledgements
+
    
+SLALIB is descended from a package of routines written
+for the AAO 16-bit minicomputers
+in the mid-1970s.  The coming of the VAX
+allowed a much more comprehensive and thorough package
+to be designed for Starlink, especially important
+at a time when the adoption
+of the IAU 1976 resolutions meant that astronomers
+would have to cope with a mixture of reference frames,
+timescales and nomenclature.
+
    
+Much of the preparatory work on SLALIB was done by
+Althea Wilkinson of Manchester University.
+During its development,
+Andrew Murray,
+Catherine Hohenkerk,
+Andrew Sinclair,
+Bernard Yallop
+and
+Brian Emerson of Her Majesty's Nautical Almanac Office were consulted
+on many occasions; their advice was indispensable.
+I am especially grateful to
+Catherine Hohenkerk
+for supplying preprints of papers, and test data. A number of
+enhancements to SLALIB were at the suggestion of
+Russell Owen, University of Washington,
+the late Phil Hill, St Andrews University,
+Bill Vacca, JILA, Boulder and
+Ron Maddalena, NRAO.
+Mark Calabretta, CSIRO Radiophysics, Sydney supplied changes to suit Convex.
+I am indebted to Derek Jones (RGO) for introducing me to the
+``universal variables'' method of calculating orbits.
+
    
+The first C version of SLALIB was a hand-coded transcription
+of the Starlink Fortran version carried out by
+Steve Eaton (University of Leeds) in the course of
+MSc work.  This was later
+enhanced by John Straede (AAO) and Martin Shepherd (Caltech).
+The current C SLALIB is a complete rewrite by the present author and
+includes a comprehensive validation suite.
+Additional comments on the C version came from Bob Payne (NRAO) and
+Jeremy Bailey (AAO).
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: LINKING
+
    
+Up: INTRODUCTION
+
    
+ Previous: New Functions
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node110.html b/src/slalib/sun67.htx/node110.html
new file mode 100644
index 0000000..c13c949
--- /dev/null
+++ b/src/slalib/sun67.htx/node110.html
@@ -0,0 +1,200 @@
+
+
+
+
+SLA_FLOTIN - Decode a Real Number
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_GALEQ - Galactic to J2000
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FK5HZ - FK5 to Hipparcos, no P.M.
+
     
     
    
+
    
+
    SLA_FLOTIN - Decode a Real Number
+  
+
    
+       
    
+
    ACTION:
+
    Convert free-format input into single precision floating point.
+
    CALL:
+
    CALL sla_FLOTIN (STRING, NSTRT, RESLT, JFLAG)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    STRINGCstring containing number to be decoded
    NSTRTIpointer to where decoding is to commence
    RESLTRcurrent value of result
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    NSTRTIadvanced to next number
    RESLTRresult
    JFLAGIstatus: -1 = -OK, 0 = +OK, 1 = null result, 2 = error
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The reason sla_FLOTIN has separate `OK' status values
+for + and - is to enable minus zero to be detected.
+This is of crucial importance
+       when decoding mixed-radix numbers.  For example, an angle
+       expressed as degrees, arcminutes and arcseconds may have a
+       leading minus sign but a zero degrees field.
+ 
    2.
+
    A TAB is interpreted as a space, and lowercase characters are
+       interpreted as uppercase.  n.b. The test for TAB is
+       ASCII-specific.
+ 
    3.
+
    The basic format is the sequence of fields $\pm n.n x \pm n$,       where $\pm$ is a sign
+       character `+' or `-', n means a string of decimal digits,
+       `.' is a decimal point, and x, which indicates an exponent,
+       means `D' or `E'.  Various combinations of these fields can be
+       omitted, and embedded blanks are permissible in certain places.
+ 
    4.
+
    Spaces:
+       
      
+
    •  Leading spaces are ignored.
+
    •  Embedded spaces are allowed only after +, -, D or E,
+             and after the decimal point if the first sequence of
+             digits is absent.
+
    •  Trailing spaces are ignored;  the first signifies
+             end of decoding and subsequent ones are skipped.
+       
    
+ 
    5.
+
    Delimiters:
+       
      
+
    •  Any character other than +,-,0-9,.,D,E or space may be
+             used to signal the end of the number and terminate decoding.
+
    •  Comma is recognized by sla_FLOTIN as a special case; it
+             is skipped, leaving the pointer on the next character.  See
+             13, below.
+
    •  Decoding will in all cases terminate if end of string
+             is reached.
+       
    
+ 
    6.
+
    Both signs are optional.  The default is +.
+ 
    7.
+
    The mantissa n.n defaults to unity.
+ 
    8.
+
    The exponent $x\!\pm\!n$ defaults to `E0'.
+ 
    9.
+
    The strings of decimal digits may be of any length.
+ 
    10.
+
    The decimal point is optional for whole numbers.
+ 
    11.
+
    A null result occurs when the string of characters
+       being decoded does not begin with +,-,0-9,.,D or E, or
+       consists entirely of spaces.  When this condition is
+       detected, JFLAG is set to 1 and RESLT is left untouched.
+ 
    12.
+
    NSTRT = 1 for the first character in the string.
+ 
    13.
+
    On return from sla_FLOTIN, NSTRT is set ready for the next
+       decode - following trailing blanks and any comma.  If a
+       delimiter other than comma is being used, NSTRT must be
+       incremented before the next call to sla_FLOTIN, otherwise
+       all subsequent calls will return a null result.
+ 
    14.
+
    Errors (JFLAG=2) occur when:
+       
      
+
    •  a +, -, D or E is left unsatisfied; or
+
    •  the decimal point is present without at least
+             one decimal digit before or after it; or
+
    •  an exponent more than 100 has been presented.
+       
    
+ 
    15.
+
    When an error has been detected, NSTRT is left
+       pointing to the character following the last
+       one used before the error came to light.  This
+       may be after the point at which a more sophisticated
+       program could have detected the error.  For example,
+       sla_FLOTIN does not detect that `1E999' is unacceptable
+       (on a computer where this is so)
+       until the entire number has been decoded.
+ 
    16.
+
    Certain highly unlikely combinations of mantissa and
+       exponent can cause arithmetic faults during the
+       decode, in some cases despite the fact that they
+       together could be construed as a valid number.
+ 
    17.
+
    Decoding is left to right, one pass.
+ 
    18.
+
    See also sla_DFLTIN and sla_INTIN.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_GALEQ - Galactic to J2000
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FK5HZ - FK5 to Hipparcos, no P.M.
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node111.html b/src/slalib/sun67.htx/node111.html
new file mode 100644
index 0000000..6e7927c
--- /dev/null
+++ b/src/slalib/sun67.htx/node111.html
@@ -0,0 +1,104 @@
+
+
+
+
+SLA_GALEQ - Galactic to J2000 
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_GALSUP - Galactic to Supergalactic
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FLOTIN - Decode a Real Number
+
     
     
    
+
    
+
       
+
    
+SLA_GALEQ - Galactic to J2000 $\alpha,\delta$
    
+       
    
+
    ACTION:
+
    Transformation from IAU 1958 galactic coordinates
+to J2000.0 FK5 equatorial coordinates.
+
        
    CALL:
+
    CALL sla_GALEQ (DL, DB, DR, DD)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DL,DBDgalactic longitude and latitude $[\,l^{I\!I},b^{I\!I}\,]$
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    DR,DDDJ2000.0 $[\,\alpha,\delta\,]$
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    All arguments are in radians.
+
    2.
+
    The equatorial coordinates are J2000.0 FK5.  Use the routine
+sla_GE50 if conversion to B1950.0 FK4 coordinates is
+                           required.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_GALSUP - Galactic to Supergalactic
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_FLOTIN - Decode a Real Number
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node112.html b/src/slalib/sun67.htx/node112.html
new file mode 100644
index 0000000..cfbdd9b
--- /dev/null
+++ b/src/slalib/sun67.htx/node112.html
@@ -0,0 +1,107 @@
+
+
+
+
+SLA_GALSUP - Galactic to Supergalactic
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_GE50 - Galactic to B1950
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_GALEQ - Galactic to J2000
+
     
     
    
+
    
+
    SLA_GALSUP - Galactic to Supergalactic
+  
+
    
+       
    
+
    ACTION:
+
    Transformation from IAU 1958 galactic coordinates to
+de Vaucouleurs supergalactic coordinates.
+
        
    CALL:
+
    CALL sla_GALSUP (DL, DB, DSL, DSB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DL,DBDgalactic longitude and latitude $[\,l^{I\!I},b^{I\!I}\,]$ (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    DSL,DSBDsupergalactic longitude and latitude (radians)
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    de Vaucouleurs, de Vaucouleurs, & Corwin, Second Reference
+Catalogue of Bright Galaxies, U.Texas, p8.
+
    2.
+
    Systems & Applied Sciences Corp., documentation for the
+        machine-readable version of the above catalogue,
+        Contract NAS 5-26490.
+ 
    
+ (These two references give different values for the galactic
+ longitude of the supergalactic origin.  Both are wrong;  the
+ correct value is $l^{I\!I}=137.37$.)
+
         
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_GE50 - Galactic to B1950
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_GALEQ - Galactic to J2000
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node113.html b/src/slalib/sun67.htx/node113.html
new file mode 100644
index 0000000..e12bf51
--- /dev/null
+++ b/src/slalib/sun67.htx/node113.html
@@ -0,0 +1,109 @@
+
+
+
+
+SLA_GE50 - Galactic to B1950 
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_GEOC - Geodetic to Geocentric
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_GALSUP - Galactic to Supergalactic
+
     
     
    
+
    
+
       
+
    
+SLA_GE50 - Galactic to B1950 $\alpha,\delta$
    
+       
    
+
    ACTION:
+
    Transformation from IAU 1958 galactic coordinates to
+B1950.0 FK4 equatorial coordinates.
+
        
    CALL:
+
    CALL sla_GE50 (DL, DB, DR, DD)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DL,DBDgalactic longitude and latitude $[\,l^{I\!I},b^{I\!I}\,]$
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    DR,DDDB1950.0 $[\,\alpha,\delta\,]$
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    All arguments are in radians.
+
    2.
+
    The equatorial coordinates are B1950.0 FK4.  Use the
+routine sla_GALEQ if conversion to J2000.0 FK5 coordinates
+        is required.
+ 
    
+
         
    
+
    REFERENCE:
+
    Blaauw et al., 1960, Mon.Not.R.astr.Soc.,
+121, 123.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_GEOC - Geodetic to Geocentric
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_GALSUP - Galactic to Supergalactic
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node114.html b/src/slalib/sun67.htx/node114.html
new file mode 100644
index 0000000..a2e570a
--- /dev/null
+++ b/src/slalib/sun67.htx/node114.html
@@ -0,0 +1,107 @@
+
+
+
+
+SLA_GEOC - Geodetic to Geocentric
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_GMST - UT to GMST
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_GE50 - Galactic to B1950
+
     
     
    
+
    
+
    SLA_GEOC - Geodetic to Geocentric
+  
+
    
+       
    
+
    ACTION:
+
    Convert geodetic position to geocentric.
+
    CALL:
+
    CALL sla_GEOC (P, H, R, Z)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    PDlatitude (geodetic, radians)
    HDheight above reference spheroid (geodetic, metres)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    RDdistance from Earth axis (AU)
    ZDdistance from plane of Earth equator (AU)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Geocentric latitude can be obtained by evaluating ATAN2(Z,R).
+
    2.
+
    IAU 1976 constants are used.
+
    
+
         
    
+
    REFERENCE:
+
    Green, R.M., 1985. Spherical Astronomy, Cambridge U.P., p98.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_GMST - UT to GMST
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_GE50 - Galactic to B1950
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node115.html b/src/slalib/sun67.htx/node115.html
new file mode 100644
index 0000000..cee01cc
--- /dev/null
+++ b/src/slalib/sun67.htx/node115.html
@@ -0,0 +1,115 @@
+
+
+
+
+SLA_GMST - UT to GMST
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_GMSTA - UT to GMST (extra precision)
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_GEOC - Geodetic to Geocentric
+
     
     
    
+
    
+
    SLA_GMST - UT to GMST
+  
+
    
+       
    
+
    ACTION:
+
    Conversion from universal time UT1 to Greenwich mean
+sidereal time.
+
        
    CALL:
+
    D = sla_GMST (UT1)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    UT1Duniversal time (strictly UT1) expressed as
+modified Julian Date (JD-2400000.5)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_GMSTDGreenwich mean sidereal time (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The IAU 1982 expression
+(see page S15 of the 1984 Astronomical
+Almanac) is used, but rearranged to reduce rounding errors.  This
+       expression is always described as giving the GMST at $0^{\rm h}$UT;
+       in fact, it gives the difference between the
+       GMST and the UT, which happens to equal the GMST (modulo
+       24 hours) at $0^{\rm h}$UT each day.  In sla_GMST, the
+       entire UT is used directly as the argument for the
+       canonical formula, and the fractional part of the UT is
+       added separately;  note that the factor $1.0027379\cdots$ does
+       not appear.
+       
    2.
+
    See also the routine sla_GMSTA, which
+       delivers better numerical
+       precision by accepting the UT date and time as separate arguments.
+  
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_GMSTA - UT to GMST (extra precision)
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_GEOC - Geodetic to Geocentric
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node116.html b/src/slalib/sun67.htx/node116.html
new file mode 100644
index 0000000..5055ecb
--- /dev/null
+++ b/src/slalib/sun67.htx/node116.html
@@ -0,0 +1,116 @@
+
+
+
+
+SLA_GMSTA - UT to GMST (extra precision)
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_GRESID - Gaussian Residual
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_GMST - UT to GMST
+
     
     
    
+
    
+
    SLA_GMSTA - UT to GMST (extra precision)
+  
+
    
+       
    
+
    ACTION:
+
    Conversion from universal time UT1 to Greenwich Mean
+sidereal time, with rounding errors minimized.
+
        
    CALL:
+
    D = sla_GMSTA (DATE, UT1)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    DATEDUT1 date as Modified Julian Date (integer part
+of JD-2400000.5)
    UT1DUT1 time (fraction of a day)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_GMSTDGreenwich mean sidereal time (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The algorithm is derived from the IAU 1982 expression
+(see page S15 of the 1984 Astronomical Almanac).
+
    2.
+
    There is no restriction on how the UT is apportioned between the
+       DATE and UT1 arguments.  Either of the two arguments could, for
+       example, be zero and the entire date+time supplied in the other.
+       However, the routine is designed to deliver maximum accuracy when
+       the DATE argument is a whole number and the UT1 argument
+       lies in the range $[\,0,\,1\,]$, or vice versa.
+       
    3.
+
    See also the routine sla_GMST, which accepts the UT1 as a single
+       argument.  Compared with sla_GMST, the extra numerical precision
+       delivered by the present routine is unlikely to be important in
+       an absolute sense, but may be useful when critically comparing
+       algorithms and in applications where two sidereal times close
+       together are differenced.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_GRESID - Gaussian Residual
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_GMST - UT to GMST
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node117.html b/src/slalib/sun67.htx/node117.html
new file mode 100644
index 0000000..980f93a
--- /dev/null
+++ b/src/slalib/sun67.htx/node117.html
@@ -0,0 +1,92 @@
+
+
+
+
+SLA_GRESID - Gaussian Residual
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_H2E - Az,El to
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_GMSTA - UT to GMST (extra precision)
+
     
     
    
+
    
+
    SLA_GRESID - Gaussian Residual
+  
+
    
+       
    
+
    ACTION:
+
    Generate pseudo-random normal deviate or Gaussian residual.
+
    CALL:
+
    R = sla_GRESID (S)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    SRstandard deviation
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The results of many calls to this routine will be
+normally distributed with mean zero and standard deviation S.
+
    2.
+
    The Box-Muller algorithm is used.
+  
    3.
+
    The implementation is machine-dependent.
+ 
    
+
         
    
+
    REFERENCE:
+
    Ahrens & Dieter, 1972. Comm.A.C.M. 15, 873.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_H2E - Az,El to
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_GMSTA - UT to GMST (extra precision)
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node118.html b/src/slalib/sun67.htx/node118.html
new file mode 100644
index 0000000..83df4b3
--- /dev/null
+++ b/src/slalib/sun67.htx/node118.html
@@ -0,0 +1,146 @@
+
+
+
+
+SLA_H2E - Az,El to 
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_H2FK5 - Hipparcos to FK5
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_GRESID - Gaussian Residual
+
     
     
    
+
    
+
       
+
    
+SLA_H2E - Az,El to $h,\delta$
    
+       
    
+
    ACTION:
+
    Horizon to equatorial coordinates
+(single precision).
+
        
    CALL:
+
    CALL sla_H2E (AZ, EL, PHI, HA, DEC)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    AZRazimuth (radians)
    ELRelevation (radians)
    PHIRlatitude (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    HARhour angle (radians)
    DECRdeclination (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The sign convention for azimuth is north zero, east $+\pi/2$.
    2.
+
    HA is returned in the range $\pm \pi$.  Declination is returned
+in the range $\pm \pi$.  
    3.
+
    The latitude is (in principle) geodetic.  In critical
+        applications, corrections for polar motion should be applied
+        (see sla_POLMO).
+  
    4.
+
    In some applications it will be important to specify the
+        correct type of elevation in order to produce the required
+        type of $[\,h,\delta\,]$.  In particular, it may be important to
+        distinguish between the elevation as affected by refraction,
+        which will yield the observed $[\,h,\delta\,]$, and the elevation
+        in vacuo, which will yield the topocentric
+        $[\,h,\delta\,]$.  If the
+        effects of diurnal aberration can be neglected, the
+        topocentric $[\,h,\delta\,]$ may be used as an approximation to the
+        apparent $[\,h,\delta\,]$.  
    5.
+
    No range checking of arguments is carried out.
+  
    6.
+
    In applications which involve many such calculations, rather
+        than calling the present routine it will be more efficient to
+        use inline code, having previously computed fixed terms such
+        as sine and cosine of latitude.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_H2FK5 - Hipparcos to FK5
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_GRESID - Gaussian Residual
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node119.html b/src/slalib/sun67.htx/node119.html
new file mode 100644
index 0000000..9133db9
--- /dev/null
+++ b/src/slalib/sun67.htx/node119.html
@@ -0,0 +1,188 @@
+
+
+
+
+SLA_H2FK5 - Hipparcos to FK5
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_HFK5Z - Hipparcos to FK5, no P.M.
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_H2E - Az,El to
+
     
     
    
+
    
+
    SLA_H2FK5 - Hipparcos to FK5
+  
+
    
+       
    
+
    ACTION:
+
    Transform a Hipparcos star position and proper motion
+into the FK5 (J2000) frame.
+
        
    CALL:
+
    CALL sla_H2FK5 (RH,DH,DRH,DDH,R5,D5,DR5,DD5)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RHDHipparcos $\alpha$ (radians)
    DHDHipparcos $\delta$ (radians)
    DRHDHipparcos proper motion in $\alpha$(radians per Julian year)
    DDHDHipparcos proper motion in $\delta$(radians per Julian year)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    R5DJ2000.0 FK5 $\alpha$ (radians)
    D5DJ2000.0 FK5 $\delta$ (radians)
    DR5DJ2000.0 FK5 proper motion in $\alpha$(radians per Julian year)
    DD5DFK5 J2000.0 proper motion in $\delta$(radians per Julian year)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+$\dot{\alpha}\cos\delta$, and are per year rather than per century.
+
    2.
+
    The FK5 to Hipparcos
+        transformation consists of a pure rotation and spin;
+        zonal errors in the FK5 catalogue are not taken into account.
+  
    3.
+
    The adopted epoch J2000.0 FK5 to Hipparcos orientation and spin
+        values are as follows (see reference):
+
            
    
+
    
+
    
+
                        
+        
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
     orientation   spin   
    x-19.9     -0.30  
    y-9.1     +0.60  
    z+22.9     +0.70  
     mas      mas/y 
    
+
            
    
+
    
+
    
+
    
+
    
+These orientation and spin components are interpreted as
+        axial vectors.  An axial vector points at the pole of
+        the rotation and its length is the amount of rotation in radians.
+  
    4.
+
    See also sla_FK52H, sla_FK5HZ, sla_HFK5Z.
+ 
    
+
         
    
+
    REFERENCE:
+
    Feissel, M. & Mignard, F., 1998.,  Astron.Astrophys. 331, L33-L36.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_HFK5Z - Hipparcos to FK5, no P.M.
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_H2E - Az,El to
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node12.html b/src/slalib/sun67.htx/node12.html
new file mode 100644
index 0000000..d75415d
--- /dev/null
+++ b/src/slalib/sun67.htx/node12.html
@@ -0,0 +1,75 @@
+
+
+
+
+LINKING
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SUBPROGRAM SPECIFICATIONS
+
    
+Up: SLALIB   Positional Astronomy Library
+
    
+ Previous: Acknowledgements
+
     
     
    
+
    
+
    
+LINKING
+
    
+
    
+On Unix systems (Sun, DEC Alpha etc.):
+
    %  f77 progname.o -L/star/lib `sla_link` -o progname
+
    
+(The above assumes that all Starlink directories have been added to
+the LD_LIBRARY_PATH and PATH environment variables
+as described in SUN/202.)
+
    
+On VAX/VMS:
+
    $  LINK progname,SLALIB_DIR:SLALIB/LIB
+
    
+
    
+
    
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SUBPROGRAM SPECIFICATIONS
+
    
+Up: SLALIB   Positional Astronomy Library
+
    
+ Previous: Acknowledgements
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node120.html b/src/slalib/sun67.htx/node120.html
new file mode 100644
index 0000000..ffd038a
--- /dev/null
+++ b/src/slalib/sun67.htx/node120.html
@@ -0,0 +1,190 @@
+
+
+
+
+SLA_HFK5Z - Hipparcos to FK5, no P.M.
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_IMXV - Apply 3D Reverse Rotation
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_H2FK5 - Hipparcos to FK5
+
     
     
    
+
    
+
    SLA_HFK5Z - Hipparcos to FK5, no P.M.
+  
+
    
+       
    
+
    ACTION:
+
    Transform a Hipparcos star position
+into the FK5 (J2000) frame assuming zero Hipparcos proper motion.
+
        
    CALL:
+
    CALL sla_HFK5Z (RH,DH,EPOCH,R5,D5,DR5,DD5)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RHDHipparcos $\alpha$ (radians)
    DHDHipparcos $\delta$ (radians)
    EPOCHDJulian epoch (TDB)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    R5DJ2000.0 FK5 $\alpha$ (radians)
    D5DJ2000.0 FK5 $\delta$ (radians)
    DR5DJ2000.0 FK5 proper motion in $\alpha$(radians per Julian year)
    DD5DFK5 J2000.0 proper motion in $\delta$(radians per Julian year)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+$\dot{\alpha}\cos\delta$, and are per year rather than per century.
+
    2.
+
    The FK5 to Hipparcos
+        transformation consists of a pure rotation and spin;
+        zonal errors in the FK5 catalogue are not taken into account.
+  
    3.
+
    The adopted epoch J2000.0 FK5 to Hipparcos orientation and spin
+        values are as follows (see reference):
+
            
    
+
    
+
    
+
                        
+        
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
     orientation   spin   
    x-19.9     -0.30  
    y-9.1     +0.60  
    z+22.9     +0.70  
     mas      mas/y 
    
+
            
    
+
    
+
    
+
    
+
    
+These orientation and spin components are interpreted as
+        axial vectors.  An axial vector points at the pole of
+        the rotation and its length is the amount of rotation in radians.
+        The order of the rotations, which are very small,
+  
    4.
+
    It was the intention that Hipparcos should be a close
+        approximation to an inertial frame, so that distant objects
+        have zero proper motion;  such objects have (in general)
+        non-zero proper motion in FK5, and this routine returns those
+        fictitious proper motions.
+  
    5.
+
    The position returned by this routine is in the FK5 J2000
+        reference frame but at Julian epoch EPOCH.
+  
    6.
+
    See also sla_FK52H, sla_FK5HZ, sla_H2FK5.
+ 
    
+
         
    
+
    REFERENCE:
+
    Feissel, M. & Mignard, F., 1998.,  Astron.Astrophys. 331, L33-L36.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_IMXV - Apply 3D Reverse Rotation
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_H2FK5 - Hipparcos to FK5
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node121.html b/src/slalib/sun67.htx/node121.html
new file mode 100644
index 0000000..68ace5b
--- /dev/null
+++ b/src/slalib/sun67.htx/node121.html
@@ -0,0 +1,118 @@
+
+
+
+
+SLA_IMXV - Apply 3D Reverse Rotation
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_INTIN - Decode an Integer Number
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_HFK5Z - Hipparcos to FK5, no P.M.
+
     
     
    
+
    
+
    SLA_IMXV - Apply 3D Reverse Rotation
+  
+
    
+       
    
+
    ACTION:
+
    Multiply a 3-vector by the inverse of a rotation
+matrix (single precision).
+
        
    CALL:
+
    CALL sla_IMXV (RM, VA, VB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    RMR(3,3)rotation matrix
    VAR(3)vector to be rotated
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    VBR(3)result vector
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    This routine performs the operation:
+
    b = M$^{T}\cdot$a
+
    
+        where a and b are the 3-vectors VA and VB
+        respectively, and M is the $3\times3$ matrix RM.
+  
    2.
+
    The main function of this routine is apply an inverse
+        rotation;  under these circumstances, ${\bf M}$ is
+        orthogonal, with its inverse the same as its transpose.
+  
    3.
+
    To comply with the ANSI Fortran 77 standard, VA and VB must
+        not be the same array.  The routine is, in fact, coded
+        so as to work properly on the VAX and many other systems even
+        if this rule is violated, something that is not, however,
+        recommended.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_INTIN - Decode an Integer Number
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_HFK5Z - Hipparcos to FK5, no P.M.
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node122.html b/src/slalib/sun67.htx/node122.html
new file mode 100644
index 0000000..b06d5d3
--- /dev/null
+++ b/src/slalib/sun67.htx/node122.html
@@ -0,0 +1,170 @@
+
+
+
+
+SLA_INTIN - Decode an Integer Number
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_INVF - Invert Linear Model
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_IMXV - Apply 3D Reverse Rotation
+
     
     
    
+
    
+
    SLA_INTIN - Decode an Integer Number
+  
+
    
+       
    
+
    ACTION:
+
    Convert free-format input into an integer.
+
    CALL:
+
    CALL sla_INTIN (STRING, NSTRT, IRESLT, JFLAG)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    STRINGCstring containing number to be decoded
    NSTRTIpointer to where decoding is to commence
    IRESLTIcurrent value of result
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    NSTRTIadvanced to next number
    IRESLTIresult
    JFLAGIstatus: -1 = -OK, 0 = +OK, 1 = null result, 2 = error
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The reason sla_INTIN has separate `OK' status values
+for + and - is to enable minus zero to be detected.
+This is of crucial importance
+       when decoding mixed-radix numbers.  For example, an angle
+       expressed as degrees, arcminutes and arcseconds may have a
+       leading minus sign but a zero degrees field.
+ 
    2.
+
    A TAB is interpreted as a space. n.b. The test for TAB is
+       ASCII-specific.
+ 
    3.
+
    The basic format is the sequence of fields $\pm n$,       where $\pm$ is a sign
+       character `+' or `-', and n means a string of decimal digits.
+ 
    4.
+
    Spaces:
+       
      
+
    •  Leading spaces are ignored.
+
    •  Spaces between the sign and the number are allowed.
+
    •  Trailing spaces are ignored;  the first signifies
+             end of decoding and subsequent ones are skipped.
+       
    
+ 
    5.
+
    Delimiters:
+       
      
+
    •  Any character other than +,-,0-9 or space may be
+             used to signal the end of the number and terminate decoding.
+
    •  Comma is recognized by sla_INTIN as a special case; it
+             is skipped, leaving the pointer on the next character.  See
+             9, below.
+
    •  Decoding will in all cases terminate if end of string
+             is reached.
+       
    
+ 
    6.
+
    The sign is optional.  The default is +.
+ 
    7.
+
    A null result occurs when the string of characters
+       being decoded does not begin with +,- or 0-9, or
+       consists entirely of spaces.  When this condition is
+       detected, JFLAG is set to 1 and IRESLT is left untouched.
+ 
    8.
+
    NSTRT = 1 for the first character in the string.
+ 
    9.
+
    On return from sla_INTIN, NSTRT is set ready for the next
+       decode - following trailing blanks and any comma.  If a
+       delimiter other than comma is being used, NSTRT must be
+       incremented before the next call to sla_INTIN, otherwise
+       all subsequent calls will return a null result.
+ 
    10.
+
    Errors (JFLAG=2) occur when:
+       
      
+
    •  there is a + or - but no number; or
+
    •  the number is greater than 231-1.
+       
    
+ 
    11.
+
    When an error has been detected, NSTRT is left
+       pointing to the character following the last
+       one used before the error came to light.
+ 
    12.
+
    See also sla_FLOTIN and sla_DFLTIN.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_INVF - Invert Linear Model
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_IMXV - Apply 3D Reverse Rotation
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node123.html b/src/slalib/sun67.htx/node123.html
new file mode 100644
index 0000000..a3d1a77
--- /dev/null
+++ b/src/slalib/sun67.htx/node123.html
@@ -0,0 +1,122 @@
+
+
+
+
+SLA_INVF - Invert Linear Model
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_KBJ - Select Epoch Prefix
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_INTIN - Decode an Integer Number
+
     
     
    
+
    
+
    SLA_INVF - Invert Linear Model
+  
+
    
+       
    
+
    ACTION:
+
    Invert a linear model of the type produced by the
+sla_FITXY routine.
+
        
    CALL:
+
    CALL sla_INVF (FWDS,BKWDS,J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    FWDSD(6)model coefficients
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    BKWDSD(6)inverse model
    JIstatus:  0 = OK, -1 = no inverse
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The models relate two sets of $[\,x,y\,]$ coordinates as follows.
+Naming the six elements of FWDS a,b,c,d,e & f,
+where two sets of coordinates [x1,y1] and
+        $[x_{2},y_{2}\,]$ are related thus:
+        
    x2 = a + bx1 + cy1 
    
+         y2 = d + ex1 + fy1
    
+        The present routine generates a new set of coefficients
+        p,q,r,s,t & u (the array BKWDS) such that:
+        
    x1 = p + qx2 + ry2 
    
+         y1 = s + tx2 + uy2
    
+  
    2.
+
    Two successive calls to this routine will deliver a set
+        of coefficients equal to the starting values.
+  
    3.
+
    To comply with the ANSI Fortran 77 standard, FWDS and BKWDS must
+        not be the same array.  The routine is, in fact, coded
+        so as to work properly on the VAX and many other systems even
+        if this rule is violated, something that is not, however,
+        recommended.
+  
    4.
+
    See also sla_FITXY, sla_PXY, sla_XY2XY, sla_DCMPF.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_KBJ - Select Epoch Prefix
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_INTIN - Decode an Integer Number
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node124.html b/src/slalib/sun67.htx/node124.html
new file mode 100644
index 0000000..6337e94
--- /dev/null
+++ b/src/slalib/sun67.htx/node124.html
@@ -0,0 +1,104 @@
+
+
+
+
+SLA_KBJ - Select Epoch Prefix
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_M2AV - Rotation Matrix to Axial Vector
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_INVF - Invert Linear Model
+
     
     
    
+
    
+
    SLA_KBJ - Select Epoch Prefix
+  
+
    
+       
    
+
    ACTION:
+
    Select epoch prefix `B' or `J'.
+
    CALL:
+
    CALL sla_KBJ (JB, E, K, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    JBIsla_DBJIN prefix status:  0=none, 1=`B', 2=`J'
    EDepoch - Besselian or Julian
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    KC`B' or `J'
    JIstatus:  0=OK
    
+
          
    
+
    NOTE:
+
    The routine is mainly intended for use in conjunction with the
+sla_DBJIN routine.  If the value of JB indicates that an explicit
+       B or J prefix was detected by sla_DBJIN, a `B' or `J'
+       is returned to match.  If JB indicates that no explicit B or J
+       was supplied, the choice is made on the basis of the epoch
+       itself;  B is assumed for E <1984, otherwise J.
+      
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_M2AV - Rotation Matrix to Axial Vector
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_INVF - Invert Linear Model
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node125.html b/src/slalib/sun67.htx/node125.html
new file mode 100644
index 0000000..2542649
--- /dev/null
+++ b/src/slalib/sun67.htx/node125.html
@@ -0,0 +1,107 @@
+
+
+
+
+SLA_M2AV - Rotation Matrix to Axial Vector
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_MAP - Mean to Apparent
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_KBJ - Select Epoch Prefix
+
     
     
    
+
    
+
    SLA_M2AV - Rotation Matrix to Axial Vector
+  
+
    
+       
    
+
    ACTION:
+
    From a rotation matrix, determine the corresponding axial vector
+(single precision).
+
        
    CALL:
+
    CALL sla_M2AV (RMAT, AXVEC)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    RMATR(3,3)rotation matrix
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    AXVECR(3)axial vector (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    A rotation matrix describes a rotation about some arbitrary axis.
+The axis is called the Euler axis, and the angle through
+which the reference frame rotates is called the Euler angle.
+        The axial vector returned by this routine has the same
+        direction as the Euler axis, and its magnitude is the Euler angle
+        in radians.
+  
    2.
+
    The magnitude and direction of the axial vector can be separated
+        by means of the routine sla_VN.
+  
    3.
+
    The reference frame rotates clockwise as seen looking along
+        the axial vector from the origin.
+  
    4.
+
    If RMAT is null, so is the result.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_MAP - Mean to Apparent
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_KBJ - Select Epoch Prefix
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node126.html b/src/slalib/sun67.htx/node126.html
new file mode 100644
index 0000000..abe5fb6
--- /dev/null
+++ b/src/slalib/sun67.htx/node126.html
@@ -0,0 +1,157 @@
+
+
+
+
+SLA_MAP - Mean to Apparent
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_MAPPA - Mean to Apparent Parameters
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_M2AV - Rotation Matrix to Axial Vector
+
     
     
    
+
    
+
    SLA_MAP - Mean to Apparent
+  
+
    
+       
    
+
    ACTION:
+
    Transform star $[\,\alpha,\delta\,]$ from mean place to geocentric apparent.
+The reference frames and timescales used are post IAU 1976.
+
        
    CALL:
+
    CALL sla_MAP (RM, DM, PR, PD, PX, RV, EQ, DATE, RA, DA)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RM,DMDmean $[\,\alpha,\delta\,]$ (radians)
    PR,PDDproper motions:  $[\,\alpha,\delta\,]$ changes per Julian year
    PXDparallax (arcsec)
    RVDradial velocity (km s-1, +ve if receding)
    EQDepoch and equinox of star data (Julian)
    DATEDTDB for apparent place (JD-2400000.5)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RA,DADapparent $[\,\alpha,\delta\,]$ (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    EQ is the Julian epoch specifying both the reference
+frame and the epoch of the position - usually 2000.
+For positions where the epoch and equinox are
+        different, use the routine sla_PM to apply proper
+        motion corrections before using this routine.
+  
    2.
+
    The distinction between the required TDB and TT is
+        always negligible.  Moreover, for all but the most
+        critical applications UTC is adequate.
+  
    3.
+
    The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+        $\dot{\alpha}\cos\delta$, and are per year rather than per century.
+  
    4.
+
    This routine may be wasteful for some applications
+        because it recomputes the Earth position/velocity and
+        the precession/nutation matrix each time, and because
+        it allows for parallax and proper motion.  Where
+        multiple transformations are to be carried out for one
+        epoch, a faster method is to call the sla_MAPPA routine
+        once and then either the sla_MAPQK routine (which includes
+        parallax and proper motion) or sla_MAPQKZ (which assumes
+        zero parallax and FK5 proper motion).
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    1984 Astronomical Almanac, pp B39-B41.
+
    2.
+
    Lederle & Schwan, 1984. Astr.Astrophys. 134, 1-6.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_MAPPA - Mean to Apparent Parameters
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_M2AV - Rotation Matrix to Axial Vector
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node127.html b/src/slalib/sun67.htx/node127.html
new file mode 100644
index 0000000..6ed5222
--- /dev/null
+++ b/src/slalib/sun67.htx/node127.html
@@ -0,0 +1,159 @@
+
+
+
+
+SLA_MAPPA - Mean to Apparent Parameters
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_MAPQK - Quick Mean to Apparent
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_MAP - Mean to Apparent
+
     
     
    
+
    
+
    SLA_MAPPA - Mean to Apparent Parameters
+  
+
    
+       
    
+
    ACTION:
+
    Compute star-independent parameters in preparation for
+conversions between mean place and geocentric apparent place.
+         The parameters produced by this routine are required in the
+         parallax, light deflection, aberration, and precession/nutation
+         parts of the mean/apparent transformations.
+         The reference frames and timescales used are post IAU 1976.
+
        
    CALL:
+
    CALL sla_MAPPA (EQ, DATE, AMPRMS)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    EQDepoch of mean equinox to be used (Julian)
    DATEDTDB (JD-2400000.5)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    AMPRMSD(21)star-independent mean-to-apparent parameters:
    (1)time interval for proper motion (Julian years)
    (2-4)barycentric position of the Earth (AU)
    (5-7)heliocentric direction of the Earth (unit vector)
    (8)(gravitational radius of
+Sun)$\times 2 / $(Sun-Earth distance)
    (9-11)v: barycentric Earth velocity in units of c
    (12)$\sqrt{1-\left\vert\mbox{\bf v}\right\vert^2}$
    (13-21)precession/nutation $3\times3$ matrix
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    For DATE, the distinction between the required TDB and TT
+is always negligible.  Moreover, for all but the most
+critical applications UTC is adequate.
+  
    2.
+
    The accuracy of the routines using the parameters AMPRMS is
+        limited by the routine sla_EVP, used here to compute the
+        Earth position and velocity by the methods of Stumpff.
+        The maximum error in the resulting aberration corrections is
+        about 0.3 milliarcsecond.
+  
    3.
+
    The vectors AMPRMS(2-4) and AMPRMS(5-7) are referred to
+        the mean equinox and equator of epoch EQ.
+  
    4.
+
    The parameters produced by this routine are used by
+        sla_MAPQK and sla_MAPQKZ.
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    1984 Astronomical Almanac, pp B39-B41.
+
    2.
+
    Lederle & Schwan, 1984. Astr.Astrophys. 134, 1-6.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_MAPQK - Quick Mean to Apparent
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_MAP - Mean to Apparent
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node128.html b/src/slalib/sun67.htx/node128.html
new file mode 100644
index 0000000..b705fa9
--- /dev/null
+++ b/src/slalib/sun67.htx/node128.html
@@ -0,0 +1,187 @@
+
+
+
+
+SLA_MAPQK - Quick Mean to Apparent
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_MAPQKZ - Quick Mean-Appt, no PM etc.
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_MAPPA - Mean to Apparent Parameters
+
     
     
    
+
    
+
    SLA_MAPQK - Quick Mean to Apparent
+  
+
    
+       
    
+
    ACTION:
+
    Quick mean to apparent place:  transform a star $[\,\alpha,\delta\,]$ from
+mean place to geocentric apparent place, given the
+         star-independent parameters.  The reference frames and
+         timescales used are post IAU 1976.
+
        
    CALL:
+
    CALL sla_MAPQK (RM, DM, PR, PD, PX, RV, AMPRMS, RA, DA)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RM,DMDmean $[\,\alpha,\delta\,]$ (radians)
    PR,PDDproper motions:  $[\,\alpha,\delta\,]$ changes per Julian year
    PXDparallax (arcsec)
    RVDradial velocity (km s-1, +ve if receding)
    AMPRMSD(21)star-independent mean-to-apparent parameters:
    (1)time interval for proper motion (Julian years)
    (2-4)barycentric position of the Earth (AU)
    (5-7)heliocentric direction of the Earth (unit vector)
    (8)(gravitational radius of
+Sun)$\times 2 / $(Sun-Earth distance)
    (9-11)v: barycentric Earth velocity in units of c
    (12)$\sqrt{1-\left\vert\mbox{\bf v}\right\vert^2}$
    (13-21)precession/nutation $3\times3$ matrix
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RA,DAD apparent $[\,\alpha,\delta\,]$ (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Use of this routine is appropriate when efficiency is important
+and where many star positions, all referred to the same equator
+and equinox, are to be transformed for one epoch.  The
+        star-independent parameters can be obtained by calling the
+        sla_MAPPA routine.
+  
    2.
+
    If the parallax and proper motions are zero the sla_MAPQKZ
+        routine can be used instead.
+  
    3.
+
    The vectors AMPRMS(2-4) and AMPRMS(5-7) are referred to
+        the mean equinox and equator of epoch EQ.
+  
    4.
+
    Strictly speaking, the routine is not valid for solar-system
+        sources, though the error will usually be extremely small.
+        However, to prevent gross errors in the case where the
+        position of the Sun is specified, the gravitational
+        deflection term is restrained within about $920\hspace{-0.05em}^{'\hspace{-0.1em}'}$ of the
+        centre of the Sun's disc.  The term has a maximum value of
+        about 
+      $1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.85$    at this radius, and decreases to zero as
+        the centre of the disc is approached.
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    1984 Astronomical Almanac, pp B39-B41.
+
    2.
+
    Lederle & Schwan, 1984. Astr.Astrophys. 134, 1-6.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_MAPQKZ - Quick Mean-Appt, no PM etc.
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_MAPPA - Mean to Apparent Parameters
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node129.html b/src/slalib/sun67.htx/node129.html
new file mode 100644
index 0000000..6cb5fed
--- /dev/null
+++ b/src/slalib/sun67.htx/node129.html
@@ -0,0 +1,175 @@
+
+
+
+
+SLA_MAPQKZ - Quick Mean-Appt, no PM etc.
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_MOON - Approx Moon Pos/Vel
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_MAPQK - Quick Mean to Apparent
+
     
     
    
+
    
+
    SLA_MAPQKZ - Quick Mean-Appt, no PM etc.
+  
+
    
+       
    
+
    ACTION:
+
    Quick mean to apparent place:  transform a star $[\,\alpha,\delta\,]$ from
+mean place to geocentric apparent place, given the
+         star-independent parameters, and assuming zero parallax
+         and FK5 proper motion.
+         The reference frames and timescales used are post IAU 1976.
+
        
    CALL:
+
    CALL sla_MAPQKZ (RM, DM, AMPRMS, RA, DA)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RM,DMDmean $[\,\alpha,\delta\,]$ (radians)
    AMPRMSD(21)star-independent mean-to-apparent parameters:
    (1)time interval for proper motion (Julian years)
    (2-4)barycentric position of the Earth (AU)
    (5-7)heliocentric direction of the Earth (unit vector)
    (8)(gravitational radius of
+Sun)$\times 2 / $(Sun-Earth distance)
    (9-11)v: barycentric Earth velocity in units of c
    (12)$\sqrt{1-\left\vert\mbox{\bf v}\right\vert^2}$
    (13-21)precession/nutation $3\times3$ matrix
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RA,DADapparent $[\,\alpha,\delta\,]$ (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Use of this routine is appropriate when efficiency is important
+and where many star positions, all with parallax and proper
+motion either zero or already allowed for, and all referred to
+        the same equator and equinox, are to be transformed for one
+        epoch.  The star-independent parameters can be obtained by
+        calling the sla_MAPPA routine.
+  
    2.
+
    The corresponding routine for the case of non-zero parallax
+        and FK5 proper motion is sla_MAPQK.
+  
    3.
+
    The vectors AMPRMS(2-4) and AMPRMS(5-7) are referred to the
+        mean equinox and equator of epoch EQ.
+  
    4.
+
    Strictly speaking, the routine is not valid for solar-system
+        sources, though the error will usually be extremely small.
+        However, to prevent gross errors in the case where the
+        position of the Sun is specified, the gravitational
+        deflection term is restrained within about $920\hspace{-0.05em}^{'\hspace{-0.1em}'}$ of the
+        centre of the Sun's disc.  The term has a maximum value of
+        about 
+      $1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.85$    at this radius, and decreases to zero as
+        the centre of the disc is approached.
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    1984 Astronomical Almanac, pp B39-B41.
+
    2.
+
    Lederle & Schwan, 1984. Astr.Astrophys. 134, 1-6.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_MOON - Approx Moon Pos/Vel
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_MAPQK - Quick Mean to Apparent
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node13.html b/src/slalib/sun67.htx/node13.html
new file mode 100644
index 0000000..c8106bf
--- /dev/null
+++ b/src/slalib/sun67.htx/node13.html
@@ -0,0 +1,489 @@
+
+
+
+
+SUBPROGRAM SPECIFICATIONS
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ADDET - Add E-terms of Aberration
+
    
+Up: SLALIB   Positional Astronomy Library
+
    
+ Previous: LINKING
+
     
     
    
+
    
+
    
+SUBPROGRAM SPECIFICATIONS
+
    
+
          
    
+
+ 
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ADDET - Add E-terms of Aberration
+
    
+Up: SLALIB   Positional Astronomy Library
+
    
+ Previous: LINKING
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node130.html b/src/slalib/sun67.htx/node130.html
new file mode 100644
index 0000000..99d6086
--- /dev/null
+++ b/src/slalib/sun67.htx/node130.html
@@ -0,0 +1,140 @@
+
+
+
+
+SLA_MOON - Approx Moon Pos/Vel
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_MXM - Multiply Matrices
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_MAPQKZ - Quick Mean-Appt, no PM etc.
+
     
     
    
+
    
+
    SLA_MOON - Approx Moon Pos/Vel
+  
+
    
+       
    
+
    ACTION:
+
    Approximate geocentric position and velocity of the Moon
+(single precision).
+
        
    CALL:
+
    CALL sla_MOON (IY, ID, FD, PV)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    IYIyear
    IDIday in year (1 = Jan 1st)
    FDR fraction of day
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    PVR(6)Moon $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$, mean equator and equinox of
+date (AU, AU s-1)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The date and time is TDB (loosely ET) in a Julian calendar
+which has been aligned to the ordinary Gregorian
+calendar for the interval 1900 March 1 to 2100 February 28.
+        The year and day can be obtained by calling sla_CALYD or
+        sla_CLYD.
+  
    2.
+
    The position is accurate to better than 0.5 arcminute
+        in direction and 1000 km in distance.  The velocity
+        is accurate to better than 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$    per hour in direction
+        and 4 metres per socond in distance.  (RMS figures with respect
+        to JPL DE200 for the interval 1960-2025 are $14\hspace{-0.05em}^{'\hspace{-0.1em}'}$ and
+
          $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.2$    per hour in longitude, $9\hspace{-0.05em}^{'\hspace{-0.1em}'}$ and 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.2$
    
+per hour in latitude, 350 km and 2 metres per second in distance.)
+        Note that the distance accuracy is comparatively poor because this
+        routine is principally intended for computing topocentric direction.
+  
    3.
+
    This routine is only a partial implementation of the original
+        Meeus algorithm (reference below), which offers 4 times the
+        accuracy in direction and 20 times the accuracy in distance
+        when fully implemented (as it is in sla_DMOON).
+ 
    
+
         
    
+
    REFERENCE:
+
    Meeus, l'Astronomie, June 1984, p348.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_MXM - Multiply Matrices
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_MAPQKZ - Quick Mean-Appt, no PM etc.
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node131.html b/src/slalib/sun67.htx/node131.html
new file mode 100644
index 0000000..7ee2c74
--- /dev/null
+++ b/src/slalib/sun67.htx/node131.html
@@ -0,0 +1,106 @@
+
+
+
+
+SLA_MXM - Multiply Matrices
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_MXV - Apply 3D Rotation
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_MOON - Approx Moon Pos/Vel
+
     
     
    
+
    
+
       
+
    
+SLA_MXM - Multiply $3\times3$ Matrices
+
    
+       
    
+
    ACTION:
+
    Product of two $3\times3$ matrices (single precision).
+
    CALL:
+
    CALL sla_MXM (A, B, C)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    AR(3,3)matrix A
    BR(3,3)matrix B
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    CR(3,3)matrix result: A$\times$B
    
+
          
    
+
    NOTE:
+
    To comply with the ANSI Fortran 77 standard, A, B and C must
+be different arrays.  The routine is, in fact, coded
+       so as to work properly on the VAX and many other systems even
+       if this rule is violated, something that is not, however,
+       recommended.
+      
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_MXV - Apply 3D Rotation
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_MOON - Approx Moon Pos/Vel
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node132.html b/src/slalib/sun67.htx/node132.html
new file mode 100644
index 0000000..5084d3d
--- /dev/null
+++ b/src/slalib/sun67.htx/node132.html
@@ -0,0 +1,117 @@
+
+
+
+
+SLA_MXV - Apply 3D Rotation
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_NUT - Nutation Matrix
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_MXM - Multiply Matrices
+
     
     
    
+
    
+
    SLA_MXV - Apply 3D Rotation
+  
+
    
+       
    
+
    ACTION:
+
    Multiply a 3-vector by a rotation matrix (single precision).
+
    CALL:
+
    CALL sla_MXV (RM, VA, VB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    RMR(3,3)rotation matrix
    VAR(3)vector to be rotated
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    VBR(3)result vector
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    This routine performs the operation:
+
    b = M$\cdot$a
+
    
+        where a and b are the 3-vectors VA and VB
+        respectively, and M is the $3\times3$ matrix RM.
+  
    2.
+
    The main function of this routine is apply a
+        rotation;  under these circumstances, ${\bf M}$ is a
+        proper real orthogonal matrix.
+  
    3.
+
    To comply with the ANSI Fortran 77 standard, VA and VB must
+        not be the same array.  The routine is, in fact, coded
+        so as to work properly on the VAX and many other systems even
+        if this rule is violated, something that is not, however,
+        recommended.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_NUT - Nutation Matrix
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_MXM - Multiply Matrices
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node133.html b/src/slalib/sun67.htx/node133.html
new file mode 100644
index 0000000..a849a15
--- /dev/null
+++ b/src/slalib/sun67.htx/node133.html
@@ -0,0 +1,111 @@
+
+
+
+
+SLA_NUT - Nutation Matrix
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_NUTC - Nutation Components
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_MXV - Apply 3D Rotation
+
     
     
    
+
    
+
    SLA_NUT - Nutation Matrix
+  
+
    
+       
    
+
    ACTION:
+
    Form the matrix of nutation (IAU 1980 theory) for a given date.
+
    CALL:
+
    CALL sla_NUT (DATE, RMATN)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DATEDTDB (formerly ET) as Modified Julian Date
+(JD-2400000.5)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RMATND(3,3)nutation matrix
    
+
          
    
+
    NOTE:
+
    The matrix is in the sense:
+
    vtrue =  M$\cdot$vmean
    
+       where vtrue is the star vector relative to the
+       true equator and equinox of date, M is the
+       $3\times3$ matrix RMATN and
+       vmean is the star vector relative to the
+       mean equator and equinox of date.
+      
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    Final report of the IAU Working Group on Nutation,
+chairman P.K.Seidelmann, 1980.
+
    2.
+
    Kaplan, G.H., 1981. USNO circular No. 163, pA3-6.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_NUTC - Nutation Components
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_MXV - Apply 3D Rotation
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node134.html b/src/slalib/sun67.htx/node134.html
new file mode 100644
index 0000000..a2b5df6
--- /dev/null
+++ b/src/slalib/sun67.htx/node134.html
@@ -0,0 +1,102 @@
+
+
+
+
+SLA_NUTC - Nutation Components
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_OAP - Observed to Apparent
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_NUT - Nutation Matrix
+
     
     
    
+
    
+
    SLA_NUTC - Nutation Components
+  
+
    
+       
    
+
    ACTION:
+
    Nutation (IAU 1980 theory):  longitude & obliquity
+components, and mean obliquity.
+
        
    CALL:
+
    CALL sla_NUTC (DATE, DPSI, DEPS, EPS0)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DATEDTDB (formerly ET) as Modified Julian Date
+(JD-2400000.5)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    DPSI,DEPSDnutation in longitude and obliquity (radians)
    EPS0Dmean obliquity (radians)
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    Final report of the IAU Working Group on Nutation,
+chairman P.K.Seidelmann, 1980.
+
    2.
+
    Kaplan, G.H., 1981. USNO circular no. 163, pA3-6.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_OAP - Observed to Apparent
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_NUT - Nutation Matrix
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node135.html b/src/slalib/sun67.htx/node135.html
new file mode 100644
index 0000000..753bc4c
--- /dev/null
+++ b/src/slalib/sun67.htx/node135.html
@@ -0,0 +1,319 @@
+
+
+
+
+SLA_OAP - Observed to Apparent
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_OAPQK - Quick Observed to Apparent
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_NUTC - Nutation Components
+
     
     
    
+
    
+
    SLA_OAP - Observed to Apparent
+  
+
    
+       
    
+
    ACTION:
+
    Observed to apparent place.
+
    CALL:
+
    CALL sla_OAP (
+         TYPE, OB1, OB2, DATE, DUT, ELONGM, PHIM,
+         HM, XP, YP, TDK, PMB, RH, WL, TLR, RAP, DAP)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    TYPEC*(*)type of coordinates - `R', `H' or `A' (see below)
    OB1Dobserved Az, HA or RA (radians; Az is N=0, E=$90^{\circ}$)
    OB2Dobserved zenith distance or $\delta$ (radians)
    DATED UTC date/time (Modified Julian Date, JD-2400000.5)
    DUTD$\Delta$UT:  UT1-UTC (UTC seconds)
    ELONGMDobserver's mean longitude (radians, east +ve)
    PHIMDobserver's mean geodetic latitude (radians)
    HMDobserver's height above sea level (metres)
    XP,YPDpolar motion $[\,x,y\,]$ coordinates (radians)
    TDKDlocal ambient temperature (degrees K; std=273.155D0)
    PMBDlocal atmospheric pressure (mB; std=1013.25D0)
    RHDlocal relative humidity (in the range 0D0-1D0)
    WLDeffective wavelength ($\mu{\rm m}$, e.g. 0.55D0)
    TLRDtropospheric lapse rate (degrees K per metre,
+e.g. 0.0065D0)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RAP,DAPDgeocentric apparent $[\,\alpha,\delta\,]$
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Only the first character of the TYPE argument is significant.
+`R' or `r' indicates that OBS1 and OBS2 are the observed Right
+Ascension and Declination;  `H' or `h' indicates that they are
+        Hour Angle (west +ve) and Declination; anything else (`A' or
+        `a' is recommended) indicates that OBS1 and OBS2 are Azimuth
+        (north zero, east is $90^{\circ}$) and Zenith Distance.  (Zenith
+        distance is used rather than elevation in order to reflect the
+        fact that no allowance is made for depression of the horizon.)
+  
    2.
+
    The accuracy of the result is limited by the corrections for
+        refraction.  Providing the meteorological parameters are
+        known accurately and there are no gross local effects, the
+        predicted azimuth and elevation should be within about
+
          $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.1$    for $\zeta<70^{\circ}$.  Even
+        at a topocentric zenith distance of
+        $90^{\circ}$, the accuracy in elevation should be better than
+        1 arcminute;  useful results are available for a further
+        $3^{\circ}$, beyond which the sla_REFRO routine returns a
+        fixed value of the refraction.  The complementary
+        routines sla_AOP (or sla_AOPQK) and sla_OAP (or sla_OAPQK)
+        are self-consistent to better than 1 microarcsecond all over
+        the celestial sphere.
+  
    3.
+
    It is advisable to take great care with units, as even
+        unlikely values of the input parameters are accepted and
+        processed in accordance with the models used.
+  
    4.
+
    Observed $[\,Az,El~]$ means the position that would be seen by a
+        perfect theodolite located at the observer.  This is
+        related to the observed $[\,h,\delta\,]$ via the standard rotation, using
+        the geodetic latitude (corrected for polar motion), while the
+        observed HA and RA are related simply through the local
+        apparent ST.  Observed $[\,\alpha,\delta\,]$ or $[\,h,\delta\,]$ thus means the
+        position that would be seen by a perfect equatorial located
+        at the observer and with its polar axis aligned to the
+        Earth's axis of rotation (n.b. not to the refracted pole).
+        By removing from the observed place the effects of
+        atmospheric refraction and diurnal aberration, the
+        geocentric apparent $[\,\alpha,\delta\,]$ is obtained.
+  
    5.
+
    Frequently, mean rather than apparent
+        $[\,\alpha,\delta\,]$ will be required,
+        in which case further transformations will be necessary.  The
+        sla_AMP etc. routines will convert
+        the apparent $[\,\alpha,\delta\,]$ produced
+        by the present routine into an FK5 J2000 mean place, by
+        allowing for the Sun's gravitational lens effect, annual
+        aberration, nutation and precession.  Should FK4 B1950
+        coordinates be needed, the routines sla_FK524 etc. will also
+        need to be applied.
+  
    6.
+
    To convert to apparent $[\,\alpha,\delta\,]$ the coordinates read from a
+        real telescope, corrections would have to be applied for
+        encoder zero points, gear and encoder errors, tube flexure,
+        the position of the rotator axis and the pointing axis
+        relative to it, non-perpendicularity between the mounting
+        axes, and finally for the tilt of the azimuth or polar axis
+        of the mounting (with appropriate corrections for mount
+        flexures).  Some telescopes would, of course, exhibit other
+        properties which would need to be accounted for at the
+        appropriate point in the sequence.
+  
    7.
+
    The star-independent apparent-to-observed-place parameters
+        in AOPRMS may be computed by means of the sla_AOPPA routine.
+        If nothing has changed significantly except the time, the
+        sla_AOPPAT routine may be used to perform the requisite
+        partial recomputation of AOPRMS.
+  
    8.
+
    The DATE argument is UTC expressed as an MJD.  This is,
+        strictly speaking, wrong, because of leap seconds.  However,
+        as long as the $\Delta$UT and the UTC are consistent there
+        are no difficulties, except during a leap second.  In this
+        case, the start of the 61st second of the final minute should
+        begin a new MJD day and the old pre-leap $\Delta$UT should
+        continue to be used.  As the 61st second completes, the MJD
+        should revert to the start of the day as, simultaneously,
+        the $\Delta$UT changes by one second to its post-leap new value.
+  
    9.
+
    The $\Delta$UT (UT1-UTC) is tabulated in IERS circulars and
+        elsewhere.  It increases by exactly one second at the end of
+        each UTC leap second, introduced in order to keep $\Delta$UT
+        within $\pm$$0^{\rm s}\hspace{-0.3em}.9$.  
    10.
+
    IMPORTANT - TAKE CARE WITH THE LONGITUDE SIGN CONVENTION.  The
+        longitude required by the present routine is east-positive,
+        in accordance with geographical convention (and right-handed).
+        In particular, note that the longitudes returned by the
+        sla_OBS routine are west-positive (as in the Astronomical
+        Almanac before 1984) and must be reversed in sign before use
+        in the present routine.
+  
    11.
+
    The polar coordinates XP,YP can be obtained from IERS
+        circulars and equivalent publications.  The
+        maximum amplitude is about 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.3$   .  If XP,YP values
+        are unavailable, use XP=YP=0D0.  See page B60 of the 1988
+        Astronomical Almanac for a definition of the two angles.
+  
    12.
+
    The height above sea level of the observing station, HM,
+        can be obtained from the Astronomical Almanac (Section J
+        in the 1988 edition), or via the routine sla_OBS.  If P,
+        the pressure in mB, is available, an adequate
+        estimate of HM can be obtained from the following expression:
+        
    HM=-29.3D0*TSL*LOG(P/1013.25D0)
+        
    
+        where TSL is the approximate sea-level air temperature in degrees K
+        (see Astrophysical Quantities, C.W.Allen, 3rd edition,
+        §52).  Similarly, if the pressure P is not known,
+        it can be estimated from the height of the observing
+        station, HM as follows:
+        
    P=1013.25D0*EXP(-HM/(29.3D0*TSL))
+        
    
+        Note, however, that the refraction is proportional to the
+        pressure and that an accurate P value is important for
+        precise work.
+  
    13.
+
    The azimuths etc. used by the present routine are with
+        respect to the celestial pole.  Corrections from the terrestrial pole
+        can be computed using sla_POLMO.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_OAPQK - Quick Observed to Apparent
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_NUTC - Nutation Components
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node136.html b/src/slalib/sun67.htx/node136.html
new file mode 100644
index 0000000..dbf0e88
--- /dev/null
+++ b/src/slalib/sun67.htx/node136.html
@@ -0,0 +1,258 @@
+
+
+
+
+SLA_OAPQK - Quick Observed to Apparent
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_OBS - Observatory Parameters
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_OAP - Observed to Apparent
+
     
     
    
+
    
+
    SLA_OAPQK - Quick Observed to Apparent
+  
+
    
+       
    
+
    ACTION:
+
    Quick observed to apparent place.
+
    CALL:
+
    CALL sla_OAPQK (TYPE, OB1, OB2, AOPRMS, RAP, DAP)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    TYPEC*(*)type of coordinates - `R', `H' or `A' (see below)
    OB1Dobserved Az, HA or RA (radians; Az is N=0, E=$90^{\circ}$)
    OB2Dobserved zenith distance or $\delta$ (radians)
    AOPRMSD(14)star-independent apparent-to-observed parameters:
    (1)geodetic latitude (radians)
    (2,3)sine and cosine of geodetic latitude
    (4)magnitude of diurnal aberration vector
    (5)height (HM)
    (6)ambient temperature (TDK)
    (7)pressure (PMB)
    (8)relative humidity (RH)
    (9)wavelength (WL)
    (10)lapse rate (TLR)
    (11,12)refraction constants A and B (radians)
    (13)longitude + eqn of equinoxes +
+``sidereal $\Delta$UT'' (radians)
    (14)local apparent sidereal time (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RAP,DAPDgeocentric apparent $[\,\alpha,\delta\,]$
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Only the first character of the TYPE argument is significant.
+`R' or `r' indicates that OBS1 and OBS2 are the observed Right
+Ascension and Declination;  `H' or `h' indicates that they are
+        Hour Angle (west +ve) and Declination; anything else (`A' or
+        `a' is recommended) indicates that OBS1 and OBS2 are Azimuth
+        (north zero, east is $90^{\circ}$) and Zenith Distance.  (Zenith
+        distance is used rather than elevation in order to reflect the
+        fact that no allowance is made for depression of the horizon.)
+  
    2.
+
    The accuracy of the result is limited by the corrections for
+        refraction.  Providing the meteorological parameters are
+        known accurately and there are no gross local effects, the
+        predicted azimuth and elevation should be within about
+
          $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.1$    for $\zeta<70^{\circ}$.  Even
+        at a topocentric zenith distance of
+        $90^{\circ}$, the accuracy in elevation should be better than
+        1 arcminute;  useful results are available for a further
+        $3^{\circ}$, beyond which the sla_REFRO routine returns a
+        fixed value of the refraction.  The complementary
+        routines sla_AOP (or sla_AOPQK) and sla_OAP (or sla_OAPQK)
+        are self-consistent to better than 1 microarcsecond all over
+        the celestial sphere.
+  
    3.
+
    It is advisable to take great care with units, as even
+        unlikely values of the input parameters are accepted and
+        processed in accordance with the models used.
+  
    4.
+
    Observed $[\,Az,El~]$ means the position that would be seen by a
+        perfect theodolite located at the observer.  This is
+        related to the observed $[\,h,\delta\,]$ via the standard rotation, using
+        the geodetic latitude (corrected for polar motion), while the
+        observed HA and RA are related simply through the local
+        apparent ST.  Observed $[\,\alpha,\delta\,]$ or $[\,h,\delta\,]$ thus means the
+        position that would be seen by a perfect equatorial located
+        at the observer and with its polar axis aligned to the
+        Earth's axis of rotation (n.b. not to the refracted pole).
+        By removing from the observed place the effects of
+        atmospheric refraction and diurnal aberration, the
+        geocentric apparent $[\,\alpha,\delta\,]$ is obtained.
+  
    5.
+
    Frequently, mean rather than apparent
+        $[\,\alpha,\delta\,]$ will be required,
+        in which case further transformations will be necessary.  The
+        sla_AMP etc. routines will convert
+        the apparent $[\,\alpha,\delta\,]$ produced
+        by the present routine into an FK5 J2000 mean place, by
+        allowing for the Sun's gravitational lens effect, annual
+        aberration, nutation and precession.  Should FK4 B1950
+        coordinates be needed, the routines sla_FK524 etc. will also
+        need to be applied.
+  
    6.
+
    To convert to apparent $[\,\alpha,\delta\,]$ the coordinates read from a
+        real telescope, corrections would have to be applied for
+        encoder zero points, gear and encoder errors, tube flexure,
+        the position of the rotator axis and the pointing axis
+        relative to it, non-perpendicularity between the mounting
+        axes, and finally for the tilt of the azimuth or polar axis
+        of the mounting (with appropriate corrections for mount
+        flexures).  Some telescopes would, of course, exhibit other
+        properties which would need to be accounted for at the
+        appropriate point in the sequence.
+  
    7.
+
    The star-independent apparent-to-observed-place parameters
+        in AOPRMS may be computed by means of the sla_AOPPA routine.
+        If nothing has changed significantly except the time, the
+        sla_AOPPAT routine may be used to perform the requisite
+        partial recomputation of AOPRMS.
+  
    8.
+
    The azimuths etc. used by the present routine are with
+        respect to the celestial pole.  Corrections from the terrestrial pole
+        can be computed using sla_POLMO.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_OBS - Observatory Parameters
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_OAP - Observed to Apparent
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node137.html b/src/slalib/sun67.htx/node137.html
new file mode 100644
index 0000000..eda8158
--- /dev/null
+++ b/src/slalib/sun67.htx/node137.html
@@ -0,0 +1,247 @@
+
+
+
+
+SLA_OBS - Observatory Parameters
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PA - to Parallactic Angle
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_OAPQK - Quick Observed to Apparent
+
     
     
    
+
    
+
    SLA_OBS - Observatory Parameters
+  
+
    
+       
    
+
    ACTION:
+
    Look up an entry in a standard list of
+groundbased observing stations parameters.
+
        
    CALL:
+
    CALL sla_OBS (N, C, NAME, W, P, H)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    NInumber specifying observing station
    
+
         
    
+
    GIVEN or RETURNED:
+
    
+
    
+
+
+
+
+
+
    CC*(*)identifier specifying observing station
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    NAMEC*(*)name of specified observing station
    WDlongitude (radians, west +ve)
    PDgeodetic latitude (radians, north +ve)
    HDheight above sea level (metres)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Station identifiers C may be up to 10 characters long,
+and station names NAME may be up to 40 characters long.
+
    2.
+
    C and N are alternative ways of specifying the observing
+        station.  The C option, which is the most generally useful,
+        may be selected by specifying an N value of zero or less.
+        If N is 1 or more, the parameters of the Nth station
+        in the currently supported list are interrogated, and
+        the station identifier C is returned as well as NAME, W,
+        P and H.
+  
    3.
+
    If the station parameters are not available, either because
+        the station identifier C is not recognized, or because an
+        N value greater than the number of stations supported is
+        given, a name of `?' is returned and W, P and H are left in
+        their current states.
+  
    4.
+
    Programs can obtain a list of all currently supported
+        stations by calling the routine repeatedly, with N=1,2,3...
+        When NAME=`?' is seen, the list of stations has been
+        exhausted.  The stations at the time of writing are listed
+        below.
+  
    5.
+
    Station numbers, identifiers, names and other details are
+        subject to change and should not be hardwired into
+        application programs.
+  
    6.
+
    All station identifiers C are uppercase only;  lower case
+        characters must be converted to uppercase by the calling
+        program.  The station names returned may contain both upper-
+        and lowercase.  All characters up to the first space are
+        checked;  thus an abbreviated ID will return the parameters
+        for the first station in the list which matches the
+        abbreviation supplied, and no station in the list will ever
+        contain embedded spaces.  C must not have leading spaces.
+  
    7.
+
    IMPORTANT - BEWARE OF THE LONGITUDE SIGN CONVENTION.  The
+        longitude returned by sla_OBS is
+        west-positive, following the pre-1984 Astronomical
+        Almanac.  However, this sign convention is left-handed and is
+        the opposite of the one now used; elsewhere in
+        SLALIB the preferable east-positive convention is used.  In
+        particular, note that for use in sla_AOP, sla_AOPPA and
+        sla_OAP the sign of the longitude must be reversed.
+  
    8.
+
    Users are urged to inform the author of any improvements
+        they would like to see made.  For example:
+        
      
+
    •  typographical corrections
+
    •  more accurate parameters
+
    •  better station identifiers or names
+
    •  additional stations
+        
    
+Stations supported by sla_OBS at the time of writing:
+
    
+ID 		 NAME 
+ 
+AAT 		 Anglo-Australian 3.9m Telescope 
+ANU2.3 		 Siding Spring 2.3 metre 
+APO3.5 		 Apache Point 3.5m 
+ARECIBO 		 Arecibo 1000 foot 
+ATCA 		 Australia Telescope Compact Array 
+BLOEMF 		 Bloemfontein 1.52 metre 
+BOSQALEGRE 		 Bosque Alegre 1.54 metre 
+CAMB1MILE 		 Cambridge 1 mile 
+CAMB5KM 		 Cambridge 5km 
+CATALINA61 		 Catalina 61 inch 
+CFHT 		 Canada-France-Hawaii 3.6m Telescope 
+CSO 		 Caltech Sub-mm Observatory, Mauna Kea 
+DAO72 		 DAO Victoria BC 1.85 metre 
+DUNLAP74 		 David Dunlap 74 inch 
+DUPONT 		 Du Pont 2.5m Telescope, Las Campanas 
+EFFELSBERG 		 Effelsberg 100 metre 
+ESO3.6 		 ESO 3.6 metre 
+ESONTT 		 ESO 3.5 metre NTT 
+ESOSCHM 		 ESO 1 metre Schmidt, La Silla 
+FCRAO 		 Five College Radio Astronomy Obs 
+FLAGSTF61 		 USNO 61 inch astrograph, Flagstaff 
+GBVA140 		 Greenbank 140 foot 
+GBVA300 		 Greenbank 300 foot 
+GEMININ 		 Gemini North 8-m telescope 
+HARVARD 		 Harvard College Observatory 1.55m 
+HPROV1.52 		 Haute Provence 1.52 metre 
+HPROV1.93 		 Haute Provence 1.93 metre 
+IRTF 		 NASA IR Telescope Facility, Mauna Kea 
+JCMT 		 JCMT 15 metre 
+JODRELL1 		 Jodrell Bank 250 foot 
+KECK1 		 Keck 10m Telescope 1 
+KECK2 		 Keck 10m Telescope 2 
+KISO 		 Kiso 1.05 metre Schmidt, Japan 
+KOTTAMIA 		 Kottamia 74 inch 
+KPNO158 		 Kitt Peak 158 inch 
+KPNO36FT 		 Kitt Peak 36 foot 
+KPNO84 		 Kitt Peak 84 inch 
+KPNO90 		 Kitt Peak 90 inch 
+LICK120 		 Lick 120 inch 
+LOWELL72 		 Perkins 72 inch, Lowell 
+LPO1 		 Jacobus Kapteyn 1m Telescope 
+LPO2.5 		 Isaac Newton 2.5m Telescope 
+LPO4.2 		 William Herschel 4.2m Telescope 
+MAUNAK88 		 Mauna Kea 88 inch 
+MCDONLD2.1 		 McDonald 2.1 metre 
+MCDONLD2.7 		 McDonald 2.7 metre 
+MMT 		 MMT, Mt Hopkins 
+MOPRA 		 ATNF Mopra Observatory 
+MTEKAR 		 Mt Ekar 1.82 metre 
+MTHOP1.5 		 Mt Hopkins 1.5 metre 
+MTLEMMON60 		 Mt Lemmon 60 inch 
+NOBEYAMA 		 Nobeyama 45 metre 
+OKAYAMA 		 Okayama 1.88 metre 
+PALOMAR200 		 Palomar 200 inch 
+PALOMAR48 		 Palomar 48-inch Schmidt 
+PALOMAR60 		 Palomar 60 inch 
+PARKES 		 Parkes 64 metre 
+QUEBEC1.6 		 Quebec 1.6 metre 
+SAAO74 		 Sutherland 74 inch 
+SANPM83 		 San Pedro Martir 83 inch 
+ST.ANDREWS 		 St Andrews University Observatory 
+STEWARD90 		 Steward 90 inch 
+STROMLO74 		 Mount Stromlo 74 inch 
+SUBARU 		 Subaru 8 metre 
+SUGARGROVE 		 Sugar Grove 150 foot 
+TAUTNBG 		 Tautenburg 2 metre 
+TAUTSCHM 		 Tautenberg 1.34 metre Schmidt 
+TIDBINBLA 		 Tidbinbilla 64 metre 
+TOLOLO1.5M 		 Cerro Tololo 1.5 metre 
+TOLOLO4M 		 Cerro Tololo 4 metre 
+UKIRT 		 UK Infra Red Telescope 
+UKST 		 UK 1.2 metre Schmidt, Siding Spring 
+USSR6 		 USSR 6 metre 
+USSR600 		 USSR 600 foot 
+VLA 		 Very Large Array
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PA - to Parallactic Angle
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_OAPQK - Quick Observed to Apparent
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node138.html b/src/slalib/sun67.htx/node138.html
new file mode 100644
index 0000000..d363298
--- /dev/null
+++ b/src/slalib/sun67.htx/node138.html
@@ -0,0 +1,116 @@
+
+
+
+
+SLA_PA - to Parallactic Angle
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PAV - Position-Angle Between Two Directions
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_OBS - Observatory Parameters
+
     
     
    
+
    
+
       
+
    
+SLA_PA - $h,\delta$ to Parallactic Angle
+
    
+       
    
+
    ACTION:
+
    Hour angle and declination to parallactic angle
+(double precision).
+
        
    CALL:
+
    D = sla_PA (HA, DEC, PHI)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    HADhour angle in radians (geocentric apparent)
    DECDdeclination in radians (geocentric apparent)
    PHIDlatitude in radians (geodetic)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_PADparallactic angle (radians, in the range $\pm \pi$)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The parallactic angle at a point in the sky is the position
+angle of the vertical, i.e. the angle between the direction to
+the pole and to the zenith.  In precise applications care must
+        be taken only to use geocentric apparent $[\,h,\delta\,]$ and to consider
+        separately the effects of atmospheric refraction and telescope
+        mount errors.
+  
    2.
+
    At the pole a zero result is returned.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PAV - Position-Angle Between Two Directions
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_OBS - Observatory Parameters
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node139.html b/src/slalib/sun67.htx/node139.html
new file mode 100644
index 0000000..13d3907
--- /dev/null
+++ b/src/slalib/sun67.htx/node139.html
@@ -0,0 +1,117 @@
+
+
+
+
+SLA_PAV - Position-Angle Between Two Directions
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PCD - Apply Radial Distortion
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PA - to Parallactic Angle
+
     
     
    
+
    
+
    SLA_PAV - Position-Angle Between Two Directions
+  
+
    
+       
    
+
    ACTION:
+
    Returns the bearing (position angle) of one celestial
+direction with respect to another (single precision).
+
        
    CALL:
+
    R = sla_PAV (V1, V2)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    V1R(3)direction cosines of one point
    V2R(3)directions cosines of the other point
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_PAVRposition-angle of 2nd point with respect to 1st
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The coordinate frames correspond to $[\,\alpha,\delta\,]$,$[\lambda,\phi]$ etc..
+
    2.
+
    The result is the bearing (position angle), in radians,
+       of point V2 as seen
+       from point V1.  It is in the range $\pm \pi$.  The sense
+       is such that if V2
+       is a small distance due east of V1 the result
+       is about $+\pi/2$. Zero is returned
+       if the two points are coincident.
+ 
    3.
+
    The routine sla_BEAR performs an equivalent function except
+       that the points are specified in the form of spherical coordinates.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PCD - Apply Radial Distortion
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PA - to Parallactic Angle
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node14.html b/src/slalib/sun67.htx/node14.html
new file mode 100644
index 0000000..9a2b861
--- /dev/null
+++ b/src/slalib/sun67.htx/node14.html
@@ -0,0 +1,112 @@
+
+
+
+
+SLA_ADDET - Add E-terms of Aberration
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AFIN - Sexagesimal character string to angle
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SUBPROGRAM SPECIFICATIONS
+
     
     
    
+
    
+
    SLA_ADDET - Add E-terms of Aberration
+  
+
    
+       
    
+
    ACTION:
+
    Add the E-terms (elliptic component of annual aberration) to a
+pre IAU 1976 mean place to conform to the old catalogue convention.
+
        
    CALL:
+
    CALL sla_ADDET (RM, DM, EQ, RC, DC)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    RM,DMD$[\,\alpha,\delta\,]$ without E-terms (radians)
    EQDBesselian epoch of mean equator and equinox
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RC,DCD$[\,\alpha,\delta\,]$ with E-terms included (radians)
    
+
          
    
+
    NOTE:
+
    Most star positions from pre-1984 optical catalogues (or
+obtained by astrometry with respect to such stars) have the
+       E-terms built-in.  If it is necessary to convert a formal mean
+       place (for example a pulsar timing position) to one
+       consistent with such a star catalogue, then the 
+       $[\,\alpha,\delta\,]$ should be adjusted using this routine.
+      
    
+
         
    
+
    REFERENCE:
+
    Explanatory Supplement to the Astronomical Ephemeris,
+section 2D, page 48.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AFIN - Sexagesimal character string to angle
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SUBPROGRAM SPECIFICATIONS
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node140.html b/src/slalib/sun67.htx/node140.html
new file mode 100644
index 0000000..aaf99dc
--- /dev/null
+++ b/src/slalib/sun67.htx/node140.html
@@ -0,0 +1,148 @@
+
+
+
+
+SLA_PCD - Apply Radial Distortion
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PDA2H - H.A. for a Given Azimuth
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PAV - Position-Angle Between Two Directions
+
     
     
    
+
    
+
    SLA_PCD - Apply Radial Distortion
+  
+
    
+       
    
+
    ACTION:
+
    Apply pincushion/barrel distortion to a tangent-plane $[\,x,y\,]$.
    CALL:
+
    CALL sla_PCD (DISCO,X,Y)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    DISCODpincushion/barrel distortion coefficient
    X,YDtangent-plane $[\,x,y\,]$
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    X,YDdistorted $[\,x,y\,]$
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The distortion is of the form $\rho = r (1 + c r^{2})$, where r is
+the radial distance from the tangent point, c is the DISCO
+argument, and $\rho$ is the radial distance in the presence of
+        the distortion.
+  
    2.
+
    For pincushion distortion, C is +ve;  for
+        barrel distortion, C is -ve.
+  
    3.
+
    For X,Y in units of one projection radius (in the case of
+        a photographic plate, the focal length), the following
+        DISCO values apply:
+
            
    
+
    
+
    
+
            
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    GeometryDISCO
    astrograph0.0
    Schmidt-0.3333
    AAT PF doublet+147.069
    AAT PF triplet+178.585
    AAT f/8+21.20
    JKT f/8+14.6
    
+
            
    
+
    
+
    
+
      
    4.
+
    There is a companion routine, sla_UNPCD, which performs
+        an approximately inverse operation.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PDA2H - H.A. for a Given Azimuth
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PAV - Position-Angle Between Two Directions
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node141.html b/src/slalib/sun67.htx/node141.html
new file mode 100644
index 0000000..6e011b5
--- /dev/null
+++ b/src/slalib/sun67.htx/node141.html
@@ -0,0 +1,107 @@
+
+
+
+
+SLA_PDA2H - H.A. for a Given Azimuth
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PDQ2H - H.A. for a Given P.A.
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PCD - Apply Radial Distortion
+
     
     
    
+
    
+
    SLA_PDA2H - H.A. for a Given Azimuth
+  
+
    
+       
    
+
    ACTION:
+
    Hour Angle corresponding to a given azimuth (double precision).
+
    CALL:
+
    CALL sla_PDA2H (P, D, A, H1, J1, H2, J2)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    PDlatitude
    DDdeclination
    ADazimuth
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    H1Dhour angle:  first solution if any
    J1Iflag: 0 = solution 1 is valid
    H2Dhour angle:  second solution if any
    J2Iflag: 0 = solution 2 is valid
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PDQ2H - H.A. for a Given P.A.
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PCD - Apply Radial Distortion
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node142.html b/src/slalib/sun67.htx/node142.html
new file mode 100644
index 0000000..f105cf4
--- /dev/null
+++ b/src/slalib/sun67.htx/node142.html
@@ -0,0 +1,108 @@
+
+
+
+
+SLA_PDQ2H - H.A. for a Given P.A.
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PERMUT - Next Permutation
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PDA2H - H.A. for a Given Azimuth
+
     
     
    
+
    
+
    SLA_PDQ2H - H.A. for a Given P.A.
+  
+
    
+       
    
+
    ACTION:
+
    Hour Angle corresponding to a given parallactic angle
+(double precision).
+
        
    CALL:
+
    CALL sla_PDQ2H (P, D, Q, H1, J1, H2, J2)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    PDlatitude
    DDdeclination
    QDazimuth
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    H1Dhour angle:  first solution if any
    J1Iflag: 0 = solution 1 is valid
    H2Dhour angle:  second solution if any
    J2Iflag: 0 = solution 2 is valid
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PERMUT - Next Permutation
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PDA2H - H.A. for a Given Azimuth
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node143.html b/src/slalib/sun67.htx/node143.html
new file mode 100644
index 0000000..46f3e9e
--- /dev/null
+++ b/src/slalib/sun67.htx/node143.html
@@ -0,0 +1,133 @@
+
+
+
+
+SLA_PERMUT - Next Permutation
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PERTEL - Perturbed Orbital Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PDQ2H - H.A. for a Given P.A.
+
     
     
    
+
    
+
    SLA_PERMUT - Next Permutation
+  
+
    
+       
    
+
    ACTION:
+
    Generate the next permutation of a specified number of items.
+
    CALL:
+
    CALL sla_PERMUT (N, ISTATE, IORDER, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    NInumber of items:  there will be N! permutations
    ISTATEI(N)state, ISTATE(1)=-1 to initialize
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    ISTATEI(N)state, updated ready for next time
    IORDERI(N)next permutation of numbers 1,2,...,N
    JIstatus:
      -1 = illegal N (zero or less is illegal)
         0 = OK
      +1 = no more permutations available
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    This routine returns, in the IORDER array, the integers 1 to N
+inclusive, in an order that depends on the current contents of
+the ISTATE array.  Before calling the routine for the first
+        time, the caller must set the first element of the ISTATE array
+        to -1 (any negative number will do) to cause the ISTATE array
+        to be fully initialized.
+  
    2.
+
    The first permutation to be generated is:
+        
    IORDER(1)=N, IORDER(2)=N-1, ..., IORDER(N)=1
+        
    
+        This is also the permutation returned for the ``finished'' (J=1) case.
+        The final permutation to be generated is:
+        
    IORDER(1)=1, IORDER(2)=2, ..., IORDER(N)=N
+        
    
+  
    3.
+
    If the ``finished'' (J=1) status is ignored, the routine continues
+        to deliver permutations, the pattern repeating every N! calls.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PERTEL - Perturbed Orbital Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PDQ2H - H.A. for a Given P.A.
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node144.html b/src/slalib/sun67.htx/node144.html
new file mode 100644
index 0000000..eb511e6
--- /dev/null
+++ b/src/slalib/sun67.htx/node144.html
@@ -0,0 +1,310 @@
+
+
+
+
+SLA_PERTEL - Perturbed Orbital Elements
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PERTUE - Perturbed Universal Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PERMUT - Next Permutation
+
     
     
    
+
    
+
    SLA_PERTEL - Perturbed Orbital Elements
+  
+
    
+       
    
+
    ACTION:
+
    Update the osculating elements of an asteroid or comet by
+applying planetary perturbations.
+
        
    CALL:
+
    CALL sla_PERTEL (
+         JFORM, DATE0, DATE1,
+         EPOCH0, ORBI0, ANODE0, PERIH0, AORQ0, E0, AM0,
+         EPOCH1, ORBI1, ANODE1, PERIH1, AORQ1, E1, AM1,
+         JSTAT)
+
           
    
+
         
    
+
    GIVEN (format and dates):
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    JFORMIchoice of element set (2 or 3; Note 1)
    DATE0Ddate of osculation (TT MJD) for the given
      elements
    DATE1Ddate of osculation (TT MJD) for the updated
      elements
    
+
         
    
+
    GIVEN (the unperturbed elements):
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    EPOCH0Depoch of the given element set
+(t0 or T, TT MJD;
      Note 2)
    ORBI0Dinclination (i, radians)
    ANODE0Dlongitude of the ascending node ($\Omega$, radians)
    PERIH0Dargument of perihelion
+($\omega$, radians)
    AORQ0Dmean distance or perihelion distance (a or q, AU)
    E0Deccentricity (e)
    AM0Dmean anomaly (M, radians, JFORM=2 only)
    
+
         
    
+
    RETURNED (the updated elements):
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    EPOCH1Depoch of the updated element set
+(t0 or T,
      TT MJD; Note 2)
    ORBI1Dinclination (i, radians)
    ANODE1Dlongitude of the ascending node ($\Omega$, radians)
    PERIH1Dargument of perihelion
+($\omega$, radians)
    AORQ1Dmean distance or perihelion distance (a or q, AU)
    E1Deccentricity (e)
    AM1Dmean anomaly (M, radians, JFORM=2 only)
    
+
         
    
+
    RETURNED (status flag):
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    JSTATIstatus:
     +102 = warning, distant epoch
     +101 = warning, large timespan
+(>100 years)
     +1 to +8 = coincident with major planet
+(Note 6)
            0 = OK
         -1 = illegal JFORM
         -2 = illegal E0
         -3 = illegal AORQ0
         -4 = internal error
         -5 = numerical error
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Two different element-format options are supported, as follows. 
    
+JFORM=2, suitable for minor planets:
+
    
+ 		 EPOCH 		 = 		 epoch of elements t0 (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 argument of perihelion $\omega$ (radians)
+		 AORQ 		 = 		 mean distance a (AU)
+		 E 		 = 		 eccentricity e $( 0 \leq e < 1 )$ 
+		 AORL 		 = 		 mean anomaly M (radians)        
+
    
+
    
+JFORM=3, suitable for comets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of perihelion T (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 argument of perihelion $\omega$ (radians)
+		 AORQ 		 = 		 perihelion distance q (AU)
+		 E 		 = 		 eccentricity e $( 0 \leq e \leq 10 )$
    
+ 
    2.
+
    DATE0, DATE1, EPOCH0 and EPOCH1 are all instants of time in
+       the TT timescale (formerly Ephemeris Time, ET), expressed
+       as Modified Julian Dates (JD-2400000.5).
+       
      
+
    •  DATE0 is the instant at which the given
+             (i.e. unperturbed) osculating elements are correct.
+
    •  DATE1 is the specified instant at which the updated osculating
+             elements are correct.
+
    •  EPOCH0 and EPOCH1 will be the same as DATE0 and DATE1
+             (respectively) for the JFORM=2 case, normally used for minor
+             planets.  For the JFORM=3 case, the two epochs will refer to
+             perihelion passage and so will not, in general, be the same as
+             DATE0 and/or DATE1 though they may be similar to one another.
+       
    
+ 
    3.
+
    The elements are with respect to the J2000 ecliptic and mean equinox.
+ 
    4.
+
    Unused elements (AM0 and AM1 for JFORM=3) are not accessed.
+ 
    5.
+
    See the sla_PERTUE routine for details of the algorithm used.
+ 
    6.
+
    This routine is not intended to be used for major planets, which
+       is why JFORM=1 is not available and why there is no opportunity
+       to specify either the longitude of perihelion or the daily
+       motion.  However, if JFORM=2 elements are somehow obtained for a
+       major planet and supplied to the routine, sensible results will,
+       in fact, be produced.  This happens because the sla_PERTUE routine
+       that is called to perform the calculations checks the separation
+       between the body and each of the planets and interprets a
+       suspiciously small value (0.001 AU) as an attempt to apply it to
+       the planet concerned.  If this condition is detected, the
+       contribution from that planet is ignored, and the status is set to
+       the planet number (Mercury=1,...,Neptune=8) as a warning.
+ 
    
+
         
    
+
    REFERENCE:
+
    Sterne, Theodore E., An Introduction to Celestial Mechanics,
+Interscience Publishers, 1960.  Section 6.7, p199.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PERTUE - Perturbed Universal Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PERMUT - Next Permutation
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node145.html b/src/slalib/sun67.htx/node145.html
new file mode 100644
index 0000000..8fbb853
--- /dev/null
+++ b/src/slalib/sun67.htx/node145.html
@@ -0,0 +1,279 @@
+
+
+
+
+SLA_PERTUE - Perturbed Universal Elements
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PLANEL - Planet Position from Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PERTEL - Perturbed Orbital Elements
+
     
     
    
+
    
+
    SLA_PERTUE - Perturbed Universal Elements
+  
+
    
+       
    
+
    ACTION:
+
    Update the universal elements of an asteroid or comet by
+applying planetary perturbations.
+
        
    CALL:
+
    CALL sla_PERTUE (DATE, U, JSTAT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DATE1Dfinal epoch (TT MJD) for the updated elements
    
+
         
    
+
    GIVEN and RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    UD(13)universal elements (updated in place)
    (1)combined mass (M+m)
    (2)total energy of the orbit ($\alpha$)
    (3)reference (osculating) epoch (t0)
    (4-6)position at reference epoch (${\rm \bf r}_0$)
    (7-9)velocity at reference epoch (${\rm \bf v}_0$)
    (10)heliocentric distance at reference epoch
    (11)${\rm \bf r}_0.{\rm \bf v}_0$
    (12)date (t)
    (13)universal eccentric anomaly ($\psi$) of date, approx
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    JSTATIstatus:
     +102 = warning, distant epoch
     +101 = warning, large timespan
+(>100 years)
     +1 to +8 = coincident with major planet
+(Note 5)
            0 = OK
         -1 = numerical error
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The ``universal'' elements are those which define the orbit for the
+purposes of the method of universal variables (see reference 2).
+They consist of the combined mass of the two bodies, an epoch,
+        and the position and velocity vectors (arbitrary reference frame)
+        at that epoch.  The parameter set used here includes also various
+        quantities that can, in fact, be derived from the other
+        information.  This approach is taken to avoiding unnecessary
+        computation and loss of accuracy.  The supplementary quantities
+        are (i) $\alpha$, which is proportional to the total energy of the
+        orbit, (ii) the heliocentric distance at epoch,
+        (iii) the outwards component of the velocity at the given epoch,
+        (iv) an estimate of $\psi$, the ``universal eccentric anomaly'' at a
+        given date and (v) that date.
+  
    2.
+
    The universal elements are with respect to the J2000 equator and
+        equinox.
+  
    3.
+
    The epochs DATE, U(3) and U(12) are all Modified Julian Dates
+        (JD-2400000.5).
+  
    4.
+
    The algorithm is a simplified form of Encke's method.  It takes as
+        a basis the unperturbed motion of the body, and numerically
+        integrates the perturbing accelerations from the major planets.
+        The expression used is essentially Sterne's 6.7-2 (reference 1).
+        Everhart and Pitkin (reference 2) suggest rectifying the orbit at
+        each integration step by propagating the new perturbed position
+        and velocity as the new universal variables.  In the present
+        routine the orbit is rectified less frequently than this, in order
+        to gain a slight speed advantage.  However, the rectification is
+        done directly in terms of position and velocity, as suggested by
+        Everhart and Pitkin, bypassing the use of conventional orbital
+        elements.
+
    
+The f(q) part of the full Encke method is not used.  The purpose
+        of this part is to avoid subtracting two nearly equal quantities
+        when calculating the ``indirect member'', which takes account of the
+        small change in the Sun's attraction due to the slightly displaced
+        position of the perturbed body.  A simpler, direct calculation in
+        double precision proves to be faster and not significantly less
+        accurate.
+
    
+Apart from employing a variable timestep, and occasionally
+        ``rectifying the orbit'' to keep the indirect member small, the
+        integration is done in a fairly straightforward way.  The
+        acceleration estimated for the middle of the timestep is assumed
+        to apply throughout that timestep;  it is also used in the
+        extrapolation of the perturbations to the middle of the next
+        timestep, to predict the new disturbed position.  There is no
+        iteration within a timestep.
+
    
+Measures are taken to reach a compromise between execution time
+        and accuracy.  The starting-point is the goal of achieving
+        arcsecond accuracy for ordinary minor planets over a ten-year
+        timespan.  This goal dictates how large the timesteps can be,
+        which in turn dictates how frequently the unperturbed motion has
+        to be recalculated from the osculating elements.
+
    
+Within predetermined limits, the timestep for the numerical
+        integration is varied in length in inverse proportion to the
+        magnitude of the net acceleration on the body from the major
+        planets.
+
    
+The numerical integration requires estimates of the major-planet
+        motions.  Approximate positions for the major planets (Pluto
+        alone is omitted) are obtained from the routine sla_PLANET.  Two
+        levels of interpolation are used, to enhance speed without
+        significantly degrading accuracy.  At a low frequency, the routine
+        sla_PLANET is called to generate updated position+velocity ``state
+        vectors''.  The only task remaining to be carried out at the full
+        frequency (i.e. at each integration step) is to use the state
+        vectors to extrapolate the planetary positions.  In place of a
+        strictly linear extrapolation, some allowance is made for the
+        curvature of the orbit by scaling back the radius vector as the
+        linear extrapolation goes off at a tangent.
+
    
+Various other approximations are made.  For example, perturbations
+        by Pluto and the minor planets are neglected, relativistic effects
+        are not taken into account and the Earth-Moon system is treated as
+        a single body.
+
    
+In the interests of simplicity, the background calculations for
+        the major planets are carried out en masse.
+        The mean elements and
+        state vectors for all the planets are refreshed at the same time,
+        without regard for orbit curvature, mass or proximity.
+
      
    5.
+
    This routine is not intended to be used for major planets.
+        However, if major-planet elements are supplied, sensible results
+        will, in fact, be produced.  This happens because the routine
+        checks the separation between the body and each of the planets and
+        interprets a suspiciously small value (0.001 AU) as an attempt to
+        apply the routine to the planet concerned.  If this condition
+        is detected, the
+        contribution from that planet is ignored, and the status is set to
+        the planet number (Mercury=1,...,Neptune=8) as a warning.
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    Sterne, Theodore E., An Introduction to Celestial Mechanics,
+Interscience Publishers, 1960.  Section 6.7, p199.
+
    2.
+
    Everhart, E. & Pitkin, E.T., Am. J. Phys. 51, 712, 1983.
+   
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PLANEL - Planet Position from Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PERTEL - Perturbed Orbital Elements
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node146.html b/src/slalib/sun67.htx/node146.html
new file mode 100644
index 0000000..70b9139
--- /dev/null
+++ b/src/slalib/sun67.htx/node146.html
@@ -0,0 +1,255 @@
+
+
+
+
+SLA_PLANEL - Planet Position from Elements
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PLANET - Planetary Ephemerides
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PERTUE - Perturbed Universal Elements
+
     
     
    
+
    
+
    SLA_PLANEL - Planet Position from Elements
+  
+
    
+       
    
+
    ACTION:
+
    Heliocentric position and velocity of a planet,
+asteroid or comet, starting from orbital elements.
+
        
    CALL:
+
    CALL sla_PLANEL (
+         DATE, JFORM, EPOCH, ORBINC, ANODE, PERIH,
+         AORQ, E, AORL, DM, PV, JSTAT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    DATEDModified Julian Date (JD-2400000.5)
    JFORMIchoice of element set (1-3, see Note 3, below)
    EPOCHDepoch of elements (t0 or T, TT MJD)
    ORBINCDinclination (i, radians)
    ANODEDlongitude of the ascending node ($\Omega$, radians)
    PERIHDlongitude or argument of perihelion
+($\varpi$ or $\omega$,
      radians)
    AORQDmean distance or perihelion distance (a or q, AU)
    EDeccentricity (e)
    AORLDmean anomaly or longitude
+(M or L, radians,
      JFORM=1,2 only)
    DMDdaily motion (n, radians, JFORM=1 only)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    PVD(6)heliocentric $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$, equatorial, J2000
      (AU, AU/s)
    JSTATIstatus:
         0 = OK
      -1 = illegal JFORM
      -2 = illegal E
      -3 = illegal AORQ
      -4 = illegal DM
      -5 = numerical error
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    DATE is the instant for which the prediction is
+required.  It is in the TT timescale (formerly
+Ephemeris Time, ET) and is a
+        Modified Julian Date (JD-2400000.5).
+  
    2.
+
    The elements are with respect to
+        the J2000 ecliptic and equinox.
+  
    3.
+
    Three different element-format options are available, as
+        follows. 
    
+
    
+JFORM=1, suitable for the major planets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of elements t0 (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 longitude of perihelion $\varpi$ (radians)
+		 AORQ 		 = 		 mean distance a (AU)
+		 E 		 = 		 eccentricity e $( 0 \leq e < 1 )$ 
+		 AORL 		 = 		 mean longitude L (radians)
+		 DM 		 = 		 daily motion n (radians)        
+
    
+
    
+JFORM=2, suitable for minor planets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of elements t0 (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 argument of perihelion $\omega$ (radians)
+		 AORQ 		 = 		 mean distance a (AU)
+		 E 		 = 		 eccentricity e $( 0 \leq e < 1 )$ 
+		 AORL 		 = 		 mean anomaly M (radians)        
+
    
+
    
+JFORM=3, suitable for comets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of perihelion T (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 argument of perihelion $\omega$ (radians)
+		 AORQ 		 = 		 perihelion distance q (AU)
+		 E 		 = 		 eccentricity e $( 0 \leq e \leq 10 )$
    
+  
    4.
+
    Unused elements (DM for JFORM=2, AORL and DM for JFORM=3) are
+        not accessed.
+  
    5.
+
    The reference frame for the result is equatorial and is with
+        respect to the mean equinox and ecliptic of epoch J2000.
+  
    6.
+
    The algorithm was originally adapted from the EPHSLA program of
+        D.H.P.Jones (private communication, 1996).  The method
+        is based on Stumpff's Universal Variables.
+ 
    
+
         
    
+
    REFERENCE:
+
    Everhart, E. & Pitkin, E.T., Am. J. Phys. 51, 712, 1983.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PLANET - Planetary Ephemerides
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PERTUE - Perturbed Universal Elements
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node147.html b/src/slalib/sun67.htx/node147.html
new file mode 100644
index 0000000..b9d19fb
--- /dev/null
+++ b/src/slalib/sun67.htx/node147.html
@@ -0,0 +1,278 @@
+
+
+
+
+SLA_PLANET - Planetary Ephemerides
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PLANTE - of Planet from Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PLANEL - Planet Position from Elements
+
     
     
    
+
    
+
    SLA_PLANET - Planetary Ephemerides
+  
+
    
+       
    
+
    ACTION:
+
    Approximate heliocentric position and velocity of a planet.
+
    CALL:
+
    CALL sla_PLANET (DATE, NP, PV, JSTAT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    DATEDModified Julian Date (JD-2400000.5)
    NPIplanet:
      1=Mercury
      2=Venus
      3=Earth-Moon Barycentre
      4=Mars
      5=Jupiter
      6=Saturn
      7=Uranus
      8=Neptune
      9=Pluto
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    PVD(6)heliocentric $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$, equatorial, J2000
      (AU, AU/s)
    JSTATIstatus:
      +1 = warning: date outside of range
         0 = OK
      -1 = illegal NP (outside 1-9)
      -2 = solution didn't converge
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The epoch, DATE, is in the TDB timescale and is in the form
+of a Modified Julian Date (JD-2400000.5).
+
    2.
+
    The reference frame is equatorial and is with respect to
+        the mean equinox and ecliptic of epoch J2000.
+  
    3.
+
    If a planet number, NP, outside the range 1-9 is supplied, an error
+        status is returned (JSTAT = -1) and the PV vector
+        is set to zeroes.
+  
    4.
+
    The algorithm for obtaining the mean elements of the
+        planets from Mercury to Neptune is due to
+        J.L.Simon, P.Bretagnon, J.Chapront,
+        M.Chapront-Touze, G.Francou and J.Laskar (Bureau des
+        Longitudes, Paris, France).  The (completely different)
+        algorithm for calculating the ecliptic coordinates of
+        Pluto is by Meeus.
+  
    5.
+
    Comparisons of the present routine with the JPL DE200 ephemeris
+        give the following RMS errors over the interval 1960-2025:
+        
    
+ 		 		 position (km) 		 speed (metre/sec) 
+ 
+		 Mercury 		  334 		  0.437
+		 Venus 		  1060 		  0.855
+		 EMB 		  2010 		  0.815
+		 Mars 		  7690 		  1.98
+		 Jupiter 		  71700 		  7.70
+		 Saturn 		  199000 		  19.4
+		 Uranus 		  564000 		  16.4
+		 Neptune 		  158000 		  14.4
+		 Pluto 		  36400 		  0.137        
+
    
+        From comparisons with DE102, Simon et al. quote the following
+        longitude accuracies over the interval 1800-2200:
+        
    
+ 		 Mercury 		  $4\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
+		 Venus 		  $5\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
+		 EMB 		  $6\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
+		 Mars 		 $17\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
+		 Jupiter 		 $71\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
+		 Saturn 		 $81\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
+		 Uranus 		 $86\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
+		 Neptune 		 $11\hspace{-0.05em}^{'\hspace{-0.1em}'}$
    
+        In the case of Pluto, Meeus quotes an accuracy of 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.6$
    
+in longitude and 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.2$    in latitude for the period
+        1885-2099.
+
    
+For all except Pluto, over the period 1000-3000,
+        the accuracy is better than 1.5
+        times that over 1800-2200.  Outside the interval 1000-3000 the
+        accuracy declines.  For Pluto the accuracy declines rapidly
+        outside the period 1885-2099.  Outside these ranges
+        (1885-2099 for Pluto, 1000-3000 for the rest) a ``date out
+        of range'' warning status (JSTAT=+1) is returned.
+  
    6.
+
    The algorithms for (i) Mercury through Neptune and
+        (ii) Pluto are completely independent.  In the Mercury
+        through Neptune case, the present SLALIB
+        implementation differs from the original
+        Simon et al. Fortran code in the following respects:
+        
      
+
    •  The date is supplied as a Modified Julian Date rather
+               a Julian Date (${\rm MJD} = ({\rm JD} - 2400000.5$).
+
    •  The result is returned only in equatorial
+               Cartesian form;  the ecliptic
+               longitude, latitude and radius vector are not returned.
+
    •  The velocity is in AU per second, not AU per day.
+
    •  Different error/warning status values are used.
+
    •  Kepler's Equation is not solved inline.
+
    •  Polynomials in T are nested to minimize rounding errors.
+
    •  Explicit double-precision constants are used to avoid
+               mixed-mode expressions.
+
    •  There are other, cosmetic, changes to comply with
+               Starlink/SLALIB style guidelines.
+        
    
+        None of the above changes affects the result significantly.
+  
    7.
+
    NP=3 the result is for the Earth-Moon Barycentre.  To
+        obtain the heliocentric position and velocity of the Earth,
+        either use the SLALIB routine sla_EVP or call sla_DMOON and
+        subtract 0.012150581 times the geocentric Moon vector from
+        the EMB vector produced by the present routine.  (The Moon
+        vector should be precessed to J2000 first, but this can
+        be omitted for modern epochs without introducing significant
+        inaccuracy.)
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    Simon et al.,
+Astron. Astrophys. 282, 663 (1994).
+
    2.
+
    Meeus, J.,
+        Astronomical Algorithms, Willmann-Bell (1991).
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PLANTE - of Planet from Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PLANEL - Planet Position from Elements
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node148.html b/src/slalib/sun67.htx/node148.html
new file mode 100644
index 0000000..70ca411
--- /dev/null
+++ b/src/slalib/sun67.htx/node148.html
@@ -0,0 +1,256 @@
+
+
+
+
+SLA_PLANTE - of Planet from Elements
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PM - Proper Motion
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PLANET - Planetary Ephemerides
+
     
     
    
+
    
+
       
+
    
+SLA_PLANTE - $[\,\alpha,\delta\,]$ of Planet from Elements
+
    
+       
    
+
    ACTION:
+
    Topocentric apparent $[\,\alpha,\delta\,]$ of a Solar-System object whose
+heliocentric orbital elements are known.
+
        
    CALL:
+
    CALL sla_PLANTE (
+         DATE, ELONG, PHI, JFORM, EPOCH, ORBINC, ANODE, PERIH,
+         AORQ, E, AORL, DM, RA, DEC, R, JSTAT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    DATEDMJD of observation (JD-2400000.5)
    ELONG,PHIDobserver's longitude (east +ve) and latitude
      radians)
    JFORMIchoice of element set (1-3, see Note 4, below)
    EPOCHDepoch of elements (t0 or T, TT MJD)
    ORBINCDinclination (i, radians)
    ANODEDlongitude of the ascending node ($\Omega$, radians)
    PERIHDlongitude or argument of perihelion
+($\varpi$ or $\omega$,
      radians)
    AORQDmean distance or perihelion distance (a or q, AU)
    EDeccentricity (e)
    AORLDmean anomaly or longitude (M or L,
      radians, JFORM=1,2 only)
    DMDdaily motion (n, radians, JFORM=1 only)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RA,DECDtopocentric apparent $[\,\alpha,\delta\,]$ (radians)
    RDdistance from observer (AU)
    JSTATIstatus:
         0 = OK
      -1 = illegal JFORM
      -2 = illegal E
      -3 = illegal AORQ
      -4 = illegal DM
      -5 = numerical error
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    DATE is the instant for which the prediction is
+required.  It is in the TT timescale (formerly
+Ephemeris Time, ET) and is a
+        Modified Julian Date (JD-2400000.5).
+  
    2.
+
    The longitude and latitude allow correction for geocentric
+        parallax.  This is usually a small effect, but can become
+        important for Earth-crossing asteroids.  Geocentric positions
+        can be generated by appropriate use of the routines
+        sla_EVP and sla_PLANEL.
+  
    3.
+
    The elements are with respect to the J2000 ecliptic and equinox.
+  
    4.
+
    Three different element-format options are available, as
+        follows. 
    
+
    
+JFORM=1, suitable for the major planets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of elements t0 (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 longitude of perihelion $\varpi$ (radians)
+		 AORQ 		 = 		 mean distance a (AU)
+		 E 		 = 		 eccentricity e 
+		 AORL 		 = 		 mean longitude L (radians)
+		 DM 		 = 		 daily motion n (radians)        
+
    
+
    
+JFORM=2, suitable for minor planets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of elements t0 (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 argument of perihelion $\omega$ (radians)
+		 AORQ 		 = 		 mean distance a (AU)
+		 E 		 = 		 eccentricity e 
+		 AORL 		 = 		 mean anomaly M (radians)        
+
    
+
    
+JFORM=3, suitable for comets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of perihelion T (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 argument of perihelion $\omega$ (radians)
+		 AORQ 		 = 		 perihelion distance q (AU)
+		 E 		 = 		 eccentricity e
+
    
+  
    5.
+
    Unused elements (DM for JFORM=2, AORL and DM for JFORM=3) are
+        not accessed.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PM - Proper Motion
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PLANET - Planetary Ephemerides
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node149.html b/src/slalib/sun67.htx/node149.html
new file mode 100644
index 0000000..999078a
--- /dev/null
+++ b/src/slalib/sun67.htx/node149.html
@@ -0,0 +1,135 @@
+
+
+
+
+SLA_PM - Proper Motion
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_POLMO - Polar Motion
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PLANTE - of Planet from Elements
+
     
     
    
+
    
+
    SLA_PM - Proper Motion
+  
+
    
+       
    
+
    ACTION:
+
    Apply corrections for proper motion to a star $[\,\alpha,\delta\,]$.
    CALL:
+
    CALL sla_PM (R0, D0, PR, PD, PX, RV, EP0, EP1, R1, D1)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    R0,D0D$[\,\alpha,\delta\,]$ at epoch EP0 (radians)
    PR,PDDproper motions:  rate of change of 
+$[\,\alpha,\delta\,]$  (radians per year)
    PXDparallax (arcsec)
    RVDradial velocity (km s-1, +ve if receding)
    EP0Dstart epoch in years (e.g. Julian epoch)
    EP1Dend epoch in years (same system as EP0)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    R1,D1D$[\,\alpha,\delta\,]$ at epoch EP1 (radians)
    
+
          
    
+
    NOTE:
+
    The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+$\dot{\alpha}\cos\delta$, and are in the same coordinate
+       system as R0,D0.
+      
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    1984 Astronomical Almanac, pp B39-B41.
+
    2.
+
    Lederle & Schwan, 1984. Astr. Astrophys. 134, 1-6.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_POLMO - Polar Motion
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PLANTE - of Planet from Elements
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node15.html b/src/slalib/sun67.htx/node15.html
new file mode 100644
index 0000000..45c1aeb
--- /dev/null
+++ b/src/slalib/sun67.htx/node15.html
@@ -0,0 +1,230 @@
+
+
+
+
+SLA_AFIN - Sexagesimal character string to angle
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AIRMAS - Air Mass
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_ADDET - Add E-terms of Aberration
+
     
     
    
+
    
+
    SLA_AFIN - Sexagesimal character string to angle
+  
+
    
+       
    
+
    ACTION:
+
    Decode a free-format sexagesimal string (degrees, arcminutes,
+arcseconds) into a single precision floating point
+         number (radians).
+
        
    CALL:
+
    CALL sla_AFIN (STRING, NSTRT, RESLT, JF)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    STRINGC*(*)string containing deg, arcmin, arcsec fields
    NSTRTIpointer to start of decode (beginning of STRING = 1)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    NSTRTIadvanced past the decoded angle
    RESLTRangle in radians
    JFIstatus:
        0 = OK
      +1 = default, RESLT unchanged (note 2)
      -1 = bad degrees (note 3)
      -2 = bad arcminutes (note 3)
      -3 = bad arcseconds (note 3)
    
+
    
+
    EXAMPLE:
+
    
+
    
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    argumentbeforeafter
       
    STRING'-57 17 44.806  12 34 56.7'unchanged
    NSTRT116 (i.e. pointing to 12...)
    RESLT--1.00000
    JF- 
    
+ 
     A further call to sla_AFIN, without adjustment of NSTRT, will
+       decode the second angle, $12^{\circ}\,34^{'}\,56^{''}.7$.
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The first three ``fields'' in STRING are degrees, arcminutes,
+arcseconds, separated by spaces or commas.  The degrees field
+may be signed, but not the others.  The decoding is carried
+   out by the sla_DFLTIN routine and is free-format.
+  
    2.
+
    Successive fields may be absent, defaulting to zero.  For
+   zero status, the only combinations allowed are degrees alone,
+   degrees and arcminutes, and all three fields present.  If all
+   three fields are omitted, a status of +1 is returned and RESLT is
+   unchanged.  In all other cases RESLT is changed.
+  
    3.
+
    Range checking:
+   
      
+
    •  The degrees field is not range checked.  However, it is
+     expected to be integral unless the other two fields are absent.
+
    •  The arcminutes field is expected to be 0-59, and integral if
+     the arcseconds field is present.  If the arcseconds field
+     is absent, the arcminutes is expected to be 0-59.9999...
+
    •  The arcseconds field is expected to be 0-59.9999...
+
    •  Decoding continues even when a check has failed.  Under these
+     circumstances the field takes the supplied value, defaulting to
+     zero, and the result RESLT is computed and returned.
+   
    
+   
    4.
+
    Further fields after the three expected ones are not treated as
+    an error.  The pointer NSTRT is left in the correct state for
+    further decoding with the present routine or with sla_DFLTIN
+    etc.  See the example, above.
+   
    5.
+
    If STRING contains hours, minutes, seconds instead of
+    degrees etc,
+    or if the required units are turns (or days) instead of radians,
+    the result RESLT should be multiplied as follows: 
    
+
    
+
    
+    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    for STRINGto obtainmultiply RESLT by
       
    ${\circ}$  '  ''radians1.0
    ${\circ}$  '  ''turns$1/{2 \pi} = 0.1591549430918953358$
    h m sradians15.0
    h m sdays$15/{2\pi} = 2.3873241463784300365$
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AIRMAS - Air Mass
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_ADDET - Add E-terms of Aberration
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node150.html b/src/slalib/sun67.htx/node150.html
new file mode 100644
index 0000000..4750c08
--- /dev/null
+++ b/src/slalib/sun67.htx/node150.html
@@ -0,0 +1,202 @@
+
+
+
+
+SLA_POLMO - Polar Motion
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PREBN - Precession Matrix (FK4)
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PM - Proper Motion
+
     
     
    
+
    
+
    SLA_POLMO - Polar Motion
+  
+
    
+       
    
+
    ACTION:
+
    Polar motion:  correct site longitude and latitude for polar
+motion and calculate azimuth difference between celestial and
+         terrestrial poles.
+
        
    CALL:
+
    CALL sla_POLMO (ELONGM, PHIM, XP, YP, ELONG, PHI, DAZ)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    ELONGMDmean longitude of the site (radians, east +ve)
    PHIMDmean geodetic latitude of the site (radians)
    XPDpolar motion x-coordinate (radians)
    YPDpolar motion y-coordinate (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    ELONGDtrue longitude of the site (radians, east +ve)
    PHIDtrue geodetic latitude of the site (radians)
    DAZDazimuth correction (terrestrial-celestial, radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    ``Mean'' longitude and latitude are the (fixed) values for the
+site's location with respect to the IERS terrestrial reference
+frame;  the latitude is geodetic.  TAKE CARE WITH THE LONGITUDE
+      SIGN CONVENTION.  The longitudes used by the present routine
+      are east-positive, in accordance with geographical convention
+      (and right-handed).  In particular, note that the longitudes
+      returned by the sla_OBS routine are west-positive, following
+      astronomical usage, and must be reversed in sign before use in
+      the present routine.
+
    2.
+
    XP and YP are the (changing) coordinates of the Celestial
+      Ephemeris Pole with respect to the IERS Reference Pole.
+      XP is positive along the meridian at longitude $0^{\circ}$,      and YP is positive along the meridian at longitude
+      $270^\circ$ (i.e. $90^{\circ}$ west).  Values for XP,YP can
+      be obtained from IERS circulars and equivalent publications;
+      the maximum amplitude observed so far is about 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.3$   .
+
    3.
+
    ``True'' longitude and latitude are the (moving) values for
+      the site's location with respect to the celestial ephemeris
+      pole and the meridian which corresponds to the Greenwich
+      apparent sidereal time.  The true longitude and latitude
+      link the terrestrial coordinates with the standard celestial
+      models (for precession, nutation, sidereal time etc).
+
    4.
+
    The azimuths produced by sla_AOP and sla_AOPQK are with
+      respect to due north as defined by the Celestial Ephemeris
+      Pole, and can therefore be called ``celestial azimuths''.
+      However, a telescope fixed to the Earth measures azimuth
+      essentially with respect to due north as defined by the
+      IERS Reference Pole, and can therefore be called ``terrestrial
+      azimuth''.  Uncorrected, this would manifest itself as a
+      changing ``azimuth zero-point error''.  The value DAZ is the
+      correction to be added to a celestial azimuth to produce
+      a terrestrial azimuth.
+
    5.
+
    The present routine is rigorous.  For most practical
+      purposes, the following simplified formulae provide an
+      adequate approximation: 
    
+
    
+
    
+       
+
+
+
+
+
+
+
+
+
+
+
+
+
    ELONG=ELONGM+XP*COS(ELONGM)-YP*SIN(ELONGM)
    PHI  =PHIM+(XP*SIN(ELONGM)+YP*COS(ELONGM))*TAN(PHIM)
    DAZ  =-SQRT(XP*XP+YP*YP)*COS(ELONGM-ATAN2(XP,YP))/COS(PHIM)
     
    
+
    
+
    
+An alternative formulation for DAZ is:
+
    
+
    
+
    
+       
+
+
+
+
+
+
+
+
+
+
+
+
+
    X  =COS(ELONGM)*COS(PHIM)
    Y  =SIN(ELONGM)*COS(PHIM)
    DAZ=ATAN2(-X*YP-Y*XP,X*X+Y*Y)
    
+
         
    
+
    REFERENCE:
+
    Seidelmann, P.K. (ed), 1992.  Explanatory
+Supplement to the Astronomical Almanac, ISBN 0-935702-68-7,
+      sections 3.27, 4.25, 4.52.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PREBN - Precession Matrix (FK4)
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PM - Proper Motion
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node151.html b/src/slalib/sun67.htx/node151.html
new file mode 100644
index 0000000..f7c9a66
--- /dev/null
+++ b/src/slalib/sun67.htx/node151.html
@@ -0,0 +1,111 @@
+
+
+
+
+SLA_PREBN - Precession Matrix (FK4)
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PREC - Precession Matrix (FK5)
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_POLMO - Polar Motion
+
     
     
    
+
    
+
    SLA_PREBN - Precession Matrix (FK4)
+  
+
    
+       
    
+
    ACTION:
+
    Generate the matrix of precession between two epochs,
+using the old, pre IAU 1976, Bessel-Newcomb model, in
+         Andoyer's formulation.
+
        
    CALL:
+
    CALL sla_PREBN (BEP0, BEP1, RMATP)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    BEP0Dbeginning Besselian epoch
    BEP1Dending Besselian epoch
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RMATPD(3,3)precession matrix
    
+
          
    
+
    NOTE:
+
    The matrix is in the sense:
+
    v1 =  M$\cdot$v0
    
+       where v1 is the star vector relative to the
+       mean equator and equinox of epoch BEP1, M is the
+       $3\times3$ matrix RMATP and
+       v0 is the star vector relative to the
+       mean equator and equinox of epoch BEP0.
+      
    
+
         
    
+
    REFERENCE:
+
    Smith et al., 1989. Astr.J. 97, 269.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PREC - Precession Matrix (FK5)
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_POLMO - Polar Motion
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node152.html b/src/slalib/sun67.htx/node152.html
new file mode 100644
index 0000000..9e5ea39
--- /dev/null
+++ b/src/slalib/sun67.htx/node152.html
@@ -0,0 +1,145 @@
+
+
+
+
+SLA_PREC - Precession Matrix (FK5)
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PRECES - Precession
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PREBN - Precession Matrix (FK4)
+
     
     
    
+
    
+
    SLA_PREC - Precession Matrix (FK5)
+  
+
    
+       
    
+
    ACTION:
+
    Form the matrix of precession between two epochs (IAU 1976, FK5).
+
    CALL:
+
    CALL sla_PREC (EP0, EP1, RMATP)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    EP0Dbeginning epoch
    EP1Dending epoch
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RMATPD(3,3)precession matrix
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The epochs are TDB Julian epochs.
+
    2.
+
    The matrix is in the sense:
+
    v1 =  M$\cdot$v0
    
+        where v1 is the star vector relative to the
+        mean equator and equinox of epoch EP1, M is the
+        $3\times3$ matrix RMATP and
+        v0 is the star vector relative to the
+        mean equator and equinox of epoch EP0.
+  
    3.
+
    Though the matrix method itself is rigorous, the precession
+        angles are expressed through canonical polynomials which are
+        valid only for a limited time span.  There are also known
+        errors in the IAU precession rate.  The absolute accuracy
+        of the present formulation is better than 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.1$    from
+        1960AD to 2040AD, better than $1\hspace{-0.05em}^{'\hspace{-0.1em}'}$ from 1640AD to 2360AD,
+        and remains below $3\hspace{-0.05em}^{'\hspace{-0.1em}'}$ for the whole of the period
+        500BC to 3000AD.  The errors exceed $10\hspace{-0.05em}^{'\hspace{-0.1em}'}$ outside the
+        range 1200BC to 3900AD, exceed $100\hspace{-0.05em}^{'\hspace{-0.1em}'}$ outside 4200BC to
+        5600AD and exceed $1000\hspace{-0.05em}^{'\hspace{-0.1em}'}$ outside 6800BC to 8200AD.
+        The SLALIB routine sla_PRECL implements a more elaborate
+        model which is suitable for problems spanning several
+        thousand years.
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    Lieske, J.H., 1979. Astr.Astrophys. 73, 282;
+equations 6 & 7, p283.
+
    2.
+
    Kaplan, G.H., 1981. USNO circular no. 163, pA2.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PRECES - Precession
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PREBN - Precession Matrix (FK4)
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node153.html b/src/slalib/sun67.htx/node153.html
new file mode 100644
index 0000000..e63959a
--- /dev/null
+++ b/src/slalib/sun67.htx/node153.html
@@ -0,0 +1,120 @@
+
+
+
+
+SLA_PRECES - Precession
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PRECL - Precession Matrix (latest)
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PREC - Precession Matrix (FK5)
+
     
     
    
+
    
+
    SLA_PRECES - Precession
+  
+
    
+       
    
+
    ACTION:
+
    Precession - either the old ``FK4'' (Bessel-Newcomb, pre IAU 1976)
+or new ``FK5'' (Fricke, post IAU 1976) as required.
+
        
    CALL:
+
    CALL sla_PRECES (SYSTEM, EP0, EP1, RA, DC)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    SYSTEMCprecession to be applied: `FK4' or `FK5'
    EP0,EP1Dstarting and ending epoch
    RA,DCD$[\,\alpha,\delta\,]$, mean equator & equinox of epoch EP0
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RA,DCD$[\,\alpha,\delta\,]$, mean equator & equinox of epoch EP1
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Lowercase characters in SYSTEM are acceptable.
+
    2.
+
    The epochs are Besselian if SYSTEM=`FK4' and Julian if `FK5'.
+For example, to precess coordinates in the old system from
+        equinox 1900.0 to 1950.0 the call would be:
+        
    CALL sla_PRECES ('FK4', 1900D0, 1950D0, RA, DC)
+        
    
+  
    3.
+
    This routine will NOT correctly convert between the old and
+        the new systems - for example conversion from B1950 to J2000.
+        For these purposes see sla_FK425, sla_FK524, sla_FK45Z and
+        sla_FK54Z.
+  
    4.
+
    If an invalid SYSTEM is supplied, values of -99D0,-99D0 are
+        returned for both RA and DC.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PRECL - Precession Matrix (latest)
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PREC - Precession Matrix (FK5)
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node154.html b/src/slalib/sun67.htx/node154.html
new file mode 100644
index 0000000..a20e26a
--- /dev/null
+++ b/src/slalib/sun67.htx/node154.html
@@ -0,0 +1,131 @@
+
+
+
+
+SLA_PRECL - Precession Matrix (latest)
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PRENUT - Precession/Nutation Matrix
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PRECES - Precession
+
     
     
    
+
    
+
    SLA_PRECL - Precession Matrix (latest)
+  
+
    
+       
    
+
    ACTION:
+
    Form the matrix of precession between two epochs, using the
+model of Simon et al. (1994), which is suitable for long
+         periods of time.
+
        
    CALL:
+
    CALL sla_PRECL (EP0, EP1, RMATP)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    EP0Dbeginning epoch
    EP1Dending epoch
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RMATPD(3,3)precession matrix
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The epochs are TDB Julian epochs.
+
    2.
+
    The matrix is in the sense:
+
    v1 =  M$\cdot$v0
    
+        where v1 is the star vector relative to the
+        mean equator and equinox of epoch EP1, M is the
+        $3\times3$ matrix RMATP and
+        v0 is the star vector relative to the
+        mean equator and equinox of epoch EP0.
+  
    3.
+
    The absolute accuracy of the model is limited by the
+        uncertainty in the general precession, about 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.3$    per
+        1000 years.  The remainder of the formulation provides a
+        precision of 1 milliarcsecond over the interval from 1000AD
+        to 3000AD, 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.1$    from 1000BC to 5000AD and
+        $1\hspace{-0.05em}^{'\hspace{-0.1em}'}$ from 4000BC to 8000AD.
+ 
    
+
         
    
+
    REFERENCE:
+
    Simon, J.L. et al., 1994. Astr.Astrophys. 282,
+663.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PRENUT - Precession/Nutation Matrix
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PRECES - Precession
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node155.html b/src/slalib/sun67.htx/node155.html
new file mode 100644
index 0000000..e7dc899
--- /dev/null
+++ b/src/slalib/sun67.htx/node155.html
@@ -0,0 +1,110 @@
+
+
+
+
+SLA_PRENUT - Precession/Nutation Matrix
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PV2EL - Orbital Elements from Position/Velocity
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PRECL - Precession Matrix (latest)
+
     
     
    
+
    
+
    SLA_PRENUT - Precession/Nutation Matrix
+  
+
    
+       
    
+
    ACTION:
+
    Form the matrix of precession and nutation (IAU 1976, FK5).
+
    CALL:
+
    CALL sla_PRENUT (EPOCH, DATE, RMATPN)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    EPOCHDJulian Epoch for mean coordinates
    DATEDModified Julian Date (JD-2400000.5)
+for true coordinates
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RMATPND(3,3)combined precession/nutation matrix
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The epoch and date are TDB.
+
    2.
+
    The matrix is in the sense:
+
    vtrue =  M$\cdot$vmean
    
+        where vtrue is the star vector relative to the
+        true equator and equinox of epoch DATE, M is the
+        $3\times3$ matrix RMATPN and
+        vmean is the star vector relative to the
+        mean equator and equinox of epoch EPOCH.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PV2EL - Orbital Elements from Position/Velocity
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PRECL - Precession Matrix (latest)
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node156.html b/src/slalib/sun67.htx/node156.html
new file mode 100644
index 0000000..ab897bc
--- /dev/null
+++ b/src/slalib/sun67.htx/node156.html
@@ -0,0 +1,323 @@
+
+
+
+
+SLA_PV2EL - Orbital Elements from Position/Velocity
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PV2UE - Position/Velocity to Universal Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PRENUT - Precession/Nutation Matrix
+
     
     
    
+
    
+
    SLA_PV2EL - Orbital Elements from Position/Velocity
+  
+
    
+       
    
+
    ACTION:
+
    Heliocentric osculating elements obtained from instantaneous
+position and velocity.
+
        
    CALL:
+
    CALL sla_PV2EL (
+         PV, DATE, PMASS, JFORMR, JFORM, EPOCH, ORBINC,
+         ANODE, PERIH, AORQ, E, AORL, DM, JSTAT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    PVD(6)heliocentric $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$, equatorial, J2000
      (AU, AU/s; Note 1)
    DATEDdate (TT Modified Julian Date = JD-2400000.5)
    PMASSDmass of the planet (Sun = 1; Note 2)
    JFORMRIrequested element set (1-3; Note 3)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    JFORMIelement set actually returned (1-3; Note 4)
    EPOCHDepoch of elements (t0 or T, TT MJD)
    ORBINCDinclination (i, radians)
    ANODEDlongitude of the ascending node ($\Omega$, radians)
    PERIHDlongitude or argument of perihelion
+($\varpi$ or $\omega$,
      radians)
    AORQDmean distance or perihelion distance (a or q, AU)
    EDeccentricity (e)
    AORLDmean anomaly or longitude
+(M or L, radians,
      JFORM=1,2 only)
    DMDdaily motion (n, radians, JFORM=1 only)
    JSTATIstatus:
         0 = OK
      -1 = illegal PMASS
      -2 = illegal JFORMR
      -3 = position/velocity out of allowed range
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The PV 6-vector is with respect to the mean equator and equinox of
+epoch J2000.  The orbital elements produced are with respect to
+the J2000 ecliptic and mean equinox.
+  
    2.
+
    The mass, PMASS, is important only for the larger planets.  For
+        most purposes (e.g. asteroids) use 0D0.  Values less than zero
+        are illegal.
+  
    3.
+
    Three different element-format options are supported, as
+        follows. 
    
+
    
+JFORM=1, suitable for the major planets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of elements t0 (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 longitude of perihelion $\varpi$ (radians)
+		 AORQ 		 = 		 mean distance a (AU)
+		 E 		 = 		 eccentricity e $( 0 \leq e < 1 )$ 
+		 AORL 		 = 		 mean longitude L (radians)
+		 DM 		 = 		 daily motion n (radians)        
+
    
+
    
+JFORM=2, suitable for minor planets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of elements t0 (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 argument of perihelion $\omega$ (radians)
+		 AORQ 		 = 		 mean distance a (AU)
+		 E 		 = 		 eccentricity e $( 0 \leq e < 1 )$ 
+		 AORL 		 = 		 mean anomaly M (radians)        
+
    
+
    
+JFORM=3, suitable for comets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of perihelion T (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 argument of perihelion $\omega$ (radians)
+		 AORQ 		 = 		 perihelion distance q (AU)
+		 E 		 = 		 eccentricity e $( 0 \leq e \leq 10 )$
    
+  
    4.
+
    It may not be possible to generate elements in the form
+        requested through JFORMR.  The caller is notified of the form
+        of elements actually returned by means of the JFORM argument:
+
            
    
+ 		 JFORMR 		 JFORM 		 meaning 
+ 
+		      1 		      1 		 OK: elements are in the requested format
+		      1 		      2 		 never happens
+		      1 		      3 		 orbit not elliptical
+		      2 		      1 		 never happens
+		      2 		      2 		 OK: elements are in the requested format
+		      2 		      3 		 orbit not elliptical
+		      3 		      1 		 never happens
+		      3 		      2 		 never happens
+		      3 		      3 		 OK: elements are in the requested format        
+
    
+  
    5.
+
    The arguments returned for each value of JFORM (cf Note 5:
+        JFORM may not be the same as JFORMR) are as follows:
+
            
    
+ 		 JFORM 		 1 		 2 		 3 
+ 
+		 EPOCH 		 t0 t0 T 
+		 ORBINC 		 i i i 
+		 ANODE 		 $\Omega$ $\Omega$ $\Omega$ 
+		 PERIH 		 $\varpi$ $\omega$ $\omega$ 
+		 AORQ 		 a a q 
+		 E 		 e e e 
+		 AORL 		 L M -
+		 DM 		 n - 		 -        
+
    
+
    
+where:
+        
    
+ 		 t0 is the epoch of the elements (MJD, TT)
+		 T is the epoch of perihelion (MJD, TT)
+		 i is the inclination (radians)
+		 $\Omega$ is the longitude of the ascending node (radians)
+		 $\varpi$ is the longitude of perihelion (radians)
+		 $\omega$ is the argument of perihelion (radians)
+		 a is the mean distance (AU)
+		 q is the perihelion distance (AU)
+		 e is the eccentricity
+		 L is the longitude (radians, $0-2\pi$)		 M is the mean anomaly (radians, $0-2\pi$)		 n is the daily motion (radians)
+		 - 		 means no value is set        
+
    
+  
    6.
+
    At very small inclinations, the longitude of the ascending node
+        ANODE becomes indeterminate and under some circumstances may be
+        set arbitrarily to zero.  Similarly, if the orbit is close to
+        circular, the true anomaly becomes indeterminate and under some
+        circumstances may be set arbitrarily to zero.  In such cases,
+        the other elements are automatically adjusted to compensate,
+        and so the elements remain a valid description of the orbit.
+ 
    
+
         
    
+
    REFERENCE:
+
    Sterne, Theodore E., An Introduction to Celestial Mechanics,
+Interscience Publishers, 1960.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PV2UE - Position/Velocity to Universal Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PRENUT - Precession/Nutation Matrix
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node157.html b/src/slalib/sun67.htx/node157.html
new file mode 100644
index 0000000..08c25e9
--- /dev/null
+++ b/src/slalib/sun67.htx/node157.html
@@ -0,0 +1,203 @@
+
+
+
+
+SLA_PV2UE - Position/Velocity to Universal Elements
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PVOBS - Observatory Position & Velocity
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PV2EL - Orbital Elements from Position/Velocity
+
     
     
    
+
    
+
    SLA_PV2UE - Position/Velocity to Universal Elements
+  
+
    
+       
    
+
    ACTION:
+
    Construct a universal element set based on an instantaneous
+position and velocity.
+
        
    CALL:
+
    CALL sla_PV2UE (PV, DATE, PMASS, U, JSTAT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    PVD(6)heliocentric $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$, equatorial, J2000
      (AU, AU/s; Note 1)
    DATEDdate (TT Modified Julian Date = JD-2400000.5)
    PMASSDmass of the planet (Sun = 1; Note 2)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    UD(13)universal orbital elements (Note 3)
    (1)combined mass (M+m)
    (2)total energy of the orbit ($\alpha$)
    (3)reference (osculating) epoch (t0)
    (4-6)position at reference epoch (${\rm \bf r}_0$)
    (7-9)velocity at reference epoch (${\rm \bf v}_0$)
    (10)heliocentric distance at reference epoch
    (11)${\rm \bf r}_0.{\rm \bf v}_0$
    (12)date (t)
    (13)universal eccentric anomaly ($\psi$) of date, approx
    JSTATIstatus:
           0 = OK
         -1 = illegal PMASS
         -2 = too close to Sun
         -3 = too slow
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The PV 6-vector can be with respect to any chosen inertial frame,
+and the resulting universal-element set will be with respect to
+the same frame.  A common choice will be mean equator and ecliptic
+        of epoch J2000.
+  
    2.
+
    The mass, PMASS, is important only for the larger planets.  For
+        most purposes (e.g. asteroids) use 0D0.  Values less than zero
+        are illegal.
+  
    3.
+
    The ``universal'' elements are those which define the orbit for the
+        purposes of the method of universal variables (see reference).
+        They consist of the combined mass of the two bodies, an epoch,
+        and the position and velocity vectors (arbitrary reference frame)
+        at that epoch.  The parameter set used here includes also various
+        quantities that can, in fact, be derived from the other
+        information.  This approach is taken to avoiding unnecessary
+        computation and loss of accuracy.  The supplementary quantities
+        are (i) $\alpha$, which is proportional to the total energy of the
+        orbit, (ii) the heliocentric distance at epoch,
+        (iii) the outwards component of the velocity at the given epoch,
+        (iv) an estimate of $\psi$, the ``universal eccentric anomaly'' at a
+        given date and (v) that date.
+ 
    
+
         
    
+
    REFERENCE:
+
    Everhart, E. & Pitkin, E.T., Am. J. Phys. 51, 712, 1983.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PVOBS - Observatory Position & Velocity
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PV2EL - Orbital Elements from Position/Velocity
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node158.html b/src/slalib/sun67.htx/node158.html
new file mode 100644
index 0000000..02b37a3
--- /dev/null
+++ b/src/slalib/sun67.htx/node158.html
@@ -0,0 +1,102 @@
+
+
+
+
+SLA_PVOBS - Observatory Position & Velocity
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PXY - Apply Linear Model
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PV2UE - Position/Velocity to Universal Elements
+
     
     
    
+
    
+
    SLA_PVOBS - Observatory Position & Velocity
+  
+
    
+       
    
+
    ACTION:
+
    Position and velocity of an observing station.
+
    CALL:
+
    CALL sla_PVOBS (P, H, STL, PV)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    PDlatitude (geodetic, radians)
    HDheight above reference spheroid (geodetic, metres)
    STLDlocal apparent sidereal time (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    PVD(6)$[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$ (AU, AU s-1, true equator and equinox
+of date)
    
+
          
    
+
    NOTE:
+
    IAU 1976 constants are used.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_PXY - Apply Linear Model
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PV2UE - Position/Velocity to Universal Elements
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node159.html b/src/slalib/sun67.htx/node159.html
new file mode 100644
index 0000000..6cf76da
--- /dev/null
+++ b/src/slalib/sun67.htx/node159.html
@@ -0,0 +1,145 @@
+
+
+
+
+SLA_PXY - Apply Linear Model
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RANDOM - Random Number
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PVOBS - Observatory Position & Velocity
+
     
     
    
+
    
+
    SLA_PXY - Apply Linear Model
+  
+
    
+       
    
+
    ACTION:
+
    Given arrays of expected and measured
+$[\,x,y\,]$ coordinates, and a
+         linear model relating them (as produced by sla_FITXY), compute
+         the array of predicted coordinates and the RMS residuals.
+
        
    CALL:
+
    CALL sla_PXY (NP,XYE,XYM,COEFFS,XYP,XRMS,YRMS,RRMS)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    NPInumber of samples
    XYED(2,NP)expected $[\,x,y\,]$ for each sample
    XYMD(2,NP)measured $[\,x,y\,]$ for each sample
    COEFFSD(6)coefficients of model (see below)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    XYPD(2,NP)predicted $[\,x,y\,]$ for each sample
    XRMSDRMS in X
    YRMSDRMS in Y
    RRMSD total RMS (vector sum of XRMS and YRMS)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The model is supplied in the array COEFFS.  Naming the
+six elements of COEFFS a,b,c,d,e & f,
+the model transforms measured coordinates
+        $[x_{m},y_{m}\,]$ into predicted coordinates
+        $[x_{p},y_{p}\,]$ as follows:
+        
    xp = a + bxm + cym 
    
+         yp = d + exm + fym
    
+  
    2.
+
    The residuals are (xp-xe) and (yp-ye).
+  
    3.
+
    If NP is less than or equal to zero, no coordinates are
+        transformed, and the RMS residuals are all zero.
+  
    4.
+
    See also sla_FITXY, sla_INVF, sla_XY2XY, sla_DCMPF
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RANDOM - Random Number
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PVOBS - Observatory Position & Velocity
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node16.html b/src/slalib/sun67.htx/node16.html
new file mode 100644
index 0000000..682e1dd
--- /dev/null
+++ b/src/slalib/sun67.htx/node16.html
@@ -0,0 +1,121 @@
+
+
+
+
+SLA_AIRMAS - Air Mass
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ALTAZ - Velocities etc. for Altazimuth Mount
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AFIN - Sexagesimal character string to angle
+
     
     
    
+
    
+
    SLA_AIRMAS - Air Mass
+  
+
    
+       
    
+
    ACTION:
+
    Air mass at given zenith distance (double precision).
+
    CALL:
+
    D = sla_AIRMAS (ZD)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    ZDDobserved zenith distance (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_AIRMASDair mass (1 at zenith)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The observed zenith distance referred to above means
+``as affected by refraction''.
+
    2.
+
    The routine uses Hardie's (1962) polynomial fit to Bemporad's
+        data for the relative air mass, X, in units of thickness at the
+        zenith as tabulated by Schoenberg (1929). This is adequate for all
+        normal needs as it is accurate to better than
+        0.1% up to X = 6.8 and better than 1% up to X = 10.
+        Bemporad's tabulated values are unlikely to be trustworthy
+        to such accuracy
+        because of variations in density, pressure and other
+        conditions in the atmosphere from those assumed in his work.
+  
    3.
+
    The sign of the ZD is ignored.
+  
    4.
+
    At zenith distances greater than about $\zeta = 87^{\circ}$ the
+        air mass is held constant to avoid arithmetic overflows.
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    Hardie, R.H., 1962, in Astronomical Techniques
+ed. W.A. Hiltner, University of Chicago Press, p180.
+
    2.
+
    Schoenberg, E., 1929, Hdb. d. Ap.,
+        Berlin, Julius Springer, 2, 268.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ALTAZ - Velocities etc. for Altazimuth Mount
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AFIN - Sexagesimal character string to angle
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node160.html b/src/slalib/sun67.htx/node160.html
new file mode 100644
index 0000000..972237c
--- /dev/null
+++ b/src/slalib/sun67.htx/node160.html
@@ -0,0 +1,98 @@
+
+
+
+
+SLA_RANDOM - Random Number
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RANGE - Put Angle into Range
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PXY - Apply Linear Model
+
     
     
    
+
    
+
    SLA_RANDOM - Random Number
+  
+
    
+       
    
+
    ACTION:
+
    Generate pseudo-random real number in the range $0 \leq x < 1$.
    CALL:
+
    R = sla_RANDOM (SEED)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    SEEDRan arbitrary real number
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    SEEDRa new arbitrary value
    sla_RANDOMRPseudo-random real number $0 \leq x < 1$.
    
+
          
    
+
    NOTE:
+
    The implementation is machine-dependent.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RANGE - Put Angle into Range
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_PXY - Apply Linear Model
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node161.html b/src/slalib/sun67.htx/node161.html
new file mode 100644
index 0000000..b8c2cb4
--- /dev/null
+++ b/src/slalib/sun67.htx/node161.html
@@ -0,0 +1,93 @@
+
+
+
+
+SLA_RANGE - Put Angle into Range 
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RANORM - Put Angle into Range
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RANDOM - Random Number
+
     
     
    
+
    
+
       
+
    
+SLA_RANGE - Put Angle into Range $\pm \pi$
    
+       
    
+
    ACTION:
+
    Normalize an angle into the range $\pm \pi$ (single precision).
+
    CALL:
+
    R = sla_RANGE (ANGLE)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    ANGLERangle in radians
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_RANGERANGLE expressed in the range $\pm \pi$.
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RANORM - Put Angle into Range
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RANDOM - Random Number
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node162.html b/src/slalib/sun67.htx/node162.html
new file mode 100644
index 0000000..3317041
--- /dev/null
+++ b/src/slalib/sun67.htx/node162.html
@@ -0,0 +1,93 @@
+
+
+
+
+SLA_RANORM - Put Angle into Range 
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RCC - Barycentric Coordinate Time
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RANGE - Put Angle into Range
+
     
     
    
+
    
+
       
+
    
+SLA_RANORM - Put Angle into Range $0\!-\!2\pi$
    
+       
    
+
    ACTION:
+
    Normalize an angle into the range $0\!-\!2\pi$ (single precision).
+
    CALL:
+
    R = sla_RANORM (ANGLE)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    ANGLERangle in radians
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_RANORMRANGLE expressed in the range $0\!-\!2\pi$
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RCC - Barycentric Coordinate Time
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RANGE - Put Angle into Range
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node163.html b/src/slalib/sun67.htx/node163.html
new file mode 100644
index 0000000..4f6cf04
--- /dev/null
+++ b/src/slalib/sun67.htx/node163.html
@@ -0,0 +1,166 @@
+
+
+
+
+SLA_RCC - Barycentric Coordinate Time
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RDPLAN - Apparent of Planet
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RANORM - Put Angle into Range
+
     
     
    
+
    
+
    SLA_RCC - Barycentric Coordinate Time
+  
+
    
+       
    
+
    CALL:
+
    D = sla_RCC (TDB, UT1, WL, U, V)
+
    ACTION:
+
    The relativistic clock correction TDB-TT, the
+         difference between proper time
+         on Earth and coordinate time in the solar system barycentric
+         space-time frame of reference.  The proper time is TT;  the
+         coordinate time is an implementation of TDB.
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    TDBDcoordinate time (MJD: JD-2400000.5)
    UT1Duniversal time (fraction of one day)
    WLDclock longitude (radians west)
    UDclock distance from Earth spin axis (km)
    VDclock distance north of Earth equatorial plane (km)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_RCCDTDB-TT (sec)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    TDB may be considered to
+be the coordinate time in the solar system barycentre frame of
+reference, and TT is the proper time given by clocks at mean sea
+        level on the Earth.
+  
    2.
+
    The result has a main (annual) sinusoidal term of amplitude
+        approximately 1.66ms, plus planetary terms up to about
+        20$\mu$s, and lunar and diurnal terms up to 2$\mu$s.  The
+        variation arises from the transverse Doppler effect and the
+        gravitational red-shift as the observer varies in speed and
+        moves through different gravitational potentials.
+  
    3.
+
    The argument TDB is, strictly, the barycentric coordinate time;
+        however, the terrestrial proper time (TT) can in practice be used.
+  
    4.
+
    The geocentric model is that of Fairhead & Bretagnon (1990),
+        in its full
+        form.  It was supplied by Fairhead (private communication)
+        as a Fortran subroutine.  A number of coding changes were made to
+        this subroutine in order
+        match the calling sequence of previous versions of the present
+        routine, to comply with Starlink programming standards and to
+        avoid compilation problems on certain machines.  On the supported
+        computer types,
+        the numerical results are essentially unaffected by the
+        changes.  The topocentric model is from Moyer (1981) and Murray (1983).
+        During the interval 1950-2050, the absolute accuracy of the
+        geocentric model is better than $\pm3$ nanoseconds
+        relative to direct numerical integrations using the JPL DE200/LE200
+        solar system ephemeris.
+  
    5.
+
    The IAU definition of TDB is that it must differ from TT only by
+        periodic terms.  Though practical, this is an imprecise definition
+        which ignores the existence of very long-period and secular effects
+        in the dynamics of the solar system.  As a consequence, different
+        implementations of TDB will, in general, differ in zero-point and
+        will drift linearly relative to one other.
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    Fairhead, L. & 
+Bretagnon, P., 1990. Astr.Astrophys. 229, 240-247.
+
    2.
+
    Moyer, T.D., 1981. Cel.Mech. 23, 33.
+  
    3.
+
    Murray, C.A., 1983, Vectorial Astrometry, Adam Hilger.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RDPLAN - Apparent of Planet
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RANORM - Put Angle into Range
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node164.html b/src/slalib/sun67.htx/node164.html
new file mode 100644
index 0000000..d45ee2f
--- /dev/null
+++ b/src/slalib/sun67.htx/node164.html
@@ -0,0 +1,184 @@
+
+
+
+
+SLA_RDPLAN - Apparent of Planet
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_REFCO - Refraction Constants
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RCC - Barycentric Coordinate Time
+
     
     
    
+
    
+
       
+
    
+SLA_RDPLAN - Apparent $[\,\alpha,\delta\,]$ of Planet
+
    
+       
    
+
    ACTION:
+
    Approximate topocentric apparent $[\,\alpha,\delta\,]$ and angular
+size of a planet.
+
        
    CALL:
+
    CALL sla_RDPLAN (DATE, NP, ELONG, PHI, RA, DEC, DIAM)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    DATEDMJD of observation (JD-2400000.5)
    NPIplanet:
      1=Mercury
      2=Venus
      3=Moon
      4=Mars
      5=Jupiter
      6=Saturn
      7=Uranus
      8=Neptune
      9=Pluto
      else=Sun
    ELONG,PHIDobserver's longitude (east +ve) and latitude
+(radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    RA,DECDtopocentric apparent $[\,\alpha,\delta\,]$ (radians)
    DIAMDangular diameter (equatorial, radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The date is in a dynamical timescale (TDB, formerly ET)
+and is in the form of a Modified
+Julian Date (JD-2400000.5).  For all practical purposes, TT can
+        be used instead of TDB, and for many applications UT will do
+        (except for the Moon).
+  
    2.
+
    The longitude and latitude allow correction for geocentric
+        parallax.  This is a major effect for the Moon, but in the
+        context of the limited accuracy of the present routine its
+        effect on planetary positions is small (negligible for the
+        outer planets).  Geocentric positions can be generated by
+        appropriate use of the routines sla_DMOON and sla_PLANET.
+  
    3.
+
    The direction accuracy (arcsec, 1000-3000AD) is of order:
+        
    
+ 		 Sun 		   5
+		 Mercury 		   2
+		 Venus 		 10
+		 Moon 		 30
+		 Mars 		 50
+		 Jupiter 		 90
+		 Saturn 		 90
+		 Uranus 		 90
+		 Neptune 		 10
+		 Pluto 		  1   (1885-2099AD only)        
+
    
+        The angular diameter accuracy is about 0.4% for the Moon,
+        and 0.01% or better for the Sun and planets.
+        For more information on accuracy,
+        refer to the routines sla_PLANET and sla_DMOON,
+        which the present routine uses.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_REFCO - Refraction Constants
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RCC - Barycentric Coordinate Time
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node165.html b/src/slalib/sun67.htx/node165.html
new file mode 100644
index 0000000..1fadca0
--- /dev/null
+++ b/src/slalib/sun67.htx/node165.html
@@ -0,0 +1,176 @@
+
+
+
+
+SLA_REFCO - Refraction Constants
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_REFCOQ - Refraction Constants (fast)
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RDPLAN - Apparent of Planet
+
     
     
    
+
    
+
    SLA_REFCO - Refraction Constants
+  
+
    
+       
    
+
    ACTION:
+
    Determine the constants a and b in the
+atmospheric refraction model
+         $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$,         where $\zeta$ is the observed zenith distance
+         (i.e. affected by refraction) and $\Delta \zeta$ is
+         what to add to $\zeta$ to give the topocentric
+         (i.e. in vacuo) zenith distance.
+
        
    CALL:
+
    CALL sla_REFCO (HM, TDK, PMB, RH, WL, PHI, TLR, EPS, REFA, REFB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    HMDheight of the observer above sea level (metre)
    TDKDambient temperature at the observer (degrees K)
    PMBDpressure at the observer (mB)
    RHDrelative humidity at the observer (range 0-1)
    WLDeffective wavelength of the source ($\mu{\rm m}$)
    PHIDlatitude of the observer (radian, astronomical)
    TLRDtemperature lapse rate in the troposphere
+(degrees K per metre)
    EPSDprecision required to terminate iteration (radian)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    REFAD$\tan \zeta$ coefficient (radians)
    REFBD$\tan^{3} \zeta$ coefficient (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Suggested values for the TLR and EPS arguments are 0.0065D0 and
+1D-8 respectively.
+
    2.
+
    The radio refraction is chosen by specifying WL >100 $\mu{\rm m}$.  
    3.
+
    The routine is a slower but more accurate alternative to the
+        sla_REFCOQ routine.  The constants it produces give perfect
+        agreement with sla_REFRO at zenith distances
+        $\tan^{-1} 1$ ($45^\circ$) and $\tan^{-1} 4$ ($\sim 76^\circ$).
+        At other zenith distances, the model achieves:
+
          $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$    accuracy for $\zeta<80^{\circ}$,
          $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.01$    accuracy for $\zeta<60^{\circ}$, and
+
          $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.001$    accuracy for $\zeta<45^{\circ}$. 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_REFCOQ - Refraction Constants (fast)
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RDPLAN - Apparent of Planet
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node166.html b/src/slalib/sun67.htx/node166.html
new file mode 100644
index 0000000..4dd74d2
--- /dev/null
+++ b/src/slalib/sun67.htx/node166.html
@@ -0,0 +1,428 @@
+
+
+
+
+SLA_REFCOQ - Refraction Constants (fast)
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_REFRO - Refraction
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_REFCO - Refraction Constants
+
     
     
    
+
    
+
    SLA_REFCOQ - Refraction Constants (fast)
+  
+
    
+       
    
+
    ACTION:
+
    Determine the constants a and b in the
+atmospheric refraction model
+         $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$,         where $\zeta$ is the observed zenith distance
+         (i.e. affected by refraction) and $\Delta \zeta$ is
+         what to add to $\zeta$ to give the topocentric
+         (i.e. in vacuo) zenith distance. (This is a fast
+         alternative to the sla_REFCO routine - see notes.)
+
        
    CALL:
+
    CALL sla_REFCOQ (TDK, PMB, RH, WL, REFA, REFB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    TDKDambient temperature at the observer (degrees K)
    PMBDpressure at the observer (mB)
    RHDrelative humidity at the observer (range 0-1)
    WLDeffective wavelength of the source ($\mu{\rm m}$)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    REFAD$\tan \zeta$ coefficient (radians)
    REFBD$\tan^{3} \zeta$ coefficient (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The radio refraction is chosen by specifying WL >100 $\mu{\rm m}$.
    2.
+
    The model is an approximation, for moderate zenith distances,
+to the predictions of the sla_REFRO routine.  The approximation
+        is maintained across a range of conditions, and applies to
+        both optical/IR and radio.
+  
    3.
+
    The algorithm is a fast alternative to the sla_REFCO routine.
+        The latter calls the sla_REFRO routine itself:  this involves
+        integrations through a model atmosphere, and is costly in
+        processor time.  However, the model which is produced is precisely
+        correct for two zenith distances ($45^\circ$ and $\sim\!76^\circ$)        and at other zenith distances is limited in accuracy only by the
+        $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$ formulation
+        itself.  The present routine is not as accurate, though it
+        satisfies most practical requirements.
+  
    4.
+
    The model omits the effects of (i) height above sea level (apart
+        from the reduced pressure itself), (ii) latitude (i.e. the
+        flattening of the Earth) and (iii) variations in tropospheric
+        lapse rate.
+  
    5.
+
    The model has been tested using the following range of conditions:
+        
    
+
    $\cdot$
    lapse rates 0.0055, 0.0065, 0.0075 degrees K per metre
+
    $\cdot$
    latitudes $0^{\circ}$, $25^\circ$, $50^\circ$, $75^\circ$        
    $\cdot$
    heights 0, 2500, 5000 metres above sea level
+        
    $\cdot$
    pressures mean for height -10% to +5% in steps of 5%
+        
    $\cdot$
    temperatures $-10^\circ$ to $+20^\circ$ with respect to
+              $280^\circ$K at sea level
+        
    $\cdot$
    relative humidity 0, 0.5, 1
+        
    $\cdot$
    wavelength 0.4, 0.6, ... $2\mu{\rm m}$, + radio
+        
    $\cdot$
    zenith distances $15^\circ$, $45^\circ$, $75^\circ$
    
+        For the above conditions, the comparison with sla_REFRO
+        was as follows:
+
            
    
+
    
+
    
+
                      
+        
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
     worstRMS
    optical/IR628
    radio31949
     masmas
    
+
            
    
+
    
+
    
+
    
+
    
+For this particular set of conditions:
+        
    
+
    $\cdot$
    lapse rate $6.5^\circ K km^{-1}$
    $\cdot$
    latitude $50^\circ$        
    $\cdot$
    sea level
+        
    $\cdot$
    pressure 1005mB
+        
    $\cdot$
    temperature $7^\circ$C
+        
    $\cdot$
    humidity 80%
+        
    $\cdot$
    wavelength 5740A
+        
    
+        the results were as follows:
+
            
    
+
    
+
    
+
                      
+        
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    $\zeta$sla_REFROsla_REFCOQSaastamoinen
    1010.2710.2710.27
    2021.1921.2021.19
    3033.6133.6133.60
    4048.8248.8348.81
    4558.1658.1858.16
    5069.2869.3069.27
    5582.9782.9982.95
    60100.51100.54100.50
    65124.23124.26124.20
    70158.63158.68158.61
    72177.32177.37177.31
    74200.35200.38200.32
    76229.45229.43229.42
    78267.44267.29267.41
    80319.13318.55319.10
    degarcsecarcsecarcsec
    
+
            
    
+
    
+
    
+
    
+
    
+The values for Saastamoinen's formula (which includes terms
+        up to $\tan^5$) are taken from Hohenkerk and Sinclair (1985).
+
    
+The results from the much slower but more accurate sla_REFCO
+        routine have not been included in the tabulation as they are
+        identical to those in the sla_REFRO column to the 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.01$
    
+resolution used.
+  
    6.
+
    Outlandish input parameters are silently limited
+        to mathematically safe values.  Zero pressure is permissible,
+        and causes zeroes to be returned.
+  
    7.
+
    The algorithm draws on several sources, as follows:
+        
      
+
    •  The formula for the saturation vapour pressure of water as
+              a function of temperature and temperature is taken from
+              expressions A4.5-A4.7 of Gill (1982).
+
    •  The formula for the water vapour pressure, given the
+              saturation pressure and the relative humidity is from
+              Crane (1976), expression 2.5.5.
+
    •  The refractivity of air is a function of temperature,
+              total pressure, water-vapour pressure and, in the case
+              of optical/IR but not radio, wavelength.  The formulae
+              for the two cases are developed from the Essen and Froome
+              expressions adopted in Resolution 1 of the 12th International
+              Geodesy Association General Assembly (1963).
+        
    
+        The above three items are as used in the sla_REFRO routine.
+        
      
+
    •  The formula for $\beta~(=H_0/r_0)$ is
+              an adaption of expression 9 from Stone (1996).  The
+              adaptations, arrived at empirically, consist of (i) a
+              small adjustment to the coefficient and (ii) a humidity
+              term for the radio case only.
+
    •  The formulae for the refraction constants as a function of
+              n-1 and $\beta$ are from Green (1987), expression 4.31.
+        
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    Crane, R.K., Meeks, M.L. (ed), ``Refraction Effects in
+the Neutral Atmosphere'',
+Methods of Experimental Physics: Astrophysics 12B,
+        Academic Press, 1976.
+  
    2.
+
    Gill, Adrian E., Atmosphere-Ocean Dynamics,
+        Academic Press, 1982.
+  
    3.
+
    Hohenkerk, C.Y., & Sinclair, A.T., NAO Technical Note
+        No. 63, 1985.
+  
    4.
+
    International Geodesy Association General Assembly, Bulletin
+        Géodésique 70 p390, 1963.
+  
    5.
+
    Stone, Ronald C., P.A.S.P. 108 1051-1058, 1996.
+  
    6.
+
    Green, R.M., Spherical Astronomy, Cambridge
+        University Press, 1987.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_REFRO - Refraction
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_REFCO - Refraction Constants
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node167.html b/src/slalib/sun67.htx/node167.html
new file mode 100644
index 0000000..f422ec8
--- /dev/null
+++ b/src/slalib/sun67.htx/node167.html
@@ -0,0 +1,232 @@
+
+
+
+
+SLA_REFRO - Refraction
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_REFV - Apply Refraction to Vector
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_REFCOQ - Refraction Constants (fast)
+
     
     
    
+
    
+
    SLA_REFRO - Refraction
+  
+
    
+       
    
+
    ACTION:
+
    Atmospheric refraction, for radio or optical/IR wavelengths.
+
    CALL:
+
    CALL sla_REFRO (ZOBS, HM, TDK, PMB, RH, WL, PHI, TLR, EPS, REF)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    ZOBSDobserved zenith distance of the source (radians)
    HMDheight of the observer above sea level (metre)
    TDKDambient temperature at the observer (degrees K)
    PMBDpressure at the observer (mB)
    RHDrelative humidity at the observer (range 0-1)
    WLDeffective wavelength of the source ($\mu{\rm m}$)
    PHIDlatitude of the observer (radian, astronomical)
    TLRDtemperature lapse rate in the troposphere
+(degrees K per metre)
    EPSDprecision required to terminate iteration (radian)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    REFDrefraction: in vacuo ZD minus observed ZD (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    A suggested value for the TLR argument is 0.0065D0.  The
+refraction is significantly affected by TLR, and if studies
+of the local atmosphere have been carried out a better TLR
+        value may be available.
+  
    2.
+
    A suggested value for the EPS argument is 1D-8.  The result is
+        usually at least two orders of magnitude more computationally
+        precise than the supplied EPS value.
+  
    3.
+
    The routine computes the refraction for zenith distances up
+        to and a little beyond $90^{\circ}$ using the method of Hohenkerk
+        & Sinclair (NAO Technical Notes 59 and 63, subsequently adopted
+        in the Explanatory Supplement to the Astronomical Almanac,
+        1992 - see section 3.281).
+  
    4.
+
    The code is based on the AREF optical/IR refraction subroutine
+        of C.Hohenkerk (HMNAO, September 1984), with extensions to
+        support the radio case.  The modifications to the original HMNAO
+        optical/IR refraction code which affect the results are:
+        
      
+
    •  Murray's values for the gas constants have been used
+               (Vectorial Astrometry, Adam Hilger, 1983).
+
    •  A better model for Ps(T) has been adopted (taken from
+               Gill, Atmosphere-Ocean Dynamics, Academic Press, 1982).
+
    •  More accurate expressions for Pwo have been adopted
+               (again from Gill 1982).
+
    •  Provision for radio wavelengths has been added using
+               expressions devised by A.T.Sinclair, RGO (private
+               communication 1989), based on the Essen & Froome
+               refractivity formula adopted in Resolution 1 of the
+               12th International Geodesy Association General Assembly
+               (Bulletin Géodésique 70 p390, 1963).
+        
    
+        None of the changes significantly affects the optical/IR results
+        with respect to the algorithm given in the 1992 Explanatory
+        Supplement.  For example, at $70^\circ$ zenith distance the present
+        routine agrees with the ES algorithm to better than 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.05$
    
+for any reasonable combination of parameters.  However, the
+        improved water-vapour expressions do make a significant difference
+        in the radio band, at $70^\circ$ zenith distance reaching almost
+        $4\hspace{-0.05em}^{'\hspace{-0.1em}'}$ for a hot, humid, low-altitude site during a period of
+        low pressure.
+  
    5.
+
    The radio refraction is chosen by specifying WL >100 $\mu{\rm m}$.        Because the algorithm takes no account of the ionosphere, the
+        accuracy deteriorates at low frequencies, below about 30MHz.
+  
    6.
+
    Before use, the value of ZOBS is expressed in the range $\pm \pi$.        If this ranged ZOBS is negative, the result REF is computed from its
+        absolute value before being made negative to match.  In addition, if
+        it has an absolute value greater than $93^\circ$, a fixed REF value
+        equal to the result for ZOBS $=93^\circ$ is returned, appropriately
+        signed.
+  
    7.
+
    As in the original Hohenkerk and Sinclair algorithm, fixed values
+        of the water vapour polytrope exponent, the height of the
+        tropopause, and the height at which refraction is negligible are
+        used.
+  
    8.
+
    The radio refraction has been tested against work done by
+        Iain Coulson, JACH, (private communication 1995) for the
+        James Clerk Maxwell Telescope, Mauna Kea.  For typical conditions,
+        agreement at the 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.1$    level is achieved for moderate ZD,
+        worsening to perhaps 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$   -
+      $1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.0$    at ZD $80^\circ$.        At hot and humid sea-level sites the accuracy will not be as good.
+  
    9.
+
    It should be noted that the relative humidity RH is formally
+        defined in terms of ``mixing ratio'' rather than pressures or
+        densities as is often stated.  It is the mass of water per unit
+        mass of dry air divided by that for saturated air at the same
+        temperature and pressure (see Gill 1982).  The familiar
+        $\nu=p_w/p_s$ or $\nu=\rho_w/\rho_s$ expressions can differ from
+        the formal definition by several percent, significant in the
+        radio case.
+  
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_REFV - Apply Refraction to Vector
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_REFCOQ - Refraction Constants (fast)
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node168.html b/src/slalib/sun67.htx/node168.html
new file mode 100644
index 0000000..c695ed9
--- /dev/null
+++ b/src/slalib/sun67.htx/node168.html
@@ -0,0 +1,276 @@
+
+
+
+
+SLA_REFV - Apply Refraction to Vector
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_REFZ - Apply Refraction to ZD
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_REFRO - Refraction
+
     
     
    
+
    
+
    SLA_REFV - Apply Refraction to Vector
+  
+
    
+       
    
+
    ACTION:
+
    Adjust an unrefracted Cartesian vector to include the effect of
+atmospheric refraction, using the simple
+         $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$ model.
+
        
    CALL:
+
    CALL sla_REFV (VU, REFA, REFB, VR)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    VUDunrefracted position of the source ($[\,Az,El~]$ 3-vector)
    REFAD$\tan \zeta$ coefficient (radians)
    REFBD$\tan^{3} \zeta$ coefficient (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    VRDrefracted position of the source ($[\,Az,El~]$ 3-vector)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    This routine applies the adjustment for refraction in the
+opposite sense to the usual one - it takes an unrefracted
+(in vacuo) position and produces an observed (refracted)
+        position, whereas the
+        $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$        model strictly
+        applies to the case where an observed position is to have the
+        refraction removed.  The unrefracted to refracted case is
+        harder, and requires an inverted form of the text-book
+        refraction models;  the algorithm used here is equivalent to
+        one iteration of the Newton-Raphson method applied to the
+        above formula.
+  
    2.
+
    Though optimized for speed rather than precision, the present
+        routine achieves consistency with the refracted-to-unrefracted
+        $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$        model at better than 1 microarcsecond within
+        $30^\circ$ of the zenith and remains within 1 milliarcsecond to
+        $\zeta=70^\circ$.  The inherent accuracy of the model is, of
+        course, far worse than this - see the documentation for sla_REFCO
+        for more information.
+  
    3.
+
    At low elevations (below about $3^{\circ}$) the refraction
+        correction is held back to prevent arithmetic problems and
+        wildly wrong results.  Over a wide range of observer heights
+        and corresponding temperatures and pressures, the following
+        levels of accuracy are achieved, relative to numerical
+        integration through a model atmosphere:
+
            
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    $\zeta_{obs}$error 
       
    $80^\circ$$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.4$ 
    $81^\circ$$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.8$ 
    $82^\circ$$1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.6$ 
    $83^\circ$$3\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
    $84^\circ$$7\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
    $85^\circ$$17\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
    $86^\circ$$45\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
    $87^\circ$$150\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
    $88^\circ$$340\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
    $89^\circ$$620\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
    $90^{\circ}$$1100\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
    $91^\circ$$1900\hspace{-0.05em}^{'\hspace{-0.1em}'}$< high-altitude
    $92^\circ$$3200\hspace{-0.05em}^{'\hspace{-0.1em}'}$< sites only
    
+  
    4.
+
    See also the routine sla_REFZ, which performs the adjustment to
+        the zenith distance rather than in $[\,x,y,z\,]$.        The present routine is faster than sla_REFZ and,
+        except very low down,
+        is equally accurate for all practical purposes.  However, beyond
+        about $\zeta=84^\circ$ sla_REFZ should be used, and for the utmost
+        accuracy iterative use of sla_REFRO should be considered.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_REFZ - Apply Refraction to ZD
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_REFRO - Refraction
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node169.html b/src/slalib/sun67.htx/node169.html
new file mode 100644
index 0000000..6180ab0
--- /dev/null
+++ b/src/slalib/sun67.htx/node169.html
@@ -0,0 +1,275 @@
+
+
+
+
+SLA_REFZ - Apply Refraction to ZD
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RVEROT - RV Corrn to Earth Centre
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_REFV - Apply Refraction to Vector
+
     
     
    
+
    
+
    SLA_REFZ - Apply Refraction to ZD
+  
+
    
+       
    
+
    ACTION:
+
    Adjust an unrefracted zenith distance to include the effect of
+atmospheric refraction, using the simple
+         $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$ model.
+
        
    CALL:
+
    CALL sla_REFZ (ZU, REFA, REFB, ZR)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    ZUDunrefracted zenith distance of the source (radians)
    REFAD$\tan \zeta$ coefficient (radians)
    REFBD$\tan^{3} \zeta$ coefficient (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    ZRDrefracted zenith distance (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    This routine applies the adjustment for refraction in the
+opposite sense to the usual one - it takes an unrefracted
+(in vacuo) position and produces an observed (refracted)
+        position, whereas the
+        $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$        model strictly
+        applies to the case where an observed position is to have the
+        refraction removed.  The unrefracted to refracted case is
+        harder, and requires an inverted form of the text-book
+        refraction models;  the formula used here is based on the
+        Newton-Raphson method.  For the utmost numerical consistency
+        with the refracted to unrefracted model, two iterations are
+        carried out, achieving agreement at the 10-11 arcsecond level
+        for $\zeta=80^\circ$.  The inherent accuracy of the model
+        is, of course, far worse than this - see the documentation for
+        sla_REFCO for more information.
+  
    2.
+
    At $\zeta=83^\circ$, the rapidly-worsening
+        $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$        model is abandoned and an empirical formula takes over:
+
              
+
    \begin{displaymath}
+\Delta \zeta = F \left(
+ \frac{0^\circ\hspace{-0.37em}.\hspa...
+ ...hspace{0.02em}00202 E^2}
+ {1 + 0.28385 E +0.02390 E^2} \right) \end{displaymath}
    
+where $E=90^\circ-\zeta_{true}$        and F is a factor chosen to meet the
+        $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$        formula at $\zeta=83^\circ$.  Over a
+        wide range of observer heights and corresponding temperatures and
+        pressures, the following levels of accuracy are achieved,
+        relative to numerical integration through a model atmosphere:
+
            
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    $\zeta_{obs}$error 
       
    $80^\circ$$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.4$ 
    $81^\circ$$0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.8$ 
    $82^\circ$$1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$ 
    $83^\circ$$3\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.2$ 
    $84^\circ$$4\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.9$ 
    $85^\circ$$5\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.8$ 
    $86^\circ$$6\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.1$ 
    $87^\circ$$7\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.1$ 
    $88^\circ$$11\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
    $89^\circ$$21\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
    $90^{\circ}$$43\hspace{-0.05em}^{'\hspace{-0.1em}'}$ 
    $91^\circ$$92\hspace{-0.05em}^{'\hspace{-0.1em}'}$< high-altitude
    $92^\circ$$220\hspace{-0.05em}^{'\hspace{-0.1em}'}$< sites only
    
+  
    3.
+
    See also the routine sla_REFV, which performs the adjustment in
+        $[\,x,y,z\,]$, and with the emphasis on speed rather than numerical accuracy.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RVEROT - RV Corrn to Earth Centre
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_REFV - Apply Refraction to Vector
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node17.html b/src/slalib/sun67.htx/node17.html
new file mode 100644
index 0000000..c44bc9c
--- /dev/null
+++ b/src/slalib/sun67.htx/node17.html
@@ -0,0 +1,205 @@
+
+
+
+
+SLA_ALTAZ - Velocities etc. for Altazimuth Mount
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AMP - Apparent to Mean
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AIRMAS - Air Mass
+
     
     
    
+
    
+
    SLA_ALTAZ - Velocities etc. for Altazimuth Mount
+  
+
    
+       
    
+
    ACTION:
+
    Positions, velocities and accelerations for an altazimuth
+telescope mount tracking a star (double precision).
+
        
    CALL:
+
    CALL sla_ALTAZ (
+         HA, DEC, PHI,
+         AZ, AZD, AZDD, EL, ELD, ELDD, PA, PAD, PADD)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    HADhour angle
    DECDdeclination
    PHIDobservatory latitude
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    AZDazimuth
    AZDDazimuth velocity
    AZDDDazimuth acceleration
    ELDelevation
    ELDDelevation velocity
    ELDDDelevation acceleration
    PADparallactic angle
    PADDparallactic angle velocity
    PADDDparallactic angle acceleration
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Natural units are used throughout.  HA, DEC, PHI, AZ, EL
+and ZD are in radians.  The velocities and accelerations
+assume constant declination and constant rate of change of
+        hour angle (as for tracking a star);  the units of AZD, ELD
+        and PAD are radians per radian of HA, while the units of AZDD,
+        ELDD and PADD are radians per radian of HA squared.  To
+        convert into practical degree- and second-based units:
+
            
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    angles$\times 360/2\pi$$\rightarrow$degrees
    velocities$\times (2\pi/86400) \times (360/2\pi)$$\rightarrow$degree/sec
    accelerations$\times (2\pi/86400)^2 \times (360/2\pi)$$\rightarrow$degree/sec/sec
    
+
    
+Note that the seconds here are sidereal rather than SI.  One
+        sidereal second is about 0.99727 SI seconds.
+
    
+The velocity and acceleration factors assume the sidereal
+        tracking case.  Their respective numerical values are (exactly)
+        1/240 and (approximately) 1/3300236.9.
+  
    2.
+
    Azimuth is returned in the range $[\,0,2\pi\,]$;  north is zero,
+        and east is $+\pi/2$.  Elevation and parallactic angle are
+        returned in the range $\pm\pi/2$.  Position angle is +ve
+        for a star west of the meridian and is the angle NP-star-zenith.
+  
    3.
+
    The latitude is geodetic as opposed to geocentric.  The
+        hour angle and declination are topocentric.  Refraction and
+        deficiencies in the telescope mounting are ignored.  The
+        purpose of the routine is to give the general form of the
+        quantities.  The details of a real telescope could profoundly
+        change the results, especially close to the zenith.
+  
    4.
+
    No range checking of arguments is carried out.
+  
    5.
+
    In applications which involve many such calculations, rather
+        than calling the present routine it will be more efficient to
+        use inline code, having previously computed fixed terms such
+        as sine and cosine of latitude, and (for tracking a star)
+        sine and cosine of declination.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AMP - Apparent to Mean
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AIRMAS - Air Mass
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node170.html b/src/slalib/sun67.htx/node170.html
new file mode 100644
index 0000000..3f0f1a1
--- /dev/null
+++ b/src/slalib/sun67.htx/node170.html
@@ -0,0 +1,111 @@
+
+
+
+
+SLA_RVEROT - RV Corrn to Earth Centre
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RVGALC - RV Corrn to Galactic Centre
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_REFZ - Apply Refraction to ZD
+
     
     
    
+
    
+
    SLA_RVEROT - RV Corrn to Earth Centre
+  
+
    
+       
    
+
    ACTION:
+
    Velocity component in a given direction due to Earth rotation.
+
    CALL:
+
    R = sla_RVEROT (PHI, RA, DA, ST)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    PHIRgeodetic latitude of observing station (radians)
    RA,DARapparent $[\,\alpha,\delta\,]$ (radians)
    STRlocal apparent sidereal time (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_RVEROTRComponent of Earth rotation in
+direction RA,DA (km s-1)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Sign convention: the result is positive when the observatory
+is receding from the given point on the sky.
+
    2.
+
    Accuracy: the simple algorithm used assumes a spherical Earth and
+        an observing station at sea level;  for actual observing
+        sites, the error is unlikely to be greater than 0.0005 km s-1.
+        For applications requiring greater precision, use the routine
+        sla_PVOBS.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RVGALC - RV Corrn to Galactic Centre
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_REFZ - Apply Refraction to ZD
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node171.html b/src/slalib/sun67.htx/node171.html
new file mode 100644
index 0000000..307d861
--- /dev/null
+++ b/src/slalib/sun67.htx/node171.html
@@ -0,0 +1,115 @@
+
+
+
+
+SLA_RVGALC - RV Corrn to Galactic Centre
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RVLG - RV Corrn to Local Group
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RVEROT - RV Corrn to Earth Centre
+
     
     
    
+
    
+
    SLA_RVGALC - RV Corrn to Galactic Centre
+  
+
    
+       
    
+
    ACTION:
+
    Velocity component in a given direction due to the rotation
+of the Galaxy.
+
        
    CALL:
+
    R = sla_RVGALC (R2000, D2000)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    R2000,D2000RJ2000.0 mean $[\,\alpha,\delta\,]$ (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_RVGALCRComponent of dynamical LSR motion in direction
+R2000,D2000 (km s-1)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Sign convention: the result is positive when the LSR
+is receding from the given point on the sky.
+
    2.
+
    The Local Standard of Rest used here is a point in the
+        vicinity of the Sun which is in a circular orbit around
+        the Galactic centre.  Sometimes called the dynamical LSR,
+        it is not to be confused with a kinematical LSR, which
+        is the mean standard of rest of star catalogues or stellar
+        populations.
+  
    3.
+
    The dynamical LSR velocity due to Galactic rotation is assumed to
+        be 220 km s-1 towards $l^{I\!I}=90^{\circ}$,                                   $b^{I\!I}=0$. 
    
+
         
    
+
    REFERENCE:
+
    Kerr & Lynden-Bell (1986), MNRAS, 221, p1023.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RVLG - RV Corrn to Local Group
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RVEROT - RV Corrn to Earth Centre
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node172.html b/src/slalib/sun67.htx/node172.html
new file mode 100644
index 0000000..561680e
--- /dev/null
+++ b/src/slalib/sun67.htx/node172.html
@@ -0,0 +1,101 @@
+
+
+
+
+SLA_RVLG - RV Corrn to Local Group
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RVLSRD - RV Corrn to Dynamical LSR
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RVGALC - RV Corrn to Galactic Centre
+
     
     
    
+
    
+
    SLA_RVLG - RV Corrn to Local Group
+  
+
    
+       
    
+
    ACTION:
+
    Velocity component in a given direction due to the combination
+of the rotation of the Galaxy and the motion of the Galaxy
+         relative to the mean motion of the local group.
+
        
    CALL:
+
    R = sla_RVLG (R2000, D2000)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    R2000,D2000RJ2000.0 mean $[\,\alpha,\delta\,]$ (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_RVLGRComponent of solar (n.b.)
+motion in direction R2000,D2000 (km s-1)
    
+
          
    
+
    NOTE:
+
    Sign convention: the result is positive when
+the Sun is receding from the given point on the sky.
+      
    
+
         
    
+
    REFERENCE:
+
    IAU Trans. 1976. 16B, p201.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RVLSRD - RV Corrn to Dynamical LSR
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RVGALC - RV Corrn to Galactic Centre
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node173.html b/src/slalib/sun67.htx/node173.html
new file mode 100644
index 0000000..2ae01da
--- /dev/null
+++ b/src/slalib/sun67.htx/node173.html
@@ -0,0 +1,121 @@
+
+
+
+
+SLA_RVLSRD - RV Corrn to Dynamical LSR
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RVLSRK - RV Corrn to Kinematical LSR
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RVLG - RV Corrn to Local Group
+
     
     
    
+
    
+
    SLA_RVLSRD - RV Corrn to Dynamical LSR
+  
+
    
+       
    
+
    ACTION:
+
    Velocity component in a given direction due to the Sun's
+motion with respect to the ``dynamical'' Local Standard of Rest.
+
        
    CALL:
+
    R = sla_RVLSRD (R2000, D2000)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    R2000,D2000RJ2000.0 mean $[\,\alpha,\delta\,]$ (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_RVLSRDRComponent of peculiar solar motion
+in direction R2000,D2000 (km s-1)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Sign convention: the result is positive when
+the Sun is receding from the given point on the sky.
+
    2.
+
    The Local Standard of Rest used here is the dynamical LSR,
+        a point in the vicinity of the Sun which is in a circular
+        orbit around the Galactic centre.  The Sun's motion with
+        respect to the dynamical LSR is called the peculiar solar
+        motion.
+  
    3.
+
    There is another type of LSR, called a kinematical LSR.  A
+        kinematical LSR is the mean standard of rest of specified star
+        catalogues or stellar populations, and several slightly
+        different kinematical LSRs are in use.  The Sun's motion with
+        respect to an agreed kinematical LSR is known as the
+        standard solar motion.
+        The dynamical LSR is seldom used by observational astronomers,
+        who conventionally use a kinematical LSR such as the one implemented
+        in the routine sla_RVLSRK.
+  
    4.
+
    The peculiar solar motion is from Delhaye (1965), in Stars
+        and Stellar Systems, vol 5, p73:  in Galactic Cartesian
+        coordinates (+9,+12,+7) km s-1.
+        This corresponds to about 16.6 km s-1
+        towards Galactic coordinates $l^{I\!I}=53^{\circ},b^{I\!I}=+25^{\circ}$. 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_RVLSRK - RV Corrn to Kinematical LSR
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RVLG - RV Corrn to Local Group
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node174.html b/src/slalib/sun67.htx/node174.html
new file mode 100644
index 0000000..f243766
--- /dev/null
+++ b/src/slalib/sun67.htx/node174.html
@@ -0,0 +1,126 @@
+
+
+
+
+SLA_RVLSRK - RV Corrn to Kinematical LSR
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_S2TP - Spherical to Tangent Plane
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RVLSRD - RV Corrn to Dynamical LSR
+
     
     
    
+
    
+
    SLA_RVLSRK - RV Corrn to Kinematical LSR
+  
+
    
+       
    
+
    ACTION:
+
    Velocity component in a given direction due to the Sun's
+motion with respect to a kinematical Local Standard of Rest.
+
        
    CALL:
+
    R = sla_RVLSRK (R2000, D2000)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    R2000,D2000RJ2000.0 mean $[\,\alpha,\delta\,]$ (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_RVLSRKRComponent of standard solar motion
+in direction R2000,D2000 (km s-1)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Sign convention: the result is positive when
+the Sun is receding from the given point on the sky.
+
    2.
+
    The Local Standard of Rest used here is one of several
+        kinematical LSRs in common use.  A kinematical LSR is the
+        mean standard of rest of specified star catalogues or stellar
+        populations.  The Sun's motion with respect to a kinematical
+        LSR is known as the standard solar motion.
+  
    3.
+
    There is another sort of LSR, seldom used by observational
+        astronomers, called the dynamical LSR.  This is a
+        point in the vicinity of the Sun which is in a circular orbit
+        around the Galactic centre.  The Sun's motion with respect to
+        the dynamical LSR is called the peculiar solar motion.  To
+        obtain a radial velocity correction with respect to the
+        dynamical LSR use the routine sla_RVLSRD.
+  
    4.
+
    The adopted standard solar motion is 20 km s-1
+        towards $\alpha=18^{\rm h},\delta=+30^{\circ}$ (1900).
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    Delhaye (1965), in Stars and Stellar Systems, vol 5, p73.
+
    2.
+
    Methods of Experimental Physics (ed Meeks), vol 12,
+part C, sec 6.1.5.2, p281.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_S2TP - Spherical to Tangent Plane
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RVLSRD - RV Corrn to Dynamical LSR
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node175.html b/src/slalib/sun67.htx/node175.html
new file mode 100644
index 0000000..5c3e6c7
--- /dev/null
+++ b/src/slalib/sun67.htx/node175.html
@@ -0,0 +1,129 @@
+
+
+
+
+SLA_S2TP - Spherical to Tangent Plane
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_SEP - Angle Between 2 Points on Sphere
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RVLSRK - RV Corrn to Kinematical LSR
+
     
     
    
+
    
+
    SLA_S2TP - Spherical to Tangent Plane
+  
+
    
+       
    
+
    ACTION:
+
    Projection of spherical coordinates onto the tangent plane
+(single precision).
+
        
    CALL:
+
    CALL sla_S2TP (RA, DEC, RAZ, DECZ, XI, ETA, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    RA,DECRspherical coordinates of star (radians)
    RAZ,DECZRspherical coordinates of tangent point (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    XI,ETARtangent plane coordinates (radians)
    JIstatus:
      0 = OK, star on tangent plane
      1 = error, star too far from axis
      2 = error, antistar on tangent plane
      3 = error, antistar too far from axis
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The projection is called the gnomonic projection;  the
+Cartesian coordinates $[\,\xi,\eta\,]$ are called 
+standard coordinates.  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, i.e. radians near the origin.
+  
    2.
+
    When working in $[\,x,y,z\,]$ rather than spherical coordinates, the
+        equivalent Cartesian routine sla_V2TP is available.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_SEP - Angle Between 2 Points on Sphere
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_RVLSRK - RV Corrn to Kinematical LSR
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node176.html b/src/slalib/sun67.htx/node176.html
new file mode 100644
index 0000000..a12d2ab
--- /dev/null
+++ b/src/slalib/sun67.htx/node176.html
@@ -0,0 +1,100 @@
+
+
+
+
+SLA_SEP - Angle Between 2 Points on Sphere
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_SMAT - Solve Simultaneous Equations
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_S2TP - Spherical to Tangent Plane
+
     
     
    
+
    
+
    SLA_SEP - Angle Between 2 Points on Sphere
+  
+
    
+       
    
+
    ACTION:
+
    Angle between two points on a sphere (single precision).
+
    CALL:
+
    R = sla_SEP (A1, B1, A2, B2)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    A1,B1Rspherical coordinates of one point (radians)
    A2,B2Rspherical coordinates of the other point (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_SEPRangle between [A1,B1] and [A2,B2] in radians
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The spherical coordinates are right ascension and declination,
+longitude and latitude, etc. in radians.
+
    2.
+
    The result is always positive.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_SMAT - Solve Simultaneous Equations
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_S2TP - Spherical to Tangent Plane
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node177.html b/src/slalib/sun67.htx/node177.html
new file mode 100644
index 0000000..733a9c6
--- /dev/null
+++ b/src/slalib/sun67.htx/node177.html
@@ -0,0 +1,152 @@
+
+
+
+
+SLA_SMAT - Solve Simultaneous Equations
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_SUBET - Remove E-terms
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_SEP - Angle Between 2 Points on Sphere
+
     
     
    
+
    
+
    SLA_SMAT - Solve Simultaneous Equations
+  
+
    
+       
    
+
    ACTION:
+
    Matrix inversion and solution of simultaneous equations
+(single precision).
+
        
    CALL:
+
    CALL sla_SMAT (N, A, Y, D, JF, IW)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    NInumber of unknowns
    AR(N,N)matrix
    YR(N)vector
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    AR(N,N)matrix inverse
    YR(N)solution
    DRdeterminant
    JFIsingularity flag: 0=OK
    IWI(N)workspace
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    For the set of n simultaneous linear equations in n unknowns:
+
    A$\cdot$y = x
+
    
+        where:
+        
      
+
    •  A is a non-singular $n \times n$ matrix,
+
    •  y is the vector of n unknowns, and
+
    •  x is the known vector,
+        
    
+        sla_SMAT computes:
+        
      
+
    •  the inverse of matrix A,
+
    •  the determinant of matrix A, and
+
    •  the vector of n unknowns y.
+        
    
+        Argument N is the order n, A (given) is the matrix A,
+        Y (given) is the vector x and Y (returned)
+        is the vector y.
+        The argument A (returned) is the inverse matrix A-1,
+        and D is det(A).
+  
    2.
+
    JF is the singularity flag.  If the matrix is non-singular,
+        JF=0 is returned.  If the matrix is singular, JF=-1
+        and D=0.0 are returned.  In the latter case, the contents
+        of array A on return are undefined.
+  
    3.
+
    The algorithm is Gaussian elimination with partial pivoting.
+        This method is very fast;  some much slower algorithms can give
+        better accuracy, but only by a small factor.
+  
    4.
+
    This routine replaces the obsolete sla_SMATRX.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_SUBET - Remove E-terms
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_SEP - Angle Between 2 Points on Sphere
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node178.html b/src/slalib/sun67.htx/node178.html
new file mode 100644
index 0000000..3d7a547
--- /dev/null
+++ b/src/slalib/sun67.htx/node178.html
@@ -0,0 +1,111 @@
+
+
+
+
+SLA_SUBET - Remove E-terms
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_SUPGAL - Supergalactic to Galactic
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_SMAT - Solve Simultaneous Equations
+
     
     
    
+
    
+
    SLA_SUBET - Remove E-terms
+  
+
    
+       
    
+
    ACTION:
+
    Remove the E-terms (elliptic component of annual aberration)
+from a pre IAU 1976 catalogue $[\,\alpha,\delta\,]$ to give a mean place.
+
        
    CALL:
+
    CALL sla_SUBET (RC, DC, EQ, RM, DM)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    RC,DCD$[\,\alpha,\delta\,]$ with E-terms included (radians)
    EQDBesselian epoch of mean equator and equinox
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RM,DMD$[\,\alpha,\delta\,]$ without E-terms (radians)
    
+
          
    
+
    NOTE:
+
    Most star positions from pre-1984 optical catalogues (or
+obtained by astrometry with respect to such stars) have the
+       E-terms built-in.  This routine converts such a position to a
+       formal mean place (allowing, for example, comparison with a
+       pulsar timing position).
+      
    
+
         
    
+
    REFERENCE:
+
    Explanatory Supplement to the Astronomical Ephemeris,
+section 2D, page 48.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_SUPGAL - Supergalactic to Galactic
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_SMAT - Solve Simultaneous Equations
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node179.html b/src/slalib/sun67.htx/node179.html
new file mode 100644
index 0000000..1b5da60
--- /dev/null
+++ b/src/slalib/sun67.htx/node179.html
@@ -0,0 +1,107 @@
+
+
+
+
+SLA_SUPGAL - Supergalactic to Galactic
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_SVD - Singular Value Decomposition
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_SUBET - Remove E-terms
+
     
     
    
+
    
+
    SLA_SUPGAL - Supergalactic to Galactic
+  
+
    
+       
    
+
    ACTION:
+
    Transformation from de Vaucouleurs supergalactic coordinates
+to IAU 1958 galactic coordinates.
+
        
    CALL:
+
    CALL sla_GALSUP (DL, DB, DSL, DSB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DSL,DSBDsupergalactic longitude and latitude (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    DL,DBDgalactic longitude and latitude $[\,l^{I\!I},b^{I\!I}\,]$ (radians)
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    de Vaucouleurs, de Vaucouleurs, & Corwin, Second Reference
+Catalogue of Bright Galaxies, U.Texas, p8.
+
    2.
+
    Systems & Applied Sciences Corp., documentation for the
+        machine-readable version of the above catalogue,
+        Contract NAS 5-26490.
+ 
    
+ (These two references give different values for the galactic
+ longitude of the supergalactic origin.  Both are wrong;  the
+ correct value is $l^{I\!I}=137.37$.)
+
         
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_SVD - Singular Value Decomposition
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_SUBET - Remove E-terms
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node18.html b/src/slalib/sun67.htx/node18.html
new file mode 100644
index 0000000..e3aee75
--- /dev/null
+++ b/src/slalib/sun67.htx/node18.html
@@ -0,0 +1,135 @@
+
+
+
+
+SLA_AMP - Apparent to Mean
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AMPQK - Quick Apparent to Mean
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_ALTAZ - Velocities etc. for Altazimuth Mount
+
     
     
    
+
    
+
    SLA_AMP - Apparent to Mean
+  
+
    
+       
    
+
    ACTION:
+
    Convert star $[\,\alpha,\delta\,]$ from geocentric apparent to
+mean place (post IAU 1976).
+
        
    CALL:
+
    CALL sla_AMP (RA, DA, DATE, EQ, RM, DM)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RA,DADapparent $[\,\alpha,\delta\,]$ (radians)
    DATEDTDB for apparent place (JD-2400000.5)
    EQDequinox:  Julian epoch of mean place
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RM,DMDmean $[\,\alpha,\delta\,]$ (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The distinction between the required TDB and TT is
+always negligible.  Moreover, for all but the most
+critical applications UTC is adequate.
+  
    2.
+
    The accuracy is limited by the routine sla_EVP, called
+        by sla_MAPPA, which computes the Earth position and
+        velocity using the methods of Stumpff.  The maximum
+        error is about 0.3 milliarcsecond.
+  
    3.
+
    Iterative techniques are used for the aberration and
+        light deflection corrections so that the routines
+        sla_AMP (or sla_AMPQK) and sla_MAP (or sla_MAPQK) are
+        accurate inverses;  even at the edge of the Sun's disc
+        the discrepancy is only about 1 nanoarcsecond.
+  
    4.
+
    Where multiple apparent places are to be converted to
+        mean places, for a fixed date and equinox, it is more
+        efficient to use the sla_MAPPA routine to compute the
+        required parameters once, followed by one call to
+        sla_AMPQK per star.
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    1984 Astronomical Almanac, pp B39-B41.
+
    2.
+
    Lederle & Schwan, 1984. Astr.Astrophys. 134, 1-6.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AMPQK - Quick Apparent to Mean
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_ALTAZ - Velocities etc. for Altazimuth Mount
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node180.html b/src/slalib/sun67.htx/node180.html
new file mode 100644
index 0000000..2372b60
--- /dev/null
+++ b/src/slalib/sun67.htx/node180.html
@@ -0,0 +1,184 @@
+
+
+
+
+SLA_SVD - Singular Value Decomposition
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_SVDCOV - Covariance Matrix from SVD
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_SUPGAL - Supergalactic to Galactic
+
     
     
    
+
    
+
    SLA_SVD - Singular Value Decomposition
+  
+
    
+       
    
+
    ACTION:
+
    Singular value decomposition.
+This routine expresses a given matrix A as the product of
+         three matrices U, W, VT:
+         
    
+ 		 A = U $\cdot$ W $\cdot$ VT
+
    
+         where:
+         
    
+ 		 A 		 is any m (rows) $\times n$ (columns) matrix,                       where $m \geq n$ 
+		 U 		 is an $m \times n$ column-orthogonal matrix
+		 W 		 is an $n \times n$ diagonal matrix with                       $w_{ii} \geq 0$ 
+		 VT is the transpose of an $n \times n$                             orthogonal matrix
+
    
+
        
    CALL:
+
    CALL sla_SVD (M, N, MP, NP, A, W, V, WORK, JSTAT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    M,NIm, n, the numbers of rows and columns in matrix A
    MP,NPIphysical dimensions of array containing matrix A
    AD(MP,NP)array containing $m \times n$ matrix A
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    AD(MP,NP)array containing $m \times n$ column-orthogonal
+matrix U
    WD(N)$n \times n$ diagonal matrix W
+(diagonal elements only)
    VD(NP,NP)array containing $n \times n$ orthogonal
+matrix V (n.b. not VT)
    WORKD(N)workspace
    JSTATI0 = OK, -1 = array A wrong shape, >0 = index of W
+for which convergence failed (see note 3, below)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    M and N are the logical dimensions of the
+matrices and vectors concerned, which can be located in
+arrays of larger physical dimensions, given by MP and NP.
+  
    2.
+
    V contains matrix V, not the transpose of matrix V.
+  
    3.
+
    If the status JSTAT is greater than zero, this need not
+        necessarily be treated as a failure.  It means that, due to
+        chance properties of the matrix A, the QR transformation
+        phase of the routine did not fully converge in a predefined
+        number of iterations, something that very seldom occurs.
+        When this condition does arise, it is possible that the
+        elements of the diagonal matrix W have not been correctly
+        found.  However, in practice the results are likely to
+        be trustworthy.  Applications should report the condition
+        as a warning, but then proceed normally.
+ 
    
+
         
    
+
    REFERENCES:
+
    The algorithm is an adaptation of the routine SVD in the EISPACK
+library (Garbow et al. 1977, EISPACK Guide Extension,
+      Springer Verlag), which is a FORTRAN 66 implementation of the Algol
+      routine SVD of Wilkinson & Reinsch 1971 (Handbook for Automatic
+      Computation, vol 2, ed Bauer et al., Springer Verlag).  These
+      references give full details of the algorithm used here.
+      A good account of the use of SVD in least squares problems is given
+      in Numerical Recipes (Press et al. 1987, Cambridge
+      University Press), which includes another variant of the EISPACK code.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_SVDCOV - Covariance Matrix from SVD
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_SUPGAL - Supergalactic to Galactic
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node181.html b/src/slalib/sun67.htx/node181.html
new file mode 100644
index 0000000..76e49b9
--- /dev/null
+++ b/src/slalib/sun67.htx/node181.html
@@ -0,0 +1,122 @@
+
+
+
+
+SLA_SVDCOV - Covariance Matrix from SVD
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_SVDSOL - Solution Vector from SVD
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_SVD - Singular Value Decomposition
+
     
     
    
+
    
+
    SLA_SVDCOV - Covariance Matrix from SVD
+  
+
    
+       
    
+
    ACTION:
+
    From the W and V matrices from the SVD
+factorization of a matrix
+         (as obtained from the sla_SVD routine), obtain
+         the covariance matrix.
+
        
    CALL:
+
    CALL sla_SVDCOV (N, NP, NC, W, V, WORK, CVM)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    NIn, the number of rows and columns in
+matrices W and V
    NPIfirst dimension of array containing $n \times n$matrix V
    NCIfirst dimension of array CVM
    WD(N)$n \times n$ diagonal matrix W
+(diagonal elements only)
    VD(NP,NP)array containing $n \times n$ orthogonal matrix V
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    WORKD(N)workspace
    CVMD(NC,NC)array to receive covariance matrix
    
+
         
    
+
    REFERENCE:
+
    Numerical Recipes, section 14.3.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_SVDSOL - Solution Vector from SVD
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_SVD - Singular Value Decomposition
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node182.html b/src/slalib/sun67.htx/node182.html
new file mode 100644
index 0000000..f99ea3f
--- /dev/null
+++ b/src/slalib/sun67.htx/node182.html
@@ -0,0 +1,201 @@
+
+
+
+
+SLA_SVDSOL - Solution Vector from SVD
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_TP2S - Tangent Plane to Spherical
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_SVDCOV - Covariance Matrix from SVD
+
     
     
    
+
    
+
    SLA_SVDSOL - Solution Vector from SVD
+  
+
    
+       
    
+
    ACTION:
+
    From a given vector and the SVD of a matrix (as obtained from
+the sla_SVD routine), obtain the solution vector.
+         This routine solves the equation:
+         
    
+ 		 A $\cdot$ x = b         
+
    
+         where:
+         
    
+ 		 A 		 is a given m (rows) $\times n$ (columns)                       matrix, where $m \geq n$ 
+		 x 		 is the n-vector we wish to find, and
+		 b 		 is a given m-vector         
+
    
+         by means of the Singular Value Decomposition method (SVD).
+
        
    CALL:
+
    CALL sla_SVDSOL (M, N, MP, NP, B, U, W, V, WORK, X)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    M,NIm, n, the numbers of rows and columns in matrix A
    MP,NPIphysical dimensions of array containing matrix A
    BD(M)known vector b
    UD(MP,NP)array containing $m \times n$ matrix U
    WD(N)$n \times n$ diagonal matrix W
+(diagonal elements only)
    VD(NP,NP)array containing $n \times n$ orthogonal matrix V
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    WORKD(N)workspace
    XD(N)unknown vector x
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    In the Singular Value Decomposition method (SVD),
+the matrix A is first factorized (for example by
+the routine sla_SVD) into the following components:
+        
    
+ 		 A = U $\cdot$ W $\cdot$ VT
+
    
+        where:
+        
    
+ 		 A 		 is any m (rows) $\times n$ (columns) matrix,                      where m > n 
+		 U 		 is an $m \times n$ column-orthogonal matrix
+		 W 		 is an $n \times n$ diagonal matrix with                      $w_{ii} \geq 0$ 
+		 VT is the transpose of an $n \times n$                            orthogonal matrix        
+
    
+        Note that m and n are the logical dimensions of the
+        matrices and vectors concerned, which can be located in
+        arrays of larger physical dimensions MP and NP.
+        The solution is then found from the expression:
+        
    
+ 		 x = V $\cdot~[diag(1/$W$_{j})]
+ \cdot ($U$^{T}\cdot$b)        
+
    
+  
    2.
+
    If matrix A is square, and if the diagonal matrix W is not
+        altered, the method is equivalent to conventional solution
+        of simultaneous equations.
+  
    3.
+
    If m > n, the result is a least-squares fit.
+  
    4.
+
    If the solution is poorly determined, this shows up in the
+        SVD factorization as very small or zero Wj values.  Where
+        a Wj value is small but non-zero it can be set to zero to
+        avoid ill effects.  The present routine detects such zero
+        Wj values and produces a sensible solution, with highly
+        correlated terms kept under control rather than being allowed
+        to elope to infinity, and with meaningful values for the
+       other terms.
+ 
    
+
         
    
+
    REFERENCE:
+
    Numerical Recipes, section 2.9.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_TP2S - Tangent Plane to Spherical
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_SVDCOV - Covariance Matrix from SVD
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node183.html b/src/slalib/sun67.htx/node183.html
new file mode 100644
index 0000000..ae3acd0
--- /dev/null
+++ b/src/slalib/sun67.htx/node183.html
@@ -0,0 +1,109 @@
+
+
+
+
+SLA_TP2S - Tangent Plane to Spherical
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_TP2V - Tangent Plane to Direction Cosines
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_SVDSOL - Solution Vector from SVD
+
     
     
    
+
    
+
    SLA_TP2S - Tangent Plane to Spherical
+  
+
    
+       
    
+
    ACTION:
+
    Transform tangent plane coordinates into spherical
+coordinates (single precision)
+
        
    CALL:
+
    CALL sla_TP2S (XI, ETA, RAZ, DECZ, RA, DEC)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    XI,ETARtangent plane rectangular coordinates (radians)
    RAZ,DECZRspherical coordinates of tangent point (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RA,DECRspherical coordinates (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The projection is called the gnomonic projection;  the
+Cartesian coordinates $[\,\xi,\eta\,]$ are called 
+standard coordinates.  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, i.e. radians near the origin.
+  
    2.
+
    When working in $[\,x,y,z\,]$ rather than spherical coordinates, the
+        equivalent Cartesian routine sla_TP2V is available.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_TP2V - Tangent Plane to Direction Cosines
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_SVDSOL - Solution Vector from SVD
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node184.html b/src/slalib/sun67.htx/node184.html
new file mode 100644
index 0000000..f069a46
--- /dev/null
+++ b/src/slalib/sun67.htx/node184.html
@@ -0,0 +1,117 @@
+
+
+
+
+SLA_TP2V - Tangent Plane to Direction Cosines
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_TPS2C - Plate centre from and
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_TP2S - Tangent Plane to Spherical
+
     
     
    
+
    
+
    SLA_TP2V - Tangent Plane to Direction Cosines
+  
+
    
+       
    
+
    ACTION:
+
    Given the tangent-plane coordinates of a star and the direction
+cosines of the tangent point, determine the direction cosines
+         of the star
+         (single precision).
+
        
    CALL:
+
    CALL sla_TP2V (XI, ETA, V0, V)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    XI,ETARtangent plane coordinates of star (radians)
    V0R(3)direction cosines of tangent point
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    VR(3)direction cosines of star
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    If vector V0 is not of unit length, the returned vector V will
+be wrong.
+
    2.
+
    If vector V0 points at a pole, the returned vector V will be
+        based on the arbitrary assumption that $\alpha=0$ at
+        the tangent point.
+  
    3.
+
    The projection is called the gnomonic projection;  the
+        Cartesian coordinates $[\,\xi,\eta\,]$ are called 
+        standard coordinates.  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, i.e. radians near the origin.
+  
    4.
+
    This routine is the Cartesian equivalent of the routine sla_TP2S.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_TPS2C - Plate centre from and
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_TP2S - Tangent Plane to Spherical
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node185.html b/src/slalib/sun67.htx/node185.html
new file mode 100644
index 0000000..0313e77
--- /dev/null
+++ b/src/slalib/sun67.htx/node185.html
@@ -0,0 +1,168 @@
+
+
+
+
+SLA_TPS2C - Plate centre from and 
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_TPV2C - Plate centre from and x,y,z
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_TP2V - Tangent Plane to Direction Cosines
+
     
     
    
+
    
+
       
+
    
+SLA_TPS2C - Plate centre from $\xi,\eta$ and $\alpha,\delta$
    
+       
    
+
    ACTION:
+
    From the tangent plane coordinates of a star of known $[\,\alpha,\delta\,]$,determine the $[\,\alpha,\delta\,]$ of the tangent point (single precision)
+
        
    CALL:
+
    CALL sla_TPS2C (XI, ETA, RA, DEC, RAZ1, DECZ1, RAZ2, DECZ2, N)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    XI,ETARtangent plane rectangular coordinates (radians)
    RA,DECRspherical coordinates (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RAZ1,DECZ1Rspherical coordinates of tangent point,
+solution 1
    RAZ2,DECZ2Rspherical coordinates of tangent point,
+solution 2
    NInumber of solutions:
      0 = no solutions returned  (note 2)
      1 = only the first solution is useful (note 3)
      2 = there are two useful solutions (note 3)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The RAZ1 and RAZ2 values returned are in the range $0\!-\!2\pi$.
    2.
+
    Cases where there is no solution can only arise near the poles.
+For example, it is clearly impossible for a star at the pole
+        itself to have a non-zero $\xi$ value, and hence it is
+        meaningless to ask where the tangent point would have to be
+        to bring about this combination of $\xi$ and $\delta$.  
    3.
+
    Also near the poles, cases can arise where there are two useful
+        solutions.  The argument N indicates whether the second of the
+        two solutions returned is useful.  N=1
+        indicates only one useful solution, the usual case;  under
+        these circumstances, the second solution corresponds to the
+        ``over-the-pole'' case, and this is reflected in the values
+        of RAZ2 and DECZ2 which are returned.
+  
    4.
+
    The DECZ1 and DECZ2 values returned are in the range $\pm \pi$,        but in the ordinary, non-pole-crossing, case, the range is
+        $\pm\pi/2$.  
    5.
+
    RA, DEC, RAZ1, DECZ1, RAZ2, DECZ2 are all in radians.
+  
    6.
+
    The projection is called the gnomonic projection;  the
+        Cartesian coordinates $[\,\xi,\eta\,]$ are called 
+        standard coordinates.  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, i.e. radians near the origin.
+  
    7.
+
    When working in $[\,x,y,z\,]$ rather than spherical coordinates, the
+        equivalent Cartesian routine sla_TPV2C is available.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_TPV2C - Plate centre from and x,y,z
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_TP2V - Tangent Plane to Direction Cosines
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node186.html b/src/slalib/sun67.htx/node186.html
new file mode 100644
index 0000000..32d0e60
--- /dev/null
+++ b/src/slalib/sun67.htx/node186.html
@@ -0,0 +1,144 @@
+
+
+
+
+SLA_TPV2C - Plate centre from and x,y,z
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_UE2EL - Universal to Conventional Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_TPS2C - Plate centre from and
+
     
     
    
+
    
+
       
+
    
+SLA_TPV2C - Plate centre from $\xi,\eta$ and x,y,z
+
    
+       
    
+
    ACTION:
+
    From the tangent plane coordinates of a star of known
+direction cosines, determine the direction cosines
+         of the tangent point (single precision)
+
        
    CALL:
+
    CALL sla_TPV2C (XI, ETA, V, V01, V02, N)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    XI,ETARtangent plane coordinates of star (radians)
    VR(3)direction cosines of star
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    V01R(3)direction cosines of tangent point, solution 1
    V01R(3)direction cosines of tangent point, solution 2
    NInumber of solutions:
      0 = no solutions returned  (note 2)
      1 = only the first solution is useful (note 3)
      2 = there are two useful solutions (note 3)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The vector V must be of unit length or the result will be wrong.
+
    2.
+
    Cases where there is no solution can only arise near the poles.
+For example, it is clearly impossible for a star at the pole
+        itself to have a non-zero XI value.
+  
    3.
+
    Also near the poles, cases can arise where there are two useful
+        solutions.  The argument N indicates whether the second of the
+        two solutions returned is useful.
+        N=1
+        indicates only one useful solution, the usual case;  under these
+        circumstances, the second solution can be regarded as valid if
+        the vector V02 is interpreted as the ``over-the-pole'' case.
+  
    4.
+
    The projection is called the gnomonic projection;  the
+        Cartesian coordinates $[\,\xi,\eta\,]$ are called 
+        standard coordinates.  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, i.e. radians near the origin.
+  
    5.
+
    This routine is the Cartesian equivalent of the routine sla_TPS2C.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_UE2EL - Universal to Conventional Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_TPS2C - Plate centre from and
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node187.html b/src/slalib/sun67.htx/node187.html
new file mode 100644
index 0000000..9b71eb3
--- /dev/null
+++ b/src/slalib/sun67.htx/node187.html
@@ -0,0 +1,378 @@
+
+
+
+
+SLA_UE2EL - Universal to Conventional Elements
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_UE2PV - Pos/Vel from Universal Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_TPV2C - Plate centre from and x,y,z
+
     
     
    
+
    
+
    SLA_UE2EL - Universal to Conventional Elements
+  
+
    
+       
    
+
    ACTION:
+
    Transform universal elements into conventional heliocentric
+osculating elements.
+
        
    CALL:
+
    CALL sla_UE2EL (
+         U, JFORMR,
+         JFORM, EPOCH, ORBINC, ANODE, PERIH,
+         AORQ, E, AORL, DM, JSTAT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    UD(13)universal orbital elements (updated; Note 1)
    (1)combined mass (M+m)
    (2)total energy of the orbit ($\alpha$)
    (3)reference (osculating) epoch (t0)
    (4-6)position at reference epoch (${\rm \bf r}_0$)
    (7-9)velocity at reference epoch (${\rm \bf v}_0$)
    (10)heliocentric distance at reference epoch
    (11)${\rm \bf r}_0.{\rm \bf v}_0$
    (12)date (t)
    (13)universal eccentric anomaly ($\psi$) of date, approx
       
    JFORMRIrequested element set (1-3; Note 3)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    JFORMIelement set actually returned (1-3; Note 4)
    EPOCHDepoch of elements (t0 or T, TT MJD)
    ORBINCDinclination (i, radians)
    ANODEDlongitude of the ascending node ($\Omega$, radians)
    PERIHDlongitude or argument of perihelion
+($\varpi$ or $\omega$,
      radians)
    AORQDmean distance or perihelion distance (a or q, AU)
    EDeccentricity (e)
    AORLDmean anomaly or longitude
+(M or L, radians,
      JFORM=1,2 only)
    DMDdaily motion (n, radians, JFORM=1 only)
    JSTATIstatus:
         0 = OK
      -1 = illegal PMASS
      -2 = illegal JFORMR
      -3 = position/velocity out of allowed range
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The ``universal'' elements are those which define the orbit for the
+purposes of the method of universal variables (see reference 2).
+They consist of the combined mass of the two bodies, an epoch,
+        and the position and velocity vectors (arbitrary reference frame)
+        at that epoch.  The parameter set used here includes also various
+        quantities that can, in fact, be derived from the other
+        information.  This approach is taken to avoiding unnecessary
+        computation and loss of accuracy.  The supplementary quantities
+        are (i) $\alpha$, which is proportional to the total energy of the
+        orbit, (ii) the heliocentric distance at epoch,
+        (iii) the outwards component of the velocity at the given epoch,
+        (iv) an estimate of $\psi$, the ``universal eccentric anomaly'' at a
+        given date and (v) that date.
+  
    2.
+
    The universal elements are with respect to the mean equator and
+        equinox of epoch J2000.  The orbital elements produced are with
+        respect to the J2000 ecliptic and mean equinox.
+  
    3.
+
    Three different element-format options are supported, as
+        follows. 
    
+
    
+JFORM=1, suitable for the major planets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of elements t0 (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 longitude of perihelion $\varpi$ (radians)
+		 AORQ 		 = 		 mean distance a (AU)
+		 E 		 = 		 eccentricity e $( 0 \leq e < 1 )$ 
+		 AORL 		 = 		 mean longitude L (radians)
+		 DM 		 = 		 daily motion n (radians)        
+
    
+
    
+JFORM=2, suitable for minor planets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of elements t0 (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 argument of perihelion $\omega$ (radians)
+		 AORQ 		 = 		 mean distance a (AU)
+		 E 		 = 		 eccentricity e $( 0 \leq e < 1 )$ 
+		 AORL 		 = 		 mean anomaly M (radians)        
+
    
+
    
+JFORM=3, suitable for comets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of perihelion T (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 argument of perihelion $\omega$ (radians)
+		 AORQ 		 = 		 perihelion distance q (AU)
+		 E 		 = 		 eccentricity e $( 0 \leq e \leq 10 )$
    
+  
    4.
+
    It may not be possible to generate elements in the form
+        requested through JFORMR.  The caller is notified of the form
+        of elements actually returned by means of the JFORM argument:
+
            
    
+ 		 JFORMR 		 JFORM 		 meaning 
+ 
+		      1 		      1 		 OK: elements are in the requested format
+		      1 		      2 		 never happens
+		      1 		      3 		 orbit not elliptical
+		      2 		      1 		 never happens
+		      2 		      2 		 OK: elements are in the requested format
+		      2 		      3 		 orbit not elliptical
+		      3 		      1 		 never happens
+		      3 		      2 		 never happens
+		      3 		      3 		 OK: elements are in the requested format        
+
    
+  
    5.
+
    The arguments returned for each value of JFORM (cf Note 5:
+        JFORM may not be the same as JFORMR) are as follows:
+
            
    
+ 		 JFORM 		 1 		 2 		 3 
+ 
+		 EPOCH 		 t0 t0 T 
+		 ORBINC 		 i i i 
+		 ANODE 		 $\Omega$ $\Omega$ $\Omega$ 
+		 PERIH 		 $\varpi$ $\omega$ $\omega$ 
+		 AORQ 		 a a q 
+		 E 		 e e e 
+		 AORL 		 L M -
+		 DM 		 n - 		 -        
+
    
+
    
+where:
+        
    
+ 		 t0 is the epoch of the elements (MJD, TT)
+		 T is the epoch of perihelion (MJD, TT)
+		 i is the inclination (radians)
+		 $\Omega$ is the longitude of the ascending node (radians)
+		 $\varpi$ is the longitude of perihelion (radians)
+		 $\omega$ is the argument of perihelion (radians)
+		 a is the mean distance (AU)
+		 q is the perihelion distance (AU)
+		 e is the eccentricity
+		 L is the longitude (radians, $0-2\pi$)		 M is the mean anomaly (radians, $0-2\pi$)		 n is the daily motion (radians)
+		 - 		 means no value is set        
+
    
+  
    6.
+
    At very small inclinations, the longitude of the ascending node
+        ANODE becomes indeterminate and under some circumstances may be
+        set arbitrarily to zero.  Similarly, if the orbit is close to
+        circular, the true anomaly becomes indeterminate and under some
+        circumstances may be set arbitrarily to zero.  In such cases,
+        the other elements are automatically adjusted to compensate,
+        and so the elements remain a valid description of the orbit.
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    Sterne, Theodore E., An Introduction to Celestial Mechanics,
+Interscience Publishers, 1960.  Section 6.7, p199.
+
    2.
+
    Everhart, E. & Pitkin, E.T., Am. J. Phys. 51, 712, 1983.
+   
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_UE2PV - Pos/Vel from Universal Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_TPV2C - Plate centre from and x,y,z
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node188.html b/src/slalib/sun67.htx/node188.html
new file mode 100644
index 0000000..bc0c8bd
--- /dev/null
+++ b/src/slalib/sun67.htx/node188.html
@@ -0,0 +1,220 @@
+
+
+
+
+SLA_UE2PV - Pos/Vel from Universal Elements
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_UNPCD - Remove Radial Distortion
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_UE2EL - Universal to Conventional Elements
+
     
     
    
+
    
+
    SLA_UE2PV - Pos/Vel from Universal Elements
+  
+
    
+       
    
+
    ACTION:
+
    Heliocentric position and velocity of a planet, asteroid or comet,
+starting from orbital elements in the ``universal variables'' form.
+
        
    CALL:
+
    CALL sla_UE2PV (DATE, U, PV, JSTAT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DATEDdate (TT Modified Julian Date = JD-2400000.5)
    
+
         
    
+
    GIVEN and RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    UD(13)universal orbital elements (updated; Note 1)
    (1)combined mass (M+m)
    (2)total energy of the orbit ($\alpha$)
    (3)reference (osculating) epoch (t0)
    (4-6)position at reference epoch (${\rm \bf r}_0$)
    (7-9)velocity at reference epoch (${\rm \bf v}_0$)
    (10)heliocentric distance at reference epoch
    (11)${\rm \bf r}_0.{\rm \bf v}_0$
    (12)date (t)
    (13)universal eccentric anomaly ($\psi$) of date, approx
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    PVD(6)heliocentric $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$, equatorial, J2000
      (AU, AU/s; Note 1)
    JSTATIstatus:
           0 = OK
         -1 = radius vector zero
         -2 = failed to converge
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The ``universal'' elements are those which define the orbit for the
+purposes of the method of universal variables (see reference).
+They consist of the combined mass of the two bodies, an epoch,
+        and the position and velocity vectors (arbitrary reference frame)
+        at that epoch.  The parameter set used here includes also various
+        quantities that can, in fact, be derived from the other
+        information.  This approach is taken to avoiding unnecessary
+        computation and loss of accuracy.  The supplementary quantities
+        are (i) $\alpha$, which is proportional to the total energy of the
+        orbit, (ii) the heliocentric distance at epoch,
+        (iii) the outwards component of the velocity at the given epoch,
+        (iv) an estimate of $\psi$, the ``universal eccentric anomaly'' at a
+        given date and (v) that date.
+  
    2.
+
    The companion routine is sla_EL2UE.  This takes the conventional
+        orbital elements and transforms them into the set of numbers
+        needed by the present routine.  A single prediction requires one
+        one call to sla_EL2UE followed by one call to the present routine;
+        for convenience, the two calls are packaged as the routine
+        sla_PLANEL.  Multiple predictions may be made by again
+        calling sla_EL2UE once, but then calling the present routine
+        multiple times, which is faster than multiple calls to sla_PLANEL.
+
    
+It is not obligatory to use sla_EL2UE to obtain the parameters.
+        However, it should be noted that because sla_EL2UE performs its
+        own validation, no checks on the contents of the array U are made
+        by the present routine.
+  
    3.
+
    DATE is the instant for which the prediction is required.  It is
+        in the TT timescale (formerly Ephemeris Time, ET) and is a
+        Modified Julian Date (JD-2400000.5).
+  
    4.
+
    The universal elements supplied in the array U are in canonical
+        units (solar masses, AU and canonical days).  The position and
+        velocity are not sensitive to the choice of reference frame.  The
+        sla_EL2UE routine in fact produces coordinates with respect to the
+        J2000 equator and equinox.
+  
    5.
+
    The algorithm was originally adapted from the EPHSLA program of
+        D.H.P.Jones (private communication, 1996).  The method
+        is based on Stumpff's Universal Variables.
+ 
    
+
         
    
+
    REFERENCE:
+
    Everhart, E. & Pitkin, E.T., Am. J. Phys. 51, 712, 1983.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_UNPCD - Remove Radial Distortion
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_UE2EL - Universal to Conventional Elements
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node189.html b/src/slalib/sun67.htx/node189.html
new file mode 100644
index 0000000..a19516f
--- /dev/null
+++ b/src/slalib/sun67.htx/node189.html
@@ -0,0 +1,160 @@
+
+
+
+
+SLA_UNPCD - Remove Radial Distortion
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_V2TP - Direction Cosines to Tangent Plane
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_UE2PV - Pos/Vel from Universal Elements
+
     
     
    
+
    
+
    SLA_UNPCD - Remove Radial Distortion
+  
+
    
+       
    
+
    ACTION:
+
    Remove pincushion/barrel distortion from a distorted 
+$[\,x,y\,]$  to give tangent-plane $[\,x,y\,]$.
        
    CALL:
+
    CALL sla_UNPCD (DISCO,X,Y)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    DISCODpincushion/barrel distortion coefficient
    X,YDdistorted $[\,x,y\,]$
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    X,YDtangent-plane $[\,x,y\,]$
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The distortion is of the form $\rho = r (1 + c r^{2})$, where r is
+the radial distance from the tangent point, c is the DISCO
+argument, and $\rho$ is the radial distance in the presence of
+        the distortion.
+  
    2.
+
    For pincushion distortion, C is +ve;  for
+        barrel distortion, C is -ve.
+  
    3.
+
    For X,Y in units of one projection radius (in the case of
+        a photographic plate, the focal length), the following
+        DISCO values apply:
+
            
    
+
    
+
    
+
            
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    GeometryDISCO
    astrograph0.0
    Schmidt-0.3333
    AAT PF doublet+147.069
    AAT PF triplet+178.585
    AAT f/8+21.20
    JKT f/8+14.6
    
+
            
    
+
    
+
    
+
      
    4.
+
    The present routine is an approximate inverse to the
+        companion routine sla_PCD, obtained from two iterations
+        of Newton's method.  The mismatch between the sla_PCD
+        and sla_UNPCD is negligible for astrometric applications;
+        to reach 1 milliarcsec at the edge of the AAT triplet or
+        Schmidt field would require field diameters of $2^{\circ}
+ \hspace{-0.37em}.\hspace{0.02em}4$        and $42^{\circ}$ respectively.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_V2TP - Direction Cosines to Tangent Plane
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_UE2PV - Pos/Vel from Universal Elements
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node19.html b/src/slalib/sun67.htx/node19.html
new file mode 100644
index 0000000..3a52cd9
--- /dev/null
+++ b/src/slalib/sun67.htx/node19.html
@@ -0,0 +1,160 @@
+
+
+
+
+SLA_AMPQK - Quick Apparent to Mean
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AOP - Apparent to Observed
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AMP - Apparent to Mean
+
     
     
    
+
    
+
    SLA_AMPQK - Quick Apparent to Mean
+  
+
    
+       
    
+
    ACTION:
+
    Convert star $[\,\alpha,\delta\,]$ from geocentric apparent to mean place
+(post IAU 1976).  Use of this routine is appropriate when
+         efficiency is important and where many star positions are
+         all to be transformed for one epoch and equinox.  The
+         star-independent parameters can be obtained by calling
+         the sla_MAPPA routine.
+
        
    CALL:
+
    CALL sla_AMPQK (RA, DA, AMPRMS, RM, DM)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RA,DADapparent $[\,\alpha,\delta\,]$ (radians)
    AMPRMSD(21)star-independent mean-to-apparent parameters:
    (1)time interval for proper motion (Julian years)
    (2-4)barycentric position of the Earth (AU)
    (5-7)heliocentric direction of the Earth (unit vector)
    (8)(gravitational radius of
+Sun)$\times 2 / $(Sun-Earth distance)
    (9-11)v: barycentric Earth velocity in units of c
    (12)$\sqrt{1-\left\vert\mbox{\bf v}\right\vert^2}$
    (13-21)precession/nutation $3\times3$ matrix
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RM,DMDmean $[\,\alpha,\delta\,]$ (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The accuracy is limited by the routine sla_EVP, called
+by sla_MAPPA, which computes the Earth position and
+velocity using the methods of Stumpff.  The maximum
+        error is about 0.3 milliarcsecond.
+  
    2.
+
    Iterative techniques are used for the aberration and
+        light deflection corrections so that the routines
+        sla_AMP (or sla_AMPQK) and sla_MAP (or sla_MAPQK) are
+        accurate inverses;  even at the edge of the Sun's disc
+        the discrepancy is only about 1 nanoarcsecond.
+ 
    
+
         
    
+
    REFERENCES:
+
    
+
    1.
+
    1984 Astronomical Almanac, pp B39-B41.
+
    2.
+
    Lederle & Schwan, 1984. Astr.Astrophys. 134, 1-6.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AOP - Apparent to Observed
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AMP - Apparent to Mean
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node190.html b/src/slalib/sun67.htx/node190.html
new file mode 100644
index 0000000..09def53
--- /dev/null
+++ b/src/slalib/sun67.htx/node190.html
@@ -0,0 +1,137 @@
+
+
+
+
+SLA_V2TP - Direction Cosines to Tangent Plane
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_VDV - Scalar Product
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_UNPCD - Remove Radial Distortion
+
     
     
    
+
    
+
    SLA_V2TP - Direction Cosines to Tangent Plane
+  
+
    
+       
    
+
    ACTION:
+
    Given the direction cosines of a star and of the tangent point,
+determine the star's tangent-plane coordinates
+         (single precision).
+
        
    CALL:
+
    CALL sla_V2TP (V, V0, XI, ETA, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    VR(3)direction cosines of star
    V0R(3)direction cosines of tangent point
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    XI,ETARtangent plane coordinates (radians)
    JIstatus:
      0 = OK, star on tangent plane
      1 = error, star too far from axis
      2 = error, antistar on tangent plane
      3 = error, antistar too far from axis
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    If vector V0 is not of unit length, or if vector V is of zero
+length, the results will be wrong.
+
    2.
+
    If V0 points at a pole, the returned $\xi,\eta$        will be based on the
+        arbitrary assumption that $\alpha=0$ at the tangent point.
+  
    3.
+
    The projection is called the gnomonic projection;  the
+        Cartesian coordinates $[\,\xi,\eta\,]$ are called 
+        standard coordinates.  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, i.e. radians near the origin.
+  
    4.
+
    This routine is the Cartesian equivalent of the routine sla_S2TP.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_VDV - Scalar Product
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_UNPCD - Remove Radial Distortion
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node191.html b/src/slalib/sun67.htx/node191.html
new file mode 100644
index 0000000..427bf46
--- /dev/null
+++ b/src/slalib/sun67.htx/node191.html
@@ -0,0 +1,91 @@
+
+
+
+
+SLA_VDV - Scalar Product
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_VN - Normalize Vector
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_V2TP - Direction Cosines to Tangent Plane
+
     
     
    
+
    
+
    SLA_VDV - Scalar Product
+  
+
    
+       
    
+
    ACTION:
+
    Scalar product of two 3-vectors (single precision).
+
    CALL:
+
    R = sla_VDV (VA, VB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    VAR(3)first vector
    VBR(3)second vector
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_VDVRscalar product VA.VB
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_VN - Normalize Vector
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_V2TP - Direction Cosines to Tangent Plane
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node192.html b/src/slalib/sun67.htx/node192.html
new file mode 100644
index 0000000..dd4d9b6
--- /dev/null
+++ b/src/slalib/sun67.htx/node192.html
@@ -0,0 +1,95 @@
+
+
+
+
+SLA_VN - Normalize Vector
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_VXV - Vector Product
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_VDV - Scalar Product
+
     
     
    
+
    
+
    SLA_VN - Normalize Vector
+  
+
    
+       
    
+
    ACTION:
+
    Normalize a 3-vector, also giving the modulus (single precision).
+
    CALL:
+
    CALL sla_VN (V, UV, VM)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    VR(3)vector
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    UVR(3)unit vector in direction of V
    VMRmodulus of V
    
+
          
    
+
    NOTE:
+
    If the modulus of V is zero, UV is set to zero as well.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_VXV - Vector Product
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_VDV - Scalar Product
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node193.html b/src/slalib/sun67.htx/node193.html
new file mode 100644
index 0000000..8f27978
--- /dev/null
+++ b/src/slalib/sun67.htx/node193.html
@@ -0,0 +1,93 @@
+
+
+
+
+SLA_VXV - Vector Product
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_WAIT - Time Delay
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_VN - Normalize Vector
+
     
     
    
+
    
+
    SLA_VXV - Vector Product
+  
+
    
+       
    
+
    ACTION:
+
    Vector product of two 3-vectors (single precision).
+
    CALL:
+
    CALL sla_VXV (VA, VB, VC)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    VAR(3)first vector
    VBR(3)second vector
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    VCR(3)vector product VA$\times$VB
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_WAIT - Time Delay
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_VN - Normalize Vector
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node194.html b/src/slalib/sun67.htx/node194.html
new file mode 100644
index 0000000..55a0ed7
--- /dev/null
+++ b/src/slalib/sun67.htx/node194.html
@@ -0,0 +1,91 @@
+
+
+
+
+SLA_WAIT - Time Delay
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_XY2XY - Apply Linear Model to an
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_VXV - Vector Product
+
     
     
    
+
    
+
    SLA_WAIT - Time Delay
+  
+
    
+       
    
+
    ACTION:
+
    Wait for a specified interval.
+
    CALL:
+
    CALL sla_WAIT (DELAY)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DELAYRdelay in seconds
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The implementation is machine-specific.
+
    2.
+
    The delay actually requested is restricted to the range
+100ns-200s in the present implementation.
+  
    3.
+
    There is no guarantee of accuracy, though on almost all
+        types of computer the program will certainly not
+        resume execution before the stated interval has
+        elapsed.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_XY2XY - Apply Linear Model to an
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_VXV - Vector Product
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node195.html b/src/slalib/sun67.htx/node195.html
new file mode 100644
index 0000000..2b33ece
--- /dev/null
+++ b/src/slalib/sun67.htx/node195.html
@@ -0,0 +1,114 @@
+
+
+
+
+SLA_XY2XY - Apply Linear Model to an 
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ZD - to Zenith Distance
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_WAIT - Time Delay
+
     
     
    
+
    
+
       
+
    
+SLA_XY2XY - Apply Linear Model to an $[\,x,y\,]$
    
+       
    
+
    ACTION:
+
    Transform one $[\,x,y\,]$ into another using a linear model of the type
+produced by the sla_FITXY routine.
+
        
    CALL:
+
    CALL sla_XY2XY (X1,Y1,COEFFS,X2,Y2)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    X1,Y1D$[\,x,y\,]$ before transformation
    COEFFSD(6)transformation coefficients (see note)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    X2,Y2D$[\,x,y\,]$ after transformation
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The model relates two sets of $[\,x,y\,]$ coordinates as follows.
+Naming the six elements of COEFFS a,b,c,d,e & f,
+the present routine performs the transformation:
+        
    x2 = a + bx1 + cy1 
    
+          y2 = d + ex1 + fy1
    
+  
    2.
+
    See also sla_FITXY, sla_PXY, sla_INVF, sla_DCMPF.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ZD - to Zenith Distance
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_WAIT - Time Delay
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node196.html b/src/slalib/sun67.htx/node196.html
new file mode 100644
index 0000000..0dc168b
--- /dev/null
+++ b/src/slalib/sun67.htx/node196.html
@@ -0,0 +1,137 @@
+
+
+
+
+SLA_ZD - to Zenith Distance
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: EXPLANATION AND EXAMPLES
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_XY2XY - Apply Linear Model to an
+
     
     
    
+
    
+
       
+
    
+SLA_ZD - $h,\delta$ to Zenith Distance
+
    
+       
    
+
    ACTION:
+
    Hour angle and declination to zenith distance
+(double precision).
+
        
    CALL:
+
    D = sla_ZD (HA, DEC, PHI)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    HADhour angle in radians
    DECDdeclination in radians
    PHIDlatitude in radians
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_ZDDzenith distance (radians, $0\!-\!\pi$)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The latitude must be geodetic.  In critical applications,
+corrections for polar motion should be applied (see sla_POLMO).
+
    2.
+
    In some applications it will be important to specify the
+        correct type of hour angle and declination in order to
+        produce the required type
+        of zenith distance.  In particular, it may be
+        important to distinguish between the zenith distance
+        as affected by refraction, which would require the
+        observed $[\,h,\delta\,]$, and the zenith distance in vacuo,
+        which would require the topocentric $[\,h,\delta\,]$.  If
+        the effects of diurnal aberration can be neglected, the
+        apparent $[\,h,\delta\,]$ may be used instead of the
+        topocentric $[\,h,\delta\,]$.  
    3.
+
    No range checking of arguments is done.
+  
    4.
+
    In applications which involve many zenith distance calculations,
+        rather than calling the present routine it will be more
+        efficient to use inline code, having previously computed fixed
+        terms such as sine and cosine of latitude, and perhaps sine and
+        cosine of declination.
+ 
    
+
    
+
    
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: EXPLANATION AND EXAMPLES
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_XY2XY - Apply Linear Model to an
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node197.html b/src/slalib/sun67.htx/node197.html
new file mode 100644
index 0000000..ae8cd55
--- /dev/null
+++ b/src/slalib/sun67.htx/node197.html
@@ -0,0 +1,171 @@
+
+
+
+
+EXPLANATION AND EXAMPLES
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Spherical Trigonometry
+
    
+Up: SLALIB   Positional Astronomy Library
+
    
+ Previous: SLA_ZD - to Zenith Distance
+
     
     
    
+
    
+
    
+EXPLANATION AND EXAMPLES
+
    
+To guide the writer of positional-astronomy applications software,
+this final chapter puts the SLALIB routines into the context of
+astronomical phenomena and techniques, and presents a few
+``cookbook'' examples
+of the SLALIB calls in action.  The astronomical content of the chapter
+is not, of course, intended to be a substitute for specialist text-books on
+positional astronomy, but may help bridge the gap between
+such books and the SLALIB routines.  For further reading, the following
+cover a wide range of material and styles:
+
      
+
    •  Explanatory Supplement to the Astronomical Almanac,
+      ed. P.Kenneth Seidelmann (1992), University Science Books.
+
    •  Vectorial Astrometry, C.A.Murray (1983), Adam Hilger.
+
    •  Spherical Astronomy, Robin M.Green (1985), Cambridge
+      University Press.
+
    •  Spacecraft Attitude Determination and Control,
+      ed. James R.Wertz (1986), Reidel.
+
    •  Practical Astronomy with your Calculator,
+      Peter Duffett-Smith (1981), Cambridge University Press.
+
    
+Also of considerable value, though out of date in places, are:
+
      
+
    •  Explanatory Supplement to the Astronomical Ephemeris
+      and the American Ephemeris and Nautical Almanac, RGO/USNO (1974),
+      HMSO.
+
    •  Textbook on Spherical Astronomy, W.M.Smart (1977),
+      Cambridge University Press.
+
    
+Only brief details of individual SLALIB routines are given here, and
+readers will find it useful to refer to the subprogram specifications
+elsewhere in this document.  The source code for the SLALIB routines
+(available in both Fortran and C) is also intended to be used as
+documentation.
+
    
+
    
+
+ 
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Spherical Trigonometry
+
    
+Up: SLALIB   Positional Astronomy Library
+
    
+ Previous: SLA_ZD - to Zenith Distance
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node198.html b/src/slalib/sun67.htx/node198.html
new file mode 100644
index 0000000..30aa3e8
--- /dev/null
+++ b/src/slalib/sun67.htx/node198.html
@@ -0,0 +1,167 @@
+
+
+
+
+Spherical Trigonometry
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Formatting angles
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: EXPLANATION AND EXAMPLES
+
     
     
    
+
    
+
    
+Spherical Trigonometry
+
    
+Celestial phenomena occur at such vast distances from the
+observer that for most practical purposes there is no need to
+work in 3D;  only the direction
+of a source matters, not how far away it is.  Things can
+therefore be viewed as if they were happening
+on the inside of sphere with the observer at the centre -
+the celestial sphere.  Problems involving
+positions and orientations in the sky can then be solved by
+using the formulae of spherical trigonometry, which
+apply to spherical triangles, the sides of which are
+great circles.
+
    
+Positions on the celestial sphere may be specified by using
+a spherical polar coordinate system, defined in terms of
+some fundamental plane and a line in that plane chosen to
+represent zero longitude.  Mathematicians usually work with the
+co-latitude, with zero at the principal pole, whereas most
+astronomical coordinate systems use latitude, reckoned plus and
+minus from the equator.
+Astronomical coordinate systems may be either right-handed
+(e.g. right ascension and declination $[\,\alpha,\delta\,]$,Galactic longitude and latitude $[\,l^{I\!I},b^{I\!I}\,]$)or left-handed (e.g. hour angle and
+declination $[\,h,\delta\,]$).  In some cases
+different conventions have been used in the past, a fruitful source of
+mistakes.  Azimuth and geographical longitude are examples;  azimuth
+is now generally reckoned north through east
+(making a left-handed system);  geographical longitude is now usually
+taken to increase eastwards (a right-handed system) but astronomers
+used to employ a west-positive convention.  In reports
+and program comments it is wise to spell out what convention
+is being used, if there is any possibility of confusion.
+
    
+When applying spherical trigonometry formulae, attention must be
+paid to
+rounding errors (for example it is a bad idea to find a
+small angle through its cosine) and to the possibility of
+problems close to poles.
+Also, if a formulation relies on inspection to establish
+the quadrant of the result, it is an indication that a vector-related
+method might be preferable.
+
    
+As well as providing many routines which work in terms of specific
+spherical coordinates such as $[\,\alpha,\delta\,]$, SLALIB provides
+two routines which operate directly on generic spherical
+coordinates:
+sla_SEP
+computes the separation between
+two points (the distance along a great circle) and
+sla_BEAR
+computes the bearing (or position angle)
+of one point seen from the other.  The routines
+sla_DSEP
+and
+sla_DBEAR
+are double precision equivalents.  As a simple demonstration
+of SLALIB, we will use these facilities to estimate the distance from
+London to Sydney and the initial compass heading:
+
    +            IMPLICIT NONE
+
+      *  Degrees to radians
+            REAL D2R
+            PARAMETER (D2R=0.01745329252)
+
+      *  Longitudes and latitudes (radians) for London and Sydney
+            REAL AL,BL,AS,BS
+            PARAMETER (AL=-0.2*D2R,BL=51.5*D2R,AS=151.2*D2R,BS=-33.9*D2R)
+
+      *  Earth radius in km (spherical approximation)
+            REAL RKM
+            PARAMETER (RKM=6375.0)
+
+            REAL sla_SEP,sla_BEAR
+
+
+      *  Distance and initial heading (N=0, E=90)
+            WRITE (*,'(1X,I5,'' km,'',I4,'' deg'')')
+           :    NINT(sla_SEP(AL,BL,AS,BS)*RKM),NINT(sla_BEAR(AL,BL,AS,BS)/D2R)
+
+            END
+
    
+
    (The result is 17011 km, $61^\circ$.)
+
    
+The routines
+sla_PAV and
+sla_DPAV
+are equivalents of sla_BEAR and sla_DBEAR but starting from
+direction-cosines instead of spherical coordinates.
+
    
+
    
+
+ 
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Formatting angles
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: EXPLANATION AND EXAMPLES
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node199.html b/src/slalib/sun67.htx/node199.html
new file mode 100644
index 0000000..93a4839
--- /dev/null
+++ b/src/slalib/sun67.htx/node199.html
@@ -0,0 +1,174 @@
+
+
+
+
+Formatting angles
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Vectors and Matrices
+
    
+Up: Spherical Trigonometry
+
    
+ Previous: Spherical Trigonometry
+
     
     
    
+
    
+
    
+Formatting angles
+
    
+SLALIB has routines for decoding decimal numbers
+from character form and for converting angles to and from
+sexagesimal form (hours, minutes, seconds or degrees,
+arcminutes, arcseconds).  These apparently straightforward
+operations contain hidden traps which the SLALIB routines
+avoid.
+
    
+There are five routines for decoding numbers from a character
+string, such as might be entered using a keyboard.
+They all work in the same style, and successive calls
+can work their way along a single string decoding
+a sequence of numbers of assorted types.  Number
+fields can be separated by spaces or commas, and can be defaulted
+to previous values or to preset defaults.
+
    
+Three of the routines decode single numbers:
+sla_INTIN
+(integer),
+sla_FLOTIN
+(single precision floating point) and
+sla_DFLTIN
+(double precision).  A minus sign can be
+detected even when the number is zero;  this avoids
+the frequently-encountered ``minus zero'' bug, where
+declinations etc. in
+the range $0^{\circ}$ to $-1^{\circ}$ mysteriously migrate to
+the range $0^{\circ}$ to $+1^{\circ}$.Here is an example (in Fortran) where we wish to
+read two numbers, and integer IX and a real, Y,
+with X defaulting to zero and Y defaulting to
+X:
+
    +            DOUBLE PRECISION Y
+            CHARACTER*80 A
+            INTEGER IX,I,J
+
+      *  Input the string to be decoded
+            READ (*,'(A)') A
+
+      *  Preset IX to its default value
+            IX = 0
+
+      *  Point to the start of the string
+            I = 1
+
+      *  Decode an integer
+            CALL sla_INTIN(A,I,IX,J)
+            IF (J.GT.1) GO TO ... (bad IX)
+
+      *  Preset Y to its default value
+            Y = DBLE(IX)
+
+      *  Decode a double precision number
+            CALL sla_DFLTIN(A,I,Y,J)
+            IF (J.GT.1) GO TO ... (bad Y)
+
    
+
    
+Two additional routines decode a 3-field sexagesimal number:
+sla_AFIN
+(degrees, arcminutes, arcseconds to single
+precision radians) and
+sla_DAFIN
+(the same but double precision).  They also
+work using other units such as hours etc. if
+you multiply the result by the appropriate factor.  An example
+Fortran program which uses
+sla_DAFIN
+was given earlier, in section 1.2.
+
    
+SLALIB provides four routines for expressing an angle in radians
+in a preferred range.  The function
+sla_RANGE
+expresses an angle
+in the range $\pm \pi$;sla_RANORM
+expresses an angle in the range
+$0-2\pi$.  The functions
+sla_DRANGE
+and
+sla_DRANRM
+are double precision versions.
+
    
+Several routines
+(sla_CTF2D,
+sla_CR2AF
+etc.) are provided to convert
+angles to and from
+sexagesimal form (hours, minute, seconds or degrees,
+arcminutes and arcseconds).
+They avoid the common
+``converting from integer to real at the wrong time''
+bug, which produces angles like $24^{h}\,59^{m}\,59^{s}.999$.Here is a program which displays an hour angle
+stored in radians:
+
    +            DOUBLE PRECISION HA
+            CHARACTER SIGN
+            INTEGER IHMSF(4)
+            :
+            CALL sla_DR2TF(3,HA,SIGN,IHMSF)
+            WRITE (*,'(1X,A,3I3.2,''.'',I3.3)') SIGN,IHMSF
+
    
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Vectors and Matrices
+
    
+Up: Spherical Trigonometry
+
    
+ Previous: Spherical Trigonometry
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node2.html b/src/slalib/sun67.htx/node2.html
new file mode 100644
index 0000000..2e1859d
--- /dev/null
+++ b/src/slalib/sun67.htx/node2.html
@@ -0,0 +1,85 @@
+
+
+
+
+INTRODUCTION
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Purpose
+
    
+Up: SLALIB   Positional Astronomy Library
+
    
+ Previous: Abstract
+
     
     
    
+
    
+
    
+INTRODUCTION
+
    
+
    
+
+ 
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Purpose
+
    
+Up: SLALIB   Positional Astronomy Library
+
    
+ Previous: Abstract
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node20.html b/src/slalib/sun67.htx/node20.html
new file mode 100644
index 0000000..e544154
--- /dev/null
+++ b/src/slalib/sun67.htx/node20.html
@@ -0,0 +1,320 @@
+
+
+
+
+SLA_AOP - Apparent to Observed
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AOPPA - Appt-to-Obs Parameters
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AMPQK - Quick Apparent to Mean
+
     
     
    
+
    
+
    SLA_AOP - Apparent to Observed
+  
+
    
+       
    
+
    ACTION:
+
    Apparent to observed place, for optical sources distant from
+the solar system.
+
        
    CALL:
+
    CALL sla_AOP (
+         RAP, DAP, DATE, DUT, ELONGM, PHIM, HM, XP, YP,
+         TDK, PMB, RH, WL, TLR, AOB, ZOB, HOB, DOB, ROB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RAP,DAPDgeocentric apparent $[\,\alpha,\delta\,]$ (radians)
    DATEDUTC date/time (Modified Julian Date, JD-2400000.5)
    DUTD$\Delta$UT:  UT1-UTC (UTC seconds)
    ELONGMDobserver's mean longitude (radians, east +ve)
    PHIMDobserver's mean geodetic latitude (radians)
    HMDobserver's height above sea level (metres)
    XP,YPDpolar motion $[\,x,y\,]$ coordinates (radians)
    TDKDlocal ambient temperature (degrees K; std=273.155D0)
    PMBDlocal atmospheric pressure (mB; std=1013.25D0)
    RHDlocal relative humidity (in the range 0D0-1D0)
    WLDeffective wavelength ($\mu{\rm m}$, e.g. 0.55D0)
    TLRDtropospheric lapse rate (degrees K per metre,
+e.g. 0.0065D0)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    AOBDobserved azimuth (radians: N=0, E=$90^{\circ}$)
    ZOBDobserved zenith distance (radians)
    HOBDobserved Hour Angle (radians)
    DOBDobserved $\delta$ (radians)
    ROBDobserved $\alpha$ (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    This routine returns zenith distance rather than elevation
+in order to reflect the fact that no allowance is made for
+depression of the horizon.
+  
    2.
+
    The accuracy of the result is limited by the corrections for
+        refraction.  Providing the meteorological parameters are
+        known accurately and there are no gross local effects, the
+        predicted azimuth and elevation should be within about
+
          $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.1$    for $\zeta<70^{\circ}$.  Even
+        at a topocentric zenith distance of
+        $90^{\circ}$, the accuracy in elevation should be better than
+        1 arcminute;  useful results are available for a further
+        $3^{\circ}$, beyond which the sla_REFRO routine returns a
+        fixed value of the refraction.  The complementary
+        routines sla_AOP (or sla_AOPQK) and sla_OAP (or sla_OAPQK)
+        are self-consistent to better than 1 microarcsecond all over
+        the celestial sphere.
+  
    3.
+
    It is advisable to take great care with units, as even
+        unlikely values of the input parameters are accepted and
+        processed in accordance with the models used.
+  
    4.
+
    Apparent $[\,\alpha,\delta\,]$ means the geocentric apparent right ascension
+        and declination, which is obtained from a catalogue mean place
+        by allowing for space motion, parallax, precession, nutation,
+        annual aberration, and the Sun's gravitational lens effect.  For
+        star positions in the FK5 system (i.e. J2000), these effects can
+        be applied by means of the sla_MAP etc. routines.  Starting from
+        other mean place systems, additional transformations will be
+        needed;  for example, FK4 (i.e. B1950) mean places would first
+        have to be converted to FK5, which can be done with the
+        sla_FK425 etc. routines.
+  
    5.
+
    Observed $[\,Az,El~]$ means the position that would be seen by a
+        perfect theodolite located at the observer.  This is obtained
+        from the geocentric apparent $[\,\alpha,\delta\,]$ by allowing for Earth
+        orientation and diurnal aberration, rotating from equator
+        to horizon coordinates, and then adjusting for refraction.
+        The $[\,h,\delta\,]$ is obtained by rotating back into equatorial
+        coordinates, using the geodetic latitude corrected for polar
+        motion, and is the position that would be seen by a perfect
+        equatorial located at the observer and with its polar axis
+        aligned to the Earth's axis of rotation (n.b. not to the
+        refracted pole).  Finally, the $\alpha$ is obtained by subtracting
+        the h from the local apparent ST.
+  
    6.
+
    To predict the required setting of a real telescope, the
+        observed place produced by this routine would have to be
+        adjusted for the tilt of the azimuth or polar axis of the
+        mounting (with appropriate corrections for mount flexures),
+        for non-perpendicularity between the mounting axes, for the
+        position of the rotator axis and the pointing axis relative
+        to it, for tube flexure, for gear and encoder errors, and
+        finally for encoder zero points.  Some telescopes would, of
+        course, exhibit other properties which would need to be
+        accounted for at the appropriate point in the sequence.
+  
    7.
+
    This routine takes time to execute, due mainly to the
+        rigorous integration used to evaluate the refraction.
+        For processing multiple stars for one location and time,
+        call sla_AOPPA once followed by one call per star to sla_AOPQK.
+        Where a range of times within a limited period of a few hours
+        is involved, and the highest precision is not required, call
+        sla_AOPPA once, followed by a call to sla_AOPPAT each time the
+        time changes, followed by one call per star to sla_AOPQK.
+  
    8.
+
    The DATE argument is UTC expressed as an MJD.  This is,
+        strictly speaking, wrong, because of leap seconds.  However,
+        as long as the $\Delta$UT and the UTC are consistent there
+        are no difficulties, except during a leap second.  In this
+        case, the start of the 61st second of the final minute should
+        begin a new MJD day and the old pre-leap $\Delta$UT should
+        continue to be used.  As the 61st second completes, the MJD
+        should revert to the start of the day as, simultaneously,
+        the $\Delta$UT changes by one second to its post-leap new value.
+  
    9.
+
    The $\Delta$UT (UT1-UTC) is tabulated in IERS circulars and
+        elsewhere.  It increases by exactly one second at the end of
+        each UTC leap second, introduced in order to keep $\Delta$UT
+        within $\pm$$0^{\rm s}\hspace{-0.3em}.9$.  
    10.
+
    IMPORTANT - TAKE CARE WITH THE LONGITUDE SIGN CONVENTION.  The
+        longitude required by the present routine is east-positive,
+        in accordance with geographical convention (and right-handed).
+        In particular, note that the longitudes returned by the
+        sla_OBS routine are west-positive (as in the Astronomical
+        Almanac before 1984) and must be reversed in sign before use
+        in the present routine.
+  
    11.
+
    The polar coordinates XP,YP can be obtained from IERS
+        circulars and equivalent publications.  The
+        maximum amplitude is about 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.3$   .  If XP,YP values
+        are unavailable, use XP=YP=0D0.  See page B60 of the 1988
+        Astronomical Almanac for a definition of the two angles.
+  
    12.
+
    The height above sea level of the observing station, HM,
+        can be obtained from the Astronomical Almanac (Section J
+        in the 1988 edition), or via the routine sla_OBS.  If P,
+        the pressure in mB, is available, an adequate
+        estimate of HM can be obtained from the following expression:
+        
    HM=-29.3D0*TSL*LOG(P/1013.25D0)
+        
    
+        where TSL is the approximate sea-level air temperature in degrees K
+        (see Astrophysical Quantities, C.W.Allen, 3rd edition,
+        §52).  Similarly, if the pressure P is not known,
+        it can be estimated from the height of the observing
+        station, HM as follows:
+        
    P=1013.25D0*EXP(-HM/(29.3D0*TSL))
+        
    
+        Note, however, that the refraction is proportional to the
+        pressure and that an accurate P value is important for
+        precise work.
+  
    13.
+
    The azimuths etc. used by the present routine are with
+        respect to the celestial pole.  Corrections to the terrestrial pole
+        can be computed using sla_POLMO.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AOPPA - Appt-to-Obs Parameters
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AMPQK - Quick Apparent to Mean
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node200.html b/src/slalib/sun67.htx/node200.html
new file mode 100644
index 0000000..cbbad9d
--- /dev/null
+++ b/src/slalib/sun67.htx/node200.html
@@ -0,0 +1,168 @@
+
+
+
+
+Vectors and Matrices
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Using vectors
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Formatting angles
+
     
     
    
+
    
+
    
+Vectors and Matrices
+
    
+As an alternative to employing a spherical polar coordinate system,
+the direction of an object can be defined in terms of the sum of any
+three vectors as long as they are different and
+not coplanar.  In practice, three vectors at right angles are
+usually chosen, forming a system
+of Cartesian coordinates.  The x- and y-axes
+lie in the fundamental plane (e.g. the equator in the
+case of $[\,\alpha,\delta\,]$), with the x-axis pointing to zero longitude.
+The z-axis is normal to the fundamental plane and points
+towards positive latitudes.  The y-axis can lie in either
+of the two possible directions, depending on whether the
+coordinate system is right-handed or left-handed.
+The three axes are sometimes called
+a triad.  For most applications involving arbitrarily
+distant objects such as stars, the vector which defines
+the direction concerned is constrained to have unit length.
+The x-, y- and z-components
+can be regarded as the scalar (dot) product of this vector
+onto the three axes of the triad in turn.  Because the vector
+is a unit vector,
+each of the three dot-products is simply the cosine of the angle
+between the unit vector and the axis concerned, and the
+x-, y- and z-components are sometimes
+called direction cosines.
+
    
+For some applications involving objects
+with the Solar System, unit vectors are inappropriate, and
+it is necessary to use vectors scaled in length-units such as
+AU, km etc.
+In these cases the origin of the coordinate system may not be
+the observer, but instead might be the Sun, the Solar-System
+barycentre, the centre of the Earth etc.  But whatever the application,
+the final direction in which the observer sees the object can be
+expressed as direction cosines.
+
    
+But where has this got us?  Instead of two numbers - a longitude and
+a latitude - we now have three numbers to look after
+- the x-, y- and
+z-components - whose quadratic sum we have somehow to contrive to
+be unity.  And, in addition to this apparent redundancy,
+most people find it harder to visualize
+problems in terms of $[\,x,y,z\,]$ than in $[\,\theta,\phi~]$.Despite these objections, the vector approach turns out to have
+significant advantages over the spherical trigonometry approach:
+
      
+
    •  Vector formulae tend to be much more succinct;  one vector
+      operation is the equivalent of strings of sines and cosines.
+
    •  The formulae are as a rule rigorous, even at the poles.
+
    •  Accuracy is maintained all over the celestial sphere.
+      When one Cartesian component is nearly unity and
+      therefore insensitive to direction, the others become small
+      and therefore more precise.
+
    •  Formulations usually deliver the quadrant of the result
+      without the need for any inspection (except within the
+      library function ATAN2).
+
    
+A number of important transformations in positional
+astronomy turn out to be nothing more than changes of coordinate
+system, something which is especially convenient if
+the vector approach is used.  A direction with respect
+to one triad can be expressed relative to another triad simply
+by multiplying the $[\,x,y,z\,]$ column vector by the appropriate
+$3\times3$ orthogonal matrix
+(a tensor of Rank 2, or dyadic).  The three rows of this
+rotation matrix
+are the vectors in the old coordinate system of the three
+new axes, and the transformation amounts to obtaining the
+dot-product of the direction-vector with each of the three
+new axes.  Precession, nutation, $[\,h,\delta\,]$ to $[\,Az,El~]$,$[\,\alpha,\delta\,]$ to $[\,l^{I\!I},b^{I\!I}\,]$ and so on are typical examples of the
+technique.  A useful property of the rotation matrices
+is that they can be inverted simply by taking the transpose.
+
    
+The elements of these vectors and matrices are assorted combinations of
+the sines and cosines of the various angles involved (hour angle,
+declination and so on, depending on which transformation is
+being applied).  If you write out the matrix multiplications
+in full you get expressions which are essentially the same as the
+equivalent spherical trigonometry formulae.  Indeed, many of the
+standard formulae of spherical trigonometry are most easily
+derived by expressing the problem initially in
+terms of vectors.
+
    
+
    
+
+ 
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Using vectors
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Formatting angles
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node201.html b/src/slalib/sun67.htx/node201.html
new file mode 100644
index 0000000..4613125
--- /dev/null
+++ b/src/slalib/sun67.htx/node201.html
@@ -0,0 +1,215 @@
+
+
+
+
+Using vectors
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Celestial Coordinate Systems
+
    
+Up: Vectors and Matrices
+
    
+ Previous: Vectors and Matrices
+
     
     
    
+
    
+
    
+Using vectors
+
    
+SLALIB provides conversions between spherical and vector
+form
+(sla_CS2C,
+sla_CC2S
+etc.), plus an assortment
+of standard vector and matrix operations
+(sla_VDV,
+sla_MXV
+etc.).
+There are also routines
+(sla_EULER
+etc.) for creating a rotation matrix
+from three Euler angles (successive rotations about
+specified Cartesian axes).  Instead of Euler angles, a rotation
+matrix can be expressed as an axial vector (the pole of the rotation,
+and the amount of rotation), and routines are provided for this
+(sla_AV2M,
+sla_M2AV
+etc.).
+
    
+Here is an example where spherical coordinates P1 and Q1
+undergo a coordinate transformation and become P2 and Q2;
+the transformation consists of a rotation of the coordinate system
+through angles A, B and C about the
+z, new y and new z axes respectively:
+
    +            REAL A,B,C,R(3,3),P1,Q1,V1(3),V2(3),P2,Q2
+             :
+      *  Create rotation matrix
+            CALL sla_EULER('ZYZ',A,B,C,R)
+
+      *  Transform position (P,Q) from spherical to Cartesian
+            CALL sla_CS2C(P1,Q1,V1)
+
+      *  Multiply by rotation matrix
+            CALL sla_MXV(R,V1,V2)
+
+      *  Back to spherical
+            CALL sla_CC2S(V2,P2,Q2)
+
    
+
    
+Small adjustments to the direction of a position
+vector are often most conveniently described in terms of
+$[\,\Delta x,\Delta y, \Delta z\,]$.  Adding the correction
+vector needs careful handling if the position
+vector is to remain of length unity, an advisable precaution which
+ensures that
+the $[\,x,y,z\,]$ components are always available to mean the cosines of
+the angles between the vector and the axis concerned.  Two types
+of shifts are commonly used,
+the first where a small vector of arbitrary direction is
+added to the unit vector, and the second where there is a displacement
+in the latitude coordinate (declination, elevation etc.) alone.
+
    
+For a shift produced by adding a small $[\,x,y,z\,]$ vector ${\bf D}$ to a
+unit vector ${\bf V1}$, the resulting vector ${\bf V2}$ has direction
+$<{\bf V1}+{\bf D}\gt$ but is no longer of unit length.  A better approximation
+is available if the result is multiplied by a scaling factor of
+$(1-{\bf D}\cdot{\bf V1})$, where the dot
+means scalar product.  In Fortran:
+
    +            F = (1D0-(DX*V1X+DY*V1Y+DZ*V1Z))
+            V2X = F*(V1X+DX)
+            V2Y = F*(V1Y+DY)
+            V2Z = F*(V1Z+DZ)
+
    
+
    
+The correction for diurnal aberration (discussed later) is
+an example of this form of shift.
+
    
+As an example of the second kind of displacement
+we will apply a small change in elevation $\delta E$ to an
+$[\,Az,El~]$ direction vector.  The direction of the
+result can be obtained by making the allowable approximation
+${\tan \delta E\approx\delta E}$ and adding a adjustment
+vector of length $\delta E$ normal
+to the direction vector in the vertical plane containing the direction
+vector.  The z-component of the adjustment vector is
+$\delta E \cos E$,and the horizontal component is
+$\delta E \sin E$ which has then to be
+resolved into x and y in proportion to their current sizes. To
+approximate a unit vector more closely, a correction factor of
+$\cos \delta E$ can then be applied, which is nearly
+$(1-\delta E^2 /2)$ for
+small $\delta E$.  Expressed in Fortran, for initial vector
+V1X,V1Y,V1Z, change in elevation DEL
+(+ve $\equiv$ upwards), and result
+vector V2X,V2Y,V2Z:
+
    +            COSDEL = 1D0-DEL*DEL/2D0
+            R1 = SQRT(V1X*V1X+V1Y*V1Y)
+            F = COSDEL*(R1-DEL*V1Z)/R1
+            V2X = F*V1X
+            V2Y = F*V1Y
+            V2Z = COSDEL*(V1Z+DEL*R1)
+
    
+
    
+An example of this type of shift is the correction for atmospheric
+refraction (see later).
+Depending on the relationship between $\delta E$ and E, special
+handling at the pole (the zenith for our example) may be required.
+
    
+SLALIB includes routines for the case where both a position
+and a velocity are involved.  The routines
+sla_CS2C6
+and
+sla_CC62S
+convert from $[\theta,\phi,\dot{\theta},\dot{\phi}]$to $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$ and back;
+sla_DCS26
+and
+sla_DC62S
+are double precision equivalents.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Celestial Coordinate Systems
+
    
+Up: Vectors and Matrices
+
    
+ Previous: Vectors and Matrices
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node202.html b/src/slalib/sun67.htx/node202.html
new file mode 100644
index 0000000..a161c65
--- /dev/null
+++ b/src/slalib/sun67.htx/node202.html
@@ -0,0 +1,254 @@
+
+
+
+
+Celestial Coordinate Systems
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Precession and Nutation
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Using vectors
+
     
     
    
+
    
+
    
+Celestial Coordinate Systems
+
    
+SLALIB has routines to perform transformations
+of celestial positions between different spherical
+coordinate systems, including those shown in the following table:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    systemsymbolslongitudelatitudex-y planelong. zeroRH/LH
    horizon-azimuthelevationhorizontalnorthL
    equatorial$\alpha,\delta$R.A.Dec.equatorequinoxR
    local equ.$h,\delta$H.A.Dec.equatormeridianL
    ecliptic$\lambda,\beta$ecl. long.ecl. lat.eclipticequinoxR
    galactic$l^{I\!I},b^{I\!I}$gal. long.gal. lat.gal. equatorgal. centreR
    supergalacticSGL,SGBSG long.SG lat.SG equatornode w. gal. equ.R
    
+Transformations between $[\,h,\delta\,]$ and $[\,Az,El~]$ can be performed by
+calling
+sla_E2H
+and
+sla_H2E,
+or, in double precision,
+sla_DE2H
+and
+sla_DH2E.
+There is also a routine for obtaining
+zenith distance alone for a given $[\,h,\delta\,]$,sla_ZD,
+and one for determining the parallactic angle,
+sla_PA.
+Three routines are included which relate to altazimuth telescope
+mountings.  For a given $[\,h,\delta\,]$ and latitude,
+sla_ALTAZ
+returns the azimuth, elevation and parallactic angle, plus
+velocities and accelerations for sidereal tracking.
+The routines
+sla_PDA2H
+and
+sla_PDQ2H
+predict at what hour angle a given azimuth or
+parallactic angle will be reached.
+
    
+The routines
+sla_EQECL
+and
+sla_ECLEQ
+transform between ecliptic
+coordinates and $[\,\alpha,\delta\,]$; there is also a routine for generating the
+equatorial to ecliptic rotation matrix for a given date:
+sla_ECMAT.
+
    
+For conversion between Galactic coordinates and $[\,\alpha,\delta\,]$ there are
+two sets of routines, depending on whether the $[\,\alpha,\delta\,]$ is
+old-style, B1950, or new-style, J2000;
+sla_EG50
+and
+sla_GE50
+are $[\,\alpha,\delta\,]$ to $[\,l^{I\!I},b^{I\!I}\,]$ and vice versa for the B1950 case, while
+sla_EQGAL
+and
+sla_GALEQ
+are the J2000 equivalents.
+
    
+Finally, the routines
+sla_GALSUP
+and
+sla_SUPGAL
+transform $[\,l^{I\!I},b^{I\!I}\,]$ to de Vaucouleurs supergalactic longitude and latitude
+and vice versa.
+
    
+It should be appreciated that the table, above, constitutes
+a gross oversimplification.   Apparently
+simple concepts such as equator, equinox etc. are apt to be very hard to
+pin down precisely (polar motion, orbital perturbations ...) and
+some have several interpretations, all subtly different.  The various
+frames move in complicated ways with respect to one another or to
+the stars (themselves in motion).  And in some instances the
+coordinate system is slightly distorted, so that the
+ordinary rules of spherical trigonometry no longer strictly apply.
+
    
+These caveats
+apply particularly to the bewildering variety of different
+$[\,\alpha,\delta\,]$ systems that are in use.  Figure 1 shows how
+some of these systems are related, to one another and
+to the direction in which a celestial source actually
+appears in the sky.  At the top of the diagram are
+the various sorts of mean place
+found in star catalogues and papers;[*] at the bottom is the
+observed $[\,Az,El~]$, where a perfect theodolite would
+be pointed to see the source;  and in the body of
+the diagram are
+the intermediate processing steps and coordinate
+systems.  To help
+understand this diagram, and the SLALIB routines that can
+be used to carry out the various calculations, we will look at the coordinate
+systems involved, and the astronomical phenomena that
+affect them.
+
    
+
    
+
     
+
+
+
+
    Figure 1:
+Relationship Between Celestial Coordinates
    \begin{figure}
+\begin{center}
+\begin{tabular}
+{\vert cccccc\vert} \hline
+& & & &...
+ ...2000, all of the precession and E-terms corrections
+are superfluous.\end{figure}
    
+
    
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Precession and Nutation
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Using vectors
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node203.html b/src/slalib/sun67.htx/node203.html
new file mode 100644
index 0000000..fd18b48
--- /dev/null
+++ b/src/slalib/sun67.htx/node203.html
@@ -0,0 +1,187 @@
+
+
+
+
+Precession and Nutation
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLALIB support for precession and nutation
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Celestial Coordinate Systems
+
     
     
    
+
    
+
    
+Precession and Nutation
+
    
+Right ascension and declination, ($[\,\alpha,\delta\,]$), are the names
+of the longitude and latitude in a spherical
+polar coordinate system based on the Earth's axis of rotation.
+The zero point of $\alpha$ is the point of intersection of
+the celestial
+equator and the ecliptic (the apparent path of the Sun
+through the year) where the Sun moves into the northern
+hemisphere.  This point is called the
+first point of Aries,
+the vernal equinox (with apologies to
+southern-hemisphere readers) or simply the equinox.[*]
+
    
+This simple picture is unfortunately
+complicated by the difficulty of defining
+a suitable equator and equinox.  One problem is that the
+Sun's apparent motion is not completely regular, due to the
+ellipticity of the Earth's orbit and its continuous disturbance
+by the Moon and planets.  This is dealt with by
+separating the motion into (i) a smooth and steady mean Sun
+and (ii) a set of periodic corrections and perturbations; only the former
+is involved in establishing reference frames and timescales.
+A second, far larger problem, is that
+the celestial equator and the ecliptic
+are both moving with respect to the stars.
+These motions arise because of the gravitational
+interactions between the Earth and the other solar-system bodies.
+
    
+By far the largest effect is the
+so-called ``precession of the equinoxes'', where the Earth's
+rotation axis sweeps out a cone centred on the ecliptic
+pole, completing one revolution in about 26,000 years.  The
+cause of the motion is the torque exerted on the distorted and
+spinning Earth by the Sun and the Moon.  Consider the effect of the
+Sun alone, at or near the northern summer solstice.  The Sun
+`sees' the top (north pole) of the Earth tilted towards it
+(by about $23^{\circ}
+ \hspace{-0.37em}.\hspace{0.02em}5$, the obliquity of the
+ecliptic),
+and sees the nearer part of the Earth's equatorial bulge
+below centre and the further part above centre.
+Although the Earth is in free fall,
+the gravitational force on the nearer part of the
+equatorial bulge is greater than that on the further part, and
+so there is a net torque acting
+as if to eliminate the tilt.  Six months later the same thing
+is happening in reverse, except that the torque is still
+trying to eliminate the tilt.  In between (at the equinoxes) the
+torque shrinks to zero.  A torque acting on a spinning body
+is gyroscopically translated
+into a precessional motion of the spin axis at right-angles to the torque,
+and this happens to the Earth.
+The motion varies during the
+year, going through two maxima, but always acts in the
+same direction.  The Moon produces the same effect,
+adding a contribution to the precession which peaks twice
+per month.  The Moon's proximity to the Earth more than compensates
+for its smaller mass and gravitational attraction, so that it
+in fact contributes most of the precessional effect.
+
    
+The complex interactions between the three bodies produce a
+precessional motion that is wobbly rather than completely smooth.
+However, the main 26,000-year component is on such a grand scale that
+it dwarfs the remaining terms, the biggest of
+which has an amplitude of only $17\hspace{-0.05em}^{'\hspace{-0.1em}'}$ and a period of
+about 18.6 years.  This difference of scale makes it convenient to treat
+these two components of the motion separately.  The main 26,000-year
+effect is called luni-solar precession;  the smaller,
+faster, periodic terms are called the nutation.
+
    
+Note that precession and nutation are simply
+different frequency components of the same physical effect.  It is
+a common misconception that precession is caused
+by the Sun and nutation is caused by the Moon.  In fact
+the Moon is responsible for two-thirds of the precession, and,
+while it is true that much of the complex detail of the nutation is
+a reflection of the intricacies of the lunar orbit, there are
+nonetheless important solar terms in the nutation.
+
    
+In addition to and quite separate
+from the precession/nutation effect, the orbit of the Earth-Moon system
+is not fixed in orientation, a result of the attractions of the
+planets.  This slow (about 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$    per year)
+secular rotation of the ecliptic about a slowly-moving diameter is called,
+confusingly, planetary
+precession and, along with the luni-solar precession is
+included in the general precession.  The equator and
+ecliptic as affected by general precession
+are what define the various ``mean'' $[\,\alpha,\delta\,]$ reference frames.
+
    
+The models for precession and nutation come from a combination
+of observation and theory, and are subject to continuous
+refinement.  Nutation models in particular have reached a high
+degree of sophistication, taking into account such things as
+the non-rigidity of the Earth and the effects of
+the planets; SLALIB's nutation
+model (IAU 1980) involves 106 terms in each of $\psi$ (longitude)
+and $\epsilon$ (obliquity), some as small as 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.0001$   .
+
    
+
    
+
+ 
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLALIB support for precession and nutation
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Celestial Coordinate Systems
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node204.html b/src/slalib/sun67.htx/node204.html
new file mode 100644
index 0000000..cc880e2
--- /dev/null
+++ b/src/slalib/sun67.htx/node204.html
@@ -0,0 +1,127 @@
+
+
+
+
+SLALIB support for precession and nutation
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Mean Places
+
    
+Up: Precession and Nutation
+
    
+ Previous: Precession and Nutation
+
     
     
    
+
    
+
    
+SLALIB support for precession and nutation
+
    
+SLALIB offers a choice of three precession models:
+
      
+
    •  The old Bessel-Newcomb, pre IAU 1976, ``FK4'' model, used for B1950
+      star positions and other pre-1984.0 purposes
+(sla_PREBN).
+
    •  The new Fricke, IAU 1976, ``FK5'' model, used for J2000 star
+      positions and other post-1984.0 purposes
+(sla_PREC).
+
    •  A model published by Simon et al. which is more accurate than
+      the IAU 1976 model and which is suitable for long
+      periods of time
+(sla_PRECL).
+
    
+In each case, the named SLALIB routine generates the $(3\times3)$precession
+matrix for a given start and finish time.  For example,
+here is the Fortran code for generating the rotation
+matrix which describes the precession between the epochs
+J2000 and J1985.372 (IAU 1976 model):
+
    +            DOUBLE PRECISION PMAT(3,3)
+             :
+            CALL sla_PREC(2000D0,1985.372D0,PMAT)
+
    
+
    
+It is instructive to examine the resulting matrix:
+
    +            +0.9999936402  +0.0032709208  +0.0014214694
+            -0.0032709208  +0.9999946505  -0.0000023247
+            -0.0014214694  -0.0000023248  +0.9999989897
+
    
+
    
+Note that the diagonal elements are close to unity, and the
+other elements are small.  This shows that over an interval as
+short as 15 years the precession isn't going to move a
+position vector very far (in this case about $0^{\circ}
+ \hspace{-0.37em}.\hspace{0.02em}2$).
+
    
+For convenience, a direct $[\,\alpha,\delta\,]$ to $[\,\alpha,\delta\,]$ precession routine is
+also provided
+(sla_PRECES),
+suitable for either the old or the new system (but not a
+mixture of the two).
+
    
+SLALIB provides only one nutation model, the new, IAU 1980 model,
+implemented in the routine
+sla_NUTC.
+This returns the components of nutation
+in longitude and latitude (and also provides the obliquity) from
+which a nutation matrix can be generated by calling
+sla_DEULER
+(and from which the equation of the equinoxes, described
+later, can be found).  Alternatively,
+the nutation matrix can be generated in a single call by using
+sla_NUT.
+
    
+A rotation matrix for applying the entire precession/nutation
+transformation in one go can be generated by calling
+sla_PRENUT.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Mean Places
+
    
+Up: Precession and Nutation
+
    
+ Previous: Precession and Nutation
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node205.html b/src/slalib/sun67.htx/node205.html
new file mode 100644
index 0000000..6da5021
--- /dev/null
+++ b/src/slalib/sun67.htx/node205.html
@@ -0,0 +1,92 @@
+
+
+
+
+Mean Places
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Epoch
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: SLALIB support for precession and nutation
+
     
     
    
+
    
+
    
+Mean Places
+
    
+The main effect of the precession/nutation is a steady increase of about
+$50\hspace{-0.05em}^{'\hspace{-0.1em}'}$/year in the ecliptic longitudes of the stars.  It is therefore
+essential, when reporting the position of an astronomical target, to
+qualify the coordinates with a date, or epoch.
+Specifying the epoch ties down the equator and
+equinox which define the $[\,\alpha,\delta\,]$ coordinate system that is
+being used.
+[*]  For simplicity, only
+the smooth and steady ``general
+precession'' part of the complete precession/nutation effect is
+included, thereby defining what is called the mean
+equator and equinox for the epoch concerned.  We say a star
+has a mean place of (for example)
+$12^{h}\,07^{m}\,58^{s}.09$ $-19^{\circ}\,44^{'}\,37^{''}.1$ ``with respect to the mean equator
+and equinox of epoch J2000''.  The short way of saying
+this is ``$[\,\alpha,\delta\,]$ equinox J2000'' (not ``$[\,\alpha,\delta\,]$ epoch J2000'', 
+which means something different to do with
+proper motion).
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Epoch
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: SLALIB support for precession and nutation
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node206.html b/src/slalib/sun67.htx/node206.html
new file mode 100644
index 0000000..9a94a3d
--- /dev/null
+++ b/src/slalib/sun67.htx/node206.html
@@ -0,0 +1,125 @@
+
+
+
+
+Epoch
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Proper Motion
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Mean Places
+
     
     
    
+
    
+
    
+Epoch
+
    
+The word ``epoch'' just means a moment in time, and can be supplied
+in a variety of forms, using different calendar systems and timescales.
+
    
+For the purpose of specifying the epochs associated with the
+mean place of a star, two conventions exist.  Both sorts of epoch
+superficially resemble years AD but are not tied to the civil
+(Gregorian) calendar;  to distinguish them from ordinary calendar-years
+there is often
+a ``.0'' suffix (as in ``1950.0''), although any other fractional
+part is perfectly legal (e.g. 1987.5).
+
    
+The older system,
+Besselian epoch, is defined in such a way that its units are
+tropical years of about 365.2422 days and its timescale is the
+obsolete Ephemeris Time.
+The start of the Besselian year is the moment
+when the ecliptic longitude of the mean Sun is
+$280^\circ$;  this happens near the start of the
+calendar year (which is why $280^\circ$ was chosen).
+
    
+The new system, Julian epoch, was adopted as
+part of the IAU 1976 revisions (about which more will be said
+in due course) and came formally into use at the
+beginning of 1984.  It uses the Julian year of exactly
+365.25 days; Julian epoch 2000 is defined to be 2000 January 1.5 in the
+TT timescale.
+
    
+For specifying mean places, various standard epochs are in use, the
+most common ones being Besselian epoch 1950.0 and Julian epoch 2000.0.
+To distinguish the two systems, Besselian epochs
+are now prefixed ``B'' and Julian epochs are prefixed ``J''.
+Epochs without an initial letter can be assumed to be Besselian
+if before 1984.0, otherwise Julian.  These details are supported by
+the SLALIB routines
+sla_DBJIN
+(decodes numbers from a
+character string, accepting an optional leading B or J),
+sla_KBJ
+(decides whether B or J depending on prefix or range) and
+sla_EPCO
+(converts one epoch to match another).
+
    
+SLALIB has four routines for converting
+Besselian and Julian epochs into other forms.
+The functions
+sla_EPB2D
+and
+sla_EPJ2D
+convert Besselian and Julian epochs into MJD; the functions
+sla_EPB
+and
+sla_EPJ
+do the reverse.  For example, to express B1950 as a Julian epoch:
+
    +            DOUBLE PRECISION sla_EPJ,sla_EPB2D
+             :
+            WRITE (*,'(1X,''J'',F10.5)') sla_EPJ(sla_EPB2D(1950D0))
+
    
+
    (The answer is J1949.99979.)
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Proper Motion
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Mean Places
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node207.html b/src/slalib/sun67.htx/node207.html
new file mode 100644
index 0000000..6c74c4e
--- /dev/null
+++ b/src/slalib/sun67.htx/node207.html
@@ -0,0 +1,119 @@
+
+
+
+
+Proper Motion
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Parallax and Radial Velocity
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Epoch
+
     
     
    
+
    
+
    
+Proper Motion
+
    
+Stars in catalogues usually have, in addition to the 
+$[\,\alpha,\delta\,]$  coordinates, a proper motion $[\mu_\alpha,\mu_\delta]$.This is an intrinsic motion
+of the star across the background.  Very few stars have a
+proper motion which exceeds $1\hspace{-0.05em}^{'\hspace{-0.1em}'}$/year, and most are
+far below this level.  A star observed as part of normal
+astronomy research will, as a rule, have a proper motion
+which is unknown.
+
    
+Mean $[\,\alpha,\delta\,]$ and rate of change are not sufficient to pin
+down a star;  the epoch at which the $[\,\alpha,\delta\,]$ was or will
+be correct is also needed.  Note the distinction
+between the epoch which specifies the
+coordinate system and the epoch at which the star passed
+through the given $[\,\alpha,\delta\,]$.  The full specification for a star
+is $[\,\alpha,\delta\,]$, proper motions, equinox and epoch (plus something to
+identify which set of models for the precession etc. is 
+being used - see the next section).
+For convenience, coordinates given in star catalogues are almost
+always adjusted to make the equinox and epoch the same - for
+example B1950 in the case of the SAO catalogue.
+
    
+SLALIB provides one routine to handle proper motion on its own,
+sla_PM.
+Proper motion is also allowed for in various other
+routines as appropriate, for example
+sla_MAP
+and
+sla_FK425.
+Note that in all SLALIB routines which involve proper motion
+the units are radians per year and the
+$\alpha$ component is in the form $\dot{\alpha}$ (i.e. big
+numbers near the poles).
+Some star catalogues have proper motion per century, and
+in some catalogues the $\alpha$ component is in the form
+$\dot{\alpha}\cos\delta$ (i.e. angle on the sky).
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Parallax and Radial Velocity
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Epoch
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node208.html b/src/slalib/sun67.htx/node208.html
new file mode 100644
index 0000000..cc2b337
--- /dev/null
+++ b/src/slalib/sun67.htx/node208.html
@@ -0,0 +1,92 @@
+
+
+
+
+Parallax and Radial Velocity
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Aberration
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Proper Motion
+
     
     
    
+
    
+
    
+Parallax and Radial Velocity
+
    
+For the utmost accuracy and the nearest stars, allowance can
+be made for annual parallax and for the effects of perspective
+on the proper motion.
+
    
+Parallax is appreciable only for nearby stars;  even
+the nearest, Proxima Centauri, is displaced from its average
+position by less than
+an arcsecond as the Earth revolves in its orbit.
+
    
+For stars with a known parallax, knowledge of the radial velocity
+allows the proper motion to be expressed as an actual space
+motion in 3 dimensions.  The proper motion is,
+in fact, a snapshot of the transverse component of the
+space motion, and in the case of nearby stars will
+change with time due to perspective.
+
    
+SLALIB does not provide facilities for handling parallax
+and radial-velocity on their own, but their contribution is
+allowed for in such routines as
+sla_PM,
+sla_MAP
+and
+sla_FK425.
+Catalogue mean
+places do not include the effects of parallax and are therefore
+barycentric;  when pointing telescopes etc. it is 
+usually most efficient to apply the slowly-changing
+parallax correction to the mean place of the target early on
+and to work with the geocentric mean place.  This latter
+approach is implied in Figure 1.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Aberration
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Proper Motion
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node209.html b/src/slalib/sun67.htx/node209.html
new file mode 100644
index 0000000..4790dda
--- /dev/null
+++ b/src/slalib/sun67.htx/node209.html
@@ -0,0 +1,147 @@
+
+
+
+
+Aberration
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Different Sorts of Mean Place
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Parallax and Radial Velocity
+
     
     
    
+
    
+
    
+Aberration
+
    
+The finite speed of light combined with the motion of the observer
+around the Sun during the year causes apparent displacements of
+the positions of the stars.  The effect is called
+the annual aberration (or ``stellar''
+aberration).  Its maximum size, about 
+      $20\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$   ,
+occurs for stars $90^{\circ}$ from the point towards which
+the Earth is headed as it orbits the Sun;  a star exactly in line with
+the Earth's motion is not displaced.  To receive the light of
+a star, the telescope has to be offset slightly in the direction of
+the Earth's motion.  A familiar analogy is the need to tilt your
+umbrella forward when on the move, to avoid getting wet.  This
+Newtonian model is,
+in fact, highly misleading in the context of light as opposed
+to rain, but happens to give the same answer as a relativistic
+treatment to first order (better than 1 milliarcsecond).
+
    
+Before the IAU 1976 resolutions, different
+values for the approximately
+
          $20\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$    aberration constant were employed
+at different times, and this can complicate comparisons
+between different catalogues.  Another complication comes from
+the so-called E-terms of aberration,
+that small part of the annual aberration correction that is a
+function of the eccentricity of the Earth's orbit.  The E-terms,
+maximum amplitude about 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.3$   ,
+happen to be approximately constant for a given star, and so they
+used to be incorporated in the catalogue $[\,\alpha,\delta\,]$to reduce the labour of converting to and from apparent place.
+The E-terms can be removed from a catalogue $[\,\alpha,\delta\,]$ by
+calling
+sla_SUBET
+or applied (for example to allow a pulsar
+timing-position to be plotted on a B1950 finding chart)
+by calling
+sla_ADDET;
+the E-terms vector itself can be obtained by calling
+sla_ETRMS.
+Star positions post IAU 1976 are free of these distortions, and to
+apply corrections for annual aberration involves the actual
+barycentric velocity of the Earth rather than the use of
+canonical circular-orbit models.
+
    
+The annual aberration is the aberration correction for
+an imaginary observer at the Earth's centre.
+The motion of a real observer around the Earth's rotation axis in
+the course of the day makes a small extra contribution to the total
+aberration effect called the diurnal aberration.  Its
+maximum amplitude is about 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.2$   .
+
    
+No SLALIB routine is provided for calculating the aberration on
+its own, though the required velocity vectors can be
+generated using
+sla_EVP
+and
+sla_GEOC.
+Annual and diurnal aberration are allowed for where required, for example in
+sla_MAP
+etc. and
+sla_AOP
+etc.  Note that this sort
+of aberration is different from the planetary
+aberration, which is the apparent displacement of a solar-system
+body, with respect to the ephemeris position, as a consequence
+of the motion of both the Earth and the source.  The
+planetary aberration can be computed either by correcting the
+position of the solar-system body for light-time, followed by
+the ordinary stellar aberration correction, or more
+directly by expressing the position and velocity of the source
+in the observer's frame and correcting for light-time alone.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Different Sorts of Mean Place
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Parallax and Radial Velocity
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node21.html b/src/slalib/sun67.htx/node21.html
new file mode 100644
index 0000000..13ef3e2
--- /dev/null
+++ b/src/slalib/sun67.htx/node21.html
@@ -0,0 +1,264 @@
+
+
+
+
+SLA_AOPPA - Appt-to-Obs Parameters
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AOPPAT - Update Appt-to-Obs Parameters
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AOP - Apparent to Observed
+
     
     
    
+
    
+
    SLA_AOPPA - Appt-to-Obs Parameters
+  
+
    
+       
    
+
    ACTION:
+
    Pre-compute the set of apparent to observed place parameters
+required by the ``quick'' routines sla_AOPQK and sla_OAPQK.
+
        
    CALL:
+
    CALL sla_AOPPA (
+          DATE, DUT, ELONGM, PHIM, HM, XP, YP,
+          TDK, PMB, RH, WL, TLR, AOPRMS)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    DATEDUTC date/time (Modified Julian Date, JD-2400000.5)
    DUTD$\Delta$UT:  UT1-UTC (UTC seconds)
    ELONGMDobserver's mean longitude (radians, east +ve)
    PHIMDobserver's mean geodetic latitude (radians)
    HMDobserver's height above sea level (metres)
    XP,YPDpolar motion $[\,x,y\,]$ coordinates (radians)
    TDKDlocal ambient temperature (degrees K; std=273.155D0)
    PMBDlocal atmospheric pressure (mB; std=1013.25D0)
    RHDlocal relative humidity (in the range 0D0-1D0)
    WLDeffective wavelength ($\mu{\rm m}$, e.g. 0.55D0)
    TLRDtropospheric lapse rate (degrees K per metre,
+e.g. 0.0065D0)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    AOPRMSD(14)star-independent apparent-to-observed parameters:
    (1)geodetic latitude (radians)
    (2,3)sine and cosine of geodetic latitude
    (4)magnitude of diurnal aberration vector
    (5)height (HM)
    (6)ambient temperature (TDK)
    (7)pressure (PMB)
    (8)relative humidity (RH)
    (9)wavelength (WL)
    (10)lapse rate (TLR)
    (11,12)refraction constants A and B (radians)
    (13)longitude + eqn of equinoxes +
+``sidereal $\Delta$UT'' (radians)
    (14)local apparent sidereal time (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    It is advisable to take great care with units, as even
+unlikely values of the input parameters are accepted and
+processed in accordance with the models used.
+  
    2.
+
    The DATE argument is UTC expressed as an MJD.  This is,
+        strictly speaking, wrong, because of leap seconds.  However,
+        as long as the $\Delta$UT and the UTC are consistent there
+        are no difficulties, except during a leap second.  In this
+        case, the start of the 61st second of the final minute should
+        begin a new MJD day and the old pre-leap $\Delta$UT should
+        continue to be used.  As the 61st second completes, the MJD
+        should revert to the start of the day as, simultaneously,
+        the $\Delta$UT changes by one second to its post-leap new value.
+  
    3.
+
    The $\Delta$UT (UT1-UTC) is tabulated in IERS circulars and
+        elsewhere.  It increases by exactly one second at the end of
+        each UTC leap second, introduced in order to keep $\Delta$UT
+        within $\pm$$0^{\rm s}\hspace{-0.3em}.9$.  The ``sidereal $\Delta$UT'' which forms
+        part of AOPRMS(13) is the same quantity, but converted from solar
+        to sidereal seconds and expressed in radians.
+  
    4.
+
    IMPORTANT - TAKE CARE WITH THE LONGITUDE SIGN CONVENTION.  The
+        longitude required by the present routine is east-positive,
+        in accordance with geographical convention (and right-handed).
+        In particular, note that the longitudes returned by the
+        sla_OBS routine are west-positive (as in the Astronomical
+        Almanac before 1984) and must be reversed in sign before use in
+        the present routine.
+  
    5.
+
    The polar coordinates XP,YP can be obtained from IERS
+        circulars and equivalent publications.  The
+        maximum amplitude is about 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.3$   .  If XP,YP values
+        are unavailable, use XP=YP=0D0.  See page B60 of the 1988
+        Astronomical Almanac for a definition of the two angles.
+  
    6.
+
    The height above sea level of the observing station, HM,
+        can be obtained from the Astronomical Almanac (Section J
+        in the 1988 edition), or via the routine sla_OBS.  If P,
+        the pressure in mB, is available, an adequate
+        estimate of HM can be obtained from the following expression:
+        
    HM=-29.3D0*TSL*LOG(P/1013.25D0)
+        
    
+        where TSL is the approximate sea-level air temperature in degrees K
+        (see Astrophysical Quantities, C.W.Allen, 3rd edition,
+        §52).  Similarly, if the pressure P is not known,
+        it can be estimated from the height of the observing
+        station, HM as follows:
+        
    P=1013.25D0*EXP(-HM/(29.3D0*TSL))
+        
    
+        Note, however, that the refraction is proportional to the
+        pressure and that an accurate P value is important for
+        precise work.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AOPPAT - Update Appt-to-Obs Parameters
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AOP - Apparent to Observed
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node210.html b/src/slalib/sun67.htx/node210.html
new file mode 100644
index 0000000..1a8e19e
--- /dev/null
+++ b/src/slalib/sun67.htx/node210.html
@@ -0,0 +1,177 @@
+
+
+
+
+Different Sorts of Mean Place
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Mean Place Transformations
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Aberration
+
     
     
    
+
    
+
    
+Different Sorts of Mean Place
+
    
+A particularly confusing aspect of published mean places is that they
+are sensitive to the precise way they were determined.  A mean
+place is not directly observable, even with fundamental
+instruments such as transit circles, and to produce a mean
+place will involve relying on some existing star catalogue,
+for example the fundamental catalogues FK4 and FK5,
+and applying given mathematical models of precession, nutation,
+aberration and so on.
+Note in particular that no star catalogue,
+even a fundamental catalogue such as FK4 or
+FK5, defines a coordinate system, strictly speaking;
+it is merely a list of star positions and proper motions.
+However, once the stars from a given catalogue
+are used as position calibrators, e.g. for
+transit-circle observations or for plate reductions, then a
+broader sense of there being a coordinate grid naturally
+arises, and such phrases as ``in the system of
+the FK4'' can legitimately be employed.  However,
+there is no formal link between the
+two concepts - no ``standard least squares fit'' between
+reality and the inevitably flawed catalogues.[*]  All such
+catalogues suffer at some level from systematic, zonal distortions
+of both the star positions and of the proper motions,
+and include measurement errors peculiar to individual
+stars.
+
    
+Many of these complications are of little significance except to
+specialists.  However, observational astronomers cannot
+escape exposure to at least the two main varieties of
+mean place, loosely called
+FK4 and FK5, and should be aware of
+certain pitfalls.  For most practical purposes the more recent
+system, FK5, is free of surprises and tolerates naive
+use well.  FK4, in contrast, contains two important traps:
+
      
+
    •  The FK4 system rotates at about
+
            $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$    per century relative to distant galaxies.
+      This is manifested as a systematic distortion in the
+      proper motions of all FK4-derived catalogues, which will
+      in turn pollute any astrometry done using those catalogues.
+      For example, FK4-based astrometry of a QSO using plates
+      taken decades apart will reveal a non-zero fictitious proper
+      motion, and any FK4 star which happens to have zero proper
+      motion is, in fact, slowly moving against the distant
+      background.  The FK4 frame rotates because it was
+      established before the nature of the Milky Way, and hence the
+      existence of systematic motions of nearby stars, had been
+      recognized.
+
    •  Star positions in the FK4 system are part-corrected for
+      annual aberration (see above) and embody the so-called
+      E-terms of aberration.
+
    
+The change from the old FK4-based system to FK5
+occurred at the beginning
+of 1984 as part of a package of resolutions made by the IAU in 1976,
+along with the adoption of J2000 as the reference epoch.  Star
+positions in the newer, FK5, system are free from the E-terms, and
+the system is a much better approximation to an
+inertial frame (about five times better).
+
    
+It may occasionally be convenient to specify the FK4 fictitious proper
+motion directly.  In FK4, the centennial proper motion of (for example)
+a QSO is:
+
    $\mu_\alpha=-$$0^{\rm s}\hspace{-0.3em}.015869$+(($0^{\rm s}\hspace{-0.3em}.029032$$~\sin \alpha
+ +$$0^{\rm s}\hspace{-0.3em}.000340$$~\cos \alpha ) \sin \delta
+ -$$0^{\rm s}\hspace{-0.3em}.000105$$~\cos \alpha
+ -$$0^{\rm s}\hspace{-0.3em}.000083$$~\sin \alpha ) \sec \delta $ 
    
+$\mu_\delta\,=+$      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.43549$   $~\cos \alpha
+ -$      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.00510$   $~\sin \alpha +
+ ($      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.00158$   $~\sin \alpha
+ -$      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.00125$   $~\cos \alpha ) \sin \delta
+ -$      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.00066$   $~\cos \delta $
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Mean Place Transformations
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Aberration
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node211.html b/src/slalib/sun67.htx/node211.html
new file mode 100644
index 0000000..2a8cbee
--- /dev/null
+++ b/src/slalib/sun67.htx/node211.html
@@ -0,0 +1,232 @@
+
+
+
+
+Mean Place Transformations
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Mean Place to Apparent Place
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Different Sorts of Mean Place
+
     
     
    
+
    
+
    
+Mean Place Transformations
+
    
+Figure 1 is based upon three varieties of mean $[\,\alpha,\delta\,]$ all of which are
+of practical significance to observing astronomers in the present era:
+
      
+
    •  Old style (FK4) with known proper motion in the FK4
+         system, and with parallax and radial velocity either
+         known or assumed zero.
+
    •  Old style (FK4) with zero proper motion in FK5,
+         and with parallax and radial velocity assumed zero.
+
    •  New style (FK5) with proper motion, parallax and
+         radial velocity either known or assumed zero.
+
    
+The figure outlines the steps required to convert positions in
+any of these systems to a J2000 $[\,\alpha,\delta\,]$ for the current
+epoch, as might be required in a telescope-control
+program for example.
+Most of the steps can be carried out by calling a single
+SLALIB routines;  there are other SLALIB routines which
+offer set-piece end-to-end transformation routines for common cases.
+Note, however, that SLALIB does not set out to provide the capability
+for arbitrary transformations of star-catalogue data
+between all possible systems of mean $[\,\alpha,\delta\,]$.Only in the (common) cases of FK4, equinox and epoch B1950,
+to FK5, equinox and epoch J2000, and vice versa are
+proper motion, parallax and radial velocity transformed
+along with the star position itself, the
+focus of SLALIB support.
+
    
+As an example of using SLALIB to transform mean places, here is
+a program which implements the top-left path of Figure 1.
+An FK4 $[\,\alpha,\delta\,]$ of arbitrary equinox and epoch and with
+known proper motion and
+parallax is transformed into an FK5 J2000 $[\,\alpha,\delta\,]$ for the current
+epoch.  As a test star we will use $\alpha=$$16^{h}\,09^{m}\,55^{s}.13$,$\delta=$$-75^{\circ}\,59^{'}\,27^{''}.2$, equinox 1900, epoch 1963.087,
+$\mu_\alpha=$$-0^{\rm s}\hspace{-0.3em}.0312$/y, $\mu_\delta=$      $+0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.103$   /y,
+parallax = 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.062$   , radial velocity = -34.22 km/s.  The
+epoch of observation is 1994.35.
+
    +            IMPLICIT NONE
+            DOUBLE PRECISION AS2R,S2R
+            PARAMETER (AS2R=4.8481368110953599D-6,S2R=7.2722052166430399D-5)
+            INTEGER J,I
+            DOUBLE PRECISION R0,D0,EQ0,EP0,PR,PD,PX,RV,EP1,R1,D1,R2,D2,R3,D3,
+           :                 R4,D4,R5,D5,R6,D6,EP1D,EP1B,W(3),EB(3),PXR,V(3)
+            DOUBLE PRECISION sla_EPB,sla_EPJ2D
+
+      *  RA, Dec etc of example star
+            CALL sla_DTF2R(16,09,55.13D0,R0,J)
+            CALL sla_DAF2R(75,59,27.2D0,D0,J)
+            D0=-D0
+            EQ0=1900D0
+            EP0=1963.087D0
+            PR=-0.0312D0*S2R
+            PD=+0.103D0*AS2R
+            PX=0.062D0
+            RV=-34.22D0
+            EP1=1994.35D0
+
+      *  Epoch of observation as MJD and Besselian epoch
+            EP1D=sla_EPJ2D(EP1)
+            EP1B=sla_EPB(EP1D)
+
+      *  Space motion to the current epoch
+            CALL sla_PM(R0,D0,PR,PD,PX,RV,EP0,EP1B,R1,D1)
+
+      *  Remove E-terms of aberration for the original equinox
+            CALL sla_SUBET(R1,D1,EQ0,R2,D2)
+
+      *  Precess to B1950
+            R3=R2
+            D3=D2
+            CALL sla_PRECES('FK4',EQ0,1950D0,R3,D3)
+
+      *  Add E-terms for the standard equinox B1950
+            CALL sla_ADDET(R3,D3,1950D0,R4,D4)
+
+      *  Transform to J2000, no proper motion
+            CALL sla_FK45Z(R4,D4,EP1B,R5,D5)
+
+      *  Parallax
+            CALL sla_EVP(sla_EPJ2D(EP1),2000D0,W,EB,W,W)
+            PXR=PX*AS2R
+            CALL sla_DCS2C(R5,D5,V)
+            DO I=1,3
+               V(I)=V(I)-PXR*EB(I)
+            END DO
+            CALL sla_DCC2S(V,R6,D6)
+             :
+
    
+
    
+It is interesting to look at how the $[\,\alpha,\delta\,]$ changes during the
+course of the calculation:
+
    
+		 16 09 55.130 -75 59 27.20 		 		 original equinox and epoch
+		 16 09 54.155 -75 59 23.98 		 		 with space motion
+		 16 09 54.229 -75 59 24.18 		 		 with old E-terms removed
+		 16 16 28.213 -76 06 54.57 		 		 precessed to 1950.0
+		 16 16 28.138 -76 06 54.37 		 		 with new E-terms
+		 16 23 07.901 -76 13 58.87 		 		 J2000, current epoch
+		 16 23 07.907 -76 13 58.92 		 		 including parallax
+
    
+
    
+Other remarks about the above (unusually complicated) example:
+
      
+
    •  If the original equinox and epoch were B1950, as is quite
+      likely, then it would be unnecessary to treat space motions
+      and E-terms explicitly.  Transformation to FK5 J2000 could
+      be accomplished simply by calling
+sla_FK425, after which
+      a call to
+sla_PM and the parallax code would complete the
+      work.
+
    •  The rigorous treatment of the E-terms
+      has only a small effect on the result.  Such refinements
+      are, nevertheless, worthwhile in order to facilitate comparisons and
+      to increase the chances that star positions from different
+      suppliers are compatible.
+
    •  The FK4 to FK5 transformations,
+sla_FK425
+      and
+sla_FK45Z,
+      are not as is sometimes assumed simply 50 years of precession,
+      though this indeed accounts for most of the change.  The
+      transformations also include adjustments
+      to the equinox, a revised precession model, elimination of the
+      E-terms, a change to the proper-motion time unit and so on.
+      The reason there are two routines rather than just one
+      is that the FK4 frame rotates relative to the background, whereas
+      the FK5 frame is a much better approximation to an
+      inertial frame, and zero proper
+      motion in FK4 does not, therefore, mean zero proper motion in FK5.
+      SLALIB also provides two routines,
+sla_FK524
+      and
+sla_FK54Z,
+      to perform the inverse transformations.
+
    •  Some star catalogues (FK4 itself is one) were constructed using slightly
+      different procedures for the polar regions compared with
+      elsewhere.  SLALIB ignores this inhomogeneity and always
+      applies the standard
+      transformations irrespective of location on the celestial sphere.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Mean Place to Apparent Place
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Different Sorts of Mean Place
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node212.html b/src/slalib/sun67.htx/node212.html
new file mode 100644
index 0000000..35a5044
--- /dev/null
+++ b/src/slalib/sun67.htx/node212.html
@@ -0,0 +1,171 @@
+
+
+
+
+Mean Place to Apparent Place
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Apparent Place to Observed Place
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Mean Place Transformations
+
     
     
    
+
    
+
    
+Mean Place to Apparent Place
+
    
+The geocentric apparent place of a source, or apparent place
+for short,
+is the $[\,\alpha,\delta\,]$ if viewed from the centre of the Earth,
+with respect to the true equator and equinox of date.
+Transformation of an FK5 mean $[\,\alpha,\delta\,]$, equinox J2000,
+current epoch, to apparent place involves the following effects:
+
      
+
    •  Light deflection - the gravitational lens effect of
+         the sun.
+
    •  Annual aberration.
+
    •  Precession/nutation.
+
    
+The light deflection is seldom significant.  Its value
+at the limb of the Sun is about
+
          $1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.74$   ;  it falls off rapidly with distance from the
+Sun and has shrunk to about
+
          $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.02$    at an elongation of $20^\circ$.
    
+As already described, the annual aberration
+is a function of the Earth's velocity
+relative to the solar system barycentre (available through the
+SLALIB routine
+sla_EVP)
+and produces shifts of up to about 
+      $20\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$   .
+
    
+The precession/nutation, from J2000 to the current epoch, is
+expressed by a rotation matrix which is available through the
+SLALIB routine
+sla_PRENUT.
+
    
+The whole mean-to-apparent transformation can be done using the SLALIB
+routine
+sla_MAP.  As a demonstration, here is a program which lists the
+North Polar Distance ($90^\circ-\delta$) of Polaris for
+the decade of closest approach to the Pole:
+
    +            IMPLICIT NONE
+            DOUBLE PRECISION PI,PIBY2,D2R,S2R,AS2R
+            PARAMETER (PI=3.141592653589793238462643D0)
+            PARAMETER (D2R=PI/180D0,
+           :           PIBY2=PI/2D0,
+           :           S2R=PI/(12D0*3600D0),
+           :           AS2R=PI/(180D0*3600D0))
+            DOUBLE PRECISION RM,DM,PR,PD,DATE,RA,DA
+            INTEGER J,IDS,IDE,ID,IYMDF(4),I
+            DOUBLE PRECISION sla_EPJ2D
+
+            CALL sla_DTF2R(02,31,49.8131D0,RM,J)
+            CALL sla_DAF2R(89,15,50.661D0,DM,J)
+            PR=+21.7272D0*S2R/100D0
+            PD=-1.571D0*AS2R/100D0
+            WRITE (*,'(1X,'//
+           :            '''Polaris north polar distance (deg) 2096-2105''/)')
+            WRITE (*,'(4X,''Date'',7X''NPD''/)')
+            CALL sla_CLDJ(2096,1,1,DATE,J)
+            IDS=NINT(DATE)
+            CALL sla_CLDJ(2105,12,31,DATE,J)
+            IDE=NINT(DATE)
+            DO ID=IDS,IDE,10
+               DATE=DBLE(ID)
+               CALL sla_DJCAL(0,DATE,IYMDF,J)
+               CALL sla_MAP(RM,DM,PR,PD,0D0,0D0,2000D0,DATE,RA,DA)
+               WRITE (*,'(1X,I4,2I3.2,F9.5)') (IYMDF(I),I=1,3),(PIBY2-DA)/D2R
+            END DO
+
+            END
+
    
+
    
+For cases where the transformation has to be repeated for different
+times or for more than one star, the straightforward
+sla_MAP
+approach is apt to be
+wasteful as both the Earth velocity and the
+precession/nutation matrix can be re-calculated relatively
+infrequently without ill effect.  A more efficient method is to
+perform the target-independent calculations only when necessary,
+by calling
+sla_MAPPA,
+and then to use either
+sla_MAPQKZ,
+when only the $[\,\alpha,\delta\,]$ is known, or
+sla_MAPQK,
+when full catalogue positions, including proper motion, parallax and
+radial velocity, are available.  How frequently to call
+sla_MAPPA
+depends on the accuracy objectives;  once per
+night will deliver sub-arcsecond accuracy for example.
+
    
+The routines
+sla_AMP
+and
+sla_AMPQK
+allow the reverse transformation, from apparent to mean place.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Apparent Place to Observed Place
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Mean Place Transformations
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node213.html b/src/slalib/sun67.htx/node213.html
new file mode 100644
index 0000000..4d2a0e1
--- /dev/null
+++ b/src/slalib/sun67.htx/node213.html
@@ -0,0 +1,181 @@
+
+
+
+
+Apparent Place to Observed Place
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Refraction
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Mean Place to Apparent Place
+
     
     
    
+
    
+
    
+Apparent Place to Observed Place
+
    
+The observed place of a source is its position as
+seen by a perfect theodolite at the location of the
+observer.  Transformation of an apparent $[\,\alpha,\delta\,]$ to observed 
+place involves the following effects:
+
      
+
    •  $[\,\alpha,\delta\,]$ to $[\,h,\delta\,]$.
    •  Diurnal aberration.
+
    •  $[\,h,\delta\,]$ to $[\,Az,El~]$.
    •  Refraction.
+
    
+The transformation from apparent $[\,\alpha,\delta\,]$ to
+apparent $[\,h,\delta\,]$ is made by allowing for
+Earth rotation through the sidereal time, $\theta$:
+
    \begin{displaymath}
+h = \theta - \alpha \end{displaymath}
    
+For this equation to work, $\alpha$ must be the apparent right
+ascension for the time of observation, and $\theta$ must be
+the local apparent sidereal time.  The latter is obtained
+as follows:
+
    
+
    1.
+
    from civil time obtain the coordinated universal time, UTC
+(more later on this);
+
    2.
+
    add the UT1-UTC (typically a few tenths of a second) to
+      give the UT;
+
    3.
+
    from the UT compute the Greenwich mean sidereal time (using
+sla_GMST);
+
    4.
+
    add the observer's (east) longitude, giving the local mean
+      sidereal time;
+
    5.
+
    add the equation of the equinoxes (using
+sla_EQEQX).
+
    
+The equation of the equinoxes ($=\Delta\psi\cos\epsilon$ plus
+small terms)
+is the effect of nutation on the sidereal time.
+Its value is typically a second or less.  It is
+interesting to note that if the object of the exercise is to
+transform a mean place all the way into an observed place (very
+often the case),
+then the equation of the
+equinoxes and the longitude component of nutation can both be
+omitted, removing a great deal of computation.  However, SLALIB
+follows the normal convention and  works via the apparent place.
+
    
+Note that for very precise work the observer's longitude should
+be corrected for polar motion.  This can be done with
+sla_POLMO.
+The corrections are always less than about 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.3$   , and
+are futile unless the position of the observer's telescope is known
+to better than a few metres.
+
    
+Tables of observed and
+predicted UT1-UTC corrections and polar motion data
+are published every few weeks by the International Earth Rotation Service.
+
    
+The transformation from apparent $[\,h,\delta\,]$ to topocentric
+$[\,h,\delta\,]$ consists of allowing for
+diurnal aberration.  This effect, maximum amplitude 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.2$   ,
+was described earlier.  There is no specific SLALIB routine
+for computing the diurnal aberration,
+though the routines
+sla_AOP etc. include it, and the required velocity vector can be
+determined by calling
+sla_GEOC.
+
    
+The next stage is the major coordinate rotation from local equatorial
+coordinates $[\,h,\delta\,]$ into horizon coordinates.  The SLALIB routines
+sla_E2H
+etc. can be used for this.  For high-precision
+applications the mean geodetic latitude should be corrected for polar
+motion.
+
    
+
    
+
+ 
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Refraction
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Mean Place to Apparent Place
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node214.html b/src/slalib/sun67.htx/node214.html
new file mode 100644
index 0000000..41b8d99
--- /dev/null
+++ b/src/slalib/sun67.htx/node214.html
@@ -0,0 +1,189 @@
+
+
+
+
+Refraction
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Efficiency considerations
+
    
+Up: Apparent Place to Observed Place
+
    
+ Previous: Apparent Place to Observed Place
+
     
     
    
+
    
+
    
+Refraction
+
    
+The final correction is for atmospheric refraction.
+This effect, which depends on local meteorological conditions and
+the effective colour of the source/detector combination,
+increases the observed elevation of the source by a
+significant effect even at moderate zenith distances, and near the
+horizon by over $0^{\circ}
+ \hspace{-0.37em}.\hspace{0.02em}5$.  The amount of refraction can by
+computed by calling the SLALIB routine
+sla_REFRO;
+however,
+this requires as input the observed zenith distance, which is what
+we are trying to predict.  For high precision it is
+therefore necessary to iterate, using the topocentric
+zenith distance as the initial estimate of the
+observed zenith distance.
+
    
+The full
+sla_REFRO refraction calculation is onerous, and for
+zenith distances of less than, say, $75^\circ$ the following
+model can be used instead:
+
    
+
    \begin{displaymath}
+\zeta _{vac} \approx \zeta _{obs}
+ + A \tan \zeta _{obs}
+ + B \tan ^{3}\zeta _{obs} \end{displaymath}
    
+where $\zeta _{vac}$ is the topocentric
+zenith distance (i.e. in vacuo),
+$\zeta_{obs}$ is the observed
+zenith distance (i.e. affected by refraction), and A and B are
+constants, about $60\hspace{-0.05em}^{'\hspace{-0.1em}'}$and 
+      $-0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.06$    respectively for a sea-level site.
+The two constants can be calculated for a given set of conditions
+by calling either
+sla_REFCO or
+sla_REFCOQ.
+
    
+sla_REFCO works by calling
+sla_REFRO for two zenith distances and fitting A and B
+to match.  The calculation is onerous, but delivers accurate
+results whatever the conditions.
+sla_REFCOQ uses a direct formulation of A and B and
+is much faster;  it is slightly less accurate than
+sla_REFCO but more than adequate for most practical purposes.
+
    
+Like the full refraction model, the two-term formulation works in the wrong
+direction for our purposes, predicting
+the in vacuo (topocentric) zenith distance
+given the refracted (observed) zenith distance,
+rather than vice versa.  The obvious approach of
+interchanging $\zeta _{vac}$ and $\zeta_{obs}$ and
+reversing the signs, though approximately
+correct, gives avoidable errors which are just significant in
+some applications;  for
+example about 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.2$    at $70^\circ$ zenith distance.  A
+much better result can easily be obtained, by using one Newton-Raphson
+iteration as follows:
+
    
+
    \begin{displaymath}
+\zeta _{obs} \approx \zeta _{vac}
+ - \frac{A \tan \zeta _{va...
+ ...
+ {1 + ( A + 3 B \tan ^{2}\zeta _{vac} ) \sec ^{2}\zeta _{vac}}\end{displaymath}
    
+
    
+The effect of refraction can be applied to an unrefracted
+zenith distance by calling
+sla_REFZ or to an unrefracted
+$[\,x,y,z\,]$ by calling
+sla_REFV.
+Over most of the sky these two routines deliver almost identical
+results, but beyond $\zeta=83^\circ$sla_REFV
+becomes unacceptably inaccurate while
+sla_REFZ
+remains usable.  (However
+sla_REFV
+is significantly faster, which may be important in some applications.)
+SLALIB also provides a routine for computing the airmass, the function
+sla_AIRMAS.
+
    
+The refraction ``constants'' returned by
+sla_REFCO and
+sla_REFCOQ
+are slightly affected by colour, especially at the blue end
+of the spectrum.  Where values for more than one
+wavelength are needed, rather than calling
+sla_REFCO
+several times it is more efficient to call
+sla_REFCO
+just once, for a selected ``base'' wavelength, and then to call
+sla_ATMDSP
+once for each wavelength of interest.
+
    
+All the SLALIB refraction routines work for radio wavelengths as well
+as the optical/IR band.  The radio refraction is very dependent on
+humidity, and an accurate value must be supplied.  There is no
+wavelength dependence, however.  The choice of optical/IR or
+radio is made by specifying a wavelength greater than $100\mu m$for the radio case.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Efficiency considerations
+
    
+Up: Apparent Place to Observed Place
+
    
+ Previous: Apparent Place to Observed Place
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node215.html b/src/slalib/sun67.htx/node215.html
new file mode 100644
index 0000000..020487b
--- /dev/null
+++ b/src/slalib/sun67.htx/node215.html
@@ -0,0 +1,87 @@
+
+
+
+
+Efficiency considerations
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: The Hipparcos Catalogue and the ICRS
+
    
+Up: Apparent Place to Observed Place
+
    
+ Previous: Refraction
+
     
     
    
+
    
+
    
+Efficiency considerations
+
    
+The complete apparent place to observed place transformation
+can be carried out by calling
+sla_AOP.
+For improved efficiency
+in cases of more than one star or a sequence of times, the
+target-independent calculations can be done once by
+calling
+sla_AOPPA,
+the time can be updated by calling
+sla_AOPPAT,
+and
+sla_AOPQK
+can then be used to perform the
+apparent-to-observed transformation.  The reverse transformation
+is available through
+sla_OAP
+and
+sla_OAPQK.
+(n.b. These routines use accurate but computationally-expensive
+refraction algorithms for zenith distances beyond about $76^\circ$.For many purposes, in-line code tailored to the accuracy requirements
+of the application will be preferable, for example ignoring UT1-UTC,
+omitting diurnal aberration and using
+sla_REFZ
+to apply the refraction.)
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: The Hipparcos Catalogue and the ICRS
+
    
+Up: Apparent Place to Observed Place
+
    
+ Previous: Refraction
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node216.html b/src/slalib/sun67.htx/node216.html
new file mode 100644
index 0000000..ab75104
--- /dev/null
+++ b/src/slalib/sun67.htx/node216.html
@@ -0,0 +1,110 @@
+
+
+
+
+The Hipparcos Catalogue and the ICRS
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Timescales
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Efficiency considerations
+
     
     
    
+
    
+
    
+The Hipparcos Catalogue and the ICRS
+
    
+With effect from the beginning of 1998, the IAU adopted a new
+reference system to replace FK5 J2000.  The new system, called the
+International Celestial Reference System (ICRS), differs profoundly
+from all predecessors in that the link with solar-system dynamics
+was broken;  the ICRS axes are defined in terms of the directions
+of a set of extragalactic sources, not in terms of the mean equator and
+equinox at a given reference epoch.  Although the ICRS and FK5 coordinates
+of any given object are almost the same, the orientation of the new frame
+was essentially arbitrary, and the close match to FK5 J2000 was contrived
+purely for reasons of continuity and convenience.
+
    
+A distinction is made between the reference system (the ICRS)
+and frame (ICRF).  The ICRS is the set of prescriptions and
+conventions together with the modelling required to define, at any
+time, a triad of axes.  The ICRF is a practical realization, and
+currently consists of a catalogue of equatorial coordinates for 608
+extragalactic radio sources observed by VLBI.
+
    
+The best optical realization of the ICRF currently available is the
+Hipparcos catalogue.  The extragalactic sources were not directly
+observable by the Hipparcos satellite and so the link from Hipparcos
+to ICRF was established through a variety of indirect techniques: VLBI and
+conventional interferometry of radio stars, photographic astrometry
+and so on.  The Hipparcos frame is aligned to the ICRF to within about
+0.5 mas and 0.5 mas/year (at epoch 1991.25).
+
    
+The Hipparcos catalogue includes all of the FK5 stars, which has enabled
+the orientation and spin of the latter to be studied.  At epoch J2000,
+the misalignment of the FK5 frame with respect to Hipparcos
+(and hence ICRS) are about 32 mas and 1 mas/year respectively.
+Consequently, for many practical purposes, including pointing
+telescopes, the IAU 1976-1982 conventions on reference frames and
+Earth orientation remain adequate and there is no need to change to
+Hipparcos coordinates, new precession/nutation models and so on.
+However, for the most exacting astrometric applications, SLALIB
+provides some support for Hipparcos coordinates in the form of
+four new routines:
+sla_FK52H and
+sla_H2FK5,
+which transform FK5 positions and proper motions to the Hipparcos frame
+and vice versa, and
+sla_FK5HZ and
+sla_HFK5Z,
+where the transformations are for stars whose Hipparcos proper motion is
+zero.
+
    
+Further information on the ICRS can be found in the paper by M.Feissel
+and F.Mignard, Astron.Astrophys. 331, L33-L36 (1988).
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Timescales
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Efficiency considerations
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node217.html b/src/slalib/sun67.htx/node217.html
new file mode 100644
index 0000000..b6fbe6c
--- /dev/null
+++ b/src/slalib/sun67.htx/node217.html
@@ -0,0 +1,92 @@
+
+
+
+
+Timescales
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Atomic Time: TAI
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: The Hipparcos Catalogue and the ICRS
+
     
     
    
+
    
+
    
+Timescales
+
    
+SLALIB provides for conversion between several timescales, and involves
+use of one or two others.  The full list is as follows:
+
      
+
    •  TAI: International Atomic Time
+
    •  UTC: Coordinated Universal Time
+
    •  UT: Universal Time
+
    •  GMST: Greenwich Mean Sidereal Time
+
    •  LAST: Local Apparent Sidereal Time
+
    •  TT: Terrestrial Time
+
    •  TDB: Barycentric Dynamical Time.
+
    
+Three obsolete timescales should be mentioned here to avoid confusion.
+
      
+
    •  GMT: Greenwich Mean Time - can mean either UTC or UT.
+
    •  ET: Ephemeris Time - more or less the same as either TT or TDB.
+
    •  TDT: Terrestrial Dynamical Time - former name of TT.
+
    
+
    
+
+ 
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Atomic Time: TAI
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: The Hipparcos Catalogue and the ICRS
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node218.html b/src/slalib/sun67.htx/node218.html
new file mode 100644
index 0000000..106412e
--- /dev/null
+++ b/src/slalib/sun67.htx/node218.html
@@ -0,0 +1,91 @@
+
+
+
+
+Atomic Time: TAI
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Universal Time: UTC, UT1
+
    
+Up: Timescales
+
    
+ Previous: Timescales
+
     
     
    
+
    
+
    
+Atomic Time: TAI
+
    
+International Atomic Time TAI is a laboratory timescale.  Its
+unit is the SI second, which is defined in terms of a
+defined number
+of wavelengths of the radiation produced by a certain electronic
+transition in the caesium 133 atom.  It
+is realized through a changing
+population of high-precision atomic clocks held
+at standards institutes in various countries.  There is an
+elaborate process of continuous intercomparison, leading to
+a weighted average of all the clocks involved.
+
    
+Though TAI shares the same second as the more familiar UTC, the
+two timescales are noticeably separated in epoch because of the
+build-up of leap seconds.  At the time of writing, UTC
+lags about half a minute behind TAI.
+
    
+For any given date, the difference TAI-UTC
+can be obtained by calling the SLALIB routine
+sla_DAT.
+Note, however, that an up-to-date copy of the routine must be used if
+the most recent leap seconds are required.  For applications
+where this is critical, mechanisms independent of SLALIB
+and under local control must
+be set up;  in such cases
+sla_DAT
+can be useful as an
+independent check, for test dates within the range of the
+available version.  Up-to-date information on TAI-UTC is available
+from ftp://maia.usno.navy.mil/ser7/tai-utc.dat.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Universal Time: UTC, UT1
+
    
+Up: Timescales
+
    
+ Previous: Timescales
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node219.html b/src/slalib/sun67.htx/node219.html
new file mode 100644
index 0000000..4214aaa
--- /dev/null
+++ b/src/slalib/sun67.htx/node219.html
@@ -0,0 +1,184 @@
+
+
+
+
+Universal Time: UTC, UT1
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Sidereal Time: GMST, LAST
+
    
+Up: Timescales
+
    
+ Previous: Atomic Time: TAI
+
     
     
    
+
    
+
    
+Universal Time: UTC, UT1
+
    
+Coordinated Universal Time UTC is the basis of civil timekeeping.
+Most time zones differ from UTC by an integer number
+of hours, though a few (e.g. parts of Canada and Australia) differ
+by n+0.5 hours.  The UTC second is the same as the SI second,
+as for TAI.  In the long term, UTC keeps in step with the
+Sun.  It does so even though the Earth's rotation is slightly
+variable (due to large scale movements of water and atmosphere
+among other things) by occasionally introducing a leap
+second.
+
    Universal Time UT, or more specifically UT1,
+is in effect the mean solar time.  It is continuous
+(i.e. there are no leap seconds) but has a variable
+rate because of the Earth's non-uniform rotation period.  It is
+needed for computing the sidereal time, an essential part of
+pointing a telescope at a celestial source.  To obtain UT1, you
+have to look up the value of UT1-UTC for the date concerned
+in tables published by the International Earth Rotation
+Service;  this quantity, kept in the range
+$\pm$$0^{\rm s}\hspace{-0.3em}.9$ by means of UTC leap
+seconds, is then added to the UTC.  The quantity UT1-UTC,
+which typically changes by 1 or 2 ms per day,
+can only be obtained by observation, though seasonal trends
+are known and the IERS listings are able to predict some way into
+the future with adequate accuracy for pointing telescopes.
+
    
+UTC leap seconds are introduced as necessary,
+usually at the end of December or June.
+On the average the solar day is slightly longer
+than the nominal 86,400 SI seconds and so leap seconds are always positive;
+however, provision exists for negative leap seconds if needed.
+The form of a leap second can be seen from the
+following description of the end of June 1994:
+
     
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    Figure 1:
+Relationship Between Celestial Coordinates
          
       UTCUT1-UTCUT1
          
    1994June3023 59 58-0.21823 59 57.782
       23 59 59-0.21823 59 58.782
       23 59 60-0.21823 59 59.782
     July100 00 00+0.78200 00 00.782
       00 00 01+0.78200 00 01.782
    
+
    
+Note that UTC has to be expressed as hours, minutes and
+seconds (or at least in seconds for a given date) if leap seconds
+are to be taken into account.  It is improper to express a UTC as a
+Julian Date, for example, because there will be an ambiguity
+during a leap second (in the above example,
+1994 June 30 $23^{h}\,59^{m}\,60^{s}.0$ and
+1994 July 1 $00^{h}\,00^{m}\,00^{s}.0$ would both come out as
+MJD 49534.00000).  Although in the vast majority of
+cases this won't matter, there are potential problems in
+on-line data acquisition systems and in applications involving
+taking the difference between two times.  Note that although the routines
+sla_DAT
+and
+sla_DTT
+expect UTC in the form of an MJD, the meaning here is really a
+whole-number date rather than a time.  Though the routines will accept
+a fractional part and will almost always function correctly, on a day
+which ends with a leap
+second incorrect results would be obtained during the leap second
+itself because by then the MJD would have moved into the next day.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Sidereal Time: GMST, LAST
+
    
+Up: Timescales
+
    
+ Previous: Atomic Time: TAI
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node22.html b/src/slalib/sun67.htx/node22.html
new file mode 100644
index 0000000..4e96061
--- /dev/null
+++ b/src/slalib/sun67.htx/node22.html
@@ -0,0 +1,119 @@
+
+
+
+
+SLA_AOPPAT - Update Appt-to-Obs Parameters
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AOPQK - Quick Appt-to-Observed
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AOPPA - Appt-to-Obs Parameters
+
     
     
    
+
    
+
    SLA_AOPPAT - Update Appt-to-Obs Parameters
+  
+
    
+       
    
+
    ACTION:
+
    Recompute the sidereal time in the apparent to observed place
+star-independent parameter block.
+
        
    CALL:
+
    CALL sla_AOPPAT (DATE, AOPRMS)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    DATEDUTC date/time (Modified Julian Date, JD-2400000.5)
    AOPRMSD(14)star-independent apparent-to-observed parameters:
    (1-12)not required
    (13)longitude + eqn of equinoxes +
+``sidereal $\Delta$UT'' (radians)
    (14)not required
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    AOPRMSD(14)star-independent apparent-to-observed parameters:
    (1-13)not changed
    (14)local apparent sidereal time (radians)
    
+
          
    
+
    NOTE:
+
    For more information, see sla_AOPPA.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AOPQK - Quick Appt-to-Observed
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AOPPA - Appt-to-Obs Parameters
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node220.html b/src/slalib/sun67.htx/node220.html
new file mode 100644
index 0000000..84db99f
--- /dev/null
+++ b/src/slalib/sun67.htx/node220.html
@@ -0,0 +1,96 @@
+
+
+
+
+Sidereal Time: GMST, LAST
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Dynamical Time: TT, TDB
+
    
+Up: Timescales
+
    
+ Previous: Universal Time: UTC, UT1
+
     
     
    
+
    
+
    
+Sidereal Time: GMST, LAST
+
    
+Sidereal Time is the ``time of day'' relative to the
+stars rather than to the Sun.  After
+one sidereal day the stars come back to the same place in the
+sky, apart from sub-arcsecond precession effects.  Because the Earth
+rotates faster relative to the stars than to the Sun by one day
+per year, the sidereal second is shorter than the solar
+second; the ratio is about 0.9973.
+
    
+The Greenwich Mean Sidereal Time GMST is
+linked to UT1 by a numerical formula which
+is implemented in the SLALIB routines
+sla_GMST
+and
+sla_GMSTA.
+There are, of course, no leap seconds in GMST, but the second
+changes in length along with the UT1 second, and also varies
+over long periods of time because of slow changes in the Earth's
+orbit.  This makes the timescale unsuitable for everything except
+predicting the apparent directions of celestial sources.
+
    
+The Local Apparent Sidereal Time LAST is the apparent right
+ascension of the local meridian, from which the hour angle of any
+star can be determined knowing its $\alpha$.  It can be obtained from the
+GMST by adding the east longitude (corrected for polar motion
+in precise work) and the equation of the equinoxes.  The
+latter, already described, is an aspect of the nutation effect
+and can be predicted by calling the SLALIB routine
+sla_EQEQX
+or, neglecting certain very small terms, by calling
+sla_NUTC
+and using the expression $\Delta\psi\cos\epsilon$.
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Dynamical Time: TT, TDB
+
    
+Up: Timescales
+
    
+ Previous: Universal Time: UTC, UT1
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node221.html b/src/slalib/sun67.htx/node221.html
new file mode 100644
index 0000000..926f2ce
--- /dev/null
+++ b/src/slalib/sun67.htx/node221.html
@@ -0,0 +1,158 @@
+
+
+
+
+Dynamical Time: TT, TDB
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Calendars
+
    
+Up: Timescales
+
    
+ Previous: Sidereal Time: GMST, LAST
+
     
     
    
+
    
+
    
+Dynamical Time: TT, TDB
+
    
+Dynamical time is the independent variable in the theories
+which describe the motions of bodies in the solar system.  When
+you use published formulae which model the position of the
+Earth in its orbit, for example, or look up
+the Moon's position in a precomputed ephemeris, the date and time
+you use must be in terms of one of the dynamical timescales.  It
+is a common but understandable mistake to use UT directly, in which
+case the results will be about 1 minute out (in the present
+era).
+
    
+It is not hard to see why such timescales are necessary.
+UTC would clearly be unsuitable as the argument of an
+ephemeris because of leap seconds.
+A solar-system ephemeris based on UT1 or sidereal time would somehow
+have to include the unpredictable variations of the Earth's rotation.
+TAI would work, but eventually
+the ephemeris and the ensemble of atomic clocks would drift apart.
+In effect, the ephemeris is a clock, with the bodies of
+the solar system the hands.
+
    
+Only two of the dynamical timescales are of any great importance to
+observational astronomers, TT and TDB.  (The obsolete
+timescale ET, ephemeris time, was more or less the same as TT.)
+
    Terrestrial Time TT is
+the theoretical timescale of apparent geocentric ephemerides of solar
+system bodies.  It applies, in principle,
+to an Earthbound clock, at sea-level, and for practical purposes
+it is tied to
+Atomic Time TAI through the formula TT = TAI + $32^{\rm s}\hspace{-0.3em}.184$.In practice, therefore, the units of TT are ordinary SI seconds, and
+the offset of $32^{\rm s}\hspace{-0.3em}.184$ with respect to TAI is fixed.
+The SLALIB routine
+sla_DTT
+returns TT-UTC for a given UTC 
+(n.b.  sla_DTT
+calls
+sla_DAT,
+and the latter must be an up-to-date version if recent leap seconds are
+to be taken into account).
+
    Barycentric Dynamical Time TDB differs from TT by an amount which
+cycles back and forth by a millisecond or two due to
+relativistic effects.  The variation is
+negligible for most purposes, but unless taken into
+account would swamp
+long-term analysis of pulse arrival times from the
+millisecond pulsars.  It is a consequence of
+the TT clock being on the Earth rather than in empty
+space:  the ellipticity of
+the Earth's orbit means that the TT clock's speed and
+gravitational potential vary slightly
+during the course of the year, and as a consequence
+its rate as seen from an outside observer
+varies due to transverse Doppler effect and gravitational
+redshift.  By definition, TDB and TT differ only
+by periodic terms, and the main effect
+is a sinusoidal variation of amplitude $0^{\rm s}\hspace{-0.3em}.0016$;  the
+largest planetary terms are nearly two orders of magnitude
+smaller.  The SLALIB routine
+sla_RCC
+provides a model of
+TDB-TT accurate to a few nanoseconds.
+There are other dynamical timescales, not supported by
+SLALIB routines, which include allowance also for the secular terms.
+These timescales gain on TT and TDB by about $0^{\rm s}\hspace{-0.3em}.0013$/day.
+
    
+For most purposes the more accessible TT is the timescale to use,
+for example when calling
+sla_PRENUT
+to generate a precession/nutation matrix or when calling
+sla_EVP
+to predict the
+Earth's position and velocity.  For some purposes TDB is the
+correct timescale, for example when interrogating the JPL planetary
+ephemeris (see Starlink User Note 87), though in most cases
+TT will be near enough and will involve less computation.
+
    
+Investigations of topocentric solar-system phenomena such as
+occultations and eclipses require solar time as well as dynamical
+time.  TT/TDB/ET is all that is required in order to compute the geocentric
+circumstances, but if horizon coordinates or geocentric parallax
+are to be tackled UT is also needed.  A rough estimate
+of $\Delta {\rm T} = {\rm ET} - {\rm UT}$ is
+available via the routine
+sla_DT.
+For a given epoch (e.g. 1650) this returns an approximation
+to $\Delta {\rm T}$ in seconds.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Calendars
+
    
+Up: Timescales
+
    
+ Previous: Sidereal Time: GMST, LAST
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node222.html b/src/slalib/sun67.htx/node222.html
new file mode 100644
index 0000000..7cc8f58
--- /dev/null
+++ b/src/slalib/sun67.htx/node222.html
@@ -0,0 +1,113 @@
+
+
+
+
+Calendars
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Geocentric Coordinates
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Dynamical Time: TT, TDB
+
     
     
    
+
    
+
    
+Calendars
+
    
+The ordinary Gregorian Calendar Date,
+together with a time of day, can be
+used to express an epoch in any desired timescale.  For many purposes,
+however, a continuous count of days is more convenient, and for
+this purpose the system of Julian Day Number can be used.
+JD zero is located about 7000 years ago, well before the
+historical era, and is formally defined in terms of Greenwich noon;
+Julian Day Number 2449444 began at noon on 1994 April 1.  Julian Date
+is the same system but with a fractional part appended;
+Julian Date 2449443.5 was the midnight on which 1994 April 1
+commenced.  Because of the unwieldy size of Julian Dates
+and the awkwardness of the half-day offset, it is
+accepted practice to remove the leading `24' and the trailing `.5',
+producing what is called the Modified Julian Date:
+MJD = JD-2400000.5.  SLALIB routines use MJD, as opposed to
+JD, throughout, largely to avoid loss of precision.
+1994 April 1 commenced at MJD 49443.0.
+
    
+Despite JD (and hence MJD) being defined in terms of (in effect)
+UT, the system can be used in conjunction with other timescales
+such as TAI, TT and TDB (and even sidereal time through the
+concept of Greenwich Sidereal Date).  However, it is improper
+to express a UTC as a JD or MJD because of leap seconds.
+
    
+SLALIB has six routines for converting to and from dates in
+the Gregorian calendar.  The routines
+sla_CLDJ
+and
+sla_CALDJ
+both convert a calendar date into an MJD, the former interpreting
+years between 0 and 99 as 1st century and the latter as late 20th or
+early 21st century.  The routines sla_DJCL
+and
+sla_DJCAL
+both convert an MJD into calendar year, month, day and fraction of a day;
+the latter performs rounding to a specified precision, important
+to avoid dates like `94 04 01.***' appearing in messages.
+Some of SLALIB's low-precision ephemeris routines
+(sla_EARTH,
+sla_MOON
+and
+sla_ECOR)
+work in terms of year plus day-in-year (where
+day 1 = January 1st, at least for the modern era).
+This form of date can be generated by
+calling
+sla_CALYD
+(which defaults years 0-99 into 1950-2049)
+or
+sla_CLYD
+(which covers the full range from prehistoric times).
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Geocentric Coordinates
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Dynamical Time: TT, TDB
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node223.html b/src/slalib/sun67.htx/node223.html
new file mode 100644
index 0000000..497a385
--- /dev/null
+++ b/src/slalib/sun67.htx/node223.html
@@ -0,0 +1,139 @@
+
+
+
+
+Geocentric Coordinates
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Ephemerides
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Calendars
+
     
     
    
+
    
+
    
+Geocentric Coordinates
+
    
+The location of the observer on the Earth is significant in a
+number of ways.  The most obvious, of course, is the effect of latitude
+on the observed $[\,Az,El~]$ of a star.  Less obvious is the need to
+allow for geocentric parallax when finding the Moon with a
+telescope (and when doing high-precision work involving the
+Sun or planets), and the need to correct observed radial
+velocities and apparent pulsar periods for the effects
+of the Earth's rotation.
+
    
+The SLALIB routine
+sla_OBS
+supplies details of groundbased observatories from an internal
+list.  This is useful when writing applications that apply to
+more than one observatory;  the user can enter a brief name,
+or browse through a list, and be spared the trouble of typing
+in the full latitude, longitude etc.  The following
+Fortran code returns the full name, longitude and latitude
+of a specified observatory:
+
    +            CHARACTER IDENT*10,NAME*40
+            DOUBLE PRECISION W,P,H
+             :
+            CALL sla_OBS(0,IDENT,NAME,W,P,H)
+            IF (NAME.EQ.'?') ...             (not recognized)
+
    
+
    (Beware of the longitude sign convention, which is west +ve
+for historical reasons.)  The following lists all
+the supported observatories:
+
    +             :
+            INTEGER N
+             :
+            N=1
+            NAME=' '
+            DO WHILE (NAME.NE.'?')
+               CALL sla_OBS(N,IDENT,NAME,W,P,H)
+               IF (NAME.NE.'?') THEN
+                  WRITE (*,'(1X,I3,4X,A,4X,A)') N,IDENT,NAME
+                  N=N+1
+               END IF
+            END DO
+
    
+
    
+The routine
+sla_GEOC
+converts a geodetic latitude
+(one referred to the local horizon) to a geocentric position,
+taking into account the Earth's oblateness and also the height
+above sea level of the observer.  The results are expressed in
+vector form, namely as the distance of the observer from
+the spin axis and equator respectively.  The geocentric
+latitude can be found be evaluating ATAN2 of the
+two numbers.  A full 3-D vector description of the position
+and velocity of the observer is available through the routine
+sla_PVOBS.
+For a specified geodetic latitude, height above
+sea level, and local sidereal time,
+sla_PVOBS
+generates a 6-element vector containing the position and
+velocity with respect to the true equator and equinox of
+date (i.e. compatible with apparent $[\,\alpha,\delta\,]$).  For
+some applications it will be necessary to convert to a
+mean $[\,\alpha,\delta\,]$ frame (notably FK5, J2000) by multiplying
+elements 1-3 and 4-6 respectively with the appropriate
+precession matrix.  (In theory an additional correction to the
+velocity vector is needed to allow for differential precession,
+but this correction is always negligible.)
+
    
+See also the discussion of the routine
+sla_RVEROT,
+later.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Ephemerides
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Calendars
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node224.html b/src/slalib/sun67.htx/node224.html
new file mode 100644
index 0000000..4cb8678
--- /dev/null
+++ b/src/slalib/sun67.htx/node224.html
@@ -0,0 +1,617 @@
+
+
+
+
+Ephemerides
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Radial Velocity and Light-Time Corrections
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Geocentric Coordinates
+
     
     
    
+
    
+
    
+Ephemerides
+
    
+SLALIB includes routines for generating positions and
+velocities of Solar-System bodies.  The accuracy objectives are
+modest, and the SLALIB facilities do not attempt
+to compete with precomputed ephemerides such as
+those provided by JPL, or with models containing
+thousands of terms.  It is also worth noting
+that SLALIB's very accurate star coordinate conversion
+routines are not strictly applicable to solar-system cases,
+though they are adequate for most practical purposes.
+
    
+Earth/Sun ephemerides can be generated using the routine
+sla_EVP,
+which predicts Earth position and velocity with respect to both the
+solar-system barycentre and the
+Sun.  Maximum velocity error is 0.42 metres per second;  maximum
+heliocentric position error is 1600 km (about $2\hspace{-0.05em}^{'\hspace{-0.1em}'}$), with
+barycentric position errors about 4 times worse.
+(The Sun's position as
+seen from the Earth can, of course, be obtained simply by
+reversing the signs of the Cartesian components of the
+Earth:Sun vector.)
+
    
+Geocentric Moon ephemerides are available from
+sla_DMOON,
+which predicts the Moon's position and velocity with respect to
+the Earth's centre.  Direction accuracy is usually better than
+10 km ($5\hspace{-0.05em}^{'\hspace{-0.1em}'}$) and distance accuracy a little worse.
+
    
+Lower-precision but faster predictions for the Sun and Moon
+can be made by calling
+sla_EARTH
+and
+sla_MOON.
+Both are single precision and accept dates in the form of
+year, day-in-year and fraction of day
+(starting from a calendar date you need to call
+sla_CLYD
+or
+sla_CALYD
+to get the required year and day).
+The
+sla_EARTH
+routine returns the heliocentric position and velocity
+of the Earth's centre for the mean equator and
+equinox of date.  The accuracy is better than 20,000 km in position
+and 10 metres per second in speed.
+The
+position and velocity of the Moon with respect to the
+Earth's centre for the mean equator and ecliptic of date
+can be obtained by calling
+sla_MOON.
+The positional accuracy is better than $30\hspace{-0.05em}^{'\hspace{-0.1em}'}$ in direction
+and 1000 km in distance.
+
    
+Approximate ephemerides for all the major planets
+can be generated by calling
+sla_PLANET
+or
+sla_RDPLAN.  These routines offer arcminute accuracy (much
+better for the inner planets and for Pluto) over a span of several
+millennia (but only $\pm100$ years for Pluto).
+The routine
+sla_PLANET produces heliocentric position and
+velocity in the form of equatorial $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$ for the
+mean equator and equinox of J2000.  The vectors
+produced by
+sla_PLANET
+can be used in a variety of ways according to the
+requirements of the application concerned.  The routine
+sla_RDPLAN
+uses
+sla_PLANET
+and
+sla_DMOON
+to deal with the common case of predicting
+a planet's apparent $[\,\alpha,\delta\,]$ and angular size as seen by a
+terrestrial observer.
+
    
+Note that in predicting the position in the sky of a solar-system body
+it is necessary to allow for geocentric parallax.  This correction
+is essential in the case of the Moon, where the observer's
+position on the Earth can affect the Moon's $[\,\alpha,\delta\,]$ by up to
+$1^\circ$.  The calculation can most conveniently be done by calling
+sla_PVOBS and subtracting the resulting 6-vector from the
+one produced by
+sla_DMOON, as is demonstrated by the following example:
+
    +      *  Demonstrate the size of the geocentric parallax correction
+      *  in the case of the Moon.  The test example is for the AAT,
+      *  before midnight, in summer, near first quarter.
+
+            IMPLICIT NONE
+            CHARACTER NAME*40,SH,SD
+            INTEGER J,I,IHMSF(4),IDMSF(4)
+            DOUBLE PRECISION SLONGW,SLAT,H,DJUTC,FDUTC,DJUT1,DJTT,STL,
+           :                 RMATN(3,3),PMM(6),PMT(6),RM,DM,PVO(6),TL
+            DOUBLE PRECISION sla_DTT,sla_GMST,sla_EQEQX,sla_DRANRM
+
+      *  Get AAT longitude and latitude in radians and height in metres
+            CALL sla_OBS(0,'AAT',NAME,SLONGW,SLAT,H)
+
+      *  UTC (1992 January 13, 11 13 59) to MJD
+            CALL sla_CLDJ(1992,1,13,DJUTC,J)
+            CALL sla_DTF2D(11,13,59.0D0,FDUTC,J)
+            DJUTC=DJUTC+FDUTC
+
+      *  UT1 (UT1-UTC value of -0.152 sec is from IERS Bulletin B)
+            DJUT1=DJUTC+(-0.152D0)/86400D0
+
+      *  TT
+            DJTT=DJUTC+sla_DTT(DJUTC)/86400D0
+
+      *  Local apparent sidereal time
+            STL=sla_GMST(DJUT1)-SLONGW+sla_EQEQX(DJTT)
+
+      *  Geocentric position/velocity of Moon (mean of date)
+            CALL sla_DMOON(DJTT,PMM)
+
+      *  Nutation to true equinox of date
+            CALL sla_NUT(DJTT,RMATN)
+            CALL sla_DMXV(RMATN,PMM,PMT)
+            CALL sla_DMXV(RMATN,PMM(4),PMT(4))
+
+      *  Report geocentric HA,Dec
+            CALL sla_DCC2S(PMT,RM,DM)
+            CALL sla_DR2TF(2,sla_DRANRM(STL-RM),SH,IHMSF)
+            CALL sla_DR2AF(1,DM,SD,IDMSF)
+            WRITE (*,'(1X,'' geocentric:'',2X,A,I2.2,2I3.2,''.'',I2.2,'//
+           :                              '1X,A,I2.2,2I3.2,''.'',I1)')
+           :                                                SH,IHMSF,SD,IDMSF
+
+      *  Geocentric position of observer (true equator and equinox of date)
+            CALL sla_PVOBS(SLAT,H,STL,PVO)
+
+      *  Place origin at observer
+            DO I=1,6
+               PMT(I)=PMT(I)-PVO(I)
+            END DO
+
+      *  Allow for planetary aberration
+            TL=499.004782D0*SQRT(PMT(1)**2+PMT(2)**2+PMT(3)**2)
+            DO I=1,3
+               PMT(I)=PMT(I)-TL*PMT(I+3)
+            END DO
+
+      *  Report topocentric HA,Dec
+            CALL sla_DCC2S(PMT,RM,DM)
+            CALL sla_DR2TF(2,sla_DRANRM(STL-RM),SH,IHMSF)
+            CALL sla_DR2AF(1,DM,SD,IDMSF)
+            WRITE (*,'(1X,''topocentric:'',2X,A,I2.2,2I3.2,''.'',I2.2,'//
+           :                              '1X,A,I2.2,2I3.2,''.'',I1)')
+           :                                                SH,IHMSF,SD,IDMSF
+            END
+
    
+
    
+The output produced is as follows:
+
    +       geocentric:  +03 06 55.59 +15 03 39.0
+      topocentric:  +03 09 23.79 +15 40 51.5
+
    
+
    (An easier but
+less instructive method of estimating the topocentric apparent place of the
+Moon is to call the routine
+sla_RDPLAN.)
+
    
+As an example of using
+sla_PLANET,
+the following program estimates the geocentric separation
+between Venus and Jupiter during a close conjunction
+in 2BC, which is a star-of-Bethlehem candidate:
+
    +      *  Compute time and minimum geocentric apparent separation
+      *  between Venus and Jupiter during the close conjunction of 2 BC.
+
+            IMPLICIT NONE
+
+            DOUBLE PRECISION SEPMIN,DJD0,FD,DJD,DJDM,DF,PV(6),RMATP(3,3),
+           :                 PVM(6),PVE(6),TL,RV,DV,RJ,DJ,SEP
+            INTEGER IHOUR,IMIN,J,I,IHMIN,IMMIN
+            DOUBLE PRECISION sla_EPJ,sla_DSEP
+
+
+      *  Search for closest approach on the given day
+            DJD0=1720859.5D0
+            SEPMIN=1D10
+            DO IHOUR=20,22
+               DO IMIN=0,59
+                  CALL sla_DTF2D(IHOUR,IMIN,0D0,FD,J)
+
+      *        Julian date and MJD
+                  DJD=DJD0+FD
+                  DJDM=DJD-2400000.5D0
+
+      *        Earth to Moon (mean of date)
+                  CALL sla_DMOON(DJDM,PV)
+
+      *        Precess Moon position to J2000
+                  CALL sla_PRECL(sla_EPJ(DJDM),2000D0,RMATP)
+                  CALL sla_DMXV(RMATP,PV,PVM)
+
+      *        Sun to Earth-Moon Barycentre (mean J2000)
+                  CALL sla_PLANET(DJDM,3,PVE,J)
+
+      *        Correct from EMB to Earth
+                  DO I=1,3
+                     PV(I)=PVE(I)-0.012150581D0*PVM(I)
+                  END DO
+
+      *        Sun to Venus
+                  CALL sla_PLANET(DJDM,2,PV,J)
+
+      *        Earth to Venus
+                  DO I=1,6
+                     PV(I)=PV(I)-PVE(I)
+                  END DO
+
+      *        Light time to Venus (sec)
+                  TL=499.004782D0*SQRT((PV(1)-PVE(1))**2+
+           :                           (PV(2)-PVE(2))**2+
+           :                           (PV(3)-PVE(3))**2)
+
+      *        Extrapolate backwards in time by that much
+                  DO I=1,3
+                     PV(I)=PV(I)-TL*PV(I+3)
+                  END DO
+
+      *       To RA,Dec
+                  CALL sla_DCC2S(PV,RV,DV)
+
+      *        Same for Jupiter
+                  CALL sla_PLANET(DJDM,5,PV,J)
+                  DO I=1,6
+                     PV(I)=PV(I)-PVE(I)
+                  END DO
+                  TL=499.004782D0*SQRT((PV(1)-PVE(1))**2+
+           :                           (PV(2)-PVE(2))**2+
+           :                           (PV(3)-PVE(3))**2)
+                  DO I=1,3
+                     PV(I)=PV(I)-TL*PV(I+3)
+                  END DO
+                  CALL sla_DCC2S(PV,RJ,DJ)
+
+      *        Separation (arcsec)
+                  SEP=sla_DSEP(RV,DV,RJ,DJ)
+
+      *        Keep if smallest so far
+                  IF (SEP.LT.SEPMIN) THEN
+                     IHMIN=IHOUR
+                     IMMIN=IMIN
+                     SEPMIN=SEP
+                  END IF
+               END DO
+            END DO
+
+      *  Report
+            WRITE (*,'(1X,I2.2,'':'',I2.2,F6.1)') IHMIN,IMMIN,
+           :                                      206264.8062D0*SEPMIN
+
+            END
+
    
+
    
+The output produced (the Ephemeris Time on the day in question, and
+the closest approach in arcseconds) is as follows:
+
    +      21:19  33.7
+
    
+
    
+For comparison, accurate predictions based on the JPL DE102 ephemeris
+give a separation about $8\hspace{-0.05em}^{'\hspace{-0.1em}'}$ less than
+the above estimate, occurring about half an hour earlier
+(see Sky and Telescope, April 1987, p357).
+
    
+The following program demonstrates
+sla_RDPLAN.
+
    +      *  For a given date, time and geographical location, output
+      *  a table of planetary positions and diameters.
+
+            IMPLICIT NONE
+            CHARACTER PNAMES(0:9)*7,B*80,S
+            INTEGER I,NP,IY,J,IM,ID,IHMSF(4),IDMSF(4)
+            DOUBLE PRECISION R2AS,FD,DJM,ELONG,PHI,RA,DEC,DIAM
+            PARAMETER (R2AS=206264.80625D0)
+            DATA PNAMES / 'Sun','Mercury','Venus','Moon','Mars','Jupiter',
+           :              'Saturn','Uranus','Neptune', 'Pluto' /
+
+
+      *  Loop until 'end' typed
+            B=' '
+            DO WHILE (B.NE.'END'.AND.B.NE.'end')
+
+      *     Get date, time and observer's location
+               PRINT *,'Date? (Y,M,D, Gregorian)'
+               READ (*,'(A)') B
+               IF (B.NE.'END'.AND.B.NE.'end') THEN
+                  I=1
+                  CALL sla_INTIN(B,I,IY,J)
+                  CALL sla_INTIN(B,I,IM,J)
+                  CALL sla_INTIN(B,I,ID,J)
+                  PRINT *,'Time? (H,M,S, dynamical)'
+                  READ (*,'(A)') B
+                  I=1
+                  CALL sla_DAFIN(B,I,FD,J)
+                  FD=FD*2.3873241463784300365D0
+                  CALL sla_CLDJ(IY,IM,ID,DJM,J)
+                  DJM=DJM+FD
+                  PRINT *,'Longitude? (D,M,S, east +ve)'
+                  READ (*,'(A)') B
+                  I=1
+                  CALL sla_DAFIN(B,I,ELONG,J)
+                  PRINT *,'Latitude? (D,M,S, (geodetic)'
+                  READ (*,'(A)') B
+                  I=1
+                  CALL sla_DAFIN(B,I,PHI,J)
+
+      *        Loop planet by planet
+                  DO NP=0,8
+
+      *           Get RA,Dec and diameter
+                     CALL sla_RDPLAN(DJM,NP,ELONG,PHI,RA,DEC,DIAM)
+
+      *           One line of report
+                     CALL sla_DR2TF(2,RA,S,IHMSF)
+                     CALL sla_DR2AF(1,DEC,S,IDMSF)
+                     WRITE (*,
+           : '(1X,A,2X,3I3.2,''.'',I2.2,2X,A,I2.2,2I3.2,''.'',I1,F8.1)')
+           :                          PNAMES(NP),IHMSF,S,IDMSF,R2AS*DIAM
+
+      *           Next planet
+                  END DO
+                  PRINT *,' '
+               END IF
+
+      *     Next case
+            END DO
+
+            END
+
    
+Entering the following data (for 1927 June 29 at $5^{\rm h}\,25^{\rm m}$ ET
+and the position of Preston, UK.):
+
    +      1927 6 29
+      5 25
+      -2 42
+      53 46
+
    
+produces the following report:
+
    +      Sun       06 28 14.03  +23 17 17.5  1887.8
+      Mercury   08 08 58.62  +19 20 57.3     9.3
+      Venus     09 38 53.64  +15 35 32.9    22.8
+      Moon      06 28 18.30  +23 18 37.3  1903.9
+      Mars      09 06 49.34  +17 52 26.7     4.0
+      Jupiter   00 11 12.06  -00 10 57.5    41.1
+      Saturn    16 01 43.34  -18 36 55.9    18.2
+      Uranus    00 13 33.53  +00 39 36.0     3.5
+      Neptune   09 49 35.75  +13 38 40.8     2.2
+      Pluto     07 05 29.50  +21 25 04.2      .1
+
    
+Inspection of the Sun and Moon data reveals that
+a total solar eclipse is in progress.
+
    
+SLALIB also provides for the case where orbital elements (with respect
+to the J2000 equinox and ecliptic)
+are available.  This allows predictions to be made for minor-planets and
+(if you ignore non-gravitational effects)
+comets.  Furthermore, if major-planet elements for an epoch close to the date
+in question are available, more accurate predictions can be made than
+are offered by
+sla_RDPLAN and
+sla_PLANET.
+
    
+The SLALIB planetary-prediction
+routines that work with orbital elements are
+sla_PLANTE (the orbital-elements equivalent of
+sla_RDPLAN), which predicts the topocentric $[\,\alpha,\delta\,]$, and
+sla_PLANEL (the orbital-elements equivalent of
+sla_PLANET), which predicts the heliocentric $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$ with respect to the
+J2000 equinox and equator.  In addition, the routine
+sla_PV2EL does the inverse of
+sla_PLANEL, transforming $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$ into osculating elements.
+
    
+Osculating elements describe the unperturbed 2-body orbit.  This is
+a good approximation to the actual orbit for a few weeks either
+side of the specified epoch, outside which perturbations due to
+the other bodies of the Solar System lead to
+increasing errors.  Given a minor planet's osculating elements for
+a particular date, predictions for a date even just
+100 days earlier or later
+are likely to be in error by several arcseconds.
+These errors can
+be reduced if new elements are generated which take account of
+the perturbations of the major planets, and this is what the routine
+sla_PERTEL does.  Once
+sla_PERTEL has been called, to provide osculating elements
+close to the required date, the elements can be passed to
+sla_PLANEL or
+sla_PLANTE in the normal way.  Predictions of arcsecond accuracy
+over a span of a decade or more are available using this
+technique.
+
    
+Three different combinations of orbital elements are
+provided for, matching the usual conventions
+for major planets, minor planets and
+comets respectively.  The choice is made through the
+argument JFORM:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    JFORM=1JFORM=2JFORM=3
    t0t0T
    iii
    $\Omega$$\Omega$$\Omega$
    $\varpi$$\omega$$\omega$
    aaq
    eee
    LM 
    n  
    
+
    
+
    
+
    
+
    
+
    
+
    
+The symbols have the following meanings:
+
    
+		 t0 epoch at which the elements were correct
+		 T epoch of perihelion passage
+		 i inclination of the orbit
+		 $\Omega$ longitude of the ascending node
+		 $\varpi$ longitude of perihelion ($\varpi = \Omega + \omega$)		 $\omega$ argument of perihelion
+		 a semi-major axis of the orbital ellipse
+		 q perihelion distance
+		 e orbital eccentricity
+		 L mean longitude ($L = \varpi + M$)		 M mean anomaly
+		 n mean motion 
+
    
+
    
+The mean motion, n, tells sla_PLANEL the mass of the planet.
+If it is not available, it should be claculated
+from n2 a3 = k2 (1+m), where k = 0.01720209895 and
+m is the mass of the planet ($M_\odot = 1$); a is in AU.
+
    
+Conventional elements are not the only way of specifying an orbit.
+The $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$ state vector is an equally valid specification,
+and the so-called method of universal variables allows
+orbital calculations to be made directly, bypassing angular
+quantities and avoiding Kepler's Equation.  The universal-variables
+approach has various advantages, including better handling of
+near-parabolic cases and greater efficiency.
+SLALIB uses universal variables for its internal
+calculations and also offers a number of routines which
+applications can call.
+
    
+The universal elements are the $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$ and its epoch, plus the mass
+of the body.  The SLALIB routines supplement these elements with
+certain redundant values in order to
+avoid unnecessary recomputation when the elements are next used.
+
    
+The routines
+sla_EL2UE and
+sla_UE2EL transform conventional elements into the
+universal form and vice versa.
+The routine
+sla_PV2UE takes an $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$ and forms the set of universal
+elements;
+sla_UE2PV takes a set of universal elements and predicts the $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$ for a specified epoch.
+The routine
+sla_PERTUE provides updated universal elements,
+taking into account perturbations from the major planets.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Radial Velocity and Light-Time Corrections
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Geocentric Coordinates
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node225.html b/src/slalib/sun67.htx/node225.html
new file mode 100644
index 0000000..ce716c7
--- /dev/null
+++ b/src/slalib/sun67.htx/node225.html
@@ -0,0 +1,143 @@
+
+
+
+
+Radial Velocity and Light-Time Corrections
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Focal-Plane Astrometry
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Ephemerides
+
     
     
    
+
    
+
    
+Radial Velocity and Light-Time Corrections
+
    
+When publishing high-resolution spectral observations
+it is necessary to refer them to a specified standard of rest.
+This involves knowing the component in the direction of the
+source of the velocity of the observer.  SLALIB provides a number
+of routines for this purpose, allowing observations to be
+referred to the Earth's centre, the Sun, a Local Standard of Rest
+(either dynamical or kinematical), the centre of the Galaxy, and
+the mean motion of the Local Group.
+
    
+The routine
+sla_RVEROT
+corrects for the diurnal rotation of
+the observer around the Earth's axis.  This is always less than 0.5 km/s.
+
    
+No specific routine is provided to correct a radial velocity
+from geocentric to heliocentric, but this can easily be done by calling
+sla_EVP
+as follows (array declarations etc. omitted):
+
    +             :
+      *  Star vector, J2000
+            CALL sla_DCS2C(RM,DM,V)
+
+      *  Earth/Sun velocity and position, J2000
+            CALL sla_EVP(TDB,2000D0,DVB,DPB,DVH,DPH)
+
+      *  Radial velocity correction due to Earth orbit (km/s)
+            VCORB = -sla_DVDV(V,DVH)*149.597870D6
+             :
+
    
+
    
+The maximum value of this correction is the Earth's orbital speed
+of about 30 km/s.  A related routine,
+sla_ECOR,
+computes the light-time correction with respect to the Sun.  It
+would be used when reducing observations of a rapid variable-star
+for instance.
+Note, however, that the accuracy objectives for pulsar work are
+beyond the scope of these SLALIB routines, and even the superior
+sla_EVP
+routine is unsuitable for arrival-time calculations of better
+than 25 millisecond accuracy.
+
    
+To remove the intrinsic $\sim20$ km/s motion of the Sun relative
+to other stars in the solar neighbourhood,
+a velocity correction to a
+local standard of rest (LSR) is required.  There are
+opportunities for mistakes here.  There are two sorts of LSR,
+dynamical and kinematical, and
+multiple definitions exist for the latter.  The
+dynamical LSR is a point near the Sun which is in a circular
+orbit around the Galactic centre;  the Sun has a ``peculiar''
+motion relative to the dynamical LSR.  A kinematical LSR is
+the mean standard of rest of specified star catalogues or stellar
+populations, and its precise definition depends on which
+catalogues or populations were used and how the analysis was
+carried out.  The Sun's motion with respect to a kinematical
+LSR is called the ``standard'' solar motion.  Radial
+velocity corrections to the dynamical LSR are produced by the routine
+sla_RVLSRD
+and to the adopted kinematical LSR by
+sla_RVLSRK.
+See the individual specifications for these routines for the
+precise definition of the LSR in each case.
+
    
+For extragalactic sources, the centre of the Galaxy can be used as
+a standard of rest.  The radial velocity correction from the
+dynamical LSR to the Galactic centre can be obtained by calling
+sla_RVGALC.
+Its maximum value is 220 km/s.
+
    
+For very distant sources it is appropriate to work relative
+to the mean motion of the Local Group.  The routine for
+computing the radial velocity correction in this case is
+sla_RVLG.
+Note that in this case the correction is with respect to the
+dynamical LSR, not the Galactic centre as might be expected.
+This conforms to the IAU definition, and confers immunity from
+revisions of the Galactic rotation speed.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Focal-Plane Astrometry
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Ephemerides
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node226.html b/src/slalib/sun67.htx/node226.html
new file mode 100644
index 0000000..41baa89
--- /dev/null
+++ b/src/slalib/sun67.htx/node226.html
@@ -0,0 +1,212 @@
+
+
+
+
+Focal-Plane Astrometry
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Numerical Methods
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Radial Velocity and Light-Time Corrections
+
     
     
    
+
    
+
    
+Focal-Plane Astrometry
+
    
+The relationship between the position of a star image in
+the focal plane of a telescope and the star's celestial
+coordinates is usually described in terms of the tangent plane
+or gnomonic projection.  This is the projection produced
+by a pin-hole camera and is a good approximation to the projection
+geometry of a traditional large f-ratio astrographic refractor.
+SLALIB includes a group of routines which transform
+star positions between their observed places on the celestial
+sphere and their $[\,x,y\,]$ coordinates in the tangent plane.  The
+spherical coordinate system does not have to be $[\,\alpha,\delta\,]$ but
+usually is.  The so-called standard coordinates of a star
+are the tangent plane $[\,x,y\,]$, in radians, with respect to an origin
+at the tangent point, with the y-axis pointing north and
+the x-axis pointing east (in the direction of increasing $\alpha$).
+The factor relating the standard coordinates to
+the actual $[\,x,y\,]$ coordinates in, say, millimetres is simply
+the focal length of the telescope.
+
    
+Given the $[\,\alpha,\delta\,]$ of the plate centre (the tangent point)
+and the $[\,\alpha,\delta\,]$ of a star within the field, the standard
+coordinates can be determined by calling
+sla_S2TP
+(single precision) or
+sla_DS2TP
+(double precision).  The reverse transformation, where the
+$[\,x,y\,]$ is known and we wish to find the $[\,\alpha,\delta\,]$, is carried out by calling
+sla_TP2S
+or
+sla_DTP2S.
+Occasionally we know the both the $[\,x,y\,]$ and the $[\,\alpha,\delta\,]$ of a 
+star and need to deduce the $[\,\alpha,\delta\,]$ of the tangent point;  
+this can be done by calling
+sla_TPS2C
+or
+sla_DTPS2C.
+(All of these transformations apply not just to $[\,\alpha,\delta\,]$ but to
+other spherical coordinate systems, of course.)
+Equivalent (and faster)
+routines are provided which work directly in $[\,x,y,z\,]$ instead of
+spherical coordinates:
+sla_V2TP and
+sla_DV2TP,
+sla_TP2V and
+sla_DTP2V,
+sla_TPV2C and
+sla_DTPV2C.
+
    
+Even at the best of times, the tangent plane projection is merely an
+approximation.  Some telescopes and cameras exhibit considerable pincushion
+or barrel distortion and some have a curved focal surface.
+For example, neither Schmidt cameras nor (especially)
+large reflecting telescopes with wide-field corrector lenses
+are adequately modelled by tangent-plane geometry.  In such
+cases, however, it is still possible to do most of the work
+using the (mathematically convenient) tangent-plane
+projection by inserting an extra step which applies or
+removes the distortion peculiar to the system concerned.
+A simple r1=r0(1+Kr02) law works well in the
+majority of cases; r0 is the radial distance in the
+tangent plane, r1 is the radial distance after adding
+the distortion, and K is a constant which depends on the
+telescope ($\theta$ is unaffected).  The routine
+sla_PCD
+applies the distortion to an $[\,x,y\,]$ and
+sla_UNPCD
+removes it.  For $[\,x,y\,]$ in radians, K values range from -1/3 for the
+tiny amount of barrel distortion in Schmidt geometry to several
+hundred for the serious pincushion distortion
+produced by wide-field correctors in big reflecting telescopes
+(the AAT prime focus triplet corrector is about K=+178.6).
+
    
+SLALIB includes a group of routines which can be put together
+to build a simple plate-reduction program.  The heart of the group is
+sla_FITXY,
+which fits a linear model to relate two sets of $[\,x,y\,]$ coordinates,
+in the case of a plate reduction the measured positions of the
+images of a set of
+reference stars and the standard
+coordinates derived from their catalogue positions.  The
+model is of the form:
+
+
    
+xp = a + bxm + cym
+
    
+
+
    
+yp = d + exm + fym
+
    
+
    
+where the p subscript indicates ``predicted'' coordinates
+(the model's approximation to the ideal ``expected'' coordinates) and the
+m subscript indicates ``measured coordinates''.  The
+six coefficients a-f can optionally be
+constrained to represent a ``solid body rotation'' free of
+any squash or shear distortions.  Without this constraint
+the model can, to some extent, accommodate effects like refraction,
+allowing mean places to be used directly and
+avoiding the extra complications of a
+full mean-apparent-observed transformation for each star.
+Having obtained the linear model,
+sla_PXY
+can be used to process the set of measured and expected
+coordinates, giving the predicted coordinates and determining
+the RMS residuals in x and y.
+The routine
+sla_XY2XY
+transforms one $[\,x,y\,]$ into another using the linear model.  A model
+can be inverted by calling
+sla_INVF,
+and decomposed into zero points, scales, x/y nonperpendicularity
+and orientation by calling
+sla_DCMPF.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Numerical Methods
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Radial Velocity and Light-Time Corrections
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node227.html b/src/slalib/sun67.htx/node227.html
new file mode 100644
index 0000000..9ed563a
--- /dev/null
+++ b/src/slalib/sun67.htx/node227.html
@@ -0,0 +1,230 @@
+
+
+
+
+Numerical Methods
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SUMMARY OF CALLS
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Focal-Plane Astrometry
+
     
     
    
+
    
+
    
+Numerical Methods
+
    
+SLALIB contains a small number of simple, general-purpose
+numerical-methods routines.  They have no specific
+connection with positional astronomy but have proved useful in
+applications to do with simulation and fitting.
+
    
+At the heart of many simulation programs is the generation of
+pseudo-random numbers, evenly distributed in a given range:
+sla_RANDOM
+does this.  Pseudo-random normal deviates, or ``Gaussian
+residuals'', are often required to simulate noise and
+can be generated by means of the function
+sla_GRESID.
+Neither routine will pass super-sophisticated
+statistical tests, but they work adequately for most
+practical purposes and avoid the need to call non-standard
+library routines peculiar to one sort of computer.
+
    
+Applications which perform a least-squares fit using a traditional
+normal-equations methods can accomplish the required matrix-inversion
+by calling either
+sla_SMAT
+(single precision) or
+sla_DMAT
+(double).  A generally better way to perform such fits is
+to use singular value decomposition.  SLALIB provides a routine
+to do the decomposition itself,
+sla_SVD,
+and two routines to use the results:
+sla_SVDSOL
+generates the solution, and
+sla_SVDCOV
+produces the covariance matrix.
+A simple demonstration of the use of the SLALIB SVD
+routines is given below.  It generates 500 simulated data
+points and fits them to a model which has 4 unknown coefficients.
+(The arrays in the example are sized to accept up to 1000
+points and 20 unknowns.)  The model is:
+
+
    
+y = C1 +C2x +C3sinx +C4cosx 
+
    
+The test values for the four coefficients are
+$C_1\!=\!+50.0$,$C_2\!=\!-2.0$,$C_3\!=\!-10.0$ and
+$C_4\!=\!+25.0$.Gaussian noise, $\sigma=5.0$, is added to each ``observation''.
+
    +            IMPLICIT NONE
+
+      *  Sizes of arrays, physical and logical
+            INTEGER MP,NP,NC,M,N
+            PARAMETER (MP=1000,NP=10,NC=20,M=500,N=4)
+
+      *  The unknowns we are going to solve for
+            DOUBLE PRECISION C1,C2,C3,C4
+            PARAMETER (C1=50D0,C2=-2D0,C3=-10D0,C4=25D0)
+
+      *  Arrays
+            DOUBLE PRECISION A(MP,NP),W(NP),V(NP,NP),
+           :                 WORK(NP),B(MP),X(NP),CVM(NC,NC)
+
+            DOUBLE PRECISION VAL,BF1,BF2,BF3,BF4,SD2,D,VAR
+            REAL sla_GRESID
+            INTEGER I,J
+
+      *  Fill the design matrix
+            DO I=1,M
+
+      *     Dummy independent variable
+               VAL=DBLE(I)/10D0
+
+      *     The basis functions
+               BF1=1D0
+               BF2=VAL
+               BF3=SIN(VAL)
+               BF4=COS(VAL)
+
+      *     The observed value, including deliberate Gaussian noise
+               B(I)=C1*BF1+C2*BF2+C3*BF3+C4*BF4+DBLE(sla_GRESID(5.0))
+
+      *     Fill one row of the design matrix
+               A(I,1)=BF1
+               A(I,2)=BF2
+               A(I,3)=BF3
+               A(I,4)=BF4
+            END DO
+
+      *  Factorize the design matrix, solve and generate covariance matrix
+            CALL sla_SVD(M,N,MP,NP,A,W,V,WORK,J)
+            CALL sla_SVDSOL(M,N,MP,NP,B,A,W,V,WORK,X)
+            CALL sla_SVDCOV(N,NP,NC,W,V,WORK,CVM)
+
+      *  Compute the variance
+            SD2=0D0
+            DO I=1,M
+               VAL=DBLE(I)/10D0
+               BF1=1D0
+               BF2=VAL
+               BF3=SIN(VAL)
+               BF4=COS(VAL)
+               D=B(I)-(X(1)*BF1+X(2)*BF2+X(3)*BF3+X(4)*BF4)
+               SD2=SD2+D*D
+            END DO
+            VAR=SD2/DBLE(M)
+
+      *  Report the RMS and the solution
+            WRITE (*,'(1X,''RMS ='',F5.2/)') SQRT(VAR)
+            DO I=1,N
+               WRITE (*,'(1X,''C'',I1,'' ='',F7.3,'' +/-'',F6.3)')
+           :                                         I,X(I),SQRT(VAR*CVM(I,I))
+            END DO
+            END
+
    
+
    
+The program produces the following output:
+
    +            RMS = 4.88
+
+            C1 = 50.192 +/- 0.439
+            C2 = -2.002 +/- 0.015
+            C3 = -9.771 +/- 0.310
+            C4 = 25.275 +/- 0.310
+
    
+
    
+In this above example, essentially
+identical results would be obtained if the more
+commonplace normal-equations method had been used, and the large
+$1000\times20$ array would have been avoided.  However, the SVD method
+comes into its own when the opportunity is taken to edit the W-matrix
+(the so-called ``singular values'') in order to control
+possible ill-conditioning.  The procedure involves replacing with
+zeroes any W-elements smaller than a nominated value, for example
+0.001 times the largest W-element.  Small W-elements indicate
+ill-conditioning, which in the case of the normal-equations
+method would produce spurious large coefficient values and
+possible arithmetic overflows.  Using SVD, the effect on the solution
+of setting suspiciously small W-elements to zero is to restrain
+the offending coefficients from moving very far.  The
+fact that action was taken can be reported to show the program user that
+something is amiss.  Furthermore, if element W(J) was set to zero,
+the row numbers of the two biggest elements in the Jth column of the
+V-matrix identify the pair of solution coefficients that are
+dependent.
+
    
+A more detailed description of SVD and its use in least-squares
+problems would be out of place here, and the reader is urged
+to refer to the relevant sections of the book Numerical Recipes
+(Press et al., Cambridge University Press, 1987).
+
    
+The routines
+sla_COMBN
+and
+sla_PERMUT
+are useful for problems which involve combinations (different subsets)
+and permutations (different orders).
+Both return the next in a sequence of results, cycling through all the
+possible results as the routine is called repeatedly.
+
    
+
    
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SUMMARY OF CALLS
+
    
+Up: EXPLANATION AND EXAMPLES
+
    
+ Previous: Focal-Plane Astrometry
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node228.html b/src/slalib/sun67.htx/node228.html
new file mode 100644
index 0000000..f21ae0e
--- /dev/null
+++ b/src/slalib/sun67.htx/node228.html
@@ -0,0 +1,696 @@
+
+
+
+
+SUMMARY OF CALLS
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: About this document ...
+
    
+Up: SLALIB   Positional Astronomy Library
+
    
+ Previous: Numerical Methods
+
     
     
    
+
    
+
    
+SUMMARY OF CALLS
+
    
+The basic trigonometrical and numerical facilities are supplied in both single
+and double precision versions.
+Most of the more esoteric position and time routines use double precision
+arguments only, even in cases where single precision would normally be adequate
+in practice.
+Certain routines with modest accuracy objectives are supplied in
+single precision versions only.
+In the calling sequences which follow, no attempt has been made
+to distinguish between single and double precision argument names,
+and frequently the same name is used on different occasions to
+mean different things.
+However, none of the routines uses a mixture of single and
+double precision arguments;  each routine is either wholly
+single precision or wholly double precision.
+
    
+In the classified list, below,
+subroutine subprograms are those whose names and argument lists
+are preceded by `CALL', whereas function subprograms are
+those beginning `R=' (when the result is REAL) or `D=' (when
+the result is DOUBLE PRECISION).
+
    
+The list is, of course, merely for quick reference;  inexperienced
+users must refer to the detailed specifications given later.
+In particular, don't guess whether arguments are single or
+double precision; the result could be a program that happens to
+works on one sort of machine but not on another.
+
    
+
    String Decoding
      
+
    •  CALL sla_INTIN (STRING, NSTRT, IRESLT, JFLAG)
+
      
+Convert free-format string into integer
+
    •  CALL sla_FLOTIN (STRING, NSTRT, RESLT, JFLAG)
+
      
+CALL sla_DFLTIN (STRING, NSTRT, DRESLT, JFLAG)
+
      
+Convert free-format string into floating-point number
+
    •  CALL sla_AFIN (STRING, NSTRT, RESLT, JFLAG)
+
      
+CALL sla_DAFIN (STRING, NSTRT, DRESLT, JFLAG)
+
      
+Convert free-format string from deg,arcmin,arcsec to radians
    
+
    Sexagesimal Conversions
      
+
    •  CALL sla_CTF2D (IHOUR, IMIN, SEC, DAYS, J)
+
      
+CALL sla_DTF2D (IHOUR, IMIN, SEC, DAYS, J)
+
      
+Hours, minutes, seconds to days
+
    •  CALL sla_CD2TF (NDP, DAYS, SIGN, IHMSF)
+
      
+CALL sla_DD2TF (NDP, DAYS, SIGN, IHMSF)
+
      
+Days to hours, minutes, seconds
+
    •  CALL sla_CTF2R (IHOUR, IMIN, SEC, RAD, J)
+
      
+CALL sla_DTF2R (IHOUR, IMIN, SEC, RAD, J)
+
      
+Hours, minutes, seconds to radians
+
    •  CALL sla_CR2TF (NDP, ANGLE, SIGN, IHMSF)
+
      
+CALL sla_DR2TF (NDP, ANGLE, SIGN, IHMSF)
+
      
+Radians to hours, minutes, seconds
+
    •  CALL sla_CAF2R (IDEG, IAMIN, ASEC, RAD, J)
+
      
+CALL sla_DAF2R (IDEG, IAMIN, ASEC, RAD, J)
+
      
+Degrees, arcminutes, arcseconds to radians
+
    •  CALL sla_CR2AF (NDP, ANGLE, SIGN, IDMSF)
+
      
+CALL sla_DR2AF (NDP, ANGLE, SIGN, IDMSF)
+
      
+Radians to degrees, arcminutes, arcseconds
    
+
    Angles, Vectors and Rotation Matrices
      
+
    •  R = sla_RANGE (ANGLE)
+
      
+D = sla_DRANGE (ANGLE)
+
      
+Normalize angle into range $\pm \pi$
    •  R = sla_RANORM (ANGLE)
+
      
+D = sla_DRANRM (ANGLE)
+
      
+Normalize angle into range $0\!-\!2\pi$
    •  CALL sla_CS2C (A, B, V)
+
      
+CALL sla_DCS2C (A, B, V)
+
      
+Spherical coordinates to $[\,x,y,z\,]$
    •  CALL sla_CC2S (V, A, B)
+
      
+CALL sla_DCC2S (V, A, B)
+
      
+   $[\,x,y,z\,]$ to spherical coordinates
+
    •  R = sla_VDV (VA, VB)
+
      
+D = sla_DVDV (VA, VB)
+
      
+Scalar product of two 3-vectors
+
    •  CALL sla_VXV (VA, VB, VC)
+
      
+CALL sla_DVXV (VA, VB, VC)
+
      
+Vector product of two 3-vectors
+
    •  CALL sla_VN (V, UV, VM)
+
      
+CALL sla_DVN (V, UV, VM)
+
      
+Normalize a 3-vector also giving the modulus
+
    •  R = sla_SEP (A1, B1, A2, B2)
+
      
+D = sla_DSEP (A1, B1, A2, B2)
+
      
+Angle between two points on a sphere
+
    •  R = sla_BEAR (A1, B1, A2, B2)
+
      
+D = sla_DBEAR (A1, B1, A2, B2)
+
      
+Direction of one point on a sphere seen from another
+
    •  R = sla_PAV (V1, V2)
+
      
+D = sla_DPAV (V1, V2)
+
      
+Position-angle of one $[\,x,y,z\,]$ with respect to another
+
    •  CALL sla_EULER (ORDER, PHI, THETA, PSI, RMAT)
+
      
+CALL sla_DEULER (ORDER, PHI, THETA, PSI, RMAT)
+
      
+Form rotation matrix from three Euler angles
+
    •  CALL sla_AV2M (AXVEC, RMAT)
+
      
+CALL sla_DAV2M (AXVEC, RMAT)
+
      
+Form rotation matrix from axial vector
+
    •  CALL sla_M2AV (RMAT, AXVEC)
+
      
+CALL sla_DM2AV (RMAT, AXVEC)
+
      
+Determine axial vector from rotation matrix
+
    •  CALL sla_MXV (RM, VA, VB)
+
      
+CALL sla_DMXV (DM, VA, VB)
+
      
+Rotate vector forwards
+
    •  CALL sla_IMXV (RM, VA, VB)
+
      
+CALL sla_DIMXV (DM, VA, VB)
+
      
+Rotate vector backwards
+
    •  CALL sla_MXM (A, B, C)
+
      
+CALL sla_DMXM (A, B, C)
+
      
+Product of two 3x3 matrices
+
    •  CALL sla_CS2C6 (A, B, R, AD, BD, RD, V)
+
      
+CALL sla_DS2C6 (A, B, R, AD, BD, RD, V)
+
      
+Conversion of position and velocity in spherical
+     coordinates to Cartesian coordinates
+
    •  CALL sla_CC62S (V, A, B, R, AD, BD, RD)
+
      
+CALL sla_DC62S (V, A, B, R, AD, BD, RD)
+
      
+Conversion of position and velocity in Cartesian
+     coordinates to spherical coordinates
    
+
    Calendars
      
+
    •  CALL sla_CLDJ (IY, IM, ID, DJM, J)
+
      
+Gregorian Calendar to Modified Julian Date
+
    •  CALL sla_CALDJ (IY, IM, ID, DJM, J)
+
      
+Gregorian Calendar to Modified Julian Date,
+     permitting century default
+
    •  CALL sla_DJCAL (NDP, DJM, IYMDF, J)
+
      
+Modified Julian Date to Gregorian Calendar,
+     in a form convenient for formatted output
+
    •  CALL sla_DJCL (DJM, IY, IM, ID, FD, J)
+
      
+Modified Julian Date to Gregorian Year, Month, Day, Fraction
+
    •  CALL sla_CALYD (IY, IM, ID, NY, ND, J)
+
      
+Calendar to year and day in year, permitting century default
+
    •  CALL sla_CLYD (IY, IM, ID, NY, ND, J)
+
      
+Calendar to year and day in year
+
    •  D = sla_EPB (DATE)
+
      
+Modified Julian Date to Besselian Epoch
+
    •  D = sla_EPB2D (EPB)
+
      
+Besselian Epoch to Modified Julian Date
+
    •  D = sla_EPJ (DATE)
+
      
+Modified Julian Date to Julian Epoch
+
    •  D = sla_EPJ2D (EPJ)
+
      
+Julian Epoch to Modified Julian Date
    
+
    Timescales
      
+
    •  D = sla_GMST (UT1)
+
      
+Conversion from Universal Time to sidereal time
+
    •  D = sla_GMSTA (DATE, UT1)
+
      
+Conversion from Universal Time to sidereal time, rounding errors minimized
+
    •  D = sla_EQEQX (DATE)
+
      
+Equation of the equinoxes
+
    •  D = sla_DAT (DJU)
+
      
+Offset of Atomic Time from Coordinated Universal Time: TAI-UTC
+
    •  D = sla_DT (EPOCH)
+
      
+Approximate offset between dynamical time and universal time
+
    •  D = sla_DTT (DJU)
+
      
+Offset of Terrestrial Time from Coordinated Universal Time: TT-UTC
+
    •  D = sla_RCC (TDB, UT1, WL, U, V)
+
      
+Relativistic clock correction: TDB-TT
    
+
    Precession and Nutation
      
+
    •  CALL sla_NUT (DATE, RMATN)
+
      
+Nutation matrix
+
    •  CALL sla_NUTC (DATE, DPSI, DEPS, EPS0)
+
      
+Longitude and obliquity components of nutation, and
+     mean obliquity
+
    •  CALL sla_PREC (EP0, EP1, RMATP)
+
      
+Precession matrix (IAU)
+
    •  CALL sla_PRECL (EP0, EP1, RMATP)
+
      
+Precession matrix (suitable for long periods)
+
    •  CALL sla_PRENUT (EPOCH, DATE, RMATPN)
+
      
+Combined precession/nutation matrix
+
    •  CALL sla_PREBN (BEP0, BEP1, RMATP)
+
      
+Precession matrix, old system
+
    •  CALL sla_PRECES (SYSTEM, EP0, EP1, RA, DC)
+
      
+Precession, in either the old or the new system
    
+
    Proper Motion
      
+
    •  CALL sla_PM (R0, D0, PR, PD, PX, RV, EP0, EP1, R1, D1)
+
      
+Adjust for proper motion
    
+
    FK4/FK5/Hipparcos Conversions
      
+
    •  CALL sla_FK425 (
+                       R1950, D1950, DR1950, DD1950, P1950, V1950,
+                        R2000, D2000, DR2000, DD2000, P2000, V2000)
+
      
+Convert B1950.0 FK4 star data to J2000.0 FK5
+
    •  CALL sla_FK45Z (R1950, D1950, EPOCH, R2000, D2000)
+
      
+Convert B1950.0 FK4 position to J2000.0 FK5 assuming zero
+   FK5 proper motion and no parallax
+
    •  CALL sla_FK524 (
+                       R2000, D2000, DR2000, DD2000, P2000, V2000,
+                        R1950, D1950, DR1950, DD1950, P1950, V1950)
+
      
+Convert J2000.0 FK5 star data to B1950.0 FK4
+
    •  CALL sla_FK54Z (R2000, D2000, BEPOCH,
+               R1950, D1950, DR1950, DD1950)
+
      
+Convert J2000.0 FK5 position to B1950.0 FK4 assuming zero
+   FK5 proper motion and no parallax
+
    •  CALL sla_FK52H (R5, D5, DR5, DD5, RH, DH, DRH, DDH)
+
      
+Convert J2000.0 FK5 star data to Hipparcos
+
    •  CALL sla_FK5HZ (R5, D5, EPOCH, RH, DH )
+
      
+Convert J2000.0 FK5 position to Hipparcos assuming zero Hipparcos
+   proper motion
+
    •  CALL sla_H2FK5 (RH, DH, DRH, DDH, R5, D5, DR5, DD5)
+
      
+Convert Hipparcos star data to J2000.0 FK5
+
    •  CALL sla_HFK5Z (RH, DH, EPOCH, R5, D5, DR5, DD5)
+
      
+Convert Hipparcos position to J2000.0 FK5 assuming zero Hipparcos
+   proper motion
+
    •  CALL sla_DBJIN (STRING, NSTRT, DRESLT, J1, J2)
+
      
+Like sla_DFLTIN but with extensions to accept leading `B' and `J'
+
    •  CALL sla_KBJ (JB, E, K, J)
+
      
+Select epoch prefix `B' or `J'
+
    •  D = sla_EPCO (K0, K, E)
+
      
+Convert an epoch into the appropriate form - `B' or `J'
    
+
    Elliptic Aberration
      
+
    •  CALL sla_ETRMS (EP, EV)
+
      
+E-terms
+
    •  CALL sla_SUBET (RC, DC, EQ, RM, DM)
+
      
+Remove the E-terms
+
    •  CALL sla_ADDET (RM, DM, EQ, RC, DC)
+
      
+Add the E-terms
    
+
    Geographical and Geocentric Coordinates
      
+
    •  CALL sla_OBS (NUMBER, ID, NAME, WLONG, PHI, HEIGHT)
+
      
+Interrogate list of observatory parameters
+
    •  CALL sla_GEOC (P, H, R, Z)
+
      
+Convert geodetic position to geocentric
+
    •  CALL sla_POLMO (ELONGM, PHIM, XP, YP, ELONG, PHI, DAZ)
+
      
+Polar motion
+
    •  CALL sla_PVOBS (P, H, STL, PV)
+
      
+Position and velocity of observatory
    
+
    Apparent and Observed Place
      
+
    •  CALL sla_MAP (RM, DM, PR, PD, PX, RV, EQ, DATE, RA, DA)
+
      
+Mean place to geocentric apparent place
+
    •  CALL sla_MAPPA (EQ, DATE, AMPRMS)
+
      
+Precompute mean to apparent parameters
+
    •  CALL sla_MAPQK (RM, DM, PR, PD, PX, RV, AMPRMS, RA, DA)
+
      
+Mean to apparent using precomputed parameters
+
    •  CALL sla_MAPQKZ (RM, DM, AMPRMS, RA, DA)
+
      
+Mean to apparent using precomputed parameters, for zero proper
+     motion, parallax and radial velocity
+
    •  CALL sla_AMP (RA, DA, DATE, EQ, RM, DM)
+
      
+Geocentric apparent place to mean place
+
    •  CALL sla_AMPQK (RA, DA, AOPRMS, RM, DM)
+
      
+Apparent to mean using precomputed parameters
+
    •  CALL sla_AOP (
+                      RAP, DAP, UTC, DUT, ELONGM, PHIM, HM, XP, YP,
+                       TDK, PMB, RH, WL, TLR, AOB, ZOB, HOB, DOB, ROB)
+
      
+Apparent place to observed place
+
    •  CALL sla_AOPPA (
+                        UTC, DUT, ELONGM, PHIM, HM, XP, YP,
+                         TDK, PMB, RH, WL, TLR, AOPRMS)
+
      
+Precompute apparent to observed parameters
+
    •  CALL sla_AOPPAT (UTC, AOPRMS)
+
      
+Update sidereal time in apparent to observed parameters
+
    •  CALL sla_AOPQK (RAP, DAP, AOPRMS, AOB, ZOB, HOB, DOB, ROB)
+
      
+Apparent to observed using precomputed parameters
+
    •  CALL sla_OAP (
+                     TYPE, OB1, OB2, UTC, DUT, ELONGM, PHIM, HM, XP, YP,
+                      TDK, PMB, RH, WL, TLR, RAP, DAP)
+
      
+Observed to apparent
+
    •  CALL sla_OAPQK (TYPE, OB1, OB2, AOPRMS, RA, DA)
+
      
+Observed to apparent using precomputed parameters
    
+
    Azimuth and Elevation
      
+
    •  CALL sla_ALTAZ (
+               HA, DEC, PHI,
+                AZ, AZD, AZDD, EL, ELD, ELDD, PA, PAD, PADD)
+
      
+Positions, velocities etc. for an altazimuth mount
+
    •  CALL sla_E2H (HA, DEC, PHI, AZ, EL)
+
      
+CALL sla_DE2H (HA, DEC, PHI, AZ, EL)
+
      
+   $[\,h,\delta\,]$ to $[\,Az,El~]$
    •  CALL sla_H2E (AZ, EL, PHI, HA, DEC)
+
      
+CALL sla_DH2E (AZ, EL, PHI, HA, DEC)
+
      
+   $[\,Az,El~]$ to $[\,h,\delta\,]$
    •  CALL sla_PDA2H (P, D, A, H1, J1, H2, J2)
+
      
+Hour Angle corresponding to a given azimuth
+
    •  CALL sla_PDQ2H (P, D, Q, H1, J1, H2, J2)
+
      
+Hour Angle corresponding to a given parallactic angle
+
    •  D = sla_PA (HA, DEC, PHI)
+
      
+   $[\,h,\delta\,]$ to parallactic angle
+
    •  D = sla_ZD (HA, DEC, PHI)
+
      
+   $[\,h,\delta\,]$ to zenith distance
    
+
    Refraction and Air Mass
      
+
    •  CALL sla_REFRO (ZOBS, HM, TDK, PMB, RH, WL, PHI, TLR, EPS, REF)
+
      
+Change in zenith distance due to refraction
+
    •  CALL sla_REFCO (HM, TDK, PMB, RH, WL, PHI, TLR, EPS, REFA, REFB)
+
      
+Constants for simple refraction model (accurate)
+
    •  CALL sla_REFCOQ (TDK, PMB, RH, WL, REFA, REFB)
+
      
+Constants for simple refraction model (fast)
+
    •  CALL sla_ATMDSP ( TDK, PMB, RH, WL1, REFA1, REFB1, WL2, REFA2, REFB2 )
+
      
+Adjust refraction constants for colour
+
    •  CALL sla_REFZ (ZU, REFA, REFB, ZR)
+
      
+Unrefracted to refracted ZD, simple model
+
    •  CALL sla_REFV (VU, REFA, REFB, VR)
+
      
+Unrefracted to refracted $[\,Az,El~]$ vector, simple model
+
    •  D = sla_AIRMAS (ZD)
+
      
+Air mass
    
+
    Ecliptic Coordinates
      
+
    •  CALL sla_ECMAT (DATE, RMAT)
+
      
+Equatorial to ecliptic rotation matrix
+
    •  CALL sla_EQECL (DR, DD, DATE, DL, DB)
+
      
+J2000.0 `FK5' to ecliptic coordinates
+
    •  CALL sla_ECLEQ (DL, DB, DATE, DR, DD)
+
      
+Ecliptic coordinates to J2000.0 `FK5'
    
+
    Galactic Coordinates
      
+
    •  CALL sla_EG50 (DR, DD, DL, DB)
+
      
+B1950.0 `FK4' to galactic
+
    •  CALL sla_GE50 (DL, DB, DR, DD)
+
      
+Galactic to B1950.0 `FK4'
+
    •  CALL sla_EQGAL (DR, DD, DL, DB)
+
      
+J2000.0 `FK5' to galactic
+
    •  CALL sla_GALEQ (DL, DB, DR, DD)
+
      
+Galactic to J2000.0 `FK5'
    
+
    Supergalactic Coordinates
      
+
    •  CALL sla_GALSUP (DL, DB, DSL, DSB)
+
      
+Galactic to supergalactic
+
    •  CALL sla_SUPGAL (DSL, DSB, DL, DB)
+
      
+Supergalactic to galactic
    
+
    Ephemerides
      
+
    •  CALL sla_DMOON (DATE, PV)
+
      
+Approximate geocentric position and velocity of the Moon
+
    •  CALL sla_EARTH (IY, ID, FD, PV)
+
      
+Approximate heliocentric position and velocity of the Earth
+
    •  CALL sla_EVP (DATE, DEQX, DVB, DPB, DVH, DPH)
+
      
+Barycentric and heliocentric velocity and position of the Earth
+
    •  CALL sla_MOON (IY, ID, FD, PV)
+
      
+Approximate geocentric position and velocity of the Moon
+
    •  CALL sla_PLANET (DATE, NP, PV, JSTAT)
+
      
+Approximate heliocentric position and velocity of a planet
+
    •  CALL sla_RDPLAN (DATE, NP, ELONG, PHI, RA, DEC, DIAM)
+
      
+Approximate topocentric apparent place of a planet
+
    •  CALL sla_PLANEL (
+                       DATE, JFORM, EPOCH, ORBINC, ANODE, PERIH,
+                      AORQ, E, AORL, DM, PV, JSTAT)
+
      
+Heliocentric position and velocity of a planet, asteroid or
+   comet, starting from orbital elements
+
    •  CALL sla_PLANTE (
+                       DATE, ELONG, PHI, JFORM, EPOCH, ORBINC, ANODE,
+                      PERIH, AORQ, E, AORL, DM, RA, DEC, R, JSTAT)
+
      
+Topocentric apparent place of a Solar-System object whose
+   heliocentric orbital elements are known
+
    •  CALL sla_PV2EL (
+                      PV, DATE, PMASS, JFORMR, JFORM, EPOCH, ORBINC,
+                     ANODE, PERIH, AORQ, E, AORL, DM, JSTAT)
+
      
+Orbital elements of a planet from instantaneous position and velocity
+
    •  CALL sla_PERTEL (
+                       JFORM, DATE0, DATE1,
+                     EPOCH0, ORBI0, ANODE0, PERIH0, AORQ0, E0, AM0,
+                     EPOCH1, ORBI1, ANODE1, PERIH1, AORQ1, E1, AM1,
+                     JSTAT)
+
      
+Update elements by applying perturbations
+
    •  CALL sla_EL2UE (
+                      DATE, JFORM, EPOCH, ORBINC, ANODE,
+                     PERIH, AORQ, E, AORL, DM,
+                     U, JSTAT)
+
      
+Transform conventional elements to universal elements
+
    •  CALL sla_UE2EL (
+                      U, JFORMR,
+                     JFORM, EPOCH, ORBINC, ANODE, PERIH,
+                     AORQ, E, AORL, DM, JSTAT)
+
      
+Transform universal elements to conventional elements
+
    •  CALL sla_PV2UE (PV, DATE, PMASS, U, JSTAT)
+
      
+Package a position and velocity for use as universal elements
+
    •  CALL sla_UE2PV (DATE, U, PV, JSTAT)
+
      
+Extract the position and velocity from universal elements
+
    •  CALL sla_PERTUE (DATE, U, JSTAT)
+
      
+Update universal elements by applying perturbations
+
    •  R = sla_RVEROT (PHI, RA, DA, ST)
+
      
+Velocity component due to rotation of the Earth
+
    •  CALL sla_ECOR (RM, DM, IY, ID, FD, RV, TL)
+
      
+Components of velocity and light time due to Earth orbital motion
+
    •  R = sla_RVLSRD (R2000, D2000)
+
      
+Velocity component due to solar motion wrt dynamical LSR
+
    •  R = sla_RVLSRK (R2000, D2000)
+
      
+Velocity component due to solar motion wrt kinematical LSR
+
    •  R = sla_RVGALC (R2000, D2000)
+
      
+Velocity component due to rotation of the Galaxy
+
    •  R = sla_RVLG (R2000, D2000)
+
      
+Velocity component due to rotation and translation of the
+   Galaxy, relative to the mean motion of the local group
    
+
    Astrometry
      
+
    •  CALL sla_S2TP (RA, DEC, RAZ, DECZ, XI, ETA, J)
+
      
+CALL sla_DS2TP (RA, DEC, RAZ, DECZ, XI, ETA, J)
+
      
+Transform spherical coordinates into tangent plane
+
    •  CALL sla_V2TP (V, V0, XI, ETA, J)
+
      
+CALL sla_DV2TP (V, V0, XI, ETA, J)
+
      
+Transform $[\,x,y,z\,]$ into tangent plane coordinates
+
    •  CALL sla_DTP2S (XI, ETA, RAZ, DECZ, RA, DEC)
+
      
+CALL sla_TP2S (XI, ETA, RAZ, DECZ, RA, DEC)
+
      
+Transform tangent plane coordinates into spherical coordinates
+
    •  CALL sla_DTP2V (XI, ETA, V0, V)
+
      
+CALL sla_TP2V (XI, ETA, V0, V)
+
      
+Transform tangent plane coordinates into $[\,x,y,z\,]$
    •  CALL sla_DTPS2C (XI, ETA, RA, DEC, RAZ1, DECZ1, RAZ2, DECZ2, N)
+
      
+CALL sla_TPS2C (XI, ETA, RA, DEC, RAZ1, DECZ1, RAZ2, DECZ2, N)
+
      
+Get plate centre from star $[\,\alpha,\delta\,]$ and tangent plane coordinates
+
    •  CALL sla_DTPV2C (XI, ETA, V, V01, V02, N)
+
      
+CALL sla_TPV2C (XI, ETA, V, V01, V02, N)
+
      
+Get plate centre from star $[\,x,y,z\,]$ and tangent plane coordinates
+
    •  CALL sla_PCD (DISCO, X, Y)
+
      
+Apply pincushion/barrel distortion
+
    •  CALL sla_UNPCD (DISCO, X, Y)
+
      
+Remove pincushion/barrel distortion
+
    •  CALL sla_FITXY (ITYPE, NP, XYE, XYM, COEFFS, J)
+
      
+Fit a linear model to relate two sets of $[\,x,y\,]$ coordinates
+
    •  CALL sla_PXY (NP, XYE, XYM, COEFFS, XYP, XRMS, YRMS, RRMS)
+
      
+Compute predicted coordinates and residuals
+
    •  CALL sla_INVF (FWDS, BKWDS, J)
+
      
+Invert a linear model
+
    •  CALL sla_XY2XY (X1, Y1, COEFFS, X2, Y2)
+
      
+Transform one $[\,x,y\,]$
    •  CALL sla_DCMPF (COEFFS, XZ, YZ, XS, YS, PERP, ORIENT)
+
      
+Decompose a linear fit into scales etc.
    
+
    Numerical Methods
      
+
    •  CALL sla_COMBN (NSEL, NCAND, LIST, J)
+
      
+Next combination (subset from a specified number of items)
+
    •  CALL sla_PERMUT (N, ISTATE, IORDER, J)
+
      
+Next permutation of a specified number of items
+
    •  CALL sla_SMAT (N, A, Y, D, JF, IW)
+
      
+CALL sla_DMAT (N, A, Y, D, JF, IW)
+
      
+Matrix inversion and solution of simultaneous equations
+
    •  CALL sla_SVD (M, N, MP, NP, A, W, V, WORK, JSTAT)
+
      
+Singular value decomposition of a matrix
+
    •  CALL sla_SVDSOL (M, N, MP, NP, B, U, W, V, WORK, X)
+
      
+Solution from given vector plus SVD
+
    •  CALL sla_SVDCOV (N, NP, NC, W, V, WORK, CVM)
+
      
+Covariance matrix from SVD
+
    •  R = sla_RANDOM (SEED)
+
      
+Generate pseudo-random real number in the range $0 \leq x < 1$
    •  R = sla_GRESID (S)
+
      
+Generate pseudo-random normal deviate ($\equiv$ `Gaussian residual')
    
+
    Real-time
      
+
    •  CALL sla_WAIT (DELAY)
+
      
+Interval wait
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: About this document ...
+
    
+Up: SLALIB   Positional Astronomy Library
+
    
+ Previous: Numerical Methods
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node229.html b/src/slalib/sun67.htx/node229.html
new file mode 100644
index 0000000..ac949b4
--- /dev/null
+++ b/src/slalib/sun67.htx/node229.html
@@ -0,0 +1,65 @@
+
+
+
+
+About this document ... 
+
+
+
+
+
+
+
+
+
+
+
     
    
+next 
+
+up 
+
+previous   
+
    
+Up: SLALIB   Positional Astronomy Library
+
    
+ Previous: SUMMARY OF CALLS
+
     
     
    
+
    
+
    
+About this document ... 
+
     
+ 
    
+This document was generated using the
+LaTeX2HTML translator Version 97.1 (release) (July 13th, 1997)
+
    
+Copyright © 1993, 1994, 1995, 1996, 1997,
+Nikos Drakos, 
+Computer Based Learning Unit, University of Leeds.
+
    
+The command line arguments were: 
    
+ latex2html -init_file .star2html-init -no_subdir -no_auto_link /home/user1/dec/ptw/hypertext/sun67_htx//sun67.tex.
+
    
+The translation was initiated by Pat Wallace on 10/12/1999
+
     
    
+next 
+
+up 
+
+previous   
+
    
+Up: SLALIB   Positional Astronomy Library
+
    
+ Previous: SUMMARY OF CALLS
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node23.html b/src/slalib/sun67.htx/node23.html
new file mode 100644
index 0000000..dfb0e24
--- /dev/null
+++ b/src/slalib/sun67.htx/node23.html
@@ -0,0 +1,278 @@
+
+
+
+
+SLA_AOPQK - Quick Appt-to-Observed
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ATMDSP - Atmospheric Dispersion
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AOPPAT - Update Appt-to-Obs Parameters
+
     
     
    
+
    
+
    SLA_AOPQK - Quick Appt-to-Observed
+  
+
    
+       
    
+
    ACTION:
+
    Quick apparent to observed place (but see Note 8, below).
+
    CALL:
+
    CALL sla_AOPQK (RAP, DAP, AOPRMS, AOB, ZOB, HOB, DOB, ROB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RAP,DAPDgeocentric apparent $[\,\alpha,\delta\,]$ (radians)
    AOPRMSD(14)star-independent apparent-to-observed parameters:
    (1)geodetic latitude (radians)
    (2,3)sine and cosine of geodetic latitude
    (4)magnitude of diurnal aberration vector
    (5)height (metres)
    (6)ambient temperature (degrees K)
    (7)pressure (mB)
    (8)relative humidity (0-1)
    (9)wavelength ($\mu{\rm m}$)
    (10)lapse rate (degrees K per metre)
    (11,12)refraction constants A and B (radians)
    (13)longitude + eqn of equinoxes +
+``sidereal $\Delta$UT'' (radians)
    (14)local apparent sidereal time (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    AOBDobserved azimuth (radians: N=0, E=$90^{\circ}$)
    ZOBDobserved zenith distance (radians)
    HOBDobserved Hour Angle (radians)
    DOBDobserved Declination (radians)
    ROBDobserved Right Ascension (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    This routine returns zenith distance rather than elevation
+in order to reflect the fact that no allowance is made for
+depression of the horizon.
+  
    2.
+
    The accuracy of the result is limited by the corrections for
+        refraction.  Providing the meteorological parameters are
+        known accurately and there are no gross local effects, the
+        predicted azimuth and elevation should be within about
+
          $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.1$    for $\zeta<70^{\circ}$.  Even
+        at a topocentric zenith distance of
+        $90^{\circ}$, the accuracy in elevation should be better than
+        1 arcminute;  useful results are available for a further
+        $3^{\circ}$, beyond which the sla_REFRO routine returns a
+        fixed value of the refraction.  The complementary
+        routines sla_AOP (or sla_AOPQK) and sla_OAP (or sla_OAPQK)
+        are self-consistent to better than 1 microarcsecond all over
+        the celestial sphere.
+  
    3.
+
    It is advisable to take great care with units, as even
+        unlikely values of the input parameters are accepted and
+        processed in accordance with the models used.
+  
    4.
+
    Apparent $[\,\alpha,\delta\,]$ means the geocentric apparent right ascension
+        and declination, which is obtained from a catalogue mean place
+        by allowing for space motion, parallax, precession, nutation,
+        annual aberration, and the Sun's gravitational lens effect.  For
+        star positions in the FK5 system (i.e. J2000), these effects can
+        be applied by means of the sla_MAP etc. routines.  Starting from
+        other mean place systems, additional transformations will be
+        needed;  for example, FK4 (i.e. B1950) mean places would first
+        have to be converted to FK5, which can be done with the
+        sla_FK425 etc. routines.
+  
    5.
+
    Observed $[\,Az,El~]$ means the position that would be seen by a
+        perfect theodolite located at the observer.  This is obtained
+        from the geocentric apparent $[\,\alpha,\delta\,]$ by allowing for Earth
+        orientation and diurnal aberration, rotating from equator
+        to horizon coordinates, and then adjusting for refraction.
+        The $[\,h,\delta\,]$ is obtained by rotating back into equatorial
+        coordinates, using the geodetic latitude corrected for polar
+        motion, and is the position that would be seen by a perfect
+        equatorial located at the observer and with its polar axis
+        aligned to the Earth's axis of rotation (n.b. not to the
+        refracted pole).  Finally, the $\alpha$ is obtained by subtracting
+        the h from the local apparent ST.
+  
    6.
+
    To predict the required setting of a real telescope, the
+        observed place produced by this routine would have to be
+        adjusted for the tilt of the azimuth or polar axis of the
+        mounting (with appropriate corrections for mount flexures),
+        for non-perpendicularity between the mounting axes, for the
+        position of the rotator axis and the pointing axis relative
+        to it, for tube flexure, for gear and encoder errors, and
+        finally for encoder zero points.  Some telescopes would, of
+        course, exhibit other properties which would need to be
+        accounted for at the appropriate point in the sequence.
+  
    7.
+
    The star-independent apparent-to-observed-place parameters
+        in AOPRMS may be computed by means of the sla_AOPPA routine.
+        If nothing has changed significantly except the time, the
+        sla_AOPPAT routine may be used to perform the requisite
+        partial recomputation of AOPRMS.
+  
    8.
+
    The  ``sidereal $\Delta$UT'' which forms part of AOPRMS(13)
+        is UT1-UTC converted from solar to
+        sidereal seconds and expressed in radians.
+  
    9.
+
    At zenith distances beyond about $76^\circ$, the need for
+        special care with the corrections for refraction causes a
+        marked increase in execution time.  Moreover, the effect
+        gets worse with increasing zenith distance.  Adroit
+        programming in the calling application may allow the
+        problem to be reduced.  Prepare an alternative AOPRMS array,
+        computed for zero air-pressure;  this will disable the
+        refraction corrections and cause rapid execution.  Using
+        this AOPRMS array, a preliminary call to the present routine
+        will, depending on the application, produce a rough position
+        which may be enough to establish whether the full, slow
+        calculation (using the real AOPRMS array) is worthwhile.
+        For example, there would be no need for the full calculation
+        if the preliminary call had already established that the
+        source was well below the elevation limits for a particular
+        telescope.
+  
    10.
+
    The azimuths etc. used by the present routine are with
+        respect to the celestial pole.  Corrections to the terrestrial pole
+        can be computed using sla_POLMO.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ATMDSP - Atmospheric Dispersion
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AOPPAT - Update Appt-to-Obs Parameters
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node24.html b/src/slalib/sun67.htx/node24.html
new file mode 100644
index 0000000..aecbb98
--- /dev/null
+++ b/src/slalib/sun67.htx/node24.html
@@ -0,0 +1,213 @@
+
+
+
+
+SLA_ATMDSP - Atmospheric Dispersion
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AV2M - Rotation Matrix from Axial Vector
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AOPQK - Quick Appt-to-Observed
+
     
     
    
+
    
+
    SLA_ATMDSP - Atmospheric Dispersion
+  
+
    
+       
    
+
    ACTION:
+
    Apply atmospheric-dispersion adjustments to refraction coefficients.
+
    CALL:
+
    CALL sla_ATMDSP (TDK, PMB, RH, WL1, A1, B1, WL2, A2, B2)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    TDKDambient temperature at the observer (degrees K)
    PMBDpressure at the observer (mB)
    RHDrelative humidity at the observer (range 0-1)
    WL1Dbase wavelength ($\mu{\rm m}$)
    A1Drefraction coefficient A for wavelength WL1 (radians)
    B1Drefraction coefficient B for wavelength WL1 (radians)
    WL2Dwavelength for which adjusted A,B required ($\mu{\rm m}$)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    A2Drefraction coefficient A for wavelength WL2 (radians)
    B2Drefraction coefficient B for wavelength WL2 (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    To use this routine, first call sla_REFCO specifying WL1 as the
+wavelength.  This yields refraction coefficients A1, B1, correct
+for that wavelength.  Subsequently, calls to sla_ATMDSP specifying
+        different wavelengths will produce new, slightly adjusted
+        refraction coefficients A2, B2, which apply to the specified wavelength.
+  
    2.
+
    Most of the atmospheric dispersion happens between $0.7\,\mu{\rm m}$        and the UV atmospheric cutoff, and the effect increases strongly
+        towards the UV end.  For this reason a blue reference wavelength
+        is recommended, for example $0.4\,\mu{\rm m}$.  
    3.
+
    The accuracy, for this set of conditions: 
    
+
    
+     
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    height above sea level 2000m
    latitude $29^\circ$
    pressure 793mB
    temperature $290^\circ$K
    humidity 0.5 (50%)
    lapse rate $0.0065^\circ m^{-1}$
    reference wavelength $0.4\,\mu{\rm m}$
    star elevation $15^\circ$
    
+
    
+
    
+is about 2.5mas RMS between 0.3 and $1.0\,\mu{\rm m}$, and stays
+        within 4mas for the whole range longward of $0.3\,\mu{\rm m}$        (compared with a total dispersion from 0.3 to $20\,\mu{\rm m}$        of about $11\hspace{-0.05em}^{'\hspace{-0.1em}'}$).  These errors are typical for ordinary
+        conditions;  in extreme conditions values a few times this size
+        may occur.
+  
    4.
+
    If either wavelength exceeds $100\,\mu{\rm m}$, the radio case
+        is assumed and the returned refraction coefficients are the
+        same as the given ones.
+  
    5.
+
    The algorithm consists of calculation of the refractivity of the
+        air at the observer for the two wavelengths, using the methods
+        of the sla_REFRO routine, and then scaling of the two refraction
+        coefficients according to classical refraction theory.  This
+        amounts to scaling the A coefficient in proportion to $(\mu-1)$ and
+        the B coefficient almost in the same ratio (see R.M.Green,
+        Spherical Astronomy, Cambridge University Press, 1985).
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_AV2M - Rotation Matrix from Axial Vector
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AOPQK - Quick Appt-to-Observed
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node25.html b/src/slalib/sun67.htx/node25.html
new file mode 100644
index 0000000..f557394
--- /dev/null
+++ b/src/slalib/sun67.htx/node25.html
@@ -0,0 +1,103 @@
+
+
+
+
+SLA_AV2M - Rotation Matrix from Axial Vector
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_BEAR - Direction Between Points on a Sphere
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_ATMDSP - Atmospheric Dispersion
+
     
     
    
+
    
+
    SLA_AV2M - Rotation Matrix from Axial Vector
+  
+
    
+       
    
+
    ACTION:
+
    Form the rotation matrix corresponding to a given axial vector
+(single precision).
+
        
    CALL:
+
    CALL sla_AV2M (AXVEC, RMAT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    AXVECR(3)axial vector (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RMATR(3,3)rotation matrix
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    A rotation matrix describes a rotation about some arbitrary axis.
+The axis is called the Euler axis, and the angle through which the
+reference frame rotates is called the Euler angle.  The axial
+        vector supplied to this routine has the same direction as the
+        Euler axis, and its magnitude is the Euler angle in radians.
+  
    2.
+
    If AXVEC is null, the unit matrix is returned.
+  
    3.
+
    The reference frame rotates clockwise as seen looking along
+        the axial vector from the origin.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_BEAR - Direction Between Points on a Sphere
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_ATMDSP - Atmospheric Dispersion
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node26.html b/src/slalib/sun67.htx/node26.html
new file mode 100644
index 0000000..8296b32
--- /dev/null
+++ b/src/slalib/sun67.htx/node26.html
@@ -0,0 +1,123 @@
+
+
+
+
+SLA_BEAR - Direction Between Points on a Sphere
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CAF2R - Deg,Arcmin,Arcsec to Radians
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AV2M - Rotation Matrix from Axial Vector
+
     
     
    
+
    
+
    SLA_BEAR - Direction Between Points on a Sphere
+  
+
    
+       
    
+
    ACTION:
+
    Returns the bearing (position angle) of one point on a
+sphere seen from another (single precision).
+
        
    CALL:
+
    R = sla_BEAR (A1, B1, A2, B2)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    A1,B1Rspherical coordinates of one point
    A2,B2Rspherical coordinates of the other point
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_BEARRbearing from first point to second
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The spherical coordinates are $[\,\alpha,\delta\,]$,$[\lambda,\phi]$ etc., in radians.
+
    2.
+
    The result is the bearing (position angle), in radians,
+       of point [A2,B2] as seen
+       from point [A1,B1].  It is in the range $\pm \pi$.  The sense
+       is such that if [A2,B2]
+       is a small distance due east of [A1,B1] the result
+       is about $+\pi/2$. Zero is returned
+       if the two points are coincident.
+ 
    3.
+
    If either B-coordinate is outside the range $\pm\pi/2$, the
+       result may correspond to ``the long way round''.
+ 
    4.
+
    The routine sla_PAV performs an equivalent function except
+       that the points are specified in the form of Cartesian unit
+       vectors.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CAF2R - Deg,Arcmin,Arcsec to Radians
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_AV2M - Rotation Matrix from Axial Vector
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node27.html b/src/slalib/sun67.htx/node27.html
new file mode 100644
index 0000000..6c176b5
--- /dev/null
+++ b/src/slalib/sun67.htx/node27.html
@@ -0,0 +1,122 @@
+
+
+
+
+SLA_CAF2R - Deg,Arcmin,Arcsec to Radians
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CALDJ - Calendar Date to MJD
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_BEAR - Direction Between Points on a Sphere
+
     
     
    
+
    
+
    SLA_CAF2R - Deg,Arcmin,Arcsec to Radians
+  
+
    
+       
    
+
    ACTION:
+
    Convert degrees, arcminutes, arcseconds to radians
+(single precision).
+
        
    CALL:
+
    CALL sla_CAF2R (IDEG, IAMIN, ASEC, RAD, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    IDEGIdegrees
    IAMINIarcminutes
    ASECRarcseconds
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RADRangle in radians
    JIstatus:
      1 = IDEG outside range 0-359
      2 = IAMIN outside range 0-59
      3 = ASEC outside range 0-59.999$\cdots$
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The result is computed even if any of the range checks fail.
+
    2.
+
    The sign must be dealt with outside this routine.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CALDJ - Calendar Date to MJD
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_BEAR - Direction Between Points on a Sphere
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node28.html b/src/slalib/sun67.htx/node28.html
new file mode 100644
index 0000000..33bc93d
--- /dev/null
+++ b/src/slalib/sun67.htx/node28.html
@@ -0,0 +1,128 @@
+
+
+
+
+SLA_CALDJ - Calendar Date to MJD
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CALYD - Calendar to Year, Day
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CAF2R - Deg,Arcmin,Arcsec to Radians
+
     
     
    
+
    
+
    SLA_CALDJ - Calendar Date to MJD
+  
+
    
+       
    
+
    ACTION:
+
    Gregorian Calendar to Modified Julian Date, with century default.
+
    CALL:
+
    CALL sla_CALDJ (IY, IM, ID, DJM, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    IY,IM,IDIyear, month, day in Gregorian calendar
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    DJMDmodified Julian Date (JD-2400000.5) for $0^{\rm h}$
    JIstatus:
      0 = OK
      1 = bad year   (MJD not computed)
      2 = bad month  (MJD not computed)
      3 = bad day    (MJD computed)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    This routine supports the century default feature.
+Acceptable years are:
+
      
+
    •  00-49, interpreted as 2000-2049,
+
    •  50-99, interpreted as 1950-1999, and
+
    •  100 upwards, interpreted literally.
+        
    
+        For 1-100AD use the routine sla_CLDJ instead.
+  
    2.
+
    For year nBC use IY = -(n-1).
+  
    3.
+
    When an invalid year or month is supplied (status J = 1 or 2)
+        the MJD is not computed.  When an invalid day is supplied
+        (status J = 3) the MJD is computed.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CALYD - Calendar to Year, Day
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CAF2R - Deg,Arcmin,Arcsec to Radians
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node29.html b/src/slalib/sun67.htx/node29.html
new file mode 100644
index 0000000..f831e5a
--- /dev/null
+++ b/src/slalib/sun67.htx/node29.html
@@ -0,0 +1,140 @@
+
+
+
+
+SLA_CALYD - Calendar to Year, Day
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CC2S - Cartesian to Spherical
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CALDJ - Calendar Date to MJD
+
     
     
    
+
    
+
    SLA_CALYD - Calendar to Year, Day
+  
+
    
+       
    
+
    ACTION:
+
    Gregorian calendar date to year and day in year, in a Julian
+calendar aligned to the 20th/21st century Gregorian calendar,
+         with century default.
+
        
    CALL:
+
    CALL sla_CALYD (IY, IM, ID, NY, ND, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    IY,IM,IDIyear, month, day in Gregorian calendar:
+year may optionally omit the century
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    NYIyear (re-aligned Julian calendar)
    NDIday in year (1 = January 1st)
    JIstatus:
       0 = OK
       1 = bad year (before -4711)
       2 = bad month
       3 = bad day
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    This routine supports the century default feature.
+Acceptable years are:
+
      
+
    •  00-49, interpreted as 2000-2049,
+
    •  50-99, interpreted as 1950-1999, and
+
    •  other years after -4712 , interpreted literally.
+        
    
+        Use sla_CLYD for years before 100AD.
+  
    2.
+
    The purpose of sla_CALDJ is to support
+        sla_EARTH, sla_MOON and sla_ECOR.
+  
    3.
+
    Between 1900 March 1 and 2100 February 28 it returns answers
+        which are consistent with the ordinary Gregorian calendar.
+        Outside this range there will be a discrepancy which increases
+        by one day for every non-leap century year.
+  
    4.
+
    When an invalid year or month is supplied (status J = 1 or J = 2)
+        the results are not computed.  When a day is
+        supplied which is outside the conventional range (status J = 3)
+        the results are computed.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CC2S - Cartesian to Spherical
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CALDJ - Calendar Date to MJD
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node3.html b/src/slalib/sun67.htx/node3.html
new file mode 100644
index 0000000..886a149
--- /dev/null
+++ b/src/slalib/sun67.htx/node3.html
@@ -0,0 +1,76 @@
+
+
+
+
+Purpose
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Example Application
+
    
+Up: INTRODUCTION
+
    
+ Previous: INTRODUCTION
+
     
     
    
+
    
+
    
+Purpose
+
    
+SLALIB[*]
+is a library of routines
+intended to make accurate and reliable positional-astronomy
+applications easier to write.
+Most SLALIB routines are concerned with astronomical position and time, but a
+number have wider trigonometrical, numerical or general applications.
+The applications ASTROM, COCO, RV and TPOINT
+all make extensive use of the SLALIB
+routines, as do a number of telescope control systems around the world.
+The SLALIB versions currently in service are written in
+Fortran 77 and run on VAX/VMS, several Unix platforms and PC.
+A generic ANSI C version is also available from the author;  it is
+functionally similar to the Fortran version upon which the present
+document concentrates.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Example Application
+
    
+Up: INTRODUCTION
+
    
+ Previous: INTRODUCTION
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node30.html b/src/slalib/sun67.htx/node30.html
new file mode 100644
index 0000000..21b121e
--- /dev/null
+++ b/src/slalib/sun67.htx/node30.html
@@ -0,0 +1,103 @@
+
+
+
+
+SLA_CC2S - Cartesian to Spherical
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CC62S - Cartesian 6-Vector to Spherical
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CALYD - Calendar to Year, Day
+
     
     
    
+
    
+
    SLA_CC2S - Cartesian to Spherical
+  
+
    
+       
    
+
    ACTION:
+
    Cartesian coordinates to spherical coordinates (single precision).
+
    CALL:
+
    CALL sla_CC2S (V, A, B)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    VR(3)$[\,x,y,z\,]$ vector
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    A,BRspherical coordinates in radians
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The spherical coordinates are longitude (+ve anticlockwise
+looking from the +ve latitude pole) and latitude.  The
+Cartesian coordinates are right handed, with the x-axis
+        at zero longitude and latitude, and the z-axis at the
+        +ve latitude pole.
+  
    2.
+
    If V is null, zero A and B are returned.
+  
    3.
+
    At either pole, zero A is returned.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CC62S - Cartesian 6-Vector to Spherical
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CALYD - Calendar to Year, Day
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node31.html b/src/slalib/sun67.htx/node31.html
new file mode 100644
index 0000000..1877958
--- /dev/null
+++ b/src/slalib/sun67.htx/node31.html
@@ -0,0 +1,114 @@
+
+
+
+
+SLA_CC62S - Cartesian 6-Vector to Spherical
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CD2TF - Days to Hour,Min,Sec
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CC2S - Cartesian to Spherical
+
     
     
    
+
    
+
    SLA_CC62S - Cartesian 6-Vector to Spherical
+  
+
    
+       
    
+
    ACTION:
+
    Conversion of position & velocity in Cartesian coordinates
+to spherical coordinates (single precision).
+
        
    CALL:
+
    CALL sla_CC62S (V, A, B, R, AD, BD, RD)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    VR(6)$[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    ARlongitude (radians) - for example $\alpha$
    BRlatitude (radians) - for example $\delta$
    RRradial coordinate
    ADRlongitude derivative (radians per unit time)
    BDRlatitude derivative (radians per unit time)
    RDRradial derivative
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CD2TF - Days to Hour,Min,Sec
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CC2S - Cartesian to Spherical
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node32.html b/src/slalib/sun67.htx/node32.html
new file mode 100644
index 0000000..9d7f8ab
--- /dev/null
+++ b/src/slalib/sun67.htx/node32.html
@@ -0,0 +1,115 @@
+
+
+
+
+SLA_CD2TF - Days to Hour,Min,Sec
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CLDJ - Calendar to MJD
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CC62S - Cartesian 6-Vector to Spherical
+
     
     
    
+
    
+
    SLA_CD2TF - Days to Hour,Min,Sec
+  
+
    
+       
    
+
    ACTION:
+
    Convert an interval in days to hours, minutes, seconds
+(single precision).
+
        
    CALL:
+
    CALL sla_CD2TF (NDP, DAYS, SIGN, IHMSF)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    NDPInumber of decimal places of seconds
    DAYSRinterval in days
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    SIGNC`+' or `-'
    IHMSFI(4)hours, minutes, seconds, fraction
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    NDP less than zero is interpreted as zero.
+
    2.
+
    The largest useful value for NDP is determined by the size of
+DAYS, the format of REAL floating-point numbers on the target
+        machine, and the risk of overflowing IHMSF(4).  For example,
+        on a VAX computer, for DAYS up to 1.0, the available floating-point
+        precision corresponds roughly to NDP=3.  This is well below
+        the ultimate limit of NDP=9 set by the capacity of the 32-bit
+        integer IHMSF(4).
+  
    3.
+
    The absolute value of DAYS may exceed 1.0.  In cases where it
+        does not, it is up to the caller to test for and handle the
+        case where DAYS is very nearly 1.0 and rounds up to 24 hours,
+        by testing for IHMSF(1)=24 and setting IHMSF(1-4) to zero.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CLDJ - Calendar to MJD
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CC62S - Cartesian 6-Vector to Spherical
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node33.html b/src/slalib/sun67.htx/node33.html
new file mode 100644
index 0000000..556eb23
--- /dev/null
+++ b/src/slalib/sun67.htx/node33.html
@@ -0,0 +1,128 @@
+
+
+
+
+SLA_CLDJ - Calendar to MJD
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CLYD - Calendar to Year, Day
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CD2TF - Days to Hour,Min,Sec
+
     
     
    
+
    
+
    SLA_CLDJ - Calendar to MJD
+  
+
    
+       
    
+
    ACTION:
+
    Gregorian Calendar to Modified Julian Date.
+
    CALL:
+
    CALL sla_CLDJ (IY, IM, ID, DJM, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    IY,IM,IDIyear, month, day in Gregorian calendar
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    DJMDmodified Julian Date (JD-2400000.5) for $0^{\rm h}$
    JIstatus:
      0 = OK
      1 = bad year
      2 = bad month
      3 = bad day
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    When an invalid year or month is supplied (status J = 1 or 2)
+the MJD is not computed.  When an invalid day is supplied
+(status J = 3) the MJD is computed.
+  
    2.
+
    The year must be -4699 (i.e. 4700BC) or later.
+        For year nBC use IY = -(n-1).
+  
    3.
+
    An alternative to the present routine is sla_CALDJ, which
+        accepts a year with the century missing.
+ 
    
+
         
    
+
    REFERENCE:
+
    The algorithm is derived from that of Hatcher,
+Q.Jl.R.astr.Soc. (1984) 25, 53-55.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CLYD - Calendar to Year, Day
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CD2TF - Days to Hour,Min,Sec
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node34.html b/src/slalib/sun67.htx/node34.html
new file mode 100644
index 0000000..266f38a
--- /dev/null
+++ b/src/slalib/sun67.htx/node34.html
@@ -0,0 +1,129 @@
+
+
+
+
+SLA_CLYD - Calendar to Year, Day
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_COMBN - Next Combination
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CLDJ - Calendar to MJD
+
     
     
    
+
    
+
    SLA_CLYD - Calendar to Year, Day
+  
+
    
+       
    
+
    ACTION:
+
    Gregorian calendar date to year and day in year, in a Julian
+calendar aligned to the 20th/21st century Gregorian calendar.
+
        
    CALL:
+
    CALL sla_CLYD (IY, IM, ID, NY, ND, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    IY,IM,IDIyear, month, day in Gregorian calendar
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    NYIyear (re-aligned Julian calendar)
    NDIday in year (1 = January 1st)
    JIstatus:
       0 = OK
       1 = bad year (before -4711)
       2 = bad month
       3 = bad day
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The purpose of sla_CLYD is to support sla_EARTH,
+sla_MOON and sla_ECOR.
+
    2.
+
    Between 1900 March 1 and 2100 February 28 it returns answers
+        which are consistent with the ordinary Gregorian calendar.
+        Outside this range there will be a discrepancy which increases
+        by one day for every non-leap century year.
+  
    3.
+
    When an invalid year or month is supplied (status J = 1 or J = 2)
+        the results are not computed.  When a day is
+        supplied which is outside the conventional range (status J = 3)
+        the results are computed.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_COMBN - Next Combination
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CLDJ - Calendar to MJD
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node35.html b/src/slalib/sun67.htx/node35.html
new file mode 100644
index 0000000..8723385
--- /dev/null
+++ b/src/slalib/sun67.htx/node35.html
@@ -0,0 +1,142 @@
+
+
+
+
+SLA_COMBN - Next Combination
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CR2AF - Radians to Deg,Arcmin,Arcsec
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CLYD - Calendar to Year, Day
+
     
     
    
+
    
+
    SLA_COMBN - Next Combination
+  
+
    
+       
    
+
    ACTION:
+
    Generate the next combination, a subset of a specified size chosen
+from a specified number of items.
+
        
    CALL:
+
    CALL sla_COMBN (NSEL, NCAND, LIST, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    NSELInumber of items (subset size)
    NCANDInumber of candidates (set size)
    
+
         
    
+
    GIVEN and RETURNED:
+
    
+
    
+
+
+
+
+
+
    LISTI(NSEL)latest combination, LIST(1)=0 to initialize
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    JIstatus:
      -1 = illegal NSEL or NCAND
         0 = OK
      +1 = no more combinations available
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    NSEL and NCAND must both be at least 1, and NSEL must be less
+than or equal to NCAND.
+
    2.
+
    This routine returns, in the LIST array, a subset of NSEL integers
+        chosen from the range 1 to NCAND inclusive, in ascending order.
+        Before calling the routine for the first time, the caller must set
+        the first element of the LIST array to zero (any value less than 1
+        will do) to cause initialization.
+  
    3.
+
    The first combination to be generated is:
+        
    LIST(1)=1, LIST(2)=2, ..., LIST(NSEL)=NSEL
+        
    
+        This is also the combination returned for the ``finished'' (J=1) case.
+        The final permutation to be generated is:
+        
    LIST(1)=NCAND, LIST(2)=NCAND-1, ..., 
    
+                                          LIST(NSEL)=NCAND-NSEL+1
+        
    
+  
    4.
+
    If the ``finished'' (J=1) status is ignored, the routine
+        continues to deliver combinations, the pattern repeating
+        every NCAND!/(NSEL!(NCAND-NSEL)!) calls.
+  
    5.
+
    The algorithm is by R.F.Warren-Smith (private communication).
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CR2AF - Radians to Deg,Arcmin,Arcsec
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CLYD - Calendar to Year, Day
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node36.html b/src/slalib/sun67.htx/node36.html
new file mode 100644
index 0000000..0932642
--- /dev/null
+++ b/src/slalib/sun67.htx/node36.html
@@ -0,0 +1,122 @@
+
+
+
+
+SLA_CR2AF - Radians to Deg,Arcmin,Arcsec
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CR2TF - Radians to Hour,Min,Sec
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_COMBN - Next Combination
+
     
     
    
+
    
+
    SLA_CR2AF - Radians to Deg,Arcmin,Arcsec
+  
+
    
+       
    
+
    ACTION:
+
    Convert an angle in radians to degrees, arcminutes,
+arcseconds (single precision).
+
        
    CALL:
+
    CALL sla_CR2AF (NDP, ANGLE, SIGN, IDMSF)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    NDPInumber of decimal places of arcseconds
    ANGLERangle in radians
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    SIGNC`+' or `-'
    IDMSFI(4)degrees, arcminutes, arcseconds, fraction
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    NDP less than zero is interpreted as zero.
+
    2.
+
    The largest useful value for NDP is determined by the size of
+ANGLE, the format of REAL floating-point numbers on the target
+        machine, and the risk of overflowing IDMSF(4).  For example,
+        on a VAX computer, for ANGLE up to $2\pi$, the available floating-point
+        precision corresponds roughly to NDP=3.  This is well below
+        the ultimate limit of NDP=9 set by the capacity of the 32-bit
+        integer IHMSF(4).
+  
    3.
+
    The absolute value of ANGLE may exceed $2\pi$.  In cases where it
+        does not, it is up to the caller to test for and handle the
+        case where ANGLE is very nearly $2\pi$ and rounds up to $360^{\circ}$,        by testing for IDMSF(1)=360 and setting IDMSF(1-4) to zero.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CR2TF - Radians to Hour,Min,Sec
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_COMBN - Next Combination
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node37.html b/src/slalib/sun67.htx/node37.html
new file mode 100644
index 0000000..cd25af4
--- /dev/null
+++ b/src/slalib/sun67.htx/node37.html
@@ -0,0 +1,121 @@
+
+
+
+
+SLA_CR2TF - Radians to Hour,Min,Sec
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CS2C - Spherical to Cartesian
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CR2AF - Radians to Deg,Arcmin,Arcsec
+
     
     
    
+
    
+
    SLA_CR2TF - Radians to Hour,Min,Sec
+  
+
    
+       
    
+
    ACTION:
+
    Convert an angle in radians to hours, minutes, seconds
+(single precision).
+
        
    CALL:
+
    CALL sla_CR2TF (NDP, ANGLE, SIGN, IHMSF)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    NDPInumber of decimal places of seconds
    ANGLERangle in radians
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    SIGNC`+' or `-'
    IHMSFI(4)hours, minutes, seconds, fraction
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    NDP less than zero is interpreted as zero.
+
    2.
+
    The largest useful value for NDP is determined by the size of
+ANGLE, the format of REAL floating-point numbers on the target
+        machine, and the risk of overflowing IHMSF(4).  For example,
+        on a VAX computer, for ANGLE up to $2\pi$, the available floating-point
+        precision corresponds roughly to NDP=3.  This is well below
+        the ultimate limit of NDP=9 set by the capacity of the 32-bit
+        integer IHMSF(4).
+  
    3.
+
    The absolute value of ANGLE may exceed $2\pi$.  In cases where it
+        does not, it is up to the caller to test for and handle the
+        case where ANGLE is very nearly $2\pi$ and rounds up to 24 hours,
+        by testing for IHMSF(1)=24 and setting IHMSF(1-4) to zero.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CS2C - Spherical to Cartesian
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CR2AF - Radians to Deg,Arcmin,Arcsec
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node38.html b/src/slalib/sun67.htx/node38.html
new file mode 100644
index 0000000..93d4f63
--- /dev/null
+++ b/src/slalib/sun67.htx/node38.html
@@ -0,0 +1,99 @@
+
+
+
+
+SLA_CS2C - Spherical to Cartesian
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CS2C6 - Spherical Pos/Vel to Cartesian
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CR2TF - Radians to Hour,Min,Sec
+
     
     
    
+
    
+
    SLA_CS2C - Spherical to Cartesian
+  
+
    
+       
    
+
    ACTION:
+
    Spherical coordinates to Cartesian coordinates (single precision).
+
    CALL:
+
    CALL sla_CS2C (A, B, V)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    A,BRspherical coordinates in radians: $[\,\alpha,\delta\,]$ etc.
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    VR(3)$[\,x,y,z\,]$ unit vector
    
+
          
    
+
    NOTE:
+
    The spherical coordinates are longitude (+ve anticlockwise
+looking from the +ve latitude pole) and latitude.  The
+       Cartesian coordinates are right handed, with the x-axis
+       at zero longitude and latitude, and the z-axis at the
+       +ve latitude pole.
+      
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CS2C6 - Spherical Pos/Vel to Cartesian
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CR2TF - Radians to Hour,Min,Sec
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node39.html b/src/slalib/sun67.htx/node39.html
new file mode 100644
index 0000000..51bbf4f
--- /dev/null
+++ b/src/slalib/sun67.htx/node39.html
@@ -0,0 +1,114 @@
+
+
+
+
+SLA_CS2C6 - Spherical Pos/Vel to Cartesian
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CTF2D - Hour,Min,Sec to Days
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CS2C - Spherical to Cartesian
+
     
     
    
+
    
+
    SLA_CS2C6 - Spherical Pos/Vel to Cartesian
+  
+
    
+       
    
+
    ACTION:
+
    Conversion of position & velocity in spherical coordinates
+to Cartesian coordinates (single precision).
+
        
    CALL:
+
    CALL sla_CS2C6 (A, B, R, AD, BD, RD, V)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    ARlongitude (radians) - for example $\alpha$
    BRlatitude (radians) - for example $\delta$
    RRradial coordinate
    ADRlongitude derivative (radians per unit time)
    BDRlatitude derivative (radians per unit time)
    RDRradial derivative
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    VR(6)$[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CTF2D - Hour,Min,Sec to Days
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CS2C - Spherical to Cartesian
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node4.html b/src/slalib/sun67.htx/node4.html
new file mode 100644
index 0000000..81c9586
--- /dev/null
+++ b/src/slalib/sun67.htx/node4.html
@@ -0,0 +1,131 @@
+
+
+
+
+Example Application
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Scope
+
    
+Up: INTRODUCTION
+
    
+ Previous: Purpose
+
     
     
    
+
    
+
    
+Example Application
+
    
+Here is a simple example of an application program written
+using SLALIB calls:
+
    +         PROGRAM FK4FK5
+   *
+   *  Read a B1950 position from I/O unit 5 and reply on I/O unit 6
+   *  with the J2000 equivalent.  Enter a period to quit.
+   *
+         IMPLICIT NONE
+         CHARACTER C*80,S
+         INTEGER I,J,IHMSF(4),IDMSF(4)
+         DOUBLE PRECISION R4,D4,R5,D5
+         LOGICAL BAD
+
+   *   Loop until a period is entered
+         C = ' '
+         DO WHILE (C(:1).NE.'.')
+
+   *     Read h m s d ' "
+            READ (5,'(A)') C
+            IF (C(:1).NE.'.') THEN
+               BAD = .TRUE.
+
+   *        Decode the RA
+               I = 1
+               CALL sla_DAFIN(C,I,R4,J)
+               IF (J.EQ.0) THEN
+                  R4 = 15D0*R4
+
+   *           Decode the Dec
+                  CALL sla_DAFIN(C,I,D4,J)
+                  IF (J.EQ.0) THEN
+
+   *              FK4 to FK5
+                     CALL sla_FK45Z(R4,D4,1950D0,R5,D5)
+
+   *              Format and output the result
+                     CALL sla_DR2TF(2,R5,S,IHMSF)
+                     CALL sla_DR2AF(1,D5,S,IDMSF)
+                     WRITE (6,
+        :       '(1X,I2.2,2I3.2,''.'',I2.2,2X,A,I2.2,2I3.2,''.'',I1)')
+        :                                                     IHMSF,S,IDMSF
+                     BAD = .FALSE.
+                  END IF
+               END IF
+               IF (BAD) WRITE (6,'(1X,''?'')')
+            END IF
+         END DO
+
+         END
+
    
+In this example, SLALIB not only provides the complicated FK4 to
+FK5 transformation but also
+simplifies the tedious and error-prone tasks
+of decoding and formatting angles
+expressed as hours, minutes etc.  The
+example incorporates range checking, and avoids the
+notorious ``minus zero'' problem (an often-perpetrated bug where
+declinations between $0^{\circ}$ and $-1^{\circ}$ lose their minus
+sign).
+With a little extra elaboration and a few more calls to SLALIB,
+defaulting can be provided (enabling unused fields to
+be replaced with commas to avoid retyping), proper motions
+can be handled, different epochs can be specified, and
+so on.  See the program COCO (SUN/56) for further ideas.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Scope
+
    
+Up: INTRODUCTION
+
    
+ Previous: Purpose
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node40.html b/src/slalib/sun67.htx/node40.html
new file mode 100644
index 0000000..438541e
--- /dev/null
+++ b/src/slalib/sun67.htx/node40.html
@@ -0,0 +1,125 @@
+
+
+
+
+SLA_CTF2D - Hour,Min,Sec to Days
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CTF2R - Hour,Min,Sec to Radians
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CS2C6 - Spherical Pos/Vel to Cartesian
+
     
     
    
+
    
+
    SLA_CTF2D - Hour,Min,Sec to Days
+  
+
    
+       
    
+
    ACTION:
+
    Convert hours, minutes, seconds to days (single precision).
+
    CALL:
+
    CALL sla_CTF2D (IHOUR, IMIN, SEC, DAYS, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    IHOURIhours
    IMINIminutes
    SECRseconds
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    DAYSRinterval in days
    JIstatus:
      0 = OK
      1 = IHOUR outside range 0-23
      2 = IMIN outside range 0-59
      3 = SEC outside range 0-59.999$\cdots$
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The result is computed even if any of the range checks fail.
+
    2.
+
    The sign must be dealt with outside this routine.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_CTF2R - Hour,Min,Sec to Radians
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CS2C6 - Spherical Pos/Vel to Cartesian
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node41.html b/src/slalib/sun67.htx/node41.html
new file mode 100644
index 0000000..bf3cf62
--- /dev/null
+++ b/src/slalib/sun67.htx/node41.html
@@ -0,0 +1,125 @@
+
+
+
+
+SLA_CTF2R - Hour,Min,Sec to Radians
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DAF2R - Deg,Arcmin,Arcsec to Radians
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CTF2D - Hour,Min,Sec to Days
+
     
     
    
+
    
+
    SLA_CTF2R - Hour,Min,Sec to Radians
+  
+
    
+       
    
+
    ACTION:
+
    Convert hours, minutes, seconds to radians (single precision).
+
    CALL:
+
    CALL sla_CTF2R (IHOUR, IMIN, SEC, RAD, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    IHOURIhours
    IMINIminutes
    SECRseconds
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RADRangle in radians
    JIstatus:
      0 = OK
      1 = IHOUR outside range 0-23
      2 = IMIN outside range 0-59
      3 = SEC outside range 0-59.999$\cdots$
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The result is computed even if any of the range checks fail.
+
    2.
+
    The sign must be dealt with outside this routine.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DAF2R - Deg,Arcmin,Arcsec to Radians
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CTF2D - Hour,Min,Sec to Days
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node42.html b/src/slalib/sun67.htx/node42.html
new file mode 100644
index 0000000..faed2a4
--- /dev/null
+++ b/src/slalib/sun67.htx/node42.html
@@ -0,0 +1,122 @@
+
+
+
+
+SLA_DAF2R - Deg,Arcmin,Arcsec to Radians
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DAFIN - Sexagesimal character string to angle
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CTF2R - Hour,Min,Sec to Radians
+
     
     
    
+
    
+
    SLA_DAF2R - Deg,Arcmin,Arcsec to Radians
+  
+
    
+       
    
+
    ACTION:
+
    Convert degrees, arcminutes, arcseconds to radians
+(double precision).
+
        
    CALL:
+
    CALL sla_DAF2R (IDEG, IAMIN, ASEC, RAD, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    IDEGIdegrees
    IAMINIarcminutes
    ASECDarcseconds
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RADDangle in radians
    JIstatus:
      1 = IDEG outside range 0-359
      2 = IAMIN outside range 0-59
      3 = ASEC outside range 0-59.999$\cdots$
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The result is computed even if any of the range checks fail.
+
    2.
+
    The sign must be dealt with outside this routine.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DAFIN - Sexagesimal character string to angle
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_CTF2R - Hour,Min,Sec to Radians
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node43.html b/src/slalib/sun67.htx/node43.html
new file mode 100644
index 0000000..8559153
--- /dev/null
+++ b/src/slalib/sun67.htx/node43.html
@@ -0,0 +1,229 @@
+
+
+
+
+SLA_DAFIN - Sexagesimal character string to angle
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DAT - TAI-UTC
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DAF2R - Deg,Arcmin,Arcsec to Radians
+
     
     
    
+
    
+
    SLA_DAFIN - Sexagesimal character string to angle
+  
+
    
+       
    
+
    ACTION:
+
    Decode a free-format sexagesimal string (degrees, arcminutes,
+arcseconds) into a double precision floating point
+         number (radians).
+
        
    CALL:
+
    CALL sla_DAFIN (STRING, NSTRT, DRESLT, JF)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    STRINGC*(*)string containing deg, arcmin, arcsec fields
    NSTRTIpointer to start of decode (beginning of STRING = 1)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    NSTRTIadvanced past the decoded angle
    DRESLTDangle in radians
    JFIstatus:
        0 = OK
      +1 = default, DRESLT unchanged (note 2)
      -1 = bad degrees (note 3)
      -2 = bad arcminutes (note 3)
      -3 = bad arcseconds (note 3)
    
+
    
+
    EXAMPLE
+
    : 
    
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    argumentbeforeafter
       
    STRING'-57 17 44.806  12 34 56.7'unchanged
    NSTRT116 (i.e. pointing to 12...)
    RESLT--1.00000D0
    JF- 
    
+ 
     A further call to sla_DAFIN, without adjustment of NSTRT, will
+       decode the second angle, $12^{\circ}\,34^{'}\,56^{''}.7$.
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The first three ``fields'' in STRING are degrees, arcminutes,
+arcseconds, separated by spaces or commas.  The degrees field
+may be signed, but not the others.  The decoding is carried
+   out by the sla_DFLTIN routine and is free-format.
+  
    2.
+
    Successive fields may be absent, defaulting to zero.  For
+   zero status, the only combinations allowed are degrees alone,
+   degrees and arcminutes, and all three fields present.  If all
+   three fields are omitted, a status of +1 is returned and DRESLT is
+   unchanged.  In all other cases DRESLT is changed.
+  
    3.
+
    Range checking:
+   
      
+
    •  The degrees field is not range checked.  However, it is
+     expected to be integral unless the other two fields are absent.
+
    •  The arcminutes field is expected to be 0-59, and integral if
+     the arcseconds field is present.  If the arcseconds field
+     is absent, the arcminutes is expected to be 0-59.9999...
+
    •  The arcseconds field is expected to be 0-59.9999...
+
    •  Decoding continues even when a check has failed.  Under these
+     circumstances the field takes the supplied value, defaulting to
+     zero, and the result DRESLT is computed and returned.
+   
    
+   
    4.
+
    Further fields after the three expected ones are not treated as
+    an error.  The pointer NSTRT is left in the correct state for
+    further decoding with the present routine or with sla_DFLTIN
+    etc.  See the example, above.
+   
    5.
+
    If STRING contains hours, minutes, seconds instead of
+    degrees etc,
+    or if the required units are turns (or days) instead of radians,
+    the result DRESLT should be multiplied as follows: 
    
+
    
+
    
+    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    for STRINGto obtainmultiply DRESLT by
       
    ${\circ}$  '  ''radians1.0D0
    ${\circ}$  '  ''turns$1/{2 \pi} = 0.1591549430918953358$D0
    h m sradians15.0D0
    h m sdays$15/{2\pi} = 2.3873241463784300365$D0
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DAT - TAI-UTC
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DAF2R - Deg,Arcmin,Arcsec to Radians
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node44.html b/src/slalib/sun67.htx/node44.html
new file mode 100644
index 0000000..791aba6
--- /dev/null
+++ b/src/slalib/sun67.htx/node44.html
@@ -0,0 +1,109 @@
+
+
+
+
+SLA_DAT - TAI-UTC
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DAV2M - Rotation Matrix from Axial Vector
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DAFIN - Sexagesimal character string to angle
+
     
     
    
+
    
+
    SLA_DAT - TAI-UTC
+  
+
    
+       
    
+
    ACTION:
+
    Increment to be applied to Coordinated Universal Time UTC to give
+International Atomic Time TAI.
+
        
    CALL:
+
    D = sla_DAT (UTC)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    UTCDUTC date as a modified JD (JD-2400000.5)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_DATDTAI-UTC in seconds
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The UTC is specified to be a date rather than a time to indicate
+that care needs to be taken not to specify an instant which lies
+within a leap second.  Though in most cases UTC can include the
+       fractional part, correct behaviour on the day of a leap second
+       can be guaranteed only up to the end of the second
+       $23^{\rm h}\,59^{\rm m}\,59^{\rm s}$. 
    2.
+
    UTC began at 1960 January 1.  To specify a UTC prior to this
+       date would be meaningless;  in such cases the parameters
+       for the year 1960 are used by default.
+ 
    3.
+
    This routine has to be updated on each occasion that a
+       leap second is announced, and programs using it relinked.
+       Refer to the program source code for information on when the
+       most recent leap second was added.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DAV2M - Rotation Matrix from Axial Vector
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DAFIN - Sexagesimal character string to angle
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node45.html b/src/slalib/sun67.htx/node45.html
new file mode 100644
index 0000000..4e11c46
--- /dev/null
+++ b/src/slalib/sun67.htx/node45.html
@@ -0,0 +1,103 @@
+
+
+
+
+SLA_DAV2M - Rotation Matrix from Axial Vector
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DBEAR - Direction Between Points on a Sphere
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DAT - TAI-UTC
+
     
     
    
+
    
+
    SLA_DAV2M - Rotation Matrix from Axial Vector
+  
+
    
+       
    
+
    ACTION:
+
    Form the rotation matrix corresponding to a given axial vector
+(double precision).
+
        
    CALL:
+
    CALL sla_DAV2M (AXVEC, RMAT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    AXVECD(3)axial vector (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RMATD(3,3)rotation matrix
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    A rotation matrix describes a rotation about some arbitrary axis.
+The axis is called the Euler axis, and the angle through which the
+reference frame rotates is called the Euler angle.  The axial
+        vector supplied to this routine has the same direction as the
+        Euler axis, and its magnitude is the Euler angle in radians.
+  
    2.
+
    If AXVEC is null, the unit matrix is returned.
+  
    3.
+
    The reference frame rotates clockwise as seen looking along
+        the axial vector from the origin.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DBEAR - Direction Between Points on a Sphere
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DAT - TAI-UTC
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node46.html b/src/slalib/sun67.htx/node46.html
new file mode 100644
index 0000000..39a1ffd
--- /dev/null
+++ b/src/slalib/sun67.htx/node46.html
@@ -0,0 +1,123 @@
+
+
+
+
+SLA_DBEAR - Direction Between Points on a Sphere
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DBJIN - Decode String to B/J Epoch (DP)
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DAV2M - Rotation Matrix from Axial Vector
+
     
     
    
+
    
+
    SLA_DBEAR - Direction Between Points on a Sphere
+  
+
    
+       
    
+
    ACTION:
+
    Returns the bearing (position angle) of one point on a
+sphere relative to another (double precision).
+
        
    CALL:
+
    D = sla_DBEAR (A1, B1, A2, B2)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    A1,B1Dspherical coordinates of one point
    A2,B2Dspherical coordinates of the other point
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_DBEARDbearing from first point to second
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The spherical coordinates are $[\,\alpha,\delta\,]$,$[\lambda,\phi]$ etc., in radians.
+
    2.
+
    The result is the bearing (position angle), in radians,
+       of point [A2,B2] as seen
+       from point [A1,B1].  It is in the range $\pm \pi$.  The sense
+       is such that if [A2,B2]
+       is a small distance due east of [A1,B1] the result
+       is about $+\pi/2$. Zero is returned
+       if the two points are coincident.
+ 
    3.
+
    If either B-coordinate is outside the range $\pm\pi/2$, the
+       result may correspond to ``the long way round''.
+ 
    4.
+
    The routine sla_DPAV performs an equivalent function except
+       that the points are specified in the form of Cartesian unit
+       vectors.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DBJIN - Decode String to B/J Epoch (DP)
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DAV2M - Rotation Matrix from Axial Vector
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node47.html b/src/slalib/sun67.htx/node47.html
new file mode 100644
index 0000000..5d8e877
--- /dev/null
+++ b/src/slalib/sun67.htx/node47.html
@@ -0,0 +1,157 @@
+
+
+
+
+SLA_DBJIN - Decode String to B/J Epoch (DP)
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DC62S - Cartesian 6-Vector to Spherical
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DBEAR - Direction Between Points on a Sphere
+
     
     
    
+
    
+
    SLA_DBJIN - Decode String to B/J Epoch (DP)
+  
+
    
+       
    
+
    ACTION:
+
    Decode a character string into a DOUBLE PRECISION number,
+with special provision for Besselian and Julian epochs.
+         The string syntax is as for sla_DFLTIN, prefixed by
+         an optional `B' or `J'.
+
        
    CALL:
+
    CALL sla_DBJIN (STRING, NSTRT, DRESLT, J1, J2)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    STRINGCstring containing field to be decoded
    NSTRTIpointer to first character of field in string
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    NSTRTIincremented past the decoded field
    DRESLTDresult
    J1IDFLTIN status:
      -1 = -OK
        0 = +OK
        1 = null field
        2 = error
    J2Isyntax flag:
        0 = normal DFLTIN syntax
        1 = `B' or `b'
        2 = `J' or `j'
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The purpose of the syntax extensions is to help cope with mixed
+FK4 and FK5 data, allowing fields such as `B1950' or `J2000'
+to be decoded.
+  
    2.
+
    In addition to the syntax accepted by sla_DFLTIN,
+        the following two extensions are recognized by sla_DBJIN:
+        
    
+
    (a)
+
    A valid non-null field preceded by the character `B'
+(or `b') is accepted.
+         
    (b)
+
    A valid non-null field preceded by the character `J'
+               (or `j') is accepted.
+         
    
+  
    3.
+
    The calling program is told of the `B' or `J' through an
+        supplementary status argument.  The rest of
+        the arguments are as for sla_DFLTIN.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DC62S - Cartesian 6-Vector to Spherical
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DBEAR - Direction Between Points on a Sphere
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node48.html b/src/slalib/sun67.htx/node48.html
new file mode 100644
index 0000000..95057e4
--- /dev/null
+++ b/src/slalib/sun67.htx/node48.html
@@ -0,0 +1,110 @@
+
+
+
+
+SLA_DC62S - Cartesian 6-Vector to Spherical
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DCC2S - Cartesian to Spherical
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DBJIN - Decode String to B/J Epoch (DP)
+
     
     
    
+
    
+
    SLA_DC62S - Cartesian 6-Vector to Spherical
+  
+
    
+       
    
+
    ACTION:
+
    Conversion of position & velocity in Cartesian coordinates
+to spherical coordinates (double precision).
+
        
    CALL:
+
    CALL sla_DC62S (V, A, B, R, AD, BD, RD)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    VD(6)$[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    ADlongitude (radians)
    BDlatitude (radians)
    RDradial coordinate
    ADDlongitude derivative (radians per unit time)
    BDDlatitude derivative (radians per unit time)
    RDDradial derivative
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DCC2S - Cartesian to Spherical
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DBJIN - Decode String to B/J Epoch (DP)
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node49.html b/src/slalib/sun67.htx/node49.html
new file mode 100644
index 0000000..86f582e
--- /dev/null
+++ b/src/slalib/sun67.htx/node49.html
@@ -0,0 +1,103 @@
+
+
+
+
+SLA_DCC2S - Cartesian to Spherical
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DCMPF - Interpret Linear Fit
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DC62S - Cartesian 6-Vector to Spherical
+
     
     
    
+
    
+
    SLA_DCC2S - Cartesian to Spherical
+  
+
    
+       
    
+
    ACTION:
+
    Cartesian coordinates to spherical coordinates (double precision).
+
    CALL:
+
    CALL sla_DCC2S (V, A, B)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    VD(3)$[\,x,y,z\,]$ vector
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    A,BDspherical coordinates in radians
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The spherical coordinates are longitude (+ve anticlockwise
+looking from the +ve latitude pole) and latitude.  The
+Cartesian coordinates are right handed, with the x-axis
+        at zero longitude and latitude, and the z-axis at the
+        +ve latitude pole.
+  
    2.
+
    If V is null, zero A and B are returned.
+  
    3.
+
    At either pole, zero A is returned.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DCMPF - Interpret Linear Fit
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DC62S - Cartesian 6-Vector to Spherical
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node5.html b/src/slalib/sun67.htx/node5.html
new file mode 100644
index 0000000..3920866
--- /dev/null
+++ b/src/slalib/sun67.htx/node5.html
@@ -0,0 +1,83 @@
+
+
+
+
+Scope
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Objectives
+
    
+Up: INTRODUCTION
+
    
+ Previous: Example Application
+
     
     
    
+
    
+
    
+Scope
+
    
+SLALIB contains 183 routines covering the following topics:
+
      
+
    •  String Decoding,
+      Sexagesimal Conversions
+
    •  Angles, Vectors & Rotation Matrices
+
    •  Calendars,
+      Timescales
+
    •  Precession & Nutation
+
    •  Proper Motion
+
    •  FK4/FK5/Hipparcos,
+      Elliptic Aberration
+
    •  Geocentric Coordinates
+
    •  Apparent & Observed Place
+
    •  Azimuth & Elevation
+
    •  Refraction & Air Mass
+
    •  Ecliptic,
+      Galactic,
+      Supergalactic Coordinates
+
    •  Ephemerides
+
    •  Astrometry
+
    •  Numerical Methods
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Objectives
+
    
+Up: INTRODUCTION
+
    
+ Previous: Example Application
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node50.html b/src/slalib/sun67.htx/node50.html
new file mode 100644
index 0000000..555de30
--- /dev/null
+++ b/src/slalib/sun67.htx/node50.html
@@ -0,0 +1,166 @@
+
+
+
+
+SLA_DCMPF - Interpret Linear Fit
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DCS2C - Spherical to Cartesian
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DCC2S - Cartesian to Spherical
+
     
     
    
+
    
+
    SLA_DCMPF - Interpret Linear Fit
+  
+
    
+       
    
+
    ACTION:
+
    Decompose an $[\,x,y\,]$ linear fit into its constituent parameters:
+zero points, scales, nonperpendicularity and orientation.
+
        
    CALL:
+
    CALL sla_DCMPF (COEFFS,XZ,YZ,XS,YS,PERP,ORIENT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    COEFFSD(6)transformation coefficients (see note)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    XZDx zero point
    YZDy zero point
    XSDx scale
    YSDy scale
    PERPDnonperpendicularity (radians)
    ORIENTDorientation (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The model relates two sets of $[\,x,y\,]$ coordinates as follows.
+Naming the six elements of COEFFS a,b,c,d,e & f,
+the model transforms coordinates $[x_{1},y_{1}\,]$ into coordinates
+        $[x_{2},y_{2}\,]$ as follows:
+        
    x2 = a + bx1 + cy1 
    
+         y2 = d + ex1 + fy1
    
+        The sla_DCMPF routine decomposes this transformation
+        into four steps:
+        
    
+
    (a)
+
    Zero points:
+
    $x' = x_{1} + {\rm XZ}$ 
    
+               $y' = y_{1} + {\rm YZ}$
    
+        
    (b)
+
    Scales:
+              
    $x'' = x' {\rm XS}$ 
    
+               $y'' = y' {\rm YS}$
    
+        
    (c)
+
    Nonperpendicularity:
+              
    $x''' = + x'' \cos {\rm PERP}/2 + y'' \sin {\rm PERP}/2$ 
    
+               $y''' = + x'' \sin {\rm PERP}/2 + y'' \cos {\rm PERP}/2$
    
+        
    (d)
+
    Orientation:
+              
    $x_{2} = + x''' \cos {\rm ORIENT} +
+ y''' \sin {\rm ORIENT}$ 
    
+               $y_{2} = - x''' \sin {\rm ORIENT} +
+ y''' \cos {\rm ORIENT}$
    
+  
    2.
+
    See also sla_FITXY, sla_PXY, sla_INVF, sla_XY2XY.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DCS2C - Spherical to Cartesian
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DCC2S - Cartesian to Spherical
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node51.html b/src/slalib/sun67.htx/node51.html
new file mode 100644
index 0000000..1a8cb1b
--- /dev/null
+++ b/src/slalib/sun67.htx/node51.html
@@ -0,0 +1,99 @@
+
+
+
+
+SLA_DCS2C - Spherical to Cartesian
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DD2TF - Days to Hour,Min,Sec
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DCMPF - Interpret Linear Fit
+
     
     
    
+
    
+
    SLA_DCS2C - Spherical to Cartesian
+  
+
    
+       
    
+
    ACTION:
+
    Spherical coordinates to Cartesian coordinates (double precision).
+
    CALL:
+
    CALL sla_DCS2C (A, B, V)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    A,BDspherical coordinates in radians: $[\,\alpha,\delta\,]$ etc.
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    VD(3)$[\,x,y,z\,]$ unit vector
    
+
          
    
+
    NOTE:
+
    The spherical coordinates are longitude (+ve anticlockwise
+looking from the +ve latitude pole) and latitude.  The
+       Cartesian coordinates are right handed, with the x-axis
+       at zero longitude and latitude, and the z-axis at the
+       +ve latitude pole.
+      
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DD2TF - Days to Hour,Min,Sec
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DCMPF - Interpret Linear Fit
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node52.html b/src/slalib/sun67.htx/node52.html
new file mode 100644
index 0000000..52cca63
--- /dev/null
+++ b/src/slalib/sun67.htx/node52.html
@@ -0,0 +1,115 @@
+
+
+
+
+SLA_DD2TF - Days to Hour,Min,Sec
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DE2H - to Az,El
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DCS2C - Spherical to Cartesian
+
     
     
    
+
    
+
    SLA_DD2TF - Days to Hour,Min,Sec
+  
+
    
+       
    
+
    ACTION:
+
    Convert an interval in days into hours, minutes, seconds
+(double precision).
+
        
    CALL:
+
    CALL sla_DD2TF (NDP, DAYS, SIGN, IHMSF)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    NDPInumber of decimal places of seconds
    DAYSDinterval in days
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    SIGNC`+' or `-'
    IHMSFI(4)hours, minutes, seconds, fraction
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    NDP less than zero is interpreted as zero.
+
    2.
+
    The largest useful value for NDP is determined by the size
+of DAYS, the format of DOUBLE PRECISION floating-point numbers
+        on the target machine, and the risk of overflowing IHMSF(4).
+        For example, on a VAX computer, for DAYS up to 1D0, the available
+        floating-point precision corresponds roughly to NDP=12.  However,
+        the practical limit is NDP=9, set by the capacity of the 32-bit
+        integer IHMSF(4).
+  
    3.
+
    The absolute value of DAYS may exceed 1D0.  In cases where it
+        does not, it is up to the caller to test for and handle the
+        case where DAYS is very nearly 1D0 and rounds up to 24 hours,
+        by testing for IHMSF(1)=24 and setting IHMSF(1-4) to zero.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DE2H - to Az,El
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DCS2C - Spherical to Cartesian
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node53.html b/src/slalib/sun67.htx/node53.html
new file mode 100644
index 0000000..05a6c56
--- /dev/null
+++ b/src/slalib/sun67.htx/node53.html
@@ -0,0 +1,145 @@
+
+
+
+
+SLA_DE2H - to Az,El
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DEULER - Euler Angles to Rotation Matrix
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DD2TF - Days to Hour,Min,Sec
+
     
     
    
+
    
+
       
+
    
+SLA_DE2H - $h,\delta$ to Az,El
+
    
+       
    
+
    ACTION:
+
    Equatorial to horizon coordinates
+(double precision).
+
        
    CALL:
+
    CALL sla_DE2H (HA, DEC, PHI, AZ, EL)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    HADhour angle (radians)
    DECDdeclination (radians)
    PHIDlatitude (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    AZDazimuth (radians)
    ELDelevation (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Azimuth is returned in the range $0\!-\!2\pi$;  north is zero,
+and east is $+\pi/2$.  Elevation is returned in the range
+$\pm \pi$.  
    2.
+
    The latitude must be geodetic.  In critical applications,
+        corrections for polar motion should be applied.
+  
    3.
+
    In some applications it will be important to specify the
+        correct type of hour angle and declination in order to
+        produce the required type of azimuth and elevation.  In
+        particular, it may be important to distinguish between
+        elevation as affected by refraction, which would
+        require the observed $[\,h,\delta\,]$, and the elevation
+        in vacuo, which would require the topocentric
+        $[\,h,\delta\,]$.        If the effects of diurnal aberration can be neglected, the
+        apparent $[\,h,\delta\,]$ may be used instead of the topocentric
+        $[\,h,\delta\,]$.  
    4.
+
    No range checking of arguments is carried out.
+  
    5.
+
    In applications which involve many such calculations, rather
+        than calling the present routine it will be more efficient to
+        use inline code, having previously computed fixed terms such
+        as sine and cosine of latitude, and (for tracking a star)
+        sine and cosine of declination.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DEULER - Euler Angles to Rotation Matrix
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DD2TF - Days to Hour,Min,Sec
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node54.html b/src/slalib/sun67.htx/node54.html
new file mode 100644
index 0000000..1fc9a2a
--- /dev/null
+++ b/src/slalib/sun67.htx/node54.html
@@ -0,0 +1,127 @@
+
+
+
+
+SLA_DEULER - Euler Angles to Rotation Matrix
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DFLTIN - Decode a Double Precision Number
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DE2H - to Az,El
+
     
     
    
+
    
+
    SLA_DEULER - Euler Angles to Rotation Matrix
+  
+
    
+       
    
+
    ACTION:
+
    Form a rotation matrix from the Euler angles - three
+successive rotations about specified Cartesian axes
+         (double precision).
+
        
    CALL:
+
    CALL sla_DEULER (ORDER, PHI, THETA, PSI, RMAT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    ORDERCspecifies about which axes the rotations occur
    PHID1st rotation (radians)
    THETAD2nd rotation (radians)
    PSID3rd rotation (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RMATD(3,3)rotation matrix
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    A rotation is positive when the reference frame rotates
+anticlockwise as seen looking towards the origin from the
+positive region of the specified axis.
+ 
    2.
+
    The characters of ORDER define which axes the three successive
+       rotations are about.  A typical value is `ZXZ', indicating that
+       RMAT is to become the direction cosine matrix corresponding to
+       rotations of the reference frame through PHI radians about the
+       old z-axis, followed by THETA radians about the resulting
+       x-axis,
+       then PSI radians about the resulting z-axis.
+ 
    3.
+
    The axis names can be any of the following, in any order or
+       combination:  X, Y, Z, uppercase or lowercase, 1, 2, 3.  Normal
+       axis labelling/numbering conventions apply;  the xyz ($\equiv123$)       triad is right-handed.  Thus, the `ZXZ' example given above
+       could be written `zxz' or `313' (or even `ZxZ' or `3xZ').  ORDER
+       is terminated by length or by the first unrecognized character.
+       Fewer than three rotations are acceptable, in which case the later
+       angle arguments are ignored.  Zero rotations produces a unit RMAT.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DFLTIN - Decode a Double Precision Number
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DE2H - to Az,El
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node55.html b/src/slalib/sun67.htx/node55.html
new file mode 100644
index 0000000..390f876
--- /dev/null
+++ b/src/slalib/sun67.htx/node55.html
@@ -0,0 +1,200 @@
+
+
+
+
+SLA_DFLTIN - Decode a Double Precision Number
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DH2E - Az,El to
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DEULER - Euler Angles to Rotation Matrix
+
     
     
    
+
    
+
    SLA_DFLTIN - Decode a Double Precision Number
+  
+
    
+       
    
+
    ACTION:
+
    Convert free-format input into double precision floating point.
+
    CALL:
+
    CALL sla_DFLTIN (STRING, NSTRT, DRESLT, JFLAG)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    STRINGCstring containing number to be decoded
    NSTRTIpointer to where decoding is to commence
    DRESLTDcurrent value of result
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    NSTRTIadvanced to next number
    DRESLTDresult
    JFLAGIstatus: -1 = -OK, 0 = +OK, 1 = null result, 2 = error
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The reason sla_DFLTIN has separate `OK' status values
+for + and - is to enable minus zero to be detected.
+This is of crucial importance
+       when decoding mixed-radix numbers.  For example, an angle
+       expressed as degrees, arcminutes and arcseconds may have a
+       leading minus sign but a zero degrees field.
+ 
    2.
+
    A TAB is interpreted as a space, and lowercase characters are
+       interpreted as uppercase.  n.b. The test for TAB is
+       ASCII-specific.
+ 
    3.
+
    The basic format is the sequence of fields $\pm n.n x \pm n$,       where $\pm$ is a sign
+       character `+' or `-', n means a string of decimal digits,
+       `.' is a decimal point, and x, which indicates an exponent,
+       means `D' or `E'.  Various combinations of these fields can be
+       omitted, and embedded blanks are permissible in certain places.
+ 
    4.
+
    Spaces:
+       
      
+
    •  Leading spaces are ignored.
+
    •  Embedded spaces are allowed only after +, -, D or E,
+             and after the decimal point if the first sequence of
+             digits is absent.
+
    •  Trailing spaces are ignored;  the first signifies
+             end of decoding and subsequent ones are skipped.
+       
    
+ 
    5.
+
    Delimiters:
+       
      
+
    •  Any character other than +,-,0-9,.,D,E or space may be
+             used to signal the end of the number and terminate decoding.
+
    •  Comma is recognized by sla_DFLTIN as a special case; it
+             is skipped, leaving the pointer on the next character.  See
+             13, below.
+
    •  Decoding will in all cases terminate if end of string
+             is reached.
+       
    
+ 
    6.
+
    Both signs are optional.  The default is +.
+ 
    7.
+
    The mantissa n.n defaults to unity.
+ 
    8.
+
    The exponent $x\!\pm\!n$ defaults to `D0'.
+ 
    9.
+
    The strings of decimal digits may be of any length.
+ 
    10.
+
    The decimal point is optional for whole numbers.
+ 
    11.
+
    A null result occurs when the string of characters
+       being decoded does not begin with +,-,0-9,.,D or E, or
+       consists entirely of spaces.  When this condition is
+       detected, JFLAG is set to 1 and DRESLT is left untouched.
+ 
    12.
+
    NSTRT = 1 for the first character in the string.
+ 
    13.
+
    On return from sla_DFLTIN, NSTRT is set ready for the next
+       decode - following trailing blanks and any comma.  If a
+       delimiter other than comma is being used, NSTRT must be
+       incremented before the next call to sla_DFLTIN, otherwise
+       all subsequent calls will return a null result.
+ 
    14.
+
    Errors (JFLAG=2) occur when:
+       
      
+
    •  a +, -, D or E is left unsatisfied; or
+
    •  the decimal point is present without at least
+             one decimal digit before or after it; or
+
    •  an exponent more than 100 has been presented.
+       
    
+ 
    15.
+
    When an error has been detected, NSTRT is left
+       pointing to the character following the last
+       one used before the error came to light.  This
+       may be after the point at which a more sophisticated
+       program could have detected the error.  For example,
+       sla_DFLTIN does not detect that `1D999' is unacceptable
+       (on a computer where this is so) until the entire number
+       has been decoded.
+ 
    16.
+
    Certain highly unlikely combinations of mantissa and
+       exponent can cause arithmetic faults during the
+       decode, in some cases despite the fact that they
+       together could be construed as a valid number.
+ 
    17.
+
    Decoding is left to right, one pass.
+ 
    18.
+
    See also sla_FLOTIN and sla_INTIN.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DH2E - Az,El to
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DEULER - Euler Angles to Rotation Matrix
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node56.html b/src/slalib/sun67.htx/node56.html
new file mode 100644
index 0000000..e71b073
--- /dev/null
+++ b/src/slalib/sun67.htx/node56.html
@@ -0,0 +1,146 @@
+
+
+
+
+SLA_DH2E - Az,El to 
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DIMXV - Apply 3D Reverse Rotation
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DFLTIN - Decode a Double Precision Number
+
     
     
    
+
    
+
       
+
    
+SLA_DH2E - Az,El to $h,\delta$
    
+       
    
+
    ACTION:
+
    Horizon to equatorial coordinates
+(double precision).
+
        
    CALL:
+
    CALL sla_DH2E (AZ, EL, PHI, HA, DEC)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    AZDazimuth (radians)
    ELDelevation (radians)
    PHIDlatitude (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    HADhour angle (radians)
    DECDdeclination (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The sign convention for azimuth is north zero, east $+\pi/2$.
    2.
+
    HA is returned in the range $\pm \pi$.  Declination is returned
+in the range $\pm \pi$.  
    3.
+
    The latitude is (in principle) geodetic.  In critical
+        applications, corrections for polar motion should be applied
+        (see sla_POLMO).
+  
    4.
+
    In some applications it will be important to specify the
+        correct type of elevation in order to produce the required
+        type of $[\,h,\delta\,]$.  In particular, it may be important to
+        distinguish between the elevation as affected by refraction,
+        which will yield the observed $[\,h,\delta\,]$, and the elevation
+        in vacuo, which will yield the topocentric
+        $[\,h,\delta\,]$.  If the
+        effects of diurnal aberration can be neglected, the
+        topocentric $[\,h,\delta\,]$ may be used as an approximation to the
+        apparent $[\,h,\delta\,]$.  
    5.
+
    No range checking of arguments is carried out.
+  
    6.
+
    In applications which involve many such calculations, rather
+        than calling the present routine it will be more efficient to
+        use inline code, having previously computed fixed terms such
+        as sine and cosine of latitude.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DIMXV - Apply 3D Reverse Rotation
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DFLTIN - Decode a Double Precision Number
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node57.html b/src/slalib/sun67.htx/node57.html
new file mode 100644
index 0000000..df5870d
--- /dev/null
+++ b/src/slalib/sun67.htx/node57.html
@@ -0,0 +1,118 @@
+
+
+
+
+SLA_DIMXV - Apply 3D Reverse Rotation
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DJCAL - MJD to Gregorian for Output
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DH2E - Az,El to
+
     
     
    
+
    
+
    SLA_DIMXV - Apply 3D Reverse Rotation
+  
+
    
+       
    
+
    ACTION:
+
    Multiply a 3-vector by the inverse of a rotation
+matrix (double precision).
+
        
    CALL:
+
    CALL sla_DIMXV (DM, VA, VB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    DMD(3,3)rotation matrix
    VAD(3)vector to be rotated
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    VBD(3)result vector
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    This routine performs the operation:
+
    b = M$^{T}\cdot$a
+
    
+        where a and b are the 3-vectors VA and VB
+        respectively, and  M is the $3\times3$ matrix DM.
+  
    2.
+
    The main function of this routine is apply an inverse
+        rotation;  under these circumstances, ${\bf \rm M}$ is
+        orthogonal, with its inverse the same as its transpose.
+  
    3.
+
    To comply with the ANSI Fortran 77 standard, VA and VB must
+        not be the same array.  The routine is, in fact, coded
+        so as to work properly on the VAX and many other systems even
+        if this rule is violated, something that is not, however,
+        recommended.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DJCAL - MJD to Gregorian for Output
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DH2E - Az,El to
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node58.html b/src/slalib/sun67.htx/node58.html
new file mode 100644
index 0000000..78f70fa
--- /dev/null
+++ b/src/slalib/sun67.htx/node58.html
@@ -0,0 +1,112 @@
+
+
+
+
+SLA_DJCAL - MJD to Gregorian for Output
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DJCL - MJD to Year,Month,Day,Frac
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DIMXV - Apply 3D Reverse Rotation
+
     
     
    
+
    
+
    SLA_DJCAL - MJD to Gregorian for Output
+  
+
    
+       
    
+
    ACTION:
+
    Modified Julian Date to Gregorian Calendar Date, expressed
+in a form convenient for formatting messages (namely
+         rounded to a specified precision, and with the fields
+         stored in a single array).
+
        
    CALL:
+
    CALL sla_DJCAL (NDP, DJM, IYMDF, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    NDPInumber of decimal places of days in fraction
    DJMDmodified Julian Date (JD-2400000.5)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    IYMDFI(4)year, month, day, fraction in Gregorian calendar
    JIstatus:  nonzero = out of range
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Any date after 4701BC March 1 is accepted.
+
    2.
+
    NDP should be 4 or less to avoid overflow on machines which
+use 32-bit integers.
+ 
    
+
         
    
+
    REFERENCE:
+
    The algorithm is derived from that of Hatcher,
+Q.Jl.R.astr.Soc. (1984) 25, 53-55.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DJCL - MJD to Year,Month,Day,Frac
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DIMXV - Apply 3D Reverse Rotation
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node59.html b/src/slalib/sun67.htx/node59.html
new file mode 100644
index 0000000..1d0b789
--- /dev/null
+++ b/src/slalib/sun67.htx/node59.html
@@ -0,0 +1,117 @@
+
+
+
+
+SLA_DJCL - MJD to Year,Month,Day,Frac
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DM2AV - Rotation Matrix to Axial Vector
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DJCAL - MJD to Gregorian for Output
+
     
     
    
+
    
+
    SLA_DJCL - MJD to Year,Month,Day,Frac
+  
+
    
+       
    
+
    ACTION:
+
    Modified Julian Date to Gregorian year, month, day,
+and fraction of a day.
+
        
    CALL:
+
    CALL sla_DJCL (DJM, IY, IM, ID, FD, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DJMDmodified Julian Date (JD-2400000.5)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    IYIyear
    IMImonth
    IDIday
    FDDfraction of day
    JIstatus:
      0 = OK
      -1 = unacceptable date (before 4701BC March 1)
    
+
         
    
+
    REFERENCE:
+
    The algorithm is derived from that of Hatcher,
+Q.Jl.R.astr.Soc. (1984) 25, 53-55.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DM2AV - Rotation Matrix to Axial Vector
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DJCAL - MJD to Gregorian for Output
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node6.html b/src/slalib/sun67.htx/node6.html
new file mode 100644
index 0000000..c90fd51
--- /dev/null
+++ b/src/slalib/sun67.htx/node6.html
@@ -0,0 +1,116 @@
+
+
+
+
+Objectives
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Fortran Version
+
    
+Up: INTRODUCTION
+
    
+ Previous: Scope
+
     
     
    
+
    
+
    
+Objectives
+
    
+SLALIB was designed to give application programmers
+a basic set of positional-astronomy tools which were
+accurate and easy to use.  To this end, the library is:
+
      
+
    •  Readily available, including source code and documentation.
+
    •  Supported and maintained.
+
    •  Portable - coded in standard languages and available for
+multiple computers and operating systems.
+
    •  Thoroughly commented, both for maintainability and to
+assist those wishing to cannibalize the code.
+
    •  Stable.
+
    •  Trustworthy - some care has gone into
+testing SLALIB, both by comparison with published data and
+by checks for internal consistency.
+
    •  Rigorous - corners are not cut,
+even where the practical consequences would, as a rule, be
+negligible.
+
    •  Comprehensive, without including too many esoteric features
+required only by specialists.
+
    •  Practical - almost all the routines have been written to
+satisfy real needs encountered during the development of
+real-life applications.
+
    •  Environment-independent - the package is
+completely free of pauses, stops, I/O etc.
+
    •  Self-contained - SLALIB calls no other libraries.
+
    
+A few caveats:
+
      
+
    •  SLALIB does not pretend to be canonical.  It is in essence
+an anthology, and the adopted algorithms are liable
+to change as more up-to-date ones become available.
+
    •  The functions aren't orthogonal - there are several
+cases of different
+routines doing similar things, and many examples where
+sequences of SLALIB calls have simply been packaged, all to
+make applications less trouble to write.
+
    •  There are omissions - for example there are no
+routines for calculating physical ephemerides of
+Solar-System bodies.
+
    •  SLALIB is not homogeneous, though important subsets
+(for example the FK4/FK5 routines) are.
+
    •  The library is not foolproof.  You have to know what
+you are trying to do (e.g. by reading textbooks on positional
+astronomy), and it is the caller's responsibility to supply
+sensible arguments (although enough internal validation is done to
+avoid arithmetic errors).
+
    •  Without being written in a wasteful
+manner, SLALIB is nonetheless optimized for maintainability
+rather than speed.  In addition, there are many places
+where considerable simplification would be possible if some
+specified amount of accuracy could be sacrificed;  such
+compromises are left to the individual programmer and
+are not allowed to limit SLALIB's value as a source
+of comparison results.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Fortran Version
+
    
+Up: INTRODUCTION
+
    
+ Previous: Scope
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node60.html b/src/slalib/sun67.htx/node60.html
new file mode 100644
index 0000000..db12402
--- /dev/null
+++ b/src/slalib/sun67.htx/node60.html
@@ -0,0 +1,107 @@
+
+
+
+
+SLA_DM2AV - Rotation Matrix to Axial Vector
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DMAT - Solve Simultaneous Equations
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DJCL - MJD to Year,Month,Day,Frac
+
     
     
    
+
    
+
    SLA_DM2AV - Rotation Matrix to Axial Vector
+  
+
    
+       
    
+
    ACTION:
+
    From a rotation matrix, determine the corresponding axial vector
+(double precision).
+
        
    CALL:
+
    CALL sla_DM2AV (RMAT, AXVEC)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    RMATD(3,3)rotation matrix
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    AXVECD(3)axial vector (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    A rotation matrix describes a rotation about some arbitrary axis.
+The axis is called the Euler axis, and the angle through
+which the reference frame rotates is called the Euler angle.
+        The axial vector returned by this routine has the same
+        direction as the Euler axis, and its magnitude is the Euler angle
+        in radians.
+  
    2.
+
    The magnitude and direction of the axial vector can be separated
+        by means of the routine sla_DVN.
+  
    3.
+
    The reference frame rotates clockwise as seen looking along
+        the axial vector from the origin.
+  
    4.
+
    If RMAT is null, so is the result.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DMAT - Solve Simultaneous Equations
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DJCL - MJD to Year,Month,Day,Frac
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node61.html b/src/slalib/sun67.htx/node61.html
new file mode 100644
index 0000000..b72e3ac
--- /dev/null
+++ b/src/slalib/sun67.htx/node61.html
@@ -0,0 +1,152 @@
+
+
+
+
+SLA_DMAT - Solve Simultaneous Equations
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DMOON - Approx Moon Pos/Vel
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DM2AV - Rotation Matrix to Axial Vector
+
     
     
    
+
    
+
    SLA_DMAT - Solve Simultaneous Equations
+  
+
    
+       
    
+
    ACTION:
+
    Matrix inversion and solution of simultaneous equations
+(double precision).
+
        
    CALL:
+
    CALL sla_DMAT (N, A, Y, D, JF, IW)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    NInumber of unknowns
    AD(N,N)matrix
    YD(N)vector
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    AD(N,N)matrix inverse
    YD(N)solution
    DDdeterminant
    JFIsingularity flag: 0=OK
    IWI(N)workspace
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    For the set of n simultaneous linear equations in n unknowns:
+
    A$\cdot$y = x
+
    
+        where:
+        
      
+
    •  A is a non-singular $n \times n$ matrix,
+
    •  y is the vector of n unknowns, and
+
    •  x is the known vector,
+        
    
+        sla_DMAT computes:
+        
      
+
    •  the inverse of matrix A,
+
    •  the determinant of matrix A, and
+
    •  the vector of n unknowns y.
+        
    
+        Argument N is the order n, A (given) is the matrix A,
+        Y (given) is the vector x and Y (returned)
+        is the vector y.
+        The argument A (returned) is the inverse matrix A-1,
+        and D is det(A).
+  
    2.
+
    JF is the singularity flag.  If the matrix is non-singular,
+        JF=0 is returned.  If the matrix is singular, JF=-1
+        and D=0D0 are returned.  In the latter case, the contents
+        of array A on return are undefined.
+  
    3.
+
    The algorithm is Gaussian elimination with partial pivoting.
+        This method is very fast;  some much slower algorithms can give
+        better accuracy, but only by a small factor.
+  
    4.
+
    This routine replaces the obsolete sla_DMATRX.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DMOON - Approx Moon Pos/Vel
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DM2AV - Rotation Matrix to Axial Vector
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node62.html b/src/slalib/sun67.htx/node62.html
new file mode 100644
index 0000000..dedceda
--- /dev/null
+++ b/src/slalib/sun67.htx/node62.html
@@ -0,0 +1,154 @@
+
+
+
+
+SLA_DMOON - Approx Moon Pos/Vel
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DMXM - Multiply Matrices
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DMAT - Solve Simultaneous Equations
+
     
     
    
+
    
+
    SLA_DMOON - Approx Moon Pos/Vel
+  
+
    
+       
    
+
    ACTION:
+
    Approximate geocentric position and velocity of the Moon
+(double precision).
+
        
    CALL:
+
    CALL sla_DMOON (DATE, PV)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DATEDTDB (loosely ET) as a Modified Julian Date (JD-2400000.5)
+
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    PVD(6)Moon $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$, mean equator and equinox
+of date (AU, AU s-1)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    This routine is a full implementation of the algorithm
+published by Meeus (see reference).
+
    2.
+
    Meeus quotes accuracies of $10\hspace{-0.05em}^{'\hspace{-0.1em}'}$ in longitude,
+        $3\hspace{-0.05em}^{'\hspace{-0.1em}'}$ in latitude and 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.2$    arcsec in HP
+        (equivalent to about 20 km in distance).  Comparison with
+        JPL DE200 over the interval 1960-2025 gives RMS errors of
+
          $3\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.7$    and 83 mas/hour in longitude,
+
          $2\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.3$    arcsec and 48 mas/hour in latitude,
+        11 km and 81 mm/s in distance.
+        The maximum errors over the same interval are
+        $18\hspace{-0.05em}^{'\hspace{-0.1em}'}$ and 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.50$   /hour in longitude,
+        $11\hspace{-0.05em}^{'\hspace{-0.1em}'}$ and 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.24$   /hour in latitude,
+        40 km and 0.29 m/s in distance.
+  
    3.
+
    The original algorithm is expressed in terms of the obsolete
+        timescale Ephemeris Time.  Either TDB or TT can be used,
+        but not UT without incurring significant errors ($30\hspace{-0.05em}^{'\hspace{-0.1em}'}$ at
+        the present time) due to the Moon's 
+      $0\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.5$   /s movement.
+  
    4.
+
    The algorithm is based on pre IAU 1976 standards.  However,
+        the result has been moved onto the new (FK5) equinox, an
+        adjustment which is in any case much smaller than the
+        intrinsic accuracy of the procedure.
+  
    5.
+
    Velocity is obtained by a complete analytical differentiation
+        of the Meeus model.
+ 
    
+
         
    
+
    REFERENCE:
+
    Meeus, l'Astronomie, June 1984, p348.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DMXM - Multiply Matrices
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DMAT - Solve Simultaneous Equations
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node63.html b/src/slalib/sun67.htx/node63.html
new file mode 100644
index 0000000..9d19b4d
--- /dev/null
+++ b/src/slalib/sun67.htx/node63.html
@@ -0,0 +1,106 @@
+
+
+
+
+SLA_DMXM - Multiply Matrices
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DMXV - Apply 3D Rotation
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DMOON - Approx Moon Pos/Vel
+
     
     
    
+
    
+
       
+
    
+SLA_DMXM - Multiply $3\times3$ Matrices
+
    
+       
    
+
    ACTION:
+
    Product of two $3\times3$ matrices (double precision).
+
    CALL:
+
    CALL sla_DMXM (A, B, C)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    AD(3,3)matrix A
    BD(3,3)matrix B
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    CD(3,3)matrix result: A$\times$B
    
+
          
    
+
    NOTE:
+
    To comply with the ANSI Fortran 77 standard, A, B and C must
+be different arrays.  The routine is, in fact, coded
+       so as to work properly on the VAX and many other systems even
+       if this rule is violated, something that is not, however,
+       recommended.
+      
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DMXV - Apply 3D Rotation
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DMOON - Approx Moon Pos/Vel
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node64.html b/src/slalib/sun67.htx/node64.html
new file mode 100644
index 0000000..b6a0e15
--- /dev/null
+++ b/src/slalib/sun67.htx/node64.html
@@ -0,0 +1,115 @@
+
+
+
+
+SLA_DMXV - Apply 3D Rotation
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DPAV - Position-Angle Between Two Directions
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DMXM - Multiply Matrices
+
     
     
    
+
    
+
    SLA_DMXV - Apply 3D Rotation
+  
+
    
+       
    
+
    ACTION:
+
    Multiply a 3-vector by a rotation matrix (double precision).
+
    CALL:
+
    CALL sla_DMXV (DM, VA, VB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    DMD(3,3)rotation matrix
    VAD(3)vector to be rotated
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    VBD(3)result vector
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    This routine performs the operation:
+
    b = M$\cdot$a
+
    
+        where a and b are the 3-vectors VA and VB
+        respectively, and M is the $3\times3$ matrix DM.
+  
    2.
+
    The main function of this routine is apply a
+        rotation;  under these circumstances, M is a
+        proper real orthogonal matrix.
+  
    3.
+
    To comply with the ANSI Fortran 77 standard, VA and VB must
+        not be the same array.  The routine is, in fact, coded
+        so as to work properly on the VAX and many other systems even
+        if this rule is violated, something that is not, however,
+        recommended.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DPAV - Position-Angle Between Two Directions
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DMXM - Multiply Matrices
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node65.html b/src/slalib/sun67.htx/node65.html
new file mode 100644
index 0000000..de89921
--- /dev/null
+++ b/src/slalib/sun67.htx/node65.html
@@ -0,0 +1,117 @@
+
+
+
+
+SLA_DPAV - Position-Angle Between Two Directions
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DR2AF - Radians to Deg,Min,Sec,Frac
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DMXV - Apply 3D Rotation
+
     
     
    
+
    
+
    SLA_DPAV - Position-Angle Between Two Directions
+  
+
    
+       
    
+
    ACTION:
+
    Returns the bearing (position angle) of one celestial
+direction with respect to another (double precision).
+
        
    CALL:
+
    D = sla_DPAV (V1, V2)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    V1D(3)direction cosines of one point
    V2D(3)directions cosines of the other point
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_DPAVDposition-angle of 2nd point with respect to 1st
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The coordinate frames correspond to $[\,\alpha,\delta\,]$,$[\lambda,\phi]$ etc..
+
    2.
+
    The result is the bearing (position angle), in radians,
+       of point V2 as seen
+       from point V1.  It is in the range $\pm \pi$.  The sense
+       is such that if V2
+       is a small distance due east of V1 the result
+       is about $+\pi/2$. Zero is returned
+       if the two points are coincident.
+ 
    3.
+
    The routine sla_DBEAR performs an equivalent function except
+       that the points are specified in the form of spherical coordinates.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DR2AF - Radians to Deg,Min,Sec,Frac
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DMXV - Apply 3D Rotation
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node66.html b/src/slalib/sun67.htx/node66.html
new file mode 100644
index 0000000..c4b2639
--- /dev/null
+++ b/src/slalib/sun67.htx/node66.html
@@ -0,0 +1,122 @@
+
+
+
+
+SLA_DR2AF - Radians to Deg,Min,Sec,Frac
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DR2TF - Radians to Hour,Min,Sec,Frac
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DPAV - Position-Angle Between Two Directions
+
     
     
    
+
    
+
    SLA_DR2AF - Radians to Deg,Min,Sec,Frac
+  
+
    
+       
    
+
    ACTION:
+
    Convert an angle in radians to degrees, arcminutes, arcseconds,
+fraction (double precision).
+
        
    CALL:
+
    CALL sla_DR2AF (NDP, ANGLE, SIGN, IDMSF)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    NDPInumber of decimal places of arcseconds
    ANGLEDangle in radians
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    SIGNC`+' or `-'
    IDMSFI(4)degrees, arcminutes, arcseconds, fraction
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    NDP less than zero is interpreted as zero.
+
    2.
+
    The largest useful value for NDP is determined by the size
+of ANGLE, the format of DOUBLE PRECISION floating-point numbers
+        on the target machine, and the risk of overflowing IDMSF(4).
+        For example, on a VAX computer, for ANGLE up to $2\pi$, the available
+        floating-point precision corresponds roughly to NDP=12.  However,
+        the practical limit is NDP=9, set by the capacity of the 32-bit
+        integer IDMSF(4).
+  
    3.
+
    The absolute value of ANGLE may exceed $2\pi$.  In cases where it
+        does not, it is up to the caller to test for and handle the
+        case where ANGLE is very nearly $2\pi$ and rounds up to $360^{\circ}$,        by testing for IDMSF(1)=360 and setting IDMSF(1-4) to zero.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DR2TF - Radians to Hour,Min,Sec,Frac
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DPAV - Position-Angle Between Two Directions
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node67.html b/src/slalib/sun67.htx/node67.html
new file mode 100644
index 0000000..f5e0648
--- /dev/null
+++ b/src/slalib/sun67.htx/node67.html
@@ -0,0 +1,121 @@
+
+
+
+
+SLA_DR2TF - Radians to Hour,Min,Sec,Frac
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DRANGE - Put Angle into Range
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DR2AF - Radians to Deg,Min,Sec,Frac
+
     
     
    
+
    
+
    SLA_DR2TF - Radians to Hour,Min,Sec,Frac
+  
+
    
+       
    
+
    ACTION:
+
    Convert an angle in radians to hours, minutes, seconds,
+fraction (double precision).
+
        
    CALL:
+
    CALL sla_DR2TF (NDP, ANGLE, SIGN, IHMSF)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    NDPInumber of decimal places of seconds
    ANGLEDangle in radians
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    SIGNC`+' or `-'
    IHMSFI(4)hours, minutes, seconds, fraction
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    NDP less than zero is interpreted as zero.
+
    2.
+
    The largest useful value for NDP is determined by the size
+of ANGLE, the format of DOUBLE PRECISION floating-point numbers
+        on the target machine, and the risk of overflowing IHMSF(4).
+        For example, on a VAX computer, for ANGLE up to $2\pi$, the available
+        floating-point precision corresponds roughly to NDP=12.  However,
+        the practical limit is NDP=9, set by the capacity of the 32-bit
+        integer IHMSF(4).
+  
    3.
+
    The absolute value of ANGLE may exceed $2\pi$.  In cases where it
+        does not, it is up to the caller to test for and handle the
+        case where ANGLE is very nearly $2\pi$ and rounds up to 24 hours,
+        by testing for IHMSF(1)=24 and setting IHMSF(1-4) to zero.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DRANGE - Put Angle into Range
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DR2AF - Radians to Deg,Min,Sec,Frac
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node68.html b/src/slalib/sun67.htx/node68.html
new file mode 100644
index 0000000..477164f
--- /dev/null
+++ b/src/slalib/sun67.htx/node68.html
@@ -0,0 +1,93 @@
+
+
+
+
+SLA_DRANGE - Put Angle into Range 
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DRANRM - Put Angle into Range
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DR2TF - Radians to Hour,Min,Sec,Frac
+
     
     
    
+
    
+
       
+
    
+SLA_DRANGE - Put Angle into Range $\pm \pi$
    
+       
    
+
    ACTION:
+
    Normalize an angle into the range $\pm \pi$ (double precision).
+
    CALL:
+
    D = sla_DRANGE (ANGLE)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    ANGLEDangle in radians
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_DRANGEDANGLE expressed in the range $\pm \pi$.
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DRANRM - Put Angle into Range
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DR2TF - Radians to Hour,Min,Sec,Frac
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node69.html b/src/slalib/sun67.htx/node69.html
new file mode 100644
index 0000000..02f5415
--- /dev/null
+++ b/src/slalib/sun67.htx/node69.html
@@ -0,0 +1,93 @@
+
+
+
+
+SLA_DRANRM - Put Angle into Range 
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DS2C6 - Spherical Pos/Vel to Cartesian
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DRANGE - Put Angle into Range
+
     
     
    
+
    
+
       
+
    
+SLA_DRANRM - Put Angle into Range $0\!-\!2\pi$
    
+       
    
+
    ACTION:
+
    Normalize an angle into the range $0\!-\!2\pi$(double precision).
+
        
    CALL:
+
    D = sla_DRANRM (ANGLE)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    ANGLEDangle in radians
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_DRANRMDANGLE expressed in the range $0\!-\!2\pi$
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DS2C6 - Spherical Pos/Vel to Cartesian
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DRANGE - Put Angle into Range
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node7.html b/src/slalib/sun67.htx/node7.html
new file mode 100644
index 0000000..e75fbed
--- /dev/null
+++ b/src/slalib/sun67.htx/node7.html
@@ -0,0 +1,76 @@
+
+
+
+
+Fortran Version
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: C Version
+
    
+Up: INTRODUCTION
+
    
+ Previous: Objectives
+
     
     
    
+
    
+
    
+Fortran Version
+
    
+The Fortran versions of SLALIB use ANSI Fortran 77 with a few
+commonplace extensions.  Just three out of the 183 routines require
+platform-specific techniques and accordingly are supplied
+in different forms.
+SLALIB has been implemented on the following platforms:
+VAX/VMS,
+PC (Microsoft Fortran, Linux),
+DECstation (Ultrix),
+DEC Alpha (DEC Unix),
+Sun (SunOS, Solaris),
+Hewlett Packard (HP-UX),
+CONVEX,
+Perkin-Elmer and
+Fujitsu.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: C Version
+
    
+Up: INTRODUCTION
+
    
+ Previous: Objectives
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node70.html b/src/slalib/sun67.htx/node70.html
new file mode 100644
index 0000000..b1ebf8a
--- /dev/null
+++ b/src/slalib/sun67.htx/node70.html
@@ -0,0 +1,114 @@
+
+
+
+
+SLA_DS2C6 - Spherical Pos/Vel to Cartesian
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DS2TP - Spherical to Tangent Plane
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DRANRM - Put Angle into Range
+
     
     
    
+
    
+
    SLA_DS2C6 - Spherical Pos/Vel to Cartesian
+  
+
    
+       
    
+
    ACTION:
+
    Conversion of position & velocity in spherical coordinates
+to Cartesian coordinates (double precision).
+
        
    CALL:
+
    CALL sla_DS2C6 (A, B, R, AD, BD, RD, V)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    ADlongitude (radians) - for example $\alpha$
    BDlatitude (radians) - for example $\delta$
    RDradial coordinate
    ADDlongitude derivative (radians per unit time)
    BDDlatitude derivative (radians per unit time)
    RDDradial derivative
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    VD(6)$[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DS2TP - Spherical to Tangent Plane
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DRANRM - Put Angle into Range
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node71.html b/src/slalib/sun67.htx/node71.html
new file mode 100644
index 0000000..8703383
--- /dev/null
+++ b/src/slalib/sun67.htx/node71.html
@@ -0,0 +1,129 @@
+
+
+
+
+SLA_DS2TP - Spherical to Tangent Plane
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DSEP - Angle Between 2 Points on Sphere
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DS2C6 - Spherical Pos/Vel to Cartesian
+
     
     
    
+
    
+
    SLA_DS2TP - Spherical to Tangent Plane
+  
+
    
+       
    
+
    ACTION:
+
    Projection of spherical coordinates onto the tangent plane
+(double precision).
+
        
    CALL:
+
    CALL sla_DS2TP (RA, DEC, RAZ, DECZ, XI, ETA, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    RA,DECDspherical coordinates of star (radians)
    RAZ,DECZDspherical coordinates of tangent point (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    XI,ETADtangent plane coordinates (radians)
    JIstatus:
      0 = OK, star on tangent plane
      1 = error, star too far from axis
      2 = error, antistar on tangent plane
      3 = error, antistar too far from axis
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The projection is called the gnomonic projection;  the
+Cartesian coordinates $[\,\xi,\eta\,]$ are called 
+standard coordinates.  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, i.e. radians near the origin.
+  
    2.
+
    When working in $[\,x,y,z\,]$ rather than spherical coordinates, the
+        equivalent Cartesian routine sla_DV2TP is available.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DSEP - Angle Between 2 Points on Sphere
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DS2C6 - Spherical Pos/Vel to Cartesian
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node72.html b/src/slalib/sun67.htx/node72.html
new file mode 100644
index 0000000..b127b82
--- /dev/null
+++ b/src/slalib/sun67.htx/node72.html
@@ -0,0 +1,100 @@
+
+
+
+
+SLA_DSEP - Angle Between 2 Points on Sphere
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DT - Approximate ET minus UT
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DS2TP - Spherical to Tangent Plane
+
     
     
    
+
    
+
    SLA_DSEP - Angle Between 2 Points on Sphere
+  
+
    
+       
    
+
    ACTION:
+
    Angle between two points on a sphere (double precision).
+
    CALL:
+
    D = sla_DSEP (A1, B1, A2, B2)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    A1,B1Dspherical coordinates of one point (radians)
    A2,B2Dspherical coordinates of the other point (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_DSEPDangle between [A1,B1] and [A2,B2] in radians
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The spherical coordinates are right ascension and declination,
+longitude and latitude, etc., in radians.
+
    2.
+
    The result is always positive.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DT - Approximate ET minus UT
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DS2TP - Spherical to Tangent Plane
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node73.html b/src/slalib/sun67.htx/node73.html
new file mode 100644
index 0000000..fca730c
--- /dev/null
+++ b/src/slalib/sun67.htx/node73.html
@@ -0,0 +1,131 @@
+
+
+
+
+SLA_DT - Approximate ET minus UT
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DTF2D - Hour,Min,Sec to Days
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DSEP - Angle Between 2 Points on Sphere
+
     
     
    
+
    
+
    SLA_DT - Approximate ET minus UT
+  
+
    
+       
    
+
    ACTION:
+
    Estimate $\Delta$T, the offset between dynamical time
+and Universal Time, for a given historical epoch.
+
        
    CALL:
+
    D = sla_DT (EPOCH)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    EPOCHD(Julian) epoch (e.g. 1850D0)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_DTDapproximate ET-UT (after 1984, TT-UT1) in seconds
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Depending on the epoch, one of three parabolic approximations
+is used:
+
    
+before AD 979 		 Stephenson & Morrison's 390 BC to AD 948 model
+		 AD 979 to AD 1708 		 Stephenson & Morrison's AD 948 to AD 1600 model
+		 after AD 1708 		 McCarthy & Babcock's post-1650 model
+
    
+        The breakpoints are chosen to ensure continuity:  they occur
+        at places where the adjacent models give the same answer as
+        each other.
+  
    2.
+
    The accuracy is modest, with errors of up to $20^{\rm s}$ during
+        the interval since 1650, rising to perhaps $30^{\rm m}$        by 1000 BC.  Comparatively accurate values from AD 1600
+        are tabulated in
+        the Astronomical Almanac (see section K8 of the 1995
+        edition).
+  
    3.
+
    The use of DOUBLE PRECISION for both argument and result is
+        simply for compatibility with other SLALIB time routines.
+  
    4.
+
    The models used are based on a lunar tidal acceleration value
+        of 
+      $-26\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.00$    per century.
+ 
    
+
         
    
+
    REFERENCE:
+
    Seidelmann, P.K. (ed), 1992.  Explanatory
+Supplement to the Astronomical Almanac, ISBN 0-935702-68-7.
+      This contains references to the papers by Stephenson & Morrison
+      and by McCarthy & Babcock which describe the models used here.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DTF2D - Hour,Min,Sec to Days
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DSEP - Angle Between 2 Points on Sphere
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node74.html b/src/slalib/sun67.htx/node74.html
new file mode 100644
index 0000000..88700cd
--- /dev/null
+++ b/src/slalib/sun67.htx/node74.html
@@ -0,0 +1,125 @@
+
+
+
+
+SLA_DTF2D - Hour,Min,Sec to Days
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DTF2R - Hour,Min,Sec to Radians
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DT - Approximate ET minus UT
+
     
     
    
+
    
+
    SLA_DTF2D - Hour,Min,Sec to Days
+  
+
    
+       
    
+
    ACTION:
+
    Convert hours, minutes, seconds to days (double precision).
+
    CALL:
+
    CALL sla_DTF2D (IHOUR, IMIN, SEC, DAYS, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    IHOURIhours
    IMINIminutes
    SECDseconds
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    DAYSDinterval in days
    JIstatus:
      0 = OK
      1 = IHOUR outside range 0-23
      2 = IMIN outside range 0-59
      3 = SEC outside range 0-59.999$\cdots$
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The result is computed even if any of the range checks fail.
+
    2.
+
    The sign must be dealt with outside this routine.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DTF2R - Hour,Min,Sec to Radians
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DT - Approximate ET minus UT
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node75.html b/src/slalib/sun67.htx/node75.html
new file mode 100644
index 0000000..535d444
--- /dev/null
+++ b/src/slalib/sun67.htx/node75.html
@@ -0,0 +1,125 @@
+
+
+
+
+SLA_DTF2R - Hour,Min,Sec to Radians
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DTP2S - Tangent Plane to Spherical
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DTF2D - Hour,Min,Sec to Days
+
     
     
    
+
    
+
    SLA_DTF2R - Hour,Min,Sec to Radians
+  
+
    
+       
    
+
    ACTION:
+
    Convert hours, minutes, seconds to radians (double precision).
+
    CALL:
+
    CALL sla_DTF2R (IHOUR, IMIN, SEC, RAD, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    IHOURIhours
    IMINIminutes
    SECDseconds
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RADDangle in radians
    JIstatus:
      0 = OK
      1 = IHOUR outside range 0-23
      2 = IMIN outside range 0-59
      3 = SEC outside range 0-59.999$\cdots$
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The result is computed even if any of the range checks fail.
+
    2.
+
    The sign must be dealt with outside this routine.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DTP2S - Tangent Plane to Spherical
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DTF2D - Hour,Min,Sec to Days
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node76.html b/src/slalib/sun67.htx/node76.html
new file mode 100644
index 0000000..46c4f7a
--- /dev/null
+++ b/src/slalib/sun67.htx/node76.html
@@ -0,0 +1,109 @@
+
+
+
+
+SLA_DTP2S - Tangent Plane to Spherical
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DTP2V - Tangent Plane to Direction Cosines
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DTF2R - Hour,Min,Sec to Radians
+
     
     
    
+
    
+
    SLA_DTP2S - Tangent Plane to Spherical
+  
+
    
+       
    
+
    ACTION:
+
    Transform tangent plane coordinates into spherical
+coordinates (double precision)
+
        
    CALL:
+
    CALL sla_DTP2S (XI, ETA, RAZ, DECZ, RA, DEC)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    XI,ETADtangent plane rectangular coordinates (radians)
    RAZ,DECZDspherical coordinates of tangent point (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RA,DECDspherical coordinates (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The projection is called the gnomonic projection;  the
+Cartesian coordinates $[\,\xi,\eta\,]$ are called 
+standard coordinates.  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, i.e. radians near the origin.
+  
    2.
+
    When working in $[\,x,y,z\,]$ rather than spherical coordinates, the
+        equivalent Cartesian routine sla_DTP2V is available.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DTP2V - Tangent Plane to Direction Cosines
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DTF2R - Hour,Min,Sec to Radians
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node77.html b/src/slalib/sun67.htx/node77.html
new file mode 100644
index 0000000..522e009
--- /dev/null
+++ b/src/slalib/sun67.htx/node77.html
@@ -0,0 +1,117 @@
+
+
+
+
+SLA_DTP2V - Tangent Plane to Direction Cosines
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DTPS2C - Plate centre from and
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DTP2S - Tangent Plane to Spherical
+
     
     
    
+
    
+
    SLA_DTP2V - Tangent Plane to Direction Cosines
+  
+
    
+       
    
+
    ACTION:
+
    Given the tangent-plane coordinates of a star and the direction
+cosines of the tangent point, determine the direction cosines
+         of the star
+         (double precision).
+
        
    CALL:
+
    CALL sla_DTP2V (XI, ETA, V0, V)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    XI,ETADtangent plane coordinates of star (radians)
    V0D(3)direction cosines of tangent point
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    VD(3)direction cosines of star
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    If vector V0 is not of unit length, the returned vector V will
+be wrong.
+
    2.
+
    If vector V0 points at a pole, the returned vector V will be
+        based on the arbitrary assumption that $\alpha=0$ at
+        the tangent point.
+  
    3.
+
    The projection is called the gnomonic projection;  the
+        Cartesian coordinates $[\,\xi,\eta\,]$ are called 
+        standard coordinates.  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, i.e. radians near the origin.
+  
    4.
+
    This routine is the Cartesian equivalent of the routine sla_DTP2S.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DTPS2C - Plate centre from and
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DTP2S - Tangent Plane to Spherical
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node78.html b/src/slalib/sun67.htx/node78.html
new file mode 100644
index 0000000..61458ac
--- /dev/null
+++ b/src/slalib/sun67.htx/node78.html
@@ -0,0 +1,168 @@
+
+
+
+
+SLA_DTPS2C - Plate centre from and 
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DTPV2C - Plate centre from and x,y,z
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DTP2V - Tangent Plane to Direction Cosines
+
     
     
    
+
    
+
       
+
    
+SLA_DTPS2C - Plate centre from $\xi,\eta$ and $\alpha,\delta$
    
+       
    
+
    ACTION:
+
    From the tangent plane coordinates of a star of known $[\,\alpha,\delta\,]$,determine the $[\,\alpha,\delta\,]$ of the tangent point (double precision)
+
        
    CALL:
+
    CALL sla_DTPS2C (XI, ETA, RA, DEC, RAZ1, DECZ1, RAZ2, DECZ2, N)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    XI,ETADtangent plane rectangular coordinates (radians)
    RA,DECDspherical coordinates (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RAZ1,DECZ1Dspherical coordinates of tangent point,
+solution 1
    RAZ2,DECZ2Dspherical coordinates of tangent point,
+solution 2
    NInumber of solutions:
      0 = no solutions returned  (note 2)
      1 = only the first solution is useful (note 3)
      2 = there are two useful solutions (note 3)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The RAZ1 and RAZ2 values returned are in the range $0\!-\!2\pi$.
    2.
+
    Cases where there is no solution can only arise near the poles.
+For example, it is clearly impossible for a star at the pole
+        itself to have a non-zero $\xi$ value, and hence it is
+        meaningless to ask where the tangent point would have to be
+        to bring about this combination of $\xi$ and $\delta$.  
    3.
+
    Also near the poles, cases can arise where there are two useful
+        solutions.  The argument N indicates whether the second of the
+        two solutions returned is useful.  N=1
+        indicates only one useful solution, the usual case;  under
+        these circumstances, the second solution corresponds to the
+        ``over-the-pole'' case, and this is reflected in the values
+        of RAZ2 and DECZ2 which are returned.
+  
    4.
+
    The DECZ1 and DECZ2 values returned are in the range $\pm \pi$,        but in the ordinary, non-pole-crossing, case, the range is
+        $\pm\pi/2$.  
    5.
+
    RA, DEC, RAZ1, DECZ1, RAZ2, DECZ2 are all in radians.
+  
    6.
+
    The projection is called the gnomonic projection;  the
+        Cartesian coordinates $[\,\xi,\eta\,]$ are called 
+        standard coordinates.  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, i.e. radians near the origin.
+  
    7.
+
    When working in $[\,x,y,z\,]$ rather than spherical coordinates, the
+        equivalent Cartesian routine sla_DTPV2C is available.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DTPV2C - Plate centre from and x,y,z
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DTP2V - Tangent Plane to Direction Cosines
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node79.html b/src/slalib/sun67.htx/node79.html
new file mode 100644
index 0000000..de0194d
--- /dev/null
+++ b/src/slalib/sun67.htx/node79.html
@@ -0,0 +1,144 @@
+
+
+
+
+SLA_DTPV2C - Plate centre from and x,y,z
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DTT - TT minus UTC
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DTPS2C - Plate centre from and
+
     
     
    
+
    
+
       
+
    
+SLA_DTPV2C - Plate centre from $\xi,\eta$ and x,y,z
+
    
+       
    
+
    ACTION:
+
    From the tangent plane coordinates of a star of known
+direction cosines, determine the direction cosines
+         of the tangent point (double precision)
+
        
    CALL:
+
    CALL sla_DTPV2C (XI, ETA, V, V01, V02, N)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    XI,ETADtangent plane coordinates of star (radians)
    VD(3)direction cosines of star
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    V01D(3)direction cosines of tangent point, solution 1
    V01D(3)direction cosines of tangent point, solution 2
    NInumber of solutions:
      0 = no solutions returned  (note 2)
      1 = only the first solution is useful (note 3)
      2 = there are two useful solutions (note 3)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The vector V must be of unit length or the result will be wrong.
+
    2.
+
    Cases where there is no solution can only arise near the poles.
+For example, it is clearly impossible for a star at the pole
+        itself to have a non-zero XI value.
+  
    3.
+
    Also near the poles, cases can arise where there are two useful
+        solutions.  The argument N indicates whether the second of the
+        two solutions returned is useful.
+        N=1
+        indicates only one useful solution, the usual case;  under these
+        circumstances, the second solution can be regarded as valid if
+        the vector V02 is interpreted as the ``over-the-pole'' case.
+  
    4.
+
    The projection is called the gnomonic projection;  the
+        Cartesian coordinates $[\,\xi,\eta\,]$ are called 
+        standard coordinates.  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, i.e. radians near the origin.
+  
    5.
+
    This routine is the Cartesian equivalent of the routine sla_DTPS2C.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DTT - TT minus UTC
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DTPS2C - Plate centre from and
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node8.html b/src/slalib/sun67.htx/node8.html
new file mode 100644
index 0000000..81261d2
--- /dev/null
+++ b/src/slalib/sun67.htx/node8.html
@@ -0,0 +1,85 @@
+
+
+
+
+C Version
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Future Versions
+
    
+Up: INTRODUCTION
+
    
+ Previous: Fortran Version
+
     
     
    
+
    
+
    
+C Version
+
    
+An ANSI C version of SLALIB is available from the author
+but is not part of the Starlink release.
+The functionality of this (proprietary) C version closely matches
+that of the Starlink Fortran SLALIB, partly for the convenience of
+existing users of the Fortran version, some of whom have in the past
+implemented C ``wrappers''.  The function names
+cannot be the same as the Fortran versions because of potential
+linking problems when
+both forms of the library are present; the C routine which
+is the equivalent of (for example) SLA_REFRO is slaRefro.
+The types of arguments follow the Fortran version, except
+that integers are int rather than long.
+Argument passing is by value
+(except for arrays and strings of course)
+for given arguments and by pointer for returned arguments.
+All the C functions are re-entrant.
+
    
+The Fortran routines sla_GRESID, sla_RANDOM and
+sla_WAIT have no C counterparts.
+
    
+Further details of the C version of SLALIB are available
+from the author.  The definitive guide to
+the calling sequences is the file slalib.h.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: Future Versions
+
    
+Up: INTRODUCTION
+
    
+ Previous: Fortran Version
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node80.html b/src/slalib/sun67.htx/node80.html
new file mode 100644
index 0000000..e7704f5
--- /dev/null
+++ b/src/slalib/sun67.htx/node80.html
@@ -0,0 +1,111 @@
+
+
+
+
+SLA_DTT - TT minus UTC
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DV2TP - Direction Cosines to Tangent Plane
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DTPV2C - Plate centre from and x,y,z
+
     
     
    
+
    
+
    SLA_DTT - TT minus UTC
+  
+
    
+       
    
+
    ACTION:
+
    Compute $\Delta$TT, the increment to be applied to
+Coordinated Universal Time UTC to give
+         Terrestrial Time TT.
+
        
    CALL:
+
    D = sla_DTT (DJU)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DJUDUTC date as a modified JD (JD-2400000.5)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_DTTDTT-UTC in seconds
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The UTC is specified to be a date rather than a time to indicate
+that care needs to be taken not to specify an instant which lies
+within a leap second.  Though in most cases UTC can include the
+        fractional part, correct behaviour on the day of a leap second
+        can be guaranteed only up to the end of the second
+        $23^{\rm h}\,59^{\rm m}\,59^{\rm s}$.  
    2.
+
    Pre 1972 January 1 a fixed value of 10 + ET-TAI is returned.
+  
    3.
+
    TT is one interpretation of the defunct timescale
+        Ephemeris Time, ET.
+  
    4.
+
    See also the routine sla_DT, which roughly estimates ET-UT for
+        historical epochs.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DV2TP - Direction Cosines to Tangent Plane
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DTPV2C - Plate centre from and x,y,z
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node81.html b/src/slalib/sun67.htx/node81.html
new file mode 100644
index 0000000..eba8ed9
--- /dev/null
+++ b/src/slalib/sun67.htx/node81.html
@@ -0,0 +1,137 @@
+
+
+
+
+SLA_DV2TP - Direction Cosines to Tangent Plane
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DVDV - Scalar Product
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DTT - TT minus UTC
+
     
     
    
+
    
+
    SLA_DV2TP - Direction Cosines to Tangent Plane
+  
+
    
+       
    
+
    ACTION:
+
    Given the direction cosines of a star and of the tangent point,
+determine the star's tangent-plane coordinates
+         (double precision).
+
        
    CALL:
+
    CALL sla_DV2TP (V, V0, XI, ETA, J)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    VD(3)direction cosines of star
    V0D(3)direction cosines of tangent point
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    XI,ETADtangent plane coordinates (radians)
    JIstatus:
      0 = OK, star on tangent plane
      1 = error, star too far from axis
      2 = error, antistar on tangent plane
      3 = error, antistar too far from axis
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    If vector V0 is not of unit length, or if vector V is of zero
+length, the results will be wrong.
+
    2.
+
    If V0 points at a pole, the returned $\xi,\eta$        will be based on the
+        arbitrary assumption that $\alpha=0$ at the tangent point.
+  
    3.
+
    The projection is called the gnomonic projection;  the
+        Cartesian coordinates $[\,\xi,\eta\,]$ are called 
+        standard coordinates.  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, i.e. radians near the origin.
+  
    4.
+
    This routine is the Cartesian equivalent of the routine sla_DS2TP.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DVDV - Scalar Product
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DTT - TT minus UTC
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node82.html b/src/slalib/sun67.htx/node82.html
new file mode 100644
index 0000000..024100b
--- /dev/null
+++ b/src/slalib/sun67.htx/node82.html
@@ -0,0 +1,91 @@
+
+
+
+
+SLA_DVDV - Scalar Product
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DVN - Normalize Vector
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DV2TP - Direction Cosines to Tangent Plane
+
     
     
    
+
    
+
    SLA_DVDV - Scalar Product
+  
+
    
+       
    
+
    ACTION:
+
    Scalar product of two 3-vectors (double precision).
+
    CALL:
+
    D = sla_DVDV (VA, VB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    VAD(3)first vector
    VBD(3)second vector
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_DVDVDscalar product VA.VB
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DVN - Normalize Vector
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DV2TP - Direction Cosines to Tangent Plane
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node83.html b/src/slalib/sun67.htx/node83.html
new file mode 100644
index 0000000..073d4ef
--- /dev/null
+++ b/src/slalib/sun67.htx/node83.html
@@ -0,0 +1,95 @@
+
+
+
+
+SLA_DVN - Normalize Vector
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DVXV - Vector Product
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DVDV - Scalar Product
+
     
     
    
+
    
+
    SLA_DVN - Normalize Vector
+  
+
    
+       
    
+
    ACTION:
+
    Normalize a 3-vector, also giving the modulus (double precision).
+
    CALL:
+
    CALL sla_DVN (V, UV, VM)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    VD(3)vector
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    UVD(3)unit vector in direction of V
    VMDmodulus of V
    
+
          
    
+
    NOTE:
+
    If the modulus of V is zero, UV is set to zero as well.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_DVXV - Vector Product
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DVDV - Scalar Product
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node84.html b/src/slalib/sun67.htx/node84.html
new file mode 100644
index 0000000..745d1f0
--- /dev/null
+++ b/src/slalib/sun67.htx/node84.html
@@ -0,0 +1,93 @@
+
+
+
+
+SLA_DVXV - Vector Product
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_E2H - to Az,El
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DVN - Normalize Vector
+
     
     
    
+
    
+
    SLA_DVXV - Vector Product
+  
+
    
+       
    
+
    ACTION:
+
    Vector product of two 3-vectors (double precision).
+
    CALL:
+
    CALL sla_DVXV (VA, VB, VC)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    VAD(3)first vector
    VBD(3)second vector
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    VCD(3)vector product VA$\times$VB
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_E2H - to Az,El
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DVN - Normalize Vector
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node85.html b/src/slalib/sun67.htx/node85.html
new file mode 100644
index 0000000..3c589df
--- /dev/null
+++ b/src/slalib/sun67.htx/node85.html
@@ -0,0 +1,145 @@
+
+
+
+
+SLA_E2H - to Az,El
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EARTH - Approx Earth Pos/Vel
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DVXV - Vector Product
+
     
     
    
+
    
+
       
+
    
+SLA_E2H - $h,\delta$ to Az,El
+
    
+       
    
+
    ACTION:
+
    Equatorial to horizon coordinates
+(single precision).
+
        
    CALL:
+
    CALL sla_DE2H (HA, DEC, PHI, AZ, EL)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    HARhour angle (radians)
    DECRdeclination (radians)
    PHIRlatitude (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    AZRazimuth (radians)
    ELRelevation (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    Azimuth is returned in the range $0\!-\!2\pi$;  north is zero,
+and east is $+\pi/2$.  Elevation is returned in the range
+$\pm \pi$.  
    2.
+
    The latitude must be geodetic.  In critical applications,
+        corrections for polar motion should be applied.
+  
    3.
+
    In some applications it will be important to specify the
+        correct type of hour angle and declination in order to
+        produce the required type of azimuth and elevation.  In
+        particular, it may be important to distinguish between
+        elevation as affected by refraction, which would
+        require the observed $[\,h,\delta\,]$, and the elevation
+        in vacuo, which would require the topocentric
+        $[\,h,\delta\,]$.        If the effects of diurnal aberration can be neglected, the
+        apparent $[\,h,\delta\,]$ may be used instead of the topocentric
+        $[\,h,\delta\,]$.  
    4.
+
    No range checking of arguments is carried out.
+  
    5.
+
    In applications which involve many such calculations, rather
+        than calling the present routine it will be more efficient to
+        use inline code, having previously computed fixed terms such
+        as sine and cosine of latitude, and (for tracking a star)
+        sine and cosine of declination.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EARTH - Approx Earth Pos/Vel
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_DVXV - Vector Product
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node86.html b/src/slalib/sun67.htx/node86.html
new file mode 100644
index 0000000..6507524
--- /dev/null
+++ b/src/slalib/sun67.htx/node86.html
@@ -0,0 +1,124 @@
+
+
+
+
+SLA_EARTH - Approx Earth Pos/Vel
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ECLEQ - Ecliptic to Equatorial
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_E2H - to Az,El
+
     
     
    
+
    
+
    SLA_EARTH - Approx Earth Pos/Vel
+  
+
    
+       
    
+
    ACTION:
+
    Approximate heliocentric position and velocity of the Earth
+(single precision).
+
        
    CALL:
+
    CALL sla_EARTH (IY, ID, FD, PV)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    IYIyear
    IDIday in year (1 = Jan 1st)
    FDRfraction of day
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    PVR(6)Earth $[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$ (AU, AU s-1)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The date and time is TDB (loosely ET) in a Julian calendar
+which has been aligned to the ordinary Gregorian
+calendar for the interval 1900 March 1 to 2100 February 28.
+        The year and day can be obtained by calling sla_CALYD or
+        sla_CLYD.
+  
    2.
+
    The Earth heliocentric 6-vector is referred to the
+        FK4 mean equator and equinox of date.
+  
    3.
+
    Maximum/RMS errors 1950-2050:
+        
      
+
    •  13/5 $\times10^{-5}$ AU = 19200/7600 km in position
+
    •  47/26 $\times10^{-10}$ AU s-1 =
+               0.0070/0.0039 km s-1 in speed
+        
    
+  
    4.
+
    More accurate results are obtainable with the routine sla_EVP.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ECLEQ - Ecliptic to Equatorial
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_E2H - to Az,El
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node87.html b/src/slalib/sun67.htx/node87.html
new file mode 100644
index 0000000..5935487
--- /dev/null
+++ b/src/slalib/sun67.htx/node87.html
@@ -0,0 +1,97 @@
+
+
+
+
+SLA_ECLEQ - Ecliptic to Equatorial
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ECMAT - Form Matrix
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EARTH - Approx Earth Pos/Vel
+
     
     
    
+
    
+
    SLA_ECLEQ - Ecliptic to Equatorial
+  
+
    
+       
    
+
    ACTION:
+
    Transformation from ecliptic longitude and latitude to
+J2000.0 $[\,\alpha,\delta\,]$.
        
    CALL:
+
    CALL sla_ECLEQ (DL, DB, DATE, DR, DD)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    DL,DBDecliptic longitude and latitude
+(mean of date, IAU 1980 theory, radians)
    DATEDTDB (formerly ET) as Modified Julian Date
+(JD-2400000.5)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    DR,DDDJ2000.0 mean $[\,\alpha,\delta\,]$ (radians)
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ECMAT - Form Matrix
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EARTH - Approx Earth Pos/Vel
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node88.html b/src/slalib/sun67.htx/node88.html
new file mode 100644
index 0000000..895c629
--- /dev/null
+++ b/src/slalib/sun67.htx/node88.html
@@ -0,0 +1,106 @@
+
+
+
+
+SLA_ECMAT - Form Matrix
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ECOR - RV & Time Corrns to Sun
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_ECLEQ - Ecliptic to Equatorial
+
     
     
    
+
    
+
       
+
    
+SLA_ECMAT - Form $\alpha,\delta\rightarrow\lambda,\beta$ Matrix
+
    
+       
    
+
    ACTION:
+
    Form the equatorial to ecliptic rotation matrix (IAU 1980 theory).
+
    CALL:
+
    CALL sla_ECMAT (DATE, RMAT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DATEDTDB (formerly ET) as Modified Julian Date
+(JD-2400000.5)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    RMATD(3,3)rotation matrix
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    RMAT is matrix M in the expression
+vecl = M$\cdot$vequ.
+
    2.
+
    The equator, equinox and ecliptic are mean of date.
+ 
    
+
         
    
+
    REFERENCE:
+
    Murray, C.A., Vectorial Astrometry, section 4.3.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ECOR - RV & Time Corrns to Sun
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_ECLEQ - Ecliptic to Equatorial
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node89.html b/src/slalib/sun67.htx/node89.html
new file mode 100644
index 0000000..990df2a
--- /dev/null
+++ b/src/slalib/sun67.htx/node89.html
@@ -0,0 +1,140 @@
+
+
+
+
+SLA_ECOR - RV & Time Corrns to Sun
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EG50 - B1950 to Galactic
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_ECMAT - Form Matrix
+
     
     
    
+
    
+
    SLA_ECOR - RV & Time Corrns to Sun
+  
+
    
+       
    
+
    ACTION:
+
    Component of Earth orbit velocity and heliocentric
+light time in a given direction.
+
        
    CALL:
+
    CALL sla_ECOR (RM, DM, IY, ID, FD, RV, TL)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    RM,DMRmean $[\,\alpha,\delta\,]$ of date (radians)
    IYIyear
    IDIday in year (1 = Jan 1st)
    FDRfraction of day
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    RVRcomponent of Earth orbital velocity (km s-1)
    TLRcomponent of heliocentric light time (s)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The date and time is TDB (loosely ET) in a Julian calendar
+which has been aligned to the ordinary Gregorian
+calendar for the interval 1900 March 1 to 2100 February 28.
+        The year and day can be obtained by calling sla_CALYD or
+        sla_CLYD.
+  
    2.
+
    Sign convention:
+        
      
+
    •  The velocity component is +ve when the
+               Earth is receding from
+               the given point on the sky.
+
    •  The light time component is +ve
+               when the Earth lies between the Sun and
+               the given point on the sky.
+        
    
+ 
    3.
+
    Accuracy:
+       
      
+
    •  The velocity component is usually within 0.004 km s-1
+              of the correct value and is never in error by more than
+              0.007 km s-1.
+
    •  The error in light time correction is about
+              $0^{\rm s}\hspace{-0.3em}.03$ at worst,
+              but is usually better than $0^{\rm s}\hspace{-0.3em}.01$.       
    
+       For applications requiring higher accuracy, see the sla_EVP routine.
+ 
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EG50 - B1950 to Galactic
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_ECMAT - Form Matrix
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node9.html b/src/slalib/sun67.htx/node9.html
new file mode 100644
index 0000000..a9d8058
--- /dev/null
+++ b/src/slalib/sun67.htx/node9.html
@@ -0,0 +1,75 @@
+
+
+
+
+Future Versions
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: New Functions
+
    
+Up: INTRODUCTION
+
    
+ Previous: C Version
+
     
     
    
+
    
+
    
+Future Versions
+
    
+The homogeneity and ease of use of SLALIB could perhaps be improved
+in the future
+by turning to C++ and object-oriented techniques.  For example ``celestial
+position'' could be a class and many of the transformations
+could happen automatically.  This requires further study and
+would almost certainly result in a complete redesign.
+Similarly,
+the impact of Fortran 90 has yet to be assessed.  Once compilers
+become widely available, some internal recoding may be worthwhile
+in order to simplify parts of the code.  However, as with C++,
+a redesign of the
+application interfaces will be needed if the capabilities of the
+new language are to be exploited to the full.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: New Functions
+
    
+Up: INTRODUCTION
+
    
+ Previous: C Version
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node90.html b/src/slalib/sun67.htx/node90.html
new file mode 100644
index 0000000..1deba43
--- /dev/null
+++ b/src/slalib/sun67.htx/node90.html
@@ -0,0 +1,106 @@
+
+
+
+
+SLA_EG50 - B1950 to Galactic
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EL2UE - Conventional to Universal Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_ECOR - RV & Time Corrns to Sun
+
     
     
    
+
    
+
       
+
    
+SLA_EG50 - B1950 $\alpha,\delta$ to Galactic
+
    
+       
    
+
    ACTION:
+
    Transformation from B1950.0 FK4 equatorial coordinates to
+IAU 1958 galactic coordinates.
+
        
    CALL:
+
    CALL sla_EG50 (DR, DD, DL, DB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DR,DDDB1950.0 $[\,\alpha,\delta\,]$ (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    DL,DBDgalactic longitude and latitude $[\,l^{I\!I},b^{I\!I}\,]$ (radians)
    
+
          
    
+
    NOTE:
+
    The equatorial coordinates are B1950.0 FK4.  Use the
+routine sla_EQGAL if conversion from J2000.0 FK5 coordinates
+       is required.
+      
    
+
         
    
+
    REFERENCE:
+
    Blaauw et al., 1960, Mon.Not.R.astr.Soc.,
+121, 123.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EL2UE - Conventional to Universal Elements
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_ECOR - RV & Time Corrns to Sun
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node91.html b/src/slalib/sun67.htx/node91.html
new file mode 100644
index 0000000..2beedff
--- /dev/null
+++ b/src/slalib/sun67.htx/node91.html
@@ -0,0 +1,330 @@
+
+
+
+
+SLA_EL2UE - Conventional to Universal Elements
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EPB - MJD to Besselian Epoch
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EG50 - B1950 to Galactic
+
     
     
    
+
    
+
    SLA_EL2UE - Conventional to Universal Elements
+  
+
    
+       
    
+
    ACTION:
+
    Transform conventional osculating orbital elements
+into ``universal'' form.
+
        
    CALL:
+
    CALL sla_EL2UE (
+         DATE, JFORM, EPOCH, ORBINC, ANODE,
+         PERIH, AORQ, E, AORL, DM,
+         U, JSTAT)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    DATEDepoch (TT MJD) of osculation (Note 3)
    JFORMIchoice of element set (1-3; Note 6)
    EPOCHDepoch of elements (t0 or T, TT MJD)
    ORBINCDinclination (i, radians)
    ANODEDlongitude of the ascending node ($\Omega$, radians)
    PERIHDlongitude or argument of perihelion
+($\varpi$ or $\omega$,
      radians)
    AORQDmean distance or perihelion distance (a or q, AU)
    EDeccentricity (e)
    AORLDmean anomaly or longitude
+(M or L, radians,
      JFORM=1,2 only)
    DMDdaily motion (n, radians, JFORM=1 only)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    UD(13)universal orbital elements (Note 1)
    (1)combined mass (M+m)
    (2)total energy of the orbit ($\alpha$)
    (3)reference (osculating) epoch (t0)
    (4-6)position at reference epoch (${\rm \bf r}_0$)
    (7-9)velocity at reference epoch (${\rm \bf v}_0$)
    (10)heliocentric distance at reference epoch
    (11)${\rm \bf r}_0.{\rm \bf v}_0$
    (12)date (t)
    (13)universal eccentric anomaly ($\psi$) of date,
+approx
       
    JSTATIstatus:
            0 = OK
       -1 = illegal JFORM
        -2 = illegal E
        -3 = illegal AORQ
        -4 = illegal DM
        -5 = numerical error
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The ``universal'' elements are those which define the orbit for
+the purposes of the method of universal variables (see reference).
+They consist of the combined mass of the two bodies, an epoch,
+        and the position and velocity vectors (arbitrary reference frame)
+        at that epoch.  The parameter set used here includes also various
+        quantities that can, in fact, be derived from the other
+        information.  This approach is taken to avoiding unnecessary
+        computation and loss of accuracy.  The supplementary quantities
+        are (i) $\alpha$, which is proportional to the total energy of the
+        orbit, (ii) the heliocentric distance at epoch,
+        (iii) the outwards component of the velocity at the given epoch,
+        (iv) an estimate of $\psi$, the ``universal eccentric anomaly'' at a
+        given date and (v) that date.
+  
    2.
+
    The companion routine is sla_UE2PV.  This takes the set of numbers
+        that the present routine outputs and uses them to derive the
+        object's position and velocity.  A single prediction requires one
+        call to the present routine followed by one call to sla_UE2PV;
+        for convenience, the two calls are packaged as the routine
+        sla_PLANEL.  Multiple predictions may be made by again calling the
+        present routine once, but then calling sla_UE2PV multiple times,
+        which is faster than multiple calls to sla_PLANEL.
+  
    3.
+
    DATE is the epoch of osculation.  It is in the TT timescale
+        (formerly Ephemeris Time, ET) and is a Modified Julian Date
+        (JD-2400000.5).
+  
    4.
+
    The supplied orbital elements are with respect to the J2000
+        ecliptic and equinox.  The position and velocity parameters
+        returned in the array U are with respect to the mean equator and
+        equinox of epoch J2000, and are for the perihelion prior to the
+        specified epoch.
+  
    5.
+
    The universal elements returned in the array U are in canonical
+        units (solar masses, AU and canonical days).
+  
    6.
+
    Three different element-format options are supported, as
+        follows. 
    
+
    
+JFORM=1, suitable for the major planets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of elements t0 (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 longitude of perihelion $\varpi$ (radians)
+		 AORQ 		 = 		 mean distance a (AU)
+		 E 		 = 		 eccentricity e $( 0 \leq e < 1 )$ 
+		 AORL 		 = 		 mean longitude L (radians)
+		 DM 		 = 		 daily motion n (radians)        
+
    
+
    
+JFORM=2, suitable for minor planets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of elements t0 (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 argument of perihelion $\omega$ (radians)
+		 AORQ 		 = 		 mean distance a (AU)
+		 E 		 = 		 eccentricity e $( 0 \leq e < 1 )$ 
+		 AORL 		 = 		 mean anomaly M (radians)        
+
    
+
    
+JFORM=3, suitable for comets:
+
            
    
+ 		 EPOCH 		 = 		 epoch of perihelion T (TT MJD)
+		 ORBINC 		 = 		 inclination i (radians)
+		 ANODE 		 = 		 longitude of the ascending node $\Omega$ (radians)
+		 PERIH 		 = 		 argument of perihelion $\omega$ (radians)
+		 AORQ 		 = 		 perihelion distance q (AU)
+		 E 		 = 		 eccentricity e $( 0 \leq e \leq 10 )$
    
+  
    7.
+
    Unused elements (DM for JFORM=2, AORL and DM for JFORM=3) are
+        not accessed.
+  
    8.
+
    The algorithm was originally adapted from the EPHSLA program of
+        D.H.P.Jones (private communication, 1996).  The method
+        is based on Stumpff's Universal Variables.
+ 
    
+
         
    
+
    REFERENCE:
+
    Everhart, E. & Pitkin, E.T., Am. J. Phys. 51, 712, 1983.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EPB - MJD to Besselian Epoch
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EG50 - B1950 to Galactic
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node92.html b/src/slalib/sun67.htx/node92.html
new file mode 100644
index 0000000..854488f
--- /dev/null
+++ b/src/slalib/sun67.htx/node92.html
@@ -0,0 +1,91 @@
+
+
+
+
+SLA_EPB - MJD to Besselian Epoch
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EPB2D - Besselian Epoch to MJD
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EL2UE - Conventional to Universal Elements
+
     
     
    
+
    
+
    SLA_EPB - MJD to Besselian Epoch
+  
+
    
+       
    
+
    ACTION:
+
    Conversion of Modified Julian Date to Besselian Epoch.
+
    CALL:
+
    D = sla_EPB (DATE)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DATEDModified Julian Date (JD-2400000.5)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_EPBDBesselian Epoch
    
+
         
    
+
    REFERENCE:
+
    Lieske, J.H., 1979, Astr.Astrophys. 73, 282.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EPB2D - Besselian Epoch to MJD
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EL2UE - Conventional to Universal Elements
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node93.html b/src/slalib/sun67.htx/node93.html
new file mode 100644
index 0000000..c142fe7
--- /dev/null
+++ b/src/slalib/sun67.htx/node93.html
@@ -0,0 +1,91 @@
+
+
+
+
+SLA_EPB2D - Besselian Epoch to MJD
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EPCO - Convert Epoch to B or J
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EPB - MJD to Besselian Epoch
+
     
     
    
+
    
+
    SLA_EPB2D - Besselian Epoch to MJD
+  
+
    
+       
    
+
    ACTION:
+
    Conversion of Besselian Epoch to Modified Julian Date.
+
    CALL:
+
    D = sla_EPB2D (EPB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    EPBDBesselian Epoch
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_EPB2DDModified Julian Date (JD-2400000.5)
    
+
         
    
+
    REFERENCE:
+
    Lieske, J.H., 1979. Astr.Astrophys. 73, 282.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EPCO - Convert Epoch to B or J
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EPB - MJD to Besselian Epoch
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node94.html b/src/slalib/sun67.htx/node94.html
new file mode 100644
index 0000000..e71fda8
--- /dev/null
+++ b/src/slalib/sun67.htx/node94.html
@@ -0,0 +1,110 @@
+
+
+
+
+SLA_EPCO - Convert Epoch to B or J
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EPJ - MJD to Julian Epoch
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EPB2D - Besselian Epoch to MJD
+
     
     
    
+
    
+
    SLA_EPCO - Convert Epoch to B or J
+  
+
    
+       
    
+
    ACTION:
+
    Convert an epoch to Besselian or Julian to match another one.
+
    CALL:
+
    D = sla_EPCO (K0, K, E)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
    K0Cform of result:  `B'=Besselian, `J'=Julian
    KCform of given epoch:  `B' or `J'
    EDepoch
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_EPCODthe given epoch converted as necessary
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The result is always either equal to or very close to
+the given epoch E.  The routine is required only in
+applications where punctilious treatment of heterogeneous
+        mixtures of star positions is necessary.
+  
    2.
+
    K0 and K are not validated.  They are interpreted as follows:
+        
      
+
    •  If K0 and K are the same, the result is E.
+
    •  If K0 is `B' and K isn't, the conversion is J to B.
+
    •  In all other cases, the conversion is B to J.
+        
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EPJ - MJD to Julian Epoch
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EPB2D - Besselian Epoch to MJD
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node95.html b/src/slalib/sun67.htx/node95.html
new file mode 100644
index 0000000..aefb9d6
--- /dev/null
+++ b/src/slalib/sun67.htx/node95.html
@@ -0,0 +1,91 @@
+
+
+
+
+SLA_EPJ - MJD to Julian Epoch
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EPJ2D - Julian Epoch to MJD
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EPCO - Convert Epoch to B or J
+
     
     
    
+
    
+
    SLA_EPJ - MJD to Julian Epoch
+  
+
    
+       
    
+
    ACTION:
+
    Convert Modified Julian Date to Julian Epoch.
+
    CALL:
+
    D = sla_EPJ (DATE)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DATEDModified Julian Date (JD-2400000.5)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_EPJDJulian Epoch
    
+
         
    
+
    REFERENCE:
+
    Lieske, J.H., 1979. Astr.Astrophys., 73, 282.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EPJ2D - Julian Epoch to MJD
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EPCO - Convert Epoch to B or J
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node96.html b/src/slalib/sun67.htx/node96.html
new file mode 100644
index 0000000..c0f38a9
--- /dev/null
+++ b/src/slalib/sun67.htx/node96.html
@@ -0,0 +1,91 @@
+
+
+
+
+SLA_EPJ2D - Julian Epoch to MJD
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EQECL - J2000 to Ecliptic
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EPJ - MJD to Julian Epoch
+
     
     
    
+
    
+
    SLA_EPJ2D - Julian Epoch to MJD
+  
+
    
+       
    
+
    ACTION:
+
    Convert Julian Epoch to Modified Julian Date.
+
    CALL:
+
    D = sla_EPJ2D (EPJ)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    EPJDJulian Epoch
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_EPJ2DDModified Julian Date (JD-2400000.5)
    
+
         
    
+
    REFERENCE:
+
    Lieske, J.H., 1979. Astr.Astrophys., 73, 282.
+
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EQECL - J2000 to Ecliptic
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EPJ - MJD to Julian Epoch
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node97.html b/src/slalib/sun67.htx/node97.html
new file mode 100644
index 0000000..a386ad5
--- /dev/null
+++ b/src/slalib/sun67.htx/node97.html
@@ -0,0 +1,98 @@
+
+
+
+
+SLA_EQECL - J2000 to Ecliptic
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EQEQX - Equation of the Equinoxes
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EPJ2D - Julian Epoch to MJD
+
     
     
    
+
    
+
       
+
    
+SLA_EQECL - J2000 $\alpha,\delta$ to Ecliptic
+
    
+       
    
+
    ACTION:
+
    Transformation from J2000.0 equatorial coordinates to
+ecliptic longitude and latitude.
+
        
    CALL:
+
    CALL sla_EQECL (DR, DD, DATE, DL, DB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
+
+
+
+
    DR,DDDJ2000.0 mean $[\,\alpha,\delta\,]$ (radians)
    DATEDTDB (formerly ET) as Modified Julian Date (JD-2400000.5)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    DL,DBDecliptic longitude and latitude
+(mean of date, IAU 1980 theory, radians)
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EQEQX - Equation of the Equinoxes
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EPJ2D - Julian Epoch to MJD
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node98.html b/src/slalib/sun67.htx/node98.html
new file mode 100644
index 0000000..e5a2cc7
--- /dev/null
+++ b/src/slalib/sun67.htx/node98.html
@@ -0,0 +1,111 @@
+
+
+
+
+SLA_EQEQX - Equation of the Equinoxes
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EQGAL - J2000 to Galactic
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EQECL - J2000 to Ecliptic
+
     
     
    
+
    
+
    SLA_EQEQX - Equation of the Equinoxes
+  
+
    
+       
    
+
    ACTION:
+
    Equation of the equinoxes (IAU 1994).
+
    CALL:
+
    D = sla_EQEQX (DATE)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DATEDTDB (formerly ET) as Modified Julian Date (JD-2400000.5)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    sla_EQEQXDThe equation of the equinoxes (radians)
    
+
          
    
+
    NOTES:
+
    
+
    1.
+
    The equation of the equinoxes is defined here as GAST - GMST:
+it is added to a mean sidereal time to give the
+apparent sidereal time.
+  
    2.
+
    The change from the classic ``textbook'' expression
+        $\Delta\psi\,cos\,\epsilon$ occurred with IAU Resolution C7,
+        Recommendation 3 (1994).  The new formulation takes into
+        account cross-terms between the various precession and
+        nutation quantities, amounting to about 3 milliarcsec.
+        The transition from the old to the new model officially
+        takes place on 1997 February 27.
+ 
    
+
         
    
+
    REFERENCE:
+
    Capitaine, N. & Gontier, A.-M. (1993),
+Astron. Astrophys.,
+      275, 645-650.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_EQGAL - J2000 to Galactic
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EQECL - J2000 to Ecliptic
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/node99.html b/src/slalib/sun67.htx/node99.html
new file mode 100644
index 0000000..1e4582a
--- /dev/null
+++ b/src/slalib/sun67.htx/node99.html
@@ -0,0 +1,105 @@
+
+
+
+
+SLA_EQGAL - J2000 to Galactic
+
+
+
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ETRMS - E-terms of Aberration
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EQEQX - Equation of the Equinoxes
+
     
     
    
+
    
+
       
+
    
+SLA_EQGAL - J2000 $\alpha,\delta$ to Galactic
+
    
+       
    
+
    ACTION:
+
    Transformation from J2000.0 FK5 equatorial coordinates to
+IAU 1958 galactic coordinates.
+
        
    CALL:
+
    CALL sla_EQGAL (DR, DD, DL, DB)
+
           
    
+
         
    
+
    GIVEN:
+
    
+
    
+
+
+
+
+
+
    DR,DDDJ2000.0 $[\,\alpha,\delta\,]$ (radians)
    
+
         
    
+
    RETURNED:
+
    
+
    
+
+
+
+
+
+
    DL,DBDgalactic longitude and latitude $[\,l^{I\!I},b^{I\!I}\,]$ (radians)
    
+
          
    
+
    NOTE:
+
    The equatorial coordinates are J2000.0 FK5.  Use the routine
+sla_EG50 if conversion from B1950.0 FK4 coordinates is required.
+      
    
+
         
    
+
    REFERENCE:
+
    Blaauw et al., 1960, Mon.Not.R.astr.Soc.,
+121, 123.
+     
    
+
     
    
+
+next 
+
+up 
+
+previous   
+
    
+ Next: SLA_ETRMS - E-terms of Aberration
+
    
+Up: SUBPROGRAM SPECIFICATIONS
+
    
+ Previous: SLA_EQEQX - Equation of the Equinoxes
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/orangeball.gif b/src/slalib/sun67.htx/orangeball.gif
new file mode 100644
index 0000000..e757cd0
Binary files /dev/null and b/src/slalib/sun67.htx/orangeball.gif differ
diff --git a/src/slalib/sun67.htx/pinkball.gif b/src/slalib/sun67.htx/pinkball.gif
new file mode 100644
index 0000000..43e843b
Binary files /dev/null and b/src/slalib/sun67.htx/pinkball.gif differ
diff --git a/src/slalib/sun67.htx/previous_group_motif.gif b/src/slalib/sun67.htx/previous_group_motif.gif
new file mode 100644
index 0000000..03ea0dc
Binary files /dev/null and b/src/slalib/sun67.htx/previous_group_motif.gif differ
diff --git a/src/slalib/sun67.htx/previous_group_motif_gr.gif b/src/slalib/sun67.htx/previous_group_motif_gr.gif
new file mode 100644
index 0000000..c7a1e2b
Binary files /dev/null and b/src/slalib/sun67.htx/previous_group_motif_gr.gif differ
diff --git a/src/slalib/sun67.htx/previous_motif.gif b/src/slalib/sun67.htx/previous_motif.gif
new file mode 100644
index 0000000..aef90f1
Binary files /dev/null and b/src/slalib/sun67.htx/previous_motif.gif differ
diff --git a/src/slalib/sun67.htx/previous_motif_gr.gif b/src/slalib/sun67.htx/previous_motif_gr.gif
new file mode 100644
index 0000000..c6acaab
Binary files /dev/null and b/src/slalib/sun67.htx/previous_motif_gr.gif differ
diff --git a/src/slalib/sun67.htx/purpleball.gif b/src/slalib/sun67.htx/purpleball.gif
new file mode 100644
index 0000000..4836265
Binary files /dev/null and b/src/slalib/sun67.htx/purpleball.gif differ
diff --git a/src/slalib/sun67.htx/redball.gif b/src/slalib/sun67.htx/redball.gif
new file mode 100644
index 0000000..b1a9580
Binary files /dev/null and b/src/slalib/sun67.htx/redball.gif differ
diff --git a/src/slalib/sun67.htx/source.gif b/src/slalib/sun67.htx/source.gif
new file mode 100755
index 0000000..c8dea79
Binary files /dev/null and b/src/slalib/sun67.htx/source.gif differ
diff --git a/src/slalib/sun67.htx/sun67.css b/src/slalib/sun67.htx/sun67.css
new file mode 100644
index 0000000..3970428
--- /dev/null
+++ b/src/slalib/sun67.htx/sun67.css
@@ -0,0 +1,10 @@
+
+SMALL.TINY		{ font-size : xx-small }
+SMALL.SCRIPTSIZE	{ font-size : xx-small }
+SMALL.FOOTNOTESIZE	{ font-size : x-small  }
+SMALL.SMALL		{ font-size : small    }
+BIG.LARGE		{ font-size : large    }
+BIG.XLARGE		{ font-size : x-large  }
+BIG.XXLARGE		{ font-size : xx-large }
+BIG.HUGE		{ font-size : xx-large }
+BIG.XHUGE		{ font-size : xx-large }
diff --git a/src/slalib/sun67.htx/sun67.html b/src/slalib/sun67.htx/sun67.html
new file mode 100644
index 0000000..1836213
--- /dev/null
+++ b/src/slalib/sun67.htx/sun67.html
@@ -0,0 +1,610 @@
+
+
+
+
+SLALIB -- Positional Astronomy Library
+
+
+
+
+
+
+
+
+
+
     
    
+
+next 
+up 
+previous   
+
    
+ Next: Abstract
+
    
+
     
     
    
+
    
+
     
+    
    
+      SLALIB -- Positional Astronomy Library
+
    
+2.4-0
+
    
+Programmer's Manual
+    
    
+
        
     
+   Starlink User Note67.45
+
    
+P.T.Wallace
+
    
+12 October 1999
+         
     
    
+      CCLRC
+/
+      Rutherford Appleton Laboratory
+
    
+      Particle Physics & Astronomy Research Council
+
    
+    
     
    
+      Starlink Project
+ 
    
+    Retrieve hardcopy
+
    
+       
    
+    
    Contents
    
+
      
    
+
+ 
+
+
+
     
    
+
+next 
+up 
+previous   
+
    
+ Next: Abstract
+
    
+
     
     
    
+
    
+
    
+SLALIB --- Positional Astronomy Library
    Starlink User Note 67
    P. T. Wallace
    12 October 1999
    E-mail:ptw@star.rl.ac.uk    
+
    
+
+
diff --git a/src/slalib/sun67.htx/up_motif.gif b/src/slalib/sun67.htx/up_motif.gif
new file mode 100644
index 0000000..3d1aebf
Binary files /dev/null and b/src/slalib/sun67.htx/up_motif.gif differ
diff --git a/src/slalib/sun67.htx/up_motif_gr.gif b/src/slalib/sun67.htx/up_motif_gr.gif
new file mode 100644
index 0000000..a8b463a
Binary files /dev/null and b/src/slalib/sun67.htx/up_motif_gr.gif differ
diff --git a/src/slalib/sun67.htx/whiteball.gif b/src/slalib/sun67.htx/whiteball.gif
new file mode 100644
index 0000000..4a90ea1
Binary files /dev/null and b/src/slalib/sun67.htx/whiteball.gif differ
diff --git a/src/slalib/sun67.htx/yellowball.gif b/src/slalib/sun67.htx/yellowball.gif
new file mode 100644
index 0000000..c6ba6b1
Binary files /dev/null and b/src/slalib/sun67.htx/yellowball.gif differ
diff --git a/src/slalib/sun67.htx_tar b/src/slalib/sun67.htx_tar
new file mode 100644
index 0000000..5dabe52
Binary files /dev/null and b/src/slalib/sun67.htx_tar differ
diff --git a/src/slalib/sun67.tex b/src/slalib/sun67.tex
new file mode 100644
index 0000000..3047136
--- /dev/null
+++ b/src/slalib/sun67.tex
@@ -0,0 +1,12430 @@
+\documentclass[11pt,twoside]{article}
+\setcounter{tocdepth}{2}
+\pagestyle{myheadings}
+
+% -----------------------------------------------------------------------------
+% ? Document identification
+\newcommand{\stardoccategory}  {Starlink User Note}
+\newcommand{\stardocinitials}  {SUN}
+\newcommand{\stardocsource}    {sun67.45}
+\newcommand{\stardocnumber}    {67.45}
+\newcommand{\stardocauthors}   {P.\,T.\,Wallace}
+\newcommand{\stardocdate}      {12 October 1999}
+\newcommand{\stardoctitle}     {SLALIB --- Positional Astronomy Library}
+\newcommand{\stardocversion}   {2.4-0}
+\newcommand{\stardocmanual}    {Programmer's Manual}
+% ? End of document identification
+
+%%% Also see \nroutines definition later %%%
+
+% -----------------------------------------------------------------------------
+
+\newcommand{\stardocname}{\stardocinitials /\stardocnumber}
+\markright{\stardocname}
+
+%----------------------------------------------------
+% Comment out unwanted definitions to suit stationery
+
+\setlength{\textwidth}{160mm}       %
+\setlength{\textheight}{230mm}      % European A4
+\setlength{\topmargin}{-5mm}        %
+
+%\setlength{\textwidth}{167mm}       %
+%\setlength{\textheight}{220mm}      % US Letter
+%\setlength{\topmargin}{-10mm}       %
+
+%
+%----------------------------------------------------
+
+\setlength{\textwidth}{160mm}
+\setlength{\textheight}{230mm}
+\setlength{\topmargin}{-2mm}
+\setlength{\oddsidemargin}{0mm}
+\setlength{\evensidemargin}{0mm}
+\setlength{\parindent}{0mm}
+\setlength{\parskip}{\medskipamount}
+\setlength{\unitlength}{1mm}
+
+% -----------------------------------------------------------------------------
+%  Hypertext definitions.
+%  ======================
+%  These are used by the LaTeX2HTML translator in conjunction with star2html.
+
+%  Comment.sty: version 2.0, 19 June 1992
+%  Selectively in/exclude pieces of text.
+%
+%  Author
+%    Victor Eijkhout                                      
+%    Department of Computer Science
+%    University Tennessee at Knoxville
+%    104 Ayres Hall
+%    Knoxville, TN 37996
+%    USA
+
+%  Do not remove the %\begin{rawtex} and %\end{rawtex} lines (used by
+%  star2html to signify raw TeX that latex2html cannot process).
+%\begin{rawtex}
+\makeatletter
+\def\makeinnocent#1{\catcode`#1=12 }
+\def\csarg#1#2{\expandafter#1\csname#2\endcsname}
+
+\def\ThrowAwayComment#1{\begingroup
+    \def\CurrentComment{#1}%
+    \let\do\makeinnocent \dospecials
+    \makeinnocent\^^L% and whatever other special cases
+    \endlinechar`\^^M \catcode`\^^M=12 \xComment}
+{\catcode`\^^M=12 \endlinechar=-1 %
+ \gdef\xComment#1^^M{\def\test{#1}
+      \csarg\ifx{PlainEnd\CurrentComment Test}\test
+          \let\html@next\endgroup
+      \else \csarg\ifx{LaLaEnd\CurrentComment Test}\test
+            \edef\html@next{\endgroup\noexpand\end{\CurrentComment}}
+      \else \let\html@next\xComment
+      \fi \fi \html@next}
+}
+\makeatother
+
+\def\includecomment
+ #1{\expandafter\def\csname#1\endcsname{}%
+    \expandafter\def\csname end#1\endcsname{}}
+\def\excludecomment
+ #1{\expandafter\def\csname#1\endcsname{\ThrowAwayComment{#1}}%
+    {\escapechar=-1\relax
+     \csarg\xdef{PlainEnd#1Test}{\string\\end#1}%
+     \csarg\xdef{LaLaEnd#1Test}{\string\\end\string\{#1\string\}}%
+    }}
+
+%  Define environments that ignore their contents.
+\excludecomment{comment}
+\excludecomment{rawhtml}
+\excludecomment{htmlonly}
+%\end{rawtex}
+
+%  Hypertext commands etc. This is a condensed version of the html.sty
+%  file supplied with LaTeX2HTML by: Nikos Drakos  &
+%  Jelle van Zeijl . The LaTeX2HTML documentation
+%  should be consulted about all commands (and the environments defined above)
+%  except \xref and \xlabel which are Starlink specific.
+
+\newcommand{\htmladdnormallinkfoot}[2]{#1\footnote{#2}}
+\newcommand{\htmladdnormallink}[2]{#1}
+\newcommand{\htmladdimg}[1]{}
+\newenvironment{latexonly}{}{}
+\newcommand{\hyperref}[4]{#2\ref{#4}#3}
+\newcommand{\htmlref}[2]{#1}
+\newcommand{\htmlimage}[1]{}
+\newcommand{\htmladdtonavigation}[1]{}
+
+%  Starlink cross-references and labels.
+\newcommand{\xref}[3]{#1}
+\newcommand{\xlabel}[1]{}
+
+%  LaTeX2HTML symbol.
+\newcommand{\latextohtml}{{\bf LaTeX}{2}{\tt{HTML}}}
+
+%  Define command to re-centre underscore for Latex and leave as normal
+%  for HTML (severe problems with \_ in tabbing environments and \_\_
+%  generally otherwise).
+\newcommand{\latex}[1]{#1}
+\newcommand{\setunderscore}{\renewcommand{\_}{{\tt\symbol{95}}}}
+\latex{\setunderscore}
+
+%  Redefine the \tableofcontents command. This procrastination is necessary
+%  to stop the automatic creation of a second table of contents page
+%  by latex2html.
+\newcommand{\latexonlytoc}[0]{\tableofcontents}
+
+% -----------------------------------------------------------------------------
+%  Debugging.
+%  =========
+%  Remove % on the following to debug links in the HTML version using Latex.
+
+% \newcommand{\hotlink}[2]{\fbox{\begin{tabular}[t]{@{}c@{}}#1\\\hline{\footnotesize #2}\end{tabular}}}
+% \renewcommand{\htmladdnormallinkfoot}[2]{\hotlink{#1}{#2}}
+% \renewcommand{\htmladdnormallink}[2]{\hotlink{#1}{#2}}
+% \renewcommand{\hyperref}[4]{\hotlink{#1}{\S\ref{#4}}}
+% \renewcommand{\htmlref}[2]{\hotlink{#1}{\S\ref{#2}}}
+% \renewcommand{\xref}[3]{\hotlink{#1}{#2 -- #3}}
+% -----------------------------------------------------------------------------
+% ? Document specific \newcommand or \newenvironment commands.
+%------------------------------------------------------------------------------
+
+\newcommand{\nroutines} {183}
+\newcommand{\radec}     {$[\,\alpha,\delta\,]$}
+\newcommand{\hadec}     {$[\,h,\delta\,]$}
+\newcommand{\xieta}     {$[\,\xi,\eta\,]$}
+\newcommand{\azel}      {$[\,Az,El~]$}
+\newcommand{\ecl}       {$[\,\lambda,\beta~]$}
+\newcommand{\gal}       {$[\,l^{I\!I},b^{I\!I}\,]$}
+\newcommand{\xy}        {$[\,x,y\,]$}
+\newcommand{\xyz}       {$[\,x,y,z\,]$}
+\newcommand{\xyzd}      {$[\,\dot{x},\dot{y},\dot{z}\,]$}
+\newcommand{\xyzxyzd}   {$[\,x,y,z,\dot{x},\dot{y},\dot{z}\,]$}
+\newcommand{\degree}[2] {$#1^{\circ}
+                        \hspace{-0.37em}.\hspace{0.02em}#2$}
+
+\newcommand{\arcsec}[2] {\arcseci{#1}$\hspace{-0.4em}.#2$}
+\begin{htmlonly}
+   \newcommand{\arcsec}[2] {
+      {$#1\hspace{-0.05em}^{'\hspace{-0.1em}'}\hspace{-0.4em}.#2$}
+   }
+\end{htmlonly}
+
+\newcommand{\arcseci}[1] {$#1\hspace{-0.05em}$\raisebox{-0.5ex}
+                         {$^{'\hspace{-0.1em}'}$}}
+\begin{htmlonly}
+   \renewcommand{\arcseci}[1] {$#1\hspace{-0.05em}^{'\hspace{-0.1em}'}$}
+\end{htmlonly}
+
+\newcommand{\dms}[4]    {$#1^{\circ}\,#2\raisebox{-0.5ex}
+                        {$^{'}$}\,$\arcsec{#3}{#4}}
+\begin{htmlonly}
+   \renewcommand{\dms}[4]{$#1^{\circ}\,#2^{'}\,#3^{''}.#4$}
+\end{htmlonly}
+
+\newcommand{\tseci}[1]   {$#1$\mbox{$^{\rm s}$}}
+\newcommand{\tsec}[2]    {\tseci{#1}$\hspace{-0.3em}.#2$}
+\begin{htmlonly}
+   \renewcommand{\tsec}[2] {$#1^{\rm s}\hspace{-0.3em}.#2$}
+\end{htmlonly}
+
+\newcommand{\hms}[4]    {$#1^{\rm h}\,#2^{\rm m}\,$\tsec{#3}{#4}}
+\begin{htmlonly}
+   \renewcommand{\hms}[4] {$#1^{h}\,#2^{m}\,#3^{s}.#4$}
+\end{htmlonly}
+
+\newcommand{\callhead}[1]{\goodbreak\vspace{\bigskipamount}{\large\bf{#1}}}
+\newenvironment{callset}{\begin{list}{}{\setlength{\leftmargin}{2cm}
+                             \setlength{\parsep}{\smallskipamount}}}{\end{list}}
+\newcommand{\subp}[1]{\item\hspace{-1cm}#1\\}
+\newcommand{\subq}[2]{\item\hspace{-1cm}#1\\\hspace*{-1cm}#2\\}
+\newcommand{\name}[1]{\mbox{#1}}
+\newcommand{\fortvar}[1]{\mbox{\em #1}}
+
+\newcommand{\routine}[3]
+{\hbadness=10000
+  \vbox
+  {
+    \rule{\textwidth}{0.3mm}\\
+    {\Large {\bf #1} \hfill #2 \hfill {\bf #1}}\\
+    \setlength{\oldspacing}{\topsep}
+    \setlength{\topsep}{0.3ex}
+    \begin{description}
+      #3
+    \end{description}
+    \setlength{\topsep}{\oldspacing}
+  }
+}
+
+%  Replacement for HTML version (each routine in own subsection).
+\begin{htmlonly}
+   \renewcommand{\routine}[3]
+   {
+      \subsection{#1\xlabel{#1} - #2\label{#1}}
+       \begin{description}
+         #3
+       \end{description}
+   }
+\end{htmlonly}
+
+\newcommand{\action}[1]
+{\item[ACTION]: #1}
+
+\begin{htmlonly}
+   \newcommand{\action}[1]
+   {\item[ACTION:] #1}
+\end{htmlonly}
+
+\newcommand{\call}[1]
+{\item[CALL]: \hspace{0.4em}{\tt #1}}
+\newlength{\oldspacing}
+
+\begin{htmlonly}
+   \renewcommand{\call}[1]
+   {
+    \item[CALL:] {\tt #1}
+   }
+\end{htmlonly}
+
+\newcommand{\args}[2]
+{
+  \goodbreak
+  \setlength{\oldspacing}{\topsep}
+  \setlength{\topsep}{0.3ex}
+  \begin{description}
+  \item[#1]:\\[1.5ex]
+    \begin{tabular}{p{7em}p{6em}p{22em}}
+      #2
+    \end{tabular}
+  \end{description}
+  \setlength{\topsep}{\oldspacing}
+}
+\begin{htmlonly}
+   \renewcommand{\args}[2]
+   {
+     \begin{description}
+        \item[#1:]\\
+        \begin{tabular}{p{7em}p{6em}l}
+           #2
+        \end{tabular}
+     \end{description}
+   }
+\end{htmlonly}
+
+\newcommand{\spec}[3]
+{
+  {\em {#1}} & {\bf \mbox{#2}} & {#3}
+}
+
+\newcommand{\specel}[2]
+{
+  \multicolumn{1}{c}{#1} & {} & {#2}
+}
+
+\newcommand{\anote}[1]
+{
+  \goodbreak
+  \setlength{\oldspacing}{\topsep}
+  \setlength{\topsep}{0.3ex}
+  \begin{description}
+    \item[NOTE]:
+        #1
+  \end{description}
+  \setlength{\topsep}{\oldspacing}
+}
+
+\begin{htmlonly}
+   \renewcommand{\anote}[1]
+   {
+      \begin{description}
+      \item[NOTE:]
+          #1
+      \end{description}
+   }
+\end{htmlonly}
+
+\newcommand{\notes}[1]
+{
+  \goodbreak
+  \setlength{\oldspacing}{\topsep}
+  \setlength{\topsep}{0.3ex}
+  \begin{description}
+    \item[NOTES]:
+        #1
+  \end{description}
+  \setlength{\topsep}{\oldspacing}
+}
+
+\begin{htmlonly}
+   \renewcommand{\notes}[1]
+   {
+      \begin{description}
+         \item[NOTES:]
+            #1
+      \end{description}
+   }
+\end{htmlonly}
+
+\newcommand{\aref}[1]
+{
+  \goodbreak
+  \setlength{\oldspacing}{\topsep}
+  \setlength{\topsep}{0.3ex}
+  \begin{description}
+    \item[REFERENCE]:
+        #1
+  \end{description}
+  \setlength{\topsep}{\oldspacing}
+}
+
+\begin{htmlonly}
+   \newcommand{\aref}[1]
+   {
+     \begin{description}
+       \item[REFERENCE:]
+           #1
+     \end{description}
+   }
+\end{htmlonly}
+
+\newcommand{\refs}[1]
+{
+  \goodbreak
+  \setlength{\oldspacing}{\topsep}
+  \setlength{\topsep}{0.3ex}
+  \begin{description}
+    \item[REFERENCES]:
+        #1
+  \end{description}
+  \setlength{\topsep}{\oldspacing}
+}
+\begin{htmlonly}
+   \newcommand{\refs}[1]
+   {
+     \begin{description}
+       \item[REFERENCES:]
+           #1
+     \end{description}
+   }
+\end{htmlonly}
+
+\newcommand{\exampleitem}{\item [EXAMPLE]:}
+\begin{htmlonly}
+   \renewcommand{\exampleitem}{\item [EXAMPLE:]}
+\end{htmlonly}
+
+%------------------------------------------------------------------------------
+% ? End of document specific commands
+% -----------------------------------------------------------------------------
+%  Title Page.
+%  ===========
+\renewcommand{\thepage}{\roman{page}}
+\begin{document}
+\thispagestyle{empty}
+
+%  Latex document header.
+%  ======================
+\begin{latexonly}
+   CCLRC / {\sc Rutherford Appleton Laboratory} \hfill {\bf \stardocname}\\
+   {\large Particle Physics \& Astronomy Research Council}\\
+   {\large Starlink Project\\}
+   {\large \stardoccategory\ \stardocnumber}
+   \begin{flushright}
+   \stardocauthors\\
+   \stardocdate
+   \end{flushright}
+   \vspace{-4mm}
+   \rule{\textwidth}{0.5mm}
+   \vspace{5mm}
+   \begin{center}
+   {\Huge\bf  \stardoctitle \\ [2.5ex]}
+   {\LARGE\bf \stardocversion \\ [4ex]}
+   {\Huge\bf  \stardocmanual}
+   \end{center}
+   \vspace{5mm}
+
+% ? Heading for abstract if used.
+   \vspace{10mm}
+   \begin{center}
+      {\Large\bf Abstract}
+   \end{center}
+% ? End of heading for abstract.
+\end{latexonly}
+
+%  HTML documentation header.
+%  ==========================
+\begin{htmlonly}
+   \xlabel{}
+   \begin{rawhtml} 
     \end{rawhtml}
+      \stardoctitle\\
+      \stardocversion\\
+      \stardocmanual
+   \begin{rawhtml} 
     \end{rawhtml}
+
+% ? Add picture here if required.
+% ? End of picture
+
+   \begin{rawhtml} 
      \end{rawhtml}
+   \stardoccategory \stardocnumber \\
+   \stardocauthors \\
+   \stardocdate
+   \begin{rawhtml}  
     
     \end{rawhtml}
+      \htmladdnormallink{CCLRC}{http://www.cclrc.ac.uk} /
+      \htmladdnormallink{Rutherford Appleton Laboratory}
+                        {http://www.cclrc.ac.uk/ral} \\
+      \htmladdnormallink{Particle Physics \& Astronomy Research Council}
+                        {http://www.pparc.ac.uk} \\
+   \begin{rawhtml} 
     
     \end{rawhtml}
+      \htmladdnormallink{Starlink Project}{http://star-www.rl.ac.uk/}
+   \begin{rawhtml} 
     \end{rawhtml}
+   \htmladdnormallink{\htmladdimg{source.gif} Retrieve hardcopy}
+      {http://star-www.rl.ac.uk/cgi-bin/hcserver?\stardocsource}\\
+
+%  HTML document table of contents.
+%  ================================
+%  Add table of contents header and a navigation button to return to this
+%  point in the document (this should always go before the abstract \section).
+  \label{stardoccontents}
+  \begin{rawhtml}
+    
    
+    
    Contents
    
+  \end{rawhtml}
+  \renewcommand{\latexonlytoc}[0]{}
+  \htmladdtonavigation{\htmlref{\htmladdimg{contents_motif.gif}}
+        {stardoccontents}}
+
+% ? New section for abstract if used.
+  \section{\xlabel{abstract}Abstract}
+% ? End of new section for abstract
+\end{htmlonly}
+
+% -----------------------------------------------------------------------------
+% ? Document Abstract. (if used)
+%   ==================
+SLALIB is a library used by writers of positional-astronomy applications.
+Most of the \nroutines\ routines are concerned with astronomical position and time,
+but a number have wider trigonometrical, numerical or general applications.
+% ? End of document abstract
+% -----------------------------------------------------------------------------
+% ? Latex document Table of Contents (if used).
+%  ===========================================
+ \newpage
+ \begin{latexonly}
+   \setlength{\parskip}{0mm}
+   \latexonlytoc
+   \setlength{\parskip}{\medskipamount}
+   \markright{\stardocname}
+ \end{latexonly}
+% ? End of Latex document table of contents
+% -----------------------------------------------------------------------------
+\newpage
+\renewcommand{\thepage}{\arabic{page}}
+\setcounter{page}{1}
+
+\section{INTRODUCTION}
+\subsection{Purpose}
+SLALIB\footnote{The name isn't an acronym;
+it just stands for ``Subprogram Library~A''.}
+is a library of routines
+intended to make accurate and reliable positional-astronomy
+applications easier to write.
+Most SLALIB routines are concerned with astronomical position and time, but a
+number have wider trigonometrical, numerical or general applications.
+The applications ASTROM, COCO, RV and TPOINT
+all make extensive use of the SLALIB
+routines, as do a number of telescope control systems around the world.
+The SLALIB versions currently in service are written in
+Fortran~77 and run on VAX/VMS, several Unix platforms and PC.
+A generic ANSI~C version is also available from the author;  it is
+functionally similar to the Fortran version upon which the present
+document concentrates.
+
+\subsection{Example Application}
+Here is a simple example of an application program written
+using SLALIB calls:
+
+\begin{verbatim}
+         PROGRAM FK4FK5
+   *
+   *  Read a B1950 position from I/O unit 5 and reply on I/O unit 6
+   *  with the J2000 equivalent.  Enter a period to quit.
+   *
+         IMPLICIT NONE
+         CHARACTER C*80,S
+         INTEGER I,J,IHMSF(4),IDMSF(4)
+         DOUBLE PRECISION R4,D4,R5,D5
+         LOGICAL BAD
+
+   *   Loop until a period is entered
+         C = ' '
+         DO WHILE (C(:1).NE.'.')
+
+   *     Read h m s d ' "
+            READ (5,'(A)') C
+            IF (C(:1).NE.'.') THEN
+               BAD = .TRUE.
+
+   *        Decode the RA
+               I = 1
+               CALL sla_DAFIN(C,I,R4,J)
+               IF (J.EQ.0) THEN
+                  R4 = 15D0*R4
+
+   *           Decode the Dec
+                  CALL sla_DAFIN(C,I,D4,J)
+                  IF (J.EQ.0) THEN
+
+   *              FK4 to FK5
+                     CALL sla_FK45Z(R4,D4,1950D0,R5,D5)
+
+   *              Format and output the result
+                     CALL sla_DR2TF(2,R5,S,IHMSF)
+                     CALL sla_DR2AF(1,D5,S,IDMSF)
+                     WRITE (6,
+        :       '(1X,I2.2,2I3.2,''.'',I2.2,2X,A,I2.2,2I3.2,''.'',I1)')
+        :                                                     IHMSF,S,IDMSF
+                     BAD = .FALSE.
+                  END IF
+               END IF
+               IF (BAD) WRITE (6,'(1X,''?'')')
+            END IF
+         END DO
+
+         END
+\end{verbatim}
+In this example, SLALIB not only provides the complicated FK4 to
+FK5 transformation but also
+simplifies the tedious and error-prone tasks
+of decoding and formatting angles
+expressed as hours, minutes {\it etc}.  The
+example incorporates range checking, and avoids the
+notorious ``minus zero'' problem (an often-perpetrated bug where
+declinations between $0^{\circ}$ and $-1^{\circ}$ lose their minus
+sign).
+With a little extra elaboration and a few more calls to SLALIB,
+defaulting can be provided (enabling unused fields to
+be replaced with commas to avoid retyping), proper motions
+can be handled, different epochs can be specified, and
+so on.  See the program COCO (SUN/56) for further ideas.
+
+\subsection{Scope}
+SLALIB contains \nroutines\ routines covering the following topics:
+\begin{itemize}
+\item String Decoding,
+      Sexagesimal Conversions
+\item Angles, Vectors \& Rotation Matrices
+\item Calendars,
+      Timescales
+\item Precession \& Nutation
+\item Proper Motion
+\item FK4/FK5/Hipparcos,
+      Elliptic Aberration
+\item Geocentric Coordinates
+\item Apparent \& Observed Place
+\item Azimuth \& Elevation
+\item Refraction \& Air Mass
+\item Ecliptic,
+      Galactic,
+      Supergalactic Coordinates
+\item Ephemerides
+\item Astrometry
+\item Numerical Methods
+\end{itemize}
+
+\subsection{Objectives}
+SLALIB was designed to give application programmers
+a basic set of positional-astronomy tools which were
+accurate and easy to use.  To this end, the library is:
+\begin{itemize}
+\item Readily available, including source code and documentation.
+\item Supported and maintained.
+\item Portable -- coded in standard languages and available for
+multiple computers and operating systems.
+\item Thoroughly commented, both for maintainability and to
+assist those wishing to cannibalize the code.
+\item Stable.
+\item Trustworthy -- some care has gone into
+testing SLALIB, both by comparison with published data and
+by checks for internal consistency.
+\item Rigorous -- corners are not cut,
+even where the practical consequences would, as a rule, be
+negligible.
+\item Comprehensive, without including too many esoteric features
+required only by specialists.
+\item Practical -- almost all the routines have been written to
+satisfy real needs encountered during the development of
+real-life applications.
+\item Environment-independent -- the package is
+completely free of pauses, stops, I/O {\it etc}.
+\item Self-contained -- SLALIB calls no other libraries.
+\end{itemize}
+A few {\it caveats}:
+\begin{itemize}
+\item SLALIB does not pretend to be canonical.  It is in essence
+an anthology, and the adopted algorithms are liable
+to change as more up-to-date ones become available.
+\item The functions aren't orthogonal -- there are several
+cases of different
+routines doing similar things, and many examples where
+sequences of SLALIB calls have simply been packaged, all to
+make applications less trouble to write.
+\item There are omissions -- for example there are no
+routines for calculating physical ephemerides of
+Solar-System bodies.
+\item SLALIB is not homogeneous, though important subsets
+(for example the FK4/FK5 routines) are.
+\item The library is not foolproof.  You have to know what
+you are trying to do ({\it e.g.}\ by reading textbooks on positional
+astronomy), and it is the caller's responsibility to supply
+sensible arguments (although enough internal validation is done to
+avoid arithmetic errors).
+\item Without being written in a wasteful
+manner, SLALIB is nonetheless optimized for maintainability
+rather than speed.  In addition, there are many places
+where considerable simplification would be possible if some
+specified amount of accuracy could be sacrificed;  such
+compromises are left to the individual programmer and
+are not allowed to limit SLALIB's value as a source
+of comparison results.
+\end{itemize}
+
+\subsection{Fortran Version}
+The Fortran versions of SLALIB use ANSI Fortran~77 with a few
+commonplace extensions.  Just three out of the \nroutines\ routines require
+platform-specific techniques and accordingly are supplied
+in different forms.
+SLALIB has been implemented on the following platforms:
+VAX/VMS,
+PC (Microsoft Fortran, Linux),
+DECstation (Ultrix),
+DEC Alpha (DEC Unix),
+Sun (SunOS, Solaris),
+Hewlett Packard (HP-UX),
+CONVEX,
+Perkin-Elmer and
+Fujitsu.
+
+\subsection{C Version}
+An ANSI C version of SLALIB is available from the author
+but is not part of the Starlink release.
+The functionality of this (proprietary) C version closely matches
+that of the Starlink Fortran SLALIB, partly for the convenience of
+existing users of the Fortran version, some of whom have in the past
+implemented C ``wrappers''.  The function names
+cannot be the same as the Fortran versions because of potential
+linking problems when
+both forms of the library are present; the C routine which
+is the equivalent of (for example) {\tt SLA\_REFRO} is {\tt slaRefro}.
+The types of arguments follow the Fortran version, except
+that integers are {\tt int} rather than {\tt long}.
+Argument passing is by value
+(except for arrays and strings of course)
+for given arguments and by pointer for returned arguments.
+All the C functions are re-entrant.
+
+The Fortran routines {\tt sla\_GRESID}, {\tt sla\_RANDOM} and
+{\tt sla\_WAIT} have no C counterparts.
+
+Further details of the C version of SLALIB are available
+from the author.  The definitive guide to
+the calling sequences is the file {\tt slalib.h}.
+
+\subsection{Future Versions}
+The homogeneity and ease of use of SLALIB could perhaps be improved
+in the future
+by turning to C++ and object-oriented techniques.  For example ``celestial
+position'' could be a class and many of the transformations
+could happen automatically.  This requires further study and
+would almost certainly result in a complete redesign.
+Similarly,
+the impact of Fortran~90 has yet to be assessed.  Once compilers
+become widely available, some internal recoding may be worthwhile
+in order to simplify parts of the code.  However, as with C++,
+a redesign of the
+application interfaces will be needed if the capabilities of the
+new language are to be exploited to the full.
+
+\subsection{New Functions}
+In a package like SLALIB it is difficult to know how far to go.  Is it
+enough to provide the primitive operations, or should more
+complicated functions be packaged?  Is it worth encroaching on
+specialist areas, where individual experts have all written their
+own software already?  To what extent should CPU efficiency be
+an issue?  How much support of different numerical precisions is
+required?  And so on.
+
+In practice, almost all the routines in SLALIB are there because they were
+needed for some specific application, and this is likely to remain the
+pattern for any enhancements in the future.
+Suggestions for additional SLALIB routines should be addressed to the
+author.
+
+\subsection{Acknowledgements}
+SLALIB is descended from a package of routines written
+for the AAO 16-bit minicomputers
+in the mid-1970s.  The coming of the VAX
+allowed a much more comprehensive and thorough package
+to be designed for Starlink, especially important
+at a time when the adoption
+of the IAU 1976 resolutions meant that astronomers
+would have to cope with a mixture of reference frames,
+timescales and nomenclature.
+
+Much of the preparatory work on SLALIB was done by
+Althea~Wilkinson of Manchester University.
+During its development,
+Andrew~Murray,
+Catherine~Hohenkerk,
+Andrew~Sinclair,
+Bernard~Yallop
+and
+Brian~Emerson of Her Majesty's Nautical Almanac Office were consulted
+on many occasions; their advice was indispensable.
+I am especially grateful to
+Catherine~Hohenkerk
+for supplying preprints of papers, and test data. A number of
+enhancements to SLALIB were at the suggestion of
+Russell~Owen, University of Washington,
+the late Phil~Hill, St~Andrews University,
+Bill~Vacca, JILA, Boulder and
+Ron~Maddalena, NRAO.
+Mark~Calabretta, CSIRO Radiophysics, Sydney supplied changes to suit Convex.
+I am indebted to Derek~Jones (RGO) for introducing me to the
+``universal variables'' method of calculating orbits.
+
+The first C version of SLALIB was a hand-coded transcription
+of the Starlink Fortran version carried out by
+Steve~Eaton (University of Leeds) in the course of
+MSc work.  This was later
+enhanced by John~Straede (AAO) and Martin~Shepherd (Caltech).
+The current C SLALIB is a complete rewrite by the present author and
+includes a comprehensive validation suite.
+Additional comments on the C version came from Bob~Payne (NRAO) and
+Jeremy~Bailey (AAO).
+
+\section{LINKING}
+
+On Unix systems (Sun, DEC Alpha {\it etc.}):
+\begin{verse}
+{\tt \%~~f77 progname.o -L/star/lib `sla\_link` -o progname}
+\end{verse}
+(The above assumes that all Starlink directories have been added to
+the {\tt LD\_LIBRARY\_PATH} and {\tt PATH} environment variables
+as described in SUN/202.)
+
+On VAX/VMS:
+\begin{verse}
+{\tt \$~~LINK progname,SLALIB\_DIR:SLALIB/LIB}
+\end{verse}
+
+\pagebreak
+
+\section{SUBPROGRAM SPECIFICATIONS}
+%-----------------------------------------------------------------------
+\routine{SLA\_ADDET}{Add E-terms of Aberration}
+{
+ \action{Add the E-terms (elliptic component of annual aberration) to a
+  pre IAU 1976 mean place to conform to the old catalogue convention.}
+ \call{CALL sla\_ADDET (RM, DM, EQ, RC, DC)}
+}
+\args{GIVEN}
+{
+ \spec{RM,DM}{D}{\radec\ without E-terms (radians)} \\
+ \spec{EQ}{D}{Besselian epoch of mean equator and equinox}
+}
+\args{RETURNED}
+{
+ \spec{RC,DC}{D}{\radec\ with E-terms included (radians)}
+}
+\anote{Most star positions from pre-1984 optical catalogues (or
+       obtained by astrometry with respect to such stars) have the
+       E-terms built-in.  If it is necessary to convert a formal mean
+       place (for example a pulsar timing position) to one
+       consistent with such a star catalogue, then the 
+       \radec\ should be adjusted using this routine.}
+\aref{{\it Explanatory Supplement to the Astronomical Ephemeris},
+ section 2D, page 48.}
+%-----------------------------------------------------------------------
+\routine{SLA\_AFIN}{Sexagesimal character string to angle}
+{
+ \action{Decode a free-format sexagesimal string (degrees, arcminutes,
+         arcseconds) into a single precision floating point
+         number (radians).}
+ \call{CALL sla\_AFIN (STRING, NSTRT, RESLT, JF)}
+}
+\args{GIVEN}
+{
+ \spec{STRING}{C*(*)}{string containing deg, arcmin, arcsec fields} \\
+ \spec{NSTRT}{I}{pointer to start of decode (beginning of STRING = 1)}
+}
+\args{RETURNED}
+{
+ \spec{NSTRT}{I}{advanced past the decoded angle} \\
+ \spec{RESLT}{R}{angle in radians} \\
+ \spec{JF}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em}   0 = OK} \\
+ \spec{}{}{\hspace{0.7em} $+1$ = default, RESLT unchanged (note 2)} \\
+ \spec{}{}{\hspace{0.7em} $-1$ = bad degrees (note 3)} \\
+ \spec{}{}{\hspace{0.7em} $-2$ = bad arcminutes (note 3)} \\
+ \spec{}{}{\hspace{0.7em} $-3$ = bad arcseconds (note 3)} \\
+}
+\goodbreak
+\setlength{\oldspacing}{\topsep}
+\setlength{\topsep}{0.3ex}
+\begin{description}
+ \exampleitem \\ [1.5ex]
+  \begin{tabular}{p{7em}p{15em}p{12em}}
+   {\it argument} & {\it before} & {\it after} \\ \\
+   STRING & $'$\verb*}-57 17 44.806  12 34 56.7}$'$ & unchanged \\
+   NSTRT & 1 & 16 ({\it i.e.}\ pointing to 12...) \\
+   RESLT & - & $-1.00000$ \\
+   JF & - & 0
+  \end{tabular}
+ \item A further call to sla\_AFIN, without adjustment of NSTRT, will
+       decode the second angle, \dms{12}{34}{56}{7}.
+\end{description}
+\setlength{\topsep}{\oldspacing}
+\notes
+{
+ \begin{enumerate}
+  \item The first three ``fields'' in STRING are degrees, arcminutes,
+   arcseconds, separated by spaces or commas.  The degrees field
+   may be signed, but not the others.  The decoding is carried
+   out by the sla\_DFLTIN routine and is free-format.
+  \item Successive fields may be absent, defaulting to zero.  For
+   zero status, the only combinations allowed are degrees alone,
+   degrees and arcminutes, and all three fields present.  If all
+   three fields are omitted, a status of +1 is returned and RESLT is
+   unchanged.  In all other cases RESLT is changed.
+  \item Range checking:
+   \begin{itemize}
+    \item The degrees field is not range checked.  However, it is
+     expected to be integral unless the other two fields are absent.
+    \item The arcminutes field is expected to be 0-59, and integral if
+     the arcseconds field is present.  If the arcseconds field
+     is absent, the arcminutes is expected to be 0-59.9999...
+    \item The arcseconds field is expected to be 0-59.9999...
+    \item Decoding continues even when a check has failed.  Under these
+     circumstances the field takes the supplied value, defaulting to
+     zero, and the result RESLT is computed and returned.
+   \end{itemize}
+   \item Further fields after the three expected ones are not treated as
+    an error.  The pointer NSTRT is left in the correct state for
+    further decoding with the present routine or with sla\_DFLTIN
+    {\it etc}.  See the example, above.
+   \item If STRING contains hours, minutes, seconds instead of
+    degrees {\it etc},
+    or if the required units are turns (or days) instead of radians,
+    the result RESLT should be multiplied as follows: \\ [1.5ex]
+    \begin{tabular}{p{6em}p{5em}p{15em}}
+    {\it for STRING} & {\it to obtain} & {\it multiply RESLT by} \\ \\
+    ${\circ}$~~\raisebox{-0.7ex}{$'$}~~\raisebox{-0.7ex}{$''$}
+     & radians & $1.0$ \\
+    ${\circ}$~~\raisebox{-0.7ex}{$'$}~~\raisebox{-0.7ex}{$''$}
+     & turns & $1/{2 \pi} = 0.1591549430918953358$ \\
+    h m s & radians & $15.0$ \\
+    h m s & days & $15/{2\pi} = 2.3873241463784300365$ \\
+   \end{tabular}
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_AIRMAS}{Air Mass}
+{
+ \action{Air mass at given zenith distance (double precision).}
+ \call{D~=~sla\_AIRMAS (ZD)}
+}
+\args{GIVEN}
+{
+ \spec{ZD}{D}{observed zenith distance (radians)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_AIRMAS}{D}{air mass (1 at zenith)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The {\it observed}\/ zenith distance referred to above means
+        ``as affected by refraction''.
+  \item The routine uses Hardie's (1962) polynomial fit to Bemporad's
+        data for the relative air mass, $X$, in units of thickness at the
+        zenith as tabulated by Schoenberg (1929). This is adequate for all
+        normal needs as it is accurate to better than
+        0.1\% up to $X = 6.8$ and better than 1\% up to $X = 10$.
+        Bemporad's tabulated values are unlikely to be trustworthy
+        to such accuracy
+        because of variations in density, pressure and other
+        conditions in the atmosphere from those assumed in his work.
+  \item The sign of the ZD is ignored.
+  \item At zenith distances greater than about $\zeta = 87^{\circ}$ the
+        air mass is held constant to avoid arithmetic overflows.
+ \end{enumerate}
+}
+\refs
+{
+ \begin{enumerate}
+  \item Hardie, R.H., 1962, in {\it Astronomical Techniques}\,
+        ed. W.A.\ Hiltner, University of Chicago Press, p180.
+  \item Schoenberg, E., 1929, Hdb.\ d.\ Ap.,
+        Berlin, Julius Springer, 2, 268.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_ALTAZ}{Velocities {\it etc.}\ for Altazimuth Mount}
+{
+ \action{Positions, velocities and accelerations for an altazimuth
+         telescope mount tracking a star (double precision).}
+ \call{CALL sla\_ALTAZ (\vtop{
+         \hbox{HA, DEC, PHI,}
+         \hbox{AZ, AZD, AZDD, EL, ELD, ELDD, PA, PAD, PADD)}}}
+}
+\args{GIVEN}
+{
+ \spec{HA}{D}{hour angle} \\
+ \spec{DEC}{D}{declination} \\
+ \spec{PHI}{D}{observatory latitude}
+}
+\args{RETURNED}
+{
+ \spec{AZ}{D}{azimuth} \\
+ \spec{AZD}{D}{azimuth velocity} \\
+ \spec{AZDD}{D}{azimuth acceleration} \\
+ \spec{EL}{D}{elevation} \\
+ \spec{ELD}{D}{elevation velocity} \\
+ \spec{ELDD}{D}{elevation acceleration} \\
+ \spec{PA}{D}{parallactic angle} \\
+ \spec{PAD}{D}{parallactic angle velocity} \\
+ \spec{PADD}{D}{parallactic angle acceleration}
+}
+\notes
+{
+ \begin{enumerate}
+  \setlength{\parskip}{\medskipamount}
+  \item Natural units are used throughout.  HA, DEC, PHI, AZ, EL
+        and ZD are in radians.  The velocities and accelerations
+        assume constant declination and constant rate of change of
+        hour angle (as for tracking a star);  the units of AZD, ELD
+        and PAD are radians per radian of HA, while the units of AZDD,
+        ELDD and PADD are radians per radian of HA squared.  To
+        convert into practical degree- and second-based units:
+
+        \begin{center}
+        \begin{tabular}{rlcl}
+                  angles & $\times 360/2\pi$ & $\rightarrow$ & degrees \\
+              velocities & $\times (2\pi/86400) \times (360/2\pi)$
+                                             & $\rightarrow$ & degree/sec \\
+           accelerations & $\times (2\pi/86400)^2 \times (360/2\pi)$
+                                             & $\rightarrow$ & degree/sec/sec \\
+        \end{tabular}
+        \end{center}
+
+        Note that the seconds here are sidereal rather than SI.  One
+        sidereal second is about 0.99727 SI seconds.
+
+        The velocity and acceleration factors assume the sidereal
+        tracking case.  Their respective numerical values are (exactly)
+        1/240 and (approximately) 1/3300236.9.
+  \item Azimuth is returned in the range $[\,0,2\pi\,]$;  north is zero,
+        and east is $+\pi/2$.  Elevation and parallactic angle are
+        returned in the range $\pm\pi/2$.  Position angle is +ve
+        for a star west of the meridian and is the angle NP--star--zenith.
+  \item The latitude is geodetic as opposed to geocentric.  The
+        hour angle and declination are topocentric.  Refraction and
+        deficiencies in the telescope mounting are ignored.  The
+        purpose of the routine is to give the general form of the
+        quantities.  The details of a real telescope could profoundly
+        change the results, especially close to the zenith.
+  \item No range checking of arguments is carried out.
+  \item In applications which involve many such calculations, rather
+        than calling the present routine it will be more efficient to
+        use inline code, having previously computed fixed terms such
+        as sine and cosine of latitude, and (for tracking a star)
+        sine and cosine of declination.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_AMP}{Apparent to Mean}
+{
+ \action{Convert star \radec\ from geocentric apparent to
+         mean place (post IAU 1976).}
+ \call{CALL sla\_AMP (RA, DA, DATE, EQ, RM, DM)}
+}
+\args{GIVEN}
+{
+ \spec{RA,DA}{D}{apparent \radec\ (radians)} \\
+ \spec{DATE}{D}{TDB for apparent place (JD$-$2400000.5)} \\
+ \spec{EQ}{D}{equinox:  Julian epoch of mean place}
+}
+\args{RETURNED}
+{
+ \spec{RM,DM}{D}{mean \radec\ (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The distinction between the required TDB and TT is
+        always negligible.  Moreover, for all but the most
+        critical applications UTC is adequate.
+  \item The accuracy is limited by the routine sla\_EVP, called
+        by sla\_MAPPA, which computes the Earth position and
+        velocity using the methods of Stumpff.  The maximum
+        error is about 0.3~milliarcsecond.
+  \item Iterative techniques are used for the aberration and
+        light deflection corrections so that the routines
+        sla\_AMP (or sla\_AMPQK) and sla\_MAP (or sla\_MAPQK) are
+        accurate inverses;  even at the edge of the Sun's disc
+        the discrepancy is only about 1~nanoarcsecond.
+  \item Where multiple apparent places are to be converted to
+        mean places, for a fixed date and equinox, it is more
+        efficient to use the sla\_MAPPA routine to compute the
+        required parameters once, followed by one call to
+        sla\_AMPQK per star.
+ \end{enumerate}
+}
+\refs
+{
+ \begin{enumerate}
+  \item 1984 {\it Astronomical Almanac}, pp B39-B41.
+  \item Lederle \& Schwan, 1984.\ {\it Astr.Astrophys.}\ {\bf 134}, 1-6.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_AMPQK}{Quick Apparent to Mean}
+{
+ \action{Convert star \radec\ from geocentric apparent to mean place
+         (post IAU 1976).  Use of this routine is appropriate when
+         efficiency is important and where many star positions are
+         all to be transformed for one epoch and equinox.  The
+         star-independent parameters can be obtained by calling
+         the sla\_MAPPA routine.}
+ \call{CALL sla\_AMPQK (RA, DA, AMPRMS, RM, DM)}
+}
+\args{GIVEN}
+{
+ \spec{RA,DA}{D}{apparent \radec\ (radians)} \\
+ \spec{AMPRMS}{D(21)}{star-independent mean-to-apparent parameters:} \\
+ \specel   {(1)}     {time interval for proper motion (Julian years)} \\
+ \specel   {(2-4)}   {barycentric position of the Earth (AU)} \\
+ \specel   {(5-7)}   {heliocentric direction of the Earth (unit vector)} \\
+ \specel   {(8)}     {(gravitational radius of
+                      Sun)$\times 2 / $(Sun-Earth distance)} \\
+ \specel   {(9-11)}  {{\bf v}: barycentric Earth velocity in units of c} \\
+ \specel   {(12)}    {$\sqrt{1-\left|\mbox{\bf v}\right|^2}$} \\
+ \specel   {(13-21)} {precession/nutation $3\times3$ matrix}
+}
+\args{RETURNED}
+{
+ \spec{RM,DM}{D}{mean \radec\ (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The accuracy is limited by the routine sla\_EVP, called
+        by sla\_MAPPA, which computes the Earth position and
+        velocity using the methods of Stumpff.  The maximum
+        error is about 0.3~milliarcsecond.
+  \item Iterative techniques are used for the aberration and
+        light deflection corrections so that the routines
+        sla\_AMP (or sla\_AMPQK) and sla\_MAP (or sla\_MAPQK) are
+        accurate inverses;  even at the edge of the Sun's disc
+        the discrepancy is only about 1~nanoarcsecond.
+ \end{enumerate}
+}
+\refs
+{
+ \begin{enumerate}
+  \item 1984 {\it Astronomical Almanac}, pp B39-B41.
+  \item Lederle \& Schwan, 1984.\ {\it Astr.Astrophys.}\ {\bf 134}, 1-6.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_AOP}{Apparent to Observed}
+{
+ \action{Apparent to observed place, for optical sources distant from
+         the solar system.}
+ \call{CALL sla\_AOP (\vtop{
+         \hbox{RAP, DAP, DATE, DUT, ELONGM, PHIM, HM, XP, YP,}
+         \hbox{TDK, PMB, RH, WL, TLR, AOB, ZOB, HOB, DOB, ROB)}}}
+}
+\args{GIVEN}
+{
+ \spec{RAP,DAP}{D}{geocentric apparent \radec\ (radians)} \\
+ \spec{DATE}{D}{UTC date/time (Modified Julian Date, JD$-$2400000.5)} \\
+ \spec{DUT}{D}{$\Delta$UT:  UT1$-$UTC (UTC seconds)} \\
+ \spec{ELONGM}{D}{observer's mean longitude (radians, east +ve)} \\
+ \spec{PHIM}{D}{observer's mean geodetic latitude (radians)} \\
+ \spec{HM}{D}{observer's height above sea level (metres)} \\
+ \spec{XP,YP}{D}{polar motion \xy\ coordinates (radians)} \\
+ \spec{TDK}{D}{local ambient temperature (degrees K; std=273.155D0)} \\
+ \spec{PMB}{D}{local atmospheric pressure (mB; std=1013.25D0)} \\
+ \spec{RH}{D}{local relative humidity (in the range 0D0\,--\,1D0)} \\
+ \spec{WL}{D}{effective wavelength ($\mu{\rm m}$, {\it e.g.}\ 0.55D0)} \\
+ \spec{TLR}{D}{tropospheric lapse rate (degrees K per metre,
+                                              {\it e.g.}\ 0.0065D0)}
+}
+\args{RETURNED}
+{
+ \spec{AOB}{D}{observed azimuth (radians: N=0, E=$90^{\circ}$)} \\
+ \spec{ZOB}{D}{observed zenith distance (radians)} \\
+ \spec{HOB}{D}{observed Hour Angle (radians)} \\
+ \spec{DOB}{D}{observed $\delta$ (radians)} \\
+ \spec{ROB}{D}{observed $\alpha$ (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item This routine returns zenith distance rather than elevation
+        in order to reflect the fact that no allowance is made for
+        depression of the horizon.
+  \item The accuracy of the result is limited by the corrections for
+        refraction.  Providing the meteorological parameters are
+        known accurately and there are no gross local effects, the
+        predicted azimuth and elevation should be within about
+        \arcsec{0}{1} for $\zeta<70^{\circ}$.  Even
+        at a topocentric zenith distance of
+        $90^{\circ}$, the accuracy in elevation should be better than
+        1~arcminute;  useful results are available for a further
+        $3^{\circ}$, beyond which the sla\_REFRO routine returns a
+        fixed value of the refraction.  The complementary
+        routines sla\_AOP (or sla\_AOPQK) and sla\_OAP (or sla\_OAPQK)
+        are self-consistent to better than 1~microarcsecond all over
+        the celestial sphere.
+  \item It is advisable to take great care with units, as even
+        unlikely values of the input parameters are accepted and
+        processed in accordance with the models used.
+  \item {\it Apparent}\/ \radec\ means the geocentric apparent right ascension
+        and declination, which is obtained from a catalogue mean place
+        by allowing for space motion, parallax, precession, nutation,
+        annual aberration, and the Sun's gravitational lens effect.  For
+        star positions in the FK5 system ({\it i.e.}\ J2000), these effects can
+        be applied by means of the sla\_MAP {\it etc.}\ routines.  Starting from
+        other mean place systems, additional transformations will be
+        needed;  for example, FK4 ({\it i.e.}\ B1950) mean places would first
+        have to be converted to FK5, which can be done with the
+        sla\_FK425 {\it etc.}\ routines.
+  \item {\it Observed}\/ \azel\ means the position that would be seen by a
+        perfect theodolite located at the observer.  This is obtained
+        from the geocentric apparent \radec\ by allowing for Earth
+        orientation and diurnal aberration, rotating from equator
+        to horizon coordinates, and then adjusting for refraction.
+        The \hadec\ is obtained by rotating back into equatorial
+        coordinates, using the geodetic latitude corrected for polar
+        motion, and is the position that would be seen by a perfect
+        equatorial located at the observer and with its polar axis
+        aligned to the Earth's axis of rotation ({\it n.b.}\ not to the
+        refracted pole).  Finally, the $\alpha$ is obtained by subtracting
+        the {\it h}\/ from the local apparent ST.
+  \item To predict the required setting of a real telescope, the
+        observed place produced by this routine would have to be
+        adjusted for the tilt of the azimuth or polar axis of the
+        mounting (with appropriate corrections for mount flexures),
+        for non-perpendicularity between the mounting axes, for the
+        position of the rotator axis and the pointing axis relative
+        to it, for tube flexure, for gear and encoder errors, and
+        finally for encoder zero points.  Some telescopes would, of
+        course, exhibit other properties which would need to be
+        accounted for at the appropriate point in the sequence.
+  \item This routine takes time to execute, due mainly to the
+        rigorous integration used to evaluate the refraction.
+        For processing multiple stars for one location and time,
+        call sla\_AOPPA once followed by one call per star to sla\_AOPQK.
+        Where a range of times within a limited period of a few hours
+        is involved, and the highest precision is not required, call
+        sla\_AOPPA once, followed by a call to sla\_AOPPAT each time the
+        time changes, followed by one call per star to sla\_AOPQK.
+  \item The DATE argument is UTC expressed as an MJD.  This is,
+        strictly speaking, wrong, because of leap seconds.  However,
+        as long as the $\Delta$UT and the UTC are consistent there
+        are no difficulties, except during a leap second.  In this
+        case, the start of the 61st second of the final minute should
+        begin a new MJD day and the old pre-leap $\Delta$UT should
+        continue to be used.  As the 61st second completes, the MJD
+        should revert to the start of the day as, simultaneously,
+        the $\Delta$UT changes by one second to its post-leap new value.
+  \item The $\Delta$UT (UT1$-$UTC) is tabulated in IERS circulars and
+        elsewhere.  It increases by exactly one second at the end of
+        each UTC leap second, introduced in order to keep $\Delta$UT
+        within $\pm$\tsec{0}{9}.
+  \item IMPORTANT -- TAKE CARE WITH THE LONGITUDE SIGN CONVENTION.  The
+        longitude required by the present routine is {\bf east-positive},
+        in accordance with geographical convention (and right-handed).
+        In particular, note that the longitudes returned by the
+        sla\_OBS routine are west-positive (as in the {\it Astronomical
+        Almanac}\/ before 1984) and must be reversed in sign before use
+        in the present routine.
+  \item The polar coordinates XP,YP can be obtained from IERS
+        circulars and equivalent publications.  The
+        maximum amplitude is about \arcsec{0}{3}.  If XP,YP values
+        are unavailable, use XP=YP=0D0.  See page B60 of the 1988
+        {\it Astronomical Almanac}\/ for a definition of the two angles.
+  \item The height above sea level of the observing station, HM,
+        can be obtained from the {\it Astronomical Almanac}\/ (Section J
+        in the 1988 edition), or via the routine sla\_OBS.  If P,
+        the pressure in mB, is available, an adequate
+        estimate of HM can be obtained from the following expression:
+        \begin{quote}
+         {\tt HM=-29.3D0*TSL*LOG(P/1013.25D0)}
+        \end{quote}
+        where TSL is the approximate sea-level air temperature in degrees K
+        (see {\it Astrophysical Quantities}, C.W.Allen, 3rd~edition,
+        \S 52).  Similarly, if the pressure P is not known,
+        it can be estimated from the height of the observing
+        station, HM as follows:
+        \begin{quote}
+         {\tt P=1013.25D0*EXP(-HM/(29.3D0*TSL))}
+        \end{quote}
+        Note, however, that the refraction is proportional to the
+        pressure and that an accurate P value is important for
+        precise work.
+  \item The azimuths {\it etc.}\ used by the present routine are with
+        respect to the celestial pole.  Corrections to the terrestrial pole
+        can be computed using sla\_POLMO.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_AOPPA}{Appt-to-Obs Parameters}
+{
+ \action{Pre-compute the set of apparent to observed place parameters
+         required by the ``quick'' routines sla\_AOPQK and sla\_OAPQK.}
+ \call{CALL sla\_AOPPA (\vtop{
+          \hbox{DATE, DUT, ELONGM, PHIM, HM, XP, YP,}
+          \hbox{TDK, PMB, RH, WL, TLR, AOPRMS)}}}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{UTC date/time (Modified Julian Date, JD$-$2400000.5)} \\
+ \spec{DUT}{D}{$\Delta$UT:  UT1$-$UTC (UTC seconds)} \\
+ \spec{ELONGM}{D}{observer's mean longitude (radians, east +ve)} \\
+ \spec{PHIM}{D}{observer's mean geodetic latitude (radians)} \\
+ \spec{HM}{D}{observer's height above sea level (metres)} \\
+ \spec{XP,YP}{D}{polar motion \xy\ coordinates (radians)} \\
+ \spec{TDK}{D}{local ambient temperature (degrees K; std=273.155D0)} \\
+ \spec{PMB}{D}{local atmospheric pressure (mB; std=1013.25D0)} \\
+ \spec{RH}{D}{local relative humidity (in the range 0D0\,--\,1D0)} \\
+ \spec{WL}{D}{effective wavelength ($\mu{\rm m}$, {\it e.g.}\ 0.55D0)} \\
+ \spec{TLR}{D}{tropospheric lapse rate (degrees K per metre,
+                                              {\it e.g.}\ 0.0065D0)}
+}
+\args{RETURNED}
+{
+ \spec{AOPRMS}{D(14)}{star-independent apparent-to-observed parameters:} \\
+ \specel   {(1)}     {geodetic latitude (radians)} \\
+ \specel   {(2,3)}   {sine and cosine of geodetic latitude} \\
+ \specel   {(4)}     {magnitude of diurnal aberration vector} \\
+ \specel   {(5)}     {height (HM)} \\
+ \specel   {(6)}     {ambient temperature (TDK)} \\
+ \specel   {(7)}     {pressure (PMB)} \\
+ \specel   {(8)}     {relative humidity (RH)} \\
+ \specel   {(9)}     {wavelength (WL)} \\
+ \specel   {(10)}    {lapse rate (TLR)} \\
+ \specel   {(11,12)} {refraction constants A and B (radians)} \\
+ \specel   {(13)}    {longitude + eqn of equinoxes +
+                       ``sidereal $\Delta$UT'' (radians)} \\
+ \specel   {(14)}    {local apparent sidereal time (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item It is advisable to take great care with units, as even
+        unlikely values of the input parameters are accepted and
+        processed in accordance with the models used.
+  \item The DATE argument is UTC expressed as an MJD.  This is,
+        strictly speaking, wrong, because of leap seconds.  However,
+        as long as the $\Delta$UT and the UTC are consistent there
+        are no difficulties, except during a leap second.  In this
+        case, the start of the 61st second of the final minute should
+        begin a new MJD day and the old pre-leap $\Delta$UT should
+        continue to be used.  As the 61st second completes, the MJD
+        should revert to the start of the day as, simultaneously,
+        the $\Delta$UT changes by one second to its post-leap new value.
+  \item The $\Delta$UT (UT1$-$UTC) is tabulated in IERS circulars and
+        elsewhere.  It increases by exactly one second at the end of
+        each UTC leap second, introduced in order to keep $\Delta$UT
+        within $\pm$\tsec{0}{9}.  The ``sidereal $\Delta$UT'' which forms
+        part of AOPRMS(13) is the same quantity, but converted from solar
+        to sidereal seconds and expressed in radians.
+  \item IMPORTANT -- TAKE CARE WITH THE LONGITUDE SIGN CONVENTION.  The
+        longitude required by the present routine is {\bf east-positive},
+        in accordance with geographical convention (and right-handed).
+        In particular, note that the longitudes returned by the
+        sla\_OBS routine are west-positive (as in the {\it Astronomical
+        Almanac}\/ before 1984) and must be reversed in sign before use in
+        the present routine.
+  \item The polar coordinates XP,YP can be obtained from IERS
+        circulars and equivalent publications.  The
+        maximum amplitude is about \arcsec{0}{3}.  If XP,YP values
+        are unavailable, use XP=YP=0D0.  See page B60 of the 1988
+        {\it Astronomical Almanac}\/ for a definition of the two angles.
+  \item The height above sea level of the observing station, HM,
+        can be obtained from the {\it Astronomical Almanac}\/ (Section J
+        in the 1988 edition), or via the routine sla\_OBS.  If P,
+        the pressure in mB, is available, an adequate
+        estimate of HM can be obtained from the following expression:
+        \begin{quote}
+         {\tt HM=-29.3D0*TSL*LOG(P/1013.25D0)}
+        \end{quote}
+        where TSL is the approximate sea-level air temperature in degrees K
+        (see {\it Astrophysical Quantities}, C.W.Allen, 3rd~edition,
+        \S 52).  Similarly, if the pressure P is not known,
+        it can be estimated from the height of the observing
+        station, HM as follows:
+        \begin{quote}
+         {\tt P=1013.25D0*EXP(-HM/(29.3D0*TSL))}
+        \end{quote}
+        Note, however, that the refraction is proportional to the
+        pressure and that an accurate P value is important for
+        precise work.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_AOPPAT}{Update Appt-to-Obs Parameters}
+{
+ \action{Recompute the sidereal time in the apparent to observed place
+         star-independent parameter block.}
+ \call{CALL sla\_AOPPAT (DATE, AOPRMS)}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{UTC date/time (Modified Julian Date, JD$-$2400000.5)} \\
+ \spec{AOPRMS}{D(14)}{star-independent apparent-to-observed parameters:} \\
+ \specel{(1-12)}{not required} \\
+ \specel{(13)}{longitude + eqn of equinoxes +
+               ``sidereal $\Delta$UT'' (radians)} \\
+ \specel{(14)}{not required}
+}
+\args{RETURNED}
+{
+ \spec{AOPRMS}{D(14)}{star-independent apparent-to-observed parameters:} \\
+ \specel{(1-13)}{not changed} \\
+ \specel{(14)}{local apparent sidereal time (radians)}
+}
+\anote{For more information, see sla\_AOPPA.}
+%-----------------------------------------------------------------------
+\routine{SLA\_AOPQK}{Quick Appt-to-Observed}
+{
+ \action{Quick apparent to observed place (but see Note~8, below).}
+ \call{CALL sla\_AOPQK (RAP, DAP, AOPRMS, AOB, ZOB, HOB, DOB, ROB)}
+}
+\args{GIVEN}
+{
+ \spec{RAP,DAP}{D}{geocentric apparent \radec\ (radians)} \\
+ \spec{AOPRMS}{D(14)}{star-independent apparent-to-observed parameters:} \\
+ \specel{(1)}{geodetic latitude (radians)} \\
+ \specel{(2,3)}{sine and cosine of geodetic latitude} \\
+ \specel{(4)}{magnitude of diurnal aberration vector} \\
+ \specel{(5)}{height (metres)} \\
+ \specel{(6)}{ambient temperature (degrees K)} \\
+ \specel{(7)}{pressure (mB)} \\
+ \specel{(8)}{relative humidity (0\,--\,1)} \\
+ \specel{(9)}{wavelength ($\mu{\rm m}$)} \\
+ \specel{(10)}{lapse rate (degrees K per metre)} \\
+ \specel{(11,12)}{refraction constants A and B (radians)} \\
+ \specel{(13)}{longitude + eqn of equinoxes +
+               ``sidereal $\Delta$UT'' (radians)} \\
+ \specel{(14)}{local apparent sidereal time (radians)}
+}
+\args{RETURNED}
+{
+ \spec{AOB}{D}{observed azimuth (radians: N=0, E=$90^{\circ}$)} \\
+ \spec{ZOB}{D}{observed zenith distance (radians)} \\
+ \spec{HOB}{D}{observed Hour Angle (radians)} \\
+ \spec{DOB}{D}{observed Declination (radians)} \\
+ \spec{ROB}{D}{observed Right Ascension (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item This routine returns zenith distance rather than elevation
+        in order to reflect the fact that no allowance is made for
+        depression of the horizon.
+  \item The accuracy of the result is limited by the corrections for
+        refraction.  Providing the meteorological parameters are
+        known accurately and there are no gross local effects, the
+        predicted azimuth and elevation should be within about
+        \arcsec{0}{1} for $\zeta<70^{\circ}$.  Even
+        at a topocentric zenith distance of
+        $90^{\circ}$, the accuracy in elevation should be better than
+        1~arcminute;  useful results are available for a further
+        $3^{\circ}$, beyond which the sla\_REFRO routine returns a
+        fixed value of the refraction.  The complementary
+        routines sla\_AOP (or sla\_AOPQK) and sla\_OAP (or sla\_OAPQK)
+        are self-consistent to better than 1~microarcsecond all over
+        the celestial sphere.
+  \item It is advisable to take great care with units, as even
+        unlikely values of the input parameters are accepted and
+        processed in accordance with the models used.
+  \item {\it Apparent}\/ \radec\ means the geocentric apparent right ascension
+        and declination, which is obtained from a catalogue mean place
+        by allowing for space motion, parallax, precession, nutation,
+        annual aberration, and the Sun's gravitational lens effect.  For
+        star positions in the FK5 system ({\it i.e.}\ J2000), these effects can
+        be applied by means of the sla\_MAP {\it etc.}\ routines.  Starting from
+        other mean place systems, additional transformations will be
+        needed;  for example, FK4 ({\it i.e.}\ B1950) mean places would first
+        have to be converted to FK5, which can be done with the
+        sla\_FK425 {\it etc.}\ routines.
+  \item {\it Observed}\/ \azel\ means the position that would be seen by a
+        perfect theodolite located at the observer.  This is obtained
+        from the geocentric apparent \radec\ by allowing for Earth
+        orientation and diurnal aberration, rotating from equator
+        to horizon coordinates, and then adjusting for refraction.
+        The \hadec\ is obtained by rotating back into equatorial
+        coordinates, using the geodetic latitude corrected for polar
+        motion, and is the position that would be seen by a perfect
+        equatorial located at the observer and with its polar axis
+        aligned to the Earth's axis of rotation ({\it n.b.}\ not to the
+        refracted pole).  Finally, the $\alpha$ is obtained by subtracting
+        the {\it h}\/ from the local apparent ST.
+  \item To predict the required setting of a real telescope, the
+        observed place produced by this routine would have to be
+        adjusted for the tilt of the azimuth or polar axis of the
+        mounting (with appropriate corrections for mount flexures),
+        for non-perpendicularity between the mounting axes, for the
+        position of the rotator axis and the pointing axis relative
+        to it, for tube flexure, for gear and encoder errors, and
+        finally for encoder zero points.  Some telescopes would, of
+        course, exhibit other properties which would need to be
+        accounted for at the appropriate point in the sequence.
+  \item The star-independent apparent-to-observed-place parameters
+        in AOPRMS may be computed by means of the sla\_AOPPA routine.
+        If nothing has changed significantly except the time, the
+        sla\_AOPPAT routine may be used to perform the requisite
+        partial recomputation of AOPRMS.
+  \item The  ``sidereal $\Delta$UT'' which forms part of AOPRMS(13)
+        is UT1$-$UTC converted from solar to
+        sidereal seconds and expressed in radians.
+  \item At zenith distances beyond about $76^\circ$, the need for
+        special care with the corrections for refraction causes a
+        marked increase in execution time.  Moreover, the effect
+        gets worse with increasing zenith distance.  Adroit
+        programming in the calling application may allow the
+        problem to be reduced.  Prepare an alternative AOPRMS array,
+        computed for zero air-pressure;  this will disable the
+        refraction corrections and cause rapid execution.  Using
+        this AOPRMS array, a preliminary call to the present routine
+        will, depending on the application, produce a rough position
+        which may be enough to establish whether the full, slow
+        calculation (using the real AOPRMS array) is worthwhile.
+        For example, there would be no need for the full calculation
+        if the preliminary call had already established that the
+        source was well below the elevation limits for a particular
+        telescope.
+  \item The azimuths {\it etc.}\ used by the present routine are with
+        respect to the celestial pole.  Corrections to the terrestrial pole
+        can be computed using sla\_POLMO.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_ATMDSP}{Atmospheric Dispersion}
+{
+ \action{Apply atmospheric-dispersion adjustments to refraction coefficients.}
+ \call{CALL sla\_ATMDSP (TDK, PMB, RH, WL1, A1, B1, WL2, A2, B2)}
+}
+\args{GIVEN}
+{
+ \spec{TDK}{D}{ambient temperature at the observer (degrees K)} \\
+ \spec{PMB}{D}{pressure at the observer (mB)} \\
+ \spec{RH}{D}{relative humidity at the observer (range 0\,--\,1)} \\
+ \spec{WL1}{D}{base wavelength ($\mu{\rm m}$)} \\
+ \spec{A1}{D}{refraction coefficient A for wavelength WL1 (radians)} \\
+ \spec{B1}{D}{refraction coefficient B for wavelength WL1 (radians)} \\
+ \spec{WL2}{D}{wavelength for which adjusted A,B required ($\mu{\rm m}$)}
+}
+\args{RETURNED}
+{
+ \spec{A2}{D}{refraction coefficient A for wavelength WL2 (radians)} \\
+ \spec{B2}{D}{refraction coefficient B for wavelength WL2 (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item To use this routine, first call sla\_REFCO specifying WL1 as the
+        wavelength.  This yields refraction coefficients A1, B1, correct
+        for that wavelength.  Subsequently, calls to sla\_ATMDSP specifying
+        different wavelengths will produce new, slightly adjusted
+        refraction coefficients A2, B2, which apply to the specified wavelength.
+  \item Most of the atmospheric dispersion happens between $0.7\,\mu{\rm m}$
+        and the UV atmospheric cutoff, and the effect increases strongly
+        towards the UV end.  For this reason a blue reference wavelength
+        is recommended, for example $0.4\,\mu{\rm m}$.
+  \item The accuracy, for this set of conditions: \\[1pc]
+   \hspace*{5ex} \begin{tabular}{rcl}
+        height above sea level & ~ & 2000\,m \\
+                      latitude & ~ & $29^\circ$ \\
+                      pressure & ~ & 793\,mB \\
+                   temperature & ~ & $290^\circ$\,K \\
+                      humidity & ~ & 0.5 (50\%) \\
+                    lapse rate & ~ & $0.0065^\circ m^{-1}$ \\
+          reference wavelength & ~ & $0.4\,\mu{\rm m}$ \\
+                star elevation & ~ & $15^\circ$ \\
+                  \end{tabular}\\[1pc]
+        is about 2.5\,mas RMS between 0.3 and $1.0\,\mu{\rm m}$, and stays
+        within 4\,mas for the whole range longward of $0.3\,\mu{\rm m}$
+        (compared with a total dispersion from 0.3 to $20\,\mu{\rm m}$
+        of about \arcseci{11}).  These errors are typical for ordinary
+        conditions;  in extreme conditions values a few times this size
+        may occur.
+  \item If either wavelength exceeds $100\,\mu{\rm m}$, the radio case
+        is assumed and the returned refraction coefficients are the
+        same as the given ones.
+  \item The algorithm consists of calculation of the refractivity of the
+        air at the observer for the two wavelengths, using the methods
+        of the sla\_REFRO routine, and then scaling of the two refraction
+        coefficients according to classical refraction theory.  This
+        amounts to scaling the A coefficient in proportion to $(\mu-1)$ and
+        the B coefficient almost in the same ratio (see R.M.Green,
+        {\it Spherical Astronomy,}\/ Cambridge University Press, 1985).
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_AV2M}{Rotation Matrix from Axial Vector}
+{
+ \action{Form the rotation matrix corresponding to a given axial vector
+         (single precision).}
+ \call{CALL sla\_AV2M (AXVEC, RMAT)}
+}
+\args{GIVEN}
+{
+ \spec{AXVEC}{R(3)}{axial vector (radians)}
+}
+\args{RETURNED}
+{
+ \spec{RMAT}{R(3,3)}{rotation matrix}
+}
+\notes
+{
+ \begin{enumerate}
+  \item A rotation matrix describes a rotation about some arbitrary axis.
+        The axis is called the {\it Euler axis}, and the angle through which the
+        reference frame rotates is called the Euler angle.  The axial
+        vector supplied to this routine has the same direction as the
+        Euler axis, and its magnitude is the Euler angle in radians.
+  \item If AXVEC is null, the unit matrix is returned.
+  \item The reference frame rotates clockwise as seen looking along
+        the axial vector from the origin.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_BEAR}{Direction Between Points on a Sphere}
+{
+ \action{Returns the bearing (position angle) of one point on a
+         sphere seen from another (single precision).}
+ \call{R~=~sla\_BEAR (A1, B1, A2, B2)}
+}
+\args{GIVEN}
+{
+ \spec{A1,B1}{R}{spherical coordinates of one point} \\
+ \spec{A2,B2}{R}{spherical coordinates of the other point}
+}
+\args{RETURNED}
+{
+ \spec{sla\_BEAR}{R}{bearing from first point to second}
+}
+\notes
+{
+ \begin{enumerate}
+ \item The spherical coordinates are \radec,
+       $[\lambda,\phi]$ {\it etc.}, in radians.
+ \item The result is the bearing (position angle), in radians,
+       of point [A2,B2] as seen
+       from point [A1,B1].  It is in the range $\pm \pi$.  The sense
+       is such that if [A2,B2]
+       is a small distance due east of [A1,B1] the result
+       is about $+\pi/2$. Zero is returned
+       if the two points are coincident.
+ \item If either B-coordinate is outside the range $\pm\pi/2$, the
+       result may correspond to ``the long way round''.
+ \item The routine sla\_PAV performs an equivalent function except
+       that the points are specified in the form of Cartesian unit
+       vectors.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_CAF2R}{Deg,Arcmin,Arcsec to Radians}
+{
+ \action{Convert degrees, arcminutes, arcseconds to radians
+         (single precision).}
+ \call{CALL sla\_CAF2R (IDEG, IAMIN, ASEC, RAD, J)}
+}
+\args{GIVEN}
+{
+ \spec{IDEG}{I}{degrees} \\
+ \spec{IAMIN}{I}{arcminutes} \\
+ \spec{ASEC}{R}{arcseconds}
+}
+\args{RETURNED}
+{
+ \spec{RAD}{R}{angle in radians} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} 1 = IDEG outside range 0$-$359} \\
+ \spec{}{}{\hspace{1.5em} 2 = IAMIN outside range 0$-$59} \\
+ \spec{}{}{\hspace{1.5em} 3 = ASEC outside range 0$-$59.999$\cdots$}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The result is computed even if any of the range checks fail.
+  \item The sign must be dealt with outside this routine.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_CALDJ}{Calendar Date to MJD}
+{
+ \action{Gregorian Calendar to Modified Julian Date, with century default.}
+ \call{CALL sla\_CALDJ (IY, IM, ID, DJM, J)}
+}
+\args{GIVEN}
+{
+ \spec{IY,IM,ID}{I}{year, month, day in Gregorian calendar}
+}
+\args{RETURNED}
+{
+ \spec{DJM}{D}{modified Julian Date (JD$-$2400000.5) for $0^{\rm h}$} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} 0 = OK} \\
+ \spec{}{}{\hspace{1.5em} 1 = bad year   (MJD not computed)} \\
+ \spec{}{}{\hspace{1.5em} 2 = bad month  (MJD not computed)} \\
+ \spec{}{}{\hspace{1.5em} 3 = bad day    (MJD computed)} \\
+}
+\notes
+{
+ \begin{enumerate}
+  \item This routine supports the {\it century default}\/ feature.
+        Acceptable years are:
+        \begin{itemize}
+         \item 00-49, interpreted as 2000\,--\,2049,
+         \item 50-99, interpreted as 1950\,--\,1999, and
+         \item 100 upwards, interpreted literally.
+        \end{itemize}
+        For 1-100AD use the routine sla\_CLDJ instead.
+  \item For year $n$BC use IY = $-(n-1)$.
+  \item When an invalid year or month is supplied (status J~=~1~or~2)
+        the MJD is {\bf not} computed.  When an invalid day is supplied
+        (status J~=~3) the MJD {\bf is} computed.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_CALYD}{Calendar to Year, Day}
+{
+ \action{Gregorian calendar date to year and day in year, in a Julian
+         calendar aligned to the 20th/21st century Gregorian calendar,
+         with century default.}
+ \call{CALL sla\_CALYD (IY, IM, ID, NY, ND, J)}
+}
+\args{GIVEN}
+{
+ \spec{IY,IM,ID}{I}{year, month, day in Gregorian calendar:
+                    year may optionally omit the century}
+}
+\args{RETURNED}
+{
+ \spec{NY}{I}{year (re-aligned Julian calendar)} \\
+ \spec{ND}{I}{day in year (1 = January 1st)} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em}  0 = OK} \\
+ \spec{}{}{\hspace{1.5em}  1 = bad year (before $-4711$)} \\
+ \spec{}{}{\hspace{1.5em}  2 = bad month} \\
+ \spec{}{}{\hspace{1.5em}  3 = bad day}
+}
+\notes
+{
+ \begin{enumerate}
+  \item This routine supports the {\it century default}\/ feature.
+        Acceptable years are:
+        \begin{itemize}
+         \item 00-49, interpreted as 2000\,--\,2049,
+         \item 50-99, interpreted as 1950\,--\,1999, and
+         \item other years after -4712 , interpreted literally.
+        \end{itemize}
+        Use sla\_CLYD for years before 100AD.
+  \item The purpose of sla\_CALDJ is to support
+        sla\_EARTH, sla\_MOON and sla\_ECOR.
+  \item Between 1900~March~1 and 2100~February~28 it returns answers
+        which are consistent with the ordinary Gregorian calendar.
+        Outside this range there will be a discrepancy which increases
+        by one day for every non-leap century year.
+  \item When an invalid year or month is supplied (status J~=~1 or J~=~2)
+        the results are {\bf not} computed.  When a day is
+        supplied which is outside the conventional range (status J~=~3)
+        the results {\bf are} computed.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_CC2S}{Cartesian to Spherical}
+{
+ \action{Cartesian coordinates to spherical coordinates (single precision).}
+ \call{CALL sla\_CC2S (V, A, B)}
+}
+\args{GIVEN}
+{
+ \spec{V}{R(3)}{\xyz\ vector}
+}
+\args{RETURNED}
+{
+ \spec{A,B}{R}{spherical coordinates in radians}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The spherical coordinates are longitude (+ve anticlockwise
+        looking from the +ve latitude pole) and latitude.  The
+        Cartesian coordinates are right handed, with the {\it x}-axis
+        at zero longitude and latitude, and the {\it z}-axis at the
+        +ve latitude pole.
+  \item If V is null, zero A and B are returned.
+  \item At either pole, zero A is returned.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_CC62S}{Cartesian 6-Vector to Spherical}
+{
+ \action{Conversion of position \& velocity in Cartesian coordinates
+         to spherical coordinates (single precision).}
+ \call{CALL sla\_CC62S (V, A, B, R, AD, BD, RD)}
+}
+\args{GIVEN}
+{
+ \spec{V}{R(6)}{\xyzxyzd}
+}
+\args{RETURNED}
+{
+ \spec{A}{R}{longitude (radians) -- for example $\alpha$} \\
+ \spec{B}{R}{latitude (radians) -- for example $\delta$} \\
+ \spec{R}{R}{radial coordinate} \\
+ \spec{AD}{R}{longitude derivative (radians per unit time)} \\
+ \spec{BD}{R}{latitude derivative (radians per unit time)} \\
+ \spec{RD}{R}{radial derivative}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_CD2TF}{Days to Hour,Min,Sec}
+{
+ \action{Convert an interval in days to hours, minutes, seconds
+         (single precision).}
+ \call{CALL sla\_CD2TF (NDP, DAYS, SIGN, IHMSF)}
+}
+\args{GIVEN}
+{
+ \spec{NDP}{I}{number of decimal places of seconds} \\
+ \spec{DAYS}{R}{interval in days}
+}
+\args{RETURNED}
+{
+ \spec{SIGN}{C}{`+' or `$-$'} \\
+ \spec{IHMSF}{I(4)}{hours, minutes, seconds, fraction}
+}
+\notes
+{
+ \begin{enumerate}
+  \item NDP less than zero is interpreted as zero.
+  \item The largest useful value for NDP is determined by the size of
+        DAYS, the format of REAL floating-point numbers on the target
+        machine, and the risk of overflowing IHMSF(4).  For example,
+        on a VAX computer, for DAYS up to 1.0, the available floating-point
+        precision corresponds roughly to NDP=3.  This is well below
+        the ultimate limit of NDP=9 set by the capacity of the 32-bit
+        integer IHMSF(4).
+  \item The absolute value of DAYS may exceed 1.0.  In cases where it
+        does not, it is up to the caller to test for and handle the
+        case where DAYS is very nearly 1.0 and rounds up to 24~hours,
+        by testing for IHMSF(1)=24 and setting IHMSF(1-4) to zero.
+\end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_CLDJ}{Calendar to MJD}
+{
+ \action{Gregorian Calendar to Modified Julian Date.}
+ \call{CALL sla\_CLDJ (IY, IM, ID, DJM, J)}
+}
+\args{GIVEN}
+{
+ \spec{IY,IM,ID}{I}{year, month, day in Gregorian calendar}
+}
+\args{RETURNED}
+{
+ \spec{DJM}{D}{modified Julian Date (JD$-$2400000.5) for $0^{\rm h}$} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} 0 = OK} \\
+ \spec{}{}{\hspace{1.5em} 1 = bad year} \\
+ \spec{}{}{\hspace{1.5em} 2 = bad month} \\
+ \spec{}{}{\hspace{1.5em} 3 = bad day}
+}
+\notes
+{
+ \begin{enumerate}
+  \item When an invalid year or month is supplied (status J~=~1~or~2)
+        the MJD is {\bf not} computed.  When an invalid day is supplied
+        (status J~=~3) the MJD {\bf is} computed.
+  \item The year must be $-$4699 ({\it i.e.}\ 4700BC) or later.
+        For year $n$BC use IY = $-(n-1)$.
+  \item An alternative to the present routine is sla\_CALDJ, which
+        accepts a year with the century missing.
+ \end{enumerate}
+}
+\aref{The algorithm is derived from that of Hatcher,
+      {\it Q.\,Jl.\,R.\,astr.\,Soc.}\ (1984) {\bf 25}, 53-55.}
+%-----------------------------------------------------------------------
+\routine{SLA\_CLYD}{Calendar to Year, Day}
+{
+ \action{Gregorian calendar date to year and day in year, in a Julian
+         calendar aligned to the 20th/21st century Gregorian calendar.}
+ \call{CALL sla\_CLYD (IY, IM, ID, NY, ND, J)}
+}
+\args{GIVEN}
+{
+ \spec{IY,IM,ID}{I}{year, month, day in Gregorian calendar}
+}
+\args{RETURNED}
+{
+ \spec{NY}{I}{year (re-aligned Julian calendar)} \\
+ \spec{ND}{I}{day in year (1 = January 1st)} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em}  0 = OK} \\
+ \spec{}{}{\hspace{1.5em}  1 = bad year (before $-4711$)} \\
+ \spec{}{}{\hspace{1.5em}  2 = bad month} \\
+ \spec{}{}{\hspace{1.5em}  3 = bad day}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The purpose of sla\_CLYD is to support sla\_EARTH,
+        sla\_MOON and sla\_ECOR.
+  \item Between 1900~March~1 and 2100~February~28 it returns answers
+        which are consistent with the ordinary Gregorian calendar.
+        Outside this range there will be a discrepancy which increases
+        by one day for every non-leap century year.
+  \item When an invalid year or month is supplied (status J~=~1 or J~=~2)
+        the results are {\bf not} computed.  When a day is
+        supplied which is outside the conventional range (status J~=~3)
+        the results {\bf are} computed.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_COMBN}{Next Combination}
+{
+ \action{Generate the next combination, a subset of a specified size chosen
+         from a specified number of items.}
+ \call{CALL sla\_COMBN (NSEL, NCAND, LIST, J)}
+}
+\args{GIVEN}
+{
+ \spec{NSEL}{I}{number of items (subset size)} \\
+ \spec{NCAND}{I}{number of candidates (set size)}
+}
+\args{GIVEN and RETURNED}
+{
+ \spec{LIST}{I(NSEL)}{latest combination, LIST(1)=0 to initialize}
+}
+\args{RETURNED}
+{
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} $-$1 = illegal NSEL or NCAND} \\
+ \spec{}{}{\hspace{2.3em}    0 = OK} \\
+ \spec{}{}{\hspace{1.5em} $+$1 = no more combinations available}
+}
+\notes
+{
+ \begin{enumerate}
+  \item NSEL and NCAND must both be at least 1, and NSEL must be less
+        than or equal to NCAND.
+  \item This routine returns, in the LIST array, a subset of NSEL integers
+        chosen from the range 1 to NCAND inclusive, in ascending order.
+        Before calling the routine for the first time, the caller must set
+        the first element of the LIST array to zero (any value less than 1
+        will do) to cause initialization.
+  \item The first combination to be generated is:
+        \begin{verse}
+            LIST(1)=1, LIST(2)=2, \ldots, LIST(NSEL)=NSEL
+        \end{verse}
+        This is also the combination returned for the ``finished'' (J=1) case.
+        The final permutation to be generated is:
+        \begin{verse}
+           LIST(1)=NCAND, LIST(2)=NCAND$-$1, \ldots, \\
+           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~LIST(NSEL)=NCAND$-$NSEL+1
+        \end{verse}
+  \item If the ``finished'' (J=1) status is ignored, the routine
+        continues to deliver combinations, the pattern repeating
+        every NCAND!/(NSEL!(NCAND$-$NSEL)!) calls.
+  \item The algorithm is by R.\,F.\,Warren-Smith (private communication).
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_CR2AF}{Radians to Deg,Arcmin,Arcsec}
+{
+ \action{Convert an angle in radians to degrees, arcminutes,
+         arcseconds (single precision).}
+ \call{CALL sla\_CR2AF (NDP, ANGLE, SIGN, IDMSF)}
+}
+\args{GIVEN}
+{
+ \spec{NDP}{I}{number of decimal places of arcseconds} \\
+ \spec{ANGLE}{R}{angle in radians}
+}
+\args{RETURNED}
+{
+ \spec{SIGN}{C}{`+' or `$-$'} \\
+ \spec{IDMSF}{I(4)}{degrees, arcminutes, arcseconds, fraction}
+}
+\notes
+{
+ \begin{enumerate}
+  \item NDP less than zero is interpreted as zero.
+  \item The largest useful value for NDP is determined by the size of
+        ANGLE, the format of REAL floating-point numbers on the target
+        machine, and the risk of overflowing IDMSF(4).  For example,
+        on a VAX computer, for ANGLE up to $2\pi$, the available floating-point
+        precision corresponds roughly to NDP=3.  This is well below
+        the ultimate limit of NDP=9 set by the capacity of the 32-bit
+        integer IHMSF(4).
+  \item The absolute value of ANGLE may exceed $2\pi$.  In cases where it
+        does not, it is up to the caller to test for and handle the
+        case where ANGLE is very nearly $2\pi$ and rounds up to $360^{\circ}$,
+        by testing for IDMSF(1)=360 and setting IDMSF(1-4) to zero.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_CR2TF}{Radians to Hour,Min,Sec}
+{
+ \action{Convert an angle in radians to hours, minutes, seconds
+         (single precision).}
+ \call{CALL sla\_CR2TF (NDP, ANGLE, SIGN, IHMSF)}
+}
+\args{GIVEN}
+{
+ \spec{NDP}{I}{number of decimal places of seconds} \\
+ \spec{ANGLE}{R}{angle in radians}
+}
+\args{RETURNED}
+{
+ \spec{SIGN}{C}{`+' or `$-$'} \\
+ \spec{IHMSF}{I(4)}{hours, minutes, seconds, fraction}
+}
+\notes
+{
+ \begin{enumerate}
+  \item NDP less than zero is interpreted as zero.
+  \item The largest useful value for NDP is determined by the size of
+        ANGLE, the format of REAL floating-point numbers on the target
+        machine, and the risk of overflowing IHMSF(4).  For example,
+        on a VAX computer, for ANGLE up to $2\pi$, the available floating-point
+        precision corresponds roughly to NDP=3.  This is well below
+        the ultimate limit of NDP=9 set by the capacity of the 32-bit
+        integer IHMSF(4).
+  \item The absolute value of ANGLE may exceed $2\pi$.  In cases where it
+        does not, it is up to the caller to test for and handle the
+        case where ANGLE is very nearly $2\pi$ and rounds up to 24~hours,
+        by testing for IHMSF(1)=24 and setting IHMSF(1-4) to zero.
+\end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_CS2C}{Spherical to Cartesian}
+{
+ \action{Spherical coordinates to Cartesian coordinates (single precision).}
+ \call{CALL sla\_CS2C (A, B, V)}
+}
+\args{GIVEN}
+{
+ \spec{A,B}{R}{spherical coordinates in radians: \radec\ {\it etc.}}
+}
+\args{RETURNED}
+{
+ \spec{V}{R(3)}{\xyz\ unit vector}
+}
+\anote{The spherical coordinates are longitude (+ve anticlockwise
+       looking from the +ve latitude pole) and latitude.  The
+       Cartesian coordinates are right handed, with the {\it x}-axis
+       at zero longitude and latitude, and the {\it z}-axis at the
+       +ve latitude pole.}
+%-----------------------------------------------------------------------
+\routine{SLA\_CS2C6}{Spherical Pos/Vel to Cartesian}
+{
+ \action{Conversion of position \& velocity in spherical coordinates
+         to Cartesian coordinates (single precision).}
+ \call{CALL sla\_CS2C6 (A, B, R, AD, BD, RD, V)}
+}
+\args{GIVEN}
+{
+ \spec{A}{R}{longitude (radians) -- for example $\alpha$} \\
+ \spec{B}{R}{latitude (radians) -- for example $\delta$} \\
+ \spec{R}{R}{radial coordinate} \\
+ \spec{AD}{R}{longitude derivative (radians per unit time)} \\
+ \spec{BD}{R}{latitude derivative (radians per unit time)} \\
+ \spec{RD}{R}{radial derivative}
+}
+\args{RETURNED}
+{
+ \spec{V}{R(6)}{\xyzxyzd}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_CTF2D}{Hour,Min,Sec to Days}
+{
+ \action{Convert hours, minutes, seconds to days (single precision).}
+ \call{CALL sla\_CTF2D (IHOUR, IMIN, SEC, DAYS, J)}
+}
+\args{GIVEN}
+{
+ \spec{IHOUR}{I}{hours} \\
+ \spec{IMIN}{I}{minutes} \\
+ \spec{SEC}{R}{seconds}
+}
+\args{RETURNED}
+{
+ \spec{DAYS}{R}{interval in days} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} 0 = OK} \\
+ \spec{}{}{\hspace{1.5em} 1 = IHOUR outside range 0-23} \\
+ \spec{}{}{\hspace{1.5em} 2 = IMIN outside range 0-59} \\
+ \spec{}{}{\hspace{1.5em} 3 = SEC outside range 0-59.999$\cdots$}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The result is computed even if any of the range checks fail.
+  \item The sign must be dealt with outside this routine.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_CTF2R}{Hour,Min,Sec to Radians}
+{
+ \action{Convert hours, minutes, seconds to radians (single precision).}
+ \call{CALL sla\_CTF2R (IHOUR, IMIN, SEC, RAD, J)}
+}
+\args{GIVEN}
+{
+ \spec{IHOUR}{I}{hours} \\
+ \spec{IMIN}{I}{minutes} \\
+ \spec{SEC}{R}{seconds}
+}
+\args{RETURNED}
+{
+ \spec{RAD}{R}{angle in radians} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} 0 = OK} \\
+ \spec{}{}{\hspace{1.5em} 1 = IHOUR outside range 0-23} \\
+ \spec{}{}{\hspace{1.5em} 2 = IMIN outside range 0-59} \\
+ \spec{}{}{\hspace{1.5em} 3 = SEC outside range 0-59.999$\cdots$}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The result is computed even if any of the range checks fail.
+  \item The sign must be dealt with outside this routine.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DAF2R}{Deg,Arcmin,Arcsec to Radians}
+{
+ \action{Convert degrees, arcminutes, arcseconds to radians
+  (double precision).}
+ \call{CALL sla\_DAF2R (IDEG, IAMIN, ASEC, RAD, J)}
+}
+\args{GIVEN}
+{
+ \spec{IDEG}{I}{degrees} \\
+ \spec{IAMIN}{I}{arcminutes} \\
+ \spec{ASEC}{D}{arcseconds}
+}
+\args{RETURNED}
+{
+ \spec{RAD}{D}{angle in radians} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} 1 = IDEG outside range 0$-$359} \\
+ \spec{}{}{\hspace{1.5em} 2 = IAMIN outside range 0$-$59} \\
+ \spec{}{}{\hspace{1.5em} 3 = ASEC outside range 0$-$59.999$\cdots$}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The result is computed even if any of the range checks fail.
+  \item The sign must be dealt with outside this routine.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DAFIN}{Sexagesimal character string to angle}
+{
+ \action{Decode a free-format sexagesimal string (degrees, arcminutes,
+         arcseconds) into a double precision floating point
+         number (radians).}
+ \call{CALL sla\_DAFIN (STRING, NSTRT, DRESLT, JF)}
+}
+\args{GIVEN}
+{
+ \spec{STRING}{C*(*)}{string containing deg, arcmin, arcsec fields} \\
+ \spec{NSTRT}{I}{pointer to start of decode (beginning of STRING = 1)}
+}
+\args{RETURNED}
+{
+ \spec{NSTRT}{I}{advanced past the decoded angle} \\
+ \spec{DRESLT}{D}{angle in radians} \\
+ \spec{JF}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em}   0 = OK} \\
+ \spec{}{}{\hspace{0.7em} $+1$ = default, DRESLT unchanged (note 2)} \\
+ \spec{}{}{\hspace{0.7em} $-1$ = bad degrees (note 3)} \\
+ \spec{}{}{\hspace{0.7em} $-2$ = bad arcminutes (note 3)} \\
+ \spec{}{}{\hspace{0.7em} $-3$ = bad arcseconds (note 3)} \\
+}
+\goodbreak
+\setlength{\oldspacing}{\topsep}
+\setlength{\topsep}{0.3ex}
+\begin{description}
+ \item [EXAMPLE]: \\ [1.5ex]
+  \begin{tabular}{p{7em}p{15em}p{12em}}
+   {\it argument} & {\it before} & {\it after} \\ \\
+   STRING & $'$\verb*}-57 17 44.806  12 34 56.7}$'$ & unchanged \\
+   NSTRT & 1 & 16 ({\it i.e.}\ pointing to 12...) \\
+   RESLT & - & $-1.00000${\tt D0} \\
+   JF & - & 0
+  \end{tabular}
+ \item A further call to sla\_DAFIN, without adjustment of NSTRT, will
+       decode the second angle, \dms{12}{34}{56}{7}.
+\end{description}
+\setlength{\topsep}{\oldspacing}
+\notes
+{
+ \begin{enumerate}
+  \item The first three ``fields'' in STRING are degrees, arcminutes,
+   arcseconds, separated by spaces or commas.  The degrees field
+   may be signed, but not the others.  The decoding is carried
+   out by the sla\_DFLTIN routine and is free-format.
+  \item Successive fields may be absent, defaulting to zero.  For
+   zero status, the only combinations allowed are degrees alone,
+   degrees and arcminutes, and all three fields present.  If all
+   three fields are omitted, a status of +1 is returned and DRESLT is
+   unchanged.  In all other cases DRESLT is changed.
+  \item Range checking:
+   \begin{itemize}
+    \item The degrees field is not range checked.  However, it is
+     expected to be integral unless the other two fields are absent.
+    \item The arcminutes field is expected to be 0-59, and integral if
+     the arcseconds field is present.  If the arcseconds field
+     is absent, the arcminutes is expected to be 0-59.9999...
+    \item The arcseconds field is expected to be 0-59.9999...
+    \item Decoding continues even when a check has failed.  Under these
+     circumstances the field takes the supplied value, defaulting to
+     zero, and the result DRESLT is computed and returned.
+   \end{itemize}
+   \item Further fields after the three expected ones are not treated as
+    an error.  The pointer NSTRT is left in the correct state for
+    further decoding with the present routine or with sla\_DFLTIN
+    {\it etc}.  See the example, above.
+   \item If STRING contains hours, minutes, seconds instead of
+    degrees {\it etc},
+    or if the required units are turns (or days) instead of radians,
+    the result DRESLT should be multiplied as follows: \\ [1.5ex]
+    \begin{tabular}{p{6em}p{5em}p{18em}}
+    {\it for STRING} & {\it to obtain} & {\it multiply DRESLT by} \\ \\
+    ${\circ}$~~\raisebox{-0.7ex}{$'$}~~\raisebox{-0.7ex}{$''$}
+     & radians & $1.0${\tt D0} \\
+    ${\circ}$~~\raisebox{-0.7ex}{$'$}~~\raisebox{-0.7ex}{$''$}
+     & turns & $1/{2 \pi} = 0.1591549430918953358${\tt D0} \\
+    h m s & radians & $15.0${\tt D0} \\
+    h m s & days & $15/{2\pi} = 2.3873241463784300365${\tt D0}
+   \end{tabular}
+ \end{enumerate}
+}
+%------------------------------------------------------------------------------
+\routine{SLA\_DAT}{TAI$-$UTC}
+{
+ \action{Increment to be applied to Coordinated Universal Time UTC to give
+         International Atomic Time TAI.}
+ \call{D~=~sla\_DAT (UTC)}
+}
+\args{GIVEN}
+{
+ \spec{UTC}{D}{UTC date as a modified JD (JD$-$2400000.5)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_DAT}{D}{TAI$-$UTC in seconds}
+}
+\notes
+{
+ \begin{enumerate}
+ \item The UTC is specified to be a date rather than a time to indicate
+       that care needs to be taken not to specify an instant which lies
+       within a leap second.  Though in most cases UTC can include the
+       fractional part, correct behaviour on the day of a leap second
+       can be guaranteed only up to the end of the second
+       $23^{\rm h}\,59^{\rm m}\,59^{\rm s}$.
+ \item UTC began at 1960 January 1.  To specify a UTC prior to this
+       date would be meaningless;  in such cases the parameters
+       for the year 1960 are used by default.
+ \item This routine has to be updated on each occasion that a
+       leap second is announced, and programs using it relinked.
+       Refer to the program source code for information on when the
+       most recent leap second was added.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DAV2M}{Rotation Matrix from Axial Vector}
+{
+ \action{Form the rotation matrix corresponding to a given axial vector
+         (double precision).}
+ \call{CALL sla\_DAV2M (AXVEC, RMAT)}
+}
+\args{GIVEN}
+{
+ \spec{AXVEC}{D(3)}{axial vector (radians)}
+}
+\args{RETURNED}
+{
+ \spec{RMAT}{D(3,3)}{rotation matrix}
+}
+\notes
+{
+ \begin{enumerate}
+  \item A rotation matrix describes a rotation about some arbitrary axis.
+        The axis is called the {\it Euler axis}, and the angle through which the
+        reference frame rotates is called the {\it Euler angle}.  The axial
+        vector supplied to this routine has the same direction as the
+        Euler axis, and its magnitude is the Euler angle in radians.
+  \item If AXVEC is null, the unit matrix is returned.
+  \item The reference frame rotates clockwise as seen looking along
+        the axial vector from the origin.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DBEAR}{Direction Between Points on a Sphere}
+{
+ \action{Returns the bearing (position angle) of one point on a
+         sphere relative to another (double precision).}
+ \call{D~=~sla\_DBEAR (A1, B1, A2, B2)}
+}
+\args{GIVEN}
+{
+ \spec{A1,B1}{D}{spherical coordinates of one point} \\
+ \spec{A2,B2}{D}{spherical coordinates of the other point}
+}
+\args{RETURNED}
+{
+ \spec{sla\_DBEAR}{D}{bearing from first point to second}
+}
+\notes
+{
+ \begin{enumerate}
+ \item The spherical coordinates are \radec,
+       $[\lambda,\phi]$ {\it etc.}, in radians.
+ \item The result is the bearing (position angle), in radians,
+       of point [A2,B2] as seen
+       from point [A1,B1].  It is in the range $\pm \pi$.  The sense
+       is such that if [A2,B2]
+       is a small distance due east of [A1,B1] the result
+       is about $+\pi/2$. Zero is returned
+       if the two points are coincident.
+ \item If either B-coordinate is outside the range $\pm\pi/2$, the
+       result may correspond to ``the long way round''.
+ \item The routine sla\_DPAV performs an equivalent function except
+       that the points are specified in the form of Cartesian unit
+       vectors.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DBJIN}{Decode String to B/J Epoch (DP)}
+{
+ \action{Decode a character string into a DOUBLE PRECISION number,
+         with special provision for Besselian and Julian epochs.
+         The string syntax is as for sla\_DFLTIN, prefixed by
+         an optional `B' or `J'.}
+ \call{CALL sla\_DBJIN (STRING, NSTRT, DRESLT, J1, J2)}
+}
+\args{GIVEN}
+{
+ \spec{STRING}{C}{string containing field to be decoded} \\
+ \spec{NSTRT}{I}{pointer to first character of field in string}
+}
+\args{RETURNED}
+{
+ \spec{NSTRT}{I}{incremented past the decoded field} \\
+ \spec{DRESLT}{D}{result} \\
+ \spec{J1}{I}{DFLTIN status:} \\
+ \spec{}{}{\hspace{0.7em} $-$1 = $-$OK} \\
+ \spec{}{}{\hspace{1.5em}   0 = +OK} \\
+ \spec{}{}{\hspace{1.5em}   1 = null field} \\
+ \spec{}{}{\hspace{1.5em}   2 = error} \\
+ \spec{J2}{I}{syntax flag:} \\
+ \spec{}{}{\hspace{1.5em}   0 = normal DFLTIN syntax} \\
+ \spec{}{}{\hspace{1.5em}   1 = `B' or `b'} \\
+ \spec{}{}{\hspace{1.5em}   2 = `J' or `j'}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The purpose of the syntax extensions is to help cope with mixed
+        FK4 and FK5 data, allowing fields such as `B1950' or `J2000'
+        to be decoded.
+  \item In addition to the syntax accepted by sla\_DFLTIN,
+        the following two extensions are recognized by sla\_DBJIN:
+        \begin{enumerate}
+         \item A valid non-null field preceded by the character `B'
+               (or `b') is accepted.
+         \item A valid non-null field preceded by the character `J'
+               (or `j') is accepted.
+         \end{enumerate}
+  \item The calling program is told of the `B' or `J' through an
+        supplementary status argument.  The rest of
+        the arguments are as for sla\_DFLTIN.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DC62S}{Cartesian 6-Vector to Spherical}
+{
+ \action{Conversion of position \& velocity in Cartesian coordinates
+         to spherical coordinates (double precision).}
+ \call{CALL sla\_DC62S (V, A, B, R, AD, BD, RD)}
+}
+\args{GIVEN}
+{
+ \spec{V}{D(6)}{\xyzxyzd}
+}
+\args{RETURNED}
+{
+ \spec{A}{D}{longitude (radians)} \\
+ \spec{B}{D}{latitude (radians)} \\
+ \spec{R}{D}{radial coordinate} \\
+ \spec{AD}{D}{longitude derivative (radians per unit time)} \\
+ \spec{BD}{D}{latitude derivative (radians per unit time)} \\
+ \spec{RD}{D}{radial derivative}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DCC2S}{Cartesian to Spherical}
+{
+ \action{Cartesian coordinates to spherical coordinates (double precision).}
+ \call{CALL sla\_DCC2S (V, A, B)}
+}
+\args{GIVEN}
+{
+ \spec{V}{D(3)}{\xyz\ vector}
+}
+\args{RETURNED}
+{
+ \spec{A,B}{D}{spherical coordinates in radians}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The spherical coordinates are longitude (+ve anticlockwise
+        looking from the +ve latitude pole) and latitude.  The
+        Cartesian coordinates are right handed, with the {\it x}-axis
+        at zero longitude and latitude, and the {\it z}-axis at the
+        +ve latitude pole.
+  \item If V is null, zero A and B are returned.
+  \item At either pole, zero A is returned.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DCMPF}{Interpret Linear Fit}
+{
+ \action{Decompose an \xy\ linear fit into its constituent parameters:
+         zero points, scales, nonperpendicularity and orientation.}
+ \call{CALL sla\_DCMPF (COEFFS,XZ,YZ,XS,YS,PERP,ORIENT)}
+}
+\args{GIVEN}
+{
+ \spec{COEFFS}{D(6)}{transformation coefficients (see note)}
+}
+\args{RETURNED}
+{
+ \spec{XZ}{D}{{\it x} zero point} \\
+ \spec{YZ}{D}{{\it y} zero point} \\
+ \spec{XS}{D}{{\it x} scale} \\
+ \spec{YS}{D}{{\it y} scale} \\
+ \spec{PERP}{D}{nonperpendicularity (radians)} \\
+ \spec{ORIENT}{D}{orientation (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The model relates two sets of \xy\ coordinates as follows.
+        Naming the six elements of COEFFS $a,b,c,d,e$ \& $f$,
+        the model transforms coordinates $[x_{1},y_{1}\,]$ into coordinates
+        $[x_{2},y_{2}\,]$ as follows:
+        \begin{verse}
+         $x_{2} = a + bx_{1} + cy_{1}$ \\
+         $y_{2} = d + ex_{1} + fy_{1}$
+        \end{verse}
+        The sla\_DCMPF routine decomposes this transformation
+        into four steps:
+        \begin{enumerate}
+        \item Zero points:
+              \begin{verse}
+               $x' = x_{1} + {\rm XZ}$ \\
+               $y' = y_{1} + {\rm YZ}$
+              \end{verse}
+        \item Scales:
+              \begin{verse}
+               $x'' = x' {\rm XS}$ \\
+               $y'' = y' {\rm YS}$
+              \end{verse}
+        \item Nonperpendicularity:
+              \begin{verse}
+               $x''' = + x'' \cos {\rm PERP}/2 + y'' \sin {\rm PERP}/2$ \\
+               $y''' = + x'' \sin {\rm PERP}/2 + y'' \cos {\rm PERP}/2$
+              \end{verse}
+        \item Orientation:
+              \begin{verse}
+               $x_{2} = + x''' \cos {\rm ORIENT} +
+                          y''' \sin {\rm ORIENT}$ \\
+               $y_{2} = - x''' \sin {\rm ORIENT} +
+                          y''' \cos {\rm ORIENT}$
+              \end{verse}
+        \end{enumerate}
+  \item See also sla\_FITXY, sla\_PXY, sla\_INVF, sla\_XY2XY.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DCS2C}{Spherical to Cartesian}
+{
+ \action{Spherical coordinates to Cartesian coordinates (double precision).}
+ \call{CALL sla\_DCS2C (A, B, V)}
+}
+\args{GIVEN}
+{
+ \spec{A,B}{D}{spherical coordinates in radians: \radec\ {\it etc.}}
+}
+\args{RETURNED}
+{
+ \spec{V}{D(3)}{\xyz\ unit vector}
+}
+\anote{The spherical coordinates are longitude (+ve anticlockwise
+       looking from the +ve latitude pole) and latitude.  The
+       Cartesian coordinates are right handed, with the {\it x}-axis
+       at zero longitude and latitude, and the {\it z}-axis at the
+       +ve latitude pole.}
+%-----------------------------------------------------------------------
+\routine{SLA\_DD2TF}{Days to Hour,Min,Sec}
+{
+ \action{Convert an interval in days into hours, minutes, seconds
+         (double precision).}
+ \call{CALL sla\_DD2TF (NDP, DAYS, SIGN, IHMSF)}
+}
+\args{GIVEN}
+{
+ \spec{NDP}{I}{number of decimal places of seconds} \\
+ \spec{DAYS}{D}{interval in days}
+}
+\args{RETURNED}
+{
+ \spec{SIGN}{C}{`+' or `$-$'} \\
+ \spec{IHMSF}{I(4)}{hours, minutes, seconds, fraction}
+}
+\notes
+{
+ \begin{enumerate}
+  \item NDP less than zero is interpreted as zero.
+  \item The largest useful value for NDP is determined by the size
+        of DAYS, the format of DOUBLE PRECISION floating-point numbers
+        on the target machine, and the risk of overflowing IHMSF(4).
+        For example, on a VAX computer, for DAYS up to 1D0, the available
+        floating-point precision corresponds roughly to NDP=12.  However,
+        the practical limit is NDP=9, set by the capacity of the 32-bit
+        integer IHMSF(4).
+  \item The absolute value of DAYS may exceed 1D0.  In cases where it
+        does not, it is up to the caller to test for and handle the
+        case where DAYS is very nearly 1D0 and rounds up to 24~hours,
+        by testing for IHMSF(1)=24 and setting IHMSF(1-4) to zero.
+\end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DE2H}{$h,\delta$ to Az,El}
+{
+ \action{Equatorial to horizon coordinates
+         (double precision).}
+ \call{CALL sla\_DE2H (HA, DEC, PHI, AZ, EL)}
+}
+\args{GIVEN}
+{
+ \spec{HA}{D}{hour angle (radians)} \\
+ \spec{DEC}{D}{declination (radians)} \\
+ \spec{PHI}{D}{latitude (radians)}
+}
+\args{RETURNED}
+{
+ \spec{AZ}{D}{azimuth (radians)} \\
+ \spec{EL}{D}{elevation (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Azimuth is returned in the range $0\!-\!2\pi$;  north is zero,
+        and east is $+\pi/2$.  Elevation is returned in the range
+        $\pm\pi$.
+  \item The latitude must be geodetic.  In critical applications,
+        corrections for polar motion should be applied.
+  \item In some applications it will be important to specify the
+        correct type of hour angle and declination in order to
+        produce the required type of azimuth and elevation.  In
+        particular, it may be important to distinguish between
+        elevation as affected by refraction, which would
+        require the {\it observed} \hadec, and the elevation
+        {\it in vacuo}, which would require the {\it topocentric}
+        \hadec.
+        If the effects of diurnal aberration can be neglected, the
+        {\it apparent} \hadec\ may be used instead of the topocentric
+        \hadec.
+  \item No range checking of arguments is carried out.
+  \item In applications which involve many such calculations, rather
+        than calling the present routine it will be more efficient to
+        use inline code, having previously computed fixed terms such
+        as sine and cosine of latitude, and (for tracking a star)
+        sine and cosine of declination.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DEULER}{Euler Angles to Rotation Matrix}
+{
+ \action{Form a rotation matrix from the Euler angles -- three
+         successive rotations about specified Cartesian axes
+         (double precision).}
+ \call{CALL sla\_DEULER (ORDER, PHI, THETA, PSI, RMAT)}
+}
+\args{GIVEN}
+{
+ \spec{ORDER}{C}{specifies about which axes the rotations occur} \\
+ \spec{PHI}{D}{1st rotation (radians)} \\
+ \spec{THETA}{D}{2nd rotation (radians)} \\
+ \spec{PSI}{D}{3rd rotation (radians)}
+}
+\args{RETURNED}
+{
+ \spec{RMAT}{D(3,3)}{rotation matrix}
+}
+\notes
+{
+ \begin{enumerate}
+ \item A rotation is positive when the reference frame rotates
+       anticlockwise as seen looking towards the origin from the
+       positive region of the specified axis.
+ \item The characters of ORDER define which axes the three successive
+       rotations are about.  A typical value is `ZXZ', indicating that
+       RMAT is to become the direction cosine matrix corresponding to
+       rotations of the reference frame through PHI radians about the
+       old {\it z}-axis, followed by THETA radians about the resulting
+       {\it x}-axis,
+       then PSI radians about the resulting {\it z}-axis.
+ \item The axis names can be any of the following, in any order or
+       combination:  X, Y, Z, uppercase or lowercase, 1, 2, 3.  Normal
+       axis labelling/numbering conventions apply;  the {\it xyz} ($\equiv123$)
+       triad is right-handed.  Thus, the `ZXZ' example given above
+       could be written `zxz' or `313' (or even `ZxZ' or `3xZ').  ORDER
+       is terminated by length or by the first unrecognized character.
+       Fewer than three rotations are acceptable, in which case the later
+       angle arguments are ignored.  Zero rotations produces a unit RMAT.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DFLTIN}{Decode a Double Precision Number}
+{
+ \action{Convert free-format input into double precision floating point.}
+ \call{CALL sla\_DFLTIN (STRING, NSTRT, DRESLT, JFLAG)}
+}
+\args{GIVEN}
+{
+ \spec{STRING}{C}{string containing number to be decoded} \\
+ \spec{NSTRT}{I}{pointer to where decoding is to commence} \\
+ \spec{DRESLT}{D}{current value of result}
+}
+\args{RETURNED}
+{
+ \spec{NSTRT}{I}{advanced to next number} \\
+ \spec{DRESLT}{D}{result} \\
+ \spec{JFLAG}{I}{status: $-$1~=~$-$OK, 0~=~+OK, 1~=~null result, 2~=~error}
+}
+\notes
+{
+ \begin{enumerate}
+ \item The reason sla\_DFLTIN has separate `OK' status values
+       for + and $-$ is to enable minus zero to be detected.
+       This is of crucial importance
+       when decoding mixed-radix numbers.  For example, an angle
+       expressed as degrees, arcminutes and arcseconds may have a
+       leading minus sign but a zero degrees field.
+ \item A TAB is interpreted as a space, and lowercase characters are
+       interpreted as uppercase.  {\it n.b.}\ The test for TAB is
+       ASCII-specific.
+ \item The basic format is the sequence of fields $\pm n.n x \pm n$,
+       where $\pm$ is a sign
+       character `+' or `$-$', $n$ means a string of decimal digits,
+       `.' is a decimal point, and $x$, which indicates an exponent,
+       means `D' or `E'.  Various combinations of these fields can be
+       omitted, and embedded blanks are permissible in certain places.
+ \item Spaces:
+       \begin{itemize}
+       \item Leading spaces are ignored.
+       \item Embedded spaces are allowed only after +, $-$, D or E,
+             and after the decimal point if the first sequence of
+             digits is absent.
+       \item Trailing spaces are ignored;  the first signifies
+             end of decoding and subsequent ones are skipped.
+       \end{itemize}
+ \item Delimiters:
+       \begin{itemize}
+       \item Any character other than +,$-$,0-9,.,D,E or space may be
+             used to signal the end of the number and terminate decoding.
+       \item Comma is recognized by sla\_DFLTIN as a special case; it
+             is skipped, leaving the pointer on the next character.  See
+             13, below.
+       \item Decoding will in all cases terminate if end of string
+             is reached.
+       \end{itemize}
+ \item Both signs are optional.  The default is +.
+ \item The mantissa $n.n$ defaults to unity.
+ \item The exponent $x\!\pm\!n$ defaults to `D0'.
+ \item The strings of decimal digits may be of any length.
+ \item The decimal point is optional for whole numbers.
+ \item A {\it null result}\/ occurs when the string of characters
+       being decoded does not begin with +,$-$,0-9,.,D or E, or
+       consists entirely of spaces.  When this condition is
+       detected, JFLAG is set to 1 and DRESLT is left untouched.
+ \item NSTRT = 1 for the first character in the string.
+ \item On return from sla\_DFLTIN, NSTRT is set ready for the next
+       decode -- following trailing blanks and any comma.  If a
+       delimiter other than comma is being used, NSTRT must be
+       incremented before the next call to sla\_DFLTIN, otherwise
+       all subsequent calls will return a null result.
+ \item Errors (JFLAG=2) occur when:
+       \begin{itemize}
+       \item a +, $-$, D or E is left unsatisfied; or
+       \item the decimal point is present without at least
+             one decimal digit before or after it; or
+       \item an exponent more than 100 has been presented.
+       \end{itemize}
+ \item When an error has been detected, NSTRT is left
+       pointing to the character following the last
+       one used before the error came to light.  This
+       may be after the point at which a more sophisticated
+       program could have detected the error.  For example,
+       sla\_DFLTIN does not detect that `1D999' is unacceptable
+       (on a computer where this is so) until the entire number
+       has been decoded.
+ \item Certain highly unlikely combinations of mantissa and
+       exponent can cause arithmetic faults during the
+       decode, in some cases despite the fact that they
+       together could be construed as a valid number.
+ \item Decoding is left to right, one pass.
+ \item See also sla\_FLOTIN and sla\_INTIN.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DH2E}{Az,El to $h,\delta$}
+{
+ \action{Horizon to equatorial coordinates
+         (double precision).}
+ \call{CALL sla\_DH2E (AZ, EL, PHI, HA, DEC)}
+}
+\args{GIVEN}
+{
+ \spec{AZ}{D}{azimuth (radians)} \\
+ \spec{EL}{D}{elevation (radians)} \\
+ \spec{PHI}{D}{latitude (radians)}
+}
+\args{RETURNED}
+{
+ \spec{HA}{D}{hour angle (radians)} \\
+ \spec{DEC}{D}{declination (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The sign convention for azimuth is north zero, east $+\pi/2$.
+  \item HA is returned in the range $\pm\pi$.  Declination is returned
+        in the range $\pm\pi$.
+  \item The latitude is (in principle) geodetic.  In critical
+        applications, corrections for polar motion should be applied
+        (see sla\_POLMO).
+  \item In some applications it will be important to specify the
+        correct type of elevation in order to produce the required
+        type of \hadec.  In particular, it may be important to
+        distinguish between the elevation as affected by refraction,
+        which will yield the {\it observed} \hadec, and the elevation
+        {\it in vacuo}, which will yield the {\it topocentric}
+        \hadec.  If the
+        effects of diurnal aberration can be neglected, the
+        topocentric \hadec\ may be used as an approximation to the
+        {\it apparent} \hadec.
+  \item No range checking of arguments is carried out.
+  \item In applications which involve many such calculations, rather
+        than calling the present routine it will be more efficient to
+        use inline code, having previously computed fixed terms such
+        as sine and cosine of latitude.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DIMXV}{Apply 3D Reverse Rotation}
+{
+ \action{Multiply a 3-vector by the inverse of a rotation
+         matrix (double precision).}
+ \call{CALL sla\_DIMXV (DM, VA, VB)}
+}
+\args{GIVEN}
+{
+ \spec{DM}{D(3,3)}{rotation matrix} \\
+ \spec{VA}{D(3)}{vector to be rotated}
+}
+\args{RETURNED}
+{
+ \spec{VB}{D(3)}{result vector}
+}
+\notes
+{
+ \begin{enumerate}
+  \item This routine performs the operation:
+        \begin{verse}
+         {\bf b} = {\bf M}$^{T}\cdot${\bf a}
+        \end{verse}
+        where {\bf a} and {\bf b} are the 3-vectors VA and VB
+        respectively, and  {\bf M} is the $3\times3$ matrix DM.
+  \item The main function of this routine is apply an inverse
+        rotation;  under these circumstances, ${\bf \rm M}$ is
+        {\it orthogonal}, with its inverse the same as its transpose.
+  \item To comply with the ANSI Fortran 77 standard, VA and VB must
+        {\bf not} be the same array.  The routine is, in fact, coded
+        so as to work properly on the VAX and many other systems even
+        if this rule is violated, something that is {\bf not}, however,
+        recommended.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DJCAL}{MJD to Gregorian for Output}
+{
+ \action{Modified Julian Date to Gregorian Calendar Date, expressed
+         in a form convenient for formatting messages (namely
+         rounded to a specified precision, and with the fields
+         stored in a single array).}
+ \call{CALL sla\_DJCAL (NDP, DJM, IYMDF, J)}
+}
+\args{GIVEN}
+{
+ \spec{NDP}{I}{number of decimal places of days in fraction} \\
+ \spec{DJM}{D}{modified Julian Date (JD$-$2400000.5)}
+}
+\args{RETURNED}
+{
+ \spec{IYMDF}{I(4)}{year, month, day, fraction in Gregorian calendar} \\
+ \spec{J}{I}{status:  nonzero = out of range}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Any date after 4701BC March 1 is accepted.
+  \item NDP should be 4 or less to avoid overflow on machines which
+        use 32-bit integers.
+ \end{enumerate}
+}
+\aref{The algorithm is derived from that of Hatcher,
+      {\it Q.\,Jl.\,R.\,astr.\,Soc.}\ (1984) {\bf 25}, 53-55.}
+%-----------------------------------------------------------------------
+\routine{SLA\_DJCL}{MJD to Year,Month,Day,Frac}
+{
+ \action{Modified Julian Date to Gregorian year, month, day,
+         and fraction of a day.}
+ \call{CALL sla\_DJCL (DJM, IY, IM, ID, FD, J)}
+}
+\args{GIVEN}
+{
+ \spec{DJM}{D}{modified Julian Date (JD$-$2400000.5)}
+}
+\args{RETURNED}
+{
+ \spec{IY}{I}{year} \\
+ \spec{IM}{I}{month} \\
+ \spec{ID}{I}{day} \\
+ \spec{FD}{D}{fraction of day} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} 0 = OK} \\
+ \spec{}{}{\hspace{0.7em} $-$1 = unacceptable date (before 4701BC March 1)}
+}
+\aref{The algorithm is derived from that of Hatcher,
+      {\it Q.\,Jl.\,R.\,astr.\,Soc.}\ (1984) {\bf 25}, 53-55.}
+%-----------------------------------------------------------------------
+\routine{SLA\_DM2AV}{Rotation Matrix to Axial Vector}
+{
+ \action{From a rotation matrix, determine the corresponding axial vector
+        (double precision).}
+ \call{CALL sla\_DM2AV (RMAT, AXVEC)}
+}
+\args{GIVEN}
+{
+ \spec{RMAT}{D(3,3)}{rotation matrix}
+}
+\args{RETURNED}
+{
+ \spec{AXVEC}{D(3)}{axial vector (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item A rotation matrix describes a rotation about some arbitrary axis.
+        The axis is called the {\it Euler axis}, and the angle through
+        which the reference frame rotates is called the {\it Euler angle}.
+        The {\it axial vector}\/ returned by this routine has the same
+        direction as the Euler axis, and its magnitude is the Euler angle
+        in radians.
+  \item The magnitude and direction of the axial vector can be separated
+        by means of the routine sla\_DVN.
+  \item The reference frame rotates clockwise as seen looking along
+        the axial vector from the origin.
+  \item If RMAT is null, so is the result.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DMAT}{Solve Simultaneous Equations}
+{
+ \action{Matrix inversion and solution of simultaneous equations
+         (double precision).}
+ \call{CALL sla\_DMAT (N, A, Y, D, JF, IW)}
+}
+\args{GIVEN}
+{
+ \spec{N}{I}{number of unknowns} \\
+ \spec{A}{D(N,N)}{matrix} \\
+ \spec{Y}{D(N)}{vector}
+}
+\args{RETURNED}
+{
+ \spec{A}{D(N,N)}{matrix inverse} \\
+ \spec{Y}{D(N)}{solution} \\
+ \spec{D}{D}{determinant} \\
+ \spec{JF}{I}{singularity flag: 0=OK} \\
+ \spec{IW}{I(N)}{workspace}
+}
+\notes
+{
+ \begin{enumerate}
+  \item For the set of $n$ simultaneous linear equations in $n$ unknowns:
+        \begin{verse}
+         {\bf A}$\cdot${\bf y} = {\bf x}
+        \end{verse}
+        where:
+        \begin{itemize}
+         \item {\bf A} is a non-singular $n \times n$ matrix,
+         \item {\bf y} is the vector of $n$ unknowns, and
+         \item {\bf x} is the known vector,
+        \end{itemize}
+        sla\_DMAT computes:
+        \begin{itemize}
+         \item the inverse of matrix {\bf A},
+         \item the determinant of matrix {\bf A}, and
+         \item the vector of $n$ unknowns {\bf y}.
+        \end{itemize}
+        Argument N is the order $n$, A (given) is the matrix {\bf A},
+        Y (given) is the vector {\bf x} and Y (returned)
+        is the vector {\bf y}.
+        The argument A (returned) is the inverse matrix {\bf A}$^{-1}$,
+        and D is {\it det}\/({\bf A}).
+  \item JF is the singularity flag.  If the matrix is non-singular,
+        JF=0 is returned.  If the matrix is singular, JF=$-$1
+        and D=0D0 are returned.  In the latter case, the contents
+        of array A on return are undefined.
+  \item The algorithm is Gaussian elimination with partial pivoting.
+        This method is very fast;  some much slower algorithms can give
+        better accuracy, but only by a small factor.
+  \item This routine replaces the obsolete sla\_DMATRX.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DMOON}{Approx Moon Pos/Vel}
+{
+ \action{Approximate geocentric position and velocity of the Moon
+         (double precision).}
+ \call{CALL sla\_DMOON (DATE, PV)}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{TDB (loosely ET) as a Modified Julian Date (JD$-$2400000.5)
+}
+}
+\args{RETURNED}
+{
+ \spec{PV}{D(6)}{Moon \xyzxyzd, mean equator and equinox
+                 of date (AU, AU~s$^{-1}$)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item This routine is a full implementation of the algorithm
+        published by Meeus (see reference).
+  \item Meeus quotes accuracies of \arcseci{10} in longitude,
+        \arcseci{3} in latitude and \arcsec{0}{2} arcsec in HP
+        (equivalent to about 20~km in distance).  Comparison with
+        JPL~DE200 over the interval 1960-2025 gives RMS errors of
+        \arcsec{3}{7} and 83~mas/hour in longitude,
+        \arcsec{2}{3} arcsec and 48~mas/hour in latitude,
+        11~km and 81~mm/s in distance.
+        The maximum errors over the same interval are
+        \arcseci{18} and \arcsec{0}{50}/hour in longitude,
+        \arcseci{11} and \arcsec{0}{24}/hour in latitude,
+        40~km and 0.29~m/s in distance.
+  \item The original algorithm is expressed in terms of the obsolete
+        timescale {\it Ephemeris Time}.  Either TDB or TT can be used,
+        but not UT without incurring significant errors (\arcseci{30} at
+        the present time) due to the Moon's \arcsec{0}{5}/s movement.
+  \item The algorithm is based on pre IAU 1976 standards.  However,
+        the result has been moved onto the new (FK5) equinox, an
+        adjustment which is in any case much smaller than the
+        intrinsic accuracy of the procedure.
+  \item Velocity is obtained by a complete analytical differentiation
+        of the Meeus model.
+ \end{enumerate}
+}
+\aref{Meeus, {\it l'Astronomie}, June 1984, p348.}
+%-----------------------------------------------------------------------
+\routine{SLA\_DMXM}{Multiply $3\times3$ Matrices}
+{
+ \action{Product of two $3\times3$ matrices (double precision).}
+ \call{CALL sla\_DMXM (A, B, C)}
+}
+\args{GIVEN}
+{
+ \spec{A}{D(3,3)}{matrix {\bf A}} \\
+ \spec{B}{D(3,3)}{matrix {\bf B}}
+}
+\args{RETURNED}
+{
+ \spec{C}{D(3,3)}{matrix result: {\bf A}$\times${\bf B}}
+}
+\anote{To comply with the ANSI Fortran 77 standard, A, B and C must
+       be different arrays.  The routine is, in fact, coded
+       so as to work properly on the VAX and many other systems even
+       if this rule is violated, something that is {\bf not}, however,
+       recommended.}
+%-----------------------------------------------------------------------
+\routine{SLA\_DMXV}{Apply 3D Rotation}
+{
+ \action{Multiply a 3-vector by a rotation matrix (double precision).}
+ \call{CALL sla\_DMXV (DM, VA, VB)}
+}
+\args{GIVEN}
+{
+ \spec{DM}{D(3,3)}{rotation matrix} \\
+ \spec{VA}{D(3)}{vector to be rotated}
+}
+\args{RETURNED}
+{
+ \spec{VB}{D(3)}{result vector}
+}
+\notes
+{
+ \begin{enumerate}
+  \item This routine performs the operation:
+        \begin{verse}
+           {\bf b} = {\bf M}$\cdot${\bf a}
+        \end{verse}
+        where {\bf a} and {\bf b} are the 3-vectors VA and VB
+        respectively, and {\bf M} is the $3\times3$ matrix DM.
+  \item The main function of this routine is apply a
+        rotation;  under these circumstances, {\bf M} is a
+        {\it proper real orthogonal}\/ matrix.
+  \item To comply with the ANSI Fortran 77 standard, VA and VB must
+        {\bf not} be the same array.  The routine is, in fact, coded
+        so as to work properly on the VAX and many other systems even
+        if this rule is violated, something that is {\bf not}, however,
+        recommended.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DPAV}{Position-Angle Between Two Directions}
+{
+ \action{Returns the bearing (position angle) of one celestial
+         direction with respect to another (double precision).}
+ \call{D~=~sla\_DPAV (V1, V2)}
+}
+\args{GIVEN}
+{
+ \spec{V1}{D(3)}{direction cosines of one point} \\
+ \spec{V2}{D(3)}{directions cosines of the other point}
+}
+\args{RETURNED}
+{
+ \spec{sla\_DPAV}{D}{position-angle of 2nd point with respect to 1st}
+}
+\notes
+{
+ \begin{enumerate}
+ \item The coordinate frames correspond to \radec,
+       $[\lambda,\phi]$ {\it etc.}.
+ \item The result is the bearing (position angle), in radians,
+       of point V2 as seen
+       from point V1.  It is in the range $\pm \pi$.  The sense
+       is such that if V2
+       is a small distance due east of V1 the result
+       is about $+\pi/2$. Zero is returned
+       if the two points are coincident.
+ \item The routine sla\_DBEAR performs an equivalent function except
+       that the points are specified in the form of spherical coordinates.
+ \end{enumerate}
+}
+%------------------------------------------------------------------------------
+\routine{SLA\_DR2AF}{Radians to Deg,Min,Sec,Frac}
+{
+ \action{Convert an angle in radians to degrees, arcminutes, arcseconds,
+         fraction (double precision).}
+ \call{CALL sla\_DR2AF (NDP, ANGLE, SIGN, IDMSF)}
+}
+\args{GIVEN}
+{
+ \spec{NDP}{I}{number of decimal places of arcseconds} \\
+ \spec{ANGLE}{D}{angle in radians}
+}
+\args{RETURNED}
+{
+ \spec{SIGN}{C}{`+' or `$-$'} \\
+ \spec{IDMSF}{I(4)}{degrees, arcminutes, arcseconds, fraction}
+}
+\notes
+{
+ \begin{enumerate}
+  \item NDP less than zero is interpreted as zero.
+  \item The largest useful value for NDP is determined by the size
+        of ANGLE, the format of DOUBLE~PRECISION floating-point numbers
+        on the target machine, and the risk of overflowing IDMSF(4).
+        For example, on a VAX computer, for ANGLE up to $2\pi$, the available
+        floating-point precision corresponds roughly to NDP=12.  However,
+        the practical limit is NDP=9, set by the capacity of the 32-bit
+        integer IDMSF(4).
+  \item The absolute value of ANGLE may exceed $2\pi$.  In cases where it
+        does not, it is up to the caller to test for and handle the
+        case where ANGLE is very nearly $2\pi$ and rounds up to $360^{\circ}$,
+        by testing for IDMSF(1)=360 and setting IDMSF(1-4) to zero.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DR2TF}{Radians to Hour,Min,Sec,Frac}
+{
+ \action{Convert an angle in radians to hours, minutes, seconds,
+         fraction (double precision).}
+ \call{CALL sla\_DR2TF (NDP, ANGLE, SIGN, IHMSF)}
+}
+\args{GIVEN}
+{
+ \spec{NDP}{I}{number of decimal places of seconds} \\
+ \spec{ANGLE}{D}{angle in radians}
+}
+\args{RETURNED}
+{
+ \spec{SIGN}{C}{`+' or `$-$'} \\
+ \spec{IHMSF}{I(4)}{hours, minutes, seconds, fraction}
+}
+\notes
+{
+ \begin{enumerate}
+  \item NDP less than zero is interpreted as zero.
+  \item The largest useful value for NDP is determined by the size
+        of ANGLE, the format of DOUBLE PRECISION floating-point numbers
+        on the target machine, and the risk of overflowing IHMSF(4).
+        For example, on a VAX computer, for ANGLE up to $2\pi$, the available
+        floating-point precision corresponds roughly to NDP=12.  However,
+        the practical limit is NDP=9, set by the capacity of the 32-bit
+        integer IHMSF(4).
+  \item The absolute value of ANGLE may exceed $2\pi$.  In cases where it
+        does not, it is up to the caller to test for and handle the
+        case where ANGLE is very nearly $2\pi$ and rounds up to 24~hours,
+        by testing for IHMSF(1)=24 and setting IHMSF(1-4) to zero.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DRANGE}{Put Angle into Range $\pm\pi$}
+{
+ \action{Normalize an angle into the range $\pm\pi$ (double precision).}
+ \call{D~=~sla\_DRANGE (ANGLE)}
+}
+\args{GIVEN}
+{
+ \spec{ANGLE}{D}{angle in radians}
+}
+\args{RETURNED}
+{
+ \spec{sla\_DRANGE}{D}{ANGLE expressed in the range $\pm\pi$.}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DRANRM}{Put Angle into Range $0\!-\!2\pi$}
+{
+ \action{Normalize an angle into the range $0\!-\!2\pi$
+         (double precision).}
+ \call{D~=~sla\_DRANRM (ANGLE)}
+}
+\args{GIVEN}
+{
+ \spec{ANGLE}{D}{angle in radians}
+}
+\args{RETURNED}
+{
+ \spec{sla\_DRANRM}{D}{ANGLE expressed in the range $0\!-\!2\pi$}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DS2C6}{Spherical Pos/Vel to Cartesian}
+{
+ \action{Conversion of position \& velocity in spherical coordinates
+         to Cartesian coordinates (double precision).}
+ \call{CALL sla\_DS2C6 (A, B, R, AD, BD, RD, V)}
+}
+\args{GIVEN}
+{
+ \spec{A}{D}{longitude (radians) -- for example $\alpha$} \\
+ \spec{B}{D}{latitude (radians) -- for example $\delta$} \\
+ \spec{R}{D}{radial coordinate} \\
+ \spec{AD}{D}{longitude derivative (radians per unit time)} \\
+ \spec{BD}{D}{latitude derivative (radians per unit time)} \\
+ \spec{RD}{D}{radial derivative}
+}
+\args{RETURNED}
+{
+ \spec{V}{D(6)}{\xyzxyzd}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DS2TP}{Spherical to Tangent Plane}
+{
+ \action{Projection of spherical coordinates onto the tangent plane
+         (double precision).}
+ \call{CALL sla\_DS2TP (RA, DEC, RAZ, DECZ, XI, ETA, J)}
+}
+\args{GIVEN}
+{
+ \spec{RA,DEC}{D}{spherical coordinates of star (radians)} \\
+ \spec{RAZ,DECZ}{D}{spherical coordinates of tangent point (radians)}
+}
+\args{RETURNED}
+{
+ \spec{XI,ETA}{D}{tangent plane coordinates (radians)} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} 0 = OK, star on tangent plane} \\
+ \spec{}{}{\hspace{1.5em} 1 = error, star too far from axis} \\
+ \spec{}{}{\hspace{1.5em} 2 = error, antistar on tangent plane} \\
+ \spec{}{}{\hspace{1.5em} 3 = error, antistar too far from axis}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The projection is called the {\it gnomonic}\/ projection;  the
+        Cartesian coordinates \xieta\ are called 
+        {\it standard coordinates.}\/  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, {\it i.e.}\ radians near the origin.
+  \item When working in \xyz\ rather than spherical coordinates, the
+        equivalent Cartesian routine sla\_DV2TP is available.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DSEP}{Angle Between 2 Points on Sphere}
+{
+ \action{Angle between two points on a sphere (double precision).}
+ \call{D~=~sla\_DSEP (A1, B1, A2, B2)}
+}
+\args{GIVEN}
+{
+ \spec{A1,B1}{D}{spherical coordinates of one point (radians)} \\
+ \spec{A2,B2}{D}{spherical coordinates of the other point (radians)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_DSEP}{D}{angle between [A1,B1] and [A2,B2] in radians}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The spherical coordinates are right ascension and declination,
+        longitude and latitude, {\it etc.}, in radians.
+  \item The result is always positive.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DT}{Approximate ET minus UT}
+{
+ \action{Estimate $\Delta$T, the offset between dynamical time
+         and Universal Time, for a given historical epoch.}
+ \call{D~=~sla\_DT (EPOCH)}
+}
+\args{GIVEN}
+{
+ \spec{EPOCH}{D}{(Julian) epoch ({\it e.g.}\ 1850D0)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_DT}{D}{approximate ET$-$UT (after 1984, TT$-$UT1) in seconds}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Depending on the epoch, one of three parabolic approximations
+        is used:
+\begin{tabbing}
+xx \= xxxxxxxxxxxxxxxxxx \= \kill
+\> before AD 979 \> Stephenson \& Morrison's 390 BC to AD 948 model \\
+\> AD 979 to AD 1708 \> Stephenson \& Morrison's AD 948 to AD 1600 model \\
+\> after AD 1708 \> McCarthy \& Babcock's post-1650 model
+\end{tabbing}
+        The breakpoints are chosen to ensure continuity:  they occur
+        at places where the adjacent models give the same answer as
+        each other.
+  \item The accuracy is modest, with errors of up to $20^{\rm s}$ during
+        the interval since 1650, rising to perhaps $30^{\rm m}$
+        by 1000~BC.  Comparatively accurate values from AD~1600
+        are tabulated in
+        the {\it Astronomical Almanac}\/ (see section K8 of the 1995
+        edition).
+  \item The use of {\tt DOUBLE PRECISION} for both argument and result is
+        simply for compatibility with other SLALIB time routines.
+  \item The models used are based on a lunar tidal acceleration value
+        of \arcsec{-26}{00} per century.
+ \end{enumerate}
+}
+\aref{Seidelmann, P.K.\ (ed), 1992.  {\it Explanatory
+      Supplement to the Astronomical Almanac,}\/ ISBN~0-935702-68-7.
+      This contains references to the papers by Stephenson \& Morrison
+      and by McCarthy \& Babcock which describe the models used here.}
+%-----------------------------------------------------------------------
+\routine{SLA\_DTF2D}{Hour,Min,Sec to Days}
+{
+ \action{Convert hours, minutes, seconds to days (double precision).}
+ \call{CALL sla\_DTF2D (IHOUR, IMIN, SEC, DAYS, J)}
+}
+\args{GIVEN}
+{
+ \spec{IHOUR}{I}{hours} \\
+ \spec{IMIN}{I}{minutes} \\
+ \spec{SEC}{D}{seconds}
+}
+\args{RETURNED}
+{
+ \spec{DAYS}{D}{interval in days} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} 0 = OK} \\
+ \spec{}{}{\hspace{1.5em} 1 = IHOUR outside range 0-23} \\
+ \spec{}{}{\hspace{1.5em} 2 = IMIN outside range 0-59} \\
+ \spec{}{}{\hspace{1.5em} 3 = SEC outside range 0-59.999$\cdots$}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The result is computed even if any of the range checks fail.
+  \item The sign must be dealt with outside this routine.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DTF2R}{Hour,Min,Sec to Radians}
+{
+ \action{Convert hours, minutes, seconds to radians (double precision).}
+ \call{CALL sla\_DTF2R (IHOUR, IMIN, SEC, RAD, J)}
+}
+\args{GIVEN}
+{
+ \spec{IHOUR}{I}{hours} \\
+ \spec{IMIN}{I}{minutes} \\
+ \spec{SEC}{D}{seconds}
+}
+\args{RETURNED}
+{
+ \spec{RAD}{D}{angle in radians} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} 0 = OK} \\
+ \spec{}{}{\hspace{1.5em} 1 = IHOUR outside range 0-23} \\
+ \spec{}{}{\hspace{1.5em} 2 = IMIN outside range 0-59} \\
+ \spec{}{}{\hspace{1.5em} 3 = SEC outside range 0-59.999$\cdots$}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The result is computed even if any of the range checks fail.
+  \item The sign must be dealt with outside this routine.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DTP2S}{Tangent Plane to Spherical}
+{
+ \action{Transform tangent plane coordinates into spherical
+         coordinates (double precision)}
+ \call{CALL sla\_DTP2S (XI, ETA, RAZ, DECZ, RA, DEC)}
+}
+\args{GIVEN}
+{
+ \spec{XI,ETA}{D}{tangent plane rectangular coordinates (radians)} \\
+ \spec{RAZ,DECZ}{D}{spherical coordinates of tangent point (radians)}
+}
+\args{RETURNED}
+{
+ \spec{RA,DEC}{D}{spherical coordinates (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The projection is called the {\it gnomonic}\/ projection;  the
+        Cartesian coordinates \xieta\ are called 
+        {\it standard coordinates.}\/  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, {\it i.e.}\ radians near the origin.
+  \item When working in \xyz\ rather than spherical coordinates, the
+        equivalent Cartesian routine sla\_DTP2V is available.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DTP2V}{Tangent Plane to Direction Cosines}
+{
+ \action{Given the tangent-plane coordinates of a star and the direction
+         cosines of the tangent point, determine the direction cosines
+         of the star
+         (double precision).}
+ \call{CALL sla\_DTP2V (XI, ETA, V0, V)}
+}
+\args{GIVEN}
+{
+ \spec{XI,ETA}{D}{tangent plane coordinates of star (radians)} \\
+ \spec{V0}{D(3)}{direction cosines of tangent point}
+}
+\args{RETURNED}
+{
+ \spec{V}{D(3)}{direction cosines of star}
+}
+\notes
+{
+ \begin{enumerate}
+  \item If vector V0 is not of unit length, the returned vector V will
+        be wrong.
+  \item If vector V0 points at a pole, the returned vector V will be
+        based on the arbitrary assumption that $\alpha=0$ at
+        the tangent point.
+  \item The projection is called the {\it gnomonic}\/ projection;  the
+        Cartesian coordinates \xieta\ are called 
+        {\it standard coordinates.}\/  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, {\it i.e.}\ radians near the origin.
+  \item This routine is the Cartesian equivalent of the routine sla\_DTP2S.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DTPS2C}{Plate centre from $\xi,\eta$ and $\alpha,\delta$}
+{
+ \action{From the tangent plane coordinates of a star of known \radec,
+        determine the \radec\ of the tangent point (double precision)}
+ \call{CALL sla\_DTPS2C (XI, ETA, RA, DEC, RAZ1, DECZ1, RAZ2, DECZ2, N)}
+}
+\args{GIVEN}
+{
+ \spec{XI,ETA}{D}{tangent plane rectangular coordinates (radians)} \\
+ \spec{RA,DEC}{D}{spherical coordinates (radians)}
+}
+\args{RETURNED}
+{
+ \spec{RAZ1,DECZ1}{D}{spherical coordinates of tangent point,
+                      solution 1} \\
+ \spec{RAZ2,DECZ2}{D}{spherical coordinates of tangent point,
+                      solution 2} \\
+ \spec{N}{I}{number of solutions:} \\
+ \spec{}{}{\hspace{1em} 0 = no solutions returned  (note 2)} \\
+ \spec{}{}{\hspace{1em} 1 = only the first solution is useful (note 3)} \\
+ \spec{}{}{\hspace{1em} 2 = there are two useful solutions (note 3)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The RAZ1 and RAZ2 values returned are in the range $0\!-\!2\pi$.
+  \item Cases where there is no solution can only arise near the poles.
+        For example, it is clearly impossible for a star at the pole
+        itself to have a non-zero $\xi$ value, and hence it is
+        meaningless to ask where the tangent point would have to be
+        to bring about this combination of $\xi$ and $\delta$.
+  \item Also near the poles, cases can arise where there are two useful
+        solutions.  The argument N indicates whether the second of the
+        two solutions returned is useful.  N\,=\,1
+        indicates only one useful solution, the usual case;  under
+        these circumstances, the second solution corresponds to the
+        ``over-the-pole'' case, and this is reflected in the values
+        of RAZ2 and DECZ2 which are returned.
+  \item The DECZ1 and DECZ2 values returned are in the range $\pm\pi$,
+        but in the ordinary, non-pole-crossing, case, the range is
+        $\pm\pi/2$.
+  \item RA, DEC, RAZ1, DECZ1, RAZ2, DECZ2 are all in radians.
+  \item The projection is called the {\it gnomonic}\/ projection;  the
+        Cartesian coordinates \xieta\ are called 
+        {\it standard coordinates.}\/  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, {\it i.e.}\ radians near the origin.
+  \item When working in \xyz\ rather than spherical coordinates, the
+        equivalent Cartesian routine sla\_DTPV2C is available.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DTPV2C}{Plate centre from $\xi,\eta$ and $x,y,z$}
+{
+ \action{From the tangent plane coordinates of a star of known
+         direction cosines, determine the direction cosines
+         of the tangent point (double precision)}
+ \call{CALL sla\_DTPV2C (XI, ETA, V, V01, V02, N)}
+}
+\args{GIVEN}
+{
+ \spec{XI,ETA}{D}{tangent plane coordinates of star (radians)} \\
+ \spec{V}{D(3)}{direction cosines of star}
+}
+\args{RETURNED}
+{
+ \spec{V01}{D(3)}{direction cosines of tangent point, solution 1} \\
+ \spec{V01}{D(3)}{direction cosines of tangent point, solution 2} \\
+ \spec{N}{I}{number of solutions:} \\
+ \spec{}{}{\hspace{1em} 0 = no solutions returned  (note 2)} \\
+ \spec{}{}{\hspace{1em} 1 = only the first solution is useful (note 3)} \\
+ \spec{}{}{\hspace{1em} 2 = there are two useful solutions (note 3)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The vector V must be of unit length or the result will be wrong.
+  \item Cases where there is no solution can only arise near the poles.
+        For example, it is clearly impossible for a star at the pole
+        itself to have a non-zero XI value.
+  \item Also near the poles, cases can arise where there are two useful
+        solutions.  The argument N indicates whether the second of the
+        two solutions returned is useful.
+        N\,=\,1
+        indicates only one useful solution, the usual case;  under these
+        circumstances, the second solution can be regarded as valid if
+        the vector V02 is interpreted as the ``over-the-pole'' case.
+  \item The projection is called the {\it gnomonic}\/ projection;  the
+        Cartesian coordinates \xieta\ are called 
+        {\it standard coordinates.}\/  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, {\it i.e.}\ radians near the origin.
+  \item This routine is the Cartesian equivalent of the routine sla\_DTPS2C.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DTT}{TT minus UTC}
+{
+ \action{Compute $\Delta$TT, the increment to be applied to
+         Coordinated Universal Time UTC to give
+         Terrestrial Time TT.}
+ \call{D~=~sla\_DTT (DJU)}
+}
+\args{GIVEN}
+{
+ \spec{DJU}{D}{UTC date as a modified JD (JD$-$2400000.5)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_DTT}{D}{TT$-$UTC in seconds}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The UTC is specified to be a date rather than a time to indicate
+        that care needs to be taken not to specify an instant which lies
+        within a leap second.  Though in most cases UTC can include the
+        fractional part, correct behaviour on the day of a leap second
+        can be guaranteed only up to the end of the second
+        $23^{\rm h}\,59^{\rm m}\,59^{\rm s}$.
+  \item Pre 1972 January 1 a fixed value of 10 + ET$-$TAI is returned.
+  \item TT is one interpretation of the defunct timescale
+        {\it Ephemeris Time}, ET.
+  \item See also the routine sla\_DT, which roughly estimates ET$-$UT for
+        historical epochs.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DV2TP}{Direction Cosines to Tangent Plane}
+{
+ \action{Given the direction cosines of a star and of the tangent point,
+         determine the star's tangent-plane coordinates
+         (double precision).}
+ \call{CALL sla\_DV2TP (V, V0, XI, ETA, J)}
+}
+\args{GIVEN}
+{
+ \spec{V}{D(3)}{direction cosines of star} \\
+ \spec{V0}{D(3)}{direction cosines of tangent point}
+}
+\args{RETURNED}
+{
+ \spec{XI,ETA}{D}{tangent plane coordinates (radians)} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} 0 = OK, star on tangent plane} \\
+ \spec{}{}{\hspace{1.5em} 1 = error, star too far from axis} \\
+ \spec{}{}{\hspace{1.5em} 2 = error, antistar on tangent plane} \\
+ \spec{}{}{\hspace{1.5em} 3 = error, antistar too far from axis}
+}
+\notes
+{
+ \begin{enumerate}
+  \item If vector V0 is not of unit length, or if vector V is of zero
+        length, the results will be wrong.
+  \item If V0 points at a pole, the returned $\xi,\eta$
+        will be based on the
+        arbitrary assumption that $\alpha=0$ at the tangent point.
+  \item The projection is called the {\it gnomonic}\/ projection;  the
+        Cartesian coordinates \xieta\ are called 
+        {\it standard coordinates.}\/  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, {\it i.e.}\ radians near the origin.
+  \item This routine is the Cartesian equivalent of the routine sla\_DS2TP.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DVDV}{Scalar Product}
+{
+ \action{Scalar product of two 3-vectors (double precision).}
+ \call{D~=~sla\_DVDV (VA, VB)}
+}
+\args{GIVEN}
+{
+ \spec{VA}{D(3)}{first vector} \\
+ \spec{VB}{D(3)}{second vector}
+}
+\args{RETURNED}
+{
+ \spec{sla\_DVDV}{D}{scalar product VA.VB}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_DVN}{Normalize Vector}
+{
+ \action{Normalize a 3-vector, also giving the modulus (double precision).}
+ \call{CALL sla\_DVN (V, UV, VM)}
+}
+\args{GIVEN}
+{
+ \spec{V}{D(3)}{vector}
+}
+\args{RETURNED}
+{
+ \spec{UV}{D(3)}{unit vector in direction of V} \\
+ \spec{VM}{D}{modulus of V}
+}
+\anote{If the modulus of V is zero, UV is set to zero as well.}
+%-----------------------------------------------------------------------
+\routine{SLA\_DVXV}{Vector Product}
+{
+ \action{Vector product of two 3-vectors (double precision).}
+ \call{CALL sla\_DVXV (VA, VB, VC)}
+}
+\args{GIVEN}
+{
+ \spec{VA}{D(3)}{first vector} \\
+ \spec{VB}{D(3)}{second vector}
+}
+\args{RETURNED}
+{
+ \spec{VC}{D(3)}{vector product VA$\times$VB}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_E2H}{$h,\delta$ to Az,El}
+{
+ \action{Equatorial to horizon coordinates
+         (single precision).}
+ \call{CALL sla\_DE2H (HA, DEC, PHI, AZ, EL)}
+}
+\args{GIVEN}
+{
+ \spec{HA}{R}{hour angle (radians)} \\
+ \spec{DEC}{R}{declination (radians)} \\
+ \spec{PHI}{R}{latitude (radians)}
+}
+\args{RETURNED}
+{
+ \spec{AZ}{R}{azimuth (radians)} \\
+ \spec{EL}{R}{elevation (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Azimuth is returned in the range $0\!-\!2\pi$;  north is zero,
+        and east is $+\pi/2$.  Elevation is returned in the range
+        $\pm\pi$.
+  \item The latitude must be geodetic.  In critical applications,
+        corrections for polar motion should be applied.
+  \item In some applications it will be important to specify the
+        correct type of hour angle and declination in order to
+        produce the required type of azimuth and elevation.  In
+        particular, it may be important to distinguish between
+        elevation as affected by refraction, which would
+        require the {\it observed} \hadec, and the elevation
+        {\it in vacuo}, which would require the {\it topocentric}
+        \hadec.
+        If the effects of diurnal aberration can be neglected, the
+        {\it apparent} \hadec\ may be used instead of the topocentric
+        \hadec.
+  \item No range checking of arguments is carried out.
+  \item In applications which involve many such calculations, rather
+        than calling the present routine it will be more efficient to
+        use inline code, having previously computed fixed terms such
+        as sine and cosine of latitude, and (for tracking a star)
+        sine and cosine of declination.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_EARTH}{Approx Earth Pos/Vel}
+{
+ \action{Approximate heliocentric position and velocity of the Earth
+         (single precision).}
+ \call{CALL sla\_EARTH (IY, ID, FD, PV)}
+}
+\args{GIVEN}
+{
+ \spec{IY}{I}{year} \\
+ \spec{ID}{I}{day in year (1 = Jan 1st)} \\
+ \spec{FD}{R}{fraction of day}
+}
+\args{RETURNED}
+{
+ \spec{PV}{R(6)}{Earth \xyzxyzd\ (AU, AU~s$^{-1}$)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The date and time is TDB (loosely ET) in a Julian calendar
+        which has been aligned to the ordinary Gregorian
+        calendar for the interval 1900~March~1 to 2100~February~28.
+        The year and day can be obtained by calling sla\_CALYD or
+        sla\_CLYD.
+  \item The Earth heliocentric 6-vector is referred to the
+        FK4 mean equator and equinox of date.
+  \item Maximum/RMS errors 1950-2050:
+        \begin{itemize}
+         \item 13/5~$\times10^{-5}$~AU = 19200/7600~km in position
+         \item 47/26~$\times10^{-10}$~AU~s$^{-1}$ =
+               0.0070/0.0039~km~s$^{-1}$ in speed
+        \end{itemize}
+  \item More accurate results are obtainable with the routine sla\_EVP.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_ECLEQ}{Ecliptic to Equatorial}
+{
+ \action{Transformation from ecliptic longitude and latitude to
+         J2000.0 \radec.}
+ \call{CALL sla\_ECLEQ (DL, DB, DATE, DR, DD)}
+}
+\args{GIVEN}
+{
+ \spec{DL,DB}{D}{ecliptic longitude and latitude
+                          (mean of date, IAU 1980 theory, radians)} \\
+ \spec{DATE}{D}{TDB (formerly ET) as Modified Julian Date
+                                             (JD$-$2400000.5)}
+}
+\args{RETURNED}
+{
+ \spec{DR,DD}{D}{J2000.0 mean \radec\ (radians)}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_ECMAT}{Form $\alpha,\delta\rightarrow\lambda,\beta$ Matrix}
+{
+ \action{Form the equatorial to ecliptic rotation matrix (IAU 1980 theory).}
+ \call{CALL sla\_ECMAT (DATE, RMAT)}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{TDB (formerly ET) as Modified Julian Date
+                                           (JD$-$2400000.5)}
+}
+\args{RETURNED}
+{
+ \spec{RMAT}{D(3,3)}{rotation matrix}
+}
+\notes
+{
+ \begin{enumerate}
+  \item RMAT is matrix {\bf M} in the expression
+        {\bf v}$_{ecl}$~=~{\bf M}$\cdot${\bf v}$_{equ}$.
+  \item The equator, equinox and ecliptic are mean of date.
+ \end{enumerate}
+}
+\aref{Murray, C.A., {\it Vectorial Astrometry}, section 4.3.}
+%-----------------------------------------------------------------------
+\routine{SLA\_ECOR}{RV \& Time Corrns to Sun}
+{
+ \action{Component of Earth orbit velocity and heliocentric
+         light time in a given direction.}
+ \call{CALL sla\_ECOR (RM, DM, IY, ID, FD, RV, TL)}
+}
+\args{GIVEN}
+{
+ \spec{RM,DM}{R}{mean \radec\ of date (radians)} \\
+ \spec{IY}{I}{year} \\
+ \spec{ID}{I}{day in year (1 = Jan 1st)} \\
+ \spec{FD}{R}{fraction of day}
+}
+\args{RETURNED}
+{
+ \spec{RV}{R}{component of Earth orbital velocity (km~s$^{-1}$)} \\
+ \spec{TL}{R}{component of heliocentric light time (s)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The date and time is TDB (loosely ET) in a Julian calendar
+        which has been aligned to the ordinary Gregorian
+        calendar for the interval 1900 March 1 to 2100 February 28.
+        The year and day can be obtained by calling sla\_CALYD or
+        sla\_CLYD.
+  \item Sign convention:
+        \begin{itemize}
+         \item The velocity component is +ve when the
+               Earth is receding from
+               the given point on the sky.
+         \item The light time component is +ve
+               when the Earth lies between the Sun and
+               the given point on the sky.
+        \end{itemize}
+ \item Accuracy:
+       \begin{itemize}
+        \item The velocity component is usually within 0.004~km~s$^{-1}$
+              of the correct value and is never in error by more than
+              0.007~km~s$^{-1}$.
+        \item The error in light time correction is about
+              \tsec{0}{03} at worst,
+              but is usually better than \tsec{0}{01}.
+       \end{itemize}
+       For applications requiring higher accuracy, see the sla\_EVP routine.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_EG50}{B1950 $\alpha,\delta$ to Galactic}
+{
+ \action{Transformation from B1950.0 FK4 equatorial coordinates to
+         IAU 1958 galactic coordinates.}
+ \call{CALL sla\_EG50 (DR, DD, DL, DB)}
+}
+\args{GIVEN}
+{
+ \spec{DR,DD}{D}{B1950.0 \radec\ (radians)}
+}
+\args{RETURNED}
+{
+ \spec{DL,DB}{D}{galactic longitude and latitude \gal\ (radians)}
+}
+\anote{The equatorial coordinates are B1950.0 FK4.  Use the
+       routine sla\_EQGAL if conversion from J2000.0 FK5 coordinates
+       is required.}
+\aref{Blaauw {\it et al.}, 1960, {\it Mon.Not.R.astr.Soc.},
+      {\bf 121}, 123.}
+%-----------------------------------------------------------------------
+\routine{SLA\_EL2UE}{Conventional to Universal Elements}
+{
+ \action{Transform conventional osculating orbital elements
+         into ``universal'' form.}
+ \call{CALL sla\_EL2UE (\vtop{
+         \hbox{DATE, JFORM, EPOCH, ORBINC, ANODE,}
+         \hbox{PERIH, AORQ, E, AORL, DM,}
+         \hbox{U, JSTAT)}}}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{epoch (TT MJD) of osculation (Note~3)} \\
+ \spec{JFORM}{I}{choice of element set (1-3; Note~6)} \\
+ \spec{EPOCH}{D}{epoch of elements ($t_0$ or $T$, TT MJD)} \\
+ \spec{ORBINC}{D}{inclination ($i$, radians)} \\
+ \spec{ANODE}{D}{longitude of the ascending node ($\Omega$, radians)} \\
+ \spec{PERIH}{D}{longitude or argument of perihelion
+                            ($\varpi$ or $\omega$,} \\
+ \spec{}{}{\hspace{1.5em} radians)} \\
+ \spec{AORQ}{D}{mean distance or perihelion distance ($a$ or $q$, AU)} \\
+ \spec{E}{D}{eccentricity ($e$)} \\
+ \spec{AORL}{D}{mean anomaly or longitude
+                               ($M$ or $L$, radians,} \\
+ \spec{}{}{\hspace{1.5em} JFORM=1,2 only)} \\
+ \spec{DM}{D}{daily motion ($n$, radians, JFORM=1 only)}
+}
+\args{RETURNED}
+{
+ \spec{U}{D(13)}{universal orbital elements (Note~1)} \\
+ \specel {(1)}     {combined mass ($M+m$)} \\
+ \specel {(2)}     {total energy of the orbit ($\alpha$)} \\
+ \specel {(3)}     {reference (osculating) epoch ($t_0$)} \\
+ \specel {(4-6)}   {position at reference epoch (${\rm \bf r}_0$)} \\
+ \specel {(7-9)}   {velocity at reference epoch (${\rm \bf v}_0$)} \\
+ \specel {(10)}    {heliocentric distance at reference epoch} \\
+ \specel {(11)}    {${\rm \bf r}_0.{\rm \bf v}_0$} \\
+ \specel {(12)}    {date ($t$)} \\
+ \specel {(13)}    {universal eccentric anomaly ($\psi$) of date,
+                    approx} \\ \\
+ \spec{JSTAT}{I}{status:} \\
+ \spec{}{}{\hspace{1.95em}       0 = OK} \\
+ \spec{}{}{\hspace{1.2em}  $-$1 = illegal JFORM} \\
+ \spec{}{}{\hspace{1.2em}   $-$2 = illegal E} \\
+ \spec{}{}{\hspace{1.2em}   $-$3 = illegal AORQ} \\
+ \spec{}{}{\hspace{1.2em}   $-$4 = illegal DM} \\
+ \spec{}{}{\hspace{1.2em}   $-$5 = numerical error}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The ``universal'' elements are those which define the orbit for
+        the purposes of the method of universal variables (see reference).
+        They consist of the combined mass of the two bodies, an epoch,
+        and the position and velocity vectors (arbitrary reference frame)
+        at that epoch.  The parameter set used here includes also various
+        quantities that can, in fact, be derived from the other
+        information.  This approach is taken to avoiding unnecessary
+        computation and loss of accuracy.  The supplementary quantities
+        are (i)~$\alpha$, which is proportional to the total energy of the
+        orbit, (ii)~the heliocentric distance at epoch,
+        (iii)~the outwards component of the velocity at the given epoch,
+        (iv)~an estimate of $\psi$, the ``universal eccentric anomaly'' at a
+        given date and (v)~that date.
+  \item The companion routine is sla\_UE2PV.  This takes the set of numbers
+        that the present routine outputs and uses them to derive the
+        object's position and velocity.  A single prediction requires one
+        call to the present routine followed by one call to sla\_UE2PV;
+        for convenience, the two calls are packaged as the routine
+        sla\_PLANEL.  Multiple predictions may be made by again calling the
+        present routine once, but then calling sla\_UE2PV multiple times,
+        which is faster than multiple calls to sla\_PLANEL.
+  \item DATE is the epoch of osculation.  It is in the TT timescale
+        (formerly Ephemeris Time, ET) and is a Modified Julian Date
+        (JD$-$2400000.5).
+  \item The supplied orbital elements are with respect to the J2000
+        ecliptic and equinox.  The position and velocity parameters
+        returned in the array U are with respect to the mean equator and
+        equinox of epoch J2000, and are for the perihelion prior to the
+        specified epoch.
+  \item The universal elements returned in the array U are in canonical
+        units (solar masses, AU and canonical days).
+  \item Three different element-format options are supported, as
+        follows. \\
+
+        JFORM=1, suitable for the major planets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of elements $t_0$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> longitude of perihelion $\varpi$ (radians) \\
+        \> AORQ   \> = \> mean distance $a$ (AU) \\
+        \> E      \> = \> eccentricity $e$ $( 0 \leq e < 1 )$ \\
+        \> AORL   \> = \> mean longitude $L$ (radians) \\
+        \> DM     \> = \> daily motion $n$ (radians)
+        \end{tabbing}
+
+        JFORM=2, suitable for minor planets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of elements $t_0$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> argument of perihelion $\omega$ (radians) \\
+        \> AORQ   \> = \> mean distance $a$ (AU) \\
+        \> E      \> = \> eccentricity $e$ $( 0 \leq e < 1 )$ \\
+        \> AORL   \> = \> mean anomaly $M$ (radians)
+        \end{tabbing}
+
+        JFORM=3, suitable for comets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of perihelion $T$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> argument of perihelion $\omega$ (radians) \\
+        \> AORQ   \> = \> perihelion distance $q$ (AU) \\
+        \> E      \> = \> eccentricity $e$ $( 0 \leq e \leq 10 )$
+        \end{tabbing}
+  \item Unused elements (DM for JFORM=2, AORL and DM for JFORM=3) are
+        not accessed.
+  \item The algorithm was originally adapted from the EPHSLA program of
+        D.\,H.\,P.\,Jones (private communication, 1996).  The method
+        is based on Stumpff's Universal Variables.
+ \end{enumerate}
+}
+\aref{Everhart, E. \& Pitkin, E.T., Am.~J.~Phys.~51, 712, 1983.}
+%------------------------------------------------------------------------------
+\routine{SLA\_EPB}{MJD to Besselian Epoch}
+{
+ \action{Conversion of Modified Julian Date to Besselian Epoch.}
+ \call{D~=~sla\_EPB (DATE)}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{Modified Julian Date (JD$-$2400000.5)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_EPB}{D}{Besselian Epoch}
+}
+\aref{Lieske, J.H., 1979, {\it Astr.Astrophys.}\ {\bf 73}, 282.}
+%-----------------------------------------------------------------------
+\routine{SLA\_EPB2D}{Besselian Epoch to MJD}
+{
+ \action{Conversion of Besselian Epoch to Modified Julian Date.}
+ \call{D~=~sla\_EPB2D (EPB)}
+}
+\args{GIVEN}
+{
+ \spec{EPB}{D}{Besselian Epoch}
+}
+\args{RETURNED}
+{
+ \spec{sla\_EPB2D}{D}{Modified Julian Date (JD$-$2400000.5)}
+}
+\aref{Lieske, J.H., 1979. {\it Astr.Astrophys.}\ {\bf 73}, 282.}
+%-----------------------------------------------------------------------
+\routine{SLA\_EPCO}{Convert Epoch to B or J}
+{
+ \action{Convert an epoch to Besselian or Julian to match another one.}
+ \call{D~=~sla\_EPCO (K0, K, E)}
+
+}
+\args{GIVEN}
+{
+ \spec{K0}{C}{form of result:  `B'=Besselian, `J'=Julian} \\
+ \spec{K}{C}{form of given epoch:  `B' or `J'} \\
+ \spec{E}{D}{epoch}
+}
+\args{RETURNED}
+{
+ \spec{sla\_EPCO}{D}{the given epoch converted as necessary}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The result is always either equal to or very close to
+        the given epoch E.  The routine is required only in
+        applications where punctilious treatment of heterogeneous
+        mixtures of star positions is necessary.
+  \item K0 and K are not validated.  They are interpreted as follows:
+        \begin{itemize}
+         \item If K0 and K are the same, the result is E.
+         \item If K0 is `B' and K isn't, the conversion is J to B.
+         \item In all other cases, the conversion is B to J.
+        \end{itemize}
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_EPJ}{MJD to Julian Epoch}
+{
+ \action{Convert Modified Julian Date to Julian Epoch.}
+ \call{D~=~sla\_EPJ (DATE)}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{Modified Julian Date (JD$-$2400000.5)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_EPJ}{D}{Julian Epoch}
+}
+\aref{Lieske, J.H., 1979.\ {\it Astr.Astrophys.}, {\bf 73}, 282.}
+%-----------------------------------------------------------------------
+\routine{SLA\_EPJ2D}{Julian Epoch to MJD}
+{
+ \action{Convert Julian Epoch to Modified Julian Date.}
+ \call{D~=~sla\_EPJ2D (EPJ)}
+}
+\args{GIVEN}
+{
+ \spec{EPJ}{D}{Julian Epoch}
+}
+\args{RETURNED}
+{
+ \spec{sla\_EPJ2D}{D}{Modified Julian Date (JD$-$2400000.5)}
+}
+\aref{Lieske, J.H., 1979.\ {\it Astr.Astrophys.}, {\bf 73}, 282.}
+%-----------------------------------------------------------------------
+\routine{SLA\_EQECL}{J2000 $\alpha,\delta$ to Ecliptic}
+{
+ \action{Transformation from J2000.0 equatorial coordinates to
+         ecliptic longitude and latitude.}
+ \call{CALL sla\_EQECL (DR, DD, DATE, DL, DB)}
+}
+\args{GIVEN}
+{
+ \spec{DR,DD}{D}{J2000.0 mean \radec\ (radians)} \\
+ \spec{DATE}{D}{TDB (formerly ET) as Modified Julian Date (JD$-$2400000.5)}
+}
+\args{RETURNED}
+{
+ \spec{DL,DB}{D}{ecliptic longitude and latitude
+                        (mean of date, IAU 1980 theory, radians)}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_EQEQX}{Equation of the Equinoxes}
+{
+ \action{Equation of the equinoxes (IAU 1994).}
+ \call{D~=~sla\_EQEQX (DATE)}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{TDB (formerly ET) as Modified Julian Date (JD$-$2400000.5)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_EQEQX}{D}{The equation of the equinoxes (radians)}
+}
+\notes{
+ \begin{enumerate}
+  \item The equation of the equinoxes is defined here as GAST~$-$~GMST:
+        it is added to a {\it mean}\/ sidereal time to give the
+        {\it apparent}\/ sidereal time.
+  \item The change from the classic ``textbook'' expression
+        $\Delta\psi\,cos\,\epsilon$ occurred with IAU Resolution C7,
+        Recommendation~3 (1994).  The new formulation takes into
+        account cross-terms between the various precession and
+        nutation quantities, amounting to about 3~milliarcsec.
+        The transition from the old to the new model officially
+        takes place on 1997 February~27.
+ \end{enumerate}
+}
+\aref{Capitaine, N.\ \& Gontier, A.-M.\ (1993),
+      {\it Astron. Astrophys.},
+      {\bf 275}, 645-650.}
+%-----------------------------------------------------------------------
+\routine{SLA\_EQGAL}{J2000 $\alpha,\delta$ to Galactic}
+{
+ \action{Transformation from J2000.0 FK5 equatorial coordinates to
+ IAU 1958 galactic coordinates.}
+ \call{CALL sla\_EQGAL (DR, DD, DL, DB)}
+}
+\args{GIVEN}
+{
+ \spec{DR,DD}{D}{J2000.0 \radec\ (radians)}
+}
+\args{RETURNED}
+{
+ \spec{DL,DB}{D}{galactic longitude and latitude \gal\ (radians)}
+}
+\anote{The equatorial coordinates are J2000.0 FK5.  Use the routine
+       sla\_EG50 if conversion from B1950.0 FK4 coordinates is required.}
+\aref{Blaauw {\it et al.}, 1960, {\it Mon.Not.R.astr.Soc.},
+      {\bf 121}, 123.}
+%-----------------------------------------------------------------------
+\routine{SLA\_ETRMS}{E-terms of Aberration}
+{
+ \action{Compute the E-terms vector -- the part of the annual
+         aberration which arises from the eccentricity of the
+         Earth's orbit.}
+ \call{CALL sla\_ETRMS (EP, EV)}
+}
+\args{GIVEN}
+{
+ \spec{EP}{D}{Besselian epoch}
+}
+\args{RETURNED}
+{
+ \spec{EV}{D(3)}{E-terms as $[\Delta x, \Delta y, \Delta z\,]$}
+}
+\anote{Note the use of the J2000 aberration constant (\arcsec{20}{49552}).
+       This is a reflection of the fact that the E-terms embodied in
+       existing star catalogues were computed from a variety of
+       aberration constants.  Rather than adopting one of the old
+       constants the latest value is used here.}
+\refs
+{
+ \begin{enumerate}
+  \item Smith, C.A.\ {\it et al.}, 1989.  {\it Astr.J.}\ {\bf 97}, 265.
+  \item Yallop, B.D.\ {\it et al.}, 1989.  {\it Astr.J.}\ {\bf 97}, 274.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_EULER}{Rotation Matrix from Euler Angles}
+{
+ \action{Form a rotation matrix from the Euler angles -- three
+         successive rotations about specified Cartesian axes
+         (single precision).}
+ \call{CALL sla\_EULER (ORDER, PHI, THETA, PSI, RMAT)}
+}
+\args{GIVEN}
+{
+ \spec{ORDER}{C*(*)}{specifies about which axes the rotations occur} \\
+ \spec{PHI}{R}{1st rotation (radians)} \\
+ \spec{THETA}{R}{2nd rotation (radians)} \\
+ \spec{PSI}{R}{3rd rotation (radians)}
+}
+\args{RETURNED}
+{
+ \spec{RMAT}{R(3,3)}{rotation matrix}
+}
+\notes
+{
+ \begin{enumerate}
+  \item A rotation is positive when the reference frame rotates
+        anticlockwise as seen looking towards the origin from the
+        positive region of the specified axis.
+  \item The characters of ORDER define which axes the three successive
+        rotations are about.  A typical value is `ZXZ', indicating that
+        RMAT is to become the direction cosine matrix corresponding to
+        rotations of the reference frame through PHI radians about the
+        old {\it z}-axis, followed by THETA radians about the resulting
+        {\it x}-axis,
+        then PSI radians about the resulting {\it z}-axis.  In detail:
+        \begin{itemize}
+         \item The axis names can be any of the following, in any order or
+               combination:  X, Y, Z, uppercase or lowercase, 1, 2, 3.  Normal
+               axis labelling/numbering conventions apply;
+               the {\it xyz} ($\equiv123$)
+               triad is right-handed.  Thus, the `ZXZ' example given above
+               could be written `zxz' or `313' (or even `ZxZ' or `3xZ').
+         \item ORDER is terminated by length or by the first unrecognized
+               character.
+         \item Fewer than three rotations are acceptable, in which case
+               the later angle arguments are ignored.
+        \end{itemize}
+  \item Zero rotations produces a unit RMAT.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_EVP}{Earth Position \& Velocity}
+{
+ \action{Barycentric and heliocentric velocity and position of the Earth.}
+ \call{CALL sla\_EVP (DATE, DEQX, DVB, DPB, DVH, DPH)}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{TDB (formerly ET) as a Modified Julian Date
+                                        (JD$-$2400000.5)} \\
+ \spec{DEQX}{D}{Julian Epoch ({\it e.g.}\ 2000D0) of mean equator and
+                equinox of the vectors returned.  If DEQX~$<0$,
+                  all vectors are referred to the mean equator and
+                  equinox (FK5) of date DATE.}
+}
+\args{RETURNED}
+{
+ \spec{DVB}{D(3)}{barycentric \xyzd, AU~s$^{-1}$} \\
+ \spec{DPB}{D(3)}{barycentric \xyz, AU} \\
+ \spec{DVH}{D(3)}{heliocentric \xyzd, AU~s$^{-1}$} \\
+ \spec{DPH}{D(3)}{heliocentric \xyz, AU}
+}
+\notes
+{
+ \begin{enumerate}
+  \item This routine is used when accuracy is more important
+        than CPU time, yet the extra complication of reading a
+        pre-computed ephemeris is not justified.  The maximum
+        deviations from the JPL~DE96 ephemeris are as follows:
+        \begin{itemize}
+         \item velocity (barycentric or heliocentric): 420~mm~s$^{-1}$
+         \item position (barycentric): 6900~km
+         \item position (heliocentric): 1600~km
+        \end{itemize}
+  \item The routine is an adaption of the BARVEL and BARCOR
+        subroutines of P.Stumpff, which are described in
+        {\it Astr.Astrophys.Suppl.Ser.}\ {\bf 41}, 1-8 (1980).
+        Most of the changes are merely cosmetic and do not affect
+        the results at all.  However, some adjustments have been
+        made so as to give results that refer to the new (IAU 1976
+        `FK5') equinox and precession, although the differences these
+        changes make relative to the results from Stumpff's original
+        `FK4' version are smaller than the inherent accuracy of the
+        algorithm.  One minor shortcoming in the original routines
+        that has {\bf not} been corrected is that slightly better
+        numerical accuracy could be achieved if the various polynomial
+        evaluations were to be so arranged that the smallest terms were
+        computed first.  Note also that one of Stumpff's precession
+        constants differs by \arcsec{0}{001} from the value given in the
+        {\it Explanatory Supplement}.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_FITXY}{Fit Linear Model to Two \xy\ Sets}
+{
+ \action{Fit a linear model to relate two sets of \xy\ coordinates.}
+ \call{CALL sla\_FITXY (ITYPE,NP,XYE,XYM,COEFFS,J)}
+}
+\args{GIVEN}
+{
+ \spec{ITYPE}{I}{type of model: 4 or 6 (note 1)} \\
+ \spec{NP}{I}{number of samples (note 2)} \\
+ \spec{XYE}{D(2,NP)}{expected \xy\ for each sample} \\
+ \spec{XYM}{D(2,NP)}{measured \xy\ for each sample}
+}
+\args{RETURNED}
+{
+ \spec{COEFFS}{D(6)}{coefficients of model (note 3)} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} 0 = OK} \\
+ \spec{}{}{\hspace{0.7em} $-$1 = illegal ITYPE} \\
+ \spec{}{}{\hspace{0.7em} $-$2 = insufficient data} \\
+ \spec{}{}{\hspace{0.7em} $-$3 = singular solution}
+}
+\notes
+{
+ \begin{enumerate}
+  \item ITYPE, which must be either 4 or 6, selects the type of model
+        fitted.  Both allowed ITYPE values produce a model COEFFS which
+        consists of six coefficients, namely the zero points and, for
+        each of XE and YE, the coefficient of XM and YM.  For ITYPE=6,
+        all six coefficients are independent, modelling squash and shear
+        as well as origin, scale, and orientation.  However, ITYPE=4
+        selects the {\it solid body rotation}\/ option;  the model COEFFS
+        still consists of the same six coefficients, but now two of
+        them are used twice (appropriately signed).  Origin, scale
+        and orientation are still modelled, but not squash or shear --
+        the units of X and Y have to be the same.
+  \item For NC=4, NP must be at least 2.  For NC=6, NP must be at
+        least 3.
+  \item The model is returned in the array COEFFS.  Naming the
+        six elements of COEFFS $a,b,c,d,e$ \& $f$,
+        the model transforms {\it measured}\/ coordinates
+        $[x_{m},y_{m}\,]$ into {\it expected}\/ coordinates
+        $[x_{e},y_{e}\,]$ as follows:
+        \begin{verse}
+         $x_{e} = a + bx_{m} + cy_{m}$ \\
+         $y_{e} = d + ex_{m} + fy_{m}$
+        \end{verse}
+        For the {\it solid body rotation}\/ option (ITYPE=4), the
+        magnitudes of $b$ and $f$, and of $c$ and $e$, are equal.  The
+        signs of these coefficients depend on whether there is a
+        sign reversal between $[x_{e},y_{e}]$ and $[x_{m},y_{m}]$;
+        fits are performed
+        with and without a sign reversal and the best one chosen.
+  \item Error status values J=$-$1 and $-$2 leave COEFFS unchanged;
+        if J=$-$3 COEFFS may have been changed.
+  \item See also sla\_PXY, sla\_INVF, sla\_XY2XY, sla\_DCMPF.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_FK425}{FK4 to FK5}
+{
+ \action{Convert B1950.0 FK4 star data to J2000.0 FK5.
+         This routine converts stars from the old, Bessel-Newcomb, FK4
+         system to the new, IAU~1976, FK5, Fricke system.  The precepts
+         of Smith~{\it et~al.}\ (see reference~1) are followed,
+         using the implementation
+         by Yallop~{\it et~al.}\ (reference~2) of a matrix method
+         due to Standish.
+         Kinoshita's development of Andoyer's post-Newcomb precession is
+         used.  The numerical constants from 
+         Seidelmann~{\it et~al.}\  (reference~3) are used canonically.}
+ \call{CALL sla\_FK425 (\vtop{
+         \hbox{R1950,D1950,DR1950,DD1950,P1950,V1950,}
+         \hbox{R2000,D2000,DR2000,DD2000,P2000,V2000)}}}
+}
+\args{GIVEN}
+{
+ \spec{R1950}{D}{B1950.0 $\alpha$ (radians)} \\
+ \spec{D1950}{D}{B1950.0 $\delta$ (radians)} \\
+ \spec{DR1950}{D}{B1950.0 proper motion in $\alpha$
+                              (radians per tropical year)} \\
+ \spec{DD1950}{D}{B1950.0 proper motion in $\delta$
+                              (radians per tropical year)} \\
+ \spec{P1950}{D}{B1950.0 parallax (arcsec)} \\
+ \spec{V1950}{D}{B1950.0 radial velocity (km~s$^{-1}$, +ve = moving away)}
+}
+\args{RETURNED}
+{
+ \spec{R2000}{D}{J2000.0 $\alpha$ (radians)} \\
+ \spec{D2000}{D}{J2000.0 $\delta$ (radians)} \\
+ \spec{DR2000}{D}{J2000.0 proper motion in $\alpha$
+                              (radians per Julian year)} \\
+ \spec{DD2000}{D}{J2000.0 proper motion in $\delta$
+                              (radians per Julian year)} \\
+ \spec{P2000}{D}{J2000.0 parallax (arcsec)} \\
+ \spec{V2000}{D}{J2000.0 radial velocity (km~s$^{-1}$, +ve = moving away)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+        $\dot{\alpha}\cos\delta$, and are per year rather than per century.
+  \item Conversion from Besselian epoch 1950.0 to Julian epoch
+        2000.0 only is provided for.  Conversions involving other
+        epochs will require use of the appropriate precession,
+        proper motion, and E-terms routines before and/or after FK425
+        is called.
+  \item In the FK4 catalogue the proper motions of stars within
+        $10^{\circ}$ of the poles do not include the {\it differential
+        E-terms}\/ effect and should, strictly speaking, be handled
+        in a different manner from stars outside these regions.
+        However, given the general lack of homogeneity of the star
+        data available for routine astrometry, the difficulties of
+        handling positions that may have been determined from
+        astrometric fields spanning the polar and non-polar regions,
+        the likelihood that the differential E-terms effect was not
+        taken into account when allowing for proper motion in past
+        astrometry, and the undesirability of a discontinuity in
+        the algorithm, the decision has been made in this routine to
+        include the effect of differential E-terms on the proper
+        motions for all stars, whether polar or not.  At epoch J2000,
+        and measuring on the sky rather than in terms of $\Delta\alpha$,
+        the errors resulting from this simplification are less than
+        1~milliarcsecond in position and 1~milliarcsecond per
+        century in proper motion.
+  \item See also sla\_FK45Z, sla\_FK524, sla\_FK54Z.
+ \end{enumerate}
+}
+\refs
+{
+ \begin{enumerate}
+  \item Smith, C.A.\ {\it et al.}, 1989.\  {\it Astr.J.}\ {\bf 97}, 265.
+  \item Yallop, B.D.\ {\it et al.}, 1989.\ {\it Astr.J.}\ {\bf 97}, 274.
+  \item Seidelmann, P.K.\ (ed), 1992.  {\it Explanatory
+        Supplement to the Astronomical Almanac,}\/ ISBN~0-935702-68-7.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_FK45Z}{FK4 to FK5, no P.M. or Parallax}
+{
+ \action{Convert B1950.0 FK4 star data to J2000.0 FK5 assuming zero
+         proper motion in the FK5 frame.
+         This routine converts stars from the old, Bessel-Newcomb, FK4
+         system to the new, IAU~1976, FK5, Fricke system, in such a
+         way that the FK5 proper motion is zero.  Because such a star
+         has, in general, a non-zero proper motion in the FK4 system,
+         the routine requires the epoch at which the position in the
+         FK4 system was determined.  The method is from appendix~2 of
+         reference~1, but using the constants of reference~4.}
+ \call{CALL sla\_FK45Z (R1950,D1950,BEPOCH,R2000,D2000)}
+}
+\args{GIVEN}
+{
+ \spec{R1950}{D}{B1950.0 FK4 $\alpha$ at epoch BEPOCH (radians)} \\
+ \spec{D1950}{D}{B1950.0 FK4 $\delta$ at epoch BEPOCH (radians)} \\
+ \spec{BEPOCH}{D}{Besselian epoch ({\it e.g.}\ 1979.3D0)}
+}
+\args{RETURNED}
+{
+ \spec{R2000}{D}{J2000.0 FK5 $\alpha$ (radians)} \\
+ \spec{D2000}{D}{J2000.0 FK5 $\delta$ (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The epoch BEPOCH is strictly speaking Besselian, but
+        if a Julian epoch is supplied the result will be
+        affected only to a negligible extent.
+  \item Conversion from Besselian epoch 1950.0 to Julian epoch
+        2000.0 only is provided for.  Conversions involving other
+        epochs will require use of the appropriate precession,
+        proper motion, and E-terms routines before and/or
+        after FK45Z is called.
+  \item In the FK4 catalogue the proper motions of stars within
+        $10^{\circ}$ of the poles do not include the {\it differential
+        E-terms}\/ effect and should, strictly speaking, be handled
+        in a different manner from stars outside these regions.
+        However, given the general lack of homogeneity of the star
+        data available for routine astrometry, the difficulties of
+        handling positions that may have been determined from
+        astrometric fields spanning the polar and non-polar regions,
+        the likelihood that the differential E-terms effect was not
+        taken into account when allowing for proper motion in past
+        astrometry, and the undesirability of a discontinuity in
+        the algorithm, the decision has been made in this routine to
+        include the effect of differential E-terms on the proper
+        motions for all stars, whether polar or not.  At epoch 2000,
+        and measuring on the sky rather than in terms of $\Delta\alpha$,
+        the errors resulting from this simplification are less than
+        1~milliarcsecond in position and 1~milliarcsecond per
+        century in proper motion.
+  \item See also sla\_FK425, sla\_FK524, sla\_FK54Z.
+ \end{enumerate}
+}
+\refs
+{
+ \begin{enumerate}
+  \item Aoki, S., {\it et al.}, 1983.\ {\it Astr.Astrophys.}, {\bf 128}, 263.
+  \item Smith, C.A.\ {\it et al.}, 1989.\  {\it Astr.J.}\ {\bf 97}, 265.
+  \item Yallop, B.D.\ {\it et al.}, 1989.\ {\it Astr.J.}\ {\bf 97}, 274.
+  \item Seidelmann, P.K.\ (ed), 1992.  {\it Explanatory
+        Supplement to the Astronomical Almanac,}\/ ISBN~0-935702-68-7.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_FK524}{FK5 to FK4}
+{
+ \action{Convert J2000.0 FK5 star data to B1950.0 FK4.
+         This routine converts stars from the new, IAU~1976, FK5, Fricke
+         system, to the old, Bessel-Newcomb, FK4 system.
+         The precepts of Smith~{\it et~al.}\ (reference~1) are followed,
+         using the implementation by Yallop~{\it et~al.}\ (reference~2)
+         of a matrix method due to Standish.  Kinoshita's development of
+         Andoyer's post-Newcomb precession is used.  The numerical
+         constants from Seidelmann~{\it et~al.}\ (reference~3) are
+         used canonically.}
+ \call{CALL sla\_FK524 (\vtop{
+         \hbox{R2000,D2000,DR2000,DD2000,P2000,V2000,}
+         \hbox{R1950,D1950,DR1950,DD1950,P1950,V1950)}}}
+}
+\args{GIVEN}
+{
+ \spec{R2000}{D}{J2000.0 $\alpha$ (radians)} \\
+ \spec{D2000}{D}{J2000.0 $\delta$ (radians)} \\
+ \spec{DR2000}{D}{J2000.0 proper motion in $\alpha$
+                              (radians per Julian year)} \\
+ \spec{DD2000}{D}{J2000.0 proper motion in $\delta$
+                              (radians per Julian year)} \\
+ \spec{P2000}{D}{J2000.0 parallax (arcsec)} \\
+ \spec{V2000}{D}{J2000 radial velocity (km~s$^{-1}$, +ve = moving away)}
+}
+\args{RETURNED}
+{
+ \spec{R1950}{D}{B1950.0 $\alpha$ (radians)} \\
+ \spec{D1950}{D}{B1950.0 $\delta$ (radians)} \\
+ \spec{DR1950}{D}{B1950.0 proper motion in $\alpha$
+                              (radians per tropical year)} \\
+ \spec{DD1950}{D}{B1950.0 proper motion in $\delta$
+                              (radians per tropical year)} \\
+ \spec{P1950}{D}{B1950.0 parallax (arcsec)} \\
+ \spec{V1950}{D}{radial velocity (km~s$^{-1}$, +ve = moving away)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+        $\dot{\alpha}\cos\delta$, and are per year rather than per century.
+  \item Note that conversion from Julian epoch 2000.0 to Besselian
+        epoch 1950.0 only is provided for.  Conversions involving
+        other epochs will require use of the appropriate precession,
+        proper motion, and E-terms routines before and/or after
+        FK524 is called.
+  \item In the FK4 catalogue the proper motions of stars within
+        $10^{\circ}$ of the poles do not include the {\it differential
+        E-terms}\/ effect and should, strictly speaking, be handled
+        in a different manner from stars outside these regions.
+        However, given the general lack of homogeneity of the star
+        data available for routine astrometry, the difficulties of
+        handling positions that may have been determined from
+        astrometric fields spanning the polar and non-polar regions,
+        the likelihood that the differential E-terms effect was not
+        taken into account when allowing for proper motion in past
+        astrometry, and the undesirability of a discontinuity in
+        the algorithm, the decision has been made in this routine to
+        include the effect of differential E-terms on the proper
+        motions for all stars, whether polar or not.  At epoch 2000,
+        and measuring on the sky rather than in terms of $\Delta\alpha$,
+        the errors resulting from this simplification are less than
+        1~milliarcsecond in position and 1~milliarcsecond per
+        century in proper motion.
+  \item See also sla\_FK425, sla\_FK45Z, sla\_FK54Z.
+ \end{enumerate}
+}
+\refs
+{
+ \begin{enumerate}
+  \item Smith, C.A.\ {\it et al.}, 1989.\  {\it Astr.J.}\ {\bf 97}, 265.
+  \item Yallop, B.D.\ {\it et al.}, 1989.\ {\it Astr.J.}\ {\bf 97}, 274.
+  \item Seidelmann, P.K.\ (ed), 1992.  {\it Explanatory
+        Supplement to the Astronomical Almanac,}\/ ISBN~0-935702-68-7.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_FK52H}{FK5 to Hipparcos}
+{
+ \action{Transform an FK5 (J2000) position and proper motion
+         into the frame of the Hipparcos catalogue.}
+ \call{CALL sla\_FK52H (R5,D5,DR5,DD5,RH,DH,DRH,DDH)}
+}
+\args{GIVEN}
+{
+ \spec{R5}{D}{J2000.0 FK5 $\alpha$ (radians)} \\
+ \spec{D5}{D}{J2000.0 FK5 $\delta$ (radians)} \\
+ \spec{DR5}{D}{J2000.0 FK5 proper motion in $\alpha$
+                              (radians per Julian year)} \\
+ \spec{DD5}{D}{J2000.0 FK5 proper motion in $\delta$
+                              (radians per Julian year)}
+}
+\args{RETURNED}
+{
+ \spec{RH}{D}{Hipparcos $\alpha$ (radians)} \\
+ \spec{DH}{D}{Hipparcos $\delta$ (radians)} \\
+ \spec{DRH}{D}{Hipparcos proper motion in $\alpha$
+                              (radians per Julian year)} \\
+ \spec{DDH}{D}{Hipparcos proper motion in $\delta$
+                              (radians per Julian year)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+        $\dot{\alpha}\cos\delta$, and are per year rather than per century.
+  \item The FK5 to Hipparcos
+        transformation consists of a pure rotation and spin;
+        zonal errors in the FK5 catalogue are not taken into account.
+  \item The adopted epoch J2000.0 FK5 to Hipparcos orientation and spin
+        values are as follows (see reference):
+
+        \vspace{2ex}
+
+        ~~~~~~~~~~~~
+        \begin{tabular}{|r|r|r|} \hline
+        &
+        \multicolumn{1}{|c}{\it orientation} &
+        \multicolumn{1}{|c|}{\it ~~~spin~~~} \\ \hline
+        $x$ & $-19.9$~~~~ & ~$-0.30$~~ \\
+        $y$ &  $-9.1$~~~~ & ~$+0.60$~~ \\
+        $z$ & $+22.9$~~~~ & ~$+0.70$~~ \\ \hline
+        & {\it mas}~~~~~ & ~{\it mas/y}~ \\ \hline
+        \end{tabular}
+
+        \vspace{3ex}
+
+        These orientation and spin components are interpreted as
+        {\it axial vectors.}  An axial vector points at the pole of
+        the rotation and its length is the amount of rotation in radians.
+  \item See also sla\_FK5HZ, sla\_H2FK5, sla\_HFK5Z.
+ \end{enumerate}
+}
+\aref {Feissel, M.\ \& Mignard, F., 1998.,  {\it Astron.Astrophys.}\
+       {\bf 331}, L33-L36.}
+%-----------------------------------------------------------------------
+\routine{SLA\_FK54Z}{FK5 to FK4, no P.M. or Parallax}
+{
+ \action{Convert a J2000.0 FK5 star position to B1950.0 FK4 assuming
+         FK5 zero proper motion and parallax.
+         This routine converts star positions from the new, IAU~1976,
+         FK5, Fricke system to the old, Bessel-Newcomb, FK4 system.}
+ \call{CALL sla\_FK54Z (R2000,D2000,BEPOCH,R1950,D1950,DR1950,DD1950)}
+}
+\args{GIVEN}
+{
+ \spec{R2000}{D}{J2000.0 FK5 $\alpha$ (radians)} \\
+ \spec{D2000}{D}{J2000.0 FK5 $\delta$ (radians)} \\
+ \spec{BEPOCH}{D}{Besselian epoch ({\it e.g.}\ 1950D0)}
+}
+\args{RETURNED}
+{
+ \spec{R1950}{D}{B1950.0 FK4 $\alpha$ at epoch BEPOCH (radians)} \\
+ \spec{D1950}{D}{B1950.0 FK4 $\delta$ at epoch BEPOCH (radians)} \\
+ \spec{DR1950}{D}{B1950.0 FK4 proper motion in $\alpha$
+                              (radians per tropical year)} \\
+ \spec{DD1950}{D}{B1950.0 FK4 proper motion in $\delta$
+                              (radians per tropical year)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+        $\dot{\alpha}\cos\delta$, and are per year rather than per century.
+  \item Conversion from Julian epoch 2000.0 to Besselian epoch 1950.0
+        only is provided for.  Conversions involving other epochs will
+        require use of the appropriate precession routines before and
+        after this routine is called.
+  \item Unlike in the sla\_FK524 routine, the FK5 proper motions, the
+        parallax and the radial velocity are presumed zero.
+  \item It was the intention that FK5 should be a close approximation
+        to an inertial frame, so that distant objects have zero proper
+        motion;  such objects have (in general) non-zero proper motion
+        in FK4, and this routine returns those {\it fictitious proper
+        motions}.
+  \item The position returned by this routine is in the B1950
+        reference frame but at Besselian epoch BEPOCH.  For
+        comparison with catalogues the BEPOCH argument will
+        frequently be 1950D0.
+  \item See also sla\_FK425, sla\_FK45Z, sla\_FK524.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_FK5HZ}{FK5 to Hipparcos, no P.M.}
+{
+ \action{Transform an FK5 (J2000) star position into the frame of the
+         Hipparcos catalogue, assuming zero Hipparcos proper motion.}
+ \call{CALL sla\_FK52H (R5,D5,EPOCH,RH,DH)}
+}
+\args{GIVEN}
+{
+ \spec{R5}{D}{J2000.0 FK5 $\alpha$ (radians)} \\
+ \spec{D5}{D}{J2000.0 FK5 $\delta$ (radians)} \\
+ \spec{EPOCH}{D}{Julian epoch (TDB)}
+}
+\args{RETURNED}
+{
+ \spec{RH}{D}{Hipparcos $\alpha$ (radians)} \\
+ \spec{DH}{D}{Hipparcos $\delta$ (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+        $\dot{\alpha}\cos\delta$, and are per year rather than per century.
+  \item The FK5 to Hipparcos
+        transformation consists of a pure rotation and spin;
+        zonal errors in the FK5 catalogue are not taken into account.
+  \item The adopted epoch J2000.0 FK5 to Hipparcos orientation and spin
+        values are as follows (see reference):
+
+        \vspace{2ex}
+
+        ~~~~~~~~~~~~
+        \begin{tabular}{|r|r|r|} \hline
+        &
+        \multicolumn{1}{|c}{\it orientation} &
+        \multicolumn{1}{|c|}{\it ~~~spin~~~} \\ \hline
+        $x$ & $-19.9$~~~~ & ~$-0.30$~~ \\
+        $y$ &  $-9.1$~~~~ & ~$+0.60$~~ \\
+        $z$ & $+22.9$~~~~ & ~$+0.70$~~ \\ \hline
+        & {\it mas}~~~~~ & ~{\it mas/y}~ \\ \hline
+        \end{tabular}
+
+        \vspace{3ex}
+
+        These orientation and spin components are interpreted as
+        {\it axial vectors.}  An axial vector points at the pole of
+        the rotation and its length is the amount of rotation in radians.
+  \item See also sla\_FK52H, sla\_H2FK5, sla\_HFK5Z.
+ \end{enumerate}
+}
+\aref {Feissel, M.\ \& Mignard, F., 1998.,  {\it Astron.Astrophys.}\
+       {\bf 331}, L33-L36.}
+%-----------------------------------------------------------------------
+\routine{SLA\_FLOTIN}{Decode a Real Number}
+{
+ \action{Convert free-format input into single precision floating point.}
+ \call{CALL sla\_FLOTIN (STRING, NSTRT, RESLT, JFLAG)}
+}
+\args{GIVEN}
+{
+ \spec{STRING}{C}{string containing number to be decoded} \\
+ \spec{NSTRT}{I}{pointer to where decoding is to commence} \\
+ \spec{RESLT}{R}{current value of result}
+}
+\args{RETURNED}
+{
+ \spec{NSTRT}{I}{advanced to next number} \\
+ \spec{RESLT}{R}{result} \\
+ \spec{JFLAG}{I}{status: $-$1~=~$-$OK, 0~=~+OK, 1~=~null result, 2~=~error}
+}
+\notes
+{
+ \begin{enumerate}
+ \item The reason sla\_FLOTIN has separate `OK' status values
+       for + and $-$ is to enable minus zero to be detected.
+       This is of crucial importance
+       when decoding mixed-radix numbers.  For example, an angle
+       expressed as degrees, arcminutes and arcseconds may have a
+       leading minus sign but a zero degrees field.
+ \item A TAB is interpreted as a space, and lowercase characters are
+       interpreted as uppercase.  {\it n.b.}\ The test for TAB is
+       ASCII-specific.
+ \item The basic format is the sequence of fields $\pm n.n x \pm n$,
+       where $\pm$ is a sign
+       character `+' or `$-$', $n$ means a string of decimal digits,
+       `.' is a decimal point, and $x$, which indicates an exponent,
+       means `D' or `E'.  Various combinations of these fields can be
+       omitted, and embedded blanks are permissible in certain places.
+ \item Spaces:
+       \begin{itemize}
+       \item Leading spaces are ignored.
+       \item Embedded spaces are allowed only after +, $-$, D or E,
+             and after the decimal point if the first sequence of
+             digits is absent.
+       \item Trailing spaces are ignored;  the first signifies
+             end of decoding and subsequent ones are skipped.
+       \end{itemize}
+ \item Delimiters:
+       \begin{itemize}
+       \item Any character other than +,$-$,0-9,.,D,E or space may be
+             used to signal the end of the number and terminate decoding.
+       \item Comma is recognized by sla\_FLOTIN as a special case; it
+             is skipped, leaving the pointer on the next character.  See
+             13, below.
+       \item Decoding will in all cases terminate if end of string
+             is reached.
+       \end{itemize}
+ \item Both signs are optional.  The default is +.
+ \item The mantissa $n.n$ defaults to unity.
+ \item The exponent $x\!\pm\!n$ defaults to `E0'.
+ \item The strings of decimal digits may be of any length.
+ \item The decimal point is optional for whole numbers.
+ \item A {\it null result}\/ occurs when the string of characters
+       being decoded does not begin with +,$-$,0-9,.,D or E, or
+       consists entirely of spaces.  When this condition is
+       detected, JFLAG is set to 1 and RESLT is left untouched.
+ \item NSTRT = 1 for the first character in the string.
+ \item On return from sla\_FLOTIN, NSTRT is set ready for the next
+       decode -- following trailing blanks and any comma.  If a
+       delimiter other than comma is being used, NSTRT must be
+       incremented before the next call to sla\_FLOTIN, otherwise
+       all subsequent calls will return a null result.
+ \item Errors (JFLAG=2) occur when:
+       \begin{itemize}
+       \item a +, $-$, D or E is left unsatisfied; or
+       \item the decimal point is present without at least
+             one decimal digit before or after it; or
+       \item an exponent more than 100 has been presented.
+       \end{itemize}
+ \item When an error has been detected, NSTRT is left
+       pointing to the character following the last
+       one used before the error came to light.  This
+       may be after the point at which a more sophisticated
+       program could have detected the error.  For example,
+       sla\_FLOTIN does not detect that `1E999' is unacceptable
+       (on a computer where this is so)
+       until the entire number has been decoded.
+ \item Certain highly unlikely combinations of mantissa and
+       exponent can cause arithmetic faults during the
+       decode, in some cases despite the fact that they
+       together could be construed as a valid number.
+ \item Decoding is left to right, one pass.
+ \item See also sla\_DFLTIN and sla\_INTIN.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_GALEQ}{Galactic to J2000 $\alpha,\delta$}
+{
+ \action{Transformation from IAU 1958 galactic coordinates
+         to J2000.0 FK5 equatorial coordinates.}
+ \call{CALL sla\_GALEQ (DL, DB, DR, DD)}
+}
+\args{GIVEN}
+{
+ \spec{DL,DB}{D}{galactic longitude and latitude \gal}
+}
+\args{RETURNED}
+{
+ \spec{DR,DD}{D}{J2000.0 \radec}
+}
+\notes
+{
+ \begin{enumerate}
+  \item All arguments are in radians.
+  \item The equatorial coordinates are J2000.0 FK5.  Use the routine
+        sla\_GE50 if conversion to B1950.0 FK4 coordinates is
+                           required.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_GALSUP}{Galactic to Supergalactic}
+{
+ \action{Transformation from IAU 1958 galactic coordinates to
+         de Vaucouleurs supergalactic coordinates.}
+ \call{CALL sla\_GALSUP (DL, DB, DSL, DSB)}
+}
+\args{GIVEN}
+{
+ \spec{DL,DB}{D}{galactic longitude and latitude \gal\ (radians)}
+}
+\args{RETURNED}
+{
+ \spec{DSL,DSB}{D}{supergalactic longitude and latitude (radians)}
+}
+\refs
+{
+ \begin{enumerate}
+  \item de Vaucouleurs, de Vaucouleurs, \& Corwin, {\it Second Reference
+    Catalogue of Bright Galaxies}, U.Texas, p8.
+  \item Systems \& Applied Sciences Corp., documentation for the
+        machine-readable version of the above catalogue,
+        Contract NAS 5-26490.
+ \end{enumerate}
+ (These two references give different values for the galactic
+ longitude of the supergalactic origin.  Both are wrong;  the
+ correct value is $l^{I\!I}=137.37$.)
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_GE50}{Galactic to B1950 $\alpha,\delta$}
+{
+ \action{Transformation from IAU 1958 galactic coordinates to
+         B1950.0 FK4 equatorial coordinates.}
+ \call{CALL sla\_GE50 (DL, DB, DR, DD)}
+}
+\args{GIVEN}
+{
+ \spec{DL,DB}{D}{galactic longitude and latitude \gal}
+}
+\args{RETURNED}
+{
+ \spec{DR,DD}{D}{B1950.0 \radec}
+}
+\notes
+{
+ \begin{enumerate}
+  \item All arguments are in radians.
+  \item The equatorial coordinates are B1950.0 FK4.  Use the
+        routine sla\_GALEQ if conversion to J2000.0 FK5 coordinates
+        is required.
+ \end{enumerate}
+}
+\aref{Blaauw {\it et al.}, 1960, {\it Mon.Not.R.astr.Soc.},
+      {\bf 121}, 123.}
+%-----------------------------------------------------------------------
+\routine{SLA\_GEOC}{Geodetic to Geocentric}
+{
+ \action{Convert geodetic position to geocentric.}
+ \call{CALL sla\_GEOC (P, H, R, Z)}
+}
+\args{GIVEN}
+{
+ \spec{P}{D}{latitude (geodetic, radians)} \\
+ \spec{H}{D}{height above reference spheroid (geodetic, metres)}
+}
+\args{RETURNED}
+{
+ \spec{R}{D}{distance from Earth axis (AU)} \\
+ \spec{Z}{D}{distance from plane of Earth equator (AU)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Geocentric latitude can be obtained by evaluating {\tt ATAN2(Z,R)}.
+  \item IAU 1976 constants are used.
+ \end{enumerate}
+}
+\aref{Green, R.M., 1985.\ {\it Spherical Astronomy}, Cambridge U.P., p98.}
+%-----------------------------------------------------------------------
+\routine{SLA\_GMST}{UT to GMST}
+{
+ \action{Conversion from universal time UT1 to Greenwich mean
+         sidereal time.}
+ \call{D~=~sla\_GMST (UT1)}
+}
+\args{GIVEN}
+{
+ \spec{UT1}{D}{universal time (strictly UT1) expressed as
+                 modified Julian Date (JD$-$2400000.5)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_GMST}{D}{Greenwich mean sidereal time (radians)}
+}
+\notes
+{
+  \begin{enumerate}
+       \item The IAU~1982 expression
+       (see page~S15 of the 1984 {\it Astronomical
+       Almanac})\/ is used, but rearranged to reduce rounding errors.  This
+       expression is always described as giving the GMST at $0^{\rm h}$UT;
+       in fact, it gives the difference between the
+       GMST and the UT, which happens to equal the GMST (modulo
+       24~hours) at $0^{\rm h}$UT each day.  In sla\_GMST, the
+       entire UT is used directly as the argument for the
+       canonical formula, and the fractional part of the UT is
+       added separately;  note that the factor $1.0027379\cdots$ does
+       not appear.
+       \item See also the routine sla\_GMSTA, which
+       delivers better numerical
+       precision by accepting the UT date and time as separate arguments.
+  \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_GMSTA}{UT to GMST (extra precision)}
+{
+ \action{Conversion from universal time UT1 to Greenwich Mean
+         sidereal time, with rounding errors minimized.}
+ \call{D~=~sla\_GMSTA (DATE, UT1)}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{UT1 date as Modified Julian Date (integer part
+                of JD$-$2400000.5)} \\
+ \spec{UT1}{D}{UT1 time (fraction of a day)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_GMST}{D}{Greenwich mean sidereal time (radians)}
+}
+\notes
+{
+  \begin{enumerate}
+       \item The algorithm is derived from the IAU 1982 expression
+       (see page~S15 of the 1984 Astronomical Almanac).
+       \item There is no restriction on how the UT is apportioned between the
+       DATE and UT1 arguments.  Either of the two arguments could, for
+       example, be zero and the entire date\,+\,time supplied in the other.
+       However, the routine is designed to deliver maximum accuracy when
+       the DATE argument is a whole number and the UT1 argument
+       lies in the range $[\,0,\,1\,]$, or {\it vice versa}.
+       \item See also the routine sla\_GMST, which accepts the UT1 as a single
+       argument.  Compared with sla\_GMST, the extra numerical precision
+       delivered by the present routine is unlikely to be important in
+       an absolute sense, but may be useful when critically comparing
+       algorithms and in applications where two sidereal times close
+       together are differenced.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_GRESID}{Gaussian Residual}
+{
+ \action{Generate pseudo-random normal deviate or {\it Gaussian residual}.}
+ \call{R~=~sla\_GRESID (S)}
+}
+\args{GIVEN}
+{
+ \spec{S}{R}{standard deviation}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The results of many calls to this routine will be
+        normally distributed with mean zero and standard deviation S.
+  \item The Box-Muller algorithm is used.
+  \item The implementation is machine-dependent.
+ \end{enumerate}
+}
+\aref{Ahrens \& Dieter, 1972.\ {\it Comm.A.C.M.}\ {\bf 15}, 873.}
+%-----------------------------------------------------------------------
+\routine{SLA\_H2E}{Az,El to $h,\delta$}
+{
+ \action{Horizon to equatorial coordinates
+         (single precision).}
+ \call{CALL sla\_H2E (AZ, EL, PHI, HA, DEC)}
+}
+\args{GIVEN}
+{
+ \spec{AZ}{R}{azimuth (radians)} \\
+ \spec{EL}{R}{elevation (radians)} \\
+ \spec{PHI}{R}{latitude (radians)}
+}
+\args{RETURNED}
+{
+ \spec{HA}{R}{hour angle (radians)} \\
+ \spec{DEC}{R}{declination (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The sign convention for azimuth is north zero, east $+\pi/2$.
+  \item HA is returned in the range $\pm\pi$.  Declination is returned
+        in the range $\pm\pi$.
+  \item The latitude is (in principle) geodetic.  In critical
+        applications, corrections for polar motion should be applied
+        (see sla\_POLMO).
+  \item In some applications it will be important to specify the
+        correct type of elevation in order to produce the required
+        type of \hadec.  In particular, it may be important to
+        distinguish between the elevation as affected by refraction,
+        which will yield the {\it observed} \hadec, and the elevation
+        {\it in vacuo}, which will yield the {\it topocentric}
+        \hadec.  If the
+        effects of diurnal aberration can be neglected, the
+        topocentric \hadec\ may be used as an approximation to the
+        {\it apparent} \hadec.
+  \item No range checking of arguments is carried out.
+  \item In applications which involve many such calculations, rather
+        than calling the present routine it will be more efficient to
+        use inline code, having previously computed fixed terms such
+        as sine and cosine of latitude.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_H2FK5}{Hipparcos to FK5}
+{
+ \action{Transform a Hipparcos star position and proper motion
+         into the FK5 (J2000) frame.}
+ \call{CALL sla\_H2FK5 (RH,DH,DRH,DDH,R5,D5,DR5,DD5)}
+}
+\args{GIVEN}
+{
+ \spec{RH}{D}{Hipparcos $\alpha$ (radians)} \\
+ \spec{DH}{D}{Hipparcos $\delta$ (radians)} \\
+ \spec{DRH}{D}{Hipparcos proper motion in $\alpha$
+                              (radians per Julian year)} \\
+ \spec{DDH}{D}{Hipparcos proper motion in $\delta$
+                              (radians per Julian year)}
+}
+\args{RETURNED}
+{
+ \spec{R5}{D}{J2000.0 FK5 $\alpha$ (radians)} \\
+ \spec{D5}{D}{J2000.0 FK5 $\delta$ (radians)} \\
+ \spec{DR5}{D}{J2000.0 FK5 proper motion in $\alpha$
+                              (radians per Julian year)} \\
+ \spec{DD5}{D}{FK5 J2000.0 proper motion in $\delta$
+                              (radians per Julian year)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+        $\dot{\alpha}\cos\delta$, and are per year rather than per century.
+  \item The FK5 to Hipparcos
+        transformation consists of a pure rotation and spin;
+        zonal errors in the FK5 catalogue are not taken into account.
+  \item The adopted epoch J2000.0 FK5 to Hipparcos orientation and spin
+        values are as follows (see reference):
+
+        \vspace{2ex}
+
+        ~~~~~~~~~~~~
+        \begin{tabular}{|r|r|r|} \hline
+        &
+        \multicolumn{1}{|c}{\it orientation} &
+        \multicolumn{1}{|c|}{\it ~~~spin~~~} \\ \hline
+        $x$ & $-19.9$~~~~ & ~$-0.30$~~ \\
+        $y$ &  $-9.1$~~~~ & ~$+0.60$~~ \\
+        $z$ & $+22.9$~~~~ & ~$+0.70$~~ \\ \hline
+        & {\it mas}~~~~~ & ~{\it mas/y}~ \\ \hline
+        \end{tabular}
+
+        \vspace{3ex}
+
+        These orientation and spin components are interpreted as
+        {\it axial vectors.}  An axial vector points at the pole of
+        the rotation and its length is the amount of rotation in radians.
+  \item See also sla\_FK52H, sla\_FK5HZ, sla\_HFK5Z.
+ \end{enumerate}
+}
+\aref {Feissel, M.\ \& Mignard, F., 1998.,  {\it Astron.Astrophys.}\
+       {\bf 331}, L33-L36.}
+%-----------------------------------------------------------------------
+\routine{SLA\_HFK5Z}{Hipparcos to FK5, no P.M.}
+{
+ \action{Transform a Hipparcos star position
+         into the FK5 (J2000) frame assuming zero Hipparcos proper motion.}
+ \call{CALL sla\_HFK5Z (RH,DH,EPOCH,R5,D5,DR5,DD5)}
+}
+\args{GIVEN}
+{
+ \spec{RH}{D}{Hipparcos $\alpha$ (radians)} \\
+ \spec{DH}{D}{Hipparcos $\delta$ (radians)} \\
+ \spec{EPOCH}{D}{Julian epoch (TDB)}
+}
+\args{RETURNED}
+{
+ \spec{R5}{D}{J2000.0 FK5 $\alpha$ (radians)} \\
+ \spec{D5}{D}{J2000.0 FK5 $\delta$ (radians)} \\
+ \spec{DR5}{D}{J2000.0 FK5 proper motion in $\alpha$
+                              (radians per Julian year)} \\
+ \spec{DD5}{D}{FK5 J2000.0 proper motion in $\delta$
+                              (radians per Julian year)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+        $\dot{\alpha}\cos\delta$, and are per year rather than per century.
+  \item The FK5 to Hipparcos
+        transformation consists of a pure rotation and spin;
+        zonal errors in the FK5 catalogue are not taken into account.
+  \item The adopted epoch J2000.0 FK5 to Hipparcos orientation and spin
+        values are as follows (see reference):
+
+        \vspace{2ex}
+
+        ~~~~~~~~~~~~
+        \begin{tabular}{|r|r|r|} \hline
+        &
+        \multicolumn{1}{|c}{\it orientation} &
+        \multicolumn{1}{|c|}{\it ~~~spin~~~} \\ \hline
+        $x$ & $-19.9$~~~~ & ~$-0.30$~~ \\
+        $y$ &  $-9.1$~~~~ & ~$+0.60$~~ \\
+        $z$ & $+22.9$~~~~ & ~$+0.70$~~ \\ \hline
+        & {\it mas}~~~~~ & ~{\it mas/y}~ \\ \hline
+        \end{tabular}
+
+        \vspace{3ex}
+
+        These orientation and spin components are interpreted as
+        {\it axial vectors.}  An axial vector points at the pole of
+        the rotation and its length is the amount of rotation in radians.
+        The order of the rotations, which are very small,
+  \item It was the intention that Hipparcos should be a close
+        approximation to an inertial frame, so that distant objects
+        have zero proper motion;  such objects have (in general)
+        non-zero proper motion in FK5, and this routine returns those
+        {\it fictitious proper motions.}
+  \item The position returned by this routine is in the FK5 J2000
+        reference frame but at Julian epoch EPOCH.
+  \item See also sla\_FK52H, sla\_FK5HZ, sla\_H2FK5.
+ \end{enumerate}
+}
+\aref {Feissel, M.\ \& Mignard, F., 1998.,  {\it Astron.Astrophys.}\
+       {\bf 331}, L33-L36.}
+%-----------------------------------------------------------------------
+\routine{SLA\_IMXV}{Apply 3D Reverse Rotation}
+{
+ \action{Multiply a 3-vector by the inverse of a rotation
+         matrix (single precision).}
+ \call{CALL sla\_IMXV (RM, VA, VB)}
+}
+\args{GIVEN}
+{
+ \spec{RM}{R(3,3)}{rotation matrix} \\
+ \spec{VA}{R(3)}{vector to be rotated}
+}
+\args{RETURNED}
+{
+ \spec{VB}{R(3)}{result vector}
+}
+\notes
+{
+ \begin{enumerate}
+  \item This routine performs the operation:
+        \begin{verse}
+         {\bf b} = {\bf M}$^{T}\cdot${\bf a}
+        \end{verse}
+        where {\bf a} and {\bf b} are the 3-vectors VA and VB
+        respectively, and {\bf M} is the $3\times3$ matrix RM.
+  \item The main function of this routine is apply an inverse
+        rotation;  under these circumstances, ${\bf M}$ is
+        {\it orthogonal}, with its inverse the same as its transpose.
+  \item To comply with the ANSI Fortran 77 standard, VA and VB must
+        {\bf not} be the same array.  The routine is, in fact, coded
+        so as to work properly on the VAX and many other systems even
+        if this rule is violated, something that is {\bf not}, however,
+        recommended.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_INTIN}{Decode an Integer Number}
+{
+ \action{Convert free-format input into an integer.}
+ \call{CALL sla\_INTIN (STRING, NSTRT, IRESLT, JFLAG)}
+}
+\args{GIVEN}
+{
+ \spec{STRING}{C}{string containing number to be decoded} \\
+ \spec{NSTRT}{I}{pointer to where decoding is to commence} \\
+ \spec{IRESLT}{I}{current value of result}
+}
+\args{RETURNED}
+{
+ \spec{NSTRT}{I}{advanced to next number} \\
+ \spec{IRESLT}{I}{result} \\
+ \spec{JFLAG}{I}{status: $-$1 = $-$OK, 0~=~+OK, 1~=~null result, 2~=~error}
+}
+\notes
+{
+ \begin{enumerate}
+ \item The reason sla\_INTIN has separate `OK' status values
+       for + and $-$ is to enable minus zero to be detected.
+       This is of crucial importance
+       when decoding mixed-radix numbers.  For example, an angle
+       expressed as degrees, arcminutes and arcseconds may have a
+       leading minus sign but a zero degrees field.
+ \item A TAB is interpreted as a space. {\it n.b.}\ The test for TAB is
+       ASCII-specific.
+ \item The basic format is the sequence of fields $\pm n$,
+       where $\pm$ is a sign
+       character `+' or `$-$', and $n$ means a string of decimal digits.
+ \item Spaces:
+       \begin{itemize}
+       \item Leading spaces are ignored.
+       \item Spaces between the sign and the number are allowed.
+       \item Trailing spaces are ignored;  the first signifies
+             end of decoding and subsequent ones are skipped.
+       \end{itemize}
+ \item Delimiters:
+       \begin{itemize}
+       \item Any character other than +,$-$,0-9 or space may be
+             used to signal the end of the number and terminate decoding.
+       \item Comma is recognized by sla\_INTIN as a special case; it
+             is skipped, leaving the pointer on the next character.  See
+             9, below.
+       \item Decoding will in all cases terminate if end of string
+             is reached.
+       \end{itemize}
+ \item The sign is optional.  The default is +.
+ \item A {\it null result}\/ occurs when the string of characters
+       being decoded does not begin with +,$-$ or 0-9, or
+       consists entirely of spaces.  When this condition is
+       detected, JFLAG is set to 1 and IRESLT is left untouched.
+ \item NSTRT = 1 for the first character in the string.
+ \item On return from sla\_INTIN, NSTRT is set ready for the next
+       decode -- following trailing blanks and any comma.  If a
+       delimiter other than comma is being used, NSTRT must be
+       incremented before the next call to sla\_INTIN, otherwise
+       all subsequent calls will return a null result.
+ \item Errors (JFLAG=2) occur when:
+       \begin{itemize}
+       \item there is a + or $-$ but no number; or
+       \item the number is greater than $2^{31}-1$.
+       \end{itemize}
+ \item When an error has been detected, NSTRT is left
+       pointing to the character following the last
+       one used before the error came to light.
+ \item See also sla\_FLOTIN and sla\_DFLTIN.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_INVF}{Invert Linear Model}
+{
+ \action{Invert a linear model of the type produced by the
+         sla\_FITXY routine.}
+ \call{CALL sla\_INVF (FWDS,BKWDS,J)}
+}
+\args{GIVEN}
+{
+ \spec{FWDS}{D(6)}{model coefficients}
+}
+\args{RETURNED}
+{
+ \spec{BKWDS}{D(6)}{inverse model} \\
+ \spec{J}{I}{status:  0 = OK, $-$1 = no inverse}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The models relate two sets of \xy\ coordinates as follows.
+        Naming the six elements of FWDS $a,b,c,d,e$ \& $f$,
+        where two sets of coordinates $[x_{1},y_{1}]$ and
+        $[x_{2},y_{2}\,]$ are related thus:
+        \begin{verse}
+         $x_{2} = a + bx_{1} + cy_{1}$ \\
+         $y_{2} = d + ex_{1} + fy_{1}$
+        \end{verse}
+        The present routine generates a new set of coefficients
+        $p,q,r,s,t$ \& $u$ (the array BKWDS) such that:
+        \begin{verse}
+         $x_{1} = p + qx_{2} + ry_{2}$ \\
+         $y_{1} = s + tx_{2} + uy_{2}$
+        \end{verse}
+  \item Two successive calls to this routine will deliver a set
+        of coefficients equal to the starting values.
+  \item To comply with the ANSI Fortran 77 standard, FWDS and BKWDS must
+        {\bf not} be the same array.  The routine is, in fact, coded
+        so as to work properly on the VAX and many other systems even
+        if this rule is violated, something that is {\bf not}, however,
+        recommended.
+  \item See also sla\_FITXY, sla\_PXY, sla\_XY2XY, sla\_DCMPF.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_KBJ}{Select Epoch Prefix}
+{
+ \action{Select epoch prefix `B' or `J'.}
+ \call{CALL sla\_KBJ (JB, E, K, J)}
+}
+\args{GIVEN}
+{
+ \spec{JB}{I}{sla\_DBJIN prefix status:  0=none, 1=`B', 2=`J'} \\
+ \spec{E}{D}{epoch -- Besselian or Julian}
+}
+\args{RETURNED}
+{
+ \spec{K}{C}{`B' or `J'} \\
+ \spec{J}{I}{status:  0=OK}
+}
+\anote{The routine is mainly intended for use in conjunction with the
+       sla\_DBJIN routine.  If the value of JB indicates that an explicit
+       B or J prefix was detected by sla\_DBJIN, a `B' or `J'
+       is returned to match.  If JB indicates that no explicit B or J
+       was supplied, the choice is made on the basis of the epoch
+       itself;  B is assumed for E $<1984$, otherwise J.}
+%-----------------------------------------------------------------------
+\routine{SLA\_M2AV}{Rotation Matrix to Axial Vector}
+{
+ \action{From a rotation matrix, determine the corresponding axial vector
+        (single precision).}
+ \call{CALL sla\_M2AV (RMAT, AXVEC)}
+}
+\args{GIVEN}
+{
+ \spec{RMAT}{R(3,3)}{rotation matrix}
+}
+\args{RETURNED}
+{
+ \spec{AXVEC}{R(3)}{axial vector (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item A rotation matrix describes a rotation about some arbitrary axis.
+        The axis is called the {\it Euler axis}, and the angle through
+        which the reference frame rotates is called the {\it Euler angle}.
+        The {\it axial vector}\/ returned by this routine has the same
+        direction as the Euler axis, and its magnitude is the Euler angle
+        in radians.
+  \item The magnitude and direction of the axial vector can be separated
+        by means of the routine sla\_VN.
+  \item The reference frame rotates clockwise as seen looking along
+        the axial vector from the origin.
+  \item If RMAT is null, so is the result.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_MAP}{Mean to Apparent}
+{
+ \action{Transform star \radec\ from mean place to geocentric apparent.
+         The reference frames and timescales used are post IAU~1976.}
+ \call{CALL sla\_MAP (RM, DM, PR, PD, PX, RV, EQ, DATE, RA, DA)}
+}
+\args{GIVEN}
+{
+ \spec{RM,DM}{D}{mean \radec\ (radians)} \\
+ \spec{PR,PD}{D}{proper motions:  \radec\ changes per Julian year} \\
+ \spec{PX}{D}{parallax (arcsec)} \\
+ \spec{RV}{D}{radial velocity (km~s$^{-1}$, +ve if receding)} \\
+ \spec{EQ}{D}{epoch and equinox of star data (Julian)} \\
+ \spec{DATE}{D}{TDB for apparent place (JD$-$2400000.5)}
+}
+\args{RETURNED}
+{
+ \spec{RA,DA}{D}{apparent \radec\ (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item EQ is the Julian epoch specifying both the reference
+        frame and the epoch of the position -- usually 2000.
+        For positions where the epoch and equinox are
+        different, use the routine sla\_PM to apply proper
+        motion corrections before using this routine.
+  \item The distinction between the required TDB and TT is
+        always negligible.  Moreover, for all but the most
+        critical applications UTC is adequate.
+  \item The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+        $\dot{\alpha}\cos\delta$, and are per year rather than per century.
+  \item This routine may be wasteful for some applications
+        because it recomputes the Earth position/velocity and
+        the precession/nutation matrix each time, and because
+        it allows for parallax and proper motion.  Where
+        multiple transformations are to be carried out for one
+        epoch, a faster method is to call the sla\_MAPPA routine
+        once and then either the sla\_MAPQK routine (which includes
+        parallax and proper motion) or sla\_MAPQKZ (which assumes
+        zero parallax and FK5 proper motion).
+ \end{enumerate}
+}
+\refs
+{
+ \begin{enumerate}
+  \item 1984 {\it Astronomical Almanac}, pp B39-B41.
+  \item Lederle \& Schwan, 1984.\ {\it Astr.Astrophys.}\ {\bf 134}, 1-6.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_MAPPA}{Mean to Apparent Parameters}
+{
+ \action{Compute star-independent parameters in preparation for
+         conversions between mean place and geocentric apparent place.
+         The parameters produced by this routine are required in the
+         parallax, light deflection, aberration, and precession/nutation
+         parts of the mean/apparent transformations.
+         The reference frames and timescales used are post IAU~1976.}
+ \call{CALL sla\_MAPPA (EQ, DATE, AMPRMS)}
+}
+\args{GIVEN}
+{
+ \spec{EQ}{D}{epoch of mean equinox to be used (Julian)} \\
+ \spec{DATE}{D}{TDB (JD$-$2400000.5)}
+}
+\args{RETURNED}
+{
+ \spec{AMPRMS}{D(21)}{star-independent mean-to-apparent parameters:} \\
+ \specel   {(1)}     {time interval for proper motion (Julian years)} \\
+ \specel   {(2-4)}   {barycentric position of the Earth (AU)} \\
+ \specel   {(5-7)}   {heliocentric direction of the Earth (unit vector)} \\
+ \specel   {(8)}     {(gravitational radius of
+                      Sun)$\times 2 / $(Sun-Earth distance)} \\
+ \specel   {(9-11)}  {{\bf v}: barycentric Earth velocity in units of c} \\
+ \specel   {(12)}    {$\sqrt{1-\left|\mbox{\bf v}\right|^2}$} \\
+ \specel   {(13-21)} {precession/nutation $3\times3$ matrix}
+}
+\notes
+{
+ \begin{enumerate}
+  \item For DATE, the distinction between the required TDB and TT
+        is always negligible.  Moreover, for all but the most
+        critical applications UTC is adequate.
+  \item The accuracy of the routines using the parameters AMPRMS is
+        limited by the routine sla\_EVP, used here to compute the
+        Earth position and velocity by the methods of Stumpff.
+        The maximum error in the resulting aberration corrections is
+        about 0.3 milliarcsecond.
+  \item The vectors AMPRMS(2-4) and AMPRMS(5-7) are referred to
+        the mean equinox and equator of epoch EQ.
+  \item The parameters produced by this routine are used by
+        sla\_MAPQK and sla\_MAPQKZ.
+ \end{enumerate}
+}
+\refs
+{
+ \begin{enumerate}
+  \item 1984 {\it Astronomical Almanac}, pp B39-B41.
+  \item Lederle \& Schwan, 1984.\ {\it Astr.Astrophys.}\ {\bf 134}, 1-6.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_MAPQK}{Quick Mean to Apparent}
+{
+ \action{Quick mean to apparent place:  transform a star \radec\ from
+         mean place to geocentric apparent place, given the
+         star-independent parameters.  The reference frames and
+         timescales used are post IAU 1976.}
+ \call{CALL sla\_MAPQK (RM, DM, PR, PD, PX, RV, AMPRMS, RA, DA)}
+}
+\args{GIVEN}
+{
+ \spec{RM,DM}{D}{mean \radec\ (radians)} \\
+ \spec{PR,PD}{D}{proper motions:  \radec\ changes per Julian year} \\
+ \spec{PX}{D}{parallax (arcsec)} \\
+ \spec{RV}{D}{radial velocity (km~s$^{-1}$, +ve if receding)} \\
+ \spec{AMPRMS}{D(21)}{star-independent mean-to-apparent parameters:} \\
+ \specel   {(1)}     {time interval for proper motion (Julian years)} \\
+ \specel   {(2-4)}   {barycentric position of the Earth (AU)} \\
+ \specel   {(5-7)}   {heliocentric direction of the Earth (unit vector)} \\
+ \specel   {(8)}     {(gravitational radius of
+                      Sun)$\times 2 / $(Sun-Earth distance)} \\
+ \specel   {(9-11)}  {{\bf v}: barycentric Earth velocity in units of c} \\
+ \specel   {(12)}    {$\sqrt{1-\left|\mbox{\bf v}\right|^2}$} \\
+ \specel   {(13-21)} {precession/nutation $3\times3$ matrix}
+}
+\args{RETURNED}
+{
+ \spec{RA,DA}{D }{apparent \radec\ (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Use of this routine is appropriate when efficiency is important
+        and where many star positions, all referred to the same equator
+        and equinox, are to be transformed for one epoch.  The
+        star-independent parameters can be obtained by calling the
+        sla\_MAPPA routine.
+  \item If the parallax and proper motions are zero the sla\_MAPQKZ
+        routine can be used instead.
+  \item The vectors AMPRMS(2-4) and AMPRMS(5-7) are referred to
+        the mean equinox and equator of epoch EQ.
+  \item Strictly speaking, the routine is not valid for solar-system
+        sources, though the error will usually be extremely small.
+        However, to prevent gross errors in the case where the
+        position of the Sun is specified, the gravitational
+        deflection term is restrained within about \arcseci{920} of the
+        centre of the Sun's disc.  The term has a maximum value of
+        about \arcsec{1}{85} at this radius, and decreases to zero as
+        the centre of the disc is approached.
+ \end{enumerate}
+}
+\refs
+{
+ \begin{enumerate}
+  \item 1984 {\it Astronomical Almanac}, pp B39-B41.
+  \item Lederle \& Schwan, 1984.\ {\it Astr.Astrophys.}\ {\bf 134}, 1-6.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_MAPQKZ}{Quick Mean-Appt, no PM {\it etc.}}
+{
+ \action{Quick mean to apparent place:  transform a star \radec\ from
+         mean place to geocentric apparent place, given the
+         star-independent parameters, and assuming zero parallax
+         and FK5 proper motion.
+         The reference frames and timescales used are post IAU~1976.}
+ \call{CALL sla\_MAPQKZ (RM, DM, AMPRMS, RA, DA)}
+}
+\args{GIVEN}
+{
+ \spec{RM,DM}{D}{mean \radec\ (radians)} \\
+ \spec{AMPRMS}{D(21)}{star-independent mean-to-apparent parameters:} \\
+ \specel   {(1)}     {time interval for proper motion (Julian years)} \\
+ \specel   {(2-4)}   {barycentric position of the Earth (AU)} \\
+ \specel   {(5-7)}   {heliocentric direction of the Earth (unit vector)} \\
+ \specel   {(8)}     {(gravitational radius of
+                      Sun)$\times 2 / $(Sun-Earth distance)} \\
+ \specel   {(9-11)}  {{\bf v}: barycentric Earth velocity in units of c} \\
+ \specel   {(12)}    {$\sqrt{1-\left|\mbox{\bf v}\right|^2}$} \\
+ \specel   {(13-21)} {precession/nutation $3\times3$ matrix}
+}
+\args{RETURNED}
+{
+ \spec{RA,DA}{D}{apparent \radec\ (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Use of this routine is appropriate when efficiency is important
+        and where many star positions, all with parallax and proper
+        motion either zero or already allowed for, and all referred to
+        the same equator and equinox, are to be transformed for one
+        epoch.  The star-independent parameters can be obtained by
+        calling the sla\_MAPPA routine.
+  \item The corresponding routine for the case of non-zero parallax
+        and FK5 proper motion is sla\_MAPQK.
+  \item The vectors AMPRMS(2-4) and AMPRMS(5-7) are referred to the
+        mean equinox and equator of epoch EQ.
+  \item Strictly speaking, the routine is not valid for solar-system
+        sources, though the error will usually be extremely small.
+        However, to prevent gross errors in the case where the
+        position of the Sun is specified, the gravitational
+        deflection term is restrained within about \arcseci{920} of the
+        centre of the Sun's disc.  The term has a maximum value of
+        about \arcsec{1}{85} at this radius, and decreases to zero as
+        the centre of the disc is approached.
+ \end{enumerate}
+}
+\refs
+{
+ \begin{enumerate}
+  \item 1984 {\it Astronomical Almanac}, pp B39-B41.
+  \item Lederle \& Schwan, 1984.\ {\it Astr.Astrophys.}\ {\bf 134}, 1-6.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_MOON}{Approx Moon Pos/Vel}
+{
+ \action{Approximate geocentric position and velocity of the Moon
+         (single precision).}
+ \call{CALL sla\_MOON (IY, ID, FD, PV)}
+}
+\args{GIVEN}
+{
+ \spec{IY}{I}{year} \\
+ \spec{ID}{I}{day in year (1 = Jan 1st)} \\
+ \spec{FD}{R }{fraction of day}
+}
+\args{RETURNED}
+{
+ \spec{PV}{R(6)}{Moon \xyzxyzd, mean equator and equinox of
+                 date (AU, AU~s$^{-1}$)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The date and time is TDB (loosely ET) in a Julian calendar
+        which has been aligned to the ordinary Gregorian
+        calendar for the interval 1900 March 1 to 2100 February 28.
+        The year and day can be obtained by calling sla\_CALYD or
+        sla\_CLYD.
+  \item The position is accurate to better than 0.5~arcminute
+        in direction and 1000~km in distance.  The velocity
+        is accurate to better than \arcsec{0}{5} per hour in direction
+        and 4~metres per socond in distance.  (RMS figures with respect
+        to JPL DE200 for the interval 1960-2025 are \arcseci{14} and
+        \arcsec{0}{2} per hour in longitude, \arcseci{9} and \arcsec{0}{2}
+        per hour in latitude, 350~km and 2~metres per second in distance.)
+        Note that the distance accuracy is comparatively poor because this
+        routine is principally intended for computing topocentric direction.
+  \item This routine is only a partial implementation of the original
+        Meeus algorithm (reference below), which offers 4 times the
+        accuracy in direction and 20 times the accuracy in distance
+        when fully implemented (as it is in sla\_DMOON).
+ \end{enumerate}
+}
+\aref{Meeus, {\it l'Astronomie}, June 1984, p348.}
+%-----------------------------------------------------------------------
+\routine{SLA\_MXM}{Multiply $3\times3$ Matrices}
+{
+ \action{Product of two $3\times3$ matrices (single precision).}
+ \call{CALL sla\_MXM (A, B, C)}
+}
+\args{GIVEN}
+{
+ \spec{A}{R(3,3)}{matrix {\bf A}} \\
+ \spec{B}{R(3,3)}{matrix {\bf B}}
+}
+\args{RETURNED}
+{
+ \spec{C}{R(3,3)}{matrix result: {\bf A}$\times${\bf B}}
+}
+\anote{To comply with the ANSI Fortran 77 standard, A, B and C must
+       be different arrays.  The routine is, in fact, coded
+       so as to work properly on the VAX and many other systems even
+       if this rule is violated, something that is {\bf not}, however,
+       recommended.}
+%-----------------------------------------------------------------------
+\routine{SLA\_MXV}{Apply 3D Rotation}
+{
+ \action{Multiply a 3-vector by a rotation matrix (single precision).}
+ \call{CALL sla\_MXV (RM, VA, VB)}
+}
+\args{GIVEN}
+{
+ \spec{RM}{R(3,3)}{rotation matrix} \\
+ \spec{VA}{R(3)}{vector to be rotated}
+}
+\args{RETURNED}
+{
+ \spec{VB}{R(3)}{result vector}
+}
+\notes
+{
+ \begin{enumerate}
+  \item This routine performs the operation:
+        \begin{verse}
+         {\bf b} = {\bf M}$\cdot${\bf a}
+        \end{verse}
+        where {\bf a} and {\bf b} are the 3-vectors VA and VB
+        respectively, and {\bf M} is the $3\times3$ matrix RM.
+  \item The main function of this routine is apply a
+        rotation;  under these circumstances, ${\bf M}$ is a
+        {\it proper real orthogonal}\/ matrix.
+  \item To comply with the ANSI Fortran 77 standard, VA and VB must
+        {\bf not} be the same array.  The routine is, in fact, coded
+        so as to work properly on the VAX and many other systems even
+        if this rule is violated, something that is {\bf not}, however,
+        recommended.
+ \end{enumerate}
+}
+%------------------------------------------------------------------------------
+\routine{SLA\_NUT}{Nutation Matrix}
+{
+ \action{Form the matrix of nutation (IAU 1980 theory) for a given date.}
+ \call{CALL sla\_NUT (DATE, RMATN)}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{TDB (formerly ET) as Modified Julian Date
+                                          (JD$-$2400000.5)}
+}
+\args{RETURNED}
+{
+ \spec{RMATN}{D(3,3)}{nutation matrix}
+}
+\anote{The matrix is in the sense:
+       \begin{verse}
+        {\bf v}$_{true}$ =  {\bf M}$\cdot${\bf v}$_{mean}$
+       \end{verse}
+       where {\bf v}$_{true}$ is the star vector relative to the
+       true equator and equinox of date, {\bf M} is the
+       $3\times3$ matrix RMATN and
+       {\bf v}$_{mean}$ is the star vector relative to the
+       mean equator and equinox of date.}
+\refs
+{
+ \begin{enumerate}
+  \item Final report of the IAU Working Group on Nutation,
+        chairman P.K.Seidelmann, 1980.
+  \item Kaplan, G.H., 1981.\ {\it USNO circular No.\ 163}, pA3-6.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_NUTC}{Nutation Components}
+{
+ \action{Nutation (IAU 1980 theory):  longitude \& obliquity
+         components, and mean obliquity.}
+ \call{CALL sla\_NUTC (DATE, DPSI, DEPS, EPS0)}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{TDB (formerly ET) as Modified Julian Date
+                                           (JD$-$2400000.5)}
+}
+\args{RETURNED}
+{
+ \spec{DPSI,DEPS}{D}{nutation in longitude and obliquity (radians)} \\
+ \spec{EPS0}{D}{mean obliquity (radians)}
+}
+\refs
+{
+ \begin{enumerate}
+  \item Final report of the IAU Working Group on Nutation,
+        chairman P.K.Seidelmann, 1980.
+  \item Kaplan, G.H., 1981.\ {\it USNO circular no.\ 163}, pA3-6.
+ \end{enumerate}
+}
+%------------------------------------------------------------------------------
+\routine{SLA\_OAP}{Observed to Apparent}
+{
+ \action{Observed to apparent place.}
+ \call{CALL sla\_OAP (\vtop{
+         \hbox{TYPE, OB1, OB2, DATE, DUT, ELONGM, PHIM,}
+         \hbox{HM, XP, YP, TDK, PMB, RH, WL, TLR, RAP, DAP)}}}
+}
+\args{GIVEN}
+{
+ \spec{TYPE}{C*(*)}{type of coordinates -- `R', `H' or `A' (see below)} \\
+ \spec{OB1}{D}{observed Az, HA or RA (radians; Az is N=0, E=$90^{\circ}$)} \\
+ \spec{OB2}{D}{observed zenith distance or $\delta$ (radians)} \\
+ \spec{DATE}{D }{UTC date/time (Modified Julian Date, JD$-$2400000.5)} \\
+ \spec{DUT}{D}{$\Delta$UT:  UT1$-$UTC (UTC seconds)} \\
+ \spec{ELONGM}{D}{observer's mean longitude (radians, east +ve)} \\
+ \spec{PHIM}{D}{observer's mean geodetic latitude (radians)} \\
+ \spec{HM}{D}{observer's height above sea level (metres)} \\
+ \spec{XP,YP}{D}{polar motion \xy\ coordinates (radians)} \\
+ \spec{TDK}{D}{local ambient temperature (degrees K; std=273.155D0)} \\
+ \spec{PMB}{D}{local atmospheric pressure (mB; std=1013.25D0)} \\
+ \spec{RH}{D}{local relative humidity (in the range 0D0\,--\,1D0)} \\
+ \spec{WL}{D}{effective wavelength ($\mu{\rm m}$, {\it e.g.}\ 0.55D0)} \\
+ \spec{TLR}{D}{tropospheric lapse rate (degrees K per metre,
+                                                {\it e.g.}\ 0.0065D0)}
+}
+\args{RETURNED}
+{
+ \spec{RAP,DAP}{D}{geocentric apparent \radec}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Only the first character of the TYPE argument is significant.
+        `R' or `r' indicates that OBS1 and OBS2 are the observed Right
+        Ascension and Declination;  `H' or `h' indicates that they are
+        Hour Angle (west +ve) and Declination; anything else (`A' or
+        `a' is recommended) indicates that OBS1 and OBS2 are Azimuth
+        (north zero, east is $90^{\circ}$) and Zenith Distance.  (Zenith
+        distance is used rather than elevation in order to reflect the
+        fact that no allowance is made for depression of the horizon.)
+  \item The accuracy of the result is limited by the corrections for
+        refraction.  Providing the meteorological parameters are
+        known accurately and there are no gross local effects, the
+        predicted azimuth and elevation should be within about
+        \arcsec{0}{1} for $\zeta<70^{\circ}$.  Even
+        at a topocentric zenith distance of
+        $90^{\circ}$, the accuracy in elevation should be better than
+        1~arcminute;  useful results are available for a further
+        $3^{\circ}$, beyond which the sla\_REFRO routine returns a
+        fixed value of the refraction.  The complementary
+        routines sla\_AOP (or sla\_AOPQK) and sla\_OAP (or sla\_OAPQK)
+        are self-consistent to better than 1~microarcsecond all over
+        the celestial sphere.
+  \item It is advisable to take great care with units, as even
+        unlikely values of the input parameters are accepted and
+        processed in accordance with the models used.
+  \item {\it Observed}\/ \azel\ means the position that would be seen by a
+        perfect theodolite located at the observer.  This is
+        related to the observed \hadec\ via the standard rotation, using
+        the geodetic latitude (corrected for polar motion), while the
+        observed HA and RA are related simply through the local
+        apparent ST.  {\it Observed}\/ \radec\ or \hadec\ thus means the
+        position that would be seen by a perfect equatorial located
+        at the observer and with its polar axis aligned to the
+        Earth's axis of rotation ({\it n.b.}\ not to the refracted pole).
+        By removing from the observed place the effects of
+        atmospheric refraction and diurnal aberration, the
+        geocentric apparent \radec\ is obtained.
+  \item Frequently, {\it mean}\/ rather than {\it apparent}\,
+        \radec\ will be required,
+        in which case further transformations will be necessary.  The
+        sla\_AMP {\it etc.}\ routines will convert
+        the apparent \radec\ produced
+        by the present routine into an FK5 J2000 mean place, by
+        allowing for the Sun's gravitational lens effect, annual
+        aberration, nutation and precession.  Should FK4 B1950
+        coordinates be needed, the routines sla\_FK524 {\it etc.}\ will also
+        need to be applied.
+  \item To convert to apparent \radec\ the coordinates read from a
+        real telescope, corrections would have to be applied for
+        encoder zero points, gear and encoder errors, tube flexure,
+        the position of the rotator axis and the pointing axis
+        relative to it, non-perpendicularity between the mounting
+        axes, and finally for the tilt of the azimuth or polar axis
+        of the mounting (with appropriate corrections for mount
+        flexures).  Some telescopes would, of course, exhibit other
+        properties which would need to be accounted for at the
+        appropriate point in the sequence.
+  \item The star-independent apparent-to-observed-place parameters
+        in AOPRMS may be computed by means of the sla\_AOPPA routine.
+        If nothing has changed significantly except the time, the
+        sla\_AOPPAT routine may be used to perform the requisite
+        partial recomputation of AOPRMS.
+  \item The DATE argument is UTC expressed as an MJD.  This is,
+        strictly speaking, wrong, because of leap seconds.  However,
+        as long as the $\Delta$UT and the UTC are consistent there
+        are no difficulties, except during a leap second.  In this
+        case, the start of the 61st second of the final minute should
+        begin a new MJD day and the old pre-leap $\Delta$UT should
+        continue to be used.  As the 61st second completes, the MJD
+        should revert to the start of the day as, simultaneously,
+        the $\Delta$UT changes by one second to its post-leap new value.
+  \item The $\Delta$UT (UT1$-$UTC) is tabulated in IERS circulars and
+        elsewhere.  It increases by exactly one second at the end of
+        each UTC leap second, introduced in order to keep $\Delta$UT
+        within $\pm$\tsec{0}{9}.
+  \item IMPORTANT -- TAKE CARE WITH THE LONGITUDE SIGN CONVENTION.  The
+        longitude required by the present routine is {\bf east-positive},
+        in accordance with geographical convention (and right-handed).
+        In particular, note that the longitudes returned by the
+        sla\_OBS routine are west-positive (as in the {\it Astronomical
+        Almanac}\/ before 1984) and must be reversed in sign before use
+        in the present routine.
+  \item The polar coordinates XP,YP can be obtained from IERS
+        circulars and equivalent publications.  The
+        maximum amplitude is about \arcsec{0}{3}.  If XP,YP values
+        are unavailable, use XP=YP=0D0.  See page B60 of the 1988
+        {\it Astronomical Almanac}\/ for a definition of the two angles.
+  \item The height above sea level of the observing station, HM,
+        can be obtained from the {\it Astronomical Almanac}\/ (Section J
+        in the 1988 edition), or via the routine sla\_OBS.  If P,
+        the pressure in mB, is available, an adequate
+        estimate of HM can be obtained from the following expression:
+        \begin{quote}
+         {\tt HM=-29.3D0*TSL*LOG(P/1013.25D0)}
+        \end{quote}
+        where TSL is the approximate sea-level air temperature in degrees K
+        (see {\it Astrophysical Quantities}, C.W.Allen, 3rd~edition,
+        \S 52).  Similarly, if the pressure P is not known,
+        it can be estimated from the height of the observing
+        station, HM as follows:
+        \begin{quote}
+         {\tt P=1013.25D0*EXP(-HM/(29.3D0*TSL))}
+        \end{quote}
+        Note, however, that the refraction is proportional to the
+        pressure and that an accurate P value is important for
+        precise work.
+  \item The azimuths {\it etc.}\ used by the present routine are with
+        respect to the celestial pole.  Corrections from the terrestrial pole
+        can be computed using sla\_POLMO.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_OAPQK}{Quick Observed to Apparent}
+{
+ \action{Quick observed to apparent place.}
+ \call{CALL sla\_OAPQK (TYPE, OB1, OB2, AOPRMS, RAP, DAP)}
+}
+\args{GIVEN}
+{
+ \spec{TYPE}{C*(*)}{type of coordinates -- `R', `H' or `A' (see below)} \\
+ \spec{OB1}{D}{observed Az, HA or RA (radians; Az is N=0, E=$90^{\circ}$)} \\
+ \spec{OB2}{D}{observed zenith distance or $\delta$ (radians)} \\
+ \spec{AOPRMS}{D(14)}{star-independent apparent-to-observed parameters:} \\
+ \specel   {(1)}     {geodetic latitude (radians)} \\
+ \specel   {(2,3)}   {sine and cosine of geodetic latitude} \\
+ \specel   {(4)}     {magnitude of diurnal aberration vector} \\
+ \specel   {(5)}     {height (HM)} \\
+ \specel   {(6)}     {ambient temperature (TDK)} \\
+ \specel   {(7)}     {pressure (PMB)} \\
+ \specel   {(8)}     {relative humidity (RH)} \\
+ \specel   {(9)}     {wavelength (WL)} \\
+ \specel   {(10)}    {lapse rate (TLR)} \\
+ \specel   {(11,12)} {refraction constants A and B (radians)} \\
+ \specel   {(13)}    {longitude + eqn of equinoxes +
+                       ``sidereal $\Delta$UT'' (radians)} \\
+ \specel   {(14)}    {local apparent sidereal time (radians)}
+}
+\args{RETURNED}
+{
+ \spec{RAP,DAP}{D}{geocentric apparent \radec}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Only the first character of the TYPE argument is significant.
+        `R' or `r' indicates that OBS1 and OBS2 are the observed Right
+        Ascension and Declination;  `H' or `h' indicates that they are
+        Hour Angle (west +ve) and Declination; anything else (`A' or
+        `a' is recommended) indicates that OBS1 and OBS2 are Azimuth
+        (north zero, east is $90^{\circ}$) and Zenith Distance.  (Zenith
+        distance is used rather than elevation in order to reflect the
+        fact that no allowance is made for depression of the horizon.)
+  \item The accuracy of the result is limited by the corrections for
+        refraction.  Providing the meteorological parameters are
+        known accurately and there are no gross local effects, the
+        predicted azimuth and elevation should be within about
+        \arcsec{0}{1} for $\zeta<70^{\circ}$.  Even
+        at a topocentric zenith distance of
+        $90^{\circ}$, the accuracy in elevation should be better than
+        1~arcminute;  useful results are available for a further
+        $3^{\circ}$, beyond which the sla\_REFRO routine returns a
+        fixed value of the refraction.  The complementary
+        routines sla\_AOP (or sla\_AOPQK) and sla\_OAP (or sla\_OAPQK)
+        are self-consistent to better than 1~microarcsecond all over
+        the celestial sphere.
+  \item It is advisable to take great care with units, as even
+        unlikely values of the input parameters are accepted and
+        processed in accordance with the models used.
+  \item {\it Observed}\/ \azel\ means the position that would be seen by a
+        perfect theodolite located at the observer.  This is
+        related to the observed \hadec\ via the standard rotation, using
+        the geodetic latitude (corrected for polar motion), while the
+        observed HA and RA are related simply through the local
+        apparent ST.  {\it Observed}\/ \radec\ or \hadec\ thus means the
+        position that would be seen by a perfect equatorial located
+        at the observer and with its polar axis aligned to the
+        Earth's axis of rotation ({\it n.b.}\ not to the refracted pole).
+        By removing from the observed place the effects of
+        atmospheric refraction and diurnal aberration, the
+        geocentric apparent \radec\ is obtained.
+  \item Frequently, {\it mean}\/ rather than {\it apparent}\,
+        \radec\ will be required,
+        in which case further transformations will be necessary.  The
+        sla\_AMP {\it etc.}\ routines will convert
+        the apparent \radec\ produced
+        by the present routine into an FK5 J2000 mean place, by
+        allowing for the Sun's gravitational lens effect, annual
+        aberration, nutation and precession.  Should FK4 B1950
+        coordinates be needed, the routines sla\_FK524 {\it etc.}\ will also
+        need to be applied.
+  \item To convert to apparent \radec\ the coordinates read from a
+        real telescope, corrections would have to be applied for
+        encoder zero points, gear and encoder errors, tube flexure,
+        the position of the rotator axis and the pointing axis
+        relative to it, non-perpendicularity between the mounting
+        axes, and finally for the tilt of the azimuth or polar axis
+        of the mounting (with appropriate corrections for mount
+        flexures).  Some telescopes would, of course, exhibit other
+        properties which would need to be accounted for at the
+        appropriate point in the sequence.
+  \item The star-independent apparent-to-observed-place parameters
+        in AOPRMS may be computed by means of the sla\_AOPPA routine.
+        If nothing has changed significantly except the time, the
+        sla\_AOPPAT routine may be used to perform the requisite
+        partial recomputation of AOPRMS.
+  \item The azimuths {\it etc.}\ used by the present routine are with
+        respect to the celestial pole.  Corrections from the terrestrial pole
+        can be computed using sla\_POLMO.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_OBS}{Observatory Parameters}
+{
+ \action{Look up an entry in a standard list of
+         groundbased observing stations parameters.}
+ \call{CALL sla\_OBS (N, C, NAME, W, P, H)}
+}
+\args{GIVEN}
+{
+ \spec{N}{I}{number specifying observing station}
+}
+\args{GIVEN or RETURNED}
+{
+ \spec{C}{C*(*)}{identifier specifying observing station}
+}
+\args{RETURNED}
+{
+ \spec{NAME}{C*(*)}{name of specified observing station} \\
+ \spec{W}{D}{longitude (radians, west +ve)} \\
+ \spec{P}{D}{geodetic latitude (radians, north +ve)} \\
+ \spec{H}{D}{height above sea level (metres)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Station identifiers C may be up to 10 characters long,
+        and station names NAME may be up to 40 characters long.
+  \item C and N are {\it alternative}\/ ways of specifying the observing
+        station.  The C option, which is the most generally useful,
+        may be selected by specifying an N value of zero or less.
+        If N is 1 or more, the parameters of the Nth station
+        in the currently supported list are interrogated, and
+        the station identifier C is returned as well as NAME, W,
+        P and H.
+  \item If the station parameters are not available, either because
+        the station identifier C is not recognized, or because an
+        N value greater than the number of stations supported is
+        given, a name of `?' is returned and W, P and H are left in
+        their current states.
+  \item Programs can obtain a list of all currently supported
+        stations by calling the routine repeatedly, with N=1,2,3...
+        When NAME=`?' is seen, the list of stations has been
+        exhausted.  The stations at the time of writing are listed
+        below.
+  \item Station numbers, identifiers, names and other details are
+        subject to change and should not be hardwired into
+        application programs.
+  \item All station identifiers C are uppercase only;  lower case
+        characters must be converted to uppercase by the calling
+        program.  The station names returned may contain both upper-
+        and lowercase.  All characters up to the first space are
+        checked;  thus an abbreviated ID will return the parameters
+        for the first station in the list which matches the
+        abbreviation supplied, and no station in the list will ever
+        contain embedded spaces.  C must not have leading spaces.
+  \item IMPORTANT -- BEWARE OF THE LONGITUDE SIGN CONVENTION.  The
+        longitude returned by sla\_OBS is
+        {\bf west-positive}, following the pre-1984 {\it Astronomical
+        Almanac}.  However, this sign convention is left-handed and is
+        the opposite of the one now used; elsewhere in
+        SLALIB the preferable east-positive convention is used.  In
+        particular, note that for use in sla\_AOP, sla\_AOPPA and
+        sla\_OAP the sign of the longitude must be reversed.
+  \item Users are urged to inform the author of any improvements
+        they would like to see made.  For example:
+        \begin{itemize}
+         \item typographical corrections
+         \item more accurate parameters
+         \item better station identifiers or names
+         \item additional stations
+        \end{itemize}
+ \end{enumerate}
+Stations supported by sla\_OBS at the time of writing:
+\begin{tabbing}
+xxxxxxxxxxxxxxxxx \= \kill
+{\it ID} \> {\it NAME} \\ \\
+AAT \> Anglo-Australian 3.9m Telescope \\
+ANU2.3 \> Siding Spring 2.3 metre \\
+APO3.5 \> Apache Point 3.5m \\
+ARECIBO \> Arecibo 1000 foot \\
+ATCA \> Australia Telescope Compact Array \\
+BLOEMF \> Bloemfontein 1.52 metre \\
+BOSQALEGRE \> Bosque Alegre 1.54 metre \\
+CAMB1MILE \> Cambridge 1 mile \\
+CAMB5KM \> Cambridge 5km \\
+CATALINA61 \> Catalina 61 inch \\
+CFHT \> Canada-France-Hawaii 3.6m Telescope \\
+CSO \> Caltech Sub-mm Observatory, Mauna Kea \\
+DAO72 \> DAO Victoria BC 1.85 metre \\
+DUNLAP74 \> David Dunlap 74 inch \\
+DUPONT \> Du Pont 2.5m Telescope, Las Campanas \\
+EFFELSBERG \> Effelsberg 100 metre \\
+ESO3.6 \> ESO 3.6 metre \\
+ESONTT \> ESO 3.5 metre NTT \\
+ESOSCHM \> ESO 1 metre Schmidt, La Silla \\
+FCRAO \> Five College Radio Astronomy Obs \\
+FLAGSTF61 \> USNO 61 inch astrograph, Flagstaff \\
+GBVA140 \> Greenbank 140 foot \\
+GBVA300 \> Greenbank 300 foot \\
+GEMININ \> Gemini North 8-m telescope \\
+HARVARD \> Harvard College Observatory 1.55m \\
+HPROV1.52 \> Haute Provence 1.52 metre \\
+HPROV1.93 \> Haute Provence 1.93 metre \\
+IRTF \> NASA IR Telescope Facility, Mauna Kea \\
+JCMT \> JCMT 15 metre \\
+JODRELL1 \> Jodrell Bank 250 foot \\
+KECK1 \> Keck 10m Telescope 1 \\
+KECK2 \> Keck 10m Telescope 2 \\
+KISO \> Kiso 1.05 metre Schmidt, Japan \\
+KOTTAMIA \> Kottamia 74 inch \\
+KPNO158 \> Kitt Peak 158 inch \\
+KPNO36FT \> Kitt Peak 36 foot \\
+KPNO84 \> Kitt Peak 84 inch \\
+KPNO90 \> Kitt Peak 90 inch \\
+LICK120 \> Lick 120 inch \\
+LOWELL72 \> Perkins 72 inch, Lowell \\
+LPO1 \> Jacobus Kapteyn 1m Telescope \\
+LPO2.5 \> Isaac Newton 2.5m Telescope \\
+LPO4.2 \> William Herschel 4.2m Telescope \\
+MAUNAK88 \> Mauna Kea 88 inch \\
+MCDONLD2.1 \> McDonald 2.1 metre \\
+MCDONLD2.7 \> McDonald 2.7 metre \\
+MMT \> MMT, Mt Hopkins \\
+MOPRA \> ATNF Mopra Observatory \\
+MTEKAR \> Mt Ekar 1.82 metre \\
+MTHOP1.5 \> Mt Hopkins 1.5 metre \\
+MTLEMMON60 \> Mt Lemmon 60 inch \\
+NOBEYAMA \> Nobeyama 45 metre \\
+OKAYAMA \> Okayama 1.88 metre \\
+PALOMAR200 \> Palomar 200 inch \\
+PALOMAR48 \> Palomar 48-inch Schmidt \\
+PALOMAR60 \> Palomar 60 inch \\
+PARKES \> Parkes 64 metre \\
+QUEBEC1.6 \> Quebec 1.6 metre \\
+SAAO74 \> Sutherland 74 inch \\
+SANPM83 \> San Pedro Martir 83 inch \\
+ST.ANDREWS \> St Andrews University Observatory \\
+STEWARD90 \> Steward 90 inch \\
+STROMLO74 \> Mount Stromlo 74 inch \\
+SUBARU \> Subaru 8 metre \\
+SUGARGROVE \> Sugar Grove 150 foot \\
+TAUTNBG \> Tautenburg 2 metre \\
+TAUTSCHM \> Tautenberg 1.34 metre Schmidt \\
+TIDBINBLA \> Tidbinbilla 64 metre \\
+TOLOLO1.5M \> Cerro Tololo 1.5 metre \\
+TOLOLO4M \> Cerro Tololo 4 metre \\
+UKIRT \> UK Infra Red Telescope \\
+UKST \> UK 1.2 metre Schmidt, Siding Spring \\
+USSR6 \> USSR 6 metre \\
+USSR600 \> USSR 600 foot \\
+VLA \> Very Large Array
+\end{tabbing}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_PA}{$h,\delta$ to Parallactic Angle}
+{
+ \action{Hour angle and declination to parallactic angle
+         (double precision).}
+ \call{D~=~sla\_PA (HA, DEC, PHI)}
+}
+\args{GIVEN}
+{
+ \spec{HA}{D}{hour angle in radians (geocentric apparent)} \\
+ \spec{DEC}{D}{declination in radians (geocentric apparent)} \\
+ \spec{PHI}{D}{latitude in radians (geodetic)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_PA}{D}{parallactic angle (radians, in the range $\pm \pi$)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The parallactic angle at a point in the sky is the position
+        angle of the vertical, {\it i.e.}\ the angle between the direction to
+        the pole and to the zenith.  In precise applications care must
+        be taken only to use geocentric apparent \hadec\ and to consider
+        separately the effects of atmospheric refraction and telescope
+        mount errors.
+  \item At the pole a zero result is returned.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_PAV}{Position-Angle Between Two Directions}
+{
+ \action{Returns the bearing (position angle) of one celestial
+         direction with respect to another (single precision).}
+ \call{R~=~sla\_PAV (V1, V2)}
+}
+\args{GIVEN}
+{
+ \spec{V1}{R(3)}{direction cosines of one point} \\
+ \spec{V2}{R(3)}{directions cosines of the other point}
+}
+\args{RETURNED}
+{
+ \spec{sla\_PAV}{R}{position-angle of 2nd point with respect to 1st}
+}
+\notes
+{
+ \begin{enumerate}
+ \item The coordinate frames correspond to \radec,
+       $[\lambda,\phi]$ {\it etc.}.
+ \item The result is the bearing (position angle), in radians,
+       of point V2 as seen
+       from point V1.  It is in the range $\pm \pi$.  The sense
+       is such that if V2
+       is a small distance due east of V1 the result
+       is about $+\pi/2$. Zero is returned
+       if the two points are coincident.
+ \item The routine sla\_BEAR performs an equivalent function except
+       that the points are specified in the form of spherical coordinates.
+ \end{enumerate}
+}
+%------------------------------------------------------------------------------
+\routine{SLA\_PCD}{Apply Radial Distortion}
+{
+ \action{Apply pincushion/barrel distortion to a tangent-plane \xy.}
+ \call{CALL sla\_PCD (DISCO,X,Y)}
+}
+\args{GIVEN}
+{
+ \spec{DISCO}{D}{pincushion/barrel distortion coefficient} \\
+ \spec{X,Y}{D}{tangent-plane \xy}
+}
+\args{RETURNED}
+{
+ \spec{X,Y}{D}{distorted \xy}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The distortion is of the form $\rho = r (1 + c r^{2})$, where $r$ is
+        the radial distance from the tangent point, $c$ is the DISCO
+        argument, and $\rho$ is the radial distance in the presence of
+        the distortion.
+  \item For {\it pincushion}\/ distortion, C is +ve;  for
+        {\it barrel}\/ distortion, C is $-$ve.
+  \item For X,Y in units of one projection radius (in the case of
+        a photographic plate, the focal length), the following
+        DISCO values apply:
+
+        \vspace{2ex}
+
+        \hspace{5em}
+        \begin{tabular}{|l|c|} \hline
+         Geometry & DISCO \\ \hline \hline
+         astrograph & 0.0 \\ \hline
+         Schmidt & $-$0.3333 \\ \hline
+         AAT PF doublet & +147.069 \\ \hline
+         AAT PF triplet & +178.585 \\ \hline
+         AAT f/8 & +21.20 \\ \hline
+         JKT f/8 & +14.6 \\ \hline
+        \end{tabular}
+
+        \vspace{2ex}
+
+  \item There is a companion routine, sla\_UNPCD, which performs
+        an approximately inverse operation.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_PDA2H}{H.A.\ for a Given Azimuth}
+{
+ \action{Hour Angle corresponding to a given azimuth (double precision).}
+ \call{CALL sla\_PDA2H (P, D, A, H1, J1, H2, J2)}
+}
+\args{GIVEN}
+{
+ \spec{P}{D}{latitude} \\
+ \spec{D}{D}{declination} \\
+ \spec{A}{D}{azimuth}
+}
+\args{RETURNED}
+{
+ \spec{H1}{D}{hour angle:  first solution if any} \\
+ \spec{J1}{I}{flag: 0 = solution 1 is valid} \\
+ \spec{H2}{D}{hour angle:  second solution if any} \\
+ \spec{J2}{I}{flag: 0 = solution 2 is valid}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_PDQ2H}{H.A.\ for a Given P.A.}
+{
+ \action{Hour Angle corresponding to a given parallactic angle
+         (double precision).}
+ \call{CALL sla\_PDQ2H (P, D, Q, H1, J1, H2, J2)}
+}
+\args{GIVEN}
+{
+ \spec{P}{D}{latitude} \\
+ \spec{D}{D}{declination} \\
+ \spec{Q}{D}{azimuth}
+}
+\args{RETURNED}
+{
+ \spec{H1}{D}{hour angle:  first solution if any} \\
+ \spec{J1}{I}{flag: 0 = solution 1 is valid} \\
+ \spec{H2}{D}{hour angle:  second solution if any} \\
+ \spec{J2}{I}{flag: 0 = solution 2 is valid}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_PERMUT}{Next Permutation}
+{
+ \action{Generate the next permutation of a specified number of items.}
+ \call{CALL sla\_PERMUT (N, ISTATE, IORDER, J)}
+}
+\args{GIVEN}
+{
+ \spec{N}{I}{number of items:  there will be N! permutations} \\
+ \spec{ISTATE}{I(N)}{state, ISTATE(1)$=-1$ to initialize}
+}
+\args{RETURNED}
+{
+ \spec{ISTATE}{I(N)}{state, updated ready for next time} \\
+ \spec{IORDER}{I(N)}{next permutation of numbers 1,2,\ldots,N} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} $-$1 = illegal N (zero or less is illegal)} \\
+ \spec{}{}{\hspace{2.3em}    0 = OK} \\
+ \spec{}{}{\hspace{1.5em} $+$1 = no more permutations available}
+}
+\notes
+{
+ \begin{enumerate}
+  \item This routine returns, in the IORDER array, the integers 1 to N
+        inclusive, in an order that depends on the current contents of
+        the ISTATE array.  Before calling the routine for the first
+        time, the caller must set the first element of the ISTATE array
+        to $-1$ (any negative number will do) to cause the ISTATE array
+        to be fully initialized.
+  \item The first permutation to be generated is:
+        \begin{verse}
+           IORDER(1)=N, IORDER(2)=N-1, ..., IORDER(N)=1
+        \end{verse}
+        This is also the permutation returned for the ``finished'' (J=1) case.
+        The final permutation to be generated is:
+        \begin{verse}
+           IORDER(1)=1, IORDER(2)=2, ..., IORDER(N)=N
+        \end{verse}
+  \item If the ``finished'' (J=1) status is ignored, the routine continues
+        to deliver permutations, the pattern repeating every~N!\,~calls.
+ \end{enumerate}
+}
+%------------------------------------------------------------------------------
+\routine{SLA\_PERTEL}{Perturbed Orbital Elements}
+{
+ \action{Update the osculating elements of an asteroid or comet by
+         applying planetary perturbations.}
+ \call{CALL sla\_PERTEL (\vtop{
+         \hbox{JFORM, DATE0, DATE1,}
+         \hbox{EPOCH0, ORBI0, ANODE0, PERIH0, AORQ0, E0, AM0,}
+         \hbox{EPOCH1, ORBI1, ANODE1, PERIH1, AORQ1, E1, AM1,}
+         \hbox{JSTAT)}}}
+}
+\args{GIVEN (format and dates)}
+{
+ \spec{JFORM}{I}{choice of element set (2 or 3; Note~1)} \\
+ \spec{DATE0}{D}{date of osculation (TT MJD) for the given} \\
+ \spec{}{}{\hspace{1.5em} elements} \\
+ \spec{DATE1}{D}{date of osculation (TT MJD) for the updated} \\
+ \spec{}{}{\hspace{1.5em} elements}
+}
+\args{GIVEN (the unperturbed elements)}
+{
+ \spec{EPOCH0}{D}{epoch of the given element set
+                            ($t_0$ or $T$, TT MJD;} \\
+ \spec{}{}{\hspace{1.5em} Note~2)} \\
+ \spec{ORBI0}{D}{inclination ($i$, radians)} \\
+ \spec{ANODE0}{D}{longitude of the ascending node ($\Omega$, radians)} \\
+ \spec{PERIH0}{D}{argument of perihelion
+                            ($\omega$, radians)} \\
+ \spec{AORQ0}{D}{mean distance or perihelion distance ($a$ or $q$, AU)} \\
+ \spec{E0}{D}{eccentricity ($e$)} \\
+ \spec{AM0}{D}{mean anomaly ($M$, radians, JFORM=2 only)}
+}
+\args{RETURNED (the updated elements)}
+{
+ \spec{EPOCH1}{D}{epoch of the updated element set
+                            ($t_0$ or $T$,} \\
+ \spec{}{}{\hspace{1.5em} TT MJD; Note~2)} \\
+ \spec{ORBI1}{D}{inclination ($i$, radians)} \\
+ \spec{ANODE1}{D}{longitude of the ascending node ($\Omega$, radians)} \\
+ \spec{PERIH1}{D}{argument of perihelion
+                            ($\omega$, radians)} \\
+ \spec{AORQ1}{D}{mean distance or perihelion distance ($a$ or $q$, AU)} \\
+ \spec{E1}{D}{eccentricity ($e$)} \\
+ \spec{AM1}{D}{mean anomaly ($M$, radians, JFORM=2 only)}
+}
+\args{RETURNED (status flag)}
+{
+ \spec{JSTAT}{I}{status:} \\
+ \spec{}{}{\hspace{0.5em}+102 = warning, distant epoch} \\
+ \spec{}{}{\hspace{0.5em}+101 = warning, large timespan
+                                            ($>100$ years)} \\
+ \spec{}{}{\hspace{-1.3em}+1 to +8 = coincident with major planet
+                                                  (Note~6)} \\
+ \spec{}{}{\hspace{1.95em}       0 = OK} \\
+ \spec{}{}{\hspace{1.2em}    $-$1 = illegal JFORM} \\
+ \spec{}{}{\hspace{1.2em}    $-$2 = illegal E0} \\
+ \spec{}{}{\hspace{1.2em}    $-$3 = illegal AORQ0} \\
+ \spec{}{}{\hspace{1.2em}    $-$4 = internal error} \\
+ \spec{}{}{\hspace{1.2em}    $-$5 = numerical error}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Two different element-format options are supported, as follows. \\
+
+        JFORM=2, suitable for minor planets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of elements $t_0$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> argument of perihelion $\omega$ (radians) \\
+        \> AORQ   \> = \> mean distance $a$ (AU) \\
+        \> E      \> = \> eccentricity $e$ $( 0 \leq e < 1 )$ \\
+        \> AORL   \> = \> mean anomaly $M$ (radians)
+        \end{tabbing}
+
+        JFORM=3, suitable for comets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of perihelion $T$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> argument of perihelion $\omega$ (radians) \\
+        \> AORQ   \> = \> perihelion distance $q$ (AU) \\
+        \> E      \> = \> eccentricity $e$ $( 0 \leq e \leq 10 )$
+        \end{tabbing}
+ \item DATE0, DATE1, EPOCH0 and EPOCH1 are all instants of time in
+       the TT timescale (formerly Ephemeris Time, ET), expressed
+       as Modified Julian Dates (JD$-$2400000.5).
+       \begin{itemize}
+       \item DATE0 is the instant at which the given
+             ({\it i.e.}\ unperturbed) osculating elements are correct.
+       \item DATE1 is the specified instant at which the updated osculating
+             elements are correct.
+       \item EPOCH0 and EPOCH1 will be the same as DATE0 and DATE1
+             (respectively) for the JFORM=2 case, normally used for minor
+             planets.  For the JFORM=3 case, the two epochs will refer to
+             perihelion passage and so will not, in general, be the same as
+             DATE0 and/or DATE1 though they may be similar to one another.
+       \end{itemize}
+ \item The elements are with respect to the J2000 ecliptic and mean equinox.
+ \item Unused elements (AM0 and AM1 for JFORM=3) are not accessed.
+ \item See the sla\_PERTUE routine for details of the algorithm used.
+ \item This routine is not intended to be used for major planets, which
+       is why JFORM=1 is not available and why there is no opportunity
+       to specify either the longitude of perihelion or the daily
+       motion.  However, if JFORM=2 elements are somehow obtained for a
+       major planet and supplied to the routine, sensible results will,
+       in fact, be produced.  This happens because the sla\_PERTUE routine
+       that is called to perform the calculations checks the separation
+       between the body and each of the planets and interprets a
+       suspiciously small value (0.001~AU) as an attempt to apply it to
+       the planet concerned.  If this condition is detected, the
+       contribution from that planet is ignored, and the status is set to
+       the planet number (Mercury=1,\ldots,Neptune=8) as a warning.
+ \end{enumerate}
+}
+\aref{Sterne, Theodore E., {\it An Introduction to Celestial Mechanics,}\/
+      Interscience Publishers, 1960.  Section 6.7, p199.}
+%------------------------------------------------------------------------------
+\routine{SLA\_PERTUE}{Perturbed Universal Elements}
+{
+ \action{Update the universal elements of an asteroid or comet by
+         applying planetary perturbations.}
+ \call{CALL sla\_PERTUE (DATE, U, JSTAT)}
+}
+\args{GIVEN}
+{
+ \spec{DATE1}{D}{final epoch (TT MJD) for the updated elements}
+}
+\args{GIVEN and RETURNED}
+{
+ \spec{U}{D(13)}{universal elements (updated in place)} \\
+ \specel {(1)}     {combined mass ($M+m$)} \\
+ \specel {(2)}     {total energy of the orbit ($\alpha$)} \\
+ \specel {(3)}     {reference (osculating) epoch ($t_0$)} \\
+ \specel {(4-6)}   {position at reference epoch (${\rm \bf r}_0$)} \\
+ \specel {(7-9)}   {velocity at reference epoch (${\rm \bf v}_0$)} \\
+ \specel {(10)}    {heliocentric distance at reference epoch} \\
+ \specel {(11)}    {${\rm \bf r}_0.{\rm \bf v_0}$} \\
+ \specel {(12)}    {date ($t$)} \\
+ \specel {(13)}    {universal eccentric anomaly ($\psi$) of date, approx}
+}
+\args{RETURNED}
+{
+ \spec{JSTAT}{I}{status:} \\
+ \spec{}{}{\hspace{0.5em}+102 = warning, distant epoch} \\
+ \spec{}{}{\hspace{0.5em}+101 = warning, large timespan
+                                            ($>100$ years)} \\
+ \spec{}{}{\hspace{-1.3em}+1 to +8 = coincident with major planet
+                                                  (Note~5)} \\
+ \spec{}{}{\hspace{1.95em}       0 = OK} \\
+ \spec{}{}{\hspace{1.2em}    $-$1 = numerical error}
+}
+\notes
+{
+ \begin{enumerate}
+  \setlength{\parskip}{\medskipamount}
+  \item The ``universal'' elements are those which define the orbit for the
+        purposes of the method of universal variables (see reference 2).
+        They consist of the combined mass of the two bodies, an epoch,
+        and the position and velocity vectors (arbitrary reference frame)
+        at that epoch.  The parameter set used here includes also various
+        quantities that can, in fact, be derived from the other
+        information.  This approach is taken to avoiding unnecessary
+        computation and loss of accuracy.  The supplementary quantities
+        are (i)~$\alpha$, which is proportional to the total energy of the
+        orbit, (ii)~the heliocentric distance at epoch,
+        (iii)~the outwards component of the velocity at the given epoch,
+        (iv)~an estimate of $\psi$, the ``universal eccentric anomaly'' at a
+        given date and (v)~that date.
+  \item The universal elements are with respect to the J2000 equator and
+        equinox.
+  \item The epochs DATE, U(3) and U(12) are all Modified Julian Dates
+        (JD$-$2400000.5).
+  \item The algorithm is a simplified form of Encke's method.  It takes as
+        a basis the unperturbed motion of the body, and numerically
+        integrates the perturbing accelerations from the major planets.
+        The expression used is essentially Sterne's 6.7-2 (reference 1).
+        Everhart and Pitkin (reference 2) suggest rectifying the orbit at
+        each integration step by propagating the new perturbed position
+        and velocity as the new universal variables.  In the present
+        routine the orbit is rectified less frequently than this, in order
+        to gain a slight speed advantage.  However, the rectification is
+        done directly in terms of position and velocity, as suggested by
+        Everhart and Pitkin, bypassing the use of conventional orbital
+        elements.
+
+        The $f(q)$ part of the full Encke method is not used.  The purpose
+        of this part is to avoid subtracting two nearly equal quantities
+        when calculating the ``indirect member'', which takes account of the
+        small change in the Sun's attraction due to the slightly displaced
+        position of the perturbed body.  A simpler, direct calculation in
+        double precision proves to be faster and not significantly less
+        accurate.
+
+        Apart from employing a variable timestep, and occasionally
+        ``rectifying the orbit'' to keep the indirect member small, the
+        integration is done in a fairly straightforward way.  The
+        acceleration estimated for the middle of the timestep is assumed
+        to apply throughout that timestep;  it is also used in the
+        extrapolation of the perturbations to the middle of the next
+        timestep, to predict the new disturbed position.  There is no
+        iteration within a timestep.
+
+        Measures are taken to reach a compromise between execution time
+        and accuracy.  The starting-point is the goal of achieving
+        arcsecond accuracy for ordinary minor planets over a ten-year
+        timespan.  This goal dictates how large the timesteps can be,
+        which in turn dictates how frequently the unperturbed motion has
+        to be recalculated from the osculating elements.
+
+        Within predetermined limits, the timestep for the numerical
+        integration is varied in length in inverse proportion to the
+        magnitude of the net acceleration on the body from the major
+        planets.
+
+        The numerical integration requires estimates of the major-planet
+        motions.  Approximate positions for the major planets (Pluto
+        alone is omitted) are obtained from the routine sla\_PLANET.  Two
+        levels of interpolation are used, to enhance speed without
+        significantly degrading accuracy.  At a low frequency, the routine
+        sla\_PLANET is called to generate updated position+velocity ``state
+        vectors''.  The only task remaining to be carried out at the full
+        frequency ({\it i.e.}\ at each integration step) is to use the state
+        vectors to extrapolate the planetary positions.  In place of a
+        strictly linear extrapolation, some allowance is made for the
+        curvature of the orbit by scaling back the radius vector as the
+        linear extrapolation goes off at a tangent.
+
+        Various other approximations are made.  For example, perturbations
+        by Pluto and the minor planets are neglected, relativistic effects
+        are not taken into account and the Earth-Moon system is treated as
+        a single body.
+
+        In the interests of simplicity, the background calculations for
+        the major planets are carried out {\it en masse.}
+        The mean elements and
+        state vectors for all the planets are refreshed at the same time,
+        without regard for orbit curvature, mass or proximity.
+
+  \item This routine is not intended to be used for major planets.
+        However, if major-planet elements are supplied, sensible results
+        will, in fact, be produced.  This happens because the routine
+        checks the separation between the body and each of the planets and
+        interprets a suspiciously small value (0.001~AU) as an attempt to
+        apply the routine to the planet concerned.  If this condition
+        is detected, the
+        contribution from that planet is ignored, and the status is set to
+        the planet number (Mercury=1,\ldots,Neptune=8) as a warning.
+ \end{enumerate}
+}
+\refs{
+   \begin{enumerate}
+   \item Sterne, Theodore E., {\it An Introduction to Celestial Mechanics,}\/
+         Interscience Publishers, 1960.  Section 6.7, p199.
+   \item Everhart, E. \& Pitkin, E.T., Am.~J.~Phys.~51, 712, 1983.
+   \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_PLANEL}{Planet Position from Elements}
+{
+ \action{Heliocentric position and velocity of a planet,
+         asteroid or comet, starting from orbital elements.}
+ \call{CALL sla\_PLANEL (\vtop{
+         \hbox{DATE, JFORM, EPOCH, ORBINC, ANODE, PERIH,}
+         \hbox{AORQ, E, AORL, DM, PV, JSTAT)}}}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{Modified Julian Date (JD$-$2400000.5)} \\
+ \spec{JFORM}{I}{choice of element set (1-3, see Note~3, below)} \\
+ \spec{EPOCH}{D}{epoch of elements ($t_0$ or $T$, TT MJD)} \\
+ \spec{ORBINC}{D}{inclination ($i$, radians)} \\
+ \spec{ANODE}{D}{longitude of the ascending node ($\Omega$, radians)} \\
+ \spec{PERIH}{D}{longitude or argument of perihelion
+                            ($\varpi$ or $\omega$,} \\
+ \spec{}{}{\hspace{1.5em} radians)} \\
+ \spec{AORQ}{D}{mean distance or perihelion distance ($a$ or $q$, AU)} \\
+ \spec{E}{D}{eccentricity ($e$)} \\
+ \spec{AORL}{D}{mean anomaly or longitude
+                               ($M$ or $L$, radians,} \\
+ \spec{}{}{\hspace{1.5em} JFORM=1,2 only)} \\
+ \spec{DM}{D}{daily motion ($n$, radians, JFORM=1 only)}
+}
+\args{RETURNED}
+{
+ \spec{PV}{D(6)}{heliocentric \xyzxyzd, equatorial, J2000} \\
+ \spec{}{}{\hspace{1.5em} (AU, AU/s)} \\
+ \spec{JSTAT}{I}{status:} \\
+ \spec{}{}{\hspace{2.3em}    0 = OK} \\
+ \spec{}{}{\hspace{1.5em} $-$1 = illegal JFORM} \\
+ \spec{}{}{\hspace{1.5em} $-$2 = illegal E} \\
+ \spec{}{}{\hspace{1.5em} $-$3 = illegal AORQ} \\
+ \spec{}{}{\hspace{1.5em} $-$4 = illegal DM} \\
+ \spec{}{}{\hspace{1.5em} $-$5 = numerical error}
+}
+\notes
+{
+ \begin{enumerate}
+  \item DATE is the instant for which the prediction is
+        required.  It is in the TT timescale (formerly
+        Ephemeris Time, ET) and is a
+        Modified Julian Date (JD$-$2400000.5).
+  \item The elements are with respect to
+        the J2000 ecliptic and equinox.
+  \item Three different element-format options are available, as
+        follows. \\
+
+        JFORM=1, suitable for the major planets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of elements $t_0$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> longitude of perihelion $\varpi$ (radians) \\
+        \> AORQ   \> = \> mean distance $a$ (AU) \\
+        \> E      \> = \> eccentricity $e$ $( 0 \leq e < 1 )$ \\
+        \> AORL   \> = \> mean longitude $L$ (radians) \\
+        \> DM     \> = \> daily motion $n$ (radians)
+        \end{tabbing}
+
+        JFORM=2, suitable for minor planets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of elements $t_0$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> argument of perihelion $\omega$ (radians) \\
+        \> AORQ   \> = \> mean distance $a$ (AU) \\
+        \> E      \> = \> eccentricity $e$ $( 0 \leq e < 1 )$ \\
+        \> AORL   \> = \> mean anomaly $M$ (radians)
+        \end{tabbing}
+
+        JFORM=3, suitable for comets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of perihelion $T$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> argument of perihelion $\omega$ (radians) \\
+        \> AORQ   \> = \> perihelion distance $q$ (AU) \\
+        \> E      \> = \> eccentricity $e$ $( 0 \leq e \leq 10 )$
+        \end{tabbing}
+  \item Unused elements (DM for JFORM=2, AORL and DM for JFORM=3) are
+        not accessed.
+  \item The reference frame for the result is equatorial and is with
+        respect to the mean equinox and ecliptic of epoch J2000.
+  \item The algorithm was originally adapted from the EPHSLA program of
+        D.\,H.\,P.\,Jones (private communication, 1996).  The method
+        is based on Stumpff's Universal Variables.
+ \end{enumerate}
+}
+\aref{Everhart, E. \& Pitkin, E.T., Am.~J.~Phys.~51, 712, 1983.}
+%------------------------------------------------------------------------------
+\routine{SLA\_PLANET}{Planetary Ephemerides}
+{
+ \action{Approximate heliocentric position and velocity of a planet.}
+ \call{CALL sla\_PLANET (DATE, NP, PV, JSTAT)}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{Modified Julian Date (JD$-$2400000.5)} \\
+ \spec{NP}{I}{planet:} \\
+ \spec{}{}{\hspace{1.5em} 1\,=\,Mercury} \\
+ \spec{}{}{\hspace{1.5em} 2\,=\,Venus} \\
+ \spec{}{}{\hspace{1.5em} 3\,=\,Earth-Moon Barycentre} \\
+ \spec{}{}{\hspace{1.5em} 4\,=\,Mars} \\
+ \spec{}{}{\hspace{1.5em} 5\,=\,Jupiter} \\
+ \spec{}{}{\hspace{1.5em} 6\,=\,Saturn} \\
+ \spec{}{}{\hspace{1.5em} 7\,=\,Uranus} \\
+ \spec{}{}{\hspace{1.5em} 8\,=\,Neptune} \\
+ \spec{}{}{\hspace{1.5em} 9\,=\,Pluto}
+}
+\args{RETURNED}
+{
+ \spec{PV}{D(6)}{heliocentric \xyzxyzd, equatorial, J2000} \\
+ \spec{}{}{\hspace{1.5em} (AU, AU/s)} \\
+ \spec{JSTAT}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} $+$1 = warning: date outside of range} \\
+ \spec{}{}{\hspace{2.3em}    0 = OK} \\
+ \spec{}{}{\hspace{1.5em} $-$1 = illegal NP (outside 1-9)} \\
+ \spec{}{}{\hspace{1.5em} $-$2 = solution didn't converge}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The epoch, DATE, is in the TDB timescale and is in the form
+        of a Modified Julian Date (JD$-$2400000.5).
+  \item The reference frame is equatorial and is with respect to
+        the mean equinox and ecliptic of epoch J2000.
+  \item If a planet number, NP, outside the range 1-9 is supplied, an error
+        status is returned (JSTAT~=~$-1$) and the PV vector
+        is set to zeroes.
+  \item The algorithm for obtaining the mean elements of the
+        planets from Mercury to Neptune is due to
+        J.\,L.\,Simon, P.\,Bretagnon, J.\,Chapront,
+        M.\,Chapront-Touze, G.\,Francou and J.\,Laskar (Bureau des
+        Longitudes, Paris, France).  The (completely different)
+        algorithm for calculating the ecliptic coordinates of
+        Pluto is by Meeus.
+  \item Comparisons of the present routine with the JPL DE200 ephemeris
+        give the following RMS errors over the interval 1960-2025:
+        \begin{tabbing}
+         xxxxx \= xxxxxxxxxxxxxxxxx \= xxxxxxxxxxxxxx \= \kill
+         \> \> {\it position (km)} \> {\it speed (metre/sec)} \\ \\
+         \> Mercury \> \hspace{2em}334 \> \hspace{2.5em}0.437 \\
+         \> Venus   \> \hspace{1.5em}1060 \> \hspace{2.5em}0.855 \\
+         \> EMB     \> \hspace{1.5em}2010 \> \hspace{2.5em}0.815 \\
+         \> Mars    \> \hspace{1.5em}7690 \> \hspace{2.5em}1.98 \\
+         \> Jupiter \> \hspace{1em}71700 \> \hspace{2.5em}7.70 \\
+         \> Saturn  \> \hspace{0.5em}199000 \> \hspace{2em}19.4 \\
+         \> Uranus  \> \hspace{0.5em}564000 \> \hspace{2em}16.4 \\
+         \> Neptune \> \hspace{0.5em}158000 \> \hspace{2em}14.4 \\
+         \> Pluto \> \hspace{1em}36400 \> \hspace{2.5em}0.137
+        \end{tabbing}
+        From comparisons with DE102, Simon {\it et al.}\/ quote the following
+        longitude accuracies over the interval 1800-2200:
+        \begin{tabbing}
+         xxxxx \= xxxxxxxxxxxxxxxxxxxx \= \kill
+         \> Mercury \> \hspace{0.5em}\arcseci{4} \\
+         \> Venus   \> \hspace{0.5em}\arcseci{5} \\
+         \> EMB     \> \hspace{0.5em}\arcseci{6} \\
+         \> Mars    \> \arcseci{17} \\
+         \> Jupiter \> \arcseci{71} \\
+         \> Saturn  \> \arcseci{81} \\
+         \> Uranus  \> \arcseci{86} \\
+         \> Neptune \> \arcseci{11}
+        \end{tabbing}
+        In the case of Pluto, Meeus quotes an accuracy of \arcsec{0}{6}
+        in longitude and \arcsec{0}{2} in latitude for the period
+        1885-2099.
+
+        For all except Pluto, over the period 1000-3000,
+        the accuracy is better than 1.5
+        times that over 1800-2200.  Outside the interval 1000-3000 the
+        accuracy declines.  For Pluto the accuracy declines rapidly
+        outside the period 1885-2099.  Outside these ranges
+        (1885-2099 for Pluto, 1000-3000 for the rest) a ``date out
+        of range'' warning status ({\tt JSTAT=+1}) is returned.
+  \item The algorithms for (i)~Mercury through Neptune and
+        (ii)~Pluto are completely independent.  In the Mercury
+        through Neptune case, the present SLALIB
+        implementation differs from the original
+        Simon {\it et al.}\/ Fortran code in the following respects:
+        \begin{itemize}
+         \item The date is supplied as a Modified Julian Date rather
+               a Julian Date (${\rm MJD} = ({\rm JD} - 2400000.5$).
+         \item The result is returned only in equatorial
+               Cartesian form;  the ecliptic
+               longitude, latitude and radius vector are not returned.
+         \item The velocity is in AU per second, not AU per day.
+         \item Different error/warning status values are used.
+         \item Kepler's Equation is not solved inline.
+         \item Polynomials in T are nested to minimize rounding errors.
+         \item Explicit double-precision constants are used to avoid
+               mixed-mode expressions.
+         \item There are other, cosmetic, changes to comply with
+               Starlink/SLALIB style guidelines.
+        \end{itemize}
+        None of the above changes affects the result significantly.
+  \item NP\,=\,3 the result is for the Earth-Moon Barycentre.  To
+        obtain the heliocentric position and velocity of the Earth,
+        either use the SLALIB routine sla\_EVP or call sla\_DMOON and
+        subtract 0.012150581 times the geocentric Moon vector from
+        the EMB vector produced by the present routine.  (The Moon
+        vector should be precessed to J2000 first, but this can
+        be omitted for modern epochs without introducing significant
+        inaccuracy.)
+ \end{enumerate}
+\refs
+{
+ \begin{enumerate}
+  \item Simon {\it et al.,}\/
+        Astron.\ Astrophys.\ {\bf 282}, 663 (1994).
+  \item Meeus, J.,
+        {\it Astronomical Algorithms,}\/ Willmann-Bell (1991).
+ \end{enumerate}
+}
+}
+%------------------------------------------------------------------------------
+\routine{SLA\_PLANTE}{\radec\ of Planet from Elements}
+{
+ \action{Topocentric apparent \radec\ of a Solar-System object whose
+         heliocentric orbital elements are known.}
+ \call{CALL sla\_PLANTE (\vtop{
+         \hbox{DATE, ELONG, PHI, JFORM, EPOCH, ORBINC, ANODE, PERIH,}
+         \hbox{AORQ, E, AORL, DM, RA, DEC, R, JSTAT)}}}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{MJD of observation (JD$-$2400000.5)} \\
+ \spec{ELONG,PHI}{D}{observer's longitude (east +ve) and latitude} \\
+ \spec{}{}{\hspace{1.5em} radians)} \\
+ \spec{JFORM}{I}{choice of element set (1-3, see Note~4, below)} \\
+ \spec{EPOCH}{D}{epoch of elements ($t_0$ or $T$, TT MJD)} \\
+ \spec{ORBINC}{D}{inclination ($i$, radians)} \\
+ \spec{ANODE}{D}{longitude of the ascending node ($\Omega$, radians)} \\
+ \spec{PERIH}{D}{longitude or argument of perihelion
+                            ($\varpi$ or $\omega$,} \\
+ \spec{}{}{\hspace{1.5em} radians)} \\
+ \spec{AORQ}{D}{mean distance or perihelion distance ($a$ or $q$, AU)} \\
+ \spec{E}{D}{eccentricity ($e$)} \\
+ \spec{AORL}{D}{mean anomaly or longitude ($M$ or $L$,} \\
+  \spec{}{}{\hspace{1.5em} radians, JFORM=1,2 only)} \\
+ \spec{DM}{D}{daily motion ($n$, radians, JFORM=1 only)}
+}
+\args{RETURNED}
+{
+ \spec{RA,DEC}{D}{topocentric apparent \radec\ (radians)} \\
+ \spec{R}{D}{distance from observer (AU)} \\
+ \spec{JSTAT}{I}{status:} \\
+ \spec{}{}{\hspace{2.3em}    0 = OK} \\
+ \spec{}{}{\hspace{1.5em} $-$1 = illegal JFORM} \\
+ \spec{}{}{\hspace{1.5em} $-$2 = illegal E} \\
+ \spec{}{}{\hspace{1.5em} $-$3 = illegal AORQ} \\
+ \spec{}{}{\hspace{1.5em} $-$4 = illegal DM} \\
+ \spec{}{}{\hspace{1.5em} $-$5 = numerical error}
+}
+\notes
+{
+ \begin{enumerate}
+  \item DATE is the instant for which the prediction is
+        required.  It is in the TT timescale (formerly
+        Ephemeris Time, ET) and is a
+        Modified Julian Date (JD$-$2400000.5).
+  \item The longitude and latitude allow correction for geocentric
+        parallax.  This is usually a small effect, but can become
+        important for Earth-crossing asteroids.  Geocentric positions
+        can be generated by appropriate use of the routines
+        sla\_EVP and sla\_PLANEL.
+  \item The elements are with respect to the J2000 ecliptic and equinox.
+  \item Three different element-format options are available, as
+        follows. \\
+
+        JFORM=1, suitable for the major planets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of elements $t_0$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> longitude of perihelion $\varpi$ (radians) \\
+        \> AORQ   \> = \> mean distance $a$ (AU) \\
+        \> E      \> = \> eccentricity $e$ \\
+        \> AORL   \> = \> mean longitude $L$ (radians) \\
+        \> DM     \> = \> daily motion $n$ (radians)
+        \end{tabbing}
+
+        JFORM=2, suitable for minor planets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of elements $t_0$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> argument of perihelion $\omega$ (radians) \\
+        \> AORQ   \> = \> mean distance $a$ (AU) \\
+        \> E      \> = \> eccentricity $e$ \\
+        \> AORL   \> = \> mean anomaly $M$ (radians)
+        \end{tabbing}
+
+        JFORM=3, suitable for comets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of perihelion $T$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> argument of perihelion $\omega$ (radians) \\
+        \> AORQ   \> = \> perihelion distance $q$ (AU) \\
+        \> E      \> = \> eccentricity $e$
+        \end{tabbing}
+  \item Unused elements (DM for JFORM=2, AORL and DM for JFORM=3) are
+        not accessed.
+ \end{enumerate}
+}
+%------------------------------------------------------------------------------
+\routine{SLA\_PM}{Proper Motion}
+{
+ \action{Apply corrections for proper motion to a star \radec.}
+ \call{CALL sla\_PM (R0, D0, PR, PD, PX, RV, EP0, EP1, R1, D1)}
+}
+\args{GIVEN}
+{
+ \spec{R0,D0}{D}{\radec\ at epoch EP0 (radians)} \\
+ \spec{PR,PD}{D}{proper motions:  rate of change of 
+                 \radec\  (radians per year)} \\
+ \spec{PX}{D}{parallax (arcsec)} \\
+ \spec{RV}{D}{radial velocity (km~s$^{-1}$, +ve if receding)} \\
+ \spec{EP0}{D}{start epoch in years ({\it e.g.}\ Julian epoch)} \\
+ \spec{EP1}{D}{end epoch in years (same system as EP0)}
+}
+\args{RETURNED}
+{
+ \spec{R1,D1}{D}{\radec\ at epoch EP1 (radians)}
+}
+\anote{The $\alpha$ proper motions are $\dot{\alpha}$ rather than
+       $\dot{\alpha}\cos\delta$, and are in the same coordinate
+       system as R0,D0.}
+\refs
+{
+ \begin{enumerate}
+  \item 1984 {\it Astronomical Almanac}, pp B39-B41.
+  \item Lederle \& Schwan, 1984.\ {\it Astr. Astrophys.}\ {\bf 134}, 1-6.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_POLMO}{Polar Motion}
+{
+ \action{Polar motion:  correct site longitude and latitude for polar
+         motion and calculate azimuth difference between celestial and
+         terrestrial poles.}
+ \call{CALL sla\_POLMO (ELONGM, PHIM, XP, YP, ELONG, PHI, DAZ)}
+}
+\args{GIVEN}
+{
+ \spec{ELONGM}{D}{mean longitude of the site (radians, east +ve)} \\
+ \spec{PHIM}{D}{mean geodetic latitude of the site (radians)} \\
+ \spec{XP}{D}{polar motion $x$-coordinate (radians)} \\
+ \spec{YP}{D}{polar motion $y$-coordinate (radians)}
+}
+\args{RETURNED}
+{
+ \spec{ELONG}{D}{true longitude of the site (radians, east +ve)} \\
+ \spec{PHI}{D}{true geodetic latitude of the site (radians)} \\
+ \spec{DAZ}{D}{azimuth correction (terrestrial$-$celestial, radians)}
+}
+\notes
+{
+\begin{enumerate}
+\item ``Mean'' longitude and latitude are the (fixed) values for the
+      site's location with respect to the IERS terrestrial reference
+      frame;  the latitude is geodetic.  TAKE CARE WITH THE LONGITUDE
+      SIGN CONVENTION.  The longitudes used by the present routine
+      are east-positive, in accordance with geographical convention
+      (and right-handed).  In particular, note that the longitudes
+      returned by the sla\_OBS routine are west-positive, following
+      astronomical usage, and must be reversed in sign before use in
+      the present routine.
+\item XP and YP are the (changing) coordinates of the Celestial
+      Ephemeris Pole with respect to the IERS Reference Pole.
+      XP is positive along the meridian at longitude $0^\circ$,
+      and YP is positive along the meridian at longitude
+      $270^\circ$ ({\it i.e.}\ $90^\circ$ west).  Values for XP,YP can
+      be obtained from IERS circulars and equivalent publications;
+      the maximum amplitude observed so far is about \arcsec{0}{3}.
+\item ``True'' longitude and latitude are the (moving) values for
+      the site's location with respect to the celestial ephemeris
+      pole and the meridian which corresponds to the Greenwich
+      apparent sidereal time.  The true longitude and latitude
+      link the terrestrial coordinates with the standard celestial
+      models (for precession, nutation, sidereal time {\it etc}).
+\item The azimuths produced by sla\_AOP and sla\_AOPQK are with
+      respect to due north as defined by the Celestial Ephemeris
+      Pole, and can therefore be called ``celestial azimuths''.
+      However, a telescope fixed to the Earth measures azimuth
+      essentially with respect to due north as defined by the
+      IERS Reference Pole, and can therefore be called ``terrestrial
+      azimuth''.  Uncorrected, this would manifest itself as a
+      changing ``azimuth zero-point error''.  The value DAZ is the
+      correction to be added to a celestial azimuth to produce
+      a terrestrial azimuth.
+\item The present routine is rigorous.  For most practical
+      purposes, the following simplified formulae provide an
+      adequate approximation: \\[2ex]
+      \hspace*{1em}\begin{tabular}{lll}
+        {\tt ELONG} & {\tt =} &
+             {\tt ELONGM+XP*COS(ELONGM)-YP*SIN(ELONGM)} \\
+        {\tt PHI  } & {\tt =} &
+             {\tt PHIM+(XP*SIN(ELONGM)+YP*COS(ELONGM))*TAN(PHIM)} \\
+        {\tt DAZ  } & {\tt =} &
+             {\tt -SQRT(XP*XP+YP*YP)*COS(ELONGM-ATAN2(XP,YP))/COS(PHIM)} \\
+      \end{tabular} \\[2ex]
+      An alternative formulation for DAZ is:\\[2ex]
+      \hspace*{1em}\begin{tabular}{lll}
+        {\tt X  } & {\tt =} & {\tt COS(ELONGM)*COS(PHIM)} \\
+        {\tt Y  } & {\tt =} & {\tt SIN(ELONGM)*COS(PHIM)} \\
+        {\tt DAZ} & {\tt =} & {\tt ATAN2(-X*YP-Y*XP,X*X+Y*Y)} \\
+      \end{tabular}
+\end{enumerate}
+}
+\aref{Seidelmann, P.K.\ (ed), 1992.  {\it Explanatory
+      Supplement to the Astronomical Almanac,}\/ ISBN~0-935702-68-7,
+      sections 3.27, 4.25, 4.52.}
+%-----------------------------------------------------------------------
+\routine{SLA\_PREBN}{Precession Matrix (FK4)}
+{
+ \action{Generate the matrix of precession between two epochs,
+         using the old, pre IAU~1976, Bessel-Newcomb model, in
+         Andoyer's formulation.}
+ \call{CALL sla\_PREBN (BEP0, BEP1, RMATP)}
+}
+\args{GIVEN}
+{
+ \spec{BEP0}{D}{beginning Besselian epoch} \\
+ \spec{BEP1}{D}{ending Besselian epoch}
+}
+\args{RETURNED}
+{
+ \spec{RMATP}{D(3,3)}{precession matrix}
+}
+\anote{The matrix is in the sense:
+       \begin{verse}
+        {\bf v}$_{1}$ =  {\bf M}$\cdot${\bf v}$_{0}$
+       \end{verse}
+       where {\bf v}$_{1}$ is the star vector relative to the
+       mean equator and equinox of epoch BEP1, {\bf M} is the
+       $3\times3$ matrix RMATP and
+       {\bf v}$_{0}$ is the star vector relative to the
+       mean equator and equinox of epoch BEP0.}
+\aref{Smith {\it et al.}, 1989.\ {\it Astr.J.}\ {\bf 97}, 269.}
+%-----------------------------------------------------------------------
+\routine{SLA\_PREC}{Precession Matrix (FK5)}
+{
+ \action{Form the matrix of precession between two epochs (IAU 1976, FK5).}
+ \call{CALL sla\_PREC (EP0, EP1, RMATP)}
+}
+\args{GIVEN}
+{
+ \spec{EP0}{D}{beginning epoch} \\
+ \spec{EP1}{D}{ending epoch}
+}
+\args{RETURNED}
+{
+ \spec{RMATP}{D(3,3)}{precession matrix}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The epochs are TDB Julian epochs.
+  \item The matrix is in the sense:
+        \begin{verse}
+         {\bf v}$_{1}$ =  {\bf M}$\cdot${\bf v}$_{0}$
+        \end{verse}
+        where {\bf v}$_{1}$ is the star vector relative to the
+        mean equator and equinox of epoch EP1, {\bf M} is the
+        $3\times3$ matrix RMATP and
+        {\bf v}$_{0}$ is the star vector relative to the
+        mean equator and equinox of epoch EP0.
+  \item Though the matrix method itself is rigorous, the precession
+        angles are expressed through canonical polynomials which are
+        valid only for a limited time span.  There are also known
+        errors in the IAU precession rate.  The absolute accuracy
+        of the present formulation is better than \arcsec{0}{1} from
+        1960\,AD to 2040\,AD, better than \arcseci{1} from 1640\,AD to 2360\,AD,
+        and remains below \arcseci{3} for the whole of the period
+        500\,BC to 3000\,AD.  The errors exceed \arcseci{10} outside the
+        range 1200\,BC to 3900\,AD, exceed \arcseci{100} outside 4200\,BC to
+        5600\,AD and exceed \arcseci{1000} outside 6800\,BC to 8200\,AD.
+        The SLALIB routine sla\_PRECL implements a more elaborate
+        model which is suitable for problems spanning several
+        thousand years.
+ \end{enumerate}
+}
+\refs
+{
+ \begin{enumerate}
+  \item Lieske, J.H., 1979.\ {\it Astr.Astrophys.}\ {\bf 73}, 282;
+        equations 6 \& 7, p283.
+  \item Kaplan, G.H., 1981.\ {\it USNO circular no.\ 163}, pA2.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_PRECES}{Precession}
+{
+ \action{Precession -- either the old ``FK4'' (Bessel-Newcomb, pre~IAU~1976)
+         or new ``FK5'' (Fricke, post~IAU~1976) as required.}
+ \call{CALL sla\_PRECES (SYSTEM, EP0, EP1, RA, DC)}
+}
+\args{GIVEN}
+{
+ \spec{SYSTEM}{C}{precession to be applied: `FK4' or `FK5'} \\
+ \spec{EP0,EP1}{D}{starting and ending epoch} \\
+ \spec{RA,DC}{D}{\radec, mean equator \& equinox of epoch EP0}
+}
+\args{RETURNED}
+{
+ \spec{RA,DC}{D}{\radec, mean equator \& equinox of epoch EP1}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Lowercase characters in SYSTEM are acceptable.
+  \item The epochs are Besselian if SYSTEM=`FK4' and Julian if `FK5'.
+        For example, to precess coordinates in the old system from
+        equinox 1900.0 to 1950.0 the call would be:
+        \begin{quote}
+         {\tt CALL sla\_PRECES ('FK4', 1900D0, 1950D0, RA, DC)}
+        \end{quote}
+  \item This routine will {\bf NOT} correctly convert between the old and
+        the new systems -- for example conversion from B1950 to J2000.
+        For these purposes see sla\_FK425, sla\_FK524, sla\_FK45Z and
+        sla\_FK54Z.
+  \item If an invalid SYSTEM is supplied, values of $-$99D0,$-$99D0 are
+        returned for both RA and DC.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_PRECL}{Precession Matrix (latest)}
+{
+ \action{Form the matrix of precession between two epochs, using the
+         model of Simon {\it et al}.\ (1994), which is suitable for long
+         periods of time.}
+ \call{CALL sla\_PRECL (EP0, EP1, RMATP)}
+}
+\args{GIVEN}
+{
+ \spec{EP0}{D}{beginning epoch} \\
+ \spec{EP1}{D}{ending epoch}
+}
+\args{RETURNED}
+{
+ \spec{RMATP}{D(3,3)}{precession matrix}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The epochs are TDB Julian epochs.
+  \item The matrix is in the sense:
+        \begin{verse}
+         {\bf v}$_{1}$ =  {\bf M}$\cdot${\bf v}$_{0}$
+        \end{verse}
+        where {\bf v}$_{1}$ is the star vector relative to the
+        mean equator and equinox of epoch EP1, {\bf M} is the
+        $3\times3$ matrix RMATP and
+        {\bf v}$_{0}$ is the star vector relative to the
+        mean equator and equinox of epoch EP0.
+  \item The absolute accuracy of the model is limited by the
+        uncertainty in the general precession, about \arcsec{0}{3} per
+        1000~years.  The remainder of the formulation provides a
+        precision of 1~milliarcsecond over the interval from 1000\,AD
+        to 3000\,AD, \arcsec{0}{1} from 1000\,BC to 5000\,AD and
+        \arcseci{1} from 4000\,BC to 8000\,AD.
+ \end{enumerate}
+}
+\aref{Simon, J.L.\ {\it et al}., 1994.\ {\it Astr.Astrophys.}\ {\bf 282},
+      663.}
+%-----------------------------------------------------------------------
+\routine{SLA\_PRENUT}{Precession/Nutation Matrix}
+{
+ \action{Form the matrix of precession and nutation (IAU~1976, FK5).}
+ \call{CALL sla\_PRENUT (EPOCH, DATE, RMATPN)}
+}
+\args{GIVEN}
+{
+ \spec{EPOCH}{D}{Julian Epoch for mean coordinates} \\
+ \spec{DATE}{D}{Modified Julian Date (JD$-$2400000.5)
+                       for true coordinates}
+}
+\args{RETURNED}
+{
+ \spec{RMATPN}{D(3,3)}{combined precession/nutation matrix}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The epoch and date are TDB.
+  \item The matrix is in the sense:
+        \begin{verse}
+         {\bf v}$_{true}$ =  {\bf M}$\cdot${\bf v}$_{mean}$
+        \end{verse}
+        where {\bf v}$_{true}$ is the star vector relative to the
+        true equator and equinox of epoch DATE, {\bf M} is the
+        $3\times3$ matrix RMATPN and
+        {\bf v}$_{mean}$ is the star vector relative to the
+        mean equator and equinox of epoch EPOCH.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_PV2EL}{Orbital Elements from Position/Velocity}
+{
+ \action{Heliocentric osculating elements obtained from instantaneous
+         position and velocity.}
+ \call{CALL sla\_PV2EL (\vtop{
+         \hbox{PV, DATE, PMASS, JFORMR, JFORM, EPOCH, ORBINC,}
+         \hbox{ANODE, PERIH, AORQ, E, AORL, DM, JSTAT)}}}
+}
+\args{GIVEN}
+{
+ \spec{PV}{D(6)}{heliocentric \xyzxyzd, equatorial, J2000} \\
+ \spec{}{}{\hspace{1.5em} (AU, AU/s; Note~1)} \\
+ \spec{DATE}{D}{date (TT Modified Julian Date = JD$-$2400000.5)} \\
+ \spec{PMASS}{D}{mass of the planet (Sun = 1; Note~2)} \\
+ \spec{JFORMR}{I}{requested element set (1-3; Note~3)}
+}
+\args{RETURNED}
+{
+ \spec{JFORM}{I}{element set actually returned (1-3; Note~4)} \\
+ \spec{EPOCH}{D}{epoch of elements ($t_0$ or $T$, TT MJD)} \\
+ \spec{ORBINC}{D}{inclination ($i$, radians)} \\
+ \spec{ANODE}{D}{longitude of the ascending node ($\Omega$, radians)} \\
+ \spec{PERIH}{D}{longitude or argument of perihelion
+                            ($\varpi$ or $\omega$,} \\
+ \spec{}{}{\hspace{1.5em} radians)} \\
+ \spec{AORQ}{D}{mean distance or perihelion distance ($a$ or $q$, AU)} \\
+ \spec{E}{D}{eccentricity ($e$)} \\
+ \spec{AORL}{D}{mean anomaly or longitude
+                               ($M$ or $L$, radians,} \\
+ \spec{}{}{\hspace{1.5em} JFORM=1,2 only)} \\
+ \spec{DM}{D}{daily motion ($n$, radians, JFORM=1 only)} \\
+ \spec{JSTAT}{I}{status:} \\
+ \spec{}{}{\hspace{2.3em}    0 = OK} \\
+ \spec{}{}{\hspace{1.5em} $-$1 = illegal PMASS} \\
+ \spec{}{}{\hspace{1.5em} $-$2 = illegal JFORMR} \\
+ \spec{}{}{\hspace{1.5em} $-$3 = position/velocity out of allowed range}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The PV 6-vector is with respect to the mean equator and equinox of
+        epoch J2000.  The orbital elements produced are with respect to
+        the J2000 ecliptic and mean equinox.
+  \item The mass, PMASS, is important only for the larger planets.  For
+        most purposes ({\it e.g.}~asteroids) use 0D0.  Values less than zero
+        are illegal.
+  \item Three different element-format options are supported, as
+        follows. \\
+
+        JFORM=1, suitable for the major planets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of elements $t_0$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> longitude of perihelion $\varpi$ (radians) \\
+        \> AORQ   \> = \> mean distance $a$ (AU) \\
+        \> E      \> = \> eccentricity $e$ $( 0 \leq e < 1 )$ \\
+        \> AORL   \> = \> mean longitude $L$ (radians) \\
+        \> DM     \> = \> daily motion $n$ (radians)
+        \end{tabbing}
+
+        JFORM=2, suitable for minor planets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of elements $t_0$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> argument of perihelion $\omega$ (radians) \\
+        \> AORQ   \> = \> mean distance $a$ (AU) \\
+        \> E      \> = \> eccentricity $e$ $( 0 \leq e < 1 )$ \\
+        \> AORL   \> = \> mean anomaly $M$ (radians)
+        \end{tabbing}
+
+        JFORM=3, suitable for comets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of perihelion $T$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> argument of perihelion $\omega$ (radians) \\
+        \> AORQ   \> = \> perihelion distance $q$ (AU) \\
+        \> E      \> = \> eccentricity $e$ $( 0 \leq e \leq 10 )$
+        \end{tabbing}
+  \item It may not be possible to generate elements in the form
+        requested through JFORMR.  The caller is notified of the form
+        of elements actually returned by means of the JFORM argument:
+
+        \begin{tabbing}
+        xx \= xxxxxxxxxx \= xxxxxxxxxxx \= \kill
+        \> JFORMR   \> JFORM   \> meaning \\ \\
+        \> ~~~~~1   \> ~~~~~1  \> OK: elements are in the requested format \\
+        \> ~~~~~1   \> ~~~~~2  \> never happens \\
+        \> ~~~~~1   \> ~~~~~3  \> orbit not elliptical \\
+        \> ~~~~~2   \> ~~~~~1  \> never happens \\
+        \> ~~~~~2   \> ~~~~~2  \> OK: elements are in the requested format \\
+        \> ~~~~~2   \> ~~~~~3  \> orbit not elliptical \\
+        \> ~~~~~3   \> ~~~~~1  \> never happens \\
+        \> ~~~~~3   \> ~~~~~2  \> never happens \\
+        \> ~~~~~3   \> ~~~~~3  \> OK: elements are in the requested format
+        \end{tabbing}
+  \item The arguments returned for each value of JFORM ({\it cf}\/ Note~5:
+        JFORM may not be the same as JFORMR) are as follows:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxxxxxx \= xxxxxx \= xxxxxx \= \kill
+        \> JFORM  \> 1        \> 2        \> 3 \\ \\
+        \> EPOCH  \> $t_0$    \> $t_0$    \> $T$ \\
+        \> ORBINC \> $i$      \> $i$      \> $i$ \\
+        \> ANODE  \> $\Omega$ \> $\Omega$ \> $\Omega$ \\
+        \> PERIH  \> $\varpi$ \> $\omega$ \> $\omega$ \\
+        \> AORQ   \> $a$      \> $a$      \> $q$ \\
+        \> E      \> $e$      \> $e$      \> $e$ \\
+        \> AORL   \> $L$      \> $M$      \> - \\
+        \> DM     \> $n$      \> -        \> -
+        \end{tabbing}
+
+        where:
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xxx \= \kill
+        \> $t_0$    \> is the epoch of the elements (MJD, TT) \\
+        \> $T$      \> is the epoch of perihelion (MJD, TT) \\
+        \> $i$      \> is the inclination (radians) \\
+        \> $\Omega$ \> is the longitude of the ascending node (radians) \\
+        \> $\varpi$ \> is the longitude of perihelion (radians) \\
+        \> $\omega$ \> is the argument of perihelion (radians) \\
+        \> $a$      \> is the mean distance (AU) \\
+        \> $q$      \> is the perihelion distance (AU) \\
+        \> $e$      \> is the eccentricity \\
+        \> $L$      \> is the longitude (radians, $0-2\pi$) \\
+        \> $M$      \> is the mean anomaly (radians, $0-2\pi$) \\
+        \> $n$      \> is the daily motion (radians) \\
+        \> - \> means no value is set
+        \end{tabbing}
+  \item At very small inclinations, the longitude of the ascending node
+        ANODE becomes indeterminate and under some circumstances may be
+        set arbitrarily to zero.  Similarly, if the orbit is close to
+        circular, the true anomaly becomes indeterminate and under some
+        circumstances may be set arbitrarily to zero.  In such cases,
+        the other elements are automatically adjusted to compensate,
+        and so the elements remain a valid description of the orbit.
+ \end{enumerate}
+}
+\aref{Sterne, Theodore E., {\it An Introduction to Celestial Mechanics,}\/
+      Interscience Publishers, 1960.}
+%-----------------------------------------------------------------------
+\routine{SLA\_PV2UE}{Position/Velocity to Universal Elements}
+{
+ \action{Construct a universal element set based on an instantaneous
+         position and velocity.}
+ \call{CALL sla\_PV2UE (PV, DATE, PMASS, U, JSTAT)}
+}
+\args{GIVEN}
+{
+ \spec{PV}{D(6)}{heliocentric \xyzxyzd, equatorial, J2000} \\
+ \spec{}{}{\hspace{1.5em} (AU, AU/s; Note~1)} \\
+ \spec{DATE}{D}{date (TT Modified Julian Date = JD$-$2400000.5)} \\
+ \spec{PMASS}{D}{mass of the planet (Sun = 1; Note~2)}
+}
+\args{RETURNED}
+{
+ \spec{U}{D(13)}{universal orbital elements (Note~3)} \\
+ \specel {(1)}     {combined mass ($M+m$)} \\
+ \specel {(2)}     {total energy of the orbit ($\alpha$)} \\
+ \specel {(3)}     {reference (osculating) epoch ($t_0$)} \\
+ \specel {(4-6)}   {position at reference epoch (${\rm \bf r}_0$)} \\
+ \specel {(7-9)}   {velocity at reference epoch (${\rm \bf v}_0$)} \\
+ \specel {(10)}    {heliocentric distance at reference epoch} \\
+ \specel {(11)}    {${\rm \bf r}_0.{\rm \bf v}_0$} \\
+ \specel {(12)}    {date ($t$)} \\
+ \specel {(13)}    {universal eccentric anomaly ($\psi$) of date, approx} \\
+ \spec{JSTAT}{I}{status:} \\
+ \spec{}{}{\hspace{1.95em}      0 = OK} \\
+ \spec{}{}{\hspace{1.2em}    $-$1 = illegal PMASS} \\
+ \spec{}{}{\hspace{1.2em}    $-$2 = too close to Sun} \\
+ \spec{}{}{\hspace{1.2em}    $-$3 = too slow}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The PV 6-vector can be with respect to any chosen inertial frame,
+        and the resulting universal-element set will be with respect to
+        the same frame.  A common choice will be mean equator and ecliptic
+        of epoch J2000.
+  \item The mass, PMASS, is important only for the larger planets.  For
+        most purposes ({\it e.g.}~asteroids) use 0D0.  Values less than zero
+        are illegal.
+  \item The ``universal'' elements are those which define the orbit for the
+        purposes of the method of universal variables (see reference).
+        They consist of the combined mass of the two bodies, an epoch,
+        and the position and velocity vectors (arbitrary reference frame)
+        at that epoch.  The parameter set used here includes also various
+        quantities that can, in fact, be derived from the other
+        information.  This approach is taken to avoiding unnecessary
+        computation and loss of accuracy.  The supplementary quantities
+        are (i)~$\alpha$, which is proportional to the total energy of the
+        orbit, (ii)~the heliocentric distance at epoch,
+        (iii)~the outwards component of the velocity at the given epoch,
+        (iv)~an estimate of $\psi$, the ``universal eccentric anomaly'' at a
+        given date and (v)~that date.
+ \end{enumerate}
+}
+\aref{Everhart, E. \& Pitkin, E.T., Am.~J.~Phys.~51, 712, 1983.}
+%-----------------------------------------------------------------------
+\routine{SLA\_PVOBS}{Observatory Position \& Velocity}
+{
+ \action{Position and velocity of an observing station.}
+ \call{CALL sla\_PVOBS (P, H, STL, PV)}
+}
+\args{GIVEN}
+{
+ \spec{P}{D}{latitude (geodetic, radians)} \\
+ \spec{H}{D}{height above reference spheroid (geodetic, metres)} \\
+ \spec{STL}{D}{local apparent sidereal time (radians)}
+}
+\args{RETURNED}
+{
+ \spec{PV}{D(6)}{\xyzxyzd\ (AU, AU~s$^{-1}$, true equator and equinox
+                                                            of date)}
+}
+\anote{IAU 1976 constants are used.}
+%-----------------------------------------------------------------------
+\routine{SLA\_PXY}{Apply Linear Model}
+{
+ \action{Given arrays of {\it expected}\/ and {\it measured}\,
+         \xy\ coordinates, and a
+         linear model relating them (as produced by sla\_FITXY), compute
+         the array of {\it predicted}\/ coordinates and the RMS residuals.}
+ \call{CALL sla\_PXY (NP,XYE,XYM,COEFFS,XYP,XRMS,YRMS,RRMS)}
+}
+\args{GIVEN}
+{
+ \spec{NP}{I}{number of samples} \\
+ \spec{XYE}{D(2,NP)}{expected \xy\ for each sample} \\
+ \spec{XYM}{D(2,NP)}{measured \xy\ for each sample} \\
+ \spec{COEFFS}{D(6)}{coefficients of model (see below)}
+}
+\args{RETURNED}
+{
+ \spec{XYP}{D(2,NP)}{predicted \xy\ for each sample} \\
+ \spec{XRMS}{D}{RMS in X} \\
+ \spec{YRMS}{D}{RMS in Y} \\
+ \spec{RRMS}{D }{total RMS (vector sum of XRMS and YRMS)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The model is supplied in the array COEFFS.  Naming the
+        six elements of COEFFS $a,b,c,d,e$ \& $f$,
+        the model transforms {\it measured}\/ coordinates
+        $[x_{m},y_{m}\,]$ into {\it predicted}\/ coordinates
+        $[x_{p},y_{p}\,]$ as follows:
+        \begin{verse}
+         $x_{p} = a + bx_{m} + cy_{m}$ \\
+         $y_{p} = d + ex_{m} + fy_{m}$
+        \end{verse}
+  \item The residuals are $(x_{p}-x_{e})$ and $(y_{p}-y_{e})$.
+  \item If NP is less than or equal to zero, no coordinates are
+        transformed, and the RMS residuals are all zero.
+  \item See also sla\_FITXY, sla\_INVF, sla\_XY2XY, sla\_DCMPF
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_RANDOM}{Random Number}
+{
+ \action{Generate pseudo-random real number in the range $0 \leq x < 1$.}
+ \call{R~=~sla\_RANDOM (SEED)}
+}
+\args{GIVEN}
+{
+ \spec{SEED}{R}{an arbitrary real number}
+}
+\args{RETURNED}
+{
+ \spec{SEED}{R}{a new arbitrary value} \\
+ \spec{sla\_RANDOM}{R}{Pseudo-random real number $0 \leq x < 1$.}
+}
+\anote{The implementation is machine-dependent.}
+%-----------------------------------------------------------------------
+\routine{SLA\_RANGE}{Put Angle into Range $\pm\pi$}
+{
+ \action{Normalize an angle into the range $\pm\pi$ (single precision).}
+ \call{R~=~sla\_RANGE (ANGLE)}
+}
+\args{GIVEN}
+{
+ \spec{ANGLE}{R}{angle in radians}
+}
+\args{RETURNED}
+{
+ \spec{sla\_RANGE}{R}{ANGLE expressed in the range $\pm\pi$.}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_RANORM}{Put Angle into Range $0\!-\!2\pi$}
+{
+ \action{Normalize an angle into the range $0\!-\!2\pi$ (single precision).}
+ \call{R~=~sla\_RANORM (ANGLE)}
+}
+\args{GIVEN}
+{
+ \spec{ANGLE}{R}{angle in radians}
+}
+\args{RETURNED}
+{
+ \spec{sla\_RANORM}{R}{ANGLE expressed in the range $0\!-\!2\pi$}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_RCC}{Barycentric Coordinate Time}
+{
+ \call{D~=~sla\_RCC (TDB, UT1, WL, U, V)}
+ \action{The relativistic clock correction TDB$-$TT, the
+         difference between {\it proper time}\,
+         on Earth and {\it coordinate time}\/ in the solar system barycentric
+         space-time frame of reference.  The proper time is TT;  the
+         coordinate time is {\it an implementation}\/ of TDB.}
+}
+\args{GIVEN}
+{
+ \spec{TDB}{D}{coordinate time (MJD: JD$-$2400000.5)} \\
+ \spec{UT1}{D}{universal time (fraction of one day)} \\
+ \spec{WL}{D}{clock longitude (radians west)} \\
+ \spec{U}{D}{clock distance from Earth spin axis (km)} \\
+ \spec{V}{D}{clock distance north of Earth equatorial plane (km)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_RCC}{D}{TDB$-$TT (sec)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item TDB may be considered to
+        be the coordinate time in the solar system barycentre frame of
+        reference, and TT is the proper time given by clocks at mean sea
+        level on the Earth.
+  \item The result has a main (annual) sinusoidal term of amplitude
+        approximately 1.66ms, plus planetary terms up to about
+        20$\mu$s, and lunar and diurnal terms up to 2$\mu$s.  The
+        variation arises from the transverse Doppler effect and the
+        gravitational red-shift as the observer varies in speed and
+        moves through different gravitational potentials.
+  \item The argument TDB is, strictly, the barycentric coordinate time;
+        however, the terrestrial proper time (TT) can in practice be used.
+  \item The geocentric model is that of Fairhead \& Bretagnon (1990),
+        in its full
+        form.  It was supplied by Fairhead (private communication)
+        as a Fortran subroutine.  A number of coding changes were made to
+        this subroutine in order
+        match the calling sequence of previous versions of the present
+        routine, to comply with Starlink programming standards and to
+        avoid compilation problems on certain machines.  On the supported
+        computer types,
+        the numerical results are essentially unaffected by the
+        changes.  The topocentric model is from Moyer (1981) and Murray (1983).
+        During the interval 1950-2050, the absolute accuracy of the
+        geocentric model is better than $\pm3$~nanoseconds
+        relative to direct numerical integrations using the JPL DE200/LE200
+        solar system ephemeris.
+  \item The IAU definition of TDB is that it must differ from TT only by
+        periodic terms.  Though practical, this is an imprecise definition
+        which ignores the existence of very long-period and secular effects
+        in the dynamics of the solar system.  As a consequence, different
+        implementations of TDB will, in general, differ in zero-point and
+        will drift linearly relative to one other.
+ \end{enumerate}
+}
+\refs
+{
+ \begin{enumerate}
+  \item Fairhead, L.\ \& 
+        Bretagnon, P., 1990.\ {\it Astr.Astrophys.}\ {\bf 229}, 240-247.
+  \item Moyer, T.D., 1981.\ {\it Cel.Mech.}\ {\bf 23}, 33.
+  \item Murray, C.A., 1983,\ {\it Vectorial Astrometry}, Adam Hilger.
+ \end{enumerate}
+}
+%------------------------------------------------------------------------------
+\routine{SLA\_RDPLAN}{Apparent \radec\ of Planet}
+{
+ \action{Approximate topocentric apparent \radec\ and angular
+         size of a planet.}
+ \call{CALL sla\_RDPLAN (DATE, NP, ELONG, PHI, RA, DEC, DIAM)}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{MJD of observation (JD$-$2400000.5)} \\
+ \spec{NP}{I}{planet:} \\
+ \spec{}{}{\hspace{1.5em} 1\,=\,Mercury} \\
+ \spec{}{}{\hspace{1.5em} 2\,=\,Venus} \\
+ \spec{}{}{\hspace{1.5em} 3\,=\,Moon} \\
+ \spec{}{}{\hspace{1.5em} 4\,=\,Mars} \\
+ \spec{}{}{\hspace{1.5em} 5\,=\,Jupiter} \\
+ \spec{}{}{\hspace{1.5em} 6\,=\,Saturn} \\
+ \spec{}{}{\hspace{1.5em} 7\,=\,Uranus} \\
+ \spec{}{}{\hspace{1.5em} 8\,=\,Neptune} \\
+ \spec{}{}{\hspace{1.5em} 9\,=\,Pluto} \\
+ \spec{}{}{\hspace{0.44em} else\,=\,Sun} \\
+ \spec{ELONG,PHI}{D}{observer's longitude (east +ve) and latitude
+                     (radians)}
+}
+\args{RETURNED}
+{
+ \spec{RA,DEC}{D}{topocentric apparent \radec\ (radians)} \\
+ \spec{DIAM}{D}{angular diameter (equatorial, radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The date is in a dynamical timescale (TDB, formerly ET)
+        and is in the form of a Modified
+        Julian Date (JD$-$2400000.5).  For all practical purposes, TT can
+        be used instead of TDB, and for many applications UT will do
+        (except for the Moon).
+  \item The longitude and latitude allow correction for geocentric
+        parallax.  This is a major effect for the Moon, but in the
+        context of the limited accuracy of the present routine its
+        effect on planetary positions is small (negligible for the
+        outer planets).  Geocentric positions can be generated by
+        appropriate use of the routines sla\_DMOON and sla\_PLANET.
+  \item The direction accuracy (arcsec, 1000-3000\,AD) is of order:
+        \begin{tabbing}
+         xxxxxxx \= xxxxxxxxxxxxxxxxxx \= \kill
+         \> Sun     \>  \hspace{0.5em}5 \\
+         \> Mercury \>  \hspace{0.5em}2 \\
+         \> Venus   \> 10 \\
+         \> Moon    \> 30 \\
+         \> Mars    \> 50 \\
+         \> Jupiter \> 90 \\
+         \> Saturn  \> 90 \\
+         \> Uranus  \> 90 \\
+         \> Neptune \> 10 \\
+         \> Pluto \> \hspace{0.5em}1~~~(1885-2099\,AD only)
+        \end{tabbing}
+        The angular diameter accuracy is about 0.4\% for the Moon,
+        and 0.01\% or better for the Sun and planets.
+        For more information on accuracy,
+        refer to the routines sla\_PLANET and sla\_DMOON,
+        which the present routine uses.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_REFCO}{Refraction Constants}
+{
+ \action{Determine the constants $a$ and $b$ in the
+         atmospheric refraction model
+         $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$,
+         where $\zeta$ is the {\it observed}\/ zenith distance
+         ({\it i.e.}\ affected by refraction) and $\Delta \zeta$ is
+         what to add to $\zeta$ to give the {\it topocentric}\,
+         ({\it i.e.\ in vacuo}) zenith distance.}
+ \call{CALL sla\_REFCO (HM, TDK, PMB, RH, WL, PHI, TLR, EPS, REFA, REFB)}
+}
+\args{GIVEN}
+{
+ \spec{HM}{D}{height of the observer above sea level (metre)} \\
+ \spec{TDK}{D}{ambient temperature at the observer (degrees K)} \\
+ \spec{PMB}{D}{pressure at the observer (mB)} \\
+ \spec{RH}{D}{relative humidity at the observer (range 0\,--\,1)} \\
+ \spec{WL}{D}{effective wavelength of the source ($\mu{\rm m}$)} \\
+ \spec{PHI}{D}{latitude of the observer (radian, astronomical)} \\
+ \spec{TLR}{D}{temperature lapse rate in the troposphere
+                                     (degrees K per metre)} \\
+ \spec{EPS}{D}{precision required to terminate iteration (radian)}
+}
+\args{RETURNED}
+{
+ \spec{REFA}{D}{$\tan \zeta$ coefficient (radians)} \\
+ \spec{REFB}{D}{$\tan^{3} \zeta$ coefficient (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Suggested values for the TLR and EPS arguments are 0.0065D0 and
+        1D$-$8 respectively.
+  \item The radio refraction is chosen by specifying WL $>100$~$\mu{\rm m}$.
+  \item The routine is a slower but more accurate alternative to the
+        sla\_REFCOQ routine.  The constants it produces give perfect
+        agreement with sla\_REFRO at zenith distances
+        $\tan^{-1} 1$ ($45^\circ$) and $\tan^{-1} 4$ ($\sim 76^\circ$).
+        At other zenith distances, the model achieves:
+        \arcsec{0}{5} accuracy for $\zeta<80^{\circ}$,
+        \arcsec{0}{01} accuracy for $\zeta<60^{\circ}$, and
+        \arcsec{0}{001} accuracy for $\zeta<45^{\circ}$.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_REFCOQ}{Refraction Constants (fast)}
+{
+ \action{Determine the constants $a$ and $b$ in the
+         atmospheric refraction model
+         $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$,
+         where $\zeta$ is the {\it observed}\/ zenith distance
+         ({\it i.e.}\ affected by refraction) and $\Delta \zeta$ is
+         what to add to $\zeta$ to give the {\it topocentric}\,
+         ({\it i.e.\ in vacuo}) zenith distance. (This is a fast
+         alternative to the sla\_REFCO routine -- see notes.)}
+ \call{CALL sla\_REFCOQ (TDK, PMB, RH, WL, REFA, REFB)}
+}
+\args{GIVEN}
+{
+ \spec{TDK}{D}{ambient temperature at the observer (degrees K)} \\
+ \spec{PMB}{D}{pressure at the observer (mB)} \\
+ \spec{RH}{D}{relative humidity at the observer (range 0\,--\,1)} \\
+ \spec{WL}{D}{effective wavelength of the source ($\mu{\rm m}$)}
+}
+\args{RETURNED}
+{
+ \spec{REFA}{D}{$\tan \zeta$ coefficient (radians)} \\
+ \spec{REFB}{D}{$\tan^{3} \zeta$ coefficient (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The radio refraction is chosen by specifying WL $>100$~$\mu{\rm m}$.
+  \item The model is an approximation, for moderate zenith distances,
+        to the predictions of the sla\_REFRO routine.  The approximation
+        is maintained across a range of conditions, and applies to
+        both optical/IR and radio.
+  \item The algorithm is a fast alternative to the sla\_REFCO routine.
+        The latter calls the sla\_REFRO routine itself:  this involves
+        integrations through a model atmosphere, and is costly in
+        processor time.  However, the model which is produced is precisely
+        correct for two zenith distances ($45^\circ$ and $\sim\!76^\circ$)
+        and at other zenith distances is limited in accuracy only by the
+        $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$ formulation
+        itself.  The present routine is not as accurate, though it
+        satisfies most practical requirements.
+  \item The model omits the effects of (i)~height above sea level (apart
+        from the reduced pressure itself), (ii)~latitude ({\it i.e.}\ the
+        flattening of the Earth) and (iii)~variations in tropospheric
+        lapse rate.
+  \item The model has been tested using the following range of conditions:
+        \begin{itemize}
+        \item [$\cdot$] lapse rates 0.0055, 0.0065, 0.0075~degrees K per metre
+        \item [$\cdot$] latitudes $0^\circ$, $25^\circ$, $50^\circ$, $75^\circ$
+        \item [$\cdot$] heights 0, 2500, 5000 metres above sea level
+        \item [$\cdot$] pressures mean for height $-10$\% to $+5$\% in steps of $5$\%
+        \item [$\cdot$] temperatures $-10^\circ$ to $+20^\circ$ with respect to
+              $280^\circ$K at sea level
+        \item [$\cdot$] relative humidity 0, 0.5, 1
+        \item [$\cdot$] wavelength 0.4, 0.6, \ldots\ $2\mu{\rm m}$, + radio
+        \item [$\cdot$] zenith distances $15^\circ$, $45^\circ$, $75^\circ$
+        \end{itemize}
+        For the above conditions, the comparison with sla\_REFRO
+        was as follows:
+
+        \vspace{2ex}
+
+        ~~~~~~~~~~
+        \begin{tabular}{|r|r|r|} \hline
+              & {\it worst} & {\it RMS} \\ \hline
+              optical/IR & 62 & 8 \\
+              radio & 319 & 49 \\ \hline
+              & mas & mas \\ \hline
+        \end{tabular}
+
+        \vspace{3ex}
+
+        For this particular set of conditions:
+        \begin{itemize}
+        \item [$\cdot$] lapse rate $6.5^\circ K km^{-1}$
+        \item [$\cdot$] latitude $50^\circ$
+        \item [$\cdot$] sea level
+        \item [$\cdot$] pressure 1005\,mB
+        \item [$\cdot$] temperature $7^\circ$C
+        \item [$\cdot$] humidity 80\%
+        \item [$\cdot$] wavelength 5740\,\.{A}
+        \end{itemize}
+        the results were as follows:
+
+        \vspace{2ex}
+
+        ~~~~~~~~~~
+        \begin{tabular}{|r|r|r|r|} \hline
+        \multicolumn{1}{|c}{$\zeta$} &
+        \multicolumn{1}{|c}{sla\_REFRO} &
+        \multicolumn{1}{|c}{sla\_REFCOQ} &
+        \multicolumn{1}{|c|}{Saastamoinen} \\ \hline
+        10 &  10.27 &  10.27 &  10.27 \\
+        20 &  21.19 &  21.20 &  21.19 \\
+        30 &  33.61 &  33.61 &  33.60 \\
+        40 &  48.82 &  48.83 &  48.81 \\
+        45 &  58.16 &  58.18 &  58.16 \\
+        50 &  69.28 &  69.30 &  69.27 \\
+        55 &  82.97 &  82.99 &  82.95 \\
+        60 & 100.51 & 100.54 & 100.50 \\
+        65 & 124.23 & 124.26 & 124.20 \\
+        70 & 158.63 & 158.68 & 158.61 \\
+        72 & 177.32 & 177.37 & 177.31 \\
+        74 & 200.35 & 200.38 & 200.32 \\
+        76 & 229.45 & 229.43 & 229.42 \\
+        78 & 267.44 & 267.29 & 267.41 \\
+        80 & 319.13 & 318.55 & 319.10 \\ \hline
+        deg & arcsec & arcsec & arcsec \\ \hline
+        \end{tabular}
+
+        \vspace{3ex}
+
+        The values for Saastamoinen's formula (which includes terms
+        up to $\tan^5$) are taken from Hohenkerk and Sinclair (1985).
+
+        The results from the much slower but more accurate sla\_REFCO
+        routine have not been included in the tabulation as they are
+        identical to those in the sla\_REFRO column to the \arcsec{0}{01}
+        resolution used.
+  \item Outlandish input parameters are silently limited
+        to mathematically safe values.  Zero pressure is permissible,
+        and causes zeroes to be returned.
+  \item The algorithm draws on several sources, as follows:
+        \begin{itemize}
+        \item The formula for the saturation vapour pressure of water as
+              a function of temperature and temperature is taken from
+              expressions A4.5-A4.7 of Gill (1982).
+        \item The formula for the water vapour pressure, given the
+              saturation pressure and the relative humidity is from
+              Crane (1976), expression 2.5.5.
+        \item The refractivity of air is a function of temperature,
+              total pressure, water-vapour pressure and, in the case
+              of optical/IR but not radio, wavelength.  The formulae
+              for the two cases are developed from the Essen and Froome
+              expressions adopted in Resolution 1 of the 12th International
+              Geodesy Association General Assembly (1963).
+        \end{itemize}
+        The above three items are as used in the sla\_REFRO routine.
+        \begin{itemize}
+        \item The formula for $\beta~(=H_0/r_0)$ is
+              an adaption of expression 9 from Stone (1996).  The
+              adaptations, arrived at empirically, consist of (i)~a
+              small adjustment to the coefficient and (ii)~a humidity
+              term for the radio case only.
+        \item The formulae for the refraction constants as a function of
+              $n-1$ and $\beta$ are from Green (1987), expression 4.31.
+        \end{itemize}
+  \end{enumerate}
+}
+\refs
+{
+ \begin{enumerate}
+  \item Crane, R.K., Meeks, M.L.\ (ed), ``Refraction Effects in
+        the Neutral Atmosphere'',
+        {\it Methods of Experimental Physics: Astrophysics 12B,}\/
+        Academic Press, 1976.
+  \item Gill, Adrian E., {\it Atmosphere-Ocean Dynamics,}\/
+        Academic Press, 1982.
+  \item Hohenkerk, C.Y., \& Sinclair, A.T., NAO Technical Note
+        No.~63, 1985.
+  \item International Geodesy Association General Assembly, Bulletin
+        G\'{e}od\'{e}sique {\bf 70} p390, 1963.
+  \item Stone, Ronald C., P.A.S.P.~{\bf 108} 1051-1058, 1996.
+  \item Green, R.M., {\it Spherical Astronomy,}\/ Cambridge
+        University Press, 1987.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_REFRO}{Refraction}
+{
+ \action{Atmospheric refraction, for radio or optical/IR wavelengths.}
+ \call{CALL sla\_REFRO (ZOBS, HM, TDK, PMB, RH, WL, PHI, TLR, EPS, REF)}
+}
+\args{GIVEN}
+{
+ \spec{ZOBS}{D}{observed zenith distance of the source (radians)} \\
+ \spec{HM}{D}{height of the observer above sea level (metre)} \\
+ \spec{TDK}{D}{ambient temperature at the observer (degrees K)} \\
+ \spec{PMB}{D}{pressure at the observer (mB)} \\
+ \spec{RH}{D}{relative humidity at the observer (range 0\,--\,1)} \\
+    \spec{WL}{D}{effective wavelength of the source ($\mu{\rm m}$)} \\
+ \spec{PHI}{D}{latitude of the observer (radian, astronomical)} \\
+ \spec{TLR}{D}{temperature lapse rate in the troposphere
+                                     (degrees K per metre)} \\
+ \spec{EPS}{D}{precision required to terminate iteration (radian)}
+}
+\args{RETURNED}
+{
+ \spec{REF}{D}{refraction: {\it in vacuo}\/ ZD minus observed ZD (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item A suggested value for the TLR argument is 0.0065D0.  The
+        refraction is significantly affected by TLR, and if studies
+        of the local atmosphere have been carried out a better TLR
+        value may be available.
+  \item A suggested value for the EPS argument is 1D$-$8.  The result is
+        usually at least two orders of magnitude more computationally
+        precise than the supplied EPS value.
+  \item The routine computes the refraction for zenith distances up
+        to and a little beyond $90^\circ$ using the method of Hohenkerk
+        \& Sinclair (NAO Technical Notes 59 and 63, subsequently adopted
+        in the {\it Explanatory Supplement to the Astronomical Almanac,}\/
+        1992 -- see section 3.281).
+  \item The code is based on the AREF optical/IR refraction subroutine
+        of C.\,Hohenkerk (HMNAO, September 1984), with extensions to
+        support the radio case.  The modifications to the original HMNAO
+        optical/IR refraction code which affect the results are:
+        \begin{itemize}
+         \item Murray's values for the gas constants have been used
+               ({\it Vectorial Astrometry,}\/ Adam Hilger, 1983).
+         \item A better model for $P_s(T)$ has been adopted (taken from
+               Gill, {\it Atmosphere-Ocean Dynamics,}\/ Academic Press, 1982).
+         \item More accurate expressions for $Pw_o$ have been adopted
+               (again from Gill 1982).
+         \item Provision for radio wavelengths has been added using
+               expressions devised by A.\,T.\,Sinclair, RGO (private
+               communication 1989), based on the Essen \& Froome
+               refractivity formula adopted in Resolution~1 of the
+               12th International Geodesy Association General Assembly
+               (Bulletin G\'{e}od\'{e}sique {\bf 70} p390, 1963).
+        \end{itemize}
+        None of the changes significantly affects the optical/IR results
+        with respect to the algorithm given in the 1992 {\it Explanatory
+        Supplement.}\/  For example, at $70^\circ$ zenith distance the present
+        routine agrees with the ES algorithm to better than \arcsec{0}{05}
+        for any reasonable combination of parameters.  However, the
+        improved water-vapour expressions do make a significant difference
+        in the radio band, at $70^\circ$ zenith distance reaching almost
+        \arcseci{4} for a hot, humid, low-altitude site during a period of
+        low pressure.
+  \item The radio refraction is chosen by specifying WL $>100$~$\mu{\rm m}$.
+        Because the algorithm takes no account of the ionosphere, the
+        accuracy deteriorates at low frequencies, below about 30\,MHz.
+  \item Before use, the value of ZOBS is expressed in the range $\pm\pi$.
+        If this ranged ZOBS is negative, the result REF is computed from its
+        absolute value before being made negative to match.  In addition, if
+        it has an absolute value greater than $93^\circ$, a fixed REF value
+        equal to the result for ZOBS~$=93^\circ$ is returned, appropriately
+        signed.
+  \item As in the original Hohenkerk and Sinclair algorithm, fixed values
+        of the water vapour polytrope exponent, the height of the
+        tropopause, and the height at which refraction is negligible are
+        used.
+  \item The radio refraction has been tested against work done by
+        Iain~Coulson, JACH, (private communication 1995) for the
+        James Clerk Maxwell Telescope, Mauna Kea.  For typical conditions,
+        agreement at the \arcsec{0}{1} level is achieved for moderate ZD,
+        worsening to perhaps \arcsec{0}{5}\,--\,\arcsec{1}{0} at ZD $80^\circ$.
+        At hot and humid sea-level sites the accuracy will not be as good.
+  \item It should be noted that the relative humidity RH is formally
+        defined in terms of ``mixing ratio'' rather than pressures or
+        densities as is often stated.  It is the mass of water per unit
+        mass of dry air divided by that for saturated air at the same
+        temperature and pressure (see Gill 1982).  The familiar
+        $\nu=p_w/p_s$ or $\nu=\rho_w/\rho_s$ expressions can differ from
+        the formal definition by several percent, significant in the
+        radio case.
+  \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_REFV}{Apply Refraction to Vector}
+{
+ \action{Adjust an unrefracted Cartesian vector to include the effect of
+         atmospheric refraction, using the simple
+         $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$ model.}
+ \call{CALL sla\_REFV (VU, REFA, REFB, VR)}
+}
+\args{GIVEN}
+{
+ \spec{VU}{D}{unrefracted position of the source (\azel\ 3-vector)} \\
+ \spec{REFA}{D}{$\tan \zeta$ coefficient (radians)} \\
+ \spec{REFB}{D}{$\tan^{3} \zeta$ coefficient (radians)}
+}
+\args{RETURNED}
+{
+ \spec{VR}{D}{refracted position of the source (\azel\ 3-vector)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item This routine applies the adjustment for refraction in the
+        opposite sense to the usual one -- it takes an unrefracted
+        ({\it in vacuo}\/) position and produces an observed (refracted)
+        position, whereas the
+        $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$
+        model strictly
+        applies to the case where an observed position is to have the
+        refraction removed.  The unrefracted to refracted case is
+        harder, and requires an inverted form of the text-book
+        refraction models;  the algorithm used here is equivalent to
+        one iteration of the Newton-Raphson method applied to the
+        above formula.
+  \item Though optimized for speed rather than precision, the present
+        routine achieves consistency with the refracted-to-unrefracted
+        $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$
+        model at better than 1~microarcsecond within
+        $30^\circ$ of the zenith and remains within 1~milliarcsecond to
+        $\zeta=70^\circ$.  The inherent accuracy of the model is, of
+        course, far worse than this -- see the documentation for sla\_REFCO
+        for more information.
+  \item At low elevations (below about $3^\circ$) the refraction
+        correction is held back to prevent arithmetic problems and
+        wildly wrong results.  Over a wide range of observer heights
+        and corresponding temperatures and pressures, the following
+        levels of accuracy are achieved, relative to numerical
+        integration through a model atmosphere:
+
+        \begin{center}
+        \begin{tabular}{ccl}
+              $\zeta_{obs}$ & {\it error} \\ \\
+              $80^\circ$ & \arcsec{0}{4}  \\
+              $81^\circ$ & \arcsec{0}{8}  \\
+              $82^\circ$ & \arcsec{1}{6}  \\
+              $83^\circ$ & \arcseci{3}    \\
+              $84^\circ$ & \arcseci{7}    \\
+              $85^\circ$ & \arcseci{17}   \\
+              $86^\circ$ & \arcseci{45}   \\
+              $87^\circ$ & \arcseci{150}  \\
+              $88^\circ$ & \arcseci{340}  \\
+              $89^\circ$ & \arcseci{620}  \\
+              $90^\circ$ & \arcseci{1100} \\
+              $91^\circ$ & \arcseci{1900} & $<$ high-altitude \\
+              $92^\circ$ & \arcseci{3200} & $<$ sites only \\
+        \end{tabular}
+        \end{center}
+  \item See also the routine sla\_REFZ, which performs the adjustment to
+        the zenith distance rather than in \xyz .
+        The present routine is faster than sla\_REFZ and,
+        except very low down,
+        is equally accurate for all practical purposes.  However, beyond
+        about $\zeta=84^\circ$ sla\_REFZ should be used, and for the utmost
+        accuracy iterative use of sla\_REFRO should be considered.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_REFZ}{Apply Refraction to ZD}
+{
+ \action{Adjust an unrefracted zenith distance to include the effect of
+         atmospheric refraction, using the simple
+         $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$ model.}
+ \call{CALL sla\_REFZ (ZU, REFA, REFB, ZR)}
+}
+\args{GIVEN}
+{
+ \spec{ZU}{D}{unrefracted zenith distance of the source (radians)} \\
+ \spec{REFA}{D}{$\tan \zeta$ coefficient (radians)} \\
+ \spec{REFB}{D}{$\tan^{3} \zeta$ coefficient (radians)}
+}
+\args{RETURNED}
+{
+ \spec{ZR}{D}{refracted zenith distance (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item This routine applies the adjustment for refraction in the
+        opposite sense to the usual one -- it takes an unrefracted
+        ({\it in vacuo}\/) position and produces an observed (refracted)
+        position, whereas the
+        $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$
+        model strictly
+        applies to the case where an observed position is to have the
+        refraction removed.  The unrefracted to refracted case is
+        harder, and requires an inverted form of the text-book
+        refraction models;  the formula used here is based on the
+        Newton-Raphson method.  For the utmost numerical consistency
+        with the refracted to unrefracted model, two iterations are
+        carried out, achieving agreement at the $10^{-11}$~arcsecond level
+        for $\zeta=80^\circ$.  The inherent accuracy of the model
+        is, of course, far worse than this -- see the documentation for
+        sla\_REFCO for more information.
+  \item At $\zeta=83^\circ$, the rapidly-worsening
+        $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$
+        model is abandoned and an empirical formula takes over:
+
+          \[\Delta \zeta = F \left(
+  \frac{0^\circ\hspace{-0.37em}.\hspace{0.02em}55445
+                - 0^\circ\hspace{-0.37em}.\hspace{0.02em}01133 E
+                          + 0^\circ\hspace{-0.37em}.\hspace{0.02em}00202 E^2}
+             {1 + 0.28385 E +0.02390 E^2} \right) \]
+        where $E=90^\circ-\zeta_{true}$
+        and $F$ is a factor chosen to meet the
+        $\Delta \zeta = a \tan \zeta + b \tan^{3} \zeta$
+        formula at $\zeta=83^\circ$.  Over a
+        wide range of observer heights and corresponding temperatures and
+        pressures, the following levels of accuracy are achieved,
+        relative to numerical integration through a model atmosphere:
+
+        \begin{center}
+        \begin{tabular}{ccl}
+              $\zeta_{obs}$ & {\it error} \\ \\
+              $80^\circ$ & \arcsec{0}{4}  \\
+              $81^\circ$ & \arcsec{0}{8}  \\
+              $82^\circ$ & \arcsec{1}{5}  \\
+              $83^\circ$ & \arcsec{3}{2}  \\
+              $84^\circ$ & \arcsec{4}{9}  \\
+              $85^\circ$ & \arcsec{5}{8}  \\
+              $86^\circ$ & \arcsec{6}{1}  \\
+              $87^\circ$ & \arcsec{7}{1}  \\
+              $88^\circ$ & \arcseci{11}   \\
+              $89^\circ$ & \arcseci{21}   \\
+              $90^\circ$ & \arcseci{43}   \\
+              $91^\circ$ & \arcseci{92}  & $<$ high-altitude \\
+              $92^\circ$ & \arcseci{220} & $<$ sites only \\
+        \end{tabular}
+        \end{center}
+  \item See also the routine sla\_REFV, which performs the adjustment in
+        \xyz , and with the emphasis on speed rather than numerical accuracy.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_RVEROT}{RV Corrn to Earth Centre}
+{
+ \action{Velocity component in a given direction due to Earth rotation.}
+ \call{R~=~sla\_RVEROT (PHI, RA, DA, ST)}
+}
+\args{GIVEN}
+{
+ \spec{PHI}{R}{geodetic latitude of observing station (radians)} \\
+ \spec{RA,DA}{R}{apparent \radec\ (radians)} \\
+ \spec{ST}{R}{local apparent sidereal time (radians)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_RVEROT}{R}{Component of Earth rotation in
+                       direction RA,DA (km~s$^{-1}$)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Sign convention: the result is positive when the observatory
+        is receding from the given point on the sky.
+  \item Accuracy: the simple algorithm used assumes a spherical Earth and
+        an observing station at sea level;  for actual observing
+        sites, the error is unlikely to be greater than 0.0005~km~s$^{-1}$.
+        For applications requiring greater precision, use the routine
+        sla\_PVOBS.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_RVGALC}{RV Corrn to Galactic Centre}
+{
+ \action{Velocity component in a given direction due to the rotation
+         of the Galaxy.}
+ \call{R~=~sla\_RVGALC (R2000, D2000)}
+}
+\args{GIVEN}
+{
+ \spec{R2000,D2000}{R}{J2000.0 mean \radec\ (radians)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_RVGALC}{R}{Component of dynamical LSR motion in direction
+                       R2000,D2000 (km~s$^{-1}$)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Sign convention: the result is positive when the LSR
+        is receding from the given point on the sky.
+  \item The Local Standard of Rest used here is a point in the
+        vicinity of the Sun which is in a circular orbit around
+        the Galactic centre.  Sometimes called the {\it dynamical}\/ LSR,
+        it is not to be confused with a {\it kinematical}\/ LSR, which
+        is the mean standard of rest of star catalogues or stellar
+        populations.
+  \item The dynamical LSR velocity due to Galactic rotation is assumed to
+        be 220~km~s$^{-1}$ towards $l^{I\!I}=90^{\circ}$,
+                                   $b^{I\!I}=0$.
+ \end{enumerate}
+}
+\aref{Kerr \& Lynden-Bell (1986), MNRAS, 221, p1023.}
+%-----------------------------------------------------------------------
+\routine{SLA\_RVLG}{RV Corrn to Local Group}
+{
+ \action{Velocity component in a given direction due to the combination
+         of the rotation of the Galaxy and the motion of the Galaxy
+         relative to the mean motion of the local group.}
+ \call{R~=~sla\_RVLG (R2000, D2000)}
+}
+\args{GIVEN}
+{
+ \spec{R2000,D2000}{R}{J2000.0 mean \radec\ (radians)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_RVLG}{R}{Component of {\bf solar} ({\it n.b.})
+                     motion in direction R2000,D2000 (km~s$^{-1}$)}
+}
+\anote{Sign convention: the result is positive when
+       the Sun is receding from the given point on the sky.}
+\aref{{\it IAU Trans.}\ 1976.\ {\bf 16B}, p201.}
+%-----------------------------------------------------------------------
+\routine{SLA\_RVLSRD}{RV Corrn to Dynamical LSR}
+{
+ \action{Velocity component in a given direction due to the Sun's
+         motion with respect to the ``dynamical'' Local Standard of Rest.}
+ \call{R~=~sla\_RVLSRD (R2000, D2000)}
+}
+\args{GIVEN}
+{
+ \spec{R2000,D2000}{R}{J2000.0 mean \radec\ (radians)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_RVLSRD}{R}{Component of {\it peculiar}\/ solar motion
+                      in direction R2000,D2000 (km~s$^{-1}$)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Sign convention: the result is positive when
+        the Sun is receding from the given point on the sky.
+  \item The Local Standard of Rest used here is the {\it dynamical}\/ LSR,
+        a point in the vicinity of the Sun which is in a circular
+        orbit around the Galactic centre.  The Sun's motion with
+        respect to the dynamical LSR is called the {\it peculiar}\/ solar
+        motion.
+  \item There is another type of LSR, called a {\it kinematical}\/ LSR.  A
+        kinematical LSR is the mean standard of rest of specified star
+        catalogues or stellar populations, and several slightly
+        different kinematical LSRs are in use.  The Sun's motion with
+        respect to an agreed kinematical LSR is known as the
+        {\it standard}\/ solar motion.
+        The dynamical LSR is seldom used by observational astronomers,
+        who conventionally use a kinematical LSR such as the one implemented
+        in the routine sla\_RVLSRK.
+  \item The peculiar solar motion is from Delhaye (1965), in {\it Stars
+        and Stellar Systems}, vol~5, p73:  in Galactic Cartesian
+        coordinates (+9,+12,+7)~km~s$^{-1}$.
+        This corresponds to about 16.6~km~s$^{-1}$
+        towards Galactic coordinates $l^{I\!I}=53^{\circ},b^{I\!I}=+25^{\circ}$.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_RVLSRK}{RV Corrn to Kinematical LSR}
+{
+ \action{Velocity component in a given direction due to the Sun's
+         motion with respect to a kinematical Local Standard of Rest.}
+ \call{R~=~sla\_RVLSRK (R2000, D2000)}
+}
+\args{GIVEN}
+{
+ \spec{R2000,D2000}{R}{J2000.0 mean \radec\ (radians)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_RVLSRK}{R}{Component of {\it standard}\/ solar motion
+                      in direction R2000,D2000 (km~s$^{-1}$)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item Sign convention: the result is positive when
+        the Sun is receding from the given point on the sky.
+  \item The Local Standard of Rest used here is one of several
+        {\it kinematical}\/ LSRs in common use.  A kinematical LSR is the
+        mean standard of rest of specified star catalogues or stellar
+        populations.  The Sun's motion with respect to a kinematical
+        LSR is known as the {\it standard}\/ solar motion.
+  \item There is another sort of LSR, seldom used by observational
+        astronomers, called the {\it dynamical}\/ LSR.  This is a
+        point in the vicinity of the Sun which is in a circular orbit
+        around the Galactic centre.  The Sun's motion with respect to
+        the dynamical LSR is called the {\it peculiar}\/ solar motion.  To
+        obtain a radial velocity correction with respect to the
+        dynamical LSR use the routine sla\_RVLSRD.
+  \item The adopted standard solar motion is 20~km~s$^{-1}$
+        towards $\alpha=18^{\rm h},\delta=+30^{\circ}$ (1900).
+ \end{enumerate}
+}
+\refs
+{
+ \begin{enumerate}
+  \item Delhaye (1965), in {\it Stars and Stellar Systems}, vol~5, p73.
+  \item {\it Methods of Experimental Physics}\/ (ed Meeks), vol~12,
+        part~C, sec~6.1.5.2, p281.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_S2TP}{Spherical to Tangent Plane}
+{
+ \action{Projection of spherical coordinates onto the tangent plane
+         (single precision).}
+ \call{CALL sla\_S2TP (RA, DEC, RAZ, DECZ, XI, ETA, J)}
+}
+\args{GIVEN}
+{
+ \spec{RA,DEC}{R}{spherical coordinates of star (radians)} \\
+ \spec{RAZ,DECZ}{R}{spherical coordinates of tangent point (radians)}
+}
+\args{RETURNED}
+{
+ \spec{XI,ETA}{R}{tangent plane coordinates (radians)} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} 0 = OK, star on tangent plane} \\
+ \spec{}{}{\hspace{1.5em} 1 = error, star too far from axis} \\
+ \spec{}{}{\hspace{1.5em} 2 = error, antistar on tangent plane} \\
+ \spec{}{}{\hspace{1.5em} 3 = error, antistar too far from axis}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The projection is called the {\it gnomonic}\/ projection;  the
+        Cartesian coordinates \xieta\ are called 
+        {\it standard coordinates.}\/  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, {\it i.e.}\ radians near the origin.
+  \item When working in \xyz\ rather than spherical coordinates, the
+        equivalent Cartesian routine sla\_V2TP is available.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_SEP}{Angle Between 2 Points on Sphere}
+{
+ \action{Angle between two points on a sphere (single precision).}
+ \call{R~=~sla\_SEP (A1, B1, A2, B2)}
+}
+\args{GIVEN}
+{
+ \spec{A1,B1}{R}{spherical coordinates of one point (radians)} \\
+ \spec{A2,B2}{R}{spherical coordinates of the other point (radians)}
+}
+\args{RETURNED}
+{
+ \spec{sla\_SEP}{R}{angle between [A1,B1] and [A2,B2] in radians}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The spherical coordinates are right ascension and declination,
+  longitude and latitude, {\it etc.}\ in radians.
+  \item The result is always positive.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_SMAT}{Solve Simultaneous Equations}
+{
+ \action{Matrix inversion and solution of simultaneous equations
+         (single precision).}
+ \call{CALL sla\_SMAT (N, A, Y, D, JF, IW)}
+}
+\args{GIVEN}
+{
+ \spec{N}{I}{number of unknowns} \\
+ \spec{A}{R(N,N)}{matrix} \\
+ \spec{Y}{R(N)}{vector}
+}
+\args{RETURNED}
+{
+ \spec{A}{R(N,N)}{matrix inverse} \\
+ \spec{Y}{R(N)}{solution} \\
+ \spec{D}{R}{determinant} \\
+ \spec{JF}{I}{singularity flag: 0=OK} \\
+ \spec{IW}{I(N)}{workspace}
+}
+\notes
+{
+ \begin{enumerate}
+  \item For the set of $n$ simultaneous linear equations in $n$ unknowns:
+        \begin{verse}
+         {\bf A}$\cdot${\bf y} = {\bf x}
+        \end{verse}
+        where:
+        \begin{itemize}
+         \item {\bf A} is a non-singular $n \times n$ matrix,
+         \item {\bf y} is the vector of $n$ unknowns, and
+         \item {\bf x} is the known vector,
+        \end{itemize}
+        sla\_SMAT computes:
+        \begin{itemize}
+         \item the inverse of matrix {\bf A},
+         \item the determinant of matrix {\bf A}, and
+         \item the vector of $n$ unknowns {\bf y}.
+        \end{itemize}
+        Argument N is the order $n$, A (given) is the matrix {\bf A},
+        Y (given) is the vector {\bf x} and Y (returned)
+        is the vector {\bf y}.
+        The argument A (returned) is the inverse matrix {\bf A}$^{-1}$,
+        and D is {\it det}\/({\bf A}).
+  \item JF is the singularity flag.  If the matrix is non-singular,
+        JF=0 is returned.  If the matrix is singular, JF=$-$1
+        and D=0.0 are returned.  In the latter case, the contents
+        of array A on return are undefined.
+  \item The algorithm is Gaussian elimination with partial pivoting.
+        This method is very fast;  some much slower algorithms can give
+        better accuracy, but only by a small factor.
+  \item This routine replaces the obsolete sla\_SMATRX.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_SUBET}{Remove E-terms}
+{
+ \action{Remove the E-terms (elliptic component of annual aberration)
+         from a pre IAU~1976 catalogue \radec\ to give a mean place.}
+ \call{CALL sla\_SUBET (RC, DC, EQ, RM, DM)}
+}
+\args{GIVEN}
+{
+ \spec{RC,DC}{D}{\radec\ with E-terms included (radians)} \\
+ \spec{EQ}{D}{Besselian epoch of mean equator and equinox}
+}
+\args{RETURNED}
+{
+ \spec{RM,DM}{D}{\radec\ without E-terms (radians)}
+}
+\anote{Most star positions from pre-1984 optical catalogues (or
+       obtained by astrometry with respect to such stars) have the
+       E-terms built-in.  This routine converts such a position to a
+       formal mean place (allowing, for example, comparison with a
+       pulsar timing position).}
+\aref{{\it Explanatory Supplement to the Astronomical Ephemeris},
+      section 2D, page 48.}
+%-----------------------------------------------------------------------
+\routine{SLA\_SUPGAL}{Supergalactic to Galactic}
+{
+ \action{Transformation from de Vaucouleurs supergalactic coordinates
+         to IAU 1958 galactic coordinates.}
+ \call{CALL sla\_GALSUP (DL, DB, DSL, DSB)}
+}
+\args{GIVEN}
+{
+ \spec{DSL,DSB}{D}{supergalactic longitude and latitude (radians)}
+}
+\args{RETURNED}
+{
+ \spec{DL,DB}{D}{galactic longitude and latitude \gal\ (radians)}
+}
+\refs
+{
+ \begin{enumerate}
+  \item de Vaucouleurs, de Vaucouleurs, \& Corwin, {\it Second Reference
+    Catalogue of Bright Galaxies}, U.Texas, p8.
+  \item Systems \& Applied Sciences Corp., documentation for the
+        machine-readable version of the above catalogue,
+        Contract NAS 5-26490.
+ \end{enumerate}
+ (These two references give different values for the galactic
+ longitude of the supergalactic origin.  Both are wrong;  the
+ correct value is $l^{I\!I}=137.37$.)
+}
+%------------------------------------------------------------------------------
+\routine{SLA\_SVD}{Singular Value Decomposition}
+{
+ \action{Singular value decomposition.
+         This routine expresses a given matrix {\bf A} as the product of
+         three matrices {\bf U}, {\bf W}, {\bf V}$^{T}$:
+         \begin{tabbing}
+         XXXXXX \= \kill
+         \> {\bf A} = {\bf U} $\cdot$ {\bf W} $\cdot$ {\bf V}$^{T}$
+         \end{tabbing}
+         where:
+         \begin{tabbing}
+         XXXXXX \= XXXX \= \kill
+         \> {\bf A} \> is any $m$ (rows) $\times n$ (columns) matrix,
+                       where $m \geq n$ \\
+         \> {\bf U} \> is an $m \times n$ column-orthogonal matrix \\
+         \> {\bf W} \> is an $n \times n$ diagonal matrix with
+                       $w_{ii} \geq 0$ \\
+         \> {\bf V}$^{T}$ \> is the transpose of an $n \times n$
+                             orthogonal matrix
+\end{tabbing}
+}
+ \call{CALL sla\_SVD (M, N, MP, NP, A, W, V, WORK, JSTAT)}
+}
+\args{GIVEN}
+{
+ \spec{M,N}{I}{$m$, $n$, the numbers of rows and columns in matrix {\bf A}} \\
+ \spec{MP,NP}{I}{physical dimensions of array containing matrix {\bf A}} \\
+ \spec{A}{D(MP,NP)}{array containing $m \times n$ matrix {\bf A}}
+}
+\args{RETURNED}
+{
+ \spec{A}{D(MP,NP)}{array containing $m \times n$ column-orthogonal
+                    matrix {\bf U}} \\
+ \spec{W}{D(N)}{$n \times n$ diagonal matrix {\bf W}
+               (diagonal elements only)} \\
+ \spec{V}{D(NP,NP)}{array containing $n \times n$ orthogonal
+                    matrix {\bf V} ({\it n.b.}\ not {\bf V}$^{T}$)} \\
+ \spec{WORK}{D(N)}{workspace} \\
+ \spec{JSTAT}{I}{0~=~OK, $-$1~=~array A wrong shape, $>$0~=~index of W
+                 for which convergence failed (see note~3, below)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item M and N are the {\it logical}\/ dimensions of the
+        matrices and vectors concerned, which can be located in
+        arrays of larger {\it physical}\/ dimensions, given by MP and NP.
+  \item V contains matrix V, not the transpose of matrix V.
+  \item If the status JSTAT is greater than zero, this need not
+        necessarily be treated as a failure.  It means that, due to
+        chance properties of the matrix A, the QR transformation
+        phase of the routine did not fully converge in a predefined
+        number of iterations, something that very seldom occurs.
+        When this condition does arise, it is possible that the
+        elements of the diagonal matrix W have not been correctly
+        found.  However, in practice the results are likely to
+        be trustworthy.  Applications should report the condition
+        as a warning, but then proceed normally.
+ \end{enumerate}
+}
+\refs{The algorithm is an adaptation of the routine SVD in the {\it EISPACK}\,
+      library (Garbow~{\it et~al.}\ 1977, {\it EISPACK Guide Extension},
+      Springer Verlag), which is a FORTRAN~66 implementation of the Algol
+      routine SVD of Wilkinson \& Reinsch 1971 ({\it Handbook for Automatic
+      Computation}, vol~2, ed Bauer~{\it et~al.}, Springer Verlag).  These
+      references give full details of the algorithm used here.
+      A good account of the use of SVD in least squares problems is given
+      in {\it Numerical Recipes}\/ (Press~{\it et~al.}\ 1987, Cambridge
+      University Press), which includes another variant of the EISPACK code.}
+%-----------------------------------------------------------------------
+\routine{SLA\_SVDCOV}{Covariance Matrix from SVD}
+{
+ \action{From the {\bf W} and {\bf V} matrices from the SVD
+         factorization of a matrix
+         (as obtained from the sla\_SVD routine), obtain
+         the covariance matrix.}
+ \call{CALL sla\_SVDCOV (N, NP, NC, W, V, WORK, CVM)}
+}
+\args{GIVEN}
+{
+ \spec{N}{I}{$n$, the number of rows and columns in
+             matrices {\bf W} and {\bf V}} \\
+ \spec{NP}{I}{first dimension of array containing $n \times n$
+              matrix {\bf V}} \\
+ \spec{NC}{I}{first dimension of array CVM} \\
+ \spec{W}{D(N)}{$n \times n$ diagonal matrix {\bf W}
+                (diagonal elements only)} \\
+ \spec{V}{D(NP,NP)}{array containing $n \times n$ orthogonal matrix {\bf V}}
+}
+\args{RETURNED}
+{
+ \spec{WORK}{D(N)}{workspace} \\
+ \spec{CVM}{D(NC,NC)}{array to receive covariance matrix}
+}
+\aref{{\it Numerical Recipes}, section 14.3.}
+%-----------------------------------------------------------------------
+\routine{SLA\_SVDSOL}{Solution Vector from SVD}
+{
+ \action{From a given vector and the SVD of a matrix (as obtained from
+         the sla\_SVD routine), obtain the solution vector.
+         This routine solves the equation:
+         \begin{tabbing}
+         XXXXXX \= \kill
+         \> {\bf A} $\cdot$ {\bf x} = {\bf b}
+         \end{tabbing}
+         where:
+         \begin{tabbing}
+         XXXXXX \= XXXX \= \kill
+         \> {\bf A} \> is a given $m$ (rows) $\times n$ (columns)
+                       matrix, where $m \geq n$ \\
+         \> {\bf x} \> is the $n$-vector we wish to find, and \\
+         \> {\bf b} \> is a given $m$-vector
+         \end{tabbing}
+         by means of the {\it Singular Value Decomposition}\/ method (SVD).}
+ \call{CALL sla\_SVDSOL (M, N, MP, NP, B, U, W, V, WORK, X)}
+}
+\args{GIVEN}
+{
+ \spec{M,N}{I}{$m$, $n$, the numbers of rows and columns in matrix {\bf A}} \\
+ \spec{MP,NP}{I}{physical dimensions of array containing matrix {\bf A}} \\
+ \spec{B}{D(M)}{known vector {\bf b}} \\
+ \spec{U}{D(MP,NP)}{array containing $m \times n$ matrix {\bf U}} \\
+ \spec{W}{D(N)}{$n \times n$ diagonal matrix {\bf W}
+                (diagonal elements only)} \\
+ \spec{V}{D(NP,NP)}{array containing $n \times n$ orthogonal matrix {\bf V}}
+}
+\args{RETURNED}
+{
+ \spec{WORK}{D(N)}{workspace} \\
+ \spec{X}{D(N)}{unknown vector {\bf x}}
+}
+\notes
+{
+ \begin{enumerate}
+  \item In the Singular Value Decomposition method (SVD),
+        the matrix {\bf A} is first factorized (for example by
+        the routine sla\_SVD) into the following components:
+        \begin{tabbing}
+        XXXXXX \= \kill
+        \> {\bf A} = {\bf U} $\cdot$ {\bf W} $\cdot$ {\bf V}$^{T}$
+        \end{tabbing}
+        where:
+        \begin{tabbing}
+        XXXXXX \= XXXX \= \kill
+        \> {\bf A} \> is any $m$ (rows) $\times n$ (columns) matrix,
+                      where $m > n$ \\
+        \> {\bf U} \> is an $m \times n$ column-orthogonal matrix \\
+        \> {\bf W} \> is an $n \times n$ diagonal matrix with
+                      $w_{ii} \geq 0$ \\
+        \> {\bf V}$^{T}$ \> is the transpose of an $n \times n$
+                            orthogonal matrix
+        \end{tabbing}
+        Note that $m$ and $n$ are the {\it logical}\/ dimensions of the
+        matrices and vectors concerned, which can be located in
+        arrays of larger {\it physical}\/ dimensions MP and NP.
+        The solution is then found from the expression:
+        \begin{tabbing}
+        XXXXXX \= \kill
+        \> {\bf x} = {\bf V} $\cdot~[diag(1/${\bf W}$_{j})]
+           \cdot (${\bf U}$^{T} \cdot${\bf b})
+        \end{tabbing}
+  \item If matrix {\bf A} is square, and if the diagonal matrix {\bf W} is not
+        altered, the method is equivalent to conventional solution
+        of simultaneous equations.
+  \item If $m > n$, the result is a least-squares fit.
+  \item If the solution is poorly determined, this shows up in the
+        SVD factorization as very small or zero {\bf W}$_{j}$ values.  Where
+        a {\bf W}$_{j}$ value is small but non-zero it can be set to zero to
+        avoid ill effects.  The present routine detects such zero
+        {\bf W}$_{j}$ values and produces a sensible solution, with highly
+        correlated terms kept under control rather than being allowed
+        to elope to infinity, and with meaningful values for the
+       other terms.
+ \end{enumerate}
+}
+\aref{{\it Numerical Recipes}, section 2.9.}
+%-----------------------------------------------------------------------
+\routine{SLA\_TP2S}{Tangent Plane to Spherical}
+{
+ \action{Transform tangent plane coordinates into spherical
+         coordinates (single precision)}
+ \call{CALL sla\_TP2S (XI, ETA, RAZ, DECZ, RA, DEC)}
+}
+\args{GIVEN}
+{
+ \spec{XI,ETA}{R}{tangent plane rectangular coordinates (radians)} \\
+ \spec{RAZ,DECZ}{R}{spherical coordinates of tangent point (radians)}
+}
+\args{RETURNED}
+{
+ \spec{RA,DEC}{R}{spherical coordinates (radians)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The projection is called the {\it gnomonic}\/ projection;  the
+        Cartesian coordinates \xieta\ are called 
+        {\it standard coordinates.}\/  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, {\it i.e.}\ radians near the origin.
+  \item When working in \xyz\ rather than spherical coordinates, the
+        equivalent Cartesian routine sla\_TP2V is available.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_TP2V}{Tangent Plane to Direction Cosines}
+{
+ \action{Given the tangent-plane coordinates of a star and the direction
+         cosines of the tangent point, determine the direction cosines
+         of the star
+         (single precision).}
+ \call{CALL sla\_TP2V (XI, ETA, V0, V)}
+}
+\args{GIVEN}
+{
+ \spec{XI,ETA}{R}{tangent plane coordinates of star (radians)} \\
+ \spec{V0}{R(3)}{direction cosines of tangent point}
+}
+\args{RETURNED}
+{
+ \spec{V}{R(3)}{direction cosines of star}
+}
+\notes
+{
+ \begin{enumerate}
+  \item If vector V0 is not of unit length, the returned vector V will
+        be wrong.
+  \item If vector V0 points at a pole, the returned vector V will be
+        based on the arbitrary assumption that $\alpha=0$ at
+        the tangent point.
+  \item The projection is called the {\it gnomonic}\/ projection;  the
+        Cartesian coordinates \xieta\ are called 
+        {\it standard coordinates.}\/  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, {\it i.e.}\ radians near the origin.
+  \item This routine is the Cartesian equivalent of the routine sla\_TP2S.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_TPS2C}{Plate centre from $\xi,\eta$ and $\alpha,\delta$}
+{
+ \action{From the tangent plane coordinates of a star of known \radec,
+        determine the \radec\ of the tangent point (single precision)}
+ \call{CALL sla\_TPS2C (XI, ETA, RA, DEC, RAZ1, DECZ1, RAZ2, DECZ2, N)}
+}
+\args{GIVEN}
+{
+ \spec{XI,ETA}{R}{tangent plane rectangular coordinates (radians)} \\
+ \spec{RA,DEC}{R}{spherical coordinates (radians)}
+}
+\args{RETURNED}
+{
+ \spec{RAZ1,DECZ1}{R}{spherical coordinates of tangent point,
+                      solution 1} \\
+ \spec{RAZ2,DECZ2}{R}{spherical coordinates of tangent point,
+                      solution 2} \\
+ \spec{N}{I}{number of solutions:} \\
+ \spec{}{}{\hspace{1em} 0 = no solutions returned  (note 2)} \\
+ \spec{}{}{\hspace{1em} 1 = only the first solution is useful (note 3)} \\
+ \spec{}{}{\hspace{1em} 2 = there are two useful solutions (note 3)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The RAZ1 and RAZ2 values returned are in the range $0\!-\!2\pi$.
+  \item Cases where there is no solution can only arise near the poles.
+        For example, it is clearly impossible for a star at the pole
+        itself to have a non-zero $\xi$ value, and hence it is
+        meaningless to ask where the tangent point would have to be
+        to bring about this combination of $\xi$ and $\delta$.
+  \item Also near the poles, cases can arise where there are two useful
+        solutions.  The argument N indicates whether the second of the
+        two solutions returned is useful.  N\,=\,1
+        indicates only one useful solution, the usual case;  under
+        these circumstances, the second solution corresponds to the
+        ``over-the-pole'' case, and this is reflected in the values
+        of RAZ2 and DECZ2 which are returned.
+  \item The DECZ1 and DECZ2 values returned are in the range $\pm\pi$,
+        but in the ordinary, non-pole-crossing, case, the range is
+        $\pm\pi/2$.
+  \item RA, DEC, RAZ1, DECZ1, RAZ2, DECZ2 are all in radians.
+  \item The projection is called the {\it gnomonic}\/ projection;  the
+        Cartesian coordinates \xieta\ are called 
+        {\it standard coordinates.}\/  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, {\it i.e.}\ radians near the origin.
+  \item When working in \xyz\ rather than spherical coordinates, the
+        equivalent Cartesian routine sla\_TPV2C is available.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_TPV2C}{Plate centre from $\xi,\eta$ and $x,y,z$}
+{
+ \action{From the tangent plane coordinates of a star of known
+         direction cosines, determine the direction cosines
+         of the tangent point (single precision)}
+ \call{CALL sla\_TPV2C (XI, ETA, V, V01, V02, N)}
+}
+\args{GIVEN}
+{
+ \spec{XI,ETA}{R}{tangent plane coordinates of star (radians)} \\
+ \spec{V}{R(3)}{direction cosines of star}
+}
+\args{RETURNED}
+{
+ \spec{V01}{R(3)}{direction cosines of tangent point, solution 1} \\
+ \spec{V01}{R(3)}{direction cosines of tangent point, solution 2} \\
+ \spec{N}{I}{number of solutions:} \\
+ \spec{}{}{\hspace{1em} 0 = no solutions returned  (note 2)} \\
+ \spec{}{}{\hspace{1em} 1 = only the first solution is useful (note 3)} \\
+ \spec{}{}{\hspace{1em} 2 = there are two useful solutions (note 3)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The vector V must be of unit length or the result will be wrong.
+  \item Cases where there is no solution can only arise near the poles.
+        For example, it is clearly impossible for a star at the pole
+        itself to have a non-zero XI value.
+  \item Also near the poles, cases can arise where there are two useful
+        solutions.  The argument N indicates whether the second of the
+        two solutions returned is useful.
+        N\,=\,1
+        indicates only one useful solution, the usual case;  under these
+        circumstances, the second solution can be regarded as valid if
+        the vector V02 is interpreted as the ``over-the-pole'' case.
+  \item The projection is called the {\it gnomonic}\/ projection;  the
+        Cartesian coordinates \xieta\ are called 
+        {\it standard coordinates.}\/  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, {\it i.e.}\ radians near the origin.
+  \item This routine is the Cartesian equivalent of the routine sla\_TPS2C.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_UE2EL}{Universal to Conventional Elements}
+{
+ \action{Transform universal elements into conventional heliocentric
+         osculating elements.}
+ \call{CALL sla\_UE2EL (\vtop{
+         \hbox{U, JFORMR,}
+         \hbox{JFORM, EPOCH, ORBINC, ANODE, PERIH,}
+         \hbox{AORQ, E, AORL, DM, JSTAT)}}}
+}
+\args{GIVEN}
+{
+ \spec{U}{D(13)}{universal orbital elements (updated; Note~1)} \\
+ \specel {(1)}     {combined mass ($M+m$)} \\
+ \specel {(2)}     {total energy of the orbit ($\alpha$)} \\
+ \specel {(3)}     {reference (osculating) epoch ($t_0$)} \\
+ \specel {(4-6)}   {position at reference epoch (${\rm \bf r}_0$)} \\
+ \specel {(7-9)}   {velocity at reference epoch (${\rm \bf v}_0$)} \\
+ \specel {(10)}    {heliocentric distance at reference epoch} \\
+ \specel {(11)}    {${\rm \bf r}_0.{\rm \bf v}_0$} \\
+ \specel {(12)}    {date ($t$)} \\
+ \specel {(13)}    {universal eccentric anomaly ($\psi$) of date, approx} \\ \\
+ \spec{JFORMR}{I}{requested element set (1-3; Note~3)}
+}
+\args{RETURNED}
+{
+ \spec{JFORM}{I}{element set actually returned (1-3; Note~4)} \\
+ \spec{EPOCH}{D}{epoch of elements ($t_0$ or $T$, TT MJD)} \\
+ \spec{ORBINC}{D}{inclination ($i$, radians)} \\
+ \spec{ANODE}{D}{longitude of the ascending node ($\Omega$, radians)} \\
+ \spec{PERIH}{D}{longitude or argument of perihelion
+                            ($\varpi$ or $\omega$,} \\
+ \spec{}{}{\hspace{1.5em} radians)} \\
+ \spec{AORQ}{D}{mean distance or perihelion distance ($a$ or $q$, AU)} \\
+ \spec{E}{D}{eccentricity ($e$)} \\
+ \spec{AORL}{D}{mean anomaly or longitude
+                               ($M$ or $L$, radians,} \\
+ \spec{}{}{\hspace{1.5em} JFORM=1,2 only)} \\
+ \spec{DM}{D}{daily motion ($n$, radians, JFORM=1 only)} \\
+ \spec{JSTAT}{I}{status:} \\
+ \spec{}{}{\hspace{2.3em}    0 = OK} \\
+ \spec{}{}{\hspace{1.5em} $-$1 = illegal PMASS} \\
+ \spec{}{}{\hspace{1.5em} $-$2 = illegal JFORMR} \\
+ \spec{}{}{\hspace{1.5em} $-$3 = position/velocity out of allowed range}
+}
+\notes
+{
+ \begin{enumerate}
+  \setlength{\parskip}{\medskipamount}
+  \item The ``universal'' elements are those which define the orbit for the
+        purposes of the method of universal variables (see reference 2).
+        They consist of the combined mass of the two bodies, an epoch,
+        and the position and velocity vectors (arbitrary reference frame)
+        at that epoch.  The parameter set used here includes also various
+        quantities that can, in fact, be derived from the other
+        information.  This approach is taken to avoiding unnecessary
+        computation and loss of accuracy.  The supplementary quantities
+        are (i)~$\alpha$, which is proportional to the total energy of the
+        orbit, (ii)~the heliocentric distance at epoch,
+        (iii)~the outwards component of the velocity at the given epoch,
+        (iv)~an estimate of $\psi$, the ``universal eccentric anomaly'' at a
+        given date and (v)~that date.
+  \item The universal elements are with respect to the mean equator and
+        equinox of epoch J2000.  The orbital elements produced are with
+        respect to the J2000 ecliptic and mean equinox.
+  \item Three different element-format options are supported, as
+        follows. \\
+
+        JFORM=1, suitable for the major planets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of elements $t_0$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> longitude of perihelion $\varpi$ (radians) \\
+        \> AORQ   \> = \> mean distance $a$ (AU) \\
+        \> E      \> = \> eccentricity $e$ $( 0 \leq e < 1 )$ \\
+        \> AORL   \> = \> mean longitude $L$ (radians) \\
+        \> DM     \> = \> daily motion $n$ (radians)
+        \end{tabbing}
+
+        JFORM=2, suitable for minor planets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of elements $t_0$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> argument of perihelion $\omega$ (radians) \\
+        \> AORQ   \> = \> mean distance $a$ (AU) \\
+        \> E      \> = \> eccentricity $e$ $( 0 \leq e < 1 )$ \\
+        \> AORL   \> = \> mean anomaly $M$ (radians)
+        \end{tabbing}
+
+        JFORM=3, suitable for comets:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xx \= \kill
+        \> EPOCH  \> = \> epoch of perihelion $T$ (TT MJD) \\
+        \> ORBINC \> = \> inclination $i$ (radians) \\
+        \> ANODE  \> = \> longitude of the ascending node $\Omega$ (radians) \\
+        \> PERIH  \> = \> argument of perihelion $\omega$ (radians) \\
+        \> AORQ   \> = \> perihelion distance $q$ (AU) \\
+        \> E      \> = \> eccentricity $e$ $( 0 \leq e \leq 10 )$
+        \end{tabbing}
+  \item It may not be possible to generate elements in the form
+        requested through JFORMR.  The caller is notified of the form
+        of elements actually returned by means of the JFORM argument:
+
+        \begin{tabbing}
+        xx \= xxxxxxxxxx \= xxxxxxxxxxx \= \kill
+        \> JFORMR   \> JFORM   \> meaning \\ \\
+        \> ~~~~~1   \> ~~~~~1  \> OK: elements are in the requested format \\
+        \> ~~~~~1   \> ~~~~~2  \> never happens \\
+        \> ~~~~~1   \> ~~~~~3  \> orbit not elliptical \\
+        \> ~~~~~2   \> ~~~~~1  \> never happens \\
+        \> ~~~~~2   \> ~~~~~2  \> OK: elements are in the requested format \\
+        \> ~~~~~2   \> ~~~~~3  \> orbit not elliptical \\
+        \> ~~~~~3   \> ~~~~~1  \> never happens \\
+        \> ~~~~~3   \> ~~~~~2  \> never happens \\
+        \> ~~~~~3   \> ~~~~~3  \> OK: elements are in the requested format
+        \end{tabbing}
+  \item The arguments returned for each value of JFORM ({\it cf}\/ Note~5:
+        JFORM may not be the same as JFORMR) are as follows:
+
+        \begin{tabbing}
+        xxx \= xxxxxxxxxxxx \= xxxxxx \= xxxxxx \= \kill
+        \> JFORM  \> 1        \> 2        \> 3 \\ \\
+        \> EPOCH  \> $t_0$    \> $t_0$    \> $T$ \\
+        \> ORBINC \> $i$      \> $i$      \> $i$ \\
+        \> ANODE  \> $\Omega$ \> $\Omega$ \> $\Omega$ \\
+        \> PERIH  \> $\varpi$ \> $\omega$ \> $\omega$ \\
+        \> AORQ   \> $a$      \> $a$      \> $q$ \\
+        \> E      \> $e$      \> $e$      \> $e$ \\
+        \> AORL   \> $L$      \> $M$      \> - \\
+        \> DM     \> $n$      \> -        \> -
+        \end{tabbing}
+
+        where:
+        \begin{tabbing}
+        xxx \= xxxxxxxx \= xxx \= \kill
+        \> $t_0$    \> is the epoch of the elements (MJD, TT) \\
+        \> $T$      \> is the epoch of perihelion (MJD, TT) \\
+        \> $i$      \> is the inclination (radians) \\
+        \> $\Omega$ \> is the longitude of the ascending node (radians) \\
+        \> $\varpi$ \> is the longitude of perihelion (radians) \\
+        \> $\omega$ \> is the argument of perihelion (radians) \\
+        \> $a$      \> is the mean distance (AU) \\
+        \> $q$      \> is the perihelion distance (AU) \\
+        \> $e$      \> is the eccentricity \\
+        \> $L$      \> is the longitude (radians, $0-2\pi$) \\
+        \> $M$      \> is the mean anomaly (radians, $0-2\pi$) \\
+        \> $n$      \> is the daily motion (radians) \\
+        \> - \> means no value is set
+        \end{tabbing}
+  \item At very small inclinations, the longitude of the ascending node
+        ANODE becomes indeterminate and under some circumstances may be
+        set arbitrarily to zero.  Similarly, if the orbit is close to
+        circular, the true anomaly becomes indeterminate and under some
+        circumstances may be set arbitrarily to zero.  In such cases,
+        the other elements are automatically adjusted to compensate,
+        and so the elements remain a valid description of the orbit.
+ \end{enumerate}
+}
+\refs{
+   \begin{enumerate}
+   \item Sterne, Theodore E., {\it An Introduction to Celestial Mechanics,}\/
+         Interscience Publishers, 1960.  Section 6.7, p199.
+   \item Everhart, E. \& Pitkin, E.T., Am.~J.~Phys.~51, 712, 1983.
+   \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_UE2PV}{Pos/Vel from Universal Elements}
+{
+ \action{Heliocentric position and velocity of a planet, asteroid or comet,
+         starting from orbital elements in the ``universal variables'' form.}
+ \call{CALL sla\_UE2PV (DATE, U, PV, JSTAT)}
+}
+\args{GIVEN}
+{
+ \spec{DATE}{D}{date (TT Modified Julian Date = JD$-$2400000.5)}
+}
+\args{GIVEN and RETURNED}
+{
+ \spec{U}{D(13)}{universal orbital elements (updated; Note~1)} \\
+ \specel {(1)}     {combined mass ($M+m$)} \\
+ \specel {(2)}     {total energy of the orbit ($\alpha$)} \\
+ \specel {(3)}     {reference (osculating) epoch ($t_0$)} \\
+ \specel {(4-6)}   {position at reference epoch (${\rm \bf r}_0$)} \\
+ \specel {(7-9)}   {velocity at reference epoch (${\rm \bf v}_0$)} \\
+ \specel {(10)}    {heliocentric distance at reference epoch} \\
+ \specel {(11)}    {${\rm \bf r}_0.{\rm \bf v}_0$} \\
+ \specel {(12)}    {date ($t$)} \\
+ \specel {(13)}    {universal eccentric anomaly ($\psi$) of date, approx}
+}
+\args{RETURNED}
+{
+ \spec{PV}{D(6)}{heliocentric \xyzxyzd, equatorial, J2000} \\
+ \spec{}{}{\hspace{1.5em} (AU, AU/s; Note~1)} \\
+ \spec{JSTAT}{I}{status:} \\
+ \spec{}{}{\hspace{1.95em}      0 = OK} \\
+ \spec{}{}{\hspace{1.2em}    $-$1 = radius vector zero} \\
+ \spec{}{}{\hspace{1.2em}    $-2$ = failed to converge}
+}
+\notes
+{
+ \begin{enumerate}
+  \setlength{\parskip}{\medskipamount}
+  \item The ``universal'' elements are those which define the orbit for the
+        purposes of the method of universal variables (see reference).
+        They consist of the combined mass of the two bodies, an epoch,
+        and the position and velocity vectors (arbitrary reference frame)
+        at that epoch.  The parameter set used here includes also various
+        quantities that can, in fact, be derived from the other
+        information.  This approach is taken to avoiding unnecessary
+        computation and loss of accuracy.  The supplementary quantities
+        are (i)~$\alpha$, which is proportional to the total energy of the
+        orbit, (ii)~the heliocentric distance at epoch,
+        (iii)~the outwards component of the velocity at the given epoch,
+        (iv)~an estimate of $\psi$, the ``universal eccentric anomaly'' at a
+        given date and (v)~that date.
+  \item The companion routine is sla\_EL2UE.  This takes the conventional
+        orbital elements and transforms them into the set of numbers
+        needed by the present routine.  A single prediction requires one
+        one call to sla\_EL2UE followed by one call to the present routine;
+        for convenience, the two calls are packaged as the routine
+        sla\_PLANEL.  Multiple predictions may be made by again
+        calling sla\_EL2UE once, but then calling the present routine
+        multiple times, which is faster than multiple calls to sla\_PLANEL.
+
+        It is not obligatory to use sla\_EL2UE to obtain the parameters.
+        However, it should be noted that because sla\_EL2UE performs its
+        own validation, no checks on the contents of the array U are made
+        by the present routine.
+  \item DATE is the instant for which the prediction is required.  It is
+        in the TT timescale (formerly Ephemeris Time, ET) and is a
+        Modified Julian Date (JD$-$2400000.5).
+  \item The universal elements supplied in the array U are in canonical
+        units (solar masses, AU and canonical days).  The position and
+        velocity are not sensitive to the choice of reference frame.  The
+        sla\_EL2UE routine in fact produces coordinates with respect to the
+        J2000 equator and equinox.
+  \item The algorithm was originally adapted from the EPHSLA program of
+        D.\,H.\,P.\,Jones (private communication, 1996).  The method
+        is based on Stumpff's Universal Variables.
+ \end{enumerate}
+}
+\aref{Everhart, E. \& Pitkin, E.T., Am.~J.~Phys.~51, 712, 1983.}
+%-----------------------------------------------------------------------
+\routine{SLA\_UNPCD}{Remove Radial Distortion}
+{
+ \action{Remove pincushion/barrel distortion from a distorted 
+         \xy\  to give tangent-plane \xy.}
+ \call{CALL sla\_UNPCD (DISCO,X,Y)}
+}
+\args{GIVEN}
+{
+ \spec{DISCO}{D}{pincushion/barrel distortion coefficient} \\
+ \spec{X,Y}{D}{distorted \xy}
+}
+\args{RETURNED}
+{
+ \spec{X,Y}{D}{tangent-plane \xy}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The distortion is of the form $\rho = r (1 + c r^{2})$, where $r$ is
+        the radial distance from the tangent point, $c$ is the DISCO
+        argument, and $\rho$ is the radial distance in the presence of
+        the distortion.
+  \item For {\it pincushion}\/ distortion, C is +ve;  for
+        {\it barrel}\/ distortion, C is $-$ve.
+  \item For X,Y in units of one projection radius (in the case of
+        a photographic plate, the focal length), the following
+        DISCO values apply:
+
+        \vspace{2ex}
+
+        \hspace{5em}
+        \begin{tabular}{|l|c|} \hline
+         Geometry & DISCO \\ \hline \hline
+         astrograph & 0.0 \\ \hline
+         Schmidt & $-$0.3333 \\ \hline
+         AAT PF doublet & +147.069 \\ \hline
+         AAT PF triplet & +178.585 \\ \hline
+         AAT f/8 & +21.20 \\ \hline
+         JKT f/8 & +14.6 \\ \hline
+        \end{tabular}
+
+        \vspace{2ex}
+
+  \item The present routine is an approximate inverse to the
+        companion routine sla\_PCD, obtained from two iterations
+        of Newton's method.  The mismatch between the sla\_PCD
+        and sla\_UNPCD is negligible for astrometric applications;
+        to reach 1~milliarcsec at the edge of the AAT triplet or
+        Schmidt field would require field diameters of \degree{2}{4}
+        and $42^{\circ}$ respectively.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_V2TP}{Direction Cosines to Tangent Plane}
+{
+ \action{Given the direction cosines of a star and of the tangent point,
+         determine the star's tangent-plane coordinates
+         (single precision).}
+ \call{CALL sla\_V2TP (V, V0, XI, ETA, J)}
+}
+\args{GIVEN}
+{
+ \spec{V}{R(3)}{direction cosines of star} \\
+ \spec{V0}{R(3)}{direction cosines of tangent point}
+}
+\args{RETURNED}
+{
+ \spec{XI,ETA}{R}{tangent plane coordinates (radians)} \\
+ \spec{J}{I}{status:} \\
+ \spec{}{}{\hspace{1.5em} 0 = OK, star on tangent plane} \\
+ \spec{}{}{\hspace{1.5em} 1 = error, star too far from axis} \\
+ \spec{}{}{\hspace{1.5em} 2 = error, antistar on tangent plane} \\
+ \spec{}{}{\hspace{1.5em} 3 = error, antistar too far from axis}
+}
+\notes
+{
+ \begin{enumerate}
+  \item If vector V0 is not of unit length, or if vector V is of zero
+        length, the results will be wrong.
+  \item If V0 points at a pole, the returned $\xi,\eta$
+        will be based on the
+        arbitrary assumption that $\alpha=0$ at the tangent point.
+  \item The projection is called the {\it gnomonic}\/ projection;  the
+        Cartesian coordinates \xieta\ are called 
+        {\it standard coordinates.}\/  The latter
+        are in units of the distance from the tangent plane to the projection
+        point, {\it i.e.}\ radians near the origin.
+  \item This routine is the Cartesian equivalent of the routine sla\_S2TP.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_VDV}{Scalar Product}
+{
+ \action{Scalar product of two 3-vectors (single precision).}
+ \call{R~=~sla\_VDV (VA, VB)}
+}
+\args{GIVEN}
+{
+ \spec{VA}{R(3)}{first vector} \\
+ \spec{VB}{R(3)}{second vector}
+}
+\args{RETURNED}
+{
+ \spec{sla\_VDV}{R}{scalar product VA.VB}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_VN}{Normalize Vector}
+{
+ \action{Normalize a 3-vector, also giving the modulus (single precision).}
+ \call{CALL sla\_VN (V, UV, VM)}
+}
+\args{GIVEN}
+{
+ \spec{V}{R(3)}{vector}
+}
+\args{RETURNED}
+{
+ \spec{UV}{R(3)}{unit vector in direction of V} \\
+ \spec{VM}{R}{modulus of V}
+}
+\anote{If the modulus of V is zero, UV is set to zero as well.}
+%-----------------------------------------------------------------------
+\routine{SLA\_VXV}{Vector Product}
+{
+ \action{Vector product of two 3-vectors (single precision).}
+ \call{CALL sla\_VXV (VA, VB, VC)}
+}
+\args{GIVEN}
+{
+ \spec{VA}{R(3)}{first vector} \\
+ \spec{VB}{R(3)}{second vector}
+}
+\args{RETURNED}
+{
+ \spec{VC}{R(3)}{vector product VA$\times$VB}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_WAIT}{Time Delay}
+{
+ \action{Wait for a specified interval.}
+ \call{CALL sla\_WAIT (DELAY)}
+}
+\args{GIVEN}
+{
+ \spec{DELAY}{R}{delay in seconds}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The implementation is machine-specific.
+  \item The delay actually requested is restricted to the range
+        100ns-200s in the present implementation.
+  \item There is no guarantee of accuracy, though on almost all
+        types of computer the program will certainly not
+        resume execution {\it before}\/ the stated interval has
+        elapsed.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_XY2XY}{Apply Linear Model to an \xy}
+{
+ \action{Transform one \xy\ into another using a linear model of the type
+         produced by the sla\_FITXY routine.}
+ \call{CALL sla\_XY2XY (X1,Y1,COEFFS,X2,Y2)}
+}
+\args{GIVEN}
+{
+ \spec{X1,Y1}{D}{\xy\ before transformation} \\
+ \spec{COEFFS}{D(6)}{transformation coefficients (see note)}
+}
+\args{RETURNED}
+{
+ \spec{X2,Y2}{D}{\xy\ after transformation}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The model relates two sets of \xy\ coordinates as follows.
+        Naming the six elements of COEFFS $a,b,c,d,e$ \& $f$,
+        the present routine performs the transformation:
+        \begin{verse}
+          $x_{2} = a + bx_{1} + cy_{1}$ \\
+          $y_{2} = d + ex_{1} + fy_{1}$
+        \end{verse}
+  \item See also sla\_FITXY, sla\_PXY, sla\_INVF, sla\_DCMPF.
+ \end{enumerate}
+}
+%-----------------------------------------------------------------------
+\routine{SLA\_ZD}{$h,\delta$ to Zenith Distance}
+{
+ \action{Hour angle and declination to zenith distance
+         (double precision).}
+ \call{D~=~sla\_ZD (HA, DEC, PHI)}
+}
+\args{GIVEN}
+{
+ \spec{HA}{D}{hour angle in radians} \\
+ \spec{DEC}{D}{declination in radians} \\
+ \spec{PHI}{D}{latitude in radians}
+}
+\args{RETURNED}
+{
+ \spec{sla\_ZD}{D}{zenith distance (radians, $0\!-\!\pi$)}
+}
+\notes
+{
+ \begin{enumerate}
+  \item The latitude must be geodetic.  In critical applications,
+        corrections for polar motion should be applied (see sla\_POLMO).
+  \item In some applications it will be important to specify the
+        correct type of hour angle and declination in order to
+        produce the required type
+        of zenith distance.  In particular, it may be
+        important to distinguish between the zenith distance
+        as affected by refraction, which would require the
+        {\it observed}\/ \hadec, and the zenith distance {\it in vacuo},
+        which would require the {\it topocentric}\/ \hadec.  If
+        the effects of diurnal aberration can be neglected, the
+        {\it apparent}\/ \hadec\ may be used instead of the
+        {\it topocentric}\/ \hadec.
+  \item No range checking of arguments is done.
+  \item In applications which involve many zenith distance calculations,
+        rather than calling the present routine it will be more
+        efficient to use inline code, having previously computed fixed
+        terms such as sine and cosine of latitude, and perhaps sine and
+        cosine of declination.
+ \end{enumerate}
+}
+
+\pagebreak
+
+\section{EXPLANATION AND EXAMPLES}
+To guide the writer of positional-astronomy applications software,
+this final chapter puts the SLALIB routines into the context of
+astronomical phenomena and techniques, and presents a few
+``cookbook'' examples
+of the SLALIB calls in action.  The astronomical content of the chapter
+is not, of course, intended to be a substitute for specialist text-books on
+positional astronomy, but may help bridge the gap between
+such books and the SLALIB routines.  For further reading, the following
+cover a wide range of material and styles:
+\begin{itemize}
+\item {\it Explanatory Supplement to the Astronomical Almanac},
+      ed.\ P.\,Kenneth~Seidelmann (1992), University Science Books.
+\item {\it Vectorial Astrometry}, C.\,A.\,Murray (1983), Adam Hilger.
+\item {\it Spherical Astronomy}, Robin~M.\,Green (1985), Cambridge
+      University Press.
+\item {\it Spacecraft Attitude Determination and Control},
+      ed.\ James~R.\,Wertz (1986), Reidel.
+\item {\it Practical Astronomy with your Calculator},
+      Peter~Duffett-Smith (1981), Cambridge University Press.
+\end{itemize}
+Also of considerable value, though out of date in places, are:
+\begin{itemize}
+\item {\it Explanatory Supplement to the Astronomical Ephemeris
+      and the American Ephemeris and Nautical Almanac}, RGO/USNO (1974),
+      HMSO.
+\item {\it Textbook on Spherical Astronomy}, W.\,M.\,Smart (1977),
+      Cambridge University Press.
+\end{itemize}
+Only brief details of individual SLALIB routines are given here, and
+readers will find it useful to refer to the subprogram specifications
+elsewhere in this document.  The source code for the SLALIB routines
+(available in both Fortran and C) is also intended to be used as
+documentation.
+
+\subsection {Spherical Trigonometry}
+Celestial phenomena occur at such vast distances from the
+observer that for most practical purposes there is no need to
+work in 3D;  only the direction
+of a source matters, not how far away it is.  Things can
+therefore be viewed as if they were happening
+on the inside of sphere with the observer at the centre --
+the {\it celestial sphere}.  Problems involving
+positions and orientations in the sky can then be solved by
+using the formulae of {\it spherical trigonometry}, which
+apply to {\it spherical triangles}, the sides of which are
+{\it great circles}.
+
+Positions on the celestial sphere may be specified by using
+a spherical polar coordinate system, defined in terms of
+some fundamental plane and a line in that plane chosen to
+represent zero longitude.  Mathematicians usually work with the
+co-latitude, with zero at the principal pole, whereas most
+astronomical coordinate systems use latitude, reckoned plus and
+minus from the equator.
+Astronomical coordinate systems may be either right-handed
+({\it e.g.}\ right ascension and declination \radec,
+Galactic longitude and latitude \gal)
+or left-handed ({\it e.g.}\ hour angle and
+declination \hadec).  In some cases
+different conventions have been used in the past, a fruitful source of
+mistakes.  Azimuth and geographical longitude are examples;  azimuth
+is now generally reckoned north through east
+(making a left-handed system);  geographical longitude is now usually
+taken to increase eastwards (a right-handed system) but astronomers
+used to employ a west-positive convention.  In reports
+and program comments it is wise to spell out what convention
+is being used, if there is any possibility of confusion.
+
+When applying spherical trigonometry formulae, attention must be
+paid to
+rounding errors (for example it is a bad idea to find a
+small angle through its cosine) and to the possibility of
+problems close to poles.
+Also, if a formulation relies on inspection to establish
+the quadrant of the result, it is an indication that a vector-related
+method might be preferable.
+
+As well as providing many routines which work in terms of specific
+spherical coordinates such as \radec, SLALIB provides
+two routines which operate directly on generic spherical
+coordinates:
+sla\_SEP
+computes the separation between
+two points (the distance along a great circle) and
+sla\_BEAR
+computes the bearing (or {\it position angle})
+of one point seen from the other.  The routines
+sla\_DSEP
+and
+sla\_DBEAR
+are double precision equivalents.  As a simple demonstration
+of SLALIB, we will use these facilities to estimate the distance from
+London to Sydney and the initial compass heading:
+\goodbreak
+\begin{verbatim}
+            IMPLICIT NONE
+
+      *  Degrees to radians
+            REAL D2R
+            PARAMETER (D2R=0.01745329252)
+
+      *  Longitudes and latitudes (radians) for London and Sydney
+            REAL AL,BL,AS,BS
+            PARAMETER (AL=-0.2*D2R,BL=51.5*D2R,AS=151.2*D2R,BS=-33.9*D2R)
+
+      *  Earth radius in km (spherical approximation)
+            REAL RKM
+            PARAMETER (RKM=6375.0)
+
+            REAL sla_SEP,sla_BEAR
+
+
+      *  Distance and initial heading (N=0, E=90)
+            WRITE (*,'(1X,I5,'' km,'',I4,'' deg'')')
+           :    NINT(sla_SEP(AL,BL,AS,BS)*RKM),NINT(sla_BEAR(AL,BL,AS,BS)/D2R)
+
+            END
+\end{verbatim}
+\goodbreak
+(The result is 17011~km, $61^\circ$.)
+
+The routines
+sla\_PAV and
+sla\_DPAV
+are equivalents of sla\_BEAR and sla\_DBEAR but starting from
+direction-cosines instead of spherical coordinates.
+
+\subsubsection{Formatting angles}
+SLALIB has routines for decoding decimal numbers
+from character form and for converting angles to and from
+sexagesimal form (hours, minutes, seconds or degrees,
+arcminutes, arcseconds).  These apparently straightforward
+operations contain hidden traps which the SLALIB routines
+avoid.
+
+There are five routines for decoding numbers from a character
+string, such as might be entered using a keyboard.
+They all work in the same style, and successive calls
+can work their way along a single string decoding
+a sequence of numbers of assorted types.  Number
+fields can be separated by spaces or commas, and can be defaulted
+to previous values or to preset defaults.
+
+Three of the routines decode single numbers:
+sla\_INTIN
+(integer),
+sla\_FLOTIN
+(single precision floating point) and
+sla\_DFLTIN
+(double precision).  A minus sign can be
+detected even when the number is zero;  this avoids
+the frequently-encountered ``minus zero'' bug, where
+declinations {\it etc.}\ in
+the range $0^{\circ}$ to $-1^{\circ}$ mysteriously migrate to
+the range $0^{\circ}$ to $+1^{\circ}$.
+Here is an example (in Fortran) where we wish to
+read two numbers, and integer {\tt IX} and a real, {\tt Y},
+with {\tt X} defaulting to zero and {\tt Y} defaulting to
+{\tt X}:
+\goodbreak
+\begin{verbatim}
+            DOUBLE PRECISION Y
+            CHARACTER*80 A
+            INTEGER IX,I,J
+
+      *  Input the string to be decoded
+            READ (*,'(A)') A
+
+      *  Preset IX to its default value
+            IX = 0
+
+      *  Point to the start of the string
+            I = 1
+
+      *  Decode an integer
+            CALL sla_INTIN(A,I,IX,J)
+            IF (J.GT.1) GO TO ... (bad IX)
+
+      *  Preset Y to its default value
+            Y = DBLE(IX)
+
+      *  Decode a double precision number
+            CALL sla_DFLTIN(A,I,Y,J)
+            IF (J.GT.1) GO TO ... (bad Y)
+\end{verbatim}
+\goodbreak
+Two additional routines decode a 3-field sexagesimal number:
+sla\_AFIN
+(degrees, arcminutes, arcseconds to single
+precision radians) and
+sla\_DAFIN
+(the same but double precision).  They also
+work using other units such as hours {\it etc}.\ if
+you multiply the result by the appropriate factor.  An example
+Fortran program which uses
+sla\_DAFIN
+was given earlier, in section 1.2.
+
+SLALIB provides four routines for expressing an angle in radians
+in a preferred range.  The function
+sla\_RANGE
+expresses an angle
+in the range $\pm\pi$;
+sla\_RANORM
+expresses an angle in the range
+$0-2\pi$.  The functions
+sla\_DRANGE
+and
+sla\_DRANRM
+are double precision versions.
+
+Several routines
+(sla\_CTF2D,
+sla\_CR2AF
+{\it etc.}) are provided to convert
+angles to and from
+sexagesimal form (hours, minute, seconds or degrees,
+arcminutes and arcseconds).
+They avoid the common
+``converting from integer to real at the wrong time''
+bug, which produces angles like \hms{24}{59}{59}{999}.
+Here is a program which displays an hour angle
+stored in radians:
+\goodbreak
+\begin{verbatim}
+            DOUBLE PRECISION HA
+            CHARACTER SIGN
+            INTEGER IHMSF(4)
+            :
+            CALL sla_DR2TF(3,HA,SIGN,IHMSF)
+            WRITE (*,'(1X,A,3I3.2,''.'',I3.3)') SIGN,IHMSF
+\end{verbatim}
+\goodbreak
+
+\subsection {Vectors and Matrices}
+As an alternative to employing a spherical polar coordinate system,
+the direction of an object can be defined in terms of the sum of any
+three vectors as long as they are different and
+not coplanar.  In practice, three vectors at right angles are
+usually chosen, forming a system
+of {\it Cartesian coordinates}.  The {\it x}- and {\it y}-axes
+lie in the fundamental plane ({\it e.g.}\ the equator in the
+case of \radec), with the {\it x}-axis pointing to zero longitude.
+The {\it z}-axis is normal to the fundamental plane and points
+towards positive latitudes.  The {\it y}-axis can lie in either
+of the two possible directions, depending on whether the
+coordinate system is right-handed or left-handed.
+The three axes are sometimes called
+a {\it triad}.  For most applications involving arbitrarily
+distant objects such as stars, the vector which defines
+the direction concerned is constrained to have unit length.
+The {\it x}-, {\it y-} and {\it z-}components
+can be regarded as the scalar (dot) product of this vector
+onto the three axes of the triad in turn.  Because the vector
+is a unit vector,
+each of the three dot-products is simply the cosine of the angle
+between the unit vector and the axis concerned, and the
+{\it x}-, {\it y-} and {\it z-}components are sometimes
+called {\it direction cosines}.
+
+For some applications involving objects
+with the Solar System, unit vectors are inappropriate, and
+it is necessary to use vectors scaled in length-units such as
+AU, km {\it etc.}
+In these cases the origin of the coordinate system may not be
+the observer, but instead might be the Sun, the Solar-System
+barycentre, the centre of the Earth {\it etc.}  But whatever the application,
+the final direction in which the observer sees the object can be
+expressed as direction cosines.
+
+But where has this got us?  Instead of two numbers -- a longitude and
+a latitude -- we now have three numbers to look after
+-- the {\it x}-, {\it y-} and
+{\it z-}components -- whose quadratic sum we have somehow to contrive to
+be unity.  And, in addition to this apparent redundancy,
+most people find it harder to visualize
+problems in terms of \xyz\ than in $[\,\theta,\phi~]$.
+Despite these objections, the vector approach turns out to have
+significant advantages over the spherical trigonometry approach:
+\begin{itemize}
+\item Vector formulae tend to be much more succinct;  one vector
+      operation is the equivalent of strings of sines and cosines.
+\item The formulae are as a rule rigorous, even at the poles.
+\item Accuracy is maintained all over the celestial sphere.
+      When one Cartesian component is nearly unity and
+      therefore insensitive to direction, the others become small
+      and therefore more precise.
+\item Formulations usually deliver the quadrant of the result
+      without the need for any inspection (except within the
+      library function ATAN2).
+\end{itemize}
+A number of important transformations in positional
+astronomy turn out to be nothing more than changes of coordinate
+system, something which is especially convenient if
+the vector approach is used.  A direction with respect
+to one triad can be expressed relative to another triad simply
+by multiplying the \xyz\ column vector by the appropriate
+$3\times3$ orthogonal matrix
+(a tensor of Rank~2, or {\it dyadic}).  The three rows of this
+{\it rotation matrix}\/
+are the vectors in the old coordinate system of the three
+new axes, and the transformation amounts to obtaining the
+dot-product of the direction-vector with each of the three
+new axes.  Precession, nutation, \hadec\ to \azel,
+\radec\ to \gal\ and so on are typical examples of the
+technique.  A useful property of the rotation matrices
+is that they can be inverted simply by taking the transpose.
+
+The elements of these vectors and matrices are assorted combinations of
+the sines and cosines of the various angles involved (hour angle,
+declination and so on, depending on which transformation is
+being applied).  If you write out the matrix multiplications
+in full you get expressions which are essentially the same as the
+equivalent spherical trigonometry formulae.  Indeed, many of the
+standard formulae of spherical trigonometry are most easily
+derived by expressing the problem initially in
+terms of vectors.
+
+\subsubsection{Using vectors}
+SLALIB provides conversions between spherical and vector
+form
+(sla\_CS2C,
+sla\_CC2S
+{\it etc.}), plus an assortment
+of standard vector and matrix operations
+(sla\_VDV,
+sla\_MXV
+{\it etc.}).
+There are also routines
+(sla\_EULER
+{\it etc.}) for creating a rotation matrix
+from three {\it Euler angles}\/ (successive rotations about
+specified Cartesian axes).  Instead of Euler angles, a rotation
+matrix can be expressed as an {\it axial vector}\/ (the pole of the rotation,
+and the amount of rotation), and routines are provided for this
+(sla\_AV2M,
+sla\_M2AV
+{\it etc.}).
+
+Here is an example where spherical coordinates {\tt P1} and {\tt Q1}
+undergo a coordinate transformation and become {\tt P2} and {\tt Q2};
+the transformation consists of a rotation of the coordinate system
+through angles {\tt A}, {\tt B} and {\tt C} about the
+{\it z}, new {\it y}\/ and new {\it z}\/ axes respectively:
+\goodbreak
+\begin{verbatim}
+            REAL A,B,C,R(3,3),P1,Q1,V1(3),V2(3),P2,Q2
+             :
+      *  Create rotation matrix
+            CALL sla_EULER('ZYZ',A,B,C,R)
+
+      *  Transform position (P,Q) from spherical to Cartesian
+            CALL sla_CS2C(P1,Q1,V1)
+
+      *  Multiply by rotation matrix
+            CALL sla_MXV(R,V1,V2)
+
+      *  Back to spherical
+            CALL sla_CC2S(V2,P2,Q2)
+\end{verbatim}
+\goodbreak
+Small adjustments to the direction of a position
+vector are often most conveniently described in terms of
+$[\,\Delta x,\Delta y, \Delta z\,]$.  Adding the correction
+vector needs careful handling if the position
+vector is to remain of length unity, an advisable precaution which
+ensures that
+the \xyz\ components are always available to mean the cosines of
+the angles between the vector and the axis concerned.  Two types
+of shifts are commonly used,
+the first where a small vector of arbitrary direction is
+added to the unit vector, and the second where there is a displacement
+in the latitude coordinate (declination, elevation {\it etc.}) alone.
+
+For a shift produced by adding a small \xyz\ vector ${\bf D}$ to a
+unit vector ${\bf V1}$, the resulting vector ${\bf V2}$ has direction
+$<{\bf V1}+{\bf D}>$ but is no longer of unit length.  A better approximation
+is available if the result is multiplied by a scaling factor of
+$(1-{\bf D}\cdot{\bf V1})$, where the dot
+means scalar product.  In Fortran:
+\goodbreak
+\begin{verbatim}
+            F = (1D0-(DX*V1X+DY*V1Y+DZ*V1Z))
+            V2X = F*(V1X+DX)
+            V2Y = F*(V1Y+DY)
+            V2Z = F*(V1Z+DZ)
+\end{verbatim}
+\goodbreak
+\noindent
+The correction for diurnal aberration (discussed later) is
+an example of this form of shift.
+
+As an example of the second kind of displacement
+we will apply a small change in elevation $\delta E$ to an
+\azel\ direction vector.  The direction of the
+result can be obtained by making the allowable approximation
+${\tan \delta E\approx\delta E}$ and adding a adjustment
+vector of length $\delta E$ normal
+to the direction vector in the vertical plane containing the direction
+vector.  The $z$-component of the adjustment vector is
+$\delta E \cos E$,
+and the horizontal component is
+$\delta E \sin E$ which has then to be
+resolved into $x$ and $y$ in proportion to their current sizes. To
+approximate a unit vector more closely, a correction factor of
+$\cos \delta E$ can then be applied, which is nearly
+$(1-\delta E^2 /2)$ for
+small $\delta E$.  Expressed in Fortran, for initial vector
+{\tt V1X,V1Y,V1Z}, change in elevation {\tt DEL}
+(+ve $\equiv$ upwards), and result
+vector {\tt V2X,V2Y,V2Z}:
+\goodbreak
+\begin{verbatim}
+            COSDEL = 1D0-DEL*DEL/2D0
+            R1 = SQRT(V1X*V1X+V1Y*V1Y)
+            F = COSDEL*(R1-DEL*V1Z)/R1
+            V2X = F*V1X
+            V2Y = F*V1Y
+            V2Z = COSDEL*(V1Z+DEL*R1)
+\end{verbatim}
+\goodbreak
+An example of this type of shift is the correction for atmospheric
+refraction (see later).
+Depending on the relationship between $\delta E$ and $E$, special
+handling at the pole (the zenith for our example) may be required.
+
+SLALIB includes routines for the case where both a position
+and a velocity are involved.  The routines
+sla\_CS2C6
+and
+sla\_CC62S
+convert from $[\theta,\phi,\dot{\theta},\dot{\phi}]$
+to \xyzxyzd\ and back;
+sla\_DCS26
+and
+sla\_DC62S
+are double precision equivalents.
+
+\subsection {Celestial Coordinate Systems}
+SLALIB has routines to perform transformations
+of celestial positions between different spherical
+coordinate systems, including those shown in the following table:
+
+\begin{center}
+\begin{tabular}{|l|c|c|c|c|c|c|} \hline
+{\it system} & {\it symbols} & {\it longitude} & {\it latitude} &
+          {\it x-y plane} & {\it long.\ zero} & {\it RH/LH}
+\\ \hline \hline
+horizon & -- & azimuth & elevation & horizontal & north & L
+\\ \hline
+equatorial & $\alpha,\delta$ & R.A.\ & Dec.\ & equator & equinox & R
+\\ \hline
+local equ.\ & $h,\delta$ & H.A.\ & Dec.\ & equator & meridian & L
+\\ \hline
+ecliptic & $\lambda,\beta$ & ecl.\ long.\ & ecl.\ lat.\ &
+                                       ecliptic & equinox & R
+\\ \hline
+galactic & $l^{I\!I},b^{I\!I}$ & gal.\ long.\ & gal.\ lat.\ &
+                                       gal.\ equator & gal.\ centre & R
+\\ \hline
+supergalactic & SGL,SGB & SG long.\ & SG lat.\ &
+                                       SG equator & node w.\ gal.\ equ.\ & R
+\\ \hline
+\end{tabular}
+\end{center}
+Transformations between \hadec\ and \azel\ can be performed by
+calling
+sla\_E2H
+and
+sla\_H2E,
+or, in double precision,
+sla\_DE2H
+and
+sla\_DH2E.
+There is also a routine for obtaining
+zenith distance alone for a given \hadec,
+sla\_ZD,
+and one for determining the parallactic angle,
+sla\_PA.
+Three routines are included which relate to altazimuth telescope
+mountings.  For a given \hadec\ and latitude,
+sla\_ALTAZ
+returns the azimuth, elevation and parallactic angle, plus
+velocities and accelerations for sidereal tracking.
+The routines
+sla\_PDA2H
+and
+sla\_PDQ2H
+predict at what hour angle a given azimuth or
+parallactic angle will be reached.
+
+The routines
+sla\_EQECL
+and
+sla\_ECLEQ
+transform between ecliptic
+coordinates and \radec\/; there is also a routine for generating the
+equatorial to ecliptic rotation matrix for a given date:
+sla\_ECMAT.
+
+For conversion between Galactic coordinates and \radec\ there are
+two sets of routines, depending on whether the \radec\ is
+old-style, B1950, or new-style, J2000;
+sla\_EG50
+and
+sla\_GE50
+are \radec\ to \gal\ and {\it vice versa}\/ for the B1950 case, while
+sla\_EQGAL
+and
+sla\_GALEQ
+are the J2000 equivalents.
+
+Finally, the routines
+sla\_GALSUP
+and
+sla\_SUPGAL
+transform \gal\ to de~Vaucouleurs supergalactic longitude and latitude
+and {\it vice versa.}
+
+It should be appreciated that the table, above, constitutes
+a gross oversimplification.   Apparently
+simple concepts such as equator, equinox {\it etc.}\ are apt to be very hard to
+pin down precisely (polar motion, orbital perturbations \ldots) and
+some have several interpretations, all subtly different.  The various
+frames move in complicated ways with respect to one another or to
+the stars (themselves in motion).  And in some instances the
+coordinate system is slightly distorted, so that the
+ordinary rules of spherical trigonometry no longer strictly apply.
+
+These {\it caveats}\/
+apply particularly to the bewildering variety of different
+\radec\ systems that are in use.  Figure~1 shows how
+some of these systems are related, to one another and
+to the direction in which a celestial source actually
+appears in the sky.  At the top of the diagram are
+the various sorts of {\it mean place}\/
+found in star catalogues and papers;\footnote{One frame not included in
+Figure~1 is that of the Hipparcos catalogue.  This is currently the
+best available implementation in the optical of the {\it International
+Celestial Reference System}\/ (ICRS), which is based on extragalactic
+radio sources observed by VLBI.  The distinction between FK5 J2000
+and Hipparcos coordinates only becomes important when accuracies of
+50~mas or better are required.  More details are given in
+Section~4.14.} at the bottom is the
+{\it observed}\/ \azel, where a perfect theodolite would
+be pointed to see the source;  and in the body of
+the diagram are
+the intermediate processing steps and coordinate
+systems.  To help
+understand this diagram, and the SLALIB routines that can
+be used to carry out the various calculations, we will look at the coordinate
+systems involved, and the astronomical phenomena that
+affect them.
+
+\begin{figure}
+\begin{center}
+\begin{tabular}{|cccccc|}   \hline
+& & & & & \\
+\hspace{5em} & \hspace{5em} & \hspace{5em} &
+   \hspace{5em} & \hspace{5em} & \hspace{5em}  \\
+\multicolumn{2}{|c}{\hspace{0em}\fbox{\parbox{8.5em}{\center \vspace{-2ex}
+                                                   mean \radec, FK4, \\
+                                                   any equinox
+                                                   \vspace{0.5ex}}}} &
+ \multicolumn{2}{c}{\hspace{0em}\fbox{\parbox{8.5em}{\center \vspace{-2ex}
+                                                   mean \radec, FK4,
+                                                   no $\mu$, any equinox
+                                                   \vspace{0.5ex}}}} &
+\multicolumn{2}{c|}{\hspace{0em}\fbox{\parbox{8.5em}{\center \vspace{-2ex}
+                                                   mean \radec, FK5, \\
+                                                   any equinox
+                                                   \vspace{0.5ex}}}} \\
+& \multicolumn{2}{|c|}{} & \multicolumn{2}{c|}{} & \\
+\multicolumn{2}{|c}{space motion} & \multicolumn{1}{c|}{} & &
+   \multicolumn{2}{c|}{space motion} \\
+\multicolumn{2}{|c}{-- E-terms} &
+   \multicolumn{2}{c}{-- E-terms} & \multicolumn{1}{c|}{} & \\
+\multicolumn{2}{|c}{precess to B1950} & \multicolumn{2}{c}{precess to B1950} &
+   \multicolumn{2}{c|}{precess to J2000} \\
+\multicolumn{2}{|c}{+ E-terms} &
+   \multicolumn{2}{c}{+ E-terms} & \multicolumn{1}{c|}{} & \\
+\multicolumn{2}{|c}{FK4 to FK5, no $\mu$} &
+   \multicolumn{2}{c}{FK4 to FK5, no $\mu$} & \multicolumn{1}{c|}{} & \\
+\multicolumn{2}{|c}{parallax} & \multicolumn{1}{c|}{} & &
+   \multicolumn{2}{c|}{parallax} \\
+& \multicolumn{2}{|c|}{} & \multicolumn{2}{c|}{} & \\ \cline{2-5}
+\multicolumn{3}{|c|}{} & & & \\
+& \multicolumn{4}{c}{\fbox{\parbox{18em}{\center \vspace{-2ex}
+                                   FK5, J2000, current epoch, geocentric
+                                          \vspace{0.5ex}}}} & \\
+\multicolumn{3}{|c|}{} & & & \\
+& \multicolumn{4}{c}{light deflection} & \\
+& \multicolumn{4}{c}{annual aberration} & \\
+& \multicolumn{4}{c}{precession/nutation} & \\
+\multicolumn{3}{|c|}{} & & & \\
+& \multicolumn{4}{c}{\fbox{Apparent \radec}} & \\
+\multicolumn{3}{|c|}{} & & & \\
+& \multicolumn{4}{c}{Earth rotation} & \\
+\multicolumn{3}{|c|}{} & & & \\
+& \multicolumn{4}{c}{\fbox{Apparent \hadec}} & \\
+\multicolumn{3}{|c|}{} & & & \\
+& \multicolumn{4}{c}{diurnal aberration} & \\
+\multicolumn{3}{|c|}{} & & & \\
+& \multicolumn{4}{c}{\fbox{Topocentric \hadec}} & \\
+\multicolumn{3}{|c|}{} & & & \\
+& \multicolumn{4}{c}{\hadec\ to \azel} & \\
+\multicolumn{3}{|c|}{} & & & \\
+& \multicolumn{4}{c}{\fbox{Topocentric \azel}} & \\
+\multicolumn{3}{|c|}{} & & & \\
+& \multicolumn{4}{c}{refraction} & \\
+\multicolumn{3}{|c|}{} & & & \\
+& \multicolumn{4}{c}{\fbox{Observed \azel}} & \\
+& & & & & \\
+& & & & & \\ \hline
+\end{tabular}
+\end{center}
+\vspace{-0.5ex}
+\caption{Relationship Between Celestial Coordinates}
+
+Star positions are published or catalogued using
+one of the mean \radec\ systems shown at
+the top.  The ``FK4'' systems
+were used before about 1980 and are usually
+equinox B1950.  The ``FK5'' system, equinox J2000, is now preferred,
+or rather its modern equivalent, the International Celestial Reference
+Frame (in the optical, the Hipparcos catalogue).
+The figure relates a star's mean \radec\ to the actual
+line-of-sight to the star.
+Note that for the conventional choices of equinox, namely
+B1950 or J2000, all of the precession and E-terms corrections
+are superfluous.
+\end{figure}
+
+\subsection{Precession and Nutation}
+{\it Right ascension and declination}, (\radec), are the names
+of the longitude and latitude in a spherical
+polar coordinate system based on the Earth's axis of rotation.
+The zero point of $\alpha$ is the point of intersection of
+the {\it celestial
+equator}\/ and the {\it ecliptic}\/ (the apparent path of the Sun
+through the year) where the Sun moves into the northern
+hemisphere.  This point is called the
+{\it first point of Aries},
+the {\it vernal equinox}\/ (with apologies to
+southern-hemisphere readers) or simply the {\it equinox}.\footnote{With
+the introduction of the International Celestial Reference System (ICRS), the
+connection between (i)~star coordinates and (ii)~the Earth's orientation
+and orbit has been broken.  However, the orientation of the
+International Celestial Reference Frame (ICRF) axes was, for convenience,
+chosen to match J2000 FK5, and for most practical purposes ICRF coordinates
+(for example entries in the Hipparcos catalogue) can be regarded as
+synonymous with J2000 FK5.  See Section 4.14 for further details.}
+
+This simple picture is unfortunately
+complicated by the difficulty of defining
+a suitable equator and equinox.  One problem is that the
+Sun's apparent motion is not completely regular, due to the
+ellipticity of the Earth's orbit and its continuous disturbance
+by the Moon and planets.  This is dealt with by
+separating the motion into (i)~a smooth and steady {\it mean Sun}\/
+and (ii)~a set of periodic corrections and perturbations; only the former
+is involved in establishing reference frames and timescales.
+A second, far larger problem, is that
+the celestial equator and the ecliptic
+are both moving with respect to the stars.
+These motions arise because of the gravitational
+interactions between the Earth and the other solar-system bodies.
+
+By far the largest effect is the
+so-called ``precession of the equinoxes'', where the Earth's
+rotation axis sweeps out a cone centred on the ecliptic
+pole, completing one revolution in about 26,000 years.  The
+cause of the motion is the torque exerted on the distorted and
+spinning Earth by the Sun and the Moon.  Consider the effect of the
+Sun alone, at or near the northern summer solstice.  The Sun
+`sees' the top (north pole) of the Earth tilted towards it
+(by about \degree{23}{5}, the {\it obliquity of the
+ecliptic}\/),
+and sees the nearer part of the Earth's equatorial bulge
+below centre and the further part above centre.
+Although the Earth is in free fall,
+the gravitational force on the nearer part of the
+equatorial bulge is greater than that on the further part, and
+so there is a net torque acting
+as if to eliminate the tilt.  Six months later the same thing
+is happening in reverse, except that the torque is still
+trying to eliminate the tilt.  In between (at the equinoxes) the
+torque shrinks to zero.  A torque acting on a spinning body
+is gyroscopically translated
+into a precessional motion of the spin axis at right-angles to the torque,
+and this happens to the Earth.
+The motion varies during the
+year, going through two maxima, but always acts in the
+same direction.  The Moon produces the same effect,
+adding a contribution to the precession which peaks twice
+per month.  The Moon's proximity to the Earth more than compensates
+for its smaller mass and gravitational attraction, so that it
+in fact contributes most of the precessional effect.
+
+The complex interactions between the three bodies produce a
+precessional motion that is wobbly rather than completely smooth.
+However, the main 26,000-year component is on such a grand scale that
+it dwarfs the remaining terms, the biggest of
+which has an amplitude of only \arcseci{17} and a period of
+about 18.6~years.  This difference of scale makes it convenient to treat
+these two components of the motion separately.  The main 26,000-year
+effect is called {\it luni-solar precession};  the smaller,
+faster, periodic terms are called the {\it nutation}.
+
+Note that precession and nutation are simply
+different frequency components of the same physical effect.  It is
+a common misconception that precession is caused
+by the Sun and nutation is caused by the Moon.  In fact
+the Moon is responsible for two-thirds of the precession, and,
+while it is true that much of the complex detail of the nutation is
+a reflection of the intricacies of the lunar orbit, there are
+nonetheless important solar terms in the nutation.
+
+In addition to and quite separate
+from the precession/nutation effect, the orbit of the Earth-Moon system
+is not fixed in orientation, a result of the attractions of the
+planets.  This slow (about \arcsec{0}{5}~per~year)
+secular rotation of the ecliptic about a slowly-moving diameter is called,
+confusingly, {\it planetary
+precession}\/ and, along with the luni-solar precession is
+included in the {\it general precession}.  The equator and
+ecliptic as affected by general precession
+are what define the various ``mean'' \radec\ reference frames.
+
+The models for precession and nutation come from a combination
+of observation and theory, and are subject to continuous
+refinement.  Nutation models in particular have reached a high
+degree of sophistication, taking into account such things as
+the non-rigidity of the Earth and the effects of
+the planets; SLALIB's nutation
+model (IAU~1980) involves 106 terms in each of $\psi$ (longitude)
+and $\epsilon$ (obliquity), some as small as \arcsec{0}{0001}.
+
+\subsubsection{SLALIB support for precession and nutation}
+SLALIB offers a choice of three precession models:
+\begin{itemize}
+\item The old Bessel-Newcomb, pre IAU~1976, ``FK4'' model, used for B1950
+      star positions and other pre-1984.0 purposes
+(sla\_PREBN).
+\item The new Fricke, IAU~1976, ``FK5'' model, used for J2000 star
+      positions and other post-1984.0 purposes
+(sla\_PREC).
+\item A model published by Simon {\it et al.}\ which is more accurate than
+      the IAU~1976 model and which is suitable for long
+      periods of time
+(sla\_PRECL).
+\end{itemize}
+In each case, the named SLALIB routine generates the $(3\times3)$
+{\it precession
+matrix}\/ for a given start and finish time.  For example,
+here is the Fortran code for generating the rotation
+matrix which describes the precession between the epochs
+J2000 and J1985.372 (IAU 1976 model):
+\goodbreak
+\begin{verbatim}
+            DOUBLE PRECISION PMAT(3,3)
+             :
+            CALL sla_PREC(2000D0,1985.372D0,PMAT)
+\end{verbatim}
+\goodbreak
+It is instructive to examine the resulting matrix:
+\goodbreak
+\begin{verbatim}
+            +0.9999936402  +0.0032709208  +0.0014214694
+            -0.0032709208  +0.9999946505  -0.0000023247
+            -0.0014214694  -0.0000023248  +0.9999989897
+\end{verbatim}
+\goodbreak
+Note that the diagonal elements are close to unity, and the
+other elements are small.  This shows that over an interval as
+short as 15~years the precession isn't going to move a
+position vector very far (in this case about \degree{0}{2}).
+
+For convenience, a direct \radec\ to \radec\ precession routine is
+also provided
+(sla\_PRECES),
+suitable for either the old or the new system (but not a
+mixture of the two).
+
+SLALIB provides only one nutation model, the new, IAU~1980 model,
+implemented in the routine
+sla\_NUTC.
+This returns the components of nutation
+in longitude and latitude (and also provides the obliquity) from
+which a nutation matrix can be generated by calling
+sla\_DEULER
+(and from which the {\it equation of the equinoxes}, described
+later, can be found).  Alternatively,
+the nutation matrix can be generated in a single call by using
+sla\_NUT.
+
+A rotation matrix for applying the entire precession/nutation
+transformation in one go can be generated by calling
+sla\_PRENUT.
+
+\subsection{Mean Places}
+The main effect of the precession/nutation is a steady increase of about
+\arcseci{50}/year in the ecliptic longitudes of the stars.  It is therefore
+essential, when reporting the position of an astronomical target, to
+qualify the coordinates with a date, or {\it epoch}.
+Specifying the epoch ties down the equator and
+equinox which define the \radec\ coordinate system that is
+being used.
+\footnote{An equinox is, however, not required for coordinates
+in the International Celestial Reference System.  Such coordinates must
+be labelled simply ``ICRS'', or the specific catalogue can be mentioned,
+such as ``Hipparcos'';  constructions such as ``Hipparcos, J2000'' are
+redundant and misleading.}  For simplicity, only
+the smooth and steady ``general
+precession'' part of the complete precession/nutation effect is
+included, thereby defining what is called the {\it mean}\/
+equator and equinox for the epoch concerned.  We say a star
+has a mean place of (for example)
+\hms{12}{07}{58}{09}~\dms{-19}{44}{37}{1} ``with respect to the mean equator
+and equinox of epoch J2000''.  The short way of saying
+this is ``\radec\ equinox J2000'' ({\bf not} ``\radec\ epoch J2000'', 
+which means something different to do with
+proper motion).
+
+\subsection{Epoch}
+The word ``epoch'' just means a moment in time, and can be supplied
+in a variety of forms, using different calendar systems and timescales.
+
+For the purpose of specifying the epochs associated with the
+mean place of a star, two conventions exist.  Both sorts of epoch
+superficially resemble years AD but are not tied to the civil
+(Gregorian) calendar;  to distinguish them from ordinary calendar-years
+there is often
+a ``.0'' suffix (as in ``1950.0''), although any other fractional
+part is perfectly legal ({\it e.g.}\ 1987.5).
+
+The older system,
+{\it Besselian epoch}, is defined in such a way that its units are
+tropical years of about 365.2422~days and its timescale is the
+obsolete {\it Ephemeris Time}.
+The start of the Besselian year is the moment
+when the ecliptic longitude of the mean Sun is
+$280^{\circ}$;  this happens near the start of the
+calendar year (which is why $280^{\circ}$ was chosen).
+
+The new system, {\it Julian epoch}, was adopted as
+part of the IAU~1976 revisions (about which more will be said
+in due course) and came formally into use at the
+beginning of 1984.  It uses the Julian year of exactly
+365.25~days; Julian epoch 2000 is defined to be 2000~January~1.5 in the
+TT timescale.
+
+For specifying mean places, various standard epochs are in use, the
+most common ones being Besselian epoch 1950.0 and Julian epoch 2000.0.
+To distinguish the two systems, Besselian epochs
+are now prefixed ``B'' and Julian epochs are prefixed ``J''.
+Epochs without an initial letter can be assumed to be Besselian
+if before 1984.0, otherwise Julian.  These details are supported by
+the SLALIB routines
+sla\_DBJIN
+(decodes numbers from a
+character string, accepting an optional leading B or J),
+sla\_KBJ
+(decides whether B or J depending on prefix or range) and
+sla\_EPCO
+(converts one epoch to match another).
+
+SLALIB has four routines for converting
+Besselian and Julian epochs into other forms.
+The functions
+sla\_EPB2D
+and
+sla\_EPJ2D
+convert Besselian and Julian epochs into MJD; the functions
+sla\_EPB
+and
+sla\_EPJ
+do the reverse.  For example, to express B1950 as a Julian epoch:
+\goodbreak
+\begin{verbatim}
+            DOUBLE PRECISION sla_EPJ,sla_EPB2D
+             :
+            WRITE (*,'(1X,''J'',F10.5)') sla_EPJ(sla_EPB2D(1950D0))
+\end{verbatim}
+\goodbreak
+(The answer is J1949.99979.)
+
+\subsection{Proper Motion}
+Stars in catalogues usually have, in addition to the 
+\radec\  coordinates, a {\it proper motion} $[\mu_\alpha,\mu_\delta]$.
+This is an intrinsic motion
+of the star across the background.  Very few stars have a
+proper motion which exceeds \arcseci{1}/year, and most are
+far below this level.  A star observed as part of normal
+astronomy research will, as a rule, have a proper motion
+which is unknown.
+
+Mean \radec\ and rate of change are not sufficient to pin
+down a star;  the epoch at which the \radec\ was or will
+be correct is also needed.  Note the distinction
+between the epoch which specifies the
+coordinate system and the epoch at which the star passed
+through the given \radec.  The full specification for a star
+is \radec, proper motions, equinox and epoch (plus something to
+identify which set of models for the precession {\it etc.}\ is 
+being used -- see the next section).
+For convenience, coordinates given in star catalogues are almost
+always adjusted to make the equinox and epoch the same -- for
+example B1950 in the case of the SAO~catalogue.
+
+SLALIB provides one routine to handle proper motion on its own,
+sla\_PM.
+Proper motion is also allowed for in various other
+routines as appropriate, for example
+sla\_MAP
+and
+sla\_FK425.
+Note that in all SLALIB routines which involve proper motion
+the units are radians per year and the
+$\alpha$ component is in the form $\dot{\alpha}$ ({\it i.e.}\ big
+numbers near the poles).
+Some star catalogues have proper motion per century, and
+in some catalogues the $\alpha$ component is in the form
+$\dot{\alpha}\cos\delta$ ({\it i.e.}\ angle on the sky).
+
+\subsection{Parallax and Radial Velocity}
+For the utmost accuracy and the nearest stars, allowance can
+be made for {\it annual parallax}\/ and for the effects of perspective
+on the proper motion.
+
+Parallax is appreciable only for nearby stars;  even
+the nearest, Proxima Centauri, is displaced from its average
+position by less than
+an arcsecond as the Earth revolves in its orbit.
+
+For stars with a known parallax, knowledge of the radial velocity
+allows the proper motion to be expressed as an actual space
+motion in 3~dimensions.  The proper motion is,
+in fact, a snapshot of the transverse component of the
+space motion, and in the case of nearby stars will
+change with time due to perspective.
+
+SLALIB does not provide facilities for handling parallax
+and radial-velocity on their own, but their contribution is
+allowed for in such routines as
+sla\_PM,
+sla\_MAP
+and
+sla\_FK425.
+Catalogue mean
+places do not include the effects of parallax and are therefore
+{\it barycentric};  when pointing telescopes {\it etc.}\ it is 
+usually most efficient to apply the slowly-changing
+parallax correction to the mean place of the target early on
+and to work with the {\it geocentric}\/ mean place.  This latter
+approach is implied in Figure~1.
+
+\subsection{Aberration}
+The finite speed of light combined with the motion of the observer
+around the Sun during the year causes apparent displacements of
+the positions of the stars.  The effect is called
+the {\it annual aberration} (or ``stellar''
+aberration).  Its maximum size, about \arcsec{20}{5},
+occurs for stars $90^{\circ}$ from the point towards which
+the Earth is headed as it orbits the Sun;  a star exactly in line with
+the Earth's motion is not displaced.  To receive the light of
+a star, the telescope has to be offset slightly in the direction of
+the Earth's motion.  A familiar analogy is the need to tilt your
+umbrella forward when on the move, to avoid getting wet.  This
+Newtonian model is,
+in fact, highly misleading in the context of light as opposed
+to rain, but happens to give the same answer as a relativistic
+treatment to first order (better than 1~milliarcsecond).
+
+Before the IAU 1976 resolutions, different
+values for the approximately
+\arcsec{20}{5} {\it aberration constant}\/ were employed
+at different times, and this can complicate comparisons
+between different catalogues.  Another complication comes from
+the so-called {\it E-terms of aberration},
+that small part of the annual aberration correction that is a
+function of the eccentricity of the Earth's orbit.  The E-terms,
+maximum amplitude about \arcsec{0}{3},
+happen to be approximately constant for a given star, and so they
+used to be incorporated in the catalogue \radec\/
+to reduce the labour of converting to and from apparent place.
+The E-terms can be removed from a catalogue \radec\/ by
+calling
+sla\_SUBET
+or applied (for example to allow a pulsar
+timing-position to be plotted on a B1950 finding chart)
+by calling
+sla\_ADDET;
+the E-terms vector itself can be obtained by calling
+sla\_ETRMS.
+Star positions post IAU 1976 are free of these distortions, and to
+apply corrections for annual aberration involves the actual
+barycentric velocity of the Earth rather than the use of
+canonical circular-orbit models.
+
+The annual aberration is the aberration correction for
+an imaginary observer at the Earth's centre.
+The motion of a real observer around the Earth's rotation axis in
+the course of the day makes a small extra contribution to the total
+aberration effect called the {\it diurnal aberration}.  Its
+maximum amplitude is about \arcsec{0}{2}.
+
+No SLALIB routine is provided for calculating the aberration on
+its own, though the required velocity vectors can be
+generated using
+sla\_EVP
+and
+sla\_GEOC.
+Annual and diurnal aberration are allowed for where required, for example in
+sla\_MAP
+{\it etc}.\ and
+sla\_AOP
+{\it etc}.  Note that this sort
+of aberration is different from the {\it planetary
+aberration}, which is the apparent displacement of a solar-system
+body, with respect to the ephemeris position, as a consequence
+of the motion of {\it both}\/ the Earth and the source.  The
+planetary aberration can be computed either by correcting the
+position of the solar-system body for light-time, followed by
+the ordinary stellar aberration correction, or more
+directly by expressing the position and velocity of the source
+in the observer's frame and correcting for light-time alone.
+
+\subsection{Different Sorts of Mean Place}
+A particularly confusing aspect of published mean places is that they
+are sensitive to the precise way they were determined.  A mean
+place is not directly observable, even with fundamental
+instruments such as transit circles, and to produce a mean
+place will involve relying on some existing star catalogue,
+for example the fundamental catalogues FK4 and FK5,
+and applying given mathematical models of precession, nutation,
+aberration and so on.
+Note in particular that no star catalogue,
+even a fundamental catalogue such as FK4 or
+FK5, defines a coordinate system, strictly speaking;
+it is merely a list of star positions and proper motions.
+However, once the stars from a given catalogue
+are used as position calibrators, {\it e.g.}\ for
+transit-circle observations or for plate reductions, then a
+broader sense of there being a coordinate grid naturally
+arises, and such phrases as ``in the system of
+the FK4'' can legitimately be employed.  However,
+there is no formal link between the
+two concepts -- no ``standard least squares fit'' between
+reality and the inevitably flawed catalogues.\footnote{This was
+true until the inception of the International Celestial Reference
+System, which is based on the idea of axes locked into the
+distant background.  The coordinates
+of the extragalactic sources which realize these
+axes have no individual significance; there is a ``no net rotation''
+condition which has to be satisfied each time any revisions take
+place.}  All such
+catalogues suffer at some level from systematic, zonal distortions
+of both the star positions and of the proper motions,
+and include measurement errors peculiar to individual
+stars.
+
+Many of these complications are of little significance except to
+specialists.  However, observational astronomers cannot
+escape exposure to at least the two main varieties of
+mean place, loosely called
+FK4 and FK5, and should be aware of
+certain pitfalls.  For most practical purposes the more recent
+system, FK5, is free of surprises and tolerates naive
+use well.  FK4, in contrast, contains two important traps:
+\begin{itemize}
+\item The FK4 system rotates at about
+      \arcsec{0}{5} per century relative to distant galaxies.
+      This is manifested as a systematic distortion in the
+      proper motions of all FK4-derived catalogues, which will
+      in turn pollute any astrometry done using those catalogues.
+      For example, FK4-based astrometry of a QSO using plates
+      taken decades apart will reveal a non-zero {\it fictitious proper
+      motion}, and any FK4 star which happens to have zero proper
+      motion is, in fact, slowly moving against the distant
+      background.  The FK4 frame rotates because it was
+      established before the nature of the Milky Way, and hence the
+      existence of systematic motions of nearby stars, had been
+      recognized.
+\item Star positions in the FK4 system are part-corrected for
+      annual aberration (see above) and embody the so-called
+      E-terms of aberration.
+\end{itemize}
+The change from the old FK4-based system to FK5
+occurred at the beginning
+of 1984 as part of a package of resolutions made by the IAU in 1976,
+along with the adoption of J2000 as the reference epoch.  Star
+positions in the newer, FK5, system are free from the E-terms, and
+the system is a much better approximation to an
+inertial frame (about five times better).
+
+It may occasionally be convenient to specify the FK4 fictitious proper
+motion directly.  In FK4, the centennial proper motion of (for example)
+a QSO is:
+
+$\mu_\alpha=-$\tsec{0}{015869}$
+          +(($\tsec{0}{029032}$~\sin \alpha
+            +$\tsec{0}{000340}$~\cos \alpha ) \sin \delta
+            -$\tsec{0}{000105}$~\cos \alpha
+            -$\tsec{0}{000083}$~\sin \alpha ) \sec \delta $ \\
+$\mu_\delta\,=+$\arcsec{0}{43549}$~\cos \alpha
+              -$\arcsec{0}{00510}$~\sin \alpha +
+              ($\arcsec{0}{00158}$~\sin \alpha
+              -$\arcsec{0}{00125}$~\cos \alpha ) \sin \delta
+              -$\arcsec{0}{00066}$~\cos \delta $
+
+\subsection{Mean Place Transformations}
+Figure~1 is based upon three varieties of mean \radec\ all of which are
+of practical significance to observing astronomers in the present era:
+\begin{itemize}
+   \item Old style (FK4) with known proper motion in the FK4
+         system, and with parallax and radial velocity either
+         known or assumed zero.
+   \item Old style (FK4) with zero proper motion in FK5,
+         and with parallax and radial velocity assumed zero.
+   \item New style (FK5) with proper motion, parallax and
+         radial velocity either known or assumed zero.
+\end{itemize}
+The figure outlines the steps required to convert positions in
+any of these systems to a J2000 \radec\ for the current
+epoch, as might be required in a telescope-control
+program for example.
+Most of the steps can be carried out by calling a single
+SLALIB routines;  there are other SLALIB routines which
+offer set-piece end-to-end transformation routines for common cases.
+Note, however, that SLALIB does not set out to provide the capability
+for arbitrary transformations of star-catalogue data
+between all possible systems of mean \radec.
+Only in the (common) cases of FK4, equinox and epoch B1950,
+to FK5, equinox and epoch J2000, and {\it vice versa}\/ are
+proper motion, parallax and radial velocity transformed
+along with the star position itself, the
+focus of SLALIB support.
+
+As an example of using SLALIB to transform mean places, here is
+a program which implements the top-left path of Figure~1.
+An FK4 \radec\ of arbitrary equinox and epoch and with
+known proper motion and
+parallax is transformed into an FK5 J2000 \radec\ for the current
+epoch.  As a test star we will use $\alpha=$\hms{16}{09}{55}{13},
+$\delta=$\dms{-75}{59}{27}{2}, equinox 1900, epoch 1963.087,
+$\mu_\alpha=$\tsec{-0}{0312}$/y$, $\mu_\delta=$\arcsec{+0}{103}$/y$,
+parallax = \arcsec{0}{062}, radial velocity = $-34.22$~km/s.  The
+epoch of observation is 1994.35.
+\goodbreak
+\begin{verbatim}
+            IMPLICIT NONE
+            DOUBLE PRECISION AS2R,S2R
+            PARAMETER (AS2R=4.8481368110953599D-6,S2R=7.2722052166430399D-5)
+            INTEGER J,I
+            DOUBLE PRECISION R0,D0,EQ0,EP0,PR,PD,PX,RV,EP1,R1,D1,R2,D2,R3,D3,
+           :                 R4,D4,R5,D5,R6,D6,EP1D,EP1B,W(3),EB(3),PXR,V(3)
+            DOUBLE PRECISION sla_EPB,sla_EPJ2D
+
+      *  RA, Dec etc of example star
+            CALL sla_DTF2R(16,09,55.13D0,R0,J)
+            CALL sla_DAF2R(75,59,27.2D0,D0,J)
+            D0=-D0
+            EQ0=1900D0
+            EP0=1963.087D0
+            PR=-0.0312D0*S2R
+            PD=+0.103D0*AS2R
+            PX=0.062D0
+            RV=-34.22D0
+            EP1=1994.35D0
+
+      *  Epoch of observation as MJD and Besselian epoch
+            EP1D=sla_EPJ2D(EP1)
+            EP1B=sla_EPB(EP1D)
+
+      *  Space motion to the current epoch
+            CALL sla_PM(R0,D0,PR,PD,PX,RV,EP0,EP1B,R1,D1)
+
+      *  Remove E-terms of aberration for the original equinox
+            CALL sla_SUBET(R1,D1,EQ0,R2,D2)
+
+      *  Precess to B1950
+            R3=R2
+            D3=D2
+            CALL sla_PRECES('FK4',EQ0,1950D0,R3,D3)
+
+      *  Add E-terms for the standard equinox B1950
+            CALL sla_ADDET(R3,D3,1950D0,R4,D4)
+
+      *  Transform to J2000, no proper motion
+            CALL sla_FK45Z(R4,D4,EP1B,R5,D5)
+
+      *  Parallax
+            CALL sla_EVP(sla_EPJ2D(EP1),2000D0,W,EB,W,W)
+            PXR=PX*AS2R
+            CALL sla_DCS2C(R5,D5,V)
+            DO I=1,3
+               V(I)=V(I)-PXR*EB(I)
+            END DO
+            CALL sla_DCC2S(V,R6,D6)
+             :
+\end{verbatim}
+\goodbreak
+It is interesting to look at how the \radec\ changes during the
+course of the calculation:
+\begin{tabbing}
+xxxxxxxxxxxxxx \= xxxxxxxxxxxxxxxxxxxxxxxxx \= x \= \kill
+\> {\tt 16 09 55.130 -75 59 27.20} \> \> {\it original equinox and epoch} \\
+\> {\tt 16 09 54.155 -75 59 23.98} \> \> {\it with space motion} \\
+\> {\tt 16 09 54.229 -75 59 24.18} \> \> {\it with old E-terms removed} \\
+\> {\tt 16 16 28.213 -76 06 54.57} \> \> {\it precessed to 1950.0} \\
+\> {\tt 16 16 28.138 -76 06 54.37} \> \> {\it with new E-terms} \\
+\> {\tt 16 23 07.901 -76 13 58.87} \> \> {\it J2000, current epoch} \\
+\> {\tt 16 23 07.907 -76 13 58.92} \> \> {\it including parallax}
+\end{tabbing}
+
+Other remarks about the above (unusually complicated) example:
+\begin{itemize}
+\item If the original equinox and epoch were B1950, as is quite
+      likely, then it would be unnecessary to treat space motions
+      and E-terms explicitly.  Transformation to FK5 J2000 could
+      be accomplished simply by calling
+sla\_FK425, after which
+      a call to
+sla\_PM and the parallax code would complete the
+      work.
+\item The rigorous treatment of the E-terms
+      has only a small effect on the result.  Such refinements
+      are, nevertheless, worthwhile in order to facilitate comparisons and
+      to increase the chances that star positions from different
+      suppliers are compatible.
+\item The FK4 to FK5 transformations,
+sla\_FK425
+      and
+sla\_FK45Z,
+      are not as is sometimes assumed simply 50 years of precession,
+      though this indeed accounts for most of the change.  The
+      transformations also include adjustments
+      to the equinox, a revised precession model, elimination of the
+      E-terms, a change to the proper-motion time unit and so on.
+      The reason there are two routines rather than just one
+      is that the FK4 frame rotates relative to the background, whereas
+      the FK5 frame is a much better approximation to an
+      inertial frame, and zero proper
+      motion in FK4 does not, therefore, mean zero proper motion in FK5.
+      SLALIB also provides two routines,
+sla\_FK524
+      and
+sla\_FK54Z,
+      to perform the inverse transformations.
+\item Some star catalogues (FK4 itself is one) were constructed using slightly
+      different procedures for the polar regions compared with
+      elsewhere.  SLALIB ignores this inhomogeneity and always
+      applies the standard
+      transformations irrespective of location on the celestial sphere.
+\end{itemize}
+
+\subsection {Mean Place to Apparent Place}
+The {\it geocentric apparent place}\/ of a source, or {\it apparent place}\/
+for short,
+is the \radec\ if viewed from the centre of the Earth,
+with respect to the true equator and equinox of date.
+Transformation of an FK5 mean \radec, equinox J2000,
+current epoch, to apparent place involves the following effects:
+\goodbreak
+\begin{itemize}
+   \item Light deflection -- the gravitational lens effect of
+         the sun.
+   \item Annual aberration.
+   \item Precession/nutation.
+\end{itemize}
+The {\it light deflection}\/ is seldom significant.  Its value
+at the limb of the Sun is about
+\arcsec{1}{74};  it falls off rapidly with distance from the
+Sun and has shrunk to about
+\arcsec{0}{02} at an elongation of $20^\circ$.
+
+As already described, the {\it annual aberration}\/
+is a function of the Earth's velocity
+relative to the solar system barycentre (available through the
+SLALIB routine
+sla\_EVP)
+and produces shifts of up to about \arcsec{20}{5}.
+
+The {\it precession/nutation}, from J2000 to the current epoch, is
+expressed by a rotation matrix which is available through the
+SLALIB routine
+sla\_PRENUT.
+
+The whole mean-to-apparent transformation can be done using the SLALIB
+routine
+sla\_MAP.  As a demonstration, here is a program which lists the
+{\it North Polar Distance}\/ ($90^\circ-\delta$) of Polaris for
+the decade of closest approach to the Pole:
+\goodbreak
+\begin{verbatim}
+            IMPLICIT NONE
+            DOUBLE PRECISION PI,PIBY2,D2R,S2R,AS2R
+            PARAMETER (PI=3.141592653589793238462643D0)
+            PARAMETER (D2R=PI/180D0,
+           :           PIBY2=PI/2D0,
+           :           S2R=PI/(12D0*3600D0),
+           :           AS2R=PI/(180D0*3600D0))
+            DOUBLE PRECISION RM,DM,PR,PD,DATE,RA,DA
+            INTEGER J,IDS,IDE,ID,IYMDF(4),I
+            DOUBLE PRECISION sla_EPJ2D
+
+            CALL sla_DTF2R(02,31,49.8131D0,RM,J)
+            CALL sla_DAF2R(89,15,50.661D0,DM,J)
+            PR=+21.7272D0*S2R/100D0
+            PD=-1.571D0*AS2R/100D0
+            WRITE (*,'(1X,'//
+           :            '''Polaris north polar distance (deg) 2096-2105''/)')
+            WRITE (*,'(4X,''Date'',7X''NPD''/)')
+            CALL sla_CLDJ(2096,1,1,DATE,J)
+            IDS=NINT(DATE)
+            CALL sla_CLDJ(2105,12,31,DATE,J)
+            IDE=NINT(DATE)
+            DO ID=IDS,IDE,10
+               DATE=DBLE(ID)
+               CALL sla_DJCAL(0,DATE,IYMDF,J)
+               CALL sla_MAP(RM,DM,PR,PD,0D0,0D0,2000D0,DATE,RA,DA)
+               WRITE (*,'(1X,I4,2I3.2,F9.5)') (IYMDF(I),I=1,3),(PIBY2-DA)/D2R
+            END DO
+
+            END
+\end{verbatim}
+\goodbreak
+For cases where the transformation has to be repeated for different
+times or for more than one star, the straightforward
+sla\_MAP
+approach is apt to be
+wasteful as both the Earth velocity and the
+precession/nutation matrix can be re-calculated relatively
+infrequently without ill effect.  A more efficient method is to
+perform the target-independent calculations only when necessary,
+by calling
+sla\_MAPPA,
+and then to use either
+sla\_MAPQKZ,
+when only the \radec\/ is known, or
+sla\_MAPQK,
+when full catalogue positions, including proper motion, parallax and
+radial velocity, are available.  How frequently to call
+sla\_MAPPA
+depends on the accuracy objectives;  once per
+night will deliver sub-arcsecond accuracy for example.
+
+The routines
+sla\_AMP
+and
+sla\_AMPQK
+allow the reverse transformation, from apparent to mean place.
+
+\subsection{Apparent Place to Observed Place}
+The {\it observed place}\/ of a source is its position as
+seen by a perfect theodolite at the location of the
+observer.  Transformation of an apparent \radec\ to observed 
+place involves the following effects:
+\goodbreak
+\begin{itemize}
+   \item \radec\ to \hadec.
+   \item Diurnal aberration.
+   \item \hadec\ to \azel.
+   \item Refraction.
+\end{itemize}
+The transformation from apparent \radec\ to
+apparent \hadec\ is made by allowing for
+{\it Earth rotation}\/ through the {\it sidereal time}, $\theta$:
+\[ h = \theta - \alpha \]
+For this equation to work, $\alpha$ must be the apparent right
+ascension for the time of observation, and $\theta$ must be
+the {\it local apparent sidereal time}.  The latter is obtained
+as follows:
+\begin{enumerate}
+\item from civil time obtain the coordinated universal time, UTC
+      (more later on this);
+\item add the UT1$-$UTC (typically a few tenths of a second) to
+      give the UT;
+\item from the UT compute the Greenwich mean sidereal time (using
+sla\_GMST);
+\item add the observer's (east) longitude, giving the local mean
+      sidereal time;
+\item add the equation of the equinoxes (using
+sla\_EQEQX).
+\end{enumerate}
+The {\it equation of the equinoxes}\/~($=\Delta\psi\cos\epsilon$ plus
+small terms)
+is the effect of nutation on the sidereal time.
+Its value is typically a second or less.  It is
+interesting to note that if the object of the exercise is to
+transform a mean place all the way into an observed place (very
+often the case),
+then the equation of the
+equinoxes and the longitude component of nutation can both be
+omitted, removing a great deal of computation.  However, SLALIB
+follows the normal convention and  works {\it via}\/ the apparent place.
+
+Note that for very precise work the observer's longitude should
+be corrected for {\it polar motion}.  This can be done with
+sla\_POLMO.
+The corrections are always less than about \arcsec{0}{3}, and
+are futile unless the position of the observer's telescope is known
+to better than a few metres.
+
+Tables of observed and
+predicted UT1$-$UTC corrections and polar motion data
+are published every few weeks by the International Earth Rotation Service.
+
+The transformation from apparent \hadec\ to {\it topocentric}\/
+\hadec\ consists of allowing for
+{\it diurnal aberration}.  This effect, maximum amplitude \arcsec{0}{2},
+was described earlier.  There is no specific SLALIB routine
+for computing the diurnal aberration,
+though the routines
+sla\_AOP {\it etc.}\
+include it, and the required velocity vector can be
+determined by calling
+sla\_GEOC.
+
+The next stage is the major coordinate rotation from local equatorial
+coordinates \hadec\ into horizon coordinates.  The SLALIB routines
+sla\_E2H
+{\it etc.}\ can be used for this.  For high-precision
+applications the mean geodetic latitude should be corrected for polar
+motion.
+
+\subsubsection{Refraction}
+The final correction is for atmospheric refraction.
+This effect, which depends on local meteorological conditions and
+the effective colour of the source/detector combination,
+increases the observed elevation of the source by a
+significant effect even at moderate zenith distances, and near the
+horizon by over \degree{0}{5}.  The amount of refraction can by
+computed by calling the SLALIB routine
+sla\_REFRO;
+however,
+this requires as input the observed zenith distance, which is what
+we are trying to predict.  For high precision it is
+therefore necessary to iterate, using the topocentric
+zenith distance as the initial estimate of the
+observed zenith distance.
+
+The full
+sla\_REFRO refraction calculation is onerous, and for
+zenith distances of less than, say, $75^{\circ}$ the following
+model can be used instead:
+
+\[ \zeta _{vac} \approx \zeta _{obs}
+                     + A \tan \zeta _{obs}
+                     + B \tan ^{3}\zeta _{obs} \]
+where $\zeta _{vac}$ is the topocentric
+zenith distance (i.e.\ {\it in vacuo}),
+$\zeta _{obs}$ is the observed
+zenith distance (i.e.\ affected by refraction), and $A$ and $B$ are
+constants, about \arcseci{60}
+and \arcsec{-0}{06} respectively for a sea-level site.
+The two constants can be calculated for a given set of conditions
+by calling either
+sla\_REFCO or
+sla\_REFCOQ.
+
+sla\_REFCO works by calling
+sla\_REFRO for two zenith distances and fitting $A$ and $B$
+to match.  The calculation is onerous, but delivers accurate
+results whatever the conditions.
+sla\_REFCOQ uses a direct formulation of $A$ and $B$ and
+is much faster;  it is slightly less accurate than
+sla\_REFCO but more than adequate for most practical purposes.
+
+Like the full refraction model, the two-term formulation works in the wrong
+direction for our purposes, predicting
+the {\it in vacuo}\/ (topocentric) zenith distance
+given the refracted (observed) zenith distance,
+rather than {\it vice versa}.  The obvious approach of
+interchanging $\zeta _{vac}$ and $\zeta _{obs}$ and
+reversing the signs, though approximately
+correct, gives avoidable errors which are just significant in
+some applications;  for
+example about \arcsec{0}{2} at $70^\circ$ zenith distance.  A
+much better result can easily be obtained, by using one Newton-Raphson
+iteration as follows:
+
+\[ \zeta _{obs} \approx \zeta _{vac}
+    - \frac{A \tan \zeta _{vac} + B \tan ^{3}\zeta _{vac}}
+    {1 + ( A + 3 B \tan ^{2}\zeta _{vac} ) \sec ^{2}\zeta _{vac}}\]
+
+The effect of refraction can be applied to an unrefracted
+zenith distance by calling
+sla\_REFZ or to an unrefracted
+\xyz\ by calling
+sla\_REFV.
+Over most of the sky these two routines deliver almost identical
+results, but beyond $\zeta=83^\circ$
+sla\_REFV
+becomes unacceptably inaccurate while
+sla\_REFZ
+remains usable.  (However
+sla\_REFV
+is significantly faster, which may be important in some applications.)
+SLALIB also provides a routine for computing the airmass, the function
+sla\_AIRMAS.
+
+The refraction ``constants'' returned by
+sla\_REFCO and
+sla\_REFCOQ
+are slightly affected by colour, especially at the blue end
+of the spectrum.  Where values for more than one
+wavelength are needed, rather than calling
+sla\_REFCO
+several times it is more efficient to call
+sla\_REFCO
+just once, for a selected ``base'' wavelength, and then to call
+sla\_ATMDSP
+once for each wavelength of interest.
+
+All the SLALIB refraction routines work for radio wavelengths as well
+as the optical/IR band.  The radio refraction is very dependent on
+humidity, and an accurate value must be supplied.  There is no
+wavelength dependence, however.  The choice of optical/IR or
+radio is made by specifying a wavelength greater than $100\mu m$
+for the radio case.
+
+\subsubsection{Efficiency considerations}
+The complete apparent place to observed place transformation
+can be carried out by calling
+sla\_AOP.
+For improved efficiency
+in cases of more than one star or a sequence of times, the
+target-independent calculations can be done once by
+calling
+sla\_AOPPA,
+the time can be updated by calling
+sla\_AOPPAT,
+and
+sla\_AOPQK
+can then be used to perform the
+apparent-to-observed transformation.  The reverse transformation
+is available through
+sla\_OAP
+and
+sla\_OAPQK.
+({\it n.b.}\ These routines use accurate but computationally-expensive
+refraction algorithms for zenith distances beyond about $76^\circ$.
+For many purposes, in-line code tailored to the accuracy requirements
+of the application will be preferable, for example ignoring UT1$-$UTC,
+omitting diurnal aberration and using
+sla\_REFZ
+to apply the refraction.)
+
+\subsection{The Hipparcos Catalogue and the ICRS}
+With effect from the beginning of 1998, the IAU adopted a new
+reference system to replace FK5 J2000.  The new system, called the
+International Celestial Reference System (ICRS), differs profoundly
+from all predecessors in that the link with solar-system dynamics
+was broken;  the ICRS axes are defined in terms of the directions
+of a set of extragalactic sources, not in terms of the mean equator and
+equinox at a given reference epoch.  Although the ICRS and FK5 coordinates
+of any given object are almost the same, the orientation of the new frame
+was essentially arbitrary, and the close match to FK5 J2000 was contrived
+purely for reasons of continuity and convenience.
+
+A distinction is made between the reference {\it system}\/ (the ICRS)
+and {\it frame}\/ (ICRF).  The ICRS is the set of prescriptions and
+conventions together with the modelling required to define, at any
+time, a triad of axes.  The ICRF is a practical realization, and
+currently consists of a catalogue of equatorial coordinates for 608
+extragalactic radio sources observed by VLBI.
+
+The best optical realization of the ICRF currently available is the
+Hipparcos catalogue.  The extragalactic sources were not directly
+observable by the Hipparcos satellite and so the link from Hipparcos
+to ICRF was established through a variety of indirect techniques: VLBI and
+conventional interferometry of radio stars, photographic astrometry
+and so on.  The Hipparcos frame is aligned to the ICRF to within about
+0.5~mas and 0.5~mas/year (at epoch 1991.25).
+
+The Hipparcos catalogue includes all of the FK5 stars, which has enabled
+the orientation and spin of the latter to be studied.  At epoch J2000,
+the misalignment of the FK5 frame with respect to Hipparcos
+(and hence ICRS) are about 32~mas and 1~mas/year respectively.
+Consequently, for many practical purposes, including pointing
+telescopes, the IAU 1976-1982 conventions on reference frames and
+Earth orientation remain adequate and there is no need to change to
+Hipparcos coordinates, new precession/nutation models and so on.
+However, for the most exacting astrometric applications, SLALIB
+provides some support for Hipparcos coordinates in the form of
+four new routines:
+sla\_FK52H and
+sla\_H2FK5,
+which transform FK5 positions and proper motions to the Hipparcos frame
+and {\it vice versa,}\/ and
+sla\_FK5HZ and
+sla\_HFK5Z,
+where the transformations are for stars whose Hipparcos proper motion is
+zero. 
+
+Further information on the ICRS can be found in the paper by M.\,Feissel
+and F.\,Mignard, Astron.\,Astrophys. 331, L33-L36 (1988).
+
+\subsection{Timescales}
+SLALIB provides for conversion between several timescales, and involves
+use of one or two others.  The full list is as follows:
+\begin{itemize}
+\item TAI: International Atomic Time
+\item UTC: Coordinated Universal Time
+\item UT: Universal Time
+\item GMST: Greenwich Mean Sidereal Time
+\item LAST: Local Apparent Sidereal Time
+\item TT: Terrestrial Time
+\item TDB: Barycentric Dynamical Time.
+\end{itemize}
+Three obsolete timescales should be mentioned here to avoid confusion.
+\begin{itemize}
+\item GMT: Greenwich Mean Time -- can mean either UTC or UT.
+\item ET: Ephemeris Time -- more or less the same as either TT or TDB.
+\item TDT: Terrestrial Dynamical Time -- former name of TT.
+\end{itemize}
+
+\subsubsection{Atomic Time: TAI}
+{\it International Atomic Time}\/ TAI is a laboratory timescale.  Its
+unit is the SI second, which is defined in terms of a
+defined number
+of wavelengths of the radiation produced by a certain electronic
+transition in the caesium 133 atom.  It
+is realized through a changing
+population of high-precision atomic clocks held
+at standards institutes in various countries.  There is an
+elaborate process of continuous intercomparison, leading to
+a weighted average of all the clocks involved.
+
+Though TAI shares the same second as the more familiar UTC, the
+two timescales are noticeably separated in epoch because of the
+build-up of leap seconds.  At the time of writing, UTC
+lags about half a minute behind TAI.
+
+For any given date, the difference TAI$-$UTC
+can be obtained by calling the SLALIB routine
+sla\_DAT.
+Note, however, that an up-to-date copy of the routine must be used if
+the most recent leap seconds are required.  For applications
+where this is critical, mechanisms independent of SLALIB
+and under local control must
+be set up;  in such cases
+sla\_DAT
+can be useful as an
+independent check, for test dates within the range of the
+available version.  Up-to-date information on TAI$-$UTC is available
+from {\tt ftp://maia.usno.navy.mil/ser7/tai-utc.dat}.
+
+\subsubsection{Universal Time: UTC, UT1}
+{\it Coordinated Universal Time}\/ UTC is the basis of civil timekeeping.
+Most time zones differ from UTC by an integer number
+of hours, though a few ({\it e.g.}\ parts of Canada and Australia) differ
+by $n+0.5$~hours.  The UTC second is the same as the SI second,
+as for TAI.  In the long term, UTC keeps in step with the
+Sun.  It does so even though the Earth's rotation is slightly
+variable (due to large scale movements of water and atmosphere
+among other things) by occasionally introducing a {\it leap
+second}.
+
+{\it Universal Time}\/ UT, or more specifically UT1,
+is in effect the mean solar time.  It is continuous
+({\it i.e.}\ there are no leap seconds) but has a variable
+rate because of the Earth's non-uniform rotation period.  It is
+needed for computing the sidereal time, an essential part of
+pointing a telescope at a celestial source.  To obtain UT1, you
+have to look up the value of UT1$-$UTC for the date concerned
+in tables published by the International Earth Rotation
+Service;  this quantity, kept in the range
+$\pm$\tsec{0}{9} by means of UTC leap
+seconds, is then added to the UTC.  The quantity UT1$-$UTC,
+which typically changes by 1 or 2~ms per day,
+can only be obtained by observation, though seasonal trends
+are known and the IERS listings are able to predict some way into
+the future with adequate accuracy for pointing telescopes.
+
+UTC leap seconds are introduced as necessary,
+usually at the end of December or June.
+On the average the solar day is slightly longer
+than the nominal 86,400~SI~seconds and so leap seconds are always positive;
+however, provision exists for negative leap seconds if needed.
+The form of a leap second can be seen from the
+following description of the end of June~1994:
+
+\hspace{3em}
+\begin{tabular}{clrccc} \\
+     &      &    &   UTC    & UT1$-$UTC  &    UT1       \\ \\
+1994 & June & 30 & 23 59 58 & $-0.218$ & 23 59 57.782 \\
+     &      &    & 23 59 59 & $-0.218$ & 23 59 58.782 \\
+     &      &    & 23 59 60 & $-0.218$ & 23 59 59.782 \\
+     & July &  1 & 00 00 00 & $+0.782$ & 00 00 00.782 \\
+     &      &    & 00 00 01 & $+0.782$ & 00 00 01.782 \\
+\end{tabular}
+
+Note that UTC has to be expressed as hours, minutes and
+seconds (or at least in seconds for a given date) if leap seconds
+are to be taken into account.  It is improper to express a UTC as a
+Julian Date, for example, because there will be an ambiguity
+during a leap second (in the above example,
+1994~June~30 \hms{23}{59}{60}{0} and
+1994~July~1 \hms{00}{00}{00}{0} would {\it both}\/ come out as
+MJD~49534.00000).  Although in the vast majority of
+cases this won't matter, there are potential problems in
+on-line data acquisition systems and in applications involving
+taking the difference between two times.  Note that although the routines
+sla\_DAT
+and
+sla\_DTT
+expect UTC in the form of an MJD, the meaning here is really a
+whole-number {\it date}\/ rather than a time.  Though the routines will accept
+a fractional part and will almost always function correctly, on a day
+which ends with a leap
+second incorrect results would be obtained during the leap second
+itself because by then the MJD would have moved into the next day.
+
+\subsubsection{Sidereal Time: GMST, LAST}
+Sidereal Time is the ``time of day'' relative to the
+stars rather than to the Sun.  After
+one sidereal day the stars come back to the same place in the
+sky, apart from sub-arcsecond precession effects.  Because the Earth
+rotates faster relative to the stars than to the Sun by one day
+per year, the sidereal second is shorter than the solar
+second; the ratio is about 0.9973.
+
+The {\it Greenwich Mean Sidereal Time}\/ GMST is
+linked to UT1 by a numerical formula which
+is implemented in the SLALIB routines
+sla\_GMST
+and
+sla\_GMSTA.
+There are, of course, no leap seconds in GMST, but the second
+changes in length along with the UT1 second, and also varies
+over long periods of time because of slow changes in the Earth's
+orbit.  This makes the timescale unsuitable for everything except
+predicting the apparent directions of celestial sources.
+
+The {\it Local Apparent Sidereal Time}\/ LAST is the apparent right
+ascension of the local meridian, from which the hour angle of any
+star can be determined knowing its $\alpha$.  It can be obtained from the
+GMST by adding the east longitude (corrected for polar motion
+in precise work) and the {\it equation of the equinoxes}.  The
+latter, already described, is an aspect of the nutation effect
+and can be predicted by calling the SLALIB routine
+sla\_EQEQX
+or, neglecting certain very small terms, by calling
+sla\_NUTC
+and using the expression $\Delta\psi\cos\epsilon$.
+
+\subsubsection{Dynamical Time: TT, TDB}
+Dynamical time is the independent variable in the theories
+which describe the motions of bodies in the solar system.  When
+you use published formulae which model the position of the
+Earth in its orbit, for example, or look up
+the Moon's position in a precomputed ephemeris, the date and time
+you use must be in terms of one of the dynamical timescales.  It
+is a common but understandable mistake to use UT directly, in which
+case the results will be about 1~minute out (in the present
+era).
+
+It is not hard to see why such timescales are necessary.
+UTC would clearly be unsuitable as the argument of an
+ephemeris because of leap seconds.
+A solar-system ephemeris based on UT1 or sidereal time would somehow
+have to include the unpredictable variations of the Earth's rotation.
+TAI would work, but eventually
+the ephemeris and the ensemble of atomic clocks would drift apart.
+In effect, the ephemeris {\it is}\/ a clock, with the bodies of
+the solar system the hands.
+
+Only two of the dynamical timescales are of any great importance to
+observational astronomers, TT and TDB.  (The obsolete
+timescale ET, ephemeris time, was more or less the same as TT.)
+
+{\it Terrestrial Time}\/ TT is
+the theoretical timescale of apparent geocentric ephemerides of solar
+system bodies.  It applies, in principle,
+to an Earthbound clock, at sea-level, and for practical purposes
+it is tied to
+Atomic Time TAI through the formula TT~$=$~TAI~$+$~\tsec{32}{184}.
+In practice, therefore, the units of TT are ordinary SI seconds, and
+the offset of \tsec{32}{184} with respect to TAI is fixed.
+The SLALIB routine
+sla\_DTT
+returns TT$-$UTC for a given UTC 
+({\it n.b.}\  sla\_DTT
+calls
+sla\_DAT,
+and the latter must be an up-to-date version if recent leap seconds are
+to be taken into account).
+
+{\it Barycentric Dynamical Time}\/ TDB differs from TT by an amount which
+cycles back and forth by a millisecond or two due to
+relativistic effects.  The variation is
+negligible for most purposes, but unless taken into
+account would swamp
+long-term analysis of pulse arrival times from the
+millisecond pulsars.  It is a consequence of
+the TT clock being on the Earth rather than in empty
+space:  the ellipticity of
+the Earth's orbit means that the TT clock's speed and
+gravitational potential vary slightly
+during the course of the year, and as a consequence
+its rate as seen from an outside observer
+varies due to transverse Doppler effect and gravitational
+redshift.  By definition, TDB and TT differ only
+by periodic terms, and the main effect
+is a sinusoidal variation of amplitude \tsec{0}{0016};  the
+largest planetary terms are nearly two orders of magnitude
+smaller.  The SLALIB routine
+sla\_RCC
+provides a model of
+TDB-TT accurate to a few nanoseconds.
+There are other dynamical timescales, not supported by
+SLALIB routines, which include allowance also for the secular terms.
+These timescales gain on TT and TDB by about \tsec{0}{0013}/day.
+
+For most purposes the more accessible TT is the timescale to use,
+for example when calling
+sla\_PRENUT
+to generate a precession/nutation matrix or when calling
+sla\_EVP
+to predict the
+Earth's position and velocity.  For some purposes TDB is the
+correct timescale, for example when interrogating the JPL planetary
+ephemeris (see {\it Starlink User Note~87}\/), though in most cases
+TT will be near enough and will involve less computation.
+
+Investigations of topocentric solar-system phenomena such as
+occultations and eclipses require solar time as well as dynamical
+time.  TT/TDB/ET is all that is required in order to compute the geocentric
+circumstances, but if horizon coordinates or geocentric parallax
+are to be tackled UT is also needed.  A rough estimate
+of $\Delta {\rm T} = {\rm ET} - {\rm UT}$ is
+available via the routine
+sla\_DT.
+For a given epoch ({\it e.g.}\ 1650) this returns an approximation
+to $\Delta {\rm T}$ in seconds.
+
+\subsection{Calendars}
+The ordinary {\it Gregorian Calendar Date},
+together with a time of day, can be
+used to express an epoch in any desired timescale.  For many purposes,
+however, a continuous count of days is more convenient, and for
+this purpose the system of {\it Julian Day Number}\/ can be used.
+JD zero is located about 7000~years ago, well before the
+historical era, and is formally defined in terms of Greenwich noon;
+Julian Day Number 2449444 began at noon on 1994 April~1.  {\it Julian Date}\/
+is the same system but with a fractional part appended;
+Julian Date 2449443.5 was the midnight on which 1994 April~1
+commenced.  Because of the unwieldy size of Julian Dates
+and the awkwardness of the half-day offset, it is
+accepted practice to remove the leading `24' and the trailing `.5',
+producing what is called the {\it Modified Julian Date}:
+MJD~=~JD$-2400000.5$.  SLALIB routines use MJD, as opposed to
+JD, throughout, largely to avoid loss of precision.
+1994 April~1 commenced at MJD~49443.0.
+
+Despite JD (and hence MJD) being defined in terms of (in effect)
+UT, the system can be used in conjunction with other timescales
+such as TAI, TT and TDB (and even sidereal time through the
+concept of {\it Greenwich Sidereal Date}).  However, it is improper
+to express a UTC as a JD or MJD because of leap seconds.
+
+SLALIB has six routines for converting to and from dates in
+the Gregorian calendar.  The routines
+sla\_CLDJ
+and
+sla\_CALDJ
+both convert a calendar date into an MJD, the former interpreting
+years between 0 and 99 as 1st century and the latter as late 20th or
+early 21st century.  The routines sla\_DJCL
+and
+sla\_DJCAL
+both convert an MJD into calendar year, month, day and fraction of a day;
+the latter performs rounding to a specified precision, important
+to avoid dates like `{\tt 94 04 01.***}' appearing in messages.
+Some of SLALIB's low-precision ephemeris routines
+(sla\_EARTH,
+sla\_MOON
+and
+sla\_ECOR)
+work in terms of year plus day-in-year (where
+day~1~=~January~1st, at least for the modern era).
+This form of date can be generated by
+calling
+sla\_CALYD
+(which defaults years 0-99 into 1950-2049)
+or
+sla\_CLYD
+(which covers the full range from prehistoric times).
+
+\subsection{Geocentric Coordinates}
+The location of the observer on the Earth is significant in a
+number of ways.  The most obvious, of course, is the effect of latitude
+on the observed \azel\ of a star.  Less obvious is the need to
+allow for geocentric parallax when finding the Moon with a
+telescope (and when doing high-precision work involving the
+Sun or planets), and the need to correct observed radial
+velocities and apparent pulsar periods for the effects
+of the Earth's rotation.
+
+The SLALIB routine
+sla\_OBS
+supplies details of groundbased observatories from an internal
+list.  This is useful when writing applications that apply to
+more than one observatory;  the user can enter a brief name,
+or browse through a list, and be spared the trouble of typing
+in the full latitude, longitude {\it etc}.  The following
+Fortran code returns the full name, longitude and latitude
+of a specified observatory:
+\goodbreak
+\begin{verbatim}
+            CHARACTER IDENT*10,NAME*40
+            DOUBLE PRECISION W,P,H
+             :
+            CALL sla_OBS(0,IDENT,NAME,W,P,H)
+            IF (NAME.EQ.'?') ...             (not recognized)
+\end{verbatim}
+\goodbreak
+(Beware of the longitude sign convention, which is west +ve
+for historical reasons.)  The following lists all
+the supported observatories:
+\goodbreak
+\begin{verbatim}
+             :
+            INTEGER N
+             :
+            N=1
+            NAME=' '
+            DO WHILE (NAME.NE.'?')
+               CALL sla_OBS(N,IDENT,NAME,W,P,H)
+               IF (NAME.NE.'?') THEN
+                  WRITE (*,'(1X,I3,4X,A,4X,A)') N,IDENT,NAME
+                  N=N+1
+               END IF
+            END DO
+\end{verbatim}
+\goodbreak
+The routine
+sla\_GEOC
+converts a {\it geodetic latitude}\/
+(one referred to the local horizon) to a geocentric position,
+taking into account the Earth's oblateness and also the height
+above sea level of the observer.  The results are expressed in
+vector form, namely as the distance of the observer from
+the spin axis and equator respectively.  The {\it geocentric
+latitude}\/ can be found be evaluating ATAN2 of the
+two numbers.  A full 3-D vector description of the position
+and velocity of the observer is available through the routine
+sla\_PVOBS.
+For a specified geodetic latitude, height above
+sea level, and local sidereal time,
+sla\_PVOBS
+generates a 6-element vector containing the position and
+velocity with respect to the true equator and equinox of
+date ({\it i.e.}\ compatible with apparent \radec).  For
+some applications it will be necessary to convert to a
+mean \radec\ frame (notably FK5, J2000) by multiplying
+elements 1-3 and 4-6 respectively with the appropriate
+precession matrix.  (In theory an additional correction to the
+velocity vector is needed to allow for differential precession,
+but this correction is always negligible.)
+
+See also the discussion of the routine
+sla\_RVEROT,
+later.
+
+\subsection{Ephemerides}
+SLALIB includes routines for generating positions and
+velocities of Solar-System bodies.  The accuracy objectives are
+modest, and the SLALIB facilities do not attempt
+to compete with precomputed ephemerides such as
+those provided by JPL, or with models containing
+thousands of terms.  It is also worth noting
+that SLALIB's very accurate star coordinate conversion
+routines are not strictly applicable to solar-system cases,
+though they are adequate for most practical purposes.
+
+Earth/Sun ephemerides can be generated using the routine
+sla\_EVP,
+which predicts Earth position and velocity with respect to both the
+solar-system barycentre and the
+Sun.  Maximum velocity error is 0.42~metres per second;  maximum
+heliocentric position error is 1600~km (about \arcseci{2}), with
+barycentric position errors about 4 times worse.
+(The Sun's position as
+seen from the Earth can, of course, be obtained simply by
+reversing the signs of the Cartesian components of the
+Earth\,:\,Sun vector.)
+
+Geocentric Moon ephemerides are available from
+sla\_DMOON,
+which predicts the Moon's position and velocity with respect to
+the Earth's centre.  Direction accuracy is usually better than
+10~km (\arcseci{5}) and distance accuracy a little worse.
+
+Lower-precision but faster predictions for the Sun and Moon
+can be made by calling
+sla\_EARTH
+and
+sla\_MOON.
+Both are single precision and accept dates in the form of
+year, day-in-year and fraction of day
+(starting from a calendar date you need to call
+sla\_CLYD
+or
+sla\_CALYD
+to get the required year and day).
+The
+sla\_EARTH
+routine returns the heliocentric position and velocity
+of the Earth's centre for the mean equator and
+equinox of date.  The accuracy is better than 20,000~km in position
+and 10~metres per second in speed.
+The
+position and velocity of the Moon with respect to the
+Earth's centre for the mean equator and ecliptic of date
+can be obtained by calling
+sla\_MOON.
+The positional accuracy is better than \arcseci{30} in direction
+and 1000~km in distance.
+
+Approximate ephemerides for all the major planets
+can be generated by calling
+sla\_PLANET
+or
+sla\_RDPLAN.  These routines offer arcminute accuracy (much
+better for the inner planets and for Pluto) over a span of several
+millennia (but only $\pm100$ years for Pluto).
+The routine
+sla\_PLANET produces heliocentric position and
+velocity in the form of equatorial \xyzxyzd\ for the
+mean equator and equinox of J2000.  The vectors
+produced by
+sla\_PLANET
+can be used in a variety of ways according to the
+requirements of the application concerned.  The routine
+sla\_RDPLAN
+uses
+sla\_PLANET
+and
+sla\_DMOON
+to deal with the common case of predicting
+a planet's apparent \radec\ and angular size as seen by a
+terrestrial observer.
+
+Note that in predicting the position in the sky of a solar-system body
+it is necessary to allow for geocentric parallax.  This correction
+is {\it essential}\/ in the case of the Moon, where the observer's
+position on the Earth can affect the Moon's \radec\ by up to
+$1^\circ$.  The calculation can most conveniently be done by calling
+sla\_PVOBS and subtracting the resulting 6-vector from the
+one produced by
+sla\_DMOON, as is demonstrated by the following example:
+\goodbreak
+\begin{verbatim}
+      *  Demonstrate the size of the geocentric parallax correction
+      *  in the case of the Moon.  The test example is for the AAT,
+      *  before midnight, in summer, near first quarter.
+
+            IMPLICIT NONE
+            CHARACTER NAME*40,SH,SD
+            INTEGER J,I,IHMSF(4),IDMSF(4)
+            DOUBLE PRECISION SLONGW,SLAT,H,DJUTC,FDUTC,DJUT1,DJTT,STL,
+           :                 RMATN(3,3),PMM(6),PMT(6),RM,DM,PVO(6),TL
+            DOUBLE PRECISION sla_DTT,sla_GMST,sla_EQEQX,sla_DRANRM
+
+      *  Get AAT longitude and latitude in radians and height in metres
+            CALL sla_OBS(0,'AAT',NAME,SLONGW,SLAT,H)
+
+      *  UTC (1992 January 13, 11 13 59) to MJD
+            CALL sla_CLDJ(1992,1,13,DJUTC,J)
+            CALL sla_DTF2D(11,13,59.0D0,FDUTC,J)
+            DJUTC=DJUTC+FDUTC
+
+      *  UT1 (UT1-UTC value of -0.152 sec is from IERS Bulletin B)
+            DJUT1=DJUTC+(-0.152D0)/86400D0
+
+      *  TT
+            DJTT=DJUTC+sla_DTT(DJUTC)/86400D0
+
+      *  Local apparent sidereal time
+            STL=sla_GMST(DJUT1)-SLONGW+sla_EQEQX(DJTT)
+
+      *  Geocentric position/velocity of Moon (mean of date)
+            CALL sla_DMOON(DJTT,PMM)
+
+      *  Nutation to true equinox of date
+            CALL sla_NUT(DJTT,RMATN)
+            CALL sla_DMXV(RMATN,PMM,PMT)
+            CALL sla_DMXV(RMATN,PMM(4),PMT(4))
+
+      *  Report geocentric HA,Dec
+            CALL sla_DCC2S(PMT,RM,DM)
+            CALL sla_DR2TF(2,sla_DRANRM(STL-RM),SH,IHMSF)
+            CALL sla_DR2AF(1,DM,SD,IDMSF)
+            WRITE (*,'(1X,'' geocentric:'',2X,A,I2.2,2I3.2,''.'',I2.2,'//
+           :                              '1X,A,I2.2,2I3.2,''.'',I1)')
+           :                                                SH,IHMSF,SD,IDMSF
+
+      *  Geocentric position of observer (true equator and equinox of date)
+            CALL sla_PVOBS(SLAT,H,STL,PVO)
+
+      *  Place origin at observer
+            DO I=1,6
+               PMT(I)=PMT(I)-PVO(I)
+            END DO
+
+      *  Allow for planetary aberration
+            TL=499.004782D0*SQRT(PMT(1)**2+PMT(2)**2+PMT(3)**2)
+            DO I=1,3
+               PMT(I)=PMT(I)-TL*PMT(I+3)
+            END DO
+
+      *  Report topocentric HA,Dec
+            CALL sla_DCC2S(PMT,RM,DM)
+            CALL sla_DR2TF(2,sla_DRANRM(STL-RM),SH,IHMSF)
+            CALL sla_DR2AF(1,DM,SD,IDMSF)
+            WRITE (*,'(1X,''topocentric:'',2X,A,I2.2,2I3.2,''.'',I2.2,'//
+           :                              '1X,A,I2.2,2I3.2,''.'',I1)')
+           :                                                SH,IHMSF,SD,IDMSF
+            END
+\end{verbatim}
+\goodbreak
+The output produced is as follows:
+\goodbreak
+\begin{verbatim}
+       geocentric:  +03 06 55.59 +15 03 39.0
+      topocentric:  +03 09 23.79 +15 40 51.5
+\end{verbatim}
+\goodbreak
+(An easier but
+less instructive method of estimating the topocentric apparent place of the
+Moon is to call the routine
+sla\_RDPLAN.)
+
+As an example of using
+sla\_PLANET,
+the following program estimates the geocentric separation
+between Venus and Jupiter during a close conjunction
+in 2\,BC, which is a star-of-Bethlehem candidate:
+\goodbreak
+\begin{verbatim}
+      *  Compute time and minimum geocentric apparent separation
+      *  between Venus and Jupiter during the close conjunction of 2 BC.
+
+            IMPLICIT NONE
+
+            DOUBLE PRECISION SEPMIN,DJD0,FD,DJD,DJDM,DF,PV(6),RMATP(3,3),
+           :                 PVM(6),PVE(6),TL,RV,DV,RJ,DJ,SEP
+            INTEGER IHOUR,IMIN,J,I,IHMIN,IMMIN
+            DOUBLE PRECISION sla_EPJ,sla_DSEP
+
+
+      *  Search for closest approach on the given day
+            DJD0=1720859.5D0
+            SEPMIN=1D10
+            DO IHOUR=20,22
+               DO IMIN=0,59
+                  CALL sla_DTF2D(IHOUR,IMIN,0D0,FD,J)
+
+      *        Julian date and MJD
+                  DJD=DJD0+FD
+                  DJDM=DJD-2400000.5D0
+
+      *        Earth to Moon (mean of date)
+                  CALL sla_DMOON(DJDM,PV)
+
+      *        Precess Moon position to J2000
+                  CALL sla_PRECL(sla_EPJ(DJDM),2000D0,RMATP)
+                  CALL sla_DMXV(RMATP,PV,PVM)
+
+      *        Sun to Earth-Moon Barycentre (mean J2000)
+                  CALL sla_PLANET(DJDM,3,PVE,J)
+
+      *        Correct from EMB to Earth
+                  DO I=1,3
+                     PV(I)=PVE(I)-0.012150581D0*PVM(I)
+                  END DO
+
+      *        Sun to Venus
+                  CALL sla_PLANET(DJDM,2,PV,J)
+
+      *        Earth to Venus
+                  DO I=1,6
+                     PV(I)=PV(I)-PVE(I)
+                  END DO
+
+      *        Light time to Venus (sec)
+                  TL=499.004782D0*SQRT((PV(1)-PVE(1))**2+
+           :                           (PV(2)-PVE(2))**2+
+           :                           (PV(3)-PVE(3))**2)
+
+      *        Extrapolate backwards in time by that much
+                  DO I=1,3
+                     PV(I)=PV(I)-TL*PV(I+3)
+                  END DO
+
+      *       To RA,Dec
+                  CALL sla_DCC2S(PV,RV,DV)
+
+      *        Same for Jupiter
+                  CALL sla_PLANET(DJDM,5,PV,J)
+                  DO I=1,6
+                     PV(I)=PV(I)-PVE(I)
+                  END DO
+                  TL=499.004782D0*SQRT((PV(1)-PVE(1))**2+
+           :                           (PV(2)-PVE(2))**2+
+           :                           (PV(3)-PVE(3))**2)
+                  DO I=1,3
+                     PV(I)=PV(I)-TL*PV(I+3)
+                  END DO
+                  CALL sla_DCC2S(PV,RJ,DJ)
+
+      *        Separation (arcsec)
+                  SEP=sla_DSEP(RV,DV,RJ,DJ)
+
+      *        Keep if smallest so far
+                  IF (SEP.LT.SEPMIN) THEN
+                     IHMIN=IHOUR
+                     IMMIN=IMIN
+                     SEPMIN=SEP
+                  END IF
+               END DO
+            END DO
+
+      *  Report
+            WRITE (*,'(1X,I2.2,'':'',I2.2,F6.1)') IHMIN,IMMIN,
+           :                                      206264.8062D0*SEPMIN
+
+            END
+\end{verbatim}
+\goodbreak
+The output produced (the Ephemeris Time on the day in question, and
+the closest approach in arcseconds) is as follows:
+\goodbreak
+\begin{verbatim}
+      21:19  33.7
+\end{verbatim}
+\goodbreak
+For comparison, accurate predictions based on the JPL DE\,102 ephemeris
+give a separation about \arcseci{8} less than
+the above estimate, occurring about half an hour earlier
+(see {\it Sky and Telescope,}\/ April~1987, p\,357).
+
+The following program demonstrates
+sla\_RDPLAN.
+\begin{verbatim}
+      *  For a given date, time and geographical location, output
+      *  a table of planetary positions and diameters.
+
+            IMPLICIT NONE
+            CHARACTER PNAMES(0:9)*7,B*80,S
+            INTEGER I,NP,IY,J,IM,ID,IHMSF(4),IDMSF(4)
+            DOUBLE PRECISION R2AS,FD,DJM,ELONG,PHI,RA,DEC,DIAM
+            PARAMETER (R2AS=206264.80625D0)
+            DATA PNAMES / 'Sun','Mercury','Venus','Moon','Mars','Jupiter',
+           :              'Saturn','Uranus','Neptune', 'Pluto' /
+
+
+      *  Loop until 'end' typed
+            B=' '
+            DO WHILE (B.NE.'END'.AND.B.NE.'end')
+
+      *     Get date, time and observer's location
+               PRINT *,'Date? (Y,M,D, Gregorian)'
+               READ (*,'(A)') B
+               IF (B.NE.'END'.AND.B.NE.'end') THEN
+                  I=1
+                  CALL sla_INTIN(B,I,IY,J)
+                  CALL sla_INTIN(B,I,IM,J)
+                  CALL sla_INTIN(B,I,ID,J)
+                  PRINT *,'Time? (H,M,S, dynamical)'
+                  READ (*,'(A)') B
+                  I=1
+                  CALL sla_DAFIN(B,I,FD,J)
+                  FD=FD*2.3873241463784300365D0
+                  CALL sla_CLDJ(IY,IM,ID,DJM,J)
+                  DJM=DJM+FD
+                  PRINT *,'Longitude? (D,M,S, east +ve)'
+                  READ (*,'(A)') B
+                  I=1
+                  CALL sla_DAFIN(B,I,ELONG,J)
+                  PRINT *,'Latitude? (D,M,S, (geodetic)'
+                  READ (*,'(A)') B
+                  I=1
+                  CALL sla_DAFIN(B,I,PHI,J)
+
+      *        Loop planet by planet
+                  DO NP=0,8
+
+      *           Get RA,Dec and diameter
+                     CALL sla_RDPLAN(DJM,NP,ELONG,PHI,RA,DEC,DIAM)
+
+      *           One line of report
+                     CALL sla_DR2TF(2,RA,S,IHMSF)
+                     CALL sla_DR2AF(1,DEC,S,IDMSF)
+                     WRITE (*,
+           : '(1X,A,2X,3I3.2,''.'',I2.2,2X,A,I2.2,2I3.2,''.'',I1,F8.1)')
+           :                          PNAMES(NP),IHMSF,S,IDMSF,R2AS*DIAM
+
+      *           Next planet
+                  END DO
+                  PRINT *,' '
+               END IF
+
+      *     Next case
+            END DO
+
+            END
+\end{verbatim}
+Entering the following data (for 1927~June~29 at $5^{\rm h}\,25^{\rm m}$~ET
+and the position of Preston, UK.):
+\begin{verbatim}
+      1927 6 29
+      5 25
+      -2 42
+      53 46
+\end{verbatim}
+produces the following report:
+\begin{verbatim}
+      Sun       06 28 14.03  +23 17 17.5  1887.8
+      Mercury   08 08 58.62  +19 20 57.3     9.3
+      Venus     09 38 53.64  +15 35 32.9    22.8
+      Moon      06 28 18.30  +23 18 37.3  1903.9
+      Mars      09 06 49.34  +17 52 26.7     4.0
+      Jupiter   00 11 12.06  -00 10 57.5    41.1
+      Saturn    16 01 43.34  -18 36 55.9    18.2
+      Uranus    00 13 33.53  +00 39 36.0     3.5
+      Neptune   09 49 35.75  +13 38 40.8     2.2
+      Pluto     07 05 29.50  +21 25 04.2      .1
+\end{verbatim}
+Inspection of the Sun and Moon data reveals that
+a total solar eclipse is in progress.
+
+SLALIB also provides for the case where orbital elements (with respect
+to the J2000 equinox and ecliptic)
+are available.  This allows predictions to be made for minor-planets and
+(if you ignore non-gravitational effects)
+comets.  Furthermore, if major-planet elements for an epoch close to the date
+in question are available, more accurate predictions can be made than
+are offered by
+sla\_RDPLAN and
+sla\_PLANET.
+
+The SLALIB planetary-prediction
+routines that work with orbital elements are
+sla\_PLANTE (the orbital-elements equivalent of
+sla\_RDPLAN), which predicts the topocentric \radec, and
+sla\_PLANEL (the orbital-elements equivalent of
+sla\_PLANET), which predicts the heliocentric \xyzxyzd\ with respect to the
+J2000 equinox and equator.  In addition, the routine
+sla\_PV2EL does the inverse of
+sla\_PLANEL, transforming \xyzxyzd\ into {\it osculating elements.}
+
+Osculating elements describe the unperturbed 2-body orbit.  This is
+a good approximation to the actual orbit for a few weeks either
+side of the specified epoch, outside which perturbations due to
+the other bodies of the Solar System lead to
+increasing errors.  Given a minor planet's osculating elements for
+a particular date, predictions for a date even just
+100 days earlier or later
+are likely to be in error by several arcseconds.
+These errors can
+be reduced if new elements are generated which take account of
+the perturbations of the major planets, and this is what the routine
+sla\_PERTEL does.  Once
+sla\_PERTEL has been called, to provide osculating elements
+close to the required date, the elements can be passed to
+sla\_PLANEL or
+sla\_PLANTE in the normal way.  Predictions of arcsecond accuracy
+over a span of a decade or more are available using this
+technique.
+
+Three different combinations of orbital elements are
+provided for, matching the usual conventions
+for major planets, minor planets and
+comets respectively.  The choice is made through the
+argument {\tt JFORM}:\\
+
+\hspace{4em}
+\begin{tabular}{|c|c|c|} \hline
+{\tt JFORM=1} & {\tt JFORM=2} & {\tt JFORM=3} \\
+\hline \hline
+$t_0$ & $t_0$ & $T$ \\
+\hline
+$i$ & $i$ & $i$ \\
+\hline
+$\Omega$ & $\Omega$ & $\Omega$ \\
+\hline
+$\varpi$ & $\omega$ & $\omega$ \\
+\hline
+$a$ & $a$ & $q$ \\
+\hline
+$e$ & $e$ & $e$ \\
+\hline
+$L$ & $M$ & \\
+\hline
+$n$ & & \\
+\hline
+\end{tabular}\\[5ex]
+The symbols have the following meanings:
+\begin{tabbing}
+xxxxxxx \= xxxx \= \kill
+\> $t_0$ \> epoch at which the elements were correct \\
+\> $T$ \> epoch of perihelion passage \\
+\> $i$ \> inclination of the orbit \\
+\> $\Omega$ \> longitude of the ascending node \\
+\> $\varpi$ \> longitude of perihelion ($\varpi = \Omega + \omega$) \\
+\> $\omega$ \> argument of perihelion \\
+\> $a$ \> semi-major axis of the orbital ellipse \\
+\> $q$ \> perihelion distance \\
+\> $e$ \> orbital eccentricity \\
+\> $L$ \> mean longitude ($L = \varpi + M$) \\
+\> $M$ \> mean anomaly \\
+\> $n$ \> mean motion \\
+\end{tabbing}
+
+The mean motion, $n$, tells sla\_PLANEL the mass of the planet.
+If it is not available, it should be claculated
+from $n^2 a^3 = k^2 (1+m)$, where $k = 0.01720209895$ and
+m is the mass of the planet ($M_\odot = 1$); $a$ is in AU.
+
+Conventional elements are not the only way of specifying an orbit.
+The \xyzxyzd\ state vector is an equally valid specification,
+and the so-called {\it method of universal variables}\/ allows
+orbital calculations to be made directly, bypassing angular
+quantities and avoiding Kepler's Equation.  The universal-variables
+approach has various advantages, including better handling of
+near-parabolic cases and greater efficiency.
+SLALIB uses universal variables for its internal
+calculations and also offers a number of routines which
+applications can call.
+
+The universal elements are the \xyzxyzd\ and its epoch, plus the mass
+of the body.  The SLALIB routines supplement these elements with
+certain redundant values in order to
+avoid unnecessary recomputation when the elements are next used.
+
+The routines
+sla\_EL2UE and
+sla\_UE2EL transform conventional elements into the
+universal form and {\it vice versa.}
+The routine
+sla\_PV2UE takes an \xyzxyzd\ and forms the set of universal
+elements;
+sla\_UE2PV takes a set of universal elements and predicts the \xyzxyzd\
+for a specified epoch.
+The routine
+sla\_PERTUE provides updated universal elements,
+taking into account perturbations from the major planets.
+
+\subsection{Radial Velocity and Light-Time Corrections}
+When publishing high-resolution spectral observations
+it is necessary to refer them to a specified standard of rest.
+This involves knowing the component in the direction of the
+source of the velocity of the observer.  SLALIB provides a number
+of routines for this purpose, allowing observations to be
+referred to the Earth's centre, the Sun, a Local Standard of Rest
+(either dynamical or kinematical), the centre of the Galaxy, and
+the mean motion of the Local Group.
+
+The routine
+sla\_RVEROT
+corrects for the diurnal rotation of
+the observer around the Earth's axis.  This is always less than 0.5~km/s.
+
+No specific routine is provided to correct a radial velocity
+from geocentric to heliocentric, but this can easily be done by calling
+sla\_EVP
+as follows (array declarations {\it etc}.\ omitted):
+\goodbreak
+\begin{verbatim}
+             :
+      *  Star vector, J2000
+            CALL sla_DCS2C(RM,DM,V)
+
+      *  Earth/Sun velocity and position, J2000
+            CALL sla_EVP(TDB,2000D0,DVB,DPB,DVH,DPH)
+
+      *  Radial velocity correction due to Earth orbit (km/s)
+            VCORB = -sla_DVDV(V,DVH)*149.597870D6
+             :
+\end{verbatim}
+\goodbreak
+The maximum value of this correction is the Earth's orbital speed
+of about 30~km/s.  A related routine,
+sla\_ECOR,
+computes the light-time correction with respect to the Sun.  It
+would be used when reducing observations of a rapid variable-star
+for instance.
+Note, however, that the accuracy objectives for pulsar work are
+beyond the scope of these SLALIB routines, and even the superior
+sla\_EVP
+routine is unsuitable for arrival-time calculations of better
+than 25~millisecond accuracy.
+
+To remove the intrinsic $\sim20$~km/s motion of the Sun relative
+to other stars in the solar neighbourhood,
+a velocity correction to a
+{\it local standard of rest}\/ (LSR) is required.  There are
+opportunities for mistakes here.  There are two sorts of LSR,
+{\it dynamical}\/ and {\it kinematical}, and
+multiple definitions exist for the latter.  The
+dynamical LSR is a point near the Sun which is in a circular
+orbit around the Galactic centre;  the Sun has a ``peculiar''
+motion relative to the dynamical LSR.  A kinematical LSR is
+the mean standard of rest of specified star catalogues or stellar
+populations, and its precise definition depends on which
+catalogues or populations were used and how the analysis was
+carried out.  The Sun's motion with respect to a kinematical
+LSR is called the ``standard'' solar motion.  Radial
+velocity corrections to the dynamical LSR are produced by the routine
+sla\_RVLSRD
+and to the adopted kinematical LSR by
+sla\_RVLSRK.
+See the individual specifications for these routines for the
+precise definition of the LSR in each case.
+
+For extragalactic sources, the centre of the Galaxy can be used as
+a standard of rest.  The radial velocity correction from the
+dynamical LSR to the Galactic centre can be obtained by calling
+sla\_RVGALC.
+Its maximum value is 220~km/s.
+
+For very distant sources it is appropriate to work relative
+to the mean motion of the Local Group.  The routine for
+computing the radial velocity correction in this case is
+sla\_RVLG.
+Note that in this case the correction is with respect to the
+dynamical LSR, not the Galactic centre as might be expected.
+This conforms to the IAU definition, and confers immunity from
+revisions of the Galactic rotation speed.
+
+\subsection{Focal-Plane Astrometry}
+The relationship between the position of a star image in
+the focal plane of a telescope and the star's celestial
+coordinates is usually described in terms of the {\it tangent plane}\/
+or {\it gnomonic}\/ projection.  This is the projection produced
+by a pin-hole camera and is a good approximation to the projection
+geometry of a traditional large {\it f}\/-ratio astrographic refractor.
+SLALIB includes a group of routines which transform
+star positions between their observed places on the celestial
+sphere and their \xy\ coordinates in the tangent plane.  The
+spherical coordinate system does not have to be \radec\ but
+usually is.  The so-called {\it standard coordinates}\/ of a star
+are the tangent plane \xy, in radians, with respect to an origin
+at the tangent point, with the $y$-axis pointing north and
+the $x$-axis pointing east (in the direction of increasing $\alpha$).
+The factor relating the standard coordinates to
+the actual \xy\ coordinates in, say, millimetres is simply
+the focal length of the telescope.
+
+Given the \radec\ of the {\it plate centre}\/ (the tangent point)
+and the \radec\ of a star within the field, the standard
+coordinates can be determined by calling
+sla\_S2TP
+(single precision) or
+sla\_DS2TP
+(double precision).  The reverse transformation, where the
+\xy\ is known and we wish to find the \radec, is carried out by calling
+sla\_TP2S
+or
+sla\_DTP2S.
+Occasionally we know the both the \xy\ and the \radec\ of a 
+star and need to deduce the \radec\ of the tangent point;  
+this can be done by calling
+sla\_TPS2C
+or
+sla\_DTPS2C.
+(All of these transformations apply not just to \radec\ but to
+other spherical coordinate systems, of course.)
+Equivalent (and faster)
+routines are provided which work directly in \xyz\ instead of
+spherical coordinates:
+sla\_V2TP and
+sla\_DV2TP,
+sla\_TP2V and
+sla\_DTP2V,
+sla\_TPV2C and
+sla\_DTPV2C.
+
+Even at the best of times, the tangent plane projection is merely an
+approximation.  Some telescopes and cameras exhibit considerable pincushion
+or barrel distortion and some have a curved focal surface.
+For example, neither Schmidt cameras nor (especially)
+large reflecting telescopes with wide-field corrector lenses
+are adequately modelled by tangent-plane geometry.  In such
+cases, however, it is still possible to do most of the work
+using the (mathematically convenient) tangent-plane
+projection by inserting an extra step which applies or
+removes the distortion peculiar to the system concerned.
+A simple $r_1=r_0(1+Kr_0^2)$ law works well in the
+majority of cases; $r_0$ is the radial distance in the
+tangent plane, $r_1$ is the radial distance after adding
+the distortion, and $K$ is a constant which depends on the
+telescope ($\theta$ is unaffected).  The routine
+sla\_PCD
+applies the distortion to an \xy\ and
+sla\_UNPCD
+removes it.  For \xy\ in radians, $K$ values range from $-1/3$ for the
+tiny amount of barrel distortion in Schmidt geometry to several
+hundred for the serious pincushion distortion
+produced by wide-field correctors in big reflecting telescopes
+(the AAT prime focus triplet corrector is about $K=+178.6$).
+
+SLALIB includes a group of routines which can be put together
+to build a simple plate-reduction program.  The heart of the group is
+sla\_FITXY,
+which fits a linear model to relate two sets of \xy\ coordinates,
+in the case of a plate reduction the measured positions of the
+images of a set of
+reference stars and the standard
+coordinates derived from their catalogue positions.  The
+model is of the form:
+\[x_{p} = a + bx_{m} + cy_{m}\]
+\[y_{p} = d + ex_{m} + fy_{m}\]
+
+where the {\it p}\/ subscript indicates ``predicted'' coordinates
+(the model's approximation to the ideal ``expected'' coordinates) and the
+{\it m}\/ subscript indicates ``measured coordinates''.  The
+six coefficients {\it a--f}\/ can optionally be
+constrained to represent a ``solid body rotation'' free of
+any squash or shear distortions.  Without this constraint
+the model can, to some extent, accommodate effects like refraction,
+allowing mean places to be used directly and
+avoiding the extra complications of a
+full mean-apparent-observed transformation for each star.
+Having obtained the linear model,
+sla\_PXY
+can be used to process the set of measured and expected
+coordinates, giving the predicted coordinates and determining
+the RMS residuals in {\it x}\/ and {\it y}.
+The routine
+sla\_XY2XY
+transforms one \xy\ into another using the linear model.  A model
+can be inverted by calling
+sla\_INVF,
+and decomposed into zero points, scales, $x/y$ nonperpendicularity
+and orientation by calling
+sla\_DCMPF.
+
+\subsection{Numerical Methods}
+SLALIB contains a small number of simple, general-purpose
+numerical-methods routines.  They have no specific
+connection with positional astronomy but have proved useful in
+applications to do with simulation and fitting.
+
+At the heart of many simulation programs is the generation of
+pseudo-random numbers, evenly distributed in a given range:
+sla\_RANDOM
+does this.  Pseudo-random normal deviates, or ``Gaussian
+residuals'', are often required to simulate noise and
+can be generated by means of the function
+sla\_GRESID.
+Neither routine will pass super-sophisticated
+statistical tests, but they work adequately for most
+practical purposes and avoid the need to call non-standard
+library routines peculiar to one sort of computer.
+
+Applications which perform a least-squares fit using a traditional
+normal-equations methods can accomplish the required matrix-inversion
+by calling either
+sla\_SMAT
+(single precision) or
+sla\_DMAT
+(double).  A generally better way to perform such fits is
+to use singular value decomposition.  SLALIB provides a routine
+to do the decomposition itself,
+sla\_SVD,
+and two routines to use the results:
+sla\_SVDSOL
+generates the solution, and
+sla\_SVDCOV
+produces the covariance matrix.
+A simple demonstration of the use of the SLALIB SVD
+routines is given below.  It generates 500 simulated data
+points and fits them to a model which has 4 unknown coefficients.
+(The arrays in the example are sized to accept up to 1000
+points and 20 unknowns.)  The model is:
+\[ y = C_{1} +C_{2}x +C_{3}sin{x} +C_{4}cos{x} \]
+The test values for the four coefficients are
+$C_1\!=\!+50.0$,
+$C_2\!=\!-2.0$,
+$C_3\!=\!-10.0$ and
+$C_4\!=\!+25.0$.
+Gaussian noise, $\sigma=5.0$, is added to each ``observation''.
+\goodbreak
+\begin{verbatim}
+            IMPLICIT NONE
+
+      *  Sizes of arrays, physical and logical
+            INTEGER MP,NP,NC,M,N
+            PARAMETER (MP=1000,NP=10,NC=20,M=500,N=4)
+
+      *  The unknowns we are going to solve for
+            DOUBLE PRECISION C1,C2,C3,C4
+            PARAMETER (C1=50D0,C2=-2D0,C3=-10D0,C4=25D0)
+
+      *  Arrays
+            DOUBLE PRECISION A(MP,NP),W(NP),V(NP,NP),
+           :                 WORK(NP),B(MP),X(NP),CVM(NC,NC)
+
+            DOUBLE PRECISION VAL,BF1,BF2,BF3,BF4,SD2,D,VAR
+            REAL sla_GRESID
+            INTEGER I,J
+
+      *  Fill the design matrix
+            DO I=1,M
+
+      *     Dummy independent variable
+               VAL=DBLE(I)/10D0
+
+      *     The basis functions
+               BF1=1D0
+               BF2=VAL
+               BF3=SIN(VAL)
+               BF4=COS(VAL)
+
+      *     The observed value, including deliberate Gaussian noise
+               B(I)=C1*BF1+C2*BF2+C3*BF3+C4*BF4+DBLE(sla_GRESID(5.0))
+
+      *     Fill one row of the design matrix
+               A(I,1)=BF1
+               A(I,2)=BF2
+               A(I,3)=BF3
+               A(I,4)=BF4
+            END DO
+
+      *  Factorize the design matrix, solve and generate covariance matrix
+            CALL sla_SVD(M,N,MP,NP,A,W,V,WORK,J)
+            CALL sla_SVDSOL(M,N,MP,NP,B,A,W,V,WORK,X)
+            CALL sla_SVDCOV(N,NP,NC,W,V,WORK,CVM)
+
+      *  Compute the variance
+            SD2=0D0
+            DO I=1,M
+               VAL=DBLE(I)/10D0
+               BF1=1D0
+               BF2=VAL
+               BF3=SIN(VAL)
+               BF4=COS(VAL)
+               D=B(I)-(X(1)*BF1+X(2)*BF2+X(3)*BF3+X(4)*BF4)
+               SD2=SD2+D*D
+            END DO
+            VAR=SD2/DBLE(M)
+
+      *  Report the RMS and the solution
+            WRITE (*,'(1X,''RMS ='',F5.2/)') SQRT(VAR)
+            DO I=1,N
+               WRITE (*,'(1X,''C'',I1,'' ='',F7.3,'' +/-'',F6.3)')
+           :                                         I,X(I),SQRT(VAR*CVM(I,I))
+            END DO
+            END
+\end{verbatim}
+\goodbreak
+The program produces the following output:
+\goodbreak
+\begin{verbatim}
+            RMS = 4.88
+
+            C1 = 50.192 +/- 0.439
+            C2 = -2.002 +/- 0.015
+            C3 = -9.771 +/- 0.310
+            C4 = 25.275 +/- 0.310
+\end{verbatim}
+\goodbreak
+In this above example, essentially
+identical results would be obtained if the more
+commonplace normal-equations method had been used, and the large
+$1000\times20$ array would have been avoided.  However, the SVD method
+comes into its own when the opportunity is taken to edit the W-matrix
+(the so-called ``singular values'') in order to control
+possible ill-conditioning.  The procedure involves replacing with
+zeroes any W-elements smaller than a nominated value, for example
+0.001 times the largest W-element.  Small W-elements indicate
+ill-conditioning, which in the case of the normal-equations
+method would produce spurious large coefficient values and
+possible arithmetic overflows.  Using SVD, the effect on the solution
+of setting suspiciously small W-elements to zero is to restrain
+the offending coefficients from moving very far.  The
+fact that action was taken can be reported to show the program user that
+something is amiss.  Furthermore, if element W(J) was set to zero,
+the row numbers of the two biggest elements in the Jth column of the
+V-matrix identify the pair of solution coefficients that are
+dependent.
+
+A more detailed description of SVD and its use in least-squares
+problems would be out of place here, and the reader is urged
+to refer to the relevant sections of the book {\it Numerical Recipes}
+(Press {\it et al.}, Cambridge University Press, 1987).
+
+The routines
+sla\_COMBN
+and
+sla\_PERMUT
+are useful for problems which involve combinations (different subsets)
+and permutations (different orders).
+Both return the next in a sequence of results, cycling through all the
+possible results as the routine is called repeatedly.
+
+\pagebreak
+
+\section{SUMMARY OF CALLS}
+The basic trigonometrical and numerical facilities are supplied in both single
+and double precision versions.
+Most of the more esoteric position and time routines use double precision
+arguments only, even in cases where single precision would normally be adequate
+in practice.
+Certain routines with modest accuracy objectives are supplied in
+single precision versions only.
+In the calling sequences which follow, no attempt has been made
+to distinguish between single and double precision argument names,
+and frequently the same name is used on different occasions to
+mean different things.
+However, none of the routines uses a mixture of single and
+double precision arguments;  each routine is either wholly
+single precision or wholly double precision.
+
+In the classified list, below,
+{\it subroutine}\/ subprograms are those whose names and argument lists
+are preceded by `CALL', whereas {\it function}\/ subprograms are
+those beginning `R=' (when the result is REAL) or `D=' (when
+the result is DOUBLE~PRECISION).
+
+The list is, of course, merely for quick reference;  inexperienced
+users {\bf must} refer to the detailed specifications given later.
+In particular, {\bf don't guess} whether arguments are single or
+double precision; the result could be a program that happens to
+works on one sort of machine but not on another.
+
+\callhead{String Decoding}
+\begin{callset}
+\subp{CALL sla\_INTIN (STRING, NSTRT, IRESLT, JFLAG)}
+   Convert free-format string into integer
+\subq{CALL sla\_FLOTIN (STRING, NSTRT, RESLT, JFLAG)}
+     {CALL sla\_DFLTIN (STRING, NSTRT, DRESLT, JFLAG)}
+   Convert free-format string into floating-point number
+\subq{CALL sla\_AFIN (STRING, NSTRT, RESLT, JFLAG)}
+     {CALL sla\_DAFIN (STRING, NSTRT, DRESLT, JFLAG)}
+   Convert free-format string from deg,arcmin,arcsec to radians
+\end{callset}
+
+\callhead{Sexagesimal Conversions}
+\begin{callset}
+\subq{CALL sla\_CTF2D (IHOUR, IMIN, SEC, DAYS, J)}
+     {CALL sla\_DTF2D (IHOUR, IMIN, SEC, DAYS, J)}
+   Hours, minutes, seconds to days
+\subq{CALL sla\_CD2TF (NDP, DAYS, SIGN, IHMSF)}
+     {CALL sla\_DD2TF (NDP, DAYS, SIGN, IHMSF)}
+   Days to hours, minutes, seconds
+\subq{CALL sla\_CTF2R (IHOUR, IMIN, SEC, RAD, J)}
+     {CALL sla\_DTF2R (IHOUR, IMIN, SEC, RAD, J)}
+   Hours, minutes, seconds to radians
+\subq{CALL sla\_CR2TF (NDP, ANGLE, SIGN, IHMSF)}
+     {CALL sla\_DR2TF (NDP, ANGLE, SIGN, IHMSF)}
+   Radians to hours, minutes, seconds
+\subq{CALL sla\_CAF2R (IDEG, IAMIN, ASEC, RAD, J)}
+     {CALL sla\_DAF2R (IDEG, IAMIN, ASEC, RAD, J)}
+   Degrees, arcminutes, arcseconds to radians
+\subq{CALL sla\_CR2AF (NDP, ANGLE, SIGN, IDMSF)}
+     {CALL sla\_DR2AF (NDP, ANGLE, SIGN, IDMSF)}
+   Radians to degrees, arcminutes, arcseconds
+\end{callset}
+
+\callhead{Angles, Vectors and Rotation Matrices}
+\begin{callset}
+\subq{R~=~sla\_RANGE (ANGLE)}
+     {D~=~sla\_DRANGE (ANGLE)}
+   Normalize angle into range $\pm\pi$
+\subq{R~=~sla\_RANORM (ANGLE)}
+     {D~=~sla\_DRANRM (ANGLE)}
+   Normalize angle into range $0\!-\!2\pi$
+\subq{CALL sla\_CS2C (A, B, V)}
+     {CALL sla\_DCS2C (A, B, V)}
+   Spherical coordinates to \xyz
+\subq{CALL sla\_CC2S (V, A, B)}
+     {CALL sla\_DCC2S (V, A, B)}
+   \xyz\ to spherical coordinates
+\subq{R~=~sla\_VDV (VA, VB)}
+     {D~=~sla\_DVDV (VA, VB)}
+   Scalar product of two 3-vectors
+\subq{CALL sla\_VXV (VA, VB, VC)}
+     {CALL sla\_DVXV (VA, VB, VC)}
+   Vector product of two 3-vectors
+\subq{CALL sla\_VN (V, UV, VM)}
+     {CALL sla\_DVN (V, UV, VM)}
+   Normalize a 3-vector also giving the modulus
+\subq{R~=~sla\_SEP (A1, B1, A2, B2)}
+     {D~=~sla\_DSEP (A1, B1, A2, B2)}
+   Angle between two points on a sphere
+\subq{R~=~sla\_BEAR (A1, B1, A2, B2)}
+     {D~=~sla\_DBEAR (A1, B1, A2, B2)}
+   Direction of one point on a sphere seen from another
+\subq{R~=~sla\_PAV (V1, V2)}
+     {D~=~sla\_DPAV (V1, V2)}
+   Position-angle of one \xyz\ with respect to another
+\subq{CALL sla\_EULER (ORDER, PHI, THETA, PSI, RMAT)}
+     {CALL sla\_DEULER (ORDER, PHI, THETA, PSI, RMAT)}
+   Form rotation matrix from three Euler angles
+\subq{CALL sla\_AV2M (AXVEC, RMAT)}
+     {CALL sla\_DAV2M (AXVEC, RMAT)}
+   Form rotation matrix from axial vector
+\subq{CALL sla\_M2AV (RMAT, AXVEC)}
+     {CALL sla\_DM2AV (RMAT, AXVEC)}
+   Determine axial vector from rotation matrix
+\subq{CALL sla\_MXV (RM, VA, VB)}
+     {CALL sla\_DMXV (DM, VA, VB)}
+   Rotate vector forwards
+\subq{CALL sla\_IMXV (RM, VA, VB)}
+     {CALL sla\_DIMXV (DM, VA, VB)}
+   Rotate vector backwards
+\subq{CALL sla\_MXM (A, B, C)}
+     {CALL sla\_DMXM (A, B, C)}
+   Product of two 3x3 matrices
+\subq{CALL sla\_CS2C6 (A, B, R, AD, BD, RD, V)}
+     {CALL sla\_DS2C6 (A, B, R, AD, BD, RD, V)}
+   Conversion of position and velocity in spherical
+     coordinates to Cartesian coordinates
+\subq{CALL sla\_CC62S (V, A, B, R, AD, BD, RD)}
+     {CALL sla\_DC62S (V, A, B, R, AD, BD, RD)}
+   Conversion of position and velocity in Cartesian
+     coordinates to spherical coordinates
+\end{callset}
+
+\callhead{Calendars}
+\begin{callset}
+\subp{CALL sla\_CLDJ (IY, IM, ID, DJM, J)}
+   Gregorian Calendar to Modified Julian Date
+\subp{CALL sla\_CALDJ (IY, IM, ID, DJM, J)}
+   Gregorian Calendar to Modified Julian Date,
+     permitting century default
+\subp{CALL sla\_DJCAL (NDP, DJM, IYMDF, J)}
+   Modified Julian Date to Gregorian Calendar,
+     in a form convenient for formatted output
+\subp{CALL sla\_DJCL (DJM, IY, IM, ID, FD, J)}
+   Modified Julian Date to Gregorian Year, Month, Day, Fraction
+\subp{CALL sla\_CALYD (IY, IM, ID, NY, ND, J)}
+   Calendar to year and day in year, permitting century default
+\subp{CALL sla\_CLYD (IY, IM, ID, NY, ND, J)}
+   Calendar to year and day in year
+\subp{D~=~sla\_EPB (DATE)}
+   Modified Julian Date to Besselian Epoch
+\subp{D~=~sla\_EPB2D (EPB)}
+   Besselian Epoch to Modified Julian Date
+\subp{D~=~sla\_EPJ (DATE)}
+   Modified Julian Date to Julian Epoch
+\subp{D~=~sla\_EPJ2D (EPJ)}
+   Julian Epoch to Modified Julian Date
+\end{callset}
+
+\callhead{Timescales}
+\begin{callset}
+\subp{D~=~sla\_GMST (UT1)}
+   Conversion from Universal Time to sidereal time
+\subp{D~=~sla\_GMSTA (DATE, UT1)}
+   Conversion from Universal Time to sidereal time, rounding errors minimized
+\subp{D~=~sla\_EQEQX (DATE)}
+   Equation of the equinoxes
+\subp{D~=~sla\_DAT (DJU)}
+   Offset of Atomic Time from Coordinated Universal Time: TAI$-$UTC
+\subp{D~=~sla\_DT (EPOCH)}
+   Approximate offset between dynamical time and universal time
+\subp{D~=~sla\_DTT (DJU)}
+   Offset of Terrestrial Time from Coordinated Universal Time: TT$-$UTC
+\subp{D~=~sla\_RCC (TDB, UT1, WL, U, V)}
+   Relativistic clock correction: TDB$-$TT
+\end{callset}
+
+\callhead{Precession and Nutation}
+\begin{callset}
+\subp{CALL sla\_NUT (DATE, RMATN)}
+   Nutation matrix
+\subp{CALL sla\_NUTC (DATE, DPSI, DEPS, EPS0)}
+   Longitude and obliquity components of nutation, and
+     mean obliquity
+\subp{CALL sla\_PREC (EP0, EP1, RMATP)}
+   Precession matrix (IAU)
+\subp{CALL sla\_PRECL (EP0, EP1, RMATP)}
+   Precession matrix (suitable for long periods)
+\subp{CALL sla\_PRENUT (EPOCH, DATE, RMATPN)}
+   Combined precession/nutation matrix
+\subp{CALL sla\_PREBN (BEP0, BEP1, RMATP)}
+   Precession matrix, old system
+\subp{CALL sla\_PRECES (SYSTEM, EP0, EP1, RA, DC)}
+   Precession, in either the old or the new system
+\end{callset}
+
+\callhead{Proper Motion}
+\begin{callset}
+\subp{CALL sla\_PM (R0, D0, PR, PD, PX, RV, EP0, EP1, R1, D1)}
+   Adjust for proper motion
+\end{callset}
+
+\callhead{FK4/FK5/Hipparcos Conversions}
+\begin{callset}
+\subp{CALL sla\_FK425 (\vtop
+                       {\hbox{R1950, D1950, DR1950, DD1950, P1950, V1950,}
+                        \hbox{R2000, D2000, DR2000, DD2000, P2000, V2000)}}}
+   Convert B1950.0 FK4 star data to J2000.0 FK5
+\subp{CALL sla\_FK45Z (R1950, D1950, EPOCH, R2000, D2000)}
+   Convert B1950.0 FK4 position to J2000.0 FK5 assuming zero
+   FK5 proper motion and no parallax
+\subp{CALL sla\_FK524 (\vtop
+                       {\hbox{R2000, D2000, DR2000, DD2000, P2000, V2000,}
+                        \hbox{R1950, D1950, DR1950, DD1950, P1950, V1950)}}}
+   Convert J2000.0 FK5 star data to B1950.0 FK4
+\subp{CALL sla\_FK54Z (R2000, D2000, BEPOCH,
+               R1950, D1950, DR1950, DD1950)}
+   Convert J2000.0 FK5 position to B1950.0 FK4 assuming zero
+   FK5 proper motion and no parallax
+\subp{CALL sla\_FK52H (R5, D5, DR5, DD5, RH, DH, DRH, DDH)}
+   Convert J2000.0 FK5 star data to Hipparcos
+\subp{CALL sla\_FK5HZ (R5, D5, EPOCH, RH, DH )}
+   Convert J2000.0 FK5 position to Hipparcos assuming zero Hipparcos
+   proper motion
+\subp{CALL sla\_H2FK5 (RH, DH, DRH, DDH, R5, D5, DR5, DD5)}
+   Convert Hipparcos star data to J2000.0 FK5
+\subp{CALL sla\_HFK5Z (RH, DH, EPOCH, R5, D5, DR5, DD5)}
+   Convert Hipparcos position to J2000.0 FK5 assuming zero Hipparcos
+   proper motion
+\subp{CALL sla\_DBJIN (STRING, NSTRT, DRESLT, J1, J2)}
+   Like sla\_DFLTIN but with extensions to accept leading `B' and `J'
+\subp{CALL sla\_KBJ (JB, E, K, J)}
+   Select epoch prefix `B' or `J'
+\subp{D~=~sla\_EPCO (K0, K, E)}
+   Convert an epoch into the appropriate form -- `B' or `J'
+\end{callset}
+
+\callhead{Elliptic Aberration}
+\begin{callset}
+\subp{CALL sla\_ETRMS (EP, EV)}
+   E-terms
+\subp{CALL sla\_SUBET (RC, DC, EQ, RM, DM)}
+   Remove the E-terms
+\subp{CALL sla\_ADDET (RM, DM, EQ, RC, DC)}
+   Add the E-terms
+\end{callset}
+
+\callhead{Geographical and Geocentric Coordinates}
+\begin{callset}
+\subp{CALL sla\_OBS (NUMBER, ID, NAME, WLONG, PHI, HEIGHT)}
+   Interrogate list of observatory parameters
+\subp{CALL sla\_GEOC (P, H, R, Z)}
+   Convert geodetic position to geocentric
+\subp{CALL sla\_POLMO (ELONGM, PHIM, XP, YP, ELONG, PHI, DAZ)}
+   Polar motion
+\subp{CALL sla\_PVOBS (P, H, STL, PV)}
+   Position and velocity of observatory
+\end{callset}
+
+\callhead{Apparent and Observed Place}
+\begin{callset}
+\subp{CALL sla\_MAP (RM, DM, PR, PD, PX, RV, EQ, DATE, RA, DA)}
+   Mean place to geocentric apparent place
+\subp{CALL sla\_MAPPA (EQ, DATE, AMPRMS)}
+   Precompute mean to apparent parameters
+\subp{CALL sla\_MAPQK (RM, DM, PR, PD, PX, RV, AMPRMS, RA, DA)}
+   Mean to apparent using precomputed parameters
+\subp{CALL sla\_MAPQKZ (RM, DM, AMPRMS, RA, DA)}
+   Mean to apparent using precomputed parameters, for zero proper
+     motion, parallax and radial velocity
+\subp{CALL sla\_AMP (RA, DA, DATE, EQ, RM, DM)}
+   Geocentric apparent place to mean place
+\subp{CALL sla\_AMPQK (RA, DA, AOPRMS, RM, DM)}
+   Apparent to mean using precomputed parameters
+\subp{CALL sla\_AOP (\vtop
+                      {\hbox{RAP, DAP, UTC, DUT, ELONGM, PHIM, HM, XP, YP,}
+                       \hbox{TDK, PMB, RH, WL, TLR, AOB, ZOB, HOB, DOB, ROB)}}}
+   Apparent place to observed place
+\subp{CALL sla\_AOPPA (\vtop
+                        {\hbox{UTC, DUT, ELONGM, PHIM, HM, XP, YP,}
+                         \hbox{TDK, PMB, RH, WL, TLR, AOPRMS)}}}
+   Precompute apparent to observed parameters
+\subp{CALL sla\_AOPPAT (UTC, AOPRMS)}
+   Update sidereal time in apparent to observed parameters
+\subp{CALL sla\_AOPQK (RAP, DAP, AOPRMS, AOB, ZOB, HOB, DOB, ROB)}
+   Apparent to observed using precomputed parameters
+\subp{CALL sla\_OAP (\vtop
+                     {\hbox{TYPE, OB1, OB2, UTC, DUT, ELONGM, PHIM, HM, XP, YP,}
+                      \hbox{TDK, PMB, RH, WL, TLR, RAP, DAP)}}}
+   Observed to apparent
+\subp{CALL sla\_OAPQK (TYPE, OB1, OB2, AOPRMS, RA, DA)}
+   Observed to apparent using precomputed parameters
+\end{callset}
+
+\callhead{Azimuth and Elevation}
+\begin{callset}
+\subp{CALL sla\_ALTAZ (\vtop
+               {\hbox{HA, DEC, PHI,}
+                \hbox{AZ, AZD, AZDD, EL, ELD, ELDD, PA, PAD, PADD)}}}
+   Positions, velocities {\it etc.}\ for an altazimuth mount
+\subq{CALL sla\_E2H (HA, DEC, PHI, AZ, EL)}
+     {CALL sla\_DE2H (HA, DEC, PHI, AZ, EL)}
+   \hadec\ to \azel
+\subq{CALL sla\_H2E (AZ, EL, PHI, HA, DEC)}
+     {CALL sla\_DH2E (AZ, EL, PHI, HA, DEC)}
+   \azel\ to \hadec
+\subp{CALL sla\_PDA2H (P, D, A, H1, J1, H2, J2)}
+   Hour Angle corresponding to a given azimuth
+\subp{CALL sla\_PDQ2H (P, D, Q, H1, J1, H2, J2)}
+   Hour Angle corresponding to a given parallactic angle
+\subp{D~=~sla\_PA (HA, DEC, PHI)}
+   \hadec\ to parallactic angle
+\subp{D~=~sla\_ZD (HA, DEC, PHI)}
+   \hadec\ to zenith distance
+\end{callset}
+
+\callhead{Refraction and Air Mass}
+\begin{callset}
+\subp{CALL sla\_REFRO (ZOBS, HM, TDK, PMB, RH, WL, PHI, TLR, EPS, REF)}
+   Change in zenith distance due to refraction
+\subp{CALL sla\_REFCO (HM, TDK, PMB, RH, WL, PHI, TLR, EPS, REFA, REFB)}
+   Constants for simple refraction model (accurate)
+\subp{CALL sla\_REFCOQ (TDK, PMB, RH, WL, REFA, REFB)}
+   Constants for simple refraction model (fast)
+\subp{CALL sla\_ATMDSP ( TDK, PMB, RH, WL1, REFA1, REFB1, WL2, REFA2, REFB2 )}
+   Adjust refraction constants for colour
+\subp{CALL sla\_REFZ (ZU, REFA, REFB, ZR)}
+   Unrefracted to refracted ZD, simple model
+\subp{CALL sla\_REFV (VU, REFA, REFB, VR)}
+   Unrefracted to refracted \azel\ vector, simple model
+\subp{D~=~sla\_AIRMAS (ZD)}
+   Air mass
+\end{callset}
+
+\callhead{Ecliptic Coordinates}
+\begin{callset}
+\subp{CALL sla\_ECMAT (DATE, RMAT)}
+   Equatorial to ecliptic rotation matrix
+\subp{CALL sla\_EQECL (DR, DD, DATE, DL, DB)}
+   J2000.0 `FK5' to ecliptic coordinates
+\subp{CALL sla\_ECLEQ (DL, DB, DATE, DR, DD)}
+   Ecliptic coordinates to J2000.0 `FK5'
+\end{callset}
+
+\callhead{Galactic Coordinates}
+\begin{callset}
+\subp{CALL sla\_EG50 (DR, DD, DL, DB)}
+   B1950.0 `FK4' to galactic
+\subp{CALL sla\_GE50 (DL, DB, DR, DD)}
+   Galactic to B1950.0 `FK4'
+\subp{CALL sla\_EQGAL (DR, DD, DL, DB)}
+   J2000.0 `FK5' to galactic
+\subp{CALL sla\_GALEQ (DL, DB, DR, DD)}
+   Galactic to J2000.0 `FK5'
+\end{callset}
+
+\callhead{Supergalactic Coordinates}
+\begin{callset}
+\subp{CALL sla\_GALSUP (DL, DB, DSL, DSB)}
+   Galactic to supergalactic
+\subp{CALL sla\_SUPGAL (DSL, DSB, DL, DB)}
+   Supergalactic to galactic
+\end{callset}
+
+\callhead{Ephemerides}
+\begin{callset}
+\subp{CALL sla\_DMOON (DATE, PV)}
+   Approximate geocentric position and velocity of the Moon
+\subp{CALL sla\_EARTH (IY, ID, FD, PV)}
+   Approximate heliocentric position and velocity of the Earth
+\subp{CALL sla\_EVP (DATE, DEQX, DVB, DPB, DVH, DPH)}
+   Barycentric and heliocentric velocity and position of the Earth
+\subp{CALL sla\_MOON (IY, ID, FD, PV)}
+   Approximate geocentric position and velocity of the Moon
+\subp{CALL sla\_PLANET (DATE, NP, PV, JSTAT)}
+   Approximate heliocentric position and velocity of a planet
+\subp{CALL sla\_RDPLAN (DATE, NP, ELONG, PHI, RA, DEC, DIAM)}
+   Approximate topocentric apparent place of a planet
+\subp{CALL sla\_PLANEL (\vtop
+                       {\hbox{DATE, JFORM, EPOCH, ORBINC, ANODE, PERIH,}
+                      \hbox{AORQ, E, AORL, DM, PV, JSTAT)}}}
+   Heliocentric position and velocity of a planet, asteroid or
+   comet, starting from orbital elements
+\subp{CALL sla\_PLANTE (\vtop
+                       {\hbox{DATE, ELONG, PHI, JFORM, EPOCH, ORBINC, ANODE,}
+                      \hbox{PERIH, AORQ, E, AORL, DM, RA, DEC, R, JSTAT)}}}
+   Topocentric apparent place of a Solar-System object whose
+   heliocentric orbital elements are known
+\subp{CALL sla\_PV2EL (\vtop
+                      {\hbox{PV, DATE, PMASS, JFORMR, JFORM, EPOCH, ORBINC,}
+                     \hbox{ANODE, PERIH, AORQ, E, AORL, DM, JSTAT)}}}
+   Orbital elements of a planet from instantaneous position and velocity
+\subp{CALL sla\_PERTEL (\vtop
+                       {\hbox{JFORM, DATE0, DATE1,}
+                     \hbox{EPOCH0, ORBI0, ANODE0, PERIH0, AORQ0, E0, AM0,}
+                     \hbox{EPOCH1, ORBI1, ANODE1, PERIH1, AORQ1, E1, AM1,}
+                     \hbox{JSTAT)}}}
+   Update elements by applying perturbations
+\subp{CALL sla\_EL2UE (\vtop
+                      {\hbox{DATE, JFORM, EPOCH, ORBINC, ANODE,}
+                     \hbox{PERIH, AORQ, E, AORL, DM,}
+                     \hbox{U, JSTAT)}}}
+   Transform conventional elements to universal elements
+\subp{CALL sla\_UE2EL (\vtop
+                      {\hbox{U, JFORMR,}
+                     \hbox{JFORM, EPOCH, ORBINC, ANODE, PERIH,}
+                     \hbox{AORQ, E, AORL, DM, JSTAT)}}}
+   Transform universal elements to conventional elements
+\subp{CALL sla\_PV2UE (PV, DATE, PMASS, U, JSTAT)}
+   Package a position and velocity for use as universal elements
+\subp{CALL sla\_UE2PV (DATE, U, PV, JSTAT)}
+   Extract the position and velocity from universal elements
+\subp{CALL sla\_PERTUE (DATE, U, JSTAT)}
+   Update universal elements by applying perturbations
+\subp{R~=~sla\_RVEROT (PHI, RA, DA, ST)}
+   Velocity component due to rotation of the Earth
+\subp{CALL sla\_ECOR (RM, DM, IY, ID, FD, RV, TL)}
+   Components of velocity and light time due to Earth orbital motion
+\subp{R~=~sla\_RVLSRD (R2000, D2000)}
+   Velocity component due to solar motion wrt dynamical LSR
+\subp{R~=~sla\_RVLSRK (R2000, D2000)}
+   Velocity component due to solar motion wrt kinematical LSR
+\subp{R~=~sla\_RVGALC (R2000, D2000)}
+   Velocity component due to rotation of the Galaxy
+\subp{R~=~sla\_RVLG (R2000, D2000)}
+   Velocity component due to rotation and translation of the
+   Galaxy, relative to the mean motion of the local group
+\end{callset}
+
+\callhead{Astrometry}
+\begin{callset}
+\subq{CALL sla\_S2TP (RA, DEC, RAZ, DECZ, XI, ETA, J)}
+     {CALL sla\_DS2TP (RA, DEC, RAZ, DECZ, XI, ETA, J)}
+   Transform spherical coordinates into tangent plane
+\subq{CALL sla\_V2TP (V, V0, XI, ETA, J)}
+     {CALL sla\_DV2TP (V, V0, XI, ETA, J)}
+   Transform \xyz\ into tangent plane coordinates
+\subq{CALL sla\_DTP2S (XI, ETA, RAZ, DECZ, RA, DEC)}
+     {CALL sla\_TP2S (XI, ETA, RAZ, DECZ, RA, DEC)}
+   Transform tangent plane coordinates into spherical coordinates
+\subq{CALL sla\_DTP2V (XI, ETA, V0, V)}
+     {CALL sla\_TP2V (XI, ETA, V0, V)}
+   Transform tangent plane coordinates into \xyz
+\subq{CALL sla\_DTPS2C (XI, ETA, RA, DEC, RAZ1, DECZ1, RAZ2, DECZ2, N)}
+     {CALL sla\_TPS2C (XI, ETA, RA, DEC, RAZ1, DECZ1, RAZ2, DECZ2, N)}
+   Get plate centre from star \radec\ and tangent plane coordinates
+\subq{CALL sla\_DTPV2C (XI, ETA, V, V01, V02, N)}
+     {CALL sla\_TPV2C (XI, ETA, V, V01, V02, N)}
+   Get plate centre from star \xyz\ and tangent plane coordinates
+\subp{CALL sla\_PCD (DISCO, X, Y)}
+   Apply pincushion/barrel distortion
+\subp{CALL sla\_UNPCD (DISCO, X, Y)}
+   Remove pincushion/barrel distortion
+\subp{CALL sla\_FITXY (ITYPE, NP, XYE, XYM, COEFFS, J)}
+   Fit a linear model to relate two sets of \xy\ coordinates
+\subp{CALL sla\_PXY (NP, XYE, XYM, COEFFS, XYP, XRMS, YRMS, RRMS)}
+   Compute predicted coordinates and residuals
+\subp{CALL sla\_INVF (FWDS, BKWDS, J)}
+   Invert a linear model
+\subp{CALL sla\_XY2XY (X1, Y1, COEFFS, X2, Y2)}
+   Transform one \xy
+\subp{CALL sla\_DCMPF (COEFFS, XZ, YZ, XS, YS, PERP, ORIENT)}
+   Decompose a linear fit into scales {\it etc.}
+\end{callset}
+
+\callhead{Numerical Methods}
+\begin{callset}
+\subp{CALL sla\_COMBN (NSEL, NCAND, LIST, J)}
+   Next combination (subset from a specified number of items)
+\subp{CALL sla\_PERMUT (N, ISTATE, IORDER, J)}
+   Next permutation of a specified number of items
+\subq{CALL sla\_SMAT (N, A, Y, D, JF, IW)}
+     {CALL sla\_DMAT (N, A, Y, D, JF, IW)}
+   Matrix inversion and solution of simultaneous equations
+\subp{CALL sla\_SVD (M, N, MP, NP, A, W, V, WORK, JSTAT)}
+   Singular value decomposition of a matrix
+\subp{CALL sla\_SVDSOL (M, N, MP, NP, B, U, W, V, WORK, X)}
+   Solution from given vector plus SVD
+\subp{CALL sla\_SVDCOV (N, NP, NC, W, V, WORK, CVM)}
+   Covariance matrix from SVD
+\subp{R~=~sla\_RANDOM (SEED)}
+   Generate pseudo-random real number in the range {$0 \leq x < 1$}
+\subp{R~=~sla\_GRESID (S)}
+   Generate pseudo-random normal deviate ($\equiv$ `Gaussian residual')
+\end{callset}
+
+\callhead{Real-time}
+\begin{callset}
+\subp{CALL sla\_WAIT (DELAY)}
+    Interval wait
+\end{callset}
+
+\end{document}
diff --git a/src/slalib/supgal.f b/src/slalib/supgal.f
new file mode 100644
index 0000000..4658c8a
--- /dev/null
+++ b/src/slalib/supgal.f
@@ -0,0 +1,79 @@
+      SUBROUTINE sla_SUPGAL (DSL, DSB, DL, DB)
+*+
+*     - - - - - - -
+*      S U P G A L
+*     - - - - - - -
+*
+*  Transformation from de Vaucouleurs supergalactic coordinates
+*  to IAU 1958 galactic coordinates (double precision)
+*
+*  Given:
+*     DSL,DSB     dp       supergalactic longitude and latitude
+*
+*  Returned:
+*     DL,DB       dp       galactic longitude and latitude L2,B2
+*
+*  (all arguments are radians)
+*
+*  Called:
+*     sla_DCS2C, sla_DIMXV, sla_DCC2S, sla_DRANRM, sla_DRANGE
+*
+*  References:
+*
+*     de Vaucouleurs, de Vaucouleurs, & Corwin, Second Reference
+*     Catalogue of Bright Galaxies, U. Texas, page 8.
+*
+*     Systems & Applied Sciences Corp., Documentation for the
+*     machine-readable version of the above catalogue,
+*     Contract NAS 5-26490.
+*
+*    (These two references give different values for the galactic
+*     longitude of the supergalactic origin.  Both are wrong;  the
+*     correct value is L2=137.37.)
+*
+*  P.T.Wallace   Starlink   March 1986
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DSL,DSB,DL,DB
+
+      DOUBLE PRECISION sla_DRANRM,sla_DRANGE
+
+      DOUBLE PRECISION V1(3),V2(3)
+
+*
+*  System of supergalactic coordinates:
+*
+*    SGL   SGB        L2     B2      (deg)
+*     -    +90      47.37  +6.32
+*     0     0         -      0
+*
+*  Galactic to supergalactic rotation matrix:
+*
+      DOUBLE PRECISION RMAT(3,3)
+      DATA RMAT(1,1),RMAT(1,2),RMAT(1,3),
+     :     RMAT(2,1),RMAT(2,2),RMAT(2,3),
+     :     RMAT(3,1),RMAT(3,2),RMAT(3,3)/
+     : -0.735742574804D0,+0.677261296414D0,+0.000000000000D0,
+     : -0.074553778365D0,-0.080991471307D0,+0.993922590400D0,
+     : +0.673145302109D0,+0.731271165817D0,+0.110081262225D0/
+
+
+
+*  Spherical to Cartesian
+      CALL sla_DCS2C(DSL,DSB,V1)
+
+*  Supergalactic to galactic
+      CALL sla_DIMXV(RMAT,V1,V2)
+
+*  Cartesian to spherical
+      CALL sla_DCC2S(V2,DL,DB)
+
+*  Express in conventional ranges
+      DL=sla_DRANRM(DL)
+      DB=sla_DRANGE(DB)
+
+      END
diff --git a/src/slalib/svd.f b/src/slalib/svd.f
new file mode 100644
index 0000000..8498333
--- /dev/null
+++ b/src/slalib/svd.f
@@ -0,0 +1,379 @@
+      SUBROUTINE sla_SVD (M, N, MP, NP, A, W, V, WORK, JSTAT)
+*+
+*     - - - -
+*      S V D
+*     - - - -
+*
+*  Singular value decomposition  (double precision)
+*
+*  This routine expresses a given matrix A as the product of
+*  three matrices U, W, V:
+*
+*     A = U x W x VT
+*
+*  Where:
+*
+*     A   is any M (rows) x N (columns) matrix, where M.GE.N
+*     U   is an M x N column-orthogonal matrix
+*     W   is an N x N diagonal matrix with W(I,I).GE.0
+*     VT  is the transpose of an N x N orthogonal matrix
+*
+*     Note that M and N, above, are the LOGICAL dimensions of the
+*     matrices and vectors concerned, which can be located in
+*     arrays of larger PHYSICAL dimensions, given by MP and NP.
+*
+*  Given:
+*     M,N    i         numbers of rows and columns in matrix A
+*     MP,NP  i         physical dimensions of array containing matrix A
+*     A      d(MP,NP)  array containing MxN matrix A
+*
+*  Returned:
+*     A      d(MP,NP)  array containing MxN column-orthogonal matrix U
+*     W      d(N)      NxN diagonal matrix W (diagonal elements only)
+*     V      d(NP,NP)  array containing NxN orthogonal matrix V
+*     WORK   d(N)      workspace
+*     JSTAT  i         0 = OK, -1 = A wrong shape, >0 = index of W
+*                      for which convergence failed.  See note 2, below.
+*
+*   Notes:
+*
+*   1)  V contains matrix V, not the transpose of matrix V.
+*
+*   2)  If the status JSTAT is greater than zero, this need not
+*       necessarily be treated as a failure.  It means that, due to
+*       chance properties of the matrix A, the QR transformation
+*       phase of the routine did not fully converge in a predefined
+*       number of iterations, something that very seldom occurs.
+*       When this condition does arise, it is possible that the
+*       elements of the diagonal matrix W have not been correctly
+*       found.  However, in practice the results are likely to
+*       be trustworthy.  Applications should report the condition
+*       as a warning, but then proceed normally.
+*
+*  References:
+*     The algorithm is an adaptation of the routine SVD in the EISPACK
+*     library (Garbow et al 1977, EISPACK Guide Extension, Springer
+*     Verlag), which is a FORTRAN 66 implementation of the Algol
+*     routine SVD of Wilkinson & Reinsch 1971 (Handbook for Automatic
+*     Computation, vol 2, ed Bauer et al, Springer Verlag).  These
+*     references give full details of the algorithm used here.  A good
+*     account of the use of SVD in least squares problems is given in
+*     Numerical Recipes (Press et al 1986, Cambridge University Press),
+*     which includes another variant of the EISPACK code.
+*
+*  P.T.Wallace   Starlink   22 December 1993
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER M,N,MP,NP
+      DOUBLE PRECISION A(MP,NP),W(N),V(NP,NP),WORK(N)
+      INTEGER JSTAT
+
+*  Maximum number of iterations in QR phase
+      INTEGER ITMAX
+      PARAMETER (ITMAX=30)
+
+      INTEGER I,K,L,J,K1,ITS,L1,I1
+      LOGICAL CANCEL
+      DOUBLE PRECISION G,SCALE,AN,S,X,F,H,C,Y,Z
+
+
+
+*  Check that the matrix is the right shape
+      IF (M.LT.N) THEN
+
+*     No:  error status
+         JSTAT = -1
+
+      ELSE
+
+*     Yes:  preset the status to OK
+         JSTAT = 0
+
+*
+*     Householder reduction to bidiagonal form
+*     ----------------------------------------
+
+         G = 0D0
+         SCALE = 0D0
+         AN = 0D0
+         DO I=1,N
+            L = I+1
+            WORK(I) = SCALE*G
+            G = 0D0
+            S = 0D0
+            SCALE = 0D0
+            IF (I.LE.M) THEN
+               DO K=I,M
+                  SCALE = SCALE+ABS(A(K,I))
+               END DO
+               IF (SCALE.NE.0D0) THEN
+                  DO K=I,M
+                     X = A(K,I)/SCALE
+                     A(K,I) = X
+                     S = S+X*X
+                  END DO
+                  F = A(I,I)
+                  G = -SIGN(SQRT(S),F)
+                  H = F*G-S
+                  A(I,I) = F-G
+                  IF (I.NE.N) THEN
+                     DO J=L,N
+                        S = 0D0
+                        DO K=I,M
+                           S = S+A(K,I)*A(K,J)
+                        END DO
+                        F = S/H
+                        DO K=I,M
+                           A(K,J) = A(K,J)+F*A(K,I)
+                        END DO
+                     END DO
+                  END IF
+                  DO K=I,M
+                     A(K,I) = SCALE*A(K,I)
+                  END DO
+               END IF
+            END IF
+            W(I) = SCALE*G
+            G = 0D0
+            S = 0D0
+            SCALE = 0D0
+            IF (I.LE.M .AND. I.NE.N) THEN
+               DO K=L,N
+                  SCALE = SCALE+ABS(A(I,K))
+               END DO
+               IF (SCALE.NE.0D0) THEN
+                  DO K=L,N
+                     X = A(I,K)/SCALE
+                     A(I,K) = X
+                     S = S+X*X
+                  END DO
+                  F = A(I,L)
+                  G = -SIGN(SQRT(S),F)
+                  H = F*G-S
+                  A(I,L) = F-G
+                  DO K=L,N
+                     WORK(K) = A(I,K)/H
+                  END DO
+                  IF (I.NE.M) THEN
+                     DO J=L,M
+                        S = 0D0
+                        DO K=L,N
+                           S = S+A(J,K)*A(I,K)
+                        END DO
+                        DO K=L,N
+                           A(J,K) = A(J,K)+S*WORK(K)
+                        END DO
+                     END DO
+                  END IF
+                  DO K=L,N
+                     A(I,K) = SCALE*A(I,K)
+                  END DO
+               END IF
+            END IF
+
+*        Overestimate of largest column norm for convergence test
+            AN = MAX(AN,ABS(W(I))+ABS(WORK(I)))
+
+         END DO
+
+*
+*     Accumulation of right-hand transformations
+*     ------------------------------------------
+
+         DO I=N,1,-1
+            IF (I.NE.N) THEN
+               IF (G.NE.0D0) THEN
+                  DO J=L,N
+                     V(J,I) = (A(I,J)/A(I,L))/G
+                  END DO
+                  DO J=L,N
+                     S = 0D0
+                     DO K=L,N
+                        S = S+A(I,K)*V(K,J)
+                     END DO
+                     DO K=L,N
+                        V(K,J) = V(K,J)+S*V(K,I)
+                     END DO
+                  END DO
+               END IF
+               DO J=L,N
+                  V(I,J) = 0D0
+                  V(J,I) = 0D0
+               END DO
+            END IF
+            V(I,I) = 1D0
+            G = WORK(I)
+            L = I
+         END DO
+
+*
+*     Accumulation of left-hand transformations
+*     -----------------------------------------
+
+         DO I=N,1,-1
+            L = I+1
+            G = W(I)
+            IF (I.NE.N) THEN
+               DO J=L,N
+                  A(I,J) = 0D0
+               END DO
+            END IF
+            IF (G.NE.0D0) THEN
+               IF (I.NE.N) THEN
+                  DO J=L,N
+                     S = 0D0
+                     DO K=L,M
+                        S = S+A(K,I)*A(K,J)
+                     END DO
+                     F = (S/A(I,I))/G
+                     DO K=I,M
+                        A(K,J) = A(K,J)+F*A(K,I)
+                     END DO
+                  END DO
+               END IF
+               DO J=I,M
+                  A(J,I) = A(J,I)/G
+               END DO
+            ELSE
+               DO J=I,M
+                  A(J,I) = 0D0
+               END DO
+            END IF
+            A(I,I) = A(I,I)+1D0
+         END DO
+
+*
+*     Diagonalisation of the bidiagonal form
+*     --------------------------------------
+
+         DO K=N,1,-1
+            K1 = K-1
+
+*        Iterate until converged
+            ITS = 0
+            DO WHILE (ITS.LT.ITMAX)
+               ITS = ITS+1
+
+*           Test for splitting into submatrices
+               CANCEL = .TRUE.
+               DO L=K,1,-1
+                  L1 = L-1
+                  IF (AN+ABS(WORK(L)).EQ.AN) THEN
+                     CANCEL = .FALSE.
+                     GO TO 10
+                  END IF
+*              (Following never attempted for L=1 because WORK(1) is zero)
+                  IF (AN+ABS(W(L1)).EQ.AN) GO TO 10
+               END DO
+ 10            CONTINUE
+
+*           Cancellation of WORK(L) if L>1
+               IF (CANCEL) THEN
+                  C = 0D0
+                  S = 1D0
+                  DO I=L,K
+                     F = S*WORK(I)
+                     IF (AN+ABS(F).EQ.AN) GO TO 20
+                     G = W(I)
+                     H = SQRT(F*F+G*G)
+                     W(I) = H
+                     C = G/H
+                     S = -F/H
+                     DO J=1,M
+                        Y = A(J,L1)
+                        Z = A(J,I)
+                        A(J,L1) = Y*C+Z*S
+                        A(J,I) = -Y*S+Z*C
+                     END DO
+                  END DO
+ 20               CONTINUE
+               END IF
+
+*           Converged?
+               Z = W(K)
+               IF (L.EQ.K) THEN
+
+*              Yes:  stop iterating
+                  ITS = ITMAX
+
+*              Ensure singular values non-negative
+                  IF (Z.LT.0D0) THEN
+                     W(K) = -Z
+                     DO J=1,N
+                        V(J,K) = -V(J,K)
+                     END DO
+                  END IF
+               ELSE
+
+*              Not converged yet:  set status if iteration limit reached
+                  IF (ITS.EQ.ITMAX) JSTAT = K
+
+*              Shift from bottom 2x2 minor
+                  X = W(L)
+                  Y = W(K1)
+                  G = WORK(K1)
+                  H = WORK(K)
+                  F = ((Y-Z)*(Y+Z)+(G-H)*(G+H))/(2D0*H*Y)
+                  IF (ABS(F).LE.1D15) THEN
+                     G = SQRT(F*F+1D0)
+                  ELSE
+                     G = ABS(F)
+                  END IF
+                  F = ((X-Z)*(X+Z)+H*(Y/(F+SIGN(G,F))-H))/X
+
+*              Next QR transformation
+                  C = 1D0
+                  S = 1D0
+                  DO I1=L,K1
+                     I = I1+1
+                     G = WORK(I)
+                     Y = W(I)
+                     H = S*G
+                     G = C*G
+                     Z = SQRT(F*F+H*H)
+                     WORK(I1) = Z
+                     IF (Z.NE.0D0) THEN
+                        C = F/Z
+                        S = H/Z
+                     ELSE
+                        C = 1D0
+                        S = 0D0
+                     END IF
+                     F = X*C+G*S
+                     G = -X*S+G*C
+                     H = Y*S
+                     Y = Y*C
+                     DO J=1,N
+                        X = V(J,I1)
+                        Z = V(J,I)
+                        V(J,I1) = X*C+Z*S
+                        V(J,I) = -X*S+Z*C
+                     END DO
+                     Z = SQRT(F*F+H*H)
+                     W(I1) = Z
+                     IF (Z.NE.0D0) THEN
+                        C = F/Z
+                        S = H/Z
+                     END IF
+                     F = C*G+S*Y
+                     X = -S*G+C*Y
+                     DO J=1,M
+                        Y = A(J,I1)
+                        Z = A(J,I)
+                        A(J,I1) = Y*C+Z*S
+                        A(J,I) = -Y*S+Z*C
+                     END DO
+                  END DO
+                  WORK(L) = 0D0
+                  WORK(K) = F
+                  W(K) = X
+               END IF
+            END DO
+         END DO
+      END IF
+
+      END
diff --git a/src/slalib/svdcov.f b/src/slalib/svdcov.f
new file mode 100644
index 0000000..86d882c
--- /dev/null
+++ b/src/slalib/svdcov.f
@@ -0,0 +1,60 @@
+      SUBROUTINE sla_SVDCOV (N, NP, NC, W, V, WORK, CVM)
+*+
+*     - - - - - - -
+*      S V D C O V
+*     - - - - - - -
+*
+*  From the W and V matrices from the SVD factorisation of a matrix
+*  (as obtained from the sla_SVD routine), obtain the covariance matrix.
+*
+*  (double precision)
+*
+*  Given:
+*     N      i         number of rows and columns in matrices W and V
+*     NP     i         first dimension of array containing matrix V
+*     NC     i         first dimension of array to receive CVM
+*     W      d(N)      NxN diagonal matrix W (diagonal elements only)
+*     V      d(NP,NP)  array containing NxN orthogonal matrix V
+*
+*  Returned:
+*     WORK   d(N)      workspace
+*     CVM    d(NC,NC)  array to receive covariance matrix
+*
+*  Reference:
+*     Numerical Recipes, section 14.3.
+*
+*  P.T.Wallace   Starlink   December 1988
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER N,NP,NC
+      DOUBLE PRECISION W(N),V(NP,NP),WORK(N),CVM(NC,NC)
+
+      INTEGER I,J,K
+      DOUBLE PRECISION S
+
+
+
+      DO I=1,N
+         S=W(I)
+         IF (S.NE.0D0) THEN
+            WORK(I)=1D0/(S*S)
+         ELSE
+            WORK(I)=0D0
+         END IF
+      END DO
+      DO I=1,N
+         DO J=1,I
+            S=0D0
+            DO K=1,N
+               S=S+V(I,K)*V(J,K)*WORK(K)
+            END DO
+            CVM(I,J)=S
+            CVM(J,I)=S
+         END DO
+      END DO
+
+      END
diff --git a/src/slalib/svdsol.f b/src/slalib/svdsol.f
new file mode 100644
index 0000000..46ef6bb
--- /dev/null
+++ b/src/slalib/svdsol.f
@@ -0,0 +1,109 @@
+      SUBROUTINE sla_SVDSOL (M, N, MP, NP, B, U, W, V, WORK, X)
+*+
+*     - - - - - - -
+*      S V D S O L
+*     - - - - - - -
+*
+*  From a given vector and the SVD of a matrix (as obtained from
+*  the SVD routine), obtain the solution vector (double precision)
+*
+*  This routine solves the equation:
+*
+*     A . x = b
+*
+*  where:
+*
+*     A   is a given M (rows) x N (columns) matrix, where M.GE.N
+*     x   is the N-vector we wish to find
+*     b   is a given M-vector
+*
+*  by means of the Singular Value Decomposition method (SVD).  In
+*  this method, the matrix A is first factorised (for example by
+*  the routine sla_SVD) into the following components:
+*
+*     A = U x W x VT
+*
+*  where:
+*
+*     A   is the M (rows) x N (columns) matrix
+*     U   is an M x N column-orthogonal matrix
+*     W   is an N x N diagonal matrix with W(I,I).GE.0
+*     VT  is the transpose of an NxN orthogonal matrix
+*
+*     Note that M and N, above, are the LOGICAL dimensions of the
+*     matrices and vectors concerned, which can be located in
+*     arrays of larger PHYSICAL dimensions MP and NP.
+*
+*  The solution is found from the expression:
+*
+*     x = V . [diag(1/Wj)] . (transpose(U) . b)
+*
+*  Notes:
+*
+*  1)  If matrix A is square, and if the diagonal matrix W is not
+*      adjusted, the method is equivalent to conventional solution
+*      of simultaneous equations.
+*
+*  2)  If M>N, the result is a least-squares fit.
+*
+*  3)  If the solution is poorly determined, this shows up in the
+*      SVD factorisation as very small or zero Wj values.  Where
+*      a Wj value is small but non-zero it can be set to zero to
+*      avoid ill effects.  The present routine detects such zero
+*      Wj values and produces a sensible solution, with highly
+*      correlated terms kept under control rather than being allowed
+*      to elope to infinity, and with meaningful values for the
+*      other terms.
+*
+*  Given:
+*     M,N    i         numbers of rows and columns in matrix A
+*     MP,NP  i         physical dimensions of array containing matrix A
+*     B      d(M)      known vector b
+*     U      d(MP,NP)  array containing MxN matrix U
+*     W      d(N)      NxN diagonal matrix W (diagonal elements only)
+*     V      d(NP,NP)  array containing NxN orthogonal matrix V
+*
+*  Returned:
+*     WORK   d(N)      workspace
+*     X      d(N)      unknown vector x
+*
+*  Reference:
+*     Numerical Recipes, section 2.9.
+*
+*  P.T.Wallace   Starlink   29 October 1993
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      INTEGER M,N,MP,NP
+      DOUBLE PRECISION B(M),U(MP,NP),W(N),V(NP,NP),WORK(N),X(N)
+
+      INTEGER J,I,JJ
+      DOUBLE PRECISION S
+
+
+
+*  Calculate [diag(1/Wj)] . transpose(U) . b (or zero for zero Wj)
+      DO J=1,N
+         S=0D0
+         IF (W(J).NE.0D0) THEN
+            DO I=1,M
+               S=S+U(I,J)*B(I)
+            END DO
+            S=S/W(J)
+         END IF
+         WORK(J)=S
+      END DO
+
+*  Multiply by matrix V to get result
+      DO J=1,N
+         S=0D0
+         DO JJ=1,N
+            S=S+V(J,JJ)*WORK(JJ)
+         END DO
+         X(J)=S
+      END DO
+
+      END
diff --git a/src/slalib/tp2s.f b/src/slalib/tp2s.f
new file mode 100644
index 0000000..11be54a
--- /dev/null
+++ b/src/slalib/tp2s.f
@@ -0,0 +1,42 @@
+      SUBROUTINE sla_TP2S (XI, ETA, RAZ, DECZ, RA, DEC)
+*+
+*     - - - - -
+*      T P 2 S
+*     - - - - -
+*
+*  Transform tangent plane coordinates into spherical
+*  (single precision)
+*
+*  Given:
+*     XI,ETA      real  tangent plane rectangular coordinates
+*     RAZ,DECZ    real  spherical coordinates of tangent point
+*
+*  Returned:
+*     RA,DEC      real  spherical coordinates (0-2pi,+/-pi/2)
+*
+*  Called:        sla_RANORM
+*
+*  P.T.Wallace   Starlink   24 July 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL XI,ETA,RAZ,DECZ,RA,DEC
+
+      REAL sla_RANORM
+
+      REAL SDECZ,CDECZ,DENOM
+
+
+
+      SDECZ=SIN(DECZ)
+      CDECZ=COS(DECZ)
+
+      DENOM=CDECZ-ETA*SDECZ
+
+      RA=sla_RANORM(ATAN2(XI,DENOM)+RAZ)
+      DEC=ATAN2(SDECZ+ETA*CDECZ,SQRT(XI*XI+DENOM*DENOM))
+
+      END
diff --git a/src/slalib/tp2v.f b/src/slalib/tp2v.f
new file mode 100644
index 0000000..cd8db96
--- /dev/null
+++ b/src/slalib/tp2v.f
@@ -0,0 +1,56 @@
+      SUBROUTINE sla_TP2V (XI, ETA, V0, V)
+*+
+*     - - - - -
+*      T P 2 V
+*     - - - - -
+*
+*  Given the tangent-plane coordinates of a star and the direction
+*  cosines of the tangent point, determine the direction cosines
+*  of the star.
+*
+*  (single precision)
+*
+*  Given:
+*     XI,ETA    r       tangent plane coordinates of star
+*     V0        r(3)    direction cosines of tangent point
+*
+*  Returned:
+*     V         r(3)    direction cosines of star
+*
+*  Notes:
+*
+*  1  If vector V0 is not of unit length, the returned vector V will
+*     be wrong.
+*
+*  2  If vector V0 points at a pole, the returned vector V will be
+*     based on the arbitrary assumption that the RA of the tangent
+*     point is zero.
+*
+*  3  This routine is the Cartesian equivalent of the routine sla_TP2S.
+*
+*  P.T.Wallace   Starlink   11 February 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL XI,ETA,V0(3),V(3)
+
+      REAL X,Y,Z,F,R
+
+
+      X=V0(1)
+      Y=V0(2)
+      Z=V0(3)
+      F=SQRT(1.0+XI*XI+ETA*ETA)
+      R=SQRT(X*X+Y*Y)
+      IF (R.EQ.0.0) THEN
+         R=1E-20
+         X=R
+      END IF
+      V(1)=(X-(XI*Y+ETA*X*Z)/R)/F
+      V(2)=(Y+(XI*X-ETA*Y*Z)/R)/F
+      V(3)=(Z+ETA*R)/F
+
+      END
diff --git a/src/slalib/tps2c.f b/src/slalib/tps2c.f
new file mode 100644
index 0000000..d7a7a52
--- /dev/null
+++ b/src/slalib/tps2c.f
@@ -0,0 +1,91 @@
+      SUBROUTINE sla_TPS2C (XI, ETA, RA, DEC, RAZ1, DECZ1,
+     :                                        RAZ2, DECZ2, N)
+*+
+*     - - - - - -
+*      T P S 2 C
+*     - - - - - -
+*
+*  From the tangent plane coordinates of a star of known RA,Dec,
+*  determine the RA,Dec of the tangent point.
+*
+*  (single precision)
+*
+*  Given:
+*     XI,ETA      r    tangent plane rectangular coordinates
+*     RA,DEC      r    spherical coordinates
+*
+*  Returned:
+*     RAZ1,DECZ1  r    spherical coordinates of tangent point, solution 1
+*     RAZ2,DECZ2  r    spherical coordinates of tangent point, solution 2
+*     N           i    number of solutions:
+*                        0 = no solutions returned (note 2)
+*                        1 = only the first solution is useful (note 3)
+*                        2 = both solutions are useful (note 3)
+*
+*  Notes:
+*
+*  1  The RAZ1 and RAZ2 values are returned in the range 0-2pi.
+*
+*  2  Cases where there is no solution can only arise near the poles.
+*     For example, it is clearly impossible for a star at the pole
+*     itself to have a non-zero XI value, and hence it is
+*     meaningless to ask where the tangent point would have to be
+*     to bring about this combination of XI and DEC.
+*
+*  3  Also near the poles, cases can arise where there are two useful
+*     solutions.  The argument N indicates whether the second of the
+*     two solutions returned is useful.  N=1 indicates only one useful
+*     solution, the usual case;  under these circumstances, the second
+*     solution corresponds to the "over-the-pole" case, and this is
+*     reflected in the values of RAZ2 and DECZ2 which are returned.
+*
+*  4  The DECZ1 and DECZ2 values are returned in the range +/-pi, but
+*     in the usual, non-pole-crossing, case, the range is +/-pi/2.
+*
+*  5  This routine is the spherical equivalent of the routine sla_DTPV2C.
+*
+*  Called:  sla_RANORM
+*
+*  P.T.Wallace   Starlink   5 June 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL XI,ETA,RA,DEC,RAZ1,DECZ1,RAZ2,DECZ2
+      INTEGER N
+
+      REAL X2,Y2,SD,CD,SDF,R2,R,S,C
+
+      REAL sla_RANORM
+
+
+      X2=XI*XI
+      Y2=ETA*ETA
+      SD=SIN(DEC)
+      CD=COS(DEC)
+      SDF=SD*SQRT(1.0+X2+Y2)
+      R2=CD*CD*(1.0+Y2)-SD*SD*X2
+      IF (R2.GE.0.0) THEN
+         R=SQRT(R2)
+         S=SDF-ETA*R
+         C=SDF*ETA+R
+         IF (XI.EQ.0.0.AND.R.EQ.0.0) R=1.0
+         RAZ1=sla_RANORM(RA-ATAN2(XI,R))
+         DECZ1=ATAN2(S,C)
+         R=-R
+         S=SDF-ETA*R
+         C=SDF*ETA+R
+         RAZ2=sla_RANORM(RA-ATAN2(XI,R))
+         DECZ2=ATAN2(S,C)
+         IF (ABS(SDF).LT.1.0) THEN
+            N=1
+         ELSE
+            N=2
+         END IF
+      ELSE
+         N=0
+      END IF
+
+      END
diff --git a/src/slalib/tpv2c.f b/src/slalib/tpv2c.f
new file mode 100644
index 0000000..7afe25d
--- /dev/null
+++ b/src/slalib/tpv2c.f
@@ -0,0 +1,83 @@
+      SUBROUTINE sla_TPV2C (XI, ETA, V, V01, V02, N)
+*+
+*     - - - - - -
+*      T P V 2 C
+*     - - - - - -
+*
+*  Given the tangent-plane coordinates of a star and its direction
+*  cosines, determine the direction cosines of the tangent-point.
+*
+*  (single precision)
+*
+*  Given:
+*     XI,ETA    r       tangent plane coordinates of star
+*     V         r(3)    direction cosines of star
+*
+*  Returned:
+*     V01       r(3)    direction cosines of tangent point, solution 1
+*     V02       r(3)    direction cosines of tangent point, solution 2
+*     N         i       number of solutions:
+*                         0 = no solutions returned (note 2)
+*                         1 = only the first solution is useful (note 3)
+*                         2 = both solutions are useful (note 3)
+*
+*  Notes:
+*
+*  1  The vector V must be of unit length or the result will be wrong.
+*
+*  2  Cases where there is no solution can only arise near the poles.
+*     For example, it is clearly impossible for a star at the pole
+*     itself to have a non-zero XI value, and hence it is meaningless
+*     to ask where the tangent point would have to be.
+*
+*  3  Also near the poles, cases can arise where there are two useful
+*     solutions.  The argument N indicates whether the second of the
+*     two solutions returned is useful.  N=1 indicates only one useful
+*     solution, the usual case;  under these circumstances, the second
+*     solution can be regarded as valid if the vector V02 is interpreted
+*     as the "over-the-pole" case.
+*
+*  4  This routine is the Cartesian equivalent of the routine sla_TPS2C.
+*
+*  P.T.Wallace   Starlink   5 June 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL XI,ETA,V(3),V01(3),V02(3)
+      INTEGER N
+
+      REAL X,Y,Z,RXY2,XI2,ETA2P1,SDF,R2,R,C
+
+
+      X=V(1)
+      Y=V(2)
+      Z=V(3)
+      RXY2=X*X+Y*Y
+      XI2=XI*XI
+      ETA2P1=ETA*ETA+1.0
+      SDF=Z*SQRT(XI2+ETA2P1)
+      R2=RXY2*ETA2P1-Z*Z*XI2
+      IF (R2.GT.0.0) THEN
+         R=SQRT(R2)
+         C=(SDF*ETA+R)/(ETA2P1*SQRT(RXY2*(R2+XI2)))
+         V01(1)=C*(X*R+Y*XI)
+         V01(2)=C*(Y*R-X*XI)
+         V01(3)=(SDF-ETA*R)/ETA2P1
+         R=-R
+         C=(SDF*ETA+R)/(ETA2P1*SQRT(RXY2*(R2+XI2)))
+         V02(1)=C*(X*R+Y*XI)
+         V02(2)=C*(Y*R-X*XI)
+         V02(3)=(SDF-ETA*R)/ETA2P1
+         IF (ABS(SDF).LT.1.0) THEN
+            N=1
+         ELSE
+            N=2
+         END IF
+      ELSE
+         N=0
+      END IF
+
+      END
diff --git a/src/slalib/ue2el.f b/src/slalib/ue2el.f
new file mode 100644
index 0000000..d7187d9
--- /dev/null
+++ b/src/slalib/ue2el.f
@@ -0,0 +1,194 @@
+      SUBROUTINE sla_UE2EL (U, JFORMR,
+     :                      JFORM, EPOCH, ORBINC, ANODE, PERIH,
+     :                      AORQ, E, AORL, DM, JSTAT)
+*+
+*     - - - - - -
+*      U E 2 E L
+*     - - - - - -
+*
+*  Transform universal elements into conventional heliocentric
+*  osculating elements.
+*
+*  Given:
+*     U         d(13)  universal orbital elements (Note 1)
+*
+*                 (1)  combined mass (M+m)
+*                 (2)  total energy of the orbit (alpha)
+*                 (3)  reference (osculating) epoch (t0)
+*               (4-6)  position at reference epoch (r0)
+*               (7-9)  velocity at reference epoch (v0)
+*                (10)  heliocentric distance at reference epoch
+*                (11)  r0.v0
+*                (12)  date (t)
+*                (13)  universal eccentric anomaly (psi) of date, approx
+*
+*     JFORMR    i      requested element set (1-3; Note 3)
+*
+*  Returned:
+*     JFORM     d      element set actually returned (1-3; Note 4)
+*     EPOCH     d      epoch of elements (TT MJD)
+*     ORBINC    d      inclination (radians)
+*     ANODE     d      longitude of the ascending node (radians)
+*     PERIH     d      longitude or argument of perihelion (radians)
+*     AORQ      d      mean distance or perihelion distance (AU)
+*     E         d      eccentricity
+*     AORL      d      mean anomaly or longitude (radians, JFORM=1,2 only)
+*     DM        d      daily motion (radians, JFORM=1 only)
+*     JSTAT     i      status:  0 = OK
+*                              -1 = illegal combined mass
+*                              -2 = illegal JFORMR
+*                              -3 = position/velocity out of range
+*
+*  Notes
+*
+*  1  The "universal" elements are those which define the orbit for the
+*     purposes of the method of universal variables (see reference 2).
+*     They consist of the combined mass of the two bodies, an epoch,
+*     and the position and velocity vectors (arbitrary reference frame)
+*     at that epoch.  The parameter set used here includes also various
+*     quantities that can, in fact, be derived from the other
+*     information.  This approach is taken to avoiding unnecessary
+*     computation and loss of accuracy.  The supplementary quantities
+*     are (i) alpha, which is proportional to the total energy of the
+*     orbit, (ii) the heliocentric distance at epoch, (iii) the
+*     outwards component of the velocity at the given epoch, (iv) an
+*     estimate of psi, the "universal eccentric anomaly" at a given
+*     date and (v) that date.
+*
+*  2  The universal elements are with respect to the mean equator and
+*     equinox of epoch J2000.  The orbital elements produced are with
+*     respect to the J2000 ecliptic and mean equinox.
+*
+*  3  Three different element-format options are supported:
+*
+*     Option JFORM=1, suitable for the major planets:
+*
+*     EPOCH  = epoch of elements (TT MJD)
+*     ORBINC = inclination i (radians)
+*     ANODE  = longitude of the ascending node, big omega (radians)
+*     PERIH  = longitude of perihelion, curly pi (radians)
+*     AORQ   = mean distance, a (AU)
+*     E      = eccentricity, e
+*     AORL   = mean longitude L (radians)
+*     DM     = daily motion (radians)
+*
+*     Option JFORM=2, suitable for minor planets:
+*
+*     EPOCH  = epoch of elements (TT MJD)
+*     ORBINC = inclination i (radians)
+*     ANODE  = longitude of the ascending node, big omega (radians)
+*     PERIH  = argument of perihelion, little omega (radians)
+*     AORQ   = mean distance, a (AU)
+*     E      = eccentricity, e
+*     AORL   = mean anomaly M (radians)
+*
+*     Option JFORM=3, suitable for comets:
+*
+*     EPOCH  = epoch of perihelion (TT MJD)
+*     ORBINC = inclination i (radians)
+*     ANODE  = longitude of the ascending node, big omega (radians)
+*     PERIH  = argument of perihelion, little omega (radians)
+*     AORQ   = perihelion distance, q (AU)
+*     E      = eccentricity, e
+*
+*  4  It may not be possible to generate elements in the form
+*     requested through JFORMR.  The caller is notified of the form
+*     of elements actually returned by means of the JFORM argument:
+*
+*      JFORMR   JFORM     meaning
+*
+*        1        1       OK - elements are in the requested format
+*        1        2       never happens
+*        1        3       orbit not elliptical
+*
+*        2        1       never happens
+*        2        2       OK - elements are in the requested format
+*        2        3       orbit not elliptical
+*
+*        3        1       never happens
+*        3        2       never happens
+*        3        3       OK - elements are in the requested format
+*
+*  5  The arguments returned for each value of JFORM (cf Note 6: JFORM
+*     may not be the same as JFORMR) are as follows:
+*
+*         JFORM         1              2              3
+*         EPOCH         t0             t0             T
+*         ORBINC        i              i              i
+*         ANODE         Omega          Omega          Omega
+*         PERIH         curly pi       omega          omega
+*         AORQ          a              a              q
+*         E             e              e              e
+*         AORL          L              M              -
+*         DM            n              -              -
+*
+*     where:
+*
+*         t0           is the epoch of the elements (MJD, TT)
+*         T              "    epoch of perihelion (MJD, TT)
+*         i              "    inclination (radians)
+*         Omega          "    longitude of the ascending node (radians)
+*         curly pi       "    longitude of perihelion (radians)
+*         omega          "    argument of perihelion (radians)
+*         a              "    mean distance (AU)
+*         q              "    perihelion distance (AU)
+*         e              "    eccentricity
+*         L              "    longitude (radians, 0-2pi)
+*         M              "    mean anomaly (radians, 0-2pi)
+*         n              "    daily motion (radians)
+*         -             means no value is set
+*
+*  6  At very small inclinations, the longitude of the ascending node
+*     ANODE becomes indeterminate and under some circumstances may be
+*     set arbitrarily to zero.  Similarly, if the orbit is close to
+*     circular, the true anomaly becomes indeterminate and under some
+*     circumstances may be set arbitrarily to zero.  In such cases,
+*     the other elements are automatically adjusted to compensate,
+*     and so the elements remain a valid description of the orbit.
+*
+*  References:
+*
+*     1  Sterne, Theodore E., "An Introduction to Celestial Mechanics",
+*        Interscience Publishers Inc., 1960.  Section 6.7, p199.
+*
+*     2  Everhart, E. & Pitkin, E.T., Am.J.Phys. 51, 712, 1983.
+*
+*  Called:  sla_PV2EL
+*
+*  P.T.Wallace   Starlink   18 March 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION U(13)
+      INTEGER JFORMR,JFORM
+      DOUBLE PRECISION EPOCH,ORBINC,ANODE,PERIH,AORQ,E,AORL,DM
+      INTEGER JSTAT
+
+*  Gaussian gravitational constant (exact)
+      DOUBLE PRECISION GCON
+      PARAMETER (GCON=0.01720209895D0)
+
+*  Canonical days to seconds
+      DOUBLE PRECISION CD2S
+      PARAMETER (CD2S=GCON/86400D0)
+
+      INTEGER I
+      DOUBLE PRECISION PMASS,DATE,PV(6)
+
+
+*  Unpack the universal elements.
+      PMASS = U(1)-1D0
+      DATE = U(3)
+      DO I=1,3
+         PV(I) = U(I+3)
+         PV(I+3) = U(I+6)*CD2S
+      END DO
+
+*  Convert the position and velocity etc into conventional elements.
+      CALL sla_PV2EL(PV,DATE,PMASS,JFORMR,JFORM,EPOCH,ORBINC,ANODE,
+     :               PERIH,AORQ,E,AORL,DM,JSTAT)
+
+      END
diff --git a/src/slalib/ue2pv.f b/src/slalib/ue2pv.f
new file mode 100644
index 0000000..be7b59f
--- /dev/null
+++ b/src/slalib/ue2pv.f
@@ -0,0 +1,215 @@
+      SUBROUTINE sla_UE2PV (DATE, U, PV, JSTAT)
+*+
+*     - - - - - -
+*      U E 2 P V
+*     - - - - - -
+*
+*  Heliocentric position and velocity of a planet, asteroid or comet,
+*  starting from orbital elements in the "universal variables" form.
+*
+*  Given:
+*     DATE     d       date, Modified Julian Date (JD-2400000.5)
+*
+*  Given and returned:
+*     U        d(13)   universal orbital elements (updated; Note 1)
+*
+*       given    (1)   combined mass (M+m)
+*         "      (2)   total energy of the orbit (alpha)
+*         "      (3)   reference (osculating) epoch (t0)
+*         "    (4-6)   position at reference epoch (r0)
+*         "    (7-9)   velocity at reference epoch (v0)
+*         "     (10)   heliocentric distance at reference epoch
+*         "     (11)   r0.v0
+*     returned  (12)   date (t)
+*         "     (13)   universal eccentric anomaly (psi) of date
+*
+*  Returned:
+*     PV       d(6)    position (AU) and velocity (AU/s)
+*     JSTAT    i       status:  0 = OK
+*                              -1 = radius vector zero
+*                              -2 = failed to converge
+*
+*  Notes
+*
+*  1  The "universal" elements are those which define the orbit for the
+*     purposes of the method of universal variables (see reference).
+*     They consist of the combined mass of the two bodies, an epoch,
+*     and the position and velocity vectors (arbitrary reference frame)
+*     at that epoch.  The parameter set used here includes also various
+*     quantities that can, in fact, be derived from the other
+*     information.  This approach is taken to avoiding unnecessary
+*     computation and loss of accuracy.  The supplementary quantities
+*     are (i) alpha, which is proportional to the total energy of the
+*     orbit, (ii) the heliocentric distance at epoch, (iii) the
+*     outwards component of the velocity at the given epoch, (iv) an
+*     estimate of psi, the "universal eccentric anomaly" at a given
+*     date and (v) that date.
+*
+*  2  The companion routine is sla_EL2UE.  This takes the conventional
+*     orbital elements and transforms them into the set of numbers
+*     needed by the present routine.  A single prediction requires one
+*     one call to sla_EL2UE followed by one call to the present routine;
+*     for convenience, the two calls are packaged as the routine
+*     sla_PLANEL.  Multiple predictions may be made by again
+*     calling sla_EL2UE once, but then calling the present routine
+*     multiple times, which is faster than multiple calls to sla_PLANEL.
+*
+*     It is not obligatory to use sla_EL2UE to obtain the parameters.
+*     However, it should be noted that because sla_EL2UE performs its
+*     own validation, no checks on the contents of the array U are made
+*     by the present routine.
+*
+*  3  DATE is the instant for which the prediction is required.  It is
+*     in the TT timescale (formerly Ephemeris Time, ET) and is a
+*     Modified Julian Date (JD-2400000.5).
+*
+*  4  The universal elements supplied in the array U are in canonical
+*     units (solar masses, AU and canonical days).  The position and
+*     velocity are not sensitive to the choice of reference frame.  The
+*     sla_EL2UE routine in fact produces coordinates with respect to the
+*     J2000 equator and equinox.
+*
+*  5  The algorithm was originally adapted from the EPHSLA program of
+*     D.H.P.Jones (private communication, 1996).  The method is based
+*     on Stumpff's Universal Variables.
+*
+*  Reference:  Everhart, E. & Pitkin, E.T., Am.J.Phys. 51, 712, 1983.
+*
+*  P.T.Wallace   Starlink   19 March 1999
+*
+*  Copyright (C) 1999 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DATE,U(13),PV(6)
+      INTEGER JSTAT
+
+*  Gaussian gravitational constant (exact)
+      DOUBLE PRECISION GCON
+      PARAMETER (GCON=0.01720209895D0)
+
+*  Canonical days to seconds
+      DOUBLE PRECISION CD2S
+      PARAMETER (CD2S=GCON/86400D0)
+
+*  Test value for solution and maximum number of iterations
+      DOUBLE PRECISION TEST
+      INTEGER NITMAX
+      PARAMETER (TEST=1D-13,NITMAX=20)
+
+      INTEGER I,NIT,N
+
+      DOUBLE PRECISION CM,ALPHA,T0,P0(3),V0(3),R0,SIGMA0,T,PSI,DT,W,
+     :                 TOL,PSJ,PSJ2,BETA,S0,S1,S2,S3,FF,R,F,G,FD,GD
+
+
+
+*  Unpack the parameters.
+      CM = U(1)
+      ALPHA = U(2)
+      T0 = U(3)
+      DO I=1,3
+         P0(I) = U(I+3)
+         V0(I) = U(I+6)
+      END DO
+      R0 = U(10)
+      SIGMA0 = U(11)
+      T = U(12)
+      PSI = U(13)
+
+*  Approximately update the universal eccentric anomaly.
+      PSI = PSI+(DATE-T)*GCON/R0
+
+*  Time from reference epoch to date (in Canonical Days: a canonical
+*  day is 58.1324409... days, defined as 1/GCON).
+      DT = (DATE-T0)*GCON
+
+*  Refine the universal eccentric anomaly.
+      NIT = 1
+      W = 1D0
+      TOL = 0D0
+      DO WHILE (ABS(W).GE.TOL)
+
+*     Form half angles until BETA small enough.
+         N = 0
+         PSJ = PSI
+         PSJ2 = PSJ*PSJ
+         BETA = ALPHA*PSJ2
+         DO WHILE (ABS(BETA).GT.0.7D0)
+            N = N+1
+            BETA = BETA/4D0
+            PSJ = PSJ/2D0
+            PSJ2 = PSJ2/4D0
+         END DO
+
+*     Calculate Universal Variables S0,S1,S2,S3 by nested series.
+         S3 = PSJ*PSJ2*((((((BETA/210D0+1D0)
+     :                      *BETA/156D0+1D0)
+     :                      *BETA/110D0+1D0)
+     :                      *BETA/72D0+1D0)
+     :                      *BETA/42D0+1D0)
+     :                      *BETA/20D0+1D0)/6D0
+         S2 = PSJ2*((((((BETA/182D0+1D0)
+     :                  *BETA/132D0+1D0)
+     :                  *BETA/90D0+1D0)
+     :                  *BETA/56D0+1D0)
+     :                  *BETA/30D0+1D0)
+     :                  *BETA/12D0+1D0)/2D0
+         S1 = PSJ+ALPHA*S3
+         S0 = 1D0+ALPHA*S2
+
+*     Undo the angle-halving.
+         TOL = TEST
+         DO WHILE (N.GT.0)
+            S3 = 2D0*(S0*S3+PSJ*S2)
+            S2 = 2D0*S1*S1
+            S1 = 2D0*S0*S1
+            S0 = 2D0*S0*S0-1D0
+            PSJ = PSJ+PSJ
+            TOL = TOL+TOL
+            N = N-1
+         END DO
+
+*     Improve the approximation to PSI.
+         FF = R0*S1+SIGMA0*S2+CM*S3-DT
+         R = R0*S0+SIGMA0*S1+CM*S2
+         IF (R.EQ.0D0) GO TO 9010
+         W = FF/R
+         PSI = PSI-W
+
+*     Next iteration, unless too many already.
+         IF (NIT.GE.NITMAX) GO TO 9020
+         NIT = NIT+1
+      END DO
+
+*  Project the position and velocity vectors (scaling velocity to AU/s).
+      W = CM*S2
+      F = 1D0-W/R0
+      G = DT-CM*S3
+      FD = -CM*S1/(R0*R)
+      GD = 1D0-W/R
+      DO I=1,3
+         PV(I) = P0(I)*F+V0(I)*G
+         PV(I+3) = CD2S*(P0(I)*FD+V0(I)*GD)
+      END DO
+
+*  Update the parameters to allow speedy prediction of PSI next time.
+      U(12) = DATE
+      U(13) = PSI
+
+*  OK exit.
+      JSTAT = 0
+      GO TO 9999
+
+*  Null radius vector.
+ 9010 CONTINUE
+      JSTAT = -1
+      GO TO 9999
+
+*  Failed to converge.
+ 9020 CONTINUE
+      JSTAT = -2
+
+ 9999 CONTINUE
+      END
diff --git a/src/slalib/unpcd.f b/src/slalib/unpcd.f
new file mode 100644
index 0000000..9502671
--- /dev/null
+++ b/src/slalib/unpcd.f
@@ -0,0 +1,68 @@
+      SUBROUTINE sla_UNPCD (DISCO,X,Y)
+*+
+*     - - - - - -
+*      U N P C D
+*     - - - - - -
+*
+*  Remove pincushion/barrel distortion from a distorted [x,y]
+*  to give tangent-plane [x,y].
+*
+*  Given:
+*     DISCO    d      pincushion/barrel distortion coefficient
+*     X,Y      d      distorted coordinates
+*
+*  Returned:
+*     X,Y      d      tangent-plane coordinates
+*
+*  Notes:
+*
+*  1)  The distortion is of the form RP = R*(1 + C*R**2), where R is
+*      the radial distance from the tangent point, C is the DISCO
+*      argument, and RP is the radial distance in the presence of
+*      the distortion.
+*
+*  2)  For pincushion distortion, C is +ve;  for barrel distortion,
+*      C is -ve.
+*
+*  3)  For X,Y in "radians" - units of one projection radius,
+*      which in the case of a photograph is the focal length of
+*      the camera - the following DISCO values apply:
+*
+*          Geometry          DISCO
+*
+*          astrograph         0.0
+*          Schmidt           -0.3333
+*          AAT PF doublet  +147.069
+*          AAT PF triplet  +178.585
+*          AAT f/8          +21.20
+*          JKT f/8          +13.32
+*
+*  4)  The present routine is an approximate inverse to the
+*      companion routine sla_PCD, obtained from two iterations
+*      of Newton's method.  The mismatch between the sla_PCD and
+*      sla_UNPCD routines is negligible for astrometric applications;
+*      to reach 1 milliarcsec at the edge of the AAT triplet or
+*      Schmidt field would require field diameters of 2.4 degrees
+*      and 42 degrees respectively.
+*
+*  P.T.Wallace   Starlink   1 August 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION DISCO,X,Y
+
+      DOUBLE PRECISION CR2,A,CR2A2,F
+
+
+
+      CR2=DISCO*(X*X+Y*Y)
+      A=(2D0*CR2+1D0)/(3D0*CR2+1D0)
+      CR2A2=CR2*A*A
+      F=(2D0*CR2A2*A+1D0)/(3D0*CR2A2+1D0)
+      X=X*F
+      Y=Y*F
+
+      END
diff --git a/src/slalib/v2tp.f b/src/slalib/v2tp.f
new file mode 100644
index 0000000..c072bc8
--- /dev/null
+++ b/src/slalib/v2tp.f
@@ -0,0 +1,78 @@
+      SUBROUTINE sla_V2TP (V, V0, XI, ETA, J)
+*+
+*     - - - - -
+*      V 2 T P
+*     - - - - -
+*
+*  Given the direction cosines of a star and of the tangent point,
+*  determine the star's tangent-plane coordinates.
+*
+*  (single precision)
+*
+*  Given:
+*     V         r(3)    direction cosines of star
+*     V0        r(3)    direction cosines of tangent point
+*
+*  Returned:
+*     XI,ETA    r       tangent plane coordinates of star
+*     J         i       status:   0 = OK
+*                                 1 = error, star too far from axis
+*                                 2 = error, antistar on tangent plane
+*                                 3 = error, antistar too far from axis
+*
+*  Notes:
+*
+*  1  If vector V0 is not of unit length, or if vector V is of zero
+*     length, the results will be wrong.
+*
+*  2  If V0 points at a pole, the returned XI,ETA will be based on the
+*     arbitrary assumption that the RA of the tangent point is zero.
+*
+*  3  This routine is the Cartesian equivalent of the routine sla_S2TP.
+*
+*  P.T.Wallace   Starlink   27 November 1996
+*
+*  Copyright (C) 1996 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL V(3),V0(3),XI,ETA
+      INTEGER J
+
+      REAL X,Y,Z,X0,Y0,Z0,R2,R,W,D
+
+      REAL TINY
+      PARAMETER (TINY=1E-6)
+
+
+      X=V(1)
+      Y=V(2)
+      Z=V(3)
+      X0=V0(1)
+      Y0=V0(2)
+      Z0=V0(3)
+      R2=X0*X0+Y0*Y0
+      R=SQRT(R2)
+      IF (R.EQ.0.0) THEN
+         R=1E-20
+         X0=R
+      END IF
+      W=X*X0+Y*Y0
+      D=W+Z*Z0
+      IF (D.GT.TINY) THEN
+         J=0
+      ELSE IF (D.GE.0.0) THEN
+         J=1
+         D=TINY
+      ELSE IF (D.GT.-TINY) THEN
+         J=2
+         D=-TINY
+      ELSE
+         J=3
+      END IF
+      D=D*R
+      XI=(Y*X0-X*Y0)/D
+      ETA=(Z*R2-Z0*W)/D
+
+      END
diff --git a/src/slalib/vdv.f b/src/slalib/vdv.f
new file mode 100644
index 0000000..eddeac2
--- /dev/null
+++ b/src/slalib/vdv.f
@@ -0,0 +1,27 @@
+      REAL FUNCTION sla_VDV (VA, VB)
+*+
+*     - - - -
+*      V D V
+*     - - - -
+*
+*  Scalar product of two 3-vectors  (single precision)
+*
+*  Given:
+*      VA      real(3)     first vector
+*      VB      real(3)     second vector
+*
+*  The result is the scalar product VA.VB (single precision)
+*
+*  P.T.Wallace   Starlink   November 1984
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL VA(3),VB(3)
+
+
+      sla_VDV=VA(1)*VB(1)+VA(2)*VB(2)+VA(3)*VB(3)
+
+      END
diff --git a/src/slalib/vn.f b/src/slalib/vn.f
new file mode 100644
index 0000000..e252867
--- /dev/null
+++ b/src/slalib/vn.f
@@ -0,0 +1,46 @@
+      SUBROUTINE sla_VN (V, UV, VM)
+*+
+*     - - -
+*      V N
+*     - - -
+*
+*  Normalizes a 3-vector also giving the modulus (single precision)
+*
+*  Given:
+*     V       real(3)      vector
+*
+*  Returned:
+*     UV      real(3)      unit vector in direction of V
+*     VM      real         modulus of V
+*
+*  If the modulus of V is zero, UV is set to zero as well
+*
+*  P.T.Wallace   Starlink   23 November 1995
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL V(3),UV(3),VM
+
+      INTEGER I
+      REAL W1,W2
+
+
+*  Modulus
+      W1=0.0
+      DO I=1,3
+         W2=V(I)
+         W1=W1+W2*W2
+      END DO
+      W1=SQRT(W1)
+      VM=W1
+
+*  Normalize the vector
+      IF (W1.LE.0.0) W1=1.0
+      DO I=1,3
+         UV(I)=V(I)/W1
+      END DO
+
+      END
diff --git a/src/slalib/vxv.f b/src/slalib/vxv.f
new file mode 100644
index 0000000..e0b9d93
--- /dev/null
+++ b/src/slalib/vxv.f
@@ -0,0 +1,39 @@
+      SUBROUTINE sla_VXV (VA, VB, VC)
+*+
+*     - - - -
+*      V X V
+*     - - - -
+*
+*  Vector product of two 3-vectors (single precision)
+*
+*  Given:
+*      VA      real(3)     first vector
+*      VB      real(3)     second vector
+*
+*  Returned:
+*      VC      real(3)     vector result
+*
+*  P.T.Wallace   Starlink   March 1986
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL VA(3),VB(3),VC(3)
+
+      REAL VW(3)
+      INTEGER I
+
+
+*  Form the vector product VA cross VB
+      VW(1)=VA(2)*VB(3)-VA(3)*VB(2)
+      VW(2)=VA(3)*VB(1)-VA(1)*VB(3)
+      VW(3)=VA(1)*VB(2)-VA(2)*VB(1)
+
+*  Return the result
+      DO I=1,3
+         VC(I)=VW(I)
+      END DO
+
+      END
diff --git a/src/slalib/wait.f_alpha_OSF1 b/src/slalib/wait.f_alpha_OSF1
new file mode 100644
index 0000000..8eb80e1
--- /dev/null
+++ b/src/slalib/wait.f_alpha_OSF1
@@ -0,0 +1,32 @@
+      SUBROUTINE sla_WAIT (DELAY)
+*+
+*     - - - - -
+*      W A I T
+*     - - - - -
+*
+*  Interval wait
+*
+*  !!! Version for: SPARC/SunOS4, 
+*                   SPARC/Solaris2, 
+*                   DEC Mips/Ultrix
+*                   DEC AXP/Digital Unix
+*                   Intel/Linux
+*                   Convex
+*
+*  Given:
+*     DELAY     real      delay in seconds
+*
+*  Called:  SLEEP (a Fortran Intrinsic on all obove platforms)
+*
+*  P.T.Wallace   Starlink   22 January 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL DELAY
+
+      CALL SLEEP(NINT(DELAY))
+
+      END
diff --git a/src/slalib/wait.f_convex b/src/slalib/wait.f_convex
new file mode 100644
index 0000000..8eb80e1
--- /dev/null
+++ b/src/slalib/wait.f_convex
@@ -0,0 +1,32 @@
+      SUBROUTINE sla_WAIT (DELAY)
+*+
+*     - - - - -
+*      W A I T
+*     - - - - -
+*
+*  Interval wait
+*
+*  !!! Version for: SPARC/SunOS4, 
+*                   SPARC/Solaris2, 
+*                   DEC Mips/Ultrix
+*                   DEC AXP/Digital Unix
+*                   Intel/Linux
+*                   Convex
+*
+*  Given:
+*     DELAY     real      delay in seconds
+*
+*  Called:  SLEEP (a Fortran Intrinsic on all obove platforms)
+*
+*  P.T.Wallace   Starlink   22 January 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL DELAY
+
+      CALL SLEEP(NINT(DELAY))
+
+      END
diff --git a/src/slalib/wait.f_ix86_Linux b/src/slalib/wait.f_ix86_Linux
new file mode 100644
index 0000000..8eb80e1
--- /dev/null
+++ b/src/slalib/wait.f_ix86_Linux
@@ -0,0 +1,32 @@
+      SUBROUTINE sla_WAIT (DELAY)
+*+
+*     - - - - -
+*      W A I T
+*     - - - - -
+*
+*  Interval wait
+*
+*  !!! Version for: SPARC/SunOS4, 
+*                   SPARC/Solaris2, 
+*                   DEC Mips/Ultrix
+*                   DEC AXP/Digital Unix
+*                   Intel/Linux
+*                   Convex
+*
+*  Given:
+*     DELAY     real      delay in seconds
+*
+*  Called:  SLEEP (a Fortran Intrinsic on all obove platforms)
+*
+*  P.T.Wallace   Starlink   22 January 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL DELAY
+
+      CALL SLEEP(NINT(DELAY))
+
+      END
diff --git a/src/slalib/wait.f_mips b/src/slalib/wait.f_mips
new file mode 100644
index 0000000..8eb80e1
--- /dev/null
+++ b/src/slalib/wait.f_mips
@@ -0,0 +1,32 @@
+      SUBROUTINE sla_WAIT (DELAY)
+*+
+*     - - - - -
+*      W A I T
+*     - - - - -
+*
+*  Interval wait
+*
+*  !!! Version for: SPARC/SunOS4, 
+*                   SPARC/Solaris2, 
+*                   DEC Mips/Ultrix
+*                   DEC AXP/Digital Unix
+*                   Intel/Linux
+*                   Convex
+*
+*  Given:
+*     DELAY     real      delay in seconds
+*
+*  Called:  SLEEP (a Fortran Intrinsic on all obove platforms)
+*
+*  P.T.Wallace   Starlink   22 January 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL DELAY
+
+      CALL SLEEP(NINT(DELAY))
+
+      END
diff --git a/src/slalib/wait.f_pcm b/src/slalib/wait.f_pcm
new file mode 100644
index 0000000..d79e78a
--- /dev/null
+++ b/src/slalib/wait.f_pcm
@@ -0,0 +1,66 @@
+      SUBROUTINE sla_WAIT (DELAY)
+*+
+*     - - - - -
+*      W A I T
+*     - - - - -
+*
+*  Interval wait
+*
+*  !!! PC only - Microsoft Fortran specific !!!
+*
+*  Given:
+*     DELAY     real      delay in seconds
+*
+*  A delay of up to 10000 seconds occurs.
+*
+*  Called:  GETTIM (Microsoft Fortran run-time library)
+*
+*  P.T.Wallace   Starlink   14 October 1991
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL DELAY
+
+      INTEGER IDELAY,IH,IM,IS,I,IT,IT0,IDT
+      LOGICAL FIRST,LOOP
+
+
+
+
+*  Convert requested delay to 0.01 second ticks
+      IDELAY=NINT(MAX(MIN(DELAY,1E4),0.0)*1E2)
+
+*  Set "note start time" flag
+      FIRST=.TRUE.
+
+*  Set "wait in progress" flag
+      LOOP=.TRUE.
+
+*  Main loop
+      DO WHILE (LOOP)
+
+*     Get the current time and convert to 0.01 second ticks
+         CALL GETTIM(IH,IM,IS,I)
+         IT=((IH*60+IM)*60+IS)*100+I
+
+*     First time through the loop?
+         IF (FIRST) THEN
+
+*        Yes: note the time and reset the flag
+            IT0=IT
+            FIRST=.FALSE.
+         ELSE
+
+*        No: subtract the start time, handling 0 hours wrap
+            IDT=IT-IT0
+            IF (IDT.LT.0) IDT=IDT+8640000
+
+*        If the requested delay has elapsed, stop looping
+            LOOP=IDT.LT.IDELAY
+         END IF
+      END DO
+
+      END
diff --git a/src/slalib/wait.f_sun4 b/src/slalib/wait.f_sun4
new file mode 100644
index 0000000..8eb80e1
--- /dev/null
+++ b/src/slalib/wait.f_sun4
@@ -0,0 +1,32 @@
+      SUBROUTINE sla_WAIT (DELAY)
+*+
+*     - - - - -
+*      W A I T
+*     - - - - -
+*
+*  Interval wait
+*
+*  !!! Version for: SPARC/SunOS4, 
+*                   SPARC/Solaris2, 
+*                   DEC Mips/Ultrix
+*                   DEC AXP/Digital Unix
+*                   Intel/Linux
+*                   Convex
+*
+*  Given:
+*     DELAY     real      delay in seconds
+*
+*  Called:  SLEEP (a Fortran Intrinsic on all obove platforms)
+*
+*  P.T.Wallace   Starlink   22 January 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL DELAY
+
+      CALL SLEEP(NINT(DELAY))
+
+      END
diff --git a/src/slalib/wait.f_sun4_Solaris b/src/slalib/wait.f_sun4_Solaris
new file mode 100644
index 0000000..8eb80e1
--- /dev/null
+++ b/src/slalib/wait.f_sun4_Solaris
@@ -0,0 +1,32 @@
+      SUBROUTINE sla_WAIT (DELAY)
+*+
+*     - - - - -
+*      W A I T
+*     - - - - -
+*
+*  Interval wait
+*
+*  !!! Version for: SPARC/SunOS4, 
+*                   SPARC/Solaris2, 
+*                   DEC Mips/Ultrix
+*                   DEC AXP/Digital Unix
+*                   Intel/Linux
+*                   Convex
+*
+*  Given:
+*     DELAY     real      delay in seconds
+*
+*  Called:  SLEEP (a Fortran Intrinsic on all obove platforms)
+*
+*  P.T.Wallace   Starlink   22 January 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL DELAY
+
+      CALL SLEEP(NINT(DELAY))
+
+      END
diff --git a/src/slalib/wait.f_vax b/src/slalib/wait.f_vax
new file mode 100644
index 0000000..1fd2e94
--- /dev/null
+++ b/src/slalib/wait.f_vax
@@ -0,0 +1,43 @@
+      SUBROUTINE sla_WAIT (DELAY)
+*+
+*     - - - - -
+*      W A I T
+*     - - - - -
+*
+*  Interval wait
+*
+*  !!! VAX/VMS specific !!!
+*
+*  Given:
+*     DELAY     real      delay in seconds
+*
+*  A delay 100ns < DELAY < 200s is requested.
+*
+*  P.T.Wallace   Starlink   14 October 1991
+*-
+
+      IMPLICIT NONE
+
+      REAL DELAY
+
+      INTEGER JSTAT
+      INTEGER SYS$SCHDWK,SYS$HIBER
+
+      INTEGER IDT(2)
+      DATA IDT(2)/-1/
+
+
+
+*  Encode delta time
+      IDT(1)=-NINT(MAX(1.0,1E7*MIN(200.0,DELAY)))
+
+
+*  Schedule a wakeup
+      JSTAT=SYS$SCHDWK(,,IDT,)
+      IF (.NOT.JSTAT) CALL LIB$STOP(%VAL(JSTAT))
+
+*  Hibernate
+      JSTAT=SYS$HIBER()
+      IF (.NOT.JSTAT) CALL LIB$STOP(%VAL(JSTAT))
+
+      END
diff --git a/src/slalib/wait.f_x86_64 b/src/slalib/wait.f_x86_64
new file mode 100644
index 0000000..8eb80e1
--- /dev/null
+++ b/src/slalib/wait.f_x86_64
@@ -0,0 +1,32 @@
+      SUBROUTINE sla_WAIT (DELAY)
+*+
+*     - - - - -
+*      W A I T
+*     - - - - -
+*
+*  Interval wait
+*
+*  !!! Version for: SPARC/SunOS4, 
+*                   SPARC/Solaris2, 
+*                   DEC Mips/Ultrix
+*                   DEC AXP/Digital Unix
+*                   Intel/Linux
+*                   Convex
+*
+*  Given:
+*     DELAY     real      delay in seconds
+*
+*  Called:  SLEEP (a Fortran Intrinsic on all obove platforms)
+*
+*  P.T.Wallace   Starlink   22 January 1998
+*
+*  Copyright (C) 1998 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      REAL DELAY
+
+      CALL SLEEP(NINT(DELAY))
+
+      END
diff --git a/src/slalib/xy2xy.f b/src/slalib/xy2xy.f
new file mode 100644
index 0000000..d830f44
--- /dev/null
+++ b/src/slalib/xy2xy.f
@@ -0,0 +1,49 @@
+      SUBROUTINE sla_XY2XY (X1,Y1,COEFFS,X2,Y2)
+*+
+*     - - - - - -
+*      X Y 2 X Y
+*     - - - - - -
+*
+*  Transform one [X,Y] into another using a linear model of the type
+*  produced by the sla_FITXY routine.
+*
+*  Given:
+*     X1       d        x-coordinate
+*     Y1       d        y-coordinate
+*     COEFFS  d(6)      transformation coefficients (see note)
+*
+*  Returned:
+*     X2       d        x-coordinate
+*     Y2       d        y-coordinate
+*
+*  The model relates two sets of [X,Y] coordinates as follows.
+*  Naming the elements of COEFFS:
+*
+*     COEFFS(1) = A
+*     COEFFS(2) = B
+*     COEFFS(3) = C
+*     COEFFS(4) = D
+*     COEFFS(5) = E
+*     COEFFS(6) = F
+*
+*  the present routine performs the transformation:
+*
+*     X2 = A + B*X1 + C*Y1
+*     Y2 = D + E*X1 + F*Y1
+*
+*  See also sla_FITXY, sla_PXY, sla_INVF, sla_DCMPF
+*
+*  P.T.Wallace   Starlink   5 December 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION X1,Y1,COEFFS(6),X2,Y2
+
+
+      X2=COEFFS(1)+COEFFS(2)*X1+COEFFS(3)*Y1
+      Y2=COEFFS(4)+COEFFS(5)*X1+COEFFS(6)*Y1
+
+      END
diff --git a/src/slalib/zd.f b/src/slalib/zd.f
new file mode 100644
index 0000000..f3dd34f
--- /dev/null
+++ b/src/slalib/zd.f
@@ -0,0 +1,62 @@
+      DOUBLE PRECISION FUNCTION sla_ZD (HA, DEC, PHI)
+*+
+*     - - -
+*      Z D
+*     - - -
+*
+*  HA, Dec to Zenith Distance (double precision)
+*
+*  Given:
+*     HA     d     Hour Angle in radians
+*     DEC    d     declination in radians
+*     PHI    d     observatory latitude in radians
+*
+*  The result is in the range 0 to pi.
+*
+*  Notes:
+*
+*  1)  The latitude must be geodetic.  In critical applications,
+*      corrections for polar motion should be applied.
+*
+*  2)  In some applications it will be important to specify the
+*      correct type of hour angle and declination in order to
+*      produce the required type of zenith distance.  In particular,
+*      it may be important to distinguish between the zenith distance
+*      as affected by refraction, which would require the "observed"
+*      HA,Dec, and the zenith distance in vacuo, which would require
+*      the "topocentric" HA,Dec.  If the effects of diurnal aberration
+*      can be neglected, the "apparent" HA,Dec may be used instead of
+*      the topocentric HA,Dec.
+*
+*  3)  No range checking of arguments is done.
+*
+*  4)  In applications which involve many zenith distance calculations,
+*      rather than calling the present routine it will be more efficient
+*      to use inline code, having previously computed fixed terms such
+*      as sine and cosine of latitude, and perhaps sine and cosine of
+*      declination.
+*
+*  P.T.Wallace   Starlink   3 April 1994
+*
+*  Copyright (C) 1995 Rutherford Appleton Laboratory
+*-
+
+      IMPLICIT NONE
+
+      DOUBLE PRECISION HA,DEC,PHI
+
+      DOUBLE PRECISION SH,CH,SD,CD,SP,CP,X,Y,Z
+
+
+      SH=SIN(HA)
+      CH=COS(HA)
+      SD=SIN(DEC)
+      CD=COS(DEC)
+      SP=SIN(PHI)
+      CP=COS(PHI)
+      X=CH*CD*SP-SD*CP
+      Y=SH*CD
+      Z=CH*CD*CP+SD*SP
+      sla_ZD=ATAN2(SQRT(X*X+Y*Y),Z)
+
+      END
-- 
cgit