0, &amp;</div>
<div class="line">        0.0d0]</div>
<div class="line">    xi = linspace(minval(x), maxval(x), m)</div>
<div class="line"> </div>
<div class="line">    <span class="comment">! Interpolate - enforce a zero slope boundary condition on both ends</span></div>
<div class="line">    <span class="keyword">call </span>interp%initialize_spline(x, y, &amp;</div>
<div class="line">        spline_known_first_derivative, 0.0d0, &amp;</div>
<div class="line">        spline_known_first_derivative, 0.0d0)<