function gamma ( x )
!
!*****************************************************************************80
!
!! GAMMA is a function with no type statement.
!
  real gamma
  real x

  gamma = sqrt ( x )

  return
end