pan class="comment">! Symmetry in m to fill in half.</span>
<a name="l00634"></a>00634       <span class="keyword">do</span> mm = 0, el
<a name="l00635"></a>00635          <span class="keyword">do</span> m = -el, -1
<a name="l00636"></a>00636             dl(m,mm) = (-1)**(el+mm) * dl(-m,mm)
<a name="l00637"></a>00637          <span class="keyword">end do</span>
<a name="l00638"></a>00638       <span class="keyword">end do</span>
<a name="l00639"></a>00639 
<a name="l00640"></a>00640       <span class="comme