20#include <grass/config.h>
26#include <grass/glocale.h>
27#include <grass/interpf.h>
41 static FCELL *array_cell =
NULL;
44 array_cell = G_malloc(
sizeof(FCELL) * params->
nsizc + 1);
46 for (j = ngstc; j <= nszc; j++)
47 array_cell[j - 1] = (FCELL)params->
az[j];
49 if (!fwrite(array_cell + ngstc - 1,
sizeof(FCELL), nszc - ngstc + 1,
54 for (j = ngstc; j <= nszc; j++)
56 array_cell[j - 1] = (FCELL)params->
adx[j];
58 array_cell[j - 1] = (FCELL)(params->
adx[j] * params->
scik1);
60 if (!fwrite(array_cell + ngstc - 1,
sizeof(FCELL), nszc - ngstc + 1,
65 for (j = ngstc; j <= nszc; j++) {
67 if (params->
ady[j] > 0. && params->
ady[j] < 0.5)
68 params->
ady[j] = 360.;
69 array_cell[j - 1] = (FCELL)params->
ady[j];
72 array_cell[j - 1] = (FCELL)(params->
ady[j] * params->
scik1);
75 if (!fwrite(array_cell + ngstc - 1,
sizeof(FCELL), nszc - ngstc + 1,
80 for (j = ngstc; j <= nszc; j++) {
81 array_cell[j - 1] = (FCELL)(params->
adxx[j] * params->
scik1);
84 if (!fwrite(array_cell + ngstc - 1,
sizeof(FCELL), nszc - ngstc + 1,
89 for (j = ngstc; j <= nszc; j++)
90 array_cell[j - 1] = (FCELL)(params->
adyy[j] * params->
scik2);
92 if (!fwrite(array_cell + ngstc - 1,
sizeof(FCELL), nszc - ngstc + 1,
97 for (j = ngstc; j <= nszc; j++)
98 array_cell[j - 1] = (FCELL)(params->
adxy[j] * params->
scik3);
100 if (!fwrite(array_cell + ngstc - 1,
sizeof(FCELL), nszc - ngstc + 1,
void G_fatal_error(const char *msg,...)
Print a fatal error message to stderr.
void G_fseek(FILE *fp, off_t offset, int whence)
Change the file position of the stream.
int IL_write_temp_2d(struct interp_params *params, int ngstc, int nszc, off_t offset2)