!
      PROGRAM P36
!
!     Nested IF blocks
!
      IMPLICIT NONE
      LOGICAL :: SINGLE
      CHARACTER (LEN=20) :: NAME
      INTEGER :: I,J,AGE,N,TAGE
      REAL :: AVE
!
!
      PRINT *, 'This is Program >> P36  - Nested IF blocks'
!
!     READ DATA
!
      READ *,I
!
      N=0
      TAGE=0.0
L1:      DO J=1,I
          READ * ,NAME,SINGLE,AGE
          PRINT * ,NAME,SINGLE,AGE
          IF(SINGLE)THEN
             N=N+1
             TAGE=TAGE+AGE
             IF(N  ==  5)THEN
                AVE=TAGE/5.0
                PRINT * ,'AVERAGE AGE OF ', &
                'FIRST FIVE SINGLES IS'
                PRINT * ,AVE
                STOP
             END IF
          END IF
      END DO L1
      STOP
      END PROGRAM P36