;+
; NAME:
;       EIS_CONCAT_DATA
;
; PURPOSE:
;      
;
; CATEGORY:
;       Hansteen/Wikstol Data analysis SW
;
; CALLING SEQUENCE:
;       eis_concat_data, dir = dir
;
; INPUTS:
;
;
; KEYWORD PARAMETERS:
;
;       dir: data directory
;
; OUTPUTS:
; 
;
; CALLS:
;       
;
; COMMON BLOCKS:
;       
;
; PROCEDURE:
;
; RESTRICTIONS:
;
;
; MODIFICATION HISTORY:
;       Version 1.0, May-2006: Oivind Wikstol and Viggo Hansteen
;-
pro eis_concat_data, dir =  dir, iwin =  iwin, help =  help, ccsds = ccsds

  if n_elements(help) ne 0 then begin
    message,'eis_concat_data, dir = dir',/info
    return
  endif

  if n_elements(dir) eq 0 then flist =  file_search('*') else flist = file_search(dir+'*')

  if n_elements(iwin) eq 0 then begin
    message, 'eis_concat_data: No line window specified. Using 0 as default..', /info
    iwin = 0
  endif

  eis_movie_prep, flist,  iwin,  savefile = savefile, ccsds = ccsds

  lp_ximovie, savefile

end