if (Uequal)</span>
0079     <span class="comment">%  UEQ = u_it + alp*u_dir;</span>
0080     <span class="comment">%end</span>
0081     
0082     <span class="comment">%while((*fx =  (* objective) (x_it)) &gt;= HUGE_VAL) {</span>
0083     <span class="comment">%  alp = alp/2;</span>
0084     <span class="comment">%  x_it=x+alp*dir;</span>
0085     <span class="comment">%}</span>
0086     
0087     <span class="keyword">if</span> (abs(pi) &lt; 1.0E-15) 
0088       obj.ls_small_cnt=obj.ls_small_cnt+1;
0089   