These routines compute the regular cylindrical Bessel function of zeroth order, J_0(x).
function bessel_J0 extends Modelica.Icons.Function; input Real x; output Real y; end bessel_J0;