C Illustrates the basic IF statement

C Created:  Joe Zachary, October 19, 1992
C Modified:

      PROGRAM IFPROG
      IMPLICIT NONE
      INTEGER N

      PRINT *, 'Please enter an integer'
      READ *, N

      IF (N .GT. 0) THEN
         PRINT *, 'The number is positive'

      ELSEIF (N .LT. 0) THEN
         PRINT *, 'The number is negative'
         PRINT *, 'How about that!'

      ELSE
         PRINT *, 'The number is zero'
         PRINT *, 'I figured that out by elimination!'

      ENDIF

      STOP
      END