an><span style="color: #b22222;">This version with non-blocking communications</span>

     ncomms = <span style="color: #a020f0;">size</span>(comms)

      <span style="color: #b22222;">! </span><span style="color: #b22222;">Some bookkeeping for the requests</span>
      nrecvs_local = 0
      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>
      