RADECtoDeg.pro

ডিপথট থেকে
; *** Convert from RA and DEC to degrees ***
pro RADECtoDeg,h,m,s,d,dm,ds,radec

; example: radectodeg,16,14,0.044,54,29,59.90,radec

ra_h=double((((s/60)+m)/60)+h)
ra_d=double(ra_h*15)
dec_d=double((((ds/60)+dm)/60)+d)

print,'RA of centre',ra_d,' degrees'
print,'DEC of centre',dec_d,' degrees'

radec=dblarr(2)
radec[0]=ra_d
radec[1]=dec_d

end