 forced by machine accuracy'</span>);
0436         nEff = 0;
0437         ier = 1;
0438         <span class="keyword">break</span>;
0439       <span class="keyword">end</span>
0440     <span class="keyword">end</span>
0441     
0442     <span class="keyword">if</span> (alp2 == 0) 
0443       fact = alp1/alp;
0444     <span class="keyword">else</span>
0445       fact = alp/alp2;
0446     <span class="keyword">end</span>
0447     
0448     <span class="comment">%***********************************************