2222;">print "(i4,a,10i3)", myrank, ":Ranks of g1 in base group:", comm_rank1</span>

      <span style="color: #a020f0;">allocate</span>(comm_rank2(0:nsize2-1))
      <span style="color: #a020f0;">call</span> <span style="color: #0000ff;">MPI_Group_translate_ranks</span>( g2, nsize2, (/ (i,i=0,nsize2-1) /), <span style="color: #a020f0;">&amp;</span>
                                      basegroup, comm_rank2, ierr )
<span style="color: #b22222;">!      </span><span style="color: #b22222;">print "(i4,a,10i3