/*
 * Copyright (C) 1994. James Darrell McCauley.  (darrell@mccauley-usa.com)
 *                                              http://mccauley-usa.com/
 *
 * This program is free software under the GPL (>=v2)
 * Read the file GPL.TXT coming with GRASS for details.
 */

#include <stdio.h>
#include <math.h>
#include <grass/gis.h>
#include <grass/glocale.h>
#include "zufall.h"

int normalsv(double *svbox)
{
    int i, k;
    extern struct klotz1 klotz1_1;

    /*
     * saves common block klotz0 containing buffers and pointers. IMPORTANT:
     * svbox must be dimensioned at least 1634 in driver. The entire
     * contents of blocks klotz0 (via zufallsv) and klotz1 must be saved.
     */

    /* Parameter adjustments */

    if (klotz1_1.first == 0)
	G_warning(_("normalsv: save of unitialized block"));

    /* save zufall block klotz0 */
    zufallsv(svbox);

    svbox[608] = (double)klotz1_1.first;
    svbox[609] = (double)klotz1_1.xptr;
    k = 609;
    for (i = 0; i < 1024; ++i)
	svbox[i + k] = klotz1_1.xbuff[i];

    return 0;
}				/* normalsv */
