!====================================
! ctof.f90
! prompt for Celcius temperature
! print Fahrenheit value
!====================================
program ctof
  implicit none
  real :: c, f, fahrenheit

  print*,'Enter temperature in Celcius.'
  read*, c
  f = fahrenheit(c)
  print*,'Temperature = ', f, 'degrees Fahrenheit'

end program ctof