for ff = 605 : 25 : 2805
  fin = ['/asl/s1/sergio/H2008_RUN8_NIRDATABASE/IR_605_2830_H08_CO2/kcomp/'];
  fin = [fin 'cg2v' num2str(ff) '.mat'];
  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);
    loader = ['load ' fin];
    eval(loader);
    kcomp = kcomp * ((378/370)^(kpow));
    saver = ['save ' fout ' B Binv cdir d fr gdir gid kcomp kpow loader m tind vchunk'];
    eval(saver);
  end
end