>&#160;   <span class="keywordtype">Integer</span> :: ICRS, IDCR</div>
<div class="line"><a name="l00095"></a><span class="lineno">   95</span>&#160;<span class="comment">!</span></div>
<div class="line"><a name="l00096"></a><span class="lineno">   96</span>&#160;    irngt(1) = 1</div>
<div class="line"><a name="l00097"></a><span class="lineno">   97</span>&#160;    <span class="keywordflow">Do</span> icrs = 2, nord</div>
<div class="line"><a name="l00098"></a><span class="lineno">   98</span>&#160;       x