name="l01162"></a>01162         <span class="keyword">end do</span>
<a name="l01163"></a>01163       <span class="keyword">end do</span>
<a name="l01164"></a>01164   
<a name="l01165"></a>01165       <span class="comment">! Reflect across diagonal.</span>
<a name="l01166"></a>01166   
<a name="l01167"></a>01167       <span class="keyword">do</span> i = 1, l + 1
<a name="l01168"></a>01168         sgn = - 1
<a name="l01169"></a>01169         <span class="keyword">do</span> j = i + 1, l + 1
<a name="l01170"></