program temp_humidity
implicit none

real :: T,H,TK,RH !定义变量T，H，TK，RH

print*,"Please input the temperature and humidity:" !提示输入温度和湿度
read*,T,H !读取输入的温度和湿度

TK = T + 273.15 !将华氏温度转为开氏温度

RH = H/100exp(17.625(T-273.15)/(243.04+T-273.15)) !计算相对湿度

print*, "The temperature in Kelvin is:",TK !打印出开氏温度
print*, "The relative humidity is:",RH !打印出相对湿度
end program temp_humidity