%N trnwrite %F $MIR/src/subs/trnio.for
%D Write a plane pof the cube in its initial order.
%: transpose, reorder
%P rjs
%B
        subroutine trnwrite(lu,Data)

        integer lu
        real Data(*)

  The caller passes TrnWrite a plane of the input (initial ordered)
  cube.

  Input:
    lu         Trnio handle.
  Input/Output:
    Data       The pixel data of the plane. This should be a real array
               of size size(1,lu) by size(2,lu). This may be destroyed
               on output.
