! ! =====> Program - P22.F90 ! ! ! INTRODUCTION TO READ ! INTEGER AGE,POUNDS,GRAMS REAL DAYS CHARACTER (LEN=15) :: NAME,ADDRESS LOGICAL SINGLE ! ! PRINT *, 'This is Program >> P22 - Read in some data' ! ! Tell program where data for READ * is coming from OPEN(UNIT=5, FILE='P22.DAT') ! UNIT=5 is the default input ! ! ! READ DATA ! DO READ * ,AGE,POUNDS READ * ,NAME,ADDRESS READ * ,SINGLE ! ! EXECUTABLE STATEMENTS ! GRAMS=POUNDS*254 DAYS=AGE*365.25 ! ! PRINT DATA ! PRINT * ,NAME,ADDRESS PRINT * ,AGE,DAYS PRINT * ,POUNDS,GRAMS PRINT * ,SINGLE ! ! REPEAT ! END DO END DATA: 19 105 'Jane ' '123 Main street ' T 36 185 'Michael ' '105 Greene ave' F OUTPUT: Program entered This is Program >> P22 - Read in some data Jane 123 Main street 19 6.9397500E+03 105 26670 T Michael 105 Greene ave 36 1.3149000E+04 185 46990 F End of file on unit 5 Program terminated by fatal I/O error
Page builder: Charles Boivin
Last modified: 11/07/95