function gamma ( x )
c
c*********************************************************************72
c
cc GAMMA is a function with no type statement.
c
      real gamma
      real x

      gamma = sqrt ( x )

      return
      end