line"><a name="l00192"></a><span class="lineno">  192</span>&#160;   <span class="keywordtype">character (kind=f_char,len=len(INVALS))</span> :: XWRK, XWRK1</div>
<div class="line"><a name="l00193"></a><span class="lineno">  193</span>&#160;   <span class="keywordtype">Integer</span> :: ICRS, IDCR</div>
<div class="line"><a name="l00194"></a><span class="lineno">  194</span>&#160;<span class="comment">!</span></div>
<div class="line"><a name="l00195"></a><span class="lineno">  195</span>&#160;    irngt(1) =