/* ranexp.c: random # ~ exponential(1)  */
/***********************************************************/
#include <math.h>
#include "ran.h"

double RanExp(void)        /* return exponential(1) */
{
    return -log(RanUni());
}