00685          <span class="keyword">do</span> m = -el, -1
<a name="l00686"></a>00686             dl(m,mm) = signs(el) * signs(mm) * dl(-m,mm)
<a name="l00687"></a>00687          <span class="keyword">end do</span>
<a name="l00688"></a>00688       <span class="keyword">end do</span>
<a name="l00689"></a>00689 
<a name="l00690"></a>00690       <span class="comment">! Symmetry in mm to fill in remaining plane.</span>
<a name="l00691"></a>00691       <span class="keyword">do</span> mm = -el, -1
<a name="l00692