keyword">end do</span>
<a name="l00523"></a>00523 
<a name="l00524"></a>00524       <span class="keyword">end if</span>
<a name="l00525"></a>00525 
<a name="l00526"></a>00526 <span class="keyword">    end subroutine ssht_dl_halfpi_trapani_eighth</span>
<a name="l00527"></a>00527 
<a name="l00528"></a>00528 
<a name="l00529"></a>00529     <span class="comment">!--------------------------------------------------------------------------</span>
<a name="l00530"></a>00530     <span class="comment">! ssht_dl_half