function nntobsu(fcn,varargin)
%NNTOBSU Warn that a function use is obsolete.
%
%	nntobsu(fcnName,line1,line2,...)
%	
%	*WARNING*: This function is undocumented as it may be altered
%	at any time in the future without warning.

% Mark Beale, 11-31-97
% Copyright (c) 1992-1998 by The MathWorks, Inc.
% $Revision: 1.3 $

global NNTWARNFLAG;
if isempty(NNTWARNFLAG)
  disp(' ')
  disp(['*WARNING* ' upper(fcn) ' used in an obsolete way.'])
  for i=1:length(varargin)
  disp(['          ' varargin{i}])
  end
  disp(['          Type NNTWARN OFF to suppress NNT warning messages.'])
  disp(' ')
elseif strcmp(NNTWARNFLAG,'error')
  error([upper(fcn) ' is used in an obsolete way.'])
end
