ss="p">),</span> <span class="n">Zeff</span><span class="p">(</span><span class="n">pp</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="k">end if</span>
<span class="k">  end do</span>
  <span class="c">!$OMP END PARALLEL DO</span>
<span class="k">end subroutine </span><span class="n">interp_2D_profiles</sp