program F2Cfunc
      
C**************************************************************
C  convert a read in temperature in Fahrenheit to Celsius using a funciton
C**************************************************************

      real tempF, tempC, iconvF2C
      
      print *, 'Enter a temp in F'
      read *, tempF
      
      tempC = iconvF2C(tempF)
      
      print *, tempF, 'F is the same as ',tempC,'C'
      
      stop
      end
C--------------------------------------------------------------
      function iconvF2C(tempF)
      
      real tempF, iconvF2C
      
      iconvF2C = 5.0 / 9.0 * (tempF - 32.0)
      
      return
      end