%N trnread %F $MIR/src/subs/trnio.for
%D Read back a plane of the reordered cube.
%: transpose, reorder
%P rjs
%B
        subroutine trnread(lu,Data)

        integer lu
        real Data(*)

  TrnRead reads back a plane of the reordered cube.

  Input:
    lu
  Output:
    Data
