&#160;<span class="comment">c               A = R&#39;*R, this subroutine updates R -&gt; R1 so that</span></div>
<div class="line"><a name="l00025"></a><span class="lineno">   25</span>&#160;<span class="comment">c               R1&#39;*R1 = A + u*u&#39;</span></div>
<div class="line"><a name="l00026"></a><span class="lineno">   26</span>&#160;<span class="comment">c               (real version)</span></div>
<div class="line"><a name="l00027"></a><span class="lineno">   27</span>&#160;<span class="comment"