%N trnini %F $MIR/src/subs/trnio.for
%D Initialise the transpose routines.
%: transpose, reorder
%P rjs
%B
        subroutine trnIni(lu,naxis,nsize,reorder)

        integer lu,naxis,nsize(naxis)
        character reorder*(*)

  Initialise the transpose routines.

  Inputs:
    naxis      The dimensionality of the image. Currently this must
               be 2 or 3.
    nsize      The size of each dimension in the image.
    reorder    String giving the reordering to be performed.
  Output:
    lu         Handle used internally.
