78 |
|
/* get dimensions */ |
79 |
|
if (fgetval(fp, 'i', (char *)&asize) <= 0) |
80 |
|
goto scanerr; |
81 |
< |
if (asize <= 0 | asize > MAXDDIM) { |
81 |
> |
if ((asize <= 0) | (asize > MAXDDIM)) { |
82 |
|
sprintf(errmsg, "bad number of dimensions for \"%s\"", dname); |
83 |
|
error(USER, errmsg); |
84 |
|
} |
267 |
|
head.next = dtab[hval]; |
268 |
|
dpl = &head; |
269 |
|
while ((dp = dpl->next) != NULL) |
270 |
< |
if ((dta == NULL | dta == dp)) { |
270 |
> |
if ((dta == NULL) | (dta == dp)) { |
271 |
|
dpl->next = dp->next; |
272 |
|
if (dp->type == DATATY) |
273 |
|
free((void *)dp->arr.d); |