pro ra_mike_header_init, filename, outfile, header
;   Version Date: 2010 Jul 15

COMMON mike_data

;+
;   Modifies the FITS header to add Mike-specific keywords.
;-
mike_log, /start, /time

Blank = '        '

sxaddpar, Header, 'MIKE_BEG', strmid(systime(),4,20), ' START MIKE KEYWORD BLOCK'
sxaddpar, Header, Blank, '', before='MIKE_BEG'
sxaddpar, Header, Blank, '=============================================', $
   before='MIKE_BEG'
sxaddpar, Header, Blank,  '', before='MIKE_BEG'

;;;
;   Put in the current pipeline version information
;
sxaddpar, Header, 'MIKE_VER', MikeFlags.Version, ' Version of Mike pipeline code'

infilename = file_basename(filename)
outfilename = file_basename(outfile)

sxaddpar, header, 'FILE_IN', strupcase(infilename), ' Input file for processing'
sxaddpar, header, 'FILE_OUT', strupcase(outfilename), ' Output file after processing'

sxaddpar, header, 'DATAQUAL', 0, ' Data quality flag'

sxaddpar, header, 'BADFILE', '', ' File containing bad pixel mask'
sxaddpar, header, 'BADFLAG', 'F', ' Bad pixel mask applied to data?'
sxaddpar, header, 'BADVALUE', 'IEEE NaN', ' Value of bad pixel(s)'

sxaddpar, header, 'DEADFLAG', 'F', ' Dead-time correction applied?'

sxaddpar, header, 'DARKFLAG', 'F', ' Dark counts subtracted from data?'
sxaddpar, header, 'DARKFILE', '', ' Detector dark count rate file'
sxaddpar, header, 'DARKNORM', 0., ' Normalization factor applied to dark file'

sxaddpar, header, 'SKYFLAG', 'F', ' Sky background subtracted from data?'
sxaddpar, header, 'SKYFILE', '', ' Sky background file'
sxaddpar, header, 'SKYNORM', 0., ' Normalization factor applied to sky file'

sxaddpar, header, 'FLATFLAG', 'F', ' Flatfield correction applied?'
sxaddpar, header, 'FLATFILE', '', ' Detector flatfield file'

sxaddpar, header, 'AEFFFLAG', 'F', ' Effective area calibration applied?'
sxaddpar, header, 'AEFFFILE', '', ' Detector effective area file'

sxaddpar, header, 'HVFLAG', 'F', ' High voltage correction applied?'
sxaddpar, header, 'HVFILE', '', ' High voltage correction file'

sxaddpar, header, 'TVAEFLAG', 'F', ' Correct for time-variable A_eff?'
sxaddpar, header, 'CORRFILE', '', ' Effective Area correction file'

sxaddpar, header, 'WAVEFLAG', 'F', ' Stim pixel correction applied?'
sxaddpar, header, 'LINFLAG', 'F', ' Data resampled onto common wavelength scale?'
sxaddpar, header, 'WAVEFILE', '', ' Detector wavelength solution used'

sxaddpar, header, 'BUNIT', 'Counts', ' Units of data in the primary HDU'

sxaddpar, Header, 'MIKE_END', '', ' END MIKE KEYWORD BLOCK'
sxaddpar, Header, Blank, '', after='MIKE_END'
sxaddpar, Header, Blank, '=============================================', $
   after='MIKE_END'
sxaddpar, Header, Blank, '', after='MIKE_END'

end