n style="color: #a020f0;">deallocate</span>(comms)
  <span style="color: #a020f0;">deallocate</span>(ranks1, ranks2)

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

<span style="color: #a020f0;">CONTAINS</span>

  &lt;&lt;analyze-comms&gt;&gt;