;---------------------------------------------------------------------------
; Document name: YEVENT.PRO
; Created by:    Dietmar Germerott, MAPE Lindau, October 7, 1996
;
; Last Modified: Tue Feb 13 16:10:37 2007 (germerott.nospam@linmpi.mpg.de)
;---------------------------------------------------------------------------
;
FUNCTION yevent, header, rawform=rawform
;+
; PROJECT:
;       SOHO - SUMER
;
; NAME:
;       YEVENT()
;
; PURPOSE: 
;       returns y detector events in cts/s including specific scale factor
;
; CATEGORY:
;       
; 
; EXPLANATION:
;       
; SYNTAX: 
;       Result = yevent()
;
; EXAMPLES:
;       
; INPUTS:
;       header - BYTARR(92) Image Header
;
; OPTIONAL INPUTS: 
;       None.
;
; OUTPUTS:
;       None.
;
; OPTIONAL OUTPUTS:
;       None.
;
; KEYWORDS: 
;       rawform - return value is raw from header
;
; COMMON:
;       None.
;
; RESTRICTIONS: 
;       None.
;
; SIDE EFFECTS:
;       None.
;
; HISTORY:
;       Version 1, October 7, 1996, Dietmar Germerott, MAPE Lindau. Written
;       Version 2, February 13, 2007, Dietmar Germerott, MPS
;          Return single dimension array and added keywro rawform
;
; CONTACT:
;       Dietmar Germerott, MAPE Lindau (germerott@linax1.mpae.gwdg.de)
;-
;

  IF KEYWORD_SET(rawform) THEN BEGIN
    RETURN, reform(header(62, *)*LONG(256)+header(63, *))
  ENDIF
 
   factor = [0.0, 6.988, 7.087, 0.0]
   det = detector(header)
   RETURN, reform(factor(det)*(header(62, *)*LONG(256)+header(63, *)))
END


;---------------------------------------------------------------------------
; End of 'YEVENT.PRO'.
;---------------------------------------------------------------------------