#include <stdio.h>
#include <math.h>
#include "zufall.h"

/*
 * saves common blocks klotz0, containing seeds and pointer to position in
 * seed block. IMPORTANT: svblk must be dimensioned at least 608 in
 * driver. The entire contents of klotz0 (pointer in buff, and buff) must
 * be saved.
 */

int zufallsv(double *svblk)
{
    int i;
    extern struct klotz0 klotz0_1;

    svblk[0] = (double)klotz0_1.ptr;
    for (i = 0; i < 607; ++i)
        svblk[i + 1] = klotz0_1.buff[i];
    return 0;
} /* zufallsv */
