      function exp10(x)
c
      implicit none
      real exp10,x
c
      exp10=exp(2.30259*x)
c
      return
      end
