style="color: #0000ff;">mpi_comm_rank</span>(bridge_comm,myid,ierr)
  c1 = ref_comm(dist1)
  c2 = ref_comm(dist2)
  <span style="color: #a020f0;">call</span> <span style="color: #0000ff;">MPI_Comm_Compare</span>(c1,c2,comparison,ierr)

  <span style="color: #a020f0;">select case</span> (comparison)
  <span style="color: #a020f0;">case</span> (MPI_IDENT)
     <span style="color: #b22222;">! </span><span style="color: #b22222;">Communicators are identical</span>
  <span style="color: #a020f0;">case</span> (MP