table</span>, <span style="color: #a020f0;">target</span> :: <span style="color: #a0522d;">commsnnz</span>
  <span style="color: #228b22;">type(comm_t)</span>, <span style="color: #a020f0;">pointer</span> :: <span style="color: #a0522d;">c, cnnz</span>

  <span style="color: #228b22;">integer</span> ::<span style="color: #a0522d;">  myrank1, myrank2, myid, gg</span>
  <span style="color: #228b22;">logical</span> ::<span style="color: #a0522d;">  proc_in_set1, proc_in_set2</span>
  <span style="color: #228b2