pro ltf_mk_file, infil, outfil
;
;
;
rd_roadmap, infil, roadmap
;
ss = where((roadmap.explevmode/64 eq 2) and (roadmap.percentd eq 255))
if (ss(0) eq -1) then begin
    print, 'LTF_MK_FILE: No calibration images in ', infil
    return
end
;
for i=0,n_elements(ss)-1 do begin
    rd_sda, infil, ss(i), index, data

    noff = fix(mbe2sec(index.sxt.explevmode mod 64)*341. / 256.)
    print, 'i ', i, '  NOFF = ', noff
    data = ltf_low8to12(data, noff)

    append = 1
    if (i eq 0) then append = 0
    sav_sda, outfil, index, data, append=append
end
;
end