 class="k">else</span>

<span class="k">       </span><span class="n">Etmp</span><span class="o">=</span><span class="mf">0._rp</span>
       
       <span class="c">!$OMP PARALLEL DO DEFAULT(none) &amp;</span>
       <span class="c">!$OMP&amp; SHARED(prtcls,params,F) &amp;</span>
       <span class="c">!$OMP&amp; PRIVATE(pp,status,x) &amp;</span>
       <span class="c">!$OMP&amp; FIRSTPRIVATE(Etmp)</span>
       <span class="k">do </span><span class="n">pp</span> <span class="o">=</span> <span class="mi">1