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

        implicit none
        character line*(*)
        logical more

  This writes a line to the log file or the users terminal.
  If LogOpen was called with option 'q' then LogWrite will
  return a .FALSE. value in more when the user specifies 'quit'.
  The applications program then has to take care of stopping.

  Input:
    line       Line to write.
  Output:
    more       Set to false if the user has had enough.
