function [u,x] = rand_num(s)

% Simple random number generator

% s = seed

out = zeros(1,2) ;

xx = 25173*s + 13849 ;

x = xx - (floor(xx/65536)*65536) ;

u = x/65536 ;