real function zeta ( x )

!*****************************************************************************80
!
!! zeta() is a real function with type statement.
!
  real x

  zeta = 1.0 / x

  return
end