pro pr_fheader, infil_lun
;
;
rd_fheader, infil_lun, fheader
int2ex, fheader.first_time, fheader.first_day, tarr_first
int2ex, fheader.last_time, fheader.last_day, tarr_last
int2ex, fheader.orb_st_time, fheader.orb_st_day, tarr_orb_st
int2ex, fheader.orb_en_time, fheader.orb_en_day, tarr_orb_en
;
print, 'File Header for ', infil_lun
print, '   Program Name                 = ', string(fheader.st$progname)
print, '   Program Version #		= ', string(fheader.progverno/1000., format='(f8.3)')
print, '   File Version #		= ', string(fheader.fileverno/1000., format='(f8.3)')
print, '   '
print, '   File create date/time	= ', string(fheader.st$filecredate) + ' ' + string(fheader.st$filecretime)
print, '   First data date/time		= ', fmt_tim(tarr_first)
print, '   Last data date/time		= ', fmt_tim(tarr_last)
print, '   Start orbit date/time	= ', fmt_tim(tarr_orb_st)
print, '   End orbit date/time		= ', fmt_tim(tarr_orb_en)
print, '   '
print, '   # Data sets			= ', fheader.ndatasets
print, '   Max samples			= ', fheader.maxsamps
print, '  '
print, '   Total # of QS entries	= ', fheader.ntot_qs
print, '   Number of QS entry repeats	= ', fheader.nrep_qs
print, '   # of optional data entries	= ', fheader.ntot_opt
print, '  '
print, '   File type			= ', string(fheader.st$file_type)
print, '   Spacecraft			= ', string(fheader.st$spacecraft)
print, '   Instrument			= ', string(fheader.st$instrument)
print, '   Machine that created file	= ', string(fheader.st$machine)
print, '   File ID			= ', string(fheader.st$fileid)
print, '  '
print, '   Comment 1			= ', string(fheader.st$comment1)
print, '   Comment 2			= ', string(fheader.st$comment2)
;
end