Block 2200
( workload-0.4th - mat transpose )
: TRANSPOSE-CHUNK
  64 0 DO
    64 0 DO
      I 8 * J +      ( index1 )
      J 8 * I +      ( index2 )
      + DROP
    LOOP
  LOOP
;
Block 2201
: RUN-TRANSPOSE
  256 0 DO
    TRANSPOSE-CHUNK 46 EMIT
  LOOP
;
( FABRIC-3.8 3.9: defs only; the DoE SENDs WL-RUN )
: WL-RUN TRANSPOSE-CHUNK RUN-TRANSPOSE RUN-TRANSPOSE ;