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