name="l00292"></a>00292                dl(k + 1 - l, i + 1 - l) = dl(k + 1 - l, i + 1 - l) &amp;
<a name="l00293"></a>00293                     + sqrt_tbl(i+1) * sqrt_tbl(k+1) * ddj * coshb
<a name="l00294"></a>00294             <span class="keyword">end do</span>
<a name="l00295"></a>00295          <span class="keyword">end do</span>
<a name="l00296"></a>00296 
<a name="l00297"></a>00297       <span class="keyword">end if</span>
<a name="l00298"></a>00298 
<a name="l00299"></a>00299 <span class="keyword"> 