 t2
<a name="l00595"></a>00595             <span class="keyword">end do</span>
<a name="l00596"></a>00596          <span class="keyword">end do</span>
<a name="l00597"></a>00597 
<a name="l00598"></a>00598       <span class="keyword">end if</span>
<a name="l00599"></a>00599 
<a name="l00600"></a>00600 <span class="keyword">    end subroutine ssht_dl_halfpi_trapani_eighth_table</span>
<a name="l00601"></a>00601 
<a name="l00602"></a>00602 
<a name="l00603"></a>00603     <span class="comment">!---------------