C  入力を求めるメッセージを標準出力に書き出す。
      WRITE(6,*) 'Temperature [deg.C]?'

C  READ文で値を読みこむ。
C  標準入力から読みこむ場合は機番として5を指定する。
C  *は書式の指定がないことを示す。
C  ここでは、読み込んだ値を変数Tに代入する。
C  特に宣言しない場合、
C  IからNで始まる変数名は整数、それ以外は実数になる。
      READ(5,*) T

C  Tに273.15を加える。
C  つまり、T + 273.15の値をTに代入する。
      T = T + 273.15

C  結果を標準出力に書き出す。
      WRITE(6,*) 'Temperature [K] =', T

      STOP
      END