;">! </span><span style="color: #b22222;">end of group -- new communication</span>
            ncomms = ncomms + 1
            c =&gt; comms(ncomms)
            c%src = p1(io)
            c%dst = p2(io)
            c%i1  = isrc(io)
            c%i2  = idst(io)
            c%nitems = 1
         <span style="color: #a020f0;">else</span>
            <span style="color: #b22222;">! </span><span style="color: #b22222;">we stay in the same communication</span>
            c%nitems = c%nitems + 1
         <span st