><span class="w"> </span><span class="p">,</span><span class="w"> </span><span class="n">k</span><span class="w"> </span><span class="p">,</span><span class="w"> </span><span class="n">nm1</span>
<span class="k">COMMON</span><span class="w"> </span><span class="o">/</span><span class="n">BLOCK4_real64</span><span class="o">/</span><span class="w"> </span><span class="n">XS</span><span class="p">(</span><span class="mi">7500</span><span class="p">)</span>

<span class="c">!-----------------------------------