You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
48 lines
1.6 KiB
C
48 lines
1.6 KiB
C
#include "geostat.h"
|
|
#include <math.h>
|
|
#include <stdarg.h>
|
|
#include <stddef.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <time.h>
|
|
#include "chunk_array.h"
|
|
|
|
/* build_real */
|
|
/* build a realization in the spectral domain */
|
|
/*n: vector with the number of cells along the */
|
|
/* X, Y and Z axes for the underlying grid */
|
|
/* i = [0 1 2] */
|
|
/* --> 0 0 0 : n will be computed and */
|
|
/* updated as output */
|
|
/* --> nx ny nz: these dimensions are used */
|
|
/*covar: vector defining the covariance in spectral domain */
|
|
/*realization: vector defining the real part */
|
|
/*ireal: vector defining the i-part */
|
|
|
|
void build_real(int n[3], int NTOT, chunk_array_t* covar, chunk_array_t* realization, double* ireal, int cores) {
|
|
int i, j, k, maille1;
|
|
double temp;
|
|
|
|
chunk_array_read(realization);
|
|
|
|
/*decomposition and multiplication in the spectral domain*/
|
|
for (k = 1; k <= n[2]; k++) {
|
|
for (j = 1; j <= n[1]; j++) {
|
|
for (i = 1; i <= n[0]; i++) {
|
|
maille1 = i + (j - 1 + (k - 1) * n[1]) * n[0];
|
|
chunk_array_get(covar, maille1, &temp);
|
|
if (temp > 0.) {
|
|
temp = sqrt(temp) / (double)NTOT;
|
|
} else if (temp < 0.) {
|
|
temp = sqrt(-temp) / (double)NTOT;
|
|
}
|
|
double valuemaille1;
|
|
chunk_array_get(realization, maille1, &valuemaille1);
|
|
chunk_array_save(realization, maille1, temp * valuemaille1);
|
|
ireal[maille1] *= temp;
|
|
}
|
|
}
|
|
}
|
|
}
|