usr/kevin/code/develop/ranlcg.c
ranlcg_t * ranlcg_create(long int state) {

  ranlcg_t * p;

  p = (ranlcg_t *) calloc(1, sizeof(ranlcg_t));
  assert(p);

  p->state = state;
  p->a = RANLCG_ADEFAULT;
  p->c = RANLCG_CDEFAULT;
  p->m = RANLCG_MDEFAULT;

  ranlcg_param_set(p, p->a, p->c, p->m);

  assert(p->state < p->m);
  assert(p->state > 0);

  return p;
}
/*****************************************************************************
 *
 *  ranlcg_create
 *
 *  Needs to supply the initial state, but parameters are the default.
 *
 *****************************************************************************/
ranlcg_create
Needs to supply the initial state, but parameters are the default.
ranlcg_create Needs to supply the initial state but parameters are the default .
ranlcg_t * ranlcg_create(long int state) {
  ranlcg_t * p;
  p = (ranlcg_t *) calloc(1, sizeof(ranlcg_t));
  assert(p);
  p->state = state;
  p->a = RANLCG_ADEFAULT;
  p->c = RANLCG_CDEFAULT;
  p->m = RANLCG_MDEFAULT;
  ranlcg_param_set(p, p->a, p->c, p->m);
  assert(p->state < p->m);
  assert(p->state > 0);
  return p;
}
ranlcg_t * ranlcg_create ( long int state ) { ranlcg_t * p ; p = ( ranlcg_t * ) calloc ( 1 , sizeof ( ranlcg_t ) ) ; assert ( p ) ; p -> state = state ; p -> a = RANLCG_ADEFAULT ; p -> c = RANLCG_CDEFAULT ; p -> m = RANLCG_MDEFAULT ; ranlcg_param_set ( p , p -> a , p -> c , p -> m ) ; assert ( p -> state < p -> m ) ; assert ( p -> state > 0 ) ; return p ; }
ranlcg_create
  Needs to supply the initial state, but parameters are the default.
ranlcg_create Needs to supply the initial state but parameters are the default .