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

   ; Define LUNAR structure
   lunar =       { LUNAR,           $
                   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]
                   HP:    INTARR(3),$  ; Horizontal parallax      [0.1 mdeg]
                   REFT:  INTARR(3),$  ; Reference time           [sec]
                   DOY:   INTARR(3)}   ; Reference day of year

return,lunar
end