   <span style="color: #8b2252;">"comm: "</span>, i, <span style="color: #8b2252;">" src, dst, i1, i2, n:"</span>, <span style="color: #a020f0;">&amp;</span>
                 c%src, c%dst, c%i1, c%i2, c%nitems
         <span style="color: #a020f0;">enddo</span>
         comms_not_printed = <span style="color: #a020f0;">.false.</span>
      <span style="color: #a020f0;">endif</span>

      <span style="color: #a020f0;">deallocate</span>(p1,p2,isrc,idst)

    <span style="color: #a020f0;">end subroutine</span