function  f14set(m) %  f14set.m   (Seed for f14get)
global iseed;
  newseed=round(m);
  iseed=abs(newseed);
end
