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