<!-- hamlet
<!-- copytar
examples/                                                                                              755    1107     770            0  5477466170   5725                                                                                                                                                                                                                                                                                                                                                                      examples/logic1.f                                                                                      644    1107     770          570  5477466170   7321                                                                                                                                                                                                                                                                                                                                                                      C Illustrates the "logical" IF statement

C Created:  Joe Zachary, November 4, 1992
C Modified: 


      PROGRAM SAMPLE

      IMPLICIT NONE
      INTEGER N

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

      IF (N .LT. 0) THEN
         PRINT *, 'The number is negative'
      ENDIF

      IF (MOD(N,2) .EQ. 0) PRINT *, 'The number is even'

      STOP
      END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        