PROGRAM multiply2
!
!  Programmer:  Br. David Carlson
!
!  Date:  January 19, 2000
!
!  Revised:  May 2, 2004
!
!  Reference:  Fortran 90/95 by Chapman
!
!  This program has no input.  It merely prints the values of
!  the quotients and products shown below.

REAL::quotient, product

quotient = 1.0 / 3.0
product = 3.0 * quotient

WRITE (*,*) 'quotient = ', quotient
WRITE (*,*) 'product = ', product

quotient = 1.0 / 2.0
product = 2.0 * quotient

WRITE (*,*) 'quotient = ', quotient
WRITE (*,*) 'product = ', product

quotient = 444.0 / 603.0
product = 603.0 * quotient

WRITE (*,*) 'quotient = ', quotient
WRITE (*,*) 'product = ', product

END PROGRAM