ran1

double ran1(long* seed);

"Minimal" random number generator of Park and Miller with Bays-Durham shuffle and added safeguards. Returns a uniform random deviate between 0.0 and 1.0 (exclusive of the endpoint values). Call with idum a negative integer to initialize; thereafter, do not alter idum between successive deviates in a sequence.

Parameters:
seedRandom number generator seed.

Returns:
The next random number from the generator.

Usage:
long seed = -1L; /* Initialize generator */
double r = ran1(&seed);

Header:
#include "deviate.h"