pro get_25,x_25
;+
;  Procedure to load the wavelength calibration of FeXXV 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_25    - array of approximate FeXXV wavelengths
; Use:
;      IDL> get_25,x_25
;
;
;	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','fe25_wl.dat')
x1 = fltarr(191)
l1 = fltarr(191)
for i=0,190 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_25 = fltarr(256)

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

end