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