53
48
for (j = 0; j < 4; j++) {
55
51
G_set_null_value(obufptr, 1, cell_type);
60
57
/* do the interpolation */
64
61
for (i = 0; i < 4; i++) {
67
val[i] = G_interp_cubic(t, *tmp[0], *tmp[1], *tmp[2], *tmp[3]);
63
val[i] = G_interp_cubic(t, tmp[0], tmp[1], tmp[2], tmp[3]);
70
66
result = G_interp_cubic(u, val[0], val[1], val[2], val[3]);