      <span class="keyword">do</span> mm = 0, el
<a name="l00775"></a>00775          <span class="keyword">do</span> m = -el, -1
<a name="l00776"></a>00776             dl(m,mm) = signs(el) * signs(mm) * dl(-m,mm)
<a name="l00777"></a>00777          <span class="keyword">end do</span>
<a name="l00778"></a>00778       <span class="keyword">end do</span>
<a name="l00779"></a>00779 
<a name="l00780"></a>00780 <span class="keyword">    end subroutine ssht_dl_halfpi_trapani_fill_eighth2tophalf_table</span>
<a nam