lit_hfr_liste.pro (Kronos IDL library)

;+
; Contains the lit_hfr_liste procedure
;
; :Author:
;    Philippe Zarka
;
; :History:
;    2004/07/19: Created
;
;    2004/07/19: Last Edit
;-
;
;+
; lit dans une structure z toutes les donnees "analyse" d'une liste de
; fichiers 
;
; :Uses:
;    delpath, lit_hfr_1
;
; :Params:
;    aaaajjj:  in, required, type=sometype
;       A parameter named aaaajjj
;    hd:       in, required, type=sometype
;       A parameter named hd
;    hf:       in, required, type=sometype
;       A parameter named hf
;    bandemin: in, required, type=sometype
;       A=0, B=1, C=2, H1=3, H2=4
;    bandemax: in, required, type=sometype
;       A=0, B=1, C=2, H1=3, H2=4
;    z:        in, required, type=sometype
;       A parameter named z
;-
pro LIT_HFR_LISTE, aaaajjj, hd, hf, bandemin, bandemax, z

pFileList=make_file_list(aaaajjj, hd, aaaajjj, 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
for iFile=0, nFileList-1 do begin
    fichier=FileList[iFile]
    f = DELPATH(fichier)

; les fichiers sont supposes etre nommes : Xaaaajjj.hh  et couvrir 1 heure 
; chacun, de hh a hh+1   (X='k' pour les fichiers 'kronos' ~ NewBench)
; ou etre nommes : Xaaaajjj   et couvrir la journee
    
    
;    hh = strmid(f,9,2)
;    if hh eq '' then goto,ok
;    fh = fix(strmid(f,9,2))
    
    
    print & print,'fichier : ',fichier
    
ok:
    LIT_HFR_1, fichier, z
    if n_elements(z) gt 0 then begin
        if bandemin gt 0 then z=z(where(z.bande ge bandemin))
        if bandemax lt 4 then z=z(where(z.bande le bandemax))
    endif
    
    help,z
endfor
if n_elements(z) eq 0 then z=-1

return
end