le="color: #0000ff;">re_alloc</span>(m2%vals(j)%data,1,m2%nnzl, <span style="color: #a020f0;">&amp;</span>
                <span style="color: #8b2252;">"m2%vals(j)%data"</span>,<span style="color: #8b2252;">"redistribute_spmatrix"</span>)
        <span style="color: #a020f0;">enddo</span>
     <span style="color: #a020f0;">endif</span>

  <span style="color: #a020f0;">endif</span>

  <span style="color: #b22222;">! </span><span style="color: #b22222;">Generate a new comms-structure with new start/count ind