(6,"(5a10)") "Orb", "p1", "i1", "p2", "i2"</span>
<span style="color: #b22222;">!      </span><span style="color: #b22222;">endif</span>
      <span style="color: #a020f0;">do</span> io = 1, norbs
         p1(io) = node_handling_element(dist1,io)
         p2(io) = node_handling_element(dist2,io)
         isrc(io) = index_global_to_local(dist1,io,p1(io))
         idst(io) = index_global_to_local(dist2,io,p2(io))
<span style="color: #b22222;">!         </span><span style="color: #b22222;">if (myid == 0) then<