comment">! Diagonal symmetry to fill in quarter.</span>
<a name="l00850"></a>00850       <span class="keyword">do</span> m = 0, el
<a name="l00851"></a>00851          <span class="keyword">do</span> mm = m+1, el
<a name="l00852"></a>00852             dl(m,mm) = signs(m) * signs(mm) * dl(mm,m)
<a name="l00853"></a>00853          <span class="keyword">end do</span>
<a name="l00854"></a>00854       <span class="keyword">end do</span>
<a name="l00855"></a>00855 
<a name="l00856"></a>00856       <span class="com