%N logclose %F $MIR/src/subs/log.for
%D Finish up with the log file.
%P rjs
%: text-i/o, log-file
%B
        subroutine LogClose

        implicit none

  This completes access to the log file or terminal, and closes is it up.
  In case the logfile was '/printer', it sends that file to a printer
