lass="n">rdata</span> <span class="o">=</span> <span class="kt">REAL</span><span class="p">(</span><span class="n">raw_data</span><span class="p">,</span><span class="n">rp</span><span class="p">)</span>

    <span class="k">call </span><span class="n">h5dclose_f</span><span class="p">(</span><span class="n">dset_id</span><span class="p">,</span> <span class="n">h5error</span><span class="p">)</span>
    <span class="k">if</span> <span class="p">(</span><span class="n">h5error</span> <span class="p">.</span