pan style="color: #a020f0;">public</span> :: redistribute_spmatrix
<span style="color: #a020f0;">CONTAINS</span>
 &lt;&lt;routine-redist-spmatrix&gt;&gt;
 &lt;&lt;transfers&gt;&gt;
<span style="color: #483d8b;">#endif</span>
<span style="color: #a020f0;">end module</span> <span style="color: #0000ff;">m_redist_spmatrix</span>
</pre>
</div>

<p>
We need some auxiliary structures. First, a simple derived type to keep
track of source, target, starting points in source and target, and
number of items to communi