 style="color: #a020f0;">allocate</span>(statuses(mpi_status_size,nrecvs_local))

      <span style="color: #b22222;">! </span><span style="color: #b22222;">First, post the receives</span>
      nrecvs_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
            src_in_comm = comm_rank1(c%src)
            <span s