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

  proc_in_set1 = (myrank1 /= MPI_UNDEFINED)
  proc_in_set2 = (myrank2 /= MPI_UNDEFINED)

  <span style="color: #a020f0;">if</span> (proc_in_set1 <span style="color: #a020f0;">.or.</span> proc_in_set2) <span style="color: #a020f0;">then</span>
    <span style="color: #a020f0;">print</span> <span style="color: #8b2252;">"(a,3i6,2l2)"</span>, <span style="color: #8b2252;">"world_rank, rank1, rank2, ing1?, ing2?"</span>, myid