nt">! Symmetry in mm to fill in remaining plane.</span>
<a name="l00641"></a>00641       <span class="keyword">do</span> mm = -el, -1
<a name="l00642"></a>00642          <span class="keyword">do</span> m = -el, el
<a name="l00643"></a>00643             dl(m,mm) = (-1)**(el+m) * dl(m,-mm)
<a name="l00644"></a>00644          <span class="keyword">end do</span>
<a name="l00645"></a>00645       <span class="keyword">end do</span>
<a name="l00646"></a>00646 
<a name="l00647"></a>00647 <span class="keyword">    e