1-ETA;
0024   
0025   <span class="comment">% int</span>
0026   lsiter=0;
0027   nEff = 0; iterations = 0;
0028   k = 0; ksh = 0; ier = 0;
0029   bLong = 0; bSafeguard = 0;
0030   
0031   bLinesearch = 1;
0032   
0033   rRelStep=0.; nFlag=99;
0034 
0035   <span class="comment">%if(Uequal)</span>
0036   <span class="comment">%  if(Uequal-&gt;dim) {</span>
0037   <span class="comment">%    stpmax=1.0;</span>
0038   <span class="comment">%  }</span>
0039 
0040  
0041   pi=dir'*obj.ALdx;
0042   <span class="com