26       <span class="comment">! Diagonal symmetry to fill in quarter.</span>
<a name="l00627"></a>00627       <span class="keyword">do</span> m = 0, el
<a name="l00628"></a>00628          <span class="keyword">do</span> mm = m+1, el
<a name="l00629"></a>00629             dl(m,mm) = (-1)**(m+mm) * dl(mm,m)
<a name="l00630"></a>00630          <span class="keyword">end do</span>
<a name="l00631"></a>00631       <span class="keyword">end do</span>
<a name="l00632"></a>00632 
<a name="l00633"></a>00633       <s