  79</span>&#160;    <span class="comment">! Vector reserve and shrink</span></div>
<div class="line"><a name="l00080"></a><span class="lineno">   80</span>&#160;    rd1%rdata = 1.01</div>
<div class="line"><a name="l00081"></a><span class="lineno">   81</span>&#160;    <span class="keyword">call </span>rvec%Reserve(49)    </div>
<div class="line"><a name="l00082"></a><span class="lineno">   82</span>&#160;    print <span class="stringliteral">&#39;(1A60,3I6)&#39;</span>, <span class="stringliteral">&#39;Ve