(inout)</span> :: dl(0:el,0:el)
<a name="l00886"></a>00886 
<a name="l00887"></a>00887       <span class="keywordtype">integer</span> :: m, mm
<a name="l00888"></a>00888 
<a name="l00889"></a>00889       <span class="comment">! Diagonal symmetry to fill in quarter.</span>
<a name="l00890"></a>00890       <span class="keyword">do</span> m = 0, el
<a name="l00891"></a>00891          <span class="keyword">do</span> mm = m+1, el
<a name="l00892"></a>00892             dl(m,mm) = (-1)**(m+mm) * dl(mm,m)
<a name="