"l00804"></a>00804       <span class="keywordtype">integer</span> :: m, mm
<a name="l00805"></a>00805 
<a name="l00806"></a>00806       <span class="comment">! Diagonal symmetry to fill in quarter.</span>
<a name="l00807"></a>00807       <span class="keyword">do</span> m = 0, el
<a name="l00808"></a>00808          <span class="keyword">do</span> mm = m+1, el
<a name="l00809"></a>00809             dl(m,mm) = (-1)**(m+mm) * dl(mm,m)
<a name="l00810"></a>00810          <span class="keyword">end do</span>
<a na