| 394 |
|
nstarget = 1; |
| 395 |
|
} |
| 396 |
|
scolorblack(scol); |
| 397 |
< |
dimlist[ndims_inc] = (int)(size_t)np->mp; |
| 397 |
> |
dimlist[ndims_inc()] = (int)(size_t)np->mp; |
| 398 |
|
maxiter = MAXITER*nstarget; |
| 399 |
|
for (nstaken = ntrials = 0; nstaken < nstarget && |
| 400 |
|
ntrials < maxiter; ntrials++) { |
| 439 |
|
scalescolor(scol, d); |
| 440 |
|
saddscolor(np->rp->rcol, scol); |
| 441 |
|
} |
| 442 |
< |
ndims--; |
| 442 |
> |
dec_ndims(); |
| 443 |
|
} |
| 444 |
|
/* compute transmission */ |
| 445 |
|
copyscolor(sr.rcoef, np->mcolor); /* modified by color */ |
| 458 |
|
} else |
| 459 |
|
nstarget = 1; |
| 460 |
|
} |
| 461 |
< |
dimlist[ndims_inc] = (int)(size_t)np->mp; |
| 461 |
> |
dimlist[ndims_inc()] = (int)(size_t)np->mp; |
| 462 |
|
maxiter = MAXITER*nstarget; |
| 463 |
|
for (nstaken = ntrials = 0; nstaken < nstarget && |
| 464 |
|
ntrials < maxiter; ntrials++) { |
| 489 |
|
saddscolor(np->rp->rcol, sr.rcol); |
| 490 |
|
++nstaken; |
| 491 |
|
} |
| 492 |
< |
ndims--; |
| 492 |
> |
dec_ndims(); |
| 493 |
|
} |
| 494 |
|
} |