6 #include <gsl/gsl_errno.h>
7 #include <gsl/gsl_qrng.h>
11 gsl_qrng_alloc (const gsl_qrng_type * T, unsigned int dimension)
14 gsl_qrng * q = (gsl_qrng *) malloc (sizeof (gsl_qrng));
18 GSL_ERROR_VAL ("allocation failed for qrng struct",
22 q->dimension = dimension;
23 q->state_size = T->state_size(dimension);
24 q->state = malloc (q->state_size);
29 GSL_ERROR_VAL ("allocation failed for qrng state",
35 T->init_state(q->state, q->dimension);
41 gsl_qrng_init (gsl_qrng * q)
43 (q->type->init_state) (q->state, q->dimension);
47 gsl_qrng_memcpy (gsl_qrng * dest, const gsl_qrng * src)
49 if (dest->type != src->type)
51 GSL_ERROR ("generators must be of the same type", GSL_EINVAL);
54 dest->dimension = src->dimension;
55 dest->state_size = src->state_size;
56 memcpy (dest->state, src->state, src->state_size);
63 gsl_qrng_clone (const gsl_qrng * q)
65 gsl_qrng * r = (gsl_qrng *) malloc (sizeof (gsl_qrng));
69 GSL_ERROR_VAL ("failed to allocate space for rng struct",
73 r->dimension = q->dimension;
74 r->state_size = q->state_size;
75 r->state = malloc (r->state_size);
80 GSL_ERROR_VAL ("failed to allocate space for rng state",
86 memcpy (r->state, q->state, q->state_size);
91 #ifndef HIDE_INLINE_STATIC
93 gsl_qrng_get (const gsl_qrng * q, double x[])
95 return (q->type->get) (q->state, q->dimension, x);
100 gsl_qrng_name (const gsl_qrng * q)
102 return q->type->name;
107 gsl_qrng_size (const gsl_qrng * q)
109 return q->state_size;
114 gsl_qrng_state (const gsl_qrng * q)
121 gsl_qrng_free (gsl_qrng * q)
124 if(q->state != 0) free (q->state);