! 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.5. (Catherine Spade, 8 October 1999)
! Temperature Converter with Repetition.
  program A05
    implicit none
    integer, parameter :: LIMIT = 10
    real, parameter :: T_SCALE = 1.8, OFFSET = 32.0
    real :: Fahr, Cels
    integer :: Loop
! start program A05
    do Loop = 1, LIMIT
      write (unit = *, fmt = *) " Please enter Fahrenheit temperature ", Loop, ":"
      read (unit = *, fmt = *) Fahr
      Cels = (Fahr - OFFSET) / T_SCALE
      write (unit = *, fmt = *) Fahr, Cels
    end do
    stop
  end program A05
