/span>
<span class="nv">integer</span>,<span class="nv">allocatable</span> :: <span class="nv">irngt</span><span class="ss">(</span>:<span class="ss">)</span>
<span class="nv">integer</span> :: <span class="nv">nuni</span>
   <span class="k">if</span><span class="ss">(</span><span class="nv">allocated</span><span class="ss">(</span><span class="nv">irngt</span><span class="ss">))</span><span class="nv">deallocate</span><span class="ss">(</span><span class="nv">irngt</span><span class="ss">)</span>
   <span 