name="l00729"></a>00729 
<a name="l00730"></a>00730       <span class="comment">! Symmetry in m to fill in half.</span>
<a name="l00731"></a>00731       <span class="keyword">do</span> m = -el, -1
<a name="l00732"></a>00732          <span class="keyword">do</span> mm = 0, el
<a name="l00733"></a>00733             dl(m,mm) = (-1)**(el+mm) * dl(-m,mm)
<a name="l00734"></a>00734          <span class="keyword">end do</span>
<a name="l00735"></a>00735       <span class="keyword">end do</span>
<a name="l00736"></