e="l01178"></a>01178         sgn = (- 1)**(i + 1)
<a name="l01179"></a>01179         <span class="keyword">do</span> j = 1, 2 * l + 2 - i
<a name="l01180"></a>01180           dl(j - lp1, i - lp1) = dl(i - lp1, j - lp1) * sgn
<a name="l01181"></a>01181           sgn = sgn * (- 1)
<a name="l01182"></a>01182         <span class="keyword">end do</span>
<a name="l01183"></a>01183         <span class="keyword">do</span> j = i, 2 * l + 1
<a name="l01184"></a>01184           dl(j - lp1, i - lp1) = dl(2 * l + 2 - i 