Bitonic Sort

for i = 0 to d -1

for j = i downto 0

if (i + 1)st bit of iproc <> jth bit of iproc

comp_exchange_max(j, item)

else

comp_exchange_min(j, item)

endif

endfor

comp_exchange_max and comp_exchange_min compare and

exchange the item with the neighbor on the jth dimension