#include #include #include #include #include #include #include #include "Py_py-api.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 Py_kgeneration(long seed,struct grid_mod grid,struct statistic_mod stat,struct vario_mod variogram,struct realization_mod *Z,struct realization_mod *Y,struct realization_mod *Y1, int n[3]) { int i,N; int typelog; /*generate Gaussian white noise*/ N = grid.NX*grid.NY*grid.NZ; n[0] = 0; n[1] = 0; n[2] = 0; generate(&seed,N,Z); /*save the Gaussian white noise file*/ // if (*gwnwrite == 0) // { // writefile(filename[0],Z); // } /*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); } return; }