├── calfiles └── .gitkeep ├── parmfiles └── .gitkeep ├── scripts ├── .trailer ├── cfsetup.csh.in ├── cfsetup.sh.in ├── Makefile.am └── idl_obsplot.pl ├── src ├── slalib │ ├── wait.f │ ├── gresid.f │ ├── random.f │ ├── sla_link │ ├── sla_link_adam │ ├── sun67.htx │ │ ├── images.aux │ │ ├── img1.gif │ │ ├── img2.gif │ │ ├── img3.gif │ │ ├── img4.gif │ │ ├── img5.gif │ │ ├── img6.gif │ │ ├── img7.gif │ │ ├── img8.gif │ │ ├── img9.gif │ │ ├── image.gif │ │ ├── img10.gif │ │ ├── img100.gif │ │ ├── img101.gif │ │ ├── img102.gif │ │ ├── img103.gif │ │ ├── img104.gif │ │ ├── img105.gif │ │ ├── img106.gif │ │ ├── img107.gif │ │ ├── img108.gif │ │ ├── img109.gif │ │ ├── img11.gif │ │ ├── img110.gif │ │ ├── img111.gif │ │ ├── img112.gif │ │ ├── img113.gif │ │ ├── img114.gif │ │ ├── img115.gif │ │ ├── img116.gif │ │ ├── img117.gif │ │ ├── img118.gif │ │ ├── img119.gif │ │ ├── img12.gif │ │ ├── img120.gif │ │ ├── img121.gif │ │ ├── img122.gif │ │ ├── img123.gif │ │ ├── img124.gif │ │ ├── img125.gif │ │ ├── img126.gif │ │ ├── img127.gif │ │ ├── img128.gif │ │ ├── img129.gif │ │ ├── img13.gif │ │ ├── img130.gif │ │ ├── img131.gif │ │ ├── img132.gif │ │ ├── img133.gif │ │ ├── img134.gif │ │ ├── img135.gif │ │ ├── img136.gif │ │ ├── img137.gif │ │ ├── img138.gif │ │ ├── img139.gif │ │ ├── img14.gif │ │ ├── img140.gif │ │ ├── img141.gif │ │ ├── img142.gif │ │ ├── img143.gif │ │ ├── img144.gif │ │ ├── img145.gif │ │ ├── img146.gif │ │ ├── img147.gif │ │ ├── img148.gif │ │ ├── img149.gif │ │ ├── img15.gif │ │ ├── img150.gif │ │ ├── img151.gif │ │ ├── img152.gif │ │ ├── img153.gif │ │ ├── img154.gif │ │ ├── img155.gif │ │ ├── img156.gif │ │ ├── img157.gif │ │ ├── img158.gif │ │ ├── img159.gif │ │ ├── img16.gif │ │ ├── img160.gif │ │ ├── img161.gif │ │ ├── img162.gif │ │ ├── img163.gif │ │ ├── img164.gif │ │ ├── img165.gif │ │ ├── img166.gif │ │ ├── img167.gif │ │ ├── img168.gif │ │ ├── img169.gif │ │ ├── img17.gif │ │ ├── img170.gif │ │ ├── img171.gif │ │ ├── img172.gif │ │ ├── img173.gif │ │ ├── img174.gif │ │ ├── img175.gif │ │ ├── img176.gif │ │ ├── img177.gif │ │ ├── img178.gif │ │ ├── img179.gif │ │ ├── img18.gif │ │ ├── img180.gif │ │ ├── img181.gif │ │ ├── img182.gif │ │ ├── img183.gif │ │ ├── img184.gif │ │ ├── img185.gif │ │ ├── img186.gif │ │ ├── img187.gif │ │ ├── img188.gif │ │ ├── img189.gif │ │ ├── img19.gif │ │ ├── img190.gif │ │ ├── img191.gif │ │ ├── img192.gif │ │ ├── img193.gif │ │ ├── img194.gif │ │ ├── img195.gif │ │ ├── img196.gif │ │ ├── img197.gif │ │ ├── img198.gif │ │ ├── img199.gif │ │ ├── img20.gif │ │ ├── img200.gif │ │ ├── img201.gif │ │ ├── img202.gif │ │ ├── img203.gif │ │ ├── img204.gif │ │ ├── img205.gif │ │ ├── img206.gif │ │ ├── img207.gif │ │ ├── img208.gif │ │ ├── img209.gif │ │ ├── img21.gif │ │ ├── img210.gif │ │ ├── img211.gif │ │ ├── img212.gif │ │ ├── img213.gif │ │ ├── img214.gif │ │ ├── img215.gif │ │ ├── img216.gif │ │ ├── img217.gif │ │ ├── img218.gif │ │ ├── img219.gif │ │ ├── img22.gif │ │ ├── img220.gif │ │ ├── img221.gif │ │ ├── img222.gif │ │ ├── img223.gif │ │ ├── img224.gif │ │ ├── img225.gif │ │ ├── img226.gif │ │ ├── img227.gif │ │ ├── img228.gif │ │ ├── img229.gif │ │ ├── img23.gif │ │ ├── img230.gif │ │ ├── img231.gif │ │ ├── img232.gif │ │ ├── img233.gif │ │ ├── img234.gif │ │ ├── img235.gif │ │ ├── img236.gif │ │ ├── img237.gif │ │ ├── img238.gif │ │ ├── img239.gif │ │ ├── img24.gif │ │ ├── img240.gif │ │ ├── img241.gif │ │ ├── img242.gif │ │ ├── img243.gif │ │ ├── img244.gif │ │ ├── img245.gif │ │ ├── img246.gif │ │ ├── img247.gif │ │ ├── img248.gif │ │ ├── img249.gif │ │ ├── img25.gif │ │ ├── img250.gif │ │ ├── img251.gif │ │ ├── img252.gif │ │ ├── img253.gif │ │ ├── img254.gif │ │ ├── img255.gif │ │ ├── img256.gif │ │ ├── img257.gif │ │ ├── img258.gif │ │ ├── img259.gif │ │ ├── img26.gif │ │ ├── img260.gif │ │ ├── img261.gif │ │ ├── img262.gif │ │ ├── img263.gif │ │ ├── img264.gif │ │ ├── img265.gif │ │ ├── img266.gif │ │ ├── img267.gif │ │ ├── img268.gif │ │ ├── img269.gif │ │ ├── img27.gif │ │ ├── img270.gif │ │ ├── img271.gif │ │ ├── img272.gif │ │ ├── img273.gif │ │ ├── img274.gif │ │ ├── img275.gif │ │ ├── img276.gif │ │ ├── img277.gif │ │ ├── img278.gif │ │ ├── img279.gif │ │ ├── img28.gif │ │ ├── img280.gif │ │ ├── img281.gif │ │ ├── img282.gif │ │ ├── img283.gif │ │ ├── img284.gif │ │ ├── img285.gif │ │ ├── img286.gif │ │ ├── img287.gif │ │ ├── img288.gif │ │ ├── img289.gif │ │ ├── img29.gif │ │ ├── img290.gif │ │ ├── img291.gif │ │ ├── img292.gif │ │ ├── img293.gif │ │ ├── img294.gif │ │ ├── img295.gif │ │ ├── img296.gif │ │ ├── img297.gif │ │ ├── img298.gif │ │ ├── img299.gif │ │ ├── img30.gif │ │ ├── img300.gif │ │ ├── img301.gif │ │ ├── img302.gif │ │ ├── img303.gif │ │ ├── img304.gif │ │ ├── img305.gif │ │ ├── img306.gif │ │ ├── img307.gif │ │ ├── img308.gif │ │ ├── img309.gif │ │ ├── img31.gif │ │ ├── img310.gif │ │ ├── img311.gif │ │ ├── img312.gif │ │ ├── img313.gif │ │ ├── img314.gif │ │ ├── img315.gif │ │ ├── img316.gif │ │ ├── img317.gif │ │ ├── img318.gif │ │ ├── img319.gif │ │ ├── img32.gif │ │ ├── img320.gif │ │ ├── img321.gif │ │ ├── img322.gif │ │ ├── img323.gif │ │ ├── img324.gif │ │ ├── img325.gif │ │ ├── img326.gif │ │ ├── img327.gif │ │ ├── img328.gif │ │ ├── img329.gif │ │ ├── img33.gif │ │ ├── img330.gif │ │ ├── img34.gif │ │ ├── img35.gif │ │ ├── img36.gif │ │ ├── img37.gif │ │ ├── img38.gif │ │ ├── img39.gif │ │ ├── img40.gif │ │ ├── img41.gif │ │ ├── img42.gif │ │ ├── img43.gif │ │ ├── img44.gif │ │ ├── img45.gif │ │ ├── img46.gif │ │ ├── img47.gif │ │ ├── img48.gif │ │ ├── img49.gif │ │ ├── img50.gif │ │ ├── img51.gif │ │ ├── img52.gif │ │ ├── img53.gif │ │ ├── img54.gif │ │ ├── img55.gif │ │ ├── img56.gif │ │ ├── img57.gif │ │ ├── img58.gif │ │ ├── img59.gif │ │ ├── img60.gif │ │ ├── img61.gif │ │ ├── img62.gif │ │ ├── img63.gif │ │ ├── img64.gif │ │ ├── img65.gif │ │ ├── img66.gif │ │ ├── img67.gif │ │ ├── img68.gif │ │ ├── img69.gif │ │ ├── img70.gif │ │ ├── img71.gif │ │ ├── img72.gif │ │ ├── img73.gif │ │ ├── img74.gif │ │ ├── img75.gif │ │ ├── img76.gif │ │ ├── img77.gif │ │ ├── img78.gif │ │ ├── img79.gif │ │ ├── img80.gif │ │ ├── img81.gif │ │ ├── img82.gif │ │ ├── img83.gif │ │ ├── img84.gif │ │ ├── img85.gif │ │ ├── img86.gif │ │ ├── img87.gif │ │ ├── img88.gif │ │ ├── img89.gif │ │ ├── img90.gif │ │ ├── img91.gif │ │ ├── img92.gif │ │ ├── img93.gif │ │ ├── img94.gif │ │ ├── img95.gif │ │ ├── img96.gif │ │ ├── img97.gif │ │ ├── img98.gif │ │ ├── img99.gif │ │ ├── source.gif │ │ ├── blueball.gif │ │ ├── greenball.gif │ │ ├── pinkball.gif │ │ ├── redball.gif │ │ ├── up_motif.gif │ │ ├── whiteball.gif │ │ ├── change_end.gif │ │ ├── foot_motif.gif │ │ ├── index_motif.gif │ │ ├── next_motif.gif │ │ ├── orangeball.gif │ │ ├── purpleball.gif │ │ ├── up_motif_gr.gif │ │ ├── yellowball.gif │ │ ├── change_begin.gif │ │ ├── change_delete.gif │ │ ├── contents_motif.gif │ │ ├── next_motif_gr.gif │ │ ├── previous_motif.gif │ │ ├── change_end_right.gif │ │ ├── cross_ref_motif.gif │ │ ├── next_group_motif.gif │ │ ├── change_begin_right.gif │ │ ├── change_delete_right.gif │ │ ├── next_group_motif_gr.gif │ │ ├── previous_motif_gr.gif │ │ ├── invis_anchor.xbm │ │ ├── previous_group_motif.gif │ │ ├── previous_group_motif_gr.gif │ │ ├── sun67.css │ │ ├── contents.xbm │ │ └── icons.html │ ├── sun67.htx_tar │ ├── rep.bat │ ├── vdv.f │ ├── dvdv.f │ ├── epj.f │ ├── epj2d.f │ ├── epb.f │ ├── sla_test.f │ ├── epb2d.f │ ├── ranorm.f │ ├── wait.f_convex │ ├── wait.f_mips │ ├── wait.f_sun4 │ ├── wait.f_x86_64 │ ├── wait.f_alpha_OSF1 │ ├── wait.f_ix86_Linux │ ├── wait.f_sun4_Solaris │ ├── dranrm.f │ ├── range.f │ ├── drange.f │ ├── vxv.f │ ├── wait.f_vax │ ├── dvxv.f │ ├── rtl_random.c │ ├── vn.f │ ├── mxv.f │ ├── tp2s.f │ ├── dvn.f │ ├── dmxv.f │ ├── cs2c.f │ ├── random.f_pcm │ ├── dtp2s.f │ ├── dcs2c.f │ ├── atms.f │ ├── imxv.f │ ├── put.com │ ├── dimxv.f │ ├── bear.f │ ├── nut.f │ ├── sep.f │ ├── dbear.f │ ├── aoppat.f │ ├── dsep.f │ ├── prenut.f │ ├── random.f_vax │ ├── cc2s.f │ ├── dcc2s.f │ ├── random.f_ix86_Linux │ ├── random.f_x86_64 │ ├── mxm.f │ ├── kbj.f │ ├── random.f_mips │ ├── dtt.f │ ├── xy2xy.f │ ├── dmxm.f │ ├── cs2c6.f │ ├── random.f_sun4 │ ├── random.f_convex │ ├── random.f_sun4_Solaris │ ├── ds2c6.f │ ├── pa.f │ ├── ecmat.f │ ├── random.f_alpha_OSF1 │ ├── ctf2r.f │ ├── pvobs.f │ ├── dtf2r.f │ ├── rverot.f │ ├── pav.f │ ├── tp2v.f │ ├── ctf2d.f │ ├── dtp2v.f │ ├── dtf2d.f │ ├── geoc.f │ ├── ecleq.f │ ├── eqecl.f │ ├── caf2r.f │ ├── caldj.f │ ├── daf2r.f │ ├── epco.f │ └── wait.f_pcm ├── Makefile.am ├── cal │ ├── Makefile.am │ ├── saa │ │ └── Makefile.am │ ├── geom │ │ └── Makefile.am │ ├── parm │ │ └── Makefile.am │ ├── screen │ │ └── Makefile.am │ ├── jitter │ │ └── Makefile.am │ └── get_tle │ │ ├── update_tle.csh.in │ │ └── test_tle.csh ├── fes │ ├── cf_calfes.h │ └── Makefile.am ├── libcf │ ├── month_day.c │ ├── cf_nint.c │ └── geod_mag.c ├── include │ ├── eval_tab.h │ └── fusebuf.h └── fuv │ └── Makefile.am ├── contrib ├── README └── download_data ├── INSTALL ├── doc └── Makefile.am ├── README.md ├── .travis.yml ├── Makefile.am ├── COPYING └── configure.ac /calfiles/.gitkeep: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /parmfiles/.gitkeep: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /scripts/.trailer: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /src/slalib/wait.f: -------------------------------------------------------------------------------- 1 | wait.f_x86_64 -------------------------------------------------------------------------------- /src/slalib/gresid.f: -------------------------------------------------------------------------------- 1 | gresid.f_x86_64 -------------------------------------------------------------------------------- /src/slalib/random.f: -------------------------------------------------------------------------------- 1 | random.f_x86_64 -------------------------------------------------------------------------------- /src/slalib/sla_link: -------------------------------------------------------------------------------- 1 | echo -lsla 2 | -------------------------------------------------------------------------------- /src/slalib/sla_link_adam: -------------------------------------------------------------------------------- 1 | echo -lsla 2 | -------------------------------------------------------------------------------- /src/slalib/sun67.htx/images.aux: -------------------------------------------------------------------------------- 1 | \relax 2 | -------------------------------------------------------------------------------- /src/Makefile.am: -------------------------------------------------------------------------------- 1 | SUBDIRS = slalib libcf fes fuv analysis cal 2 | -------------------------------------------------------------------------------- /src/cal/Makefile.am: -------------------------------------------------------------------------------- 1 | SUBDIRS = jitter parm saa screen get_tle geom 2 | -------------------------------------------------------------------------------- /contrib/README: -------------------------------------------------------------------------------- 1 | Execute contrib/download_data from the top level build directory. 2 | -------------------------------------------------------------------------------- /src/slalib/sun67.htx_tar: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx_tar -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img1.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img1.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img2.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img2.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img3.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img3.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img4.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img4.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img5.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img5.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img6.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img6.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img7.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img7.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img8.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img8.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img9.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img9.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/image.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/image.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img10.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img10.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img100.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img100.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img101.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img101.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img102.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img102.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img103.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img103.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img104.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img104.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img105.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img105.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img106.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img106.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img107.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img107.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img108.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img108.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img109.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img109.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img11.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img11.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img110.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img110.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img111.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img111.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img112.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img112.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img113.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img113.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img114.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img114.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img115.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img115.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img116.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img116.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img117.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img117.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img118.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img118.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img119.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img119.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img12.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img12.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img120.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img120.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img121.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img121.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img122.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img122.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img123.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img123.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img124.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img124.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img125.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img125.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img126.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img126.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img127.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img127.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img128.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img128.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img129.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img129.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img13.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img13.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img130.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img130.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img131.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img131.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img132.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img132.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img133.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img133.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img134.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img134.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img135.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img135.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img136.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img136.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img137.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img137.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img138.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img138.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img139.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img139.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img14.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img14.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img140.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img140.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img141.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img141.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img142.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img142.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img143.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img143.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img144.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img144.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img145.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img145.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img146.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img146.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img147.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img147.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img148.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img148.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img149.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img149.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img15.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img15.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img150.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img150.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img151.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img151.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img152.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img152.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img153.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img153.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img154.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img154.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img155.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img155.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img156.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img156.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img157.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img157.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img158.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img158.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img159.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img159.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img16.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img16.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img160.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img160.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img161.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img161.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img162.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img162.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img163.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img163.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img164.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img164.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img165.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img165.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img166.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img166.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img167.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img167.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img168.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img168.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img169.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img169.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img17.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img17.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img170.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img170.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img171.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img171.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img172.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img172.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img173.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img173.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img174.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img174.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img175.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img175.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img176.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img176.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img177.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img177.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img178.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img178.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img179.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img179.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img18.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img18.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img180.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img180.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img181.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img181.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img182.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img182.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img183.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img183.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img184.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img184.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img185.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img185.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img186.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img186.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img187.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img187.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img188.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img188.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img189.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img189.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img19.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img19.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img190.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img190.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img191.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img191.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img192.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img192.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img193.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img193.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img194.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img194.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img195.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img195.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img196.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img196.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img197.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img197.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img198.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img198.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img199.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img199.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img20.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img20.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img200.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img200.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img201.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img201.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img202.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img202.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img203.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img203.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img204.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img204.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img205.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img205.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img206.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img206.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img207.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img207.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img208.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img208.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img209.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img209.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img21.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img21.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img210.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img210.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img211.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img211.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img212.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img212.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img213.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img213.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img214.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img214.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img215.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img215.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img216.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img216.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img217.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img217.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img218.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img218.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img219.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img219.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img22.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img22.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img220.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img220.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img221.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img221.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img222.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img222.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img223.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img223.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img224.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img224.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img225.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img225.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img226.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img226.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img227.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img227.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img228.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img228.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img229.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img229.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img23.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img23.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img230.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img230.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img231.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img231.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img232.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img232.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img233.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img233.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img234.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img234.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img235.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img235.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img236.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img236.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img237.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img237.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img238.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img238.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img239.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img239.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img24.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img24.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img240.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img240.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img241.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img241.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img242.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img242.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img243.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img243.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img244.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img244.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img245.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img245.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img246.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img246.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img247.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img247.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img248.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img248.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img249.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img249.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img25.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img25.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img250.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img250.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img251.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img251.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img252.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img252.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img253.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img253.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img254.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img254.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img255.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img255.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img256.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img256.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img257.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img257.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img258.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img258.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img259.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img259.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img26.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img26.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img260.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img260.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img261.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img261.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img262.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img262.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img263.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img263.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img264.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img264.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img265.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img265.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img266.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img266.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img267.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img267.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img268.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img268.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img269.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img269.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img27.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img27.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img270.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img270.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img271.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img271.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img272.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img272.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img273.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img273.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img274.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img274.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img275.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img275.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img276.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img276.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img277.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img277.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img278.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img278.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img279.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img279.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img28.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img28.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img280.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img280.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img281.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img281.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img282.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img282.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img283.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img283.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img284.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img284.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img285.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img285.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img286.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img286.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img287.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img287.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img288.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img288.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img289.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img289.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img29.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img29.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img290.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img290.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img291.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img291.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img292.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img292.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img293.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img293.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img294.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img294.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img295.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img295.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img296.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img296.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img297.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img297.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img298.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img298.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img299.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img299.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img30.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img30.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img300.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img300.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img301.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img301.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img302.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img302.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img303.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img303.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img304.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img304.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img305.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img305.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img306.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img306.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img307.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img307.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img308.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img308.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img309.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img309.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img31.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img31.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img310.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img310.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img311.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img311.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img312.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img312.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img313.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img313.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img314.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img314.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img315.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img315.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img316.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img316.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img317.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img317.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img318.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img318.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img319.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img319.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img32.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img32.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img320.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img320.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img321.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img321.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img322.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img322.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img323.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img323.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img324.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img324.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img325.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img325.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img326.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img326.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img327.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img327.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img328.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img328.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img329.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img329.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img33.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img33.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img330.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img330.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img34.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img34.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img35.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img35.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img36.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img36.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img37.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img37.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img38.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img38.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img39.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img39.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img40.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img40.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img41.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img41.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img42.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img42.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img43.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img43.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img44.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img44.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img45.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img45.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img46.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img46.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img47.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img47.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img48.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img48.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img49.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img49.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img50.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img50.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img51.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img51.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img52.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img52.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img53.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img53.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img54.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img54.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img55.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img55.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img56.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img56.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img57.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img57.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img58.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img58.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img59.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img59.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img60.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img60.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img61.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img61.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img62.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img62.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img63.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img63.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img64.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img64.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img65.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img65.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img66.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img66.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img67.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img67.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img68.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img68.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img69.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img69.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img70.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img70.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img71.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img71.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img72.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img72.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img73.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img73.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img74.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img74.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img75.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img75.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img76.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img76.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img77.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img77.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img78.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img78.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img79.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img79.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img80.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img80.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img81.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img81.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img82.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img82.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img83.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img83.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img84.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img84.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img85.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img85.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img86.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img86.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img87.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img87.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img88.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img88.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img89.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img89.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img90.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img90.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img91.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img91.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img92.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img92.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img93.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img93.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img94.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img94.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img95.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img95.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img96.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img96.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img97.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img97.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img98.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img98.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/img99.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/img99.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/source.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/source.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/blueball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/blueball.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/greenball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/greenball.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/pinkball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/pinkball.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/redball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/redball.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/up_motif.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/up_motif.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/whiteball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/whiteball.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/change_end.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/change_end.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/foot_motif.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/foot_motif.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/index_motif.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/index_motif.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/next_motif.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/next_motif.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/orangeball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/orangeball.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/purpleball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/purpleball.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/up_motif_gr.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/up_motif_gr.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/yellowball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/yellowball.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/change_begin.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/change_begin.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/change_delete.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/change_delete.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/contents_motif.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/contents_motif.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/next_motif_gr.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/next_motif_gr.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/previous_motif.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/previous_motif.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/change_end_right.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/change_end_right.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/cross_ref_motif.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/cross_ref_motif.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/next_group_motif.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/next_group_motif.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/change_begin_right.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/change_begin_right.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/change_delete_right.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/change_delete_right.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/next_group_motif_gr.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/next_group_motif_gr.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/previous_motif_gr.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/previous_motif_gr.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/invis_anchor.xbm: -------------------------------------------------------------------------------- 1 | #define dot_anchor_width 1 2 | #define dot_anchor_height 1 3 | static char dot_anchor_bits[] = { 4 | 0xfe}; 5 | -------------------------------------------------------------------------------- /src/slalib/sun67.htx/previous_group_motif.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/previous_group_motif.gif -------------------------------------------------------------------------------- /src/slalib/sun67.htx/previous_group_motif_gr.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacetelescope/calfuse/master/src/slalib/sun67.htx/previous_group_motif_gr.gif -------------------------------------------------------------------------------- /INSTALL: -------------------------------------------------------------------------------- 1 | # Abridged installation 2 | 3 | ./autogen.sh 4 | ./configure --prefix=$HOME/calfuse 5 | make download-data # If you require calibration data 6 | make 7 | make install 8 | source $HOME/calfuse/bin/cfsetup.[sh|csh] 9 | -------------------------------------------------------------------------------- /src/cal/saa/Makefile.am: -------------------------------------------------------------------------------- 1 | bin_PROGRAMS = make_saa_file 2 | make_saa_file_SOURCES = make_saa_file.c 3 | make_saa_file_CFLAGS = $(cfitsio_CFLAGS) $(srcinclude) 4 | make_saa_file_LDADD = $(cfitsio_LIBS) $(top_srcdir)/src/libcf/libcf.la 5 | -------------------------------------------------------------------------------- /src/cal/geom/Makefile.am: -------------------------------------------------------------------------------- 1 | bin_PROGRAMS = make_geom_file 2 | make_geom_file_SOURCES = make_geom_file.c 3 | make_geom_file_CFLAGS = $(cfitsio_CFLAGS) $(srcinclude) 4 | make_geom_file_LDADD = $(cfitsio_LIBS) $(top_srcdir)/src/libcf/libcf.la 5 | -------------------------------------------------------------------------------- /src/cal/parm/Makefile.am: -------------------------------------------------------------------------------- 1 | bin_PROGRAMS = make_parm_file 2 | make_parm_file_SOURCES = make_parm_file.c 3 | make_parm_file_CFLAGS = $(cfitsio_CFLAGS) $(srcinclude) 4 | make_parm_file_LDADD = $(cfitsio_LIBS) $(top_srcdir)/src/libcf/libcf.la 5 | -------------------------------------------------------------------------------- /src/cal/screen/Makefile.am: -------------------------------------------------------------------------------- 1 | bin_PROGRAMS = make_screen_file 2 | make_screen_file_SOURCES = make_screen_file.c 3 | make_screen_file_CFLAGS = $(cfitsio_CFLAGS) $(srcinclude) 4 | make_screen_file_LDADD = $(cfitsio_LIBS) $(top_srcdir)/src/libcf/libcf.la 5 | -------------------------------------------------------------------------------- /doc/Makefile.am: -------------------------------------------------------------------------------- 1 | docdir = $(datadir)/doc/@PACKAGE@-@VERSION@ 2 | doc_DATA = FIXING_SELINUX_ISSUES \ 3 | INSTALLING_A_FORTRAN_COMPILER \ 4 | INSTALLING_CalFUSEv3.2.3 \ 5 | INTRO_TO_CalFUSEv3.2.3 \ 6 | pipeline_status.html 7 | 8 | EXTRA_DIST = $(doc_DATA) 9 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | CalFUSE 2 | ======= 3 | [![Build Status](https://travis-ci.org/spacetelescope/calfuse.svg?branch=master)](https://travis-ci.org/spacetelescope/calfuse) 4 | 5 | Documentation can be found on [MAST's FUSE page](https://archive.stsci.edu/fuse/documents.html). 6 | 7 | 8 | Installation 9 | ============ 10 | -------------------------------------------------------------------------------- /src/cal/jitter/Makefile.am: -------------------------------------------------------------------------------- 1 | SUBDIRS = . 2 | bin_PROGRAMS = cf_jitter_diag \ 3 | cf_jitter 4 | cf_jitter_diag_SOURCES = cf_jitter_diag.c 5 | cf_jitter_SOURCES = cf_jitter.c 6 | LDADD = ../../libcf/libcf.la ../../slalib/libsla.la $(cfitsio_LIBS) 7 | AM_CFLAGS = -I$(srcdir)/include -I./ -DCFORTRAN -Df2cFortran $(cfitsio_CFLAGS) 8 | AM_LDFLAGS= -lm 9 | -------------------------------------------------------------------------------- /scripts/cfsetup.csh.in: -------------------------------------------------------------------------------- 1 | # To execute, type "source cfsetup.csh" 2 | # 3 | setenv CF_DIR="@PREFIX@" 4 | setenv PATH "${CF_DIR}/bin:${PATH}" 5 | 6 | setenv CF_DATADIR="${CF_DIR}/share/@PACKAGE@-@VERSION@" 7 | setenv CF_CALDIR "${CF_DATADIR}/calfiles" 8 | setenv CF_PARMDIR "${CF_DATADIR}/parmfiles" 9 | setenv CF_IDLDIR "${CF_DATADIR}/idl" 10 | setenv CF_HISTDIR `pwd` 11 | -------------------------------------------------------------------------------- /scripts/cfsetup.sh.in: -------------------------------------------------------------------------------- 1 | # To execute, type "source cfsetup.sh" 2 | # 3 | export CF_DIR="@PREFIX@" 4 | export PATH="${CF_DIR}/bin:${PATH}" 5 | 6 | export CF_DATADIR="${CF_DIR}/share/@PACKAGE@-@VERSION@" 7 | export CF_CALDIR="${CF_DATADIR}/calfiles" 8 | export CF_PARMDIR="${CF_DATADIR}/parmfiles" 9 | export CF_IDLDIR="${CF_DATADIR}/idl" 10 | export CF_HISTDIR=`pwd` 11 | 12 | -------------------------------------------------------------------------------- /src/fes/cf_calfes.h: -------------------------------------------------------------------------------- 1 | #define FES_GOOD_PIX 0.0 2 | #define FES_BAD_PIX -20.0 3 | #define FES_FLAT 1 4 | #define FES_MASK 2 5 | #define FES_BIAS 3 6 | 7 | int cf_fes_apply_flat(fitsfile *, float **, float *, int, int); 8 | int cf_fes_apply_mask(fitsfile *, float **, float *, int, int); 9 | int cf_fes_apply_bias(fitsfile *, float **, float *, int, int); 10 | 11 | -------------------------------------------------------------------------------- /src/slalib/sun67.htx/sun67.css: -------------------------------------------------------------------------------- 1 | 2 | SMALL.TINY { font-size : xx-small } 3 | SMALL.SCRIPTSIZE { font-size : xx-small } 4 | SMALL.FOOTNOTESIZE { font-size : x-small } 5 | SMALL.SMALL { font-size : small } 6 | BIG.LARGE { font-size : large } 7 | BIG.XLARGE { font-size : x-large } 8 | BIG.XXLARGE { font-size : xx-large } 9 | BIG.HUGE { font-size : xx-large } 10 | BIG.XHUGE { font-size : xx-large } 11 | -------------------------------------------------------------------------------- /src/slalib/rep.bat: -------------------------------------------------------------------------------- 1 | @echo off 2 | rem 3 | rem - - - - - - - - 4 | rem R E P . B A T 5 | rem - - - - - - - - 6 | rem 7 | rem Update one module in the SLALIB library 8 | rem 9 | rem Command: 10 | rem 11 | rem REP module 12 | rem 13 | rem File SLALIB.BAK is deleted. 14 | rem 15 | rem P.T.Wallace Starlink 5 April 1992 16 | rem 17 | fl/c /FPi %1.for 18 | lib slalib -+%1; 19 | del %1.obj 20 | del slalib.bak 21 | echo: 22 | -------------------------------------------------------------------------------- /src/fes/Makefile.am: -------------------------------------------------------------------------------- 1 | SUBDIRS = . 2 | bin_PROGRAMS = cf_calfes 3 | cf_calfes_SOURCES = \ 4 | cf_calfes.c cf_fes_init.c cf_fes_read.c cf_fes_write.c \ 5 | cf_fes_cal.c cf_fes_get_cal_image.c cf_limbang.c \ 6 | cf_fes_apply_bias.c cf_fes_apply_flat.c cf_fes_apply_mask.c 7 | cf_calfes_LDADD = ../slalib/libsla.la ../libcf/libcf.la 8 | cf_calfes_CFLAGS = $(cfitsio_CFLAGS) -I$(srcdir)/include -I./ 9 | cf_calfes_LDFLAGS = $(cfitsio_LIBS) 10 | -------------------------------------------------------------------------------- /src/libcf/month_day.c: -------------------------------------------------------------------------------- 1 | /* month_day: return month,day from day of year */ 2 | /* 07/21/04 1.4 wvd Add () to defn of leap */ 3 | 4 | #include "calfuse.h" 5 | 6 | void month_day(int year, int yearday, int *pmonth, int *pday) 7 | { 8 | static char daytab[2][13]={ 9 | {0,31,28,31,30,31,30,31,31,30,31,30,31}, 10 | {0,31,29,31,30,31,30,31,31,30,31,30,31} 11 | }; 12 | int i, leap; 13 | 14 | leap = ((year%4 == 0 && year%100 != 0) || year%400 == 0); 15 | for (i=1; yearday>daytab[leap][i]; i++) 16 | yearday-=daytab[leap][i]; 17 | *pmonth=i; 18 | *pday=yearday; 19 | } 20 | -------------------------------------------------------------------------------- /src/slalib/vdv.f: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_VDV (VA, VB) 2 | *+ 3 | * - - - - 4 | * V D V 5 | * - - - - 6 | * 7 | * Scalar product of two 3-vectors (single precision) 8 | * 9 | * Given: 10 | * VA real(3) first vector 11 | * VB real(3) second vector 12 | * 13 | * The result is the scalar product VA.VB (single precision) 14 | * 15 | * P.T.Wallace Starlink November 1984 16 | * 17 | * Copyright (C) 1995 Rutherford Appleton Laboratory 18 | *- 19 | 20 | IMPLICIT NONE 21 | 22 | REAL VA(3),VB(3) 23 | 24 | 25 | sla_VDV=VA(1)*VB(1)+VA(2)*VB(2)+VA(3)*VB(3) 26 | 27 | END 28 | -------------------------------------------------------------------------------- /src/slalib/dvdv.f: -------------------------------------------------------------------------------- 1 | DOUBLE PRECISION FUNCTION sla_DVDV (VA, VB) 2 | *+ 3 | * - - - - - 4 | * D V D V 5 | * - - - - - 6 | * 7 | * Scalar product of two 3-vectors (double precision) 8 | * 9 | * Given: 10 | * VA dp(3) first vector 11 | * VB dp(3) second vector 12 | * 13 | * The result is the scalar product VA.VB (double precision) 14 | * 15 | * P.T.Wallace Starlink November 1984 16 | * 17 | * Copyright (C) 1995 Rutherford Appleton Laboratory 18 | *- 19 | 20 | IMPLICIT NONE 21 | 22 | DOUBLE PRECISION VA(3),VB(3) 23 | 24 | 25 | sla_DVDV=VA(1)*VB(1)+VA(2)*VB(2)+VA(3)*VB(3) 26 | 27 | END 28 | -------------------------------------------------------------------------------- /contrib/download_data: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | url=https://bitbucket.org/jhunkeler/calfuse/downloads/calfuse-data.tar.bz2 4 | tarball=$(basename $url) 5 | 6 | if [ -z "$(which wget 2>/dev/null)" ]; then 7 | echo Please install 'wget'. 8 | exit 1 9 | fi 10 | 11 | if [ -z "$(which tar 2>/dev/null)" ]; then 12 | echo Please install 'tar'. 13 | exit 1 14 | fi 15 | 16 | if [ -f "$tarball" ]; then 17 | echo $tarball already exists. Delete it and re-run this script. 18 | exit 1 19 | fi 20 | 21 | wget --no-check-certificate $url 22 | 23 | if [ $? -ne 0 ]; then 24 | echo Aborting. Failed to download $tarball. 25 | exit 1 26 | fi 27 | 28 | echo Extracting $tarball ... 29 | tar -xf $tarball 30 | -------------------------------------------------------------------------------- /src/slalib/epj.f: -------------------------------------------------------------------------------- 1 | DOUBLE PRECISION FUNCTION sla_EPJ (DATE) 2 | *+ 3 | * - - - - 4 | * E P J 5 | * - - - - 6 | * 7 | * Conversion of Modified Julian Date to Julian Epoch (double precision) 8 | * 9 | * Given: 10 | * DATE dp Modified Julian Date (JD - 2400000.5) 11 | * 12 | * The result is the Julian Epoch. 13 | * 14 | * Reference: 15 | * Lieske,J.H., 1979. Astron.Astrophys.,73,282. 16 | * 17 | * P.T.Wallace Starlink February 1984 18 | * 19 | * Copyright (C) 1995 Rutherford Appleton Laboratory 20 | *- 21 | 22 | IMPLICIT NONE 23 | 24 | DOUBLE PRECISION DATE 25 | 26 | 27 | sla_EPJ = 2000D0 + (DATE-51544.5D0)/365.25D0 28 | 29 | END 30 | -------------------------------------------------------------------------------- /src/slalib/epj2d.f: -------------------------------------------------------------------------------- 1 | DOUBLE PRECISION FUNCTION sla_EPJ2D (EPJ) 2 | *+ 3 | * - - - - - - 4 | * E P J 2 D 5 | * - - - - - - 6 | * 7 | * Conversion of Julian Epoch to Modified Julian Date (double precision) 8 | * 9 | * Given: 10 | * EPJ dp Julian Epoch 11 | * 12 | * The result is the Modified Julian Date (JD - 2400000.5). 13 | * 14 | * Reference: 15 | * Lieske,J.H., 1979. Astron.Astrophys.,73,282. 16 | * 17 | * P.T.Wallace Starlink February 1984 18 | * 19 | * Copyright (C) 1995 Rutherford Appleton Laboratory 20 | *- 21 | 22 | IMPLICIT NONE 23 | 24 | DOUBLE PRECISION EPJ 25 | 26 | 27 | sla_EPJ2D = 51544.5D0 + (EPJ-2000D0)*365.25D0 28 | 29 | END 30 | -------------------------------------------------------------------------------- /src/slalib/epb.f: -------------------------------------------------------------------------------- 1 | DOUBLE PRECISION FUNCTION sla_EPB (DATE) 2 | *+ 3 | * - - - - 4 | * E P B 5 | * - - - - 6 | * 7 | * Conversion of Modified Julian Date to Besselian Epoch 8 | * (double precision) 9 | * 10 | * Given: 11 | * DATE dp Modified Julian Date (JD - 2400000.5) 12 | * 13 | * The result is the Besselian Epoch. 14 | * 15 | * Reference: 16 | * Lieske,J.H., 1979. Astron.Astrophys.,73,282. 17 | * 18 | * P.T.Wallace Starlink February 1984 19 | * 20 | * Copyright (C) 1995 Rutherford Appleton Laboratory 21 | *- 22 | 23 | IMPLICIT NONE 24 | 25 | DOUBLE PRECISION DATE 26 | 27 | 28 | sla_EPB = 1900D0 + (DATE-15019.81352D0)/365.242198781D0 29 | 30 | END 31 | -------------------------------------------------------------------------------- /src/slalib/sla_test.f: -------------------------------------------------------------------------------- 1 | PROGRAM SLA_TEST 2 | *+ 3 | * - - - - - 4 | * T E S T 5 | * - - - - - 6 | * 7 | * Simple test of SLALIB library - checks that a program can be 8 | * linked and a correct result returned from at least one subprogram. 9 | * 10 | * P.T.Wallace Starlink 24 August 1992 11 | * 12 | * Copyright (C) 1995 Rutherford Appleton Laboratory 13 | *- 14 | 15 | IMPLICIT NONE 16 | 17 | DOUBLE PRECISION D 18 | INTEGER J 19 | 20 | 21 | CALL sla_CALDJ(1946,4,30,D,J) 22 | IF (J.EQ.0.AND.NINT(D).EQ.31940) THEN 23 | PRINT *,'SLALIB test completed satisfactorily.' 24 | ELSE 25 | PRINT *,'SLALIB test fails!' 26 | END IF 27 | 28 | END 29 | -------------------------------------------------------------------------------- /src/slalib/epb2d.f: -------------------------------------------------------------------------------- 1 | DOUBLE PRECISION FUNCTION sla_EPB2D (EPB) 2 | *+ 3 | * - - - - - - 4 | * E P B 2 D 5 | * - - - - - - 6 | * 7 | * Conversion of Besselian Epoch to Modified Julian Date 8 | * (double precision) 9 | * 10 | * Given: 11 | * EPB dp Besselian Epoch 12 | * 13 | * The result is the Modified Julian Date (JD - 2400000.5). 14 | * 15 | * Reference: 16 | * Lieske,J.H., 1979. Astron.Astrophys.,73,282. 17 | * 18 | * P.T.Wallace Starlink February 1984 19 | * 20 | * Copyright (C) 1995 Rutherford Appleton Laboratory 21 | *- 22 | 23 | IMPLICIT NONE 24 | 25 | DOUBLE PRECISION EPB 26 | 27 | 28 | sla_EPB2D = 15019.81352D0 + (EPB-1900D0)*365.242198781D0 29 | 30 | END 31 | -------------------------------------------------------------------------------- /.travis.yml: -------------------------------------------------------------------------------- 1 | sudo: true 2 | language: generic 3 | 4 | compiler: 5 | - gcc 6 | - clang 7 | 8 | env: 9 | global: 10 | - PREFIX=/tmp/calfuse 11 | 12 | matrix: 13 | fast_finish: true 14 | include: 15 | - os: linux 16 | env: 17 | - CC=gcc 18 | 19 | - os: linux 20 | env: 21 | - CC=clang 22 | 23 | before_install: 24 | - if [[ "$TRAVIS_OS_NAME" == "linux" ]]; then sudo apt-get -qq update; sudo apt-get install -y gfortran default-jdk cfitsio-dev; fi 25 | 26 | install: 27 | - ./autogen.sh 28 | - ./configure --prefix=$PREFIX 29 | - make 30 | - make install 31 | 32 | after_success: 33 | - export PATH=$PREFIX/bin:$PATH 34 | - source cfsetup.sh 35 | - printenv | grep CF_ 36 | - find $PREFIX -type f -------------------------------------------------------------------------------- /src/slalib/ranorm.f: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_RANORM (ANGLE) 2 | *+ 3 | * - - - - - - - 4 | * R A N O R M 5 | * - - - - - - - 6 | * 7 | * Normalize angle into range 0-2 pi (single precision) 8 | * 9 | * Given: 10 | * ANGLE dp the angle in radians 11 | * 12 | * The result is ANGLE expressed in the range 0-2 pi (single 13 | * precision). 14 | * 15 | * P.T.Wallace Starlink 23 November 1995 16 | * 17 | * Copyright (C) 1995 Rutherford Appleton Laboratory 18 | *- 19 | 20 | IMPLICIT NONE 21 | 22 | REAL ANGLE 23 | 24 | REAL A2PI 25 | PARAMETER (A2PI=6.283185307179586476925287) 26 | 27 | 28 | sla_RANORM=MOD(ANGLE,A2PI) 29 | IF (sla_RANORM.LT.0.0) sla_RANORM=sla_RANORM+A2PI 30 | 31 | END 32 | -------------------------------------------------------------------------------- /src/slalib/wait.f_convex: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_WAIT (DELAY) 2 | *+ 3 | * - - - - - 4 | * W A I T 5 | * - - - - - 6 | * 7 | * Interval wait 8 | * 9 | * !!! Version for: SPARC/SunOS4, 10 | * SPARC/Solaris2, 11 | * DEC Mips/Ultrix 12 | * DEC AXP/Digital Unix 13 | * Intel/Linux 14 | * Convex 15 | * 16 | * Given: 17 | * DELAY real delay in seconds 18 | * 19 | * Called: SLEEP (a Fortran Intrinsic on all obove platforms) 20 | * 21 | * P.T.Wallace Starlink 22 January 1998 22 | * 23 | * Copyright (C) 1998 Rutherford Appleton Laboratory 24 | *- 25 | 26 | IMPLICIT NONE 27 | 28 | REAL DELAY 29 | 30 | CALL SLEEP(NINT(DELAY)) 31 | 32 | END 33 | -------------------------------------------------------------------------------- /src/slalib/wait.f_mips: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_WAIT (DELAY) 2 | *+ 3 | * - - - - - 4 | * W A I T 5 | * - - - - - 6 | * 7 | * Interval wait 8 | * 9 | * !!! Version for: SPARC/SunOS4, 10 | * SPARC/Solaris2, 11 | * DEC Mips/Ultrix 12 | * DEC AXP/Digital Unix 13 | * Intel/Linux 14 | * Convex 15 | * 16 | * Given: 17 | * DELAY real delay in seconds 18 | * 19 | * Called: SLEEP (a Fortran Intrinsic on all obove platforms) 20 | * 21 | * P.T.Wallace Starlink 22 January 1998 22 | * 23 | * Copyright (C) 1998 Rutherford Appleton Laboratory 24 | *- 25 | 26 | IMPLICIT NONE 27 | 28 | REAL DELAY 29 | 30 | CALL SLEEP(NINT(DELAY)) 31 | 32 | END 33 | -------------------------------------------------------------------------------- /src/slalib/wait.f_sun4: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_WAIT (DELAY) 2 | *+ 3 | * - - - - - 4 | * W A I T 5 | * - - - - - 6 | * 7 | * Interval wait 8 | * 9 | * !!! Version for: SPARC/SunOS4, 10 | * SPARC/Solaris2, 11 | * DEC Mips/Ultrix 12 | * DEC AXP/Digital Unix 13 | * Intel/Linux 14 | * Convex 15 | * 16 | * Given: 17 | * DELAY real delay in seconds 18 | * 19 | * Called: SLEEP (a Fortran Intrinsic on all obove platforms) 20 | * 21 | * P.T.Wallace Starlink 22 January 1998 22 | * 23 | * Copyright (C) 1998 Rutherford Appleton Laboratory 24 | *- 25 | 26 | IMPLICIT NONE 27 | 28 | REAL DELAY 29 | 30 | CALL SLEEP(NINT(DELAY)) 31 | 32 | END 33 | -------------------------------------------------------------------------------- /src/slalib/wait.f_x86_64: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_WAIT (DELAY) 2 | *+ 3 | * - - - - - 4 | * W A I T 5 | * - - - - - 6 | * 7 | * Interval wait 8 | * 9 | * !!! Version for: SPARC/SunOS4, 10 | * SPARC/Solaris2, 11 | * DEC Mips/Ultrix 12 | * DEC AXP/Digital Unix 13 | * Intel/Linux 14 | * Convex 15 | * 16 | * Given: 17 | * DELAY real delay in seconds 18 | * 19 | * Called: SLEEP (a Fortran Intrinsic on all obove platforms) 20 | * 21 | * P.T.Wallace Starlink 22 January 1998 22 | * 23 | * Copyright (C) 1998 Rutherford Appleton Laboratory 24 | *- 25 | 26 | IMPLICIT NONE 27 | 28 | REAL DELAY 29 | 30 | CALL SLEEP(NINT(DELAY)) 31 | 32 | END 33 | -------------------------------------------------------------------------------- /src/slalib/wait.f_alpha_OSF1: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_WAIT (DELAY) 2 | *+ 3 | * - - - - - 4 | * W A I T 5 | * - - - - - 6 | * 7 | * Interval wait 8 | * 9 | * !!! Version for: SPARC/SunOS4, 10 | * SPARC/Solaris2, 11 | * DEC Mips/Ultrix 12 | * DEC AXP/Digital Unix 13 | * Intel/Linux 14 | * Convex 15 | * 16 | * Given: 17 | * DELAY real delay in seconds 18 | * 19 | * Called: SLEEP (a Fortran Intrinsic on all obove platforms) 20 | * 21 | * P.T.Wallace Starlink 22 January 1998 22 | * 23 | * Copyright (C) 1998 Rutherford Appleton Laboratory 24 | *- 25 | 26 | IMPLICIT NONE 27 | 28 | REAL DELAY 29 | 30 | CALL SLEEP(NINT(DELAY)) 31 | 32 | END 33 | -------------------------------------------------------------------------------- /src/slalib/wait.f_ix86_Linux: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_WAIT (DELAY) 2 | *+ 3 | * - - - - - 4 | * W A I T 5 | * - - - - - 6 | * 7 | * Interval wait 8 | * 9 | * !!! Version for: SPARC/SunOS4, 10 | * SPARC/Solaris2, 11 | * DEC Mips/Ultrix 12 | * DEC AXP/Digital Unix 13 | * Intel/Linux 14 | * Convex 15 | * 16 | * Given: 17 | * DELAY real delay in seconds 18 | * 19 | * Called: SLEEP (a Fortran Intrinsic on all obove platforms) 20 | * 21 | * P.T.Wallace Starlink 22 January 1998 22 | * 23 | * Copyright (C) 1998 Rutherford Appleton Laboratory 24 | *- 25 | 26 | IMPLICIT NONE 27 | 28 | REAL DELAY 29 | 30 | CALL SLEEP(NINT(DELAY)) 31 | 32 | END 33 | -------------------------------------------------------------------------------- /src/slalib/wait.f_sun4_Solaris: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_WAIT (DELAY) 2 | *+ 3 | * - - - - - 4 | * W A I T 5 | * - - - - - 6 | * 7 | * Interval wait 8 | * 9 | * !!! Version for: SPARC/SunOS4, 10 | * SPARC/Solaris2, 11 | * DEC Mips/Ultrix 12 | * DEC AXP/Digital Unix 13 | * Intel/Linux 14 | * Convex 15 | * 16 | * Given: 17 | * DELAY real delay in seconds 18 | * 19 | * Called: SLEEP (a Fortran Intrinsic on all obove platforms) 20 | * 21 | * P.T.Wallace Starlink 22 January 1998 22 | * 23 | * Copyright (C) 1998 Rutherford Appleton Laboratory 24 | *- 25 | 26 | IMPLICIT NONE 27 | 28 | REAL DELAY 29 | 30 | CALL SLEEP(NINT(DELAY)) 31 | 32 | END 33 | -------------------------------------------------------------------------------- /src/slalib/dranrm.f: -------------------------------------------------------------------------------- 1 | DOUBLE PRECISION FUNCTION sla_DRANRM (ANGLE) 2 | *+ 3 | * - - - - - - - 4 | * D R A N R M 5 | * - - - - - - - 6 | * 7 | * Normalize angle into range 0-2 pi (double precision) 8 | * 9 | * Given: 10 | * ANGLE dp the angle in radians 11 | * 12 | * The result is ANGLE expressed in the range 0-2 pi (double 13 | * precision). 14 | * 15 | * P.T.Wallace Starlink 23 November 1995 16 | * 17 | * Copyright (C) 1995 Rutherford Appleton Laboratory 18 | *- 19 | 20 | IMPLICIT NONE 21 | 22 | DOUBLE PRECISION ANGLE 23 | 24 | DOUBLE PRECISION D2PI 25 | PARAMETER (D2PI=6.283185307179586476925286766559D0) 26 | 27 | 28 | sla_DRANRM=MOD(ANGLE,D2PI) 29 | IF (sla_DRANRM.LT.0D0) sla_DRANRM=sla_DRANRM+D2PI 30 | 31 | END 32 | -------------------------------------------------------------------------------- /src/slalib/sun67.htx/contents.xbm: -------------------------------------------------------------------------------- 1 | #define contents_width 63 2 | #define contents_height 16 3 | static char contents_bits[] = { 4 | 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, 5 | 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, 6 | 0x00,0x00,0xc0,0x01,0x00,0x08,0x00,0x00,0x01,0x00,0x20,0x02,0x00,0x08,0x00, 7 | 0x00,0x01,0x00,0x20,0xe2,0x74,0x7c,0x9c,0x8e,0x8f,0x03,0x20,0x10,0x99,0x08, 8 | 0x22,0x13,0x41,0x04,0x20,0x10,0x89,0x08,0x3e,0x11,0x81,0x03,0x20,0x12,0x89, 9 | 0x08,0x02,0x11,0x01,0x04,0x20,0x12,0x89,0x88,0x22,0x11,0x51,0x04,0xc0,0xe1, 10 | 0x9c,0x71,0x9c,0x33,0x8e,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, 11 | 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, 12 | 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00}; 13 | -------------------------------------------------------------------------------- /src/slalib/range.f: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_RANGE (ANGLE) 2 | *+ 3 | * - - - - - - 4 | * R A N G E 5 | * - - - - - - 6 | * 7 | * Normalize angle into range +/- pi (single precision) 8 | * 9 | * Given: 10 | * ANGLE dp the angle in radians 11 | * 12 | * The result is ANGLE expressed in the +/- pi (single 13 | * precision). 14 | * 15 | * P.T.Wallace Starlink 23 November 1995 16 | * 17 | * Copyright (C) 1995 Rutherford Appleton Laboratory 18 | *- 19 | 20 | IMPLICIT NONE 21 | 22 | REAL ANGLE 23 | 24 | REAL API,A2PI 25 | PARAMETER (API=3.141592653589793238462643) 26 | PARAMETER (A2PI=6.283185307179586476925287) 27 | 28 | 29 | sla_RANGE=MOD(ANGLE,A2PI) 30 | IF (ABS(sla_RANGE).GE.API) 31 | : sla_RANGE=sla_RANGE-SIGN(A2PI,ANGLE) 32 | 33 | END 34 | -------------------------------------------------------------------------------- /src/slalib/drange.f: -------------------------------------------------------------------------------- 1 | DOUBLE PRECISION FUNCTION sla_DRANGE (ANGLE) 2 | *+ 3 | * - - - - - - - 4 | * D R A N G E 5 | * - - - - - - - 6 | * 7 | * Normalize angle into range +/- pi (double precision) 8 | * 9 | * Given: 10 | * ANGLE dp the angle in radians 11 | * 12 | * The result (double precision) is ANGLE expressed in the range +/- pi. 13 | * 14 | * P.T.Wallace Starlink 23 November 1995 15 | * 16 | * Copyright (C) 1995 Rutherford Appleton Laboratory 17 | *- 18 | 19 | IMPLICIT NONE 20 | 21 | DOUBLE PRECISION ANGLE 22 | 23 | DOUBLE PRECISION DPI,D2PI 24 | PARAMETER (DPI=3.141592653589793238462643D0) 25 | PARAMETER (D2PI=6.283185307179586476925287D0) 26 | 27 | 28 | sla_DRANGE=MOD(ANGLE,D2PI) 29 | IF (ABS(sla_DRANGE).GE.DPI) 30 | : sla_DRANGE=sla_DRANGE-SIGN(D2PI,ANGLE) 31 | 32 | END 33 | -------------------------------------------------------------------------------- /src/slalib/vxv.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_VXV (VA, VB, VC) 2 | *+ 3 | * - - - - 4 | * V X V 5 | * - - - - 6 | * 7 | * Vector product of two 3-vectors (single precision) 8 | * 9 | * Given: 10 | * VA real(3) first vector 11 | * VB real(3) second vector 12 | * 13 | * Returned: 14 | * VC real(3) vector result 15 | * 16 | * P.T.Wallace Starlink March 1986 17 | * 18 | * Copyright (C) 1995 Rutherford Appleton Laboratory 19 | *- 20 | 21 | IMPLICIT NONE 22 | 23 | REAL VA(3),VB(3),VC(3) 24 | 25 | REAL VW(3) 26 | INTEGER I 27 | 28 | 29 | * Form the vector product VA cross VB 30 | VW(1)=VA(2)*VB(3)-VA(3)*VB(2) 31 | VW(2)=VA(3)*VB(1)-VA(1)*VB(3) 32 | VW(3)=VA(1)*VB(2)-VA(2)*VB(1) 33 | 34 | * Return the result 35 | DO I=1,3 36 | VC(I)=VW(I) 37 | END DO 38 | 39 | END 40 | -------------------------------------------------------------------------------- /src/slalib/wait.f_vax: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_WAIT (DELAY) 2 | *+ 3 | * - - - - - 4 | * W A I T 5 | * - - - - - 6 | * 7 | * Interval wait 8 | * 9 | * !!! VAX/VMS specific !!! 10 | * 11 | * Given: 12 | * DELAY real delay in seconds 13 | * 14 | * A delay 100ns < DELAY < 200s is requested. 15 | * 16 | * P.T.Wallace Starlink 14 October 1991 17 | *- 18 | 19 | IMPLICIT NONE 20 | 21 | REAL DELAY 22 | 23 | INTEGER JSTAT 24 | INTEGER SYS$SCHDWK,SYS$HIBER 25 | 26 | INTEGER IDT(2) 27 | DATA IDT(2)/-1/ 28 | 29 | 30 | 31 | * Encode delta time 32 | IDT(1)=-NINT(MAX(1.0,1E7*MIN(200.0,DELAY))) 33 | 34 | 35 | * Schedule a wakeup 36 | JSTAT=SYS$SCHDWK(,,IDT,) 37 | IF (.NOT.JSTAT) CALL LIB$STOP(%VAL(JSTAT)) 38 | 39 | * Hibernate 40 | JSTAT=SYS$HIBER() 41 | IF (.NOT.JSTAT) CALL LIB$STOP(%VAL(JSTAT)) 42 | 43 | END 44 | -------------------------------------------------------------------------------- /src/slalib/dvxv.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_DVXV (VA, VB, VC) 2 | *+ 3 | * - - - - - 4 | * D V X V 5 | * - - - - - 6 | * 7 | * Vector product of two 3-vectors (double precision) 8 | * 9 | * Given: 10 | * VA dp(3) first vector 11 | * VB dp(3) second vector 12 | * 13 | * Returned: 14 | * VC dp(3) vector result 15 | * 16 | * P.T.Wallace Starlink March 1986 17 | * 18 | * Copyright (C) 1995 Rutherford Appleton Laboratory 19 | *- 20 | 21 | IMPLICIT NONE 22 | 23 | DOUBLE PRECISION VA(3),VB(3),VC(3) 24 | 25 | DOUBLE PRECISION VW(3) 26 | INTEGER I 27 | 28 | 29 | * Form the vector product VA cross VB 30 | VW(1)=VA(2)*VB(3)-VA(3)*VB(2) 31 | VW(2)=VA(3)*VB(1)-VA(1)*VB(3) 32 | VW(3)=VA(1)*VB(2)-VA(2)*VB(1) 33 | 34 | * Return the result 35 | DO I=1,3 36 | VC(I)=VW(I) 37 | END DO 38 | 39 | END 40 | -------------------------------------------------------------------------------- /src/slalib/rtl_random.c: -------------------------------------------------------------------------------- 1 | #include 2 | 3 | float 4 | random_ ( int *iseed ) 5 | /* 6 | ** - - - - - - - 7 | ** r a n d o m 8 | ** - - - - - - - 9 | ** 10 | ** Generate pseudo-random real number in the range 0 <= x < 1. 11 | ** 12 | ** (single precision) 13 | ** 14 | ** This function is designed to replace the Fortran->C interface routine 15 | ** random(3f) on systems which do not have this library (for example Linux) 16 | ** 17 | ** Fortran call: X = RANDOM(ISEED) 18 | ** 19 | ** Given: 20 | ** iseed int seed value 21 | ** 22 | ** If iseed !=0 random-number generator is initialised and first number 23 | ** is returned. 24 | ** iseed == 0 next number in the sequence is returned 25 | ** 26 | ** B.K.McIlwrath Starlink 12 January 1996 27 | */ 28 | { 29 | if( *iseed != 0 ) 30 | srand(*iseed); 31 | 32 | return (float) rand() / (float) RAND_MAX; 33 | } 34 | -------------------------------------------------------------------------------- /src/include/eval_tab.h: -------------------------------------------------------------------------------- 1 | typedef union { 2 | int Node; /* Index of Node */ 3 | double dbl; /* real value */ 4 | long lng; /* integer value */ 5 | char log; /* logical value */ 6 | char str[256]; /* string value */ 7 | } FFSTYPE; 8 | #define BOOLEAN 258 9 | #define LONG 259 10 | #define DOUBLE 260 11 | #define STRING 261 12 | #define BITSTR 262 13 | #define FUNCTION 263 14 | #define BFUNCTION 264 15 | #define GTIFILTER 265 16 | #define REGFILTER 266 17 | #define COLUMN 267 18 | #define BCOLUMN 268 19 | #define SCOLUMN 269 20 | #define BITCOL 270 21 | #define ROWREF 271 22 | #define OR 272 23 | #define AND 273 24 | #define EQ 274 25 | #define NE 275 26 | #define GT 276 27 | #define LT 277 28 | #define LTE 278 29 | #define GTE 279 30 | #define POWER 280 31 | #define NOT 281 32 | #define INTCAST 282 33 | #define FLTCAST 283 34 | #define UMINUS 284 35 | 36 | 37 | extern FFSTYPE fflval; 38 | -------------------------------------------------------------------------------- /src/slalib/vn.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_VN (V, UV, VM) 2 | *+ 3 | * - - - 4 | * V N 5 | * - - - 6 | * 7 | * Normalizes a 3-vector also giving the modulus (single precision) 8 | * 9 | * Given: 10 | * V real(3) vector 11 | * 12 | * Returned: 13 | * UV real(3) unit vector in direction of V 14 | * VM real modulus of V 15 | * 16 | * If the modulus of V is zero, UV is set to zero as well 17 | * 18 | * P.T.Wallace Starlink 23 November 1995 19 | * 20 | * Copyright (C) 1995 Rutherford Appleton Laboratory 21 | *- 22 | 23 | IMPLICIT NONE 24 | 25 | REAL V(3),UV(3),VM 26 | 27 | INTEGER I 28 | REAL W1,W2 29 | 30 | 31 | * Modulus 32 | W1=0.0 33 | DO I=1,3 34 | W2=V(I) 35 | W1=W1+W2*W2 36 | END DO 37 | W1=SQRT(W1) 38 | VM=W1 39 | 40 | * Normalize the vector 41 | IF (W1.LE.0.0) W1=1.0 42 | DO I=1,3 43 | UV(I)=V(I)/W1 44 | END DO 45 | 46 | END 47 | -------------------------------------------------------------------------------- /src/slalib/mxv.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_MXV (RM, VA, VB) 2 | *+ 3 | * - - - - 4 | * M X V 5 | * - - - - 6 | * 7 | * Performs the 3-D forward unitary transformation: 8 | * 9 | * vector VB = matrix RM * vector VA 10 | * 11 | * (single precision) 12 | * 13 | * Given: 14 | * RM real(3,3) matrix 15 | * VA real(3) vector 16 | * 17 | * Returned: 18 | * VB real(3) result vector 19 | * 20 | * P.T.Wallace Starlink March 1986 21 | * 22 | * Copyright (C) 1995 Rutherford Appleton Laboratory 23 | *- 24 | 25 | IMPLICIT NONE 26 | 27 | REAL RM(3,3),VA(3),VB(3) 28 | 29 | INTEGER I,J 30 | REAL W,VW(3) 31 | 32 | 33 | * Matrix RM * vector VA -> vector VW 34 | DO J=1,3 35 | W=0.0 36 | DO I=1,3 37 | W=W+RM(J,I)*VA(I) 38 | END DO 39 | VW(J)=W 40 | END DO 41 | 42 | * Vector VW -> vector VB 43 | DO J=1,3 44 | VB(J)=VW(J) 45 | END DO 46 | 47 | END 48 | -------------------------------------------------------------------------------- /src/slalib/tp2s.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_TP2S (XI, ETA, RAZ, DECZ, RA, DEC) 2 | *+ 3 | * - - - - - 4 | * T P 2 S 5 | * - - - - - 6 | * 7 | * Transform tangent plane coordinates into spherical 8 | * (single precision) 9 | * 10 | * Given: 11 | * XI,ETA real tangent plane rectangular coordinates 12 | * RAZ,DECZ real spherical coordinates of tangent point 13 | * 14 | * Returned: 15 | * RA,DEC real spherical coordinates (0-2pi,+/-pi/2) 16 | * 17 | * Called: sla_RANORM 18 | * 19 | * P.T.Wallace Starlink 24 July 1995 20 | * 21 | * Copyright (C) 1995 Rutherford Appleton Laboratory 22 | *- 23 | 24 | IMPLICIT NONE 25 | 26 | REAL XI,ETA,RAZ,DECZ,RA,DEC 27 | 28 | REAL sla_RANORM 29 | 30 | REAL SDECZ,CDECZ,DENOM 31 | 32 | 33 | 34 | SDECZ=SIN(DECZ) 35 | CDECZ=COS(DECZ) 36 | 37 | DENOM=CDECZ-ETA*SDECZ 38 | 39 | RA=sla_RANORM(ATAN2(XI,DENOM)+RAZ) 40 | DEC=ATAN2(SDECZ+ETA*CDECZ,SQRT(XI*XI+DENOM*DENOM)) 41 | 42 | END 43 | -------------------------------------------------------------------------------- /src/slalib/dvn.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_DVN (V, UV, VM) 2 | *+ 3 | * - - - - 4 | * D V N 5 | * - - - - 6 | * 7 | * Normalizes a 3-vector also giving the modulus (double precision) 8 | * 9 | * Given: 10 | * V dp(3) vector 11 | * 12 | * Returned: 13 | * UV dp(3) unit vector in direction of V 14 | * VM dp modulus of V 15 | * 16 | * If the modulus of V is zero, UV is set to zero as well 17 | * 18 | * P.T.Wallace Starlink 23 November 1995 19 | * 20 | * Copyright (C) 1995 Rutherford Appleton Laboratory 21 | *- 22 | 23 | IMPLICIT NONE 24 | 25 | DOUBLE PRECISION V(3),UV(3),VM 26 | 27 | INTEGER I 28 | DOUBLE PRECISION W1,W2 29 | 30 | 31 | * Modulus 32 | W1=0D0 33 | DO I=1,3 34 | W2=V(I) 35 | W1=W1+W2*W2 36 | END DO 37 | W1=SQRT(W1) 38 | VM=W1 39 | 40 | * Normalize the vector 41 | IF (W1.LE.0D0) W1=1D0 42 | DO I=1,3 43 | UV(I)=V(I)/W1 44 | END DO 45 | 46 | END 47 | -------------------------------------------------------------------------------- /src/slalib/dmxv.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_DMXV (DM, VA, VB) 2 | *+ 3 | * - - - - - 4 | * D M X V 5 | * - - - - - 6 | * 7 | * Performs the 3-D forward unitary transformation: 8 | * 9 | * vector VB = matrix DM * vector VA 10 | * 11 | * (double precision) 12 | * 13 | * Given: 14 | * DM dp(3,3) matrix 15 | * VA dp(3) vector 16 | * 17 | * Returned: 18 | * VB dp(3) result vector 19 | * 20 | * P.T.Wallace Starlink March 1986 21 | * 22 | * Copyright (C) 1995 Rutherford Appleton Laboratory 23 | *- 24 | 25 | IMPLICIT NONE 26 | 27 | DOUBLE PRECISION DM(3,3),VA(3),VB(3) 28 | 29 | INTEGER I,J 30 | DOUBLE PRECISION W,VW(3) 31 | 32 | 33 | * Matrix DM * vector VA -> vector VW 34 | DO J=1,3 35 | W=0D0 36 | DO I=1,3 37 | W=W+DM(J,I)*VA(I) 38 | END DO 39 | VW(J)=W 40 | END DO 41 | 42 | * Vector VW -> vector VB 43 | DO J=1,3 44 | VB(J)=VW(J) 45 | END DO 46 | 47 | END 48 | -------------------------------------------------------------------------------- /src/slalib/cs2c.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_CS2C (A, B, V) 2 | *+ 3 | * - - - - - 4 | * C S 2 C 5 | * - - - - - 6 | * 7 | * Spherical coordinates to direction cosines (single precision) 8 | * 9 | * Given: 10 | * A,B real spherical coordinates in radians 11 | * (RA,Dec), (Long,Lat) etc 12 | * 13 | * Returned: 14 | * V real(3) x,y,z unit vector 15 | * 16 | * The spherical coordinates are longitude (+ve anticlockwise 17 | * looking from the +ve latitude pole) and latitude. The 18 | * Cartesian coordinates are right handed, with the x axis 19 | * at zero longitude and latitude, and the z axis at the 20 | * +ve latitude pole. 21 | * 22 | * P.T.Wallace Starlink October 1984 23 | * 24 | * Copyright (C) 1995 Rutherford Appleton Laboratory 25 | *- 26 | 27 | IMPLICIT NONE 28 | 29 | REAL A,B,V(3) 30 | 31 | REAL COSB 32 | 33 | 34 | 35 | COSB=COS(B) 36 | 37 | V(1)=COS(A)*COSB 38 | V(2)=SIN(A)*COSB 39 | V(3)=SIN(B) 40 | 41 | END 42 | -------------------------------------------------------------------------------- /src/slalib/random.f_pcm: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_RANDOM (XSEED) 2 | *+ 3 | * - - - - - - - 4 | * R A N D O M 5 | * - - - - - - - 6 | * 7 | * Generate pseudo-random real number in the range 0 <= X < 1. 8 | * 9 | * (single precision) 10 | * 11 | * !!! Microsoft Fortran dependent !!! 12 | * 13 | * Given (but used first time only): 14 | * XSEED real an arbitrary real number 15 | * 16 | * The value returned is a pseudo-random number such that 17 | * 0 <= sla_RANDOM < 1. 18 | * 19 | * Called: RANDOM (Microsoft run-time library) 20 | * 21 | * P.T.Wallace Starlink 28 February 1993 22 | * 23 | *+ 24 | 25 | IMPLICIT NONE 26 | 27 | REAL XSEED 28 | 29 | REAL X 30 | LOGICAL FIRST 31 | SAVE FIRST 32 | DATA FIRST /.TRUE./ 33 | 34 | 35 | IF (FIRST) THEN 36 | CALL SEED(NINT(MOD(XSEED*1.234E7,32E3))) ! Microsoft Fortran 37 | FIRST=.FALSE. 38 | END IF 39 | CALL RANDOM(X) ! Microsoft Fortran 40 | sla_RANDOM=X 41 | 42 | END 43 | -------------------------------------------------------------------------------- /src/fuv/Makefile.am: -------------------------------------------------------------------------------- 1 | SUBDIRS = . 2 | BUILD_LIBS = ../slalib/libsla.la ../libcf/libcf.la $(cfitsio_LIBS) 3 | BUILD_FLAGS = -I../include -I./ $(cfitsio_CFLAGS) 4 | bin_PROGRAMS = cf_assign_wavelength \ 5 | cf_bad_pixels \ 6 | cf_convert_to_farf \ 7 | cf_countmap \ 8 | cf_extract_spectra \ 9 | cf_flux_calibrate \ 10 | cf_gainmap \ 11 | cf_hist_init \ 12 | cf_remove_motions \ 13 | cf_screen_photons \ 14 | cf_ttag_init 15 | cf_assign_wavelength_SOURCES = cf_assign_wavelength.c 16 | cf_bad_pixels_SOURCES = cf_bad_pixels.c 17 | cf_convert_to_farf_SOURCES = cf_convert_to_farf.c 18 | cf_countmap_SOURCES = cf_countmap.c 19 | cf_extract_spectra_SOURCES = cf_extract_spectra.c 20 | cf_flux_calibrate_SOURCES = cf_flux_calibrate.c 21 | cf_gainmap_SOURCES = cf_gainmap.c 22 | cf_hist_init_SOURCES = cf_hist_init.c 23 | cf_remove_motions_SOURCES = cf_remove_motions.c 24 | cf_screen_photons_SOURCES = cf_screen_photons.c 25 | cf_ttag_init_SOURCES = cf_ttag_init.c 26 | 27 | LDADD = $(BUILD_LIBS) 28 | AM_CFLAGS = $(BUILD_FLAGS) 29 | -------------------------------------------------------------------------------- /src/slalib/dtp2s.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_DTP2S (XI, ETA, RAZ, DECZ, RA, DEC) 2 | *+ 3 | * - - - - - - 4 | * D T P 2 S 5 | * - - - - - - 6 | * 7 | * Transform tangent plane coordinates into spherical 8 | * (double precision) 9 | * 10 | * Given: 11 | * XI,ETA dp tangent plane rectangular coordinates 12 | * RAZ,DECZ dp spherical coordinates of tangent point 13 | * 14 | * Returned: 15 | * RA,DEC dp spherical coordinates (0-2pi,+/-pi/2) 16 | * 17 | * Called: sla_DRANRM 18 | * 19 | * P.T.Wallace Starlink 24 July 1995 20 | * 21 | * Copyright (C) 1995 Rutherford Appleton Laboratory 22 | *- 23 | 24 | IMPLICIT NONE 25 | 26 | DOUBLE PRECISION XI,ETA,RAZ,DECZ,RA,DEC 27 | 28 | DOUBLE PRECISION sla_DRANRM 29 | 30 | DOUBLE PRECISION SDECZ,CDECZ,DENOM 31 | 32 | 33 | 34 | SDECZ=SIN(DECZ) 35 | CDECZ=COS(DECZ) 36 | 37 | DENOM=CDECZ-ETA*SDECZ 38 | 39 | RA=sla_DRANRM(ATAN2(XI,DENOM)+RAZ) 40 | DEC=ATAN2(SDECZ+ETA*CDECZ,SQRT(XI*XI+DENOM*DENOM)) 41 | 42 | END 43 | -------------------------------------------------------------------------------- /src/slalib/dcs2c.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_DCS2C (A, B, V) 2 | *+ 3 | * - - - - - - 4 | * D C S 2 C 5 | * - - - - - - 6 | * 7 | * Spherical coordinates to direction cosines (double precision) 8 | * 9 | * Given: 10 | * A,B dp spherical coordinates in radians 11 | * (RA,Dec), (Long,Lat) etc 12 | * 13 | * Returned: 14 | * V dp(3) x,y,z unit vector 15 | * 16 | * The spherical coordinates are longitude (+ve anticlockwise 17 | * looking from the +ve latitude pole) and latitude. The 18 | * Cartesian coordinates are right handed, with the x axis 19 | * at zero longitude and latitude, and the z axis at the 20 | * +ve latitude pole. 21 | * 22 | * P.T.Wallace Starlink October 1984 23 | * 24 | * Copyright (C) 1995 Rutherford Appleton Laboratory 25 | *- 26 | 27 | IMPLICIT NONE 28 | 29 | DOUBLE PRECISION A,B,V(3) 30 | 31 | DOUBLE PRECISION COSB 32 | 33 | 34 | 35 | COSB=COS(B) 36 | 37 | V(1)=COS(A)*COSB 38 | V(2)=SIN(A)*COSB 39 | V(3)=SIN(B) 40 | 41 | END 42 | -------------------------------------------------------------------------------- /src/slalib/sun67.htx/icons.html: -------------------------------------------------------------------------------- 1 | 2 |
3 | 4 |

