This routine computes the complete Elliptic Integral, E(k).
function elliptint_E extends Modelica.Icons.Function; input Real x; output Real y; end elliptint_E;