int cvar_next_value(void *cvar_handle, double *value)
{
handle_t *h = (handle_t *) cvar_handle;
if (!h) {
cvar_trace("NULL cvar_handle");
return -1;
}
if (!value) {
cvar_trace("NULL value");
return -1;
}
*value = rds_erlang(&h->state, h->shape, h->rate);
return 0;
}
/*
* Generate a p-Erlang distribution with the given mean.
*/
double rd_erlang(
int p, /* Order of distribution to generate */
double mean) /* Mean of generated distribution */
{
return rds_erlang (&mt_default_state, p, mean);
}
