t2) <span style="color: #a020f0;">then</span>
     m2%norbs = norbs
     m2%no_l = num_local_elements(dist2,norbs,myrank2)
     <span style="color: #a020f0;">call</span> <span style="color: #0000ff;">re_alloc</span>(m2%numcols,1,m2%no_l,<span style="color: #8b2252;">"m2%numcols"</span>,<span style="color: #8b2252;">"redistribute_spmatrix"</span>)
  <span style="color: #a020f0;">endif</span>

  <span style="color: #a020f0;">if</span> (myid == 0) <span style="color: #a020f0;">print</span> *, <span style="colo