fork download
  1. Program temp_conversion
  2. real::f,k
  3. read *,f
  4. k=(5./9.)*(f-32.)+273.15
  5. print *,k,'kelvins'
  6. end Program temp_conversion
Success #stdin #stdout 0.01s 5320KB
stdin
5
12
stdout
   258.149994     kelvins