tyle="color: #a020f0;">call</span> <span style="color: #0000ff;">MPI_irecv</span>(data2(c%i2),c%nitems,MPI_Double_Precision,src_in_comm, <span style="color: #a020f0;">&amp;</span>
                           i,bridge_comm,local_reqR(nrecvs_local),ierr)
         <span style="color: #a020f0;">endif</span>
      <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