;+
; Project     : SOHO - LASCO
;
; Name        : DMEMORY 
;
; 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, 02-Sep-1995, B Podlipnik. Written
;
; Contact     : BP, borut@lasco1.mpae.gwdg.de
;-

PRO DMEMORY,array_sel

@wload.com
@chandle.com

 first = 0
 last  = N_ELEMENTS(array_sel) - 1

 FOR i=first,last DO BEGIN

   HANDLE_FREE,h_array(array_sel(i))
   HANDLE_FREE,h_name(array_sel(i))
   HANDLE_FREE,h_head(array_sel(i))
   HANDLE_FREE,h_small(array_sel(i))

   h_array(array_sel(i)) = 0
   h_name(array_sel(i))  = 0
   h_head(array_sel(i))  = 0
   h_small(array_sel(i))  = 0
	string_name(array_sel(i)) = ''

 ENDFOR

 index  = WHERE(h_array GT 0, i_count)
 sindex = WHERE(string_name GT '' )

 IF i_count LE 0 THEN BEGIN

   h_array = 0
   h_name  = 0
   h_head  = 0
   h_hs    = 0
   h_small = 0

   string_name = 'no images'
   string_name = [string_name]

   temp = TEMPORARY(image)
   temp = TEMPORARY(h_array)
   temp = TEMPORARY(h_name)
   temp = TEMPORARY(h_head)
   temp = TEMPORARY(h_hs)
   temp = TEMPORARY(h_small)
   undefine, temp

 ENDIF ELSE BEGIN

   h_array = h_array(index)
   h_name  = h_name(index)
   h_head  = h_head(index)
   h_hs    = h_hs(index)
   h_small = h_small(index)

   string_name = string_name(sindex)

   last = N_ELEMENTS(h_array) - 1

   HANDLE_VALUE,h_array(last),image
   HANDLE_VALUE,h_name(last),name
   HANDLE_VALUE,h_head(last),head
   HANDLE_VALUE,h_hs(last),h
   HANDLE_VALUE,h_small(last),a3

 ENDELSE

RETURN
END