><span class="o">/</span><span class="p">(</span><span class="mi">2</span><span class="o">*</span><span class="n">C_PI</span><span class="o">*</span><span class="n">dr</span><span class="o">**</span><span class="mi">2</span><span class="o">*</span><span class="p">(</span><span class="n">ii</span><span class="o">-</span><span class="mi">1</span><span class="p">))</span>
       <span class="k">end if</span>
       <span class="c">! First-order weighting</span>
<span class="c">!       if(ii.eq.1) then</span>
<