;+
; NAME: eis_read_fits_header.pro
;
; PURPOSE: To read solar-B status fits file archives.
;      
; CATEGORY: Engineering
;
; CALLING SEQUENCE: eis_read_fits_data, 'fits_archive', header_number
;
; INPUTS: fits_archive:   string of the status archive
;         header_number:  unsigned short of the bintable extension
;
; KEYWORD PARAMETERS: None
;
; OUTPUTS: The header data for the bintable extension
;
; CALLS: fxbopen, fxbclose
;
; COMMON BLOCKS: None
;
; PROCEDURE:
;
; RESTRICTIONS: Uses SolarSoft
;
; MODIFICATION HISTORY:
;	02/02/06 mcrw	wrote
;       17/03/06 mcrw
;       03/04/06 mcrw	modifications during thermal vacuum test
;       10/08/06 mcrw	stripped out unwanted code
;
;-------------------------------------------------------------------------------------------------

; Utility function to read a fits header
function eis_read_fits_header, file, header_number
    eis_fxbopen, lun, file, header_number, header
    fxbclose, lun
    free_lun, lun
    return, header
end