;---------------------------------------------------------------------------
; Document name: SUM_HK_SSYNC.PRO
; Created by:    Dietmar Germerott, MPAE Lindau, November 18, 1998
;
; Last Modified: Wed Nov 18 14:22:54 1998 (GERMEROTT@linsu1.mpae.gwdg.de)
;---------------------------------------------------------------------------
;
FUNCTION sum_hk_ssync, in_record
;+
; PROJECT:
;       SOHO - SUMER
;
; NAME:
;       SUM_HK_SSYNC()
;
; PURPOSE: 
;       
;
; CATEGORY:
;       
; 
; EXPLANATION:
;       
; SYNTAX: 
;       Result = sum_hk_ssync()
;
; EXAMPLES:
;       
; INPUTS:
;       
;
; OPTIONAL INPUTS: 
;       None.
;
; OUTPUTS:
;       None.
;
; OPTIONAL OUTPUTS:
;       None.
;
; KEYWORDS: 
;       None.
;
; COMMON:
;       None.
;
; RESTRICTIONS: 
;       None.
;
; SIDE EFFECTS:
;       None.
;
; HISTORY:
;       Version 1, November 18, 1998, Dietmar Germerott, MPAE Lindau. Written
;
; CONTACT:
;       Dietmar Germerott, MPAE Lindau (Dietmar Germerott@linmpi.mpg.de)
;-
;
   ON_ERROR, 2
   
   errmsg = ''
   msg_func = ''
   
   IF N_PARAMS() NE 1 THEN BEGIN
      msg_func = 'Syntax: Result = SUM_HK_SSYNC(hk_records [,num_of_records=num_of_records])'
      
   ENDIF ELSE BEGIN
      sz = SIZE(in_record)
   
      IF datatype(in_record,1)NE 'Byte' THEN BEGIN
         
         msg_func = 'INPUT must be a byte array.'
      ENDIF ELSE BEGIN
         IF ((sz(1) LT 26) OR (sz(1) GT 200)) THEN msg_func = $
            'The first dimension of INPUT must be 26 .. 200.'
         IF sz(0) EQ 0 THEN msg_func = 'INPUT must be an array.'
      ENDELSE
   ENDELSE
   
   IF msg_func NE '' THEN GOTO, handle_error
   
   
   num_of_record = N_ELEMENTS(in_record)/sz(1)
   
   
   RETURN, REFORM(FIX (in_record(0:1, *), 0, num_of_record))
   
handle_error:
   
   errmsg = msg_func
   MESSAGE,errmsg,/cont
   RETURN,-1
END

;---------------------------------------------------------------------------
; End of 'SUM_HK_SSYNC.PRO'.
;---------------------------------------------------------------------------