;+ ; Contains the make_veph_data procedure ; ; :Author: ; Baptiste Cecconi ; ; :History: ; 2006/07/16: Created ; ; 2006/07/16: Last Edit ;- ; ;+ ; make_veph_data is a procedure that <behavior desc here> ; ; :Uses: ; read_eph ; ; :Params: ; file: in, required, type=sometype ; A parameter named file ; veph: out, required, type=sometype ; A parameter named veph ; ; :Keywords: ; km: in, optional, type=sometype ; A keyword named km ;- pro make_veph_data, file, veph, km=km if keyword_set(quiet) then quiet=1b else quiet=0b READ_EPH, file, x, y, z, r, time, rp xyz = [[x],[y],[z]] if keyword_set(km) then xyz = xyz*rp n = n_elements(time) veph = replicate({data_veph},n) veph.time = double(time) veph.r = -transpose(xyz) return end