FORTRAN Reference Manual

Compiler Directives
FORTRAN Reference Manual—528615-001
10-63
SOURCE Compiler Directive
Considerations
•
Write the SETTOG directive as the last item on a directive line.
•
If you do not specify any toggle numbers, the SETTOG directive sets all 15
toggles.
•
The compiler initially resets all toggles.
•
Use the SETTOG and RESETTOG directives with the IF, IFNOT, and ENDIF
directives to control conditional compilation.
Example
?SETTOG 1,2,5
SOURCE Compiler Directive
The SOURCE directive causes the compiler to read source lines from the specified file,
either from the beginning of the file to the end of the file, or from the start of a specified
section in the file to the end of the section.
file-name
is the name of a file containing FORTRAN source code. If there are no section
names, the file name can be a process, $RECEIVE, a disk file, a terminal, a
magnetic tape (unlabeled and unblocked only), or a DEFINE name. Disk files can
be structured, unstructured, or EDIT format. If a section name, or a list of section
names, is specified, file-name must be a disk file. The compiler uses the current
default system, volume, and subvolume names for corresponding items omitted
from the file name.
section
is the declared name of a section in file-name. A section name can be 1 to 31
characters and can be a combination of A through Z, 0 through 9, and the special
characters circumflex (^), hyphen (-), and underscore (_). The first character of the
name must be a letter.
Considerations
When the compiler has finished reading source lines from the specified file, it resumes
reading source lines from the current file.
•
The referenced source file can include other SOURCE directives, up to a
maximum nesting depth of six levels.
SOURCE file-name [ ( section [, section ]... ) ]