;+
; NAME:
;     GET_REGN_STRUCT
; PURPOSE:
;     Define structure necessary for holding information from OVRO APC
;     active region data.
; CATEGORY:
;     OVRO APC DATA ANALYSIS
; CALLING SEQUENCE:
;     regn = get_regn_struct()
; INPUTS:
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
; ROUTINES CALLED:
; OUTPUTS:
;     regn     an empty REGN 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
;-
function get_regn_struct

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

   info  = {INFO,   NOA:       0,    $  ; NOAA region number
                    LAT:       0,    $  ; Solar latitude of region [deg]
                    LNG:       0,    $  ; Solar longitude of region [deg]
                CARRLNG:       0,    $  ; Carrington longitude [deg]
                   AREA:       0,    $  ; Sunspot are of region [10-6 of disk]
                   TYPE:  '    ',    $  ; McIntosh classification (A4)
                MAGTYPE:'            '} ; Magnetic class (eg BETA-GAMMA) (A12)

   ; Define REGN structure
   regn =    {REGN, EPOCH: {epoch},  $    ; Epoch and other info from file
                    NREGN:       0,  $    ; Number of active regions
              INFO: replicate({info},25)} ; Array of region info

return,regn
end