PROGRAM Temperature_Conversion
!----------------------------------------------------------------------------------------------
! Program to convert a temperature on the Celsius cale to the
! corresponding temperature on the Fahenheit scale.
! Variables used are:
!   Calsius   :  temperature on the Calsius scale
!   Fahrenheit : temperature on the Fahenheit scale
!
! Input:  Celsius
! Output: Fahrenheit
!----------------------------------------------------------------------------------------------

IMPLICIT NONE
REAL :: Celsius, Fahrenheit

! Obtein Celsius temperature
PRINT *, "Enter temperature in degrees Celsius:"
READ *, Celsius

! Calculate corresponding Fahrenheit temperature
Fahrenheit = 1.8 * Celsius + 32.0

! Display temperatures
PRINT *, Celsius, "degrees Celsius =", &
        Fahrenheit, "degrees Fahrenheit"

END PROGRAM Temperature_Conversion