From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- vendor/voclient/libvoclient/examples/f77skybot.f | 38 ++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 vendor/voclient/libvoclient/examples/f77skybot.f (limited to 'vendor/voclient/libvoclient/examples/f77skybot.f') 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 -- cgit