◄Up► ◄Contents► ◄Index► ◄Back►
─────$ENDIF─────────────────────────────────────────────────────────────────
 
     Action
 
     Terminates a $IF block.
 
     Syntax  $ENDIF
 
     Remarks
 
     There must be a matching $ENDIF metacommand for every $IF
     metacommand in a program unit.
 
     Example
 
     $DEFINE  flag
     $DEFINE  testval = 3
     $IF DEFINED (flag)
           WRITE (*, '('' Compiled if all conditions met'')')
     $ENDIF
     .
     .
     .
     $IF (testval .LT. 1) .AND. .NOT. DEFINED (flag)
           WRITE (*, '('' This is compiled if flag .EQ. 3'')')
     $ELSE
           WRITE (*, '('' This is compiled if flag .NE. 3'')')
     $ENDIF
                                    -♦-