25 int rows,
cols, depths, typeIntern;
35 else if ((fp = fopen(fname,
"w")) ==
NULL)
38 for (z = 0; z < depths; z++)
39 for (y = 0; y < rows; y++) {
40 fprintf(fp,
"z y x %d %d (%d - %d)\n", z, y, 0, cols - 1);
41 for (x = 0; x <
cols; x++) {
44 if (typeIntern == FCELL_TYPE)
45 fprintf(fp,
"%.18f ", *f1p);
47 fprintf(fp,
"%.50f ", d1);