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,