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