rand.c

speech signal process tools

/*
| This material contains proprietary software of Entropic Processing, Inc.
| Any reproduction, distribution, or publication without the the prior
| written permission of Entropic Processing, Inc. is strictly prohibited.
| Any public distribution of copies of this work authorized in writing by
| Entropic Processing, Inc. must bear the notice
|
|              "Copyright 1986 Entropic Processing, Inc."
|
| Written by:  S. Shankar Narayan
|
| Module:	rand.c
| 
*/

#ifdef SCCS
static char *sccs_id = "@(#)rand.c	1.2 4/21/86 (rand.c)";
#endif

#define modulo 4294967296.0 /*  2**32 */
float rand(dummy) /* uniform random number generation program */
float dummy;
{
	static int seed = 1234567, seed_flag = 1;
	long random();
  	float t;
if (seed_flag) 
{
	srandom(seed);
	seed_flag = 0;
}
t = random() / 2147483647.0 - 0.5;
  	return (t);
}