!
      PROGRAM P31
!
!
!     Example to show use of logical variables
!
      IMPLICIT NONE
      INTEGER :: WEIGHT, AGE
      LOGICAL :: HEAVY,MINOR
!
!
      PRINT *, 'This is Program >> P31  - Logical Relations'
!
!
      READ * ,WEIGHT,AGE
      HEAVY=WEIGHT > 90
      MINOR=AGE <  18
      PRINT *,WEIGHT,HEAVY
      PRINT *,AGE,MINOR
      STOP
      END PROGRAM P31