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

  print*,'Enter temperature in Celcius.'
  read*, c
  f = (9.0/5.0)*c + 32.0
  print*,'Temperature = ', f, 'degrees Fahrenheit'

end program ctof