neatogen: remove unused 'rk_state' members

diff --git a/lib/neatogen/randomkit.c b/lib/neatogen/randomkit.c
index 7f1d43c117f8308e5bfcd192c130299436da2e0f..9c9b20b4d8edcb684bc036a62682dfb3e15cef75 100644 (file)
--- a/lib/neatogen/randomkit.c
+++ b/lib/neatogen/randomkit.c
@@ -91,9 +91,6 @@ rk_seed(unsigned long seed, rk_state *state)
         seed = (1812433253UL * (seed ^ (seed >> 30)) + pos + 1) & 0xffffffffUL;
     }
     state->pos = RK_STATE_LEN;
-    state->gauss = 0;
-    state->has_gauss = 0;
-    state->has_binomial = 0;
 }
 
 /* Magic Mersenne Twister constants */

diff --git a/lib/neatogen/randomkit.h b/lib/neatogen/randomkit.h
index 4e98a8cd5eab65857717d68f0d9ae2ab1be39ba3..d8e77ed2b678936a9554b5a46e45b3fa9b47b165 100644 (file)
--- a/lib/neatogen/randomkit.h
+++ b/lib/neatogen/randomkit.h
@@ -64,32 +64,6 @@ typedef struct rk_state_
 {
     unsigned long key[RK_STATE_LEN];
     int pos;
-    int has_gauss; /* !=0: gauss contains a gaussian deviate */
-    double gauss;
-
-    /* The rk_state structure has been extended to store the following
-     * information for the binomial generator. If the input values of n or p
-     * are different than nsave and psave, then the other parameters will be
-     * recomputed. RTK 2005-09-02 */
-
-    int has_binomial; /* !=0: following parameters initialized for
-                              binomial */
-    double psave;
-    long nsave;
-    double r;
-    double q;
-    double fm;
-    long m;
-    double p1;
-    double xm;
-    double xl;
-    double xr;
-    double c;
-    double laml;
-    double lamr;
-    double p2;
-    double p3;
-    double p4;
 
 }
 rk_state;