;+
; Project     : SOHO - LASCO
;
; Name        : 
;
; Purpose     : 
;
; Category    : 
;
; Explanation : 
;
; Syntax      : 
;
; Examples    : 
;
; Inputs      : None
;
; Opt. Inputs : None
;
; Outputs     : None
;
; Opt. Outputs: None
;
; Keywords    : None
;
; Common      : 
;
; Restrictions:                                  
;
; Side effects: Not known
;
; History     : Version 1, 06-May-1996, B Podlipnik. Written
;
; Contact     : BP, borut@lasco1.mpae.gwdg.de
;-

FUNCTION get_data,hindex

@wload.com
@chandle.com

    hindex = hindex + 1
    IF N_ELEMENTS( h_array ) LE 0 THEN RETURN,-1
    hindex = hindex < N_ELEMENTS( h_array )-1 > 0

    HANDLE_VALUE,h_array(hindex),image
    HANDLE_VALUE,h_name(hindex),name
    HANDLE_VALUE,h_head(hindex),head
    HANDLE_VALUE,h_hs(hindex),h
    HANDLE_VALUE,h_small(hindex),a3
    sz = size(image)

   ni = N_ELEMENTS( h_array )
   ci = hindex

RETURN,{image:image,head:head, ci:ci,ni:ni}
END