;+ ; Contains the make_qeph_data procedure ; ; :Author: ; Baptiste Cecconi ; ; :History: ; 2006/07/16: Created ; ; 2012/04/25: Last Edit ;- ; ;+ ; make_qeph_data is a procedure that <behavior desc here> ; ; :Uses: ; read_att, rmat2quat ; ; :Params: ; file: in, required, type=sometype ; A parameter named file ; qeph: out, required, type=sometype ; A parameter named qeph ; ; :Keywords: ; quiet: in, optional, type=sometype ; A keyword named quiet ;- pro make_qeph_data, file, qeph, quiet=quiet if keyword_set(quiet) then quiet=1b else quiet=0b READ_ATT, file, m, time, datatype n = n_elements(time) qeph = replicate({data_qeph},n) if datatype eq 'matrix' then begin q = rmat2quat(transpose(m,[1,0,2])) endif else begin q = m endelse qeph.time = time qeph.q = q return end