 alph_start</div>
<div class="line"><a name="l00332"></a><span class="lineno">  332</span>&#160;<span class="keywordflow">            endif</span></div>
<div class="line"><a name="l00333"></a><span class="lineno">  333</span>&#160;            <span class="keywordflow">if</span> (pfire &gt; 0.0d0) nmin_count = nmin_count + 1</div>
<div class="line"><a name="l00334"></a><span class="lineno">  334</span>&#160;            rp%cx(i)%r = rp%cx(i)%r + delt * reshape(v(i,:),shape(vv))</div>
<div class="line"><a name