;+ ; Contains the write_data_binary procedure ; ; :Author: ; Baptiste Cecconi ; ; :History: ; 2005/12/08: Created ; ; 2005/12/08: Last Edit ;- ; ;+ ; write_data_binary is a procedure that <behavior desc here> ; ; :Params: ; file: in, required, type=sometype ; output file name ; data: in, required, type=sometype ; data structure (built with data_XXXX__define) ; ; :Keywords: ; null: in, optional, type=sometype ; if set, writes a 0b file length ;- PRO write_data_binary,file,data,null=null ; opening binary data file : ; (swapping byte order if CPU is big endian) openw,lun,file,/get_lun,/swap_if_big_endian if not keyword_set(null) then writeu,lun,data ; closing close,lun free_lun,lun return end