Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real, | intent(in) | :: | TFahrenheit | Temperature in degree Fahrenheit |
Temperature in degree Rankine
function GetTRankineFromTFahrenheit(TFahrenheit) result(TRankine)
real, intent(in) :: TFahrenheit
!+ Temperature in degree Fahrenheit
real :: TRankine
!+ Temperature in degree Rankine
real :: ZERO_FAHRENHEIT_AS_RANKINE
!+ Zero degree Fahrenheit (°F) expressed as degree Rankine (°R)
ZERO_FAHRENHEIT_AS_RANKINE = 459.67
TRankine = TFahrenheit + ZERO_FAHRENHEIT_AS_RANKINE
end function GetTRankineFromTFahrenheit