% update_title

set(h_title,'String', ...
      sprintf('Time:  %6.4f      Peak %5.3f at %6.2f     Width=%2d  Inhib=%4.3f', ...
	       t,peakval,peakpos,sum(z>0.1),u))
