k
= topfix() - thread
.iorg
;
k
= topfix() - thread
.iorg
;
if(k
< 0 || k
>= idx
.rank
)
p
= newdat(DA
, idx
.rank
, idx
.size
);
copy(IN
, idx
.dim
, p
->dim
, idx
.rank
);
param
[0] = alloc(idx
.dimk
*SINT
);
for(i
=0; i
<idx
.dimk
; i
++)
qsort(m
, idx
.dimk
, SINT
, param
[1]);
for(i
=0; i
<idx
.dimk
; i
++) {
datum
= *m
++ + thread
.iorg
;
p
->index
= integ
+ *p1
* idx
.delk
;
p
->index
= integ
+ *p2
* idx
.delk
;
p
->index
= integ
+ *p1
* idx
.delk
;
p
->index
= integ
+ *p2
* idx
.delk
;