> <span class="o">-</span><span class="mi">1</span>
      <span class="n">a_elt</span><span class="p">(</span><span class="n">nz</span> <span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">ntot</span><span class="p">)</span> <span class="o">=</span> <span class="nb">huge</span><span class="p">(</span><span class="mf">1._R8</span><span class="p">)</span>

      <span class="c">! col pointer update</span>
      <span class="c">!----------------------------------------------