%N logwrit %F $MIR/src/subs/log.for
%D Write a line to the log file.
%P rjs
%: text-i/o, log-file
%B
        subroutine LogWrit(line)

        character line*(*)

  THIS ROUTINE IS DEPRECATED

  This writes a line to the log file or the users terminal.
  If LogOpen was called with option 'q', LogWrit stops the
  task if the user specifies 'quit' as answer.
  See also LogWrite.

  Input:
    line       Line to write.
