1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
C
C F77SESAME -- Fortran example task of VOClient Sesame interface
C
C M.Fitzpatrick, NOAO, Jul 2006
program f77sesame
double precision ra, dec
character target*10, pos*24
integer sr, len
target = "ngc1234"
call vfnameresolver (target, sr)
call vfresolverra (sr, ra)
call vfresolverdec (sr, dec)
call vfresolverpos (sr, pos, len)
print *, "Target: ", target, " ra=", ra, " dec=", dec
print *, " (", pos,")"
stop
end
|
