pan class="keyword">if</span> (f == f0 &amp;&amp; (ksh == 0 || alp &gt; alpm))
0197         <span class="comment">% store smallest step with f=f0 for possible restauration</span>
0198         alpm = alp;
0199       <span class="keyword">end</span>
0200       <span class="keyword">if</span> (f == f0)
0201         ksh=ksh+1;
0202       <span class="keyword">end</span>
0203     <span class="keyword">end</span>
0204     
0205     <span class="comment">% get parabolic minimizer alp0</span>
0206     <span class="