><span class="o">*</span><span class="n">C_C</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span>

       <span class="c">!write(output_unit_write,*) &#39;gamma&#39;,g</span>
       <span class="c">!write(output_unit_write,*) &#39;ne&#39;,n_ne, &amp;</span>
       <span class="c">!     &#39;Te&#39;,Teo,&#39;VTe&#39;,VTe</span>
       <span class="c">!write(output_unit_write,*) &#39;EPHI&#39;,EPHI,&#39;CLog&#39;,CLogee,&#39;E_CH&#39;,E_CH</span>
       <span class="c">!flush(outpu