;+
; Name:
;   	eisfilename2date
;
; Purpose:
;   	Returns date and time from the name of the fits file.
;
; Calling Sequence:
;   	dates = eisfilename2date(files[,keywords])
;   
; Inputs:
;   	FILES: string array of files.
;
; Outputs:
;   	String array of dates.
;
; Keywords:
;   	DIR: output format is yyyy/mm/dd. Useful to create directories.
;
;
; Modification History:
;   	2007/04/11 I.Ugarte-Urra. NRL
;-
FUNCTION eisfilename2date,files, dir=dir

nfiles=n_elements(files)
dates=strarr(nfiles)

for i=0,nfiles-1 DO BEGIN

	r=strpos(files[i],'eis_')
	year=strmid(files[i],r+7,4)
	month=strmid(files[i],r+11,2)
	day=strmid(files[i],r+13,2)
	hour=strmid(files[i],r+16,2)
	min=strmid(files[i],r+18,2)
	sec=strmid(files[i],r+20,2)

	date=year+'-'+month+'-'+day+' '+hour+':'+min+':'+sec
	dates[i]=anytim(date,/yohkoh)
	
	if keyword_set(dir) then dates[i]=year+'/'+month+'/'+day

ENDFOR

return,dates
END