lor: #a020f0;">call</span> <span style="color: #0000ff;">MPI_Comm_Compare</span>(c1,bridge_comm,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> (MPI_CONGRUENT)
     <span style="color: #b22222;">! </span><span style="color: #b22222;">Communicators have the same group an