l00893"></a>00893          <span class="keyword">end do</span>
<a name="l00894"></a>00894       <span class="keyword">end do</span>
<a name="l00895"></a>00895 
<a name="l00896"></a>00896 <span class="keyword">    end subroutine ssht_dl_halfpi_trapani_fill_eighth2quarter</span>
<a name="l00897"></a>00897 
<a name="l00898"></a>00898 
<a name="l00899"></a>00899     <span class="comment">!--------------------------------------------------------------------------</span>
<a name="l00900"></a>00900     <span class