openr, d, 'liste.scratch', /get_lun, error=err
if err ne 0 then begin
print,'Fichier liste.scratch inexistant'
stop
endif
print,'liste des paquets :'
print,'analysis (0), sounder (1), calibration (2), millisecond (3),'
read,'tous (-1) ? ',p
openw, e, 'liste.lis', /get_lun
on_ioerror, suite
fichier=''
encore:
err=0
readf, d, fichier
f = DELPATH(fichier)
print, fichier
PAQUETS_HFR, fichier, hfr, lun=e
LISTE_PAQUETS, f, hfr, p, lun=e
printf, e
goto, encore
suite:
close,d & free_lun,d
close,e & free_lun,e
end