>
    <span class="c">!   write(6,*) &#39;A&#39;,A</span>
    <span class="c">!   write(6,*) &#39;g&#39;,g</span>
    <span class="c">!   write(6,*) &#39;E_G&#39;,E_G</span>
    <span class="c">!   write(6,*) &#39;E_CH&#39;,E_CH</span>
    <span class="c">!   write(6,*) &#39;Z_G&#39;,Z_G</span>
    <span class="c">!end if</span>
    
  <span class="k">END FUNCTION </span><span class="n">fRE_H_3D</span>
</pre></div>

    </section>
    <br>
    
    
    </div>
  </div>


    <hr>    
    </div> <!-- /contai