This routine computes the Riemann zeta function, zeta(x).
function zeta extends Modelica.Icons.Function; input Real x; output Real y; end zeta;