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

      zeta = 1.0 / x

      return
      end