P21.F90

!
! =====> Program - P21.F90
!
!
!     DECLARATION STATEMENTS
!
      INTEGER AGE,POUNDS,GRAMS
      REAL DAYS
      CHARACTER (LEN=20) :: NAME,ADDRESS
      LOGICAL SINGLE
!
!     EXECUTABLE STATEMENTS
!
!
      PRINT *, 'This is Program >> P21  - Assignment Statement'

!
      AGE=19
      POUNDS=105
      GRAMS=POUNDS*454
      DAYS=AGE*365.25
      NAME='JANE'
      ADDRESS='123 MAIN STREET'
      SINGLE=.TRUE.
!
!     PRINTING STATEMENTS
!
      PRINT *, NAME,ADDRESS
      print *, AGE,DAYS
      print *, POUNDS,GRAMS
      end

OUTPUT:
Program entered
 This is Program >> P21  - Assignment Statement
 JANE                123 MAIN STREET     
 19   6.9397500E+03
 105 47670

Page builder: Charles Boivin

Last modified: 11/07/95