cycling/link_namelist.m

   1 function link_namelist(cyc)
   2 %deletes current namelist link and makes new one
   3 if ~exist('cyc','var')
   4     cyc = input_num('Which namelist to link?',1);
   5 end
   6 ln_str = sprintf('rm namelist.input; ln -s namelist.input_%d namelist.input',cyc);
   7 fprintf('Linking namelist.input_%d\n',cyc);
   8 if system(ln_str)
   9     printf('Linking failed somehow\n')
  10 end
  11
  12 end