!
!  Inter-module comments go to the next module.
!
real function zeta ( x )
!
!*****************************************************************************80
!
!! ZETA is a real function with type statement.
!
  real x

  zeta = 1.0 / x

  return
end