iv class="line"><a name="l00060"></a><span class="lineno">   60</span>&#160;        <span class="keyword">allocate</span>(samples(nsample), stat = flag)</div>
<div class="line"><a name="l00061"></a><span class="lineno">   61</span>&#160;        <span class="keywordflow">if</span> (flag == 0) <span class="keyword">allocate</span>(rst(nsample, 2), stat = flag)</div>
<div class="line"><a name="l00062"></a><span class="lineno">   62</span>&#160;        <span class="keywordflow">if</span> (flag /= 0) <span class