%N logopen %F $MIR/src/subs/log.for
%D Initialise the log file routines.
%P rjs
%: text-i/o, log-file
%B
        subroutine LogOpen(name,flags)

        implicit none
        character name*(*),flags*(*)

  This initialises the log file routines, and opens an output log file.

  Inputs:
    name       Name of the file to open. If this is blank, then output
               is directed to the users terminal. If the name is '/printer'
               at closing (LogClose) the file is sent to printer
    flags      A parameter giving additional options to the routine. This
               consists of a character string, with each character signifying
               some particular option. Possible values are:
                ' '    Just write every to output device on every call
                       to logwrite.
                'q'    Query. If the output is a terminal, after every
                       22 lines, the user is queried if he/she wants to
                       continue. See also documentation of LogWrite and
                       LogWrit.                        
