eywordtype">integer</span> n,ldr</div>
<div class="line"><a name="l00038"></a><span class="lineno">   38</span>&#160;      <span class="keywordtype">double precision</span> R(ldr,*),u(*)</div>
<div class="line"><a name="l00039"></a><span class="lineno">   39</span>&#160;      <span class="keywordtype">double precision</span> w(*)</div>
<div class="line"><a name="l00040"></a><span class="lineno">   40</span>&#160;      <span class="keywordtype">external</span> dlartg</div>
<div class="line"><a name="l00041">