a*3/))</div>
<div class="line"><a name="l00321"></a><span class="lineno">  321</span>&#160;            pfire = dot_product(v(i,:),f(i,:))</div>
<div class="line"><a name="l00322"></a><span class="lineno">  322</span>&#160;            v(i,:) = (1.0d0-alph)*v(i,:) + alph*f(i,:)*norm2(v(i,:))/norm2(f(i,:))</div>
<div class="line"><a name="l00323"></a><span class="lineno">  323</span>&#160;            <span class="keywordflow">if</span> (pfire &gt; 0.0d0 .and. nmin_count &gt; nmin) <span class="keywordflow">the