olor: #b22222;">!      </span><span style="color: #b22222;">print "(a,10i3)", "Ranks of g2 in base group:", comm_rank2</span>

      <span style="color: #a020f0;">call</span> <span style="color: #0000ff;">mpi_group_rank</span>(g1,myrank1,ierr)
      <span style="color: #a020f0;">call</span> <span style="color: #0000ff;">mpi_group_rank</span>(g2,myrank2,ierr)

      <span style="color: #b22222;">! </span><span style="color: #b22222;">Do the actual transfers. </span>
      <span style="color: #b22222;">! </sp