37 lines
1.1 KiB
Prolog
37 lines
1.1 KiB
Prolog
pro lettura_file_sata
|
|
|
|
sFolder = DIALOG_PICKFILE(PATH='examples\data', /DIRECTORY, TITLE="Choose directory TV data.")
|
|
|
|
cd, sFolder
|
|
|
|
A = FILE_SEARCH('*.rec', /NOSORT)
|
|
|
|
openw, lun, sFolder+'file_batch_counter.dat', /get_lun
|
|
|
|
list_modi = ['IDLE','IDLE_2','GM_RBM','GM_DBS','RWS','','T&S','','','','','','','','','STT']
|
|
list_wf = ['IDLE','LPRF','MPRF','HPRF','LPRF_NC']
|
|
list_rs = ['IDLE','10_NM','20_NM','40_NM','80_NM']
|
|
printf, lun, ["FILE OPERATIONAL_MODE WAVEFORM RANGE_SCALE "]
|
|
|
|
for nfile=0, n_elements(a)-1 do begin
|
|
|
|
filename = sFolder+A[nfile]
|
|
|
|
print, 'file '+string(nfile)+' di'+string(n_elements(a))
|
|
|
|
sata_block_Reader, $
|
|
header_v, header_out, segnale_out, n_batch, check_ch, filename
|
|
|
|
|
|
IF n_batch ne 0 then begin
|
|
printf, lun, filename+string(header_out[0].header_data.signal_descr.BATCH_COUNTER)$
|
|
+' '+list_modi[header_out[0].header_data.mode.operation_mode]$
|
|
+' '+list_wf[header_out[0].header_data.mode.WAVEFORM]$
|
|
+' '+list_rs[header_out[0].header_data.mode.RANGE_SCALE]
|
|
endif
|
|
|
|
endfor
|
|
|
|
close, lun & free_lun, lun
|
|
|
|
end |