 class="p">(</span><span class="mi">3</span><span class="p">)</span> 				<span class="kd">::</span> <span class="n">adims</span>
    <span class="kt">INTEGER</span> 							<span class="kd">::</span> <span class="n">h5error</span>

    <span class="n">dims</span> <span class="o">=</span> <span class="nb">shape</span><span class="p">(</span><span class="n">rdata</span><span class="p">)</span>

    <span class="k">ALLOCATE</span><span class="p">(</span> <span class="n">raw_data</span><span class="p">(</span><s