!
      PROGRAM P37
!
!
!     DECLARATIONS
!
      IMPLICIT NONE
      INTEGER :: AGE,WEIGHT,MARRGS
      CHARACTER (LEN=15) :: GROUP, NAME
      LOGICAL :: SINGLE,HEAVY
!
!
      PRINT *, 'This is Program >> P37  - Classification program'
!
!     Tell program where data for  READ *  is coming from
      OPEN(UNIT=5, FILE='P37.DAT')      ! UNIT=5 is the default input
!
!
!     MAIN STATEMENTS
!
         PRINT *,'CLASSIFICATION PROGRAM'
!
Loop1: DO
         PRINT * ,' '
         READ  * ,AGE,WEIGHT
!
         IF(AGE == 99)STOP  ! Yes == for testing in an IF
         HEAVY = .FALSE.    ! One = for an assignment statement
         IF(WEIGHT > 70) HEAVY=.TRUE.
!
!
!
         IF(AGE < 18)THEN
           GROUP='MINOR'
         ELSE IF(AGE < 35)THEN
           GROUP='PRIME YEARS'
         ELSE
           GROUP='MATURE'
         END IF
!
         READ * ,NAME
         READ *,SINGLE
!
         IF(SINGLE)THEN
           PRINT * ,NAME,' IS SINGLE'
         ELSE
           READ * ,MARRGS
           PRINT * ,NAME,'WAS MARRIED', &
           MARRGS,'TIMES'
         END IF
!
         PRINT * ,'SHE IS',AGE,'YEARS OLD'
         PRINT * ,'AND WEIGHS',WEIGHT,'KILOGRAMS'
         IF(HEAVY)PRINT * , &
            'AND SHOULD JOIN WEIGHT WATCHERS'
!
         PRINT * ,'AGE GROUP: ',GROUP
      END DO Loop1
      STOP
      END PROGRAM P37