___________</span></div>
<div class="line"><a name="l00126"></a><span class="lineno">  126</span>&#160;<span class="keywordtype">   Real</span> (kind=real32) :: xwrk, xwrk1</div>
<div class="line"><a name="l00127"></a><span class="lineno">  127</span>&#160;   <span class="keywordtype">Integer</span> :: ICRS, IDCR</div>
<div class="line"><a name="l00128"></a><span class="lineno">  128</span>&#160;<span class="comment">!</span></div>
<div class="line"><a name="l00129"></a><span class="lineno">  129</span>&#16