function [J,digits] = bessela(nu,x)
%BESSELA Obsolete Bessel function.
%   BESSELA is obsolete and will be eliminated in future versions.
%   Please use BESSELJ instead.

%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   $Revision: 5.8 $  $Date: 1997/11/21 23:45:05 $

warning(sprintf( ...
  ['BESSELA is obsolete and will be eliminated in future versions.\n' ...
   'Please use BESSELJ instead.']));
J = besselj(nu,x);
digits = log10(1/eps);
