>
<div class="line"><a name="l00050"></a><span class="lineno">   50</span>&#160;  <span class="keywordtype">integer</span>, <span class="keywordtype">intent(out)</span> :: indx(n)</div>
<div class="line"><a name="l00051"></a><span class="lineno">   51</span>&#160;</div>
<div class="line"><a name="l00052"></a><span class="lineno">   52</span>&#160;  <span class="keywordtype">real (kind=8)</span> :: vv(n*n), aamax, dum, sum</div>
<div class="line"><a name="l00053"></a><span class="lineno">   53</span>&#160;  