pro mk_vel
; program to make velocities for eis simulated data. 
;
; set up velocity matrix:
;
  v=fltarr(512,100)
  vmean = 20.0   ; average velocity
;
x=2.*!pi/128.*findgen(512)
x=50.*sin(x)+vmean
y=intarr(100)+1
v=x#y

; write velocities to file 'velocity.idlsave'

save,v,filename='velocity.dat'

return
end