function value = J0 ( x )
  value = besselj ( 0, x );
  return
end

