HP 3000 Manuals

HP FORTRAN 77/iX Reference

SET Directive 

The SET directive assigns values to identifiers used in IF directives.

Syntax 

$SET ( flag1 = {.TRUE. } [, flag2 = {.TRUE. }][...] )
               {.FALSE.} [          {.FALSE.}]

flag          is one or more identifiers given logical constant values.

              The identifiers in SET and IF compiler directives are in no
              way related to FORTRAN variables in the source text.  That
              is, if the same variable name is used both as an identifier
              for one of these directives and elsewhere within a program,
              the one has no effect upon the other.

Default               None.

Location              The SET directive can appear anywhere within a
                      program unit.

Toggling/ Duration    The identifier retains its value until changed by
                      another SET directive.

Examples 

     $SET (TOGGLE=.TRUE.,DEBUG=.FALSE.)
     $SET (SYSTEM1=.TRUE.)

MPE/iX 5.0 Documentation