%N txtread %F $MIR/src/subs/txtio.for
%D Read a line from a text file
%P rjs
%: text-files, text-i/o
%B
        subroutine txtread(lu,string,length,iostat)

        implicit none
        integer lu,length,iostat
        character string*(*)

  TxtRead reads a line from a text file.

  Input:
    lu         The handle of the text file.
  Output:
    string     The string read.
    length     The number of characters read.
    iostat     I/O completion code. Zero indicates success, -1 indicates
               end-of-file, other values indicate an error.
