      nrecvs_local = nrecvs_local + 1
         <span style="color: #a020f0;">endif</span>
         <span style="color: #a020f0;">if</span> (myrank1 == c%src) <span style="color: #a020f0;">then</span>
            nsends_local = nsends_local + 1
         <span style="color: #a020f0;">endif</span>
      <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