;+
; NAME:
;     GET_SOL_STRUCT
; PURPOSE:
;     Define structure necessary for holding information from OVRO APC
;     solar ephemeris data.
; CATEGORY:
;     OVRO APC DATA ANALYSIS
; CALLING SEQUENCE:
;     solar = get_sol_struct()
; INPUTS:
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
; ROUTINES CALLED:
; OUTPUTS:
;     solar   an empty SOLAR structure
; COMMENTS:
; SIDE EFFECTS:
; RESTRICTIONS:
; MODIFICATION HISTORY:
;     Written 30-Jan-1999 by Dale Gary
;-
function get_sol_struct

   ; Define SOLAR structure
   solar =       { SOLAR,$
                   RA:    LONARR(3),$  ; Right ascension for each day [0.1 mdeg]
                   DEC:   LONARR(3),$  ; Declination for each day [0.1 mdeg]
                   RAD:   INTARR(3),$  ; Radius for each day      [0.1 mdeg]
                   PA:    LONARR(3),$  ; P-Angle of solar disk    [0.1 mdeg]
                   B0:    LONARR(3),$  ; B0-Angle of solar disk   [0.1 mdeg]
                   HP:    INTARR(3),$  ; Horizontal parallax      [0.1 mdeg]
                   REFT:  INTARR(3),$  ; Reference time (always 0)[sec]
                   DOY:   INTARR(3)}   ; Reference day of year

return,solar
end