pro sci5k_summary, indir
;
;	ff = file_list('/big3/katie/data/sci5k', '*', /cd)
;	for i=0,n_elements(ff)-1 do sci5k_summary, ff(i) + '/lev0'
;
if (n_elements(indir) eq 0) then indir = '/big3/katie/data/sci5k/950920_010055/lev0
dsets = file_list(indir, '*', /cd)
;
p = strpos(indir, '/9')
outfil = strmid(indir, p+1, 13) + '.sci5k_summary'	;outfil = '950920_010055.sci5k_summary
openw, lun, outfil, /get_lun
printf, lun, 'SCI5K_SUMMARY  Ver 1.0  Program Run: ' + !stime
printf, lun, ' '
printf, lun, 'Directory: ' + indir
printf, lun, ' '
free_lun, lun
;
openw, lun2, 'temp.sci5k_summary', /get_lun
for idir=0,n_elements(dsets)-1 do begin
    ff = file_list(dsets(idir), '????.fits')
    nimg = n_elements(ff)
    if (ff(0) eq '') then nimg = 0
    for i=0,nimg-1 do begin
	img = rfits(ff(i), h=h)
	if (n_elements(img) eq 1) then img = [0,0]		;MDM patch for bad image
	imin = min(img)
	imax = max(img)
	idev = stdev(img, iavg)
	tim = sxpar(h, 'MDI_REF')
	daytim = anytim2ints('1-jan-58', off=double(tim))
	dpc = sxpar(h, 'DPC')
	dpc_desc = sxpar(h, 'DPC_DESC')
	fmt = '(i12, 2x, z8.8, 1x,a,1x, 4f12.2)
	str = string(tim, dpc, dpc_desc, imin, imax, iavg, idev, format=fmt)
	if ((dpc mod 16) eq 0) then str = str + '  ' + fmt_tim(daytim)
	print, str
	printf, lun2, str
    end
end
;
free_lun, lun2
spawn, 'sort temp.sci5k_summary >> ' + outfil
file_delete, 'temp.sci5k_summary'
end