    dl(k - l, i - l) = dl(k - l, i - l) &amp;
<a name="l00287"></a>00287                     + sqrt_tbl(j-i) * sqrt_tbl(j-k) * ddj * coshb
<a name="l00288"></a>00288                dl(k - l, i + 1 - l) = dl(k - l, i + 1 - l) &amp;
<a name="l00289"></a>00289                     - sqrt_tbl(i+1) * sqrt_tbl(j-k) * ddj * sinhb
<a name="l00290"></a>00290                dl(k + 1 - l, i - l) = dl(k + 1 - l, i - l) &amp;
<a name="l00291"></a>00291                     + sqrt_tbl(j-i) * sqrt_tbl(k+1) * ddj * sinhb
<a 