yle="color: #a020f0;">endif</span>
      <span style="color: #a020f0;">enddo</span>

      <span style="color: #a020f0;">if</span> (myid == 0 <span style="color: #a020f0;">.and.</span> comms_not_printed) <span style="color: #a020f0;">then</span>
         <span style="color: #a020f0;">do</span> i = 1, ncomms
            c =&gt; comms(i)
            <span style="color: #a020f0;">write</span>(6,<span style="color: #8b2252;">"(a,i5,a,2i5,2i7,i5)"</span>) <span style="color: #a020f0;">&amp;</span>
              