i
= topfix() - thread
.iorg
;
register struct item
*p
, *q
;
* reduction identities - ets/jrl 5/76
error("reduce identity");
q
= newdat(idx
.type
, idx
.rank
, idx
.size
);
copy(IN
, idx
.dim
, q
->dim
, idx
.rank
);
dp
=+ access() + (idx
.dimk
-1) * idx
.delk
;
for(i
=1; i
<idx
.dimk
; i
++) {