function [x,sem] = aleat( sem )
% ALEAT     - random number generator
% [X,SEM]=ALEAT(SEM) returns a random number X in [0,1] and a random integer SEM
sem=rem(231*sem,65539); x=sem/65539;