;+
; NAME:
;     GET_BLCOR
; PURPOSE:
;     Returns the latest baseline correction (values are just entered
;     into this routine as they are updated).
; CATEGORY:
;     OVSA APC INTERFEROMETRY
; CALLING SEQUENCE:
;     blcor = get_blcor()
; INPUTS:
;     NONE
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
; ROUTINES CALLED:
; OUTPUTS:
;     blcor     a 3x8-element array containing the three-axis baseline
;                 corrections, in nsec as X,Y,Z, for eight antennas.
;                 Antennas that do not yet exist have zeroes.
; COMMENTS:
; SIDE EFFECTS:
; RESTRICTIONS:
; MODIFICATION HISTORY:
;     Written 06-Jul-2000 by Dale E. Gary
;     26-Dec-2002  DG
;       Changed original BLCOR value for antenna 7 because this
;       huge offset was converted to a position change for antenna 7
;       and then entered into the FASAR (CPC) program.  The header
;       values for antenna 7 prior to 27 Dec 2002 (2002.361) will be
;       overridden in DECODE.
;     30-Aug-2004  DG
;       Entered initial, rough determination of antenna 8 BLCOR
;     06-Sep-2004  DG
;       Final values for Ant 8, plus a slight adjustment to Ant 2.
;       Antenna 8 position in header is now 1035728, -91609, -8708,
;       which will be overridden in DECODE for dates prior to
;       06 Sep 2004 (2004.249).
;     07-Sep-2004  DG
;       Tweaked baseline correction for Ant 7, and Ant 2, based on
;       yesterday's very high quality observations.
;-
function get_blcor

      ; Baseline corrections are hard-coded for now--will appear in data later.
      blcor = [[0.0, 0.0, 0.0],                 $    ; Antenna 1 is reference
               [0.123419, 0.113412,-0.136761],  $    ; Antenna 2
               [0.223488,-0.0433633,-0.283529], $    ; Antenna 4
               [0.250173,0.0667128,-0.313550],  $    ; Antenna 5
               [0.500346, 0.156775, -0.266851], $    ; Antenna 6
               [ 0.0,0.0,0.002], $;[-5.5,0.0,8.32],$ ; Antenna 7
               [ 0.0,0.0,0.0], $				 ; Antenna 8
               [0.0,0.0,0.0]]        ; Currently unused antenna

      ; Add corrections found from 2000 Mar 13 baseline observations
      blcor1 = [[0.0,    0.0,    0.0], $
               [ 0.2121908D,-0.0105667D,-0.0058578D],$
               [-0.0395792D,-0.0100000D, 0.0604168D],$
               [-0.0834614D, 0.0900000D,-0.0185686D],$
               [-0.1358730D, 0.1466667D,-0.0647772D],$
               [-0.0233000D, 0.1000000D, 0.3717000D],[0.0,0.0,0.0],[0.0,0.0,0.0]]

      blcor = blcor + blcor1

      ; Add corrections found on 2000 Jul 06

      blcor1 = [[0.0,    0.0,    0.0], $
               [-0.05000D, 0.01333D, 0.00333D],$
               [-0.10833D,-0.02333D,-0.01833D],$
               [ 0.08666D,-0.06000D, 0.02667D],$  ; This one largely negates above corr.
               [ 0.10333D,-0.04666D, 0.04333D],$
               [-0.12333D, 0.01333D, 0.0],[0.0,0.0,0.0],[0.0,0.0,0.0]]

      blcor = blcor + blcor1

      ; Add corrections found on 2004 Sep 06

      blcor1 = [[0.0,    0.0,    0.0], $
               [ 0.0,    0.0,    0.0],$;[-0.05400D, 0.02D, -0.01D],$
               [ 0.0,    0.0,    0.0],$
               [ 0.0,    0.0,    0.0],$
               [ 0.0,    0.0,    0.0],$
               [-0.006D,-0.010D,0.02D],$            ; Ant 7
               [-0.067D,-0.023D,0.01D],$			; Ant 8
               [0.0,0.0,0.0]]

      blcor = blcor + blcor1

return,blcor
end