! 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