/*
 * Copyright (1987) Jeff Elman.  University of California, San Diego
 * This software may be redistributed without charge; this notice
 * should be preserved.
 */

float 
rans(weight_limit)
	float	weight_limit;
{
	extern	long random();
	double	value;
	
	value = ((random() & 0xffff) / 65536.0);
	value = (value * 2*weight_limit) - weight_limit;
	return value;
}