class="n">FIO_SUCCESS</span><span class="p">)</span> <span class="k">then</span>
<span class="k">                </span><span class="n">prtcls</span><span class="p">%</span><span class="n">flagCon</span><span class="p">(</span><span class="n">pp</span><span class="p">)</span> <span class="o">=</span> <span class="mi">0_is</span>
             <span class="k">end if</span>
<span class="k">          end if</span>
<span class="k">       end do</span>
       <span class="c">!$OMP END PARALLEL DO</span>
    <span