| 38 |
|
static gethfunc headaspect; |
| 39 |
|
|
| 40 |
|
|
| 41 |
< |
extern DATARRAY * |
| 41 |
> |
DATARRAY * |
| 42 |
|
getdata( /* get data array dname */ |
| 43 |
|
char *dname |
| 44 |
|
) |
| 46 |
|
char *dfname; |
| 47 |
|
FILE *fp; |
| 48 |
|
int asize=0; |
| 49 |
< |
register int i, j; |
| 50 |
< |
register DATARRAY *dp; |
| 49 |
> |
int i, j; |
| 50 |
> |
DATARRAY *dp; |
| 51 |
|
/* look for array in list */ |
| 52 |
|
for (dp = dtab[hash(dname)]; dp != NULL; dp = dp->next) |
| 53 |
|
if (!strcmp(dname, dp->name)) |
| 159 |
|
} |
| 160 |
|
|
| 161 |
|
|
| 162 |
< |
extern DATARRAY * |
| 162 |
> |
DATARRAY * |
| 163 |
|
getpict( /* get picture pname */ |
| 164 |
|
char *pname |
| 165 |
|
) |
| 172 |
|
RESOLU inpres; |
| 173 |
|
RREAL loc[2]; |
| 174 |
|
int y; |
| 175 |
< |
register int x, i; |
| 176 |
< |
register DATARRAY *pp; |
| 175 |
> |
int x, i; |
| 176 |
> |
DATARRAY *pp; |
| 177 |
|
/* look for array in list */ |
| 178 |
|
for (pp = dtab[hash(pname)]; pp != NULL; pp = pp->next) |
| 179 |
|
if (!strcmp(pname, pp->name)) |
| 258 |
|
} |
| 259 |
|
|
| 260 |
|
|
| 261 |
< |
extern void |
| 261 |
> |
void |
| 262 |
|
freedata( /* release data array reference */ |
| 263 |
|
DATARRAY *dta |
| 264 |
|
) |
| 265 |
|
{ |
| 266 |
|
DATARRAY head; |
| 267 |
|
int hval, nents; |
| 268 |
< |
register DATARRAY *dpl, *dp; |
| 269 |
< |
register int i; |
| 268 |
> |
DATARRAY *dpl, *dp; |
| 269 |
> |
int i; |
| 270 |
|
|
| 271 |
|
if (dta == NULL) { /* free all if NULL */ |
| 272 |
|
hval = 0; nents = TABSIZ; |
| 295 |
|
} |
| 296 |
|
|
| 297 |
|
|
| 298 |
< |
extern double |
| 298 |
> |
double |
| 299 |
|
datavalue( /* interpolate data value at a point */ |
| 300 |
< |
register DATARRAY *dp, |
| 300 |
> |
DATARRAY *dp, |
| 301 |
|
double *pt |
| 302 |
|
) |
| 303 |
|
{ |
| 304 |
|
DATARRAY sd; |
| 305 |
|
int asize; |
| 306 |
|
int lower, upper; |
| 307 |
< |
register int i; |
| 307 |
> |
int i; |
| 308 |
|
double x, y0, y1; |
| 309 |
|
/* set up dimensions for recursion */ |
| 310 |
|
if (dp->nd > 1) { |