9"></a><span class="lineno">   89</span>&#160;<span class="keywordtype">   Real</span> (kind=real64), <span class="keywordtype">Dimension (:)</span>, <span class="keywordtype">Intent (In)</span> :: invals</div>
<div class="line"><a name="l00090"></a><span class="lineno">   90</span>&#160;   <span class="keywordtype">Integer</span>, <span class="keywordtype">Dimension (:)</span>, <span class="keywordtype">Intent (Out)</span> :: IRNGT</div>
<div class="line"><a name="l00091"></a><span class="lineno">   91</sp