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 1984-2000 The MathWorks, Inc. 
%   $Revision: 5.10 $  $Date: 2000/06/01 15:14:00 $

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);
