n> (fbest == f0)
0327         <span class="comment">% escape roundoff</span>
0328         alp = alp2/sml;
0329         <span class="comment">% safeguard in case fbest=f0 by chance</span>
0330         <span class="keyword">if</span> (ksh == 1)
0331           alp = alp2*1.1;
0332         <span class="keyword">end</span>
0333       <span class="keyword">elseif</span> (k == 1)
0334         <span class="comment">% second trial point, safeguarded parabolic minimization</span>
0335         alp = alp/max(2-2*mu,sml