wordtype">integer</span> :: j</div>
<div class="line"><a name="l00028"></a><span class="lineno">   28</span>&#160;  </div>
<div class="line"><a name="l00029"></a><span class="lineno">   29</span>&#160;  <span class="comment">! The interchange sort</span></div>
<div class="line"><a name="l00030"></a><span class="lineno">   30</span>&#160;  <span class="keywordflow">do</span> i = 1,<span class="keyword">size</span>(vec,1) - 1</div>
<div class="line"><a name="l00031"></a><span class="lineno">   31</span>&#160;