function ran= f14get(m,n)   % f14get.m Generate a random number(s) in (0,1)
global iseed;
msg=nargchk(0,2,nargin);
error(msg);
if nargin ==0 
  n=1 ; m=1;
  if isempty(iseed); iseed=123; end
elseif nargin ==1
  n=m;
end
ran=zeros(m,n);
for ii = 1:m
  for jj = 1:n
     iseed = mod(8121*iseed+28411,134456);
     ran(ii,jj) = iseed/134456;
  end
end
end
