/span>
<span style="color: #b22222;">!            </span><span style="color: #b22222;">if ((norbs &lt; 1000) .or. (mod(io,12) == 0)) then</span>
<span style="color: #b22222;">!               </span><span style="color: #b22222;">write(6,"(5i10)") io, p1(io), isrc(io), p2(io), idst(io)</span>
<span style="color: #b22222;">!            </span><span style="color: #b22222;">endif</span>
<span style="color: #b22222;">!        </span><span style="color: #b22222;">endif</span>
      <span style="color: #a020f0;">en