- lp1, 2 * l + 2 - j - lp1)
<a name="l01185"></a>01185         <span class="keyword">end do</span>
<a name="l01186"></a>01186       <span class="keyword">end do</span>
<a name="l01187"></a>01187   
<a name="l01188"></a>01188       <span class="keyword">do</span> i = l + 2, 2 * l + 1
<a name="l01189"></a>01189         <span class="keyword">do</span> j = 2 * l + 3 - i, i - 1
<a name="l01190"></a>01190           dl(j - lp1, i - lp1) = dl(2 * l + 2 - i - lp1, 2 * l + 2 - j - lp1)
<a name="l01191"></a>01191     