style="color: #228b22;">integer</span> ::<span style="color: #a0522d;"> src_in_comm, dst_in_comm</span>
     <span style="color: #228b22;">integer</span> ::<span style="color: #a0522d;"> myrank1, myrank2, myrank</span>
     <span style="color: #228b22;">type(comm_t)</span>, <span style="color: #a020f0;">pointer</span> :: <span style="color: #a0522d;">c</span>


      <span style="color: #b22222;">! </span><span style="color: #b22222;">Find the rank correspondences, in case</span>
      <span style="color: #