 style="color: #0000ff;">MPI_isend</span>(data1(c%i1),c%nitems,MPI_integer,dst_in_comm, <span style="color: #a020f0;">&amp;</span>
                        i,bridge_comm,local_reqS(nsends_local),ierr)
         <span style="color: #a020f0;">endif</span>
      <span style="color: #a020f0;">enddo</span>

      <span style="color: #b22222;">! </span><span style="color: #b22222;">A former loop of waits can be substituted by a "waitall",</span>
      <span style="color: #b22222;">! </span><span style="color: #b222