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