000ff;">analyze_comms</span>()

      <span style="color: #228b22;">integer</span>, <span style="color: #a020f0;">allocatable</span>, <span style="color: #a020f0;">dimension</span>(:) ::<span style="color: #a0522d;"> p1, p2, isrc, idst</span>
      <span style="color: #228b22;">integer</span> ::<span style="color: #a0522d;"> ncomms</span>

      <span style="color: #b22222;">! </span><span style="color: #b22222;">To turn on debug printing, set this to .true.</span>
      <span style="color: #228b22;">logica