an class="mi">1</span><span class="p">)</span>
     <span class="k">end if</span>
<span class="k">  </span><span class="n">endif</span>

<span class="c">!  write(output_unit_write,&#39;(&quot;Also R_buffer: &quot;,E17.10)&#39;) Y(1,ss)</span>
  
  <span class="c">!$OMP PARALLEL DO FIRSTPRIVATE(ss) PRIVATE(pp,ezerr) &amp;</span>
  <span class="c">!$OMP&amp; SHARED(Y,ne,Te,Zeff,flag,profiles_2d)</span>
  <span class="k">do </span><span class="n">pp</span><span class="o">=</span><span class="mi">1_idef</span><