addpath home/sergio/HITRAN2UMBCLBL/fortran/for2mat/
for ff = 605 : 25 : 2805
  fin = ['/asl/s1/sergio/CO2ppmv385/co2.ieee-le/r' num2str(ff) '_g2.dat'];
  ee = exist(fin);
  if ee > 0
    fout = ['cg2v' num2str(ff) '.mat'];
    clear B Binv cdir d fr gdir gid kcomp kpow loader m tind vchunk
    fprintf(1,'redoing %4i \n',ff);
    [gid,fr,kcomp,B] = for2mat_kcomp_reader(fin); 
    saver = ['save ' fout ' gid fr kcomp B'];
    eval(saver);
  end
end

