"></a>00692          <span class="keyword">do</span> m = -el, el
<a name="l00693"></a>00693             dl(m,mm) = signs(el) * signs(abs(m)) * dl(m,-mm)
<a name="l00694"></a>00694          <span class="keyword">end do</span>
<a name="l00695"></a>00695       <span class="keyword">end do</span>
<a name="l00696"></a>00696 
<a name="l00697"></a>00697 <span class="keyword">    end subroutine ssht_dl_halfpi_trapani_fill_eighth2full_table</span>
<a name="l00698"></a>00698 
<a name="l00699"></a>00699 
<a name="l007