Function v_orbital,timarr
;+
;NAME:
;       v_orbital
;PURPOSE:
;       To return the SOHO Doppler velocity with respect to disk center
;SAMPLE CALLING SEQUENCE:
;      vdopp = v_orbital('10-Mar-00 17:30')
;      vdopp = v_orbital(['4-Feb 18:55', '10-Mar 17:30'])
;INPUT:
;       timarr = array of times
;OUTPUT:
;       Array of Doppler velocities in m/s, + means moving away from Sun
;HISTORY:
; TDT  16-Aug-96  Lifted from plot_mtm_shift, V2.2 (5-Aug-96, MDM)
; TDT  23-Dec-99  changed to soho_ephemeris.txt
;-
;    mat = rd_tfile('$MDI_CAL_INFO/soho_orbit.txt', 8, 2)
;    timarr_scv = anytim2ints( fid2ex(mat(1,*)) )
;    scv = float( mat(2,*) )
    mat = rd_tfile('$MDI_CAL_INFO/soho_ephemeris.txt', 8, 1)                                     
    timarr_scv = anytim2ints(mat(0,*))
    scv = float(mat(6,*))

    x1 = int2secarr(timarr_scv, '1-jan-96')
    x2 = int2secarr(timarr, '1-jan-96')
    scv3 = interpol(scv, x1, x2)
    return,scv3
    end