e(output_unit_write,&#39;(&quot;Y_Z: &quot;,E17.10)&#39;) Y_Z</span>
  
<span class="c">!  write(output_unit_write,&#39;(&quot;B_R: &quot;,E17.10)&#39;) B_R</span>
<span class="c">!  write(output_unit_write,&#39;(&quot;B_PHIinterp: &quot;,E17.10)&#39;) B_PHI</span>
<span class="c">!  write(output_unit_write,&#39;(&quot;B_Z: &quot;,E17.10)&#39;) B_Z</span>

<span class="k">end subroutine </span><span class="n">calculate_3DBdBfields_p</span>
</pre></div>

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