pro LISTE_COMP, aaaajjjd, hd, aaaajjjf, hf, nomfich, type_paquet
pFileList=make_file_list(aaaajjjd, hd, aaaajjjf, hf, level='k', /noemptyfiles)
if ptr_valid(pFileList) then begin
FileList=*pFileList
nFileList=n_elements(FileList)
ptr_free, pFileList
endif else begin
nFileList=0
endelse
if n_elements(type_paquet) eq 0 then begin
message,'liste des paquets :',/info
print,'analysis (0), sounder (1), calibration (2), millisecond (3),'
read,'tous (-1) ? ',type_paquet
endif
if n_elements(nomfich) eq 0 then begin
openw, e, 'liste_comp.lis', /get_lun
on_ioerror, suite
endif else begin
openw, e, nomfich, /get_lun
on_ioerror, suite
endelse
for iFile=0, nFileList-1 do begin
fichier=FileList[iFile]
f = DELPATH(fichier)
faaaajjj = long(strmid(f,1,7))
PAQUETS_HFR, fichier, hfr, lun=e
LISTE_COMP_PAQUETS, f, hfr, type_paquet, lun=e
endfor
suite:
close,e & free_lun,e
return
end