! We flag the particle as lost</span>
           <span class="n">flag</span><span class="p">(</span><span class="n">pp</span><span class="p">)</span> <span class="o">=</span> <span class="mi">0_is</span>
        <span class="k">end if</span>

<span class="k">        call </span><span class="n">EZspline_interp</span><span class="p">(</span><span class="n">profiles_2d</span><span class="p">%</span><span class="n">Te</span><span class="p">,</span> <span class="n">Y</span><span class="p">(</span><span class="n"