jrand48.c revision 1.2 
11.1Sbrezak/*
21.1Sbrezak * Copyright (c) 1993 Martin Birgmeier
31.1Sbrezak * All rights reserved.
41.1Sbrezak *
51.1Sbrezak * You may redistribute unmodified or modified versions of this source
61.1Sbrezak * code provided that the above copyright notice and this and the
71.1Sbrezak * following conditions are retained.
81.1Sbrezak *
91.1Sbrezak * This software is provided ``as is'', and comes with no warranties
101.1Sbrezak * of any kind. I shall in no event be liable for anything that happens
111.1Sbrezak * to anyone/anything when using this software.
121.1Sbrezak */
131.1Sbrezak
141.1Sbrezak#include "rand48.h"
151.1Sbrezak
161.1Sbrezaklong
171.1Sbrezakjrand48(unsigned short xseed[3])
181.1Sbrezak{
191.2Sjtc	__dorand48(xseed);
201.1Sbrezak	return ((long) xseed[2] << 16) + (long) xseed[1];
211.1Sbrezak}
22