;+
; Contains the load_sed_files procedure
;
; :Author:
; Laurent Lamy
;
; :History:
; 2005/05/02: Created
;
; 2012/03/08: Last Edit
;-
;
;+
; load_sed_files is a procedure that <behavior desc here>
;
; :Uses:
; delpath
;
; :Params:
; aaaajjjd: in, required, type=sometype
; A parameter named aaaajjjd
; hd: in, required, type=sometype
; A parameter named hd
; aaaajjjf: in, required, type=sometype
; A parameter named aaaajjjf
; hf: in, required, type=sometype
; A parameter named hf
; xsed: in, required, type=sometype
; A parameter named xsed
;-
pro LOAD_SED_FILES, aaaajjjd, hd, aaaajjjf, hf, xsed
ptrDataFileList = make_file_list(aaaajjjd, hd, aaaajjjf, hf, level='temp')
if (ptr_valid(ptrDataFileList) eq 0) then begin
nDataFile=0
print,"# Warning ! No temp (SED) data file selected..."
endif else begin
dataFileList=*ptrDataFileList
nDataFile = n_elements(dataFileList)
ptr_free, ptrDataFileList
endelse
debut=1
for iDataFile = 0L,nDataFile-1L do begin
fichier = dataFileList(iDataFile)
if strmid(delpath(fichier),0,3) eq 'SED' then begin
print,'% fichier : ',fichier
read_data_binary,fichier,data_sed,ok,level='sed'
if debut eq 1 then begin
debut=0
xsed=data_sed
endif else xsed=[xsed,data_sed]
endif
endfor
return
end