;+ ; Contains the liste_comp procedure ; ; :Author: ; Philippe Zarka ; ; :History: ; 2006/03/08: Created ; ; 2006/03/08: Last Edit ;- ; ;+ ; liste compacte du contenu (paquets, modes) d'une serie de fichiers ; ; :Uses: ; delpath, liste_comp_paquets, paquets_hfr ; ; :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 ; nomfich: in, required, type=sometype ; A parameter named nomfich ; type_paquet: in, required, type=sometype ; A parameter named type_paquet ;- 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 ; listing 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