  <span class="keywordflow">do</span> i=1,n</div>
<div class="line"><a name="l00058"></a><span class="lineno">   58</span>&#160;    aamax=0.</div>
<div class="line"><a name="l00059"></a><span class="lineno">   59</span>&#160;    <span class="keywordflow">do</span> j=1,n</div>
<div class="line"><a name="l00060"></a><span class="lineno">   60</span>&#160;      <span class="keywordflow">if</span>(abs(a(i,j)).gt.aamax) aamax=abs(a(i,j))</div>
<div class="line"><a name="l00061"></a><span class="lineno">   61</sp