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
UFJPR1JBTSBUZW1wZXJhdHVyZV9Db252ZXJzaW9uCiEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCiEgUHJvZ3JhbSB0byBjb252ZXJ0IGEgdGVtcGVyYXR1cmUgb24gdGhlIENlbHNpdXMgY2FsZSB0byB0aGUKISBjb3JyZXNwb25kaW5nIHRlbXBlcmF0dXJlIG9uIHRoZSBGYWhlbmhlaXQgc2NhbGUuCiEgVmFyaWFibGVzIHVzZWQgYXJlOgohICAgQ2Fsc2l1cyAgIDogIHRlbXBlcmF0dXJlIG9uIHRoZSBDYWxzaXVzIHNjYWxlCiEgICBGYWhyZW5oZWl0IDogdGVtcGVyYXR1cmUgb24gdGhlIEZhaGVuaGVpdCBzY2FsZQohCiEgSW5wdXQ6ICBDZWxzaXVzCiEgT3V0cHV0OiBGYWhyZW5oZWl0CiEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCgpJTVBMSUNJVCBOT05FClJFQUwgOjogQ2Vsc2l1cywgRmFocmVuaGVpdAoKISBPYnRlaW4gQ2Vsc2l1cyB0ZW1wZXJhdHVyZQpQUklOVCAqLCAiRW50ZXIgdGVtcGVyYXR1cmUgaW4gZGVncmVlcyBDZWxzaXVzOiIKUkVBRCAqLCBDZWxzaXVzCgohIENhbGN1bGF0ZSBjb3JyZXNwb25kaW5nIEZhaHJlbmhlaXQgdGVtcGVyYXR1cmUKRmFocmVuaGVpdCA9IDEuOCAqIENlbHNpdXMgKyAzMi4wCgohIERpc3BsYXkgdGVtcGVyYXR1cmVzClBSSU5UICosIENlbHNpdXMsICJkZWdyZWVzIENlbHNpdXMgPSIsICYKICAgICAgICBGYWhyZW5oZWl0LCAiZGVncmVlcyBGYWhyZW5oZWl0IgoKRU5EIFBST0dSQU0gVGVtcGVyYXR1cmVfQ29udmVyc2lvbgo=