amp;&amp; alp1=alp2*2 indicates f2=f0 by chance</span>
0247       <span class="keyword">if</span> (ksh == 7 || (ksh == 1 &amp;&amp; f1 &gt; f0 &amp;&amp; alp1 == alp2*1.1))
0248         ksh=9999;      <span class="comment">% ends f=f0 tests</span>
0249         <span class="comment">% restore alp1=alps, alp2=0</span>
0250         alp1 = alps;
0251         f1 = f0;
0252         mu1 = 0;
0253         omega1 = 0;
0254         alp2 = 0;
0255         f2 = f0;
0256         mu2 = 1;
0257         omega2 = 0;
0258   