 name="l00260"></a>00260          rj = <span class="keywordtype">real</span>(j)
<a name="l00261"></a>00261          <span class="keyword">do</span> k = 0, j - 1
<a name="l00262"></a>00262             <span class="keyword">do</span> i = 0, j - 1
<a name="l00263"></a>00263                dlj = dl(k - (l - 1), i - (l - 1)) / rj
<a name="l00264"></a>00264                dd(i, k) = dd(i, k) &amp;
<a name="l00265"></a>00265                     + sqrt_tbl(j-i) * sqrt_tbl(j-k) * dlj * coshb
<a name="l00266"></a>002