P22.F90

!
! =====> 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
Come back to the previous page
Page builder: Charles Boivin
Last modified: 11/07/95