"color: #a020f0;">if</span> ((p1(io) /= p1(io-1)) <span style="color: #a020f0;">.or.</span> (p2(io) /= p2(io-1))) <span style="color: #a020f0;">then</span>
            ncomms = ncomms + 1
         <span style="color: #a020f0;">else</span>
            <span style="color: #b22222;">!</span>
         <span style="color: #a020f0;">endif</span>
      <span style="color: #a020f0;">enddo</span>

      <span style="color: #a020f0;">allocate</span>(comms(ncomms))

      <span style="color: #b22222;">! </span><span s