|
@@ -47,6 +47,7 @@ int gaussurf(char *out, /* Name of raster maps to be opened. */
|
|
/****** PASS THROUGH EACH CELL ASSIGNING RANDOM VALUE ******/
|
|
/****** PASS THROUGH EACH CELL ASSIGNING RANDOM VALUE ******/
|
|
|
|
|
|
for (row_count = 0; row_count < nrows; row_count++) {
|
|
for (row_count = 0; row_count < nrows; row_count++) {
|
|
|
|
+ G_percent(row_count, nrows, 5);
|
|
for (col_count = 0; col_count < ncols; col_count++)
|
|
for (col_count = 0; col_count < ncols; col_count++)
|
|
*(row_out + col_count) =
|
|
*(row_out + col_count) =
|
|
(DCELL) (G_math_rand_gauss(2742, sigma) + mean);
|
|
(DCELL) (G_math_rand_gauss(2742, sigma) + mean);
|
|
@@ -54,7 +55,7 @@ int gaussurf(char *out, /* Name of raster maps to be opened. */
|
|
/* Write contents row by row */
|
|
/* Write contents row by row */
|
|
Rast_put_d_row(fd_out, (DCELL *) row_out);
|
|
Rast_put_d_row(fd_out, (DCELL *) row_out);
|
|
}
|
|
}
|
|
-
|
|
|
|
|
|
+ G_percent(1, 1, 1);
|
|
|
|
|
|
/****** CLOSE THE CELL FILE ******/
|
|
/****** CLOSE THE CELL FILE ******/
|
|
|
|
|