pan class="keywordtype">Integer</span> :: ICRS, IDCR</div>
<div class="line"><a name="l00161"></a><span class="lineno">  161</span>&#160;<span class="comment">!</span></div>
<div class="line"><a name="l00162"></a><span class="lineno">  162</span>&#160;    irngt(1) = 1</div>
<div class="line"><a name="l00163"></a><span class="lineno">  163</span>&#160;    <span class="keywordflow">Do</span> icrs = 2, nord</div>
<div class="line"><a name="l00164"></a><span class="lineno">  164</span>&#160;       xwrk = invals