! 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.3. (Catherine Spade, 6 October 1999)
!   Temperature Converter.
  program A03
    implicit none
    real, parameter :: T_SCALE = 1.8, OFFSET = 32.0  ! named constants
    real :: Fahr, Cels  ! type declaration
! start program A03
    read (unit = *, fmt = *) Fahr  ! input
    Cels = (Fahr - OFFSET) / T_SCALE  ! assignment
    write (unit = *, fmt = *) Fahr, Cels  ! output
    stop
  end program A03

