!
      PROGRAM P22
!
!     INTRODUCTION TO READ
!
      IMPLICIT NONE
      INTEGER :: I,J,AGE,POUNDS,GRAMS
      REAL :: DAYS
      CHARACTER (LEN=15) :: NAME,ADDRESS
      LOGICAL :: SINGLE
!
!
      PRINT *, 'This is Program >> P22  - Read in some data'
!
! 
!     READ DATA
!
      READ *,I
!      
      DO J=1,I
         READ * ,AGE,POUNDS
         READ * ,NAME,ADDRESS
         READ * ,SINGLE
!
!     EXECUTABLE STATEMENTS
!
         GRAMS=POUNDS*254
         DAYS=AGE*365.25
!
!     PRINT DATA
!
      PRINT *,'NAME AND ADDRESS :'
      PRINT *, NAME,ADDRESS
      PRINT *,'AGE AND NUMBER OF DAYS :'
      PRINT *, AGE,DAYS
      PRINT *,'POUNDS AND GRAMS :'
      PRINT *, POUNDS,GRAMS
      PRINT *,'SINGLE :'
      PRINT *, SINGLE
      PRINT *,' '
!
!    
      END DO
      STOP
      END PROGRAM P22