pro get_26,x_26
;+
;  Procedure to load the wavelength calibration of FeXXVI bins into
;  IDL variable.  To extend the CMB calibration table to cover all bins
;  it does a linear fit to the wavelengths and extrapolates out to cover
;  256 bins. Should only be used for qualitative work eg realistic looking
;  plots.
;  
;  Output:
;             x_26    - array of approximate FeXXVI wavelengths
; Use:
;      IDL> get_26,x_26
;
;
;	CDP  Feb 92
;       RDB  13-Mar-93  Changed $DIR_BCS_CALDAT to $DIR_BCS_CAL
;-
;
;  get CMB bin/wavelength calibration
;
get_lun,lun1
openr,lun1,concat_dir('$DIR_BCS_CAL','fe26_wl.dat')
x1 = fltarr(180)
l1 = fltarr(180)
for i=0,179 do begin
   readf,lun1,a,b,c,d,e,f,g
   x1(i) = a
   l1(i) = e
endfor
close,lun1
free_lun,lun1

;
;  fit line to real data cos want wavelength for all bins
;
coeff = poly_fit(x1,l1,1,yfit)

x_26 = fltarr(256)

for i=0,255 do begin
  x_26(i) = coeff(0) + coeff(1)*i
endfor

end