%
%  srchstat - print out search statistics
%
%  Bob Newell, April 1996
%--------------------------------------------------------
%
function srchstat
%
global stats
%
if isempty(stats);
  return;
else,
  disp( [ 'Function evaluations = ' num2str( stats(1) ) ] );
  disp( [ 'Linear steps         = ' num2str( stats(2) ) ] );
  disp( [ 'Linear reversals     = ' num2str( stats(3) ) ] );
  disp( [ 'Linear searches      = ' num2str( stats(4) ) ] );
end;
%--------------------------------------------------------
%
