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

C  READ文で値を読みこむ。
      READ(5,*) T

C  Tを絶対温度に変換する。
      T = T + 273.15

C  飽和水蒸気圧を計算する。
C  EXPは指数関数である。
      ES = 611. * EXP (17.27 * (T-273.16) / (T-35.86))

C  結果を標準出力に書き出す。
C  飽和水蒸気圧の単位はPaなので、hPaに変換するために0.01倍する。
      WRITE(6,*) 'e_s [hPa] =', 0.01*ES

      STOP
      END