| 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); |