  53</span>&#160;        <span class="keyword">call </span>dlartg(r(i,i),ui,w(i),u(i),rr)</div>
<div class="line"><a name="l00054"></a><span class="lineno">   54</span>&#160;        r(i,i) = rr</div>
<div class="line"><a name="l00055"></a><span class="lineno">   55</span>&#160;<span class="keywordflow">      end do</span></div>
<div class="line"><a name="l00056"></a><span class="lineno">   56</span>&#160;      <span class="keyword">end subroutine</span></div>
<div class="line"><a name="l00057"></a><span cla