t_unit_write)</span>
       
       <span class="n">E_G</span><span class="o">=</span><span class="nb">abs</span><span class="p">(</span><span class="n">EPHI</span><span class="p">)</span><span class="o">/</span><span class="n">E_CH</span>

       <span class="c">!write(output_unit_write,*) &#39;E_G&#39;,E_G</span>
       <span class="c">!flush(output_unit_write)</span>
       
    <span class="k">else</span>
<span class="k">       </span><span class="n">E_G</span><span class="o">=</span><span class="n">F</