%N txtclose %F $MIR/src/subs/txtio.for
%D Close a text file
%P rjs
%: text-files, text-i/o
%B
        subroutine txtclose(lu)

        implicit none
        integer lu

  TxtClose closes a text file.

  Input:
    lu         The handle of the text file
