function out = rand_tst(s)

% Simple random number generator

% s = seed

out = zeros(1,2) ;

a = 16807;

m = 2147483647;

xx = a*s  ;

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

u = x/m ;

out(1,1) = u ;

out(1,2) = x ;