class="line"><a name="l00097"></a><span class="lineno">   97</span>&#160;        <span class="keywordtype">integer</span> :: i</div>
<div class="line"><a name="l00098"></a><span class="lineno">   98</span>&#160;        <span class="keywordtype">real(8)</span> :: r</div>
<div class="line"><a name="l00099"></a><span class="lineno">   99</span>&#160;        <span class="keywordtype">real(8)</span>, <span class="keywordtype">allocatable</span> :: v(:)</div>
<div class="line"><a name="l00100"></a><span class="li