  <span class="keyword">do</span> i = 0, l <span class="comment">!j/2</span>
<a name="l00406"></a>00406                ddj = dd(i, k) / rj
<a name="l00407"></a>00407                dl(k - l, i - l) = dl(k - l, i - l) &amp;
<a name="l00408"></a>00408                     + sqrt_tbl(j-i) * sqrt_tbl(j-k) * ddj * coshb
<a name="l00409"></a>00409                dl(k - l, i + 1 - l) = dl(k - l, i + 1 - l) &amp;
<a name="l00410"></a>00410                     - sqrt_tbl(i+1) * sqrt_tbl(j-k) * ddj * sinhb
<a name="l0