Changeset View

Standalone View

	/*			/*
	* Copyright (c) 1993 Martin Birgmeier			* Copyright (c) 1993 Martin Birgmeier
	* All rights reserved.			* All rights reserved.
	*			*
	* You may redistribute unmodified or modified versions of this source			* You may redistribute unmodified or modified versions of this source
	* code provided that the above copyright notice and this and the			* code provided that the above copyright notice and this and the
	* following conditions are retained.			* following conditions are retained.
	*			*
	* This software is provided ``as is'', and comes with no warranties			* This software is provided ``as is'', and comes with no warranties
	* of any kind. I shall in no event be liable for anything that happens			* of any kind. I shall in no event be liable for anything that happens
	* to anyone/anything when using this software.			* to anyone/anything when using this software.
	*/			*/

	#include "rand48.h"			#include "rand48.h"

	extern unsigned short _rand48_seed[3];
	extern unsigned short _rand48_mult[3];
	extern unsigned short _rand48_add;

	void			void
	srand48(long seed)			srand48(long seed)
	{			{
	_rand48_seed[0] = RAND48_SEED_0;			_rand48_seed = TOUINT48(RAND48_SEED_0, (unsigned short)seed,
	_rand48_seed[1] = (unsigned short) seed;			(unsigned short)(seed >> 16));
	_rand48_seed[2] = (unsigned short) (seed >> 16);			_rand48_mult = RAND48_MULT;
	_rand48_mult[0] = RAND48_MULT_0;
	_rand48_mult[1] = RAND48_MULT_1;
	_rand48_mult[2] = RAND48_MULT_2;
	_rand48_add = RAND48_ADD;			_rand48_add = RAND48_ADD;
	}			}