<a name="l00173"></a>00173                     + sqrt_ip1 * sqrt_kp1 * ddj * coshb
<a name="l00174"></a>00174             <span class="keyword">end do</span>
<a name="l00175"></a>00175          <span class="keyword">end do</span>
<a name="l00176"></a>00176 
<a name="l00177"></a>00177       <span class="keyword">end if</span>
<a name="l00178"></a>00178 
<a name="l00179"></a>00179 <span class="keyword">    end subroutine ssht_dl_beta_risbo_full</span>
<a name="l00180"></a>00180 
<a name="l00181"></a>00181 
<a