iT = 6;
iT = 11;

iaTemp = -50:10:50; 
iaFr = 2205 : 25 : 2505; 

%%%%now read in the data
frall = [];
kall = [];
for iF = 1 : length(iaFr)
  f1 = iaFr(iF);
  iname = ['/carrot/s1/sergio/AIRSCO2/BACKGND_MAY2004/refgas2_' num2str(iT)];
  iname = [iname '_' num2str(f1) '.mat'];
  loader = ['load ' iname]
  eval(loader);
  frall = [frall fr];
  kall = [kall k];
  end
lenall = length(frall);

[kcarta,fr] = readkcstd('co2.dat');
len = length(fr);

if len < lenall
  frall = frall(1:len);
  kall  = kall(:,1:len);
elseif len > lenall
  fr     = fr(1:lenall);
  kcarta = kcarta(1:lenall,:);
  end

figure(1);
ii=1; plot(fr,kall(ii,:)'./kcarta(:,ii))

figure(2);
load /home/sergio/SPECTRA/CO2_MATFILES/hit2350.mat
semilogy(freq,stren); hold on

load /home/sergio/SPECTRA/CO2_MATFILES/hit2353.mat
semilogy(freq,stren,'r'); hold on

load /home/sergio/SPECTRA/CO2_MATFILES/hit2354.mat
semilogy(freq,stren,'g'); hold on

load /home/sergio/SPECTRA/CO2_MATFILES/hit2322.mat
semilogy(freq,stren,'c'); hold on

