
<a name="l00924"></a>00924 
<a name="l00925"></a>00925       <span class="comment">! Diagonal symmetry to fill in quarter.</span>
<a name="l00926"></a>00926       <span class="keyword">do</span> m = 0, el
<a name="l00927"></a>00927          <span class="keyword">do</span> mm = m+1, el
<a name="l00928"></a>00928             dl(m,mm) = signs(m) * signs(mm) * dl(mm,m)
<a name="l00929"></a>00929          <span class="keyword">end do</span>
<a name="l00930"></a>00930       <span class="keyword">end do</span>
<a