00818       <span class="keyword">end do</span>
<a name="l00819"></a>00819 
<a name="l00820"></a>00820 <span class="keyword">    end subroutine ssht_dl_halfpi_trapani_fill_eighth2righthalf</span>
<a name="l00821"></a>00821 
<a name="l00822"></a>00822 
<a name="l00823"></a>00823     <span class="comment">!--------------------------------------------------------------------------</span>
<a name="l00824"></a>00824     <span class="comment">! ssht_dl_halfpi_trapani_fill_eighth2righthalf_table</span>
<a name="l0