Archiving spectral line data at AO

Find all sources within a given radius:

3C138 is used for calibration scans. See how many there are and also look to see if there are any on/off patterns.

ra=052109.88600

dec=163822.0518

radius=10.           ; arcminutes

num=cortblradius(ra,dec,radius,slar,indFound,pattype=1,/hms,dist=dist)

One on/off found

print,slar[indfound].projid,slar[indfound].freq

a1518      1612.04      1665.20      1667.16      1720.32

Look for the calibration scans on 3C138

num=cortblradius(ra,dec,radius,slar,indFound,pattype=4,/hms,dist=dist)

257 calibration scans found.