   nsends_local = 0
      <span style="color: #a020f0;">do</span> i=1,ncomms
         c =&gt; comms(i)
         <span style="color: #a020f0;">if</span> (myrank2 == c%dst) <span style="color: #a020f0;">then</span>
            nrecvs_local = nrecvs_local + 1
         <span style="color: #a020f0;">endif</span>
         <span style="color: #a020f0;">if</span> (myrank1 == c%src) <span style="color: #a020f0;">then</span>
            nsends_local = nsends_local + 1
         <span style="color: #a020f0;">endif</spa