# This is an example of a very simple pseudorandom number generator, based on
# Numerical Recipes 'minimal standard' generator. It basically just multiplies
# and then divides the seed by two large (and specially chosen) random numbers.
# Routines of this sort are not recommended for applications where 'high quality'
# randomness is required (e.g., Monte Carlo integration).
function rand = randcong(seed)

	rand = mod(16807*seed,2147483647);
	
endfunction