;
;
;
infil = '$DIR_SXT_SXC/sxc' + ['91_49a.01', '92_50a.01', '94_02a.01']
;
for ifil=0,n_elements(infil)-1 do begin
    infil0 = infil(ifil)
    rd_pointer, infil0, pointer
    rd_fheader, infil0, fheader
    ;
    print, fheader.progverno
    fheader.progverno = 1.100 * 1000
    ibyt = pointer.file_header
    ;
    openu, lun, infil0, /get_lun, /block
    point_lun, lun, ibyt
    writeu, lun, fheader
    free_lun, lun
end
;
end