f0;">size</span>(ranks2)
  <span style="color: #a020f0;">call</span> <span style="color: #0000ff;">MPI_Group_Incl</span>(gg,n1,ranks1,g1,ierr)
  <span style="color: #a020f0;">call</span> <span style="color: #0000ff;">MPI_Group_Incl</span>(gg,n2,ranks2,g2,ierr)

  <span style="color: #b22222;">! </span><span style="color: #b22222;">The rest is the same as before</span>

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