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

<span style="color: #b22222;">!!</span><span style="color: #b22222;">$         do i = 1, size(comms)</span>
<span style="color: #b22222;">!!</span><span style="color: #b22222;">$            c =&gt; commsnnz(i)</span>
<span style="color: #b22222;">!!</span><span style="color: #b22222;">$            if (myrank1 == c%src) then</span>
<span style="color: #b22222;">!!</span><span style="color: #b22222;">$               print "(a,i5,a,2i5,2i7,i5)", &amp;</span