>)</span><span class="w"></span>
<span class="nt">real</span><span class="o">(</span><span class="nt">kind</span><span class="o">=</span><span class="nt">dp</span><span class="o">)</span><span class="w">                 </span><span class="o">::</span><span class="w"> </span><span class="nt">pp</span><span class="w"></span>
<span class="nt">integer</span><span class="w">                       </span><span class="o">::</span><span class="w"> </span><span class="nt">indx</span><span class="o">(</span><span cl