SPOOLING SUBROUTINE

DEC provides a Macro to spool output to a line printer but the Macro
cannot be called directly from a Fortran program. This subroutine
(having file name SPOOL.FTN) allows spooling from within a Fortran
program.  In order to use the subroutine, a file must be opened which
will be written to during the course of the program.  The statement
for opening a file is: CALL ASSIGN(LUN,'NAME.DMP') Where LUN is the
logical unit number to be written to for any text that is later to be
spooled.  NAME is the name of the file.  Within the program each
write statement should be the same as if you were writing to a
terminal except the logical unit number as defined in the CALL ASSIGN
statement is used.  At the point in the program when spooling is
desired, include the statement: CALL SPOOL (LUN,[IERR]) where IERR is
an error number that you can look at or not depending on your mood.
We use an LA120 as the printer to spool to.  I assume that any
printer will work.  One MCR command that must be given before using
this subroutine is: ASN TTN:=LP: where N is the terminal number of
the printer.