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

        implicit none
        integer lu,iostat
        character name*(*),status*(*)

  This opens a text file for either reading or writing.

  Inputs:
    name       Name of the file to be opened.
    status     Either 'old','new' or 'append'.
  Output:
    lu         A handle used to access the file.
    iostat     Completion code. A zero value indicates success. Other
               values are system dependent.
