0411"></a>00411                dl(k + 1 - l, i - l) = dl(k + 1 - l, i - l) &amp;
<a name="l00412"></a>00412                     + sqrt_tbl(j-i) * sqrt_tbl(k+1) * ddj * sinhb
<a name="l00413"></a>00413                dl(k + 1 - l, i + 1 - l) = dl(k + 1 - l, i + 1 - l) &amp;
<a name="l00414"></a>00414                     + sqrt_tbl(i+1) * sqrt_tbl(k+1) * ddj * coshb
<a name="l00415"></a>00415             <span class="keyword">end do</span>
<a name="l00416"></a>00416          <span class="keyword">end do</span