)", myrank,":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;">print "(i4,a,2i6)", myrank,": Ranks in g1 and g2: ", myrank1, myrank2</span>
<span style="color: #b22222;">!      </span><span style="color: #