static void WrRan2 (void *vsta)
{
Ran2_state *state = vsta;
int i;
if (unif01_WrLongStateFlag) {
printf (" S1 = %1ld, S2 = %1ld\n\n", state->S1, state->S2);
for (i = 1; i <= N_TAB; i++) {
printf (" Tab [%2d] = %12ld\n", i, state->Tab[i]);
}
} else
unif01_WrLongStateDef ();
}
static void WrCA90mp (void *vsta)
{
CA90mp_state *state = vsta;
int j;
if (unif01_WrLongStateFlag) {
printf (" S = {\n ");
for (j = 1; j <= state->m; j++)
printf (" %1d", state->Cell[j]);
printf (" }\n");
} else
unif01_WrLongStateDef ();
}
static void WrDX02a (void *vsta)
{
DX02_state *state = vsta;
unsigned int j;
int s = state->s & MASK1;
if (unif01_WrLongStateFlag || (state->K < 8)) {
printf (" S = {\n ");
for (j = 0; j < state->K; j++) {
printf (" %12.0f", state->X[s]);
if (--s < 0)
s = MASK1;
if (j < state->K - 1)
printf (",");
if ((j % 5) == 4)
printf ("\n ");
};
printf (" }\n");
} else
unif01_WrLongStateDef ();
}
