="w"></span>
<span class="nt">integer</span><span class="o">,</span><span class="nt">parameter</span><span class="w">             </span><span class="o">::</span><span class="w"> </span><span class="nt">dp</span><span class="o">=</span><span class="nt">kind</span><span class="o">(</span><span class="nt">0</span><span class="p">.</span><span class="nc">0d0</span><span class="o">)</span><span class="w"></span>
<span class="nt">integer</span><span class="o">,</span><span class="nt">parameter</span><span class=