diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
| commit | fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 (patch) | |
| tree | bdda434976bc09c864f2e4fa6f16ba1952b1e555 /vendor/voclient/libvoclient/examples/f77skybot.f | |
| download | iraf-linux-fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4.tar.gz | |
Initial commit
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 |