;---------------------------------------------------------------------------
; Document name: FLATF.PRO
; Created by:    Dietmar Germerott, MAPE Lindau, October 7, 1996
;
; Last Modified: Mon Feb 19 07:47:01 2007 (GERMEROTT@sumop1.nascom.nasa.gov)
;---------------------------------------------------------------------------
;
FUNCTION flatf, header
;+
; PROJECT:
;       SOHO - SUMER
;
; NAME:
;       FLATF()
;
; PURPOSE: 
;       Return if Flatfield is done (1) or not (0)
;
; CATEGORY:
;       
; 
; EXPLANATION:
;       
; SYNTAX: 
;       Result = flatf()
;
; EXAMPLES:
;       
; INPUTS:
;       header - BYTARR(92) Image Header
;
; OPTIONAL INPUTS: 
;       None.
;
; OUTPUTS:
;       None.
;
; OPTIONAL OUTPUTS:
;       None.
;
; KEYWORDS: 
;       None.
;
; COMMON:
;       None.
;
; RESTRICTIONS: 
;       None.
;
; SIDE EFFECTS:
;       None.
;
; HISTORY:
;       Version 1, October 7, 1996, Dietmar Germerott, MAPE Lindau. Written
;       Version 2, February 19, 2007, Dietmar Germerott, MPAE Lindau
;         Reform in IDL 4.0 is not tolerant for reform(0) -.
;         workaround with size command and check for dimensions fo result
;
; CONTACT:
;       Dietmar Germerott, MAPE Lindau (germerott@linax1.mpae.gwdg.de)
;-
;
   tmp = ISHFT(header(22, *), -6);bit 6
   sz = SIZE(tmp)
   IF sz(0) GT 1 THEN RETURN, REFORM(tmp)
   RETURN,tmp
END


;---------------------------------------------------------------------------
; End of 'FLATF.PRO'.
;---------------------------------------------------------------------------