an class="n">E_R</span><span class="p">,</span><span class="n">E_PHI</span><span class="p">,</span><span class="n">E_Z</span><span class="p">,</span><span class="n">ezerr</span><span class="p">)</span>
  <span class="k">call </span><span class="n">EZspline_error</span><span class="p">(</span><span class="n">ezerr</span><span class="p">)</span>

  <span class="c">!$OMP SIMD</span>
<span class="c">!    !$OMP&amp; aligned(PSIp,A,B_R,Y_R,B_PHI,B_Z,Bmag,gradB_R,gradB_PHI,gradB_Z, &amp;</span>
<span class="c">!  