0;    irngt(1) = 1</div>
<div class="line"><a name="l00130"></a><span class="lineno">  130</span>&#160;    <span class="keywordflow">Do</span> icrs = 2, nord</div>
<div class="line"><a name="l00131"></a><span class="lineno">  131</span>&#160;       xwrk = invals(icrs)</div>
<div class="line"><a name="l00132"></a><span class="lineno">  132</span>&#160;       <span class="keywordflow">Do</span> idcr = icrs - 1, 1, -1</div>
<div class="line"><a name="l00133"></a><span class="lineno">  133</span>&#160;         