n>
      <span style="color: #a020f0;">enddo</span>
      <span style="color: #a020f0;">allocate</span>(local_reqR(nrecvs_local))
      <span style="color: #a020f0;">allocate</span>(local_reqS(nsends_local))
      <span 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