/span><span class="n">EZspline_error</span><span class="p">(</span><span class="n">ezerr</span><span class="p">)</span>

  <span class="c">!write(6,*) &#39;B_R&#39;,B_R</span>
  <span class="c">!write(6,*) &#39;B_PHI&#39;,B_PHI</span>
  <span class="c">!write(6,*) &#39;B_Z&#39;,B_Z</span>
  
  <span class="c">!$OMP SIMD</span>
<span class="c">!  !$OMP&amp; aligned (cP,sP,B_X,B_Y,E_X,E_Y,Y_PHI,B_R,B_PHI,E_R,E_PHI)</span>
  <span class="k">do </span><span class="n">cc</span><span class="o">=</span><span class