298 |
|
nstarget = 1; |
299 |
|
} |
300 |
|
scolorblack(scol); |
301 |
< |
dimlist[ndims_inc] = (int)(size_t)wp->mtp; |
301 |
> |
dimlist[ndims_inc()] = (int)(size_t)wp->mtp; |
302 |
|
maxiter = MAXITER*nstarget; |
303 |
|
for (nstaken = ntrials = 0; (nstaken < nstarget) & |
304 |
|
(ntrials < maxiter); ntrials++) { |
347 |
|
scalescolor(scol, d); |
348 |
|
saddscolor(wp->rp->rcol, scol); |
349 |
|
} |
350 |
< |
dec_ndims; |
350 |
> |
dec_ndims(); |
351 |
|
} |
352 |
|
/* compute transmission */ |
353 |
|
if ((wp->specfl & (SP_TRAN|SP_TPURE|SP_TBLT)) == SP_TRAN && |
364 |
|
} else |
365 |
|
nstarget = 1; |
366 |
|
} |
367 |
< |
dimlist[ndims_inc] = (int)(size_t)wp->mtp; |
367 |
> |
dimlist[ndims_inc()] = (int)(size_t)wp->mtp; |
368 |
|
maxiter = MAXITER*nstarget; |
369 |
|
for (nstaken = ntrials = 0; (nstaken < nstarget) & |
370 |
|
(ntrials < maxiter); ntrials++) { |
371 |
|
if (ntrials) |
372 |
|
d = frandom(); |
373 |
|
else |
374 |
< |
d = urand(ilhash(dimlist,ndims)+1823+samplendx); |
374 |
> |
d = urand(ilhash(dimlist,ndims)+4337+samplendx); |
375 |
|
multisamp(rv, 2, d); |
376 |
|
d = 2.0*PI * rv[0]; |
377 |
|
cosp = tcos(d) * wp->ts.u_alpha; |
401 |
|
saddscolor(wp->rp->rcol, sr.rcol); |
402 |
|
++nstaken; |
403 |
|
} |
404 |
< |
dec_ndims; |
404 |
> |
dec_ndims(); |
405 |
|
} |
406 |
|
} |
407 |
|
|