="p">)</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">exit</span>  <span class="c">! zeroed terms are ignored</span>
         <span class="n">ii</span> <span class="o">=</span> <span class="n">ii</span> <span class="o">+</span><span class="mi">1</span>
      <span class="n">enddo</span>
      <span class="n">jptr</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">ii</span>

      <span