1 |
< |
/* Copyright (c) 1986 Regents of the University of California */ |
1 |
> |
/* Copyright (c) 1991 Regents of the University of California */ |
2 |
|
|
3 |
|
#ifndef lint |
4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
74 |
|
/* get dimensions */ |
75 |
|
if (fscanf(fp, "%d", &dp->nd) != 1) |
76 |
|
goto scanerr; |
77 |
< |
if (dp->nd <= 0 || dp->nd > MAXDIM) { |
77 |
> |
if (dp->nd <= 0 || dp->nd > MAXDDIM) { |
78 |
|
sprintf(errmsg, "bad number of dimensions for \"%s\"", dname); |
79 |
|
error(USER, errmsg); |
80 |
|
} |
299 |
|
i = (lower + upper) >> 1; |
300 |
|
if (pt[0] >= dp->dim[0].p[i]) |
301 |
|
lower = i; |
302 |
< |
else if (pt[0] < dp->dim[0].p[i]) |
302 |
> |
else |
303 |
|
upper = i; |
304 |
|
} while (i != (lower + upper) >> 1); |
305 |
< |
if (i < 0) |
306 |
< |
i = 0; |
307 |
< |
else if (i > dp->dim[0].ne - 2) |
305 |
> |
if (i > dp->dim[0].ne - 2) |
306 |
|
i = dp->dim[0].ne - 2; |
307 |
|
x = i + (pt[0] - dp->dim[0].p[i]) / |
308 |
|
(dp->dim[0].p[i+1] - dp->dim[0].p[i]); |