change access

fftma_module/gen/lib_src/build_real.c

@@ -25,9 +25,9 @@ void build_real(int n[3], int NTOT, chunk_array_t* covar, chunk_array_t* realiza
     double temp;
 
     /*decomposition and multiplication in the spectral domain*/
-    for (i = 1; i <= n[0]; i++) {
     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.) {

fftma_module/gen/lib_src/clean_real.c

@@ -25,9 +25,9 @@ void clean_real(struct realization_mod* realin, int n[3], struct grid_mod grid,
 
     realout->n = realin->n;
     realout->code = 1;
-    for (i = 1; i <= grid.NX; i++) {
     for (k = 1; k <= grid.NZ; k++) {
         for (j = 1; j <= grid.NY; j++) {
+            for (i = 1; i <= grid.NX; i++) {
                 maille1 = i + (j - 1 + (k - 1) * n[1]) * n[0];
                 maille0 = i - 1 + (j - 1 + (k - 1) * grid.NY) * grid.NX;
                 /* Modif du 18 juin 2003 */