file_name = '/plasma/d2/vgr/data/v2/key/v2_keybn_1996.001.04_1996.067.17'
read_f,file_name 
xrange = 0
lim_range
xr = xrange 
len = 25.
len_right = 0.5
off_set = 0.0
xrange=[xr(1)-len-off_set ,xr(1)+len_right-off_set]
nnn = max( dd.n)
ii = where( dd.n eq nnn )
tt=tt(ii)
dd = dd(ii)
lim_range
n = n_elements( log_den)
if ( n le 0 ) then log_den = 0
win_free 
print_plot,tt,dd.wf,dd.df,sp,/x_altaxis,xrange=xrange,label=['Width','Density','Speed'],y_altaxis=[2,0,0],ylog=[0,log_den,0]