;---------------------------------------------------------------------------
; Document name: sum_get_fid.pro
; Created by:    Dietmar Germerott, MPS, February 13, 2007
;
; Last Modified: Tue Feb 13 16:56:50 2007 (germerott.nospam@linmpi.mpg.de)
;---------------------------------------------------------------------------
;
FUNCTION sum_get_fid, header, errmsg=errmsg
;+
; PROJECT:
;       Sunrise
;
; NAME:
;       SUM_GET_FID()
;
; PURPOSE: 
;       Return the TM data file ID from Header
;
; CATEGORY:
;       
; 
; EXPLANATION:
;       
; SYNTAX: 
;       Result = sum_get_fid()
;
; EXAMPLES:
;       
; INPUTS:
;       header - SUMER Image header byte array (>92)
;
; OPTIONAL INPUTS: 
;       None.
;
; OUTPUTS:
;       None.
;
; OPTIONAL OUTPUTS:
;       None.
;
; KEYWORDS: 
;       errmsg - return error message
;
; COMMON:
;       None.
;
; RESTRICTIONS: 
;       None.
;
; SIDE EFFECTS:
;       None.
;
; HISTORY:
;       Version 1, February 13, 2007, Dietmar Germerott, MPS. Written
;
; CONTACT:
;       Dietmar Germerott, MPS (germerott@linmpi.mpg.de)
;-
;
   ON_ERROR, 2
   sz = size(header)
   IF sz(1) LE 92 THEN BEGIN
     errmsg = ' No valid Header for sum_get_fid - header < 92 Byte'
     return, -1
   ENDIF

   RETURN,reform(header(93, *)*256l+header(92, *))
END

;---------------------------------------------------------------------------
; End of 'sum_get_fid.pro'.
;---------------------------------------------------------------------------