ne"><a name="l00133"></a><span class="lineno">  133</span>&#160;  <span class="keywordtype">real (kind=8)</span>, <span class="keywordtype">intent(inout)</span> :: b(n)</div>
<div class="line"><a name="l00134"></a><span class="lineno">  134</span>&#160;  <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span> :: indx(n)</div>
<div class="line"><a name="l00135"></a><span class="lineno">  135</span>&#160;  <span class="keywordtype">integer</span> :: i, ii, j, ll</div>
<div class=