    <span style="color: #a020f0;">call</span> <span style="color: #0000ff;">re_alloc</span>(m2%cols,1,m2%nnzl,<span style="color: #8b2252;">"m2%cols"</span>,<span style="color: #8b2252;">"redistribute_spmatrix"</span>)

     <span style="color: #a020f0;">if</span> (nvals &gt; 0) <span style="color: #a020f0;">then</span>
        <span style="color: #a020f0;">allocate</span>(m2%vals(nvals))
        <span style="color: #a020f0;">do</span> j=1,nvals
           <span style="color: #a020f0;">call</span> <span sty