1 /* 2 * Copyright (c) 1993 Martin Birgmeier 3 * All rights reserved. 4 * 5 * You may redistribute unmodified or modified versions of this source 6 * code provided that the above copyright notice and this and the 7 * following conditions are retained. 8 * 9 * This software is provided ``as is'', and comes with no warranties 10 * of any kind. I shall in no event be liable for anything that happens 11 * to anyone/anything when using this software. 12 */ 13 14 #include "rand48.h" 15 16 extern unsigned short _rand48_seed[3]; 17 extern unsigned short _rand48_mult[3]; 18 extern unsigned short _rand48_add; 19 20 unsigned short * 21 seed48(unsigned short xseed[3]) 22 { 23 static unsigned short sseed[3]; 24 25 sseed[0] = _rand48_seed[0]; 26 sseed[1] = _rand48_seed[1]; 27 sseed[2] = _rand48_seed[2]; 28 _rand48_seed[0] = xseed[0]; 29 _rand48_seed[1] = xseed[1]; 30 _rand48_seed[2] = xseed[2]; 31 _rand48_mult[0] = RAND48_MULT_0; 32 _rand48_mult[1] = RAND48_MULT_1; 33 _rand48_mult[2] = RAND48_MULT_2; 34 _rand48_add = RAND48_ADD; 35 return sseed; 36 } 37