pan class="n">dims</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span><span class="n">dims</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span><span class="n">dims</span><span class="p">(</span><span class="mi">3</span><span class="p">))</span> <span class="p">)</span>

    <span class="c">! * * * Read data from file * * *</span>

    <span class="k">call </span><span class="n">h5dopen_f</span><span class="p">(</span><span class="n">h5file_id</span><s