;
print, 'Do something like
print, "	IDL> sttim = '27-Aug-97'
print, 'to select the starting time to list'
print, ' '
;
ff0 = file_list('/tsw/dbase/cal/info', 'mhead_tab*')
ii = xmenu_sel(ff0, /one)
if (ii(0) eq -1) then stop
lstfil = ff0(ii)
;
if (n_elements(sttim) eq 0) then sttim = '1-Jan-97'
if (n_elements(entim) eq 0) then entim = '1-Jan-99'

dirs = get_i0_dirs(sttim, entim)

ff = file_list(dirs, '*_001.fits', file=file)
ff = reverse(ff)
file = reverse(file)
;
ii = xmenu_sel(file)
if (ii(0) eq -1) then stop
;
ff2 = ff(ii)
ff2 = reverse(ff2)
break_file, ff2, dsk_log, dir, filnam, ext
dir2 = dir(uniq(dir))
filnam2 = str_replace(filnam+ext, '_001.fits', '*.fits')
ff3 = file_list(dir2, filnam2)
;
tr_summary_head, ff3, out, lst=lstfil
;
yesnox, 'Do you want to save the output to file?', ans, 'N'
if (ans) then begin
    input, 'Enter the output filename', outfil, 'tr_summary_head.txt'
    prstr, out, file=outfil
end
;
yesnox, 'Do you want to print the file?', ans, 'N'
if (ans) then begin
    outfil = 'tr_summary_head.temp'
    prstr, out, file=outfil
    sprint, outfil, /land
end
;
end