%N trnfin %F $MIR/src/subs/trnio.for
%D Release the resources used by the trn routines.
%: transpose, reorder
%P rjs
%B
        subroutine trnfin(lu)

        integer lu

  Release the resources allocated by the trnio routines.

  Input:
    lu         Handle used by the trnio routines.
