an><span class="p">(</span> <span class="n">mat</span><span class="p">%</span><span class="n">jcol</span><span class="p">(</span><span class="n">ntot</span><span class="p">),</span> <span class="nb">stat</span> <span class="o">=</span> <span class="n">state</span> <span class="p">)</span>
      <span class="k">if</span> <span class="p">(</span><span class="n">state</span><span class="o">/=</span><span class="mi">0</span><span class="p">)</span> <span class="k">stop</span> <span class="s1">&#39;Memory alloca