| 274 |
|
if (mp == NULL) /* not in our list? */ |
| 275 |
|
return; |
| 276 |
|
|
| 277 |
< |
worldfunc(RCCONTEXT, r); /* else get bin number */ |
| 278 |
< |
if (mp->params != last_params) |
| 277 |
> |
worldfunc(RCCONTEXT, r); /* else set context */ |
| 278 |
> |
if ((mp->params != NULL) & (mp->params != last_params) && |
| 279 |
> |
(last_params == NULL || strcmp(mp->params, last_params))) |
| 280 |
|
set_eparams(last_params = (char *)mp->params); |
| 281 |
< |
if ((bval = evalue(mp->binv)) <= -.5) |
| 282 |
< |
return; /* silently ignore */ |
| 281 |
> |
if ((bval = evalue(mp->binv)) <= -.5) /* and get bin number */ |
| 282 |
> |
return; /* silently ignore negatives */ |
| 283 |
|
if ((bn = (int)(bval + .5)) >= mp->nbins) { |
| 284 |
|
error(WARNING, "bad bin number (ignored)"); |
| 285 |
|
return; |