me="l00811"></a>00811       <span class="keyword">end do</span>
<a name="l00812"></a>00812 
<a name="l00813"></a>00813       <span class="comment">! Symmetry in mm to fill in half.</span>
<a name="l00814"></a>00814       <span class="keyword">do</span> m = 0, el
<a name="l00815"></a>00815          <span class="keyword">do</span> mm = -el, -1
<a name="l00816"></a>00816             dl(m,mm) = (-1)**(el+m) * dl(m,-mm)
<a name="l00817"></a>00817          <span class="keyword">end do</span>
<a name="l00818"></a>