GetTFahrenheitFromTRankine Function

  function GetTFahrenheitFromTRankine(TRankine) result(TFahrenheit)
    !+ Utility function to convert temperature to degree Fahrenheit (°F)
    !+ given temperature in degree Rankine (°R).
    !+ Reference: ASHRAE Handbook - Fundamentals (2017) ch. 1 section 3

    real, intent(in)  :: TRankine
      !+ Temperature in degree Rankine
    real              :: TFahrenheit
      !+ Temperature in degree Fahrenheit

    TFahrenheit = TRankine - ZERO_FAHRENHEIT_AS_RANKINE
  end function GetTFahrenheitFromTRankine