diff options
Diffstat (limited to 'vendor/voclient/libvoclient/examples/f77skybot.f')
| -rw-r--r-- | vendor/voclient/libvoclient/examples/f77skybot.f | 38 |
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 |