;---------------------------------------------------------------------------
; Document name: CHECK_MDU.PRO
; Created by:    Dietmar Germerott, MPAE Lindau, May 6, 1998
;
; Last Modified: Tue Feb 13 14:26:18 2007 (germerott.nospam@linmpi.mpg.de)
;---------------------------------------------------------------------------
;
FUNCTION check_mdu, header,errmsg=errmsg
;+
; PROJECT:
;       SOHO - SUMER
;
; NAME:
;       CHECK_MDU()
;
; PURPOSE: 
;       Return the MDU-Flag (Missing Data in Unit)
;
; CATEGORY:
;       
; 
; EXPLANATION:
;       
; SYNTAX: 
;       Result = check_mdu(header)
;
; EXAMPLES:
;       
; INPUTS:
;       header - SUMER Image Header greater 92 Bytes
;
; OPTIONAL INPUTS: 
;       None.
;
; OUTPUTS:
;       0 - Image is OK
;       1 - Image in not OK
;      -1 - MDU-Flag is not in Header
;
; OPTIONAL OUTPUTS:
;       None.
;
; KEYWORDS: 
;       None.
;
; COMMON:
;       None.
;
; RESTRICTIONS: 
;       Valid for SUMER binary Image Header
;
; SIDE EFFECTS:
;       None.
;
; HISTORY:
;       Version 1, May 6, 1998, Dietmar Germerott, MPAE Lindau. Written
;       Version 2, February 13, 2007, Dietmar Germerott, MPS
;          Return single dimension Array
;
; CONTACT:
;       Dietmar Germerott, MPAE Lindau (Dietmar Germerott@linmpi.mpg.de)
;-
;
   ON_ERROR, 2
   
   xx = SIZE(header)
   IF xx(1) GT 92 THEN RETURN, reform(header(99,*))
   errmsg = ' Header does not contain MDU-FLAG'
   MESSAGE,errmsg
   RETURN,-1
END


;---------------------------------------------------------------------------
; End of 'CHECK_MDU.PRO'.
;---------------------------------------------------------------------------