b22222;">print "(i4,a,2i3)", myrank,": g1 and g2: ", g1, g2</span>


      <span style="color: #b22222;">! </span><span style="color: #b22222;">Do the actual transfers. </span>
      <span style="color: #b22222;">! </span><span style="color: #b22222;">This version with non-blocking communications</span>

     ncomms = <span style="color: #a020f0;">size</span>(comms)

      <span style="color: #b22222;">! </span><span style="color: #b22222;">Some bookkeeping for the requests</span>
      nrecvs_local = 0
   