usr/kevin/code/develop/ranlcg.c
int ranlcg_param_set(ranlcg_t * p, long int a, long int c, long int m) {

  int ifail = 0;

  if (p->a < 1) ifail = 1;
  if (p->c < 0) ifail = 1;
  if (p->m < 0) ifail = 1;
  if (p->a >= p->m) ifail = 1;
  if (p->c >= p->m) ifail = 1;
  assert(ifail == 0);

  p->a = a;
  p->c = c;
  p->m = m;
  p->rnorm = 1.0 / p->m;

  return ifail;
}
/*****************************************************************************
 *
 *  ranlcg_param_set
 *
 *  Returns 0 if parameters supplied look acceptable.
 *
 *****************************************************************************/
ranlcg_param_set
Returns 0 if parameters supplied look acceptable.
ranlcg_param_set Returns 0 if parameters supplied look acceptable .
int ranlcg_param_set(ranlcg_t * p, long int a, long int c, long int m) {
  int ifail = 0;
  if (p->a < 1) ifail = 1;
  if (p->c < 0) ifail = 1;
  if (p->m < 0) ifail = 1;
  if (p->a >= p->m) ifail = 1;
  if (p->c >= p->m) ifail = 1;
  assert(ifail == 0);
  p->a = a;
  p->c = c;
  p->m = m;
  p->rnorm = 1.0 / p->m;
  return ifail;
}
int ranlcg_param_set ( ranlcg_t * p , long int a , long int c , long int m ) { int ifail = 0 ; if ( p -> a < 1 ) ifail = 1 ; if ( p -> c < 0 ) ifail = 1 ; if ( p -> m < 0 ) ifail = 1 ; if ( p -> a >= p -> m ) ifail = 1 ; if ( p -> c >= p -> m ) ifail = 1 ; assert ( ifail == 0 ) ; p -> a = a ; p -> c = c ; p -> m = m ; p -> rnorm = 1.0 / p -> m ; return ifail ; }
ranlcg_param_set
  Returns 0 if parameters supplied look acceptable.
ranlcg_param_set Returns 0 if parameters supplied look acceptable .