 <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">!        write(output_unit_write,&#39;(&quot;Also R_buffer: &quot;,E17.10)&#39;) Y(pp,1)</span>

        <span class="k">if</span> <span class="p">(</span><span class="n">ezerr</span> <span class="p">.</span><span class="n">NE</span><span class="p">.</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span> <span class="c">