: m, mm
<a name="l00722"></a>00722 
<a name="l00723"></a>00723       <span class="comment">! Diagonal symmetry to fill in quarter.</span>
<a name="l00724"></a>00724       <span class="keyword">do</span> m = 0, el
<a name="l00725"></a>00725          <span class="keyword">do</span> mm = m+1, el
<a name="l00726"></a>00726             dl(m,mm) = (-1)**(m+mm) * dl(mm,m)
<a name="l00727"></a>00727          <span class="keyword">end do</span>
<a name="l00728"></a>00728       <span class="keyword">end do</span>
<a 