wer(idx) = 1</div>
<div class="line"><a name="l00063"></a><span class="lineno">   63</span>&#160;  upper(idx) = <span class="keyword">size</span>(vec,1) + 1</div>
<div class="line"><a name="l00064"></a><span class="lineno">   64</span>&#160;  </div>
<div class="line"><a name="l00065"></a><span class="lineno">   65</span>&#160;  <span class="comment">! Main loop</span></div>
<div class="line"><a name="l00066"></a><span class="lineno">   66</span>&#160;  <span class="keywordflow">do</span> <span class="keywor