"keywordtype">    real</span>(8), <span class="keywordtype">allocatable</span> :: v(:,:), F(:,:), vv(:,:)  <span class="comment">!Fire variables</span></div>
<div class="line"><a name="l00082"></a><span class="lineno">   82</span>&#160;<span class="keywordtype">    real</span>(8) :: f_inc, f_dec, f_alp, alph_start, pfire, alph, delt <span class="comment">!Fire variables</span></div>
<div class="line"><a name="l00083"></a><span class="lineno">   83</span>&#160;    <span class="keywordtype">integer</span> :: 