>
<a name="l00417"></a>00417 
<a name="l00418"></a>00418       <span class="keyword">end if</span>
<a name="l00419"></a>00419 
<a name="l00420"></a>00420 <span class="keyword">    end subroutine ssht_dl_beta_risbo_half_table</span>
<a name="l00421"></a>00421 
<a name="l00422"></a>00422 
<a name="l00423"></a>00423     <span class="comment">!--------------------------------------------------------------------------</span>
<a name="l00424"></a>00424     <span class="comment">! ssht_dl_beta_risbo_fill_half2full