ass="keywordflow">if</span>(j.ne.imax) <span class="keywordflow">then</span></div>
<div class="line"><a name="l00094"></a><span class="lineno">   94</span>&#160;      <span class="keywordflow">do</span> k=1,n</div>
<div class="line"><a name="l00095"></a><span class="lineno">   95</span>&#160;        dum=a(imax,k)</div>
<div class="line"><a name="l00096"></a><span class="lineno">   96</span>&#160;        a(imax,k)=a(j,k)</div>
<div class="line"><a name="l00097"></a><span class="lineno">   97</span>&#160;    