*************************************************</span>
0122   <span class="comment">%* Initialize line search ... *</span>
0123   <span class="comment">%*****************************************************</span>
0124   
0125   <span class="keyword">if</span> (FTOL &lt;= 0)
0126     mu1s = 1./3.;
0127     mu2s = 2./3.;
0128     eff = 4./9.;
0129   <span class="keyword">else</span>
0130     mu1s = min(FTOL,1/3);
0131     mu2s = 1-mu1s;
0132     eff = 2*mu1s*mu2s;
0133   <span class="keyword">end</span>
01