thedir = dir('../h2o.ieee-le/r*.dat');

for ii = 1 : length(thedir)
  fname = thedir(ii).name;
  lnker = ['!ln -s ../h2o.ieee-le/' fname ' ' fname];
  eval(lnker)
end