n 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 allocation problem, FROM_ELEMENTAL_TO_ASSEMBLED&#39;</span>
      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">mat</span><span class="p">%</span><span class="n">jcol</span><span class="p">))</span> <span class="k">allocate</sp