;+
; NAME:
;     GET_OVCAL_STRUCT
; PURPOSE:
;     Define structure necessary for holding information from OVRO APC
;     calibrator ephemeris data.
; CATEGORY:
;     OVRO APC DATA ANALYSIS
; CALLING SEQUENCE:
;     cal = get_ovcal_struct()
; INPUTS:
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
; ROUTINES CALLED:
; OUTPUTS:
;     cal     an empty CAL structure
; COMMENTS:
; SIDE EFFECTS:
; RESTRICTIONS:
; MODIFICATION HISTORY:
;     Written 30-Jan-1999 by Dale Gary
;     25-Nov-1999  DG
;       Updated to agree with Epoch defn in GPARM structure
;     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_ovcal_struct

   epoch = {EPOCH,  YR:       0,    $  ; Year of the calibrator coords
                    DOY:      0,    $  ; Day of year of coords
                    SEC:      0L}       ; Hour of coords

   caleph = {CALEPH, NAME:'        ',$  ; Name of calibrator (A8)
                     RA:      0L,    $  ; Right ascen. of calibrator [0.1 mdeg]
                     DEC:     0L}       ; Declination of calibrator [0.1 mdeg]


   ; Define CAL structure
   cal = {CAL,  EPOCH:  {epoch}          ,$      ; Epoch and other info from file
                 NCAL:                  0,$      ; Number of calibrator sources
               CALEPH: replicate({caleph},25)}  ; Array of ephemeris info

return,cal
end