;
rd_fem, '1-sep-91', !stime, fem_data
;
dtim = fem_data.night/60.>50	;convert to minutes
utplot, fem_data, dtim, ytitle='Length of day', /ynozero
;
plottime, 0, 0, 'plot_day_len.pro Ver 1.0
plottime
;
tarr = timstr2ex('1-sep-91')
x = int2secarr(fem_data, tarr)/86400.
openw, 1, 'loren2.dum'
printf,1, 'Days since       S/C Length of day
printf,1, '  1-Sep-91          (min)
for i=0,n_elements(x)-1 do printf, 1, x(i), dtim(i)
close, 1
end