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 degroos Celsius:"
READ *, Celsius
 
! Calculate corresponding Fahrenheit temperature
Fahrenheit = 1.8 * Celsus + 32.0
 
! Display temperatures
PRINT *, Celsius, "degrees Celsius =", &
        Fahrenheit, "degrees Fahrenheit"
 
END PROGRAM Tempoerature_Conversion
~
 

UFJPR1JBTSBUZW1wZXJhdHVyZV9Db252ZXJzaW9uCiEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCiEgUHJvZ3JhbSB0byBjb252ZXJ0IGEgdGVtcGVyYXR1cmUgb24gdGhlIENlbHNpdXMgY2FsZSB0byB0aGUKISBjb3JyZXNwb25kaW5nIHRlbXBlcmF0dXJlIG9uIHRoZSBGYWhlbmhlaXQgc2NhbGUuCiEgVmFyaWFibGVzIHVzZWQgYXJlOgohICAgQ2Fsc2l1cyAgIDogIHRlbXBlcmF0dXJlIG9uIHRoZSBDYWxzaXVzIHNjYWxlCiEgICBGYWhyZW5oZWl0IDogdGVtcGVyYXR1cmUgb24gdGhlIEZhaGVuaGVpdCBzY2FsZQohCiEgSW5wdXQ6ICBDZWxzaXVzCiEgT3V0cHV0OiBGYWhyZW5oZWl0CiEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCgpJTVBMSUNJVCBOT05FClJFQUwgOjogQ2Vsc2l1cywgRmFocmVuaGVpdAoKISBPYnRlaW4gQ2Vsc2l1cyB0ZW1wZXJhdHVyZQpQUklOVCAqLCAiRW50ZXIgdGVtcGVyYXR1cmUgaW4gZGVncm9vcyBDZWxzaXVzOiIKUkVBRCAqLCBDZWxzaXVzCgohIENhbGN1bGF0ZSBjb3JyZXNwb25kaW5nIEZhaHJlbmhlaXQgdGVtcGVyYXR1cmUKRmFocmVuaGVpdCA9IDEuOCAqIENlbHN1cyArIDMyLjAKCiEgRGlzcGxheSB0ZW1wZXJhdHVyZXMKUFJJTlQgKiwgQ2Vsc2l1cywgImRlZ3JlZXMgQ2Vsc2l1cyA9IiwgJgogICAgICAgIEZhaHJlbmhlaXQsICJkZWdyZWVzIEZhaHJlbmhlaXQiCgpFTkQgUFJPR1JBTSBUZW1wb2VyYXR1cmVfQ29udmVyc2lvbgp+Cg==