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

      <span style="color: #b22222;">! </span><span style="color: #b22222;">Post the sends</span>
      nsends_local = 0
      <span style="color: #a020f0;">do</span> i=1,ncomms
         c =&gt; comms(i)
         <span style="color: #a020f0;">if</span> (myrank1 == c%src) <span style="color: #a020f0;">then</span>
            nsends_local = nsends_local + 1
            dst_in_comm = comm_rank2(c%dst)
            <span style="color: #a020f0;">call</span> <span