FORTRAN Reference Manual

Program Compilation
FORTRAN Reference Manual—528615-001
9-5
TACL PARAM Commands
When the list file is a magnetic tape or any kind of disk file, the compiler writes each
line beginning with a control character (0 to skip a line, 1 to start a new page, and so
forth) according to the FORTRAN 77 ANSI standard. You can print such a file correctly
by sending it to the spooler with a FORTRAN program such as the following:
INTEGER max rec, rec len
CHARACTER * 132 line
1 FORMAT (A)
OPEN (5, ACCESS = 'SEQUENTIAL', FORM = 'FORMATTED',
X MODE = 'INPUT', PROTECT = 'PROTECTED')
OPEN (6, ACCESS = 'SEQUENTIAL', FORM = 'FORMATTED',
X MODE = 'OUTPUT', PROTECT = 'EXCLUSIVE')
INQUIRE (5, RECL = max rec)
10 READ (5, 1, END = 30, LENGTH = rec len) line (1: max rec)
WRITE (6, 1) line (1: rec len)
GO TO 10
30 STOP
END
TACL PARAM Commands
Before you execute the FORTRAN compiler, you can enter TACL PARAM commands
that alter compile-time attributes of the FORTRAN compiler. Table 9-1 lists the compile-
time PARAMs recognized by FORTRAN and shows how they affect your compilation.
Table 9-1. PARAM Commands
PARAM Effect
OUTWIDTH n Specifies the number of columns to write to your program’s listing
file.
SAMECPU Specifies whether to force processes started by the FORTRAN
compiler to run in the same CPU as the compiler.
SWAPVOL volume Specifies the name of the volume that the compiler uses for
temporary files.