load_sed_files.pro (Kronos IDL library)

;+
; 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