GetTRankineFromTFahrenheit Function

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

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

    TRankine = TFahrenheit + ZERO_FAHRENHEIT_AS_RANKINE
  end function GetTRankineFromTFahrenheit