! Program Example from "Essential Fortran 90 & 95" by Loren P. Meissner
! Copyright 1996. Copying for sale requires permission from the author.
! Otherwise, distribution is permitted if these three lines are included.

! Example P.7. (Catherine Spade, 11 October 1999)
!   Temperature Converter.
  program A07
    implicit none
    real, parameter :: T_SCALE = 1.8, OFFSET = 32.0
    real :: Fahr, Cels
! start program A07
    write (unit = *, fmt = *) " Please enter the Fahrenheit temperature. "
    read (unit = *, fmt = *) Fahr
    Cels = (Fahr - OFFSET) / T_SCALE
    write (unit = *, fmt = *) Fahr, " deg. F = ", Cels, " deg. C "
    stop
  end program A07

