Repatch (from linux) of OSX IRAF

1 files changed, 38 insertions, 0 deletions

diff --git a/vendor/voclient/libvoclient/examples/f77skybot.f b/vendor/voclient/libvoclient/examples/f77skybot.f
new file mode 100644
index 00000000..e6e538ef
--- /dev/null
+++ b/vendor/voclient/libvoclient/examples/f77skybot.f
@@ -0,0 +1,38 @@
+C
+C  F77SKYBOT -- Fortran example task of VOClient SkyBoT interface
+C
+C  M.Fitzpatrick, NOAO, Aug 2006
+
+	program f77skybot
+
+	double precision ra, dec, sr, epoch, vmag
+	character 	name*15
+	integer		skybot, nobjs, len, i
+
+ 	ra = 0.0
+ 	dec = 0.0
+ 	sr = 600.0
+ 	epoch = 2454545.0
+
+	print *, "#"
+	print *, "# ra=", ra, "  dec=", dec, " sr=", sr, " epoch=", epoch
+	print *, "#"
+	call vfskybot (ra, dec, sr, sr, epoch, skybot)
+	call vfskybotnobjs (skybot, nobjs)
+
+	print *, "#"
+	print *, "# Found ", nobjs, " objects"
+	print *, "#"
+
+	do 10 i = 1, nobjs
+	  call vfskybotstr (skybot, "name", i, name, len)
+	  call vfskybotdbl (skybot, "ra", i, ra)
+	  call vfskybotdbl (skybot, "dec", i, dec)
+	  call vfskybotdbl (skybot, "vmag", i, vmag)
+
+	  print *, "Obj: ", name, "  ra=", ra, "  dec=", dec, " Mv=", vmag
+
+10	continue
+
+	stop
+	end