IDL转换BSQ格式至BIL

pro Transform    compile_opt idl2   e=envi(/headless)   envi,  /restore_base_save_files   envi_batch_init,  log_file = 'batch.txt', /no_status_window      fn=dialog_pickfile(title=选择要转换的ENVI文件')   envi_open_file, fn, r_fid=fid   envi_file_query, fid, ns=ns, nl=nl, nb=nb, dims=dims, $     interleave=interleave, offset=offset, bnames=bnames   print, interleave   pos=indgen(nb)   envi_doit, 'convert_doit', fid=fid, dims=dims, pos=pos, $     r_fid=fid_BIL, out_name='Data_BIL', o_interleave=1   envi_file_query, fid_BIL, interleave=interleave   print, interleave    end