program wind_chill
double precision T, V, TWC
print *," Air Temperature in degrees Fahrenheit: "
read *, T
print *," Wind Speed in miles per hour: "
read *, V
TWC = T
if (V .gt. 3.) then
TWC = 35.74 + 0.6215*T - 35.75*V**0.16 + 0.4275*T*V**0.16
end if
print *,"The wind chill temperature is: ",TWC
end