108 |
|
va++; /* compute direction */ |
109 |
|
for (j = 0; j < 3; j++) { |
110 |
|
nr.rdir[j] = evalue(va[j]); |
111 |
< |
if (errno == EDOM || errno == ERANGE) |
111 |
> |
if ((errno == EDOM) | (errno == ERANGE)) |
112 |
|
goto computerr; |
113 |
|
} |
114 |
|
if (mf->fxp != &unitxf) |
180 |
|
errno = 0; |
181 |
|
va = mf->ep + 4*n; |
182 |
|
coef = evalue(va[0]); |
183 |
< |
if (errno == EDOM || errno == ERANGE) |
183 |
> |
if ((errno == EDOM) | (errno == ERANGE)) |
184 |
|
goto computerr; |
185 |
|
if (coef <= FTINY) |
186 |
|
return(0); /* insignificant */ |
187 |
|
va++; |
188 |
|
for (i = 0; i < 3; i++) { |
189 |
|
newdir[i] = evalue(va[i]); |
190 |
< |
if (errno == EDOM || errno == ERANGE) |
190 |
> |
if ((errno == EDOM) | (errno == ERANGE)) |
191 |
|
goto computerr; |
192 |
|
} |
193 |
|
if (mf->fxp != &unitxf) |