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