</span> i=1,ncomms
         c =&gt; comms(i)
         <span style="color: #a020f0;">if</span> (myrank1 == c%src) <span style="color: #a020f0;">then</span>
            nsends_local = nsends_local + 1
            dst_in_comm = comm_rank2(c%dst)
            <span style="color: #a020f0;">call</span> <span style="color: #0000ff;">MPI_isend</span>(data1(c%i1),c%nitems,MPI_Double_Precision,dst_in_comm, <span style="color: #a020f0;">&amp;</span>
                        i,bridge_comm,local_reqS(nsends_local),ierr)
 