This routine computes the Exponential Integral, En(x).
function expint_En extends Modelica.Icons.Function; input Integer n; input Real x; output Real y; end expint_En;