#include <stdio.h>
#include <stddef.h>
#include <string.h>
#include <stdarg.h>
#include <stdlib.h>
#include "genlib.h"
#include "simpio.h"
#include "geostat.h"
#include "toolsIO.h"
#include "toolsFFTMA.h"

/* kgeneration   */
/* Z is the GWN with 0-mean and 1-variance */
/* Y1  is the realization with 0-mean and variance wanted */
/* Y is the realization with mean and variance wanted */

void  kgeneration2(long seed,struct grid_mod grid,struct statistic_mod stat,struct vario_mod variogram,string filename[7],struct realization_mod *Z,struct realization_mod *Y,struct realization_mod *Y1, int n[3], int *genere, int *gwnwrite, struct realization_mod *gwnoise,int *format_file)
   {
     int i,N;
     int typelog;
     string file1,file2;

     /*generate Gaussian white noise*/
      N = grid.NX*grid.NY*grid.NZ;
      n[0] = 0;
      n[1] = 0;
      n[2] = 0;
      printf("\n\n\n");

      switch (*genere)
	{
	case 0:
	  generate(&seed,N,Z);
	  /*save the Gaussian white noise file*/
	  if (*gwnwrite == 0)
	    {
	      writefile(filename[0],Z);
	    }
	  break;
	case 1:
	  (*Z).vector=(double *) malloc(N*sizeof(double));
	  (*Z).n = N;
	  for (i=0;i<N;i++)
	    {
	      (*Z).vector[i]=(*gwnoise).vector[i];
	    }
	  break;
	}

      /*FFTMA*/
      FFTMA2(variogram,grid,n,Z,Y);

      /*add the statistics*/
      if (stat.mean[0] != 0 || stat.variance[0]!= 1)
	addstat2(Y,stat,Y1,Y);

      /* make a log normal realization */
      if (stat.type==1 || stat.type==2){

	typelog=stat.type+2;
	/* nor2log(Y1,typelog,Y1); */
	nor2log(Y,typelog,Y);
      }

      switch (*format_file)
	{
	case 0:
	  writefile(filename[1],Y);
	  break;
	case 1:
	  writefile_bin(filename[1],Y);
	  break;
	}

      return;
   }