style="color: #a020f0;">call</span>  <span style="color: #0000ff;">MPI_Group_Size</span>( g2, nsize2, ierr )

      <span style="color: #a020f0;">allocate</span>(comm_rank1(0:nsize1-1))
      <span style="color: #a020f0;">call</span> <span style="color: #0000ff;">MPI_Group_translate_ranks</span>( g1, nsize1, (/ (i,i=0,nsize1-1) /), <span style="color: #a020f0;">&amp;</span>
                                      basegroup, comm_rank1, ierr )
<span style="color: #b22222;">!      </span><span style="color: #b2