5 | 6 |

7 | 8 |

9 | 10 |

11 | 12 |

13 | 14 |

15 | 16 |

17 | 18 |

19 | 20 |

21 | 22 |

23 | 24 |

25 | 26 |

27 | 28 |

29 | 30 | 31 |

32 | 33 | 34 | 35 | 36 | 37 | 38 |

39 | 40 | changeend

41 | 42 |

changeend 43 | -------------------------------------------------------------------------------- /src/slalib/atms.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla__ATMS (RT, TT, DNT, GAMAL, R, DN, RDNDR) 2 | *+ 3 | * - - - - - 4 | * A T M S 5 | * - - - - - 6 | * 7 | * Internal routine used by REFRO 8 | * 9 | * Refractive index and derivative with respect to height for the 10 | * stratosphere. 11 | * 12 | * Given: 13 | * RT d height of tropopause from centre of the Earth (metre) 14 | * TT d temperature at the tropopause (deg K) 15 | * DNT d refractive index at the tropopause 16 | * GAMAL d constant of the atmospheric model = G*MD/R 17 | * R d current distance from the centre of the Earth (metre) 18 | * 19 | * Returned: 20 | * DN d refractive index at R 21 | * RDNDR d R * rate the refractive index is changing at R 22 | * 23 | * P.T.Wallace Starlink 14 July 1995 24 | * 25 | * Copyright (C) 1995 Rutherford Appleton Laboratory 26 | *- 27 | 28 | IMPLICIT NONE 29 | 30 | DOUBLE PRECISION RT,TT,DNT,GAMAL,R,DN,RDNDR 31 | 32 | DOUBLE PRECISION B,W 33 | 34 | 35 | B = GAMAL/TT 36 | W = (DNT-1D0)*EXP(-B*(R-RT)) 37 | DN = 1D0+W 38 | RDNDR = -R*B*W 39 | 40 | END 41 | -------------------------------------------------------------------------------- /src/slalib/imxv.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_IMXV (RM, VA, VB) 2 | *+ 3 | * - - - - - 4 | * I M X V 5 | * - - - - - 6 | * 7 | * Performs the 3-D backward unitary transformation: 8 | * 9 | * vector VB = (inverse of matrix RM) * vector VA 10 | * 11 | * (single precision) 12 | * 13 | * (n.b. the matrix must be unitary, as this routine assumes that 14 | * the inverse and transpose are identical) 15 | * 16 | * Given: 17 | * RM real(3,3) matrix 18 | * VA real(3) vector 19 | * 20 | * Returned: 21 | * VB real(3) result vector 22 | * 23 | * P.T.Wallace Starlink November 1984 24 | * 25 | * Copyright (C) 1995 Rutherford Appleton Laboratory 26 | *- 27 | 28 | IMPLICIT NONE 29 | 30 | REAL RM(3,3),VA(3),VB(3) 31 | 32 | INTEGER I,J 33 | REAL W,VW(3) 34 | 35 | 36 | 37 | * Inverse of matrix RM * vector VA -> vector VW 38 | DO J=1,3 39 | W=0.0 40 | DO I=1,3 41 | W=W+RM(I,J)*VA(I) 42 | END DO 43 | VW(J)=W 44 | END DO 45 | 46 | * Vector VW -> vector VB 47 | DO J=1,3 48 | VB(J)=VW(J) 49 | END DO 50 | 51 | END 52 | -------------------------------------------------------------------------------- /src/slalib/put.com: -------------------------------------------------------------------------------- 1 | $! 2 | $! - - - - 3 | $! P U T 4 | $! - - - - 5 | $! 6 | $! Update one SLALIB routine from Fortran source 7 | $! 8 | $! DCL command is @PUT file 9 | $! 10 | $! The default directory must be the one containing the 11 | $! Fortran source, with the libraries in [.RELEASE]. 12 | $! 13 | $! P T Wallace Starlink 22 January 1993 14 | $! 15 | $! Save supplied file name and strip recognized extensions 16 | $ FILE=''P1'' 17 | $ P1=P1-".FOR"-".VAX" 18 | $! 19 | $! No action required for TEST program 20 | IF P1.EQS."TEST" THEN $ GOTO DONE 21 | $! 22 | $! If platform-specific module, make .FOR file ... 23 | $ IF F$SEARCH("''P1'.VAX").NES."" THEN $ COPY 'P1'.VAX *.FOR 24 | $! 25 | $! Update the source library 26 | $ LIBR/REPL/TEXT [.RELEASE]SLALIB.TLB 'P1'.FOR 27 | $! 28 | $! Compile, update object library, delete object 29 | $ FORTRAN/NOLIST 'P1'.FOR 30 | $ LIBR/REPL [.RELEASE]SLALIB.OLB 'P1'.OBJ 31 | $ DELETE 'P1'.OBJ;* 32 | $! 33 | $! If module just updated was platform-specific, delete the .FOR version 34 | $ IF F$SEARCH("''P1'.VAX",1).NES."" THEN $ DELETE 'P1'.FOR;* 35 | $! 36 | $! Finished 37 | $DONE: 38 | $ EXIT 39 | -------------------------------------------------------------------------------- /src/slalib/dimxv.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_DIMXV (DM, VA, VB) 2 | *+ 3 | * - - - - - - 4 | * D I M X V 5 | * - - - - - - 6 | * 7 | * Performs the 3-D backward unitary transformation: 8 | * 9 | * vector VB = (inverse of matrix DM) * vector VA 10 | * 11 | * (double precision) 12 | * 13 | * (n.b. the matrix must be unitary, as this routine assumes that 14 | * the inverse and transpose are identical) 15 | * 16 | * Given: 17 | * DM dp(3,3) matrix 18 | * VA dp(3) vector 19 | * 20 | * Returned: 21 | * VB dp(3) result vector 22 | * 23 | * P.T.Wallace Starlink March 1986 24 | * 25 | * Copyright (C) 1995 Rutherford Appleton Laboratory 26 | *- 27 | 28 | IMPLICIT NONE 29 | 30 | DOUBLE PRECISION DM(3,3),VA(3),VB(3) 31 | 32 | INTEGER I,J 33 | DOUBLE PRECISION W,VW(3) 34 | 35 | 36 | 37 | * Inverse of matrix DM * vector VA -> vector VW 38 | DO J=1,3 39 | W=0D0 40 | DO I=1,3 41 | W=W+DM(I,J)*VA(I) 42 | END DO 43 | VW(J)=W 44 | END DO 45 | 46 | * Vector VW -> vector VB 47 | DO J=1,3 48 | VB(J)=VW(J) 49 | END DO 50 | 51 | END 52 | -------------------------------------------------------------------------------- /src/slalib/bear.f: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_BEAR (A1, B1, A2, B2) 2 | *+ 3 | * - - - - - 4 | * B E A R 5 | * - - - - - 6 | * 7 | * Bearing (position angle) of one point on a sphere relative to another 8 | * (single precision) 9 | * 10 | * Given: 11 | * A1,B1 r spherical coordinates of one point 12 | * A2,B2 r spherical coordinates of the other point 13 | * 14 | * (The spherical coordinates are RA,Dec, Long,Lat etc, in radians.) 15 | * 16 | * The result is the bearing (position angle), in radians, of point 17 | * A2,B2 as seen from point A1,B1. It is in the range +/- pi. If 18 | * A2,B2 is due east of A1,B1 the bearing is +pi/2. Zero is returned 19 | * if the two points are coincident. 20 | * 21 | * P.T.Wallace Starlink 23 March 1991 22 | * 23 | * Copyright (C) 1995 Rutherford Appleton Laboratory 24 | *- 25 | 26 | IMPLICIT NONE 27 | 28 | REAL A1,B1,A2,B2 29 | 30 | REAL DA,X,Y 31 | 32 | 33 | DA=A2-A1 34 | Y=SIN(DA)*COS(B2) 35 | X=SIN(B2)*COS(B1)-COS(B2)*SIN(B1)*COS(DA) 36 | IF (X.NE.0.0.OR.Y.NE.0.0) THEN 37 | sla_BEAR=ATAN2(Y,X) 38 | ELSE 39 | sla_BEAR=0.0 40 | END IF 41 | 42 | END 43 | -------------------------------------------------------------------------------- /src/slalib/nut.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_NUT (DATE, RMATN) 2 | *+ 3 | * - - - - 4 | * N U T 5 | * - - - - 6 | * 7 | * Form the matrix of nutation for a given date - IAU 1980 theory 8 | * (double precision) 9 | * 10 | * References: 11 | * Final report of the IAU Working Group on Nutation, 12 | * chairman P.K.Seidelmann, 1980. 13 | * Kaplan,G.H., 1981, USNO circular no. 163, pA3-6. 14 | * 15 | * Given: 16 | * DATE dp TDB (loosely ET) as Modified Julian Date 17 | * (=JD-2400000.5) 18 | * Returned: 19 | * RMATN dp(3,3) nutation matrix 20 | * 21 | * The matrix is in the sense V(true) = RMATN * V(mean) 22 | * 23 | * Called: sla_NUTC, sla_DEULER 24 | * 25 | * P.T.Wallace Starlink 1 January 1993 26 | * 27 | * Copyright (C) 1995 Rutherford Appleton Laboratory 28 | *- 29 | 30 | IMPLICIT NONE 31 | 32 | DOUBLE PRECISION DATE,RMATN(3,3) 33 | 34 | DOUBLE PRECISION DPSI,DEPS,EPS0 35 | 36 | 37 | 38 | * Nutation components and mean obliquity 39 | CALL sla_NUTC(DATE,DPSI,DEPS,EPS0) 40 | 41 | * Rotation matrix 42 | CALL sla_DEULER('XZX',EPS0,-DPSI,-(EPS0+DEPS),RMATN) 43 | 44 | END 45 | -------------------------------------------------------------------------------- /src/slalib/sep.f: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_SEP (A1, B1, A2, B2) 2 | *+ 3 | * - - - - 4 | * S E P 5 | * - - - - 6 | * 7 | * Angle between two points on a sphere (single precision) 8 | * 9 | * Given: 10 | * A1,B1 real spherical coordinates of one point 11 | * A2,B2 real spherical coordinates of the other point 12 | * 13 | * (The spherical coordinates are RA,Dec, Long,Lat etc, in radians.) 14 | * 15 | * The result is the angle, in radians, between the two points. It 16 | * is always positive. 17 | * 18 | * Called: sla_CS2C 19 | * 20 | * P.T.Wallace Starlink April 1985 21 | * 22 | * Copyright (C) 1995 Rutherford Appleton Laboratory 23 | *- 24 | 25 | IMPLICIT NONE 26 | 27 | REAL A1,B1,A2,B2 28 | 29 | INTEGER I 30 | REAL V1(3),V2(3),W 31 | 32 | 33 | 34 | * Convert coordinates from spherical to Cartesian 35 | CALL sla_CS2C(A1,B1,V1) 36 | CALL sla_CS2C(A2,B2,V2) 37 | 38 | * Modulus squared of half the difference vector 39 | W=0.0 40 | DO I=1,3 41 | W=W+(V1(I)-V2(I))**2 42 | END DO 43 | W=W/4.0 44 | 45 | * Angle between the vectors 46 | sla_SEP=2.0*ATAN2(SQRT(W),SQRT(MAX(0.0,1.0-W))) 47 | 48 | END 49 | -------------------------------------------------------------------------------- /src/slalib/dbear.f: -------------------------------------------------------------------------------- 1 | DOUBLE PRECISION FUNCTION sla_DBEAR (A1, B1, A2, B2) 2 | *+ 3 | * - - - - - - 4 | * D B E A R 5 | * - - - - - - 6 | * 7 | * Bearing (position angle) of one point on a sphere relative to another 8 | * (double precision) 9 | * 10 | * Given: 11 | * A1,B1 d spherical coordinates of one point 12 | * A2,B2 d spherical coordinates of the other point 13 | * 14 | * (The spherical coordinates are RA,Dec, Long,Lat etc, in radians.) 15 | * 16 | * The result is the bearing (position angle), in radians, of point 17 | * A2,B2 as seen from point A1,B1. It is in the range +/- pi. If 18 | * A2,B2 is due east of A1,B1 the bearing is +pi/2. Zero is returned 19 | * if the two points are coincident. 20 | * 21 | * P.T.Wallace Starlink 23 March 1991 22 | * 23 | * Copyright (C) 1995 Rutherford Appleton Laboratory 24 | *- 25 | 26 | IMPLICIT NONE 27 | 28 | DOUBLE PRECISION A1,B1,A2,B2 29 | 30 | DOUBLE PRECISION DA,X,Y 31 | 32 | 33 | DA=A2-A1 34 | Y=SIN(DA)*COS(B2) 35 | X=SIN(B2)*COS(B1)-COS(B2)*SIN(B1)*COS(DA) 36 | IF (X.NE.0D0.OR.Y.NE.0D0) THEN 37 | sla_DBEAR=ATAN2(Y,X) 38 | ELSE 39 | sla_DBEAR=0D0 40 | END IF 41 | 42 | END 43 | -------------------------------------------------------------------------------- /src/slalib/aoppat.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_AOPPAT (DATE, AOPRMS) 2 | *+ 3 | * - - - - - - - 4 | * A O P P A T 5 | * - - - - - - - 6 | * 7 | * Recompute the sidereal time in the apparent to observed place 8 | * star-independent parameter block. 9 | * 10 | * Given: 11 | * DATE d UTC date/time (modified Julian Date, JD-2400000.5) 12 | * (see AOPPA source for comments on leap seconds) 13 | * 14 | * AOPRMS d(14) star-independent apparent-to-observed parameters 15 | * 16 | * (1-12) not required 17 | * (13) longitude + eqn of equinoxes + sidereal DUT 18 | * (14) not required 19 | * 20 | * Returned: 21 | * AOPRMS d(14) star-independent apparent-to-observed parameters: 22 | * 23 | * (1-13) not changed 24 | * (14) local apparent sidereal time (radians) 25 | * 26 | * For more information, see sla_AOPPA. 27 | * 28 | * Called: sla_GMST 29 | * 30 | * P.T.Wallace Starlink 1 July 1993 31 | * 32 | * Copyright (C) 1995 Rutherford Appleton Laboratory 33 | *- 34 | 35 | IMPLICIT NONE 36 | 37 | DOUBLE PRECISION DATE,AOPRMS(14) 38 | 39 | DOUBLE PRECISION sla_GMST 40 | 41 | 42 | 43 | AOPRMS(14) = sla_GMST(DATE)+AOPRMS(13) 44 | 45 | END 46 | -------------------------------------------------------------------------------- /src/slalib/dsep.f: -------------------------------------------------------------------------------- 1 | DOUBLE PRECISION FUNCTION sla_DSEP (A1, B1, A2, B2) 2 | *+ 3 | * - - - - - 4 | * D S E P 5 | * - - - - - 6 | * 7 | * Angle between two points on a sphere (double precision) 8 | * 9 | * Given: 10 | * A1,B1 dp spherical coordinates of one point 11 | * A2,B2 dp spherical coordinates of the other point 12 | * 13 | * (The spherical coordinates are RA,Dec, Long,Lat etc, in radians.) 14 | * 15 | * The result is the angle, in radians, between the two points. It 16 | * is always positive. 17 | * 18 | * Called: sla_DCS2C 19 | * 20 | * P.T.Wallace Starlink April 1985 21 | * 22 | * Copyright (C) 1995 Rutherford Appleton Laboratory 23 | *- 24 | 25 | IMPLICIT NONE 26 | 27 | DOUBLE PRECISION A1,B1,A2,B2 28 | 29 | INTEGER I 30 | DOUBLE PRECISION V1(3),V2(3),W 31 | 32 | 33 | 34 | * Convert coordinates from spherical to Cartesian 35 | CALL sla_DCS2C(A1,B1,V1) 36 | CALL sla_DCS2C(A2,B2,V2) 37 | 38 | * Modulus squared of half the difference vector 39 | W=0D0 40 | DO I=1,3 41 | W=W+(V1(I)-V2(I))**2 42 | END DO 43 | W=W/4D0 44 | 45 | * Angle between the vectors 46 | sla_DSEP=2D0*ATAN2(SQRT(W),SQRT(MAX(0D0,1D0-W))) 47 | 48 | END 49 | -------------------------------------------------------------------------------- /src/slalib/prenut.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_PRENUT (EPOCH, DATE, RMATPN) 2 | *+ 3 | * - - - - - - - 4 | * P R E N U T 5 | * - - - - - - - 6 | * 7 | * Form the matrix of precession and nutation (IAU1976/FK5) 8 | * (double precision) 9 | * 10 | * Given: 11 | * EPOCH dp Julian Epoch for mean coordinates 12 | * DATE dp Modified Julian Date (JD-2400000.5) 13 | * for true coordinates 14 | * 15 | * Returned: 16 | * RMATPN dp(3,3) combined precession/nutation matrix 17 | * 18 | * Called: sla_PREC, sla_EPJ, sla_NUT, sla_DMXM 19 | * 20 | * Notes: 21 | * 22 | * 1) The epoch and date are TDB (loosely ET). 23 | * 24 | * 2) The matrix is in the sense V(true) = RMATPN * V(mean) 25 | * 26 | * P.T.Wallace Starlink April 1987 27 | * 28 | * Copyright (C) 1995 Rutherford Appleton Laboratory 29 | *- 30 | 31 | IMPLICIT NONE 32 | 33 | DOUBLE PRECISION EPOCH,DATE,RMATPN(3,3) 34 | 35 | DOUBLE PRECISION RMATP(3,3),RMATN(3,3),sla_EPJ 36 | 37 | 38 | 39 | * Precession 40 | CALL sla_PREC(EPOCH,sla_EPJ(DATE),RMATP) 41 | 42 | * Nutation 43 | CALL sla_NUT(DATE,RMATN) 44 | 45 | * Combine the matrices: PN = N x P 46 | CALL sla_DMXM(RMATN,RMATP,RMATPN) 47 | 48 | END 49 | -------------------------------------------------------------------------------- /src/slalib/random.f_vax: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_RANDOM (SEED) 2 | *+ 3 | * - - - - - - - 4 | * R A N D O M 5 | * - - - - - - - 6 | * 7 | * Generate pseudo-random real number in the range 0 <= X < 1. 8 | * (single precision) 9 | * 10 | * !!! Version for VAX/VMS and DECstation !!! 11 | * 12 | * Given: 13 | * SEED real an arbitrary real number 14 | * 15 | * Notes: 16 | * 17 | * 1) The result is a pseudo-random REAL number in the range 18 | * 0 <= sla_RANDOM < 1. 19 | * 20 | * 2) SEED is used first time through only. 21 | * 22 | * Called: RAN (a REAL function from the DEC Fortran Library) 23 | * 24 | * P.T.Wallace Starlink 14 October 1991 25 | *- 26 | 27 | IMPLICIT NONE 28 | 29 | REAL SEED 30 | 31 | REAL RAN 32 | 33 | REAL AS 34 | INTEGER ISEED 35 | LOGICAL FIRST 36 | SAVE FIRST 37 | DATA FIRST /.TRUE./ 38 | 39 | 40 | 41 | * If first time, turn SEED into a large, odd integer 42 | IF (FIRST) THEN 43 | AS=ABS(SEED)+1.0 44 | ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6)) 45 | IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1 46 | FIRST=.FALSE. 47 | END IF 48 | 49 | * Next pseudo-random number 50 | sla_RANDOM=RAN(ISEED) 51 | 52 | END 53 | -------------------------------------------------------------------------------- /src/slalib/cc2s.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_CC2S (V, A, B) 2 | *+ 3 | * - - - - - 4 | * C C 2 S 5 | * - - - - - 6 | * 7 | * Direction cosines to spherical coordinates (single precision) 8 | * 9 | * Given: 10 | * V r(3) x,y,z vector 11 | * 12 | * Returned: 13 | * A,B r spherical coordinates in radians 14 | * 15 | * The spherical coordinates are longitude (+ve anticlockwise 16 | * looking from the +ve latitude pole) and latitude. The 17 | * Cartesian coordinates are right handed, with the x axis 18 | * at zero longitude and latitude, and the z axis at the 19 | * +ve latitude pole. 20 | * 21 | * If V is null, zero A and B are returned. 22 | * At either pole, zero A is returned. 23 | * 24 | * P.T.Wallace Starlink July 1989 25 | * 26 | * Copyright (C) 1995 Rutherford Appleton Laboratory 27 | *- 28 | 29 | IMPLICIT NONE 30 | 31 | REAL V(3),A,B 32 | 33 | REAL X,Y,Z,R 34 | 35 | 36 | X = V(1) 37 | Y = V(2) 38 | Z = V(3) 39 | R = SQRT(X*X+Y*Y) 40 | 41 | IF (R.EQ.0.0) THEN 42 | A = 0.0 43 | ELSE 44 | A = ATAN2(Y,X) 45 | END IF 46 | 47 | IF (Z.EQ.0.0) THEN 48 | B = 0.0 49 | ELSE 50 | B = ATAN2(Z,R) 51 | END IF 52 | 53 | END 54 | -------------------------------------------------------------------------------- /scripts/Makefile.am: -------------------------------------------------------------------------------- 1 | SUBDIRS = . 2 | bin_SCRIPTS = \ 3 | calfuse.csh \ 4 | calfuse.sh \ 5 | calfuse.wavecal \ 6 | cf_make_900_obs.csh \ 7 | cf_make_all.csh \ 8 | cf_make_all_obs.csh \ 9 | cfsetup.csh \ 10 | cfsetup.sh \ 11 | idl_obsplot.pl \ 12 | idlplot_rate.pl \ 13 | idlplot_spex.pl 14 | 15 | EXTRA_DIST = \ 16 | cfsetup.csh.in \ 17 | cfsetup.sh.in \ 18 | calfuse.csh \ 19 | calfuse.sh \ 20 | calfuse.wavecal \ 21 | cf_make_900_obs.csh \ 22 | cf_make_all.csh.in \ 23 | cf_make_all_obs.csh \ 24 | idl_obsplot.pl \ 25 | idlplot_rate.pl \ 26 | idlplot_spex.pl 27 | 28 | CLEANFILES = cfsetup.csh \ 29 | cfsetup.sh \ 30 | cf_make_all.csh 31 | 32 | do_subst = sed -e 's,[@]DATADIR[@],$(pkgdatadir)-$(VERSION),g' \ 33 | -e 's,[@]PREFIX[@],$(prefix),g' \ 34 | -e 's,[@]PACKAGE[@],$(PACKAGE),g' \ 35 | -e 's,[@]VERSION[@],$(VERSION),g' 36 | 37 | cfsetup.csh: cfsetup.csh.in Makefile 38 | $(do_subst) < cfsetup.csh.in > cfsetup.csh 39 | chmod +x cfsetup.csh 40 | 41 | cfsetup.sh: cfsetup.sh.in Makefile 42 | $(do_subst) < cfsetup.sh.in > cfsetup.sh 43 | chmod +x cfsetup.sh 44 | 45 | cf_make_all.csh: cf_make_all.csh.in Makefile 46 | $(do_subst) < cf_make_all.csh.in > cf_make_all.csh 47 | chmod +x cf_make_all.csh 48 | -------------------------------------------------------------------------------- /src/slalib/dcc2s.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_DCC2S (V, A, B) 2 | *+ 3 | * - - - - - - 4 | * D C C 2 S 5 | * - - - - - - 6 | * 7 | * Direction cosines to spherical coordinates (double precision) 8 | * 9 | * Given: 10 | * V d(3) x,y,z vector 11 | * 12 | * Returned: 13 | * A,B d spherical coordinates in radians 14 | * 15 | * The spherical coordinates are longitude (+ve anticlockwise 16 | * looking from the +ve latitude pole) and latitude. The 17 | * Cartesian coordinates are right handed, with the x axis 18 | * at zero longitude and latitude, and the z axis at the 19 | * +ve latitude pole. 20 | * 21 | * If V is null, zero A and B are returned. 22 | * At either pole, zero A is returned. 23 | * 24 | * P.T.Wallace Starlink July 1989 25 | * 26 | * Copyright (C) 1995 Rutherford Appleton Laboratory 27 | *- 28 | 29 | IMPLICIT NONE 30 | 31 | DOUBLE PRECISION V(3),A,B 32 | 33 | DOUBLE PRECISION X,Y,Z,R 34 | 35 | 36 | X = V(1) 37 | Y = V(2) 38 | Z = V(3) 39 | R = SQRT(X*X+Y*Y) 40 | 41 | IF (R.EQ.0D0) THEN 42 | A = 0D0 43 | ELSE 44 | A = ATAN2(Y,X) 45 | END IF 46 | 47 | IF (Z.EQ.0D0) THEN 48 | B = 0D0 49 | ELSE 50 | B = ATAN2(Z,R) 51 | END IF 52 | 53 | END 54 | -------------------------------------------------------------------------------- /Makefile.am: -------------------------------------------------------------------------------- 1 | SUBDIRS = . src scripts doc 2 | pkgdatadir = $(datadir)/@PACKAGE@-@VERSION@ 3 | ACLOCAL_AMFLAGS = -I m4 4 | DATADIRS = calfiles parmfiles idl 5 | INCLUDE_FILES = \ 6 | src/fes/cf_calfes.h \ 7 | src/include/calfitsio.h \ 8 | src/include/calfuse.h \ 9 | src/include/cfortran.h \ 10 | src/include/compress.h \ 11 | src/include/config.h \ 12 | src/include/drvrsmem.h \ 13 | src/include/eval_defs.h \ 14 | src/include/eval_tab.h \ 15 | src/include/f77_wrap.h \ 16 | src/include/fusebuf.h \ 17 | src/include/group.h \ 18 | src/include/grparser.h \ 19 | src/include/imcompress.h \ 20 | src/include/longnam.h \ 21 | src/include/pctype.h \ 22 | src/include/region.h \ 23 | src/include/ricecomp.h \ 24 | src/include/sgp4.h \ 25 | src/include/slalib.h \ 26 | src/include/slamac.h 27 | 28 | noinst_HEADERS = $(INCLUDE_FILES) 29 | 30 | EXTRA_DIST = $(DATADIRS) 31 | EXTRA_DIST += contrib 32 | 33 | install-data-local: $(DATADIRS) 34 | mkdir -p $(DESTDIR)$(pkgdatadir) ; \ 35 | for d in $(DATADIRS); do mkdir -p "$(DESTDIR)$(pkgdatadir)/$$d"; done ; \ 36 | find $(DATADIRS) -type f | xargs -I{} install -m 644 {} $(DESTDIR)$(pkgdatadir)/{} 37 | 38 | download-data: 39 | ( cd $(srcdir) ; \ 40 | contrib/download_data; ) 41 | 42 | test: check 43 | 44 | -------------------------------------------------------------------------------- /src/slalib/random.f_ix86_Linux: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_RANDOM (SEED) 2 | *+ 3 | * - - - - - - - 4 | * R A N D O M 5 | * - - - - - - - 6 | * 7 | * Generate pseudo-random real number in the range 0 <= X < 1. 8 | * (single precision) 9 | * 10 | * !!! Version for Linux !!! 11 | * 12 | * Given: 13 | * SEED real an arbitrary real number 14 | * 15 | * Notes: 16 | * 17 | * 1) The result is a pseudo-random REAL number in the range 18 | * 0 <= sla_RANDOM < 1. 19 | * 20 | * 2) SEED is used first time through only. 21 | * 22 | * Called: RANDOM (a REAL function compiled by the makefile from rtl_random.c) 23 | * 24 | * B.K.McIlwrath Starlink 12 January 1996 25 | *- 26 | 27 | IMPLICIT NONE 28 | 29 | REAL SEED 30 | 31 | REAL RANDOM 32 | 33 | REAL AS 34 | INTEGER ISEED 35 | LOGICAL FIRST 36 | SAVE FIRST 37 | DATA FIRST /.TRUE./ 38 | 39 | 40 | 41 | * If first time, turn SEED into a large, odd integer 42 | IF (FIRST) THEN 43 | AS=ABS(SEED)+1.0 44 | ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6)) 45 | IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1 46 | FIRST=.FALSE. 47 | ELSE 48 | ISEED = 0 49 | END IF 50 | 51 | * Next pseudo-random number 52 | sla_RANDOM=RANDOM(ISEED) 53 | 54 | END 55 | -------------------------------------------------------------------------------- /src/slalib/random.f_x86_64: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_RANDOM (SEED) 2 | *+ 3 | * - - - - - - - 4 | * R A N D O M 5 | * - - - - - - - 6 | * 7 | * Generate pseudo-random real number in the range 0 <= X < 1. 8 | * (single precision) 9 | * 10 | * !!! Version for Linux !!! 11 | * 12 | * Given: 13 | * SEED real an arbitrary real number 14 | * 15 | * Notes: 16 | * 17 | * 1) The result is a pseudo-random REAL number in the range 18 | * 0 <= sla_RANDOM < 1. 19 | * 20 | * 2) SEED is used first time through only. 21 | * 22 | * Called: RANDOM (a REAL function compiled by the makefile from rtl_random.c) 23 | * 24 | * B.K.McIlwrath Starlink 12 January 1996 25 | *- 26 | 27 | IMPLICIT NONE 28 | 29 | REAL SEED 30 | 31 | REAL RANDOM 32 | 33 | REAL AS 34 | INTEGER ISEED 35 | LOGICAL FIRST 36 | SAVE FIRST 37 | DATA FIRST /.TRUE./ 38 | 39 | 40 | 41 | * If first time, turn SEED into a large, odd integer 42 | IF (FIRST) THEN 43 | AS=ABS(SEED)+1.0 44 | ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6)) 45 | IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1 46 | FIRST=.FALSE. 47 | ELSE 48 | ISEED = 0 49 | END IF 50 | 51 | * Next pseudo-random number 52 | sla_RANDOM=RANDOM(ISEED) 53 | 54 | END 55 | -------------------------------------------------------------------------------- /src/slalib/mxm.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_MXM (A, B, C) 2 | *+ 3 | * - - - - 4 | * M X M 5 | * - - - - 6 | * 7 | * Product of two 3x3 matrices: 8 | * matrix C = matrix A x matrix B 9 | * 10 | * (single precision) 11 | * 12 | * Given: 13 | * A real(3,3) matrix 14 | * B real(3,3) matrix 15 | * 16 | * Returned: 17 | * C real(3,3) matrix result 18 | * 19 | * To comply with the ANSI Fortran 77 standard, A, B and C must 20 | * be different arrays. However, the routine is coded so as to 21 | * work properly on the VAX and many other systems even if this 22 | * rule is violated. 23 | * 24 | * P.T.Wallace Starlink 5 April 1990 25 | * 26 | * Copyright (C) 1995 Rutherford Appleton Laboratory 27 | *- 28 | 29 | IMPLICIT NONE 30 | 31 | REAL A(3,3),B(3,3),C(3,3) 32 | 33 | INTEGER I,J,K 34 | REAL W,WM(3,3) 35 | 36 | 37 | * Multiply into scratch matrix 38 | DO I=1,3 39 | DO J=1,3 40 | W=0.0 41 | DO K=1,3 42 | W=W+A(I,K)*B(K,J) 43 | END DO 44 | WM(I,J)=W 45 | END DO 46 | END DO 47 | 48 | * Return the result 49 | DO J=1,3 50 | DO I=1,3 51 | C(I,J)=WM(I,J) 52 | END DO 53 | END DO 54 | 55 | END 56 | -------------------------------------------------------------------------------- /src/slalib/kbj.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_KBJ (JB, E, K, J) 2 | *+ 3 | * - - - - 4 | * K B J 5 | * - - - - 6 | * 7 | * Select epoch prefix 'B' or 'J' 8 | * 9 | * Given: 10 | * JB int sla_DBJIN prefix status: 0=none, 1='B', 2='J' 11 | * E dp epoch - Besselian or Julian 12 | * 13 | * Returned: 14 | * K char 'B' or 'J' 15 | * J int status: 0=OK 16 | * 17 | * If JB=0, B is assumed for E < 1984D0, otherwise J. 18 | * 19 | * P.T.Wallace Starlink 31 July 1989 20 | * 21 | * Copyright (C) 1995 Rutherford Appleton Laboratory 22 | *- 23 | 24 | IMPLICIT NONE 25 | 26 | INTEGER JB 27 | DOUBLE PRECISION E 28 | CHARACTER K*(*) 29 | INTEGER J 30 | 31 | * Preset status 32 | J=0 33 | 34 | * If prefix given expressly, use it 35 | IF (JB.EQ.1) THEN 36 | K='B' 37 | ELSE IF (JB.EQ.2) THEN 38 | K='J' 39 | 40 | * If no prefix, examine the epoch 41 | ELSE IF (JB.EQ.0) THEN 42 | 43 | * If epoch is pre-1984.0, assume Besselian; otherwise Julian 44 | IF (E.LT.1984D0) THEN 45 | K='B' 46 | ELSE 47 | K='J' 48 | END IF 49 | 50 | * If illegal prefix, return error status 51 | ELSE 52 | K=' ' 53 | J=1 54 | END IF 55 | 56 | END 57 | -------------------------------------------------------------------------------- /src/slalib/random.f_mips: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_RANDOM (SEED) 2 | *+ 3 | * - - - - - - - 4 | * R A N D O M 5 | * - - - - - - - 6 | * 7 | * Generate pseudo-random real number in the range 0 <= X < 1. 8 | * (single precision) 9 | * 10 | * !!! Version for VAX/VMS and DECstation !!! 11 | * 12 | * Given: 13 | * SEED real an arbitrary real number 14 | * 15 | * Notes: 16 | * 17 | * 1) The result is a pseudo-random REAL number in the range 18 | * 0 <= sla_RANDOM < 1. 19 | * 20 | * 2) SEED is used first time through only. 21 | * 22 | * Called: RAN (a REAL function from the DEC Fortran Library) 23 | * 24 | * P.T.Wallace Starlink 14 October 1991 25 | * 26 | * Copyright (C) 1995 Rutherford Appleton Laboratory 27 | *- 28 | 29 | IMPLICIT NONE 30 | 31 | REAL SEED 32 | 33 | REAL RAN 34 | 35 | REAL AS 36 | INTEGER ISEED 37 | LOGICAL FIRST 38 | SAVE FIRST 39 | DATA FIRST /.TRUE./ 40 | 41 | 42 | 43 | * If first time, turn SEED into a large, odd integer 44 | IF (FIRST) THEN 45 | AS=ABS(SEED)+1.0 46 | ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6)) 47 | IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1 48 | FIRST=.FALSE. 49 | END IF 50 | 51 | * Next pseudo-random number 52 | sla_RANDOM=RAN(ISEED) 53 | 54 | END 55 | -------------------------------------------------------------------------------- /src/slalib/dtt.f: -------------------------------------------------------------------------------- 1 | DOUBLE PRECISION FUNCTION sla_DTT (UTC) 2 | *+ 3 | * - - - - 4 | * D T T 5 | * - - - - 6 | * 7 | * Increment to be applied to Coordinated Universal Time UTC to give 8 | * Terrestrial Time TT (formerly Ephemeris Time ET) 9 | * 10 | * (double precision) 11 | * 12 | * Given: 13 | * UTC d UTC date as a modified JD (JD-2400000.5) 14 | * 15 | * Result: TT-UTC in seconds 16 | * 17 | * Notes: 18 | * 19 | * 1 The UTC is specified to be a date rather than a time to indicate 20 | * that care needs to be taken not to specify an instant which lies 21 | * within a leap second. Though in most cases UTC can include the 22 | * fractional part, correct behaviour on the day of a leap second 23 | * can only be guaranteed up to the end of the second 23:59:59. 24 | * 25 | * 2 Pre 1972 January 1 a fixed value of 10 + ET-TAI is returned. 26 | * 27 | * 3 See also the routine sla_DT, which roughly estimates ET-UT for 28 | * historical epochs. 29 | * 30 | * Called: sla_DAT 31 | * 32 | * P.T.Wallace Starlink 6 December 1994 33 | * 34 | * Copyright (C) 1995 Rutherford Appleton Laboratory 35 | *- 36 | 37 | IMPLICIT NONE 38 | 39 | DOUBLE PRECISION UTC 40 | 41 | DOUBLE PRECISION sla_DAT 42 | 43 | 44 | sla_DTT=32.184D0+sla_DAT(UTC) 45 | 46 | END 47 | -------------------------------------------------------------------------------- /src/slalib/xy2xy.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_XY2XY (X1,Y1,COEFFS,X2,Y2) 2 | *+ 3 | * - - - - - - 4 | * X Y 2 X Y 5 | * - - - - - - 6 | * 7 | * Transform one [X,Y] into another using a linear model of the type 8 | * produced by the sla_FITXY routine. 9 | * 10 | * Given: 11 | * X1 d x-coordinate 12 | * Y1 d y-coordinate 13 | * COEFFS d(6) transformation coefficients (see note) 14 | * 15 | * Returned: 16 | * X2 d x-coordinate 17 | * Y2 d y-coordinate 18 | * 19 | * The model relates two sets of [X,Y] coordinates as follows. 20 | * Naming the elements of COEFFS: 21 | * 22 | * COEFFS(1) = A 23 | * COEFFS(2) = B 24 | * COEFFS(3) = C 25 | * COEFFS(4) = D 26 | * COEFFS(5) = E 27 | * COEFFS(6) = F 28 | * 29 | * the present routine performs the transformation: 30 | * 31 | * X2 = A + B*X1 + C*Y1 32 | * Y2 = D + E*X1 + F*Y1 33 | * 34 | * See also sla_FITXY, sla_PXY, sla_INVF, sla_DCMPF 35 | * 36 | * P.T.Wallace Starlink 5 December 1994 37 | * 38 | * Copyright (C) 1995 Rutherford Appleton Laboratory 39 | *- 40 | 41 | IMPLICIT NONE 42 | 43 | DOUBLE PRECISION X1,Y1,COEFFS(6),X2,Y2 44 | 45 | 46 | X2=COEFFS(1)+COEFFS(2)*X1+COEFFS(3)*Y1 47 | Y2=COEFFS(4)+COEFFS(5)*X1+COEFFS(6)*Y1 48 | 49 | END 50 | -------------------------------------------------------------------------------- /src/slalib/dmxm.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_DMXM (A, B, C) 2 | *+ 3 | * - - - - - 4 | * D M X M 5 | * - - - - - 6 | * 7 | * Product of two 3x3 matrices: 8 | * 9 | * matrix C = matrix A x matrix B 10 | * 11 | * (double precision) 12 | * 13 | * Given: 14 | * A dp(3,3) matrix 15 | * B dp(3,3) matrix 16 | * 17 | * Returned: 18 | * C dp(3,3) matrix result 19 | * 20 | * To comply with the ANSI Fortran 77 standard, A, B and C must 21 | * be different arrays. However, the routine is coded so as to 22 | * work properly on the VAX and many other systems even if this 23 | * rule is violated. 24 | * 25 | * P.T.Wallace Starlink 5 April 1990 26 | * 27 | * Copyright (C) 1995 Rutherford Appleton Laboratory 28 | *- 29 | 30 | IMPLICIT NONE 31 | 32 | DOUBLE PRECISION A(3,3),B(3,3),C(3,3) 33 | 34 | INTEGER I,J,K 35 | DOUBLE PRECISION W,WM(3,3) 36 | 37 | 38 | * Multiply into scratch matrix 39 | DO I=1,3 40 | DO J=1,3 41 | W=0D0 42 | DO K=1,3 43 | W=W+A(I,K)*B(K,J) 44 | END DO 45 | WM(I,J)=W 46 | END DO 47 | END DO 48 | 49 | * Return the result 50 | DO J=1,3 51 | DO I=1,3 52 | C(I,J)=WM(I,J) 53 | END DO 54 | END DO 55 | 56 | END 57 | -------------------------------------------------------------------------------- /src/slalib/cs2c6.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_CS2C6 (A, B, R, AD, BD, RD, V) 2 | *+ 3 | * - - - - - - 4 | * C S 2 C 6 5 | * - - - - - - 6 | * 7 | * Conversion of position & velocity in spherical coordinates 8 | * to Cartesian coordinates (single precision) 9 | * 10 | * Given: 11 | * A r longitude (radians) 12 | * B r latitude (radians) 13 | * R r radial coordinate 14 | * AD r longitude derivative (radians per unit time) 15 | * BD r latitude derivative (radians per unit time) 16 | * RD r radial derivative 17 | * 18 | * Returned: 19 | * V r(6) Cartesian position & velocity vector 20 | * 21 | * P.T.Wallace Starlink November 1984 22 | * 23 | * Copyright (C) 1995 Rutherford Appleton Laboratory 24 | *- 25 | 26 | IMPLICIT NONE 27 | 28 | REAL A,B,R,AD,BD,RD,V(6) 29 | 30 | REAL SA,CA,SB,CB,RCB,X,Y,RBD,CBRD,W 31 | 32 | 33 | 34 | * Useful functions 35 | SA=SIN(A) 36 | CA=COS(A) 37 | SB=SIN(B) 38 | CB=COS(B) 39 | RCB=R*CB 40 | X=RCB*CA 41 | Y=RCB*SA 42 | RBD=R*BD 43 | CBRD=CB*RD 44 | W=RBD*SB-CB*RD 45 | 46 | * Position 47 | V(1)=X 48 | V(2)=Y 49 | V(3)=R*SB 50 | 51 | * Velocity 52 | V(4)=-Y*AD-W*CA 53 | V(5)=X*AD-W*SA 54 | V(6)=RBD*CB+SB*RD 55 | 56 | END 57 | -------------------------------------------------------------------------------- /src/slalib/random.f_sun4: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_RANDOM (SEED) 2 | *+ 3 | * - - - - - - - 4 | * R A N D O M 5 | * - - - - - - - 6 | * 7 | * Generate pseudo-random real number in the range 0 <= X < 1. 8 | * (single precision) 9 | * 10 | * !!! Sun 4 dependent !!! 11 | * 12 | * Given: 13 | * SEED real an arbitrary real number 14 | * 15 | * Notes: 16 | * 17 | * 1) The result is a pseudo-random REAL number in the range 18 | * 0 <= sla_RANDOM < 1. 19 | * 20 | * 2) SEED is used first time through only. 21 | * 22 | * Called: RAND (a REAL function from the Sun Fortran Library) 23 | * 24 | * P.T.Wallace Starlink 14 October 1991 25 | * 26 | * Copyright (C) 1995 Rutherford Appleton Laboratory 27 | *- 28 | 29 | IMPLICIT NONE 30 | 31 | REAL SEED 32 | 33 | REAL RAND 34 | 35 | REAL AS 36 | INTEGER ISEED 37 | LOGICAL FIRST 38 | SAVE FIRST 39 | DATA FIRST /.TRUE./ 40 | 41 | 42 | 43 | * If first time, turn SEED into a large, odd integer, and start the 44 | * generator 45 | IF (FIRST) THEN 46 | AS=ABS(SEED)+1.0 47 | ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6)) 48 | IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1 49 | FIRST=.FALSE. 50 | AS=RAND(ISEED) 51 | END IF 52 | 53 | * Next pseudo-random number 54 | sla_RANDOM=RAND(0) 55 | 56 | END 57 | -------------------------------------------------------------------------------- /src/slalib/random.f_convex: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_RANDOM (SEED) 2 | *+ 3 | * - - - - - - - 4 | * R A N D O M 5 | * - - - - - - - 6 | * 7 | * Generate pseudo-random real number in the range 0 <= X < 1. 8 | * (single precision) 9 | * 10 | * !!! Convex dependent !!! 11 | * 12 | * Given: 13 | * SEED real an arbitrary real number 14 | * 15 | * Notes: 16 | * 17 | * 1) The result is a pseudo-random REAL number in the range 18 | * 0 <= sla_RANDOM < 1. 19 | * 20 | * 2) SEED is used first time through only. 21 | * 22 | * Called: RAND (a REAL function from the Convex Fortran Library) 23 | * 24 | * P.T.Wallace Starlink 28 June 1994 25 | * 26 | * Copyright (C) 1995 Rutherford Appleton Laboratory 27 | *- 28 | 29 | IMPLICIT NONE 30 | 31 | REAL SEED 32 | 33 | REAL RAND 34 | 35 | REAL AS 36 | INTEGER ISEED 37 | LOGICAL FIRST 38 | SAVE FIRST 39 | DATA FIRST /.TRUE./ 40 | 41 | 42 | 43 | * If first time, turn SEED into a large, odd integer, and start the 44 | * generator 45 | IF (FIRST) THEN 46 | AS=ABS(SEED)+1.0 47 | ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6)) 48 | IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1 49 | FIRST=.FALSE. 50 | AS=RAND(ISEED) 51 | END IF 52 | 53 | * Next pseudo-random number 54 | sla_RANDOM=RAND(0) 55 | 56 | END 57 | -------------------------------------------------------------------------------- /src/slalib/random.f_sun4_Solaris: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_RANDOM (SEED) 2 | *+ 3 | * - - - - - - - 4 | * R A N D O M 5 | * - - - - - - - 6 | * 7 | * Generate pseudo-random real number in the range 0 <= X < 1. 8 | * (single precision) 9 | * 10 | * !!! Sun 4 dependent !!! 11 | * 12 | * Given: 13 | * SEED real an arbitrary real number 14 | * 15 | * Notes: 16 | * 17 | * 1) The result is a pseudo-random REAL number in the range 18 | * 0 <= sla_RANDOM < 1. 19 | * 20 | * 2) SEED is used first time through only. 21 | * 22 | * Called: RAND (a REAL function from the Sun Fortran Library) 23 | * 24 | * P.T.Wallace Starlink 14 October 1991 25 | * 26 | * Copyright (C) 1995 Rutherford Appleton Laboratory 27 | *- 28 | 29 | IMPLICIT NONE 30 | 31 | REAL SEED 32 | 33 | REAL RAND 34 | 35 | REAL AS 36 | INTEGER ISEED 37 | LOGICAL FIRST 38 | SAVE FIRST 39 | DATA FIRST /.TRUE./ 40 | 41 | 42 | 43 | * If first time, turn SEED into a large, odd integer, and start the 44 | * generator 45 | IF (FIRST) THEN 46 | AS=ABS(SEED)+1.0 47 | ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6)) 48 | IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1 49 | FIRST=.FALSE. 50 | AS=RAND(ISEED) 51 | END IF 52 | 53 | * Next pseudo-random number 54 | sla_RANDOM=RAND(0) 55 | 56 | END 57 | -------------------------------------------------------------------------------- /src/slalib/ds2c6.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_DS2C6 (A, B, R, AD, BD, RD, V) 2 | *+ 3 | * - - - - - - 4 | * D S 2 C 6 5 | * - - - - - - 6 | * 7 | * Conversion of position & velocity in spherical coordinates 8 | * to Cartesian coordinates 9 | * 10 | * (double precision) 11 | * 12 | * Given: 13 | * A dp longitude (radians) 14 | * B dp latitude (radians) 15 | * R dp radial coordinate 16 | * AD dp longitude derivative (radians per unit time) 17 | * BD dp latitude derivative (radians per unit time) 18 | * RD dp radial derivative 19 | * 20 | * Returned: 21 | * V dp(6) Cartesian position & velocity vector 22 | * 23 | * P.T.Wallace Starlink 10 July 1993 24 | * 25 | * Copyright (C) 1995 Rutherford Appleton Laboratory 26 | *- 27 | 28 | IMPLICIT NONE 29 | 30 | DOUBLE PRECISION A,B,R,AD,BD,RD,V(6) 31 | 32 | DOUBLE PRECISION SA,CA,SB,CB,RCB,X,Y,RBD,W 33 | 34 | 35 | 36 | * Useful functions 37 | SA=SIN(A) 38 | CA=COS(A) 39 | SB=SIN(B) 40 | CB=COS(B) 41 | RCB=R*CB 42 | X=RCB*CA 43 | Y=RCB*SA 44 | RBD=R*BD 45 | W=RBD*SB-CB*RD 46 | 47 | * Position 48 | V(1)=X 49 | V(2)=Y 50 | V(3)=R*SB 51 | 52 | * Velocity 53 | V(4)=-Y*AD-W*CA 54 | V(5)=X*AD-W*SA 55 | V(6)=RBD*CB+SB*RD 56 | 57 | END 58 | -------------------------------------------------------------------------------- /src/slalib/pa.f: -------------------------------------------------------------------------------- 1 | DOUBLE PRECISION FUNCTION sla_PA (HA, DEC, PHI) 2 | *+ 3 | * - - - 4 | * P A 5 | * - - - 6 | * 7 | * HA, Dec to Parallactic Angle (double precision) 8 | * 9 | * Given: 10 | * HA d hour angle in radians (geocentric apparent) 11 | * DEC d declination in radians (geocentric apparent) 12 | * PHI d observatory latitude in radians (geodetic) 13 | * 14 | * The result is in the range -pi to +pi 15 | * 16 | * Notes: 17 | * 18 | * 1) The parallactic angle at a point in the sky is the position 19 | * angle of the vertical, i.e. the angle between the direction to 20 | * the pole and to the zenith. In precise applications care must 21 | * be taken only to use geocentric apparent HA,Dec and to consider 22 | * separately the effects of atmospheric refraction and telescope 23 | * mount errors. 24 | * 25 | * 2) At the pole a zero result is returned. 26 | * 27 | * P.T.Wallace Starlink 16 August 1994 28 | * 29 | * Copyright (C) 1995 Rutherford Appleton Laboratory 30 | *- 31 | 32 | IMPLICIT NONE 33 | 34 | DOUBLE PRECISION HA,DEC,PHI 35 | 36 | DOUBLE PRECISION CP,SQSZ,CQSZ 37 | 38 | 39 | 40 | CP=COS(PHI) 41 | SQSZ=CP*SIN(HA) 42 | CQSZ=SIN(PHI)*COS(DEC)-CP*SIN(DEC)*COS(HA) 43 | IF (SQSZ.EQ.0D0.AND.CQSZ.EQ.0D0) CQSZ=1D0 44 | sla_PA=ATAN2(SQSZ,CQSZ) 45 | 46 | END 47 | -------------------------------------------------------------------------------- /src/slalib/ecmat.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_ECMAT (DATE, RMAT) 2 | *+ 3 | * - - - - - - 4 | * E C M A T 5 | * - - - - - - 6 | * 7 | * Form the equatorial to ecliptic rotation matrix - IAU 1980 theory 8 | * (double precision) 9 | * 10 | * Given: 11 | * DATE dp TDB (loosely ET) as Modified Julian Date 12 | * (JD-2400000.5) 13 | * Returned: 14 | * RMAT dp(3,3) matrix 15 | * 16 | * Reference: 17 | * Murray,C.A., Vectorial Astrometry, section 4.3. 18 | * 19 | * Note: 20 | * The matrix is in the sense V(ecl) = RMAT * V(equ); the 21 | * equator, equinox and ecliptic are mean of date. 22 | * 23 | * Called: sla_DEULER 24 | * 25 | * P.T.Wallace Starlink 23 August 1996 26 | * 27 | * Copyright (C) 1996 Rutherford Appleton Laboratory 28 | *- 29 | 30 | IMPLICIT NONE 31 | 32 | DOUBLE PRECISION DATE,RMAT(3,3) 33 | 34 | * Arc seconds to radians 35 | DOUBLE PRECISION AS2R 36 | PARAMETER (AS2R=0.484813681109535994D-5) 37 | 38 | DOUBLE PRECISION T,EPS0 39 | 40 | 41 | 42 | * Interval between basic epoch J2000.0 and current epoch (JC) 43 | T = (DATE-51544.5D0)/36525D0 44 | 45 | * Mean obliquity 46 | EPS0 = AS2R* 47 | : (84381.448D0+(-46.8150D0+(-0.00059D0+0.001813D0*T)*T)*T) 48 | 49 | * Matrix 50 | CALL sla_DEULER('X',EPS0,0D0,0D0,RMAT) 51 | 52 | END 53 | -------------------------------------------------------------------------------- /src/slalib/random.f_alpha_OSF1: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_RANDOM (SEED) 2 | *+ 3 | * - - - - - - - 4 | * R A N D O M 5 | * - - - - - - - 6 | * 7 | * Generate pseudo-random real number in the range 0 <= X < 1. 8 | * (single precision) 9 | * 10 | * !!! Version for Alpha/OSF1 !!! 11 | * 12 | * Given: 13 | * SEED real an arbitrary real number 14 | * 15 | * Notes: 16 | * 17 | * 1) The result is a pseudo-random REAL number in the range 18 | * 0 <= sla_RANDOM < 1. 19 | * 20 | * 2) SEED is used first time through only. 21 | * 22 | * Called: RANDOM (a REAL function from the DEC Fortran Library) 23 | * 24 | * P.T.Wallace Starlink 14 October 1991 25 | * Revised for new recommended RTL RANDOM(3f) function. 26 | * B.K.McIlwrath Starlink 12 January 1996 27 | *- 28 | 29 | IMPLICIT NONE 30 | 31 | REAL SEED 32 | 33 | REAL RANDOM 34 | 35 | REAL AS 36 | INTEGER ISEED 37 | LOGICAL FIRST 38 | SAVE FIRST 39 | DATA FIRST /.TRUE./ 40 | 41 | 42 | 43 | * If first time, turn SEED into a large, odd integer 44 | IF (FIRST) THEN 45 | AS=ABS(SEED)+1.0 46 | ISEED=NINT(AS/10.0**(NINT(ALOG10(AS))-6)) 47 | IF (MOD(ISEED,2).EQ.0) ISEED=ISEED+1 48 | FIRST=.FALSE. 49 | ELSE 50 | ISEED = 0 51 | END IF 52 | 53 | * Next pseudo-random number 54 | sla_RANDOM=RANDOM(ISEED) 55 | 56 | END 57 | -------------------------------------------------------------------------------- /scripts/idl_obsplot.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/env perl 2 | use FileHandle; 3 | 4 | # ****************************************************** 5 | # idlplot_corr.pl 6 | # 7 | # This Perl module will run the idl script "cf_obsplot.pro" 8 | # 9 | # Author: Van Dixon 10 | # 11 | # History: Written July 3, 2001 12 | # 13 | # 10/20/05 wvd Add call to .run cf_obsplot.pro 14 | # 11/21/06 wvd Add process ID ($$) to name of 15 | # batch file. 16 | # 08/08/08 wvd Add airglow argument for 900+ 17 | # files. 18 | # 19 | # ****************************************************** 20 | 21 | if (@ARGV == 0) { 22 | print "You must enter the rootname of the observation.\n"; 23 | print "Exiting.\n"; 24 | 25 | } else { 26 | 27 | $batch_filename = $ARGV[0] . $$."_idl.bat"; 28 | 29 | # Open the output batch file. 30 | open (BAT_OUTFILE, ">$batch_filename") || die "Cannot open $batch_filename"; 31 | print BAT_OUTFILE "!path='$ENV{CF_IDLDIR}:'+!path\n"; 32 | print BAT_OUTFILE ".run cf_obsplot.pro\n"; 33 | if (@ARGV == 2) { 34 | print BAT_OUTFILE "cf_obsplot,'" . $ARGV[0] . "', airglow=1\n"; 35 | } else { 36 | print BAT_OUTFILE "cf_obsplot,'" . $ARGV[0] . "'\n"; 37 | } 38 | print BAT_OUTFILE "exit\n"; 39 | 40 | close (BAT_OUTFILE); 41 | 42 | system("idl $batch_filename > /dev/null"); 43 | 44 | system("rm $batch_filename"); 45 | 46 | } 47 | 48 | ### end of Perl script 49 | -------------------------------------------------------------------------------- /src/slalib/ctf2r.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_CTF2R (IHOUR, IMIN, SEC, RAD, J) 2 | *+ 3 | * - - - - - - 4 | * C T F 2 R 5 | * - - - - - - 6 | * 7 | * Convert hours, minutes, seconds to radians (single precision) 8 | * 9 | * Given: 10 | * IHOUR int hours 11 | * IMIN int minutes 12 | * SEC real seconds 13 | * 14 | * Returned: 15 | * RAD real angle in radians 16 | * J int status: 0 = OK 17 | * 1 = IHOUR outside range 0-23 18 | * 2 = IMIN outside range 0-59 19 | * 3 = SEC outside range 0-59.999... 20 | * 21 | * Called: 22 | * sla_CTF2D 23 | * 24 | * Notes: 25 | * 26 | * 1) The result is computed even if any of the range checks 27 | * fail. 28 | * 29 | * 2) The sign must be dealt with outside this routine. 30 | * 31 | * P.T.Wallace Starlink November 1984 32 | * 33 | * Copyright (C) 1995 Rutherford Appleton Laboratory 34 | *- 35 | 36 | IMPLICIT NONE 37 | 38 | INTEGER IHOUR,IMIN 39 | REAL SEC,RAD 40 | INTEGER J 41 | 42 | REAL TURNS 43 | 44 | * Turns to radians 45 | REAL T2R 46 | PARAMETER (T2R=6.283185307179586476925287) 47 | 48 | 49 | 50 | * Convert to turns then radians 51 | CALL sla_CTF2D(IHOUR,IMIN,SEC,TURNS,J) 52 | RAD=T2R*TURNS 53 | 54 | END 55 | -------------------------------------------------------------------------------- /src/include/fusebuf.h: -------------------------------------------------------------------------------- 1 | /******************************************************************************* 2 | * Johns Hopkins University 3 | * Center For Astrophysical Sciences 4 | * FUSE 5 | ******************************************************************************* 6 | * 7 | * Synopsis: #include "fusebuf.h" 8 | * 9 | * Description: Structure definitions and routine prototyping for multi-line 10 | * file buffering as handled by fusebuf.c. 11 | * 12 | * History: 08/17/98 gak Begin work 13 | * 08/18/98 gak Tested and working 14 | * (as called by cf_make_ff) 15 | * 16 | ******************************************************************************/ 17 | 18 | typedef struct { 19 | fitsfile *fits; /* Pointer to open FITS structure. */ 20 | int hdu; /* HDU containing image to buffer. */ 21 | int nx, ny; /* X and Y dimensions of the image. */ 22 | float **buf, /* Array of pointers to buffered lines. */ 23 | **y; /* Pointers to buffered lines in y order. */ 24 | int nl, /* Number of lines buffered. */ 25 | yfirst, ylast, /* Row numbers of buffered lines */ 26 | znext; /* Ordinal of next line ptr to use. */ 27 | } imgbuf; 28 | 29 | int cf_openextn(fitsfile *, int, imgbuf *, int, int *); 30 | 31 | int cf_closeextn(imgbuf *, int *); 32 | 33 | float getpixf(imgbuf *, int, int); 34 | 35 | -------------------------------------------------------------------------------- /src/slalib/pvobs.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_PVOBS (P, H, STL, PV) 2 | *+ 3 | * - - - - - - 4 | * P V O B S 5 | * - - - - - - 6 | * 7 | * Position and velocity of an observing station (double precision) 8 | * 9 | * Given: 10 | * P dp latitude (geodetic, radians) 11 | * H dp height above reference spheroid (geodetic, metres) 12 | * STL dp local apparent sidereal time (radians) 13 | * 14 | * Returned: 15 | * PV dp(6) position/velocity 6-vector (AU, AU/s, true equator 16 | * and equinox of date) 17 | * 18 | * Called: sla_GEOC 19 | * 20 | * IAU 1976 constants are used. 21 | * 22 | * P.T.Wallace Starlink 14 November 1994 23 | * 24 | * Copyright (C) 1995 Rutherford Appleton Laboratory 25 | *- 26 | 27 | IMPLICIT NONE 28 | 29 | DOUBLE PRECISION P,H,STL,PV(6) 30 | 31 | DOUBLE PRECISION R,Z,S,C,V 32 | 33 | * Mean sidereal rate (at J2000) in radians per (UT1) second 34 | DOUBLE PRECISION SR 35 | PARAMETER (SR=7.292115855306589D-5) 36 | 37 | 38 | 39 | * Geodetic to geocentric conversion 40 | CALL sla_GEOC(P,H,R,Z) 41 | 42 | * Functions of ST 43 | S=SIN(STL) 44 | C=COS(STL) 45 | 46 | * Speed 47 | V=SR*R 48 | 49 | * Position 50 | PV(1)=R*C 51 | PV(2)=R*S 52 | PV(3)=Z 53 | 54 | * Velocity 55 | PV(4)=-V*S 56 | PV(5)=V*C 57 | PV(6)=0D0 58 | 59 | END 60 | -------------------------------------------------------------------------------- /src/slalib/dtf2r.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_DTF2R (IHOUR, IMIN, SEC, RAD, J) 2 | *+ 3 | * - - - - - - 4 | * D T F 2 R 5 | * - - - - - - 6 | * 7 | * Convert hours, minutes, seconds to radians (double precision) 8 | * 9 | * Given: 10 | * IHOUR int hours 11 | * IMIN int minutes 12 | * SEC dp seconds 13 | * 14 | * Returned: 15 | * RAD dp angle in radians 16 | * J int status: 0 = OK 17 | * 1 = IHOUR outside range 0-23 18 | * 2 = IMIN outside range 0-59 19 | * 3 = SEC outside range 0-59.999... 20 | * 21 | * Called: 22 | * sla_DTF2D 23 | * 24 | * Notes: 25 | * 26 | * 1) The result is computed even if any of the range checks fail. 27 | * 28 | * 2) The sign must be dealt with outside this routine. 29 | * 30 | * P.T.Wallace Starlink July 1984 31 | * 32 | * Copyright (C) 1995 Rutherford Appleton Laboratory 33 | *- 34 | 35 | IMPLICIT NONE 36 | 37 | INTEGER IHOUR,IMIN 38 | DOUBLE PRECISION SEC,RAD 39 | INTEGER J 40 | 41 | DOUBLE PRECISION TURNS 42 | 43 | * Turns to radians 44 | DOUBLE PRECISION T2R 45 | PARAMETER (T2R=6.283185307179586476925287D0) 46 | 47 | 48 | 49 | * Convert to turns then radians 50 | CALL sla_DTF2D(IHOUR,IMIN,SEC,TURNS,J) 51 | RAD=T2R*TURNS 52 | 53 | END 54 | -------------------------------------------------------------------------------- /src/slalib/rverot.f: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_RVEROT (PHI, RA, DA, ST) 2 | *+ 3 | * - - - - - - - 4 | * R V E R O T 5 | * - - - - - - - 6 | * 7 | * Velocity component in a given direction due to Earth rotation 8 | * (single precision) 9 | * 10 | * Given: 11 | * PHI real latitude of observing station (geodetic) 12 | * RA,DA real apparent RA,DEC 13 | * ST real local apparent sidereal time 14 | * 15 | * PHI, RA, DEC and ST are all in radians. 16 | * 17 | * Result: 18 | * Component of Earth rotation in direction RA,DA (km/s) 19 | * 20 | * Sign convention: 21 | * The result is +ve when the observatory is receding from the 22 | * given point on the sky. 23 | * 24 | * Accuracy: 25 | * The simple algorithm used assumes a spherical Earth, of 26 | * a radius chosen to give results accurate to about 0.0005 km/s 27 | * for observing stations at typical latitudes and heights. For 28 | * applications requiring greater precision, use the routine 29 | * sla_PVOBS. 30 | * 31 | * P.T.Wallace Starlink 20 July 1994 32 | * 33 | * Copyright (C) 1995 Rutherford Appleton Laboratory 34 | *- 35 | 36 | IMPLICIT NONE 37 | 38 | REAL PHI,RA,DA,ST 39 | 40 | * Nominal mean sidereal speed of Earth equator in km/s (the actual 41 | * value is about 0.4651) 42 | REAL ESPEED 43 | PARAMETER (ESPEED=0.4655) 44 | 45 | 46 | sla_RVEROT=ESPEED*COS(PHI)*SIN(ST-RA)*COS(DA) 47 | 48 | END 49 | -------------------------------------------------------------------------------- /src/slalib/pav.f: -------------------------------------------------------------------------------- 1 | REAL FUNCTION sla_PAV ( V1, V2 ) 2 | *+ 3 | * - - - - 4 | * P A V 5 | * - - - - 6 | * 7 | * Position angle of one celestial direction with respect to another. 8 | * 9 | * (single precision) 10 | * 11 | * Given: 12 | * V1 r(3) direction cosines of one point 13 | * V2 r(3) direction cosines of the other point 14 | * 15 | * (The coordinate frames correspond to RA,Dec, Long,Lat etc.) 16 | * 17 | * The result is the bearing (position angle), in radians, of point 18 | * V2 with respect to point V1. It is in the range +/- pi. The 19 | * sense is such that if V2 is a small distance east of V1, the 20 | * bearing is about +pi/2. Zero is returned if the two points 21 | * are coincident. 22 | * 23 | * V1 and V2 do not have to be unit vectors. 24 | * 25 | * The routine sla_BEAR performs an equivalent function except 26 | * that the points are specified in the form of spherical 27 | * coordinates. 28 | * 29 | * Called: sla_DPAV 30 | * 31 | * Patrick Wallace Starlink 23 May 1997 32 | * 33 | * Copyright (C) 1997 Rutherford Appleton Laboratory 34 | *- 35 | 36 | IMPLICIT NONE 37 | 38 | REAL V1(3),V2(3) 39 | 40 | INTEGER I 41 | DOUBLE PRECISION D1(3),D2(3) 42 | 43 | DOUBLE PRECISION sla_DPAV 44 | 45 | 46 | * Call the double precision version 47 | DO I=1,3 48 | D1(I)=V1(I) 49 | D2(I)=V2(I) 50 | END DO 51 | sla_PAV=sla_DPAV(D1,D2) 52 | 53 | END 54 | -------------------------------------------------------------------------------- /src/libcf/cf_nint.c: -------------------------------------------------------------------------------- 1 | /***************************************************************************** 2 | * Johns Hopkins University 3 | * Center For Astrophysical Sciences 4 | * FUSE 5 | ***************************************************************************** 6 | * 7 | * Synopsis: n = cf_nint(x) 8 | * 9 | * Description: Converts double to nearest integer. 10 | * 11 | * Variables: double x A double 12 | * 13 | * Return: int n Nearest integer 14 | * 15 | * History: 08/25/03 wvd v1.1 Begin work 16 | * 02/09/04 wvd v1.2 Add cf_nlong() 17 | * 02/17/04 wvd v1.3 Test for overflow of int, long 18 | * 02/18/04 wvd v1.4 Change format of error message. 19 | * Change from values.h to limits.h 20 | * 21 | *************************************************************************/ 22 | 23 | #include 24 | #include "calfuse.h" 25 | 26 | int 27 | cf_nint(double x) 28 | 29 | { 30 | if (x > INT_MAX || x < INT_MIN) 31 | cf_if_error("Cannot convert %10.4e to an integer", x); 32 | 33 | if (x < 0.) return (int) (x - 0.5); 34 | else return (int) (x + 0.5); 35 | } 36 | 37 | 38 | long 39 | cf_nlong(double x) 40 | 41 | { 42 | if (x > LONG_MAX || x < LONG_MIN) 43 | cf_if_error("Cannot convert %10.4e to a long", x); 44 | 45 | if (x < 0.) return (long) (x - 0.5); 46 | else return (long) (x + 0.5); 47 | } 48 | -------------------------------------------------------------------------------- /src/slalib/tp2v.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_TP2V (XI, ETA, V0, V) 2 | *+ 3 | * - - - - - 4 | * T P 2 V 5 | * - - - - - 6 | * 7 | * Given the tangent-plane coordinates of a star and the direction 8 | * cosines of the tangent point, determine the direction cosines 9 | * of the star. 10 | * 11 | * (single precision) 12 | * 13 | * Given: 14 | * XI,ETA r tangent plane coordinates of star 15 | * V0 r(3) direction cosines of tangent point 16 | * 17 | * Returned: 18 | * V r(3) direction cosines of star 19 | * 20 | * Notes: 21 | * 22 | * 1 If vector V0 is not of unit length, the returned vector V will 23 | * be wrong. 24 | * 25 | * 2 If vector V0 points at a pole, the returned vector V will be 26 | * based on the arbitrary assumption that the RA of the tangent 27 | * point is zero. 28 | * 29 | * 3 This routine is the Cartesian equivalent of the routine sla_TP2S. 30 | * 31 | * P.T.Wallace Starlink 11 February 1995 32 | * 33 | * Copyright (C) 1995 Rutherford Appleton Laboratory 34 | *- 35 | 36 | IMPLICIT NONE 37 | 38 | REAL XI,ETA,V0(3),V(3) 39 | 40 | REAL X,Y,Z,F,R 41 | 42 | 43 | X=V0(1) 44 | Y=V0(2) 45 | Z=V0(3) 46 | F=SQRT(1.0+XI*XI+ETA*ETA) 47 | R=SQRT(X*X+Y*Y) 48 | IF (R.EQ.0.0) THEN 49 | R=1E-20 50 | X=R 51 | END IF 52 | V(1)=(X-(XI*Y+ETA*X*Z)/R)/F 53 | V(2)=(Y+(XI*X-ETA*Y*Z)/R)/F 54 | V(3)=(Z+ETA*R)/F 55 | 56 | END 57 | -------------------------------------------------------------------------------- /src/cal/get_tle/update_tle.csh.in: -------------------------------------------------------------------------------- 1 | #!/bin/csh -f 2 | #****************************************************************************** 3 | #* Johns Hopkins University 4 | #* Center For Astrophysical Sciences 5 | #* FUSE 6 | #***************************************************************************** 7 | #* 8 | #* Synopsis: update_tle 9 | #* 10 | #* Description: Shell script for automatically downloading the latest 11 | #* orbital elements from the GSFC OIG, and placing these 12 | #* elements in the FUSE.TLE file. It will also update 13 | #* the cvz_ram_tool.html calculator. 14 | #* 15 | #* All messages are to stdout or stderr. 16 | #* 17 | #* Arguments: None 18 | #* 19 | #* Returns: Exit codes: 20 | #* 0 successful execution 21 | #* 22 | #* History: 07/27/99 emm Begin work. 23 | #* 10/23/00 mlr changed path from v1.4 to current 24 | #******************************************************************************/ 25 | 26 | set tlestat=0 27 | 28 | # Step 1 29 | java -classpath @DATADIR@/java GetTLE 30 | set cfstat=$status 31 | 32 | # Step 2 33 | if !({$cfstat}) then 34 | add_tle.pl 35 | set cfstat=$status 36 | endif 37 | 38 | # Step 3 39 | if !({$cfstat}) then 40 | make_cvzramtool.pl 41 | set cfstat=$status 42 | endif 43 | 44 | # Step 4 45 | if !({$cfstat}) then 46 | make_orbit.pl 47 | set cfstat=$status 48 | endif 49 | 50 | exit($cfstat) 51 | 52 | -------------------------------------------------------------------------------- /src/slalib/ctf2d.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_CTF2D (IHOUR, IMIN, SEC, DAYS, J) 2 | *+ 3 | * - - - - - - 4 | * C T F 2 D 5 | * - - - - - - 6 | * 7 | * Convert hours, minutes, seconds to days (single precision) 8 | * 9 | * Given: 10 | * IHOUR int hours 11 | * IMIN int minutes 12 | * SEC real seconds 13 | * 14 | * Returned: 15 | * DAYS real interval in days 16 | * J int status: 0 = OK 17 | * 1 = IHOUR outside range 0-23 18 | * 2 = IMIN outside range 0-59 19 | * 3 = SEC outside range 0-59.999... 20 | * 21 | * Notes: 22 | * 23 | * 1) The result is computed even if any of the range checks 24 | * fail. 25 | * 26 | * 2) The sign must be dealt with outside this routine. 27 | * 28 | * P.T.Wallace Starlink November 1984 29 | * 30 | * Copyright (C) 1995 Rutherford Appleton Laboratory 31 | *- 32 | 33 | IMPLICIT NONE 34 | 35 | INTEGER IHOUR,IMIN 36 | REAL SEC,DAYS 37 | INTEGER J 38 | 39 | * Seconds per day 40 | REAL D2S 41 | PARAMETER (D2S=86400.0) 42 | 43 | 44 | 45 | * Preset status 46 | J=0 47 | 48 | * Validate sec, min, hour 49 | IF (SEC.LT.0.0.OR.SEC.GE.60.0) J=3 50 | IF (IMIN.LT.0.OR.IMIN.GT.59) J=2 51 | IF (IHOUR.LT.0.OR.IHOUR.GT.23) J=1 52 | 53 | * Compute interval 54 | DAYS=(60.0*(60.0*REAL(IHOUR)+REAL(IMIN))+SEC)/D2S 55 | 56 | END 57 | -------------------------------------------------------------------------------- /src/slalib/dtp2v.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_DTP2V (XI, ETA, V0, V) 2 | *+ 3 | * - - - - - - 4 | * D T P 2 V 5 | * - - - - - - 6 | * 7 | * Given the tangent-plane coordinates of a star and the direction 8 | * cosines of the tangent point, determine the direction cosines 9 | * of the star. 10 | * 11 | * (double precision) 12 | * 13 | * Given: 14 | * XI,ETA d tangent plane coordinates of star 15 | * V0 d(3) direction cosines of tangent point 16 | * 17 | * Returned: 18 | * V d(3) direction cosines of star 19 | * 20 | * Notes: 21 | * 22 | * 1 If vector V0 is not of unit length, the returned vector V will 23 | * be wrong. 24 | * 25 | * 2 If vector V0 points at a pole, the returned vector V will be 26 | * based on the arbitrary assumption that the RA of the tangent 27 | * point is zero. 28 | * 29 | * 3 This routine is the Cartesian equivalent of the routine sla_DTP2S. 30 | * 31 | * P.T.Wallace Starlink 11 February 1995 32 | * 33 | * Copyright (C) 1995 Rutherford Appleton Laboratory 34 | *- 35 | 36 | IMPLICIT NONE 37 | 38 | DOUBLE PRECISION XI,ETA,V0(3),V(3) 39 | 40 | DOUBLE PRECISION X,Y,Z,F,R 41 | 42 | 43 | X=V0(1) 44 | Y=V0(2) 45 | Z=V0(3) 46 | F=SQRT(1D0+XI*XI+ETA*ETA) 47 | R=SQRT(X*X+Y*Y) 48 | IF (R.EQ.0D0) THEN 49 | R=1D-20 50 | X=R 51 | END IF 52 | V(1)=(X-(XI*Y+ETA*X*Z)/R)/F 53 | V(2)=(Y+(XI*X-ETA*Y*Z)/R)/F 54 | V(3)=(Z+ETA*R)/F 55 | 56 | END 57 | -------------------------------------------------------------------------------- /src/slalib/dtf2d.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_DTF2D (IHOUR, IMIN, SEC, DAYS, J) 2 | *+ 3 | * - - - - - - 4 | * D T F 2 D 5 | * - - - - - - 6 | * 7 | * Convert hours, minutes, seconds to days (double precision) 8 | * 9 | * Given: 10 | * IHOUR int hours 11 | * IMIN int minutes 12 | * SEC dp seconds 13 | * 14 | * Returned: 15 | * DAYS dp interval in days 16 | * J int status: 0 = OK 17 | * 1 = IHOUR outside range 0-23 18 | * 2 = IMIN outside range 0-59 19 | * 3 = SEC outside range 0-59.999... 20 | * 21 | * Notes: 22 | * 23 | * 1) The result is computed even if any of the range checks fail. 24 | * 25 | * 2) The sign must be dealt with outside this routine. 26 | * 27 | * P.T.Wallace Starlink July 1984 28 | * 29 | * Copyright (C) 1995 Rutherford Appleton Laboratory 30 | *- 31 | 32 | IMPLICIT NONE 33 | 34 | INTEGER IHOUR,IMIN 35 | DOUBLE PRECISION SEC,DAYS 36 | INTEGER J 37 | 38 | * Seconds per day 39 | DOUBLE PRECISION D2S 40 | PARAMETER (D2S=86400D0) 41 | 42 | 43 | 44 | * Preset status 45 | J=0 46 | 47 | * Validate sec, min, hour 48 | IF (SEC.LT.0D0.OR.SEC.GE.60D0) J=3 49 | IF (IMIN.LT.0.OR.IMIN.GT.59) J=2 50 | IF (IHOUR.LT.0.OR.IHOUR.GT.23) J=1 51 | 52 | * Compute interval 53 | DAYS=(60D0*(60D0*DBLE(IHOUR)+DBLE(IMIN))+SEC)/D2S 54 | 55 | END 56 | -------------------------------------------------------------------------------- /src/slalib/geoc.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_GEOC (P, H, R, Z) 2 | *+ 3 | * - - - - - 4 | * G E O C 5 | * - - - - - 6 | * 7 | * Convert geodetic position to geocentric (double precision) 8 | * 9 | * Given: 10 | * P dp latitude (geodetic, radians) 11 | * H dp height above reference spheroid (geodetic, metres) 12 | * 13 | * Returned: 14 | * R dp distance from Earth axis (AU) 15 | * Z dp distance from plane of Earth equator (AU) 16 | * 17 | * Notes: 18 | * 1) Geocentric latitude can be obtained by evaluating ATAN2(Z,R). 19 | * 2) IAU 1976 constants are used. 20 | * 21 | * Reference: 22 | * Green,R.M., Spherical Astronomy, CUP 1985, p98. 23 | * 24 | * P.T.Wallace Starlink 4th October 1989 25 | * 26 | * Copyright (C) 1995 Rutherford Appleton Laboratory 27 | *- 28 | 29 | IMPLICIT NONE 30 | 31 | DOUBLE PRECISION P,H,R,Z 32 | 33 | * Earth equatorial radius (metres) 34 | DOUBLE PRECISION A0 35 | PARAMETER (A0=6378140D0) 36 | 37 | * Reference spheroid flattening factor and useful function 38 | DOUBLE PRECISION F,B 39 | PARAMETER (F=1D0/298.257D0,B=(1D0-F)**2) 40 | 41 | * Astronomical unit in metres 42 | DOUBLE PRECISION AU 43 | PARAMETER (AU=1.49597870D11) 44 | 45 | DOUBLE PRECISION SP,CP,C,S 46 | 47 | 48 | 49 | * Geodetic to geocentric conversion 50 | SP=SIN(P) 51 | CP=COS(P) 52 | C=1D0/SQRT(CP*CP+B*SP*SP) 53 | S=B*C 54 | R=(A0*C+H)*CP/AU 55 | Z=(A0*S+H)*SP/AU 56 | 57 | END 58 | -------------------------------------------------------------------------------- /COPYING: -------------------------------------------------------------------------------- 1 | Copyright (C) 2015 Association of Universities for Research in Astronomy (AURA) 2 | 3 | Redistribution and use in source and binary forms, with or without 4 | modification, are permitted provided that the following conditions are met: 5 | 6 | 1. Redistributions of source code must retain the above copyright 7 | notice, this list of conditions and the following disclaimer. 8 | 9 | 2. Redistributions in binary form must reproduce the above 10 | copyright notice, this list of conditions and the following 11 | disclaimer in the documentation and/or other materials provided 12 | with the distribution. 13 | 14 | 3. The name of AURA and its representatives may not be used to 15 | endorse or promote products derived from this software without 16 | specific prior written permission. 17 | 18 | THIS SOFTWARE IS PROVIDED BY AURA ``AS IS'' AND ANY EXPRESS OR IMPLIED 19 | WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF 20 | MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 21 | DISCLAIMED. IN NO EVENT SHALL AURA BE LIABLE FOR ANY DIRECT, INDIRECT, 22 | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, 23 | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS 24 | OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND 25 | ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR 26 | TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE 27 | USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH 28 | DAMAGE. 29 | 30 | -------------------------------------------------------------------------------- /src/slalib/ecleq.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_ECLEQ (DL, DB, DATE, DR, DD) 2 | *+ 3 | * - - - - - - 4 | * E C L E Q 5 | * - - - - - - 6 | * 7 | * Transformation from ecliptic coordinates to 8 | * J2000.0 equatorial coordinates (double precision) 9 | * 10 | * Given: 11 | * DL,DB dp ecliptic longitude and latitude 12 | * (mean of date, IAU 1980 theory, radians) 13 | * DATE dp TDB (loosely ET) as Modified Julian Date 14 | * (JD-2400000.5) 15 | * Returned: 16 | * DR,DD dp J2000.0 mean RA,Dec (radians) 17 | * 18 | * Called: 19 | * sla_DCS2C, sla_ECMAT, sla_DIMXV, sla_PREC, sla_EPJ, sla_DCC2S, 20 | * sla_DRANRM, sla_DRANGE 21 | * 22 | * P.T.Wallace Starlink March 1986 23 | * 24 | * Copyright (C) 1995 Rutherford Appleton Laboratory 25 | *- 26 | 27 | IMPLICIT NONE 28 | 29 | DOUBLE PRECISION DL,DB,DATE,DR,DD 30 | 31 | DOUBLE PRECISION sla_EPJ,sla_DRANRM,sla_DRANGE 32 | 33 | DOUBLE PRECISION RMAT(3,3),V1(3),V2(3) 34 | 35 | 36 | 37 | * Spherical to Cartesian 38 | CALL sla_DCS2C(DL,DB,V1) 39 | 40 | * Ecliptic to equatorial 41 | CALL sla_ECMAT(DATE,RMAT) 42 | CALL sla_DIMXV(RMAT,V1,V2) 43 | 44 | * Mean of date to J2000 45 | CALL sla_PREC(2000D0,sla_EPJ(DATE),RMAT) 46 | CALL sla_DIMXV(RMAT,V2,V1) 47 | 48 | * Cartesian to spherical 49 | CALL sla_DCC2S(V1,DR,DD) 50 | 51 | * Express in conventional ranges 52 | DR=sla_DRANRM(DR) 53 | DD=sla_DRANGE(DD) 54 | 55 | END 56 | -------------------------------------------------------------------------------- /src/slalib/eqecl.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_EQECL (DR, DD, DATE, DL, DB) 2 | *+ 3 | * - - - - - - 4 | * E Q E C L 5 | * - - - - - - 6 | * 7 | * Transformation from J2000.0 equatorial coordinates to 8 | * ecliptic coordinates (double precision) 9 | * 10 | * Given: 11 | * DR,DD dp J2000.0 mean RA,Dec (radians) 12 | * DATE dp TDB (loosely ET) as Modified Julian Date 13 | * (JD-2400000.5) 14 | * Returned: 15 | * DL,DB dp ecliptic longitude and latitude 16 | * (mean of date, IAU 1980 theory, radians) 17 | * 18 | * Called: 19 | * sla_DCS2C, sla_PREC, sla_EPJ, sla_DMXV, sla_ECMAT, sla_DCC2S, 20 | * sla_DRANRM, sla_DRANGE 21 | * 22 | * P.T.Wallace Starlink March 1986 23 | * 24 | * Copyright (C) 1995 Rutherford Appleton Laboratory 25 | *- 26 | 27 | IMPLICIT NONE 28 | 29 | DOUBLE PRECISION DR,DD,DATE,DL,DB 30 | 31 | DOUBLE PRECISION sla_EPJ,sla_DRANRM,sla_DRANGE 32 | 33 | DOUBLE PRECISION RMAT(3,3),V1(3),V2(3) 34 | 35 | 36 | 37 | * Spherical to Cartesian 38 | CALL sla_DCS2C(DR,DD,V1) 39 | 40 | * Mean J2000 to mean of date 41 | CALL sla_PREC(2000D0,sla_EPJ(DATE),RMAT) 42 | CALL sla_DMXV(RMAT,V1,V2) 43 | 44 | * Equatorial to ecliptic 45 | CALL sla_ECMAT(DATE,RMAT) 46 | CALL sla_DMXV(RMAT,V2,V1) 47 | 48 | * Cartesian to spherical 49 | CALL sla_DCC2S(V1,DL,DB) 50 | 51 | * Express in conventional ranges 52 | DL=sla_DRANRM(DL) 53 | DB=sla_DRANGE(DB) 54 | 55 | END 56 | -------------------------------------------------------------------------------- /configure.ac: -------------------------------------------------------------------------------- 1 | # -*- Autoconf -*- 2 | # Process this file with autoconf to produce a configure script. 3 | 4 | AC_PREREQ([2.6]) 5 | AC_INIT([calfuse], [3.2.3], [archive@stsci.edu]) 6 | AM_INIT_AUTOMAKE([foreign]) 7 | LT_INIT 8 | AC_CONFIG_MACRO_DIR([m4]) 9 | AC_CONFIG_SRCDIR([src]) 10 | AC_CONFIG_HEADERS([src/include/config.h]) 11 | 12 | # Checks for programs. 13 | AC_PROG_CC 14 | AC_PROG_F77 15 | AC_PROG_LN_S 16 | AC_CHECK_PROG(HAVE_JAVAC, javac, [`which javac`], [javac not found]) 17 | 18 | # Checks for libraries. 19 | 20 | # Checks for header files. 21 | AC_FUNC_ALLOCA 22 | PKG_CHECK_MODULES([cfitsio], [cfitsio >= 2.7]) 23 | AC_CHECK_HEADERS([fcntl.h limits.h malloc.h stddef.h stdlib.h string.h strings.h unistd.h fitsio.h]) 24 | # Checks for typedefs, structures, and compiler characteristics. 25 | #AC_CHECK_HEADER_STDBOOL 26 | AC_TYPE_SIZE_T 27 | 28 | # Checks for library functions. 29 | AC_FUNC_ERROR_AT_LINE 30 | AC_FUNC_MALLOC 31 | AC_CHECK_FUNCS([floor memchr memset modf pow sqrt strcasecmp strerror strncasecmp strrchr strtol]) 32 | 33 | AC_OUTPUT([Makefile \ 34 | src/Makefile \ 35 | src/libcf/Makefile \ 36 | src/slalib/Makefile \ 37 | src/fes/Makefile \ 38 | src/fuv/Makefile \ 39 | src/analysis/Makefile \ 40 | src/cal/Makefile \ 41 | src/cal/jitter/Makefile \ 42 | src/cal/parm/Makefile \ 43 | src/cal/saa/Makefile \ 44 | src/cal/screen/Makefile \ 45 | src/cal/get_tle/Makefile \ 46 | src/cal/geom/Makefile \ 47 | scripts/Makefile \ 48 | doc/Makefile]) 49 | 50 | -------------------------------------------------------------------------------- /src/slalib/caf2r.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_CAF2R (IDEG, IAMIN, ASEC, RAD, J) 2 | *+ 3 | * - - - - - - 4 | * C A F 2 R 5 | * - - - - - - 6 | * 7 | * Convert degrees, arcminutes, arcseconds to radians 8 | * (single precision) 9 | * 10 | * Given: 11 | * IDEG int degrees 12 | * IAMIN int arcminutes 13 | * ASEC real arcseconds 14 | * 15 | * Returned: 16 | * RAD real angle in radians 17 | * J int status: 0 = OK 18 | * 1 = IDEG outside range 0-359 19 | * 2 = IAMIN outside range 0-59 20 | * 3 = ASEC outside range 0-59.999... 21 | * 22 | * Notes: 23 | * 24 | * 1) The result is computed even if any of the range checks 25 | * fail. 26 | * 27 | * 2) The sign must be dealt with outside this routine. 28 | * 29 | * P.T.Wallace Starlink 23 August 1996 30 | * 31 | * Copyright (C) 1996 Rutherford Appleton Laboratory 32 | *- 33 | 34 | IMPLICIT NONE 35 | 36 | INTEGER IDEG,IAMIN 37 | REAL ASEC,RAD 38 | INTEGER J 39 | 40 | * Arc seconds to radians 41 | REAL AS2R 42 | PARAMETER (AS2R=0.484813681109535994E-5) 43 | 44 | 45 | 46 | * Preset status 47 | J=0 48 | 49 | * Validate arcsec, arcmin, deg 50 | IF (ASEC.LT.0.0.OR.ASEC.GE.60.0) J=3 51 | IF (IAMIN.LT.0.OR.IAMIN.GT.59) J=2 52 | IF (IDEG.LT.0.OR.IDEG.GT.359) J=1 53 | 54 | * Compute angle 55 | RAD=AS2R*(60.0*(60.0*REAL(IDEG)+REAL(IAMIN))+ASEC) 56 | 57 | END 58 | -------------------------------------------------------------------------------- /src/cal/get_tle/test_tle.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh -f 2 | #****************************************************************************** 3 | #* Johns Hopkins University 4 | #* Center For Astrophysical Sciences 5 | #* FUSE 6 | #***************************************************************************** 7 | #* 8 | #* Synopsis: update_tle 9 | #* 10 | #* Description: Shell script for automatically downloading the latest 11 | #* orbital elements from the GSFC OIG, and placing these 12 | #* elements in the FUSE.TLE file. It will also update 13 | #* the cvz_ram_tool.html calculator. 14 | #* 15 | #* All messages are to stdout or stderr. 16 | #* 17 | #* Arguments: None 18 | #* 19 | #* Returns: Exit codes: 20 | #* 0 successful execution 21 | #* 22 | #* History: 07/27/99 emm Begin work. 23 | #******************************************************************************/ 24 | 25 | set tlestat=0 26 | 27 | # Step 1 28 | /usr/local/fusesw/calfuse/current/src/cal/get_tle/get_tle.pl 29 | set cfstat=$status 30 | 31 | # Step 2 32 | if !({$cfstat}) then 33 | /usr/local/fusesw/calfuse/current/src/cal/get_tle/add_tle.pl 34 | set cfstat=$status 35 | endif 36 | 37 | # Step 3 38 | if !({$cfstat}) then 39 | /usr/local/fusesw/calfuse/current/src/cal/get_tle/make_cvzramtool.pl 40 | set cfstat=$status 41 | endif 42 | 43 | # Step 4 44 | if !({$cfstat}) then 45 | /usr/local/fusesw/calfuse/current/src/cal/get_tle/make_orbit.pl 46 | set cfstat=$status 47 | endif 48 | 49 | exit($cfstat) 50 | 51 | -------------------------------------------------------------------------------- /src/slalib/caldj.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_CALDJ (IY, IM, ID, DJM, J) 2 | *+ 3 | * - - - - - - 4 | * C A L D J 5 | * - - - - - - 6 | * 7 | * Gregorian Calendar to Modified Julian Date 8 | * 9 | * (Includes century default feature: use sla_CLDJ for years 10 | * before 100AD.) 11 | * 12 | * Given: 13 | * IY,IM,ID int year, month, day in Gregorian calendar 14 | * 15 | * Returned: 16 | * DJM dp modified Julian Date (JD-2400000.5) for 0 hrs 17 | * J int status: 18 | * 0 = OK 19 | * 1 = bad year (MJD not computed) 20 | * 2 = bad month (MJD not computed) 21 | * 3 = bad day (MJD computed) 22 | * 23 | * Acceptable years are 00-49, interpreted as 2000-2049, 24 | * 50-99, " " 1950-1999, 25 | * 100 upwards, interpreted literally. 26 | * 27 | * Called: sla_CLDJ 28 | * 29 | * P.T.Wallace Starlink November 1985 30 | * 31 | * Copyright (C) 1995 Rutherford Appleton Laboratory 32 | *- 33 | 34 | IMPLICIT NONE 35 | 36 | INTEGER IY,IM,ID 37 | DOUBLE PRECISION DJM 38 | INTEGER J 39 | 40 | INTEGER NY 41 | 42 | 43 | 44 | 45 | * Default century if appropriate 46 | IF (IY.GE.0.AND.IY.LE.49) THEN 47 | NY=IY+2000 48 | ELSE IF (IY.GE.50.AND.IY.LE.99) THEN 49 | NY=IY+1900 50 | ELSE 51 | NY=IY 52 | END IF 53 | 54 | * Modified Julian Date 55 | CALL sla_CLDJ(NY,IM,ID,DJM,J) 56 | 57 | END 58 | -------------------------------------------------------------------------------- /src/slalib/daf2r.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_DAF2R (IDEG, IAMIN, ASEC, RAD, J) 2 | *+ 3 | * - - - - - - 4 | * D A F 2 R 5 | * - - - - - - 6 | * 7 | * Convert degrees, arcminutes, arcseconds to radians 8 | * (double precision) 9 | * 10 | * Given: 11 | * IDEG int degrees 12 | * IAMIN int arcminutes 13 | * ASEC dp arcseconds 14 | * 15 | * Returned: 16 | * RAD dp angle in radians 17 | * J int status: 0 = OK 18 | * 1 = IDEG outside range 0-359 19 | * 2 = IAMIN outside range 0-59 20 | * 3 = ASEC outside range 0-59.999... 21 | * 22 | * Notes: 23 | * 1) The result is computed even if any of the range checks 24 | * fail. 25 | * 2) The sign must be dealt with outside this routine. 26 | * 27 | * P.T.Wallace Starlink 23 August 1996 28 | * 29 | * Copyright (C) 1996 Rutherford Appleton Laboratory 30 | *- 31 | 32 | IMPLICIT NONE 33 | 34 | INTEGER IDEG,IAMIN 35 | DOUBLE PRECISION ASEC,RAD 36 | INTEGER J 37 | 38 | * Arc seconds to radians 39 | DOUBLE PRECISION AS2R 40 | PARAMETER (AS2R=0.484813681109535994D-5) 41 | 42 | 43 | 44 | * Preset status 45 | J=0 46 | 47 | * Validate arcsec, arcmin, deg 48 | IF (ASEC.LT.0D0.OR.ASEC.GE.60D0) J=3 49 | IF (IAMIN.LT.0.OR.IAMIN.GT.59) J=2 50 | IF (IDEG.LT.0.OR.IDEG.GT.359) J=1 51 | 52 | * Compute angle 53 | RAD=AS2R*(60D0*(60D0*DBLE(IDEG)+DBLE(IAMIN))+ASEC) 54 | 55 | END 56 | -------------------------------------------------------------------------------- /src/slalib/epco.f: -------------------------------------------------------------------------------- 1 | DOUBLE PRECISION FUNCTION sla_EPCO (K0, K, E) 2 | *+ 3 | * - - - - - 4 | * E P C O 5 | * - - - - - 6 | * 7 | * Convert an epoch into the appropriate form - 'B' or 'J' 8 | * 9 | * Given: 10 | * K0 char form of result: 'B'=Besselian, 'J'=Julian 11 | * K char form of given epoch: 'B' or 'J' 12 | * E dp epoch 13 | * 14 | * Called: sla_EPB, sla_EPJ2D, sla_EPJ, sla_EPB2D 15 | * 16 | * Notes: 17 | * 18 | * 1) The result is always either equal to or very close to 19 | * the given epoch E. The routine is required only in 20 | * applications where punctilious treatment of heterogeneous 21 | * mixtures of star positions is necessary. 22 | * 23 | * 2) K0 and K are not validated. They are interpreted as follows: 24 | * 25 | * o If K0 and K are the same the result is E. 26 | * o If K0 is 'B' or 'b' and K isn't, the conversion is J to B. 27 | * o In all other cases, the conversion is B to J. 28 | * 29 | * Note that K0 and K won't match if their cases differ. 30 | * 31 | * P.T.Wallace Starlink 5 September 1993 32 | * 33 | * Copyright (C) 1995 Rutherford Appleton Laboratory 34 | *- 35 | 36 | IMPLICIT NONE 37 | 38 | CHARACTER*(*) K0,K 39 | DOUBLE PRECISION E 40 | DOUBLE PRECISION sla_EPB,sla_EPJ2D,sla_EPJ,sla_EPB2D 41 | 42 | 43 | IF (K.EQ.K0) THEN 44 | sla_EPCO=E 45 | ELSE IF (K0.EQ.'B'.OR.K0.EQ.'b') THEN 46 | sla_EPCO=sla_EPB(sla_EPJ2D(E)) 47 | ELSE 48 | sla_EPCO=sla_EPJ(sla_EPB2D(E)) 49 | END IF 50 | 51 | END 52 | -------------------------------------------------------------------------------- /src/libcf/geod_mag.c: -------------------------------------------------------------------------------- 1 | /***************************************************************************** 2 | * Johns Hopkins University 3 | * Center For Astrophysical Sciences 4 | * FUSE 5 | ***************************************************************************** 6 | * 7 | * Synopsis: double geod_mag(double lon, double lat) 8 | * 9 | * Description: Computes the magnetic latitude of FUSE from the 10 | * given geocentric longitude and latitude. 11 | * 12 | * Arguments: double lon,lat (deg) Geocentric longitude and latitude 13 | * 14 | * Returns: double Geomagnetic latitude. 15 | * 16 | * History: 03/11/98 E. Murphy Begin work. 17 | * 03/11/98 E. Murphy Initial version working 18 | * 04/13/99 E. Murphy Moved PI and RADIAN to calfuse.h 19 | * 12/18/03 bjg Change calfusettag.h to calfuse.h 20 | * 21 | * Ake, T. 1998 in The Scientific Impact of the Goddard 22 | * High Resolution Spectrograph, ed. J. C. Brandt et al., 23 | * ASP Conference Series, in preparation. 24 | ****************************************************************************/ 25 | 26 | #include 27 | #include 28 | #include "calfuse.h" 29 | 30 | double geod_mag(double lon, double lat) 31 | { 32 | double lat_rad, c1; 33 | 34 | lat_rad=lat*RADIAN; 35 | 36 | c1=sin(lat_rad)*cos(11.4*RADIAN)- 37 | cos(lat_rad)*cos((lon+69.8)*RADIAN)*sin(11.4*RADIAN); 38 | 39 | return asin(c1)/RADIAN; 40 | } 41 | -------------------------------------------------------------------------------- /src/slalib/wait.f_pcm: -------------------------------------------------------------------------------- 1 | SUBROUTINE sla_WAIT (DELAY) 2 | *+ 3 | * - - - - - 4 | * W A I T 5 | * - - - - - 6 | * 7 | * Interval wait 8 | * 9 | * !!! PC only - Microsoft Fortran specific !!! 10 | * 11 | * Given: 12 | * DELAY real delay in seconds 13 | * 14 | * A delay of up to 10000 seconds occurs. 15 | * 16 | * Called: GETTIM (Microsoft Fortran run-time library) 17 | * 18 | * P.T.Wallace Starlink 14 October 1991 19 | * 20 | * Copyright (C) 1995 Rutherford Appleton Laboratory 21 | *- 22 | 23 | IMPLICIT NONE 24 | 25 | REAL DELAY 26 | 27 | INTEGER IDELAY,IH,IM,IS,I,IT,IT0,IDT 28 | LOGICAL FIRST,LOOP 29 | 30 | 31 | 32 | 33 | * Convert requested delay to 0.01 second ticks 34 | IDELAY=NINT(MAX(MIN(DELAY,1E4),0.0)*1E2) 35 | 36 | * Set "note start time" flag 37 | FIRST=.TRUE. 38 | 39 | * Set "wait in progress" flag 40 | LOOP=.TRUE. 41 | 42 | * Main loop 43 | DO WHILE (LOOP) 44 | 45 | * Get the current time and convert to 0.01 second ticks 46 | CALL GETTIM(IH,IM,IS,I) 47 | IT=((IH*60+IM)*60+IS)*100+I 48 | 49 | * First time through the loop? 50 | IF (FIRST) THEN 51 | 52 | * Yes: note the time and reset the flag 53 | IT0=IT 54 | FIRST=.FALSE. 55 | ELSE 56 | 57 | * No: subtract the start time, handling 0 hours wrap 58 | IDT=IT-IT0 59 | IF (IDT.LT.0) IDT=IDT+8640000 60 | 61 | * If the requested delay has elapsed, stop looping 62 | LOOP=IDT.LT.IDELAY 63 | END IF 64 | END DO 65 | 66 | END 67 | --------------------------------------------------------------------------------