function bshigh(verbose)
% bshigh Replaces high value of binary search bracket with midpoint [PHYS210-bs]
%
% Updates high value: then displays bracket and new midpoint.
% Supplying zero 0 for optional verbose argument suppresses output.
   global Bs_low Bs_high Bs_tol Bs_progress;
   if ~ bsinitialized
      warning('Search not initialized.  Use bsnew(low, high).');
      return;
   end
   Bs_high(end+1) = bscurrent;
   Bs_progress(end+1) = 1;
   if nargin == 0 || length(verbose) ~= 1 || verbose
      bsbracket;
   end
end
