;+
; NAME:
;     GET_EPH_STRUCT
; PURPOSE:
;     Define structure necessary for holding information from OVRO APC
;     ephemeris segment.
; CATEGORY:
;     OVRO APC DATA ANALYSIS
; CALLING SEQUENCE:
;     ephem = get_eph_struct()
; INPUTS:
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
; ROUTINES CALLED:
; OUTPUTS:
;     ephem   an empty EPHEM segment structure
; COMMENTS:
; SIDE EFFECTS:
; RESTRICTIONS:
; MODIFICATION HISTORY:
;     Written 30-Jan-1999 by Dale Gary
;     23-Jul-2003  DG
;       Changes GET_CAL_STRUCT to GET_OVCAL_STRUCT to avoid conflict
;       with routine of the same name in LASCO tree.
;-
function get_eph_struct

   ; Get an empty SOLAR structure
   solar = get_sol_struct()
   ; Get an empty LUNAR structure
   lunar = get_lun_struct()
   ; Get an empty CAL structure
   cal   = get_ovcal_struct()
   ; Get an empty REGN structure
   regn  = get_regn_struct()

   ; Define EPHEM structure
   ephem = {ephem, dut:              0,$  ; UT1-UTC
                   solar:        solar,$  ; Solar structure
                   lunar:        lunar,$  ; Lunar structure
                   cal:            cal,$  ; Cal structure
                   regn:          regn}   ; Regn structure

return,ephem
end