   print *, <span class="stringliteral">&#39;after clear&#39;</span></div>
<div class="line"><a name="l00155"></a><span class="lineno">  155</span>&#160;    <span class="keywordflow">do</span> ctr = 1, rvec1%Size()</div>
<div class="line"><a name="l00156"></a><span class="lineno">  156</span>&#160;        rd2 = rvec1%ElemAt(ctr)</div>
<div class="line"><a name="l00157"></a><span class="lineno">  157</span>&#160;        print *, <span class="stringliteral">&#39;int(&#39;</span>, ctr, <span class="stringliter