; Convert from channel number to frequency and velocity for a2010 ; based on EGG a2010fv.f ; Translated by Schuyler Smith 6-22-09 ; ** NOTE THIS IS ONLY APPROXIMIATE FOR VELOCITIES! pro testprog, channel restf=1420.405752D c=299792.458D centerf=1385.0D bw=100.0D nchans=4096 deltaf=bw/nchans startf=centerf-deltaf*nchans/2. freq=startf+channel*deltaf z=(restf/freq)-1 vel=c*z print, ' frequency = ', freq, format = '(a,d9.2)' print, 'velocity (cz) = ', vel, format = '(a,d9.2)' return end |