This routine computes the Exponential Integral, Ei(x).
function expint_Ei extends Modelica.Icons.Function; input Real x; output Real y; end expint_Ei;